{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.S3.DeleteBucketWebsite
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- This action removes the website configuration for a bucket. Amazon S3
-- returns a @200 OK@ response upon successfully deleting a website
-- configuration on the specified bucket. You will get a @200 OK@ response
-- if the website configuration you are trying to delete does not exist on
-- the bucket. Amazon S3 returns a @404@ response if the bucket specified
-- in the request does not exist.
--
-- This DELETE action requires the @S3:DeleteBucketWebsite@ permission. By
-- default, only the bucket owner can delete the website configuration
-- attached to a bucket. However, bucket owners can grant other users
-- permission to delete the website configuration by writing a bucket
-- policy granting them the @S3:DeleteBucketWebsite@ permission.
--
-- For more information about hosting websites, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/WebsiteHosting.html Hosting Websites on Amazon S3>.
--
-- The following operations are related to @DeleteBucketWebsite@:
--
-- -   <https://docs.aws.amazon.com/AmazonS3/latest/API/API_GetBucketWebsite.html GetBucketWebsite>
--
-- -   <https://docs.aws.amazon.com/AmazonS3/latest/API/API_PutBucketWebsite.html PutBucketWebsite>
module Amazonka.S3.DeleteBucketWebsite
  ( -- * Creating a Request
    DeleteBucketWebsite (..),
    newDeleteBucketWebsite,

    -- * Request Lenses
    deleteBucketWebsite_expectedBucketOwner,
    deleteBucketWebsite_bucket,

    -- * Destructuring the Response
    DeleteBucketWebsiteResponse (..),
    newDeleteBucketWebsiteResponse,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.S3.Types

-- | /See:/ 'newDeleteBucketWebsite' smart constructor.
data DeleteBucketWebsite = DeleteBucketWebsite'
  { -- | The account ID of the expected bucket owner. If the bucket is owned by a
    -- different account, the request fails with the HTTP status code
    -- @403 Forbidden@ (access denied).
    DeleteBucketWebsite -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
    -- | The bucket name for which you want to remove the website configuration.
    DeleteBucketWebsite -> BucketName
bucket :: BucketName
  }
  deriving (DeleteBucketWebsite -> DeleteBucketWebsite -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteBucketWebsite -> DeleteBucketWebsite -> Bool
$c/= :: DeleteBucketWebsite -> DeleteBucketWebsite -> Bool
== :: DeleteBucketWebsite -> DeleteBucketWebsite -> Bool
$c== :: DeleteBucketWebsite -> DeleteBucketWebsite -> Bool
Prelude.Eq, ReadPrec [DeleteBucketWebsite]
ReadPrec DeleteBucketWebsite
Int -> ReadS DeleteBucketWebsite
ReadS [DeleteBucketWebsite]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteBucketWebsite]
$creadListPrec :: ReadPrec [DeleteBucketWebsite]
readPrec :: ReadPrec DeleteBucketWebsite
$creadPrec :: ReadPrec DeleteBucketWebsite
readList :: ReadS [DeleteBucketWebsite]
$creadList :: ReadS [DeleteBucketWebsite]
readsPrec :: Int -> ReadS DeleteBucketWebsite
$creadsPrec :: Int -> ReadS DeleteBucketWebsite
Prelude.Read, Int -> DeleteBucketWebsite -> ShowS
[DeleteBucketWebsite] -> ShowS
DeleteBucketWebsite -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteBucketWebsite] -> ShowS
$cshowList :: [DeleteBucketWebsite] -> ShowS
show :: DeleteBucketWebsite -> String
$cshow :: DeleteBucketWebsite -> String
showsPrec :: Int -> DeleteBucketWebsite -> ShowS
$cshowsPrec :: Int -> DeleteBucketWebsite -> ShowS
Prelude.Show, forall x. Rep DeleteBucketWebsite x -> DeleteBucketWebsite
forall x. DeleteBucketWebsite -> Rep DeleteBucketWebsite x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteBucketWebsite x -> DeleteBucketWebsite
$cfrom :: forall x. DeleteBucketWebsite -> Rep DeleteBucketWebsite x
Prelude.Generic)

