{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.S3.PutBucketLifecycleConfiguration
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates a new lifecycle configuration for the bucket or replaces an
-- existing lifecycle configuration. Keep in mind that this will overwrite
-- an existing lifecycle configuration, so if you want to retain any
-- configuration details, they must be included in the new lifecycle
-- configuration. For information about lifecycle configuration, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/object-lifecycle-mgmt.html Managing your storage lifecycle>.
--
-- Bucket lifecycle configuration now supports specifying a lifecycle rule
-- using an object key name prefix, one or more object tags, or a
-- combination of both. Accordingly, this section describes the latest API.
-- The previous version of the API supported filtering based only on an
-- object key name prefix, which is supported for backward compatibility.
-- For the related API description, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/API/API_PutBucketLifecycle.html PutBucketLifecycle>.
--
-- __Rules__
--
-- You specify the lifecycle configuration in your request body. The
-- lifecycle configuration is specified as XML consisting of one or more
-- rules. An Amazon S3 Lifecycle configuration can have up to 1,000 rules.
-- This limit is not adjustable. Each rule consists of the following:
--
-- -   Filter identifying a subset of objects to which the rule applies.
--     The filter can be based on a key name prefix, object tags, or a
--     combination of both.
--
-- -   Status whether the rule is in effect.
--
-- -   One or more lifecycle transition and expiration actions that you
--     want Amazon S3 to perform on the objects identified by the filter.
--     If the state of your bucket is versioning-enabled or
--     versioning-suspended, you can have many versions of the same object
--     (one current version and zero or more noncurrent versions). Amazon
--     S3 provides predefined actions that you can specify for current and
--     noncurrent object versions.
--
-- For more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/object-lifecycle-mgmt.html Object Lifecycle Management>
-- and
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/intro-lifecycle-rules.html Lifecycle Configuration Elements>.
--
-- __Permissions__
--
-- By default, all Amazon S3 resources are private, including buckets,
-- objects, and related subresources (for example, lifecycle configuration
-- and website configuration). Only the resource owner (that is, the Amazon
-- Web Services account that created it) can access the resource. The
-- resource owner can optionally grant access permissions to others by
-- writing an access policy. For this operation, a user must get the
-- @s3:PutLifecycleConfiguration@ permission.
--
-- You can also explicitly deny permissions. Explicit deny also supersedes
-- any other permissions. If you want to block users or accounts from
-- removing or deleting objects from your bucket, you must deny them
-- permissions for the following actions:
--
-- -   @s3:DeleteObject@
--
-- -   @s3:DeleteObjectVersion@
--
-- -   @s3:PutLifecycleConfiguration@
--
-- For more information about permissions, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/s3-access-control.html Managing Access Permissions to Your Amazon S3 Resources>.
--
-- The following are related to @PutBucketLifecycleConfiguration@:
--
-- -   <https://docs.aws.amazon.com/AmazonS3/latest/dev/lifecycle-configuration-examples.html Examples of Lifecycle Configuration>
--
-- -   <https://docs.aws.amazon.com/AmazonS3/latest/API/API_GetBucketLifecycleConfiguration.html GetBucketLifecycleConfiguration>
--
-- -   <https://docs.aws.amazon.com/AmazonS3/latest/API/API_DeleteBucketLifecycle.html DeleteBucketLifecycle>
module Amazonka.S3.PutBucketLifecycleConfiguration
  ( -- * Creating a Request
    PutBucketLifecycleConfiguration (..),
    newPutBucketLifecycleConfiguration,

    -- * Request Lenses
    putBucketLifecycleConfiguration_checksumAlgorithm,
    putBucketLifecycleConfiguration_expectedBucketOwner,
    putBucketLifecycleConfiguration_lifecycleConfiguration,
    putBucketLifecycleConfiguration_bucket,

    -- * Destructuring the Response
    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

-- | /See:/ 'newPutBucketLifecycleConfiguration' smart constructor.
data PutBucketLifecycleConfiguration = PutBucketLifecycleConfiguration'
  { -- | Indicates the algorithm used to create the checksum for the object when
    -- using the SDK. This header will not provide any additional functionality
    -- if not using the SDK. When sending this header, there must be a
    -- corresponding @x-amz-checksum@ or @x-amz-trailer@ header sent.
    -- Otherwise, Amazon S3 fails the request with the HTTP status code
    -- @400 Bad Request@. For more information, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
    -- in the /Amazon S3 User Guide/.
    --
    -- If you provide an individual checksum, Amazon S3 ignores any provided
    -- @ChecksumAlgorithm@ parameter.
    PutBucketLifecycleConfiguration -> Maybe ChecksumAlgorithm
checksumAlgorithm :: Prelude.Maybe ChecksumAlgorithm,
    -- | The account ID of the expected bucket owner. If the bucket is owned by a
    -- different account, the request fails with the HTTP status code
    -- @403 Forbidden@ (access denied).
    PutBucketLifecycleConfiguration -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
    -- | Container for lifecycle rules. You can add as many as 1,000 rules.
    PutBucketLifecycleConfiguration
-> Maybe BucketLifecycleConfiguration
lifecycleConfiguration :: Prelude.Maybe BucketLifecycleConfiguration,
    -- | The name of the bucket for which to set the configuration.
    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)

-- |
-- Create a value of 'PutBucketLifecycleConfiguration' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'checksumAlgorithm', 'putBucketLifecycleConfiguration_checksumAlgorithm' - Indicates the algorithm used to create the checksum for the object when
-- using the SDK. This header will not provide any additional functionality
-- if not using the SDK. When sending this header, there must be a
-- corresponding @x-amz-checksum@ or @x-amz-trailer@ header sent.
-- Otherwise, Amazon S3 fails the request with the HTTP status code
-- @400 Bad Request@. For more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- If you provide an individual checksum, Amazon S3 ignores any provided
-- @ChecksumAlgorithm@ parameter.
--
-- 'expectedBucketOwner', 'putBucketLifecycleConfiguration_expectedBucketOwner' - The account ID of the expected bucket owner. If the bucket is owned by a
-- different account, the request fails with the HTTP status code
-- @403 Forbidden@ (access denied).
--
-- 'lifecycleConfiguration', 'putBucketLifecycleConfiguration_lifecycleConfiguration' - Container for lifecycle rules. You can add as many as 1,000 rules.
--
-- 'bucket', 'putBucketLifecycleConfiguration_bucket' - The name of the bucket for which to set the configuration.
newPutBucketLifecycleConfiguration ::
  -- | 'bucket'
  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_
    }

-- | Indicates the algorithm used to create the checksum for the object when
-- using the SDK. This header will not provide any additional functionality
-- if not using the SDK. When sending this header, there must be a
-- corresponding @x-amz-checksum@ or @x-amz-trailer@ header sent.
-- Otherwise, Amazon S3 fails the request with the HTTP status code
-- @400 Bad Request@. For more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- If you provide an individual checksum, Amazon S3 ignores any provided
-- @ChecksumAlgorithm@ parameter.
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)

-- | The account ID of the expected bucket owner. If the bucket is owned by a
-- different account, the request fails with the HTTP status code
-- @403 Forbidden@ (access denied).
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)

-- | Container for lifecycle rules. You can add as many as 1,000 rules.
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)

-- | The name of the bucket for which to set the configuration.
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"])

-- | /See:/ 'newPutBucketLifecycleConfigurationResponse' smart constructor.
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)

-- |
-- Create a value of 'PutBucketLifecycleConfigurationResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
newPutBucketLifecycleConfigurationResponse ::
  PutBucketLifecycleConfigurationResponse
newPutBucketLifecycleConfigurationResponse :: PutBucketLifecycleConfigurationResponse
newPutBucketLifecycleConfigurationResponse =
  PutBucketLifecycleConfigurationResponse
PutBucketLifecycleConfigurationResponse'

instance
  Prelude.NFData
    PutBucketLifecycleConfigurationResponse
  where
  rnf :: PutBucketLifecycleConfigurationResponse -> ()
rnf PutBucketLifecycleConfigurationResponse
_ = ()