{-# 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.PutConfigurationSetDeliveryOptions
(
PutConfigurationSetDeliveryOptions (..),
newPutConfigurationSetDeliveryOptions,
putConfigurationSetDeliveryOptions_deliveryOptions,
putConfigurationSetDeliveryOptions_configurationSetName,
PutConfigurationSetDeliveryOptionsResponse (..),
newPutConfigurationSetDeliveryOptionsResponse,
putConfigurationSetDeliveryOptionsResponse_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 PutConfigurationSetDeliveryOptions = PutConfigurationSetDeliveryOptions'
{
PutConfigurationSetDeliveryOptions -> Maybe DeliveryOptions
deliveryOptions :: Prelude.Maybe DeliveryOptions,
PutConfigurationSetDeliveryOptions -> Text
configurationSetName :: Prelude.Text
}
deriving (PutConfigurationSetDeliveryOptions
-> PutConfigurationSetDeliveryOptions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutConfigurationSetDeliveryOptions
-> PutConfigurationSetDeliveryOptions -> Bool
$c/= :: PutConfigurationSetDeliveryOptions
-> PutConfigurationSetDeliveryOptions -> Bool
== :: PutConfigurationSetDeliveryOptions
-> PutConfigurationSetDeliveryOptions -> Bool
$c== :: PutConfigurationSetDeliveryOptions
-> PutConfigurationSetDeliveryOptions -> Bool
Prelude.Eq, ReadPrec [PutConfigurationSetDeliveryOptions]
ReadPrec PutConfigurationSetDeliveryOptions
Int -> ReadS PutConfigurationSetDeliveryOptions
ReadS [PutConfigurationSetDeliveryOptions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutConfigurationSetDeliveryOptions]
$creadListPrec :: ReadPrec [PutConfigurationSetDeliveryOptions]
readPrec :: ReadPrec PutConfigurationSetDeliveryOptions
$creadPrec :: ReadPrec PutConfigurationSetDeliveryOptions
readList :: ReadS [PutConfigurationSetDeliveryOptions]
$creadList :: ReadS [PutConfigurationSetDeliveryOptions]
readsPrec :: Int -> ReadS PutConfigurationSetDeliveryOptions
$creadsPrec :: Int -> ReadS PutConfigurationSetDeliveryOptions
Prelude.Read, Int -> PutConfigurationSetDeliveryOptions -> ShowS
[PutConfigurationSetDeliveryOptions] -> ShowS
PutConfigurationSetDeliveryOptions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutConfigurationSetDeliveryOptions] -> ShowS
$cshowList :: [PutConfigurationSetDeliveryOptions] -> ShowS
show :: PutConfigurationSetDeliveryOptions -> String
$cshow :: PutConfigurationSetDeliveryOptions -> String
showsPrec :: Int -> PutConfigurationSetDeliveryOptions -> ShowS
$cshowsPrec :: Int -> PutConfigurationSetDeliveryOptions -> ShowS
Prelude.Show, forall x.
Rep PutConfigurationSetDeliveryOptions x
-> PutConfigurationSetDeliveryOptions
forall x.
PutConfigurationSetDeliveryOptions
-> Rep PutConfigurationSetDeliveryOptions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutConfigurationSetDeliveryOptions x
-> PutConfigurationSetDeliveryOptions
$cfrom :: forall x.
PutConfigurationSetDeliveryOptions
-> Rep PutConfigurationSetDeliveryOptions x
Prelude.Generic)
newPutConfigurationSetDeliveryOptions ::
Prelude.Text ->
PutConfigurationSetDeliveryOptions
newPutConfigurationSetDeliveryOptions :: Text -> PutConfigurationSetDeliveryOptions
newPutConfigurationSetDeliveryOptions
Text
pConfigurationSetName_ =
PutConfigurationSetDeliveryOptions'
{ $sel:deliveryOptions:PutConfigurationSetDeliveryOptions' :: Maybe DeliveryOptions
deliveryOptions =
forall a. Maybe a
Prelude.Nothing,
$sel:configurationSetName:PutConfigurationSetDeliveryOptions' :: Text
configurationSetName =
Text
pConfigurationSetName_
}
putConfigurationSetDeliveryOptions_deliveryOptions :: Lens.Lens' PutConfigurationSetDeliveryOptions (Prelude.Maybe DeliveryOptions)
putConfigurationSetDeliveryOptions_deliveryOptions :: Lens' PutConfigurationSetDeliveryOptions (Maybe DeliveryOptions)
putConfigurationSetDeliveryOptions_deliveryOptions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutConfigurationSetDeliveryOptions' {Maybe DeliveryOptions
deliveryOptions :: Maybe DeliveryOptions
$sel:deliveryOptions:PutConfigurationSetDeliveryOptions' :: PutConfigurationSetDeliveryOptions -> Maybe DeliveryOptions
deliveryOptions} -> Maybe DeliveryOptions
deliveryOptions) (\s :: PutConfigurationSetDeliveryOptions
s@PutConfigurationSetDeliveryOptions' {} Maybe DeliveryOptions
a -> PutConfigurationSetDeliveryOptions
s {$sel:deliveryOptions:PutConfigurationSetDeliveryOptions' :: Maybe DeliveryOptions
deliveryOptions = Maybe DeliveryOptions
a} :: PutConfigurationSetDeliveryOptions)
putConfigurationSetDeliveryOptions_configurationSetName :: Lens.Lens' PutConfigurationSetDeliveryOptions Prelude.Text
putConfigurationSetDeliveryOptions_configurationSetName :: Lens' PutConfigurationSetDeliveryOptions Text
putConfigurationSetDeliveryOptions_configurationSetName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutConfigurationSetDeliveryOptions' {Text
configurationSetName :: Text
$sel:configurationSetName:PutConfigurationSetDeliveryOptions' :: PutConfigurationSetDeliveryOptions -> Text
configurationSetName} -> Text
configurationSetName) (\s :: PutConfigurationSetDeliveryOptions
s@PutConfigurationSetDeliveryOptions' {} Text
a -> PutConfigurationSetDeliveryOptions
s {$sel:configurationSetName:PutConfigurationSetDeliveryOptions' :: Text
configurationSetName = Text
a} :: PutConfigurationSetDeliveryOptions)
instance
Core.AWSRequest
PutConfigurationSetDeliveryOptions
where
type
AWSResponse PutConfigurationSetDeliveryOptions =
PutConfigurationSetDeliveryOptionsResponse
request :: (Service -> Service)
-> PutConfigurationSetDeliveryOptions
-> Request PutConfigurationSetDeliveryOptions
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 PutConfigurationSetDeliveryOptions
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse PutConfigurationSetDeliveryOptions)))
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
"PutConfigurationSetDeliveryOptionsResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Int -> PutConfigurationSetDeliveryOptionsResponse
PutConfigurationSetDeliveryOptionsResponse'
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
PutConfigurationSetDeliveryOptions
where
hashWithSalt :: Int -> PutConfigurationSetDeliveryOptions -> Int
hashWithSalt
Int
_salt
PutConfigurationSetDeliveryOptions' {Maybe DeliveryOptions
Text
configurationSetName :: Text
deliveryOptions :: Maybe DeliveryOptions
$sel:configurationSetName:PutConfigurationSetDeliveryOptions' :: PutConfigurationSetDeliveryOptions -> Text
$sel:deliveryOptions:PutConfigurationSetDeliveryOptions' :: PutConfigurationSetDeliveryOptions -> Maybe DeliveryOptions
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DeliveryOptions
deliveryOptions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
configurationSetName
instance
Prelude.NFData
PutConfigurationSetDeliveryOptions
where
rnf :: PutConfigurationSetDeliveryOptions -> ()
rnf PutConfigurationSetDeliveryOptions' {Maybe DeliveryOptions
Text
configurationSetName :: Text
deliveryOptions :: Maybe DeliveryOptions
$sel:configurationSetName:PutConfigurationSetDeliveryOptions' :: PutConfigurationSetDeliveryOptions -> Text
$sel:deliveryOptions:PutConfigurationSetDeliveryOptions' :: PutConfigurationSetDeliveryOptions -> Maybe DeliveryOptions
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DeliveryOptions
deliveryOptions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
configurationSetName
instance
Data.ToHeaders
PutConfigurationSetDeliveryOptions
where
toHeaders :: PutConfigurationSetDeliveryOptions -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
PutConfigurationSetDeliveryOptions
where
toPath :: PutConfigurationSetDeliveryOptions -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
PutConfigurationSetDeliveryOptions
where
toQuery :: PutConfigurationSetDeliveryOptions -> QueryString
toQuery PutConfigurationSetDeliveryOptions' {Maybe DeliveryOptions
Text
configurationSetName :: Text
deliveryOptions :: Maybe DeliveryOptions
$sel:configurationSetName:PutConfigurationSetDeliveryOptions' :: PutConfigurationSetDeliveryOptions -> Text
$sel:deliveryOptions:PutConfigurationSetDeliveryOptions' :: PutConfigurationSetDeliveryOptions -> Maybe DeliveryOptions
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"PutConfigurationSetDeliveryOptions" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
ByteString
"DeliveryOptions" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe DeliveryOptions
deliveryOptions,
ByteString
"ConfigurationSetName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
configurationSetName
]
data PutConfigurationSetDeliveryOptionsResponse = PutConfigurationSetDeliveryOptionsResponse'
{
PutConfigurationSetDeliveryOptionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutConfigurationSetDeliveryOptionsResponse
-> PutConfigurationSetDeliveryOptionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutConfigurationSetDeliveryOptionsResponse
-> PutConfigurationSetDeliveryOptionsResponse -> Bool
$c/= :: PutConfigurationSetDeliveryOptionsResponse
-> PutConfigurationSetDeliveryOptionsResponse -> Bool
== :: PutConfigurationSetDeliveryOptionsResponse
-> PutConfigurationSetDeliveryOptionsResponse -> Bool
$c== :: PutConfigurationSetDeliveryOptionsResponse
-> PutConfigurationSetDeliveryOptionsResponse -> Bool
Prelude.Eq, ReadPrec [PutConfigurationSetDeliveryOptionsResponse]
ReadPrec PutConfigurationSetDeliveryOptionsResponse
Int -> ReadS PutConfigurationSetDeliveryOptionsResponse
ReadS [PutConfigurationSetDeliveryOptionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutConfigurationSetDeliveryOptionsResponse]
$creadListPrec :: ReadPrec [PutConfigurationSetDeliveryOptionsResponse]
readPrec :: ReadPrec PutConfigurationSetDeliveryOptionsResponse
$creadPrec :: ReadPrec PutConfigurationSetDeliveryOptionsResponse
readList :: ReadS [PutConfigurationSetDeliveryOptionsResponse]
$creadList :: ReadS [PutConfigurationSetDeliveryOptionsResponse]
readsPrec :: Int -> ReadS PutConfigurationSetDeliveryOptionsResponse
$creadsPrec :: Int -> ReadS PutConfigurationSetDeliveryOptionsResponse
Prelude.Read, Int -> PutConfigurationSetDeliveryOptionsResponse -> ShowS
[PutConfigurationSetDeliveryOptionsResponse] -> ShowS
PutConfigurationSetDeliveryOptionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutConfigurationSetDeliveryOptionsResponse] -> ShowS
$cshowList :: [PutConfigurationSetDeliveryOptionsResponse] -> ShowS
show :: PutConfigurationSetDeliveryOptionsResponse -> String
$cshow :: PutConfigurationSetDeliveryOptionsResponse -> String
showsPrec :: Int -> PutConfigurationSetDeliveryOptionsResponse -> ShowS
$cshowsPrec :: Int -> PutConfigurationSetDeliveryOptionsResponse -> ShowS
Prelude.Show, forall x.
Rep PutConfigurationSetDeliveryOptionsResponse x
-> PutConfigurationSetDeliveryOptionsResponse
forall x.
PutConfigurationSetDeliveryOptionsResponse
-> Rep PutConfigurationSetDeliveryOptionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutConfigurationSetDeliveryOptionsResponse x
-> PutConfigurationSetDeliveryOptionsResponse
$cfrom :: forall x.
PutConfigurationSetDeliveryOptionsResponse
-> Rep PutConfigurationSetDeliveryOptionsResponse x
Prelude.Generic)
newPutConfigurationSetDeliveryOptionsResponse ::
Prelude.Int ->
PutConfigurationSetDeliveryOptionsResponse
newPutConfigurationSetDeliveryOptionsResponse :: Int -> PutConfigurationSetDeliveryOptionsResponse
newPutConfigurationSetDeliveryOptionsResponse
Int
pHttpStatus_ =
PutConfigurationSetDeliveryOptionsResponse'
{ $sel:httpStatus:PutConfigurationSetDeliveryOptionsResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
putConfigurationSetDeliveryOptionsResponse_httpStatus :: Lens.Lens' PutConfigurationSetDeliveryOptionsResponse Prelude.Int
putConfigurationSetDeliveryOptionsResponse_httpStatus :: Lens' PutConfigurationSetDeliveryOptionsResponse Int
putConfigurationSetDeliveryOptionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutConfigurationSetDeliveryOptionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutConfigurationSetDeliveryOptionsResponse' :: PutConfigurationSetDeliveryOptionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutConfigurationSetDeliveryOptionsResponse
s@PutConfigurationSetDeliveryOptionsResponse' {} Int
a -> PutConfigurationSetDeliveryOptionsResponse
s {$sel:httpStatus:PutConfigurationSetDeliveryOptionsResponse' :: Int
httpStatus = Int
a} :: PutConfigurationSetDeliveryOptionsResponse)
instance
Prelude.NFData
PutConfigurationSetDeliveryOptionsResponse
where
rnf :: PutConfigurationSetDeliveryOptionsResponse -> ()
rnf PutConfigurationSetDeliveryOptionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutConfigurationSetDeliveryOptionsResponse' :: PutConfigurationSetDeliveryOptionsResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus