{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.S3.DeleteBucketReplication
(
deleteBucketReplication
, DeleteBucketReplication
, dbrBucket
, deleteBucketReplicationResponse
, DeleteBucketReplicationResponse
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.S3.Types
import Network.AWS.S3.Types.Product
newtype DeleteBucketReplication = DeleteBucketReplication'
{ _dbrBucket :: BucketName
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteBucketReplication
:: BucketName
-> DeleteBucketReplication
deleteBucketReplication pBucket_ =
DeleteBucketReplication'
{ _dbrBucket = pBucket_
}
dbrBucket :: Lens' DeleteBucketReplication BucketName
dbrBucket = lens _dbrBucket (\ s a -> s{_dbrBucket = a});
instance AWSRequest DeleteBucketReplication where
type Rs DeleteBucketReplication =
DeleteBucketReplicationResponse
request = delete s3
response
= receiveNull DeleteBucketReplicationResponse'
instance Hashable DeleteBucketReplication
instance NFData DeleteBucketReplication
instance ToHeaders DeleteBucketReplication where
toHeaders = const mempty
instance ToPath DeleteBucketReplication where
toPath DeleteBucketReplication'{..}
= mconcat ["/", toBS _dbrBucket]
instance ToQuery DeleteBucketReplication where
toQuery = const (mconcat ["replication"])
data DeleteBucketReplicationResponse =
DeleteBucketReplicationResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteBucketReplicationResponse
:: DeleteBucketReplicationResponse
deleteBucketReplicationResponse = DeleteBucketReplicationResponse'
instance NFData DeleteBucketReplicationResponse