{-# 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.PutBucketAcl
(
PutBucketAcl (..),
newPutBucketAcl,
putBucketAcl_acl,
putBucketAcl_accessControlPolicy,
putBucketAcl_checksumAlgorithm,
putBucketAcl_contentMD5,
putBucketAcl_expectedBucketOwner,
putBucketAcl_grantFullControl,
putBucketAcl_grantRead,
putBucketAcl_grantReadACP,
putBucketAcl_grantWrite,
putBucketAcl_grantWriteACP,
putBucketAcl_bucket,
PutBucketAclResponse (..),
newPutBucketAclResponse,
)
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 PutBucketAcl = PutBucketAcl'
{
PutBucketAcl -> Maybe BucketCannedACL
acl :: Prelude.Maybe BucketCannedACL,
PutBucketAcl -> Maybe AccessControlPolicy
accessControlPolicy :: Prelude.Maybe AccessControlPolicy,
PutBucketAcl -> Maybe ChecksumAlgorithm
checksumAlgorithm :: Prelude.Maybe ChecksumAlgorithm,
PutBucketAcl -> Maybe Text
contentMD5 :: Prelude.Maybe Prelude.Text,
PutBucketAcl -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
PutBucketAcl -> Maybe Text
grantFullControl :: Prelude.Maybe Prelude.Text,
PutBucketAcl -> Maybe Text
grantRead :: Prelude.Maybe Prelude.Text,
PutBucketAcl -> Maybe Text
grantReadACP :: Prelude.Maybe Prelude.Text,
PutBucketAcl -> Maybe Text
grantWrite :: Prelude.Maybe Prelude.Text,
PutBucketAcl -> Maybe Text
grantWriteACP :: Prelude.Maybe Prelude.Text,
PutBucketAcl -> BucketName
bucket :: BucketName
}
deriving (PutBucketAcl -> PutBucketAcl -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutBucketAcl -> PutBucketAcl -> Bool
$c/= :: PutBucketAcl -> PutBucketAcl -> Bool
== :: PutBucketAcl -> PutBucketAcl -> Bool
$c== :: PutBucketAcl -> PutBucketAcl -> Bool
Prelude.Eq, ReadPrec [PutBucketAcl]
ReadPrec PutBucketAcl
Int -> ReadS PutBucketAcl
ReadS [PutBucketAcl]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutBucketAcl]
$creadListPrec :: ReadPrec [PutBucketAcl]
readPrec :: ReadPrec PutBucketAcl
$creadPrec :: ReadPrec PutBucketAcl
readList :: ReadS [PutBucketAcl]
$creadList :: ReadS [PutBucketAcl]
readsPrec :: Int -> ReadS PutBucketAcl
$creadsPrec :: Int -> ReadS PutBucketAcl
Prelude.Read, Int -> PutBucketAcl -> ShowS
[PutBucketAcl] -> ShowS
PutBucketAcl -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutBucketAcl] -> ShowS
$cshowList :: [PutBucketAcl] -> ShowS
show :: PutBucketAcl -> String
$cshow :: PutBucketAcl -> String
showsPrec :: Int -> PutBucketAcl -> ShowS
$cshowsPrec :: Int -> PutBucketAcl -> ShowS
Prelude.Show, forall x. Rep PutBucketAcl x -> PutBucketAcl
forall x. PutBucketAcl -> Rep PutBucketAcl x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutBucketAcl x -> PutBucketAcl
$cfrom :: forall x. PutBucketAcl -> Rep PutBucketAcl x
Prelude.Generic)
newPutBucketAcl ::
BucketName ->
PutBucketAcl
newPutBucketAcl :: BucketName -> PutBucketAcl
newPutBucketAcl BucketName
pBucket_ =
PutBucketAcl'
{ $sel:acl:PutBucketAcl' :: Maybe BucketCannedACL
acl = forall a. Maybe a
Prelude.Nothing,
$sel:accessControlPolicy:PutBucketAcl' :: Maybe AccessControlPolicy
accessControlPolicy = forall a. Maybe a
Prelude.Nothing,
$sel:checksumAlgorithm:PutBucketAcl' :: Maybe ChecksumAlgorithm
checksumAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:contentMD5:PutBucketAcl' :: Maybe Text
contentMD5 = forall a. Maybe a
Prelude.Nothing,
$sel:expectedBucketOwner:PutBucketAcl' :: Maybe Text
expectedBucketOwner = forall a. Maybe a
Prelude.Nothing,
$sel:grantFullControl:PutBucketAcl' :: Maybe Text
grantFullControl = forall a. Maybe a
Prelude.Nothing,
$sel:grantRead:PutBucketAcl' :: Maybe Text
grantRead = forall a. Maybe a
Prelude.Nothing,
$sel:grantReadACP:PutBucketAcl' :: Maybe Text
grantReadACP = forall a. Maybe a
Prelude.Nothing,
$sel:grantWrite:PutBucketAcl' :: Maybe Text
grantWrite = forall a. Maybe a
Prelude.Nothing,
$sel:grantWriteACP:PutBucketAcl' :: Maybe Text
grantWriteACP = forall a. Maybe a
Prelude.Nothing,
$sel:bucket:PutBucketAcl' :: BucketName
bucket = BucketName
pBucket_
}
putBucketAcl_acl :: Lens.Lens' PutBucketAcl (Prelude.Maybe BucketCannedACL)
putBucketAcl_acl :: Lens' PutBucketAcl (Maybe BucketCannedACL)
putBucketAcl_acl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAcl' {Maybe BucketCannedACL
acl :: Maybe BucketCannedACL
$sel:acl:PutBucketAcl' :: PutBucketAcl -> Maybe BucketCannedACL
acl} -> Maybe BucketCannedACL
acl) (\s :: PutBucketAcl
s@PutBucketAcl' {} Maybe BucketCannedACL
a -> PutBucketAcl
s {$sel:acl:PutBucketAcl' :: Maybe BucketCannedACL
acl = Maybe BucketCannedACL
a} :: PutBucketAcl)
putBucketAcl_accessControlPolicy :: Lens.Lens' PutBucketAcl (Prelude.Maybe AccessControlPolicy)
putBucketAcl_accessControlPolicy :: Lens' PutBucketAcl (Maybe AccessControlPolicy)
putBucketAcl_accessControlPolicy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAcl' {Maybe AccessControlPolicy
accessControlPolicy :: Maybe AccessControlPolicy
$sel:accessControlPolicy:PutBucketAcl' :: PutBucketAcl -> Maybe AccessControlPolicy
accessControlPolicy} -> Maybe AccessControlPolicy
accessControlPolicy) (\s :: PutBucketAcl
s@PutBucketAcl' {} Maybe AccessControlPolicy
a -> PutBucketAcl
s {$sel:accessControlPolicy:PutBucketAcl' :: Maybe AccessControlPolicy
accessControlPolicy = Maybe AccessControlPolicy
a} :: PutBucketAcl)
putBucketAcl_checksumAlgorithm :: Lens.Lens' PutBucketAcl (Prelude.Maybe ChecksumAlgorithm)
putBucketAcl_checksumAlgorithm :: Lens' PutBucketAcl (Maybe ChecksumAlgorithm)
putBucketAcl_checksumAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAcl' {Maybe ChecksumAlgorithm
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:checksumAlgorithm:PutBucketAcl' :: PutBucketAcl -> Maybe ChecksumAlgorithm
checksumAlgorithm} -> Maybe ChecksumAlgorithm
checksumAlgorithm) (\s :: PutBucketAcl
s@PutBucketAcl' {} Maybe ChecksumAlgorithm
a -> PutBucketAcl
s {$sel:checksumAlgorithm:PutBucketAcl' :: Maybe ChecksumAlgorithm
checksumAlgorithm = Maybe ChecksumAlgorithm
a} :: PutBucketAcl)
putBucketAcl_contentMD5 :: Lens.Lens' PutBucketAcl (Prelude.Maybe Prelude.Text)
putBucketAcl_contentMD5 :: Lens' PutBucketAcl (Maybe Text)
putBucketAcl_contentMD5 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAcl' {Maybe Text
contentMD5 :: Maybe Text
$sel:contentMD5:PutBucketAcl' :: PutBucketAcl -> Maybe Text
contentMD5} -> Maybe Text
contentMD5) (\s :: PutBucketAcl
s@PutBucketAcl' {} Maybe Text
a -> PutBucketAcl
s {$sel:contentMD5:PutBucketAcl' :: Maybe Text
contentMD5 = Maybe Text
a} :: PutBucketAcl)
putBucketAcl_expectedBucketOwner :: Lens.Lens' PutBucketAcl (Prelude.Maybe Prelude.Text)
putBucketAcl_expectedBucketOwner :: Lens' PutBucketAcl (Maybe Text)
putBucketAcl_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAcl' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:PutBucketAcl' :: PutBucketAcl -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: PutBucketAcl
s@PutBucketAcl' {} Maybe Text
a -> PutBucketAcl
s {$sel:expectedBucketOwner:PutBucketAcl' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: PutBucketAcl)
putBucketAcl_grantFullControl :: Lens.Lens' PutBucketAcl (Prelude.Maybe Prelude.Text)
putBucketAcl_grantFullControl :: Lens' PutBucketAcl (Maybe Text)
putBucketAcl_grantFullControl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAcl' {Maybe Text
grantFullControl :: Maybe Text
$sel:grantFullControl:PutBucketAcl' :: PutBucketAcl -> Maybe Text
grantFullControl} -> Maybe Text
grantFullControl) (\s :: PutBucketAcl
s@PutBucketAcl' {} Maybe Text
a -> PutBucketAcl
s {$sel:grantFullControl:PutBucketAcl' :: Maybe Text
grantFullControl = Maybe Text
a} :: PutBucketAcl)
putBucketAcl_grantRead :: Lens.Lens' PutBucketAcl (Prelude.Maybe Prelude.Text)
putBucketAcl_grantRead :: Lens' PutBucketAcl (Maybe Text)
putBucketAcl_grantRead = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAcl' {Maybe Text
grantRead :: Maybe Text
$sel:grantRead:PutBucketAcl' :: PutBucketAcl -> Maybe Text
grantRead} -> Maybe Text
grantRead) (\s :: PutBucketAcl
s@PutBucketAcl' {} Maybe Text
a -> PutBucketAcl
s {$sel:grantRead:PutBucketAcl' :: Maybe Text
grantRead = Maybe Text
a} :: PutBucketAcl)
putBucketAcl_grantReadACP :: Lens.Lens' PutBucketAcl (Prelude.Maybe Prelude.Text)
putBucketAcl_grantReadACP :: Lens' PutBucketAcl (Maybe Text)
putBucketAcl_grantReadACP = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAcl' {Maybe Text
grantReadACP :: Maybe Text
$sel:grantReadACP:PutBucketAcl' :: PutBucketAcl -> Maybe Text
grantReadACP} -> Maybe Text
grantReadACP) (\s :: PutBucketAcl
s@PutBucketAcl' {} Maybe Text
a -> PutBucketAcl
s {$sel:grantReadACP:PutBucketAcl' :: Maybe Text
grantReadACP = Maybe Text
a} :: PutBucketAcl)
putBucketAcl_grantWrite :: Lens.Lens' PutBucketAcl (Prelude.Maybe Prelude.Text)
putBucketAcl_grantWrite :: Lens' PutBucketAcl (Maybe Text)
putBucketAcl_grantWrite = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAcl' {Maybe Text
grantWrite :: Maybe Text
$sel:grantWrite:PutBucketAcl' :: PutBucketAcl -> Maybe Text
grantWrite} -> Maybe Text
grantWrite) (\s :: PutBucketAcl
s@PutBucketAcl' {} Maybe Text
a -> PutBucketAcl
s {$sel:grantWrite:PutBucketAcl' :: Maybe Text
grantWrite = Maybe Text
a} :: PutBucketAcl)
putBucketAcl_grantWriteACP :: Lens.Lens' PutBucketAcl (Prelude.Maybe Prelude.Text)
putBucketAcl_grantWriteACP :: Lens' PutBucketAcl (Maybe Text)
putBucketAcl_grantWriteACP = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAcl' {Maybe Text
grantWriteACP :: Maybe Text
$sel:grantWriteACP:PutBucketAcl' :: PutBucketAcl -> Maybe Text
grantWriteACP} -> Maybe Text
grantWriteACP) (\s :: PutBucketAcl
s@PutBucketAcl' {} Maybe Text
a -> PutBucketAcl
s {$sel:grantWriteACP:PutBucketAcl' :: Maybe Text
grantWriteACP = Maybe Text
a} :: PutBucketAcl)
putBucketAcl_bucket :: Lens.Lens' PutBucketAcl BucketName
putBucketAcl_bucket :: Lens' PutBucketAcl BucketName
putBucketAcl_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBucketAcl' {BucketName
bucket :: BucketName
$sel:bucket:PutBucketAcl' :: PutBucketAcl -> BucketName
bucket} -> BucketName
bucket) (\s :: PutBucketAcl
s@PutBucketAcl' {} BucketName
a -> PutBucketAcl
s {$sel:bucket:PutBucketAcl' :: BucketName
bucket = BucketName
a} :: PutBucketAcl)
instance Core.AWSRequest PutBucketAcl where
type AWSResponse PutBucketAcl = PutBucketAclResponse
request :: (Service -> Service) -> PutBucketAcl -> Request PutBucketAcl
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 PutBucketAcl
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse PutBucketAcl)))
response = forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull PutBucketAclResponse
PutBucketAclResponse'
instance Prelude.Hashable PutBucketAcl where
hashWithSalt :: Int -> PutBucketAcl -> Int
hashWithSalt Int
_salt PutBucketAcl' {Maybe Text
Maybe BucketCannedACL
Maybe ChecksumAlgorithm
Maybe AccessControlPolicy
BucketName
bucket :: BucketName
grantWriteACP :: Maybe Text
grantWrite :: Maybe Text
grantReadACP :: Maybe Text
grantRead :: Maybe Text
grantFullControl :: Maybe Text
expectedBucketOwner :: Maybe Text
contentMD5 :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
accessControlPolicy :: Maybe AccessControlPolicy
acl :: Maybe BucketCannedACL
$sel:bucket:PutBucketAcl' :: PutBucketAcl -> BucketName
$sel:grantWriteACP:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantWrite:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantReadACP:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantRead:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantFullControl:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:expectedBucketOwner:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:contentMD5:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:checksumAlgorithm:PutBucketAcl' :: PutBucketAcl -> Maybe ChecksumAlgorithm
$sel:accessControlPolicy:PutBucketAcl' :: PutBucketAcl -> Maybe AccessControlPolicy
$sel:acl:PutBucketAcl' :: PutBucketAcl -> Maybe BucketCannedACL
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BucketCannedACL
acl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AccessControlPolicy
accessControlPolicy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ChecksumAlgorithm
checksumAlgorithm
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
contentMD5
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
expectedBucketOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
grantFullControl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
grantRead
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
grantReadACP
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
grantWrite
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
grantWriteACP
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BucketName
bucket
instance Prelude.NFData PutBucketAcl where
rnf :: PutBucketAcl -> ()
rnf PutBucketAcl' {Maybe Text
Maybe BucketCannedACL
Maybe ChecksumAlgorithm
Maybe AccessControlPolicy
BucketName
bucket :: BucketName
grantWriteACP :: Maybe Text
grantWrite :: Maybe Text
grantReadACP :: Maybe Text
grantRead :: Maybe Text
grantFullControl :: Maybe Text
expectedBucketOwner :: Maybe Text
contentMD5 :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
accessControlPolicy :: Maybe AccessControlPolicy
acl :: Maybe BucketCannedACL
$sel:bucket:PutBucketAcl' :: PutBucketAcl -> BucketName
$sel:grantWriteACP:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantWrite:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantReadACP:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantRead:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantFullControl:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:expectedBucketOwner:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:contentMD5:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:checksumAlgorithm:PutBucketAcl' :: PutBucketAcl -> Maybe ChecksumAlgorithm
$sel:accessControlPolicy:PutBucketAcl' :: PutBucketAcl -> Maybe AccessControlPolicy
$sel:acl:PutBucketAcl' :: PutBucketAcl -> Maybe BucketCannedACL
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe BucketCannedACL
acl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe AccessControlPolicy
accessControlPolicy
seq :: forall a b. a -> b -> b
`Prelude.seq` 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
contentMD5
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 Maybe Text
grantFullControl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
grantRead
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
grantReadACP
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
grantWrite
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
grantWriteACP
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf BucketName
bucket
instance Data.ToElement PutBucketAcl where
toElement :: PutBucketAcl -> Element
toElement PutBucketAcl' {Maybe Text
Maybe BucketCannedACL
Maybe ChecksumAlgorithm
Maybe AccessControlPolicy
BucketName
bucket :: BucketName
grantWriteACP :: Maybe Text
grantWrite :: Maybe Text
grantReadACP :: Maybe Text
grantRead :: Maybe Text
grantFullControl :: Maybe Text
expectedBucketOwner :: Maybe Text
contentMD5 :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
accessControlPolicy :: Maybe AccessControlPolicy
acl :: Maybe BucketCannedACL
$sel:bucket:PutBucketAcl' :: PutBucketAcl -> BucketName
$sel:grantWriteACP:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantWrite:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantReadACP:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantRead:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantFullControl:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:expectedBucketOwner:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:contentMD5:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:checksumAlgorithm:PutBucketAcl' :: PutBucketAcl -> Maybe ChecksumAlgorithm
$sel:accessControlPolicy:PutBucketAcl' :: PutBucketAcl -> Maybe AccessControlPolicy
$sel:acl:PutBucketAcl' :: PutBucketAcl -> Maybe BucketCannedACL
..} =
forall a. ToXML a => Name -> a -> Element
Data.mkElement
Name
"{http://s3.amazonaws.com/doc/2006-03-01/}AccessControlPolicy"
Maybe AccessControlPolicy
accessControlPolicy
instance Data.ToHeaders PutBucketAcl where
toHeaders :: PutBucketAcl -> [Header]
toHeaders PutBucketAcl' {Maybe Text
Maybe BucketCannedACL
Maybe ChecksumAlgorithm
Maybe AccessControlPolicy
BucketName
bucket :: BucketName
grantWriteACP :: Maybe Text
grantWrite :: Maybe Text
grantReadACP :: Maybe Text
grantRead :: Maybe Text
grantFullControl :: Maybe Text
expectedBucketOwner :: Maybe Text
contentMD5 :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
accessControlPolicy :: Maybe AccessControlPolicy
acl :: Maybe BucketCannedACL
$sel:bucket:PutBucketAcl' :: PutBucketAcl -> BucketName
$sel:grantWriteACP:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantWrite:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantReadACP:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantRead:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantFullControl:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:expectedBucketOwner:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:contentMD5:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:checksumAlgorithm:PutBucketAcl' :: PutBucketAcl -> Maybe ChecksumAlgorithm
$sel:accessControlPolicy:PutBucketAcl' :: PutBucketAcl -> Maybe AccessControlPolicy
$sel:acl:PutBucketAcl' :: PutBucketAcl -> Maybe BucketCannedACL
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"x-amz-acl" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe BucketCannedACL
acl,
HeaderName
"x-amz-sdk-checksum-algorithm"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ChecksumAlgorithm
checksumAlgorithm,
HeaderName
"Content-MD5" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
contentMD5,
HeaderName
"x-amz-expected-bucket-owner"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
expectedBucketOwner,
HeaderName
"x-amz-grant-full-control" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
grantFullControl,
HeaderName
"x-amz-grant-read" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
grantRead,
HeaderName
"x-amz-grant-read-acp" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
grantReadACP,
HeaderName
"x-amz-grant-write" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
grantWrite,
HeaderName
"x-amz-grant-write-acp" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
grantWriteACP
]
instance Data.ToPath PutBucketAcl where
toPath :: PutBucketAcl -> ByteString
toPath PutBucketAcl' {Maybe Text
Maybe BucketCannedACL
Maybe ChecksumAlgorithm
Maybe AccessControlPolicy
BucketName
bucket :: BucketName
grantWriteACP :: Maybe Text
grantWrite :: Maybe Text
grantReadACP :: Maybe Text
grantRead :: Maybe Text
grantFullControl :: Maybe Text
expectedBucketOwner :: Maybe Text
contentMD5 :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
accessControlPolicy :: Maybe AccessControlPolicy
acl :: Maybe BucketCannedACL
$sel:bucket:PutBucketAcl' :: PutBucketAcl -> BucketName
$sel:grantWriteACP:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantWrite:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantReadACP:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantRead:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:grantFullControl:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:expectedBucketOwner:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:contentMD5:PutBucketAcl' :: PutBucketAcl -> Maybe Text
$sel:checksumAlgorithm:PutBucketAcl' :: PutBucketAcl -> Maybe ChecksumAlgorithm
$sel:accessControlPolicy:PutBucketAcl' :: PutBucketAcl -> Maybe AccessControlPolicy
$sel:acl:PutBucketAcl' :: PutBucketAcl -> Maybe BucketCannedACL
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket]
instance Data.ToQuery PutBucketAcl where
toQuery :: PutBucketAcl -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const (forall a. Monoid a => [a] -> a
Prelude.mconcat [QueryString
"acl"])
data PutBucketAclResponse = PutBucketAclResponse'
{
}
deriving (PutBucketAclResponse -> PutBucketAclResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutBucketAclResponse -> PutBucketAclResponse -> Bool
$c/= :: PutBucketAclResponse -> PutBucketAclResponse -> Bool
== :: PutBucketAclResponse -> PutBucketAclResponse -> Bool
$c== :: PutBucketAclResponse -> PutBucketAclResponse -> Bool
Prelude.Eq, ReadPrec [PutBucketAclResponse]
ReadPrec PutBucketAclResponse
Int -> ReadS PutBucketAclResponse
ReadS [PutBucketAclResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutBucketAclResponse]
$creadListPrec :: ReadPrec [PutBucketAclResponse]
readPrec :: ReadPrec PutBucketAclResponse
$creadPrec :: ReadPrec PutBucketAclResponse
readList :: ReadS [PutBucketAclResponse]
$creadList :: ReadS [PutBucketAclResponse]
readsPrec :: Int -> ReadS PutBucketAclResponse
$creadsPrec :: Int -> ReadS PutBucketAclResponse
Prelude.Read, Int -> PutBucketAclResponse -> ShowS
[PutBucketAclResponse] -> ShowS
PutBucketAclResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutBucketAclResponse] -> ShowS
$cshowList :: [PutBucketAclResponse] -> ShowS
show :: PutBucketAclResponse -> String
$cshow :: PutBucketAclResponse -> String
showsPrec :: Int -> PutBucketAclResponse -> ShowS
$cshowsPrec :: Int -> PutBucketAclResponse -> ShowS
Prelude.Show, forall x. Rep PutBucketAclResponse x -> PutBucketAclResponse
forall x. PutBucketAclResponse -> Rep PutBucketAclResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutBucketAclResponse x -> PutBucketAclResponse
$cfrom :: forall x. PutBucketAclResponse -> Rep PutBucketAclResponse x
Prelude.Generic)
newPutBucketAclResponse ::
PutBucketAclResponse
newPutBucketAclResponse :: PutBucketAclResponse
newPutBucketAclResponse = PutBucketAclResponse
PutBucketAclResponse'
instance Prelude.NFData PutBucketAclResponse where
rnf :: PutBucketAclResponse -> ()
rnf PutBucketAclResponse
_ = ()