module Network.AWS.IAM.RemoveClientIdFromOpenIdConnectProvider
(
removeClientIdFromOpenIdConnectProvider
, RemoveClientIdFromOpenIdConnectProvider
, rcifoicpOpenIdConnectProviderARN
, rcifoicpClientId
, removeClientIdFromOpenIdConnectProviderResponse
, RemoveClientIdFromOpenIdConnectProviderResponse
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data RemoveClientIdFromOpenIdConnectProvider = RemoveClientIdFromOpenIdConnectProvider'
{ _rcifoicpOpenIdConnectProviderARN :: !Text
, _rcifoicpClientId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
removeClientIdFromOpenIdConnectProvider
:: Text
-> Text
-> RemoveClientIdFromOpenIdConnectProvider
removeClientIdFromOpenIdConnectProvider pOpenIdConnectProviderARN_ pClientId_ =
RemoveClientIdFromOpenIdConnectProvider'
{ _rcifoicpOpenIdConnectProviderARN = pOpenIdConnectProviderARN_
, _rcifoicpClientId = pClientId_
}
rcifoicpOpenIdConnectProviderARN :: Lens' RemoveClientIdFromOpenIdConnectProvider Text
rcifoicpOpenIdConnectProviderARN = lens _rcifoicpOpenIdConnectProviderARN (\ s a -> s{_rcifoicpOpenIdConnectProviderARN = a});
rcifoicpClientId :: Lens' RemoveClientIdFromOpenIdConnectProvider Text
rcifoicpClientId = lens _rcifoicpClientId (\ s a -> s{_rcifoicpClientId = a});
instance AWSRequest
RemoveClientIdFromOpenIdConnectProvider where
type Sv RemoveClientIdFromOpenIdConnectProvider = IAM
type Rs RemoveClientIdFromOpenIdConnectProvider =
RemoveClientIdFromOpenIdConnectProviderResponse
request = postQuery
response
= receiveNull
RemoveClientIdFromOpenIdConnectProviderResponse'
instance ToHeaders
RemoveClientIdFromOpenIdConnectProvider where
toHeaders = const mempty
instance ToPath
RemoveClientIdFromOpenIdConnectProvider where
toPath = const "/"
instance ToQuery
RemoveClientIdFromOpenIdConnectProvider where
toQuery RemoveClientIdFromOpenIdConnectProvider'{..}
= mconcat
["Action" =:
("RemoveClientIDFromOpenIDConnectProvider" ::
ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"OpenIDConnectProviderArn" =:
_rcifoicpOpenIdConnectProviderARN,
"ClientID" =: _rcifoicpClientId]
data RemoveClientIdFromOpenIdConnectProviderResponse =
RemoveClientIdFromOpenIdConnectProviderResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
removeClientIdFromOpenIdConnectProviderResponse
:: RemoveClientIdFromOpenIdConnectProviderResponse
removeClientIdFromOpenIdConnectProviderResponse =
RemoveClientIdFromOpenIdConnectProviderResponse'