From 217f73c28f10db5ff3be14df5b04f376a024a154 Mon Sep 17 00:00:00 2001 From: Peter Dragos Date: Sat, 14 Jan 2023 17:54:42 -0500 Subject: [PATCH] use evalScriptHuge in plutarch unit --- plutarch-unit/src/Plutarch/Test/Script.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/plutarch-unit/src/Plutarch/Test/Script.hs b/plutarch-unit/src/Plutarch/Test/Script.hs index c2bf073..6e5f137 100644 --- a/plutarch-unit/src/Plutarch/Test/Script.hs +++ b/plutarch-unit/src/Plutarch/Test/Script.hs @@ -38,7 +38,7 @@ import Test.Tasty.Providers ( -------------------------------------------------------------------------------- -import Plutarch.Evaluate (evalScript) +import Plutarch.Evaluate (evalScriptHuge) import Plutarch.Script (Script) import Test.Tasty (testGroup) @@ -149,8 +149,8 @@ runScript script debug onSuccess = case scriptResult of (Right _, _, _) -> (ScriptSuccess, onSuccess) (Left err, _, _) -> (ScriptFailure, showError dTrace (show err)) where - scriptResult = evalScript script - (_, _, dTrace) = evalScript debug + scriptResult = evalScriptHuge script + (_, _, dTrace) = evalScriptHuge debug showError :: [Text] -> String -> String showError traces err =