{-# 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.NodePools.Get
(
ProjectsLocationsClustersNodePoolsGetResource
, projectsLocationsClustersNodePoolsGet
, ProjectsLocationsClustersNodePoolsGet
, plcnpgXgafv
, plcnpgUploadProtocol
, plcnpgAccessToken
, plcnpgUploadType
, plcnpgZone
, plcnpgNodePoolId
, plcnpgName
, plcnpgClusterId
, plcnpgProjectId
, plcnpgCallback
) where
import Network.Google.Container.Types
import Network.Google.Prelude
type ProjectsLocationsClustersNodePoolsGetResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "zone" Text :>
QueryParam "nodePoolId" Text :>
QueryParam "clusterId" Text :>
QueryParam "projectId" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] NodePool
data ProjectsLocationsClustersNodePoolsGet = ProjectsLocationsClustersNodePoolsGet'
{ _plcnpgXgafv :: !(Maybe Xgafv)
, _plcnpgUploadProtocol :: !(Maybe Text)
, _plcnpgAccessToken :: !(Maybe Text)
, _plcnpgUploadType :: !(Maybe Text)
, _plcnpgZone :: !(Maybe Text)
, _plcnpgNodePoolId :: !(Maybe Text)
, _plcnpgName :: !Text
, _plcnpgClusterId :: !(Maybe Text)
, _plcnpgProjectId :: !(Maybe Text)
, _plcnpgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsLocationsClustersNodePoolsGet
:: Text
-> ProjectsLocationsClustersNodePoolsGet
projectsLocationsClustersNodePoolsGet pPlcnpgName_ =
ProjectsLocationsClustersNodePoolsGet'
{ _plcnpgXgafv = Nothing
, _plcnpgUploadProtocol = Nothing
, _plcnpgAccessToken = Nothing
, _plcnpgUploadType = Nothing
, _plcnpgZone = Nothing
, _plcnpgNodePoolId = Nothing
, _plcnpgName = pPlcnpgName_
, _plcnpgClusterId = Nothing
, _plcnpgProjectId = Nothing
, _plcnpgCallback = Nothing
}
plcnpgXgafv :: Lens' ProjectsLocationsClustersNodePoolsGet (Maybe Xgafv)
plcnpgXgafv
= lens _plcnpgXgafv (\ s a -> s{_plcnpgXgafv = a})
plcnpgUploadProtocol :: Lens' ProjectsLocationsClustersNodePoolsGet (Maybe Text)
plcnpgUploadProtocol
= lens _plcnpgUploadProtocol
(\ s a -> s{_plcnpgUploadProtocol = a})
plcnpgAccessToken :: Lens' ProjectsLocationsClustersNodePoolsGet (Maybe Text)
plcnpgAccessToken
= lens _plcnpgAccessToken
(\ s a -> s{_plcnpgAccessToken = a})
plcnpgUploadType :: Lens' ProjectsLocationsClustersNodePoolsGet (Maybe Text)
plcnpgUploadType
= lens _plcnpgUploadType
(\ s a -> s{_plcnpgUploadType = a})
plcnpgZone :: Lens' ProjectsLocationsClustersNodePoolsGet (Maybe Text)
plcnpgZone
= lens _plcnpgZone (\ s a -> s{_plcnpgZone = a})
plcnpgNodePoolId :: Lens' ProjectsLocationsClustersNodePoolsGet (Maybe Text)
plcnpgNodePoolId
= lens _plcnpgNodePoolId
(\ s a -> s{_plcnpgNodePoolId = a})
plcnpgName :: Lens' ProjectsLocationsClustersNodePoolsGet Text
plcnpgName
= lens _plcnpgName (\ s a -> s{_plcnpgName = a})
plcnpgClusterId :: Lens' ProjectsLocationsClustersNodePoolsGet (Maybe Text)
plcnpgClusterId
= lens _plcnpgClusterId
(\ s a -> s{_plcnpgClusterId = a})
plcnpgProjectId :: Lens' ProjectsLocationsClustersNodePoolsGet (Maybe Text)
plcnpgProjectId
= lens _plcnpgProjectId
(\ s a -> s{_plcnpgProjectId = a})
plcnpgCallback :: Lens' ProjectsLocationsClustersNodePoolsGet (Maybe Text)
plcnpgCallback
= lens _plcnpgCallback
(\ s a -> s{_plcnpgCallback = a})
instance GoogleRequest
ProjectsLocationsClustersNodePoolsGet where
type Rs ProjectsLocationsClustersNodePoolsGet =
NodePool
type Scopes ProjectsLocationsClustersNodePoolsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsLocationsClustersNodePoolsGet'{..}
= go _plcnpgName _plcnpgXgafv _plcnpgUploadProtocol
_plcnpgAccessToken
_plcnpgUploadType
_plcnpgZone
_plcnpgNodePoolId
_plcnpgClusterId
_plcnpgProjectId
_plcnpgCallback
(Just AltJSON)
containerService
where go
= buildClient
(Proxy ::
Proxy ProjectsLocationsClustersNodePoolsGetResource)
mempty