cc5afbb · typeable/pandoc

git.iko.soy/typeable/pandoc

Markdown reader: Use take1WhileP for str.

This yields a small but measurable performance improvement.

commitcc5afbb8342458dea0eb5eb2c08b11b78220b831 authorJohn MacFarlane <jgm@berkeley.edu> dateThu 14 Nov 2019, 07:58 (7 years ago) parentdb6e9de

1 file changed+3−1

unifiedsplit

src/Text/Pandoc/Readers/Markdown.hs+3−1

@@ -1728,7 +1728,9 @@ nonEndline = satisfy (/='\n')

17281728

17291729str :: PandocMonad m => MarkdownParser m (F Inlines)

17301730str = do

1731− result <- many1Char (alphaNum <|> try (char '.' <* notFollowedBy (char '.')))

1731+ result <- mconcat <$> many1

1732+ ( take1WhileP isAlphaNum

1733+ <|> "." <$ try (char '.' <* notFollowedBy (char '.')) )

17321734 updateLastStrPos

17331735 (do guardEnabled Ext_smart

17341736 abbrevs <- getOption readerAbbreviations