allow footnotes followed by newline without space chars
commit724de8314c15462ec3eda23df063fe36ccbc9184
authortakahashim <maki@rubycolor.org>
dateTue 23 Aug 2011, 09:56 (15 years ago)
parent24095e0
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