move GFC and GFI

This commit is contained in:
kr.angelov
2008-05-22 14:39:16 +00:00
parent ebbc0a3e80
commit d8cabf0263
3 changed files with 8 additions and 9 deletions

View File

@@ -1,14 +1,13 @@
module Main where module Main where
import GF.Devel.GFC import GFC
import GF.Devel.GFI import GFI
import System (getArgs) import System.Environment (getArgs)
main :: IO () main :: IO ()
main = do main = do
xx <- getArgs args <- getArgs
case xx of case args of
"--batch":args -> mainGFC args "--batch":args -> mainGFC args
_ -> mainGFI xx _ -> mainGFI args

View File

@@ -1,4 +1,4 @@
module GF.Devel.GFC (mainGFC) where module GFC (mainGFC) where
-- module Main where -- module Main where
import GF.Compile import GF.Compile

View File

@@ -1,4 +1,4 @@
module GF.Devel.GFI (mainGFI) where module GFI (mainGFI) where
import GF.Command.Interpreter import GF.Command.Interpreter
import GF.Command.Importing import GF.Command.Importing