Propagate createAndValidateTransactionBody throughout cardano-cli

Author: Jimbo4350

cardano-cli/src/Cardano/CLI/Byron/Tx.hs

@@ -165,7 +165,7 @@ txSpendGenesisUTxOByronPBFT gc nId sk (ByronAddress bAddr) outs = do
             TxUpdateProposalNone
             TxMintNone
             TxScriptValidityNone
-    case makeTransactionBody txBodyCont of
+    case createAndValidateTransactionBody txBodyCont of
       Left err -> error $ "Error occurred while creating a Byron genesis based UTxO transaction: " <> show err
       Right txBody -> let bWit = fromByronWitness sk nId txBody
                       in makeSignedTransaction [bWit] txBody
@@ -207,7 +207,7 @@ txSpendUTxOByronPBFT nId sk txIns outs = do
                      TxUpdateProposalNone
                      TxMintNone
                      TxScriptValidityNone
-  case makeTransactionBody txBodyCont of
+  case createAndValidateTransactionBody txBodyCont of
     Left err -> error $ "Error occurred while creating a Byron genesis based UTxO transaction: " <> show err
     Right txBody -> let bWit = fromByronWitness sk nId txBody
                     in makeSignedTransaction [bWit] txBody

cardano-cli/src/Cardano/CLI/Shelley/Run/Transaction.hs

@@ -403,7 +403,7 @@ runTxBuildRaw (AnyCardanoEra era)
 
     txBody <-
       firstExceptT ShelleyTxCmdTxBodyError . hoistEither $
-        makeTransactionBody txBodyContent
+        createAndValidateTransactionBody txBodyContent
     case outputFormat of
       OutputCliSerialisation ->
         firstExceptT ShelleyTxCmdWriteFileError . newExceptT $