Consume whitespace between greater-than sign and text in a blockquote

line

src/MdToHTML.hs

@@ -212,6 +212,7 @@ parsePara = do
 parseQuotedLine :: ReadP String
 parseQuotedLine = do
   char '>'
+  greedyParse (char ' ' +++ char '\t')
   restOfLine <- munch (/= '\n')
   Text.ParserCombinators.ReadP.optional (char '\n') >> return ""
   return restOfLine