diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-05-01 08:17:59 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-05-01 08:17:59 +0100 |
| commit | b04c0beb951b2e69f76f724a4e72b98c896b468a (patch) | |
| tree | cbb3ed03b0c9c6b2bea9755d118a9e729105a7e0 /compiler/hsSyn | |
| parent | d1e84be2c2771f24ba9e31a6c35fc85edbbb7506 (diff) | |
| download | haskell-b04c0beb951b2e69f76f724a4e72b98c896b468a.tar.gz | |
Wibble to pretty printing
Diffstat (limited to 'compiler/hsSyn')
| -rw-r--r-- | 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 a64759ee52..349c001cc8 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]) |