aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-07-13 15:48:01 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-07-13 15:48:01 -0700
commit0ba2f0b8f9002a53351716991509fc7621fa8272 (patch)
tree9b2c03dac03ea43435df90d96d1ec57cccb78ddb /src/Text/Pandoc
parent15956fcac75febaed7bf159abcee24c02fb1a8c1 (diff)
downloadpandoc-0ba2f0b8f9002a53351716991509fc7621fa8272.tar.gz
DokuWiki writer: Normalize to collapse adjacent raw HTML blocks.
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 929715bd9..c7b723a21 100644
--- a/src/Text/Pandoc/Writers/DokuWiki.hs
+++ b/src/Text/Pandoc/Writers/DokuWiki.hs
@@ -57,7 +57,7 @@ data WriterState = WriterState {
-- | Convert Pandoc to DokuWiki.
writeDokuWiki :: WriterOptions -> Pandoc -> String
writeDokuWiki opts document =
- evalState (pandocToDokuWiki opts document)
+ evalState (pandocToDokuWiki opts $ normalize document)
(WriterState { stNotes = False, stIndent = "", stUseTags = False })
-- | Return DokuWiki representation of document.