1 files changed, 1 insertions, 2 deletions
diff --git a/bin/Main.hs b/bin/Main.hs
index 7bb6d84..a088fdb 100644
--- a/bin/Main.hs
+++ b/bin/Main.hs
@@ -26,8 +26,7 @@ repl = do
      Just ",q" -> return ()
      Just line -> do
          addHistory line
-          -- TODO: don't directly print Either values
+          putStrLn $ either show show $ eval =<< readExpr line
-          print $ eval =<< readExpr line
          repl
 main :: IO ()

diff --git a/bin/Main.hs b/bin/Main.hs index 7bb6d84..a088fdb 100644 --- a/bin/Main.hs +++ b/bin/Main.hs
@@ -26,8 +26,7 @@ repl = do
26	Just ",q" -> return ()	26	Just ",q" -> return ()
27	Just line -> do	27	Just line -> do
28	addHistory line	28	addHistory line
29	-- TODO: don't directly print Either values	29	putStrLn $ either show show $ eval =<< readExpr line
30	print $ eval =<< readExpr line
31	repl	30	repl
32		31
33	main :: IO ()	32	main :: IO ()