{-# 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.Inspector2.DisableDelegatedAdminAccount
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Disables the Amazon Inspector delegated administrator for your
-- organization.
module Amazonka.Inspector2.DisableDelegatedAdminAccount
  ( -- * Creating a Request
    DisableDelegatedAdminAccount (..),
    newDisableDelegatedAdminAccount,

    -- * Request Lenses
    disableDelegatedAdminAccount_delegatedAdminAccountId,

    -- * Destructuring the Response
    DisableDelegatedAdminAccountResponse (..),
    newDisableDelegatedAdminAccountResponse,

    -- * Response Lenses
    disableDelegatedAdminAccountResponse_httpStatus,
    disableDelegatedAdminAccountResponse_delegatedAdminAccountId,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Inspector2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newDisableDelegatedAdminAccount' smart constructor.
data DisableDelegatedAdminAccount = DisableDelegatedAdminAccount'
  { -- | The Amazon Web Services account ID of the current Amazon Inspector
    -- delegated administrator.
    DisableDelegatedAdminAccount -> Text
delegatedAdminAccountId :: Prelude.Text
  }
  deriving (DisableDelegatedAdminAccount
-> DisableDelegatedAdminAccount -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisableDelegatedAdminAccount
-> DisableDelegatedAdminAccount -> Bool
$c/= :: DisableDelegatedAdminAccount
-> DisableDelegatedAdminAccount -> Bool
== :: DisableDelegatedAdminAccount
-> DisableDelegatedAdminAccount -> Bool
$c== :: DisableDelegatedAdminAccount
-> DisableDelegatedAdminAccount -> Bool
Prelude.Eq, ReadPrec [DisableDelegatedAdminAccount]
ReadPrec DisableDelegatedAdminAccount
Int -> ReadS DisableDelegatedAdminAccount
ReadS [DisableDelegatedAdminAccount]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisableDelegatedAdminAccount]
$creadListPrec :: ReadPrec [DisableDelegatedAdminAccount]
readPrec :: ReadPrec DisableDelegatedAdminAccount
$creadPrec :: ReadPrec DisableDelegatedAdminAccount
readList :: ReadS [DisableDelegatedAdminAccount]
$creadList :: ReadS [DisableDelegatedAdminAccount]
readsPrec :: Int -> ReadS DisableDelegatedAdminAccount
$creadsPrec :: Int -> ReadS DisableDelegatedAdminAccount
Prelude.Read, Int -> DisableDelegatedAdminAccount -> ShowS
[DisableDelegatedAdminAccount] -> ShowS
DisableDelegatedAdminAccount -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisableDelegatedAdminAccount] -> ShowS
$cshowList :: [DisableDelegatedAdminAccount] -> ShowS
show :: DisableDelegatedAdminAccount -> String
$cshow :: DisableDelegatedAdminAccount -> String
showsPrec :: Int -> DisableDelegatedAdminAccount -> ShowS
$cshowsPrec :: Int -> DisableDelegatedAdminAccount -> ShowS
Prelude.Show, forall x.
Rep DisableDelegatedAdminAccount x -> DisableDelegatedAdminAccount
forall x.
DisableDelegatedAdminAccount -> Rep DisableDelegatedAdminAccount x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisableDelegatedAdminAccount x -> DisableDelegatedAdminAccount
$cfrom :: forall x.
DisableDelegatedAdminAccount -> Rep DisableDelegatedAdminAccount x
Prelude.Generic)

-- |
-- Create a value of 'DisableDelegatedAdminAccount' 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:
--
-- 'delegatedAdminAccountId', 'disableDelegatedAdminAccount_delegatedAdminAccountId' - The Amazon Web Services account ID of the current Amazon Inspector
-- delegated administrator.
newDisableDelegatedAdminAccount ::
  -- | 'delegatedAdminAccountId'
  Prelude.Text ->
  DisableDelegatedAdminAccount
newDisableDelegatedAdminAccount :: Text -> DisableDelegatedAdminAccount
newDisableDelegatedAdminAccount
  Text
pDelegatedAdminAccountId_ =
    DisableDelegatedAdminAccount'
      { $sel:delegatedAdminAccountId:DisableDelegatedAdminAccount' :: Text
delegatedAdminAccountId =
          Text
pDelegatedAdminAccountId_
      }

