module Network.Google.Resource.Dataproc.Projects.Regions.Clusters.List
(
ProjectsRegionsClustersListResource
, projectsRegionsClustersList
, ProjectsRegionsClustersList
, prclXgafv
, prclUploadProtocol
, prclPp
, prclAccessToken
, prclUploadType
, prclBearerToken
, prclFilter
, prclRegion
, prclPageToken
, prclProjectId
, prclPageSize
, prclCallback
) where
import Network.Google.Dataproc.Types
import Network.Google.Prelude
type ProjectsRegionsClustersListResource =
"v1" :>
"projects" :>
Capture "projectId" Text :>
"regions" :>
Capture "region" Text :>
"clusters" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "filter" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListClustersResponse
data ProjectsRegionsClustersList = ProjectsRegionsClustersList'
{ _prclXgafv :: !(Maybe Text)
, _prclUploadProtocol :: !(Maybe Text)
, _prclPp :: !Bool
, _prclAccessToken :: !(Maybe Text)
, _prclUploadType :: !(Maybe Text)
, _prclBearerToken :: !(Maybe Text)
, _prclFilter :: !(Maybe Text)
, _prclRegion :: !Text
, _prclPageToken :: !(Maybe Text)
, _prclProjectId :: !Text
, _prclPageSize :: !(Maybe (Textual Int32))
, _prclCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsRegionsClustersList
:: Text
-> Text
-> ProjectsRegionsClustersList
projectsRegionsClustersList pPrclRegion_ pPrclProjectId_ =
ProjectsRegionsClustersList'
{ _prclXgafv = Nothing
, _prclUploadProtocol = Nothing
, _prclPp = True
, _prclAccessToken = Nothing
, _prclUploadType = Nothing
, _prclBearerToken = Nothing
, _prclFilter = Nothing
, _prclRegion = pPrclRegion_
, _prclPageToken = Nothing
, _prclProjectId = pPrclProjectId_
, _prclPageSize = Nothing
, _prclCallback = Nothing
}
prclXgafv :: Lens' ProjectsRegionsClustersList (Maybe Text)
prclXgafv
= lens _prclXgafv (\ s a -> s{_prclXgafv = a})
prclUploadProtocol :: Lens' ProjectsRegionsClustersList (Maybe Text)
prclUploadProtocol
= lens _prclUploadProtocol
(\ s a -> s{_prclUploadProtocol = a})
prclPp :: Lens' ProjectsRegionsClustersList Bool
prclPp = lens _prclPp (\ s a -> s{_prclPp = a})
prclAccessToken :: Lens' ProjectsRegionsClustersList (Maybe Text)
prclAccessToken
= lens _prclAccessToken
(\ s a -> s{_prclAccessToken = a})
prclUploadType :: Lens' ProjectsRegionsClustersList (Maybe Text)
prclUploadType
= lens _prclUploadType
(\ s a -> s{_prclUploadType = a})
prclBearerToken :: Lens' ProjectsRegionsClustersList (Maybe Text)
prclBearerToken
= lens _prclBearerToken
(\ s a -> s{_prclBearerToken = a})
prclFilter :: Lens' ProjectsRegionsClustersList (Maybe Text)
prclFilter
= lens _prclFilter (\ s a -> s{_prclFilter = a})
prclRegion :: Lens' ProjectsRegionsClustersList Text
prclRegion
= lens _prclRegion (\ s a -> s{_prclRegion = a})
prclPageToken :: Lens' ProjectsRegionsClustersList (Maybe Text)
prclPageToken
= lens _prclPageToken
(\ s a -> s{_prclPageToken = a})
prclProjectId :: Lens' ProjectsRegionsClustersList Text
prclProjectId
= lens _prclProjectId
(\ s a -> s{_prclProjectId = a})
prclPageSize :: Lens' ProjectsRegionsClustersList (Maybe Int32)
prclPageSize
= lens _prclPageSize (\ s a -> s{_prclPageSize = a})
. mapping _Coerce
prclCallback :: Lens' ProjectsRegionsClustersList (Maybe Text)
prclCallback
= lens _prclCallback (\ s a -> s{_prclCallback = a})
instance GoogleRequest ProjectsRegionsClustersList
where
type Rs ProjectsRegionsClustersList =
ListClustersResponse
type Scopes ProjectsRegionsClustersList =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsRegionsClustersList'{..}
= go _prclProjectId _prclRegion _prclXgafv
_prclUploadProtocol
(Just _prclPp)
_prclAccessToken
_prclUploadType
_prclBearerToken
_prclFilter
_prclPageToken
_prclPageSize
_prclCallback
(Just AltJSON)
dataprocService
where go
= buildClient
(Proxy :: Proxy ProjectsRegionsClustersListResource)
mempty