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