projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
de865a1
)
Add unboxed parentheses to the alternative layout rule
author
Ian Lynagh
<igloo@earth.li>
Wed, 25 Nov 2009 18:24:21 +0000
(18:24 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Wed, 25 Nov 2009 18:24:21 +0000
(18:24 +0000)
compiler/parser/Lexer.x
patch
|
blob
|
history
diff --git
a/compiler/parser/Lexer.x
b/compiler/parser/Lexer.x
index
fbc4821
..
2c98f22
100644
(file)
--- 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
isALRopen IToparen = True
isALRopen ITobrack = True
isALRopen ITocurly = True
+-- GHC Extensions:
+isALRopen IToubxparen = True
isALRopen _ = False
isALRclose :: Token -> Bool
isALRopen _ = False
isALRclose :: Token -> Bool
@@
-2078,11
+2080,15
@@
isALRclose ITthen = True
isALRclose ITcparen = True
isALRclose ITcbrack = True
isALRclose ITccurly = 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
isALRclose _ = False
containsCommas :: Token -> Bool
containsCommas IToparen = True
containsCommas ITobrack = True
+-- GHC Extensions:
+containsCommas IToubxparen = True
containsCommas _ = False
topNoLayoutContainsCommas :: [ALRContext] -> Bool
containsCommas _ = False
topNoLayoutContainsCommas :: [ALRContext] -> Bool