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