diff options
| author | simonpj@microsoft.com <unknown> | 2009-10-30 17:59:43 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-10-30 17:59:43 +0000 |
| commit | 6bb68af67f4782e1d02f186c1a6c01ff4e430202 (patch) | |
| tree | 429113a3e39a680fc2df17d0a77e5cfe47dc1b03 /compiler | |
| parent | 958d03f3075647dd4b361bb1917fe30ef7355945 (diff) | |
| download | haskell-6bb68af67f4782e1d02f186c1a6c01ff4e430202.tar.gz | |
Be less noisy in a debug trace (Arity decrease)
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/simplCore/Simplify.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs index 1f691eaa43..2050f4d689 100644 --- a/compiler/simplCore/Simplify.lhs +++ b/compiler/simplCore/Simplify.lhs @@ -632,7 +632,7 @@ addNonRecWithUnf env new_bndr new_rhs new_unfolding 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) $$ ppr new_rhs ) + <+> ppr new_arity <+> ppr dmd_arity) ) -- Note [Arity decrease] final_id `seq` -- This seq forces the Id, and hence its IdInfo, |