Update libs/cardano-ledger-core/src/Cardano/Ledger/State/CertState.hs

Co-authored-by: Alexey Kuleshevich <alexey.kuleshevich@iohk.io>

Author: Soupstraw

libs/cardano-ledger-core/src/Cardano/Ledger/Core/PParams.hs

@@ -124,6 +124,7 @@ import Data.Word (Word16, Word32)
 import GHC.Generics (Generic (..), K1 (..), M1 (..), U1, V1, type (:*:) (..))
 import Lens.Micro (Lens', SimpleGetter, lens, set, (^.))
 import NoThunks.Class (NoThunks)
+import GHC.Stack (HasCallStack)
 
 -- | Protocol parameters
 newtype PParams era = PParams (PParamsHKD Identity era)

libs/cardano-ledger-core/src/Cardano/Ledger/State/CertState.hs

@@ -420,9 +420,9 @@ payPoolDeposit ::
 payPoolDeposit keyhash pp pstate = pstate {psDeposits = newpool}
   where
     pool = psDeposits pstate
-    !deposit = pp ^. ppPoolDepositL
+    !deposit = pp ^. ppPoolDepositCompactL
     newpool
-      | Map.notMember keyhash pool = Map.insert keyhash (compactCoinOrError deposit) pool
+      | Map.notMember keyhash pool = Map.insert keyhash deposit pool
       | otherwise = pool
 
 refundPoolDeposit :: KeyHash 'StakePool -> PState era -> (CompactForm Coin, PState era)