From: Ian Lynagh <igloo@earth.li>
Date: Sat, 16 Jan 2010 21:55:45 +0000 (+0000)
Subject: Teach the alternative layout rule about mdo and rec
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=fa306a37eaae1020f4cbd6cbed04847db6c23273

Teach the alternative layout rule about mdo and rec
---

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index d350f11..51aa2f3 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -1954,6 +1954,8 @@ lexTokenAlr = do mPending <- popPendingImplicitToken
                      ITlet   -> setAlrExpectingOCurly (Just ALRLayoutLet)
                      ITof    -> setAlrExpectingOCurly (Just ALRLayoutOf)
                      ITdo    -> setAlrExpectingOCurly (Just ALRLayoutDo)
+                     ITmdo   -> setAlrExpectingOCurly (Just ALRLayoutDo)
+                     ITrec   -> setAlrExpectingOCurly (Just ALRLayoutDo)
                      _       -> return ()
                  return t