diff options
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/Compile.hs | 4 | ||||
| -rw-r--r-- | src/GF/Compile/PrOld.hs | 10 |
2 files changed, 6 insertions, 8 deletions
diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs index c1e006168..4c530a76c 100644 --- a/src/GF/Compile/Compile.hs +++ b/src/GF/Compile/Compile.hs @@ -5,11 +5,11 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date $ +-- > CVS $Date $ -- > CVS $Author $ -- > CVS $Revision $ -- --- The top-level compilation chain from source file to gfc/gfr. +-- The top-level compilation chain from source file to gfc\/gfr. ----------------------------------------------------------------------------- module Compile where diff --git a/src/GF/Compile/PrOld.hs b/src/GF/Compile/PrOld.hs index a6696e9a4..cba3eb536 100644 --- a/src/GF/Compile/PrOld.hs +++ b/src/GF/Compile/PrOld.hs @@ -9,7 +9,10 @@ -- > CVS $Author $ -- > CVS $Revision $ -- --- (Description of the module) +-- a hack to print gf2 into gf1 readable files +-- Works only for canonical grammars, printed into GFC. Otherwise we would have +-- problems with qualified names. +-- --- printnames are not preserved, nor are lindefs ----------------------------------------------------------------------------- module PrOld where @@ -28,11 +31,6 @@ import List import Operations import UseIO --- a hack to print gf2 into gf1 readable files --- Works only for canonical grammars, printed into GFC. Otherwise we would have --- problems with qualified names. ---- printnames are not preserved, nor are lindefs - printGrammarOld :: GFC.CanonGrammar -> String printGrammarOld gr = err id id $ do as0 <- mapM canon2sourceModule [im | im@(_,ModMod m) <- modules gr, isModAbs m] |