-- | The Amazon Web Services account ID of the current Amazon Inspector
-- delegated administrator.
disableDelegatedAdminAccount_delegatedAdminAccountId :: Lens.Lens' DisableDelegatedAdminAccount Prelude.Text
disableDelegatedAdminAccount_delegatedAdminAccountId :: Lens' DisableDelegatedAdminAccount Text
disableDelegatedAdminAccount_delegatedAdminAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisableDelegatedAdminAccount' {Text
delegatedAdminAccountId :: Text
$sel:delegatedAdminAccountId:DisableDelegatedAdminAccount' :: DisableDelegatedAdminAccount -> Text
delegatedAdminAccountId} -> Text
delegatedAdminAccountId) (\s :: DisableDelegatedAdminAccount
s@DisableDelegatedAdminAccount' {} Text
a -> DisableDelegatedAdminAccount
s {$sel:delegatedAdminAccountId:DisableDelegatedAdminAccount' :: Text
delegatedAdminAccountId = Text
a} :: DisableDelegatedAdminAccount)

instance Core.AWSRequest DisableDelegatedAdminAccount where
  type
    AWSResponse DisableDelegatedAdminAccount =
      DisableDelegatedAdminAccountResponse
  request :: (Service -> Service)
-> DisableDelegatedAdminAccount
-> Request DisableDelegatedAdminAccount
request Service -> Service
overrides =
    forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DisableDelegatedAdminAccount
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse DisableDelegatedAdminAccount)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
      ( \Int
s ResponseHeaders
h Object
x ->
          Int -> Text -> DisableDelegatedAdminAccountResponse
DisableDelegatedAdminAccountResponse'
            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))
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"delegatedAdminAccountId")
      )

instance
  Prelude.Hashable
    DisableDelegatedAdminAccount
  where
  hashWithSalt :: Int -> DisableDelegatedAdminAccount -> Int
hashWithSalt Int
_salt DisableDelegatedAdminAccount' {Text
delegatedAdminAccountId :: Text
$sel:delegatedAdminAccountId:DisableDelegatedAdminAccount' :: DisableDelegatedAdminAccount -> Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
delegatedAdminAccountId

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

instance Data.ToHeaders DisableDelegatedAdminAccount where
  toHeaders :: DisableDelegatedAdminAccount -> ResponseHeaders
toHeaders =
    forall a b. a -> b -> a
Prelude.const
      ( forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"Content-Type"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON DisableDelegatedAdminAccount where
  toJSON :: DisableDelegatedAdminAccount -> Value
toJSON DisableDelegatedAdminAccount' {Text
delegatedAdminAccountId :: Text
$sel:delegatedAdminAccountId:DisableDelegatedAdminAccount' :: DisableDelegatedAdminAccount -> Text
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ forall a. a -> Maybe a
Prelude.Just
              ( Key
"delegatedAdminAccountId"
                  forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
delegatedAdminAccountId
              )
          ]
      )

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

instance Data.ToQuery DisableDelegatedAdminAccount where
  toQuery :: DisableDelegatedAdminAccount -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newDisableDelegatedAdminAccountResponse' smart constructor.
