aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Writers/DokuWiki.hs2
-rw-r--r--tests/writer.dokuwiki30
2 files changed, 1 insertions, 31 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.
diff --git a/tests/writer.dokuwiki b/tests/writer.dokuwiki
index c337ca129..983db2274 100644
--- a/tests/writer.dokuwiki
+++ b/tests/writer.dokuwiki
@@ -288,31 +288,19 @@ Interpreted markdown in a table:
<HTML>
<table>
-</HTML>
-<HTML>
<tr>
-</HTML>
-<HTML>
<td>
</HTML>
This is //emphasized//
<HTML>
</td>
-</HTML>
-<HTML>
<td>
</HTML>
And this is **strong**
<HTML>
</td>
-</HTML>
-<HTML>
</tr>
-</HTML>
-<HTML>
</table>
-</HTML>
-<HTML>
<script type="text/javascript">document.write('This *should not* be interpreted as markdown');</script>
</HTML>
Here’s a simple block:
@@ -345,8 +333,6 @@ Multiline:
Blah
Blah
-->
-</HTML>
-<HTML>
<!--
This is another comment.
-->
@@ -366,29 +352,13 @@ Hr’s:
<HTML>
<hr>
-</HTML>
-<HTML>
<hr />
-</HTML>
-<HTML>
<hr />
-</HTML>
-<HTML>
<hr>
-</HTML>
-<HTML>
<hr />
-</HTML>
-<HTML>
<hr />
-</HTML>
-<HTML>
<hr class="foo" id="bar" />
-</HTML>
-<HTML>
<hr class="foo" id="bar" />
-</HTML>
-<HTML>
<hr class="foo" id="bar">
</HTML>