{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Dataflow.Projects.Jobs.Debug.SendCapture
(
ProjectsJobsDebugSendCaptureResource
, projectsJobsDebugSendCapture
, ProjectsJobsDebugSendCapture
, pjdscXgafv
, pjdscJobId
, pjdscUploadProtocol
, pjdscAccessToken
, pjdscUploadType
, pjdscPayload
, 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" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] SendDebugCaptureRequest :>
Post '[JSON] SendDebugCaptureResponse
data ProjectsJobsDebugSendCapture = ProjectsJobsDebugSendCapture'
{ _pjdscXgafv :: !(Maybe Xgafv)
, _pjdscJobId :: !Text
, _pjdscUploadProtocol :: !(Maybe Text)
, _pjdscAccessToken :: !(Maybe Text)
, _pjdscUploadType :: !(Maybe Text)
, _pjdscPayload :: !SendDebugCaptureRequest
, _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
, _pjdscAccessToken = Nothing
, _pjdscUploadType = Nothing
, _pjdscPayload = pPjdscPayload_
, _pjdscProjectId = pPjdscProjectId_
, _pjdscCallback = Nothing
}
pjdscXgafv :: Lens' ProjectsJobsDebugSendCapture (Maybe Xgafv)
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})
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})
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/compute",
"https://www.googleapis.com/auth/compute.readonly",
"https://www.googleapis.com/auth/userinfo.email"]
requestClient ProjectsJobsDebugSendCapture'{..}
= go _pjdscProjectId _pjdscJobId _pjdscXgafv
_pjdscUploadProtocol
_pjdscAccessToken
_pjdscUploadType
_pjdscCallback
(Just AltJSON)
_pjdscPayload
dataflowService
where go
= buildClient
(Proxy :: Proxy ProjectsJobsDebugSendCaptureResource)
mempty