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:
af7c22d
)
Print out a bit more info with the "arity decrease" waring
author
simonpj@microsoft.com
<unknown>
Tue, 22 Dec 2009 16:26:06 +0000
(16:26 +0000)
committer
simonpj@microsoft.com
<unknown>
Tue, 22 Dec 2009 16:26:06 +0000
(16:26 +0000)
compiler/simplCore/Simplify.lhs
patch
|
blob
|
history
diff --git
a/compiler/simplCore/Simplify.lhs
b/compiler/simplCore/Simplify.lhs
index
86eef46
..
1b4bfe4
100644
(file)
--- a/
compiler/simplCore/Simplify.lhs
+++ b/
compiler/simplCore/Simplify.lhs
@@
-651,8
+651,8
@@
addNonRecWithUnf env new_bndr new_rhs new_unfolding
in
ASSERT( isId new_bndr )
WARN( new_arity < old_arity || new_arity < dmd_arity,
in
ASSERT( isId new_bndr )
WARN( new_arity < old_arity || new_arity < dmd_arity,
- (ptext (sLit "Arity decrease:") <+> ppr final_id <+> ppr old_arity
- <+> ppr new_arity <+> ppr dmd_arity) )
+ (ptext (sLit "Arity decrease:") <+> (ppr final_id <+> ppr old_arity
+ <+> ppr new_arity <+> ppr dmd_arity) $$ ppr new_rhs) )
-- Note [Arity decrease]
final_id `seq` -- This seq forces the Id, and hence its IdInfo,
-- Note [Arity decrease]
final_id `seq` -- This seq forces the Id, and hence its IdInfo,