From b0ff3194fa8c59726c417643642e8e2feee75810 Mon Sep 17 00:00:00 2001 From: Felix Lipski Date: Wed, 13 Dec 2023 17:35:22 +0100 Subject: [PATCH] change to plural pNames --- .../Cardano/CLI/EraBased/Options/Transaction.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/Transaction.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/Transaction.hs index 44033064f5..050ed4e0e5 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Options/Transaction.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Options/Transaction.hs @@ -181,8 +181,8 @@ pTransactionBuildCmd era envCli = do "Filepath of auxiliary script(s)") <*> many pMetadataFile <*> pFeatured (shelleyBasedToCardanoEra sbe) (optional pUpdateProposalFile) - <*> pVoteFile sbe - <*> pProposalFile sbe + <*> pVoteFiles sbe + <*> pProposalFiles sbe <*> (OutputTxBodyOnly <$> pTxBodyFileOut <|> pCalculatePlutusScriptCost) pChangeAddress :: Parser TxOutChangeAddress @@ -216,17 +216,17 @@ pTransactionBuildRaw era = <*> many pMetadataFile <*> optional pProtocolParamsFile <*> pFeatured era (optional pUpdateProposalFile) - <*> pVoteFile era - <*> pProposalFile era + <*> pVoteFiles era + <*> pProposalFiles era <*> pTxBodyFileOut -pVoteFile :: ShelleyBasedEra era -> Parser [VoteFile In] -pVoteFile = caseShelleyToBabbageOrConwayEraOnwards +pVoteFiles :: ShelleyBasedEra era -> Parser [VoteFile In] +pVoteFiles = caseShelleyToBabbageOrConwayEraOnwards (const $ pure []) (const $ many (pFileInDirection "vote-file" "Filepath of the vote.")) -pProposalFile :: ShelleyBasedEra era -> Parser [ProposalFile In] -pProposalFile = caseShelleyToBabbageOrConwayEraOnwards +pProposalFiles :: ShelleyBasedEra era -> Parser [ProposalFile In] +pProposalFiles = caseShelleyToBabbageOrConwayEraOnwards (const $ pure []) (const $ many (pFileInDirection "proposal-file" "Filepath of the proposal."))