From d532eb14ebaca9e6255b428d40e22284a8a981d2 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
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')
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