Merge pull request #1079 from IntersectMBO/query-interpreter

Allow Plutus cost calculation to take offline data instead of querying the node

Author: palas

cardano-cli/cardano-cli.cabal

@@ -363,6 +363,8 @@ test-suite cardano-cli-test
     filepath,
     hedgehog,
     hedgehog-extras,
+    microlens,
+    microlens-aeson,
     mmorph,
     monad-control,
     parsec,

cardano-cli/src/Cardano/CLI/EraBased/Query/Command.hs

@@ -30,6 +30,7 @@ module Cardano.CLI.EraBased.Query.Command
   , QueryTreasuryValueCmdArgs (..)
   , QueryLedgerPeerSnapshotCmdArgs (..)
   , QueryStakePoolDefaultVoteCmdArgs (..)
+  , QueryEraHistoryCmdArgs (..)
   , renderQueryCmds
   , IncludeStake (..)
   )
@@ -78,6 +79,7 @@ data QueryCmds era
   | QueryProposalsCmd !(QueryProposalsCmdArgs era)
   | QueryLedgerPeerSnapshotCmd !QueryLedgerPeerSnapshotCmdArgs
   | QueryStakePoolDefaultVoteCmd !(QueryStakePoolDefaultVoteCmdArgs era)
+  | QueryEraHistoryCmd !QueryEraHistoryCmdArgs
   deriving (Generic, Show)
 
 -- | Fields that are common to most queries
@@ -265,6 +267,12 @@ data QueryStakePoolDefaultVoteCmdArgs era = QueryStakePoolDefaultVoteCmdArgs
   }
   deriving Show
 
+data QueryEraHistoryCmdArgs = QueryEraHistoryCmdArgs
+  { commons :: !QueryCommons
+  , mOutFile :: !(Maybe (File () Out))
+  }
+  deriving (Generic, Show)
+
 renderQueryCmds :: QueryCmds era -> Text
 renderQueryCmds = \case
   QueryLeadershipScheduleCmd{} ->
@@ -321,6 +329,8 @@ renderQueryCmds = \case
     "treasury"
   QueryStakePoolDefaultVoteCmd{} ->
     "query stake-pool-default-vote"
+  QueryEraHistoryCmd{} ->
+    "query era-history"
 
 renderTxMempoolQuery :: TxMempoolQuery -> Text
 renderTxMempoolQuery = \case