Commit 6bb68af6 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com

Be less noisy in a debug trace (Arity decrease)

parent 958d03f3
...@@ -632,7 +632,7 @@ addNonRecWithUnf env new_bndr new_rhs new_unfolding ...@@ -632,7 +632,7 @@ addNonRecWithUnf env new_bndr new_rhs new_unfolding
ASSERT( isId new_bndr ) ASSERT( isId new_bndr )
WARN( new_arity < old_arity || new_arity < dmd_arity, WARN( new_arity < old_arity || new_arity < dmd_arity,
(ptext (sLit "Arity decrease:") <+> ppr final_id <+> ppr old_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] -- Note [Arity decrease]
final_id `seq` -- This seq forces the Id, and hence its IdInfo, final_id `seq` -- This seq forces the Id, and hence its IdInfo,
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment