1 files changed, 14 insertions, 0 deletions
diff --git a/src/Fun.hs b/src/Fun.hs
new file mode 100644
index 0000000..fac4e23
--- /dev/null
+++ b/src/Fun.hs
@@ -0,0 +1,14 @@
+module Fun where
+
+import           Fun.Compiler
+import           System.Environment
+
+usage :: IO ()
+usage = putStrLn "Usage: fun <path>"
+
+run :: IO ()
+run = do
+  args <- getArgs
+  case args of
+    [path] -> compile path
+    _      -> usage