projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
965782f
)
Better debug output
author
simonpj@microsoft.com
<unknown>
Wed, 8 Sep 2010 17:00:47 +0000
(17:00 +0000)
committer
simonpj@microsoft.com
<unknown>
Wed, 8 Sep 2010 17:00:47 +0000
(17:00 +0000)
compiler/simplCore/SimplCore.lhs
patch
|
blob
|
history
diff --git
a/compiler/simplCore/SimplCore.lhs
b/compiler/simplCore/SimplCore.lhs
index
9eba8e1
..
dd0422b
100644
(file)
--- 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")
= 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
<+> ptext (sLit "Size =") <+> int (coreBindsSize binds) )
-- Subtract 1 from iteration_no to get the