X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreArity.lhs;h=cacf4230a7bf55e6951754018e1abf3beff511ac;hb=e45d0387b4fdfe83ce9228631938882ef96f7288;hp=94297adbaf498ed8c626045495a442619f0b8f56;hpb=72462499b891d5779c19f3bda03f96e24f9554ae;p=ghc-hetmet.git

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]