From bc05dede06c9b921ab408ad3065227a64360efae Mon Sep 17 00:00:00 2001
From: Rockingcool <aadhavan@twomorecents.org>
Date: Tue, 20 May 2025 12:20:35 -0500
Subject: [PATCH] Create a list of parsers that are used for list line items.

---
 src/MdToHTML.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index cba3704..f45df8e 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -245,6 +245,17 @@ lineParsers =
     parseString
   ] -- A 'line' doesn't include a 'header'
 
+listLineParsers :: [ReadP MdToken]
+listLineParsers =
+  [ parseLinebreak,
+    parseEscapedChar,
+    parseBold,
+    parseItalic,
+    parseStrikethrough,
+    parseLink,
+    parseUnit
+  ] -- A list line cannot contain newlines.
+
 -- List of all parsers
 allParsers :: [ReadP MdToken]
 allParsers = parseHeader : lineParsers