Fix validatorHash computation

IntersectMBO · Apr 30, 2024 · 1ad4cac · 1ad4cac
1 parent 13ccd1d
commit 1ad4cac
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 14 deletions.
diff --git a/plutus-script-utils/src/Plutus/Script/Utils/V2/Scripts.hs b/plutus-script-utils/src/Plutus/Script/Utils/V2/Scripts.hs
@@ -29,9 +29,6 @@ module Plutus.Script.Utils.V2.Scripts (
 
 import Cardano.Api qualified as Script
 import Cardano.Api.Shelley qualified as Script
-import Codec.Serialise (serialise)
-import Data.ByteString.Lazy qualified as BSL
-import Data.ByteString.Short qualified as SBS
 import Plutus.Script.Utils.Scripts qualified as P
 import Plutus.Script.Utils.Scripts qualified as PV2
 import PlutusLedgerApi.V2 qualified as PV2
@@ -88,9 +85,7 @@ toCardanoApiScript :: PV2.Script -> Script.Script Script.PlutusScriptV2
 toCardanoApiScript =
   Script.PlutusScript Script.PlutusScriptV2
     . Script.PlutusScriptSerialised
-    . SBS.toShort
-    . BSL.toStrict
-    . serialise
+    . PV2.unScript
 
 {-# INLINEABLE scriptCurrencySymbol #-}
 

diff --git a/plutus-script-utils/src/Plutus/Script/Utils/V3/Scripts.hs b/plutus-script-utils/src/Plutus/Script/Utils/V3/Scripts.hs
@@ -29,9 +29,6 @@ module Plutus.Script.Utils.V3.Scripts (
 
 import Cardano.Api qualified as Script
 import Cardano.Api.Shelley qualified as Script
-import Codec.Serialise (serialise)
-import Data.ByteString.Lazy qualified as BSL
-import Data.ByteString.Short qualified as SBS
 import Plutus.Script.Utils.Scripts qualified as P
 import Plutus.Script.Utils.Scripts qualified as PV3
 import PlutusLedgerApi.V3 qualified as PV3
@@ -84,13 +81,11 @@ scriptHash =
 For why we depend on `cardano-api`,
 see note [Hash computation of datums, redeemers and scripts]
 -}
-toCardanoApiScript :: PV3.Script -> Script.Script Script.PlutusScriptV2
+toCardanoApiScript :: PV3.Script -> Script.Script Script.PlutusScriptV3
 toCardanoApiScript =
-  Script.PlutusScript Script.PlutusScriptV2
+  Script.PlutusScript Script.PlutusScriptV3
     . Script.PlutusScriptSerialised
-    . SBS.toShort
-    . BSL.toStrict
-    . serialise
+    . PV3.unScript
 
 {-# INLINEABLE scriptCurrencySymbol #-}