Revision 94e05c32 hscan.hs

b/hscan.hs
142 142
                 Bad err -> printf "\nError: failed to load data. \
143 143
                                   \Details:\n%s\n" err
144 144
                 Ok x -> do
145
                   let (nl, il, csf) = x
145
                   let (nl, il, _, csf) = x
146 146
                       (_, fix_nl) = Loader.checkData nl il
147 147
                   putStrLn $ printCluster fix_nl il
148 148
                   when (isJust shownodes) $

Also available in: Unified diff