summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/HTML.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-10-24 14:32:51 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2017-10-24 14:32:51 -0700
commitad2df0655eadcd0119a4f0ee2fea3666bb8495de (patch)
tree6eed586aee6ab229e035b69e71eb575372cfaa5a /src/Text/Pandoc/Readers/HTML.hs
parentd2c4243f89a6368d4f9f8a511d9b026d0be19cd8 (diff)
Revert "HTML reader: td or th implicitly closes blocks within last td/th."
This reverts commit d2c4243f89a6368d4f9f8a511d9b026d0be19cd8.
Diffstat (limited to 'src/Text/Pandoc/Readers/HTML.hs')
-rw-r--r--src/Text/Pandoc/Readers/HTML.hs6
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index 98ba6b8c9..a545f3f3d 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -1036,11 +1036,7 @@ _ `closes` "html" = False
"body" `closes` "head" = True
"a" `closes` "a" = True
"li" `closes` "li" = True
-t1 `closes` t2
- | t1 `elem` ["th","td"] &&
- t2 `Set.member` blockTags &&
- t2 /= "tr" &&
- t2 /= "table" = True
+"th" `closes` t | t `elem` ["th","td"] = True
"tr" `closes` t | t `elem` ["th","td","tr"] = True
"dd" `closes` t | t `elem` ["dt", "dd"] = True
"dt" `closes` t | t `elem` ["dt","dd"] = True