module Network.AWS.S3.DeleteBucketLifecycle
(
DeleteBucketLifecycle
, deleteBucketLifecycle
, dblBucket
, DeleteBucketLifecycleResponse
, deleteBucketLifecycleResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.S3
import Network.AWS.S3.Types
import qualified GHC.Exts
newtype DeleteBucketLifecycle = DeleteBucketLifecycle
{ _dblBucket :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
deleteBucketLifecycle :: Text
-> DeleteBucketLifecycle
deleteBucketLifecycle p1 = DeleteBucketLifecycle
{ _dblBucket = p1
}
dblBucket :: Lens' DeleteBucketLifecycle Text
dblBucket = lens _dblBucket (\s a -> s { _dblBucket = a })
data DeleteBucketLifecycleResponse = DeleteBucketLifecycleResponse
deriving (Eq, Ord, Show, Generic)
deleteBucketLifecycleResponse :: DeleteBucketLifecycleResponse
deleteBucketLifecycleResponse = DeleteBucketLifecycleResponse
instance ToPath DeleteBucketLifecycle where
toPath DeleteBucketLifecycle{..} = mconcat
[ "/"
, toText _dblBucket
]
instance ToQuery DeleteBucketLifecycle where
toQuery = const "lifecycle"
instance ToHeaders DeleteBucketLifecycle
instance ToXMLRoot DeleteBucketLifecycle where
toXMLRoot = const (namespaced ns "DeleteBucketLifecycle" [])
instance ToXML DeleteBucketLifecycle
instance AWSRequest DeleteBucketLifecycle where
type Sv DeleteBucketLifecycle = S3
type Rs DeleteBucketLifecycle = DeleteBucketLifecycleResponse
request = delete
response = nullResponse DeleteBucketLifecycleResponse