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