aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2011-01-31 20:42:49 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2011-01-31 20:42:49 -0800
commite898f0abef48a79d5bf64a8c17cdf94cf8f1b258 (patch)
tree6dd345d1496cf8916c82d473d5f33ec301b77ff0 /src/Text/Pandoc
parentf282b462bb81b271604c533ea176a1e6fde52b12 (diff)
downloadpandoc-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/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs2
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")