From 549504d6505ab53ba8ce5af238de7705b891d0bc Mon Sep 17 00:00:00 2001
From: Rockingcool <aadhavan@twomorecents.org>
Date: Fri, 9 May 2025 23:12:12 -0500
Subject: [PATCH] Consume whitespace between greater-than sign and text in a
 blockquote line

---
 src/MdToHTML.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 20ac344..5e893e1 100644
--- 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