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.hs | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 src/Fun.hs (limited to 'src/Fun.hs') 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 " + +run :: IO () +run = do + args <- getArgs + case args of + [path] -> compile path + _ -> usage -- cgit v1.2.3