projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Comments and layout only, relating to Roman's inlining-and-conlike patch
[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
-}
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]
\end{code}
Note [State hack and bottoming functions]