{-# 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.Group
(
OrganizationsSourcesFindingsGroupResource
, organizationsSourcesFindingsGroup
, OrganizationsSourcesFindingsGroup
, osfgParent
, osfgXgafv
, osfgUploadProtocol
, osfgAccessToken
, osfgUploadType
, osfgPayload
, osfgCallback
) where
import Network.Google.Prelude
import Network.Google.SecurityCenter.Types
type OrganizationsSourcesFindingsGroupResource =
"v1" :>
Capture "parent" Text :>
"findings:group" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] GroupFindingsRequest :>
Post '[JSON] GroupFindingsResponse
data OrganizationsSourcesFindingsGroup =
OrganizationsSourcesFindingsGroup'
{ _osfgParent :: !Text
, _osfgXgafv :: !(Maybe Xgafv)
, _osfgUploadProtocol :: !(Maybe Text)
, _osfgAccessToken :: !(Maybe Text)
, _osfgUploadType :: !(Maybe Text)
, _osfgPayload :: !GroupFindingsRequest
, _osfgCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsSourcesFindingsGroup
:: Text
-> GroupFindingsRequest
-> OrganizationsSourcesFindingsGroup
organizationsSourcesFindingsGroup pOsfgParent_ pOsfgPayload_ =
OrganizationsSourcesFindingsGroup'
{ _osfgParent = pOsfgParent_
, _osfgXgafv = Nothing
, _osfgUploadProtocol = Nothing
, _osfgAccessToken = Nothing
, _osfgUploadType = Nothing
, _osfgPayload = pOsfgPayload_
, _osfgCallback = Nothing
}
osfgParent :: Lens' OrganizationsSourcesFindingsGroup Text
osfgParent
= lens _osfgParent (\ s a -> s{_osfgParent = a})
osfgXgafv :: Lens' OrganizationsSourcesFindingsGroup (Maybe Xgafv)
osfgXgafv
= lens _osfgXgafv (\ s a -> s{_osfgXgafv = a})
osfgUploadProtocol :: Lens' OrganizationsSourcesFindingsGroup (Maybe Text)
osfgUploadProtocol
= lens _osfgUploadProtocol
(\ s a -> s{_osfgUploadProtocol = a})
osfgAccessToken :: Lens' OrganizationsSourcesFindingsGroup (Maybe Text)
osfgAccessToken
= lens _osfgAccessToken
(\ s a -> s{_osfgAccessToken = a})
osfgUploadType :: Lens' OrganizationsSourcesFindingsGroup (Maybe Text)
osfgUploadType
= lens _osfgUploadType
(\ s a -> s{_osfgUploadType = a})
osfgPayload :: Lens' OrganizationsSourcesFindingsGroup GroupFindingsRequest
osfgPayload
= lens _osfgPayload (\ s a -> s{_osfgPayload = a})
osfgCallback :: Lens' OrganizationsSourcesFindingsGroup (Maybe Text)
osfgCallback
= lens _osfgCallback (\ s a -> s{_osfgCallback = a})
instance GoogleRequest
OrganizationsSourcesFindingsGroup
where
type Rs OrganizationsSourcesFindingsGroup =
GroupFindingsResponse
type Scopes OrganizationsSourcesFindingsGroup =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient OrganizationsSourcesFindingsGroup'{..}
= go _osfgParent _osfgXgafv _osfgUploadProtocol
_osfgAccessToken
_osfgUploadType
_osfgCallback
(Just AltJSON)
_osfgPayload
securityCenterService
where go
= buildClient
(Proxy ::
Proxy OrganizationsSourcesFindingsGroupResource)
mempty