module Network.AWS.S3.PutBucketPolicy
(
putBucketPolicy
, PutBucketPolicy
, pbpContentMD5
, pbpBucket
, pbpPolicy
, putBucketPolicyResponse
, PutBucketPolicyResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.S3.Types
import Network.AWS.S3.Types.Product
data PutBucketPolicy = PutBucketPolicy'
{ _pbpContentMD5 :: !(Maybe Text)
, _pbpBucket :: !BucketName
, _pbpPolicy :: !(HashMap Text Value)
} deriving (Eq,Show,Data,Typeable,Generic)
putBucketPolicy
:: BucketName
-> HashMap Text Value
-> PutBucketPolicy
putBucketPolicy pBucket_ pPolicy_ =
PutBucketPolicy'
{ _pbpContentMD5 = Nothing
, _pbpBucket = pBucket_
, _pbpPolicy = pPolicy_
}
pbpContentMD5 :: Lens' PutBucketPolicy (Maybe Text)
pbpContentMD5 = lens _pbpContentMD5 (\ s a -> s{_pbpContentMD5 = a});
pbpBucket :: Lens' PutBucketPolicy BucketName
pbpBucket = lens _pbpBucket (\ s a -> s{_pbpBucket = a});
pbpPolicy :: Lens' PutBucketPolicy (HashMap Text Value)
pbpPolicy = lens _pbpPolicy (\ s a -> s{_pbpPolicy = a});
instance AWSRequest PutBucketPolicy where
type Rs PutBucketPolicy = PutBucketPolicyResponse
request = contentMD5 . putBody s3
response = receiveNull PutBucketPolicyResponse'
instance ToBody PutBucketPolicy where
toBody = toBody . _pbpPolicy
instance ToHeaders PutBucketPolicy where
toHeaders PutBucketPolicy'{..}
= mconcat ["Content-MD5" =# _pbpContentMD5]
instance ToPath PutBucketPolicy where
toPath PutBucketPolicy'{..}
= mconcat ["/", toBS _pbpBucket]
instance ToQuery PutBucketPolicy where
toQuery = const (mconcat ["policy"])
data PutBucketPolicyResponse =
PutBucketPolicyResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
putBucketPolicyResponse
:: PutBucketPolicyResponse
putBucketPolicyResponse = PutBucketPolicyResponse'