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

Declare separate variable for escaped characters.

Browse Source
This commit is contained in:
Aadhavan Srinivasan
2025-05-07 14:20:51 -05:00
parent 51728dd3a1
commit 1b821c4315
1 changed files with 3 additions and 1 deletions

4
src/MdToHTML.hs

@@ -83,6 +83,8 @@ lookaheadParse stringCmp = do
lineToList :: MdToken -> [MdToken] lineToList :: MdToken -> [MdToken]
lineToList (Line tokens) = tokens lineToList (Line tokens) = tokens
specialChars = "\\#*_[\n "
-- --------------- -- ---------------
-- Parse a markdown header, denoted by 1-6 #'s followed by some text, followed by EOL. -- Parse a markdown header, denoted by 1-6 #'s followed by some text, followed by EOL.
@@ -138,7 +140,7 @@ parseSingleNewline = do
parseString :: ReadP MdToken parseString :: ReadP MdToken
parseString = do parseString = do
firstChar <- satisfy (/= '\n') -- Must parse at least one non-newline character here firstChar <- satisfy (/= '\n') -- Must parse at least one non-newline character here
text <- munch (`notElem` "#*_[\n ") text <- munch (`notElem` specialChars)
return (Unit (firstChar : text)) return (Unit (firstChar : text))
lineParsers :: [ReadP MdToken] lineParsers :: [ReadP MdToken]