git.iko.soy/typeable/email
on master help sign in
SSO-607: change email validation method in common/email (#6430)
commit34f36f5dd76e7f1a498d04e548cd4cdbb0eba38e authorVladimir Kalnitsky <klntsky@typeable.io> dateWed 22 Sep 2021, 10:31 (5 years ago) parentb132528
2 files changed+4−2
compare with master
unifiedsplit
email.cabal+1 src/Data/Email.hs+3−2
email.cabal+1
@@ -13,6 +13,7 @@ library
1313 , aeson
1414 , bytestring
1515 , email-validate
16+ , email-validate-extra
1617 , lens >= 4.13
1718 , QuickCheck
1819 , text >= 1.2.1.3
src/Data/Email.hs+3−2
@@ -18,8 +18,9 @@ import Data.Text.Encoding (decodeUtf8)
1818import Data.Text.Lens
1919import Test.QuickCheck.Arbitrary
2020import Test.QuickCheck.Gen (elements)
21+import Text.Email.Extra (validateEmail)
2122import Text.Email.Parser
22−import Text.Email.Validate (EmailAddress, emailAddress)
23+import Text.Email.Validate (EmailAddress)
2324
2425newtype Email
2526 = Email
@@ -30,7 +31,7 @@ makePrisms ''Email
3031
3132-- | "Orphaned" prism.
3233_EmailAddress :: Prism' ByteString EmailAddress
33−_EmailAddress = prism' toByteString emailAddress
34+_EmailAddress = prism' toByteString (preview _Right . validateEmail)
3435
3536-- | Can be used like this:
3637--