{-# 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.DeleteConfigurationSetEventDestination
(
DeleteConfigurationSetEventDestination (..),
newDeleteConfigurationSetEventDestination,
deleteConfigurationSetEventDestination_configurationSetName,
deleteConfigurationSetEventDestination_eventDestinationName,
DeleteConfigurationSetEventDestinationResponse (..),
newDeleteConfigurationSetEventDestinationResponse,
deleteConfigurationSetEventDestinationResponse_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 DeleteConfigurationSetEventDestination = DeleteConfigurationSetEventDestination'
{
DeleteConfigurationSetEventDestination -> Text
configurationSetName :: Prelude.Text,
DeleteConfigurationSetEventDestination -> Text
eventDestinationName :: Prelude.Text
}
deriving (DeleteConfigurationSetEventDestination
-> DeleteConfigurationSetEventDestination -> Bool
(DeleteConfigurationSetEventDestination
-> DeleteConfigurationSetEventDestination -> Bool)
-> (DeleteConfigurationSetEventDestination
-> DeleteConfigurationSetEventDestination -> Bool)
-> Eq DeleteConfigurationSetEventDestination
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeleteConfigurationSetEventDestination
-> DeleteConfigurationSetEventDestination -> Bool
== :: DeleteConfigurationSetEventDestination
-> DeleteConfigurationSetEventDestination -> Bool
$c/= :: DeleteConfigurationSetEventDestination
-> DeleteConfigurationSetEventDestination -> Bool
/= :: DeleteConfigurationSetEventDestination
-> DeleteConfigurationSetEventDestination -> Bool
Prelude.Eq, ReadPrec [DeleteConfigurationSetEventDestination]
ReadPrec DeleteConfigurationSetEventDestination
Int -> ReadS DeleteConfigurationSetEventDestination
ReadS [DeleteConfigurationSetEventDestination]
(Int -> ReadS DeleteConfigurationSetEventDestination)
-> ReadS [DeleteConfigurationSetEventDestination]
-> ReadPrec DeleteConfigurationSetEventDestination
-> ReadPrec [DeleteConfigurationSetEventDestination]
-> Read DeleteConfigurationSetEventDestination
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS DeleteConfigurationSetEventDestination
readsPrec :: Int -> ReadS DeleteConfigurationSetEventDestination
$creadList :: ReadS [DeleteConfigurationSetEventDestination]
readList :: ReadS [DeleteConfigurationSetEventDestination]
$creadPrec :: ReadPrec DeleteConfigurationSetEventDestination
readPrec :: ReadPrec DeleteConfigurationSetEventDestination
$creadListPrec :: ReadPrec [DeleteConfigurationSetEventDestination]
readListPrec :: ReadPrec [DeleteConfigurationSetEventDestination]
Prelude.Read, Int -> DeleteConfigurationSetEventDestination -> ShowS
[DeleteConfigurationSetEventDestination] -> ShowS
DeleteConfigurationSetEventDestination -> String
(Int -> DeleteConfigurationSetEventDestination -> ShowS)
-> (DeleteConfigurationSetEventDestination -> String)
-> ([DeleteConfigurationSetEventDestination] -> ShowS)
-> Show DeleteConfigurationSetEventDestination
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DeleteConfigurationSetEventDestination -> ShowS
showsPrec :: Int -> DeleteConfigurationSetEventDestination -> ShowS
$cshow :: DeleteConfigurationSetEventDestination -> String
show :: DeleteConfigurationSetEventDestination -> String
$cshowList :: [DeleteConfigurationSetEventDestination] -> ShowS
showList :: [DeleteConfigurationSetEventDestination] -> ShowS
Prelude.Show, (forall x.
DeleteConfigurationSetEventDestination
-> Rep DeleteConfigurationSetEventDestination x)
-> (forall x.
Rep DeleteConfigurationSetEventDestination x
-> DeleteConfigurationSetEventDestination)
-> Generic DeleteConfigurationSetEventDestination
forall x.
Rep DeleteConfigurationSetEventDestination x
-> DeleteConfigurationSetEventDestination
forall x.
DeleteConfigurationSetEventDestination
-> Rep DeleteConfigurationSetEventDestination x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
DeleteConfigurationSetEventDestination
-> Rep DeleteConfigurationSetEventDestination x
from :: forall x.
DeleteConfigurationSetEventDestination
-> Rep DeleteConfigurationSetEventDestination x
$cto :: forall x.
Rep DeleteConfigurationSetEventDestination x
-> DeleteConfigurationSetEventDestination
to :: forall x.
Rep DeleteConfigurationSetEventDestination x
-> DeleteConfigurationSetEventDestination
Prelude.Generic)
newDeleteConfigurationSetEventDestination ::
Prelude.Text ->
Prelude.Text ->
DeleteConfigurationSetEventDestination
newDeleteConfigurationSetEventDestination :: Text -> Text -> DeleteConfigurationSetEventDestination
newDeleteConfigurationSetEventDestination
Text
pConfigurationSetName_
Text
pEventDestinationName_ =
DeleteConfigurationSetEventDestination'
{ $sel:configurationSetName:DeleteConfigurationSetEventDestination' :: Text
configurationSetName =
Text
pConfigurationSetName_,
$sel:eventDestinationName:DeleteConfigurationSetEventDestination' :: Text
eventDestinationName =
Text
pEventDestinationName_
}
deleteConfigurationSetEventDestination_configurationSetName :: Lens.Lens' DeleteConfigurationSetEventDestination Prelude.Text
deleteConfigurationSetEventDestination_configurationSetName :: Lens' DeleteConfigurationSetEventDestination Text
deleteConfigurationSetEventDestination_configurationSetName = (DeleteConfigurationSetEventDestination -> Text)
-> (DeleteConfigurationSetEventDestination
-> Text -> DeleteConfigurationSetEventDestination)
-> Lens' DeleteConfigurationSetEventDestination Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteConfigurationSetEventDestination' {Text
$sel:configurationSetName:DeleteConfigurationSetEventDestination' :: DeleteConfigurationSetEventDestination -> Text
configurationSetName :: Text
configurationSetName} -> Text
configurationSetName) (\s :: DeleteConfigurationSetEventDestination
s@DeleteConfigurationSetEventDestination' {} Text
a -> DeleteConfigurationSetEventDestination
s {configurationSetName = a} :: DeleteConfigurationSetEventDestination)
deleteConfigurationSetEventDestination_eventDestinationName :: Lens.Lens' DeleteConfigurationSetEventDestination Prelude.Text
deleteConfigurationSetEventDestination_eventDestinationName :: Lens' DeleteConfigurationSetEventDestination Text
deleteConfigurationSetEventDestination_eventDestinationName = (DeleteConfigurationSetEventDestination -> Text)
-> (DeleteConfigurationSetEventDestination
-> Text -> DeleteConfigurationSetEventDestination)
-> Lens' DeleteConfigurationSetEventDestination Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteConfigurationSetEventDestination' {Text
$sel:eventDestinationName:DeleteConfigurationSetEventDestination' :: DeleteConfigurationSetEventDestination -> Text
eventDestinationName :: Text
eventDestinationName} -> Text
eventDestinationName) (\s :: DeleteConfigurationSetEventDestination
s@DeleteConfigurationSetEventDestination' {} Text
a -> DeleteConfigurationSetEventDestination
s {eventDestinationName = a} :: DeleteConfigurationSetEventDestination)
instance
Core.AWSRequest
DeleteConfigurationSetEventDestination
where
type
AWSResponse
DeleteConfigurationSetEventDestination =
DeleteConfigurationSetEventDestinationResponse
request :: (Service -> Service)
-> DeleteConfigurationSetEventDestination
-> Request DeleteConfigurationSetEventDestination
request Service -> Service
overrides =
Service
-> DeleteConfigurationSetEventDestination
-> Request DeleteConfigurationSetEventDestination
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 DeleteConfigurationSetEventDestination
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DeleteConfigurationSetEventDestination)))
response =
Text
-> (Int
-> ResponseHeaders
-> [Node]
-> Either
String (AWSResponse DeleteConfigurationSetEventDestination))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteConfigurationSetEventDestination
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DeleteConfigurationSetEventDestination)))
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
"DeleteConfigurationSetEventDestinationResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Int -> DeleteConfigurationSetEventDestinationResponse
DeleteConfigurationSetEventDestinationResponse'
(Int -> DeleteConfigurationSetEventDestinationResponse)
-> Either String Int
-> Either String DeleteConfigurationSetEventDestinationResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Int -> Either String Int
forall a. a -> Either String a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
DeleteConfigurationSetEventDestination
where
hashWithSalt :: Int -> DeleteConfigurationSetEventDestination -> Int
hashWithSalt
Int
_salt
DeleteConfigurationSetEventDestination' {Text
$sel:configurationSetName:DeleteConfigurationSetEventDestination' :: DeleteConfigurationSetEventDestination -> Text
$sel:eventDestinationName:DeleteConfigurationSetEventDestination' :: DeleteConfigurationSetEventDestination -> Text
configurationSetName :: Text
eventDestinationName :: Text
..} =
Int
_salt
Int -> Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
configurationSetName
Int -> Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
eventDestinationName
instance
Prelude.NFData
DeleteConfigurationSetEventDestination
where
rnf :: DeleteConfigurationSetEventDestination -> ()
rnf DeleteConfigurationSetEventDestination' {Text
$sel:configurationSetName:DeleteConfigurationSetEventDestination' :: DeleteConfigurationSetEventDestination -> Text
$sel:eventDestinationName:DeleteConfigurationSetEventDestination' :: DeleteConfigurationSetEventDestination -> Text
configurationSetName :: Text
eventDestinationName :: Text
..} =
Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Text
configurationSetName
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Text
eventDestinationName
instance
Data.ToHeaders
DeleteConfigurationSetEventDestination
where
toHeaders :: DeleteConfigurationSetEventDestination -> ResponseHeaders
toHeaders = ResponseHeaders
-> DeleteConfigurationSetEventDestination -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
DeleteConfigurationSetEventDestination
where
toPath :: DeleteConfigurationSetEventDestination -> ByteString
toPath = ByteString -> DeleteConfigurationSetEventDestination -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DeleteConfigurationSetEventDestination
where
toQuery :: DeleteConfigurationSetEventDestination -> QueryString
toQuery DeleteConfigurationSetEventDestination' {Text
$sel:configurationSetName:DeleteConfigurationSetEventDestination' :: DeleteConfigurationSetEventDestination -> Text
$sel:eventDestinationName:DeleteConfigurationSetEventDestination' :: DeleteConfigurationSetEventDestination -> Text
configurationSetName :: Text
eventDestinationName :: Text
..} =
[QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DeleteConfigurationSetEventDestination" ::
Prelude.ByteString
),
ByteString
"Version"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
ByteString
"ConfigurationSetName" ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
configurationSetName,
ByteString
"EventDestinationName" ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
eventDestinationName
]
data DeleteConfigurationSetEventDestinationResponse = DeleteConfigurationSetEventDestinationResponse'
{
DeleteConfigurationSetEventDestinationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteConfigurationSetEventDestinationResponse
-> DeleteConfigurationSetEventDestinationResponse -> Bool
(DeleteConfigurationSetEventDestinationResponse
-> DeleteConfigurationSetEventDestinationResponse -> Bool)
-> (DeleteConfigurationSetEventDestinationResponse
-> DeleteConfigurationSetEventDestinationResponse -> Bool)
-> Eq DeleteConfigurationSetEventDestinationResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeleteConfigurationSetEventDestinationResponse
-> DeleteConfigurationSetEventDestinationResponse -> Bool
== :: DeleteConfigurationSetEventDestinationResponse
-> DeleteConfigurationSetEventDestinationResponse -> Bool
$c/= :: DeleteConfigurationSetEventDestinationResponse
-> DeleteConfigurationSetEventDestinationResponse -> Bool
/= :: DeleteConfigurationSetEventDestinationResponse
-> DeleteConfigurationSetEventDestinationResponse -> Bool
Prelude.Eq, ReadPrec [DeleteConfigurationSetEventDestinationResponse]
ReadPrec DeleteConfigurationSetEventDestinationResponse
Int -> ReadS DeleteConfigurationSetEventDestinationResponse
ReadS [DeleteConfigurationSetEventDestinationResponse]
(Int -> ReadS DeleteConfigurationSetEventDestinationResponse)
-> ReadS [DeleteConfigurationSetEventDestinationResponse]
-> ReadPrec DeleteConfigurationSetEventDestinationResponse
-> ReadPrec [DeleteConfigurationSetEventDestinationResponse]
-> Read DeleteConfigurationSetEventDestinationResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS DeleteConfigurationSetEventDestinationResponse
readsPrec :: Int -> ReadS DeleteConfigurationSetEventDestinationResponse
$creadList :: ReadS [DeleteConfigurationSetEventDestinationResponse]
readList :: ReadS [DeleteConfigurationSetEventDestinationResponse]
$creadPrec :: ReadPrec DeleteConfigurationSetEventDestinationResponse
readPrec :: ReadPrec DeleteConfigurationSetEventDestinationResponse
$creadListPrec :: ReadPrec [DeleteConfigurationSetEventDestinationResponse]
readListPrec :: ReadPrec [DeleteConfigurationSetEventDestinationResponse]
Prelude.Read, Int -> DeleteConfigurationSetEventDestinationResponse -> ShowS
[DeleteConfigurationSetEventDestinationResponse] -> ShowS
DeleteConfigurationSetEventDestinationResponse -> String
(Int -> DeleteConfigurationSetEventDestinationResponse -> ShowS)
-> (DeleteConfigurationSetEventDestinationResponse -> String)
-> ([DeleteConfigurationSetEventDestinationResponse] -> ShowS)
-> Show DeleteConfigurationSetEventDestinationResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DeleteConfigurationSetEventDestinationResponse -> ShowS
showsPrec :: Int -> DeleteConfigurationSetEventDestinationResponse -> ShowS
$cshow :: DeleteConfigurationSetEventDestinationResponse -> String
show :: DeleteConfigurationSetEventDestinationResponse -> String
$cshowList :: [DeleteConfigurationSetEventDestinationResponse] -> ShowS
showList :: [DeleteConfigurationSetEventDestinationResponse] -> ShowS
Prelude.Show, (forall x.
DeleteConfigurationSetEventDestinationResponse
-> Rep DeleteConfigurationSetEventDestinationResponse x)
-> (forall x.
Rep DeleteConfigurationSetEventDestinationResponse x
-> DeleteConfigurationSetEventDestinationResponse)
-> Generic DeleteConfigurationSetEventDestinationResponse
forall x.
Rep DeleteConfigurationSetEventDestinationResponse x
-> DeleteConfigurationSetEventDestinationResponse
forall x.
DeleteConfigurationSetEventDestinationResponse
-> Rep DeleteConfigurationSetEventDestinationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
DeleteConfigurationSetEventDestinationResponse
-> Rep DeleteConfigurationSetEventDestinationResponse x
from :: forall x.
DeleteConfigurationSetEventDestinationResponse
-> Rep DeleteConfigurationSetEventDestinationResponse x
$cto :: forall x.
Rep DeleteConfigurationSetEventDestinationResponse x
-> DeleteConfigurationSetEventDestinationResponse
to :: forall x.
Rep DeleteConfigurationSetEventDestinationResponse x
-> DeleteConfigurationSetEventDestinationResponse
Prelude.Generic)
newDeleteConfigurationSetEventDestinationResponse ::
Prelude.Int ->
DeleteConfigurationSetEventDestinationResponse
newDeleteConfigurationSetEventDestinationResponse :: Int -> DeleteConfigurationSetEventDestinationResponse
newDeleteConfigurationSetEventDestinationResponse
Int
pHttpStatus_ =
DeleteConfigurationSetEventDestinationResponse'
{ $sel:httpStatus:DeleteConfigurationSetEventDestinationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteConfigurationSetEventDestinationResponse_httpStatus :: Lens.Lens' DeleteConfigurationSetEventDestinationResponse Prelude.Int
deleteConfigurationSetEventDestinationResponse_httpStatus :: Lens' DeleteConfigurationSetEventDestinationResponse Int
deleteConfigurationSetEventDestinationResponse_httpStatus = (DeleteConfigurationSetEventDestinationResponse -> Int)
-> (DeleteConfigurationSetEventDestinationResponse
-> Int -> DeleteConfigurationSetEventDestinationResponse)
-> Lens' DeleteConfigurationSetEventDestinationResponse Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteConfigurationSetEventDestinationResponse' {Int
$sel:httpStatus:DeleteConfigurationSetEventDestinationResponse' :: DeleteConfigurationSetEventDestinationResponse -> Int
httpStatus :: Int
httpStatus} -> Int
httpStatus) (\s :: DeleteConfigurationSetEventDestinationResponse
s@DeleteConfigurationSetEventDestinationResponse' {} Int
a -> DeleteConfigurationSetEventDestinationResponse
s {httpStatus = a} :: DeleteConfigurationSetEventDestinationResponse)
instance
Prelude.NFData
DeleteConfigurationSetEventDestinationResponse
where
rnf :: DeleteConfigurationSetEventDestinationResponse -> ()
rnf
DeleteConfigurationSetEventDestinationResponse' {Int
$sel:httpStatus:DeleteConfigurationSetEventDestinationResponse' :: DeleteConfigurationSetEventDestinationResponse -> Int
httpStatus :: Int
..} =
Int -> ()
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus