aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsimonmar <unknown>2003-08-18 10:04:47 +0000
committersimonmar <unknown>2003-08-18 10:04:47 +0000
commitb40ece3ba7ca90fc631227b42341124a11a6f249 (patch)
treea6c953b6d8fcf9fc52e04077b63401bf3ffd1f77
parentd3de1e38bde70d350e5f18162f5081e85bce0c95 (diff)
[haddock @ 2003-08-18 10:04:47 by simonmar]
Lex the 'mdo' keyword as 'do'.
-rw-r--r--src/HsLexer.lhs3
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 ),