Merge pull request #295 from takahashim/fixfootnotes
allow footnotes followed by newline without space chars in reST
commit2f0975bb5de0600f5297a5f5bd563cc135e6c634
authorJohn MacFarlane <jgm@berkeley.edu>
dateSun 28 Aug 2011, 14:14 (15 years ago)
parent2c15a87724de83
src/Text/Pandoc/Readers/RST.hs+2−2
@@ -526,8 +526,8 @@ noteBlock = try $ do
526526 string ".."
527527 spaceChar >> skipMany spaceChar
528528 ref <- noteMarker
529− spaceChar >> skipMany spaceChar
530− first <- anyLine
529+ first <- (spaceChar >> skipMany spaceChar >> anyLine)
530+ <|> (newline >> return "")
531531 blanks <- option "" blanklines
532532 rest <- option "" indentedBlock
533533 endPos <- getPosition