Rockingcool/md-to-html
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Created a separate list of escapable chars

Browse Source
This commit is contained in:
Aadhavan Srinivasan
2025-05-20 22:20:05 -04:00
parent f2d54edd3f
commit 3781e67ab1
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/MdToHTML.hs
View File

@@ -88,7 +88,9 @@ leftmostLongestParse parser input =
Nothing -> (mempty, mempty) Nothing -> (mempty, mempty)
Just x -> x Just x -> x
specialChars = "\\#*_[\n" specialChars = "\\#*_[\n`"
escapableChars = '~' : specialChars
-- 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]
@@ -196,7 +198,7 @@ parseSingleNewline = do
parseEscapedChar :: ReadP MdToken parseEscapedChar :: ReadP MdToken
parseEscapedChar = do parseEscapedChar = do
char '\\' char '\\'
escapedChar <- choice (map char specialChars) -- Parse any of the special chars. escapedChar <- choice (map char escapableChars) -- Parse any of the special chars.
return (Unit [escapedChar]) return (Unit [escapedChar])
-- Parse a character as a Unit. -- Parse a character as a Unit.