Updated special and escapable characters

This commit is contained in:
2025-05-23 14:04:05 -04:00
parent ed7d2c1ef1
commit c14112d3e4

View File

@@ -88,9 +88,9 @@ leftmostLongestParse parser input =
Nothing -> (mempty, mempty)
Just x -> x
specialChars = "\\#*_[\n`"
specialChars = "\n\\`*_{}[]()<>#+|"
escapableChars = '~' : specialChars
escapableChars = "-~!." ++ specialChars
-- Makes a parser greedy. Instead of returning all possible parses, only the longest one is returned.
greedyParse :: ReadP a -> ReadP [a]