diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 8cf4d59..6b708b0 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -306,14 +306,7 @@ parseUListLineItem = do
   nestedList <- parseListNested <++ return (Unit "")
   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
--- lines indented by a space or tab.
 parseUListParaItem :: ReadP MdToken
 parseUListParaItem = do
   firstLine <- parseUListLineItem