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

Enforce at least one space between list indicator and list text.

Browse Source
This commit is contained in:
Aadhavan Srinivasan
2025-05-20 12:22:37 -05:00
parent 11a3b14cb1
commit 2a585d00f2
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

@@ -333,6 +333,7 @@ parseUListNested = do
parseUListLineItem :: ReadP MdToken parseUListLineItem :: ReadP MdToken
parseUListLineItem = do parseUListLineItem = do
firstChar <- choice (map char ['*', '+', '-']) firstChar <- choice (map char ['*', '+', '-'])
char ' ' -- At least one space between list indicator and list text.
skipSpaces skipSpaces
restOfLine <- manyTill get (void (char '\n') <++ eof) restOfLine <- manyTill get (void (char '\n') <++ eof)
let restOfLineParsed = fst $ leftmostLongestParse parseLine restOfLine let restOfLineParsed = fst $ leftmostLongestParse parseLine restOfLine