From a2a8d11f88eff2a4df4dbe7bc50fbba5111f5960 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Mon, 12 Jun 2006 11:40:20 +0000
Subject: [PATCH] Improve pretty-printing for bags

---
 compiler/utils/Bag.lhs |    5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/compiler/utils/Bag.lhs b/compiler/utils/Bag.lhs
index b107f84..ea85a8c 100644
--- a/compiler/utils/Bag.lhs
+++ b/compiler/utils/Bag.lhs
@@ -170,8 +170,5 @@ bagToList b = foldrBag (:) [] b
 
 \begin{code}
 instance (Outputable a) => Outputable (Bag a) where
-    ppr EmptyBag	= ptext SLIT("emptyBag")
-    ppr (UnitBag a)     = ppr a
-    ppr (TwoBags b1 b2) = hsep [ppr b1 <> comma, ppr b2]
-    ppr (ListBag as)    = interpp'SP as
+    ppr bag = char '<' <> pprWithCommas ppr (bagToList bag) <> char '>'
 \end{code}
-- 
1.7.10.4