From: Ian Lynagh <igloo@earth.li>
Date: Wed, 25 Nov 2009 18:24:21 +0000 (+0000)
Subject: Add unboxed parentheses to the alternative layout rule
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=259cb7dd6b4e9bc7ac6ec4a8ae15947d7fb9b10e

Add unboxed parentheses to the alternative layout rule
---

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index fbc4821..2c98f22 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -2070,6 +2070,8 @@ isALRopen ITif     = True
 isALRopen IToparen = True
 isALRopen ITobrack = True
 isALRopen ITocurly = True
+-- GHC Extensions:
+isALRopen IToubxparen = True
 isALRopen _        = False
 
 isALRclose :: Token -> Bool
@@ -2078,11 +2080,15 @@ isALRclose ITthen   = True
 isALRclose ITcparen = True
 isALRclose ITcbrack = True
 isALRclose ITccurly = True
+-- GHC Extensions:
+isALRclose ITcubxparen = True
 isALRclose _        = False
 
 containsCommas :: Token -> Bool
 containsCommas IToparen = True
 containsCommas ITobrack = True
+-- GHC Extensions:
+containsCommas IToubxparen = True
 containsCommas _        = False
 
 topNoLayoutContainsCommas :: [ALRContext] -> Bool