From 107f887147890d679b945ef52e4cb80365e31ed5 Mon Sep 17 00:00:00 2001
From: VegOwOtenks <vegowotenks@jossco.de>
Date: Sun, 15 Sep 2024 16:47:34 +0200
Subject: [PATCH] repl loopgit add .git add .!

---
 app/Main.hs | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 4c6b30f..9e821d7 100644
--- a/app/Main.hs
+++ b/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
+