Initial import

1 files changed, 20 insertions, 0 deletions

diff --git a/src/Main.hs b/src/Main.hs
new file mode 100644
index 0000000..e428ba5
--- /dev/null
+++ b/src/Main.hs
@@ -0,0 +1,20 @@
+module Main where
+
+import Compiler
+import Control.Monad.State (evalState)
+import qualified Data.Map as Map
+import Lexer (scan)
+import Parser (parse, parseFromFile)
+import System.Exit (exitFailure)
+import System.IO (hPutStrLn, stderr, stdout)
+
+main :: IO ()
+main = do
+  res <- parseFromFile (scan parse) "input"
+  case res of
+    Left err -> hPutStrLn stderr ("error: " ++ show err) >> exitFailure
+    Right ast -> do
+      res <- return $ evalState (compile ast) startState
+      case res of
+        Right _ -> print ast
+        Left errs -> hPutStrLn stderr $ showErrorList errs