{-# 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.DeleteVerifiedEmailAddress
(
DeleteVerifiedEmailAddress (..),
newDeleteVerifiedEmailAddress,
deleteVerifiedEmailAddress_emailAddress,
DeleteVerifiedEmailAddressResponse (..),
newDeleteVerifiedEmailAddressResponse,
)
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 DeleteVerifiedEmailAddress = DeleteVerifiedEmailAddress'
{
DeleteVerifiedEmailAddress -> Text
emailAddress :: Prelude.Text
}
deriving (DeleteVerifiedEmailAddress -> DeleteVerifiedEmailAddress -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteVerifiedEmailAddress -> DeleteVerifiedEmailAddress -> Bool
$c/= :: DeleteVerifiedEmailAddress -> DeleteVerifiedEmailAddress -> Bool
== :: DeleteVerifiedEmailAddress -> DeleteVerifiedEmailAddress -> Bool
$c== :: DeleteVerifiedEmailAddress -> DeleteVerifiedEmailAddress -> Bool
Prelude.Eq, ReadPrec [DeleteVerifiedEmailAddress]
ReadPrec DeleteVerifiedEmailAddress
Int -> ReadS DeleteVerifiedEmailAddress
ReadS [DeleteVerifiedEmailAddress]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteVerifiedEmailAddress]
$creadListPrec :: ReadPrec [DeleteVerifiedEmailAddress]
readPrec :: ReadPrec DeleteVerifiedEmailAddress
$creadPrec :: ReadPrec DeleteVerifiedEmailAddress
readList :: ReadS [DeleteVerifiedEmailAddress]
$creadList :: ReadS [DeleteVerifiedEmailAddress]
readsPrec :: Int -> ReadS DeleteVerifiedEmailAddress
$creadsPrec :: Int -> ReadS DeleteVerifiedEmailAddress
Prelude.Read, Int -> DeleteVerifiedEmailAddress -> ShowS
[DeleteVerifiedEmailAddress] -> ShowS
DeleteVerifiedEmailAddress -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteVerifiedEmailAddress] -> ShowS
$cshowList :: [DeleteVerifiedEmailAddress] -> ShowS
show :: DeleteVerifiedEmailAddress -> String
$cshow :: DeleteVerifiedEmailAddress -> String
showsPrec :: Int -> DeleteVerifiedEmailAddress -> ShowS
$cshowsPrec :: Int -> DeleteVerifiedEmailAddress -> ShowS
Prelude.Show, forall x.
Rep DeleteVerifiedEmailAddress x -> DeleteVerifiedEmailAddress
forall x.
DeleteVerifiedEmailAddress -> Rep DeleteVerifiedEmailAddress x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteVerifiedEmailAddress x -> DeleteVerifiedEmailAddress
$cfrom :: forall x.
DeleteVerifiedEmailAddress -> Rep DeleteVerifiedEmailAddress x
Prelude.Generic)
newDeleteVerifiedEmailAddress ::
Prelude.Text ->
DeleteVerifiedEmailAddress
newDeleteVerifiedEmailAddress :: Text -> DeleteVerifiedEmailAddress
newDeleteVerifiedEmailAddress Text
pEmailAddress_ =
DeleteVerifiedEmailAddress'
{ $sel:emailAddress:DeleteVerifiedEmailAddress' :: Text
emailAddress =
Text
pEmailAddress_
}
deleteVerifiedEmailAddress_emailAddress :: Lens.Lens' DeleteVerifiedEmailAddress Prelude.Text
deleteVerifiedEmailAddress_emailAddress :: Lens' DeleteVerifiedEmailAddress Text
deleteVerifiedEmailAddress_emailAddress = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVerifiedEmailAddress' {Text
emailAddress :: Text
$sel:emailAddress:DeleteVerifiedEmailAddress' :: DeleteVerifiedEmailAddress -> Text
emailAddress} -> Text
emailAddress) (\s :: DeleteVerifiedEmailAddress
s@DeleteVerifiedEmailAddress' {} Text
a -> DeleteVerifiedEmailAddress
s {$sel:emailAddress:DeleteVerifiedEmailAddress' :: Text
emailAddress = Text
a} :: DeleteVerifiedEmailAddress)
instance Core.AWSRequest DeleteVerifiedEmailAddress where
type
AWSResponse DeleteVerifiedEmailAddress =
DeleteVerifiedEmailAddressResponse
request :: (Service -> Service)
-> DeleteVerifiedEmailAddress -> Request DeleteVerifiedEmailAddress
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 DeleteVerifiedEmailAddress
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteVerifiedEmailAddress)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeleteVerifiedEmailAddressResponse
DeleteVerifiedEmailAddressResponse'
instance Prelude.Hashable DeleteVerifiedEmailAddress where
hashWithSalt :: Int -> DeleteVerifiedEmailAddress -> Int
hashWithSalt Int
_salt DeleteVerifiedEmailAddress' {Text
emailAddress :: Text
$sel:emailAddress:DeleteVerifiedEmailAddress' :: DeleteVerifiedEmailAddress -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
emailAddress
instance Prelude.NFData DeleteVerifiedEmailAddress where
rnf :: DeleteVerifiedEmailAddress -> ()
rnf DeleteVerifiedEmailAddress' {Text
emailAddress :: Text
$sel:emailAddress:DeleteVerifiedEmailAddress' :: DeleteVerifiedEmailAddress -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
emailAddress
instance Data.ToHeaders DeleteVerifiedEmailAddress where
toHeaders :: DeleteVerifiedEmailAddress -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteVerifiedEmailAddress where
toPath :: DeleteVerifiedEmailAddress -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteVerifiedEmailAddress where
toQuery :: DeleteVerifiedEmailAddress -> QueryString
toQuery DeleteVerifiedEmailAddress' {Text
emailAddress :: Text
$sel:emailAddress:DeleteVerifiedEmailAddress' :: DeleteVerifiedEmailAddress -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DeleteVerifiedEmailAddress" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
ByteString
"EmailAddress" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
emailAddress
]
data DeleteVerifiedEmailAddressResponse = DeleteVerifiedEmailAddressResponse'
{
}
deriving (DeleteVerifiedEmailAddressResponse
-> DeleteVerifiedEmailAddressResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteVerifiedEmailAddressResponse
-> DeleteVerifiedEmailAddressResponse -> Bool
$c/= :: DeleteVerifiedEmailAddressResponse
-> DeleteVerifiedEmailAddressResponse -> Bool
== :: DeleteVerifiedEmailAddressResponse
-> DeleteVerifiedEmailAddressResponse -> Bool
$c== :: DeleteVerifiedEmailAddressResponse
-> DeleteVerifiedEmailAddressResponse -> Bool
Prelude.Eq, ReadPrec [DeleteVerifiedEmailAddressResponse]
ReadPrec DeleteVerifiedEmailAddressResponse
Int -> ReadS DeleteVerifiedEmailAddressResponse
ReadS [DeleteVerifiedEmailAddressResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteVerifiedEmailAddressResponse]
$creadListPrec :: ReadPrec [DeleteVerifiedEmailAddressResponse]
readPrec :: ReadPrec DeleteVerifiedEmailAddressResponse
$creadPrec :: ReadPrec DeleteVerifiedEmailAddressResponse
readList :: ReadS [DeleteVerifiedEmailAddressResponse]
$creadList :: ReadS [DeleteVerifiedEmailAddressResponse]
readsPrec :: Int -> ReadS DeleteVerifiedEmailAddressResponse
$creadsPrec :: Int -> ReadS DeleteVerifiedEmailAddressResponse
Prelude.Read, Int -> DeleteVerifiedEmailAddressResponse -> ShowS
[DeleteVerifiedEmailAddressResponse] -> ShowS
DeleteVerifiedEmailAddressResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteVerifiedEmailAddressResponse] -> ShowS
$cshowList :: [DeleteVerifiedEmailAddressResponse] -> ShowS
show :: DeleteVerifiedEmailAddressResponse -> String
$cshow :: DeleteVerifiedEmailAddressResponse -> String
showsPrec :: Int -> DeleteVerifiedEmailAddressResponse -> ShowS
$cshowsPrec :: Int -> DeleteVerifiedEmailAddressResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteVerifiedEmailAddressResponse x
-> DeleteVerifiedEmailAddressResponse
forall x.
DeleteVerifiedEmailAddressResponse
-> Rep DeleteVerifiedEmailAddressResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteVerifiedEmailAddressResponse x
-> DeleteVerifiedEmailAddressResponse
$cfrom :: forall x.
DeleteVerifiedEmailAddressResponse
-> Rep DeleteVerifiedEmailAddressResponse x
Prelude.Generic)
newDeleteVerifiedEmailAddressResponse ::
DeleteVerifiedEmailAddressResponse
newDeleteVerifiedEmailAddressResponse :: DeleteVerifiedEmailAddressResponse
newDeleteVerifiedEmailAddressResponse =
DeleteVerifiedEmailAddressResponse
DeleteVerifiedEmailAddressResponse'
instance
Prelude.NFData
DeleteVerifiedEmailAddressResponse
where
rnf :: DeleteVerifiedEmailAddressResponse -> ()
rnf DeleteVerifiedEmailAddressResponse
_ = ()