From 056bf168246e465686eac024f66ee782b4fc7cdf Mon Sep 17 00:00:00 2001
From: doyougnu <jeffrey.young@iohk.io>
Date: Fri, 23 Feb 2024 19:33:24 -0500
Subject: [PATCH] wrk: fixup repl, done done

---
 repl/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/repl/Main.hs b/repl/Main.hs
index 56299c35..319a0309 100644
--- a/repl/Main.hs
+++ b/repl/Main.hs
@@ -147,5 +147,5 @@ repl ctx startWorld = do
                         putStrLn ""
                         currentWorld <- readIORef theWorld
                         case evaluateIn (phaseEnv runtime currentWorld) expr of
-                            Left evalErr -> print evalErr
+                            Left evalErr -> print $ erroneousValue $ projectError evalErr
                             Right val    -> prettyPrintLn val