diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-02-13 15:32:49 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-02-15 09:39:02 +0100 |
| commit | e28fbbb7c3d5904a88b4743d0d10f212d61d8293 (patch) | |
| tree | 9b3c164a321cdf3124fdd1eb562bdfd7eb77cd19 /compiler/coreSyn | |
| parent | 93e65c8ab7b468d69bf24d9dc2f197d24e5166f4 (diff) | |
| download | haskell-e28fbbb7c3d5904a88b4743d0d10f212d61d8293.tar.gz | |
Typos [ci skip]
Diffstat (limited to 'compiler/coreSyn')
| -rw-r--r-- | compiler/coreSyn/CoreUtils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/coreSyn/CoreUtils.hs b/compiler/coreSyn/CoreUtils.hs index 7896382384..adc9acf018 100644 --- a/compiler/coreSyn/CoreUtils.hs +++ b/compiler/coreSyn/CoreUtils.hs @@ -1662,7 +1662,7 @@ dataConInstPat fss uniqs con inst_tys -- Make the instantiating substitution for universals univ_subst = zipTvSubst univ_tvs inst_tys - -- Make existential type variables, applyingn and extending the substitution + -- Make existential type variables, applying and extending the substitution (full_subst, ex_bndrs) = mapAccumL mk_ex_var univ_subst (zip3 ex_tvs ex_fss ex_uniqs) @@ -1844,7 +1844,7 @@ diffExpr _ _ e1 e2 -- all possible mappings, which would be seriously expensive. So -- instead we simply match single bindings as far as we can. This -- leaves us just with mutually recursive and/or mismatching bindings, --- which we then specuatively match by ordering them. It's by no means +-- which we then speculatively match by ordering them. It's by no means -- perfect, but gets the job done well enough. diffBinds :: Bool -> RnEnv2 -> [(Var, CoreExpr)] -> [(Var, CoreExpr)] -> ([SDoc], RnEnv2) |