From 724de8314c15462ec3eda23df063fe36ccbc9184 Mon Sep 17 00:00:00 2001 From: takahashim Date: Tue, 23 Aug 2011 09:56:58 +0900 Subject: allow footnotes followed by newline without space chars --- src/Text/Pandoc/Readers/RST.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index 7fda0da19..49ddb90fc 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -526,8 +526,8 @@ noteBlock = try $ do string ".." spaceChar >> skipMany spaceChar ref <- noteMarker - spaceChar >> skipMany spaceChar - first <- anyLine + first <- (spaceChar >> skipMany spaceChar >> anyLine) + <|> (newline >> return "") blanks <- option "" blanklines rest <- option "" indentedBlock endPos <- getPosition -- cgit v1.2.3