From f4d3b1a9fa358208a6e975c6bc17ab2522c41b46 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 8 Dec 2007 15:15:18 +0000 Subject: compilation line complete (but dysfunctional) for new GF internal format --- src/GF/Devel/TestGF3.hs | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) (limited to 'src/GF/Devel/TestGF3.hs') diff --git a/src/GF/Devel/TestGF3.hs b/src/GF/Devel/TestGF3.hs index 5d869de14..da4b5c8f6 100644 --- a/src/GF/Devel/TestGF3.hs +++ b/src/GF/Devel/TestGF3.hs @@ -1,21 +1,9 @@ module Main where -import GF.Devel.Compile.Compile - -import GF.Data.Operations -import GF.Infra.Option ---- +import GF.Devel.Compile.GFC import System (getArgs) main = do xx <- getArgs mainGFC xx - - -mainGFC :: [String] -> IO () -mainGFC xx = do - let (opts,fs) = getOptions "-" xx - case opts of - _ -> do - mapM_ (batchCompile opts) (map return fs) - putStrLn "Done." -- cgit v1.2.3