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."))