From 2478f54d0fb64bd3f25b7cb45b2d7b7ee245cddf Mon Sep 17 00:00:00 2001 From: teodanciu Date: Wed, 25 Oct 2023 23:23:04 +0100 Subject: [PATCH] Account for change of type of `GetCommitteeMembersState` --- cardano-api/internal/Cardano/Api/Query.hs | 2 +- cardano-api/internal/Cardano/Api/Query/Expr.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/cardano-api/internal/Cardano/Api/Query.hs b/cardano-api/internal/Cardano/Api/Query.hs index 8e8fae2051..d2a8702bb0 100644 --- a/cardano-api/internal/Cardano/Api/Query.hs +++ b/cardano-api/internal/Cardano/Api/Query.hs @@ -316,7 +316,7 @@ data QueryInShelleyBasedEra era result where :: Set (Shelley.Credential Shelley.ColdCommitteeRole StandardCrypto) -> Set (Shelley.Credential Shelley.HotCommitteeRole StandardCrypto) -> Set L.MemberStatus - -> QueryInShelleyBasedEra era (L.CommitteeMembersState StandardCrypto) + -> QueryInShelleyBasedEra era (Maybe (L.CommitteeMembersState StandardCrypto)) instance NodeToClientVersionOf (QueryInShelleyBasedEra era result) where diff --git a/cardano-api/internal/Cardano/Api/Query/Expr.hs b/cardano-api/internal/Cardano/Api/Query/Expr.hs index bbf2b699f5..e5104f29e4 100644 --- a/cardano-api/internal/Cardano/Api/Query/Expr.hs +++ b/cardano-api/internal/Cardano/Api/Query/Expr.hs @@ -268,6 +268,6 @@ queryCommitteeMembersState :: () -> Set (L.Credential L.ColdCommitteeRole L.StandardCrypto) -> Set (L.Credential L.HotCommitteeRole L.StandardCrypto) -> Set L.MemberStatus - -> LocalStateQueryExpr block point (QueryInMode mode) r IO (Either UnsupportedNtcVersionError (Either EraMismatch (L.CommitteeMembersState L.StandardCrypto))) + -> LocalStateQueryExpr block point (QueryInMode mode) r IO (Either UnsupportedNtcVersionError (Either EraMismatch (Maybe (L.CommitteeMembersState L.StandardCrypto)))) queryCommitteeMembersState eraInMode sbe coldCreds hotCreds statuses = queryExpr $ QueryInEra eraInMode $ QueryInShelleyBasedEra sbe (QueryCommitteeMembersState coldCreds hotCreds statuses)