diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index ad39e08..68afebb 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -87,17 +87,6 @@ leftmostLongestParse parser input =
         Nothing -> (mempty, mempty)
         Just x -> x
 
--- Parse if the string that's left matches the string comparator function
-lookaheadParse :: (String -> Bool) -> ReadP Char
-lookaheadParse stringCmp = do
-  lookahead <- look
-  case stringCmp lookahead of
-    True -> get
-    False -> pfail
-
-lineToList :: MdToken -> [MdToken]
-lineToList (Line tokens) = tokens
-
 specialChars = "\\#*_[\n"
 
 -- Makes a parser greedy. Instead of returning all possible parses, only the longest one is returned.