From 90656575d83b58f0d3702f9ab23dcdf795dd3ea1 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 8 Sep 2003 13:01:16 +0000
Subject: [PATCH] [project @ 2003-09-08 13:01:16 by simonmar] mdo needs layout
 treatment too.

---
 ghc/compiler/parser/Lexer.x |    1 +
 1 file changed, 1 insertion(+)

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