src/GF/Devel/GF.hs


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

module Main where

import GF.Devel.GFC
import GF.Devel.GFI

import System (getArgs)

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