From 0ba2f0b8f9002a53351716991509fc7621fa8272 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 13 Jul 2014 15:48:01 -0700 Subject: DokuWiki writer: Normalize to collapse adjacent raw HTML blocks. --- src/Text/Pandoc/Writers/DokuWiki.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc') 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. -- cgit v1.2.3