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

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