From 80a8e3ea0c78799c76ea833b3404f892c5f08431 Mon Sep 17 00:00:00 2001 From: Justin Bedo Date: Thu, 26 Jan 2023 15:03:50 +1100 Subject: bump ppl --- bin/cluster.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'bin') diff --git a/bin/cluster.hs b/bin/cluster.hs index 4c182a1..a003227 100644 --- a/bin/cluster.hs +++ b/bin/cluster.hs @@ -139,7 +139,7 @@ run opts = do g = mkStdGen $ seed opts parsed <- compact $ map (map dbl . tail . words) lines hSetBuffering stdout NoBuffering - ((ps, cl), _) <- S.fold_ (\l r -> if mml l < mml r then l else r) (([[]],[]), -1/0) id . takeWithProgress (nsamples opts) $ mh g (mhfrac opts) 0.5 (model $ getCompact parsed) + ((ps, cl), _) <- S.fold_ (\l r -> if mml l < mml r then l else r) (([[]],[]), -1/0) id . takeWithProgress (nsamples opts) $ mh g (mhfrac opts) (model $ getCompact parsed) writeFile (propsPath opts) . unlines $ map (intercalate "," . map show) ps writeFile (clusterPath opts) . unlines $ map show cl where -- cgit v1.2.3