diff --git a/ChangeLog.md b/ChangeLog.md index d88216a3..d160a093 100644 --- a/ChangeLog.md +++ b/ChangeLog.md @@ -15,6 +15,9 @@ Note: due to API changes, this release may not work correctly with node versions accounts with scheduled releases, cooldowns, pre-cooldowns and pre-pre-cooldowns. - Raw commands `GetBlockTransactionEvents` and `GetTransactionStatus` include the `parameter` for `ContractInitialized` events. +- From protocol version 8, raw command `GetPoolStatus` indicates if a validator is suspended and, + if it is in the current committee, if it is primed for suspension and the current count of + missed rounds. ## 7.0.1 diff --git a/deps/concordium-base b/deps/concordium-base index 98501a72..92150abc 160000 --- a/deps/concordium-base +++ b/deps/concordium-base @@ -1 +1 @@ -Subproject commit 98501a7210e9eb21aad138f555e5e9e53d4ab891 +Subproject commit 92150abc924a39580aa8e5bee1aaee52a5ef4739 diff --git a/src/Concordium/Client/GRPC2.hs b/src/Concordium/Client/GRPC2.hs index 74ffc5b6..871233c0 100644 --- a/src/Concordium/Client/GRPC2.hs +++ b/src/Concordium/Client/GRPC2.hs @@ -965,6 +965,8 @@ instance FromProto Proto.PoolCurrentPaydayInfo where bpsBakerEquityCapital <- fromProto $ cpi ^. ProtoFields.bakerEquityCapital bpsDelegatedCapital <- fromProto $ cpi ^. ProtoFields.delegatedCapital bpsCommissionRates <- fromProto $ cpi ^. ProtoFields.commissionRates + let bpsIsPrimedForSuspension = cpi ^. ProtoFields.maybe'isPrimedForSuspension + let bpsMissedRounds = cpi ^. ProtoFields.maybe'missedRounds return CurrentPaydayBakerPoolStatus{..} instance FromProto Proto.PoolInfoResponse where @@ -986,6 +988,7 @@ instance FromProto Proto.PoolInfoResponse where return $ Just ActiveBakerPoolStatus{..} psCurrentPaydayStatus <- fromProtoMaybe $ pir ^. ProtoFields.maybe'currentPaydayInfo psAllPoolTotalCapital <- fromProto $ pir ^. ProtoFields.allPoolTotalCapital + let psIsSuspended = pir ^. ProtoFields.maybe'isSuspended return BakerPoolStatus{..} instance FromProto Proto.PassiveDelegationInfo where