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