Markdown reader: small efficiency improvement.
Switched `notFollewdBy' rawHtmlBlocks` ->
`notFollowedBy' (htmlTag isBlockTag)`, which is more
efficient.
commit581075a0ca7dcdae119e3634ff98a65e79e23256
authorJohn MacFarlane <jgm@berkeley.edu>
dateWed 26 Feb 2014, 22:24 (13 years ago)
parent69f7b1d
src/Text/Pandoc/Readers/Markdown.hs+1−1
@@ -1384,7 +1384,7 @@ ltSign :: MarkdownParser (F Inlines)
13841384ltSign = do
13851385 guardDisabled Ext_raw_html
13861386 <|> guardDisabled Ext_markdown_in_html_blocks
1387− <|> (notFollowedBy' rawHtmlBlocks >> return ())
1387+ <|> (notFollowedBy' (htmlTag isBlockTag) >> return ())
13881388 char '<'
13891389 return $ return $ B.str "<"
13901390