X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FLexer.x;h=c6457a4e5f604d9ca108b693e84edb507371b8b2;hp=7594079ff1d0f422fdb85e0a5f5012f54a7d93e9;hb=fc5cd848af22c97dfde1953b9efcfc60e6ccf2bb;hpb=8cb87328256a7143c6d6d2c70d7c0ed6a8d50eb6;ds=sidebyside

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index 7594079..c6457a4 100644
--- 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
+-- 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