@@ -282,12 +282,8 @@ inlineToTEI opts (Link attr txt (src, _))
282282 linktext <- inlinesToTEI opts txt
283283 return $ linktext <+> char '(' <> emailLink <> char ')'
284284 | otherwise =
285− (if "#" `T.isPrefixOf` src
286− then inTags False "ref" $ ("target", T.drop 1 src)
287− : idFromAttr opts attr
288− else inTags False "ref" $ ("target", src)
289− : idFromAttr opts attr ) <$>
290− inlinesToTEI opts txt
285+ (inTags False "ref" $ ("target", src) : idFromAttr opts attr)
286+ <$> inlinesToTEI opts txt
291287inlineToTEI opts (Image attr description (src, tit)) = do
292288 let titleDoc = if T.null tit
293289 then empty