{-# 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.Patch
(
OrganizationsSourcesFindingsPatchResource
, organizationsSourcesFindingsPatch
, OrganizationsSourcesFindingsPatch
, osfpXgafv
, osfpUploadProtocol
, osfpUpdateMask
, osfpAccessToken
, osfpUploadType
, osfpPayload
, osfpName
, osfpCallback
) where
import Network.Google.Prelude
import Network.Google.SecurityCenter.Types
type OrganizationsSourcesFindingsPatchResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "updateMask" GFieldMask :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Finding :> Patch '[JSON] Finding
data OrganizationsSourcesFindingsPatch =
OrganizationsSourcesFindingsPatch'
{ _osfpXgafv :: !(Maybe Xgafv)
, _osfpUploadProtocol :: !(Maybe Text)
, _osfpUpdateMask :: !(Maybe GFieldMask)
, _osfpAccessToken :: !(Maybe Text)
, _osfpUploadType :: !(Maybe Text)
, _osfpPayload :: !Finding
, _osfpName :: !Text
, _osfpCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsSourcesFindingsPatch
:: Finding
-> Text
-> OrganizationsSourcesFindingsPatch
organizationsSourcesFindingsPatch pOsfpPayload_ pOsfpName_ =
OrganizationsSourcesFindingsPatch'
{ _osfpXgafv = Nothing
, _osfpUploadProtocol = Nothing
, _osfpUpdateMask = Nothing
, _osfpAccessToken = Nothing
, _osfpUploadType = Nothing
, _osfpPayload = pOsfpPayload_
, _osfpName = pOsfpName_
, _osfpCallback = Nothing
}
osfpXgafv :: Lens' OrganizationsSourcesFindingsPatch (Maybe Xgafv)
osfpXgafv
= lens _osfpXgafv (\ s a -> s{_osfpXgafv = a})
osfpUploadProtocol :: Lens' OrganizationsSourcesFindingsPatch (Maybe Text)
osfpUploadProtocol
= lens _osfpUploadProtocol
(\ s a -> s{_osfpUploadProtocol = a})
osfpUpdateMask :: Lens' OrganizationsSourcesFindingsPatch (Maybe GFieldMask)
osfpUpdateMask
= lens _osfpUpdateMask
(\ s a -> s{_osfpUpdateMask = a})
osfpAccessToken :: Lens' OrganizationsSourcesFindingsPatch (Maybe Text)
osfpAccessToken
= lens _osfpAccessToken
(\ s a -> s{_osfpAccessToken = a})
osfpUploadType :: Lens' OrganizationsSourcesFindingsPatch (Maybe Text)
osfpUploadType
= lens _osfpUploadType
(\ s a -> s{_osfpUploadType = a})
osfpPayload :: Lens' OrganizationsSourcesFindingsPatch Finding
osfpPayload
= lens _osfpPayload (\ s a -> s{_osfpPayload = a})
osfpName :: Lens' OrganizationsSourcesFindingsPatch Text
osfpName = lens _osfpName (\ s a -> s{_osfpName = a})
osfpCallback :: Lens' OrganizationsSourcesFindingsPatch (Maybe Text)
osfpCallback
= lens _osfpCallback (\ s a -> s{_osfpCallback = a})
instance GoogleRequest
OrganizationsSourcesFindingsPatch
where
type Rs OrganizationsSourcesFindingsPatch = Finding
type Scopes OrganizationsSourcesFindingsPatch =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient OrganizationsSourcesFindingsPatch'{..}
= go _osfpName _osfpXgafv _osfpUploadProtocol
_osfpUpdateMask
_osfpAccessToken
_osfpUploadType
_osfpCallback
(Just AltJSON)
_osfpPayload
securityCenterService
where go
= buildClient
(Proxy ::
Proxy OrganizationsSourcesFindingsPatchResource)
mempty