From b860c96a05d05fc6e4369030311cc361a0fc7b93 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 5 May 2007 14:41:31 +0000 Subject: [PATCH] Tweak ... generation Avoid: let x ... i.e. always put the = in: let x = ... --- compiler/hsSyn/HsExpr.lhs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/compiler/hsSyn/HsExpr.lhs b/compiler/hsSyn/HsExpr.lhs index 23b6b13..11b4df3 100644 --- a/compiler/hsSyn/HsExpr.lhs +++ b/compiler/hsSyn/HsExpr.lhs @@ -694,11 +694,9 @@ pprMatch ctxt (Match pats maybe_ty grhss) pprGRHSs :: OutputableBndr id => HsMatchContext id -> GRHSs id -> SDoc pprGRHSs ctxt (GRHSs grhss binds) - = pprDeeper - (vcat (map (pprGRHS ctxt . unLoc) grhss) - $$ - if isEmptyLocalBinds binds then empty - else text "where" $$ nest 4 (pprBinds binds)) + = vcat (map (pprGRHS ctxt . unLoc) grhss) + $$ if isEmptyLocalBinds binds then empty + else text "where" $$ nest 4 (pprBinds binds) pprGRHS :: OutputableBndr id => HsMatchContext id -> GRHS id -> SDoc -- 1.7.10.4