From b69e34f8230e710e810746cb8c5c8eb3cb1982bf Mon Sep 17 00:00:00 2001
From: Rockingcool <aadhavan@twomorecents.org>
Date: Tue, 20 May 2025 12:20:10 -0500
Subject: [PATCH] Parse a single character as a unit

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

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 18cd2a9..cba3704 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -220,6 +220,12 @@ parseEscapedChar = do
   escapedChar <- choice (map char specialChars) -- Parse any of the special chars.
   return (Unit [escapedChar])
 
+-- Parse a character as a Unit.
+parseUnit :: ReadP MdToken
+parseUnit = do
+  text <- satisfy (`notElem` specialChars)
+  return (Unit [text])
+
 -- Parse a regular string as a Unit.
 parseString :: ReadP MdToken
 parseString = do