From 78be65872387ceaa32678f0aa76dbb187cafcc63 Mon Sep 17 00:00:00 2001
From: Justin Bedo <cu@cua0.org>
Date: Fri, 7 Mar 2025 23:06:15 +1100
Subject: update to latest ppl

---
 bin/cluster.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'bin/cluster.hs')

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)
-- 
cgit v1.2.3