Fix typos (#7934)

5 files changed, 10 insertions, 10 deletions

diff --git a/src/Text/Pandoc/Lua/Writer/Classic.hs b/src/Text/Pandoc/Lua/Writer/Classic.hs
index 58f6efa33..522bdb651 100644
--- a/src/Text/Pandoc/Lua/Writer/Classic.hs
+++ b/src/Text/Pandoc/Lua/Writer/Classic.hs
@@ -89,7 +89,7 @@ instance (Pushable a, Pushable b) => Pushable (KeyValue a b) where
     Lua.push v
     Lua.rawset (Lua.nth 3)
 
--- | Convert Pandoc to custom markup usind a classic Lua writer.
+-- | Convert Pandoc to custom markup using a classic Lua writer.
 runCustom :: LuaError e
           => WriterOptions
           -> Pandoc
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index 10be495ec..400c12cae 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -968,11 +968,11 @@ addList marker = do
   lists <- gets stLists
   lastExampleId <- gets stExampleId
   modify $ \st -> st{ stLists = lists ++ case marker of
-                                         -- Use only first occurence of Example for list declaration to avoid overhead
+                                         -- Use only first occurrence of Example for list declaration to avoid overhead
                                          NumberMarker Example _ _ | isJust lastExampleId -> []
                                          _ -> [marker]
                     , stExampleId = case marker of
-                                         -- Reuse the same identifier for all other occurences of Example
+                                         -- Reuse the same identifier for all other occurrences of Example
                                          NumberMarker Example _ _ -> lastExampleId <|> Just (baseListId + length lists)
                                          _ -> lastExampleId
                   }
diff --git a/src/Text/Pandoc/Writers/JATS/Types.hs b/src/Text/Pandoc/Writers/JATS/Types.hs
index 0603c728d..d0c10a9f6 100644
--- a/src/Text/Pandoc/Writers/JATS/Types.hs
+++ b/src/Text/Pandoc/Writers/JATS/Types.hs
@@ -39,7 +39,7 @@ newtype JATSState = JATSState
 
 -- | Environment containing all information relevant for rendering.
 data JATSEnv m = JATSEnv
-  { jatsTagSet :: JATSTagSet  -- ^ The tag set that's being ouput
+  { jatsTagSet :: JATSTagSet  -- ^ The tag set that's being output
 
   , jatsBlockWriter   :: (Block -> Bool)
                       -> WriterOptions -> [Block]  -> JATS m (Doc Text)
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index 3756b8b75..88718c422 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -617,7 +617,7 @@ defListItemToLaTeX (term, defs) = do
      _                       ->
        "\\item" <> brackets term'' $$ def'
 
--- | Craft the section header, inserting the secton reference, if supplied.
+-- | Craft the section header, inserting the section reference, if supplied.
 sectionHeader :: PandocMonad m
               => [Text]  -- classes
               -> Text
diff --git a/src/Text/Pandoc/XML/Light/Proc.hs b/src/Text/Pandoc/XML/Light/Proc.hs
index fe5303e94..73b80bbee 100644
--- a/src/Text/Pandoc/XML/Light/Proc.hs
+++ b/src/Text/Pandoc/XML/Light/Proc.hs
@@ -99,23 +99,23 @@ filterElement p e     = listToMaybe (filterElements p e)
 filterElementName     :: (QName -> Bool) -> Element -> Maybe Element
 filterElementName p e  = listToMaybe (filterElementsName p e)
 
--- | Find all non-nested occurances of an element.
+-- | Find all non-nested occurrences of an element.
 -- (i.e., once we have found an element, we do not search
--- for more occurances among the element's children).
+-- for more occurrences among the element's children).
 findElements       :: QName -> Element -> [Element]
 findElements qn e = filterElementsName (qn==) e
 
 -- | Find all non-nested occurrences of an element wrt. given predicate.
 -- (i.e., once we have found an element, we do not search
--- for more occurances among the element's children).
+-- for more occurrences among the element's children).
 filterElements       :: (Element -> Bool) -> Element -> [Element]
 filterElements p e
  | p e        = [e]
  | otherwise  = concatMap (filterElements p) $ onlyElems $ elContent e
 
--- | Find all non-nested occurences of an element wrt a predicate over element names.
+-- | Find all non-nested occurrences of an element wrt a predicate over element names.
 -- (i.e., once we have found an element, we do not search
--- for more occurances among the element's children).
+-- for more occurrences among the element's children).
 filterElementsName       :: (QName -> Bool) -> Element -> [Element]
 filterElementsName p e = filterElements (p.elName) e