{-# 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 #-}
module Amazonka.Personalize.DeleteRecommender
(
DeleteRecommender (..),
newDeleteRecommender,
deleteRecommender_recommenderArn,
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
data DeleteRecommender = DeleteRecommender'
{
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)
newDeleteRecommender ::
Prelude.Text ->
DeleteRecommender
newDeleteRecommender :: Text -> DeleteRecommender
newDeleteRecommender Text
pRecommenderArn_ =
DeleteRecommender'
{ $sel:recommenderArn:DeleteRecommender' :: Text
recommenderArn =
Text
pRecommenderArn_
}
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
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)
newDeleteRecommenderResponse ::
DeleteRecommenderResponse
newDeleteRecommenderResponse :: DeleteRecommenderResponse
newDeleteRecommenderResponse =
DeleteRecommenderResponse
DeleteRecommenderResponse'
instance Prelude.NFData DeleteRecommenderResponse where
rnf :: DeleteRecommenderResponse -> ()
rnf DeleteRecommenderResponse
_ = ()