{-# 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.PutObjectAcl
(
PutObjectAcl (..),
newPutObjectAcl,
putObjectAcl_acl,
putObjectAcl_accessControlPolicy,
putObjectAcl_checksumAlgorithm,
putObjectAcl_contentMD5,
putObjectAcl_expectedBucketOwner,
putObjectAcl_grantFullControl,
putObjectAcl_grantRead,
putObjectAcl_grantReadACP,
putObjectAcl_grantWrite,
putObjectAcl_grantWriteACP,
putObjectAcl_requestPayer,
putObjectAcl_versionId,
putObjectAcl_bucket,
putObjectAcl_key,
PutObjectAclResponse (..),
newPutObjectAclResponse,
putObjectAclResponse_requestCharged,
putObjectAclResponse_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 PutObjectAcl = PutObjectAcl'
{
PutObjectAcl -> Maybe ObjectCannedACL
acl :: Prelude.Maybe ObjectCannedACL,
PutObjectAcl -> Maybe AccessControlPolicy
accessControlPolicy :: Prelude.Maybe AccessControlPolicy,
PutObjectAcl -> Maybe ChecksumAlgorithm
checksumAlgorithm :: Prelude.Maybe ChecksumAlgorithm,
PutObjectAcl -> Maybe Text
contentMD5 :: Prelude.Maybe Prelude.Text,
PutObjectAcl -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
PutObjectAcl -> Maybe Text
grantFullControl :: Prelude.Maybe Prelude.Text,
PutObjectAcl -> Maybe Text
grantRead :: Prelude.Maybe Prelude.Text,
PutObjectAcl -> Maybe Text
grantReadACP :: Prelude.Maybe Prelude.Text,
PutObjectAcl -> Maybe Text
grantWrite :: Prelude.Maybe Prelude.Text,
PutObjectAcl -> Maybe Text
grantWriteACP :: Prelude.Maybe Prelude.Text,
PutObjectAcl -> Maybe RequestPayer
requestPayer :: Prelude.Maybe RequestPayer,
PutObjectAcl -> Maybe ObjectVersionId
versionId :: Prelude.Maybe ObjectVersionId,
PutObjectAcl -> BucketName
bucket :: BucketName,
PutObjectAcl -> ObjectKey
key :: ObjectKey
}
deriving (PutObjectAcl -> PutObjectAcl -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutObjectAcl -> PutObjectAcl -> Bool
$c/= :: PutObjectAcl -> PutObjectAcl -> Bool
== :: PutObjectAcl -> PutObjectAcl -> Bool
$c== :: PutObjectAcl -> PutObjectAcl -> Bool
Prelude.Eq, ReadPrec [PutObjectAcl]
ReadPrec PutObjectAcl
Int -> ReadS PutObjectAcl
ReadS [PutObjectAcl]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutObjectAcl]
$creadListPrec :: ReadPrec [PutObjectAcl]
readPrec :: ReadPrec PutObjectAcl
$creadPrec :: ReadPrec PutObjectAcl
readList :: ReadS [PutObjectAcl]
$creadList :: ReadS [PutObjectAcl]
readsPrec :: Int -> ReadS PutObjectAcl
$creadsPrec :: Int -> ReadS PutObjectAcl
Prelude.Read, Int -> PutObjectAcl -> ShowS
[PutObjectAcl] -> ShowS
PutObjectAcl -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutObjectAcl] -> ShowS
$cshowList :: [PutObjectAcl] -> ShowS
show :: PutObjectAcl -> String
$cshow :: PutObjectAcl -> String
showsPrec :: Int -> PutObjectAcl -> ShowS
$cshowsPrec :: Int -> PutObjectAcl -> ShowS
Prelude.Show, forall x. Rep PutObjectAcl x -> PutObjectAcl
forall x. PutObjectAcl -> Rep PutObjectAcl x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutObjectAcl x -> PutObjectAcl
$cfrom :: forall x. PutObjectAcl -> Rep PutObjectAcl x
Prelude.Generic)
newPutObjectAcl ::
BucketName ->
ObjectKey ->
PutObjectAcl
newPutObjectAcl :: BucketName -> ObjectKey -> PutObjectAcl
newPutObjectAcl BucketName
pBucket_ ObjectKey
pKey_ =
PutObjectAcl'
{ $sel:acl:PutObjectAcl' :: Maybe ObjectCannedACL
acl = forall a. Maybe a
Prelude.Nothing,
$sel:accessControlPolicy:PutObjectAcl' :: Maybe AccessControlPolicy
accessControlPolicy = forall a. Maybe a
Prelude.Nothing,
$sel:checksumAlgorithm:PutObjectAcl' :: Maybe ChecksumAlgorithm
checksumAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:contentMD5:PutObjectAcl' :: Maybe Text
contentMD5 = forall a. Maybe a
Prelude.Nothing,
$sel:expectedBucketOwner:PutObjectAcl' :: Maybe Text
expectedBucketOwner = forall a. Maybe a
Prelude.Nothing,
$sel:grantFullControl:PutObjectAcl' :: Maybe Text
grantFullControl = forall a. Maybe a
Prelude.Nothing,
$sel:grantRead:PutObjectAcl' :: Maybe Text
grantRead = forall a. Maybe a
Prelude.Nothing,
$sel:grantReadACP:PutObjectAcl' :: Maybe Text
grantReadACP = forall a. Maybe a
Prelude.Nothing,
$sel:grantWrite:PutObjectAcl' :: Maybe Text
grantWrite = forall a. Maybe a
Prelude.Nothing,
$sel:grantWriteACP:PutObjectAcl' :: Maybe Text
grantWriteACP = forall a. Maybe a
Prelude.Nothing,
$sel:requestPayer:PutObjectAcl' :: Maybe RequestPayer
requestPayer = forall a. Maybe a
Prelude.Nothing,
$sel:versionId:PutObjectAcl' :: Maybe ObjectVersionId
versionId = forall a. Maybe a
Prelude.Nothing,
$sel:bucket:PutObjectAcl' :: BucketName
bucket = BucketName
pBucket_,
$sel:key:PutObjectAcl' :: ObjectKey
key = ObjectKey
pKey_
}
putObjectAcl_acl :: Lens.Lens' PutObjectAcl (Prelude.Maybe ObjectCannedACL)
putObjectAcl_acl :: Lens' PutObjectAcl (Maybe ObjectCannedACL)
putObjectAcl_acl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAcl' {Maybe ObjectCannedACL
acl :: Maybe ObjectCannedACL
$sel:acl:PutObjectAcl' :: PutObjectAcl -> Maybe ObjectCannedACL
acl} -> Maybe ObjectCannedACL
acl) (\s :: PutObjectAcl
s@PutObjectAcl' {} Maybe ObjectCannedACL
a -> PutObjectAcl
s {$sel:acl:PutObjectAcl' :: Maybe ObjectCannedACL
acl = Maybe ObjectCannedACL
a} :: PutObjectAcl)
putObjectAcl_accessControlPolicy :: Lens.Lens' PutObjectAcl (Prelude.Maybe AccessControlPolicy)
putObjectAcl_accessControlPolicy :: Lens' PutObjectAcl (Maybe AccessControlPolicy)
putObjectAcl_accessControlPolicy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAcl' {Maybe AccessControlPolicy
accessControlPolicy :: Maybe AccessControlPolicy
$sel:accessControlPolicy:PutObjectAcl' :: PutObjectAcl -> Maybe AccessControlPolicy
accessControlPolicy} -> Maybe AccessControlPolicy
accessControlPolicy) (\s :: PutObjectAcl
s@PutObjectAcl' {} Maybe AccessControlPolicy
a -> PutObjectAcl
s {$sel:accessControlPolicy:PutObjectAcl' :: Maybe AccessControlPolicy
accessControlPolicy = Maybe AccessControlPolicy
a} :: PutObjectAcl)
putObjectAcl_checksumAlgorithm :: Lens.Lens' PutObjectAcl (Prelude.Maybe ChecksumAlgorithm)
putObjectAcl_checksumAlgorithm :: Lens' PutObjectAcl (Maybe ChecksumAlgorithm)
putObjectAcl_checksumAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAcl' {Maybe ChecksumAlgorithm
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:checksumAlgorithm:PutObjectAcl' :: PutObjectAcl -> Maybe ChecksumAlgorithm
checksumAlgorithm} -> Maybe ChecksumAlgorithm
checksumAlgorithm) (\s :: PutObjectAcl
s@PutObjectAcl' {} Maybe ChecksumAlgorithm
a -> PutObjectAcl
s {$sel:checksumAlgorithm:PutObjectAcl' :: Maybe ChecksumAlgorithm
checksumAlgorithm = Maybe ChecksumAlgorithm
a} :: PutObjectAcl)
putObjectAcl_contentMD5 :: Lens.Lens' PutObjectAcl (Prelude.Maybe Prelude.Text)
putObjectAcl_contentMD5 :: Lens' PutObjectAcl (Maybe Text)
putObjectAcl_contentMD5 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAcl' {Maybe Text
contentMD5 :: Maybe Text
$sel:contentMD5:PutObjectAcl' :: PutObjectAcl -> Maybe Text
contentMD5} -> Maybe Text
contentMD5) (\s :: PutObjectAcl
s@PutObjectAcl' {} Maybe Text
a -> PutObjectAcl
s {$sel:contentMD5:PutObjectAcl' :: Maybe Text
contentMD5 = Maybe Text
a} :: PutObjectAcl)
putObjectAcl_expectedBucketOwner :: Lens.Lens' PutObjectAcl (Prelude.Maybe Prelude.Text)
putObjectAcl_expectedBucketOwner :: Lens' PutObjectAcl (Maybe Text)
putObjectAcl_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAcl' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:PutObjectAcl' :: PutObjectAcl -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: PutObjectAcl
s@PutObjectAcl' {} Maybe Text
a -> PutObjectAcl
s {$sel:expectedBucketOwner:PutObjectAcl' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: PutObjectAcl)
putObjectAcl_grantFullControl :: Lens.Lens' PutObjectAcl (Prelude.Maybe Prelude.Text)
putObjectAcl_grantFullControl :: Lens' PutObjectAcl (Maybe Text)
putObjectAcl_grantFullControl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAcl' {Maybe Text
grantFullControl :: Maybe Text
$sel:grantFullControl:PutObjectAcl' :: PutObjectAcl -> Maybe Text
grantFullControl} -> Maybe Text
grantFullControl) (\s :: PutObjectAcl
s@PutObjectAcl' {} Maybe Text
a -> PutObjectAcl
s {$sel:grantFullControl:PutObjectAcl' :: Maybe Text
grantFullControl = Maybe Text
a} :: PutObjectAcl)
putObjectAcl_grantRead :: Lens.Lens' PutObjectAcl (Prelude.Maybe Prelude.Text)
putObjectAcl_grantRead :: Lens' PutObjectAcl (Maybe Text)
putObjectAcl_grantRead = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAcl' {Maybe Text
grantRead :: Maybe Text
$sel:grantRead:PutObjectAcl' :: PutObjectAcl -> Maybe Text
grantRead} -> Maybe Text
grantRead) (\s :: PutObjectAcl
s@PutObjectAcl' {} Maybe Text
a -> PutObjectAcl
s {$sel:grantRead:PutObjectAcl' :: Maybe Text
grantRead = Maybe Text
a} :: PutObjectAcl)
putObjectAcl_grantReadACP :: Lens.Lens' PutObjectAcl (Prelude.Maybe Prelude.Text)
putObjectAcl_grantReadACP :: Lens' PutObjectAcl (Maybe Text)
putObjectAcl_grantReadACP = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAcl' {Maybe Text
grantReadACP :: Maybe Text
$sel:grantReadACP:PutObjectAcl' :: PutObjectAcl -> Maybe Text
grantReadACP} -> Maybe Text
grantReadACP) (\s :: PutObjectAcl
s@PutObjectAcl' {} Maybe Text
a -> PutObjectAcl
s {$sel:grantReadACP:PutObjectAcl' :: Maybe Text
grantReadACP = Maybe Text
a} :: PutObjectAcl)
putObjectAcl_grantWrite :: Lens.Lens' PutObjectAcl (Prelude.Maybe Prelude.Text)
putObjectAcl_grantWrite :: Lens' PutObjectAcl (Maybe Text)
putObjectAcl_grantWrite = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAcl' {Maybe Text
grantWrite :: Maybe Text
$sel:grantWrite:PutObjectAcl' :: PutObjectAcl -> Maybe Text
grantWrite} -> Maybe Text
grantWrite) (\s :: PutObjectAcl
s@PutObjectAcl' {} Maybe Text
a -> PutObjectAcl
s {$sel:grantWrite:PutObjectAcl' :: Maybe Text
grantWrite = Maybe Text
a} :: PutObjectAcl)
putObjectAcl_grantWriteACP :: Lens.Lens' PutObjectAcl (Prelude.Maybe Prelude.Text)
putObjectAcl_grantWriteACP :: Lens' PutObjectAcl (Maybe Text)
putObjectAcl_grantWriteACP = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAcl' {Maybe Text
grantWriteACP :: Maybe Text
$sel:grantWriteACP:PutObjectAcl' :: PutObjectAcl -> Maybe Text
grantWriteACP} -> Maybe Text
grantWriteACP) (\s :: PutObjectAcl
s@PutObjectAcl' {} Maybe Text
a -> PutObjectAcl
s {$sel:grantWriteACP:PutObjectAcl' :: Maybe Text
grantWriteACP = Maybe Text
a} :: PutObjectAcl)
putObjectAcl_requestPayer :: Lens.Lens' PutObjectAcl (Prelude.Maybe RequestPayer)
putObjectAcl_requestPayer :: Lens' PutObjectAcl (Maybe RequestPayer)
putObjectAcl_requestPayer = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAcl' {Maybe RequestPayer
requestPayer :: Maybe RequestPayer
$sel:requestPayer:PutObjectAcl' :: PutObjectAcl -> Maybe RequestPayer
requestPayer} -> Maybe RequestPayer
requestPayer) (\s :: PutObjectAcl
s@PutObjectAcl' {} Maybe RequestPayer
a -> PutObjectAcl
s {$sel:requestPayer:PutObjectAcl' :: Maybe RequestPayer
requestPayer = Maybe RequestPayer
a} :: PutObjectAcl)
putObjectAcl_versionId :: Lens.Lens' PutObjectAcl (Prelude.Maybe ObjectVersionId)
putObjectAcl_versionId :: Lens' PutObjectAcl (Maybe ObjectVersionId)
putObjectAcl_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAcl' {Maybe ObjectVersionId
versionId :: Maybe ObjectVersionId
$sel:versionId:PutObjectAcl' :: PutObjectAcl -> Maybe ObjectVersionId
versionId} -> Maybe ObjectVersionId
versionId) (\s :: PutObjectAcl
s@PutObjectAcl' {} Maybe ObjectVersionId
a -> PutObjectAcl
s {$sel:versionId:PutObjectAcl' :: Maybe ObjectVersionId
versionId = Maybe ObjectVersionId
a} :: PutObjectAcl)
putObjectAcl_bucket :: Lens.Lens' PutObjectAcl BucketName
putObjectAcl_bucket :: Lens' PutObjectAcl BucketName
putObjectAcl_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAcl' {BucketName
bucket :: BucketName
$sel:bucket:PutObjectAcl' :: PutObjectAcl -> BucketName
bucket} -> BucketName
bucket) (\s :: PutObjectAcl
s@PutObjectAcl' {} BucketName
a -> PutObjectAcl
s {$sel:bucket:PutObjectAcl' :: BucketName
bucket = BucketName
a} :: PutObjectAcl)
putObjectAcl_key :: Lens.Lens' PutObjectAcl ObjectKey
putObjectAcl_key :: Lens' PutObjectAcl ObjectKey
putObjectAcl_key = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAcl' {ObjectKey
key :: ObjectKey
$sel:key:PutObjectAcl' :: PutObjectAcl -> ObjectKey
key} -> ObjectKey
key) (\s :: PutObjectAcl
s@PutObjectAcl' {} ObjectKey
a -> PutObjectAcl
s {$sel:key:PutObjectAcl' :: ObjectKey
key = ObjectKey
a} :: PutObjectAcl)
instance Core.AWSRequest PutObjectAcl where
type AWSResponse PutObjectAcl = PutObjectAclResponse
request :: (Service -> Service) -> PutObjectAcl -> Request PutObjectAcl
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 PutObjectAcl
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse PutObjectAcl)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Maybe RequestCharged -> Int -> PutObjectAclResponse
PutObjectAclResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-request-charged")
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 PutObjectAcl where
hashWithSalt :: Int -> PutObjectAcl -> Int
hashWithSalt Int
_salt PutObjectAcl' {Maybe Text
Maybe ObjectVersionId
Maybe ChecksumAlgorithm
Maybe ObjectCannedACL
Maybe RequestPayer
Maybe AccessControlPolicy
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
requestPayer :: Maybe RequestPayer
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 ObjectCannedACL
$sel:key:PutObjectAcl' :: PutObjectAcl -> ObjectKey
$sel:bucket:PutObjectAcl' :: PutObjectAcl -> BucketName
$sel:versionId:PutObjectAcl' :: PutObjectAcl -> Maybe ObjectVersionId
$sel:requestPayer:PutObjectAcl' :: PutObjectAcl -> Maybe RequestPayer
$sel:grantWriteACP:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantWrite:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantReadACP:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantRead:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantFullControl:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:expectedBucketOwner:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:contentMD5:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:checksumAlgorithm:PutObjectAcl' :: PutObjectAcl -> Maybe ChecksumAlgorithm
$sel:accessControlPolicy:PutObjectAcl' :: PutObjectAcl -> Maybe AccessControlPolicy
$sel:acl:PutObjectAcl' :: PutObjectAcl -> Maybe ObjectCannedACL
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ObjectCannedACL
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` Maybe RequestPayer
requestPayer
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ObjectVersionId
versionId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BucketName
bucket
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ObjectKey
key
instance Prelude.NFData PutObjectAcl where
rnf :: PutObjectAcl -> ()
rnf PutObjectAcl' {Maybe Text
Maybe ObjectVersionId
Maybe ChecksumAlgorithm
Maybe ObjectCannedACL
Maybe RequestPayer
Maybe AccessControlPolicy
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
requestPayer :: Maybe RequestPayer
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 ObjectCannedACL
$sel:key:PutObjectAcl' :: PutObjectAcl -> ObjectKey
$sel:bucket:PutObjectAcl' :: PutObjectAcl -> BucketName
$sel:versionId:PutObjectAcl' :: PutObjectAcl -> Maybe ObjectVersionId
$sel:requestPayer:PutObjectAcl' :: PutObjectAcl -> Maybe RequestPayer
$sel:grantWriteACP:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantWrite:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantReadACP:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantRead:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantFullControl:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:expectedBucketOwner:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:contentMD5:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:checksumAlgorithm:PutObjectAcl' :: PutObjectAcl -> Maybe ChecksumAlgorithm
$sel:accessControlPolicy:PutObjectAcl' :: PutObjectAcl -> Maybe AccessControlPolicy
$sel:acl:PutObjectAcl' :: PutObjectAcl -> Maybe ObjectCannedACL
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ObjectCannedACL
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 Maybe RequestPayer
requestPayer
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ObjectVersionId
versionId
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 ObjectKey
key
instance Data.ToElement PutObjectAcl where
toElement :: PutObjectAcl -> Element
toElement PutObjectAcl' {Maybe Text
Maybe ObjectVersionId
Maybe ChecksumAlgorithm
Maybe ObjectCannedACL
Maybe RequestPayer
Maybe AccessControlPolicy
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
requestPayer :: Maybe RequestPayer
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 ObjectCannedACL
$sel:key:PutObjectAcl' :: PutObjectAcl -> ObjectKey
$sel:bucket:PutObjectAcl' :: PutObjectAcl -> BucketName
$sel:versionId:PutObjectAcl' :: PutObjectAcl -> Maybe ObjectVersionId
$sel:requestPayer:PutObjectAcl' :: PutObjectAcl -> Maybe RequestPayer
$sel:grantWriteACP:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantWrite:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantReadACP:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantRead:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantFullControl:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:expectedBucketOwner:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:contentMD5:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:checksumAlgorithm:PutObjectAcl' :: PutObjectAcl -> Maybe ChecksumAlgorithm
$sel:accessControlPolicy:PutObjectAcl' :: PutObjectAcl -> Maybe AccessControlPolicy
$sel:acl:PutObjectAcl' :: PutObjectAcl -> Maybe ObjectCannedACL
..} =
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 PutObjectAcl where
toHeaders :: PutObjectAcl -> ResponseHeaders
toHeaders PutObjectAcl' {Maybe Text
Maybe ObjectVersionId
Maybe ChecksumAlgorithm
Maybe ObjectCannedACL
Maybe RequestPayer
Maybe AccessControlPolicy
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
requestPayer :: Maybe RequestPayer
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 ObjectCannedACL
$sel:key:PutObjectAcl' :: PutObjectAcl -> ObjectKey
$sel:bucket:PutObjectAcl' :: PutObjectAcl -> BucketName
$sel:versionId:PutObjectAcl' :: PutObjectAcl -> Maybe ObjectVersionId
$sel:requestPayer:PutObjectAcl' :: PutObjectAcl -> Maybe RequestPayer
$sel:grantWriteACP:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantWrite:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantReadACP:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantRead:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantFullControl:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:expectedBucketOwner:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:contentMD5:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:checksumAlgorithm:PutObjectAcl' :: PutObjectAcl -> Maybe ChecksumAlgorithm
$sel:accessControlPolicy:PutObjectAcl' :: PutObjectAcl -> Maybe AccessControlPolicy
$sel:acl:PutObjectAcl' :: PutObjectAcl -> Maybe ObjectCannedACL
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"x-amz-acl" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe ObjectCannedACL
acl,
HeaderName
"x-amz-sdk-checksum-algorithm"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe ChecksumAlgorithm
checksumAlgorithm,
HeaderName
"Content-MD5" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
contentMD5,
HeaderName
"x-amz-expected-bucket-owner"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
expectedBucketOwner,
HeaderName
"x-amz-grant-full-control" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
grantFullControl,
HeaderName
"x-amz-grant-read" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
grantRead,
HeaderName
"x-amz-grant-read-acp" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
grantReadACP,
HeaderName
"x-amz-grant-write" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
grantWrite,
HeaderName
"x-amz-grant-write-acp" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
grantWriteACP,
HeaderName
"x-amz-request-payer" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe RequestPayer
requestPayer
]
instance Data.ToPath PutObjectAcl where
toPath :: PutObjectAcl -> ByteString
toPath PutObjectAcl' {Maybe Text
Maybe ObjectVersionId
Maybe ChecksumAlgorithm
Maybe ObjectCannedACL
Maybe RequestPayer
Maybe AccessControlPolicy
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
requestPayer :: Maybe RequestPayer
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 ObjectCannedACL
$sel:key:PutObjectAcl' :: PutObjectAcl -> ObjectKey
$sel:bucket:PutObjectAcl' :: PutObjectAcl -> BucketName
$sel:versionId:PutObjectAcl' :: PutObjectAcl -> Maybe ObjectVersionId
$sel:requestPayer:PutObjectAcl' :: PutObjectAcl -> Maybe RequestPayer
$sel:grantWriteACP:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantWrite:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantReadACP:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantRead:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantFullControl:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:expectedBucketOwner:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:contentMD5:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:checksumAlgorithm:PutObjectAcl' :: PutObjectAcl -> Maybe ChecksumAlgorithm
$sel:accessControlPolicy:PutObjectAcl' :: PutObjectAcl -> Maybe AccessControlPolicy
$sel:acl:PutObjectAcl' :: PutObjectAcl -> Maybe ObjectCannedACL
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket, ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS ObjectKey
key]
instance Data.ToQuery PutObjectAcl where
toQuery :: PutObjectAcl -> QueryString
toQuery PutObjectAcl' {Maybe Text
Maybe ObjectVersionId
Maybe ChecksumAlgorithm
Maybe ObjectCannedACL
Maybe RequestPayer
Maybe AccessControlPolicy
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
requestPayer :: Maybe RequestPayer
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 ObjectCannedACL
$sel:key:PutObjectAcl' :: PutObjectAcl -> ObjectKey
$sel:bucket:PutObjectAcl' :: PutObjectAcl -> BucketName
$sel:versionId:PutObjectAcl' :: PutObjectAcl -> Maybe ObjectVersionId
$sel:requestPayer:PutObjectAcl' :: PutObjectAcl -> Maybe RequestPayer
$sel:grantWriteACP:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantWrite:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantReadACP:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantRead:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:grantFullControl:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:expectedBucketOwner:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:contentMD5:PutObjectAcl' :: PutObjectAcl -> Maybe Text
$sel:checksumAlgorithm:PutObjectAcl' :: PutObjectAcl -> Maybe ChecksumAlgorithm
$sel:accessControlPolicy:PutObjectAcl' :: PutObjectAcl -> Maybe AccessControlPolicy
$sel:acl:PutObjectAcl' :: PutObjectAcl -> Maybe ObjectCannedACL
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"versionId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe ObjectVersionId
versionId, QueryString
"acl"]
data PutObjectAclResponse = PutObjectAclResponse'
{ PutObjectAclResponse -> Maybe RequestCharged
requestCharged :: Prelude.Maybe RequestCharged,
PutObjectAclResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutObjectAclResponse -> PutObjectAclResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutObjectAclResponse -> PutObjectAclResponse -> Bool
$c/= :: PutObjectAclResponse -> PutObjectAclResponse -> Bool
== :: PutObjectAclResponse -> PutObjectAclResponse -> Bool
$c== :: PutObjectAclResponse -> PutObjectAclResponse -> Bool
Prelude.Eq, ReadPrec [PutObjectAclResponse]
ReadPrec PutObjectAclResponse
Int -> ReadS PutObjectAclResponse
ReadS [PutObjectAclResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutObjectAclResponse]
$creadListPrec :: ReadPrec [PutObjectAclResponse]
readPrec :: ReadPrec PutObjectAclResponse
$creadPrec :: ReadPrec PutObjectAclResponse
readList :: ReadS [PutObjectAclResponse]
$creadList :: ReadS [PutObjectAclResponse]
readsPrec :: Int -> ReadS PutObjectAclResponse
$creadsPrec :: Int -> ReadS PutObjectAclResponse
Prelude.Read, Int -> PutObjectAclResponse -> ShowS
[PutObjectAclResponse] -> ShowS
PutObjectAclResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutObjectAclResponse] -> ShowS
$cshowList :: [PutObjectAclResponse] -> ShowS
show :: PutObjectAclResponse -> String
$cshow :: PutObjectAclResponse -> String
showsPrec :: Int -> PutObjectAclResponse -> ShowS
$cshowsPrec :: Int -> PutObjectAclResponse -> ShowS
Prelude.Show, forall x. Rep PutObjectAclResponse x -> PutObjectAclResponse
forall x. PutObjectAclResponse -> Rep PutObjectAclResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutObjectAclResponse x -> PutObjectAclResponse
$cfrom :: forall x. PutObjectAclResponse -> Rep PutObjectAclResponse x
Prelude.Generic)
newPutObjectAclResponse ::
Prelude.Int ->
PutObjectAclResponse
newPutObjectAclResponse :: Int -> PutObjectAclResponse
newPutObjectAclResponse Int
pHttpStatus_ =
PutObjectAclResponse'
{ $sel:requestCharged:PutObjectAclResponse' :: Maybe RequestCharged
requestCharged =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PutObjectAclResponse' :: Int
httpStatus = Int
pHttpStatus_
}
putObjectAclResponse_requestCharged :: Lens.Lens' PutObjectAclResponse (Prelude.Maybe RequestCharged)
putObjectAclResponse_requestCharged :: Lens' PutObjectAclResponse (Maybe RequestCharged)
putObjectAclResponse_requestCharged = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAclResponse' {Maybe RequestCharged
requestCharged :: Maybe RequestCharged
$sel:requestCharged:PutObjectAclResponse' :: PutObjectAclResponse -> Maybe RequestCharged
requestCharged} -> Maybe RequestCharged
requestCharged) (\s :: PutObjectAclResponse
s@PutObjectAclResponse' {} Maybe RequestCharged
a -> PutObjectAclResponse
s {$sel:requestCharged:PutObjectAclResponse' :: Maybe RequestCharged
requestCharged = Maybe RequestCharged
a} :: PutObjectAclResponse)
putObjectAclResponse_httpStatus :: Lens.Lens' PutObjectAclResponse Prelude.Int
putObjectAclResponse_httpStatus :: Lens' PutObjectAclResponse Int
putObjectAclResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutObjectAclResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutObjectAclResponse' :: PutObjectAclResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutObjectAclResponse
s@PutObjectAclResponse' {} Int
a -> PutObjectAclResponse
s {$sel:httpStatus:PutObjectAclResponse' :: Int
httpStatus = Int
a} :: PutObjectAclResponse)
instance Prelude.NFData PutObjectAclResponse where
rnf :: PutObjectAclResponse -> ()
rnf PutObjectAclResponse' {Int
Maybe RequestCharged
httpStatus :: Int
requestCharged :: Maybe RequestCharged
$sel:httpStatus:PutObjectAclResponse' :: PutObjectAclResponse -> Int
$sel:requestCharged:PutObjectAclResponse' :: PutObjectAclResponse -> Maybe RequestCharged
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe RequestCharged
requestCharged
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus