From 55065d6f67cf4b2f0bfaae19b38157a4ca934a62 Mon Sep 17 00:00:00 2001
From: Akshay <nerdy@peppe.rs>
Date: Fri, 16 Oct 2020 18:56:13 +0530
Subject: fix: pretty print errors

---
 bin/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/Main.hs b/bin/Main.hs
index 56ad0cd..c66d328 100644
--- a/bin/Main.hs
+++ b/bin/Main.hs
@@ -24,14 +24,14 @@ evalExpr env inp = runExceptT $ fmap show $
 
 repl :: Env -> IO ()
 repl env = do
-    let pp = showError defaults "(lisk-repl)"
+    let pp = showError defaults
     inp <- readline "† "
     case inp of
       Nothing -> return ()
       Just ",q" -> return ()
       Just i -> do
           out <- evalExpr env i
-          either (putStrLn . pp) putStrLn out
+          either (putStrLn . pp i) putStrLn out
           repl env
 
 
-- 
cgit v1.2.3