{-# 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.DeleteDatalake
(
DeleteDatalake (..),
newDeleteDatalake,
DeleteDatalakeResponse (..),
newDeleteDatalakeResponse,
deleteDatalakeResponse_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 DeleteDatalake = DeleteDatalake'
{
}
deriving (DeleteDatalake -> DeleteDatalake -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteDatalake -> DeleteDatalake -> Bool
$c/= :: DeleteDatalake -> DeleteDatalake -> Bool
== :: DeleteDatalake -> DeleteDatalake -> Bool
$c== :: DeleteDatalake -> DeleteDatalake -> Bool
Prelude.Eq, ReadPrec [DeleteDatalake]
ReadPrec DeleteDatalake
Int -> ReadS DeleteDatalake
ReadS [DeleteDatalake]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteDatalake]
$creadListPrec :: ReadPrec [DeleteDatalake]
readPrec :: ReadPrec DeleteDatalake
$creadPrec :: ReadPrec DeleteDatalake
readList :: ReadS [DeleteDatalake]
$creadList :: ReadS [DeleteDatalake]
readsPrec :: Int -> ReadS DeleteDatalake
$creadsPrec :: Int -> ReadS DeleteDatalake
Prelude.Read, Int -> DeleteDatalake -> ShowS
[DeleteDatalake] -> ShowS
DeleteDatalake -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteDatalake] -> ShowS
$cshowList :: [DeleteDatalake] -> ShowS
show :: DeleteDatalake -> String
$cshow :: DeleteDatalake -> String
showsPrec :: Int -> DeleteDatalake -> ShowS
$cshowsPrec :: Int -> DeleteDatalake -> ShowS
Prelude.Show, forall x. Rep DeleteDatalake x -> DeleteDatalake
forall x. DeleteDatalake -> Rep DeleteDatalake x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteDatalake x -> DeleteDatalake
$cfrom :: forall x. DeleteDatalake -> Rep DeleteDatalake x
Prelude.Generic)
newDeleteDatalake ::
DeleteDatalake
newDeleteDatalake :: DeleteDatalake
newDeleteDatalake = DeleteDatalake
DeleteDatalake'
instance Core.AWSRequest DeleteDatalake where
type
AWSResponse DeleteDatalake =
DeleteDatalakeResponse
request :: (Service -> Service) -> DeleteDatalake -> Request DeleteDatalake
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 DeleteDatalake
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteDatalake)))
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 -> DeleteDatalakeResponse
DeleteDatalakeResponse'
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 DeleteDatalake where
hashWithSalt :: Int -> DeleteDatalake -> Int
hashWithSalt Int
_salt DeleteDatalake
_ =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ()
instance Prelude.NFData DeleteDatalake where
rnf :: DeleteDatalake -> ()
rnf DeleteDatalake
_ = ()
instance Data.ToHeaders DeleteDatalake where
toHeaders :: DeleteDatalake -> 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 DeleteDatalake where
toPath :: DeleteDatalake -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/v1/datalake"
instance Data.ToQuery DeleteDatalake where
toQuery :: DeleteDatalake -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteDatalakeResponse = DeleteDatalakeResponse'
{
DeleteDatalakeResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteDatalakeResponse -> DeleteDatalakeResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteDatalakeResponse -> DeleteDatalakeResponse -> Bool
$c/= :: DeleteDatalakeResponse -> DeleteDatalakeResponse -> Bool
== :: DeleteDatalakeResponse -> DeleteDatalakeResponse -> Bool
$c== :: DeleteDatalakeResponse -> DeleteDatalakeResponse -> Bool
Prelude.Eq, ReadPrec [DeleteDatalakeResponse]
ReadPrec DeleteDatalakeResponse
Int -> ReadS DeleteDatalakeResponse
ReadS [DeleteDatalakeResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteDatalakeResponse]
$creadListPrec :: ReadPrec [DeleteDatalakeResponse]
readPrec :: ReadPrec DeleteDatalakeResponse
$creadPrec :: ReadPrec DeleteDatalakeResponse
readList :: ReadS [DeleteDatalakeResponse]
$creadList :: ReadS [DeleteDatalakeResponse]
readsPrec :: Int -> ReadS DeleteDatalakeResponse
$creadsPrec :: Int -> ReadS DeleteDatalakeResponse
Prelude.Read, Int -> DeleteDatalakeResponse -> ShowS
[DeleteDatalakeResponse] -> ShowS
DeleteDatalakeResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteDatalakeResponse] -> ShowS
$cshowList :: [DeleteDatalakeResponse] -> ShowS
show :: DeleteDatalakeResponse -> String
$cshow :: DeleteDatalakeResponse -> String
showsPrec :: Int -> DeleteDatalakeResponse -> ShowS
$cshowsPrec :: Int -> DeleteDatalakeResponse -> ShowS
Prelude.Show, forall x. Rep DeleteDatalakeResponse x -> DeleteDatalakeResponse
forall x. DeleteDatalakeResponse -> Rep DeleteDatalakeResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteDatalakeResponse x -> DeleteDatalakeResponse
$cfrom :: forall x. DeleteDatalakeResponse -> Rep DeleteDatalakeResponse x
Prelude.Generic)
newDeleteDatalakeResponse ::
Prelude.Int ->
DeleteDatalakeResponse
newDeleteDatalakeResponse :: Int -> DeleteDatalakeResponse
newDeleteDatalakeResponse Int
pHttpStatus_ =
DeleteDatalakeResponse' {$sel:httpStatus:DeleteDatalakeResponse' :: Int
httpStatus = Int
pHttpStatus_}
deleteDatalakeResponse_httpStatus :: Lens.Lens' DeleteDatalakeResponse Prelude.Int
deleteDatalakeResponse_httpStatus :: Lens' DeleteDatalakeResponse Int
deleteDatalakeResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDatalakeResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteDatalakeResponse' :: DeleteDatalakeResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteDatalakeResponse
s@DeleteDatalakeResponse' {} Int
a -> DeleteDatalakeResponse
s {$sel:httpStatus:DeleteDatalakeResponse' :: Int
httpStatus = Int
a} :: DeleteDatalakeResponse)
instance Prelude.NFData DeleteDatalakeResponse where
rnf :: DeleteDatalakeResponse -> ()
rnf DeleteDatalakeResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteDatalakeResponse' :: DeleteDatalakeResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus