projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove the (very) old strictness analyser
[ghc-hetmet.git]
/
compiler
/
coreSyn
/
CoreArity.lhs
diff --git
a/compiler/coreSyn/CoreArity.lhs
b/compiler/coreSyn/CoreArity.lhs
index
673d619
..
be34b07
100644
(file)
--- a/
compiler/coreSyn/CoreArity.lhs
+++ b/
compiler/coreSyn/CoreArity.lhs
@@
-17,7
+17,7
@@
module CoreArity (
import CoreSyn
import CoreFVs
import CoreUtils
import CoreSyn
import CoreFVs
import CoreUtils
-import NewDemand
+import Demand
import TyCon ( isRecursiveTyCon )
import qualified CoreSubst
import CoreSubst ( Subst, substBndr, substBndrs, substExpr
import TyCon ( isRecursiveTyCon )
import qualified CoreSubst
import CoreSubst ( Subst, substBndr, substBndrs, substExpr
@@
-361,7
+361,7
@@
trimArity False (AT _ ATop) = AT 0 ATop -- Bale out
---------------------------
arityType :: Bool -> CoreExpr -> ArityType
arityType _ (Var v)
---------------------------
arityType :: Bool -> CoreExpr -> ArityType
arityType _ (Var v)
- | Just strict_sig <- idNewStrictness_maybe v
+ | Just strict_sig <- idStrictness_maybe v
, (ds, res) <- splitStrictSig strict_sig
, isBotRes res
= AT (length ds) ABot -- Function diverges
, (ds, res) <- splitStrictSig strict_sig
, isBotRes res
= AT (length ds) ABot -- Function diverges