data DisableDelegatedAdminAccountResponse = DisableDelegatedAdminAccountResponse'
  { -- | The response's http status code.
    DisableDelegatedAdminAccountResponse -> Int
httpStatus :: Prelude.Int,
    -- | The Amazon Web Services account ID of the successfully disabled
    -- delegated administrator.
    DisableDelegatedAdminAccountResponse -> Text
delegatedAdminAccountId :: Prelude.Text
  }
  deriving (DisableDelegatedAdminAccountResponse
-> DisableDelegatedAdminAccountResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisableDelegatedAdminAccountResponse
-> DisableDelegatedAdminAccountResponse -> Bool
$c/= :: DisableDelegatedAdminAccountResponse
-> DisableDelegatedAdminAccountResponse -> Bool
== :: DisableDelegatedAdminAccountResponse
-> DisableDelegatedAdminAccountResponse -> Bool
$c== :: DisableDelegatedAdminAccountResponse
-> DisableDelegatedAdminAccountResponse -> Bool
Prelude.Eq, ReadPrec [DisableDelegatedAdminAccountResponse]
ReadPrec DisableDelegatedAdminAccountResponse
Int -> ReadS DisableDelegatedAdminAccountResponse
ReadS [DisableDelegatedAdminAccountResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisableDelegatedAdminAccountResponse]
$creadListPrec :: ReadPrec [DisableDelegatedAdminAccountResponse]
readPrec :: ReadPrec DisableDelegatedAdminAccountResponse
$creadPrec :: ReadPrec DisableDelegatedAdminAccountResponse
readList :: ReadS [DisableDelegatedAdminAccountResponse]
$creadList :: ReadS [DisableDelegatedAdminAccountResponse]
readsPrec :: Int -> ReadS DisableDelegatedAdminAccountResponse
$creadsPrec :: Int -> ReadS DisableDelegatedAdminAccountResponse
Prelude.Read, Int -> DisableDelegatedAdminAccountResponse -> ShowS
[DisableDelegatedAdminAccountResponse] -> ShowS
DisableDelegatedAdminAccountResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisableDelegatedAdminAccountResponse] -> ShowS
$cshowList :: [DisableDelegatedAdminAccountResponse] -> ShowS
show :: DisableDelegatedAdminAccountResponse -> String
$cshow :: DisableDelegatedAdminAccountResponse -> String
showsPrec :: Int -> DisableDelegatedAdminAccountResponse -> ShowS
$cshowsPrec :: Int -> DisableDelegatedAdminAccountResponse -> ShowS
Prelude.Show, forall x.
Rep DisableDelegatedAdminAccountResponse x
-> DisableDelegatedAdminAccountResponse
forall x.
DisableDelegatedAdminAccountResponse
-> Rep DisableDelegatedAdminAccountResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisableDelegatedAdminAccountResponse x
-> DisableDelegatedAdminAccountResponse
$cfrom :: forall x.
DisableDelegatedAdminAccountResponse
-> Rep DisableDelegatedAdminAccountResponse x
Prelude.Generic)

-- |
-- Create a value of 'DisableDelegatedAdminAccountResponse' 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', 'disableDelegatedAdminAccountResponse_httpStatus' - The response's http status code.
--
-- 'delegatedAdminAccountId', 'disableDelegatedAdminAccountResponse_delegatedAdminAccountId' - The Amazon Web Services account ID of the successfully disabled
-- delegated administrator.
newDisableDelegatedAdminAccountResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  -- | 'delegatedAdminAccountId'
  Prelude.Text ->
  DisableDelegatedAdminAccountResponse
newDisableDelegatedAdminAccountResponse :: Int -> Text -> DisableDelegatedAdminAccountResponse
newDisableDelegatedAdminAccountResponse
  Int
pHttpStatus_
  Text
pDelegatedAdminAccountId_ =
    DisableDelegatedAdminAccountResponse'
      { $sel:httpStatus:DisableDelegatedAdminAccountResponse' :: Int
httpStatus =
          Int
pHttpStatus_,
        $sel:delegatedAdminAccountId:DisableDelegatedAdminAccountResponse' :: Text
delegatedAdminAccountId =
          Text
pDelegatedAdminAccountId_
      }

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

-- | The Amazon Web Services account ID of the successfully disabled
-- delegated administrator.
disableDelegatedAdminAccountResponse_delegatedAdminAccountId :: Lens.Lens' DisableDelegatedAdminAccountResponse Prelude.Text
disableDelegatedAdminAccountResponse_delegatedAdminAccountId :: Lens' DisableDelegatedAdminAccountResponse Text
disableDelegatedAdminAccountResponse_delegatedAdminAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisableDelegatedAdminAccountResponse' {Text
delegatedAdminAccountId :: Text
$sel:delegatedAdminAccountId:DisableDelegatedAdminAccountResponse' :: DisableDelegatedAdminAccountResponse -> Text
delegatedAdminAccountId} -> Text
delegatedAdminAccountId) (\s :: DisableDelegatedAdminAccountResponse
s@DisableDelegatedAdminAccountResponse' {} Text
a -> DisableDelegatedAdminAccountResponse
s {$sel:delegatedAdminAccountId:DisableDelegatedAdminAccountResponse' :: Text
delegatedAdminAccountId = Text
a} :: DisableDelegatedAdminAccountResponse)

instance
  Prelude.NFData
    DisableDelegatedAdminAccountResponse
  where
  rnf :: DisableDelegatedAdminAccountResponse -> ()
rnf DisableDelegatedAdminAccountResponse' {Int
Text
delegatedAdminAccountId :: Text
httpStatus :: Int
$sel:delegatedAdminAccountId:DisableDelegatedAdminAccountResponse' :: DisableDelegatedAdminAccountResponse -> Text
$sel:httpStatus:DisableDelegatedAdminAccountResponse' :: DisableDelegatedAdminAccountResponse -> Int
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
delegatedAdminAccountId