From 4c53cbc9a631238ad47ab9917c00049314f45fd1 Mon Sep 17 00:00:00 2001
From: Justin Bedo <cu@cua0.org>
Date: Fri, 20 Jan 2023 15:10:25 +1100
Subject: bump ppl

---
 bin/cluster.hs | 2 +-
 cabal.project  | 5 ++---
 2 files changed, 3 insertions(+), 4 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
diff --git a/cabal.project b/cabal.project
index 05e5503..b4bd1ad 100644
--- a/cabal.project
+++ b/cabal.project
@@ -3,6 +3,5 @@ packages: *.cabal
 source-repository-package
   type: git
   location: https://vk3.wtf/cgit/ppl.git
-  tag: 0718de4acc18df39152fc55d6bd279af56d7e2af
-  --sha256: 071sln8a9zvisilz63hya0yfmis6yx7dd7cs776rb6ff0isvg04p
-
+  tag: 190a4dc5f5398e6646823aa41637f54cc8cb54aa
+  --sha256: 0rm96sslc08hvxjfzqqm8ix4ndq2qhp6f1ycpnbs5347c7gl8xn5
-- 
cgit v1.2.3