{-# 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.SecurityCenter.Organizations.Sources.Findings.UpdateSecurityMarks
(
OrganizationsSourcesFindingsUpdateSecurityMarksResource
, organizationsSourcesFindingsUpdateSecurityMarks
, OrganizationsSourcesFindingsUpdateSecurityMarks
, osfusmXgafv
, osfusmUploadProtocol
, osfusmStartTime
, osfusmUpdateMask
, osfusmAccessToken
, osfusmUploadType
, osfusmPayload
, osfusmName
, osfusmCallback
) where
import Network.Google.Prelude
import Network.Google.SecurityCenter.Types
type OrganizationsSourcesFindingsUpdateSecurityMarksResource
=
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "startTime" DateTime' :>
QueryParam "updateMask" GFieldMask :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] SecurityMarks :>
Patch '[JSON] SecurityMarks
data OrganizationsSourcesFindingsUpdateSecurityMarks =
OrganizationsSourcesFindingsUpdateSecurityMarks'
{ _osfusmXgafv :: !(Maybe Xgafv)
, _osfusmUploadProtocol :: !(Maybe Text)
, _osfusmStartTime :: !(Maybe DateTime')
, _osfusmUpdateMask :: !(Maybe GFieldMask)
, _osfusmAccessToken :: !(Maybe Text)
, _osfusmUploadType :: !(Maybe Text)
, _osfusmPayload :: !SecurityMarks
, _osfusmName :: !Text
, _osfusmCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsSourcesFindingsUpdateSecurityMarks
:: SecurityMarks
-> Text
-> OrganizationsSourcesFindingsUpdateSecurityMarks
organizationsSourcesFindingsUpdateSecurityMarks pOsfusmPayload_ pOsfusmName_ =
OrganizationsSourcesFindingsUpdateSecurityMarks'
{ _osfusmXgafv = Nothing
, _osfusmUploadProtocol = Nothing
, _osfusmStartTime = Nothing
, _osfusmUpdateMask = Nothing
, _osfusmAccessToken = Nothing
, _osfusmUploadType = Nothing
, _osfusmPayload = pOsfusmPayload_
, _osfusmName = pOsfusmName_
, _osfusmCallback = Nothing
}
osfusmXgafv :: Lens' OrganizationsSourcesFindingsUpdateSecurityMarks (Maybe Xgafv)
osfusmXgafv
= lens _osfusmXgafv (\ s a -> s{_osfusmXgafv = a})
osfusmUploadProtocol :: Lens' OrganizationsSourcesFindingsUpdateSecurityMarks (Maybe Text)
osfusmUploadProtocol
= lens _osfusmUploadProtocol
(\ s a -> s{_osfusmUploadProtocol = a})
osfusmStartTime :: Lens' OrganizationsSourcesFindingsUpdateSecurityMarks (Maybe UTCTime)
osfusmStartTime
= lens _osfusmStartTime
(\ s a -> s{_osfusmStartTime = a})
. mapping _DateTime
osfusmUpdateMask :: Lens' OrganizationsSourcesFindingsUpdateSecurityMarks (Maybe GFieldMask)
osfusmUpdateMask
= lens _osfusmUpdateMask
(\ s a -> s{_osfusmUpdateMask = a})
osfusmAccessToken :: Lens' OrganizationsSourcesFindingsUpdateSecurityMarks (Maybe Text)
osfusmAccessToken
= lens _osfusmAccessToken
(\ s a -> s{_osfusmAccessToken = a})
osfusmUploadType :: Lens' OrganizationsSourcesFindingsUpdateSecurityMarks (Maybe Text)
osfusmUploadType
= lens _osfusmUploadType
(\ s a -> s{_osfusmUploadType = a})
osfusmPayload :: Lens' OrganizationsSourcesFindingsUpdateSecurityMarks SecurityMarks
osfusmPayload
= lens _osfusmPayload
(\ s a -> s{_osfusmPayload = a})
osfusmName :: Lens' OrganizationsSourcesFindingsUpdateSecurityMarks Text
osfusmName
= lens _osfusmName (\ s a -> s{_osfusmName = a})
osfusmCallback :: Lens' OrganizationsSourcesFindingsUpdateSecurityMarks (Maybe Text)
osfusmCallback
= lens _osfusmCallback
(\ s a -> s{_osfusmCallback = a})
instance GoogleRequest
OrganizationsSourcesFindingsUpdateSecurityMarks
where
type Rs
OrganizationsSourcesFindingsUpdateSecurityMarks
= SecurityMarks
type Scopes
OrganizationsSourcesFindingsUpdateSecurityMarks
= '["https://www.googleapis.com/auth/cloud-platform"]
requestClient
OrganizationsSourcesFindingsUpdateSecurityMarks'{..}
= go _osfusmName _osfusmXgafv _osfusmUploadProtocol
_osfusmStartTime
_osfusmUpdateMask
_osfusmAccessToken
_osfusmUploadType
_osfusmCallback
(Just AltJSON)
_osfusmPayload
securityCenterService
where go
= buildClient
(Proxy ::
Proxy
OrganizationsSourcesFindingsUpdateSecurityMarksResource)
mempty