{-# 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.GetBucketAccelerateConfiguration
(
GetBucketAccelerateConfiguration (..),
newGetBucketAccelerateConfiguration,
getBucketAccelerateConfiguration_expectedBucketOwner,
getBucketAccelerateConfiguration_bucket,
GetBucketAccelerateConfigurationResponse (..),
newGetBucketAccelerateConfigurationResponse,
getBucketAccelerateConfigurationResponse_status,
getBucketAccelerateConfigurationResponse_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 GetBucketAccelerateConfiguration = GetBucketAccelerateConfiguration'
{
GetBucketAccelerateConfiguration -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
GetBucketAccelerateConfiguration -> BucketName
bucket :: BucketName
}
deriving (GetBucketAccelerateConfiguration
-> GetBucketAccelerateConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetBucketAccelerateConfiguration
-> GetBucketAccelerateConfiguration -> Bool
$c/= :: GetBucketAccelerateConfiguration
-> GetBucketAccelerateConfiguration -> Bool
== :: GetBucketAccelerateConfiguration
-> GetBucketAccelerateConfiguration -> Bool
$c== :: GetBucketAccelerateConfiguration
-> GetBucketAccelerateConfiguration -> Bool
Prelude.Eq, ReadPrec [GetBucketAccelerateConfiguration]
ReadPrec GetBucketAccelerateConfiguration
Int -> ReadS GetBucketAccelerateConfiguration
ReadS [GetBucketAccelerateConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetBucketAccelerateConfiguration]
$creadListPrec :: ReadPrec [GetBucketAccelerateConfiguration]
readPrec :: ReadPrec GetBucketAccelerateConfiguration
$creadPrec :: ReadPrec GetBucketAccelerateConfiguration
readList :: ReadS [GetBucketAccelerateConfiguration]
$creadList :: ReadS [GetBucketAccelerateConfiguration]
readsPrec :: Int -> ReadS GetBucketAccelerateConfiguration
$creadsPrec :: Int -> ReadS GetBucketAccelerateConfiguration
Prelude.Read, Int -> GetBucketAccelerateConfiguration -> ShowS
[GetBucketAccelerateConfiguration] -> ShowS
GetBucketAccelerateConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetBucketAccelerateConfiguration] -> ShowS
$cshowList :: [GetBucketAccelerateConfiguration] -> ShowS
show :: GetBucketAccelerateConfiguration -> String
$cshow :: GetBucketAccelerateConfiguration -> String
showsPrec :: Int -> GetBucketAccelerateConfiguration -> ShowS
$cshowsPrec :: Int -> GetBucketAccelerateConfiguration -> ShowS
Prelude.Show, forall x.
Rep GetBucketAccelerateConfiguration x
-> GetBucketAccelerateConfiguration
forall x.
GetBucketAccelerateConfiguration
-> Rep GetBucketAccelerateConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetBucketAccelerateConfiguration x
-> GetBucketAccelerateConfiguration
$cfrom :: forall x.
GetBucketAccelerateConfiguration
-> Rep GetBucketAccelerateConfiguration x
Prelude.Generic)
newGetBucketAccelerateConfiguration ::
BucketName ->
GetBucketAccelerateConfiguration
newGetBucketAccelerateConfiguration :: BucketName -> GetBucketAccelerateConfiguration
newGetBucketAccelerateConfiguration BucketName
pBucket_ =
GetBucketAccelerateConfiguration'
{ $sel:expectedBucketOwner:GetBucketAccelerateConfiguration' :: Maybe Text
expectedBucketOwner =
forall a. Maybe a
Prelude.Nothing,
$sel:bucket:GetBucketAccelerateConfiguration' :: BucketName
bucket = BucketName
pBucket_
}
getBucketAccelerateConfiguration_expectedBucketOwner :: Lens.Lens' GetBucketAccelerateConfiguration (Prelude.Maybe Prelude.Text)
getBucketAccelerateConfiguration_expectedBucketOwner :: Lens' GetBucketAccelerateConfiguration (Maybe Text)
getBucketAccelerateConfiguration_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketAccelerateConfiguration' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:GetBucketAccelerateConfiguration' :: GetBucketAccelerateConfiguration -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: GetBucketAccelerateConfiguration
s@GetBucketAccelerateConfiguration' {} Maybe Text
a -> GetBucketAccelerateConfiguration
s {$sel:expectedBucketOwner:GetBucketAccelerateConfiguration' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: GetBucketAccelerateConfiguration)
getBucketAccelerateConfiguration_bucket :: Lens.Lens' GetBucketAccelerateConfiguration BucketName
getBucketAccelerateConfiguration_bucket :: Lens' GetBucketAccelerateConfiguration BucketName
getBucketAccelerateConfiguration_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketAccelerateConfiguration' {BucketName
bucket :: BucketName
$sel:bucket:GetBucketAccelerateConfiguration' :: GetBucketAccelerateConfiguration -> BucketName
bucket} -> BucketName
bucket) (\s :: GetBucketAccelerateConfiguration
s@GetBucketAccelerateConfiguration' {} BucketName
a -> GetBucketAccelerateConfiguration
s {$sel:bucket:GetBucketAccelerateConfiguration' :: BucketName
bucket = BucketName
a} :: GetBucketAccelerateConfiguration)
instance
Core.AWSRequest
GetBucketAccelerateConfiguration
where
type
AWSResponse GetBucketAccelerateConfiguration =
GetBucketAccelerateConfigurationResponse
request :: (Service -> Service)
-> GetBucketAccelerateConfiguration
-> Request GetBucketAccelerateConfiguration
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 GetBucketAccelerateConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse GetBucketAccelerateConfiguration)))
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 BucketAccelerateStatus
-> Int -> GetBucketAccelerateConfigurationResponse
GetBucketAccelerateConfigurationResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Status")
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
GetBucketAccelerateConfiguration
where
hashWithSalt :: Int -> GetBucketAccelerateConfiguration -> Int
hashWithSalt
Int
_salt
GetBucketAccelerateConfiguration' {Maybe Text
BucketName
bucket :: BucketName
expectedBucketOwner :: Maybe Text
$sel:bucket:GetBucketAccelerateConfiguration' :: GetBucketAccelerateConfiguration -> BucketName
$sel:expectedBucketOwner:GetBucketAccelerateConfiguration' :: GetBucketAccelerateConfiguration -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
expectedBucketOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BucketName
bucket
instance
Prelude.NFData
GetBucketAccelerateConfiguration
where
rnf :: GetBucketAccelerateConfiguration -> ()
rnf GetBucketAccelerateConfiguration' {Maybe Text
BucketName
bucket :: BucketName
expectedBucketOwner :: Maybe Text
$sel:bucket:GetBucketAccelerateConfiguration' :: GetBucketAccelerateConfiguration -> BucketName
$sel:expectedBucketOwner:GetBucketAccelerateConfiguration' :: GetBucketAccelerateConfiguration -> Maybe Text
..} =
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
instance
Data.ToHeaders
GetBucketAccelerateConfiguration
where
toHeaders :: GetBucketAccelerateConfiguration -> ResponseHeaders
toHeaders GetBucketAccelerateConfiguration' {Maybe Text
BucketName
bucket :: BucketName
expectedBucketOwner :: Maybe Text
$sel:bucket:GetBucketAccelerateConfiguration' :: GetBucketAccelerateConfiguration -> BucketName
$sel:expectedBucketOwner:GetBucketAccelerateConfiguration' :: GetBucketAccelerateConfiguration -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"x-amz-expected-bucket-owner"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
expectedBucketOwner
]
instance Data.ToPath GetBucketAccelerateConfiguration where
toPath :: GetBucketAccelerateConfiguration -> ByteString
toPath GetBucketAccelerateConfiguration' {Maybe Text
BucketName
bucket :: BucketName
expectedBucketOwner :: Maybe Text
$sel:bucket:GetBucketAccelerateConfiguration' :: GetBucketAccelerateConfiguration -> BucketName
$sel:expectedBucketOwner:GetBucketAccelerateConfiguration' :: GetBucketAccelerateConfiguration -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket]
instance
Data.ToQuery
GetBucketAccelerateConfiguration
where
toQuery :: GetBucketAccelerateConfiguration -> QueryString
toQuery =
forall a b. a -> b -> a
Prelude.const (forall a. Monoid a => [a] -> a
Prelude.mconcat [QueryString
"accelerate"])
data GetBucketAccelerateConfigurationResponse = GetBucketAccelerateConfigurationResponse'
{
GetBucketAccelerateConfigurationResponse
-> Maybe BucketAccelerateStatus
status :: Prelude.Maybe BucketAccelerateStatus,
GetBucketAccelerateConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetBucketAccelerateConfigurationResponse
-> GetBucketAccelerateConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetBucketAccelerateConfigurationResponse
-> GetBucketAccelerateConfigurationResponse -> Bool
$c/= :: GetBucketAccelerateConfigurationResponse
-> GetBucketAccelerateConfigurationResponse -> Bool
== :: GetBucketAccelerateConfigurationResponse
-> GetBucketAccelerateConfigurationResponse -> Bool
$c== :: GetBucketAccelerateConfigurationResponse
-> GetBucketAccelerateConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [GetBucketAccelerateConfigurationResponse]
ReadPrec GetBucketAccelerateConfigurationResponse
Int -> ReadS GetBucketAccelerateConfigurationResponse
ReadS [GetBucketAccelerateConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetBucketAccelerateConfigurationResponse]
$creadListPrec :: ReadPrec [GetBucketAccelerateConfigurationResponse]
readPrec :: ReadPrec GetBucketAccelerateConfigurationResponse
$creadPrec :: ReadPrec GetBucketAccelerateConfigurationResponse
readList :: ReadS [GetBucketAccelerateConfigurationResponse]
$creadList :: ReadS [GetBucketAccelerateConfigurationResponse]
readsPrec :: Int -> ReadS GetBucketAccelerateConfigurationResponse
$creadsPrec :: Int -> ReadS GetBucketAccelerateConfigurationResponse
Prelude.Read, Int -> GetBucketAccelerateConfigurationResponse -> ShowS
[GetBucketAccelerateConfigurationResponse] -> ShowS
GetBucketAccelerateConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetBucketAccelerateConfigurationResponse] -> ShowS
$cshowList :: [GetBucketAccelerateConfigurationResponse] -> ShowS
show :: GetBucketAccelerateConfigurationResponse -> String
$cshow :: GetBucketAccelerateConfigurationResponse -> String
showsPrec :: Int -> GetBucketAccelerateConfigurationResponse -> ShowS
$cshowsPrec :: Int -> GetBucketAccelerateConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep GetBucketAccelerateConfigurationResponse x
-> GetBucketAccelerateConfigurationResponse
forall x.
GetBucketAccelerateConfigurationResponse
-> Rep GetBucketAccelerateConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetBucketAccelerateConfigurationResponse x
-> GetBucketAccelerateConfigurationResponse
$cfrom :: forall x.
GetBucketAccelerateConfigurationResponse
-> Rep GetBucketAccelerateConfigurationResponse x
Prelude.Generic)
newGetBucketAccelerateConfigurationResponse ::
Prelude.Int ->
GetBucketAccelerateConfigurationResponse
newGetBucketAccelerateConfigurationResponse :: Int -> GetBucketAccelerateConfigurationResponse
newGetBucketAccelerateConfigurationResponse
Int
pHttpStatus_ =
GetBucketAccelerateConfigurationResponse'
{ $sel:status:GetBucketAccelerateConfigurationResponse' :: Maybe BucketAccelerateStatus
status =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetBucketAccelerateConfigurationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getBucketAccelerateConfigurationResponse_status :: Lens.Lens' GetBucketAccelerateConfigurationResponse (Prelude.Maybe BucketAccelerateStatus)
getBucketAccelerateConfigurationResponse_status :: Lens'
GetBucketAccelerateConfigurationResponse
(Maybe BucketAccelerateStatus)
getBucketAccelerateConfigurationResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketAccelerateConfigurationResponse' {Maybe BucketAccelerateStatus
status :: Maybe BucketAccelerateStatus
$sel:status:GetBucketAccelerateConfigurationResponse' :: GetBucketAccelerateConfigurationResponse
-> Maybe BucketAccelerateStatus
status} -> Maybe BucketAccelerateStatus
status) (\s :: GetBucketAccelerateConfigurationResponse
s@GetBucketAccelerateConfigurationResponse' {} Maybe BucketAccelerateStatus
a -> GetBucketAccelerateConfigurationResponse
s {$sel:status:GetBucketAccelerateConfigurationResponse' :: Maybe BucketAccelerateStatus
status = Maybe BucketAccelerateStatus
a} :: GetBucketAccelerateConfigurationResponse)
getBucketAccelerateConfigurationResponse_httpStatus :: Lens.Lens' GetBucketAccelerateConfigurationResponse Prelude.Int
getBucketAccelerateConfigurationResponse_httpStatus :: Lens' GetBucketAccelerateConfigurationResponse Int
getBucketAccelerateConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketAccelerateConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetBucketAccelerateConfigurationResponse' :: GetBucketAccelerateConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetBucketAccelerateConfigurationResponse
s@GetBucketAccelerateConfigurationResponse' {} Int
a -> GetBucketAccelerateConfigurationResponse
s {$sel:httpStatus:GetBucketAccelerateConfigurationResponse' :: Int
httpStatus = Int
a} :: GetBucketAccelerateConfigurationResponse)
instance
Prelude.NFData
GetBucketAccelerateConfigurationResponse
where
rnf :: GetBucketAccelerateConfigurationResponse -> ()
rnf GetBucketAccelerateConfigurationResponse' {Int
Maybe BucketAccelerateStatus
httpStatus :: Int
status :: Maybe BucketAccelerateStatus
$sel:httpStatus:GetBucketAccelerateConfigurationResponse' :: GetBucketAccelerateConfigurationResponse -> Int
$sel:status:GetBucketAccelerateConfigurationResponse' :: GetBucketAccelerateConfigurationResponse
-> Maybe BucketAccelerateStatus
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe BucketAccelerateStatus
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus