{-# 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.S3.DeleteBucketEncryption
(
DeleteBucketEncryption (..),
newDeleteBucketEncryption,
deleteBucketEncryption_expectedBucketOwner,
deleteBucketEncryption_bucket,
DeleteBucketEncryptionResponse (..),
newDeleteBucketEncryptionResponse,
)
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.S3.Types
data DeleteBucketEncryption = DeleteBucketEncryption'
{
DeleteBucketEncryption -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
DeleteBucketEncryption -> BucketName
bucket :: BucketName
}
deriving (DeleteBucketEncryption -> DeleteBucketEncryption -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteBucketEncryption -> DeleteBucketEncryption -> Bool
$c/= :: DeleteBucketEncryption -> DeleteBucketEncryption -> Bool
== :: DeleteBucketEncryption -> DeleteBucketEncryption -> Bool
$c== :: DeleteBucketEncryption -> DeleteBucketEncryption -> Bool
Prelude.Eq, ReadPrec [DeleteBucketEncryption]
ReadPrec DeleteBucketEncryption
Int -> ReadS DeleteBucketEncryption
ReadS [DeleteBucketEncryption]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteBucketEncryption]
$creadListPrec :: ReadPrec [DeleteBucketEncryption]
readPrec :: ReadPrec DeleteBucketEncryption
$creadPrec :: ReadPrec DeleteBucketEncryption
readList :: ReadS [DeleteBucketEncryption]
$creadList :: ReadS [DeleteBucketEncryption]
readsPrec :: Int -> ReadS DeleteBucketEncryption
$creadsPrec :: Int -> ReadS DeleteBucketEncryption
Prelude.Read, Int -> DeleteBucketEncryption -> ShowS
[DeleteBucketEncryption] -> ShowS
DeleteBucketEncryption -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteBucketEncryption] -> ShowS
$cshowList :: [DeleteBucketEncryption] -> ShowS
show :: DeleteBucketEncryption -> String
$cshow :: DeleteBucketEncryption -> String
showsPrec :: Int -> DeleteBucketEncryption -> ShowS
$cshowsPrec :: Int -> DeleteBucketEncryption -> ShowS
Prelude.Show, forall x. Rep DeleteBucketEncryption x -> DeleteBucketEncryption
forall x. DeleteBucketEncryption -> Rep DeleteBucketEncryption x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteBucketEncryption x -> DeleteBucketEncryption
$cfrom :: forall x. DeleteBucketEncryption -> Rep DeleteBucketEncryption x
Prelude.Generic)
newDeleteBucketEncryption ::
BucketName ->
DeleteBucketEncryption
newDeleteBucketEncryption :: BucketName -> DeleteBucketEncryption
newDeleteBucketEncryption BucketName
pBucket_ =
DeleteBucketEncryption'
{ $sel:expectedBucketOwner:DeleteBucketEncryption' :: Maybe Text
expectedBucketOwner =
forall a. Maybe a
Prelude.Nothing,
$sel:bucket:DeleteBucketEncryption' :: BucketName
bucket = BucketName
pBucket_
}
deleteBucketEncryption_expectedBucketOwner :: Lens.Lens' DeleteBucketEncryption (Prelude.Maybe Prelude.Text)
deleteBucketEncryption_expectedBucketOwner :: Lens' DeleteBucketEncryption (Maybe Text)
deleteBucketEncryption_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBucketEncryption' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:DeleteBucketEncryption' :: DeleteBucketEncryption -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: DeleteBucketEncryption
s@DeleteBucketEncryption' {} Maybe Text
a -> DeleteBucketEncryption
s {$sel:expectedBucketOwner:DeleteBucketEncryption' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: DeleteBucketEncryption)
deleteBucketEncryption_bucket :: Lens.Lens' DeleteBucketEncryption BucketName
deleteBucketEncryption_bucket :: Lens' DeleteBucketEncryption BucketName
deleteBucketEncryption_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBucketEncryption' {BucketName
bucket :: BucketName
$sel:bucket:DeleteBucketEncryption' :: DeleteBucketEncryption -> BucketName
bucket} -> BucketName
bucket) (\s :: DeleteBucketEncryption
s@DeleteBucketEncryption' {} BucketName
a -> DeleteBucketEncryption
s {$sel:bucket:DeleteBucketEncryption' :: BucketName
bucket = BucketName
a} :: DeleteBucketEncryption)
instance Core.AWSRequest DeleteBucketEncryption where
type
AWSResponse DeleteBucketEncryption =
DeleteBucketEncryptionResponse
request :: (Service -> Service)
-> DeleteBucketEncryption -> Request DeleteBucketEncryption
request Service -> Service
overrides =
forall a. Request a -> Request a
Request.s3vhost
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. 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 DeleteBucketEncryption
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteBucketEncryption)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeleteBucketEncryptionResponse
DeleteBucketEncryptionResponse'
instance Prelude.Hashable DeleteBucketEncryption where
hashWithSalt :: Int -> DeleteBucketEncryption -> Int
hashWithSalt Int
_salt DeleteBucketEncryption' {Maybe Text
BucketName
bucket :: BucketName
expectedBucketOwner :: Maybe Text
$sel:bucket:DeleteBucketEncryption' :: DeleteBucketEncryption -> BucketName
$sel:expectedBucketOwner:DeleteBucketEncryption' :: DeleteBucketEncryption -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
expectedBucketOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BucketName
bucket
instance Prelude.NFData DeleteBucketEncryption where
rnf :: DeleteBucketEncryption -> ()
rnf DeleteBucketEncryption' {Maybe Text
BucketName
bucket :: BucketName
expectedBucketOwner :: Maybe Text
$sel:bucket:DeleteBucketEncryption' :: DeleteBucketEncryption -> BucketName
$sel:expectedBucketOwner:DeleteBucketEncryption' :: DeleteBucketEncryption -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
expectedBucketOwner
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf BucketName
bucket
instance Data.ToHeaders DeleteBucketEncryption where
toHeaders :: DeleteBucketEncryption -> [Header]
toHeaders DeleteBucketEncryption' {Maybe Text
BucketName
bucket :: BucketName
expectedBucketOwner :: Maybe Text
$sel:bucket:DeleteBucketEncryption' :: DeleteBucketEncryption -> BucketName
$sel:expectedBucketOwner:DeleteBucketEncryption' :: DeleteBucketEncryption -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"x-amz-expected-bucket-owner"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
expectedBucketOwner
]
instance Data.ToPath DeleteBucketEncryption where
toPath :: DeleteBucketEncryption -> ByteString
toPath DeleteBucketEncryption' {Maybe Text
BucketName
bucket :: BucketName
expectedBucketOwner :: Maybe Text
$sel:bucket:DeleteBucketEncryption' :: DeleteBucketEncryption -> BucketName
$sel:expectedBucketOwner:DeleteBucketEncryption' :: DeleteBucketEncryption -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket]
instance Data.ToQuery DeleteBucketEncryption where
toQuery :: DeleteBucketEncryption -> QueryString
toQuery =
forall a b. a -> b -> a
Prelude.const (forall a. Monoid a => [a] -> a
Prelude.mconcat [QueryString
"encryption"])
data DeleteBucketEncryptionResponse = DeleteBucketEncryptionResponse'
{
}
deriving (DeleteBucketEncryptionResponse
-> DeleteBucketEncryptionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteBucketEncryptionResponse
-> DeleteBucketEncryptionResponse -> Bool
$c/= :: DeleteBucketEncryptionResponse
-> DeleteBucketEncryptionResponse -> Bool
== :: DeleteBucketEncryptionResponse
-> DeleteBucketEncryptionResponse -> Bool
$c== :: DeleteBucketEncryptionResponse
-> DeleteBucketEncryptionResponse -> Bool
Prelude.Eq, ReadPrec [DeleteBucketEncryptionResponse]
ReadPrec DeleteBucketEncryptionResponse
Int -> ReadS DeleteBucketEncryptionResponse
ReadS [DeleteBucketEncryptionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteBucketEncryptionResponse]
$creadListPrec :: ReadPrec [DeleteBucketEncryptionResponse]
readPrec :: ReadPrec DeleteBucketEncryptionResponse
$creadPrec :: ReadPrec DeleteBucketEncryptionResponse
readList :: ReadS [DeleteBucketEncryptionResponse]
$creadList :: ReadS [DeleteBucketEncryptionResponse]
readsPrec :: Int -> ReadS DeleteBucketEncryptionResponse
$creadsPrec :: Int -> ReadS DeleteBucketEncryptionResponse
Prelude.Read, Int -> DeleteBucketEncryptionResponse -> ShowS
[DeleteBucketEncryptionResponse] -> ShowS
DeleteBucketEncryptionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteBucketEncryptionResponse] -> ShowS
$cshowList :: [DeleteBucketEncryptionResponse] -> ShowS
show :: DeleteBucketEncryptionResponse -> String
$cshow :: DeleteBucketEncryptionResponse -> String
showsPrec :: Int -> DeleteBucketEncryptionResponse -> ShowS
$cshowsPrec :: Int -> DeleteBucketEncryptionResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteBucketEncryptionResponse x
-> DeleteBucketEncryptionResponse
forall x.
DeleteBucketEncryptionResponse
-> Rep DeleteBucketEncryptionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteBucketEncryptionResponse x
-> DeleteBucketEncryptionResponse
$cfrom :: forall x.
DeleteBucketEncryptionResponse
-> Rep DeleteBucketEncryptionResponse x
Prelude.Generic)
newDeleteBucketEncryptionResponse ::
DeleteBucketEncryptionResponse
newDeleteBucketEncryptionResponse :: DeleteBucketEncryptionResponse
newDeleteBucketEncryptionResponse =
DeleteBucketEncryptionResponse
DeleteBucketEncryptionResponse'
instance
Prelude.NFData
DeleteBucketEncryptionResponse
where
rnf :: DeleteBucketEncryptionResponse -> ()
rnf DeleteBucketEncryptionResponse
_ = ()