aboutsummaryrefslogtreecommitdiff
path: root/bin/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'bin/Main.hs')
-rw-r--r--bin/Main.hs4
1 files 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 $
24 24
25repl :: Env -> IO () 25repl :: Env -> IO ()
26repl env = do 26repl env = do
27 let pp = showError defaults "(lisk-repl)" 27 let pp = showError defaults
28 inp <- readline "† " 28 inp <- readline "† "
29 case inp of 29 case inp of
30 Nothing -> return () 30 Nothing -> return ()
31 Just ",q" -> return () 31 Just ",q" -> return ()
32 Just i -> do 32 Just i -> do
33 out <- evalExpr env i 33 out <- evalExpr env i
34 either (putStrLn . pp) putStrLn out 34 either (putStrLn . pp i) putStrLn out
35 repl env 35 repl env
36 36
37 37