emailaddress 0.1.4.0 → 0.1.5.0

raw patch · 2 files changed

+18/−1 lines, 2 filesdep +path-piecesPVP ok

version bump matches the API change (PVP)

Dependencies added: path-pieces

API changes (from Hackage documentation)

Files

• emailaddress.cabal +2/−1
• src/Text/Email/Validate/Internal.hs +16/−0

@@ -1,5 +1,5 @@ name:                emailaddress-version:             0.1.4.0+version:             0.1.5.0 synopsis:            Wrapper around email-validate library adding instances for common type classes. description:         Please see README.md homepage:            https://github.com/cdepillabout/emailaddress#readme@@ -24,6 +24,7 @@                      , email-validate >= 2                      , http-api-data >= 0.2                      , opaleye >= 0.4+                     , path-pieces >= 0.2                      , persistent >= 2                      , postgresql-simple >= 0.5                      , product-profunctors >= 0.6

@@ -45,6 +45,7 @@ import Text.Read (Read(readPrec), ReadPrec) import Web.HttpApiData     ( FromHttpApiData(parseUrlPiece), ToHttpApiData(toUrlPiece) )+import Web.PathPieces (PathPiece(fromPathPiece, toPathPiece))  import qualified "email-validate" Text.Email.Validate as EmailValidate @@ -94,6 +95,21 @@                         Left err -> fail $ "Failed to parse email address: " <> err                         Right email -> return email     {-# INLINE parseJSON #-}++-- | See 'emailAddressFromText' and 'toText'.+--+-- >>> fmap toText $ fromPathPiece "foo@gmail.com"+-- Just "foo@gmail.com"+-- >>> fmap toText $ fromPathPiece "this is not an email address"+-- Nothing+-- >>> toPathPiece $ unsafeEmailAddress "foo" "gmail.com"+-- "foo@gmail.com"+instance PathPiece EmailAddress where+    fromPathPiece :: Text -> Maybe EmailAddress+    fromPathPiece = emailAddressFromText++    toPathPiece :: EmailAddress -> Text+    toPathPiece = toText  -- | Treat 'EmailAddress' just like a 'Text' value. --