diff options
Diffstat (limited to 'src/GF/Compile/PrOld.hs')
| -rw-r--r-- | src/GF/Compile/PrOld.hs | 10 |
1 files changed, 4 insertions, 6 deletions
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] |