Baguette
/
parser
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Comment fix.

master
Philippe Pittoli 2024-01-31 05:24:16 +01:00
parent 2ef674e856
commit 43d8ae9c0b
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/GenericParser/EmailAddress.purs
View File

@ -392,11 +392,7 @@ obs_dtext = CU.singleton <$> obs_no_ws_ctl <|> quoted_pair
-- | obs-NO-WS-CTL: US-ASCII control characters without carriage return, -- | obs-NO-WS-CTL: US-ASCII control characters without carriage return,
-- | line feed and white space characters. -- | line feed and white space characters.
-- | -- |
-- | obs-NO-WS-CTL = `%d1-8 / ; US-ASCII control` -- | obs-NO-WS-CTL = `%d1-8 / %d11 / %d12 / %d14-31 / %d127`
-- | %d11 / ; characters that do not
-- | %d12 / ; include the carriage
-- | %d14-31 / ; return, line feed, and
-- | %d127 ; white space characters
obs_no_ws_ctl :: forall e. Parser e Char obs_no_ws_ctl :: forall e. Parser e Char
obs_no_ws_ctl = sat cond obs_no_ws_ctl = sat cond
where cond x = let charcode = C.toCharCode x where cond x = let charcode = C.toCharCode x