{-# 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.AddClientIDToOpenIDConnectProvider
(
AddClientIDToOpenIDConnectProvider (..),
newAddClientIDToOpenIDConnectProvider,
addClientIDToOpenIDConnectProvider_openIDConnectProviderArn,
addClientIDToOpenIDConnectProvider_clientID,
AddClientIDToOpenIDConnectProviderResponse (..),
newAddClientIDToOpenIDConnectProviderResponse,
)
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 AddClientIDToOpenIDConnectProvider = AddClientIDToOpenIDConnectProvider'
{
AddClientIDToOpenIDConnectProvider -> Text
openIDConnectProviderArn :: Prelude.Text,
AddClientIDToOpenIDConnectProvider -> Text
clientID :: Prelude.Text
}
deriving (AddClientIDToOpenIDConnectProvider
-> AddClientIDToOpenIDConnectProvider -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AddClientIDToOpenIDConnectProvider
-> AddClientIDToOpenIDConnectProvider -> Bool
$c/= :: AddClientIDToOpenIDConnectProvider
-> AddClientIDToOpenIDConnectProvider -> Bool
== :: AddClientIDToOpenIDConnectProvider
-> AddClientIDToOpenIDConnectProvider -> Bool
$c== :: AddClientIDToOpenIDConnectProvider
-> AddClientIDToOpenIDConnectProvider -> Bool
Prelude.Eq, ReadPrec [AddClientIDToOpenIDConnectProvider]
ReadPrec AddClientIDToOpenIDConnectProvider
Int -> ReadS AddClientIDToOpenIDConnectProvider
ReadS [AddClientIDToOpenIDConnectProvider]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AddClientIDToOpenIDConnectProvider]
$creadListPrec :: ReadPrec [AddClientIDToOpenIDConnectProvider]
readPrec :: ReadPrec AddClientIDToOpenIDConnectProvider
$creadPrec :: ReadPrec AddClientIDToOpenIDConnectProvider
readList :: ReadS [AddClientIDToOpenIDConnectProvider]
$creadList :: ReadS [AddClientIDToOpenIDConnectProvider]
readsPrec :: Int -> ReadS AddClientIDToOpenIDConnectProvider
$creadsPrec :: Int -> ReadS AddClientIDToOpenIDConnectProvider
Prelude.Read, Int -> AddClientIDToOpenIDConnectProvider -> ShowS
[AddClientIDToOpenIDConnectProvider] -> ShowS
AddClientIDToOpenIDConnectProvider -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AddClientIDToOpenIDConnectProvider] -> ShowS
$cshowList :: [AddClientIDToOpenIDConnectProvider] -> ShowS
show :: AddClientIDToOpenIDConnectProvider -> String
$cshow :: AddClientIDToOpenIDConnectProvider -> String
showsPrec :: Int -> AddClientIDToOpenIDConnectProvider -> ShowS
$cshowsPrec :: Int -> AddClientIDToOpenIDConnectProvider -> ShowS
Prelude.Show, forall x.
Rep AddClientIDToOpenIDConnectProvider x
-> AddClientIDToOpenIDConnectProvider
forall x.
AddClientIDToOpenIDConnectProvider
-> Rep AddClientIDToOpenIDConnectProvider x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AddClientIDToOpenIDConnectProvider x
-> AddClientIDToOpenIDConnectProvider
$cfrom :: forall x.
AddClientIDToOpenIDConnectProvider
-> Rep AddClientIDToOpenIDConnectProvider x
Prelude.Generic)
newAddClientIDToOpenIDConnectProvider ::
Prelude.Text ->
Prelude.Text ->
AddClientIDToOpenIDConnectProvider
newAddClientIDToOpenIDConnectProvider :: Text -> Text -> AddClientIDToOpenIDConnectProvider
newAddClientIDToOpenIDConnectProvider
Text
pOpenIDConnectProviderArn_
Text
pClientID_ =
AddClientIDToOpenIDConnectProvider'
{ $sel:openIDConnectProviderArn:AddClientIDToOpenIDConnectProvider' :: Text
openIDConnectProviderArn =
Text
pOpenIDConnectProviderArn_,
$sel:clientID:AddClientIDToOpenIDConnectProvider' :: Text
clientID = Text
pClientID_
}
addClientIDToOpenIDConnectProvider_openIDConnectProviderArn :: Lens.Lens' AddClientIDToOpenIDConnectProvider Prelude.Text
addClientIDToOpenIDConnectProvider_openIDConnectProviderArn :: Lens' AddClientIDToOpenIDConnectProvider Text
addClientIDToOpenIDConnectProvider_openIDConnectProviderArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddClientIDToOpenIDConnectProvider' {Text
openIDConnectProviderArn :: Text
$sel:openIDConnectProviderArn:AddClientIDToOpenIDConnectProvider' :: AddClientIDToOpenIDConnectProvider -> Text
openIDConnectProviderArn} -> Text
openIDConnectProviderArn) (\s :: AddClientIDToOpenIDConnectProvider
s@AddClientIDToOpenIDConnectProvider' {} Text
a -> AddClientIDToOpenIDConnectProvider
s {$sel:openIDConnectProviderArn:AddClientIDToOpenIDConnectProvider' :: Text
openIDConnectProviderArn = Text
a} :: AddClientIDToOpenIDConnectProvider)
addClientIDToOpenIDConnectProvider_clientID :: Lens.Lens' AddClientIDToOpenIDConnectProvider Prelude.Text
addClientIDToOpenIDConnectProvider_clientID :: Lens' AddClientIDToOpenIDConnectProvider Text
addClientIDToOpenIDConnectProvider_clientID = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddClientIDToOpenIDConnectProvider' {Text
clientID :: Text
$sel:clientID:AddClientIDToOpenIDConnectProvider' :: AddClientIDToOpenIDConnectProvider -> Text
clientID} -> Text
clientID) (\s :: AddClientIDToOpenIDConnectProvider
s@AddClientIDToOpenIDConnectProvider' {} Text
a -> AddClientIDToOpenIDConnectProvider
s {$sel:clientID:AddClientIDToOpenIDConnectProvider' :: Text
clientID = Text
a} :: AddClientIDToOpenIDConnectProvider)
instance
Core.AWSRequest
AddClientIDToOpenIDConnectProvider
where
type
AWSResponse AddClientIDToOpenIDConnectProvider =
AddClientIDToOpenIDConnectProviderResponse
request :: (Service -> Service)
-> AddClientIDToOpenIDConnectProvider
-> Request AddClientIDToOpenIDConnectProvider
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 AddClientIDToOpenIDConnectProvider
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse AddClientIDToOpenIDConnectProvider)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
AddClientIDToOpenIDConnectProviderResponse
AddClientIDToOpenIDConnectProviderResponse'
instance
Prelude.Hashable
AddClientIDToOpenIDConnectProvider
where
hashWithSalt :: Int -> AddClientIDToOpenIDConnectProvider -> Int
hashWithSalt
Int
_salt
AddClientIDToOpenIDConnectProvider' {Text
clientID :: Text
openIDConnectProviderArn :: Text
$sel:clientID:AddClientIDToOpenIDConnectProvider' :: AddClientIDToOpenIDConnectProvider -> Text
$sel:openIDConnectProviderArn:AddClientIDToOpenIDConnectProvider' :: AddClientIDToOpenIDConnectProvider -> 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
AddClientIDToOpenIDConnectProvider
where
rnf :: AddClientIDToOpenIDConnectProvider -> ()
rnf AddClientIDToOpenIDConnectProvider' {Text
clientID :: Text
openIDConnectProviderArn :: Text
$sel:clientID:AddClientIDToOpenIDConnectProvider' :: AddClientIDToOpenIDConnectProvider -> Text
$sel:openIDConnectProviderArn:AddClientIDToOpenIDConnectProvider' :: AddClientIDToOpenIDConnectProvider -> 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
AddClientIDToOpenIDConnectProvider
where
toHeaders :: AddClientIDToOpenIDConnectProvider -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
AddClientIDToOpenIDConnectProvider
where
toPath :: AddClientIDToOpenIDConnectProvider -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
AddClientIDToOpenIDConnectProvider
where
toQuery :: AddClientIDToOpenIDConnectProvider -> QueryString
toQuery AddClientIDToOpenIDConnectProvider' {Text
clientID :: Text
openIDConnectProviderArn :: Text
$sel:clientID:AddClientIDToOpenIDConnectProvider' :: AddClientIDToOpenIDConnectProvider -> Text
$sel:openIDConnectProviderArn:AddClientIDToOpenIDConnectProvider' :: AddClientIDToOpenIDConnectProvider -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"AddClientIDToOpenIDConnectProvider" ::
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 AddClientIDToOpenIDConnectProviderResponse = AddClientIDToOpenIDConnectProviderResponse'
{
}
deriving (AddClientIDToOpenIDConnectProviderResponse
-> AddClientIDToOpenIDConnectProviderResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AddClientIDToOpenIDConnectProviderResponse
-> AddClientIDToOpenIDConnectProviderResponse -> Bool
$c/= :: AddClientIDToOpenIDConnectProviderResponse
-> AddClientIDToOpenIDConnectProviderResponse -> Bool
== :: AddClientIDToOpenIDConnectProviderResponse
-> AddClientIDToOpenIDConnectProviderResponse -> Bool
$c== :: AddClientIDToOpenIDConnectProviderResponse
-> AddClientIDToOpenIDConnectProviderResponse -> Bool
Prelude.Eq, ReadPrec [AddClientIDToOpenIDConnectProviderResponse]
ReadPrec AddClientIDToOpenIDConnectProviderResponse
Int -> ReadS AddClientIDToOpenIDConnectProviderResponse
ReadS [AddClientIDToOpenIDConnectProviderResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AddClientIDToOpenIDConnectProviderResponse]
$creadListPrec :: ReadPrec [AddClientIDToOpenIDConnectProviderResponse]
readPrec :: ReadPrec AddClientIDToOpenIDConnectProviderResponse
$creadPrec :: ReadPrec AddClientIDToOpenIDConnectProviderResponse
readList :: ReadS [AddClientIDToOpenIDConnectProviderResponse]
$creadList :: ReadS [AddClientIDToOpenIDConnectProviderResponse]
readsPrec :: Int -> ReadS AddClientIDToOpenIDConnectProviderResponse
$creadsPrec :: Int -> ReadS AddClientIDToOpenIDConnectProviderResponse
Prelude.Read, Int -> AddClientIDToOpenIDConnectProviderResponse -> ShowS
[AddClientIDToOpenIDConnectProviderResponse] -> ShowS
AddClientIDToOpenIDConnectProviderResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AddClientIDToOpenIDConnectProviderResponse] -> ShowS
$cshowList :: [AddClientIDToOpenIDConnectProviderResponse] -> ShowS
show :: AddClientIDToOpenIDConnectProviderResponse -> String
$cshow :: AddClientIDToOpenIDConnectProviderResponse -> String
showsPrec :: Int -> AddClientIDToOpenIDConnectProviderResponse -> ShowS
$cshowsPrec :: Int -> AddClientIDToOpenIDConnectProviderResponse -> ShowS
Prelude.Show, forall x.
Rep AddClientIDToOpenIDConnectProviderResponse x
-> AddClientIDToOpenIDConnectProviderResponse
forall x.
AddClientIDToOpenIDConnectProviderResponse
-> Rep AddClientIDToOpenIDConnectProviderResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AddClientIDToOpenIDConnectProviderResponse x
-> AddClientIDToOpenIDConnectProviderResponse
$cfrom :: forall x.
AddClientIDToOpenIDConnectProviderResponse
-> Rep AddClientIDToOpenIDConnectProviderResponse x
Prelude.Generic)
newAddClientIDToOpenIDConnectProviderResponse ::
AddClientIDToOpenIDConnectProviderResponse
newAddClientIDToOpenIDConnectProviderResponse :: AddClientIDToOpenIDConnectProviderResponse
newAddClientIDToOpenIDConnectProviderResponse =
AddClientIDToOpenIDConnectProviderResponse
AddClientIDToOpenIDConnectProviderResponse'
instance
Prelude.NFData
AddClientIDToOpenIDConnectProviderResponse
where
rnf :: AddClientIDToOpenIDConnectProviderResponse -> ()
rnf AddClientIDToOpenIDConnectProviderResponse
_ = ()