Haskell ftw

1 files changed, 17 insertions, 0 deletions

diff --git a/src/Fun/Compiler.hs b/src/Fun/Compiler.hs
new file mode 100644
index 0000000..f7e5c85
--- /dev/null
+++ b/src/Fun/Compiler.hs
@@ -0,0 +1,17 @@
+module Fun.Compiler where
+
+import           Control.Exception
+import           Fun.Parser
+import           Fun.Tree
+
+parse :: String -> Block -- TODO: Should be tree
+parse file = case block file of
+  Nothing     -> error "Invalid program"
+  Just (a, b) -> a
+
+compile :: String -> IO ()
+compile path = do
+  file <- try $ readFile path
+  case file of
+    Left  exception -> print (exception :: IOError)
+    Right file      -> putStrLn . show $ parse file