From 9afbd25b64607e68fe6275fb6b743159001ca984 Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Wed, 9 Feb 2005 19:45:54 +0000
Subject: "Committed_by_peb"

---
 src/GF/Compile/GetGrammar.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'src/GF/Compile/GetGrammar.hs')

diff --git a/src/GF/Compile/GetGrammar.hs b/src/GF/Compile/GetGrammar.hs
index ac340ccd1..415cea55e 100644
--- a/src/GF/Compile/GetGrammar.hs
+++ b/src/GF/Compile/GetGrammar.hs
@@ -9,7 +9,7 @@
 -- > CVS $Author $
 -- > CVS $Revision $
 --
--- (Description of the module)
+-- this module builds the internal GF grammar that is sent to the type checker
 -----------------------------------------------------------------------------
 
 module GetGrammar where
@@ -40,8 +40,6 @@ import Char (toUpper)
 import List (nub)
 import Monad (foldM)
 
--- this module builds the internal GF grammar that is sent to the type checker
-
 getSourceModule :: FilePath -> IOE SourceModule
 getSourceModule file = do
   string    <- readFileIOE file
@@ -90,10 +88,9 @@ err2err (E.Bad s) = Bad s
 
 ioeEErr = ioeErr . err2err
 
--- To resolve the new reserved words: 
+-- | To resolve the new reserved words: 
 -- change them by turning the final letter to upper case.
 --- There is a risk of clash. 
-
 oldLexer :: String -> [L.Token]
 oldLexer = map change . L.tokens where
   change t = case t of
-- 
cgit v1.2.3