Commit 3a5bcf08 authored by simonmar's avatar simonmar
Browse files

[project @ 2004-03-12 10:16:34 by simonmar]

clean up pretty printing slightly
parent 9ec3012e
......@@ -50,7 +50,10 @@ instance OutputableBndr id => Outputable (HsBindGroup id) where
ppr (HsBindGroup binds sigs is_rec)
= vcat [ppr_isrec,
vcat (map ppr sigs),
pprLHsBinds binds
vcat (map ppr (bagToList binds))
-- *not* pprLHsBinds because we don't want braces; 'let' and
-- 'where' include a list of HsBindGroups and we don't want
-- several groups of bindings each with braces around.
ppr_isrec = getPprStyle $ \ sty ->
Supports Markdown
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