{-# 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.Personalize.DeleteRecommender
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Deactivates and removes a recommender. A deleted recommender can no
-- longer be specified in a
-- <https://docs.aws.amazon.com/personalize/latest/dg/API_RS_GetRecommendations.html GetRecommendations>
-- request.
module Amazonka.Personalize.DeleteRecommender
  ( -- * Creating a Request
    DeleteRecommender (..),
    newDeleteRecommender,

    -- * Request Lenses
    deleteRecommender_recommenderArn,

    -- * Destructuring the Response
    DeleteRecommenderResponse (..),
    newDeleteRecommenderResponse,
  )
where

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

-- | /See:/ 'newDeleteRecommender' smart constructor.
data DeleteRecommender = DeleteRecommender'
  { -- | The Amazon Resource Name (ARN) of the recommender to delete.
    DeleteRecommender -> Text
recommenderArn :: Prelude.Text
  }
  deriving (DeleteRecommender -> DeleteRecommender -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteRecommender -> DeleteRecommender -> Bool
$c/= :: DeleteRecommender -> DeleteRecommender -> Bool
== :: DeleteRecommender -> DeleteRecommender -> Bool
$c== :: DeleteRecommender -> DeleteRecommender -> Bool
Prelude.Eq, ReadPrec [DeleteRecommender]
ReadPrec DeleteRecommender
Int -> ReadS DeleteRecommender
ReadS [DeleteRecommender]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteRecommender]
$creadListPrec :: ReadPrec [DeleteRecommender]
readPrec :: ReadPrec DeleteRecommender
$creadPrec :: ReadPrec DeleteRecommender
readList :: ReadS [DeleteRecommender]
$creadList :: ReadS [DeleteRecommender]
readsPrec :: Int -> ReadS DeleteRecommender
$creadsPrec :: Int -> ReadS DeleteRecommender
Prelude.Read, Int -> DeleteRecommender -> ShowS
[DeleteRecommender] -> ShowS
DeleteRecommender -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteRecommender] -> ShowS
$cshowList :: [DeleteRecommender] -> ShowS
show :: DeleteRecommender -> String
$cshow :: DeleteRecommender -> String
showsPrec :: Int -> DeleteRecommender -> ShowS
$cshowsPrec :: Int -> DeleteRecommender -> ShowS
Prelude.Show, forall x. Rep DeleteRecommender x -> DeleteRecommender
forall x. DeleteRecommender -> Rep DeleteRecommender x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteRecommender x -> DeleteRecommender
$cfrom :: forall x. DeleteRecommender -> Rep DeleteRecommender x
Prelude.Generic)

-- |
-- Create a value of 'DeleteRecommender' 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:
--
-- 'recommenderArn', 'deleteRecommender_recommenderArn' - The Amazon Resource Name (ARN) of the recommender to delete.
newDeleteRecommender ::
  -- | 'recommenderArn'
  Prelude.Text ->
  DeleteRecommender
newDeleteRecommender :: Text -> DeleteRecommender
newDeleteRecommender Text
pRecommenderArn_ =
  DeleteRecommender'
    { $sel:recommenderArn:DeleteRecommender' :: Text
recommenderArn =
        Text
pRecommenderArn_
    }

-- | The Amazon Resource Name (ARN) of the recommender to delete.
deleteRecommender_recommenderArn :: Lens.Lens' DeleteRecommender Prelude.Text
deleteRecommender_recommenderArn :: Lens' DeleteRecommender Text
deleteRecommender_recommenderArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteRecommender' {Text
recommenderArn :: Text
$sel:recommenderArn:DeleteRecommender' :: DeleteRecommender -> Text
recommenderArn} -> Text
recommenderArn) (\s :: DeleteRecommender
s@DeleteRecommender' {} Text
a -> DeleteRecommender
s {$sel:recommenderArn:DeleteRecommender' :: Text
recommenderArn = Text
a} :: DeleteRecommender)

instance Core.AWSRequest DeleteRecommender where
  type
    AWSResponse DeleteRecommender =
      DeleteRecommenderResponse
  request :: (Service -> Service)
-> DeleteRecommender -> Request DeleteRecommender
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 DeleteRecommender
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse DeleteRecommender)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteRecommenderResponse
DeleteRecommenderResponse'

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

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

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

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

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

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

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

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

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