From 6b99a1835d2c819bba554073d839fee17a6a6879 Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Tue, 10 Jun 2025 09:12:42 -0400
Subject: [PATCH] Created a separate parser list for all parsers (except the
 unit parser is replaced with the non-newline unit parser); use that parser
 when parsing list lines

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

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 4695e32..783cc45 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -298,17 +298,16 @@ lineParsers =
     parseUnit
   ] -- A 'line' doesn't include a 'header'
 
-listLineParsers :: [Parser MdToken]
-listLineParsers =
-  [ parseLinebreak,
-    parseEscapedChar,
+lineParsersWithoutNewline :: [Parser MdToken]
+lineParsersWithoutNewline =
+  [ parseEscapedChar,
     parseCode,
     parseImage,
     parseBold,
     parseItalic,
     parseStrikethrough,
     parseLink,
-    parseUnit
+    parseUnitExceptNewline
   ] -- A list line cannot contain newlines.
 
 -- List of all parsers
@@ -321,7 +320,7 @@ parseLineToken = fallthroughParser lineParsers
 
 -- Parse any of the list line tokens.
 parseListLineToken :: Parser MdToken
-parseListLineToken = fallthroughParser listLineParsers
+parseListLineToken = fallthroughParser lineParsersWithoutNewline
 
 -- Parse a line, consisting of one or more tokens.
 parseLine :: Parser MdToken