diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs index 9fb6613..b0f39af 100644 --- a/src/MdToHTML.hs +++ b/src/MdToHTML.hs @@ -262,7 +262,11 @@ allParsers = parseHeader : lineParsers -- Parse any of the line tokens. parseLineToken :: ReadP MdToken -parseLineToken = choice lineParsers +parseLineToken = fallthroughParser lineParsers + +-- Parse any of the list line tokens. +parseListLineToken :: ReadP MdToken +parseListLineToken = fallthroughParser listLineParsers -- Parse a line, consisting of one or more tokens. parseLine :: ReadP MdToken