blob: fac4e235c77d2f55cff20358c0f8573d0a706cea (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
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
|
