Define a parser for list line tokens, update line token parser

2 weeks ago · 11a3b14cb1
parent 58d3142855
commit 11a3b14cb1
1 changed files with 5 additions and 1 deletions
--- 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