Implement fix for #3826

IntersectMBO · Nov 10, 2023 · 91b82ae · 91b82ae
1 parent bc40bf2
commit 91b82ae
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/eras/conway/impl/src/Cardano/Ledger/Conway/Rules/Epoch.hs b/eras/conway/impl/src/Cardano/Ledger/Conway/Rules/Epoch.hs
@@ -94,7 +94,7 @@ import Cardano.Ledger.Shelley.Rules (
  )
 import qualified Cardano.Ledger.Shelley.Rules as Shelley
 import Cardano.Ledger.Slot (EpochNo)
-import Cardano.Ledger.UMap (UView (..), unionKeyDeposits, (∪+), (◁))
+import Cardano.Ledger.UMap (UView (..), unionRewAgg, (∪+), (◁))
 import Cardano.Ledger.Val (zero, (<->))
 import Control.SetAlgebra (eval, (⨃))
 import Control.State.Transition (
@@ -169,7 +169,7 @@ returnProposalDeposits removedProposals =
  dsUnifiedL %~ returnProposalDepositsUMap
  where
  returnProposalDepositsUMap umap =
- unionKeyDeposits (RewDepUView umap) $ foldl' addReward mempty removedProposals
+ unionRewAgg (RewDepUView umap) $ foldl' addReward mempty removedProposals
  where
  addReward m' GovActionState {..} =
  Map.insertWith