diff --git a/concordium-consensus/src/Concordium/GlobalState/BlockState.hs b/concordium-consensus/src/Concordium/GlobalState/BlockState.hs index 9fd239846a..b7ab21b7c0 100644 --- a/concordium-consensus/src/Concordium/GlobalState/BlockState.hs +++ b/concordium-consensus/src/Concordium/GlobalState/BlockState.hs @@ -1509,10 +1509,10 @@ class (BlockStateQuery m) => BlockStateOperations m where -- | Get whether a protocol update is effective bsoIsProtocolUpdateEffective :: UpdatableBlockState m -> m Bool - -- | Update the count of missed rounds for a given validator + -- | Update the count of missed rounds for given validators bsoUpdateMissedRounds :: (PVSupportsDelegation (MPV m)) => UpdatableBlockState m -> [(BakerId, Word16)] -> m (UpdatableBlockState m) - -- | Clear the missed round count for a given validator + -- | Clear the missed round count for given validators bsoClearMissedRounds :: (PVSupportsDelegation (MPV m)) => UpdatableBlockState m -> [BakerId] -> m (UpdatableBlockState m) -- | A snapshot of the block state that can be used to roll back to a previous state. diff --git a/concordium-consensus/src/Concordium/GlobalState/Persistent/BlockState.hs b/concordium-consensus/src/Concordium/GlobalState/Persistent/BlockState.hs index 01566d511d..f41da5b204 100644 --- a/concordium-consensus/src/Concordium/GlobalState/Persistent/BlockState.hs +++ b/concordium-consensus/src/Concordium/GlobalState/Persistent/BlockState.hs @@ -3484,10 +3484,11 @@ doClearMissedRounds pbs bids = do bsp <- loadPBS pbs bsp' <- foldM - ( \bsp0 bId -> modifyBakerPoolRewardDetailsInPoolRewards - bsp0 - bId - (\bprd -> bprd{missedRounds = 0}) + ( \bsp0 bId -> + modifyBakerPoolRewardDetailsInPoolRewards + bsp0 + bId + (\bprd -> bprd{missedRounds = 0}) ) bsp bids