module Network.AWS.S3.DeleteBucketWebsite
(
deleteBucketWebsite
, DeleteBucketWebsite
, dbwBucket
, deleteBucketWebsiteResponse
, DeleteBucketWebsiteResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.S3.Types
import Network.AWS.S3.Types.Product
newtype DeleteBucketWebsite = DeleteBucketWebsite'
{ _dbwBucket :: BucketName
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteBucketWebsite
:: BucketName
-> DeleteBucketWebsite
deleteBucketWebsite pBucket_ =
DeleteBucketWebsite'
{ _dbwBucket = pBucket_
}
dbwBucket :: Lens' DeleteBucketWebsite BucketName
dbwBucket = lens _dbwBucket (\ s a -> s{_dbwBucket = a});
instance AWSRequest DeleteBucketWebsite where
type Sv DeleteBucketWebsite = S3
type Rs DeleteBucketWebsite =
DeleteBucketWebsiteResponse
request = delete
response = receiveNull DeleteBucketWebsiteResponse'
instance ToHeaders DeleteBucketWebsite where
toHeaders = const mempty
instance ToPath DeleteBucketWebsite where
toPath DeleteBucketWebsite'{..}
= mconcat ["/", toBS _dbwBucket]
instance ToQuery DeleteBucketWebsite where
toQuery = const (mconcat ["website"])
data DeleteBucketWebsiteResponse =
DeleteBucketWebsiteResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteBucketWebsiteResponse
:: DeleteBucketWebsiteResponse
deleteBucketWebsiteResponse = DeleteBucketWebsiteResponse'