Fix sum in MonoidValued

f81eea8c · Thorsten Wißmann · Hans-Peter Deifel · f77957a9 · f81eea8c
Commit f81eea8c authored Mar 21, 2019 by Thorsten Wißmann 🐧 Committed by Hans-Peter Deifel Mar 21, 2019
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/Copar/Functors/MonoidValued.hs src/Copar/Functors/MonoidValued.hs +1 -1

No files found.
--- a/src/Copar/Functors/MonoidValued.hs
+++ b/src/Copar/Functors/MonoidValued.hs
@@ -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)