diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-06-04 10:23:38 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-06-04 10:23:38 +0200 |
| commit | cb7dd4469d420aea1a296079b7002aa5452fb481 (patch) | |
| tree | f2f6a6d840f0da6e7901d37e905da36af638e997 | |
| parent | f47f53d959f2219e8f38d823ee62e05c78a429bb (diff) | |
| download | pandoc-cb7dd4469d420aea1a296079b7002aa5452fb481.tar.gz | |
HTML reader: allow `<body>` to close `<head>`.
| -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 |