"Committed_by_peb"

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]