{-# 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.PutBucketAccelerateConfiguration
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Sets the accelerate configuration of an existing bucket. Amazon S3
-- Transfer Acceleration is a bucket-level feature that enables you to
-- perform faster data transfers to Amazon S3.
--
-- To use this operation, you must have permission to perform the
-- @s3:PutAccelerateConfiguration@ action. The bucket owner has this
-- permission by default. The bucket owner can grant this permission to
-- others. For more information about permissions, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/using-with-s3-actions.html#using-with-s3-actions-related-to-bucket-subresources Permissions Related to Bucket Subresource Operations>
-- and
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/s3-access-control.html Managing Access Permissions to Your Amazon S3 Resources>.
--
-- The Transfer Acceleration state of a bucket can be set to one of the
-- following two values:
--
-- -   Enabled – Enables accelerated data transfers to the bucket.
--
-- -   Suspended – Disables accelerated data transfers to the bucket.
--
-- The
-- <https://docs.aws.amazon.com/AmazonS3/latest/API/API_GetBucketAccelerateConfiguration.html GetBucketAccelerateConfiguration>
-- action returns the transfer acceleration state of a bucket.
--
-- After setting the Transfer Acceleration state of a bucket to Enabled, it
-- might take up to thirty minutes before the data transfer rates to the
-- bucket increase.
--
-- The name of the bucket used for Transfer Acceleration must be
-- DNS-compliant and must not contain periods (\".\").
--
-- For more information about transfer acceleration, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/transfer-acceleration.html Transfer Acceleration>.
--
-- The following operations are related to
-- @PutBucketAccelerateConfiguration@:
--
-- -   <https://docs.aws.amazon.com/AmazonS3/latest/API/API_GetBucketAccelerateConfiguration.html GetBucketAccelerateConfiguration>
--
-- -   <https://docs.aws.amazon.com/AmazonS3/latest/API/API_CreateBucket.html CreateBucket>
module Amazonka.S3.PutBucketAccelerateConfiguration
  ( -- * Creating a Request
    PutBucketAccelerateConfiguration (..),
    newPutBucketAccelerateConfiguration,

    -- * Request Lenses
    putBucketAccelerateConfiguration_checksumAlgorithm,
    putBucketAccelerateConfiguration_expectedBucketOwner,
    putBucketAccelerateConfiguration_bucket,
    putBucketAccelerateConfiguration_accelerateConfiguration,

    -- * Destructuring the Response
    PutBucketAccelerateConfigurationResponse (..),
    newPutBucketAccelerateConfigurationResponse,
  )
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:/ 'newPutBucketAccelerateConfiguration' smart constructor.
data PutBucketAccelerateConfiguration = PutBucketAccelerateConfiguration'
  { -- | 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.
    PutBucketAccelerateConfiguration -> 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).
    PutBucketAccelerateConfiguration -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
    -- | The name of the bucket for which the accelerate configuration is set.
    PutBucketAccelerateConfiguration -> BucketName
bucket :: BucketName,
    -- | Container for setting the transfer acceleration state.
    PutBucketAccelerateConfiguration -> AccelerateConfiguration
accelerateConfiguration :: AccelerateConfiguration
  }
  deriving (PutBucketAccelerateConfiguration
-> PutBucketAccelerateConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutBucketAccelerateConfiguration
-> PutBucketAccelerateConfiguration -> Bool
$c/= :: PutBucketAccelerateConfiguration
-> PutBucketAccelerateConfiguration -> Bool
== :: PutBucketAccelerateConfiguration
-> PutBucketAccelerateConfiguration -> Bool
$c== :: PutBucketAccelerateConfiguration
-> PutBucketAccelerateConfiguration -> Bool
Prelude.Eq, ReadPrec [PutBucketAccelerateConfiguration]
ReadPrec PutBucketAccelerateConfiguration
Int -> ReadS PutBucketAccelerateConfiguration
ReadS [PutBucketAccelerateConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutBucketAccelerateConfiguration]
$creadListPrec :: ReadPrec [PutBucketAccelerateConfiguration]
readPrec :: ReadPrec PutBucketAccelerateConfiguration
$creadPrec :: ReadPrec PutBucketAccelerateConfiguration
readList :: ReadS [PutBucketAccelerateConfiguration]
$creadList :: ReadS [PutBucketAccelerateConfiguration]
readsPrec :: Int -> ReadS PutBucketAccelerateConfiguration
$creadsPrec :: Int -> ReadS PutBucketAccelerateConfiguration
Prelude.Read, Int -> PutBucketAccelerateConfiguration -> ShowS
[PutBucketAccelerateConfiguration] -> ShowS
PutBucketAccelerateConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutBucketAccelerateConfiguration] -> ShowS
$cshowList :: [PutBucketAccelerateConfiguration] -> ShowS
show :: PutBucketAccelerateConfiguration -> String
$cshow :: PutBucketAccelerateConfiguration -> String
showsPrec :: Int -> PutBucketAccelerateConfiguration -> ShowS
$cshowsPrec :: Int -> PutBucketAccelerateConfiguration -> ShowS
Prelude.Show, forall x.
Rep PutBucketAccelerateConfiguration x
-> PutBucketAccelerateConfiguration
forall x.
PutBucketAccelerateConfiguration
-> Rep PutBucketAccelerateConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutBucketAccelerateConfiguration x
-> PutBucketAccelerateConfiguration
$cfrom :: forall x.
PutBucketAccelerateConfiguration
-> Rep PutBucketAccelerateConfiguration x
Prelude.Generic)

