module Network.Google.Resource.CloudTrace.Projects.PatchTraces
(
ProjectsPatchTracesResource
, projectsPatchTraces
, ProjectsPatchTraces
, pptXgafv
, pptUploadProtocol
, pptPp
, pptAccessToken
, pptUploadType
, pptPayload
, pptBearerToken
, pptProjectId
, pptCallback
) where
import Network.Google.CloudTrace.Types
import Network.Google.Prelude
type ProjectsPatchTracesResource =
"v1" :>
"projects" :>
Capture "projectId" Text :>
"traces" :>
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] Traces :> Patch '[JSON] Empty
data ProjectsPatchTraces = ProjectsPatchTraces'
{ _pptXgafv :: !(Maybe Text)
, _pptUploadProtocol :: !(Maybe Text)
, _pptPp :: !Bool
, _pptAccessToken :: !(Maybe Text)
, _pptUploadType :: !(Maybe Text)
, _pptPayload :: !Traces
, _pptBearerToken :: !(Maybe Text)
, _pptProjectId :: !Text
, _pptCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsPatchTraces
:: Traces
-> Text
-> ProjectsPatchTraces
projectsPatchTraces pPptPayload_ pPptProjectId_ =
ProjectsPatchTraces'
{ _pptXgafv = Nothing
, _pptUploadProtocol = Nothing
, _pptPp = True
, _pptAccessToken = Nothing
, _pptUploadType = Nothing
, _pptPayload = pPptPayload_
, _pptBearerToken = Nothing
, _pptProjectId = pPptProjectId_
, _pptCallback = Nothing
}
pptXgafv :: Lens' ProjectsPatchTraces (Maybe Text)
pptXgafv = lens _pptXgafv (\ s a -> s{_pptXgafv = a})
pptUploadProtocol :: Lens' ProjectsPatchTraces (Maybe Text)
pptUploadProtocol
= lens _pptUploadProtocol
(\ s a -> s{_pptUploadProtocol = a})
pptPp :: Lens' ProjectsPatchTraces Bool
pptPp = lens _pptPp (\ s a -> s{_pptPp = a})
pptAccessToken :: Lens' ProjectsPatchTraces (Maybe Text)
pptAccessToken
= lens _pptAccessToken
(\ s a -> s{_pptAccessToken = a})
pptUploadType :: Lens' ProjectsPatchTraces (Maybe Text)
pptUploadType
= lens _pptUploadType
(\ s a -> s{_pptUploadType = a})
pptPayload :: Lens' ProjectsPatchTraces Traces
pptPayload
= lens _pptPayload (\ s a -> s{_pptPayload = a})
pptBearerToken :: Lens' ProjectsPatchTraces (Maybe Text)
pptBearerToken
= lens _pptBearerToken
(\ s a -> s{_pptBearerToken = a})
pptProjectId :: Lens' ProjectsPatchTraces Text
pptProjectId
= lens _pptProjectId (\ s a -> s{_pptProjectId = a})
pptCallback :: Lens' ProjectsPatchTraces (Maybe Text)
pptCallback
= lens _pptCallback (\ s a -> s{_pptCallback = a})
instance GoogleRequest ProjectsPatchTraces where
type Rs ProjectsPatchTraces = Empty
type Scopes ProjectsPatchTraces =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/trace.append"]
requestClient ProjectsPatchTraces'{..}
= go _pptProjectId _pptXgafv _pptUploadProtocol
(Just _pptPp)
_pptAccessToken
_pptUploadType
_pptBearerToken
_pptCallback
(Just AltJSON)
_pptPayload
cloudTraceService
where go
= buildClient
(Proxy :: Proxy ProjectsPatchTracesResource)
mempty