module Network.AWS.S3.PutBucketLifecycle
(
PutBucketLifecycle
, putBucketLifecycle
, pbl1Bucket
, pbl1ContentMD5
, pbl1LifecycleConfiguration
, PutBucketLifecycleResponse
, putBucketLifecycleResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.S3
import Network.AWS.S3.Types
import qualified GHC.Exts
data PutBucketLifecycle = PutBucketLifecycle
{ _pbl1Bucket :: Text
, _pbl1ContentMD5 :: Maybe Text
, _pbl1LifecycleConfiguration :: Maybe LifecycleConfiguration
} deriving (Eq, Read, Show)
putBucketLifecycle :: Text
-> PutBucketLifecycle
putBucketLifecycle p1 = PutBucketLifecycle
{ _pbl1Bucket = p1
, _pbl1ContentMD5 = Nothing
, _pbl1LifecycleConfiguration = Nothing
}
pbl1Bucket :: Lens' PutBucketLifecycle Text
pbl1Bucket = lens _pbl1Bucket (\s a -> s { _pbl1Bucket = a })
pbl1ContentMD5 :: Lens' PutBucketLifecycle (Maybe Text)
pbl1ContentMD5 = lens _pbl1ContentMD5 (\s a -> s { _pbl1ContentMD5 = a })
pbl1LifecycleConfiguration :: Lens' PutBucketLifecycle (Maybe LifecycleConfiguration)
pbl1LifecycleConfiguration =
lens _pbl1LifecycleConfiguration
(\s a -> s { _pbl1LifecycleConfiguration = a })
data PutBucketLifecycleResponse = PutBucketLifecycleResponse
deriving (Eq, Ord, Read, Show, Generic)
putBucketLifecycleResponse :: PutBucketLifecycleResponse
putBucketLifecycleResponse = PutBucketLifecycleResponse
instance ToPath PutBucketLifecycle where
toPath PutBucketLifecycle{..} = mconcat
[ "/"
, toText _pbl1Bucket
]
instance ToQuery PutBucketLifecycle where
toQuery = const "lifecycle"
instance ToHeaders PutBucketLifecycle where
toHeaders PutBucketLifecycle{..} = mconcat
[ "Content-MD5" =: _pbl1ContentMD5
]
instance ToXMLRoot PutBucketLifecycle where
toXMLRoot = extractRoot ns . toXML . _pbl1LifecycleConfiguration
instance ToXML PutBucketLifecycle
instance AWSRequest PutBucketLifecycle where
type Sv PutBucketLifecycle = S3
type Rs PutBucketLifecycle = PutBucketLifecycleResponse
request = put
response = nullResponse PutBucketLifecycleResponse