{-# 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.PutBucketLifecycleConfiguration
(
PutBucketLifecycleConfiguration (..),
newPutBucketLifecycleConfiguration,
putBucketLifecycleConfiguration_checksumAlgorithm,
putBucketLifecycleConfiguration_expectedBucketOwner,
putBucketLifecycleConfiguration_lifecycleConfiguration,
putBucketLifecycleConfiguration_bucket,
PutBucketLifecycleConfigurationResponse (..),
newPutBucketLifecycleConfigurationResponse,
)
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 PutBucketLifecycleConfiguration = PutBucketLifecycleConfiguration'
{
PutBucketLifecycleConfiguration -> Maybe ChecksumAlgorithm
checksumAlgorithm :: Prelude.Maybe ChecksumAlgorithm,
PutBucketLifecycleConfiguration -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
PutBucketLifecycleConfiguration
-> Maybe BucketLifecycleConfiguration
lifecycleConfiguration :: Prelude.Maybe BucketLifecycleConfiguration,
PutBucketLifecycleConfiguration -> BucketName
bucket :: BucketName
}
deriving (PutBucketLifecycleConfiguration
-> PutBucketLifecycleConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutBucketLifecycleConfiguration
-> PutBucketLifecycleConfiguration -> Bool
$c/= :: PutBucketLifecycleConfiguration
-> PutBucketLifecycleConfiguration -> Bool
== :: PutBucketLifecycleConfiguration
-> PutBucketLifecycleConfiguration -> Bool
$c== :: PutBucketLifecycleConfiguration
-> PutBucketLifecycleConfiguration -> Bool
Prelude.Eq, ReadPrec [PutBucketLifecycleConfiguration]
ReadPrec PutBucketLifecycleConfiguration
Int -> ReadS PutBucketLifecycleConfiguration
ReadS [PutBucketLifecycleConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutBucketLifecycleConfiguration]
$creadListPrec :: ReadPrec [PutBucketLifecycleConfiguration]
readPrec :: ReadPrec PutBucketLifecycleConfiguration
$creadPrec :: ReadPrec PutBucketLifecycleConfiguration
readList :: ReadS [PutBucketLifecycleConfiguration]
$creadList :: ReadS [PutBucketLifecycleConfiguration]
readsPrec :: Int -> ReadS PutBucketLifecycleConfiguration
$creadsPrec :: Int -> ReadS PutBucketLifecycleConfiguration
Prelude.Read, Int -> PutBucketLifecycleConfiguration -> ShowS
[PutBucketLifecycleConfiguration] -> ShowS
PutBucketLifecycleConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutBucketLifecycleConfiguration] -> ShowS
$cshowList :: [PutBucketLifecycleConfiguration] -> ShowS
show :: PutBucketLifecycleConfiguration -> String
$cshow :: PutBucketLifecycleConfiguration -> String
showsPrec :: Int -> PutBucketLifecycleConfiguration -> ShowS
$cshowsPrec :: Int -> PutBucketLifecycleConfiguration -> ShowS
Prelude.Show, forall x.
Rep PutBucketLifecycleConfiguration x
-> PutBucketLifecycleConfiguration
forall x.
PutBucketLifecycleConfiguration
-> Rep PutBucketLifecycleConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutBucketLifecycleConfiguration x
-> PutBucketLifecycleConfiguration
$cfrom :: forall x.
PutBucketLifecycleConfiguration
-> Rep PutBucketLifecycleConfiguration x
Prelude.Generic)
newPutBucketLifecycleConfiguration ::
BucketName ->
PutBucketLifecycleConfiguration
newPutBucketLifecycleConfiguration :: BucketName -> PutBucketLifecycleConfiguration
newPutBucketLifecycleConfiguration BucketName
pBucket_ =
PutBucketLifecycleConfiguration'
{ $sel:checksumAlgorithm:PutBucketLifecycleConfiguration' :: Maybe ChecksumAlgorithm
checksumAlgorithm =
forall a. Maybe a
Prelude.Nothing,
$sel:expectedBucketOwner:PutBucketLifecycleConfiguration' :: Maybe Text
expectedBucketOwner = forall a. Maybe a
Prelude.Nothing,
$sel:lifecycleConfiguration:PutBucketLifecycleConfiguration' :: Maybe BucketLifecycleConfiguration
lifecycleConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:bucket:PutBucketLifecycleConfiguration' :: BucketName
bucket = BucketName
pBucket_
}
putBucketLifecycleConfiguration_checksumAlgorithm :: Lens.Lens' PutBucketLifecycleConfiguration (Prelude.Maybe ChecksumAlgorithm)
putBucketLifecycleConfiguration_checksumAlgorithm :: Lens' PutBucketLifecycleConfiguration (Maybe ChecksumAlgorithm)
putBucketLifecycleConfiguration_checksumAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketLifecycleConfiguration' {Maybe ChecksumAlgorithm
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:checksumAlgorithm:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> Maybe ChecksumAlgorithm
checksumAlgorithm} -> Maybe ChecksumAlgorithm
checksumAlgorithm) (\s :: PutBucketLifecycleConfiguration
s@PutBucketLifecycleConfiguration' {} Maybe ChecksumAlgorithm
a -> PutBucketLifecycleConfiguration
s {$sel:checksumAlgorithm:PutBucketLifecycleConfiguration' :: Maybe ChecksumAlgorithm
checksumAlgorithm = Maybe ChecksumAlgorithm
a} :: PutBucketLifecycleConfiguration)
putBucketLifecycleConfiguration_expectedBucketOwner :: Lens.Lens' PutBucketLifecycleConfiguration (Prelude.Maybe Prelude.Text)
putBucketLifecycleConfiguration_expectedBucketOwner :: Lens' PutBucketLifecycleConfiguration (Maybe Text)
putBucketLifecycleConfiguration_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketLifecycleConfiguration' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: PutBucketLifecycleConfiguration
s@PutBucketLifecycleConfiguration' {} Maybe Text
a -> PutBucketLifecycleConfiguration
s {$sel:expectedBucketOwner:PutBucketLifecycleConfiguration' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: PutBucketLifecycleConfiguration)
putBucketLifecycleConfiguration_lifecycleConfiguration :: Lens.Lens' PutBucketLifecycleConfiguration (Prelude.Maybe BucketLifecycleConfiguration)
putBucketLifecycleConfiguration_lifecycleConfiguration :: Lens'
PutBucketLifecycleConfiguration
(Maybe BucketLifecycleConfiguration)
putBucketLifecycleConfiguration_lifecycleConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketLifecycleConfiguration' {Maybe BucketLifecycleConfiguration
lifecycleConfiguration :: Maybe BucketLifecycleConfiguration
$sel:lifecycleConfiguration:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration
-> Maybe BucketLifecycleConfiguration
lifecycleConfiguration} -> Maybe BucketLifecycleConfiguration
lifecycleConfiguration) (\s :: PutBucketLifecycleConfiguration
s@PutBucketLifecycleConfiguration' {} Maybe BucketLifecycleConfiguration
a -> PutBucketLifecycleConfiguration
s {$sel:lifecycleConfiguration:PutBucketLifecycleConfiguration' :: Maybe BucketLifecycleConfiguration
lifecycleConfiguration = Maybe BucketLifecycleConfiguration
a} :: PutBucketLifecycleConfiguration)
putBucketLifecycleConfiguration_bucket :: Lens.Lens' PutBucketLifecycleConfiguration BucketName
putBucketLifecycleConfiguration_bucket :: Lens' PutBucketLifecycleConfiguration BucketName
putBucketLifecycleConfiguration_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketLifecycleConfiguration' {BucketName
bucket :: BucketName
$sel:bucket:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> BucketName
bucket} -> BucketName
bucket) (\s :: PutBucketLifecycleConfiguration
s@PutBucketLifecycleConfiguration' {} BucketName
a -> PutBucketLifecycleConfiguration
s {$sel:bucket:PutBucketLifecycleConfiguration' :: BucketName
bucket = BucketName
a} :: PutBucketLifecycleConfiguration)
instance
Core.AWSRequest
PutBucketLifecycleConfiguration
where
type
AWSResponse PutBucketLifecycleConfiguration =
PutBucketLifecycleConfigurationResponse
request :: (Service -> Service)
-> PutBucketLifecycleConfiguration
-> Request PutBucketLifecycleConfiguration
request Service -> Service
overrides =
forall a. Request a -> Request a
Request.contentMD5Header
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Request a -> Request a
Request.s3vhost
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. (ToRequest a, ToElement a) => Service -> a -> Request a
Request.putXML (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy PutBucketLifecycleConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse PutBucketLifecycleConfiguration)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
PutBucketLifecycleConfigurationResponse
PutBucketLifecycleConfigurationResponse'
instance
Prelude.Hashable
PutBucketLifecycleConfiguration
where
hashWithSalt :: Int -> PutBucketLifecycleConfiguration -> Int
hashWithSalt
Int
_salt
PutBucketLifecycleConfiguration' {Maybe Text
Maybe ChecksumAlgorithm
Maybe BucketLifecycleConfiguration
BucketName
bucket :: BucketName
lifecycleConfiguration :: Maybe BucketLifecycleConfiguration
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:bucket:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> BucketName
$sel:lifecycleConfiguration:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration
-> Maybe BucketLifecycleConfiguration
$sel:expectedBucketOwner:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> Maybe Text
$sel:checksumAlgorithm:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> Maybe ChecksumAlgorithm
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ChecksumAlgorithm
checksumAlgorithm
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
expectedBucketOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BucketLifecycleConfiguration
lifecycleConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BucketName
bucket
instance
Prelude.NFData
PutBucketLifecycleConfiguration
where
rnf :: PutBucketLifecycleConfiguration -> ()
rnf PutBucketLifecycleConfiguration' {Maybe Text
Maybe ChecksumAlgorithm
Maybe BucketLifecycleConfiguration
BucketName
bucket :: BucketName
lifecycleConfiguration :: Maybe BucketLifecycleConfiguration
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:bucket:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> BucketName
$sel:lifecycleConfiguration:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration
-> Maybe BucketLifecycleConfiguration
$sel:expectedBucketOwner:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> Maybe Text
$sel:checksumAlgorithm:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> Maybe ChecksumAlgorithm
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ChecksumAlgorithm
checksumAlgorithm
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 Maybe BucketLifecycleConfiguration
lifecycleConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf BucketName
bucket
instance
Data.ToElement
PutBucketLifecycleConfiguration
where
toElement :: PutBucketLifecycleConfiguration -> Element
toElement PutBucketLifecycleConfiguration' {Maybe Text
Maybe ChecksumAlgorithm
Maybe BucketLifecycleConfiguration
BucketName
bucket :: BucketName
lifecycleConfiguration :: Maybe BucketLifecycleConfiguration
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:bucket:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> BucketName
$sel:lifecycleConfiguration:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration
-> Maybe BucketLifecycleConfiguration
$sel:expectedBucketOwner:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> Maybe Text
$sel:checksumAlgorithm:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> Maybe ChecksumAlgorithm
..} =
forall a. ToXML a => Name -> a -> Element
Data.mkElement
Name
"{http://s3.amazonaws.com/doc/2006-03-01/}LifecycleConfiguration"
Maybe BucketLifecycleConfiguration
lifecycleConfiguration
instance
Data.ToHeaders
PutBucketLifecycleConfiguration
where
toHeaders :: PutBucketLifecycleConfiguration -> [Header]
toHeaders PutBucketLifecycleConfiguration' {Maybe Text
Maybe ChecksumAlgorithm
Maybe BucketLifecycleConfiguration
BucketName
bucket :: BucketName
lifecycleConfiguration :: Maybe BucketLifecycleConfiguration
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:bucket:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> BucketName
$sel:lifecycleConfiguration:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration
-> Maybe BucketLifecycleConfiguration
$sel:expectedBucketOwner:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> Maybe Text
$sel:checksumAlgorithm:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> Maybe ChecksumAlgorithm
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"x-amz-sdk-checksum-algorithm"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ChecksumAlgorithm
checksumAlgorithm,
HeaderName
"x-amz-expected-bucket-owner"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
expectedBucketOwner
]
instance Data.ToPath PutBucketLifecycleConfiguration where
toPath :: PutBucketLifecycleConfiguration -> ByteString
toPath PutBucketLifecycleConfiguration' {Maybe Text
Maybe ChecksumAlgorithm
Maybe BucketLifecycleConfiguration
BucketName
bucket :: BucketName
lifecycleConfiguration :: Maybe BucketLifecycleConfiguration
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:bucket:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> BucketName
$sel:lifecycleConfiguration:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration
-> Maybe BucketLifecycleConfiguration
$sel:expectedBucketOwner:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> Maybe Text
$sel:checksumAlgorithm:PutBucketLifecycleConfiguration' :: PutBucketLifecycleConfiguration -> Maybe ChecksumAlgorithm
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket]
instance Data.ToQuery PutBucketLifecycleConfiguration where
toQuery :: PutBucketLifecycleConfiguration -> QueryString
toQuery =
forall a b. a -> b -> a
Prelude.const (forall a. Monoid a => [a] -> a
Prelude.mconcat [QueryString
"lifecycle"])
data PutBucketLifecycleConfigurationResponse = PutBucketLifecycleConfigurationResponse'
{
}
deriving (PutBucketLifecycleConfigurationResponse
-> PutBucketLifecycleConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutBucketLifecycleConfigurationResponse
-> PutBucketLifecycleConfigurationResponse -> Bool
$c/= :: PutBucketLifecycleConfigurationResponse
-> PutBucketLifecycleConfigurationResponse -> Bool
== :: PutBucketLifecycleConfigurationResponse
-> PutBucketLifecycleConfigurationResponse -> Bool
$c== :: PutBucketLifecycleConfigurationResponse
-> PutBucketLifecycleConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [PutBucketLifecycleConfigurationResponse]
ReadPrec PutBucketLifecycleConfigurationResponse
Int -> ReadS PutBucketLifecycleConfigurationResponse
ReadS [PutBucketLifecycleConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutBucketLifecycleConfigurationResponse]
$creadListPrec :: ReadPrec [PutBucketLifecycleConfigurationResponse]
readPrec :: ReadPrec PutBucketLifecycleConfigurationResponse
$creadPrec :: ReadPrec PutBucketLifecycleConfigurationResponse
readList :: ReadS [PutBucketLifecycleConfigurationResponse]
$creadList :: ReadS [PutBucketLifecycleConfigurationResponse]
readsPrec :: Int -> ReadS PutBucketLifecycleConfigurationResponse
$creadsPrec :: Int -> ReadS PutBucketLifecycleConfigurationResponse
Prelude.Read, Int -> PutBucketLifecycleConfigurationResponse -> ShowS
[PutBucketLifecycleConfigurationResponse] -> ShowS
PutBucketLifecycleConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutBucketLifecycleConfigurationResponse] -> ShowS
$cshowList :: [PutBucketLifecycleConfigurationResponse] -> ShowS
show :: PutBucketLifecycleConfigurationResponse -> String
$cshow :: PutBucketLifecycleConfigurationResponse -> String
showsPrec :: Int -> PutBucketLifecycleConfigurationResponse -> ShowS
$cshowsPrec :: Int -> PutBucketLifecycleConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep PutBucketLifecycleConfigurationResponse x
-> PutBucketLifecycleConfigurationResponse
forall x.
PutBucketLifecycleConfigurationResponse
-> Rep PutBucketLifecycleConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutBucketLifecycleConfigurationResponse x
-> PutBucketLifecycleConfigurationResponse
$cfrom :: forall x.
PutBucketLifecycleConfigurationResponse
-> Rep PutBucketLifecycleConfigurationResponse x
Prelude.Generic)
newPutBucketLifecycleConfigurationResponse ::
PutBucketLifecycleConfigurationResponse
newPutBucketLifecycleConfigurationResponse :: PutBucketLifecycleConfigurationResponse
newPutBucketLifecycleConfigurationResponse =
PutBucketLifecycleConfigurationResponse
PutBucketLifecycleConfigurationResponse'
instance
Prelude.NFData
PutBucketLifecycleConfigurationResponse
where
rnf :: PutBucketLifecycleConfigurationResponse -> ()
rnf PutBucketLifecycleConfigurationResponse
_ = ()