From 80a8e3ea0c78799c76ea833b3404f892c5f08431 Mon Sep 17 00:00:00 2001
From: Justin Bedo <cu@cua0.org>
Date: Thu, 26 Jan 2023 15:03:50 +1100
Subject: bump ppl

---
 bin/cluster.hs | 2 +-
 cabal.project  | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

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
diff --git a/cabal.project b/cabal.project
index e2b3d7d..0677c45 100644
--- a/cabal.project
+++ b/cabal.project
@@ -3,5 +3,5 @@ packages: *.cabal
 source-repository-package
   type: git
   location: https://vk3.wtf/cgit/ppl.git
-  tag: 7653e357f04aa39c1e96037bf1ea2e4338f8ae76
-  --sha256: 1zdx396937q5pxyp1yca1ns6b19bz0vwp5c39zqkr93968nar25f
+  tag: 368ebf9f96e4fded6b69ca609f9db53eb19b4589
+  --sha256: 0jm5q15l9advppc5gfjmkpr4zmv53grm46bh1c0bxib0hd8mmpqq
-- 
cgit v1.2.3