diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2013-12-12 16:12:00 +0000 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2013-12-16 21:30:00 +0100 |
| commit | 779dca75eb383c057dc6a8b065727265f0ec1401 (patch) | |
| tree | c8f706d9f27a9ede1cc4c6947b8f218a08bd6c82 /compiler/stranal | |
| parent | 8f25170ddab14efe5124deaf811f0600c95b4ab8 (diff) | |
| download | haskell-779dca75eb383c057dc6a8b065727265f0ec1401.tar.gz | |
Rename postProcessDmdType to postProcessUnsat and use* to reuse*
Diffstat (limited to 'compiler/stranal')
| -rw-r--r-- | compiler/stranal/DmdAnal.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/stranal/DmdAnal.lhs b/compiler/stranal/DmdAnal.lhs index 01c990a2e9..cbdcc67736 100644 --- a/compiler/stranal/DmdAnal.lhs +++ b/compiler/stranal/DmdAnal.lhs @@ -206,7 +206,7 @@ dmdAnal env dmd (Lam var body) (body_ty, body') = dmdAnal env' body_dmd body (lam_ty, var') = annotateLamIdBndr env notArgOfDfun body_ty one_shot var in - (postProcessDmdType defer_and_use lam_ty, Lam var' body') + (postProcessUnsat defer_and_use lam_ty, Lam var' body') dmdAnal env dmd (Case scrut case_bndr ty [alt@(DataAlt dc, _, _)]) -- Only one alternative with a product constructor @@ -619,7 +619,7 @@ dmdAnalRhs top_lvl rec_flag env id rhs -- See Note [Lazy and unleashable free variables] -- See Note [Aggregated demand for cardinality] rhs_fv1 = case rec_flag of - Just bs -> useEnv (delVarEnvList rhs_fv bs) + Just bs -> reuseEnv (delVarEnvList rhs_fv bs) Nothing -> rhs_fv (lazy_fv, sig_fv) = splitFVs is_thunk rhs_fv1 |