Data.IMF.Text (address) can't parse non-ascii characters

[romanofski]

Looking into purebred-mua/purebred#515 I've thought of using Data.IMF.Text for the mutt alias parsing. However I think it can't handle non-ascii characters in the display name.

The current definition is

phrase :: Parser T.Text
phrase = foldMany1Sep (singleton ' ') word

while word is defined as:

isAtext :: IsChar c => c -> Bool
isAtext = AText.inClass "-A-Za-z0-9!#$%&'*+/=?^_`{|}~" . toChar

atext :: CharParsing f s a => (f s) a
atext = satisfy isAtext

atom :: (Alternative (f s), CharParsing f s a, SM s) => (f s) s
atom = optionalCFWS *> foldMany1 (singleton . toChar <$> atext) <* optionalCFWS

word :: (Alternative (f s), CharParsing f s a, SM s) => (f s) s
word = atom <|> quotedString

which would fail for non-ASCII characters. A round trip fails:

parseOnly address $ renderAddress $ Single $ Mailbox (Just "Füh") (AddrSpec "f" (DomainDotAtom $ pure "example.test"))