Use the in-order parsing approach instead of the post-order one.

src/MdToHTML.hs

@@ -335,10 +335,15 @@ 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)
+  restOfLine <- many1 parseListLineToken
-  let restOfLineParsed = fst $ leftmostLongestParse parseLine restOfLine
+  void (char '\n') <++ eof
   nestedList <- parseUListNested <++ return (Unit "")
-  return $ Line [restOfLineParsed, nestedList]
+  return $ Line [Line restOfLine, nestedList]
+
+-- restOfLine <- manyTill get (void (char '\n') <++ eof)
+-- let restOfLineParsed = fst $ leftmostLongestParse parseLine restOfLine
+-- nestedList <- parseUListNested <++ return (Unit "")
+-- return $ Line [restOfLineParsed, nestedList]
 
 -- Parse an unordered list paragraph item.
 -- This is defined as a line item, followed by an empty line, followed by one or more