{-# 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.PutBucketAccelerateConfiguration
(
PutBucketAccelerateConfiguration (..),
newPutBucketAccelerateConfiguration,
putBucketAccelerateConfiguration_checksumAlgorithm,
putBucketAccelerateConfiguration_expectedBucketOwner,
putBucketAccelerateConfiguration_bucket,
putBucketAccelerateConfiguration_accelerateConfiguration,
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
data PutBucketAccelerateConfiguration = PutBucketAccelerateConfiguration'
{
PutBucketAccelerateConfiguration -> Maybe ChecksumAlgorithm
checksumAlgorithm :: Prelude.Maybe ChecksumAlgorithm,
PutBucketAccelerateConfiguration -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
PutBucketAccelerateConfiguration -> BucketName
bucket :: BucketName,
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)
newPutBucketAccelerateConfiguration ::
BucketName ->
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_
}
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)
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)
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)
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"])
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)
newPutBucketAccelerateConfigurationResponse ::
PutBucketAccelerateConfigurationResponse
newPutBucketAccelerateConfigurationResponse :: PutBucketAccelerateConfigurationResponse
newPutBucketAccelerateConfigurationResponse =
PutBucketAccelerateConfigurationResponse
PutBucketAccelerateConfigurationResponse'
instance
Prelude.NFData
PutBucketAccelerateConfigurationResponse
where
rnf :: PutBucketAccelerateConfigurationResponse -> ()
rnf PutBucketAccelerateConfigurationResponse
_ = ()