Commit b860c96a authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Tweak ... generation

Avoid:
    let x ...
i.e. always put the = in:
    let x = ...
parent 74794eb8
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment