diff options
| author | Justin Bedo <cu@cua0.org> | 2025-03-07 23:06:15 +1100 |
|---|---|---|
| committer | Justin Bedo <cu@cua0.org> | 2025-03-07 23:06:22 +1100 |
| commit | 78be65872387ceaa32678f0aa76dbb187cafcc63 (patch) | |
| tree | c4de87f0fab58a8fd443ba329cee156149a26538 /bin/cluster.hs | |
| parent | 5ee4eb95cc2c96d9a44d0c02f3cc883dc7cc8f09 (diff) | |
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) |