{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Container.Projects.Locations.Clusters.GetJWKs
(
ProjectsLocationsClustersGetJWKsResource
, projectsLocationsClustersGetJWKs
, ProjectsLocationsClustersGetJWKs
, plcgjParent
, plcgjXgafv
, plcgjUploadProtocol
, plcgjAccessToken
, plcgjUploadType
, plcgjCallback
) where
import Network.Google.Container.Types
import Network.Google.Prelude
type ProjectsLocationsClustersGetJWKsResource =
"v1" :>
Capture "parent" Text :>
"jwks" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] GetJSONWebKeysResponse
data ProjectsLocationsClustersGetJWKs =
ProjectsLocationsClustersGetJWKs'
{ _plcgjParent :: !Text
, _plcgjXgafv :: !(Maybe Xgafv)
, _plcgjUploadProtocol :: !(Maybe Text)
, _plcgjAccessToken :: !(Maybe Text)
, _plcgjUploadType :: !(Maybe Text)
, _plcgjCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsLocationsClustersGetJWKs
:: Text
-> ProjectsLocationsClustersGetJWKs
projectsLocationsClustersGetJWKs pPlcgjParent_ =
ProjectsLocationsClustersGetJWKs'
{ _plcgjParent = pPlcgjParent_
, _plcgjXgafv = Nothing
, _plcgjUploadProtocol = Nothing
, _plcgjAccessToken = Nothing
, _plcgjUploadType = Nothing
, _plcgjCallback = Nothing
}
plcgjParent :: Lens' ProjectsLocationsClustersGetJWKs Text
plcgjParent
= lens _plcgjParent (\ s a -> s{_plcgjParent = a})
plcgjXgafv :: Lens' ProjectsLocationsClustersGetJWKs (Maybe Xgafv)
plcgjXgafv
= lens _plcgjXgafv (\ s a -> s{_plcgjXgafv = a})
plcgjUploadProtocol :: Lens' ProjectsLocationsClustersGetJWKs (Maybe Text)
plcgjUploadProtocol
= lens _plcgjUploadProtocol
(\ s a -> s{_plcgjUploadProtocol = a})
plcgjAccessToken :: Lens' ProjectsLocationsClustersGetJWKs (Maybe Text)
plcgjAccessToken
= lens _plcgjAccessToken
(\ s a -> s{_plcgjAccessToken = a})
plcgjUploadType :: Lens' ProjectsLocationsClustersGetJWKs (Maybe Text)
plcgjUploadType
= lens _plcgjUploadType
(\ s a -> s{_plcgjUploadType = a})
plcgjCallback :: Lens' ProjectsLocationsClustersGetJWKs (Maybe Text)
plcgjCallback
= lens _plcgjCallback
(\ s a -> s{_plcgjCallback = a})
instance GoogleRequest
ProjectsLocationsClustersGetJWKs
where
type Rs ProjectsLocationsClustersGetJWKs =
GetJSONWebKeysResponse
type Scopes ProjectsLocationsClustersGetJWKs =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsLocationsClustersGetJWKs'{..}
= go _plcgjParent _plcgjXgafv _plcgjUploadProtocol
_plcgjAccessToken
_plcgjUploadType
_plcgjCallback
(Just AltJSON)
containerService
where go
= buildClient
(Proxy ::
Proxy ProjectsLocationsClustersGetJWKsResource)
mempty