From e5004bcff040a2bc85d7ed6acb42425d265f1bd2 Mon Sep 17 00:00:00 2001
From: claremacrae <github@cfmacrae.fastmail.co.uk>
Date: Tue, 6 Aug 2013 07:43:32 +0100
Subject: Implement strikeout in dokuwiki writer (#386)

---
 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 b172741de..db02bde89 100644
--- a/src/Text/Pandoc/Writers/DokuWiki.hs
+++ b/src/Text/Pandoc/Writers/DokuWiki.hs
@@ -378,7 +378,7 @@ inlineToDokuWiki opts (Strong lst) = do
 
 inlineToDokuWiki opts (Strikeout lst) = do
   contents <- inlineListToDokuWiki opts lst
-  return $ "<s>" ++ contents ++ "</s>"
+  return $ "<del>" ++ contents ++ "</del>"
 
 inlineToDokuWiki opts (Superscript lst) = do
   contents <- inlineListToDokuWiki opts lst
-- 
cgit v1.2.3