Removed unecessary function

2 months ago · 873795e267
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)