@@ -287,7 +287,7 @@ inlineToMan opts Space = return $ char ' '
287287inlineToMan opts (Link txt (src, _)) = do
288288 linktext <- inlineListToMan opts txt
289289 let srcSuffix = if isPrefixOf "mailto:" src then drop 7 src else src
290− return $ if txt == [Str srcSuffix]
290+ return $ if txt == [Code srcSuffix]
291291 then char '<' <> text srcSuffix <> char '>'
292292 else linktext <> text " (" <> text src <> char ')'
293293inlineToMan opts (Image alternate (source, tit)) = do