Markdown reader: Simplified and corrected footnote block parser.

src/Tests/Readers/Markdown.hs

@@ -31,7 +31,7 @@ tests = [ testGroup "inline code"
             "[^1]\n\n[^1]: my note\n\n     \nnot in note\n"
             =?> para (note (para "my note")) +++ para "not in note"
           , "indent followed by newline and indented text" =:
-            "[^1]\n\n[^1]: my note\n\n     \n    in note\n"
+            "[^1]\n\n[^1]: my note\n     \n    in note\n"
             =?> para (note (para "my note" +++ para "in note"))
           ]
         ]

src/Text/Pandoc/Readers/Markdown.hs

@@ -245,15 +245,17 @@ noteMarker :: GenParser Char ParserState [Char]
 noteMarker = string "[^" >> many1Till (satisfy $ not . isBlank) (char ']')
 
 rawLine :: GenParser Char ParserState [Char]
-rawLine = do
+rawLine = try $ do
   notFollowedBy blankline
   notFollowedBy' $ try $ skipNonindentSpaces >> noteMarker
-  contents <- many1 nonEndline
+  optional indentSpaces
-  end <- option "" (newline >> optional indentSpaces >> return "\n") 
+  anyLine
-  return $ contents ++ end
 
 rawLines :: GenParser Char ParserState [Char]
-rawLines = many1 rawLine >>= return . concat
+rawLines = do
+  first <- anyLine
+  rest <- many rawLine
+  return $ unlines (first:rest)
 
 noteBlock :: GenParser Char ParserState [Char]
 noteBlock = try $ do
@@ -263,8 +265,9 @@ noteBlock = try $ do
   char ':'
   optional blankline
   optional indentSpaces
-  raw <- sepBy rawLines (try (blankline >> indentSpaces >> 
+  raw <- sepBy rawLines
-                                        notFollowedBy blankline))
+             (try (blankline >> indentSpaces >>
+                   notFollowedBy blankline))
   optional blanklines
   endPos <- getPosition
   let newnote = (ref, (intercalate "\n" raw) ++ "\n\n")