Markdown reader: small efficiency improvement.

Switched `notFollewdBy' rawHtmlBlocks` ->
`notFollowedBy' (htmlTag isBlockTag)`, which is more
efficient.
This commit is contained in:
John MacFarlane
2014-02-26 22:24:50 -08:00
parent 69f7b1dbf3
commit 581075a0ca
+1 -1
View File
@@ -1384,7 +1384,7 @@ ltSign :: MarkdownParser (F Inlines)
ltSign = do
guardDisabled Ext_raw_html
<|> guardDisabled Ext_markdown_in_html_blocks
<|> (notFollowedBy' rawHtmlBlocks >> return ())
<|> (notFollowedBy' (htmlTag isBlockTag) >> return ())
char '<'
return $ return $ B.str "<"