From e2ad220248f5e29bca7c42903780a687086e6b65 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Wed, 8 Sep 2010 17:00:47 +0000
Subject: [PATCH] Better debug output

---
 compiler/simplCore/SimplCore.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/simplCore/SimplCore.lhs b/compiler/simplCore/SimplCore.lhs
index 9eba8e1..dd0422b 100644
--- a/compiler/simplCore/SimplCore.lhs
+++ b/compiler/simplCore/SimplCore.lhs
@@ -490,7 +490,8 @@ simplifyPgmIO pass@(CoreDoSimplify mode max_iterations switches)
       = WARN( debugIsOn && (max_iterations > 2)
             , ptext (sLit "Simplifier baling out after") <+> int max_iterations
               <+> ptext (sLit "iterations") 
-              <+> brackets (pprWithCommas (int . simplCountN) (reverse counts_so_far))
+              <+> (brackets $ hsep $ punctuate comma $ 
+                   map (int . simplCountN) (reverse counts_so_far))
               <+> ptext (sLit "Size =") <+> int (coreBindsSize binds) )
 
 		-- Subtract 1 from iteration_no to get the
-- 
1.7.10.4