Fix number of delegators

This used to go max 2
IntersectMBO · Oct 7, 2024 · e02b150 · e02b150
1 parent e8a00e5
commit e02b150
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/StakeDist.hs b/cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/StakeDist.hs
@@ -217,4 +217,4 @@ countStakePerPool delegs (Ledger.Stake stake) = VMap.foldlWithKey accum Map.empt
         Nothing -> acc
         Just kh -> Map.insertWith addDel kh (Ledger.fromCompact compactCoin, 1) acc
 
-    addDel (c, n) (c', _) = (c <+> c', n + 1)
+    addDel (c, n) (c', n') = (c <+> c', n + n')