Merge pull request #63 from input-output-hk/aniketd/query-constitution

Add query for constitution hash
IntersectMBO · Jul 8, 2023 · 8bf6c6b · 8bf6c6b
2 parents a3de020 + 5c55df7
commit 8bf6c6b
Show file tree

Hide file tree

Showing 7 changed files with 586 additions and 404 deletions.
diff --git a/cardano-cli/cardano-cli.cabal b/cardano-cli/cardano-cli.cabal
@@ -115,6 +115,7 @@ library
                       , bytestring
                       , canonical-json
                       , cardano-api ^>= 8.8
+                      , cardano-api:internal ^>= 8.8
                       , cardano-binary
                       , cardano-crypto
                       , cardano-crypto-class >= 2.1.1

diff --git a/cardano-cli/src/Cardano/CLI/Shelley/Commands.hs b/cardano-cli/src/Cardano/CLI/Shelley/Commands.hs
@@ -50,7 +50,7 @@ module Cardano.CLI.Shelley.Commands
   , Deprecated (..)
   ) where
 
-import           Cardano.Api.Shelley
+import           Cardano.Api.Shelley hiding (QueryInShelleyBasedEra(..))
 
 import           Cardano.Chain.Common (BlockCount)
 import           Cardano.CLI.Conway.Parsers
@@ -364,6 +364,7 @@ data QueryCmd =
       EpochLeadershipSchedule
       (Maybe (File () Out))
   | QueryProtocolParameters' SocketPath AnyConsensusModeParams NetworkId (Maybe (File () Out))
+  | QueryConstitutionHash SocketPath AnyConsensusModeParams NetworkId (Maybe (File () Out))
   | QueryTip SocketPath AnyConsensusModeParams NetworkId (Maybe (File () Out))
   | QueryStakePools' SocketPath AnyConsensusModeParams NetworkId (Maybe (File () Out))
   | QueryStakeDistribution' SocketPath AnyConsensusModeParams NetworkId (Maybe (File () Out))
@@ -394,6 +395,7 @@ renderQueryCmd cmd =
   case cmd of
     QueryLeadershipSchedule {} -> "query leadership-schedule"
     QueryProtocolParameters' {} -> "query protocol-parameters "
+    QueryConstitutionHash {} -> "query constitution-hash "
     QueryTip {} -> "query tip"
     QueryStakePools' {} -> "query stake-pools"
     QueryStakeDistribution' {} -> "query stake-distribution"