From a8793b5adb1ffb0def08a23599fea4925b497cd4 Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Tue, 20 May 2025 16:47:16 -0400
Subject: [PATCH] Remove obsolete comments

---
 src/MdToHTML.hs | 7 -------
 1 file changed, 7 deletions(-)

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