module Network.AWS.IAM.RemoveClientIDFromOpenIDConnectProvider
(
RemoveClientIDFromOpenIDConnectProvider
, removeClientIDFromOpenIDConnectProvider
, rcidfoidcpClientID
, rcidfoidcpOpenIDConnectProviderArn
, RemoveClientIDFromOpenIDConnectProviderResponse
, removeClientIDFromOpenIDConnectProviderResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
data RemoveClientIDFromOpenIDConnectProvider = RemoveClientIDFromOpenIDConnectProvider
{ _rcidfoidcpClientID :: Text
, _rcidfoidcpOpenIDConnectProviderArn :: Text
} deriving (Eq, Ord, Read, Show)
removeClientIDFromOpenIDConnectProvider :: Text
-> Text
-> RemoveClientIDFromOpenIDConnectProvider
removeClientIDFromOpenIDConnectProvider p1 p2 = RemoveClientIDFromOpenIDConnectProvider
{ _rcidfoidcpOpenIDConnectProviderArn = p1
, _rcidfoidcpClientID = p2
}
rcidfoidcpClientID :: Lens' RemoveClientIDFromOpenIDConnectProvider Text
rcidfoidcpClientID =
lens _rcidfoidcpClientID (\s a -> s { _rcidfoidcpClientID = a })
rcidfoidcpOpenIDConnectProviderArn :: Lens' RemoveClientIDFromOpenIDConnectProvider Text
rcidfoidcpOpenIDConnectProviderArn =
lens _rcidfoidcpOpenIDConnectProviderArn
(\s a -> s { _rcidfoidcpOpenIDConnectProviderArn = a })
data RemoveClientIDFromOpenIDConnectProviderResponse = RemoveClientIDFromOpenIDConnectProviderResponse
deriving (Eq, Ord, Read, Show, Generic)
removeClientIDFromOpenIDConnectProviderResponse :: RemoveClientIDFromOpenIDConnectProviderResponse
removeClientIDFromOpenIDConnectProviderResponse = RemoveClientIDFromOpenIDConnectProviderResponse
instance ToPath RemoveClientIDFromOpenIDConnectProvider where
toPath = const "/"
instance ToQuery RemoveClientIDFromOpenIDConnectProvider where
toQuery RemoveClientIDFromOpenIDConnectProvider{..} = mconcat
[ "ClientID" =? _rcidfoidcpClientID
, "OpenIDConnectProviderArn" =? _rcidfoidcpOpenIDConnectProviderArn
]
instance ToHeaders RemoveClientIDFromOpenIDConnectProvider
instance AWSRequest RemoveClientIDFromOpenIDConnectProvider where
type Sv RemoveClientIDFromOpenIDConnectProvider = IAM
type Rs RemoveClientIDFromOpenIDConnectProvider = RemoveClientIDFromOpenIDConnectProviderResponse
request = post "RemoveClientIDFromOpenIDConnectProvider"
response = nullResponse RemoveClientIDFromOpenIDConnectProviderResponse