From: simonpj@microsoft.com <unknown>
Date: Wed, 8 Sep 2010 17:00:47 +0000 (+0000)
Subject: Better debug output
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=e2ad220248f5e29bca7c42903780a687086e6b65

Better debug output
---

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