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 :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
putBucketPolicy
:: BucketName
-> Text
-> 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 Text
pbpPolicy = lens _pbpPolicy (\ s a -> s{_pbpPolicy = a});
instance AWSRequest PutBucketPolicy where
type Rs PutBucketPolicy = PutBucketPolicyResponse
request = contentMD5 . putXML s3
response = receiveNull PutBucketPolicyResponse'
instance ToElement PutBucketPolicy where
toElement = mkElement "Policy" . _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'