Tweak the alternative layout rule: {} contains commas

[ghc-hetmet.git] / compiler / parser / Lexer.x

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index 7594079..c6457a4 100644 (file)
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -2100,6 +2100,10 @@ isNonDecreasingIntentation _           = False
 containsCommas :: Token -> Bool
 containsCommas IToparen = True
 containsCommas ITobrack = True
 containsCommas :: Token -> Bool
 containsCommas IToparen = True
 containsCommas ITobrack = True

+-- John doesn't have {} as containing commas, but records contain them,
+-- which caused a problem parsing Cabal's Distribution.Simple.InstallDirs
+-- (defaultInstallDirs).
+containsCommas ITocurly = True

 -- GHC Extensions:
 containsCommas IToubxparen = True
 containsCommas _        = False
 -- GHC Extensions:
 containsCommas IToubxparen = True
 containsCommas _        = False