[Evaluation] Make 'EvaluationResult' strict

IntersectMBO · Mar 30, 2022 · af17879 · af17879
1 parent e59ade1
commit af17879
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/plutus-core/plutus-core/src/PlutusCore/Evaluation/Result.hs b/plutus-core/plutus-core/src/PlutusCore/Evaluation/Result.hs
@@ -53,7 +53,7 @@ _EvaluationFailureVia failure = prism (const failure) $ \a -> when (a /= failure
 -- On the PLC side this becomes (via @makeKnown@) either a call to 'Error' or
 -- a value of the PLC counterpart of type @a@.
 data EvaluationResult a
-    = EvaluationSuccess a
+    = EvaluationSuccess !a
     | EvaluationFailure
     deriving stock (Show, Eq, Generic, Functor, Foldable, Traversable)
     deriving anyclass (NFData)