Removed unecessary function

2025-05-06 17:03:45 -05:00
parent 9a128407cc
commit 873795e267
1 changed files with 0 additions and 3 deletions
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -59,9 +59,6 @@ instance Show MdToken where

 -- ---------------
 -- Helpers
-mustBeHash :: ReadP Char
-mustBeHash = satisfy (\x -> x == '#')
-
 leftmostLongest :: (Foldable t) => [(a, t b)] -> (a, t b)
 leftmostLongest xs =
  let lastElem = (last xs)