-- |
-- Create a value of 'PutBucketAccelerateConfiguration' 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', 'putBucketAccelerateConfiguration_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', 'putBucketAccelerateConfiguration_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).
--
-- 'bucket', 'putBucketAccelerateConfiguration_bucket' - The name of the bucket for which the accelerate configuration is set.
--
-- 'accelerateConfiguration', 'putBucketAccelerateConfiguration_accelerateConfiguration' - Container for setting the transfer acceleration state.
newPutBucketAccelerateConfiguration ::
  -- | 'bucket'
  BucketName ->
  -- | 'accelerateConfiguration'
  AccelerateConfiguration ->
  PutBucketAccelerateConfiguration
newPutBucketAccelerateConfiguration :: BucketName
-> AccelerateConfiguration -> PutBucketAccelerateConfiguration
newPutBucketAccelerateConfiguration
  BucketName
pBucket_
  AccelerateConfiguration
pAccelerateConfiguration_ =
    PutBucketAccelerateConfiguration'
      { $sel:checksumAlgorithm:PutBucketAccelerateConfiguration' :: Maybe ChecksumAlgorithm
checksumAlgorithm =
          forall a. Maybe a
Prelude.Nothing,
        $sel:expectedBucketOwner:PutBucketAccelerateConfiguration' :: Maybe Text
expectedBucketOwner = forall a. Maybe a
Prelude.Nothing,
        $sel:bucket:PutBucketAccelerateConfiguration' :: BucketName
bucket = BucketName
pBucket_,
        $sel:accelerateConfiguration:PutBucketAccelerateConfiguration' :: AccelerateConfiguration
accelerateConfiguration =
          AccelerateConfiguration
pAccelerateConfiguration_
      }

-- | 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.
putBucketAccelerateConfiguration_checksumAlgorithm :: Lens.Lens' PutBucketAccelerateConfiguration (Prelude.Maybe ChecksumAlgorithm)
putBucketAccelerateConfiguration_checksumAlgorithm :: Lens' PutBucketAccelerateConfiguration (Maybe ChecksumAlgorithm)
putBucketAccelerateConfiguration_checksumAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAccelerateConfiguration' {Maybe ChecksumAlgorithm
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:checksumAlgorithm:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> Maybe ChecksumAlgorithm
checksumAlgorithm} -> Maybe ChecksumAlgorithm
checksumAlgorithm) (\s :: PutBucketAccelerateConfiguration
s@PutBucketAccelerateConfiguration' {} Maybe ChecksumAlgorithm
a -> PutBucketAccelerateConfiguration
s {$sel:checksumAlgorithm:PutBucketAccelerateConfiguration' :: Maybe ChecksumAlgorithm
checksumAlgorithm = Maybe ChecksumAlgorithm
a} :: PutBucketAccelerateConfiguration)

-- | 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).
putBucketAccelerateConfiguration_expectedBucketOwner :: Lens.Lens' PutBucketAccelerateConfiguration (Prelude.Maybe Prelude.Text)
putBucketAccelerateConfiguration_expectedBucketOwner :: Lens' PutBucketAccelerateConfiguration (Maybe Text)
putBucketAccelerateConfiguration_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAccelerateConfiguration' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: PutBucketAccelerateConfiguration
s@PutBucketAccelerateConfiguration' {} Maybe Text
a -> PutBucketAccelerateConfiguration
s {$sel:expectedBucketOwner:PutBucketAccelerateConfiguration' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: PutBucketAccelerateConfiguration)

-- | The name of the bucket for which the accelerate configuration is set.
putBucketAccelerateConfiguration_bucket :: Lens.Lens' PutBucketAccelerateConfiguration BucketName
putBucketAccelerateConfiguration_bucket :: Lens' PutBucketAccelerateConfiguration BucketName
putBucketAccelerateConfiguration_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAccelerateConfiguration' {BucketName
bucket :: BucketName
$sel:bucket:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> BucketName
bucket} -> BucketName
bucket) (\s :: PutBucketAccelerateConfiguration
s@PutBucketAccelerateConfiguration' {} BucketName
a -> PutBucketAccelerateConfiguration
s {$sel:bucket:PutBucketAccelerateConfiguration' :: BucketName
bucket = BucketName
a} :: PutBucketAccelerateConfiguration)

