From dd3db844dd49451f28d044cd1d2fd71430d73686 Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Thu, 16 Jun 2016 23:24:47 +0200
Subject: Initial

---
 main.hs | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 main.hs

(limited to 'main.hs')

diff --git a/main.hs b/main.hs
new file mode 100644
index 0000000..5beb0e4
--- /dev/null
+++ b/main.hs
@@ -0,0 +1,31 @@
+module Main where
+
+import Control.Monad
+import Data.Either
+import Data.Maybe
+import System.Console.Readline
+
+import Simplify
+import Parser
+import PrettyPrint
+
+
+repl :: IO ()
+repl = do
+    mline <- readline "> "
+    case mline of
+        Nothing -> return ()  -- EOF
+        Just "" -> repl
+        Just line -> do
+            addHistory line
+            let eexpr = parseExpression line
+            either (putStrLn . ("Error: "++)) handleExpression eexpr
+            repl
+    where
+        handleExpression expr = do
+            print expr
+            let sim = simplify expr
+            print sim
+
+main :: IO ()
+main = repl
-- 
cgit v1.2.3-54-g00ecf