{-# 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.VoiceId.DeleteSpeaker
(
DeleteSpeaker (..),
newDeleteSpeaker,
deleteSpeaker_domainId,
deleteSpeaker_speakerId,
DeleteSpeakerResponse (..),
newDeleteSpeakerResponse,
)
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.VoiceId.Types
data DeleteSpeaker = DeleteSpeaker'
{
DeleteSpeaker -> Text
domainId :: Prelude.Text,
DeleteSpeaker -> Sensitive Text
speakerId :: Data.Sensitive Prelude.Text
}
deriving (DeleteSpeaker -> DeleteSpeaker -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteSpeaker -> DeleteSpeaker -> Bool
$c/= :: DeleteSpeaker -> DeleteSpeaker -> Bool
== :: DeleteSpeaker -> DeleteSpeaker -> Bool
$c== :: DeleteSpeaker -> DeleteSpeaker -> Bool
Prelude.Eq, Int -> DeleteSpeaker -> ShowS
[DeleteSpeaker] -> ShowS
DeleteSpeaker -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteSpeaker] -> ShowS
$cshowList :: [DeleteSpeaker] -> ShowS
show :: DeleteSpeaker -> String
$cshow :: DeleteSpeaker -> String
showsPrec :: Int -> DeleteSpeaker -> ShowS
$cshowsPrec :: Int -> DeleteSpeaker -> ShowS
Prelude.Show, forall x. Rep DeleteSpeaker x -> DeleteSpeaker
forall x. DeleteSpeaker -> Rep DeleteSpeaker x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteSpeaker x -> DeleteSpeaker
$cfrom :: forall x. DeleteSpeaker -> Rep DeleteSpeaker x
Prelude.Generic)
newDeleteSpeaker ::
Prelude.Text ->
Prelude.Text ->
DeleteSpeaker
newDeleteSpeaker :: Text -> Text -> DeleteSpeaker
newDeleteSpeaker Text
pDomainId_ Text
pSpeakerId_ =
DeleteSpeaker'
{ $sel:domainId:DeleteSpeaker' :: Text
domainId = Text
pDomainId_,
$sel:speakerId:DeleteSpeaker' :: Sensitive Text
speakerId = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pSpeakerId_
}
deleteSpeaker_domainId :: Lens.Lens' DeleteSpeaker Prelude.Text
deleteSpeaker_domainId :: Lens' DeleteSpeaker Text
deleteSpeaker_domainId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSpeaker' {Text
domainId :: Text
$sel:domainId:DeleteSpeaker' :: DeleteSpeaker -> Text
domainId} -> Text
domainId) (\s :: DeleteSpeaker
s@DeleteSpeaker' {} Text
a -> DeleteSpeaker
s {$sel:domainId:DeleteSpeaker' :: Text
domainId = Text
a} :: DeleteSpeaker)
deleteSpeaker_speakerId :: Lens.Lens' DeleteSpeaker Prelude.Text
deleteSpeaker_speakerId :: Lens' DeleteSpeaker Text
deleteSpeaker_speakerId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSpeaker' {Sensitive Text
speakerId :: Sensitive Text
$sel:speakerId:DeleteSpeaker' :: DeleteSpeaker -> Sensitive Text
speakerId} -> Sensitive Text
speakerId) (\s :: DeleteSpeaker
s@DeleteSpeaker' {} Sensitive Text
a -> DeleteSpeaker
s {$sel:speakerId:DeleteSpeaker' :: Sensitive Text
speakerId = Sensitive Text
a} :: DeleteSpeaker) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive
instance Core.AWSRequest DeleteSpeaker where
type
AWSResponse DeleteSpeaker =
DeleteSpeakerResponse
request :: (Service -> Service) -> DeleteSpeaker -> Request DeleteSpeaker
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 DeleteSpeaker
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteSpeaker)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteSpeakerResponse
DeleteSpeakerResponse'
instance Prelude.Hashable DeleteSpeaker where
hashWithSalt :: Int -> DeleteSpeaker -> Int
hashWithSalt Int
_salt DeleteSpeaker' {Text
Sensitive Text
speakerId :: Sensitive Text
domainId :: Text
$sel:speakerId:DeleteSpeaker' :: DeleteSpeaker -> Sensitive Text
$sel:domainId:DeleteSpeaker' :: DeleteSpeaker -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
domainId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
speakerId
instance Prelude.NFData DeleteSpeaker where
rnf :: DeleteSpeaker -> ()
rnf DeleteSpeaker' {Text
Sensitive Text
speakerId :: Sensitive Text
domainId :: Text
$sel:speakerId:DeleteSpeaker' :: DeleteSpeaker -> Sensitive Text
$sel:domainId:DeleteSpeaker' :: DeleteSpeaker -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
domainId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
speakerId
instance Data.ToHeaders DeleteSpeaker where
toHeaders :: DeleteSpeaker -> [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
"VoiceID.DeleteSpeaker" :: Prelude.ByteString),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteSpeaker where
toJSON :: DeleteSpeaker -> Value
toJSON DeleteSpeaker' {Text
Sensitive Text
speakerId :: Sensitive Text
domainId :: Text
$sel:speakerId:DeleteSpeaker' :: DeleteSpeaker -> Sensitive Text
$sel:domainId:DeleteSpeaker' :: DeleteSpeaker -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"DomainId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
domainId),
forall a. a -> Maybe a
Prelude.Just (Key
"SpeakerId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Text
speakerId)
]
)
instance Data.ToPath DeleteSpeaker where
toPath :: DeleteSpeaker -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteSpeaker where
toQuery :: DeleteSpeaker -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteSpeakerResponse = DeleteSpeakerResponse'
{
}
deriving (DeleteSpeakerResponse -> DeleteSpeakerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteSpeakerResponse -> DeleteSpeakerResponse -> Bool
$c/= :: DeleteSpeakerResponse -> DeleteSpeakerResponse -> Bool
== :: DeleteSpeakerResponse -> DeleteSpeakerResponse -> Bool
$c== :: DeleteSpeakerResponse -> DeleteSpeakerResponse -> Bool
Prelude.Eq, ReadPrec [DeleteSpeakerResponse]
ReadPrec DeleteSpeakerResponse
Int -> ReadS DeleteSpeakerResponse
ReadS [DeleteSpeakerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteSpeakerResponse]
$creadListPrec :: ReadPrec [DeleteSpeakerResponse]
readPrec :: ReadPrec DeleteSpeakerResponse
$creadPrec :: ReadPrec DeleteSpeakerResponse
readList :: ReadS [DeleteSpeakerResponse]
$creadList :: ReadS [DeleteSpeakerResponse]
readsPrec :: Int -> ReadS DeleteSpeakerResponse
$creadsPrec :: Int -> ReadS DeleteSpeakerResponse
Prelude.Read, Int -> DeleteSpeakerResponse -> ShowS
[DeleteSpeakerResponse] -> ShowS
DeleteSpeakerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteSpeakerResponse] -> ShowS
$cshowList :: [DeleteSpeakerResponse] -> ShowS
show :: DeleteSpeakerResponse -> String
$cshow :: DeleteSpeakerResponse -> String
showsPrec :: Int -> DeleteSpeakerResponse -> ShowS
$cshowsPrec :: Int -> DeleteSpeakerResponse -> ShowS
Prelude.Show, forall x. Rep DeleteSpeakerResponse x -> DeleteSpeakerResponse
forall x. DeleteSpeakerResponse -> Rep DeleteSpeakerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteSpeakerResponse x -> DeleteSpeakerResponse
$cfrom :: forall x. DeleteSpeakerResponse -> Rep DeleteSpeakerResponse x
Prelude.Generic)
newDeleteSpeakerResponse ::
DeleteSpeakerResponse
newDeleteSpeakerResponse :: DeleteSpeakerResponse
newDeleteSpeakerResponse = DeleteSpeakerResponse
DeleteSpeakerResponse'
instance Prelude.NFData DeleteSpeakerResponse where
rnf :: DeleteSpeakerResponse -> ()
rnf DeleteSpeakerResponse
_ = ()