{-# 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.DrS.DeleteRecoveryInstance
-- 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 single Recovery Instance by ID. This deletes the Recovery
-- Instance resource from Elastic Disaster Recovery. The Recovery Instance
-- must be disconnected first in order to delete it.
module Amazonka.DrS.DeleteRecoveryInstance
  ( -- * Creating a Request
    DeleteRecoveryInstance (..),
    newDeleteRecoveryInstance,

    -- * Request Lenses
    deleteRecoveryInstance_recoveryInstanceID,

    -- * Destructuring the Response
    DeleteRecoveryInstanceResponse (..),
    newDeleteRecoveryInstanceResponse,
  )
where

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

-- | /See:/ 'newDeleteRecoveryInstance' smart constructor.
data DeleteRecoveryInstance = DeleteRecoveryInstance'
  { -- | The ID of the Recovery Instance to be deleted.
    DeleteRecoveryInstance -> Text
recoveryInstanceID :: Prelude.Text
  }
  deriving (DeleteRecoveryInstance -> DeleteRecoveryInstance -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteRecoveryInstance -> DeleteRecoveryInstance -> Bool
$c/= :: DeleteRecoveryInstance -> DeleteRecoveryInstance -> Bool
== :: DeleteRecoveryInstance -> DeleteRecoveryInstance -> Bool
$c== :: DeleteRecoveryInstance -> DeleteRecoveryInstance -> Bool
Prelude.Eq, ReadPrec [DeleteRecoveryInstance]
ReadPrec DeleteRecoveryInstance
Int -> ReadS DeleteRecoveryInstance
ReadS [DeleteRecoveryInstance]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteRecoveryInstance]
$creadListPrec :: ReadPrec [DeleteRecoveryInstance]
readPrec :: ReadPrec DeleteRecoveryInstance
$creadPrec :: ReadPrec DeleteRecoveryInstance
readList :: ReadS [DeleteRecoveryInstance]
$creadList :: ReadS [DeleteRecoveryInstance]
readsPrec :: Int -> ReadS DeleteRecoveryInstance
$creadsPrec :: Int -> ReadS DeleteRecoveryInstance
Prelude.Read, Int -> DeleteRecoveryInstance -> ShowS
[DeleteRecoveryInstance] -> ShowS
DeleteRecoveryInstance -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteRecoveryInstance] -> ShowS
$cshowList :: [DeleteRecoveryInstance] -> ShowS
show :: DeleteRecoveryInstance -> String
$cshow :: DeleteRecoveryInstance -> String
showsPrec :: Int -> DeleteRecoveryInstance -> ShowS
$cshowsPrec :: Int -> DeleteRecoveryInstance -> ShowS
Prelude.Show, forall x. Rep DeleteRecoveryInstance x -> DeleteRecoveryInstance
forall x. DeleteRecoveryInstance -> Rep DeleteRecoveryInstance x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteRecoveryInstance x -> DeleteRecoveryInstance
$cfrom :: forall x. DeleteRecoveryInstance -> Rep DeleteRecoveryInstance x
Prelude.Generic)

-- |
-- Create a value of 'DeleteRecoveryInstance' 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:
--
-- 'recoveryInstanceID', 'deleteRecoveryInstance_recoveryInstanceID' - The ID of the Recovery Instance to be deleted.
newDeleteRecoveryInstance ::
  -- | 'recoveryInstanceID'
  Prelude.Text ->
  DeleteRecoveryInstance
newDeleteRecoveryInstance :: Text -> DeleteRecoveryInstance
newDeleteRecoveryInstance Text
pRecoveryInstanceID_ =
  DeleteRecoveryInstance'
    { $sel:recoveryInstanceID:DeleteRecoveryInstance' :: Text
recoveryInstanceID =
        Text
pRecoveryInstanceID_
    }

-- | The ID of the Recovery Instance to be deleted.
deleteRecoveryInstance_recoveryInstanceID :: Lens.Lens' DeleteRecoveryInstance Prelude.Text
deleteRecoveryInstance_recoveryInstanceID :: Lens' DeleteRecoveryInstance Text
deleteRecoveryInstance_recoveryInstanceID = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteRecoveryInstance' {Text
recoveryInstanceID :: Text
$sel:recoveryInstanceID:DeleteRecoveryInstance' :: DeleteRecoveryInstance -> Text
recoveryInstanceID} -> Text
recoveryInstanceID) (\s :: DeleteRecoveryInstance
s@DeleteRecoveryInstance' {} Text
a -> DeleteRecoveryInstance
s {$sel:recoveryInstanceID:DeleteRecoveryInstance' :: Text
recoveryInstanceID = Text
a} :: DeleteRecoveryInstance)

instance Core.AWSRequest DeleteRecoveryInstance where
  type
    AWSResponse DeleteRecoveryInstance =
      DeleteRecoveryInstanceResponse
  request :: (Service -> Service)
-> DeleteRecoveryInstance -> Request DeleteRecoveryInstance
request Service -> Service
overrides =
    forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteRecoveryInstance
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse DeleteRecoveryInstance)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
      DeleteRecoveryInstanceResponse
DeleteRecoveryInstanceResponse'

instance Prelude.Hashable DeleteRecoveryInstance where
  hashWithSalt :: Int -> DeleteRecoveryInstance -> Int
hashWithSalt Int
_salt DeleteRecoveryInstance' {Text
recoveryInstanceID :: Text
$sel:recoveryInstanceID:DeleteRecoveryInstance' :: DeleteRecoveryInstance -> Text
..} =
    Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
recoveryInstanceID

instance Prelude.NFData DeleteRecoveryInstance where
  rnf :: DeleteRecoveryInstance -> ()
rnf DeleteRecoveryInstance' {Text
recoveryInstanceID :: Text
$sel:recoveryInstanceID:DeleteRecoveryInstance' :: DeleteRecoveryInstance -> Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Text
recoveryInstanceID

instance Data.ToHeaders DeleteRecoveryInstance where
  toHeaders :: DeleteRecoveryInstance -> [Header]
toHeaders =
    forall a b. a -> b -> a
Prelude.const
      ( forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"Content-Type"
              forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON DeleteRecoveryInstance where
  toJSON :: DeleteRecoveryInstance -> Value
toJSON DeleteRecoveryInstance' {Text
recoveryInstanceID :: Text
$sel:recoveryInstanceID:DeleteRecoveryInstance' :: DeleteRecoveryInstance -> Text
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ forall a. a -> Maybe a
Prelude.Just
              (Key
"recoveryInstanceID" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
recoveryInstanceID)
          ]
      )

instance Data.ToPath DeleteRecoveryInstance where
  toPath :: DeleteRecoveryInstance -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/DeleteRecoveryInstance"

instance Data.ToQuery DeleteRecoveryInstance where
  toQuery :: DeleteRecoveryInstance -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

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

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

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