@@ -18,7 +18,7 @@ import Control.Monad (guard)
1818import Data.Maybe (fromMaybe)
1919import Data.Text (Text)
2020import Text.HTML.TagSoup
21−import Text.Pandoc.Builder (Blocks, Inlines)
21+import Text.Pandoc.Builder (Blocks)
2222import Text.Pandoc.Definition
2323import Text.Pandoc.Class.PandocMonad (PandocMonad (..))
2424import Text.Pandoc.Parsing
@@ -59,14 +59,14 @@ pColgroup = try $ do
5959
6060-- | Parses a simple HTML table
6161pTable' :: PandocMonad m
62− => TagParser m Inlines -- ^ Caption parser
62+ => TagParser m Blocks -- ^ Caption parser
6363 -> (Text -> TagParser m [(Alignment, Blocks)]) -- ^ Table cell parser
6464 -> TagParser m Blocks
65−pTable' inline pCell = try $ do
65+pTable' block pCell = try $ do
6666 TagOpen _ attribs' <- pSatisfy (matchTagOpen "table" [])
6767 let attribs = toAttr attribs'
6868 skipMany pBlank
69− caption <- option mempty $ pInTags "caption" inline <* skipMany pBlank
69+ caption <- option mempty $ pInTags "caption" block <* skipMany pBlank
7070 widths' <- (mconcat <$> many1 pColgroup) <|> many pCol
7171 let pTh = option [] $ pInTags "tr" (pCell "th")
7272 pTr = try $ skipMany pBlank >>
@@ -104,7 +104,7 @@ pTable' inline pCell = try $ do
104104 let toRow = Row nullAttr . map B.simpleCell
105105 toHeaderRow l = [toRow l | not (null l)]
106106 return $ B.tableWith attribs
107− (B.simpleCaption $ B.plain caption)
107+ (B.simpleCaption caption)
108108 (zip aligns widths)
109109 (TableHead nullAttr $ toHeaderRow head')
110110 [TableBody nullAttr 0 [] $ map toRow rows]