diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index c766bb4ee..f2f97dbc4 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -854,6 +854,7 @@ isCommentTag = tagComment (const True) closes :: String -> String -> Bool _ `closes` "body" = False _ `closes` "html" = False +"body" `closes` "head" = True "a" `closes` "a" = True "li" `closes` "li" = True "th" `closes` t | t `elem` ["th","td"] = True |