diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-01-31 20:42:49 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-31 20:42:49 -0800 |
commit | e898f0abef48a79d5bf64a8c17cdf94cf8f1b258 (patch) | |
tree | 6dd345d1496cf8916c82d473d5f33ec301b77ff0 /src/Text | |
parent | f282b462bb81b271604c533ea176a1e6fde52b12 (diff) | |
download | pandoc-e898f0abef48a79d5bf64a8c17cdf94cf8f1b258.tar.gz |
Improved fix to markdown noteBlock parser.
The last patch did not handle cases with > 4 spaces.
Also added a more general test case.
Diffstat (limited to 'src/Text')
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 6a9753987..2bfb742bd 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -264,7 +264,7 @@ noteBlock = try $ do optional blankline optional indentSpaces raw <- sepBy rawLines (try (blankline >> indentSpaces >> - notFollowedBy newline)) + notFollowedBy blankline)) optional blanklines endPos <- getPosition let newnote = (ref, (intercalate "\n" raw) ++ "\n\n") |