@@ -1,6 +1,5 @@
11{-# OPTIONS_GHC -Wno-orphans #-}
22{-# LANGUAGE CPP #-}
3−
43module Text.Email.Extra
54 ( validateEmail
65 , emailToText
@@ -25,10 +24,6 @@ import Database.PostgreSQL.Simple.ToField as PG
2524import Control.Monad
2625import Data.Aeson
2726#endif
28−#ifdef SCHEMA
29−import Data.OpenApi
30−import Data.Proxy
31−#endif
3227
3328-- | Validate that the domain part in this email address is
3429-- in fact a domain name.
@@ -110,11 +105,3 @@ instance ToJSON EmailAddress where
110105instance FromJSON EmailAddress where
111106 parseJSON = parseJSON >=> either fail pure . validateEmail . Text.encodeUtf8
112107#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