X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FBag.lhs;h=b7e92a332c5221eb9d84a2e9c1d09eeaca49442c;hp=e53d23dc0cfd8083c4e2de73279592728e9e41aa;hb=9aad47f1162666431deee99884c523b1ff69cf98;hpb=c43c981705ec33da92a9ce91eb90f2ecf00be9fe

diff --git a/compiler/utils/Bag.lhs b/compiler/utils/Bag.lhs
index e53d23d..b7e92a3 100644
--- a/compiler/utils/Bag.lhs
+++ b/compiler/utils/Bag.lhs
@@ -178,5 +178,5 @@ bagToList b = foldrBag (:) [] b
 
 \begin{code}
 instance (Outputable a) => Outputable (Bag a) where
-    ppr bag = char '<' <> pprWithCommas ppr (bagToList bag) <> char '>'
+    ppr bag = braces (pprWithCommas ppr (bagToList bag))
 \end{code}