{-# 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.PutBucketIntelligentTieringConfiguration
(
PutBucketIntelligentTieringConfiguration (..),
newPutBucketIntelligentTieringConfiguration,
putBucketIntelligentTieringConfiguration_bucket,
putBucketIntelligentTieringConfiguration_id,
putBucketIntelligentTieringConfiguration_intelligentTieringConfiguration,
PutBucketIntelligentTieringConfigurationResponse (..),
newPutBucketIntelligentTieringConfigurationResponse,
)
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 PutBucketIntelligentTieringConfiguration = PutBucketIntelligentTieringConfiguration'
{
PutBucketIntelligentTieringConfiguration -> BucketName
bucket :: BucketName,
PutBucketIntelligentTieringConfiguration -> Text
id :: Prelude.Text,
PutBucketIntelligentTieringConfiguration
-> IntelligentTieringConfiguration
intelligentTieringConfiguration :: IntelligentTieringConfiguration
}
deriving (PutBucketIntelligentTieringConfiguration
-> PutBucketIntelligentTieringConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutBucketIntelligentTieringConfiguration
-> PutBucketIntelligentTieringConfiguration -> Bool
$c/= :: PutBucketIntelligentTieringConfiguration
-> PutBucketIntelligentTieringConfiguration -> Bool
== :: PutBucketIntelligentTieringConfiguration
-> PutBucketIntelligentTieringConfiguration -> Bool
$c== :: PutBucketIntelligentTieringConfiguration
-> PutBucketIntelligentTieringConfiguration -> Bool
Prelude.Eq, ReadPrec [PutBucketIntelligentTieringConfiguration]
ReadPrec PutBucketIntelligentTieringConfiguration
Int -> ReadS PutBucketIntelligentTieringConfiguration
ReadS [PutBucketIntelligentTieringConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutBucketIntelligentTieringConfiguration]
$creadListPrec :: ReadPrec [PutBucketIntelligentTieringConfiguration]
readPrec :: ReadPrec PutBucketIntelligentTieringConfiguration
$creadPrec :: ReadPrec PutBucketIntelligentTieringConfiguration
readList :: ReadS [PutBucketIntelligentTieringConfiguration]
$creadList :: ReadS [PutBucketIntelligentTieringConfiguration]
readsPrec :: Int -> ReadS PutBucketIntelligentTieringConfiguration
$creadsPrec :: Int -> ReadS PutBucketIntelligentTieringConfiguration
Prelude.Read, Int -> PutBucketIntelligentTieringConfiguration -> ShowS
[PutBucketIntelligentTieringConfiguration] -> ShowS
PutBucketIntelligentTieringConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutBucketIntelligentTieringConfiguration] -> ShowS
$cshowList :: [PutBucketIntelligentTieringConfiguration] -> ShowS
show :: PutBucketIntelligentTieringConfiguration -> String
$cshow :: PutBucketIntelligentTieringConfiguration -> String
showsPrec :: Int -> PutBucketIntelligentTieringConfiguration -> ShowS
$cshowsPrec :: Int -> PutBucketIntelligentTieringConfiguration -> ShowS
Prelude.Show, forall x.
Rep PutBucketIntelligentTieringConfiguration x
-> PutBucketIntelligentTieringConfiguration
forall x.
PutBucketIntelligentTieringConfiguration
-> Rep PutBucketIntelligentTieringConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutBucketIntelligentTieringConfiguration x
-> PutBucketIntelligentTieringConfiguration
$cfrom :: forall x.
PutBucketIntelligentTieringConfiguration
-> Rep PutBucketIntelligentTieringConfiguration x
Prelude.Generic)
newPutBucketIntelligentTieringConfiguration ::
BucketName ->
Prelude.Text ->
IntelligentTieringConfiguration ->
PutBucketIntelligentTieringConfiguration
newPutBucketIntelligentTieringConfiguration :: BucketName
-> Text
-> IntelligentTieringConfiguration
-> PutBucketIntelligentTieringConfiguration
newPutBucketIntelligentTieringConfiguration
BucketName
pBucket_
Text
pId_
IntelligentTieringConfiguration
pIntelligentTieringConfiguration_ =
PutBucketIntelligentTieringConfiguration'
{ $sel:bucket:PutBucketIntelligentTieringConfiguration' :: BucketName
bucket =
BucketName
pBucket_,
$sel:id:PutBucketIntelligentTieringConfiguration' :: Text
id = Text
pId_,
$sel:intelligentTieringConfiguration:PutBucketIntelligentTieringConfiguration' :: IntelligentTieringConfiguration
intelligentTieringConfiguration =
IntelligentTieringConfiguration
pIntelligentTieringConfiguration_
}
putBucketIntelligentTieringConfiguration_bucket :: Lens.Lens' PutBucketIntelligentTieringConfiguration BucketName
putBucketIntelligentTieringConfiguration_bucket :: Lens' PutBucketIntelligentTieringConfiguration BucketName
putBucketIntelligentTieringConfiguration_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketIntelligentTieringConfiguration' {BucketName
bucket :: BucketName
$sel:bucket:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration -> BucketName
bucket} -> BucketName
bucket) (\s :: PutBucketIntelligentTieringConfiguration
s@PutBucketIntelligentTieringConfiguration' {} BucketName
a -> PutBucketIntelligentTieringConfiguration
s {$sel:bucket:PutBucketIntelligentTieringConfiguration' :: BucketName
bucket = BucketName
a} :: PutBucketIntelligentTieringConfiguration)
putBucketIntelligentTieringConfiguration_id :: Lens.Lens' PutBucketIntelligentTieringConfiguration Prelude.Text
putBucketIntelligentTieringConfiguration_id :: Lens' PutBucketIntelligentTieringConfiguration Text
putBucketIntelligentTieringConfiguration_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketIntelligentTieringConfiguration' {Text
id :: Text
$sel:id:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration -> Text
id} -> Text
id) (\s :: PutBucketIntelligentTieringConfiguration
s@PutBucketIntelligentTieringConfiguration' {} Text
a -> PutBucketIntelligentTieringConfiguration
s {$sel:id:PutBucketIntelligentTieringConfiguration' :: Text
id = Text
a} :: PutBucketIntelligentTieringConfiguration)
putBucketIntelligentTieringConfiguration_intelligentTieringConfiguration :: Lens.Lens' PutBucketIntelligentTieringConfiguration IntelligentTieringConfiguration
putBucketIntelligentTieringConfiguration_intelligentTieringConfiguration :: Lens'
PutBucketIntelligentTieringConfiguration
IntelligentTieringConfiguration
putBucketIntelligentTieringConfiguration_intelligentTieringConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketIntelligentTieringConfiguration' {IntelligentTieringConfiguration
intelligentTieringConfiguration :: IntelligentTieringConfiguration
$sel:intelligentTieringConfiguration:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration
-> IntelligentTieringConfiguration
intelligentTieringConfiguration} -> IntelligentTieringConfiguration
intelligentTieringConfiguration) (\s :: PutBucketIntelligentTieringConfiguration
s@PutBucketIntelligentTieringConfiguration' {} IntelligentTieringConfiguration
a -> PutBucketIntelligentTieringConfiguration
s {$sel:intelligentTieringConfiguration:PutBucketIntelligentTieringConfiguration' :: IntelligentTieringConfiguration
intelligentTieringConfiguration = IntelligentTieringConfiguration
a} :: PutBucketIntelligentTieringConfiguration)
instance
Core.AWSRequest
PutBucketIntelligentTieringConfiguration
where
type
AWSResponse
PutBucketIntelligentTieringConfiguration =
PutBucketIntelligentTieringConfigurationResponse
request :: (Service -> Service)
-> PutBucketIntelligentTieringConfiguration
-> Request PutBucketIntelligentTieringConfiguration
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 PutBucketIntelligentTieringConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse PutBucketIntelligentTieringConfiguration)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
PutBucketIntelligentTieringConfigurationResponse
PutBucketIntelligentTieringConfigurationResponse'
instance
Prelude.Hashable
PutBucketIntelligentTieringConfiguration
where
hashWithSalt :: Int -> PutBucketIntelligentTieringConfiguration -> Int
hashWithSalt
Int
_salt
PutBucketIntelligentTieringConfiguration' {Text
BucketName
IntelligentTieringConfiguration
intelligentTieringConfiguration :: IntelligentTieringConfiguration
id :: Text
bucket :: BucketName
$sel:intelligentTieringConfiguration:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration
-> IntelligentTieringConfiguration
$sel:id:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration -> Text
$sel:bucket:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration -> BucketName
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BucketName
bucket
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
id
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` IntelligentTieringConfiguration
intelligentTieringConfiguration
instance
Prelude.NFData
PutBucketIntelligentTieringConfiguration
where
rnf :: PutBucketIntelligentTieringConfiguration -> ()
rnf PutBucketIntelligentTieringConfiguration' {Text
BucketName
IntelligentTieringConfiguration
intelligentTieringConfiguration :: IntelligentTieringConfiguration
id :: Text
bucket :: BucketName
$sel:intelligentTieringConfiguration:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration
-> IntelligentTieringConfiguration
$sel:id:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration -> Text
$sel:bucket:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration -> BucketName
..} =
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
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf IntelligentTieringConfiguration
intelligentTieringConfiguration
instance
Data.ToElement
PutBucketIntelligentTieringConfiguration
where
toElement :: PutBucketIntelligentTieringConfiguration -> Element
toElement
PutBucketIntelligentTieringConfiguration' {Text
BucketName
IntelligentTieringConfiguration
intelligentTieringConfiguration :: IntelligentTieringConfiguration
id :: Text
bucket :: BucketName
$sel:intelligentTieringConfiguration:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration
-> IntelligentTieringConfiguration
$sel:id:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration -> Text
$sel:bucket:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration -> BucketName
..} =
forall a. ToXML a => Name -> a -> Element
Data.mkElement
Name
"{http://s3.amazonaws.com/doc/2006-03-01/}IntelligentTieringConfiguration"
IntelligentTieringConfiguration
intelligentTieringConfiguration
instance
Data.ToHeaders
PutBucketIntelligentTieringConfiguration
where
toHeaders :: PutBucketIntelligentTieringConfiguration -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
PutBucketIntelligentTieringConfiguration
where
toPath :: PutBucketIntelligentTieringConfiguration -> ByteString
toPath PutBucketIntelligentTieringConfiguration' {Text
BucketName
IntelligentTieringConfiguration
intelligentTieringConfiguration :: IntelligentTieringConfiguration
id :: Text
bucket :: BucketName
$sel:intelligentTieringConfiguration:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration
-> IntelligentTieringConfiguration
$sel:id:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration -> Text
$sel:bucket:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration -> BucketName
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket]
instance
Data.ToQuery
PutBucketIntelligentTieringConfiguration
where
toQuery :: PutBucketIntelligentTieringConfiguration -> QueryString
toQuery PutBucketIntelligentTieringConfiguration' {Text
BucketName
IntelligentTieringConfiguration
intelligentTieringConfiguration :: IntelligentTieringConfiguration
id :: Text
bucket :: BucketName
$sel:intelligentTieringConfiguration:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration
-> IntelligentTieringConfiguration
$sel:id:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration -> Text
$sel:bucket:PutBucketIntelligentTieringConfiguration' :: PutBucketIntelligentTieringConfiguration -> BucketName
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"id" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
id, QueryString
"intelligent-tiering"]
data PutBucketIntelligentTieringConfigurationResponse = PutBucketIntelligentTieringConfigurationResponse'
{
}
deriving (PutBucketIntelligentTieringConfigurationResponse
-> PutBucketIntelligentTieringConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutBucketIntelligentTieringConfigurationResponse
-> PutBucketIntelligentTieringConfigurationResponse -> Bool
$c/= :: PutBucketIntelligentTieringConfigurationResponse
-> PutBucketIntelligentTieringConfigurationResponse -> Bool
== :: PutBucketIntelligentTieringConfigurationResponse
-> PutBucketIntelligentTieringConfigurationResponse -> Bool
$c== :: PutBucketIntelligentTieringConfigurationResponse
-> PutBucketIntelligentTieringConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [PutBucketIntelligentTieringConfigurationResponse]
ReadPrec PutBucketIntelligentTieringConfigurationResponse
Int -> ReadS PutBucketIntelligentTieringConfigurationResponse
ReadS [PutBucketIntelligentTieringConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutBucketIntelligentTieringConfigurationResponse]
$creadListPrec :: ReadPrec [PutBucketIntelligentTieringConfigurationResponse]
readPrec :: ReadPrec PutBucketIntelligentTieringConfigurationResponse
$creadPrec :: ReadPrec PutBucketIntelligentTieringConfigurationResponse
readList :: ReadS [PutBucketIntelligentTieringConfigurationResponse]
$creadList :: ReadS [PutBucketIntelligentTieringConfigurationResponse]
readsPrec :: Int -> ReadS PutBucketIntelligentTieringConfigurationResponse
$creadsPrec :: Int -> ReadS PutBucketIntelligentTieringConfigurationResponse
Prelude.Read, Int -> PutBucketIntelligentTieringConfigurationResponse -> ShowS
[PutBucketIntelligentTieringConfigurationResponse] -> ShowS
PutBucketIntelligentTieringConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutBucketIntelligentTieringConfigurationResponse] -> ShowS
$cshowList :: [PutBucketIntelligentTieringConfigurationResponse] -> ShowS
show :: PutBucketIntelligentTieringConfigurationResponse -> String
$cshow :: PutBucketIntelligentTieringConfigurationResponse -> String
showsPrec :: Int -> PutBucketIntelligentTieringConfigurationResponse -> ShowS
$cshowsPrec :: Int -> PutBucketIntelligentTieringConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep PutBucketIntelligentTieringConfigurationResponse x
-> PutBucketIntelligentTieringConfigurationResponse
forall x.
PutBucketIntelligentTieringConfigurationResponse
-> Rep PutBucketIntelligentTieringConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutBucketIntelligentTieringConfigurationResponse x
-> PutBucketIntelligentTieringConfigurationResponse
$cfrom :: forall x.
PutBucketIntelligentTieringConfigurationResponse
-> Rep PutBucketIntelligentTieringConfigurationResponse x
Prelude.Generic)
newPutBucketIntelligentTieringConfigurationResponse ::
PutBucketIntelligentTieringConfigurationResponse
newPutBucketIntelligentTieringConfigurationResponse :: PutBucketIntelligentTieringConfigurationResponse
newPutBucketIntelligentTieringConfigurationResponse =
PutBucketIntelligentTieringConfigurationResponse
PutBucketIntelligentTieringConfigurationResponse'
instance
Prelude.NFData
PutBucketIntelligentTieringConfigurationResponse
where
rnf :: PutBucketIntelligentTieringConfigurationResponse -> ()
rnf PutBucketIntelligentTieringConfigurationResponse
_ = ()