From f81eea8ccf7a608800f059137c31bc657fc8f438 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Thorsten=20Wi=C3=9Fmann?= <edu@thorsten-wissmann.de>
Date: Thu, 21 Mar 2019 15:04:06 +0100
Subject: [PATCH] Fix sum in MonoidValued
---
src/Copar/Functors/MonoidValued.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Copar/Functors/MonoidValued.hs b/src/Copar/Functors/MonoidValued.hs
index fae0dc9..201e675 100644
--- 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)
--
GitLab