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