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 (file)
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -2065,14 +2065,15 @@ alternativeLayoutRuleToken t
              (_, _, _) -> return t
 
 isALRopen :: Token -> Bool
              (_, _, _) -> 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:
 -- GHC Extensions:

-isALRopen IToubxparen = True
-isALRopen _        = False
+isALRopen IToubxparen   = True
+isALRopen ITparenEscape = True
+isALRopen _             = False

 
 isALRclose :: Token -> Bool
 isALRclose ITof     = True
 
 isALRclose :: Token -> Bool
 isALRclose ITof     = True