New name argument for pQueryNoArgCmdArgs

Author: newhoggy

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

@@ -605,7 +605,7 @@ pQueryGetConstitutionCmd era envCli = do
   pure
     . Opt.hsubparser
     . commandWithMetavar "constitution"
-    . Opt.info (QueryConstitutionCmd <$> pQueryNoArgCmdArgs w envCli)
+    . Opt.info (QueryConstitutionCmd <$> pQueryNoArgCmdArgs w envCli "constitution")
     $ Opt.progDesc "Get the constitution"
 
 pQueryGetGovStateCmd
@@ -618,7 +618,7 @@ pQueryGetGovStateCmd era envCli = do
   pure
     . Opt.hsubparser
     . commandWithMetavar "gov-state"
-    . Opt.info (QueryGovStateCmd <$> pQueryNoArgCmdArgs w envCli)
+    . Opt.info (QueryGovStateCmd <$> pQueryNoArgCmdArgs w envCli "gov-state")
     $ Opt.progDesc "Get the governance state"
 
 pQueryGetRatifyStateCmd
@@ -631,7 +631,7 @@ pQueryGetRatifyStateCmd era envCli = do
   pure
     . Opt.hsubparser
     . commandWithMetavar "ratify-state"
-    . Opt.info (QueryRatifyStateCmd <$> pQueryNoArgCmdArgs w envCli)
+    . Opt.info (QueryRatifyStateCmd <$> pQueryNoArgCmdArgs w envCli "ratify-state")
     $ Opt.progDesc "Get the ratification state"
 
 pQueryFuturePParamsCmd
@@ -644,7 +644,7 @@ pQueryFuturePParamsCmd era envCli = do
   pure
     . Opt.hsubparser
     . commandWithMetavar "future-pparams"
-    . Opt.info (QueryFuturePParamsCmd <$> pQueryNoArgCmdArgs w envCli)
+    . Opt.info (QueryFuturePParamsCmd <$> pQueryNoArgCmdArgs w envCli "future-pparams")
     $ Opt.progDesc "Get the protocol parameters that will apply at the next epoch"
 
 -- TODO Conway: DRep State and DRep Stake Distribution parsers use DRep keys to obtain DRep credentials. This only
@@ -873,8 +873,9 @@ pQueryNoArgCmdArgs
    . ()
   => ConwayEraOnwards era
   -> EnvCli
+  -> String
   -> Parser (QueryNoArgCmdArgs era)
-pQueryNoArgCmdArgs w envCli =
+pQueryNoArgCmdArgs w envCli _name =
   QueryNoArgCmdArgs w
     <$> pQueryCommons (convert w) envCli
     <*> pMaybeOutputFile