Commit f81eea8c authored by Thorsten Wißmann's avatar Thorsten Wißmann 🐧 Committed by Hans-Peter Deifel

Fix sum in MonoidValued

parent f77957a9
......@@ -199,7 +199,7 @@ instance (Monoid m, Ord m) => RefinementInterface (SlowMonoidValued m) where
let toS = foldl' (flip SumBag.insert) SumBag.empty labels
toCWithoutS = foldl' (flip SumBag.delete) counts labels
sumS = fold toS
sumCWithoutS = fold toS
sumCWithoutS = fold toCWithoutS
f3 = (sumRest, sumCWithoutS, sumS)
w1 = (sumRest <> sumCWithoutS, toS)
w2 = (sumRest <> sumS, toCWithoutS)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment