git.iko.soy/typeable/email-validate-extra
on 688f5cc help sign in
7032ea1
swap
0 ahead, 3 behind
email-validate-extra.cabal+3−11
since splitsnapshots
unifiedsplit
@@ -9,23 +9,18 @@ build-type: Simple
9Flag postgres
9Flag postgres
10 Description: Add Postgresql instances to EmailAddress
10 Description: Add Postgresql instances to EmailAddress
11 Default: False
11 Default: False
12− Manual: False
12+ Manual: True
13
13
14Flag aeson
14Flag aeson
15 Description: Add JSON instances to EmailAddress
15 Description: Add JSON instances to EmailAddress
16− Default: True
17− Manual: False
18−
19−Flag schema
20− Description: Add openapi3 instances to EmailAddress
21 Default: False
16 Default: False
22− Manual: False
17+ Manual: True
23
18
24Flag arbitrary
19Flag arbitrary
25 Description: Add Arbitrary instances to EmailAddress
20 Description: Add Arbitrary instances to EmailAddress
26 Default: True
21 Default: True
27 -- for backward compatibility ^
22 -- for backward compatibility ^
28− Manual: False
23+ Manual: True
29
24
30library
25library
31 hs-source-dirs: src
26 hs-source-dirs: src
@@ -46,9 +41,6 @@ library
46 if flag(aeson)
41 if flag(aeson)
47 build-depends: aeson
42 build-depends: aeson
48 cpp-options: -DAESON
43 cpp-options: -DAESON
49− if flag(schema)
50− build-depends: openapi3
51− cpp-options: -DSCHEMA
52
44
53 exposed-modules: Text.Email.Extra
45 exposed-modules: Text.Email.Extra
54
46
src/Text/Email/Extra.hs−13
@@ -1,6 +1,5 @@
1{-# OPTIONS_GHC -Wno-orphans #-}
1{-# OPTIONS_GHC -Wno-orphans #-}
2{-# LANGUAGE CPP #-}
2{-# LANGUAGE CPP #-}
3−
4module Text.Email.Extra
3module Text.Email.Extra
5 ( validateEmail
4 ( validateEmail
6 , emailToText
5 , emailToText
@@ -25,10 +24,6 @@ import Database.PostgreSQL.Simple.ToField as PG
25import Control.Monad
24import Control.Monad
26import Data.Aeson
25import Data.Aeson
27#endif
26#endif
28−#ifdef SCHEMA
29−import Data.OpenApi
30−import Data.Proxy
31−#endif
32
27
33-- | Validate that the domain part in this email address is
28-- | Validate that the domain part in this email address is
34-- in fact a domain name.
29-- in fact a domain name.
@@ -110,11 +105,3 @@ instance ToJSON EmailAddress where
110instance FromJSON EmailAddress where
105instance FromJSON EmailAddress where
111 parseJSON = parseJSON >=> either fail pure . validateEmail . Text.encodeUtf8
106 parseJSON = parseJSON >=> either fail pure . validateEmail . Text.encodeUtf8
112#endif
107#endif
113−
114−#ifdef SCHEMA
115−instance ToSchema EmailAddress where
116− declareNamedSchema _ = declareNamedSchema (Proxy :: Proxy Text)
117−
118−instance ToParamSchema EmailAddress where
119− toParamSchema _ = toParamSchema (Proxy :: Proxy Text)
120−#endif