From 48ebf562b9bfcacff7c0fabeaa5892f31ddd3e1c Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 4 Oct 2007 21:38:59 +0000 Subject: new GFCC format in GF/GFCC --- src/GF/Devel/GFC.hs | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'src/GF/Devel/GFC.hs') 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 -- cgit v1.2.3