Fixes

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)