module Network.AWS.S3.PutBucketLifecycle
(
putBucketLifecycle
, PutBucketLifecycle
, pContentMD5
, pLifecycleConfiguration
, pBucket
, putBucketLifecycleResponse
, PutBucketLifecycleResponse
) 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 PutBucketLifecycle = PutBucketLifecycle'
{ _pContentMD5 :: !(Maybe Text)
, _pLifecycleConfiguration :: !(Maybe LifecycleConfiguration)
, _pBucket :: !BucketName
} deriving (Eq,Read,Show,Data,Typeable,Generic)
putBucketLifecycle
:: BucketName
-> PutBucketLifecycle
putBucketLifecycle pBucket_ =
PutBucketLifecycle'
{ _pContentMD5 = Nothing
, _pLifecycleConfiguration = Nothing
, _pBucket = pBucket_
}
pContentMD5 :: Lens' PutBucketLifecycle (Maybe Text)
pContentMD5 = lens _pContentMD5 (\ s a -> s{_pContentMD5 = a});
pLifecycleConfiguration :: Lens' PutBucketLifecycle (Maybe LifecycleConfiguration)
pLifecycleConfiguration = lens _pLifecycleConfiguration (\ s a -> s{_pLifecycleConfiguration = a});
pBucket :: Lens' PutBucketLifecycle BucketName
pBucket = lens _pBucket (\ s a -> s{_pBucket = a});
instance AWSRequest PutBucketLifecycle where
type Rs PutBucketLifecycle =
PutBucketLifecycleResponse
request = contentMD5 . putXML s3
response = receiveNull PutBucketLifecycleResponse'
instance ToElement PutBucketLifecycle where
toElement
= mkElement
"{http://s3.amazonaws.com/doc/2006-03-01/}LifecycleConfiguration"
.
_pLifecycleConfiguration
instance ToHeaders PutBucketLifecycle where
toHeaders PutBucketLifecycle'{..}
= mconcat ["Content-MD5" =# _pContentMD5]
instance ToPath PutBucketLifecycle where
toPath PutBucketLifecycle'{..}
= mconcat ["/", toBS _pBucket]
instance ToQuery PutBucketLifecycle where
toQuery = const (mconcat ["lifecycle"])
data PutBucketLifecycleResponse =
PutBucketLifecycleResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
putBucketLifecycleResponse
:: PutBucketLifecycleResponse
putBucketLifecycleResponse = PutBucketLifecycleResponse'