{-# 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.SetState
(
OrganizationsSourcesFindingsSetStateResource
, organizationsSourcesFindingsSetState
, OrganizationsSourcesFindingsSetState
, osfssXgafv
, osfssUploadProtocol
, osfssAccessToken
, osfssUploadType
, osfssPayload
, osfssName
, osfssCallback
) where
import Network.Google.Prelude
import Network.Google.SecurityCenter.Types
type OrganizationsSourcesFindingsSetStateResource =
"v1" :>
CaptureMode "name" "setState" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] SetFindingStateRequest :>
Post '[JSON] Finding
data OrganizationsSourcesFindingsSetState =
OrganizationsSourcesFindingsSetState'
{ _osfssXgafv :: !(Maybe Xgafv)
, _osfssUploadProtocol :: !(Maybe Text)
, _osfssAccessToken :: !(Maybe Text)
, _osfssUploadType :: !(Maybe Text)
, _osfssPayload :: !SetFindingStateRequest
, _osfssName :: !Text
, _osfssCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsSourcesFindingsSetState
:: SetFindingStateRequest
-> Text
-> OrganizationsSourcesFindingsSetState
organizationsSourcesFindingsSetState pOsfssPayload_ pOsfssName_ =
OrganizationsSourcesFindingsSetState'
{ _osfssXgafv = Nothing
, _osfssUploadProtocol = Nothing
, _osfssAccessToken = Nothing
, _osfssUploadType = Nothing
, _osfssPayload = pOsfssPayload_
, _osfssName = pOsfssName_
, _osfssCallback = Nothing
}
osfssXgafv :: Lens' OrganizationsSourcesFindingsSetState (Maybe Xgafv)
osfssXgafv
= lens _osfssXgafv (\ s a -> s{_osfssXgafv = a})
osfssUploadProtocol :: Lens' OrganizationsSourcesFindingsSetState (Maybe Text)
osfssUploadProtocol
= lens _osfssUploadProtocol
(\ s a -> s{_osfssUploadProtocol = a})
osfssAccessToken :: Lens' OrganizationsSourcesFindingsSetState (Maybe Text)
osfssAccessToken
= lens _osfssAccessToken
(\ s a -> s{_osfssAccessToken = a})
osfssUploadType :: Lens' OrganizationsSourcesFindingsSetState (Maybe Text)
osfssUploadType
= lens _osfssUploadType
(\ s a -> s{_osfssUploadType = a})
osfssPayload :: Lens' OrganizationsSourcesFindingsSetState SetFindingStateRequest
osfssPayload
= lens _osfssPayload (\ s a -> s{_osfssPayload = a})
osfssName :: Lens' OrganizationsSourcesFindingsSetState Text
osfssName
= lens _osfssName (\ s a -> s{_osfssName = a})
osfssCallback :: Lens' OrganizationsSourcesFindingsSetState (Maybe Text)
osfssCallback
= lens _osfssCallback
(\ s a -> s{_osfssCallback = a})
instance GoogleRequest
OrganizationsSourcesFindingsSetState
where
type Rs OrganizationsSourcesFindingsSetState =
Finding
type Scopes OrganizationsSourcesFindingsSetState =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
OrganizationsSourcesFindingsSetState'{..}
= go _osfssName _osfssXgafv _osfssUploadProtocol
_osfssAccessToken
_osfssUploadType
_osfssCallback
(Just AltJSON)
_osfssPayload
securityCenterService
where go
= buildClient
(Proxy ::
Proxy OrganizationsSourcesFindingsSetStateResource)
mempty