module Network.AWS.S3.DeleteBucketLifecycle
(
deleteBucketLifecycle
, DeleteBucketLifecycle
, dblBucket
, deleteBucketLifecycleResponse
, DeleteBucketLifecycleResponse
) 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 DeleteBucketLifecycle = DeleteBucketLifecycle'
{ _dblBucket :: BucketName
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteBucketLifecycle
:: BucketName
-> DeleteBucketLifecycle
deleteBucketLifecycle pBucket_ =
DeleteBucketLifecycle'
{ _dblBucket = pBucket_
}
dblBucket :: Lens' DeleteBucketLifecycle BucketName
dblBucket = lens _dblBucket (\ s a -> s{_dblBucket = a});
instance AWSRequest DeleteBucketLifecycle where
type Sv DeleteBucketLifecycle = S3
type Rs DeleteBucketLifecycle =
DeleteBucketLifecycleResponse
request = delete
response = receiveNull DeleteBucketLifecycleResponse'
instance ToHeaders DeleteBucketLifecycle where
toHeaders = const mempty
instance ToPath DeleteBucketLifecycle where
toPath DeleteBucketLifecycle'{..}
= mconcat ["/", toBS _dblBucket]
instance ToQuery DeleteBucketLifecycle where
toQuery = const (mconcat ["lifecycle"])
data DeleteBucketLifecycleResponse =
DeleteBucketLifecycleResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteBucketLifecycleResponse
:: DeleteBucketLifecycleResponse
deleteBucketLifecycleResponse = DeleteBucketLifecycleResponse'