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

Parse a single character as a unit

Browse Source
This commit is contained in:
Aadhavan Srinivasan
2025-05-20 12:20:10 -05:00
parent 2514ecdafc
commit b69e34f823
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/MdToHTML.hs
View File

@@ -220,6 +220,12 @@ parseEscapedChar = do
escapedChar <- choice (map char specialChars) -- Parse any of the special chars. escapedChar <- choice (map char specialChars) -- Parse any of the special chars.
return (Unit [escapedChar]) return (Unit [escapedChar])
-- Parse a character as a Unit.
parseUnit :: ReadP MdToken
parseUnit = do
text <- satisfy (`notElem` specialChars)
return (Unit [text])
-- Parse a regular string as a Unit. -- Parse a regular string as a Unit.
parseString :: ReadP MdToken parseString :: ReadP MdToken
parseString = do parseString = do