From 18d11103f5ea8d054cb65a5226d09a991c783aa0 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 29 Sep 2019 13:01:00 -0700 Subject: RST reader: don't strip final underscore from absolute URI. Partially addresses #5763. --- src/Text/Pandoc/Readers/RST.hs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index ce7af9866..35b9ade65 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -1497,9 +1497,13 @@ explicitLink = try $ do then B.str src else label' -- `link ` is a reference link to _google! - ((src',tit),attr) <- case reverse src of - '_':xs -> lookupKey [] (toKey (reverse xs)) - _ -> return ((src, ""), nullAttr) + ((src',tit),attr) <- + if isURI src + then return ((src, ""), nullAttr) + else + case reverse src of + '_':xs -> lookupKey [] (toKey (reverse xs)) + _ -> return ((src, ""), nullAttr) return $ B.linkWith attr (escapeURI src') tit label'' citationName :: PandocMonad m => RSTParser m String -- cgit v1.2.3