Account for change of type of GetCommitteeMembersState

IntersectMBO · Oct 26, 2023 · 2478f54 · 2478f54
1 parent cf17a2f
commit 2478f54
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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)