From e45d0387b4fdfe83ce9228631938882ef96f7288 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Mon, 2 Nov 2009 17:20:59 +0000
Subject: [PATCH] Make the arity warning a bit more informative (DEBUG only)

---
 compiler/coreSyn/CoreArity.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/coreSyn/CoreArity.lhs b/compiler/coreSyn/CoreArity.lhs
index 94297ad..cacf423 100644
--- a/compiler/coreSyn/CoreArity.lhs
+++ b/compiler/coreSyn/CoreArity.lhs
@@ -282,7 +282,7 @@ applyStateHack e (AT orig_arity is_bot)
 	        1 + go res (arity-1)
           else WARN( arity > 0, ppr arity ) 0
 -}						 
-	| otherwise = WARN( arity > 0, ppr arity ) 0
+	| otherwise = WARN( arity > 0, ppr arity <+> ppr ty) 0
 \end{code}
 
 Note [State hack and bottoming functions]
-- 
1.7.10.4