diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-02-26 22:24:50 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-02-26 22:24:50 -0800 |
| commit | 581075a0ca7dcdae119e3634ff98a65e79e23256 (patch) | |
| tree | d9f8c6b12f1eb1e180651764774c0b83dc4d3187 /src/Text | |
| parent | 69f7b1dbf3423960b148d6d11ad9f25fa6cc81a9 (diff) | |
| download | pandoc-581075a0ca7dcdae119e3634ff98a65e79e23256.tar.gz | |
Markdown reader: small efficiency improvement.
Switched `notFollewdBy' rawHtmlBlocks` ->
`notFollowedBy' (htmlTag isBlockTag)`, which is more
efficient.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index c73c8f610..d74b32bed 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -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 "<" |