diff options
| author | sof <unknown> | 1997-07-05 02:48:31 +0000 |
|---|---|---|
| committer | sof <unknown> | 1997-07-05 02:48:31 +0000 |
| commit | 9649365acad43e7da35a372bb6b2c21c4ef24e6f (patch) | |
| tree | 4e55d2b7e6ce45bd1e7a5a49cd73cfb80d10b7ca /ghc/compiler/stranal | |
| parent | 5a823880ee5767fc173665925c889dff677b9346 (diff) | |
| download | haskell-9649365acad43e7da35a372bb6b2c21c4ef24e6f.tar.gz | |
[project @ 1997-07-05 02:46:26 by sof]
Diffstat (limited to 'ghc/compiler/stranal')
| -rw-r--r-- | ghc/compiler/stranal/SaLib.lhs | 2 | ||||
| -rw-r--r-- | ghc/compiler/stranal/StrictAnal.lhs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/stranal/SaLib.lhs b/ghc/compiler/stranal/SaLib.lhs index d31d892e3e..485b597f10 100644 --- a/ghc/compiler/stranal/SaLib.lhs +++ b/ghc/compiler/stranal/SaLib.lhs @@ -107,7 +107,7 @@ lookupAbsValEnv (AbsValEnv idenv) y \end{code} \begin{code} -absValFromStrictness :: AnalysisKind -> StrictnessInfo bdee -> AbsVal +absValFromStrictness :: AnalysisKind -> StrictnessInfo -> AbsVal absValFromStrictness anal NoStrictnessInfo = AbsTop diff --git a/ghc/compiler/stranal/StrictAnal.lhs b/ghc/compiler/stranal/StrictAnal.lhs index 751b671cef..d0ea862b10 100644 --- a/ghc/compiler/stranal/StrictAnal.lhs +++ b/ghc/compiler/stranal/StrictAnal.lhs @@ -394,7 +394,7 @@ addStrictnessInfoToId str_val abs_val binder body = case (collectBinders body) of (_, _, [], rhs) -> binder (_, _, lambda_bounds, rhs) -> binder `addIdStrictness` - mkStrictnessInfo strictness Nothing + mkStrictnessInfo strictness False where tys = map idType lambda_bounds strictness = findStrictness tys str_val abs_val |