Fix some haddock errors.

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

src/Text/Pandoc/Readers/Docx/Parse.hs

@@ -274,15 +274,10 @@ rowsToRowspans rows = let
       spans = g cells Nothing (listToMaybe acc)
       in spans : acc
 
-    g ::
+    g :: [Cell] -- the current row
-      -- | The current row
+      -> Maybe Integer -- Number of columns left below
-      [Cell] ->
+      -> Maybe [(Int, Cell)] -- (rowspan so far, cell) for the row below this one
-      -- | Number of columns left below
+      -> [(Int, Cell)] -- (rowspan so far, cell) for this row
-      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 cells _ Nothing = zip (repeat 1) cells
     g cells columnsLeftBelow (Just rowBelow) =
         case cells of

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

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 &&

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
+                              => Text     -- marker for list item
-                              -> [Block]  -- ^ list item (list of blocks)
+                              -> [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 "**<em>" "</em>**" 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

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)

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

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 $ "<html>" <> str <> "</html>"
+-- f == Format "html"     = return $ "<html>" <> str <> "</html>"
 inlineToZimWiki opts il@(RawInline f str)
   | f == Format "zimwiki" = return str
   | f == Format "html"    = indentFromHTML opts str