aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Tests/Readers/Markdown.hs11
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs2
2 files changed, 4 insertions, 9 deletions
diff --git a/src/Tests/Readers/Markdown.hs b/src/Tests/Readers/Markdown.hs
index 021ef7fa5..bfd3602e0 100644
--- a/src/Tests/Readers/Markdown.hs
+++ b/src/Tests/Readers/Markdown.hs
@@ -27,13 +27,8 @@ tests = [ testGroup "inline code"
=?> para (codeWith ("",["haskell","special"],[("x","7")]) "*")
]
, testGroup "footnotes"
- [ "indent followed by newline" =: [_LIT|
-[^1]
-
-[^1]: my note
-
-
-not in note
-|] =?> para (note (para "my note")) +++ para "not in note"
+ [ "indent followed by newline" =:
+ "[^1]\n\n[^1]: my note\n\n \nnot in note\n"
+ =?> para (note (para "my note")) +++ para "not in note"
]
]
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")