diff options
| author | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2013-09-23 11:28:36 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2013-09-23 11:33:20 +0200 |
| commit | be3b84f3c020e6b147ec9b581d257f88b8774ff0 (patch) | |
| tree | 41057f031b142d94d4d43f4ed816282ab4be9fc8 /compiler/simplCore | |
| parent | e19ae5df6c05e5fd3c691623e041b136dc5cafe9 (diff) | |
| download | haskell-be3b84f3c020e6b147ec9b581d257f88b8774ff0.tar.gz | |
Typos
Diffstat (limited to 'compiler/simplCore')
| -rw-r--r-- | compiler/simplCore/SimplUtils.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs index ab4937e8f3..5cf82ed3ac 100644 --- a/compiler/simplCore/SimplUtils.lhs +++ b/compiler/simplCore/SimplUtils.lhs @@ -1553,7 +1553,7 @@ prepareAlts scrut case_bndr' alts _ -> [] \end{code} -Note [Combine identical alterantives] +Note [Combine identical alternatives] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ If several alternatives are identical, merge them into a single DEFAULT alternative. I've occasionally seen this @@ -1598,7 +1598,7 @@ defeats combineIdenticalAlts (see Trac #7360). \begin{code} combineIdenticalAlts :: OutId -> [InAlt] -> SimplM [InAlt] --- See Note [Combine identical alterantives] +-- See Note [Combine identical alternatives] combineIdenticalAlts case_bndr ((_con1,bndrs1,rhs1) : con_alts) | all isDeadBinder bndrs1 -- Remember the default , length filtered_alts < length con_alts -- alternative comes first |