|
|
|
@ -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.
|
|
|
|
|