diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 10 |
1 files changed, 7 insertions, 3 deletions
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 <google_>` 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 |