-- |
-- Create a value of 'DeleteBucketWebsite' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'expectedBucketOwner', 'deleteBucketWebsite_expectedBucketOwner' - The account ID of the expected bucket owner. If the bucket is owned by a
-- different account, the request fails with the HTTP status code
-- @403 Forbidden@ (access denied).
--
-- 'bucket', 'deleteBucketWebsite_bucket' - The bucket name for which you want to remove the website configuration.
newDeleteBucketWebsite ::
  -- | 'bucket'
  BucketName ->
  DeleteBucketWebsite
newDeleteBucketWebsite :: BucketName -> DeleteBucketWebsite
newDeleteBucketWebsite BucketName
pBucket_ =
  DeleteBucketWebsite'
    { $sel:expectedBucketOwner:DeleteBucketWebsite' :: Maybe Text
expectedBucketOwner =
        forall a. Maybe a
Prelude.Nothing,
      $sel:bucket:DeleteBucketWebsite' :: BucketName
bucket = BucketName
pBucket_
    }

-- | The account ID of the expected bucket owner. If the bucket is owned by a
-- different account, the request fails with the HTTP status code
-- @403 Forbidden@ (access denied).
deleteBucketWebsite_expectedBucketOwner :: Lens.Lens' DeleteBucketWebsite (Prelude.Maybe Prelude.Text)
deleteBucketWebsite_expectedBucketOwner :: Lens' DeleteBucketWebsite (Maybe Text)
deleteBucketWebsite_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBucketWebsite' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:DeleteBucketWebsite' :: DeleteBucketWebsite -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: DeleteBucketWebsite
s@DeleteBucketWebsite' {} Maybe Text
a -> DeleteBucketWebsite
s {$sel:expectedBucketOwner:DeleteBucketWebsite' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: DeleteBucketWebsite)

-- | The bucket name for which you want to remove the website configuration.
deleteBucketWebsite_bucket :: Lens.Lens' DeleteBucketWebsite BucketName
deleteBucketWebsite_bucket :: Lens' DeleteBucketWebsite BucketName
deleteBucketWebsite_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBucketWebsite' {BucketName
bucket :: BucketName
$sel:bucket:DeleteBucketWebsite' :: DeleteBucketWebsite -> BucketName
bucket} -> BucketName
bucket) (\s :: DeleteBucketWebsite
s@DeleteBucketWebsite' {} BucketName
a -> DeleteBucketWebsite
s {$sel:bucket:DeleteBucketWebsite' :: BucketName
bucket = BucketName
a} :: DeleteBucketWebsite)

instance Core.AWSRequest DeleteBucketWebsite where
  type
    AWSResponse DeleteBucketWebsite =
      DeleteBucketWebsiteResponse
  request :: (Service -> Service)
-> DeleteBucketWebsite -> Request DeleteBucketWebsite
request Service -> Service
overrides =
    forall a. Request a -> Request a
Request.s3vhost
      forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteBucketWebsite
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse DeleteBucketWebsite)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteBucketWebsiteResponse
DeleteBucketWebsiteResponse'

instance Prelude.Hashable DeleteBucketWebsite where
  hashWithSalt :: Int -> DeleteBucketWebsite -> Int
hashWithSalt Int
_salt DeleteBucketWebsite' {Maybe Text
BucketName
bucket :: BucketName
expectedBucketOwner :: Maybe Text
$sel:bucket:DeleteBucketWebsite' :: DeleteBucketWebsite -> BucketName
$sel:expectedBucketOwner:DeleteBucketWebsite' :: DeleteBucketWebsite -> Maybe Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
expectedBucketOwner
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BucketName
bucket

instance Prelude.NFData DeleteBucketWebsite where
  rnf :: DeleteBucketWebsite -> ()
rnf DeleteBucketWebsite' {Maybe Text
BucketName
bucket :: BucketName
expectedBucketOwner :: Maybe Text
$sel:bucket:DeleteBucketWebsite' :: DeleteBucketWebsite -> BucketName
$sel:expectedBucketOwner:DeleteBucketWebsite' :: DeleteBucketWebsite -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
expectedBucketOwner
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf BucketName
bucket

instance Data.ToHeaders DeleteBucketWebsite where
  toHeaders :: DeleteBucketWebsite -> [Header]
