bump ppl

1 files changed, 1 insertions, 1 deletions

diff --git a/bin/cluster.hs b/bin/cluster.hs
index 0a7a438..3eee95a 100644
--- a/bin/cluster.hs
+++ b/bin/cluster.hs
@@ -132,7 +132,7 @@ run opts = do
   (hdr : lines) <- lines <$> readFile (input opts)
   let dbl = round . read :: String -> Int
   parsed <- compact $ map (map dbl . tail . words) lines
-  ((ps, cl), _) <- foldl1' (\a c -> if mml a < mml c then a else c) . take (nsamples opts) <$> mh (mhfrac opts) (model $ getCompact parsed)
+  ((ps, cl), _) <- foldl1' (\a c -> if mml a < mml c then a else c) . take (nsamples opts) <$> mh (mhfrac opts) 0.5 (model $ getCompact parsed)
   writeFile (propsPath opts) . unlines $ map (intercalate "," . map show) ps
   writeFile (clusterPath opts) . unlines $ map show cl
   when (dotPath opts /= "") $ drawGraph (dotPath opts) ps cl