diff --git a/concordium-consensus/src/Concordium/GlobalState/Persistent/BlockState.hs b/concordium-consensus/src/Concordium/GlobalState/Persistent/BlockState.hs index b578420f0c..fc807f05be 100644 --- a/concordium-consensus/src/Concordium/GlobalState/Persistent/BlockState.hs +++ b/concordium-consensus/src/Concordium/GlobalState/Persistent/BlockState.hs @@ -2798,8 +2798,8 @@ doMint pbs mint = do bspBank bsp & unhashed %~ (Rewards.totalGTU +~ mintTotal mint) - . (Rewards.bakingRewardAccount +~ mintBakingReward mint) - . (Rewards.finalizationRewardAccount +~ mintFinalizationReward mint) + . (Rewards.bakingRewardAccount +~ mintBakingReward mint) + . (Rewards.finalizationRewardAccount +~ mintFinalizationReward mint) let updAcc = addAccountAmount $ mintDevelopmentCharge mint foundationAccount <- (^. cpFoundationAccount) <$> lookupCurrentParameters (bspUpdates bsp) newAccounts <- Accounts.updateAccountsAtIndex' updAcc foundationAccount (bspAccounts bsp)