new GFCC format in GF/GFCC

src/GF/Devel/GFC.hs

@@ -3,16 +3,13 @@ module Main where
 import GF.Devel.Compile
 import GF.Devel.GrammarToGFCC
 import GF.Devel.OptimizeGFCC
-import GF.Canon.GFCC.CheckGFCC
-import GF.Canon.GFCC.PrintGFCC
-import GF.Canon.GFCC.DataGFCC
+import GF.GFCC.CheckGFCC
+import GF.GFCC.DataGFCC
 import GF.Devel.UseIO
 import GF.Infra.Option
----import GF.Devel.PrGrammar ---
 
 import System
 
-
 main = do
   xx <- getArgs
   let (opts,fs) = getOptions "-" xx
@@ -31,8 +28,7 @@ main = do
       mapM_ (batchCompile opts) (map return fs)
       putStrLn "Done."
 
-check gc0 = do
-  let gfcc = mkGFCC gc0
+check gfcc = do
   (gc,b) <- checkGFCC gfcc
   putStrLn $ if b then "OK" else "Corrupted GFCC"
   return gc