diff --git a/cardano-api/internal/Cardano/Api/Script.hs b/cardano-api/internal/Cardano/Api/Script.hs
index a8e21f2927..3caf7e18c2 100644
--- a/cardano-api/internal/Cardano/Api/Script.hs
+++ b/cardano-api/internal/Cardano/Api/Script.hs
@@ -766,7 +766,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
index 11adcdfa29..e5146e0105 100644
--- a/cardano-api/internal/Cardano/Api/Tx/Body.hs
+++ b/cardano-api/internal/Cardano/Api/Tx/Body.hs
@@ -2321,7 +2321,7 @@ convScriptData sbe txOuts scriptWitnesses =
                               _
                               _
                               _
-                              (ScriptDatumForTxIn d)
+                              (ScriptDatumForTxIn (Just d))
                               _
                               _
                             )
@@ -2618,7 +2618,7 @@ makeShelleyTransactionBody
                       _
                       _
                       _
-                      (ScriptDatumForTxIn d)
+                      (ScriptDatumForTxIn (Just d))
                       _
                       _
                     )
@@ -2744,7 +2744,7 @@ makeShelleyTransactionBody
                       _
                       _
                       _
-                      (ScriptDatumForTxIn d)
+                      (ScriptDatumForTxIn (Just d))
                       _
                       _
                     )
@@ -2882,7 +2882,7 @@ makeShelleyTransactionBody
                       _
                       _
                       _
-                      (ScriptDatumForTxIn d)
+                      (ScriptDatumForTxIn (Just d))
                       _
                       _
                     )