From d532eb14ebaca9e6255b428d40e22284a8a981d2 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 16 Nov 2018 11:29:15 -0800 Subject: HTML reader: allow tfoot before body rows. Closes #5079. --- src/Text/Pandoc/Readers/HTML.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 2ae79bebd..b668641c8 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -501,10 +501,11 @@ pTable = try $ do head' <- map snd <$> pInTag True "tbody" (if null head'' then pTh else return head'') + topfoot <- option [] $ pInTag False "tfoot" $ many pTr rowsLs <- many pTBody - rows' <- pInTag True "tfoot" $ many pTr + bottomfoot <- option [] $ pInTag False "tfoot" $ many pTr TagClose _ <- pSatisfy (matchTagClose "table") - let rows'' = concat rowsLs <> rows' + let rows'' = concat rowsLs <> topfoot <> bottomfoot let rows''' = map (map snd) rows'' -- let rows''' = map (map snd) rows'' -- fail on empty table -- cgit v1.2.3