aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-07-15 16:49:48 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-07-15 16:49:48 -0700
commit897c52880f877e1ed52d94dbb46a83bedd240497 (patch)
treed36cb0c857705589a357b2a84ff418d03ff7e837 /src/Text/Pandoc
parentc24ab1491808d8be98ab30ba6b3993fa075ca376 (diff)
downloadpandoc-897c52880f877e1ed52d94dbb46a83bedd240497.tar.gz
HTML writer: Removed useless clause.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs4
1 files changed, 0 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 744e88c16..3f4c19b67 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -725,10 +725,6 @@ inlineToHtml opts inline =
_ -> return mempty
| f == Format "html" -> return $ preEscapedString str
| otherwise -> return mempty
- (Link [Str str] (s,_)) | "mailto:" `isPrefixOf` s &&
- s == escapeURI ("mailto" ++ str) ->
- -- autolink
- return $ obfuscateLink opts str s
(Link txt (s,_)) | "mailto:" `isPrefixOf` s -> do
linkText <- inlineListToHtml opts txt
return $ obfuscateLink opts (renderHtml linkText) s