Modify ScriptDatum in accordance with CIP-0069

I.E the datum is no longer required in spending scripts
IntersectMBO · Jul 11, 2024 · 37b6157 · 37b6157
1 parent 6dd96c6
commit 37b6157
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Script.hs b/cardano-api/internal/Cardano/Api/Script.hs
@@ -763,7 +763,7 @@ instance Eq (ScriptWitness witctx era) where
 type ScriptRedeemer = HashableScriptData
 
 data ScriptDatum witctx where
-  ScriptDatumForTxIn :: HashableScriptData -> ScriptDatum WitCtxTxIn
+  ScriptDatumForTxIn :: Maybe HashableScriptData -> ScriptDatum WitCtxTxIn
   InlineScriptDatum :: ScriptDatum WitCtxTxIn
   NoScriptDatumForMint :: ScriptDatum WitCtxMint
   NoScriptDatumForStake :: ScriptDatum WitCtxStake

diff --git a/cardano-api/internal/Cardano/Api/Tx/Body.hs b/cardano-api/internal/Cardano/Api/Tx/Body.hs
@@ -2301,7 +2301,7 @@ convScriptData sbe txOuts scriptWitnesses =
                               _
                               _
                               _
-                              (ScriptDatumForTxIn d)
+                              (ScriptDatumForTxIn (Just d))
                               _
                               _
                             )
@@ -2598,7 +2598,7 @@ makeShelleyTransactionBody
                       _
                       _
                       _
-                      (ScriptDatumForTxIn d)
+                      (ScriptDatumForTxIn (Just d))
                       _
                       _
                     )
@@ -2724,7 +2724,7 @@ makeShelleyTransactionBody
                       _
                       _
                       _
-                      (ScriptDatumForTxIn d)
+                      (ScriptDatumForTxIn (Just d))
                       _
                       _
                     )
@@ -2862,7 +2862,7 @@ makeShelleyTransactionBody
                       _
                       _
                       _
-                      (ScriptDatumForTxIn d)
+                      (ScriptDatumForTxIn (Just d))
                       _
                       _
                     )