From: simonmar <unknown>
Date: Fri, 12 Mar 2004 10:16:34 +0000 (+0000)
Subject: [project @ 2004-03-12 10:16:34 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~2
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3a5bcf0817d461b1a573edd0b90759dbb934ef73;p=ghc-hetmet.git

[project @ 2004-03-12 10:16:34 by simonmar]
clean up pretty printing slightly
---

diff --git a/ghc/compiler/hsSyn/HsBinds.lhs b/ghc/compiler/hsSyn/HsBinds.lhs
index 458a713..c473fd3 100644
--- a/ghc/compiler/hsSyn/HsBinds.lhs
+++ b/ghc/compiler/hsSyn/HsBinds.lhs
@@ -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.
        ]
      where
        ppr_isrec = getPprStyle $ \ sty ->