Make the arity warning a bit more informative (DEBUG only)

[ghc-hetmet.git] / compiler / coreSyn / CoreArity.lhs

diff --git a/compiler/coreSyn/CoreArity.lhs b/compiler/coreSyn/CoreArity.lhs
index 94297ad..cacf423 100644 (file)
--- 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]