From 606b5e8ed4d2e9bbf2bc3eb36c7328c07adaa820 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 27 Sep 2012 15:01:00 -0700 Subject: Removed Ext_monospace_autolinks. --- src/Text/Pandoc/Readers/Markdown.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 6f4e5672e..9512328ea 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1476,18 +1476,14 @@ bareURL :: Parser [Char] ParserState (F Inlines) bareURL = try $ do guardEnabled Ext_autolink_urls (orig, src) <- uri <|> emailAddress - (guardEnabled Ext_monospace_autolinks >> - return (return $ B.link src "" (B.codeWith ("",["url"],[]) orig))) - <|> return (return $ B.link src "" (B.str orig)) + return $ return $ B.link src "" (B.codeWith ("",["url"],[]) orig) autoLink :: Parser [Char] ParserState (F Inlines) autoLink = try $ do char '<' (orig, src) <- uri <|> emailAddress char '>' - (guardEnabled Ext_monospace_autolinks >> - return (return $ B.link src "" (B.codeWith ("",["url"],[]) orig))) - <|> return (return $ B.link src "" (B.str orig)) + return $ return $ B.link src "" (B.codeWith ("",["url"],[]) orig) image :: Parser [Char] ParserState (F Inlines) image = try $ do -- cgit v1.2.3