Rockingcool/md-to-html
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
line
This commit is contained in:
Aadhavan Srinivasan
2025-05-09 23:12:12 -05:00
parent 4f23592aeb
commit 549504d650
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/MdToHTML.hs
View File

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