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

Teach the alternative layout rule about $( ... )
It thought the ) needed to close something, but the $( hadn't
opened anything.
---

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