From 18603f72fc20954b785a2bca81bed6c5571481f6 Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Tue, 22 Dec 2009 16:26:06 +0000 Subject: [PATCH] Print out a bit more info with the "arity decrease" waring --- compiler/simplCore/Simplify.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs index 86eef46..1b4bfe4 100644 --- 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, - (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, -- 1.7.10.4