[commit: ghc] master: Wibble to pretty printing (b04c0be)

[Simon Peyton Jones]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/b04c0beb951b2e69f76f724a4e72b98c896b468a

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

commit b04c0beb951b2e69f76f724a4e72b98c896b468a
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue May 1 08:17:59 2012 +0100

    Wibble to pretty printing

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

 compiler/hsSyn/HsExpr.lhs |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)

diff --git a/compiler/hsSyn/HsExpr.lhs b/compiler/hsSyn/HsExpr.lhs
index a64759e..349c001 100644
--- a/compiler/hsSyn/HsExpr.lhs
+++ b/compiler/hsSyn/HsExpr.lhs
@@ -1099,9 +1099,7 @@ pprStmt (LastStmt expr _)         = ifPprDebug (ptext (sLit "[last]")) <+> ppr e
 pprStmt (BindStmt pat expr _ _)   = hsep [ppr pat, ptext (sLit "<-"), ppr expr]
 pprStmt (LetStmt binds)           = hsep [ptext (sLit "let"), pprBinds binds]
 pprStmt (ExprStmt expr _ _ _)     = ppr expr
-pprStmt (ParStmt stmtss _ _)      = sep (map doStmts stmtss)
-  where 
-    doStmts stmts = ptext (sLit "|") <+> ppr stmts
+pprStmt (ParStmt stmtss _ _)      = sep (punctuate (ptext (sLit " | ")) (map ppr stmtss))
 
 pprStmt (TransStmt { trS_stmts = stmts, trS_by = by, trS_using = using, trS_form = form })
   = sep $ punctuate comma (map ppr stmts ++ [pprTransStmt by using form])