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

fixingIncompleteElements
Aadhavan Srinivasan 2 weeks ago
parent 11a3b14cb1
commit 2a585d00f2

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

Loading…
Cancel
Save