init

1 files changed, 26 insertions, 0 deletions

diff --git a/bin/Main.hs b/bin/Main.hs
new file mode 100644
index 0000000..2942566
--- /dev/null
+++ b/bin/Main.hs
@@ -0,0 +1,26 @@
+module Main where
+
+import           Evaluator                     (eval)
+import           Parser                        (Expr (..), parseLispValue)
+import           System.Console.Readline
+import           Text.ParserCombinators.Parsec
+
+readExpr :: String -> Expr
+readExpr inp =
+    case parse parseLispValue "(unknown)" inp of
+      Left err  -> StringLiteral $ show err
+      Right val -> val
+
+repl :: IO ()
+repl = do
+    inp <- readline "(lisk)> "
+    case inp of
+      Nothing -> return ()
+      Just ",q" -> return ()
+      Just line -> do
+          addHistory line
+          print . eval . readExpr $ line
+          repl
+
+main :: IO ()
+main = repl