summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-11-16 20:53:01 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2015-11-16 20:53:01 -0800
commit995f28ff0756ad2d3edb63ee073137b42ff6f17e (patch)
tree902b29727958d38f7bd5a005ce4b12bee374735f
parent469338a2721bdcbf927d2344ba012f0ca76614a5 (diff)
Haddock writer: omit formatting inside links.
It isn't supported by Haddock. Closes #2515.
-rw-r--r--src/Text/Pandoc/Writers/Haddock.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Haddock.hs b/src/Text/Pandoc/Writers/Haddock.hs
index 14f398da9..5df6786ac 100644
--- a/src/Text/Pandoc/Writers/Haddock.hs
+++ b/src/Text/Pandoc/Writers/Haddock.hs
@@ -327,8 +327,8 @@ inlineToHaddock _ (RawInline f str)
inlineToHaddock _ (LineBreak) = return cr
inlineToHaddock _ Space = return space
inlineToHaddock opts (Cite _ lst) = inlineListToHaddock opts lst
-inlineToHaddock opts (Link txt (src, _)) = do
- linktext <- inlineListToHaddock opts txt
+inlineToHaddock _opts (Link txt (src, _)) = do
+ let linktext = text $ escapeString $ stringify txt
let useAuto = isURI src &&
case txt of
[Str s] | escapeURI s == src -> True