From 3a5bcf0817d461b1a573edd0b90759dbb934ef73 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 12 Mar 2004 10:16:34 +0000
Subject: [PATCH] [project @ 2004-03-12 10:16:34 by simonmar] clean up pretty
 printing slightly

---
 ghc/compiler/hsSyn/HsBinds.lhs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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 -> 
-- 
1.7.10.4