diff options
Diffstat (limited to 'bin/cluster.hs')
| -rw-r--r-- | bin/cluster.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/bin/cluster.hs b/bin/cluster.hs index 222834e..ba9e9f1 100644 --- a/bin/cluster.hs +++ b/bin/cluster.hs @@ -138,9 +138,7 @@ run opts = do hSetBuffering stdout NoBuffering m@((ps, cl), _) <- S.fold_ (\l r -> if mml l < mml r then l else r) (([[]], []), -1 / 0) id . takeWithProgress (nsamples opts) $ - if mhfrac opts <= 0 - then ssmh g (model $ getCompact parsed) - else mh g (mhfrac opts) (model $ getCompact parsed) + mh g (mhfrac opts) (model $ getCompact parsed) writeFile (outputPath opts <> "/props") . unlines $ map (intercalate "," . map show) ps writeFile (outputPath opts <> "/tree") . unlines $ map show cl writeFile (outputPath opts <> "/mml") $ show (mml m) |