Resolve runTransactionBuildRawCmd

Author: Jimbo4350

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

@@ -79,7 +79,6 @@ import Cardano.CLI.Type.Error.TxValidationError
 import Cardano.CLI.Type.Output (renderScriptCostsWithScriptHashesMap)
 import Cardano.Ledger.Api (allInputsTxBodyF, bodyTxL)
 import Cardano.Prelude (putLByteString)
-import Cardano.Prelude qualified as Exp
 
 import RIO hiding (toList)
 
@@ -497,6 +496,7 @@ runTransactionBuildEstimateCmd -- TODO change type
           votingProceduresAndMaybeScriptWits
           proposals
           currentTreasuryValueAndDonation
+
     let stakeCredentialsToDeregisterMap = fromList $ catMaybes [getStakeDeregistrationInfo cert | (cert, _) <- certsAndMaybeScriptWits]
         drepsToDeregisterMap =
           fromList $
@@ -645,6 +645,7 @@ runTransactionBuildRawCmd
 
     let mLedgerPParams = LedgerProtocolParameters <$> pparams
 
+    -- TODO: Remove me
     txUpdateProposal <- case mUpdateProprosalFile of
       Just (Featured w (Just updateProposalFile)) ->
         fromExceptTCli $ readTxUpdateProposal w updateProposalFile
@@ -701,7 +702,8 @@ runTransactionBuildRawCmd
           proposals
           currentTreasuryValueAndDonation
 
-    let noWitTx = makeSignedTransaction [] txBody
+    let Exp.UnsignedTx lTx = txBody
+        noWitTx = ShelleyTx (convert eon) lTx
     fromEitherIOCli $
       if isCborOutCanonical == TxCborCanonical
         then writeTxFileTextEnvelopeCanonical (convert Exp.useEra) txBodyOutFile noWitTx
@@ -741,7 +743,7 @@ runTxBuildRaw
   -> [(VotingProcedures era, Maybe (VoteScriptWitness era))]
   -> [(Proposal era, Maybe (ProposalScriptWitness era))]
   -> Maybe (TxCurrentTreasuryValue, TxTreasuryDonation)
-  -> Either TxCmdError (TxBody era)
+  -> Either TxCmdError (Exp.UnsignedTx era)
 runTxBuildRaw
   mScriptValidity
   inputsAndMaybeScriptWits
@@ -763,8 +765,6 @@ runTxBuildRaw
   votingProcedures
   proposals
   mCurrentTreasuryValueAndDonation = do
-    let sbe = convert Exp.useEra
-    -- pp =
     txBodyContent <-
       constructTxBodyContent
         mScriptValidity
@@ -787,8 +787,8 @@ runTxBuildRaw
         votingProcedures
         proposals
         mCurrentTreasuryValueAndDonation
-    error "TODO"
-    first TxCmdTxBodyError $ createTransactionBody sbe undefined
+
+    return $ Exp.makeUnsignedTx Exp.useEra txBodyContent
 
 constructTxBodyContent
   :: forall era