diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-01-26 11:59:56 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-01-26 12:01:09 +0100 |
| commit | ff9355e48d0cb04b3adf26e27e12e128f79618f4 (patch) | |
| tree | 5615aab8403491323180d8e5f7b41bc4fae29783 | |
| parent | 88a89b761ae37c38c190779b64e97bdd8cc10253 (diff) | |
| download | haskell-ff9355e48d0cb04b3adf26e27e12e128f79618f4.tar.gz | |
Typos in comments [ci skip]
| -rw-r--r-- | compiler/backpack/NameShape.hs | 2 | ||||
| -rw-r--r-- | compiler/coreSyn/CoreSyn.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/backpack/NameShape.hs b/compiler/backpack/NameShape.hs index 0804d71ebb..9817854f28 100644 --- a/compiler/backpack/NameShape.hs +++ b/compiler/backpack/NameShape.hs @@ -159,7 +159,7 @@ ns_module = mkHoleModule . ns_mod_name -- | Substitution on @{A.T}@. We enforce the invariant that the -- 'nameModule' of keys of this map have 'moduleUnitId' @hole@ -- (meaning that if we have a hole substitution, the keys of the map --- are never affected.) Alternately, this is ismorphic to +-- are never affected.) Alternately, this is isomorphic to -- @Map ('ModuleName', 'OccName') 'Name'@. type ShNameSubst = NameEnv Name diff --git a/compiler/coreSyn/CoreSyn.hs b/compiler/coreSyn/CoreSyn.hs index 6f692e0ea5..0bf15f5132 100644 --- a/compiler/coreSyn/CoreSyn.hs +++ b/compiler/coreSyn/CoreSyn.hs @@ -271,7 +271,7 @@ data Expr b | App (Expr b) (Arg b) | Lam b (Expr b) | Let (Bind b) (Expr b) - | Case (Expr b) b Type [Alt b] -- See #case_invariant# + | Case (Expr b) b Type [Alt b] -- See #case_invariants# | Cast (Expr b) Coercion | Tick (Tickish Id) (Expr b) | Type Type |