diff options
| author | peb <unknown> | 2005-02-09 19:45:54 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-02-09 19:45:54 +0000 |
| commit | 9afbd25b64607e68fe6275fb6b743159001ca984 (patch) | |
| tree | c1c7f0f1bd7f83d721f4e55318160edd1f0eee1b /src/GF/Compile/GetGrammar.hs | |
| parent | c467ef8d0323d896778c6ed68ce0b23441f3a65a (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/Compile/GetGrammar.hs')
| -rw-r--r-- | src/GF/Compile/GetGrammar.hs | 7 |
1 files changed, 2 insertions, 5 deletions
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 |