Removed unused function

1 month ago · eb20f154a4
parent 172985131b
commit eb20f154a4
1 changed files with 0 additions and 7 deletions
--- 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,