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

line
2025-05-09 23:12:12 -05:00
parent 4f23592aeb
commit 549504d650
1 changed files with 1 additions and 0 deletions
--- a/src/MdToHTML.hs
+++ b/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