diff options
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 8 |
1 files changed, 2 insertions, 6 deletions
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 |