diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-07-13 08:28:28 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-07-13 08:28:28 -0700 |
| commit | cb62cd08e083d581bcfdba5ce3059925d08c5dba (patch) | |
| tree | ae9f0e279def7dcec6dc7d723abf13a2d6210294 /src/Text/Pandoc/Readers | |
| parent | 3516d9d09b8ac0d77404b80ebf4a4236227d50cc (diff) | |
| download | pandoc-cb62cd08e083d581bcfdba5ce3059925d08c5dba.tar.gz | |
Use renderTags' for all tag rendering.
This properly handles tags that should be self-closing.
Previously `<hr/>` would appear in EPUB output as `<hr></hr>`.
Closes #1420.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 7d19ee1e6..1e74f051c 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -948,7 +948,7 @@ rawVerbatimBlock = try $ do ["pre", "style", "script"]) (const True)) contents <- manyTill anyChar (htmlTag (~== TagClose tag)) - return $ open ++ contents ++ renderTags [TagClose tag] + return $ open ++ contents ++ renderTags' [TagClose tag] rawTeXBlock :: MarkdownParser (F Blocks) rawTeXBlock = do |