Parse a single character as a unit
This commit is contained in:
@@ -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
|
||||||
|
Reference in New Issue
Block a user