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

A list can contain a blockquote as well.

Browse Source
This commit is contained in:
Aadhavan Srinivasan
2025-05-20 16:47:04 -04:00
parent cdca6ea95e
commit eecec764ad
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/MdToHTML.hs
View File

@@ -335,7 +335,7 @@ parseListParaItemCommon :: ReadP [MdToken]
parseListParaItemCommon = do parseListParaItemCommon = do
char '\n' char '\n'
lines <- greedyParse1 ((string " " <|> string "\t") *> parseTillEol) lines <- greedyParse1 ((string " " <|> string "\t") *> parseTillEol)
let res = fst $ leftmostLongestParse (greedyParse1 parsePara) (init $ unlines lines) let res = fst $ leftmostLongestParse (greedyParse1 parseBlockquote <++ greedyParse1 parsePara) (init $ unlines lines)
char '\n' char '\n'
return res -- I only wrap this in a document because I want some way of converting [MdToken] to MdToken, without any overhead. There is no other reason to wrap it in a Document. return res -- I only wrap this in a document because I want some way of converting [MdToken] to MdToken, without any overhead. There is no other reason to wrap it in a Document.