{-# 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.DeleteIdentity
(
DeleteIdentity (..),
newDeleteIdentity,
deleteIdentity_identity,
DeleteIdentityResponse (..),
newDeleteIdentityResponse,
deleteIdentityResponse_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 DeleteIdentity = DeleteIdentity'
{
DeleteIdentity -> Text
identity :: Prelude.Text
}
deriving (DeleteIdentity -> DeleteIdentity -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteIdentity -> DeleteIdentity -> Bool
$c/= :: DeleteIdentity -> DeleteIdentity -> Bool
== :: DeleteIdentity -> DeleteIdentity -> Bool
$c== :: DeleteIdentity -> DeleteIdentity -> Bool
Prelude.Eq, ReadPrec [DeleteIdentity]
ReadPrec DeleteIdentity
Int -> ReadS DeleteIdentity
ReadS [DeleteIdentity]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteIdentity]
$creadListPrec :: ReadPrec [DeleteIdentity]
readPrec :: ReadPrec DeleteIdentity
$creadPrec :: ReadPrec DeleteIdentity
readList :: ReadS [DeleteIdentity]
$creadList :: ReadS [DeleteIdentity]
readsPrec :: Int -> ReadS DeleteIdentity
$creadsPrec :: Int -> ReadS DeleteIdentity
Prelude.Read, Int -> DeleteIdentity -> ShowS
[DeleteIdentity] -> ShowS
DeleteIdentity -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteIdentity] -> ShowS
$cshowList :: [DeleteIdentity] -> ShowS
show :: DeleteIdentity -> String
$cshow :: DeleteIdentity -> String
showsPrec :: Int -> DeleteIdentity -> ShowS
$cshowsPrec :: Int -> DeleteIdentity -> ShowS
Prelude.Show, forall x. Rep DeleteIdentity x -> DeleteIdentity
forall x. DeleteIdentity -> Rep DeleteIdentity x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteIdentity x -> DeleteIdentity
$cfrom :: forall x. DeleteIdentity -> Rep DeleteIdentity x
Prelude.Generic)
newDeleteIdentity ::
Prelude.Text ->
DeleteIdentity
newDeleteIdentity :: Text -> DeleteIdentity
newDeleteIdentity Text
pIdentity_ =
DeleteIdentity' {$sel:identity:DeleteIdentity' :: Text
identity = Text
pIdentity_}
deleteIdentity_identity :: Lens.Lens' DeleteIdentity Prelude.Text
deleteIdentity_identity :: Lens' DeleteIdentity Text
deleteIdentity_identity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteIdentity' {Text
identity :: Text
$sel:identity:DeleteIdentity' :: DeleteIdentity -> Text
identity} -> Text
identity) (\s :: DeleteIdentity
s@DeleteIdentity' {} Text
a -> DeleteIdentity
s {$sel:identity:DeleteIdentity' :: Text
identity = Text
a} :: DeleteIdentity)
instance Core.AWSRequest DeleteIdentity where
type
AWSResponse DeleteIdentity =
DeleteIdentityResponse
request :: (Service -> Service) -> DeleteIdentity -> Request DeleteIdentity
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 DeleteIdentity
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteIdentity)))
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
"DeleteIdentityResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Int -> DeleteIdentityResponse
DeleteIdentityResponse'
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 DeleteIdentity where
hashWithSalt :: Int -> DeleteIdentity -> Int
hashWithSalt Int
_salt DeleteIdentity' {Text
identity :: Text
$sel:identity:DeleteIdentity' :: DeleteIdentity -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
identity
instance Prelude.NFData DeleteIdentity where
rnf :: DeleteIdentity -> ()
rnf DeleteIdentity' {Text
identity :: Text
$sel:identity:DeleteIdentity' :: DeleteIdentity -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
identity
instance Data.ToHeaders DeleteIdentity where
toHeaders :: DeleteIdentity -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteIdentity where
toPath :: DeleteIdentity -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteIdentity where
toQuery :: DeleteIdentity -> QueryString
toQuery DeleteIdentity' {Text
identity :: Text
$sel:identity:DeleteIdentity' :: DeleteIdentity -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DeleteIdentity" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
ByteString
"Identity" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
identity
]
data DeleteIdentityResponse = DeleteIdentityResponse'
{
DeleteIdentityResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteIdentityResponse -> DeleteIdentityResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteIdentityResponse -> DeleteIdentityResponse -> Bool
$c/= :: DeleteIdentityResponse -> DeleteIdentityResponse -> Bool
== :: DeleteIdentityResponse -> DeleteIdentityResponse -> Bool
$c== :: DeleteIdentityResponse -> DeleteIdentityResponse -> Bool
Prelude.Eq, ReadPrec [DeleteIdentityResponse]
ReadPrec DeleteIdentityResponse
Int -> ReadS DeleteIdentityResponse
ReadS [DeleteIdentityResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteIdentityResponse]
$creadListPrec :: ReadPrec [DeleteIdentityResponse]
readPrec :: ReadPrec DeleteIdentityResponse
$creadPrec :: ReadPrec DeleteIdentityResponse
readList :: ReadS [DeleteIdentityResponse]
$creadList :: ReadS [DeleteIdentityResponse]
readsPrec :: Int -> ReadS DeleteIdentityResponse
$creadsPrec :: Int -> ReadS DeleteIdentityResponse
Prelude.Read, Int -> DeleteIdentityResponse -> ShowS
[DeleteIdentityResponse] -> ShowS
DeleteIdentityResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteIdentityResponse] -> ShowS
$cshowList :: [DeleteIdentityResponse] -> ShowS
show :: DeleteIdentityResponse -> String
$cshow :: DeleteIdentityResponse -> String
showsPrec :: Int -> DeleteIdentityResponse -> ShowS
$cshowsPrec :: Int -> DeleteIdentityResponse -> ShowS
Prelude.Show, forall x. Rep DeleteIdentityResponse x -> DeleteIdentityResponse
forall x. DeleteIdentityResponse -> Rep DeleteIdentityResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteIdentityResponse x -> DeleteIdentityResponse
$cfrom :: forall x. DeleteIdentityResponse -> Rep DeleteIdentityResponse x
Prelude.Generic)
newDeleteIdentityResponse ::
Prelude.Int ->
DeleteIdentityResponse
newDeleteIdentityResponse :: Int -> DeleteIdentityResponse
newDeleteIdentityResponse Int
pHttpStatus_ =
DeleteIdentityResponse' {$sel:httpStatus:DeleteIdentityResponse' :: Int
httpStatus = Int
pHttpStatus_}
deleteIdentityResponse_httpStatus :: Lens.Lens' DeleteIdentityResponse Prelude.Int
deleteIdentityResponse_httpStatus :: Lens' DeleteIdentityResponse Int
deleteIdentityResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteIdentityResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteIdentityResponse' :: DeleteIdentityResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteIdentityResponse
s@DeleteIdentityResponse' {} Int
a -> DeleteIdentityResponse
s {$sel:httpStatus:DeleteIdentityResponse' :: Int
httpStatus = Int
a} :: DeleteIdentityResponse)
instance Prelude.NFData DeleteIdentityResponse where
rnf :: DeleteIdentityResponse -> ()
rnf DeleteIdentityResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteIdentityResponse' :: DeleteIdentityResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus