846be80 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Markdown reader: Performance improvement in str parser.

846be80John MacFarlane14 years ago

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

@@ -1422,11 +1422,14 @@ nonEndline = satisfy (/='\n')

1422

1423str :: MarkdownParser (F Inlines)

1424str = do

1425− isSmart <- readerSmart . stateOptions <$> getState

1425+ isSmart <- getOption readerSmart

1426+ intrawordUnderscores <- option False $

1427+ True <$ guardEnabled Ext_intraword_underscores

1426 a <- alphaNum

1428 a <- alphaNum

1427 as <- many $ alphaNum

1429 as <- many $ alphaNum

1428− <|> (guardEnabled Ext_intraword_underscores >>

1430+ <|> (if intrawordUnderscores

1429− try (char '_' >>~ lookAhead alphaNum))

1431+ then try (char '_' >>~ lookAhead alphaNum)

1432+ else mzero)

1430 <|> if isSmart

1433 <|> if isSmart

1431 then (try $ satisfy (\c -> c == '\'' || c == '\x2019') >>

1434 then (try $ satisfy (\c -> c == '\'' || c == '\x2019') >>

1432 lookAhead alphaNum >> return '\x2019')

1435 lookAhead alphaNum >> return '\x2019')