{-# 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.SecurityLake.DeleteDatalakeDelegatedAdmin
(
DeleteDatalakeDelegatedAdmin (..),
newDeleteDatalakeDelegatedAdmin,
deleteDatalakeDelegatedAdmin_account,
DeleteDatalakeDelegatedAdminResponse (..),
newDeleteDatalakeDelegatedAdminResponse,
deleteDatalakeDelegatedAdminResponse_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.SecurityLake.Types
data DeleteDatalakeDelegatedAdmin = DeleteDatalakeDelegatedAdmin'
{
DeleteDatalakeDelegatedAdmin -> Text
account :: Prelude.Text
}
deriving (DeleteDatalakeDelegatedAdmin
-> DeleteDatalakeDelegatedAdmin -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteDatalakeDelegatedAdmin
-> DeleteDatalakeDelegatedAdmin -> Bool
$c/= :: DeleteDatalakeDelegatedAdmin
-> DeleteDatalakeDelegatedAdmin -> Bool
== :: DeleteDatalakeDelegatedAdmin
-> DeleteDatalakeDelegatedAdmin -> Bool
$c== :: DeleteDatalakeDelegatedAdmin
-> DeleteDatalakeDelegatedAdmin -> Bool
Prelude.Eq, ReadPrec [DeleteDatalakeDelegatedAdmin]
ReadPrec DeleteDatalakeDelegatedAdmin
Int -> ReadS DeleteDatalakeDelegatedAdmin
ReadS [DeleteDatalakeDelegatedAdmin]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteDatalakeDelegatedAdmin]
$creadListPrec :: ReadPrec [DeleteDatalakeDelegatedAdmin]
readPrec :: ReadPrec DeleteDatalakeDelegatedAdmin
$creadPrec :: ReadPrec DeleteDatalakeDelegatedAdmin
readList :: ReadS [DeleteDatalakeDelegatedAdmin]
$creadList :: ReadS [DeleteDatalakeDelegatedAdmin]
readsPrec :: Int -> ReadS DeleteDatalakeDelegatedAdmin
$creadsPrec :: Int -> ReadS DeleteDatalakeDelegatedAdmin
Prelude.Read, Int -> DeleteDatalakeDelegatedAdmin -> ShowS
[DeleteDatalakeDelegatedAdmin] -> ShowS
DeleteDatalakeDelegatedAdmin -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteDatalakeDelegatedAdmin] -> ShowS
$cshowList :: [DeleteDatalakeDelegatedAdmin] -> ShowS
show :: DeleteDatalakeDelegatedAdmin -> String
$cshow :: DeleteDatalakeDelegatedAdmin -> String
showsPrec :: Int -> DeleteDatalakeDelegatedAdmin -> ShowS
$cshowsPrec :: Int -> DeleteDatalakeDelegatedAdmin -> ShowS
Prelude.Show, forall x.
Rep DeleteDatalakeDelegatedAdmin x -> DeleteDatalakeDelegatedAdmin
forall x.
DeleteDatalakeDelegatedAdmin -> Rep DeleteDatalakeDelegatedAdmin x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteDatalakeDelegatedAdmin x -> DeleteDatalakeDelegatedAdmin
$cfrom :: forall x.
DeleteDatalakeDelegatedAdmin -> Rep DeleteDatalakeDelegatedAdmin x
Prelude.Generic)
newDeleteDatalakeDelegatedAdmin ::
Prelude.Text ->
DeleteDatalakeDelegatedAdmin
newDeleteDatalakeDelegatedAdmin :: Text -> DeleteDatalakeDelegatedAdmin
newDeleteDatalakeDelegatedAdmin Text
pAccount_ =
DeleteDatalakeDelegatedAdmin' {$sel:account:DeleteDatalakeDelegatedAdmin' :: Text
account = Text
pAccount_}
deleteDatalakeDelegatedAdmin_account :: Lens.Lens' DeleteDatalakeDelegatedAdmin Prelude.Text
deleteDatalakeDelegatedAdmin_account :: Lens' DeleteDatalakeDelegatedAdmin Text
deleteDatalakeDelegatedAdmin_account = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDatalakeDelegatedAdmin' {Text
account :: Text
$sel:account:DeleteDatalakeDelegatedAdmin' :: DeleteDatalakeDelegatedAdmin -> Text
account} -> Text
account) (\s :: DeleteDatalakeDelegatedAdmin
s@DeleteDatalakeDelegatedAdmin' {} Text
a -> DeleteDatalakeDelegatedAdmin
s {$sel:account:DeleteDatalakeDelegatedAdmin' :: Text
account = Text
a} :: DeleteDatalakeDelegatedAdmin)
instance Core.AWSRequest DeleteDatalakeDelegatedAdmin where
type
AWSResponse DeleteDatalakeDelegatedAdmin =
DeleteDatalakeDelegatedAdminResponse
request :: (Service -> Service)
-> DeleteDatalakeDelegatedAdmin
-> Request DeleteDatalakeDelegatedAdmin
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteDatalakeDelegatedAdmin
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteDatalakeDelegatedAdmin)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> DeleteDatalakeDelegatedAdminResponse
DeleteDatalakeDelegatedAdminResponse'
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
DeleteDatalakeDelegatedAdmin
where
hashWithSalt :: Int -> DeleteDatalakeDelegatedAdmin -> Int
hashWithSalt Int
_salt DeleteDatalakeDelegatedAdmin' {Text
account :: Text
$sel:account:DeleteDatalakeDelegatedAdmin' :: DeleteDatalakeDelegatedAdmin -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
account
instance Prelude.NFData DeleteDatalakeDelegatedAdmin where
rnf :: DeleteDatalakeDelegatedAdmin -> ()
rnf DeleteDatalakeDelegatedAdmin' {Text
account :: Text
$sel:account:DeleteDatalakeDelegatedAdmin' :: DeleteDatalakeDelegatedAdmin -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
account
instance Data.ToHeaders DeleteDatalakeDelegatedAdmin where
toHeaders :: DeleteDatalakeDelegatedAdmin -> 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.ToPath DeleteDatalakeDelegatedAdmin where
toPath :: DeleteDatalakeDelegatedAdmin -> ByteString
toPath DeleteDatalakeDelegatedAdmin' {Text
account :: Text
$sel:account:DeleteDatalakeDelegatedAdmin' :: DeleteDatalakeDelegatedAdmin -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/v1/datalake/delegate/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
account]
instance Data.ToQuery DeleteDatalakeDelegatedAdmin where
toQuery :: DeleteDatalakeDelegatedAdmin -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteDatalakeDelegatedAdminResponse = DeleteDatalakeDelegatedAdminResponse'
{
DeleteDatalakeDelegatedAdminResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteDatalakeDelegatedAdminResponse
-> DeleteDatalakeDelegatedAdminResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteDatalakeDelegatedAdminResponse
-> DeleteDatalakeDelegatedAdminResponse -> Bool
$c/= :: DeleteDatalakeDelegatedAdminResponse
-> DeleteDatalakeDelegatedAdminResponse -> Bool
== :: DeleteDatalakeDelegatedAdminResponse
-> DeleteDatalakeDelegatedAdminResponse -> Bool
$c== :: DeleteDatalakeDelegatedAdminResponse
-> DeleteDatalakeDelegatedAdminResponse -> Bool
Prelude.Eq, ReadPrec [DeleteDatalakeDelegatedAdminResponse]
ReadPrec DeleteDatalakeDelegatedAdminResponse
Int -> ReadS DeleteDatalakeDelegatedAdminResponse
ReadS [DeleteDatalakeDelegatedAdminResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteDatalakeDelegatedAdminResponse]
$creadListPrec :: ReadPrec [DeleteDatalakeDelegatedAdminResponse]
readPrec :: ReadPrec DeleteDatalakeDelegatedAdminResponse
$creadPrec :: ReadPrec DeleteDatalakeDelegatedAdminResponse
readList :: ReadS [DeleteDatalakeDelegatedAdminResponse]
$creadList :: ReadS [DeleteDatalakeDelegatedAdminResponse]
readsPrec :: Int -> ReadS DeleteDatalakeDelegatedAdminResponse
$creadsPrec :: Int -> ReadS DeleteDatalakeDelegatedAdminResponse
Prelude.Read, Int -> DeleteDatalakeDelegatedAdminResponse -> ShowS
[DeleteDatalakeDelegatedAdminResponse] -> ShowS
DeleteDatalakeDelegatedAdminResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteDatalakeDelegatedAdminResponse] -> ShowS
$cshowList :: [DeleteDatalakeDelegatedAdminResponse] -> ShowS
show :: DeleteDatalakeDelegatedAdminResponse -> String
$cshow :: DeleteDatalakeDelegatedAdminResponse -> String
showsPrec :: Int -> DeleteDatalakeDelegatedAdminResponse -> ShowS
$cshowsPrec :: Int -> DeleteDatalakeDelegatedAdminResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteDatalakeDelegatedAdminResponse x
-> DeleteDatalakeDelegatedAdminResponse
forall x.
DeleteDatalakeDelegatedAdminResponse
-> Rep DeleteDatalakeDelegatedAdminResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteDatalakeDelegatedAdminResponse x
-> DeleteDatalakeDelegatedAdminResponse
$cfrom :: forall x.
DeleteDatalakeDelegatedAdminResponse
-> Rep DeleteDatalakeDelegatedAdminResponse x
Prelude.Generic)
newDeleteDatalakeDelegatedAdminResponse ::
Prelude.Int ->
DeleteDatalakeDelegatedAdminResponse
newDeleteDatalakeDelegatedAdminResponse :: Int -> DeleteDatalakeDelegatedAdminResponse
newDeleteDatalakeDelegatedAdminResponse Int
pHttpStatus_ =
DeleteDatalakeDelegatedAdminResponse'
{ $sel:httpStatus:DeleteDatalakeDelegatedAdminResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteDatalakeDelegatedAdminResponse_httpStatus :: Lens.Lens' DeleteDatalakeDelegatedAdminResponse Prelude.Int
deleteDatalakeDelegatedAdminResponse_httpStatus :: Lens' DeleteDatalakeDelegatedAdminResponse Int
deleteDatalakeDelegatedAdminResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDatalakeDelegatedAdminResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteDatalakeDelegatedAdminResponse' :: DeleteDatalakeDelegatedAdminResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteDatalakeDelegatedAdminResponse
s@DeleteDatalakeDelegatedAdminResponse' {} Int
a -> DeleteDatalakeDelegatedAdminResponse
s {$sel:httpStatus:DeleteDatalakeDelegatedAdminResponse' :: Int
httpStatus = Int
a} :: DeleteDatalakeDelegatedAdminResponse)
instance
Prelude.NFData
DeleteDatalakeDelegatedAdminResponse
where
rnf :: DeleteDatalakeDelegatedAdminResponse -> ()
rnf DeleteDatalakeDelegatedAdminResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteDatalakeDelegatedAdminResponse' :: DeleteDatalakeDelegatedAdminResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus