module Network.AWS.S3.DeleteBucketTagging
(
deleteBucketTagging
, DeleteBucketTagging
, dbtBucket
, deleteBucketTaggingResponse
, DeleteBucketTaggingResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.S3.Types
import Network.AWS.S3.Types.Product
newtype DeleteBucketTagging = DeleteBucketTagging'
{ _dbtBucket :: BucketName
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteBucketTagging
:: BucketName
-> DeleteBucketTagging
deleteBucketTagging pBucket_ =
DeleteBucketTagging'
{ _dbtBucket = pBucket_
}
dbtBucket :: Lens' DeleteBucketTagging BucketName
dbtBucket = lens _dbtBucket (\ s a -> s{_dbtBucket = a});
instance AWSRequest DeleteBucketTagging where
type Rs DeleteBucketTagging =
DeleteBucketTaggingResponse
request = delete s3
response = receiveNull DeleteBucketTaggingResponse'
instance ToHeaders DeleteBucketTagging where
toHeaders = const mempty
instance ToPath DeleteBucketTagging where
toPath DeleteBucketTagging'{..}
= mconcat ["/", toBS _dbtBucket]
instance ToQuery DeleteBucketTagging where
toQuery = const (mconcat ["tagging"])
data DeleteBucketTaggingResponse =
DeleteBucketTaggingResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteBucketTaggingResponse
:: DeleteBucketTaggingResponse
deleteBucketTaggingResponse = DeleteBucketTaggingResponse'