[commit: ghc] master: Use fsep, not sep, when printing lots of Core binders (0f8c6fc)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/0f8c6fc53ba8b4d395d89bcf9124a042bdaaa1e2

>---------------------------------------------------------------

commit 0f8c6fc53ba8b4d395d89bcf9124a042bdaaa1e2
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Jan 24 14:51:12 2013 +0000

    Use fsep, not sep, when printing lots of Core binders

>---------------------------------------------------------------

 compiler/coreSyn/PprCore.lhs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/compiler/coreSyn/PprCore.lhs b/compiler/coreSyn/PprCore.lhs
index 4877ec7..46407d0 100644
--- a/compiler/coreSyn/PprCore.lhs
+++ b/compiler/coreSyn/PprCore.lhs
@@ -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