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