diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/TEI.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Writers/TEI.hs b/src/Text/Pandoc/Writers/TEI.hs index 78f7b2cad..a592d4f86 100644 --- a/src/Text/Pandoc/Writers/TEI.hs +++ b/src/Text/Pandoc/Writers/TEI.hs @@ -282,12 +282,8 @@ inlineToTEI opts (Link attr txt (src, _)) linktext <- inlinesToTEI opts txt return $ linktext <+> char '(' <> emailLink <> char ')' | otherwise = - (if "#" `T.isPrefixOf` src - then inTags False "ref" $ ("target", T.drop 1 src) - : idFromAttr opts attr - else inTags False "ref" $ ("target", src) - : idFromAttr opts attr ) <$> - inlinesToTEI opts txt + (inTags False "ref" $ ("target", src) : idFromAttr opts attr) + <$> inlinesToTEI opts txt inlineToTEI opts (Image attr description (src, tit)) = do let titleDoc = if T.null tit then empty |