diff options
author | Justin Bedo <cu@cua0.org> | 2023-01-20 15:10:25 +1100 |
---|---|---|
committer | Justin Bedo <cu@cua0.org> | 2023-01-23 12:45:13 +1100 |
commit | 4c53cbc9a631238ad47ab9917c00049314f45fd1 (patch) | |
tree | f0241a8a71700583b13aa1a6f57ceed6133b6c2e | |
parent | 5c4ffb1cd6c206884f6d0b1347f86964306a78c8 (diff) |
bump ppl
-rw-r--r-- | bin/cluster.hs | 2 | ||||
-rw-r--r-- | 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 |