aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-07-06 10:21:59 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2021-07-06 10:21:59 -0700
commit3ed37f00771d20a1b7516f2a37b7b424b3b2f1d8 (patch)
tree5ec1e735f5510b7d4795451f024f19d9f8f77009
parent3a31fe68efcf80888294a1d3d33751d266d4de07 (diff)
downloadpandoc-3ed37f00771d20a1b7516f2a37b7b424b3b2f1d8.tar.gz
HTML reader: add col, colgroup to 'closes' definitions
-rw-r--r--src/Text/Pandoc/Readers/HTML/Parsing.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/HTML/Parsing.hs b/src/Text/Pandoc/Readers/HTML/Parsing.hs
index 4c069e2c3..bd8d7c96c 100644
--- a/src/Text/Pandoc/Readers/HTML/Parsing.hs
+++ b/src/Text/Pandoc/Readers/HTML/Parsing.hs
@@ -161,10 +161,12 @@ _ `closes` "html" = False
"li" `closes` "li" = True
"th" `closes` t | t `elem` ["th","td"] = True
"td" `closes` t | t `elem` ["th","td"] = True
-"tr" `closes` t | t `elem` ["th","td","tr"] = True
+"tr" `closes` t | t `elem` ["th","td","tr","colgroup"] = True
"dd" `closes` t | t `elem` ["dt", "dd"] = True
"dt" `closes` t | t `elem` ["dt","dd"] = True
"rt" `closes` t | t `elem` ["rb", "rt", "rtc"] = True
+"col" `closes` "col" = True
+"colgroup" `closes` "col" = True
"optgroup" `closes` "optgroup" = True
"optgroup" `closes` "option" = True
"option" `closes` "option" = True