diff options
| author | Justin Bedo <cu@cua0.org> | 2023-01-26 15:03:50 +1100 |
|---|---|---|
| committer | Justin Bedo <cu@cua0.org> | 2023-01-27 18:11:42 +1100 |
| commit | 80a8e3ea0c78799c76ea833b3404f892c5f08431 (patch) | |
| tree | 676815e1768dd49f09d2f512b51b80a5072de4c7 | |
| parent | 21574418cd05589db626a65879b7afc081a77da2 (diff) | |
bump ppl
| -rw-r--r-- | bin/cluster.hs | 2 | ||||
| -rw-r--r-- | 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 |