diff options
| author | askeblad <74082607+askeblad@users.noreply.github.com> | 2022-04-06 10:47:57 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-04-06 17:47:57 +0200 |
| commit | a127bb256ec411b2e78edba21299c5dabba3b847 (patch) | |
| tree | 835521eb575bbaba2ca89e542fd4a3f12b577468 /haddock-api/src/Haddock/Interface | |
| parent | d8dbbdad173baafe73acc98e6427c468fd3e13cc (diff) | |
spelling errors (#1471)
Diffstat (limited to 'haddock-api/src/Haddock/Interface')
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Create.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs index a280c0b2..7e5a2ba2 100644 --- a/haddock-api/src/Haddock/Interface/Create.hs +++ b/haddock-api/src/Haddock/Interface/Create.hs @@ -84,7 +84,7 @@ import GHC.Unit.Module.Warnings newtype IfEnv m = IfEnv { - -- | Lookup names in the enviroment. + -- | Lookup names in the environment. ife_lookup_name :: Name -> m (Maybe TyThing) } @@ -266,7 +266,7 @@ createInterface1 flags unit_state mod_sum tc_gbl_env ifaces inst_ifaces = do mod_warning <- liftErrMsg (moduleWarning dflags tcg_rdr_env tcg_warns) let - -- Warnings in this module and transitive warnings from dependend modules + -- Warnings in this module and transitive warnings from dependent modules warnings :: Map Name (Doc Name) warnings = M.unions (decl_warnings : map ifaceWarningMap (M.elems ifaces)) |