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