aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorClare Macrae <clare.macrae@googlemail.com>2013-07-15 09:35:04 +0100
committerClare Macrae <clare.macrae@googlemail.com>2013-07-15 09:35:04 +0100
commitb2a8731e32c27a230a970b747df13ad84d473b5d (patch)
tree1020be12121540b31b7f044a4fdd578d0be4c657 /src
parent660fb244721a83985f097886178c5a38f6c8194e (diff)
downloadpandoc-b2a8731e32c27a230a970b747df13ad84d473b5d.tar.gz
Weak implementation of hyperlinks for dokuwiki (#386)
TODO Simplify the code
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/DokuWiki.hs2
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