|
|
@ -98,7 +98,7 @@ lookaheadParse stringCmp = do
|
|
|
|
lineToList :: MdToken -> [MdToken]
|
|
|
|
lineToList :: MdToken -> [MdToken]
|
|
|
|
lineToList (Line tokens) = tokens
|
|
|
|
lineToList (Line tokens) = tokens
|
|
|
|
|
|
|
|
|
|
|
|
specialChars = "\\#*_[\n "
|
|
|
|
specialChars = "\\#*_[\n"
|
|
|
|
|
|
|
|
|
|
|
|
-- Makes a parser greedy. Instead of returning all possible parses, only the longest one is returned.
|
|
|
|
-- Makes a parser greedy. Instead of returning all possible parses, only the longest one is returned.
|
|
|
|
greedyParse :: ReadP a -> ReadP [a]
|
|
|
|
greedyParse :: ReadP a -> ReadP [a]
|
|
|
|