diff options
| author | kr.angelov <kr.angelov@chalmers.se> | 2008-05-22 14:39:16 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@chalmers.se> | 2008-05-22 14:39:16 +0000 |
| commit | d8cabf026390f0f69a4e9b3a503f0ea5538ff362 (patch) | |
| tree | b317a33333ae524b9de127bfca8675a35c78f078 /src-3.0/GF.hs | |
| parent | ebbc0a3e806f2df19a74b3f7a1d3575476c3237b (diff) | |
move GFC and GFI
Diffstat (limited to 'src-3.0/GF.hs')
| -rw-r--r-- | src-3.0/GF.hs | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src-3.0/GF.hs b/src-3.0/GF.hs index 70fddcd67..038d034d6 100644 --- a/src-3.0/GF.hs +++ b/src-3.0/GF.hs @@ -1,14 +1,13 @@ module Main where -import GF.Devel.GFC -import GF.Devel.GFI +import GFC +import GFI -import System (getArgs) +import System.Environment (getArgs) main :: IO () main = do - xx <- getArgs - case xx of + args <- getArgs + case args of "--batch":args -> mainGFC args - _ -> mainGFI xx - + _ -> mainGFI args |