{-# 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.IAM.RemoveClientIDFromOpenIDConnectProvider
(
RemoveClientIDFromOpenIDConnectProvider (..),
newRemoveClientIDFromOpenIDConnectProvider,
removeClientIDFromOpenIDConnectProvider_openIDConnectProviderArn,
removeClientIDFromOpenIDConnectProvider_clientID,
RemoveClientIDFromOpenIDConnectProviderResponse (..),
newRemoveClientIDFromOpenIDConnectProviderResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IAM.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data RemoveClientIDFromOpenIDConnectProvider = RemoveClientIDFromOpenIDConnectProvider'
{
RemoveClientIDFromOpenIDConnectProvider -> Text
openIDConnectProviderArn :: Prelude.Text,
RemoveClientIDFromOpenIDConnectProvider -> Text
clientID :: Prelude.Text
}
deriving (RemoveClientIDFromOpenIDConnectProvider
-> RemoveClientIDFromOpenIDConnectProvider -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RemoveClientIDFromOpenIDConnectProvider
-> RemoveClientIDFromOpenIDConnectProvider -> Bool
$c/= :: RemoveClientIDFromOpenIDConnectProvider
-> RemoveClientIDFromOpenIDConnectProvider -> Bool
== :: RemoveClientIDFromOpenIDConnectProvider
-> RemoveClientIDFromOpenIDConnectProvider -> Bool
$c== :: RemoveClientIDFromOpenIDConnectProvider
-> RemoveClientIDFromOpenIDConnectProvider -> Bool
Prelude.Eq, ReadPrec [RemoveClientIDFromOpenIDConnectProvider]
ReadPrec RemoveClientIDFromOpenIDConnectProvider
Int -> ReadS RemoveClientIDFromOpenIDConnectProvider
ReadS [RemoveClientIDFromOpenIDConnectProvider]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RemoveClientIDFromOpenIDConnectProvider]
$creadListPrec :: ReadPrec [RemoveClientIDFromOpenIDConnectProvider]
readPrec :: ReadPrec RemoveClientIDFromOpenIDConnectProvider
$creadPrec :: ReadPrec RemoveClientIDFromOpenIDConnectProvider
readList :: ReadS [RemoveClientIDFromOpenIDConnectProvider]
$creadList :: ReadS [RemoveClientIDFromOpenIDConnectProvider]
readsPrec :: Int -> ReadS RemoveClientIDFromOpenIDConnectProvider
$creadsPrec :: Int -> ReadS RemoveClientIDFromOpenIDConnectProvider
Prelude.Read, Int -> RemoveClientIDFromOpenIDConnectProvider -> ShowS
[RemoveClientIDFromOpenIDConnectProvider] -> ShowS
RemoveClientIDFromOpenIDConnectProvider -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RemoveClientIDFromOpenIDConnectProvider] -> ShowS
$cshowList :: [RemoveClientIDFromOpenIDConnectProvider] -> ShowS
show :: RemoveClientIDFromOpenIDConnectProvider -> String
$cshow :: RemoveClientIDFromOpenIDConnectProvider -> String
showsPrec :: Int -> RemoveClientIDFromOpenIDConnectProvider -> ShowS
$cshowsPrec :: Int -> RemoveClientIDFromOpenIDConnectProvider -> ShowS
Prelude.Show, forall x.
Rep RemoveClientIDFromOpenIDConnectProvider x
-> RemoveClientIDFromOpenIDConnectProvider
forall x.
RemoveClientIDFromOpenIDConnectProvider
-> Rep RemoveClientIDFromOpenIDConnectProvider x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RemoveClientIDFromOpenIDConnectProvider x
-> RemoveClientIDFromOpenIDConnectProvider
$cfrom :: forall x.
RemoveClientIDFromOpenIDConnectProvider
-> Rep RemoveClientIDFromOpenIDConnectProvider x
Prelude.Generic)
newRemoveClientIDFromOpenIDConnectProvider ::
Prelude.Text ->
Prelude.Text ->
RemoveClientIDFromOpenIDConnectProvider
newRemoveClientIDFromOpenIDConnectProvider :: Text -> Text -> RemoveClientIDFromOpenIDConnectProvider
newRemoveClientIDFromOpenIDConnectProvider
Text
pOpenIDConnectProviderArn_
Text
pClientID_ =
RemoveClientIDFromOpenIDConnectProvider'
{ $sel:openIDConnectProviderArn:RemoveClientIDFromOpenIDConnectProvider' :: Text
openIDConnectProviderArn =
Text
pOpenIDConnectProviderArn_,
$sel:clientID:RemoveClientIDFromOpenIDConnectProvider' :: Text
clientID = Text
pClientID_
}
removeClientIDFromOpenIDConnectProvider_openIDConnectProviderArn :: Lens.Lens' RemoveClientIDFromOpenIDConnectProvider Prelude.Text
removeClientIDFromOpenIDConnectProvider_openIDConnectProviderArn :: Lens' RemoveClientIDFromOpenIDConnectProvider Text
removeClientIDFromOpenIDConnectProvider_openIDConnectProviderArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RemoveClientIDFromOpenIDConnectProvider' {Text
openIDConnectProviderArn :: Text
$sel:openIDConnectProviderArn:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
openIDConnectProviderArn} -> Text
openIDConnectProviderArn) (\s :: RemoveClientIDFromOpenIDConnectProvider
s@RemoveClientIDFromOpenIDConnectProvider' {} Text
a -> RemoveClientIDFromOpenIDConnectProvider
s {$sel:openIDConnectProviderArn:RemoveClientIDFromOpenIDConnectProvider' :: Text
openIDConnectProviderArn = Text
a} :: RemoveClientIDFromOpenIDConnectProvider)
removeClientIDFromOpenIDConnectProvider_clientID :: Lens.Lens' RemoveClientIDFromOpenIDConnectProvider Prelude.Text
removeClientIDFromOpenIDConnectProvider_clientID :: Lens' RemoveClientIDFromOpenIDConnectProvider Text
removeClientIDFromOpenIDConnectProvider_clientID = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RemoveClientIDFromOpenIDConnectProvider' {Text
clientID :: Text
$sel:clientID:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
clientID} -> Text
clientID) (\s :: RemoveClientIDFromOpenIDConnectProvider
s@RemoveClientIDFromOpenIDConnectProvider' {} Text
a -> RemoveClientIDFromOpenIDConnectProvider
s {$sel:clientID:RemoveClientIDFromOpenIDConnectProvider' :: Text
clientID = Text
a} :: RemoveClientIDFromOpenIDConnectProvider)
instance
Core.AWSRequest
RemoveClientIDFromOpenIDConnectProvider
where
type
AWSResponse
RemoveClientIDFromOpenIDConnectProvider =
RemoveClientIDFromOpenIDConnectProviderResponse
request :: (Service -> Service)
-> RemoveClientIDFromOpenIDConnectProvider
-> Request RemoveClientIDFromOpenIDConnectProvider
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy RemoveClientIDFromOpenIDConnectProvider
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse RemoveClientIDFromOpenIDConnectProvider)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
RemoveClientIDFromOpenIDConnectProviderResponse
RemoveClientIDFromOpenIDConnectProviderResponse'
instance
Prelude.Hashable
RemoveClientIDFromOpenIDConnectProvider
where
hashWithSalt :: Int -> RemoveClientIDFromOpenIDConnectProvider -> Int
hashWithSalt
Int
_salt
RemoveClientIDFromOpenIDConnectProvider' {Text
clientID :: Text
openIDConnectProviderArn :: Text
$sel:clientID:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
$sel:openIDConnectProviderArn:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
openIDConnectProviderArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
clientID
instance
Prelude.NFData
RemoveClientIDFromOpenIDConnectProvider
where
rnf :: RemoveClientIDFromOpenIDConnectProvider -> ()
rnf RemoveClientIDFromOpenIDConnectProvider' {Text
clientID :: Text
openIDConnectProviderArn :: Text
$sel:clientID:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
$sel:openIDConnectProviderArn:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
openIDConnectProviderArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
clientID
instance
Data.ToHeaders
RemoveClientIDFromOpenIDConnectProvider
where
toHeaders :: RemoveClientIDFromOpenIDConnectProvider -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
RemoveClientIDFromOpenIDConnectProvider
where
toPath :: RemoveClientIDFromOpenIDConnectProvider -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
RemoveClientIDFromOpenIDConnectProvider
where
toQuery :: RemoveClientIDFromOpenIDConnectProvider -> QueryString
toQuery RemoveClientIDFromOpenIDConnectProvider' {Text
clientID :: Text
openIDConnectProviderArn :: Text
$sel:clientID:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
$sel:openIDConnectProviderArn:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"RemoveClientIDFromOpenIDConnectProvider" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-05-08" :: Prelude.ByteString),
ByteString
"OpenIDConnectProviderArn"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
openIDConnectProviderArn,
ByteString
"ClientID" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
clientID
]
data RemoveClientIDFromOpenIDConnectProviderResponse = RemoveClientIDFromOpenIDConnectProviderResponse'
{
}
deriving (RemoveClientIDFromOpenIDConnectProviderResponse
-> RemoveClientIDFromOpenIDConnectProviderResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RemoveClientIDFromOpenIDConnectProviderResponse
-> RemoveClientIDFromOpenIDConnectProviderResponse -> Bool
$c/= :: RemoveClientIDFromOpenIDConnectProviderResponse
-> RemoveClientIDFromOpenIDConnectProviderResponse -> Bool
== :: RemoveClientIDFromOpenIDConnectProviderResponse
-> RemoveClientIDFromOpenIDConnectProviderResponse -> Bool
$c== :: RemoveClientIDFromOpenIDConnectProviderResponse
-> RemoveClientIDFromOpenIDConnectProviderResponse -> Bool
Prelude.Eq, ReadPrec [RemoveClientIDFromOpenIDConnectProviderResponse]
ReadPrec RemoveClientIDFromOpenIDConnectProviderResponse
Int -> ReadS RemoveClientIDFromOpenIDConnectProviderResponse
ReadS [RemoveClientIDFromOpenIDConnectProviderResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RemoveClientIDFromOpenIDConnectProviderResponse]
$creadListPrec :: ReadPrec [RemoveClientIDFromOpenIDConnectProviderResponse]
readPrec :: ReadPrec RemoveClientIDFromOpenIDConnectProviderResponse
$creadPrec :: ReadPrec RemoveClientIDFromOpenIDConnectProviderResponse
readList :: ReadS [RemoveClientIDFromOpenIDConnectProviderResponse]
$creadList :: ReadS [RemoveClientIDFromOpenIDConnectProviderResponse]
readsPrec :: Int -> ReadS RemoveClientIDFromOpenIDConnectProviderResponse
$creadsPrec :: Int -> ReadS RemoveClientIDFromOpenIDConnectProviderResponse
Prelude.Read, Int -> RemoveClientIDFromOpenIDConnectProviderResponse -> ShowS
[RemoveClientIDFromOpenIDConnectProviderResponse] -> ShowS
RemoveClientIDFromOpenIDConnectProviderResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RemoveClientIDFromOpenIDConnectProviderResponse] -> ShowS
$cshowList :: [RemoveClientIDFromOpenIDConnectProviderResponse] -> ShowS
show :: RemoveClientIDFromOpenIDConnectProviderResponse -> String
$cshow :: RemoveClientIDFromOpenIDConnectProviderResponse -> String
showsPrec :: Int -> RemoveClientIDFromOpenIDConnectProviderResponse -> ShowS
$cshowsPrec :: Int -> RemoveClientIDFromOpenIDConnectProviderResponse -> ShowS
Prelude.Show, forall x.
Rep RemoveClientIDFromOpenIDConnectProviderResponse x
-> RemoveClientIDFromOpenIDConnectProviderResponse
forall x.
RemoveClientIDFromOpenIDConnectProviderResponse
-> Rep RemoveClientIDFromOpenIDConnectProviderResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RemoveClientIDFromOpenIDConnectProviderResponse x
-> RemoveClientIDFromOpenIDConnectProviderResponse
$cfrom :: forall x.
RemoveClientIDFromOpenIDConnectProviderResponse
-> Rep RemoveClientIDFromOpenIDConnectProviderResponse x
Prelude.Generic)
newRemoveClientIDFromOpenIDConnectProviderResponse ::
RemoveClientIDFromOpenIDConnectProviderResponse
newRemoveClientIDFromOpenIDConnectProviderResponse :: RemoveClientIDFromOpenIDConnectProviderResponse
newRemoveClientIDFromOpenIDConnectProviderResponse =
RemoveClientIDFromOpenIDConnectProviderResponse
RemoveClientIDFromOpenIDConnectProviderResponse'
instance
Prelude.NFData
RemoveClientIDFromOpenIDConnectProviderResponse
where
rnf :: RemoveClientIDFromOpenIDConnectProviderResponse -> ()
rnf RemoveClientIDFromOpenIDConnectProviderResponse
_ = ()