{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.SES.DeleteIdentity
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Deletes the specified identity (an email address or a domain) from the
-- list of verified identities.
--
-- You can execute this operation no more than once per second.
module Amazonka.SES.DeleteIdentity
  ( -- * Creating a Request
    DeleteIdentity (..),
    newDeleteIdentity,

    -- * Request Lenses
    deleteIdentity_identity,

    -- * Destructuring the Response
    DeleteIdentityResponse (..),
    newDeleteIdentityResponse,

    -- * Response Lenses
    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

-- | Represents a request to delete one of your Amazon SES identities (an
-- email address or domain).
--
-- /See:/ 'newDeleteIdentity' smart constructor.
data DeleteIdentity = DeleteIdentity'
  { -- | The identity to be removed from the list of identities for the AWS
    -- Account.
    DeleteIdentity -> Text
identity :: Prelude.Text
  }
  deriving (DeleteIdentity -> DeleteIdentity -> Bool
(DeleteIdentity -> DeleteIdentity -> Bool)
-> (DeleteIdentity -> DeleteIdentity -> Bool) -> Eq DeleteIdentity
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeleteIdentity -> DeleteIdentity -> Bool
== :: DeleteIdentity -> DeleteIdentity -> Bool
$c/= :: DeleteIdentity -> DeleteIdentity -> Bool
/= :: DeleteIdentity -> DeleteIdentity -> Bool
Prelude.Eq, ReadPrec [DeleteIdentity]
ReadPrec DeleteIdentity
Int -> ReadS DeleteIdentity
ReadS [DeleteIdentity]
(Int -> ReadS DeleteIdentity)
-> ReadS [DeleteIdentity]
-> ReadPrec DeleteIdentity
-> ReadPrec [DeleteIdentity]
-> Read DeleteIdentity
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS DeleteIdentity
readsPrec :: Int -> ReadS DeleteIdentity
$creadList :: ReadS [DeleteIdentity]
readList :: ReadS [DeleteIdentity]
$creadPrec :: ReadPrec DeleteIdentity
readPrec :: ReadPrec DeleteIdentity
$creadListPrec :: ReadPrec [DeleteIdentity]
readListPrec :: ReadPrec [DeleteIdentity]
Prelude.Read, Int -> DeleteIdentity -> ShowS
[DeleteIdentity] -> ShowS
DeleteIdentity -> String
(Int -> DeleteIdentity -> ShowS)
-> (DeleteIdentity -> String)
-> ([DeleteIdentity] -> ShowS)
-> Show DeleteIdentity
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DeleteIdentity -> ShowS
showsPrec :: Int -> DeleteIdentity -> ShowS
$cshow :: DeleteIdentity -> String
show :: DeleteIdentity -> String
$cshowList :: [DeleteIdentity] -> ShowS
showList :: [DeleteIdentity] -> ShowS
Prelude.Show, (forall x. DeleteIdentity -> Rep DeleteIdentity x)
-> (forall x. Rep DeleteIdentity x -> DeleteIdentity)
-> Generic DeleteIdentity
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
$cfrom :: forall x. DeleteIdentity -> Rep DeleteIdentity x
from :: forall x. DeleteIdentity -> Rep DeleteIdentity x
$cto :: forall x. Rep DeleteIdentity x -> DeleteIdentity
to :: forall x. Rep DeleteIdentity x -> DeleteIdentity
Prelude.Generic)

-- |
-- Create a value of 'DeleteIdentity' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'identity', 'deleteIdentity_identity' - The identity to be removed from the list of identities for the AWS
-- Account.
newDeleteIdentity ::
  -- | 'identity'
  Prelude.Text ->
  DeleteIdentity
newDeleteIdentity :: Text -> DeleteIdentity
newDeleteIdentity Text
pIdentity_ =
  DeleteIdentity' {$sel:identity:DeleteIdentity' :: Text
identity = Text
pIdentity_}

-- | The identity to be removed from the list of identities for the AWS
-- Account.
deleteIdentity_identity :: Lens.Lens' DeleteIdentity Prelude.Text
deleteIdentity_identity :: Lens' DeleteIdentity Text
deleteIdentity_identity = (DeleteIdentity -> Text)
-> (DeleteIdentity -> Text -> DeleteIdentity)
-> Lens' DeleteIdentity Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteIdentity' {Text
$sel:identity:DeleteIdentity' :: DeleteIdentity -> Text
identity :: Text
identity} -> Text
identity) (\s :: DeleteIdentity
s@DeleteIdentity' {} Text
a -> DeleteIdentity
s {identity = a} :: DeleteIdentity)

instance Core.AWSRequest DeleteIdentity where
  type
    AWSResponse DeleteIdentity =
      DeleteIdentityResponse
  request :: (Service -> Service) -> DeleteIdentity -> Request DeleteIdentity
request Service -> Service
overrides =
    Service -> DeleteIdentity -> Request DeleteIdentity
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 =
    Text
-> (Int
    -> ResponseHeaders
    -> [Node]
    -> Either String (AWSResponse DeleteIdentity))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteIdentity
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteIdentity)))
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'
            (Int -> DeleteIdentityResponse)
-> Either String Int -> Either String DeleteIdentityResponse
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 DeleteIdentity where
  hashWithSalt :: Int -> DeleteIdentity -> Int
hashWithSalt Int
_salt DeleteIdentity' {Text
$sel:identity:DeleteIdentity' :: DeleteIdentity -> Text
identity :: Text
..} =
    Int
_salt Int -> Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
identity

instance Prelude.NFData DeleteIdentity where
  rnf :: DeleteIdentity -> ()
