diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-12-07 19:56:54 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-12-07 19:56:54 -0800 |
| commit | 8e255fad98baf2448d8c1866d7c03c5d110a505f (patch) | |
| tree | 30ac65e802a03b528b1bf5f59d7eaf8c60bc07f3 /src/Text/Pandoc/Readers | |
| parent | e2c4156c20f113b6f965ccd9313c5aa062cc198f (diff) | |
| download | pandoc-8e255fad98baf2448d8c1866d7c03c5d110a505f.tar.gz | |
Another small performance improvement.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index a948d5ad3..e77dda8d7 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -733,9 +733,11 @@ listLine = try $ do many (spaceChar) listStart) notFollowedBy' $ htmlTag (~== TagClose "div") - chunks <- manyTill (liftM snd (htmlTag isCommentTag) - <|> many1 (satisfy (/='\n')) - <|> count 1 anyChar) newline + chunks <- manyTill + ( many1 (satisfy $ \c -> c /= '\n' && c /= '<') + <|> liftM snd (htmlTag isCommentTag) + <|> count 1 anyChar + ) newline return $ concat chunks -- parse raw text for one list item, excluding start marker and continuations |