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