module Network.Google.Resource.Container.Projects.Zones.Clusters.List
(
ProjectsZonesClustersListResource
, projectsZonesClustersList
, ProjectsZonesClustersList
, pzclXgafv
, pzclUploadProtocol
, pzclPp
, pzclAccessToken
, pzclUploadType
, pzclZone
, pzclBearerToken
, pzclProjectId
, pzclCallback
) where
import Network.Google.Container.Types
import Network.Google.Prelude
type ProjectsZonesClustersListResource =
"v1" :>
"projects" :>
Capture "projectId" Text :>
"zones" :>
Capture "zone" Text :>
"clusters" :>
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] ListClustersResponse
data ProjectsZonesClustersList = ProjectsZonesClustersList'
{ _pzclXgafv :: !(Maybe Text)
, _pzclUploadProtocol :: !(Maybe Text)
, _pzclPp :: !Bool
, _pzclAccessToken :: !(Maybe Text)
, _pzclUploadType :: !(Maybe Text)
, _pzclZone :: !Text
, _pzclBearerToken :: !(Maybe Text)
, _pzclProjectId :: !Text
, _pzclCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsZonesClustersList
:: Text
-> Text
-> ProjectsZonesClustersList
projectsZonesClustersList pPzclZone_ pPzclProjectId_ =
ProjectsZonesClustersList'
{ _pzclXgafv = Nothing
, _pzclUploadProtocol = Nothing
, _pzclPp = True
, _pzclAccessToken = Nothing
, _pzclUploadType = Nothing
, _pzclZone = pPzclZone_
, _pzclBearerToken = Nothing
, _pzclProjectId = pPzclProjectId_
, _pzclCallback = Nothing
}
pzclXgafv :: Lens' ProjectsZonesClustersList (Maybe Text)
pzclXgafv
= lens _pzclXgafv (\ s a -> s{_pzclXgafv = a})
pzclUploadProtocol :: Lens' ProjectsZonesClustersList (Maybe Text)
pzclUploadProtocol
= lens _pzclUploadProtocol
(\ s a -> s{_pzclUploadProtocol = a})
pzclPp :: Lens' ProjectsZonesClustersList Bool
pzclPp = lens _pzclPp (\ s a -> s{_pzclPp = a})
pzclAccessToken :: Lens' ProjectsZonesClustersList (Maybe Text)
pzclAccessToken
= lens _pzclAccessToken
(\ s a -> s{_pzclAccessToken = a})
pzclUploadType :: Lens' ProjectsZonesClustersList (Maybe Text)
pzclUploadType
= lens _pzclUploadType
(\ s a -> s{_pzclUploadType = a})
pzclZone :: Lens' ProjectsZonesClustersList Text
pzclZone = lens _pzclZone (\ s a -> s{_pzclZone = a})
pzclBearerToken :: Lens' ProjectsZonesClustersList (Maybe Text)
pzclBearerToken
= lens _pzclBearerToken
(\ s a -> s{_pzclBearerToken = a})
pzclProjectId :: Lens' ProjectsZonesClustersList Text
pzclProjectId
= lens _pzclProjectId
(\ s a -> s{_pzclProjectId = a})
pzclCallback :: Lens' ProjectsZonesClustersList (Maybe Text)
pzclCallback
= lens _pzclCallback (\ s a -> s{_pzclCallback = a})
instance GoogleRequest ProjectsZonesClustersList
where
type Rs ProjectsZonesClustersList =
ListClustersResponse
type Scopes ProjectsZonesClustersList =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsZonesClustersList'{..}
= go _pzclProjectId _pzclZone _pzclXgafv
_pzclUploadProtocol
(Just _pzclPp)
_pzclAccessToken
_pzclUploadType
_pzclBearerToken
_pzclCallback
(Just AltJSON)
containerService
where go
= buildClient
(Proxy :: Proxy ProjectsZonesClustersListResource)
mempty