blob: 7f69eda83b167ea92484f584536a838662d8b995 (
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
[] -> usage
paths -> compile paths
|
