aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorClare Macrae <github@cfmacrae.fastmail.co.uk>2014-07-01 21:21:09 +0100
committerClare Macrae <github@cfmacrae.fastmail.co.uk>2014-07-01 21:21:09 +0100
commit072757916754a11cc7837d343c5c63ee1585a35b (patch)
tree6ed7ed089e2049ac564acc795ae8e1cf8da7b950 /src/Text/Pandoc
parenta049a60129fe12b2b9132d36c9990dbbca3fd4c8 (diff)
downloadpandoc-072757916754a11cc7837d343c5c63ee1585a35b.tar.gz
Improved HTML Blocks in DokuWiki output (#386)
For example, this fixes the display of a broken table, and it also fixes the various HTML horizontal rules.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/DokuWiki.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs
index ce8efb281..ad68425ff 100644
--- a/src/Text/Pandoc/Writers/DokuWiki.hs
+++ b/src/Text/Pandoc/Writers/DokuWiki.hs
@@ -126,7 +126,7 @@ blockToDokuWiki opts (Para inlines) = do
blockToDokuWiki _ (RawBlock f str)
| f == Format "mediawiki" = return str
- | f == Format "html" = return str
+ | f == Format "html" = return $ "<html>\n" ++ str ++ "</html>"
| otherwise = return ""
blockToDokuWiki _ HorizontalRule = return "\n----\n"