{-# 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.DeleteDatalakeAutoEnable
(
DeleteDatalakeAutoEnable (..),
newDeleteDatalakeAutoEnable,
deleteDatalakeAutoEnable_removeFromConfigurationForNewAccounts,
DeleteDatalakeAutoEnableResponse (..),
newDeleteDatalakeAutoEnableResponse,
deleteDatalakeAutoEnableResponse_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 DeleteDatalakeAutoEnable = DeleteDatalakeAutoEnable'
{
DeleteDatalakeAutoEnable -> [AutoEnableNewRegionConfiguration]
removeFromConfigurationForNewAccounts :: [AutoEnableNewRegionConfiguration]
}
deriving (DeleteDatalakeAutoEnable -> DeleteDatalakeAutoEnable -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteDatalakeAutoEnable -> DeleteDatalakeAutoEnable -> Bool
$c/= :: DeleteDatalakeAutoEnable -> DeleteDatalakeAutoEnable -> Bool
== :: DeleteDatalakeAutoEnable -> DeleteDatalakeAutoEnable -> Bool
$c== :: DeleteDatalakeAutoEnable -> DeleteDatalakeAutoEnable -> Bool
Prelude.Eq, ReadPrec [DeleteDatalakeAutoEnable]
ReadPrec DeleteDatalakeAutoEnable
Int -> ReadS DeleteDatalakeAutoEnable
ReadS [DeleteDatalakeAutoEnable]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteDatalakeAutoEnable]
$creadListPrec :: ReadPrec [DeleteDatalakeAutoEnable]
readPrec :: ReadPrec DeleteDatalakeAutoEnable
$creadPrec :: ReadPrec DeleteDatalakeAutoEnable
readList :: ReadS [DeleteDatalakeAutoEnable]
$creadList :: ReadS [DeleteDatalakeAutoEnable]
readsPrec :: Int -> ReadS DeleteDatalakeAutoEnable
$creadsPrec :: Int -> ReadS DeleteDatalakeAutoEnable
Prelude.Read, Int -> DeleteDatalakeAutoEnable -> ShowS
[DeleteDatalakeAutoEnable] -> ShowS
DeleteDatalakeAutoEnable -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteDatalakeAutoEnable] -> ShowS
$cshowList :: [DeleteDatalakeAutoEnable] -> ShowS
show :: DeleteDatalakeAutoEnable -> String
$cshow :: DeleteDatalakeAutoEnable -> String
showsPrec :: Int -> DeleteDatalakeAutoEnable -> ShowS
$cshowsPrec :: Int -> DeleteDatalakeAutoEnable -> ShowS
Prelude.Show, forall x.
Rep DeleteDatalakeAutoEnable x -> DeleteDatalakeAutoEnable
forall x.
DeleteDatalakeAutoEnable -> Rep DeleteDatalakeAutoEnable x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteDatalakeAutoEnable x -> DeleteDatalakeAutoEnable
$cfrom :: forall x.
DeleteDatalakeAutoEnable -> Rep DeleteDatalakeAutoEnable x
Prelude.Generic)
newDeleteDatalakeAutoEnable ::
DeleteDatalakeAutoEnable
newDeleteDatalakeAutoEnable :: DeleteDatalakeAutoEnable
newDeleteDatalakeAutoEnable =
DeleteDatalakeAutoEnable'
{ $sel:removeFromConfigurationForNewAccounts:DeleteDatalakeAutoEnable' :: [AutoEnableNewRegionConfiguration]
removeFromConfigurationForNewAccounts =
forall a. Monoid a => a
Prelude.mempty
}
deleteDatalakeAutoEnable_removeFromConfigurationForNewAccounts :: Lens.Lens' DeleteDatalakeAutoEnable [AutoEnableNewRegionConfiguration]
deleteDatalakeAutoEnable_removeFromConfigurationForNewAccounts :: Lens' DeleteDatalakeAutoEnable [AutoEnableNewRegionConfiguration]
deleteDatalakeAutoEnable_removeFromConfigurationForNewAccounts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDatalakeAutoEnable' {[AutoEnableNewRegionConfiguration]
removeFromConfigurationForNewAccounts :: [AutoEnableNewRegionConfiguration]
$sel:removeFromConfigurationForNewAccounts:DeleteDatalakeAutoEnable' :: DeleteDatalakeAutoEnable -> [AutoEnableNewRegionConfiguration]
removeFromConfigurationForNewAccounts} -> [AutoEnableNewRegionConfiguration]
removeFromConfigurationForNewAccounts) (\s :: DeleteDatalakeAutoEnable
s@DeleteDatalakeAutoEnable' {} [AutoEnableNewRegionConfiguration]
a -> DeleteDatalakeAutoEnable
s {$sel:removeFromConfigurationForNewAccounts:DeleteDatalakeAutoEnable' :: [AutoEnableNewRegionConfiguration]
removeFromConfigurationForNewAccounts = [AutoEnableNewRegionConfiguration]
a} :: DeleteDatalakeAutoEnable) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Core.AWSRequest DeleteDatalakeAutoEnable where
type
AWSResponse DeleteDatalakeAutoEnable =
DeleteDatalakeAutoEnableResponse
request :: (Service -> Service)
-> DeleteDatalakeAutoEnable -> Request DeleteDatalakeAutoEnable
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 DeleteDatalakeAutoEnable
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteDatalakeAutoEnable)))
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 -> DeleteDatalakeAutoEnableResponse
DeleteDatalakeAutoEnableResponse'
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 DeleteDatalakeAutoEnable where
hashWithSalt :: Int -> DeleteDatalakeAutoEnable -> Int
hashWithSalt Int
_salt DeleteDatalakeAutoEnable' {[AutoEnableNewRegionConfiguration]
removeFromConfigurationForNewAccounts :: [AutoEnableNewRegionConfiguration]
$sel:removeFromConfigurationForNewAccounts:DeleteDatalakeAutoEnable' :: DeleteDatalakeAutoEnable -> [AutoEnableNewRegionConfiguration]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [AutoEnableNewRegionConfiguration]
removeFromConfigurationForNewAccounts
instance Prelude.NFData DeleteDatalakeAutoEnable where
rnf :: DeleteDatalakeAutoEnable -> ()
rnf DeleteDatalakeAutoEnable' {[AutoEnableNewRegionConfiguration]
removeFromConfigurationForNewAccounts :: [AutoEnableNewRegionConfiguration]
$sel:removeFromConfigurationForNewAccounts:DeleteDatalakeAutoEnable' :: DeleteDatalakeAutoEnable -> [AutoEnableNewRegionConfiguration]
..} =
forall a. NFData a => a -> ()
Prelude.rnf [AutoEnableNewRegionConfiguration]
removeFromConfigurationForNewAccounts
instance Data.ToHeaders DeleteDatalakeAutoEnable where
toHeaders :: DeleteDatalakeAutoEnable -> 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 DeleteDatalakeAutoEnable where
toJSON :: DeleteDatalakeAutoEnable -> Value
toJSON DeleteDatalakeAutoEnable' {[AutoEnableNewRegionConfiguration]
removeFromConfigurationForNewAccounts :: [AutoEnableNewRegionConfiguration]
$sel:removeFromConfigurationForNewAccounts:DeleteDatalakeAutoEnable' :: DeleteDatalakeAutoEnable -> [AutoEnableNewRegionConfiguration]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"removeFromConfigurationForNewAccounts"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [AutoEnableNewRegionConfiguration]
removeFromConfigurationForNewAccounts
)
]
)
instance Data.ToPath DeleteDatalakeAutoEnable where
toPath :: DeleteDatalakeAutoEnable -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const ByteString
"/v1/datalake/autoenable/delete"
instance Data.ToQuery DeleteDatalakeAutoEnable where
toQuery :: DeleteDatalakeAutoEnable -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteDatalakeAutoEnableResponse = DeleteDatalakeAutoEnableResponse'
{
DeleteDatalakeAutoEnableResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteDatalakeAutoEnableResponse
-> DeleteDatalakeAutoEnableResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteDatalakeAutoEnableResponse
-> DeleteDatalakeAutoEnableResponse -> Bool
$c/= :: DeleteDatalakeAutoEnableResponse
-> DeleteDatalakeAutoEnableResponse -> Bool
== :: DeleteDatalakeAutoEnableResponse
-> DeleteDatalakeAutoEnableResponse -> Bool
$c== :: DeleteDatalakeAutoEnableResponse
-> DeleteDatalakeAutoEnableResponse -> Bool
Prelude.Eq, ReadPrec [DeleteDatalakeAutoEnableResponse]
ReadPrec DeleteDatalakeAutoEnableResponse
Int -> ReadS DeleteDatalakeAutoEnableResponse
ReadS [DeleteDatalakeAutoEnableResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteDatalakeAutoEnableResponse]
$creadListPrec :: ReadPrec [DeleteDatalakeAutoEnableResponse]
readPrec :: ReadPrec DeleteDatalakeAutoEnableResponse
$creadPrec :: ReadPrec DeleteDatalakeAutoEnableResponse
readList :: ReadS [DeleteDatalakeAutoEnableResponse]
$creadList :: ReadS [DeleteDatalakeAutoEnableResponse]
readsPrec :: Int -> ReadS DeleteDatalakeAutoEnableResponse
$creadsPrec :: Int -> ReadS DeleteDatalakeAutoEnableResponse
Prelude.Read, Int -> DeleteDatalakeAutoEnableResponse -> ShowS
[DeleteDatalakeAutoEnableResponse] -> ShowS
DeleteDatalakeAutoEnableResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteDatalakeAutoEnableResponse] -> ShowS
$cshowList :: [DeleteDatalakeAutoEnableResponse] -> ShowS
show :: DeleteDatalakeAutoEnableResponse -> String
$cshow :: DeleteDatalakeAutoEnableResponse -> String
showsPrec :: Int -> DeleteDatalakeAutoEnableResponse -> ShowS
$cshowsPrec :: Int -> DeleteDatalakeAutoEnableResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteDatalakeAutoEnableResponse x
-> DeleteDatalakeAutoEnableResponse
forall x.
DeleteDatalakeAutoEnableResponse
-> Rep DeleteDatalakeAutoEnableResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteDatalakeAutoEnableResponse x
-> DeleteDatalakeAutoEnableResponse
$cfrom :: forall x.
DeleteDatalakeAutoEnableResponse
-> Rep DeleteDatalakeAutoEnableResponse x
Prelude.Generic)
newDeleteDatalakeAutoEnableResponse ::
Prelude.Int ->
DeleteDatalakeAutoEnableResponse
newDeleteDatalakeAutoEnableResponse :: Int -> DeleteDatalakeAutoEnableResponse
newDeleteDatalakeAutoEnableResponse Int
pHttpStatus_ =
DeleteDatalakeAutoEnableResponse'
{ $sel:httpStatus:DeleteDatalakeAutoEnableResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteDatalakeAutoEnableResponse_httpStatus :: Lens.Lens' DeleteDatalakeAutoEnableResponse Prelude.Int
deleteDatalakeAutoEnableResponse_httpStatus :: Lens' DeleteDatalakeAutoEnableResponse Int
deleteDatalakeAutoEnableResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDatalakeAutoEnableResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteDatalakeAutoEnableResponse' :: DeleteDatalakeAutoEnableResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteDatalakeAutoEnableResponse
s@DeleteDatalakeAutoEnableResponse' {} Int
a -> DeleteDatalakeAutoEnableResponse
s {$sel:httpStatus:DeleteDatalakeAutoEnableResponse' :: Int
httpStatus = Int
a} :: DeleteDatalakeAutoEnableResponse)
instance
Prelude.NFData
DeleteDatalakeAutoEnableResponse
where
rnf :: DeleteDatalakeAutoEnableResponse -> ()
rnf DeleteDatalakeAutoEnableResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteDatalakeAutoEnableResponse' :: DeleteDatalakeAutoEnableResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus