aboutsummaryrefslogtreecommitdiff
path: root/haddock-api
diff options
context:
space:
mode:
Diffstat (limited to 'haddock-api')
-rw-r--r--haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs2
-rw-r--r--haddock-api/src/Haddock/Backends/LaTeX.hs4
-rw-r--r--haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs2
-rw-r--r--haddock-api/src/Haddock/Interface/Create.hs4
-rw-r--r--haddock-api/src/Haddock/Types.hs2
5 files changed, 7 insertions, 7 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs
index 12f37ced..cacb0dc7 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Renderer.hs
@@ -141,7 +141,7 @@ richToken srcs details Token{..}
contexts = concatMap (Set.elems . identInfo) . Map.elems . nodeIdentifiers $ details
- -- pick an arbitary non-evidence identifier to hyperlink with
+ -- pick an arbitrary non-evidence identifier to hyperlink with
identDet = Map.lookupMin $ Map.filter notEvidence $ nodeIdentifiers $ details
notEvidence = not . any isEvidenceContext . identInfo
diff --git a/haddock-api/src/Haddock/Backends/LaTeX.hs b/haddock-api/src/Haddock/Backends/LaTeX.hs
index 5f46b321..7d019d6e 100644
--- a/haddock-api/src/Haddock/Backends/LaTeX.hs
+++ b/haddock-api/src/Haddock/Backends/LaTeX.hs
@@ -1296,7 +1296,7 @@ latexMarkup = Markup
Just label -> text "\\href" <> braces (text url) <> braces label
Nothing -> text "\\url" <> braces (text url)
- -- Is there a better way of doing this? Just a space is an aribtrary choice.
+ -- Is there a better way of doing this? Just a space is an arbitrary choice.
markupPic (Picture uri title) = parens (imageText title)
where
imageText Nothing = beg
@@ -1328,7 +1328,7 @@ rdrDocToLaTeX doc = markup latexMarkup doc Plain empty
data StringContext
= Plain -- ^ all special characters have to be escape
- | Mono -- ^ on top of special characters, escape space chraacters
+ | Mono -- ^ on top of special characters, escape space characters
| Verb -- ^ don't escape anything
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs b/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs
index bf29a7b4..02d6dafd 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml/DocMarkup.hs
@@ -46,7 +46,7 @@ parHtmlMarkup qual insertAnchors ppId = Markup {
markupIdentifierUnchecked = thecode . ppUncheckedLink qual,
markupModule = \(ModLink m lbl) ->
let (mdl,ref) = break (=='#') m
- -- Accomodate for old style
+ -- Accommodate for old style
-- foo\#bar anchors
mdl' = case reverse mdl of
'\\':_ -> init mdl
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))
diff --git a/haddock-api/src/Haddock/Types.hs b/haddock-api/src/Haddock/Types.hs
index 7c4aeb80..4a99c58b 100644
--- a/haddock-api/src/Haddock/Types.hs
+++ b/haddock-api/src/Haddock/Types.hs
@@ -150,7 +150,7 @@ data Interface = Interface
-- | Warnings for things defined in this module.
, ifaceWarningMap :: !WarningMap
- -- | Tokenized source code of module (avaliable if Haddock is invoked with
+ -- | Tokenized source code of module (available if Haddock is invoked with
-- source generation flag).
, ifaceHieFile :: !(Maybe FilePath)
, ifaceDynFlags :: !DynFlags