From 897c52880f877e1ed52d94dbb46a83bedd240497 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 15 Jul 2014 16:49:48 -0700 Subject: HTML writer: Removed useless clause. --- src/Text/Pandoc/Writers/HTML.hs | 4 ---- 1 file changed, 4 deletions(-) (limited to 'src/Text/Pandoc/Writers') 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 -- cgit v1.2.3