{-# 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.GetBucketIntelligentTieringConfiguration
(
GetBucketIntelligentTieringConfiguration (..),
newGetBucketIntelligentTieringConfiguration,
getBucketIntelligentTieringConfiguration_bucket,
getBucketIntelligentTieringConfiguration_id,
GetBucketIntelligentTieringConfigurationResponse (..),
newGetBucketIntelligentTieringConfigurationResponse,
getBucketIntelligentTieringConfigurationResponse_intelligentTieringConfiguration,
getBucketIntelligentTieringConfigurationResponse_httpStatus,
)
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 GetBucketIntelligentTieringConfiguration = GetBucketIntelligentTieringConfiguration'
{
GetBucketIntelligentTieringConfiguration -> BucketName
bucket :: BucketName,
GetBucketIntelligentTieringConfiguration -> Text
id :: Prelude.Text
}
deriving (GetBucketIntelligentTieringConfiguration
-> GetBucketIntelligentTieringConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetBucketIntelligentTieringConfiguration
-> GetBucketIntelligentTieringConfiguration -> Bool
$c/= :: GetBucketIntelligentTieringConfiguration
-> GetBucketIntelligentTieringConfiguration -> Bool
== :: GetBucketIntelligentTieringConfiguration
-> GetBucketIntelligentTieringConfiguration -> Bool
$c== :: GetBucketIntelligentTieringConfiguration
-> GetBucketIntelligentTieringConfiguration -> Bool
Prelude.Eq, ReadPrec [GetBucketIntelligentTieringConfiguration]
ReadPrec GetBucketIntelligentTieringConfiguration
Int -> ReadS GetBucketIntelligentTieringConfiguration
ReadS [GetBucketIntelligentTieringConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetBucketIntelligentTieringConfiguration]
$creadListPrec :: ReadPrec [GetBucketIntelligentTieringConfiguration]
readPrec :: ReadPrec GetBucketIntelligentTieringConfiguration
$creadPrec :: ReadPrec GetBucketIntelligentTieringConfiguration
readList :: ReadS [GetBucketIntelligentTieringConfiguration]
$creadList :: ReadS [GetBucketIntelligentTieringConfiguration]
readsPrec :: Int -> ReadS GetBucketIntelligentTieringConfiguration
$creadsPrec :: Int -> ReadS GetBucketIntelligentTieringConfiguration
Prelude.Read, Int -> GetBucketIntelligentTieringConfiguration -> ShowS
[GetBucketIntelligentTieringConfiguration] -> ShowS
GetBucketIntelligentTieringConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetBucketIntelligentTieringConfiguration] -> ShowS
$cshowList :: [GetBucketIntelligentTieringConfiguration] -> ShowS
show :: GetBucketIntelligentTieringConfiguration -> String
$cshow :: GetBucketIntelligentTieringConfiguration -> String
showsPrec :: Int -> GetBucketIntelligentTieringConfiguration -> ShowS
$cshowsPrec :: Int -> GetBucketIntelligentTieringConfiguration -> ShowS
Prelude.Show, forall x.
Rep GetBucketIntelligentTieringConfiguration x
-> GetBucketIntelligentTieringConfiguration
forall x.
GetBucketIntelligentTieringConfiguration
-> Rep GetBucketIntelligentTieringConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetBucketIntelligentTieringConfiguration x
-> GetBucketIntelligentTieringConfiguration
$cfrom :: forall x.
GetBucketIntelligentTieringConfiguration
-> Rep GetBucketIntelligentTieringConfiguration x
Prelude.Generic)
newGetBucketIntelligentTieringConfiguration ::
BucketName ->
Prelude.Text ->
GetBucketIntelligentTieringConfiguration
newGetBucketIntelligentTieringConfiguration :: BucketName -> Text -> GetBucketIntelligentTieringConfiguration
newGetBucketIntelligentTieringConfiguration
BucketName
pBucket_
Text
pId_ =
GetBucketIntelligentTieringConfiguration'
{ $sel:bucket:GetBucketIntelligentTieringConfiguration' :: BucketName
bucket =
BucketName
pBucket_,
$sel:id:GetBucketIntelligentTieringConfiguration' :: Text
id = Text
pId_
}
getBucketIntelligentTieringConfiguration_bucket :: Lens.Lens' GetBucketIntelligentTieringConfiguration BucketName
getBucketIntelligentTieringConfiguration_bucket :: Lens' GetBucketIntelligentTieringConfiguration BucketName
getBucketIntelligentTieringConfiguration_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketIntelligentTieringConfiguration' {BucketName
bucket :: BucketName
$sel:bucket:GetBucketIntelligentTieringConfiguration' :: GetBucketIntelligentTieringConfiguration -> BucketName
bucket} -> BucketName
bucket) (\s :: GetBucketIntelligentTieringConfiguration
s@GetBucketIntelligentTieringConfiguration' {} BucketName
a -> GetBucketIntelligentTieringConfiguration
s {$sel:bucket:GetBucketIntelligentTieringConfiguration' :: BucketName
bucket = BucketName
a} :: GetBucketIntelligentTieringConfiguration)
getBucketIntelligentTieringConfiguration_id :: Lens.Lens' GetBucketIntelligentTieringConfiguration Prelude.Text
getBucketIntelligentTieringConfiguration_id :: Lens' GetBucketIntelligentTieringConfiguration Text
getBucketIntelligentTieringConfiguration_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketIntelligentTieringConfiguration' {Text
id :: Text
$sel:id:GetBucketIntelligentTieringConfiguration' :: GetBucketIntelligentTieringConfiguration -> Text
id} -> Text
id) (\s :: GetBucketIntelligentTieringConfiguration
s@GetBucketIntelligentTieringConfiguration' {} Text
a -> GetBucketIntelligentTieringConfiguration
s {$sel:id:GetBucketIntelligentTieringConfiguration' :: Text
id = Text
a} :: GetBucketIntelligentTieringConfiguration)
instance
Core.AWSRequest
GetBucketIntelligentTieringConfiguration
where
type
AWSResponse
GetBucketIntelligentTieringConfiguration =
GetBucketIntelligentTieringConfigurationResponse
request :: (Service -> Service)
-> GetBucketIntelligentTieringConfiguration
-> Request GetBucketIntelligentTieringConfiguration
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 => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetBucketIntelligentTieringConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse GetBucketIntelligentTieringConfiguration)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe IntelligentTieringConfiguration
-> Int -> GetBucketIntelligentTieringConfigurationResponse
GetBucketIntelligentTieringConfigurationResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (forall a. FromXML a => [Node] -> Either String a
Data.parseXML [Node]
x)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
GetBucketIntelligentTieringConfiguration
where
hashWithSalt :: Int -> GetBucketIntelligentTieringConfiguration -> Int
hashWithSalt
Int
_salt
GetBucketIntelligentTieringConfiguration' {Text
BucketName
id :: Text
bucket :: BucketName
$sel:id:GetBucketIntelligentTieringConfiguration' :: GetBucketIntelligentTieringConfiguration -> Text
$sel:bucket:GetBucketIntelligentTieringConfiguration' :: GetBucketIntelligentTieringConfiguration -> 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
instance
Prelude.NFData
GetBucketIntelligentTieringConfiguration
where
rnf :: GetBucketIntelligentTieringConfiguration -> ()
rnf GetBucketIntelligentTieringConfiguration' {Text
BucketName
id :: Text
bucket :: BucketName
$sel:id:GetBucketIntelligentTieringConfiguration' :: GetBucketIntelligentTieringConfiguration -> Text
$sel:bucket:GetBucketIntelligentTieringConfiguration' :: GetBucketIntelligentTieringConfiguration -> 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
instance
Data.ToHeaders
GetBucketIntelligentTieringConfiguration
where
toHeaders :: GetBucketIntelligentTieringConfiguration -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
GetBucketIntelligentTieringConfiguration
where
toPath :: GetBucketIntelligentTieringConfiguration -> ByteString
toPath GetBucketIntelligentTieringConfiguration' {Text
BucketName
id :: Text
bucket :: BucketName
$sel:id:GetBucketIntelligentTieringConfiguration' :: GetBucketIntelligentTieringConfiguration -> Text
$sel:bucket:GetBucketIntelligentTieringConfiguration' :: GetBucketIntelligentTieringConfiguration -> BucketName
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket]
instance
Data.ToQuery
GetBucketIntelligentTieringConfiguration
where
toQuery :: GetBucketIntelligentTieringConfiguration -> QueryString
toQuery GetBucketIntelligentTieringConfiguration' {Text
BucketName
id :: Text
bucket :: BucketName
$sel:id:GetBucketIntelligentTieringConfiguration' :: GetBucketIntelligentTieringConfiguration -> Text
$sel:bucket:GetBucketIntelligentTieringConfiguration' :: GetBucketIntelligentTieringConfiguration -> 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 GetBucketIntelligentTieringConfigurationResponse = GetBucketIntelligentTieringConfigurationResponse'
{
GetBucketIntelligentTieringConfigurationResponse
-> Maybe IntelligentTieringConfiguration
intelligentTieringConfiguration :: Prelude.Maybe IntelligentTieringConfiguration,
GetBucketIntelligentTieringConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetBucketIntelligentTieringConfigurationResponse
-> GetBucketIntelligentTieringConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetBucketIntelligentTieringConfigurationResponse
-> GetBucketIntelligentTieringConfigurationResponse -> Bool
$c/= :: GetBucketIntelligentTieringConfigurationResponse
-> GetBucketIntelligentTieringConfigurationResponse -> Bool
== :: GetBucketIntelligentTieringConfigurationResponse
-> GetBucketIntelligentTieringConfigurationResponse -> Bool
$c== :: GetBucketIntelligentTieringConfigurationResponse
-> GetBucketIntelligentTieringConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [GetBucketIntelligentTieringConfigurationResponse]
ReadPrec GetBucketIntelligentTieringConfigurationResponse
Int -> ReadS GetBucketIntelligentTieringConfigurationResponse
ReadS [GetBucketIntelligentTieringConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetBucketIntelligentTieringConfigurationResponse]
$creadListPrec :: ReadPrec [GetBucketIntelligentTieringConfigurationResponse]
readPrec :: ReadPrec GetBucketIntelligentTieringConfigurationResponse
$creadPrec :: ReadPrec GetBucketIntelligentTieringConfigurationResponse
readList :: ReadS [GetBucketIntelligentTieringConfigurationResponse]
$creadList :: ReadS [GetBucketIntelligentTieringConfigurationResponse]
readsPrec :: Int -> ReadS GetBucketIntelligentTieringConfigurationResponse
$creadsPrec :: Int -> ReadS GetBucketIntelligentTieringConfigurationResponse
Prelude.Read, Int -> GetBucketIntelligentTieringConfigurationResponse -> ShowS
[GetBucketIntelligentTieringConfigurationResponse] -> ShowS
GetBucketIntelligentTieringConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetBucketIntelligentTieringConfigurationResponse] -> ShowS
$cshowList :: [GetBucketIntelligentTieringConfigurationResponse] -> ShowS
show :: GetBucketIntelligentTieringConfigurationResponse -> String
$cshow :: GetBucketIntelligentTieringConfigurationResponse -> String
showsPrec :: Int -> GetBucketIntelligentTieringConfigurationResponse -> ShowS
$cshowsPrec :: Int -> GetBucketIntelligentTieringConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep GetBucketIntelligentTieringConfigurationResponse x
-> GetBucketIntelligentTieringConfigurationResponse
forall x.
GetBucketIntelligentTieringConfigurationResponse
-> Rep GetBucketIntelligentTieringConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetBucketIntelligentTieringConfigurationResponse x
-> GetBucketIntelligentTieringConfigurationResponse
$cfrom :: forall x.
GetBucketIntelligentTieringConfigurationResponse
-> Rep GetBucketIntelligentTieringConfigurationResponse x
Prelude.Generic)
newGetBucketIntelligentTieringConfigurationResponse ::
Prelude.Int ->
GetBucketIntelligentTieringConfigurationResponse
newGetBucketIntelligentTieringConfigurationResponse :: Int -> GetBucketIntelligentTieringConfigurationResponse
newGetBucketIntelligentTieringConfigurationResponse
Int
pHttpStatus_ =
GetBucketIntelligentTieringConfigurationResponse'
{ $sel:intelligentTieringConfiguration:GetBucketIntelligentTieringConfigurationResponse' :: Maybe IntelligentTieringConfiguration
intelligentTieringConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetBucketIntelligentTieringConfigurationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getBucketIntelligentTieringConfigurationResponse_intelligentTieringConfiguration :: Lens.Lens' GetBucketIntelligentTieringConfigurationResponse (Prelude.Maybe IntelligentTieringConfiguration)
getBucketIntelligentTieringConfigurationResponse_intelligentTieringConfiguration :: Lens'
GetBucketIntelligentTieringConfigurationResponse
(Maybe IntelligentTieringConfiguration)
getBucketIntelligentTieringConfigurationResponse_intelligentTieringConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketIntelligentTieringConfigurationResponse' {Maybe IntelligentTieringConfiguration
intelligentTieringConfiguration :: Maybe IntelligentTieringConfiguration
$sel:intelligentTieringConfiguration:GetBucketIntelligentTieringConfigurationResponse' :: GetBucketIntelligentTieringConfigurationResponse
-> Maybe IntelligentTieringConfiguration
intelligentTieringConfiguration} -> Maybe IntelligentTieringConfiguration
intelligentTieringConfiguration) (\s :: GetBucketIntelligentTieringConfigurationResponse
s@GetBucketIntelligentTieringConfigurationResponse' {} Maybe IntelligentTieringConfiguration
a -> GetBucketIntelligentTieringConfigurationResponse
s {$sel:intelligentTieringConfiguration:GetBucketIntelligentTieringConfigurationResponse' :: Maybe IntelligentTieringConfiguration
intelligentTieringConfiguration = Maybe IntelligentTieringConfiguration
a} :: GetBucketIntelligentTieringConfigurationResponse)
getBucketIntelligentTieringConfigurationResponse_httpStatus :: Lens.Lens' GetBucketIntelligentTieringConfigurationResponse Prelude.Int
getBucketIntelligentTieringConfigurationResponse_httpStatus :: Lens' GetBucketIntelligentTieringConfigurationResponse Int
getBucketIntelligentTieringConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketIntelligentTieringConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetBucketIntelligentTieringConfigurationResponse' :: GetBucketIntelligentTieringConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetBucketIntelligentTieringConfigurationResponse
s@GetBucketIntelligentTieringConfigurationResponse' {} Int
a -> GetBucketIntelligentTieringConfigurationResponse
s {$sel:httpStatus:GetBucketIntelligentTieringConfigurationResponse' :: Int
httpStatus = Int
a} :: GetBucketIntelligentTieringConfigurationResponse)
instance
Prelude.NFData
GetBucketIntelligentTieringConfigurationResponse
where
rnf :: GetBucketIntelligentTieringConfigurationResponse -> ()
rnf
GetBucketIntelligentTieringConfigurationResponse' {Int
Maybe IntelligentTieringConfiguration
httpStatus :: Int
intelligentTieringConfiguration :: Maybe IntelligentTieringConfiguration
$sel:httpStatus:GetBucketIntelligentTieringConfigurationResponse' :: GetBucketIntelligentTieringConfigurationResponse -> Int
$sel:intelligentTieringConfiguration:GetBucketIntelligentTieringConfigurationResponse' :: GetBucketIntelligentTieringConfigurationResponse
-> Maybe IntelligentTieringConfiguration
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe IntelligentTieringConfiguration
intelligentTieringConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus