{-# 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.Inspector2.DisableDelegatedAdminAccount
(
DisableDelegatedAdminAccount (..),
newDisableDelegatedAdminAccount,
disableDelegatedAdminAccount_delegatedAdminAccountId,
DisableDelegatedAdminAccountResponse (..),
newDisableDelegatedAdminAccountResponse,
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
data DisableDelegatedAdminAccount = DisableDelegatedAdminAccount'
{
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)
newDisableDelegatedAdminAccount ::
Prelude.Text ->
DisableDelegatedAdminAccount
newDisableDelegatedAdminAccount :: Text -> DisableDelegatedAdminAccount
newDisableDelegatedAdminAccount
Text
pDelegatedAdminAccountId_ =
DisableDelegatedAdminAccount'
{ $sel:delegatedAdminAccountId:DisableDelegatedAdminAccount' :: Text
delegatedAdminAccountId =
Text
pDelegatedAdminAccountId_
}
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
data DisableDelegatedAdminAccountResponse = DisableDelegatedAdminAccountResponse'
{
DisableDelegatedAdminAccountResponse -> Int
httpStatus :: Prelude.Int,
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)
newDisableDelegatedAdminAccountResponse ::
Prelude.Int ->
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_
}
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)
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