new GFCC format in GF/GFCC

1 files changed, 3 insertions, 7 deletions

diff --git a/src/GF/Devel/GFC.hs b/src/GF/Devel/GFC.hs
index 8b694c3dc..eb3046b18 100644
--- a/src/GF/Devel/GFC.hs
+++ b/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