{-# 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.SES.SetIdentityMailFromDomain
(
SetIdentityMailFromDomain (..),
newSetIdentityMailFromDomain,
setIdentityMailFromDomain_behaviorOnMXFailure,
setIdentityMailFromDomain_mailFromDomain,
setIdentityMailFromDomain_identity,
SetIdentityMailFromDomainResponse (..),
newSetIdentityMailFromDomainResponse,
setIdentityMailFromDomainResponse_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.SES.Types
data SetIdentityMailFromDomain = SetIdentityMailFromDomain'
{
SetIdentityMailFromDomain -> Maybe BehaviorOnMXFailure
behaviorOnMXFailure :: Prelude.Maybe BehaviorOnMXFailure,
SetIdentityMailFromDomain -> Maybe Text
mailFromDomain :: Prelude.Maybe Prelude.Text,
SetIdentityMailFromDomain -> Text
identity :: Prelude.Text
}
deriving (SetIdentityMailFromDomain -> SetIdentityMailFromDomain -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetIdentityMailFromDomain -> SetIdentityMailFromDomain -> Bool
$c/= :: SetIdentityMailFromDomain -> SetIdentityMailFromDomain -> Bool
== :: SetIdentityMailFromDomain -> SetIdentityMailFromDomain -> Bool
$c== :: SetIdentityMailFromDomain -> SetIdentityMailFromDomain -> Bool
Prelude.Eq, ReadPrec [SetIdentityMailFromDomain]
ReadPrec SetIdentityMailFromDomain
Int -> ReadS SetIdentityMailFromDomain
ReadS [SetIdentityMailFromDomain]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetIdentityMailFromDomain]
$creadListPrec :: ReadPrec [SetIdentityMailFromDomain]
readPrec :: ReadPrec SetIdentityMailFromDomain
$creadPrec :: ReadPrec SetIdentityMailFromDomain
readList :: ReadS [SetIdentityMailFromDomain]
$creadList :: ReadS [SetIdentityMailFromDomain]
readsPrec :: Int -> ReadS SetIdentityMailFromDomain
$creadsPrec :: Int -> ReadS SetIdentityMailFromDomain
Prelude.Read, Int -> SetIdentityMailFromDomain -> ShowS
[SetIdentityMailFromDomain] -> ShowS
SetIdentityMailFromDomain -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetIdentityMailFromDomain] -> ShowS
$cshowList :: [SetIdentityMailFromDomain] -> ShowS
show :: SetIdentityMailFromDomain -> String
$cshow :: SetIdentityMailFromDomain -> String
showsPrec :: Int -> SetIdentityMailFromDomain -> ShowS
$cshowsPrec :: Int -> SetIdentityMailFromDomain -> ShowS
Prelude.Show, forall x.
Rep SetIdentityMailFromDomain x -> SetIdentityMailFromDomain
forall x.
SetIdentityMailFromDomain -> Rep SetIdentityMailFromDomain x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SetIdentityMailFromDomain x -> SetIdentityMailFromDomain
$cfrom :: forall x.
SetIdentityMailFromDomain -> Rep SetIdentityMailFromDomain x
Prelude.Generic)
newSetIdentityMailFromDomain ::
Prelude.Text ->
SetIdentityMailFromDomain
newSetIdentityMailFromDomain :: Text -> SetIdentityMailFromDomain
newSetIdentityMailFromDomain Text
pIdentity_ =
SetIdentityMailFromDomain'
{ $sel:behaviorOnMXFailure:SetIdentityMailFromDomain' :: Maybe BehaviorOnMXFailure
behaviorOnMXFailure =
forall a. Maybe a
Prelude.Nothing,
$sel:mailFromDomain:SetIdentityMailFromDomain' :: Maybe Text
mailFromDomain = forall a. Maybe a
Prelude.Nothing,
$sel:identity:SetIdentityMailFromDomain' :: Text
identity = Text
pIdentity_
}
setIdentityMailFromDomain_behaviorOnMXFailure :: Lens.Lens' SetIdentityMailFromDomain (Prelude.Maybe BehaviorOnMXFailure)
setIdentityMailFromDomain_behaviorOnMXFailure :: Lens' SetIdentityMailFromDomain (Maybe BehaviorOnMXFailure)
setIdentityMailFromDomain_behaviorOnMXFailure = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetIdentityMailFromDomain' {Maybe BehaviorOnMXFailure
behaviorOnMXFailure :: Maybe BehaviorOnMXFailure
$sel:behaviorOnMXFailure:SetIdentityMailFromDomain' :: SetIdentityMailFromDomain -> Maybe BehaviorOnMXFailure
behaviorOnMXFailure} -> Maybe BehaviorOnMXFailure
behaviorOnMXFailure) (\s :: SetIdentityMailFromDomain
s@SetIdentityMailFromDomain' {} Maybe BehaviorOnMXFailure
a -> SetIdentityMailFromDomain
s {$sel:behaviorOnMXFailure:SetIdentityMailFromDomain' :: Maybe BehaviorOnMXFailure
behaviorOnMXFailure = Maybe BehaviorOnMXFailure
a} :: SetIdentityMailFromDomain)
setIdentityMailFromDomain_mailFromDomain :: Lens.Lens' SetIdentityMailFromDomain (Prelude.Maybe Prelude.Text)
setIdentityMailFromDomain_mailFromDomain :: Lens' SetIdentityMailFromDomain (Maybe Text)
setIdentityMailFromDomain_mailFromDomain = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetIdentityMailFromDomain' {Maybe Text
mailFromDomain :: Maybe Text
$sel:mailFromDomain:SetIdentityMailFromDomain' :: SetIdentityMailFromDomain -> Maybe Text
mailFromDomain} -> Maybe Text
mailFromDomain) (\s :: SetIdentityMailFromDomain
s@SetIdentityMailFromDomain' {} Maybe Text
a -> SetIdentityMailFromDomain
s {$sel:mailFromDomain:SetIdentityMailFromDomain' :: Maybe Text
mailFromDomain = Maybe Text
a} :: SetIdentityMailFromDomain)
setIdentityMailFromDomain_identity :: Lens.Lens' SetIdentityMailFromDomain Prelude.Text
setIdentityMailFromDomain_identity :: Lens' SetIdentityMailFromDomain Text
setIdentityMailFromDomain_identity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetIdentityMailFromDomain' {Text
identity :: Text
$sel:identity:SetIdentityMailFromDomain' :: SetIdentityMailFromDomain -> Text
identity} -> Text
identity) (\s :: SetIdentityMailFromDomain
s@SetIdentityMailFromDomain' {} Text
a -> SetIdentityMailFromDomain
s {$sel:identity:SetIdentityMailFromDomain' :: Text
identity = Text
a} :: SetIdentityMailFromDomain)
instance Core.AWSRequest SetIdentityMailFromDomain where
type
AWSResponse SetIdentityMailFromDomain =
SetIdentityMailFromDomainResponse
request :: (Service -> Service)
-> SetIdentityMailFromDomain -> Request SetIdentityMailFromDomain
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy SetIdentityMailFromDomain
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse SetIdentityMailFromDomain)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"SetIdentityMailFromDomainResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Int -> SetIdentityMailFromDomainResponse
SetIdentityMailFromDomainResponse'
forall (f :: * -> *) a b. Functor 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 SetIdentityMailFromDomain where
hashWithSalt :: Int -> SetIdentityMailFromDomain -> Int
hashWithSalt Int
_salt SetIdentityMailFromDomain' {Maybe Text
Maybe BehaviorOnMXFailure
Text
identity :: Text
mailFromDomain :: Maybe Text
behaviorOnMXFailure :: Maybe BehaviorOnMXFailure
$sel:identity:SetIdentityMailFromDomain' :: SetIdentityMailFromDomain -> Text
$sel:mailFromDomain:SetIdentityMailFromDomain' :: SetIdentityMailFromDomain -> Maybe Text
$sel:behaviorOnMXFailure:SetIdentityMailFromDomain' :: SetIdentityMailFromDomain -> Maybe BehaviorOnMXFailure
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BehaviorOnMXFailure
behaviorOnMXFailure
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
mailFromDomain
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
identity
instance Prelude.NFData SetIdentityMailFromDomain where
rnf :: SetIdentityMailFromDomain -> ()
rnf SetIdentityMailFromDomain' {Maybe Text
Maybe BehaviorOnMXFailure
Text
identity :: Text
mailFromDomain :: Maybe Text
behaviorOnMXFailure :: Maybe BehaviorOnMXFailure
$sel:identity:SetIdentityMailFromDomain' :: SetIdentityMailFromDomain -> Text
$sel:mailFromDomain:SetIdentityMailFromDomain' :: SetIdentityMailFromDomain -> Maybe Text
$sel:behaviorOnMXFailure:SetIdentityMailFromDomain' :: SetIdentityMailFromDomain -> Maybe BehaviorOnMXFailure
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe BehaviorOnMXFailure
behaviorOnMXFailure
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
mailFromDomain
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
identity
instance Data.ToHeaders SetIdentityMailFromDomain where
toHeaders :: SetIdentityMailFromDomain -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath SetIdentityMailFromDomain where
toPath :: SetIdentityMailFromDomain -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery SetIdentityMailFromDomain where
toQuery :: SetIdentityMailFromDomain -> QueryString
toQuery SetIdentityMailFromDomain' {Maybe Text
Maybe BehaviorOnMXFailure
Text
identity :: Text
mailFromDomain :: Maybe Text
behaviorOnMXFailure :: Maybe BehaviorOnMXFailure
$sel:identity:SetIdentityMailFromDomain' :: SetIdentityMailFromDomain -> Text
$sel:mailFromDomain:SetIdentityMailFromDomain' :: SetIdentityMailFromDomain -> Maybe Text
$sel:behaviorOnMXFailure:SetIdentityMailFromDomain' :: SetIdentityMailFromDomain -> Maybe BehaviorOnMXFailure
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"SetIdentityMailFromDomain" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
ByteString
"BehaviorOnMXFailure" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe BehaviorOnMXFailure
behaviorOnMXFailure,
ByteString
"MailFromDomain" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
mailFromDomain,
ByteString
"Identity" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
identity
]
data SetIdentityMailFromDomainResponse = SetIdentityMailFromDomainResponse'
{
SetIdentityMailFromDomainResponse -> Int
httpStatus :: Prelude.Int
}
deriving (SetIdentityMailFromDomainResponse
-> SetIdentityMailFromDomainResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetIdentityMailFromDomainResponse
-> SetIdentityMailFromDomainResponse -> Bool
$c/= :: SetIdentityMailFromDomainResponse
-> SetIdentityMailFromDomainResponse -> Bool
== :: SetIdentityMailFromDomainResponse
-> SetIdentityMailFromDomainResponse -> Bool
$c== :: SetIdentityMailFromDomainResponse
-> SetIdentityMailFromDomainResponse -> Bool
Prelude.Eq, ReadPrec [SetIdentityMailFromDomainResponse]
ReadPrec SetIdentityMailFromDomainResponse
Int -> ReadS SetIdentityMailFromDomainResponse
ReadS [SetIdentityMailFromDomainResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetIdentityMailFromDomainResponse]
$creadListPrec :: ReadPrec [SetIdentityMailFromDomainResponse]
readPrec :: ReadPrec SetIdentityMailFromDomainResponse
$creadPrec :: ReadPrec SetIdentityMailFromDomainResponse
readList :: ReadS [SetIdentityMailFromDomainResponse]
$creadList :: ReadS [SetIdentityMailFromDomainResponse]
readsPrec :: Int -> ReadS SetIdentityMailFromDomainResponse
$creadsPrec :: Int -> ReadS SetIdentityMailFromDomainResponse
Prelude.Read, Int -> SetIdentityMailFromDomainResponse -> ShowS
[SetIdentityMailFromDomainResponse] -> ShowS
SetIdentityMailFromDomainResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetIdentityMailFromDomainResponse] -> ShowS
$cshowList :: [SetIdentityMailFromDomainResponse] -> ShowS
show :: SetIdentityMailFromDomainResponse -> String
$cshow :: SetIdentityMailFromDomainResponse -> String
showsPrec :: Int -> SetIdentityMailFromDomainResponse -> ShowS
$cshowsPrec :: Int -> SetIdentityMailFromDomainResponse -> ShowS
Prelude.Show, forall x.
Rep SetIdentityMailFromDomainResponse x
-> SetIdentityMailFromDomainResponse
forall x.
SetIdentityMailFromDomainResponse
-> Rep SetIdentityMailFromDomainResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SetIdentityMailFromDomainResponse x
-> SetIdentityMailFromDomainResponse
$cfrom :: forall x.
SetIdentityMailFromDomainResponse
-> Rep SetIdentityMailFromDomainResponse x
Prelude.Generic)
newSetIdentityMailFromDomainResponse ::
Prelude.Int ->
SetIdentityMailFromDomainResponse
newSetIdentityMailFromDomainResponse :: Int -> SetIdentityMailFromDomainResponse
newSetIdentityMailFromDomainResponse Int
pHttpStatus_ =
SetIdentityMailFromDomainResponse'
{ $sel:httpStatus:SetIdentityMailFromDomainResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
setIdentityMailFromDomainResponse_httpStatus :: Lens.Lens' SetIdentityMailFromDomainResponse Prelude.Int
setIdentityMailFromDomainResponse_httpStatus :: Lens' SetIdentityMailFromDomainResponse Int
setIdentityMailFromDomainResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetIdentityMailFromDomainResponse' {Int
httpStatus :: Int
$sel:httpStatus:SetIdentityMailFromDomainResponse' :: SetIdentityMailFromDomainResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SetIdentityMailFromDomainResponse
s@SetIdentityMailFromDomainResponse' {} Int
a -> SetIdentityMailFromDomainResponse
s {$sel:httpStatus:SetIdentityMailFromDomainResponse' :: Int
httpStatus = Int
a} :: SetIdentityMailFromDomainResponse)
instance
Prelude.NFData
SetIdentityMailFromDomainResponse
where
rnf :: SetIdentityMailFromDomainResponse -> ()
rnf SetIdentityMailFromDomainResponse' {Int
httpStatus :: Int
$sel:httpStatus:SetIdentityMailFromDomainResponse' :: SetIdentityMailFromDomainResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus