module Network.Google.Resource.Container.Projects.Zones.Clusters.Get
(
ProjectsZonesClustersGetResource
, projectsZonesClustersGet
, ProjectsZonesClustersGet
, pzcgXgafv
, pzcgUploadProtocol
, pzcgPp
, pzcgAccessToken
, pzcgUploadType
, pzcgZone
, pzcgBearerToken
, pzcgClusterId
, pzcgProjectId
, pzcgCallback
) where
import Network.Google.Container.Types
import Network.Google.Prelude
type ProjectsZonesClustersGetResource =
"v1" :>
"projects" :>
Capture "projectId" Text :>
"zones" :>
Capture "zone" Text :>
"clusters" :>
Capture "clusterId" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Cluster
data ProjectsZonesClustersGet = ProjectsZonesClustersGet'
{ _pzcgXgafv :: !(Maybe Text)
, _pzcgUploadProtocol :: !(Maybe Text)
, _pzcgPp :: !Bool
, _pzcgAccessToken :: !(Maybe Text)
, _pzcgUploadType :: !(Maybe Text)
, _pzcgZone :: !Text
, _pzcgBearerToken :: !(Maybe Text)
, _pzcgClusterId :: !Text
, _pzcgProjectId :: !Text
, _pzcgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsZonesClustersGet
:: Text
-> Text
-> Text
-> ProjectsZonesClustersGet
projectsZonesClustersGet pPzcgZone_ pPzcgClusterId_ pPzcgProjectId_ =
ProjectsZonesClustersGet'
{ _pzcgXgafv = Nothing
, _pzcgUploadProtocol = Nothing
, _pzcgPp = True
, _pzcgAccessToken = Nothing
, _pzcgUploadType = Nothing
, _pzcgZone = pPzcgZone_
, _pzcgBearerToken = Nothing
, _pzcgClusterId = pPzcgClusterId_
, _pzcgProjectId = pPzcgProjectId_
, _pzcgCallback = Nothing
}
pzcgXgafv :: Lens' ProjectsZonesClustersGet (Maybe Text)
pzcgXgafv
= lens _pzcgXgafv (\ s a -> s{_pzcgXgafv = a})
pzcgUploadProtocol :: Lens' ProjectsZonesClustersGet (Maybe Text)
pzcgUploadProtocol
= lens _pzcgUploadProtocol
(\ s a -> s{_pzcgUploadProtocol = a})
pzcgPp :: Lens' ProjectsZonesClustersGet Bool
pzcgPp = lens _pzcgPp (\ s a -> s{_pzcgPp = a})
pzcgAccessToken :: Lens' ProjectsZonesClustersGet (Maybe Text)
pzcgAccessToken
= lens _pzcgAccessToken
(\ s a -> s{_pzcgAccessToken = a})
pzcgUploadType :: Lens' ProjectsZonesClustersGet (Maybe Text)
pzcgUploadType
= lens _pzcgUploadType
(\ s a -> s{_pzcgUploadType = a})
pzcgZone :: Lens' ProjectsZonesClustersGet Text
pzcgZone = lens _pzcgZone (\ s a -> s{_pzcgZone = a})
pzcgBearerToken :: Lens' ProjectsZonesClustersGet (Maybe Text)
pzcgBearerToken
= lens _pzcgBearerToken
(\ s a -> s{_pzcgBearerToken = a})
pzcgClusterId :: Lens' ProjectsZonesClustersGet Text
pzcgClusterId
= lens _pzcgClusterId
(\ s a -> s{_pzcgClusterId = a})
pzcgProjectId :: Lens' ProjectsZonesClustersGet Text
pzcgProjectId
= lens _pzcgProjectId
(\ s a -> s{_pzcgProjectId = a})
pzcgCallback :: Lens' ProjectsZonesClustersGet (Maybe Text)
pzcgCallback
= lens _pzcgCallback (\ s a -> s{_pzcgCallback = a})
instance GoogleRequest ProjectsZonesClustersGet where
type Rs ProjectsZonesClustersGet = Cluster
type Scopes ProjectsZonesClustersGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsZonesClustersGet'{..}
= go _pzcgProjectId _pzcgZone _pzcgClusterId
_pzcgXgafv
_pzcgUploadProtocol
(Just _pzcgPp)
_pzcgAccessToken
_pzcgUploadType
_pzcgBearerToken
_pzcgCallback
(Just AltJSON)
containerService
where go
= buildClient
(Proxy :: Proxy ProjectsZonesClustersGetResource)
mempty