Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Merge branch 'master' into citeproc

Browse source
This commit is contained in:
John MacFarlane 2010-11-28 20:21:07 -08:00
commit 4c21c5566d
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Readers/Markdown.hs
View file

@ -320,6 +320,9 @@ atxClosing = try $ skipMany (char '#') >> blanklines
setextHeader :: GenParser Char ParserState Block setextHeader :: GenParser Char ParserState Block
setextHeader = try $ do setextHeader = try $ do
-- This lookahead prevents us from wasting time parsing Inlines
-- unless necessary -- it gives a significant performance boost.
lookAhead $ anyLine >> many1 (oneOf setextHChars) >> blankline
text <- many1Till inline newline text <- many1Till inline newline
underlineChar <- oneOf setextHChars underlineChar <- oneOf setextHChars
many (char underlineChar) many (char underlineChar)