diff --git a/src/GenericParser/EmailAddress.purs b/src/GenericParser/EmailAddress.purs
index e04ea6f..220c0c5 100644
--- a/src/GenericParser/EmailAddress.purs
+++ b/src/GenericParser/EmailAddress.purs
@@ -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,
 -- | line feed and white space characters.
 -- |
--- | obs-NO-WS-CTL   =   `%d1-8 /            ; US-ASCII control`
--- |                     %d11 /             ;  characters that do not
--- |                     %d12 /             ;  include the carriage
--- |                     %d14-31 /          ;  return, line feed, and
--- |                     %d127              ;  white space characters
+-- | obs-NO-WS-CTL   =   `%d1-8 / %d11 / %d12 / %d14-31 / %d127`
 obs_no_ws_ctl :: forall e. Parser e Char
 obs_no_ws_ctl = sat cond
   where cond x = let charcode = C.toCharCode x