addr :: Text -> Address
addr email = Address { addressName = Nothing, addressEmail = email }
addr :: Text -> Address
addr email = Address { addressName = Nothing, addressEmail = email }
addr email = Address { addressName = Nothing, addressEmail = email }