aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-08-12 15:49:20 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-08-12 15:49:20 -0700
commitda507dcb84eb16629fdb1b65439557772c7214f8 (patch)
tree94026c572f546391f8f2f0d7aee8429f8a0e6afd
parent60cf6e1dae25f90151e9683bd53fe8f9e5f120ad (diff)
downloadpandoc-da507dcb84eb16629fdb1b65439557772c7214f8.tar.gz
ConTeXt writer: improved autolink detection.
It previously failed in some cases with escaped special characters.
-rw-r--r--src/Text/Pandoc/Writers/ConTeXt.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs
index 3b321cc19..bbca7f858 100644
--- a/src/Text/Pandoc/Writers/ConTeXt.hs
+++ b/src/Text/Pandoc/Writers/ConTeXt.hs
@@ -297,7 +297,7 @@ inlineToConTeXt (Link txt (('#' : ref), _)) = do
<> brackets (text ref)
inlineToConTeXt (Link txt (src, _)) = do
- let isAutolink = txt == [Str src]
+ let isAutolink = txt == [Str (unEscapeString src)]
st <- get
let next = stNextRef st
put $ st {stNextRef = next + 1}