解析电子邮件地址的Haskell函数

Question

是否有Haskell函数以标准格式解析电子邮件地址？例如：

parseEmailAddress "Jon Doe<jon.doe@mail.com>"

会返回这样的东西：

Address (Just "Jon Doe") "jon.doe@mail.com"

我在mime-mail包中找不到这样的函数。

Answer 1

像这样的东西会起作用吗？

parseEmailAddress xs =
  case break (== '<') of
    (mail, "") -> Address Nothing mail
    (name, mail) -> Address (Just name) (init (tail mail))

这假定名称不包括<字符。