HTML reader: fix parsing unclosed th elements in a table.

Closes #6247.
This commit is contained in:
John MacFarlane 2020-04-02 07:58:52 -07:00
parent 92e0801daa
commit 792f1a6b57

View file

@ -909,6 +909,7 @@ pCloses tagtype = try $ do
(TagClose "ol") | tagtype == "li" -> return ()
(TagClose "dl") | tagtype == "dd" -> return ()
(TagClose "table") | tagtype == "td" -> return ()
(TagClose "table") | tagtype == "th" -> return ()
(TagClose "table") | tagtype == "tr" -> return ()
(TagClose "td") | tagtype `Set.member` blockHtmlTags -> return ()
(TagClose "th") | tagtype `Set.member` blockHtmlTags -> return ()