diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-05-09 13:49:00 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-05-10 10:01:46 +0200 |
| commit | 22a03e7288129a165dc2cb866041185a06adb0e9 (patch) | |
| tree | f7c06e4716c8c0df2c800582368a2195fa8e8c7f /compiler/specialise | |
| parent | 8e72a2eee29543f8a663256f6b8cf4422692cb3a (diff) | |
| download | haskell-22a03e7288129a165dc2cb866041185a06adb0e9.tar.gz | |
Typos [ci skip]
Diffstat (limited to 'compiler/specialise')
| -rw-r--r-- | compiler/specialise/SpecConstr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/specialise/SpecConstr.hs b/compiler/specialise/SpecConstr.hs index dd6f19153a..39ec7e6946 100644 --- a/compiler/specialise/SpecConstr.hs +++ b/compiler/specialise/SpecConstr.hs @@ -1952,8 +1952,8 @@ trim_pats env fn (SI { si_n_specs = done_spec_count }) pats -- segment of this list pat_cons :: CallPat -> Int - -- How many data consturorst of literals are in - -- the patten. More data-cons => less general + -- How many data constructors of literals are in + -- the pattern. More data-cons => less general pat_cons (qs, ps) = foldr ((+) . n_cons) 0 ps where q_set = mkVarSet qs |