src-3.0/GF.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

module Main where

import GFC
import GFI

import System.Environment (getArgs)

main :: IO ()
main = do
  args <- getArgs
  case args of
    "--batch":args -> mainGFC args
    _              -> mainGFI args