diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-08-28 14:14:21 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-08-28 14:14:21 -0700 |
| commit | 2f0975bb5de0600f5297a5f5bd563cc135e6c634 (patch) | |
| tree | 9c1d1366f09c1e11c325ac8ca437634bfa6122fb /src/Text/Pandoc | |
| parent | 2c15a876d8cf1606ee4a5def9189f1deb45cb26c (diff) | |
| parent | 724de8314c15462ec3eda23df063fe36ccbc9184 (diff) | |
| download | pandoc-2f0975bb5de0600f5297a5f5bd563cc135e6c634.tar.gz | |
Merge pull request #295 from takahashim/fixfootnotes
allow footnotes followed by newline without space chars in reST
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 4 |
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 |