{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.IAM.AddClientIdToOpenIdConnectProvider
(
addClientIdToOpenIdConnectProvider
, AddClientIdToOpenIdConnectProvider
, acitoicpOpenIdConnectProviderARN
, acitoicpClientId
, addClientIdToOpenIdConnectProviderResponse
, AddClientIdToOpenIdConnectProviderResponse
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data AddClientIdToOpenIdConnectProvider = AddClientIdToOpenIdConnectProvider'
{ _acitoicpOpenIdConnectProviderARN :: !Text
, _acitoicpClientId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
addClientIdToOpenIdConnectProvider
:: Text
-> Text
-> AddClientIdToOpenIdConnectProvider
addClientIdToOpenIdConnectProvider pOpenIdConnectProviderARN_ pClientId_ =
AddClientIdToOpenIdConnectProvider'
{ _acitoicpOpenIdConnectProviderARN = pOpenIdConnectProviderARN_
, _acitoicpClientId = pClientId_
}
acitoicpOpenIdConnectProviderARN :: Lens' AddClientIdToOpenIdConnectProvider Text
acitoicpOpenIdConnectProviderARN = lens _acitoicpOpenIdConnectProviderARN (\ s a -> s{_acitoicpOpenIdConnectProviderARN = a});
acitoicpClientId :: Lens' AddClientIdToOpenIdConnectProvider Text
acitoicpClientId = lens _acitoicpClientId (\ s a -> s{_acitoicpClientId = a});
instance AWSRequest
AddClientIdToOpenIdConnectProvider where
type Rs AddClientIdToOpenIdConnectProvider =
AddClientIdToOpenIdConnectProviderResponse
request = postQuery iam
response
= receiveNull
AddClientIdToOpenIdConnectProviderResponse'
instance Hashable AddClientIdToOpenIdConnectProvider
instance NFData AddClientIdToOpenIdConnectProvider
instance ToHeaders AddClientIdToOpenIdConnectProvider
where
toHeaders = const mempty
instance ToPath AddClientIdToOpenIdConnectProvider
where
toPath = const "/"
instance ToQuery AddClientIdToOpenIdConnectProvider
where
toQuery AddClientIdToOpenIdConnectProvider'{..}
= mconcat
["Action" =:
("AddClientIDToOpenIDConnectProvider" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"OpenIDConnectProviderArn" =:
_acitoicpOpenIdConnectProviderARN,
"ClientID" =: _acitoicpClientId]
data AddClientIdToOpenIdConnectProviderResponse =
AddClientIdToOpenIdConnectProviderResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
addClientIdToOpenIdConnectProviderResponse
:: AddClientIdToOpenIdConnectProviderResponse
addClientIdToOpenIdConnectProviderResponse =
AddClientIdToOpenIdConnectProviderResponse'
instance NFData
AddClientIdToOpenIdConnectProviderResponse