diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-05-05 14:41:31 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-05-05 14:41:31 +0000 |
| commit | b860c96a05d05fc6e4369030311cc361a0fc7b93 (patch) | |
| tree | d1752b14a448b52d365a6e7ed183c7d5d6d11f51 /compiler/hsSyn/HsExpr.lhs | |
| parent | 74794eb854913b670cd8c06befee2c7b88342b42 (diff) | |
| download | haskell-b860c96a05d05fc6e4369030311cc361a0fc7b93.tar.gz | |
Tweak ... generation
Avoid:
let x ...
i.e. always put the = in:
let x = ...
Diffstat (limited to 'compiler/hsSyn/HsExpr.lhs')
| -rw-r--r-- | compiler/hsSyn/HsExpr.lhs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/compiler/hsSyn/HsExpr.lhs b/compiler/hsSyn/HsExpr.lhs index 23b6b137dd..11b4df3200 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 |