X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FsimplCore%2FSimplify.lhs;h=1b4bfe4953765ffb4eb857417cd7ceff7e887e9e;hb=18603f72fc20954b785a2bca81bed6c5571481f6;hp=86eef46b5b96e59e593d9ddf65aed068d1a6eedc;hpb=af7c22d99d3067c4769fc6f2ef21aecbb1268f50;p=ghc-hetmet.git

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,