legacy query: remove constitution-hash option

IntersectMBO · Dec 11, 2023 · e2913c7 · e2913c7
1 parent 6947822
commit e2913c7
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 14 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Commands/Query.hs b/cardano-cli/src/Cardano/CLI/Legacy/Commands/Query.hs
@@ -35,7 +35,6 @@ import           GHC.Generics
 data LegacyQueryCmds
   = QueryLeadershipScheduleCmd  !LegacyQueryLeadershipScheduleCmdArgs
   | QueryProtocolParametersCmd  !LegacyQueryProtocolParametersCmdArgs
-  | QueryConstitutionHashCmd    !LegacyQueryConstitutionHashCmdArgs
   | QueryTipCmd                 !LegacyQueryTipCmdArgs
   | QueryStakePoolsCmd          !LegacyQueryStakePoolsCmdArgs
   | QueryStakeDistributionCmd   !LegacyQueryStakeDistributionCmdArgs
@@ -169,7 +168,6 @@ renderLegacyQueryCmds :: LegacyQueryCmds -> Text
 renderLegacyQueryCmds = \case
   QueryLeadershipScheduleCmd {} -> "query leadership-schedule"
   QueryProtocolParametersCmd {} -> "query protocol-parameters "
-  QueryConstitutionHashCmd {} -> "query constitution-hash "
   QueryTipCmd {} -> "query tip"
   QueryStakePoolsCmd {} -> "query stake-pools"
   QueryStakeDistributionCmd {} -> "query stake-distribution"

diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Options.hs b/cardano-cli/src/Cardano/CLI/Legacy/Options.hs
@@ -565,9 +565,6 @@ pQueryCmds envCli =
     [ subParser "protocol-parameters"
         $ Opt.info pQueryProtocolParameters
         $ Opt.progDesc "Get the node's current protocol parameters"
-    , subParser "constitution-hash"
-        $ Opt.info pQueryConstitutionHash
-        $ Opt.progDesc "Get the constitution hash"
     , subParser "tip"
         $ Opt.info pQueryTip
         $ Opt.progDesc "Get the node's current tip (slot no, hash, block no)"
@@ -634,15 +631,6 @@ pQueryCmds envCli =
           <*> pNetworkId envCli
           <*> pMaybeOutputFile
 
-    pQueryConstitutionHash :: Parser LegacyQueryCmds
-    pQueryConstitutionHash =
-      fmap QueryConstitutionHashCmd $
-        LegacyQueryConstitutionHashCmdArgs
-          <$> pSocketPath envCli
-          <*> pConsensusModeParams
-          <*> pNetworkId envCli
-          <*> pMaybeOutputFile
-
     pQueryTip :: Parser LegacyQueryCmds
     pQueryTip =
       fmap QueryTipCmd $