projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
13e4c20
)
Make the arity warning a bit more informative (DEBUG only)
author
simonpj@microsoft.com
<unknown>
Mon, 2 Nov 2009 17:20:59 +0000
(17:20 +0000)
committer
simonpj@microsoft.com
<unknown>
Mon, 2 Nov 2009 17:20:59 +0000
(17:20 +0000)
compiler/coreSyn/CoreArity.lhs
patch
|
blob
|
history
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]