diff options
| author | simonmar <unknown> | 2003-08-18 10:04:47 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-08-18 10:04:47 +0000 |
| commit | b40ece3ba7ca90fc631227b42341124a11a6f249 (patch) | |
| tree | a6c953b6d8fcf9fc52e04077b63401bf3ffd1f77 /src/HsLexer.lhs | |
| parent | d3de1e38bde70d350e5f18162f5081e85bce0c95 (diff) | |
[haddock @ 2003-08-18 10:04:47 by simonmar]
Lex the 'mdo' keyword as 'do'.
Diffstat (limited to 'src/HsLexer.lhs')
| -rw-r--r-- | src/HsLexer.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/HsLexer.lhs b/src/HsLexer.lhs index e2a9ce90..ddb6afc1 100644 --- a/src/HsLexer.lhs +++ b/src/HsLexer.lhs @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- --- $Id: HsLexer.lhs,v 1.12 2002/07/24 09:42:18 simonmar Exp $ +-- $Id: HsLexer.lhs,v 1.13 2003/08/18 10:04:47 simonmar Exp $ -- -- (c) The GHC Team, 1997-2000 -- @@ -165,6 +165,7 @@ reserved_ids = [ ( "infixr", KW_InfixR ), ( "instance", KW_Instance ), ( "let", KW_Let ), + ( "mdo", KW_Do ), -- pretend mdo is do, for now. ( "module", KW_Module ), ( "newtype", KW_NewType ), ( "of", KW_Of ), |