From eb20f154a408bdb5b697f44e5eb0c0c0917a6800 Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Tue, 20 May 2025 22:20:36 -0400
Subject: [PATCH] Removed unused function

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

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 1da914f..2755539 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -207,13 +207,6 @@ parseUnit = do
   text <- satisfy (`notElem` specialChars)
   return (Unit [text])
 
--- Parse a regular string as a Unit.
-parseString :: ReadP MdToken
-parseString = do
-  firstChar <- satisfy (/= '\n') -- Must parse at least one non-newline character here
-  text <- munch (`notElem` specialChars)
-  return (Unit (firstChar : text))
-
 lineParsers :: [ReadP MdToken]
 lineParsers =
   [ parseLinebreak,