diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-11-16 20:53:01 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-11-16 20:53:01 -0800 |
| commit | 995f28ff0756ad2d3edb63ee073137b42ff6f17e (patch) | |
| tree | 902b29727958d38f7bd5a005ce4b12bee374735f | |
| parent | 469338a2721bdcbf927d2344ba012f0ca76614a5 (diff) | |
| download | pandoc-995f28ff0756ad2d3edb63ee073137b42ff6f17e.tar.gz | |
Haddock writer: omit formatting inside links.
It isn't supported by Haddock.
Closes #2515.
| -rw-r--r-- | src/Text/Pandoc/Writers/Haddock.hs | 4 |
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 |