diff --git a/eras/conway/impl/src/Cardano/Ledger/Conway/Rules/Epoch.hs b/eras/conway/impl/src/Cardano/Ledger/Conway/Rules/Epoch.hs index af9c2269763..2e41218ccf1 100644 --- a/eras/conway/impl/src/Cardano/Ledger/Conway/Rules/Epoch.hs +++ b/eras/conway/impl/src/Cardano/Ledger/Conway/Rules/Epoch.hs @@ -217,7 +217,7 @@ returnProposalDeposits removedProposals oldUMap = (RewDepUView um) , unclaimed ) - | otherwise = (um, Map.insertWith (<>) (gasId gas) (gasDeposit gas) unclaimed) + | otherwise = (um, Map.insert (gasId gas) (gasDeposit gas) unclaimed) addReward c rd = -- Deposits have been validated at this point rd {rdReward = rdReward rd <> compactCoinOrError c}