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,