From 2a585d00f207aa45b737b1e8c82fdb26f7ef2b46 Mon Sep 17 00:00:00 2001
From: Rockingcool <aadhavan@twomorecents.org>
Date: Tue, 20 May 2025 12:22:37 -0500
Subject: [PATCH] Enforce at least one space between list indicator and list
 text.

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

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index b0f39af..f7465e7 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -333,6 +333,7 @@ parseUListNested = do
 parseUListLineItem :: ReadP MdToken
 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)
   let restOfLineParsed = fst $ leftmostLongestParse parseLine restOfLine