{-# 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.Route53.DeleteTrafficPolicyInstance
-- 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 traffic policy instance and all of the resource record sets
-- that Amazon Route 53 created when you created the instance.
--
-- In the Route 53 console, traffic policy instances are known as policy
-- records.
module Amazonka.Route53.DeleteTrafficPolicyInstance
  ( -- * Creating a Request
    DeleteTrafficPolicyInstance (..),
    newDeleteTrafficPolicyInstance,

    -- * Request Lenses
    deleteTrafficPolicyInstance_id,

    -- * Destructuring the Response
    DeleteTrafficPolicyInstanceResponse (..),
    newDeleteTrafficPolicyInstanceResponse,

    -- * Response Lenses
    deleteTrafficPolicyInstanceResponse_httpStatus,
  )
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.Route53.Types

-- | A request to delete a specified traffic policy instance.
--
-- /See:/ 'newDeleteTrafficPolicyInstance' smart constructor.
data DeleteTrafficPolicyInstance = DeleteTrafficPolicyInstance'
  { -- | The ID of the traffic policy instance that you want to delete.
    --
    -- When you delete a traffic policy instance, Amazon Route 53 also deletes
    -- all of the resource record sets that were created when you created the
    -- traffic policy instance.
    DeleteTrafficPolicyInstance -> Text
id :: Prelude.Text
  }
  deriving (DeleteTrafficPolicyInstance -> DeleteTrafficPolicyInstance -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteTrafficPolicyInstance -> DeleteTrafficPolicyInstance -> Bool
$c/= :: DeleteTrafficPolicyInstance -> DeleteTrafficPolicyInstance -> Bool
== :: DeleteTrafficPolicyInstance -> DeleteTrafficPolicyInstance -> Bool
$c== :: DeleteTrafficPolicyInstance -> DeleteTrafficPolicyInstance -> Bool
Prelude.Eq, ReadPrec [DeleteTrafficPolicyInstance]
ReadPrec DeleteTrafficPolicyInstance
Int -> ReadS DeleteTrafficPolicyInstance
ReadS [DeleteTrafficPolicyInstance]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteTrafficPolicyInstance]
$creadListPrec :: ReadPrec [DeleteTrafficPolicyInstance]
readPrec :: ReadPrec DeleteTrafficPolicyInstance
$creadPrec :: ReadPrec DeleteTrafficPolicyInstance
readList :: ReadS [DeleteTrafficPolicyInstance]
$creadList :: ReadS [DeleteTrafficPolicyInstance]
readsPrec :: Int -> ReadS DeleteTrafficPolicyInstance
$creadsPrec :: Int -> ReadS DeleteTrafficPolicyInstance
Prelude.Read, Int -> DeleteTrafficPolicyInstance -> ShowS
[DeleteTrafficPolicyInstance] -> ShowS
DeleteTrafficPolicyInstance -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteTrafficPolicyInstance] -> ShowS
$cshowList :: [DeleteTrafficPolicyInstance] -> ShowS
show :: DeleteTrafficPolicyInstance -> String
$cshow :: DeleteTrafficPolicyInstance -> String
showsPrec :: Int -> DeleteTrafficPolicyInstance -> ShowS
$cshowsPrec :: Int -> DeleteTrafficPolicyInstance -> ShowS
Prelude.Show, forall x.
Rep DeleteTrafficPolicyInstance x -> DeleteTrafficPolicyInstance
forall x.
DeleteTrafficPolicyInstance -> Rep DeleteTrafficPolicyInstance x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteTrafficPolicyInstance x -> DeleteTrafficPolicyInstance
$cfrom :: forall x.
DeleteTrafficPolicyInstance -> Rep DeleteTrafficPolicyInstance x
Prelude.Generic)

-- |
-- Create a value of 'DeleteTrafficPolicyInstance' 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:
--
-- 'id', 'deleteTrafficPolicyInstance_id' - The ID of the traffic policy instance that you want to delete.
--
-- When you delete a traffic policy instance, Amazon Route 53 also deletes
-- all of the resource record sets that were created when you created the
-- traffic policy instance.
newDeleteTrafficPolicyInstance ::
  -- | 'id'
  Prelude.Text ->
  DeleteTrafficPolicyInstance
newDeleteTrafficPolicyInstance :: Text -> DeleteTrafficPolicyInstance
newDeleteTrafficPolicyInstance Text
pId_ =
  DeleteTrafficPolicyInstance' {$sel:id:DeleteTrafficPolicyInstance' :: Text
id = Text
pId_}

-- | The ID of the traffic policy instance that you want to delete.
--
-- When you delete a traffic policy instance, Amazon Route 53 also deletes
-- all of the resource record sets that were created when you created the
-- traffic policy instance.
deleteTrafficPolicyInstance_id :: Lens.Lens' DeleteTrafficPolicyInstance Prelude.Text
deleteTrafficPolicyInstance_id :: Lens' DeleteTrafficPolicyInstance Text
deleteTrafficPolicyInstance_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTrafficPolicyInstance' {Text
id :: Text
$sel:id:DeleteTrafficPolicyInstance' :: DeleteTrafficPolicyInstance -> Text
id} -> Text
id) (\s :: DeleteTrafficPolicyInstance
s@DeleteTrafficPolicyInstance' {} Text
a -> DeleteTrafficPolicyInstance
s {$sel:id:DeleteTrafficPolicyInstance' :: Text
id = Text
a} :: DeleteTrafficPolicyInstance)

instance Core.AWSRequest DeleteTrafficPolicyInstance where
  type
    AWSResponse DeleteTrafficPolicyInstance =
      DeleteTrafficPolicyInstanceResponse
  request :: (Service -> Service)
