From 496f36c939234d4178d64ebe61f556402da3e1b0 Mon Sep 17 00:00:00 2001 From: Carl Hammann Date: Thu, 12 Oct 2023 11:24:12 +0200 Subject: [PATCH] Disambiguate treasury withdrawal flags --- .../src/Cardano/CLI/EraBased/Options/Governance/Actions.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Actions.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Actions.hs index 5e6aedf194..9892cfa7f8 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Actions.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Actions.hs @@ -297,10 +297,10 @@ pGovernanceActionTreasuryWithdrawalCmd era = do Cmd.GovernanceActionTreasuryWithdrawalCmdArgs eon <$> pNetwork <*> pGovActionDeposit - <*> pAnyStakeIdentifier Nothing + <*> pAnyStakeIdentifier (Just "return") <*> pProposalUrl <*> pProposalHashSource - <*> many ((,) <$> pAnyStakeIdentifier Nothing <*> pTransferAmt) -- TODO we should likely pass a prefix here, becaus pAnyStakeIdentiefier is used twice + <*> many ((,) <$> pAnyStakeIdentifier (Just "withdrawal") <*> pTransferAmt) <*> pFileOutDirection "out-file" "Output filepath of the treasury withdrawal." ) $ Opt.progDesc "Create a treasury withdrawal."