Skip to content

GitLab

C
CoPaR
Commit 27bfccba authored by Hans-Peter Deifel's avatar Hans-Peter Deifel 🐢
Browse files
Options

Merge branch 'fixes'

parents afc736fa f81eea8c
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/Copar/Functors/MonoidValued.hs
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)
......
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