add query future pparams

cardano-api/internal/Cardano/Api/Query.hs

@@ -280,6 +280,8 @@ data QueryInShelleyBasedEra era result where
     :: QueryInShelleyBasedEra era (L.Constitution (ShelleyLedgerEra era))
   QueryGovState
     :: QueryInShelleyBasedEra era (L.GovState (ShelleyLedgerEra era))
+  QueryFuturePParams
+    :: QueryInShelleyBasedEra era (Maybe (Core.PParams (ShelleyLedgerEra era)))
   QueryDRepState
     :: Set (Shelley.Credential Shelley.DRepRole StandardCrypto)
     -> QueryInShelleyBasedEra
@@ -337,6 +339,7 @@ instance NodeToClientVersionOf (QueryInShelleyBasedEra era result) where
   nodeToClientVersionOf QueryCommitteeMembersState{} = NodeToClientV_16
   nodeToClientVersionOf QueryStakeVoteDelegatees{} = NodeToClientV_16
   nodeToClientVersionOf QueryProposals{} = NodeToClientV_17
+  nodeToClientVersionOf QueryFuturePParams{} = NodeToClientV_18
   nodeToClientVersionOf QueryLedgerPeerSnapshot = NodeToClientV_19
 
 deriving instance Show (QueryInShelleyBasedEra era result)
@@ -673,6 +676,11 @@ toConsensusQueryShelleyBased sbe = \case
     Some (consensusQueryInEraInMode era Consensus.GetAccountState)
   QueryGovState ->
     Some (consensusQueryInEraInMode era Consensus.GetGovState)
+  QueryFuturePParams ->
+    caseShelleyToBabbageOrConwayEraOnwards
+      (const $ error "toConsensusQueryShelleyBased: QueryRatifyState is only available in the Conway era")
+      (const $ Some (consensusQueryInEraInMode era Consensus.GetFuturePParams))
+      sbe
   QueryDRepState creds ->
     caseShelleyToBabbageOrConwayEraOnwards
       (const $ error "toConsensusQueryShelleyBased: QueryDRepState is only available in the Conway era")
@@ -986,6 +994,11 @@ fromConsensusQueryResultShelleyBased sbe sbeQuery q' r' =
         Consensus.GetGovState{} ->
           r'
         _ -> fromConsensusQueryResultMismatch
+    QueryFuturePParams{} ->
+      case q' of
+        Consensus.GetFuturePParams{} ->
+          r'
+        _ -> fromConsensusQueryResultMismatch  
     QueryDRepState{} ->
       case q' of
         Consensus.GetDRepState{} ->

cardano-api/internal/Cardano/Api/Query/Expr.hs

@@ -35,6 +35,7 @@ module Cardano.Api.Query.Expr
   , querySPOStakeDistribution
   , queryDRepState
   , queryGovState
+  , queryFuturePParams
   , queryStakeVoteDelegatees
   , queryProposals
   )
@@ -401,6 +402,20 @@ queryGovState era = do
   let sbe = convert era
   queryExpr $ QueryInEra $ QueryInShelleyBasedEra sbe QueryGovState
 
+queryFuturePParams
+  :: ()
+  => ConwayEraOnwards era
+  -> LocalStateQueryExpr
+      block
+      point
+      QueryInMode
+      r
+      IO
+      (Either UnsupportedNtcVersionError (Either EraMismatch (Maybe (L.PParams (ShelleyLedgerEra era)))))
+queryFuturePParams era = do
+  let sbe = convert era
+  queryExpr $ QueryInEra $ QueryInShelleyBasedEra sbe QueryFuturePParams
+
 queryDRepState
   :: ConwayEraOnwards era
   -> Set (L.Credential L.DRepRole L.StandardCrypto)

cardano-api/src/Cardano/Api.hs

@@ -1029,6 +1029,7 @@ module Cardano.Api
   , queryUtxo
   , queryConstitution
   , queryGovState
+  , queryFuturePParams
   , queryDRepState
   , queryDRepStakeDistribution
   , querySPOStakeDistribution