{-# 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.DeleteIdentityProvider
(
DeleteIdentityProvider (..),
newDeleteIdentityProvider,
deleteIdentityProvider_userPoolId,
deleteIdentityProvider_providerName,
DeleteIdentityProviderResponse (..),
newDeleteIdentityProviderResponse,
)
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 DeleteIdentityProvider = DeleteIdentityProvider'
{
DeleteIdentityProvider -> Text
userPoolId :: Prelude.Text,
DeleteIdentityProvider -> Text
providerName :: Prelude.Text
}
deriving (DeleteIdentityProvider -> DeleteIdentityProvider -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteIdentityProvider -> DeleteIdentityProvider -> Bool
$c/= :: DeleteIdentityProvider -> DeleteIdentityProvider -> Bool
== :: DeleteIdentityProvider -> DeleteIdentityProvider -> Bool
$c== :: DeleteIdentityProvider -> DeleteIdentityProvider -> Bool
Prelude.Eq, ReadPrec [DeleteIdentityProvider]
ReadPrec DeleteIdentityProvider
Int -> ReadS DeleteIdentityProvider
ReadS [DeleteIdentityProvider]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteIdentityProvider]
$creadListPrec :: ReadPrec [DeleteIdentityProvider]
readPrec :: ReadPrec DeleteIdentityProvider
$creadPrec :: ReadPrec DeleteIdentityProvider
readList :: ReadS [DeleteIdentityProvider]
$creadList :: ReadS [DeleteIdentityProvider]
readsPrec :: Int -> ReadS DeleteIdentityProvider
$creadsPrec :: Int -> ReadS DeleteIdentityProvider
Prelude.Read, Int -> DeleteIdentityProvider -> ShowS
[DeleteIdentityProvider] -> ShowS
DeleteIdentityProvider -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteIdentityProvider] -> ShowS
$cshowList :: [DeleteIdentityProvider] -> ShowS
show :: DeleteIdentityProvider -> String
$cshow :: DeleteIdentityProvider -> String
showsPrec :: Int -> DeleteIdentityProvider -> ShowS
$cshowsPrec :: Int -> DeleteIdentityProvider -> ShowS
Prelude.Show, forall x. Rep DeleteIdentityProvider x -> DeleteIdentityProvider
forall x. DeleteIdentityProvider -> Rep DeleteIdentityProvider x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteIdentityProvider x -> DeleteIdentityProvider
$cfrom :: forall x. DeleteIdentityProvider -> Rep DeleteIdentityProvider x
Prelude.Generic)
newDeleteIdentityProvider ::
Prelude.Text ->
Prelude.Text ->
DeleteIdentityProvider
newDeleteIdentityProvider :: Text -> Text -> DeleteIdentityProvider
newDeleteIdentityProvider Text
pUserPoolId_ Text
pProviderName_ =
DeleteIdentityProvider'
{ $sel:userPoolId:DeleteIdentityProvider' :: Text
userPoolId = Text
pUserPoolId_,
$sel:providerName:DeleteIdentityProvider' :: Text
providerName = Text
pProviderName_
}
deleteIdentityProvider_userPoolId :: Lens.Lens' DeleteIdentityProvider Prelude.Text
deleteIdentityProvider_userPoolId :: Lens' DeleteIdentityProvider Text
deleteIdentityProvider_userPoolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteIdentityProvider' {Text
userPoolId :: Text
$sel:userPoolId:DeleteIdentityProvider' :: DeleteIdentityProvider -> Text
userPoolId} -> Text
userPoolId) (\s :: DeleteIdentityProvider
s@DeleteIdentityProvider' {} Text
a -> DeleteIdentityProvider
s {$sel:userPoolId:DeleteIdentityProvider' :: Text
userPoolId = Text
a} :: DeleteIdentityProvider)
deleteIdentityProvider_providerName :: Lens.Lens' DeleteIdentityProvider Prelude.Text
deleteIdentityProvider_providerName :: Lens' DeleteIdentityProvider Text
deleteIdentityProvider_providerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteIdentityProvider' {Text
providerName :: Text
$sel:providerName:DeleteIdentityProvider' :: DeleteIdentityProvider -> Text
providerName} -> Text
providerName) (\s :: DeleteIdentityProvider
s@DeleteIdentityProvider' {} Text
a -> DeleteIdentityProvider
s {$sel:providerName:DeleteIdentityProvider' :: Text
providerName = Text
a} :: DeleteIdentityProvider)
instance Core.AWSRequest DeleteIdentityProvider where
type
AWSResponse DeleteIdentityProvider =
DeleteIdentityProviderResponse
request :: (Service -> Service)
-> DeleteIdentityProvider -> Request DeleteIdentityProvider
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 DeleteIdentityProvider
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteIdentityProvider)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeleteIdentityProviderResponse
DeleteIdentityProviderResponse'
instance Prelude.Hashable DeleteIdentityProvider where
hashWithSalt :: Int -> DeleteIdentityProvider -> Int
hashWithSalt Int
_salt DeleteIdentityProvider' {Text
providerName :: Text
userPoolId :: Text
$sel:providerName:DeleteIdentityProvider' :: DeleteIdentityProvider -> Text
$sel:userPoolId:DeleteIdentityProvider' :: DeleteIdentityProvider -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userPoolId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
providerName
instance Prelude.NFData DeleteIdentityProvider where
rnf :: DeleteIdentityProvider -> ()
rnf DeleteIdentityProvider' {Text
providerName :: Text
userPoolId :: Text
$sel:providerName:DeleteIdentityProvider' :: DeleteIdentityProvider -> Text
$sel:userPoolId:DeleteIdentityProvider' :: DeleteIdentityProvider -> 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
providerName
instance Data.ToHeaders DeleteIdentityProvider where
toHeaders :: DeleteIdentityProvider -> [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.DeleteIdentityProvider" ::
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 DeleteIdentityProvider where
toJSON :: DeleteIdentityProvider -> Value
toJSON DeleteIdentityProvider' {Text
providerName :: Text
userPoolId :: Text
$sel:providerName:DeleteIdentityProvider' :: DeleteIdentityProvider -> Text
$sel:userPoolId:DeleteIdentityProvider' :: DeleteIdentityProvider -> 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
"ProviderName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
providerName)
]
)
instance Data.ToPath DeleteIdentityProvider where
toPath :: DeleteIdentityProvider -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteIdentityProvider where
toQuery :: DeleteIdentityProvider -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteIdentityProviderResponse = DeleteIdentityProviderResponse'
{
}
deriving (DeleteIdentityProviderResponse
-> DeleteIdentityProviderResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteIdentityProviderResponse
-> DeleteIdentityProviderResponse -> Bool
$c/= :: DeleteIdentityProviderResponse
-> DeleteIdentityProviderResponse -> Bool
== :: DeleteIdentityProviderResponse
-> DeleteIdentityProviderResponse -> Bool
$c== :: DeleteIdentityProviderResponse
-> DeleteIdentityProviderResponse -> Bool
Prelude.Eq, ReadPrec [DeleteIdentityProviderResponse]
ReadPrec DeleteIdentityProviderResponse
Int -> ReadS DeleteIdentityProviderResponse
ReadS [DeleteIdentityProviderResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteIdentityProviderResponse]
$creadListPrec :: ReadPrec [DeleteIdentityProviderResponse]
readPrec :: ReadPrec DeleteIdentityProviderResponse
$creadPrec :: ReadPrec DeleteIdentityProviderResponse
readList :: ReadS [DeleteIdentityProviderResponse]
$creadList :: ReadS [DeleteIdentityProviderResponse]
readsPrec :: Int -> ReadS DeleteIdentityProviderResponse
$creadsPrec :: Int -> ReadS DeleteIdentityProviderResponse
Prelude.Read, Int -> DeleteIdentityProviderResponse -> ShowS
[DeleteIdentityProviderResponse] -> ShowS
DeleteIdentityProviderResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteIdentityProviderResponse] -> ShowS
$cshowList :: [DeleteIdentityProviderResponse] -> ShowS
show :: DeleteIdentityProviderResponse -> String
$cshow :: DeleteIdentityProviderResponse -> String
showsPrec :: Int -> DeleteIdentityProviderResponse -> ShowS
$cshowsPrec :: Int -> DeleteIdentityProviderResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteIdentityProviderResponse x
-> DeleteIdentityProviderResponse
forall x.
DeleteIdentityProviderResponse
-> Rep DeleteIdentityProviderResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteIdentityProviderResponse x
-> DeleteIdentityProviderResponse
$cfrom :: forall x.
DeleteIdentityProviderResponse
-> Rep DeleteIdentityProviderResponse x
Prelude.Generic)
newDeleteIdentityProviderResponse ::
DeleteIdentityProviderResponse
newDeleteIdentityProviderResponse :: DeleteIdentityProviderResponse
newDeleteIdentityProviderResponse =
DeleteIdentityProviderResponse
DeleteIdentityProviderResponse'
instance
Prelude.NFData
DeleteIdentityProviderResponse
where
rnf :: DeleteIdentityProviderResponse -> ()
rnf DeleteIdentityProviderResponse
_ = ()