module Network.AWS.IAM.AddClientIDToOpenIDConnectProvider
(
AddClientIDToOpenIDConnectProvider
, addClientIDToOpenIDConnectProvider
, acidtoidcpClientID
, acidtoidcpOpenIDConnectProviderArn
, AddClientIDToOpenIDConnectProviderResponse
, addClientIDToOpenIDConnectProviderResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
data AddClientIDToOpenIDConnectProvider = AddClientIDToOpenIDConnectProvider
{ _acidtoidcpClientID :: Text
, _acidtoidcpOpenIDConnectProviderArn :: Text
} deriving (Eq, Ord, Read, Show)
addClientIDToOpenIDConnectProvider :: Text
-> Text
-> AddClientIDToOpenIDConnectProvider
addClientIDToOpenIDConnectProvider p1 p2 = AddClientIDToOpenIDConnectProvider
{ _acidtoidcpOpenIDConnectProviderArn = p1
, _acidtoidcpClientID = p2
}
acidtoidcpClientID :: Lens' AddClientIDToOpenIDConnectProvider Text
acidtoidcpClientID =
lens _acidtoidcpClientID (\s a -> s { _acidtoidcpClientID = a })
acidtoidcpOpenIDConnectProviderArn :: Lens' AddClientIDToOpenIDConnectProvider Text
acidtoidcpOpenIDConnectProviderArn =
lens _acidtoidcpOpenIDConnectProviderArn
(\s a -> s { _acidtoidcpOpenIDConnectProviderArn = a })
data AddClientIDToOpenIDConnectProviderResponse = AddClientIDToOpenIDConnectProviderResponse
deriving (Eq, Ord, Read, Show, Generic)
addClientIDToOpenIDConnectProviderResponse :: AddClientIDToOpenIDConnectProviderResponse
addClientIDToOpenIDConnectProviderResponse = AddClientIDToOpenIDConnectProviderResponse
instance ToPath AddClientIDToOpenIDConnectProvider where
toPath = const "/"
instance ToQuery AddClientIDToOpenIDConnectProvider where
toQuery AddClientIDToOpenIDConnectProvider{..} = mconcat
[ "ClientID" =? _acidtoidcpClientID
, "OpenIDConnectProviderArn" =? _acidtoidcpOpenIDConnectProviderArn
]
instance ToHeaders AddClientIDToOpenIDConnectProvider
instance AWSRequest AddClientIDToOpenIDConnectProvider where
type Sv AddClientIDToOpenIDConnectProvider = IAM
type Rs AddClientIDToOpenIDConnectProvider = AddClientIDToOpenIDConnectProviderResponse
request = post "AddClientIDToOpenIDConnectProvider"
response = nullResponse AddClientIDToOpenIDConnectProviderResponse