aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authortakahashim <maki@rubycolor.org>2011-08-23 09:56:58 +0900
committertakahashim <maki@rubycolor.org>2011-08-23 09:56:58 +0900
commit724de8314c15462ec3eda23df063fe36ccbc9184 (patch)
tree51d3fdd0121916235c2036fc6590df29f8bc313e /src/Text/Pandoc
parent24095e061553fcb7a524e32d2b8971ab4d12e40e (diff)
downloadpandoc-724de8314c15462ec3eda23df063fe36ccbc9184.tar.gz
allow footnotes followed by newline without space chars
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/RST.hs4
1 files changed, 2 insertions, 2 deletions
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