{-# 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.CognitoIdentityProvider.DeleteResourceServer
(
DeleteResourceServer (..),
newDeleteResourceServer,
deleteResourceServer_userPoolId,
deleteResourceServer_identifier,
DeleteResourceServerResponse (..),
newDeleteResourceServerResponse,
)
where
import Amazonka.CognitoIdentityProvider.Types
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
data DeleteResourceServer = DeleteResourceServer'
{
DeleteResourceServer -> Text
userPoolId :: Prelude.Text,
DeleteResourceServer -> Text
identifier :: Prelude.Text
}
deriving (DeleteResourceServer -> DeleteResourceServer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteResourceServer -> DeleteResourceServer -> Bool
$c/= :: DeleteResourceServer -> DeleteResourceServer -> Bool
== :: DeleteResourceServer -> DeleteResourceServer -> Bool
$c== :: DeleteResourceServer -> DeleteResourceServer -> Bool
Prelude.Eq, ReadPrec [DeleteResourceServer]
ReadPrec DeleteResourceServer
Int -> ReadS DeleteResourceServer
ReadS [DeleteResourceServer]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteResourceServer]
$creadListPrec :: ReadPrec [DeleteResourceServer]
readPrec :: ReadPrec DeleteResourceServer
$creadPrec :: ReadPrec DeleteResourceServer
readList :: ReadS [DeleteResourceServer]
$creadList :: ReadS [DeleteResourceServer]
readsPrec :: Int -> ReadS DeleteResourceServer
$creadsPrec :: Int -> ReadS DeleteResourceServer
Prelude.Read, Int -> DeleteResourceServer -> ShowS
[DeleteResourceServer] -> ShowS
DeleteResourceServer -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteResourceServer] -> ShowS
$cshowList :: [DeleteResourceServer] -> ShowS
show :: DeleteResourceServer -> String
$cshow :: DeleteResourceServer -> String
showsPrec :: Int -> DeleteResourceServer -> ShowS
$cshowsPrec :: Int -> DeleteResourceServer -> ShowS
Prelude.Show, forall x. Rep DeleteResourceServer x -> DeleteResourceServer
forall x. DeleteResourceServer -> Rep DeleteResourceServer x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteResourceServer x -> DeleteResourceServer
$cfrom :: forall x. DeleteResourceServer -> Rep DeleteResourceServer x
Prelude.Generic)
newDeleteResourceServer ::
Prelude.Text ->
Prelude.Text ->
DeleteResourceServer
newDeleteResourceServer :: Text -> Text -> DeleteResourceServer
newDeleteResourceServer Text
pUserPoolId_ Text
pIdentifier_ =
DeleteResourceServer'
{ $sel:userPoolId:DeleteResourceServer' :: Text
userPoolId = Text
pUserPoolId_,
$sel:identifier:DeleteResourceServer' :: Text
identifier = Text
pIdentifier_
}
deleteResourceServer_userPoolId :: Lens.Lens' DeleteResourceServer Prelude.Text
deleteResourceServer_userPoolId :: Lens' DeleteResourceServer Text
deleteResourceServer_userPoolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteResourceServer' {Text
userPoolId :: Text
$sel:userPoolId:DeleteResourceServer' :: DeleteResourceServer -> Text
userPoolId} -> Text
userPoolId) (\s :: DeleteResourceServer
s@DeleteResourceServer' {} Text
a -> DeleteResourceServer
s {$sel:userPoolId:DeleteResourceServer' :: Text
userPoolId = Text
a} :: DeleteResourceServer)
deleteResourceServer_identifier :: Lens.Lens' DeleteResourceServer Prelude.Text
deleteResourceServer_identifier :: Lens' DeleteResourceServer Text
deleteResourceServer_identifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteResourceServer' {Text
identifier :: Text
$sel:identifier:DeleteResourceServer' :: DeleteResourceServer -> Text
identifier} -> Text
identifier) (\s :: DeleteResourceServer
s@DeleteResourceServer' {} Text
a -> DeleteResourceServer
s {$sel:identifier:DeleteResourceServer' :: Text
identifier = Text
a} :: DeleteResourceServer)
instance Core.AWSRequest DeleteResourceServer where
type
AWSResponse DeleteResourceServer =
DeleteResourceServerResponse
request :: (Service -> Service)
-> DeleteResourceServer -> Request DeleteResourceServer
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 DeleteResourceServer
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteResourceServer)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteResourceServerResponse
DeleteResourceServerResponse'
instance Prelude.Hashable DeleteResourceServer where
hashWithSalt :: Int -> DeleteResourceServer -> Int
hashWithSalt Int
_salt DeleteResourceServer' {Text
identifier :: Text
userPoolId :: Text
$sel:identifier:DeleteResourceServer' :: DeleteResourceServer -> Text
$sel:userPoolId:DeleteResourceServer' :: DeleteResourceServer -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userPoolId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
identifier
instance Prelude.NFData DeleteResourceServer where
rnf :: DeleteResourceServer -> ()
rnf DeleteResourceServer' {Text
identifier :: Text
userPoolId :: Text
$sel:identifier:DeleteResourceServer' :: DeleteResourceServer -> Text
$sel:userPoolId:DeleteResourceServer' :: DeleteResourceServer -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
userPoolId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
identifier
instance Data.ToHeaders DeleteResourceServer where
toHeaders :: DeleteResourceServer -> [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
"AWSCognitoIdentityProviderService.DeleteResourceServer" ::
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 DeleteResourceServer where
toJSON :: DeleteResourceServer -> Value
toJSON DeleteResourceServer' {Text
identifier :: Text
userPoolId :: Text
$sel:identifier:DeleteResourceServer' :: DeleteResourceServer -> Text
$sel:userPoolId:DeleteResourceServer' :: DeleteResourceServer -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"UserPoolId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
userPoolId),
forall a. a -> Maybe a
Prelude.Just (Key
"Identifier" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
identifier)
]
)
instance Data.ToPath DeleteResourceServer where
toPath :: DeleteResourceServer -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteResourceServer where
toQuery :: DeleteResourceServer -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteResourceServerResponse = DeleteResourceServerResponse'
{
}
deriving (DeleteResourceServerResponse
-> DeleteResourceServerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteResourceServerResponse
-> DeleteResourceServerResponse -> Bool
$c/= :: DeleteResourceServerResponse
-> DeleteResourceServerResponse -> Bool
== :: DeleteResourceServerResponse
-> DeleteResourceServerResponse -> Bool
$c== :: DeleteResourceServerResponse
-> DeleteResourceServerResponse -> Bool
Prelude.Eq, ReadPrec [DeleteResourceServerResponse]
ReadPrec DeleteResourceServerResponse
Int -> ReadS DeleteResourceServerResponse
ReadS [DeleteResourceServerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteResourceServerResponse]
$creadListPrec :: ReadPrec [DeleteResourceServerResponse]
readPrec :: ReadPrec DeleteResourceServerResponse
$creadPrec :: ReadPrec DeleteResourceServerResponse
readList :: ReadS [DeleteResourceServerResponse]
$creadList :: ReadS [DeleteResourceServerResponse]
readsPrec :: Int -> ReadS DeleteResourceServerResponse
$creadsPrec :: Int -> ReadS DeleteResourceServerResponse
Prelude.Read, Int -> DeleteResourceServerResponse -> ShowS
[DeleteResourceServerResponse] -> ShowS
DeleteResourceServerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteResourceServerResponse] -> ShowS
$cshowList :: [DeleteResourceServerResponse] -> ShowS
show :: DeleteResourceServerResponse -> String
$cshow :: DeleteResourceServerResponse -> String
showsPrec :: Int -> DeleteResourceServerResponse -> ShowS
$cshowsPrec :: Int -> DeleteResourceServerResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteResourceServerResponse x -> DeleteResourceServerResponse
forall x.
DeleteResourceServerResponse -> Rep DeleteResourceServerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteResourceServerResponse x -> DeleteResourceServerResponse
$cfrom :: forall x.
DeleteResourceServerResponse -> Rep DeleteResourceServerResponse x
Prelude.Generic)
newDeleteResourceServerResponse ::
DeleteResourceServerResponse
newDeleteResourceServerResponse :: DeleteResourceServerResponse
newDeleteResourceServerResponse =
DeleteResourceServerResponse
DeleteResourceServerResponse'
instance Prelude.NFData DeleteResourceServerResponse where
rnf :: DeleteResourceServerResponse -> ()
rnf DeleteResourceServerResponse
_ = ()