Implement mki, the main interpreter

monkey-hs.cabal

@@ -39,6 +39,7 @@ executable mki
   main-is:             Main.hs
   build-depends:       base >=4.9 && <4.10
                      , protolude
+                     , monkey-hs
   hs-source-dirs:      src
   default-language:    Haskell2010
   default-extensions:  OverloadedStrings

src/Main.hs

@@ -1,6 +1,29 @@
 module Main where
 
-import Protolude
+import Protolude hiding (evaluate)
+
+import           Common.ParserT (ParserError)
+import           Evaluator (eval)
+import           Lexer (lex)
+import           Parser (parse)
+import           System.Environment (getArgs)
 
 main :: IO ()
-main = putStrLn ("Hello, Haskell!" :: Text)
+main = getArgs >>= traverse_ evalFile
+
+evalFile :: FilePath -> IO ()
+evalFile file = readFile file >>= evaluate
+
+printError :: Exception e => e -> IO ()
+printError e = putStrLn (show e :: Text)
+
+evaluate :: Text -> IO ()
+evaluate input = do
+  let parsed = lex input >>= parse
+  case parsed of
+    Left err -> printError err
+    Right ast -> do
+      evaluated <- eval ast
+      case evaluated of
+        Left err -> printError err
+        _ -> return ()