Use fsep, not sep, when printing lots of Core binders
authorSimon Peyton Jones <simonpj@microsoft.com>
Thu, 24 Jan 2013 14:51:12 +0000 (14:51 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Thu, 24 Jan 2013 14:51:12 +0000 (14:51 +0000)
compiler/coreSyn/PprCore.lhs

index 4877ec7..46407d0 100644 (file)
@@ -242,7 +242,7 @@ ppr_case_pat (DataAlt dc) args
     tc = dataConTyCon dc
 
 ppr_case_pat con args
-  = ppr con <+> sep (map ppr_bndr args)
+  = ppr con <+> (fsep (map ppr_bndr args))
   where
     ppr_bndr = pprBndr CaseBind