diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index 6fe493e4e..1c18a28a3 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -1022,7 +1022,7 @@ parseBlock (Elem e) = Just t -> Just ("titleabbrev", strContentRecursive t) Nothing -> Nothing lineItems = mapM getInlines $ filterChildren (named "line") e - -- | Admonitions are parsed into a div. Following other Docbook tools that output HTML, + -- Admonitions are parsed into a div. Following other Docbook tools that output HTML, -- we parse the optional title as a div with the @title@ class, and give the -- block itself a class corresponding to the admonition name. parseAdmonition label = do diff --git a/src/Text/Pandoc/Readers/Docx/Parse.hs b/src/Text/Pandoc/Readers/Docx/Parse.hs index 79755fecc..af8143fac 100644 --- a/src/Text/Pandoc/Readers/Docx/Parse.hs +++ b/src/Text/Pandoc/Readers/Docx/Parse.hs @@ -274,15 +274,10 @@ rowsToRowspans rows = let spans = g cells Nothing (listToMaybe acc) in spans : acc - g :: - -- | The current row - [Cell] -> - -- | Number of columns left below - Maybe Integer -> - -- | (rowspan so far, cell) for the row below this one - Maybe [(Int, Cell)] -> - -- | (rowspan so far, cell) for this row - [(Int, Cell)] + g :: [Cell] -- the current row + -> Maybe Integer -- Number of columns left below + -> Maybe [(Int, Cell)] -- (rowspan so far, cell) for the row below this one + -> [(Int, Cell)] -- (rowspan so far, cell) for this row g cells _ Nothing = zip (repeat 1) cells g cells columnsLeftBelow (Just rowBelow) = case cells of diff --git a/src/Text/Pandoc/Readers/Org/Inlines.hs b/src/Text/Pandoc/Readers/Org/Inlines.hs index dca7842e7..8b2b83185 100644 --- a/src/Text/Pandoc/Readers/Org/Inlines.hs +++ b/src/Text/Pandoc/Readers/Org/Inlines.hs @@ -332,7 +332,7 @@ normalOrgRefCite = try $ do moreCitations <- many (try $ char ',' *> orgRefCiteList mode) return . sequence $ firstCitation : moreCitations where - -- | A list of org-ref style citation keys, parsed as citation of the given + -- A list of org-ref style citation keys, parsed as citation of the given -- citation mode. orgRefCiteList :: PandocMonad m => CitationMode -> OrgParser m (F Citation) orgRefCiteList citeMode = try $ do diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index e4eaae410..9e0023d67 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -360,7 +360,7 @@ blockToMarkdown' opts (Div attrs ils) = do case () of () | "blurb" `elem` classes' -> prefixed "B> " contents <> blankline | "aside" `elem` classes' -> prefixed "A> " contents <> blankline - -- | necessary to enable option to create a bibliography + -- necessary to enable option to create a bibliography | (take 3 (T.unpack id')) == "ref" -> contents <> blankline | otherwise -> contents <> blankline | isEnabled Ext_fenced_divs opts && diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index d5100f43f..f3eecceb8 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -213,8 +213,8 @@ blockToMuse (OrderedList (start, style, _) items) = do topLevel <- asks envTopLevel return $ (if topLevel then nest 1 else id) (vcat contents) $$ blankline where orderedListItemToMuse :: PandocMonad m - => Text -- ^ marker for list item - -> [Block] -- ^ list item (list of blocks) + => Text -- marker for list item + -> [Block] -- list item (list of blocks) -> Muse m (Doc Text) orderedListItemToMuse marker item = hang (T.length marker + 1) (literal marker <> space) <$> blockListToMuse item @@ -597,7 +597,7 @@ inlineToMuse (Strong [Emph lst]) = do else if null lst' || startsWithSpace lst' || endsWithSpace lst' then emphasis "**" "**" lst' else emphasis "***" "***" lst' --- | Underline is only supported in Emacs Muse mode. +-- Underline is only supported in Emacs Muse mode. inlineToMuse (Underline lst) = do opts <- asks envOptions contents <- inlineListToMuse lst diff --git a/src/Text/Pandoc/Writers/Powerpoint/Output.hs b/src/Text/Pandoc/Writers/Powerpoint/Output.hs index e799297de..9b14b2311 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Output.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Output.hs @@ -448,7 +448,7 @@ updateMasterElems layouts master masterRels = (updatedMaster, updatedMasterRels) in (thisId, Elem newRelationship : relationships) in (newRelationshipIds, e {elContent = elContent e <> newRelationships}) - -- | Whether the layout needs to be added to the Relationships element. + -- Whether the layout needs to be added to the Relationships element. isNew :: Element -> SlideLayout -> Bool isNew relationships SlideLayout{..} = let toDetails = fmap (takeFileName . T.unpack) diff --git a/src/Text/Pandoc/Writers/TEI.hs b/src/Text/Pandoc/Writers/TEI.hs index 39dea0019..bf5948ba6 100644 --- a/src/Text/Pandoc/Writers/TEI.hs +++ b/src/Text/Pandoc/Writers/TEI.hs @@ -192,7 +192,7 @@ blockToTEI _ HorizontalRule = return $ ,("type","separator") ,("rendition","line")] --- | TEI Tables +-- TEI Tables -- TEI Simple's tables are composed of cells and rows; other -- table info in the AST is here lossily discard. blockToTEI opts (Table _ blkCapt specs thead tbody tfoot) = do diff --git a/src/Text/Pandoc/Writers/ZimWiki.hs b/src/Text/Pandoc/Writers/ZimWiki.hs index 0bfe5012e..1f4fbee15 100644 --- a/src/Text/Pandoc/Writers/ZimWiki.hs +++ b/src/Text/Pandoc/Writers/ZimWiki.hs @@ -324,7 +324,7 @@ inlineToZimWiki _ (Math mathType str) = return $ delim <> str <> delim -- note DisplayMath -> "$$" InlineMath -> "$" --- | f == Format "html" = return $ "" <> str <> "" +-- f == Format "html" = return $ "" <> str <> "" inlineToZimWiki opts il@(RawInline f str) | f == Format "zimwiki" = return str | f == Format "html" = indentFromHTML opts str