module Network.Google.Resource.Dataproc.Projects.Regions.Clusters.Diagnose
(
ProjectsRegionsClustersDiagnoseResource
, projectsRegionsClustersDiagnose
, ProjectsRegionsClustersDiagnose
, pXgafv
, pUploadProtocol
, pPp
, pAccessToken
, pUploadType
, pPayload
, pBearerToken
, pClusterName
, pRegion
, pProjectId
, pCallback
) where
import Network.Google.Dataproc.Types
import Network.Google.Prelude
type ProjectsRegionsClustersDiagnoseResource =
"v1" :>
"projects" :>
Capture "projectId" Text :>
"regions" :>
Capture "region" Text :>
"clusters" :>
CaptureMode "clusterName" "diagnose" 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 :>
ReqBody '[JSON] DiagnoseClusterRequest :>
Post '[JSON] Operation
data ProjectsRegionsClustersDiagnose = ProjectsRegionsClustersDiagnose'
{ _pXgafv :: !(Maybe Text)
, _pUploadProtocol :: !(Maybe Text)
, _pPp :: !Bool
, _pAccessToken :: !(Maybe Text)
, _pUploadType :: !(Maybe Text)
, _pPayload :: !DiagnoseClusterRequest
, _pBearerToken :: !(Maybe Text)
, _pClusterName :: !Text
, _pRegion :: !Text
, _pProjectId :: !Text
, _pCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsRegionsClustersDiagnose
:: DiagnoseClusterRequest
-> Text
-> Text
-> Text
-> ProjectsRegionsClustersDiagnose
projectsRegionsClustersDiagnose pPPayload_ pPClusterName_ pPRegion_ pPProjectId_ =
ProjectsRegionsClustersDiagnose'
{ _pXgafv = Nothing
, _pUploadProtocol = Nothing
, _pPp = True
, _pAccessToken = Nothing
, _pUploadType = Nothing
, _pPayload = pPPayload_
, _pBearerToken = Nothing
, _pClusterName = pPClusterName_
, _pRegion = pPRegion_
, _pProjectId = pPProjectId_
, _pCallback = Nothing
}
pXgafv :: Lens' ProjectsRegionsClustersDiagnose (Maybe Text)
pXgafv = lens _pXgafv (\ s a -> s{_pXgafv = a})
pUploadProtocol :: Lens' ProjectsRegionsClustersDiagnose (Maybe Text)
pUploadProtocol
= lens _pUploadProtocol
(\ s a -> s{_pUploadProtocol = a})
pPp :: Lens' ProjectsRegionsClustersDiagnose Bool
pPp = lens _pPp (\ s a -> s{_pPp = a})
pAccessToken :: Lens' ProjectsRegionsClustersDiagnose (Maybe Text)
pAccessToken
= lens _pAccessToken (\ s a -> s{_pAccessToken = a})
pUploadType :: Lens' ProjectsRegionsClustersDiagnose (Maybe Text)
pUploadType
= lens _pUploadType (\ s a -> s{_pUploadType = a})
pPayload :: Lens' ProjectsRegionsClustersDiagnose DiagnoseClusterRequest
pPayload = lens _pPayload (\ s a -> s{_pPayload = a})
pBearerToken :: Lens' ProjectsRegionsClustersDiagnose (Maybe Text)
pBearerToken
= lens _pBearerToken (\ s a -> s{_pBearerToken = a})
pClusterName :: Lens' ProjectsRegionsClustersDiagnose Text
pClusterName
= lens _pClusterName (\ s a -> s{_pClusterName = a})
pRegion :: Lens' ProjectsRegionsClustersDiagnose Text
pRegion = lens _pRegion (\ s a -> s{_pRegion = a})
pProjectId :: Lens' ProjectsRegionsClustersDiagnose Text
pProjectId
= lens _pProjectId (\ s a -> s{_pProjectId = a})
pCallback :: Lens' ProjectsRegionsClustersDiagnose (Maybe Text)
pCallback
= lens _pCallback (\ s a -> s{_pCallback = a})
instance GoogleRequest
ProjectsRegionsClustersDiagnose where
type Rs ProjectsRegionsClustersDiagnose = Operation
type Scopes ProjectsRegionsClustersDiagnose =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsRegionsClustersDiagnose'{..}
= go _pProjectId _pRegion _pClusterName _pXgafv
_pUploadProtocol
(Just _pPp)
_pAccessToken
_pUploadType
_pBearerToken
_pCallback
(Just AltJSON)
_pPayload
dataprocService
where go
= buildClient
(Proxy ::
Proxy ProjectsRegionsClustersDiagnoseResource)
mempty