From fa306a37eaae1020f4cbd6cbed04847db6c23273 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 16 Jan 2010 21:55:45 +0000 Subject: [PATCH] Teach the alternative layout rule about mdo and rec --- compiler/parser/Lexer.x | 2 ++ 1 file changed, 2 insertions(+) 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 -- 1.7.10.4