diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-01-31 20:05:11 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-31 20:05:11 -0800 |
commit | f282b462bb81b271604c533ea176a1e6fde52b12 (patch) | |
tree | 990e9f5abe4cd8d17726317b4c4a03814cf94eef /src/Text/Pandoc/Readers/Markdown.hs | |
parent | 21e56042c82115c7e82955d2085315a463eccdc9 (diff) | |
download | pandoc-f282b462bb81b271604c533ea176a1e6fde52b12.tar.gz |
Markdown reader: Fixed whitespace footnote bug (Jesse Rosenthal).
The problem was in input like this:
[^1]: note
not in note.
Also added a test case for this.
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 58d2158bf..6a9753987 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -263,7 +263,8 @@ noteBlock = try $ do char ':' optional blankline optional indentSpaces - raw <- sepBy rawLines (try (blankline >> indentSpaces)) + raw <- sepBy rawLines (try (blankline >> indentSpaces >> + notFollowedBy newline)) optional blanklines endPos <- getPosition let newnote = (ref, (intercalate "\n" raw) ++ "\n\n") |