Merge pull request #4696 from input-output-hk/jordan/append-change-tx…

…out-build Append tx output in cli transaction build command
IntersectMBO · Dec 7, 2022 · 63e5a49 · 63e5a49
2 parents 6e6c0fa + eb7c44b
commit 63e5a49
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/cardano-api/src/Cardano/Api/Fees.hs b/cardano-api/src/Cardano/Api/Fees.hs
@@ -947,9 +947,8 @@ makeTransactionBodyAutoBalance eraInMode systemstart history pparams
     -- 4. balance the transaction and update tx change output
     txbody0 <-
       first TxBodyError $ createAndValidateTransactionBody txbodycontent
-        { txOuts =
-              TxOut changeaddr (lovelaceToTxOutValue 0) TxOutDatumNone ReferenceScriptNone
-            : txOuts txbodycontent
+        { txOuts = txOuts txbodycontent ++ 
+                   [TxOut changeaddr (lovelaceToTxOutValue 0) TxOutDatumNone ReferenceScriptNone]
             --TODO: think about the size of the change output
             -- 1,2,4 or 8 bytes?
         }