From b40ece3ba7ca90fc631227b42341124a11a6f249 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 18 Aug 2003 10:04:47 +0000
Subject: [haddock @ 2003-08-18 10:04:47 by simonmar] Lex the 'mdo' keyword as
 'do'.

---
 src/HsLexer.lhs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/HsLexer.lhs')

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 ),       
-- 
cgit v1.2.3