From fa02225c5ae8b704408769c70bb47101042762b8 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sun, 20 Feb 2022 18:48:30 +0100
Subject: Haskell ftw

---
 src/Fun/Compiler.hs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 src/Fun/Compiler.hs

(limited to 'src/Fun/Compiler.hs')

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
-- 
cgit v1.2.3