[project @ 2003-09-08 13:01:16 by simonmar]

mdo needs layout treatment too.

diff --git a/ghc/compiler/parser/Lexer.x b/ghc/compiler/parser/Lexer.x
index 5b7d0a5..922860e 100644 (file)
--- a/ghc/compiler/parser/Lexer.x
+++ b/ghc/compiler/parser/Lexer.x
@@ -766,6 +766,7 @@ do_bol loc end _str _len = do
 -- certain keywords put us in the "layout" state, where we might
 -- add an opening curly brace.
 maybe_layout ITdo      = pushLexState layout_do
+maybe_layout ITmdo     = pushLexState layout_do
 maybe_layout ITof      = pushLexState layout
 maybe_layout ITlet     = pushLexState layout
 maybe_layout ITwhere   = pushLexState layout