From 0c6f06b8a493bf9bc578a0b882939bac130e16f0 Mon Sep 17 00:00:00 2001
From: Clare Macrae <github@cfmacrae.fastmail.co.uk>
Date: Wed, 2 Jul 2014 22:40:34 +0100
Subject: DokuWiki writer: Span no longer swallows text

---
 src/Text/Pandoc/Writers/DokuWiki.hs | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'src/Text/Pandoc/Writers')

diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs
index 76a0463eb..ea56ac393 100644
--- a/src/Text/Pandoc/Writers/DokuWiki.hs
+++ b/src/Text/Pandoc/Writers/DokuWiki.hs
@@ -31,7 +31,6 @@ DokuWiki:  <https://www.dokuwiki.org/dokuwiki>
 -}
 
 {-
-    [ ] Correct handling of Span
     [ ] Implement nested blockquotes (currently only ever does one level)
     [ ] Implement alignment of text in tables
     [ ] Implement comments
@@ -348,12 +347,9 @@ inlineListToDokuWiki opts lst = mapM (inlineToDokuWiki opts) lst >>= return . co
 -- | Convert Pandoc inline element to DokuWiki.
 inlineToDokuWiki :: WriterOptions -> Inline -> State WriterState String
 
-inlineToDokuWiki _opts (Span _attrs _ils) = do
-  return ""
-  {-
+inlineToDokuWiki opts (Span _attrs ils) = do
   contents <- inlineListToDokuWiki opts ils
-  return $ render Nothing (tagWithAttrs "span" attrs) ++ contents ++ "</span>"
-  -}
+  return contents
 
 inlineToDokuWiki opts (Emph lst) = do
   contents <- inlineListToDokuWiki opts lst
-- 
cgit v1.2.3