-> DeleteTrafficPolicyInstance
-> Request DeleteTrafficPolicyInstance
request Service -> Service
overrides =
    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 DeleteTrafficPolicyInstance
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse DeleteTrafficPolicyInstance)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
      ( \Int
s ResponseHeaders
h ()
x ->
          Int -> DeleteTrafficPolicyInstanceResponse
DeleteTrafficPolicyInstanceResponse'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

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

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

instance Data.ToHeaders DeleteTrafficPolicyInstance where
  toHeaders :: DeleteTrafficPolicyInstance -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

instance Data.ToPath DeleteTrafficPolicyInstance where
  toPath :: DeleteTrafficPolicyInstance -> ByteString
toPath DeleteTrafficPolicyInstance' {Text
id :: Text
$sel:id:DeleteTrafficPolicyInstance' :: DeleteTrafficPolicyInstance -> Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ByteString
"/2013-04-01/trafficpolicyinstance/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
id]

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

-- | An empty element.
--
-- /See:/ 'newDeleteTrafficPolicyInstanceResponse' smart constructor.
data DeleteTrafficPolicyInstanceResponse = DeleteTrafficPolicyInstanceResponse'
  { -- | The response's http status code.
    DeleteTrafficPolicyInstanceResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (DeleteTrafficPolicyInstanceResponse
-> DeleteTrafficPolicyInstanceResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteTrafficPolicyInstanceResponse
-> DeleteTrafficPolicyInstanceResponse -> Bool
$c/= :: DeleteTrafficPolicyInstanceResponse
-> DeleteTrafficPolicyInstanceResponse -> Bool
== :: DeleteTrafficPolicyInstanceResponse
-> DeleteTrafficPolicyInstanceResponse -> Bool
$c== :: DeleteTrafficPolicyInstanceResponse
-> DeleteTrafficPolicyInstanceResponse -> Bool
Prelude.Eq, ReadPrec [DeleteTrafficPolicyInstanceResponse]
ReadPrec DeleteTrafficPolicyInstanceResponse
Int -> ReadS DeleteTrafficPolicyInstanceResponse
ReadS [DeleteTrafficPolicyInstanceResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteTrafficPolicyInstanceResponse]
$creadListPrec :: ReadPrec [DeleteTrafficPolicyInstanceResponse]
readPrec :: ReadPrec DeleteTrafficPolicyInstanceResponse
$creadPrec :: ReadPrec DeleteTrafficPolicyInstanceResponse
readList :: ReadS [DeleteTrafficPolicyInstanceResponse]
$creadList :: ReadS [DeleteTrafficPolicyInstanceResponse]
readsPrec :: Int -> ReadS DeleteTrafficPolicyInstanceResponse
$creadsPrec :: Int -> ReadS DeleteTrafficPolicyInstanceResponse
Prelude.Read, Int -> DeleteTrafficPolicyInstanceResponse -> ShowS
[DeleteTrafficPolicyInstanceResponse] -> ShowS
DeleteTrafficPolicyInstanceResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteTrafficPolicyInstanceResponse] -> ShowS
$cshowList :: [DeleteTrafficPolicyInstanceResponse] -> ShowS
show :: DeleteTrafficPolicyInstanceResponse -> String
$cshow :: DeleteTrafficPolicyInstanceResponse -> String
showsPrec :: Int -> DeleteTrafficPolicyInstanceResponse -> ShowS
$cshowsPrec :: Int -> DeleteTrafficPolicyInstanceResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteTrafficPolicyInstanceResponse x
-> DeleteTrafficPolicyInstanceResponse
forall x.
DeleteTrafficPolicyInstanceResponse
-> Rep DeleteTrafficPolicyInstanceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteTrafficPolicyInstanceResponse x
-> DeleteTrafficPolicyInstanceResponse
$cfrom :: forall x.
DeleteTrafficPolicyInstanceResponse
-> Rep DeleteTrafficPolicyInstanceResponse x
Prelude.Generic)

-- |
-- Create a value of 'DeleteTrafficPolicyInstanceResponse' 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:
--
-- 'httpStatus', 'deleteTrafficPolicyInstanceResponse_httpStatus' - The response's http status code.
newDeleteTrafficPolicyInstanceResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  DeleteTrafficPolicyInstanceResponse
newDeleteTrafficPolicyInstanceResponse :: Int -> DeleteTrafficPolicyInstanceResponse
newDeleteTrafficPolicyInstanceResponse Int
pHttpStatus_ =
  DeleteTrafficPolicyInstanceResponse'
    { $sel:httpStatus:DeleteTrafficPolicyInstanceResponse' :: Int
httpStatus =
        Int
pHttpStatus_
    }

-- | The response's http status code.
deleteTrafficPolicyInstanceResponse_httpStatus :: Lens.Lens' DeleteTrafficPolicyInstanceResponse Prelude.Int
deleteTrafficPolicyInstanceResponse_httpStatus :: Lens' DeleteTrafficPolicyInstanceResponse Int
deleteTrafficPolicyInstanceResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTrafficPolicyInstanceResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteTrafficPolicyInstanceResponse' :: DeleteTrafficPolicyInstanceResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteTrafficPolicyInstanceResponse
s@DeleteTrafficPolicyInstanceResponse' {} Int
a -> DeleteTrafficPolicyInstanceResponse
s {$sel:httpStatus:DeleteTrafficPolicyInstanceResponse' :: Int
httpStatus = Int
a} :: DeleteTrafficPolicyInstanceResponse)

instance
  Prelude.NFData
    DeleteTrafficPolicyInstanceResponse
  where
  rnf :: DeleteTrafficPolicyInstanceResponse -> ()
rnf DeleteTrafficPolicyInstanceResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteTrafficPolicyInstanceResponse' :: DeleteTrafficPolicyInstanceResponse -> Int
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus