From e02b1504efdc213724acf90f29bf2a6c02eb9bff Mon Sep 17 00:00:00 2001 From: Kostas Dermentzis Date: Mon, 7 Oct 2024 21:15:31 +0300 Subject: [PATCH] Fix number of delegators This used to go max 2 --- .../src/Cardano/DbSync/Era/Shelley/Generic/StakeDist.hs | 2 +- 1 file changed, 1 insertion(+), 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 index 3246ddc9d..d6964a7cd 100644 --- 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')