[Benchmark] Include 'mkTermToEvaluate' in 'benchmark-decode'

IntersectMBO · Nov 14, 2024 · a803b77 · a803b77
1 parent 1d9a758
commit a803b77
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/plutus-benchmark/validation/bench/BenchDec.hs b/plutus-benchmark/validation/bench/BenchDec.hs
@@ -39,6 +39,11 @@ main = benchWith mkDecBM
             !(benchScript :: SerialisedScript) =
                 force (serialiseUPLC $ UPLC.Program () v unsaturated)
 
+            -- The validation benchmarks were all created from PlutusV1 scripts
+            ll = PlutusV1
+            pv = ledgerLanguageIntroducedIn ll
+
             -- Deserialize using 'FakeNamedDeBruijn' to get the fake names added
-        in whnf (either throw id . void . deserialiseScript futurePV
-                ) benchScript
+        in flip whnf benchScript $ \scriptBytes ->
+            let scriptForEval = either throw id $ deserialiseScript pv scriptBytes
+            in either throw id . void $ mkTermToEvaluate ll pv scriptForEval []
diff --git a/plutus-ledger-api/src/PlutusLedgerApi/Common/Eval.hs b/plutus-ledger-api/src/PlutusLedgerApi/Common/Eval.hs
@@ -57,6 +57,8 @@ data EvaluationError =
     deriving stock (Show, Eq)
 makeClassyPrisms ''EvaluationError
 
+instance Exception EvaluationError
+
 instance AsScriptDecodeError EvaluationError where
     _ScriptDecodeError = _CodecError