aboutsummaryrefslogtreecommitdiff
path: root/src/Fun.hs
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