X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FsimplCore%2FSimplCore.lhs;fp=compiler%2FsimplCore%2FSimplCore.lhs;h=dd0422b5138383d896ffec63c9ad6418b3e8c03e;hp=9eba8e15b1401d12b6b467a0c751e1c0107993f5;hb=e2ad220248f5e29bca7c42903780a687086e6b65;hpb=965782fa4a10ece58252c57a477bc851f06ef9d3

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