-- | Container for setting the transfer acceleration state.
putBucketAccelerateConfiguration_accelerateConfiguration :: Lens.Lens' PutBucketAccelerateConfiguration AccelerateConfiguration
putBucketAccelerateConfiguration_accelerateConfiguration :: Lens' PutBucketAccelerateConfiguration AccelerateConfiguration
putBucketAccelerateConfiguration_accelerateConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAccelerateConfiguration' {AccelerateConfiguration
accelerateConfiguration :: AccelerateConfiguration
$sel:accelerateConfiguration:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> AccelerateConfiguration
accelerateConfiguration} -> AccelerateConfiguration
accelerateConfiguration) (\s :: PutBucketAccelerateConfiguration
s@PutBucketAccelerateConfiguration' {} AccelerateConfiguration
a -> PutBucketAccelerateConfiguration
s {$sel:accelerateConfiguration:PutBucketAccelerateConfiguration' :: AccelerateConfiguration
accelerateConfiguration = AccelerateConfiguration
a} :: PutBucketAccelerateConfiguration)

instance
  Core.AWSRequest
    PutBucketAccelerateConfiguration
  where
  type
    AWSResponse PutBucketAccelerateConfiguration =
      PutBucketAccelerateConfigurationResponse
  request :: (Service -> Service)
