diff options
author | Brian Wignall <brianwignall@gmail.com> | 2020-01-10 10:47:46 -0500 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-01-12 21:30:08 -0500 |
commit | 0b5ddc7f2c10ee84631dd6cb5f6368afbc389449 (patch) | |
tree | d9a77d5b2c55d75d9ae5b6fa199612315de9d163 /compiler/stranal/DmdAnal.hs | |
parent | 350e2b78788d47255d27489dfc62d664498b5de4 (diff) | |
download | haskell-0b5ddc7f2c10ee84631dd6cb5f6368afbc389449.tar.gz |
Fix more typos, via an improved Levenshtein-style corrector
Diffstat (limited to 'compiler/stranal/DmdAnal.hs')
-rw-r--r-- | compiler/stranal/DmdAnal.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/stranal/DmdAnal.hs b/compiler/stranal/DmdAnal.hs index b1601f2fed..7c14e2963d 100644 --- a/compiler/stranal/DmdAnal.hs +++ b/compiler/stranal/DmdAnal.hs @@ -140,7 +140,7 @@ dmdTransformThunkDmd e -- See ↦* relation in the Cardinality Analysis paper dmdAnalStar :: AnalEnv -> Demand -- This one takes a *Demand* - -> CoreExpr -- Should obey the let/app invariatn + -> CoreExpr -- Should obey the let/app invariant -> (BothDmdArg, CoreExpr) dmdAnalStar env dmd e | (dmd_shell, cd) <- toCleanDmd dmd @@ -501,7 +501,7 @@ dmdFix :: TopLevelFlag -> AnalEnv -- Does not include bindings for this binding -> CleanDemand -> [(Id,CoreExpr)] - -> (AnalEnv, DmdEnv, [(Id,CoreExpr)]) -- Binders annotated with stricness info + -> (AnalEnv, DmdEnv, [(Id,CoreExpr)]) -- Binders annotated with strictness info dmdFix top_lvl env let_dmd orig_pairs = loop 1 initial_pairs |