toHeaders DeleteBucketWebsite' {Maybe Text
BucketName
bucket :: BucketName
expectedBucketOwner :: Maybe Text
$sel:bucket:DeleteBucketWebsite' :: DeleteBucketWebsite -> BucketName
$sel:expectedBucketOwner:DeleteBucketWebsite' :: DeleteBucketWebsite -> Maybe Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ HeaderName
"x-amz-expected-bucket-owner"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
expectedBucketOwner
      ]

instance Data.ToPath DeleteBucketWebsite where
  toPath :: DeleteBucketWebsite -> ByteString
toPath DeleteBucketWebsite' {Maybe Text
BucketName
bucket :: BucketName
expectedBucketOwner :: Maybe Text
$sel:bucket:DeleteBucketWebsite' :: DeleteBucketWebsite -> BucketName
$sel:expectedBucketOwner:DeleteBucketWebsite' :: DeleteBucketWebsite -> Maybe Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket]

instance Data.ToQuery DeleteBucketWebsite where
  toQuery :: DeleteBucketWebsite -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const (forall a. Monoid a => [a] -> a
Prelude.mconcat [QueryString
"website"])

-- | /See:/ 'newDeleteBucketWebsiteResponse' smart constructor.
data DeleteBucketWebsiteResponse = DeleteBucketWebsiteResponse'
  {
  }
  deriving (DeleteBucketWebsiteResponse -> DeleteBucketWebsiteResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteBucketWebsiteResponse -> DeleteBucketWebsiteResponse -> Bool
$c/= :: DeleteBucketWebsiteResponse -> DeleteBucketWebsiteResponse -> Bool
== :: DeleteBucketWebsiteResponse -> DeleteBucketWebsiteResponse -> Bool
$c== :: DeleteBucketWebsiteResponse -> DeleteBucketWebsiteResponse -> Bool
Prelude.Eq, ReadPrec [DeleteBucketWebsiteResponse]
ReadPrec DeleteBucketWebsiteResponse
Int -> ReadS DeleteBucketWebsiteResponse
ReadS [DeleteBucketWebsiteResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteBucketWebsiteResponse]
$creadListPrec :: ReadPrec [DeleteBucketWebsiteResponse]
readPrec :: ReadPrec DeleteBucketWebsiteResponse
$creadPrec :: ReadPrec DeleteBucketWebsiteResponse
readList :: ReadS [DeleteBucketWebsiteResponse]
$creadList :: ReadS [DeleteBucketWebsiteResponse]
readsPrec :: Int -> ReadS DeleteBucketWebsiteResponse
$creadsPrec :: Int -> ReadS DeleteBucketWebsiteResponse
Prelude.Read, Int -> DeleteBucketWebsiteResponse -> ShowS
[DeleteBucketWebsiteResponse] -> ShowS
DeleteBucketWebsiteResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteBucketWebsiteResponse] -> ShowS
$cshowList :: [DeleteBucketWebsiteResponse] -> ShowS
show :: DeleteBucketWebsiteResponse -> String
$cshow :: DeleteBucketWebsiteResponse -> String
showsPrec :: Int -> DeleteBucketWebsiteResponse -> ShowS
$cshowsPrec :: Int -> DeleteBucketWebsiteResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteBucketWebsiteResponse x -> DeleteBucketWebsiteResponse
forall x.
DeleteBucketWebsiteResponse -> Rep DeleteBucketWebsiteResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteBucketWebsiteResponse x -> DeleteBucketWebsiteResponse
$cfrom :: forall x.
DeleteBucketWebsiteResponse -> Rep DeleteBucketWebsiteResponse x
Prelude.Generic)

-- |
-- Create a value of 'DeleteBucketWebsiteResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
newDeleteBucketWebsiteResponse ::
  DeleteBucketWebsiteResponse
newDeleteBucketWebsiteResponse :: DeleteBucketWebsiteResponse
newDeleteBucketWebsiteResponse =
  DeleteBucketWebsiteResponse
DeleteBucketWebsiteResponse'

instance Prelude.NFData DeleteBucketWebsiteResponse where
  rnf :: DeleteBucketWebsiteResponse -> ()
rnf DeleteBucketWebsiteResponse
_ = ()