Include datums and redeemers in makeUnsignedTx

IntersectMBO · Aug 28, 2024 · 3568b89 · 3568b89
1 parent 966462b
commit 3568b89
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/cardano-api/internal/Cardano/Api/Experimental/Tx.hs b/cardano-api/internal/Cardano/Api/Experimental/Tx.hs
@@ -89,7 +89,9 @@ makeUnsignedTx era bc = obtainCommonConstraints era $ do
       scripts = convScripts apiScriptWitnesses
       languages = convLanguages apiScriptWitnesses
       sData = convScriptData sbe apiTxOuts apiScriptWitnesses
-
+      (datums, redeemers) = case sData of
+        TxBodyScriptData _ ds rs -> (ds, rs)
+        TxBodyNoScriptData -> (mempty, L.Redeemers mempty)
   let setMint = convMintValue apiMintValue
       setReqSignerHashes = convExtraKeyWitnesses apiExtraKeyWitnesses
       ledgerTxBody =
@@ -117,6 +119,9 @@ makeUnsignedTx era bc = obtainCommonConstraints era $ do
               [ (L.hashScript sw, sw)
               | sw <- scripts
               ]
+          & L.datsTxWitsL .~ datums
+          & L.rdmrsTxWitsL .~ redeemers
+
   eraSpecificTxBody <- eraSpecificLedgerTxBody era ledgerTxBody bc
 
   return . UnsignedTx $