diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Lua/Writer/Classic.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 4 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/JATS/Types.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/XML/Light/Proc.hs | 10 |
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 |