HTML reader: allow tfoot before body rows.

Closes #5079.

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

test/command/5079.md

@@ -0,0 +1,16 @@
+```
+% pandoc -f html -t native
+<table>
+<tfoot>
+</tfoot>
+<tbody>
+<tr>
+<td>Cell</td>
+</tr>
+</tbody>
+</table>
+^D
+[Table [] [AlignDefault] [0.0]
+ [[]]
+ [[[Plain [Str "Cell"]]]]]
+```