From 987cb6856527112e9addf397a25bec8b6e6aa66b Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 16 Jan 2010 21:39:41 +0000 Subject: [PATCH] Teach the alternative layout rule about $( ... ) It thought the ) needed to close something, but the $( hadn't opened anything. --- compiler/parser/Lexer.x | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index b3502b8..d350f11 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -2065,14 +2065,15 @@ alternativeLayoutRuleToken t (_, _, _) -> return t isALRopen :: Token -> Bool -isALRopen ITcase = True -isALRopen ITif = True -isALRopen IToparen = True -isALRopen ITobrack = True -isALRopen ITocurly = True +isALRopen ITcase = True +isALRopen ITif = True +isALRopen IToparen = True +isALRopen ITobrack = True +isALRopen ITocurly = True -- GHC Extensions: -isALRopen IToubxparen = True -isALRopen _ = False +isALRopen IToubxparen = True +isALRopen ITparenEscape = True +isALRopen _ = False isALRclose :: Token -> Bool isALRclose ITof = True -- 1.7.10.4