diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-10-06 07:37:44 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-10-06 07:37:44 +0000 |
| commit | 8d0aaf0b247a8c67a562c64f1d1cb19058aeda40 (patch) | |
| tree | c71ff83162042e44cb3c085ab61c44df58994a69 /src/GF/Compile/Compile.hs | |
| parent | db606bd2d138ca2f6604a9813259a144170163e6 (diff) | |
cleaned up obsolete GFCC references
Diffstat (limited to 'src/GF/Compile/Compile.hs')
| -rw-r--r-- | src/GF/Compile/Compile.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs index d78d49b09..cf07fdb65 100644 --- a/src/GF/Compile/Compile.hs +++ b/src/GF/Compile/Compile.hs @@ -39,7 +39,7 @@ import GF.Compile.CheckGrammar import GF.Compile.Optimize import GF.Compile.Evaluate import GF.Compile.GrammarToCanon -import GF.Compile.GrammarToGFCC ----- +--import GF.Devel.GrammarToGFCC ----- import GF.Canon.Share import GF.Canon.Subexpressions (elimSubtermsMod,unSubelimModule) import GF.UseGrammar.Linear (unoptimizeCanonMod) ---- @@ -300,9 +300,10 @@ compileSourceModule opts env@(k,gr,can,eenv) mo@(i,mi) = do generateModuleCode :: Options -> InitPath -> SourceModule -> IOE GFC.CanonModule generateModuleCode opts path minfo@(name,info) = do - if oElem (iOpt "gfcc") opts - then ioeIO $ putStrLn $ prGrammar2gfcc minfo - else return () +--- DEPREC +--- if oElem (iOpt "gfcc") opts +--- then ioeIO $ putStrLn $ prGrammar2gfcc minfo +--- else return () let pname = prefixPathName path (prt name) minfo0 <- ioeErr $ redModInfo minfo |