Skip to content
Snippets Groups Projects
Commit 27bfccba authored by Hans-Peter Deifel's avatar Hans-Peter Deifel
Browse files

Merge branch 'fixes'

parents afc736fa f81eea8c
No related branches found
No related tags found
1 merge request!13Fixes
Show whitespace changes
Inline Side-by-side
src/Copar/Functors/MonoidValued.hs
+ 1
− 1
View file @ 27bfccba
...@@ -199,7 +199,7 @@ instance (Monoid m, Ord m) => RefinementInterface (SlowMonoidValued m) where ...@@ -199,7 +199,7 @@ instance (Monoid m, Ord m) => RefinementInterface (SlowMonoidValued m) where
let toS = foldl' (flip SumBag.insert) SumBag.empty labels let toS = foldl' (flip SumBag.insert) SumBag.empty labels
toCWithoutS = foldl' (flip SumBag.delete) counts labels toCWithoutS = foldl' (flip SumBag.delete) counts labels
sumS = fold toS sumS = fold toS
sumCWithoutS = fold toS sumCWithoutS = fold toCWithoutS
f3 = (sumRest, sumCWithoutS, sumS) f3 = (sumRest, sumCWithoutS, sumS)
w1 = (sumRest <> sumCWithoutS, toS) w1 = (sumRest <> sumCWithoutS, toS)
w2 = (sumRest <> sumS, toCWithoutS) w2 = (sumRest <> sumS, toCWithoutS)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment