@@ -327,8 +327,8 @@ inlineToHaddock _ (RawInline f str)
327inlineToHaddock _ (LineBreak) = return cr
327inlineToHaddock _ (LineBreak) = return cr
328inlineToHaddock _ Space = return space
328inlineToHaddock _ Space = return space
329inlineToHaddock opts (Cite _ lst) = inlineListToHaddock opts lst
329inlineToHaddock opts (Cite _ lst) = inlineListToHaddock opts lst
330−inlineToHaddock opts (Link txt (src, _)) = do
330+inlineToHaddock _opts (Link txt (src, _)) = do
331− linktext <- inlineListToHaddock opts txt
331+ let linktext = text $ escapeString $ stringify txt
332 let useAuto = isURI src &&
332 let useAuto = isURI src &&
333 case txt of
333 case txt of
334 [Str s] | escapeURI s == src -> True
334 [Str s] | escapeURI s == src -> True