diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-01-16 21:55:45 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-01-16 21:55:45 +0000 |
| commit | fa306a37eaae1020f4cbd6cbed04847db6c23273 (patch) | |
| tree | b4b554bf204f01ff72b8e1ae116dd6bb29cfba6d | |
| parent | 987cb6856527112e9addf397a25bec8b6e6aa66b (diff) | |
| download | haskell-fa306a37eaae1020f4cbd6cbed04847db6c23273.tar.gz | |
Teach the alternative layout rule about mdo and rec
| -rw-r--r-- | compiler/parser/Lexer.x | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index d350f11ee4..51aa2f397f 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 |