DeleteReadinessCheck.hs

{-# 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.Route53RecoveryReadiness.DeleteReadinessCheck
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Deletes a readiness check.
module Amazonka.Route53RecoveryReadiness.DeleteReadinessCheck
  ( -- * Creating a Request
    DeleteReadinessCheck (..),
    newDeleteReadinessCheck,

    -- * Request Lenses
    deleteReadinessCheck_readinessCheckName,

    -- * Destructuring the Response
    DeleteReadinessCheckResponse (..),
    newDeleteReadinessCheckResponse,
  )
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.Route53RecoveryReadiness.Types

-- | /See:/ 'newDeleteReadinessCheck' smart constructor.
data DeleteReadinessCheck = DeleteReadinessCheck'
  { -- | Name of a readiness check.
    readinessCheckName :: Prelude.Text
  }
  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'DeleteReadinessCheck' 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:
--
-- 'readinessCheckName', 'deleteReadinessCheck_readinessCheckName' - Name of a readiness check.
newDeleteReadinessCheck ::
  -- | 'readinessCheckName'
  Prelude.Text ->
  DeleteReadinessCheck
newDeleteReadinessCheck pReadinessCheckName_ =
  DeleteReadinessCheck'
    { readinessCheckName =
        pReadinessCheckName_
    }

-- | Name of a readiness check.
deleteReadinessCheck_readinessCheckName :: Lens.Lens' DeleteReadinessCheck Prelude.Text
deleteReadinessCheck_readinessCheckName = Lens.lens (\DeleteReadinessCheck' {readinessCheckName} -> readinessCheckName) (\s@DeleteReadinessCheck' {} a -> s {readinessCheckName = a} :: DeleteReadinessCheck)

instance Core.AWSRequest DeleteReadinessCheck where
  type
    AWSResponse DeleteReadinessCheck =
      DeleteReadinessCheckResponse
  request overrides =
    Request.delete (overrides defaultService)
  response =
    Response.receiveNull DeleteReadinessCheckResponse'

instance Prelude.Hashable DeleteReadinessCheck where
  hashWithSalt _salt DeleteReadinessCheck' {..} =
    _salt `Prelude.hashWithSalt` readinessCheckName

instance Prelude.NFData DeleteReadinessCheck where
  rnf DeleteReadinessCheck' {..} =
    Prelude.rnf readinessCheckName

instance Data.ToHeaders DeleteReadinessCheck where
  toHeaders =
    Prelude.const
      ( Prelude.mconcat
          [ "Content-Type"
              Data.=# ( "application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToPath DeleteReadinessCheck where
  toPath DeleteReadinessCheck' {..} =
    Prelude.mconcat
      ["/readinesschecks/", Data.toBS readinessCheckName]

instance Data.ToQuery DeleteReadinessCheck where
  toQuery = Prelude.const Prelude.mempty

-- | /See:/ 'newDeleteReadinessCheckResponse' smart constructor.
data DeleteReadinessCheckResponse = DeleteReadinessCheckResponse'
  {
  }
  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'DeleteReadinessCheckResponse' 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.
newDeleteReadinessCheckResponse ::
  DeleteReadinessCheckResponse
newDeleteReadinessCheckResponse =
  DeleteReadinessCheckResponse'

instance Prelude.NFData DeleteReadinessCheckResponse where
  rnf _ = ()