use liqwid-nix 2.0

agora-specs/Sample/Stake/UnauthorizedMintingExploit.hs

@@ -13,14 +13,14 @@ import Plutarch.Context (
   withValue,
  )
 import Plutarch.Extra.AssetClass (assetClassValue)
-import Plutarch.Extra.ScriptContext (validatorHashToTokenName)
+import Plutarch.Extra.ScriptContext (scriptHashToTokenName)
 import PlutusLedgerApi.V1.Value qualified as Value
 import Sample.Shared (
   minAda,
   stakeAssetClass,
   stakePolicy,
+  stakeScriptHash,
   stakeSymbol,
-  stakeValidatorHash,
  )
 import Test.Specification (SpecificationTree, testPolicy)
 import Test.Util (
@@ -51,7 +51,7 @@ exploit (Parameters inputSST) =
     , mint sst
     , output $
         mconcat
-          [ script stakeValidatorHash
+          [ script stakeScriptHash
           , withValue $
               normalizeValue $
                 minAda <> sst
@@ -63,7 +63,7 @@ exploit (Parameters inputSST) =
     fakeSSTValue =
       Value.singleton
         stakeSymbol
-        (validatorHashToTokenName attacker)
+        (scriptHashToTokenName attacker)
         . fromIntegral
 
     sst = assetClassValue stakeAssetClass 1