diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index c2ff303..8beec43 100644
--- 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)