rnf DeleteIdentity' {Text
$sel:identity:DeleteIdentity' :: DeleteIdentity -> Text
identity :: Text
..} = Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Text
identity

instance Data.ToHeaders DeleteIdentity where
  toHeaders :: DeleteIdentity -> ResponseHeaders
toHeaders = ResponseHeaders -> DeleteIdentity -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty

instance Data.ToPath DeleteIdentity where
  toPath :: DeleteIdentity -> ByteString
toPath = ByteString -> DeleteIdentity -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance Data.ToQuery DeleteIdentity where
  toQuery :: DeleteIdentity -> QueryString
toQuery DeleteIdentity' {Text
$sel:identity:DeleteIdentity' :: DeleteIdentity -> Text
identity :: 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
"DeleteIdentity" :: Prelude.ByteString),
        ByteString
"Version"
          ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
        ByteString
"Identity" ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
identity
      ]

-- | An empty element returned on a successful request.
--
-- /See:/ 'newDeleteIdentityResponse' smart constructor.
data DeleteIdentityResponse = DeleteIdentityResponse'
  { -- | The response's http status code.
    DeleteIdentityResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (DeleteIdentityResponse -> DeleteIdentityResponse -> Bool
(DeleteIdentityResponse -> DeleteIdentityResponse -> Bool)
-> (DeleteIdentityResponse -> DeleteIdentityResponse -> Bool)
-> Eq DeleteIdentityResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeleteIdentityResponse -> DeleteIdentityResponse -> Bool
== :: DeleteIdentityResponse -> DeleteIdentityResponse -> Bool
$c/= :: DeleteIdentityResponse -> DeleteIdentityResponse -> Bool
/= :: DeleteIdentityResponse -> DeleteIdentityResponse -> Bool
Prelude.Eq, ReadPrec [DeleteIdentityResponse]
ReadPrec DeleteIdentityResponse
Int -> ReadS DeleteIdentityResponse
ReadS [DeleteIdentityResponse]
(Int -> ReadS DeleteIdentityResponse)
-> ReadS [DeleteIdentityResponse]
-> ReadPrec DeleteIdentityResponse
-> ReadPrec [DeleteIdentityResponse]
-> Read DeleteIdentityResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS DeleteIdentityResponse
readsPrec :: Int -> ReadS DeleteIdentityResponse
$creadList :: ReadS [DeleteIdentityResponse]
readList :: ReadS [DeleteIdentityResponse]
$creadPrec :: ReadPrec DeleteIdentityResponse
readPrec :: ReadPrec DeleteIdentityResponse
$creadListPrec :: ReadPrec [DeleteIdentityResponse]
readListPrec :: ReadPrec [DeleteIdentityResponse]
Prelude.Read, Int -> DeleteIdentityResponse -> ShowS
[DeleteIdentityResponse] -> ShowS
DeleteIdentityResponse -> String
(Int -> DeleteIdentityResponse -> ShowS)
-> (DeleteIdentityResponse -> String)
-> ([DeleteIdentityResponse] -> ShowS)
-> Show DeleteIdentityResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DeleteIdentityResponse -> ShowS
showsPrec :: Int -> DeleteIdentityResponse -> ShowS
$cshow :: DeleteIdentityResponse -> String
show :: DeleteIdentityResponse -> String
$cshowList :: [DeleteIdentityResponse] -> ShowS
showList :: [DeleteIdentityResponse] -> ShowS
Prelude.Show, (forall x. DeleteIdentityResponse -> Rep DeleteIdentityResponse x)
-> (forall x.
    Rep DeleteIdentityResponse x -> DeleteIdentityResponse)
-> Generic DeleteIdentityResponse
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
$cfrom :: forall x. DeleteIdentityResponse -> Rep DeleteIdentityResponse x
from :: forall x. DeleteIdentityResponse -> Rep DeleteIdentityResponse x
$cto :: forall x. Rep DeleteIdentityResponse x -> DeleteIdentityResponse
to :: forall x. Rep DeleteIdentityResponse x -> DeleteIdentityResponse
Prelude.Generic)

-- |
-- Create a value of 'DeleteIdentityResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'httpStatus', 'deleteIdentityResponse_httpStatus' - The response's http status code.
newDeleteIdentityResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  DeleteIdentityResponse
newDeleteIdentityResponse :: Int -> DeleteIdentityResponse
newDeleteIdentityResponse Int
pHttpStatus_ =
  DeleteIdentityResponse' {$sel:httpStatus:DeleteIdentityResponse' :: Int
httpStatus = Int
pHttpStatus_}

-- | The response's http status code.
deleteIdentityResponse_httpStatus :: Lens.Lens' DeleteIdentityResponse Prelude.Int
deleteIdentityResponse_httpStatus :: Lens' DeleteIdentityResponse Int
deleteIdentityResponse_httpStatus = (DeleteIdentityResponse -> Int)
-> (DeleteIdentityResponse -> Int -> DeleteIdentityResponse)
-> Lens' DeleteIdentityResponse Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteIdentityResponse' {Int
$sel:httpStatus:DeleteIdentityResponse' :: DeleteIdentityResponse -> Int
httpStatus :: Int
httpStatus} -> Int
httpStatus) (\s :: DeleteIdentityResponse
s@DeleteIdentityResponse' {} Int
a -> DeleteIdentityResponse
s {httpStatus = a} :: DeleteIdentityResponse)

instance Prelude.NFData DeleteIdentityResponse where
  rnf :: DeleteIdentityResponse -> ()
rnf DeleteIdentityResponse' {Int
$sel:httpStatus:DeleteIdentityResponse' :: DeleteIdentityResponse -> Int
httpStatus :: Int
..} =
    Int -> ()
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus