From 17962eef1a5620e0762157d71fac20d9bb6547f7 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 3 Oct 2007 16:04:30 +0000 Subject: added optimization to GrammarToGFCC --- src/GF/Devel/GFC.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/GF/Devel/GFC.hs') diff --git a/src/GF/Devel/GFC.hs b/src/GF/Devel/GFC.hs index 0e3c75501..8b694c3dc 100644 --- a/src/GF/Devel/GFC.hs +++ b/src/GF/Devel/GFC.hs @@ -2,6 +2,7 @@ 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 @@ -21,7 +22,8 @@ main = do gr <- batchCompile opts fs let name = justModuleName (last fs) let (abs,gc0) = mkCanon2gfcc opts name gr - gc <- check gc0 + gc1 <- check gc0 + let gc = if oElem (iOpt "noopt") opts then gc1 else optGFCC gc1 let target = abs ++ ".gfcc" writeFile target (printGFCC gc) putStrLn $ "wrote file " ++ target -- cgit v1.2.3