From e2913c7778cbb7dcbe2103b5ddf69e1830ff14aa Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Cl=C3=A9ment=20Hurlin?= <clement.hurlin@tweag.io>
Date: Mon, 11 Dec 2023 15:25:59 +0100
Subject: [PATCH] legacy query: remove constitution-hash option

---
 cardano-cli/src/Cardano/CLI/Legacy/Commands/Query.hs |  2 --
 cardano-cli/src/Cardano/CLI/Legacy/Options.hs        | 12 ------------
 2 files changed, 14 deletions(-)

diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Commands/Query.hs b/cardano-cli/src/Cardano/CLI/Legacy/Commands/Query.hs
index 7dd87051dc..7ed446f335 100644
--- 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
index d4f703770e..7ed86aac9c 100644
--- 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 $