compilation line complete (but dysfunctional) for new GF internal format

1 files changed, 1 insertions, 13 deletions

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."