From f282b462bb81b271604c533ea176a1e6fde52b12 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 31 Jan 2011 20:05:11 -0800
Subject: 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.
---
 src/Text/Pandoc/Readers/Markdown.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc')

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")
-- 
cgit v1.2.3