diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Commands/Transaction.hs b/cardano-cli/src/Cardano/CLI/Legacy/Commands/Transaction.hs index b05c4c5bd5..8c8684cc9c 100644 --- a/cardano-cli/src/Cardano/CLI/Legacy/Commands/Transaction.hs +++ b/cardano-cli/src/Cardano/CLI/Legacy/Commands/Transaction.hs @@ -135,9 +135,6 @@ data LegacyTransactionCmds | TransactionTxIdCmd InputTxBodyOrTxFile | TransactionViewCmd - ViewOutputFormat - (Maybe (File () Out)) - InputTxBodyOrTxFile renderLegacyTransactionCmds :: LegacyTransactionCmds -> Text renderLegacyTransactionCmds = \case diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Options.hs b/cardano-cli/src/Cardano/CLI/Legacy/Options.hs index 3c3471cfdc..115ab0fcc2 100644 --- a/cardano-cli/src/Cardano/CLI/Legacy/Options.hs +++ b/cardano-cli/src/Cardano/CLI/Legacy/Options.hs @@ -300,7 +300,7 @@ pTransaction envCli = (Opt.info pTransactionId $ Opt.progDesc "Print a transaction identifier.") , subParser "view" $ Opt.info pTransactionView $ - Opt.progDesc "Print a transaction." + Opt.progDesc "This command has been removed. Please use \"debug transaction view\" instead." ] where -- Backwards compatible parsers @@ -488,10 +488,7 @@ pTransaction envCli = pTransactionView :: Parser LegacyTransactionCmds pTransactionView = - TransactionViewCmd - <$> pTxViewOutputFormat - <*> pMaybeOutputFile - <*> pInputTxOrTxBodyFile + pure TransactionViewCmd pNodeCmds :: Parser LegacyNodeCmds pNodeCmds = diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Run/Transaction.hs b/cardano-cli/src/Cardano/CLI/Legacy/Run/Transaction.hs index b9ec1ac508..11cb62998b 100644 --- a/cardano-cli/src/Cardano/CLI/Legacy/Run/Transaction.hs +++ b/cardano-cli/src/Cardano/CLI/Legacy/Run/Transaction.hs @@ -152,8 +152,8 @@ runLegacyTransactionCmds = \case runLegacyTransactionHashScriptDataCmd scriptDataOrFile TransactionTxIdCmd txinfile -> runLegacyTransactionTxIdCmd txinfile - TransactionViewCmd yamlOrJson mOutFile txinfile -> - runLegacyTransactionViewCmd yamlOrJson mOutFile txinfile + TransactionViewCmd -> + runLegacyTransactionViewCmd TransactionPolicyIdCmd sFile -> runLegacyTransactionPolicyIdCmd sFile TransactionWitnessCmd txBodyfile witSignData mbNw outFile -> @@ -508,14 +508,10 @@ runLegacyTransactionTxIdCmd txfile = txfile ) -runLegacyTransactionViewCmd - :: ViewOutputFormat -> Maybe (File () Out) -> InputTxBodyOrTxFile -> ExceptT TxCmdError IO () -runLegacyTransactionViewCmd - _yamlOrJson - _mOutFile - _inputTxBodyOrTxFile = - runTransactionViewCmd - Cmd.TransactionViewCmdArgs +runLegacyTransactionViewCmd :: ExceptT TxCmdError IO () +runLegacyTransactionViewCmd = + runTransactionViewCmd + Cmd.TransactionViewCmdArgs runLegacyTransactionWitnessCmd :: ()