Merge pull request #623 from IntersectMBO/jordan/add-script-datums-an…

…d-redeemers-in-makeUnsignedTx Include datums and redeemers in makeUnsignedTx
IntersectMBO · Aug 29, 2024 · 3e93876 · 3e93876
2 parents 966462b + 3568b89
commit 3e93876
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 $