From: simonmar <unknown>
Date: Mon, 8 Sep 2003 13:01:16 +0000 (+0000)
Subject: [project @ 2003-09-08 13:01:16 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~490
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=90656575d83b58f0d3702f9ab23dcdf795dd3ea1;p=ghc-hetmet.git

[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
--- 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