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)