{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.S3.DeleteBucketWebsite
(
deleteBucketWebsite
, DeleteBucketWebsite
, dbwBucket
, deleteBucketWebsiteResponse
, DeleteBucketWebsiteResponse
) where
import Network.AWS.Lens
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 Rs DeleteBucketWebsite =
DeleteBucketWebsiteResponse
request = delete s3
response = receiveNull DeleteBucketWebsiteResponse'
instance Hashable DeleteBucketWebsite
instance NFData DeleteBucketWebsite
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'
instance NFData DeleteBucketWebsiteResponse