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 <[email protected]> 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]) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