-> PutBucketAccelerateConfiguration
-> Request PutBucketAccelerateConfiguration
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, ToElement a) => Service -> a -> Request a
Request.putXML (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy PutBucketAccelerateConfiguration
-> ClientResponse ClientBody
-> m (Either
        Error
        (ClientResponse (AWSResponse PutBucketAccelerateConfiguration)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
      PutBucketAccelerateConfigurationResponse
PutBucketAccelerateConfigurationResponse'

instance
  Prelude.Hashable
    PutBucketAccelerateConfiguration
  where
  hashWithSalt :: Int -> PutBucketAccelerateConfiguration -> Int
hashWithSalt
    Int
_salt
    PutBucketAccelerateConfiguration' {Maybe Text
Maybe ChecksumAlgorithm
BucketName
AccelerateConfiguration
accelerateConfiguration :: AccelerateConfiguration
bucket :: BucketName
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:accelerateConfiguration:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> AccelerateConfiguration
$sel:bucket:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> BucketName
$sel:expectedBucketOwner:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> Maybe Text
$sel:checksumAlgorithm:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> 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` BucketName
bucket
        forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` AccelerateConfiguration
accelerateConfiguration

instance
  Prelude.NFData
    PutBucketAccelerateConfiguration
  where
  rnf :: PutBucketAccelerateConfiguration -> ()
rnf PutBucketAccelerateConfiguration' {Maybe Text
Maybe ChecksumAlgorithm
BucketName
AccelerateConfiguration
accelerateConfiguration :: AccelerateConfiguration
bucket :: BucketName
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:accelerateConfiguration:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> AccelerateConfiguration
$sel:bucket:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> BucketName
$sel:expectedBucketOwner:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> Maybe Text
$sel:checksumAlgorithm:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> 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 BucketName
bucket
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf AccelerateConfiguration
accelerateConfiguration

instance
  Data.ToElement
    PutBucketAccelerateConfiguration
  where
  toElement :: PutBucketAccelerateConfiguration -> Element
toElement PutBucketAccelerateConfiguration' {Maybe Text
Maybe ChecksumAlgorithm
BucketName
AccelerateConfiguration
accelerateConfiguration :: AccelerateConfiguration
bucket :: BucketName
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:accelerateConfiguration:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> AccelerateConfiguration
$sel:bucket:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> BucketName
$sel:expectedBucketOwner:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> Maybe Text
$sel:checksumAlgorithm:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> Maybe ChecksumAlgorithm
..} =
    forall a. ToXML a => Name -> a -> Element
Data.mkElement
      Name
"{http://s3.amazonaws.com/doc/2006-03-01/}AccelerateConfiguration"
      AccelerateConfiguration
accelerateConfiguration

instance
  Data.ToHeaders
    PutBucketAccelerateConfiguration
  where
  toHeaders :: PutBucketAccelerateConfiguration -> [Header]
toHeaders PutBucketAccelerateConfiguration' {Maybe Text
Maybe ChecksumAlgorithm
BucketName
AccelerateConfiguration
accelerateConfiguration :: AccelerateConfiguration
bucket :: BucketName
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:accelerateConfiguration:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> AccelerateConfiguration
$sel:bucket:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> BucketName
$sel:expectedBucketOwner:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> Maybe Text
$sel:checksumAlgorithm:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> 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 PutBucketAccelerateConfiguration where
  toPath :: PutBucketAccelerateConfiguration -> ByteString
toPath PutBucketAccelerateConfiguration' {Maybe Text
Maybe ChecksumAlgorithm
BucketName
AccelerateConfiguration
accelerateConfiguration :: AccelerateConfiguration
bucket :: BucketName
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:accelerateConfiguration:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> AccelerateConfiguration
$sel:bucket:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> BucketName
$sel:expectedBucketOwner:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> Maybe Text
$sel:checksumAlgorithm:PutBucketAccelerateConfiguration' :: PutBucketAccelerateConfiguration -> Maybe ChecksumAlgorithm
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket]

instance
  Data.ToQuery
    PutBucketAccelerateConfiguration
  where
  toQuery :: PutBucketAccelerateConfiguration -> QueryString
toQuery =
    forall a b. a -> b -> a
Prelude.const (forall a. Monoid a => [a] -> a
Prelude.mconcat [QueryString
"accelerate"])

-- | /See:/ 'newPutBucketAccelerateConfigurationResponse' smart constructor.
data PutBucketAccelerateConfigurationResponse = PutBucketAccelerateConfigurationResponse'
  {
  }
  deriving (PutBucketAccelerateConfigurationResponse
-> PutBucketAccelerateConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutBucketAccelerateConfigurationResponse
-> PutBucketAccelerateConfigurationResponse -> Bool
$c/= :: PutBucketAccelerateConfigurationResponse
-> PutBucketAccelerateConfigurationResponse -> Bool
== :: PutBucketAccelerateConfigurationResponse
-> PutBucketAccelerateConfigurationResponse -> Bool
$c== :: PutBucketAccelerateConfigurationResponse
-> PutBucketAccelerateConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [PutBucketAccelerateConfigurationResponse]
ReadPrec PutBucketAccelerateConfigurationResponse
Int -> ReadS PutBucketAccelerateConfigurationResponse
ReadS [PutBucketAccelerateConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutBucketAccelerateConfigurationResponse]
$creadListPrec :: ReadPrec [PutBucketAccelerateConfigurationResponse]
readPrec :: ReadPrec PutBucketAccelerateConfigurationResponse
$creadPrec :: ReadPrec PutBucketAccelerateConfigurationResponse
readList :: ReadS [PutBucketAccelerateConfigurationResponse]
$creadList :: ReadS [PutBucketAccelerateConfigurationResponse]
readsPrec :: Int -> ReadS PutBucketAccelerateConfigurationResponse
$creadsPrec :: Int -> ReadS PutBucketAccelerateConfigurationResponse
Prelude.Read, Int -> PutBucketAccelerateConfigurationResponse -> ShowS
[PutBucketAccelerateConfigurationResponse] -> ShowS
PutBucketAccelerateConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutBucketAccelerateConfigurationResponse] -> ShowS
$cshowList :: [PutBucketAccelerateConfigurationResponse] -> ShowS
show :: PutBucketAccelerateConfigurationResponse -> String
$cshow :: PutBucketAccelerateConfigurationResponse -> String
showsPrec :: Int -> PutBucketAccelerateConfigurationResponse -> ShowS
$cshowsPrec :: Int -> PutBucketAccelerateConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep PutBucketAccelerateConfigurationResponse x
-> PutBucketAccelerateConfigurationResponse
forall x.
PutBucketAccelerateConfigurationResponse
-> Rep PutBucketAccelerateConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutBucketAccelerateConfigurationResponse x
-> PutBucketAccelerateConfigurationResponse
$cfrom :: forall x.
PutBucketAccelerateConfigurationResponse
-> Rep PutBucketAccelerateConfigurationResponse x
Prelude.Generic)

-- |
-- Create a value of 'PutBucketAccelerateConfigurationResponse' 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.
newPutBucketAccelerateConfigurationResponse ::
  PutBucketAccelerateConfigurationResponse
newPutBucketAccelerateConfigurationResponse :: PutBucketAccelerateConfigurationResponse
newPutBucketAccelerateConfigurationResponse =
  PutBucketAccelerateConfigurationResponse
PutBucketAccelerateConfigurationResponse'

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