repl loopgit add .git add .!

app/Main.hs

@@ -1,6 +1,23 @@
 module Main (main) where
 
-import Lib
+import Text.Parsec
+
+import Lib (exprparser, evaluate)
+
+import System.IO
 
 main :: IO ()
-main = someFunc
+main = ioLoop
+
+useResult (Right e) = show . evaluate $ e
+useResult (Left  e) = show e
+
+ioLoop :: IO ()
+ioLoop = do done <- isEOF
+            if done
+              then putStrLn "Quit!"
+              else do inp <- getLine
+                      let expr = parse exprparser "<stdin>" inp
+                      putStrLn . useResult $ expr
+                      ioLoop
+