{-# 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.RemoveClientIdFromOpenIdConnectProvider
(
removeClientIdFromOpenIdConnectProvider
, RemoveClientIdFromOpenIdConnectProvider
, rcifoicpOpenIdConnectProviderARN
, rcifoicpClientId
, removeClientIdFromOpenIdConnectProviderResponse
, RemoveClientIdFromOpenIdConnectProviderResponse
) 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 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 Rs RemoveClientIdFromOpenIdConnectProvider =
RemoveClientIdFromOpenIdConnectProviderResponse
request = postQuery iam
response
= receiveNull
RemoveClientIdFromOpenIdConnectProviderResponse'
instance Hashable
RemoveClientIdFromOpenIdConnectProvider
where
instance NFData
RemoveClientIdFromOpenIdConnectProvider
where
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'
instance NFData
RemoveClientIdFromOpenIdConnectProviderResponse
where