Weak implementation of hyperlinks for dokuwiki (#386)

TODO Simplify the code

1 files changed, 1 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Writers/DokuWiki.hs b/src/Text/Pandoc/Writers/DokuWiki.hs
index 0169e0931..b6929ad1e 100644
--- a/src/Text/Pandoc/Writers/DokuWiki.hs
+++ b/src/Text/Pandoc/Writers/DokuWiki.hs
@@ -386,7 +386,7 @@ inlineToDokuWiki opts (Link txt (src, _)) = do
   case txt of
      [Str s] | escapeURI s == src -> return src
      _  -> if isURI src
-              then return $ "[" ++ src ++ " " ++ label ++ "]"
+              then return $ "[[" ++ src ++ "|" ++ label ++ "]]"
               else return $ "[[" ++ src' ++ "|" ++ label ++ "]]"
                      where src' = case src of
                                      '/':xs -> xs  -- with leading / it's a