From 259cb7dd6b4e9bc7ac6ec4a8ae15947d7fb9b10e Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 25 Nov 2009 18:24:21 +0000 Subject: [PATCH] Add unboxed parentheses to the alternative layout rule --- compiler/parser/Lexer.x | 6 ++++++ 1 file changed, 6 insertions(+) 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 -- 1.7.10.4