module Network.Google.Resource.Dataflow.Projects.Jobs.Debug.SendCapture
(
ProjectsJobsDebugSendCaptureResource
, projectsJobsDebugSendCapture
, ProjectsJobsDebugSendCapture
, pjdscXgafv
, pjdscJobId
, pjdscUploadProtocol
, pjdscPp
, pjdscAccessToken
, pjdscUploadType
, pjdscPayload
, pjdscBearerToken
, pjdscProjectId
, pjdscCallback
) where
import Network.Google.Dataflow.Types
import Network.Google.Prelude
type ProjectsJobsDebugSendCaptureResource =
"v1b3" :>
"projects" :>
Capture "projectId" Text :>
"jobs" :>
Capture "jobId" Text :>
"debug" :>
"sendCapture" :>
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] SendDebugCaptureRequest :>
Post '[JSON] SendDebugCaptureResponse
data ProjectsJobsDebugSendCapture = ProjectsJobsDebugSendCapture'
{ _pjdscXgafv :: !(Maybe Text)
, _pjdscJobId :: !Text
, _pjdscUploadProtocol :: !(Maybe Text)
, _pjdscPp :: !Bool
, _pjdscAccessToken :: !(Maybe Text)
, _pjdscUploadType :: !(Maybe Text)
, _pjdscPayload :: !SendDebugCaptureRequest
, _pjdscBearerToken :: !(Maybe Text)
, _pjdscProjectId :: !Text
, _pjdscCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsJobsDebugSendCapture
:: Text
-> SendDebugCaptureRequest
-> Text
-> ProjectsJobsDebugSendCapture
projectsJobsDebugSendCapture pPjdscJobId_ pPjdscPayload_ pPjdscProjectId_ =
ProjectsJobsDebugSendCapture'
{ _pjdscXgafv = Nothing
, _pjdscJobId = pPjdscJobId_
, _pjdscUploadProtocol = Nothing
, _pjdscPp = True
, _pjdscAccessToken = Nothing
, _pjdscUploadType = Nothing
, _pjdscPayload = pPjdscPayload_
, _pjdscBearerToken = Nothing
, _pjdscProjectId = pPjdscProjectId_
, _pjdscCallback = Nothing
}
pjdscXgafv :: Lens' ProjectsJobsDebugSendCapture (Maybe Text)
pjdscXgafv
= lens _pjdscXgafv (\ s a -> s{_pjdscXgafv = a})
pjdscJobId :: Lens' ProjectsJobsDebugSendCapture Text
pjdscJobId
= lens _pjdscJobId (\ s a -> s{_pjdscJobId = a})
pjdscUploadProtocol :: Lens' ProjectsJobsDebugSendCapture (Maybe Text)
pjdscUploadProtocol
= lens _pjdscUploadProtocol
(\ s a -> s{_pjdscUploadProtocol = a})
pjdscPp :: Lens' ProjectsJobsDebugSendCapture Bool
pjdscPp = lens _pjdscPp (\ s a -> s{_pjdscPp = a})
pjdscAccessToken :: Lens' ProjectsJobsDebugSendCapture (Maybe Text)
pjdscAccessToken
= lens _pjdscAccessToken
(\ s a -> s{_pjdscAccessToken = a})
pjdscUploadType :: Lens' ProjectsJobsDebugSendCapture (Maybe Text)
pjdscUploadType
= lens _pjdscUploadType
(\ s a -> s{_pjdscUploadType = a})
pjdscPayload :: Lens' ProjectsJobsDebugSendCapture SendDebugCaptureRequest
pjdscPayload
= lens _pjdscPayload (\ s a -> s{_pjdscPayload = a})
pjdscBearerToken :: Lens' ProjectsJobsDebugSendCapture (Maybe Text)
pjdscBearerToken
= lens _pjdscBearerToken
(\ s a -> s{_pjdscBearerToken = a})
pjdscProjectId :: Lens' ProjectsJobsDebugSendCapture Text
pjdscProjectId
= lens _pjdscProjectId
(\ s a -> s{_pjdscProjectId = a})
pjdscCallback :: Lens' ProjectsJobsDebugSendCapture (Maybe Text)
pjdscCallback
= lens _pjdscCallback
(\ s a -> s{_pjdscCallback = a})
instance GoogleRequest ProjectsJobsDebugSendCapture
where
type Rs ProjectsJobsDebugSendCapture =
SendDebugCaptureResponse
type Scopes ProjectsJobsDebugSendCapture =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/userinfo.email"]
requestClient ProjectsJobsDebugSendCapture'{..}
= go _pjdscProjectId _pjdscJobId _pjdscXgafv
_pjdscUploadProtocol
(Just _pjdscPp)
_pjdscAccessToken
_pjdscUploadType
_pjdscBearerToken
_pjdscCallback
(Just AltJSON)
_pjdscPayload
dataflowService
where go
= buildClient
(Proxy :: Proxy ProjectsJobsDebugSendCaptureResource)
mempty