{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Route53Domains.ResendContactReachabilityEmail
(
ResendContactReachabilityEmail (..),
newResendContactReachabilityEmail,
resendContactReachabilityEmail_domainName,
ResendContactReachabilityEmailResponse (..),
newResendContactReachabilityEmailResponse,
resendContactReachabilityEmailResponse_domainName,
resendContactReachabilityEmailResponse_emailAddress,
resendContactReachabilityEmailResponse_isAlreadyVerified,
resendContactReachabilityEmailResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.Route53Domains.Types
data ResendContactReachabilityEmail = ResendContactReachabilityEmail'
{
ResendContactReachabilityEmail -> Maybe Text
domainName :: Prelude.Maybe Prelude.Text
}
deriving (ResendContactReachabilityEmail
-> ResendContactReachabilityEmail -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ResendContactReachabilityEmail
-> ResendContactReachabilityEmail -> Bool
$c/= :: ResendContactReachabilityEmail
-> ResendContactReachabilityEmail -> Bool
== :: ResendContactReachabilityEmail
-> ResendContactReachabilityEmail -> Bool
$c== :: ResendContactReachabilityEmail
-> ResendContactReachabilityEmail -> Bool
Prelude.Eq, ReadPrec [ResendContactReachabilityEmail]
ReadPrec ResendContactReachabilityEmail
Int -> ReadS ResendContactReachabilityEmail
ReadS [ResendContactReachabilityEmail]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ResendContactReachabilityEmail]
$creadListPrec :: ReadPrec [ResendContactReachabilityEmail]
readPrec :: ReadPrec ResendContactReachabilityEmail
$creadPrec :: ReadPrec ResendContactReachabilityEmail
readList :: ReadS [ResendContactReachabilityEmail]
$creadList :: ReadS [ResendContactReachabilityEmail]
readsPrec :: Int -> ReadS ResendContactReachabilityEmail
$creadsPrec :: Int -> ReadS ResendContactReachabilityEmail
Prelude.Read, Int -> ResendContactReachabilityEmail -> ShowS
[ResendContactReachabilityEmail] -> ShowS
ResendContactReachabilityEmail -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ResendContactReachabilityEmail] -> ShowS
$cshowList :: [ResendContactReachabilityEmail] -> ShowS
show :: ResendContactReachabilityEmail -> String
$cshow :: ResendContactReachabilityEmail -> String
showsPrec :: Int -> ResendContactReachabilityEmail -> ShowS
$cshowsPrec :: Int -> ResendContactReachabilityEmail -> ShowS
Prelude.Show, forall x.
Rep ResendContactReachabilityEmail x
-> ResendContactReachabilityEmail
forall x.
ResendContactReachabilityEmail
-> Rep ResendContactReachabilityEmail x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ResendContactReachabilityEmail x
-> ResendContactReachabilityEmail
$cfrom :: forall x.
ResendContactReachabilityEmail
-> Rep ResendContactReachabilityEmail x
Prelude.Generic)
newResendContactReachabilityEmail ::
ResendContactReachabilityEmail
newResendContactReachabilityEmail :: ResendContactReachabilityEmail
newResendContactReachabilityEmail =
ResendContactReachabilityEmail'
{ $sel:domainName:ResendContactReachabilityEmail' :: Maybe Text
domainName =
forall a. Maybe a
Prelude.Nothing
}
resendContactReachabilityEmail_domainName :: Lens.Lens' ResendContactReachabilityEmail (Prelude.Maybe Prelude.Text)
resendContactReachabilityEmail_domainName :: Lens' ResendContactReachabilityEmail (Maybe Text)
resendContactReachabilityEmail_domainName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ResendContactReachabilityEmail' {Maybe Text
domainName :: Maybe Text
$sel:domainName:ResendContactReachabilityEmail' :: ResendContactReachabilityEmail -> Maybe Text
domainName} -> Maybe Text
domainName) (\s :: ResendContactReachabilityEmail
s@ResendContactReachabilityEmail' {} Maybe Text
a -> ResendContactReachabilityEmail
s {$sel:domainName:ResendContactReachabilityEmail' :: Maybe Text
domainName = Maybe Text
a} :: ResendContactReachabilityEmail)
instance
Core.AWSRequest
ResendContactReachabilityEmail
where
type
AWSResponse ResendContactReachabilityEmail =
ResendContactReachabilityEmailResponse
request :: (Service -> Service)
-> ResendContactReachabilityEmail
-> Request ResendContactReachabilityEmail
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ResendContactReachabilityEmail
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse ResendContactReachabilityEmail)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe Text
-> Maybe Bool
-> Int
-> ResendContactReachabilityEmailResponse
ResendContactReachabilityEmailResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"domainName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"emailAddress")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"isAlreadyVerified")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
ResendContactReachabilityEmail
where
hashWithSalt :: Int -> ResendContactReachabilityEmail -> Int
hashWithSalt
Int
_salt
ResendContactReachabilityEmail' {Maybe Text
domainName :: Maybe Text
$sel:domainName:ResendContactReachabilityEmail' :: ResendContactReachabilityEmail -> Maybe Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
domainName
instance
Prelude.NFData
ResendContactReachabilityEmail
where
rnf :: ResendContactReachabilityEmail -> ()
rnf ResendContactReachabilityEmail' {Maybe Text
domainName :: Maybe Text
$sel:domainName:ResendContactReachabilityEmail' :: ResendContactReachabilityEmail -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
domainName
instance
Data.ToHeaders
ResendContactReachabilityEmail
where
toHeaders :: ResendContactReachabilityEmail -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"Route53Domains_v20140515.ResendContactReachabilityEmail" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ResendContactReachabilityEmail where
toJSON :: ResendContactReachabilityEmail -> Value
toJSON ResendContactReachabilityEmail' {Maybe Text
domainName :: Maybe Text
$sel:domainName:ResendContactReachabilityEmail' :: ResendContactReachabilityEmail -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[(Key
"domainName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
domainName]
)
instance Data.ToPath ResendContactReachabilityEmail where
toPath :: ResendContactReachabilityEmail -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ResendContactReachabilityEmail where
toQuery :: ResendContactReachabilityEmail -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ResendContactReachabilityEmailResponse = ResendContactReachabilityEmailResponse'
{
ResendContactReachabilityEmailResponse -> Maybe Text
domainName :: Prelude.Maybe Prelude.Text,
ResendContactReachabilityEmailResponse -> Maybe Text
emailAddress :: Prelude.Maybe Prelude.Text,
ResendContactReachabilityEmailResponse -> Maybe Bool
isAlreadyVerified :: Prelude.Maybe Prelude.Bool,
ResendContactReachabilityEmailResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ResendContactReachabilityEmailResponse
-> ResendContactReachabilityEmailResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ResendContactReachabilityEmailResponse
-> ResendContactReachabilityEmailResponse -> Bool
$c/= :: ResendContactReachabilityEmailResponse
-> ResendContactReachabilityEmailResponse -> Bool
== :: ResendContactReachabilityEmailResponse
-> ResendContactReachabilityEmailResponse -> Bool
$c== :: ResendContactReachabilityEmailResponse
-> ResendContactReachabilityEmailResponse -> Bool
Prelude.Eq, ReadPrec [ResendContactReachabilityEmailResponse]
ReadPrec ResendContactReachabilityEmailResponse
Int -> ReadS ResendContactReachabilityEmailResponse
ReadS [ResendContactReachabilityEmailResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ResendContactReachabilityEmailResponse]
$creadListPrec :: ReadPrec [ResendContactReachabilityEmailResponse]
readPrec :: ReadPrec ResendContactReachabilityEmailResponse
$creadPrec :: ReadPrec ResendContactReachabilityEmailResponse
readList :: ReadS [ResendContactReachabilityEmailResponse]
$creadList :: ReadS [ResendContactReachabilityEmailResponse]
readsPrec :: Int -> ReadS ResendContactReachabilityEmailResponse
$creadsPrec :: Int -> ReadS ResendContactReachabilityEmailResponse
Prelude.Read, Int -> ResendContactReachabilityEmailResponse -> ShowS
[ResendContactReachabilityEmailResponse] -> ShowS
ResendContactReachabilityEmailResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ResendContactReachabilityEmailResponse] -> ShowS
$cshowList :: [ResendContactReachabilityEmailResponse] -> ShowS
show :: ResendContactReachabilityEmailResponse -> String
$cshow :: ResendContactReachabilityEmailResponse -> String
showsPrec :: Int -> ResendContactReachabilityEmailResponse -> ShowS
$cshowsPrec :: Int -> ResendContactReachabilityEmailResponse -> ShowS
Prelude.Show, forall x.
Rep ResendContactReachabilityEmailResponse x
-> ResendContactReachabilityEmailResponse
forall x.
ResendContactReachabilityEmailResponse
-> Rep ResendContactReachabilityEmailResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ResendContactReachabilityEmailResponse x
-> ResendContactReachabilityEmailResponse
$cfrom :: forall x.
ResendContactReachabilityEmailResponse
-> Rep ResendContactReachabilityEmailResponse x
Prelude.Generic)
newResendContactReachabilityEmailResponse ::
Prelude.Int ->
ResendContactReachabilityEmailResponse
newResendContactReachabilityEmailResponse :: Int -> ResendContactReachabilityEmailResponse
newResendContactReachabilityEmailResponse
Int
pHttpStatus_ =
ResendContactReachabilityEmailResponse'
{ $sel:domainName:ResendContactReachabilityEmailResponse' :: Maybe Text
domainName =
forall a. Maybe a
Prelude.Nothing,
$sel:emailAddress:ResendContactReachabilityEmailResponse' :: Maybe Text
emailAddress = forall a. Maybe a
Prelude.Nothing,
$sel:isAlreadyVerified:ResendContactReachabilityEmailResponse' :: Maybe Bool
isAlreadyVerified = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ResendContactReachabilityEmailResponse' :: Int
httpStatus = Int
pHttpStatus_
}
resendContactReachabilityEmailResponse_domainName :: Lens.Lens' ResendContactReachabilityEmailResponse (Prelude.Maybe Prelude.Text)
resendContactReachabilityEmailResponse_domainName :: Lens' ResendContactReachabilityEmailResponse (Maybe Text)
resendContactReachabilityEmailResponse_domainName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ResendContactReachabilityEmailResponse' {Maybe Text
domainName :: Maybe Text
$sel:domainName:ResendContactReachabilityEmailResponse' :: ResendContactReachabilityEmailResponse -> Maybe Text
domainName} -> Maybe Text
domainName) (\s :: ResendContactReachabilityEmailResponse
s@ResendContactReachabilityEmailResponse' {} Maybe Text
a -> ResendContactReachabilityEmailResponse
s {$sel:domainName:ResendContactReachabilityEmailResponse' :: Maybe Text
domainName = Maybe Text
a} :: ResendContactReachabilityEmailResponse)
resendContactReachabilityEmailResponse_emailAddress :: Lens.Lens' ResendContactReachabilityEmailResponse (Prelude.Maybe Prelude.Text)
resendContactReachabilityEmailResponse_emailAddress :: Lens' ResendContactReachabilityEmailResponse (Maybe Text)
resendContactReachabilityEmailResponse_emailAddress = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ResendContactReachabilityEmailResponse' {Maybe Text
emailAddress :: Maybe Text
$sel:emailAddress:ResendContactReachabilityEmailResponse' :: ResendContactReachabilityEmailResponse -> Maybe Text
emailAddress} -> Maybe Text
emailAddress) (\s :: ResendContactReachabilityEmailResponse
s@ResendContactReachabilityEmailResponse' {} Maybe Text
a -> ResendContactReachabilityEmailResponse
s {$sel:emailAddress:ResendContactReachabilityEmailResponse' :: Maybe Text
emailAddress = Maybe Text
a} :: ResendContactReachabilityEmailResponse)
resendContactReachabilityEmailResponse_isAlreadyVerified :: Lens.Lens' ResendContactReachabilityEmailResponse (Prelude.Maybe Prelude.Bool)
resendContactReachabilityEmailResponse_isAlreadyVerified :: Lens' ResendContactReachabilityEmailResponse (Maybe Bool)
resendContactReachabilityEmailResponse_isAlreadyVerified = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ResendContactReachabilityEmailResponse' {Maybe Bool
isAlreadyVerified :: Maybe Bool
$sel:isAlreadyVerified:ResendContactReachabilityEmailResponse' :: ResendContactReachabilityEmailResponse -> Maybe Bool
isAlreadyVerified} -> Maybe Bool
isAlreadyVerified) (\s :: ResendContactReachabilityEmailResponse
s@ResendContactReachabilityEmailResponse' {} Maybe Bool
a -> ResendContactReachabilityEmailResponse
s {$sel:isAlreadyVerified:ResendContactReachabilityEmailResponse' :: Maybe Bool
isAlreadyVerified = Maybe Bool
a} :: ResendContactReachabilityEmailResponse)
resendContactReachabilityEmailResponse_httpStatus :: Lens.Lens' ResendContactReachabilityEmailResponse Prelude.Int
resendContactReachabilityEmailResponse_httpStatus :: Lens' ResendContactReachabilityEmailResponse Int
resendContactReachabilityEmailResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ResendContactReachabilityEmailResponse' {Int
httpStatus :: Int
$sel:httpStatus:ResendContactReachabilityEmailResponse' :: ResendContactReachabilityEmailResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ResendContactReachabilityEmailResponse
s@ResendContactReachabilityEmailResponse' {} Int
a -> ResendContactReachabilityEmailResponse
s {$sel:httpStatus:ResendContactReachabilityEmailResponse' :: Int
httpStatus = Int
a} :: ResendContactReachabilityEmailResponse)
instance
Prelude.NFData
ResendContactReachabilityEmailResponse
where
rnf :: ResendContactReachabilityEmailResponse -> ()
rnf ResendContactReachabilityEmailResponse' {Int
Maybe Bool
Maybe Text
httpStatus :: Int
isAlreadyVerified :: Maybe Bool
emailAddress :: Maybe Text
domainName :: Maybe Text
$sel:httpStatus:ResendContactReachabilityEmailResponse' :: ResendContactReachabilityEmailResponse -> Int
$sel:isAlreadyVerified:ResendContactReachabilityEmailResponse' :: ResendContactReachabilityEmailResponse -> Maybe Bool
$sel:emailAddress:ResendContactReachabilityEmailResponse' :: ResendContactReachabilityEmailResponse -> Maybe Text
$sel:domainName:ResendContactReachabilityEmailResponse' :: ResendContactReachabilityEmailResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
domainName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
emailAddress
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
isAlreadyVerified
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus