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