{-# 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.Assets.Group
(
OrganizationsAssetsGroupResource
, organizationsAssetsGroup
, OrganizationsAssetsGroup
, oagParent
, oagXgafv
, oagUploadProtocol
, oagAccessToken
, oagUploadType
, oagPayload
, oagCallback
) where
import Network.Google.Prelude
import Network.Google.SecurityCenter.Types
type OrganizationsAssetsGroupResource =
"v1" :>
Capture "parent" Text :>
"assets:group" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] GroupAssetsRequest :>
Post '[JSON] GroupAssetsResponse
data OrganizationsAssetsGroup =
OrganizationsAssetsGroup'
{ _oagParent :: !Text
, _oagXgafv :: !(Maybe Xgafv)
, _oagUploadProtocol :: !(Maybe Text)
, _oagAccessToken :: !(Maybe Text)
, _oagUploadType :: !(Maybe Text)
, _oagPayload :: !GroupAssetsRequest
, _oagCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsAssetsGroup
:: Text
-> GroupAssetsRequest
-> OrganizationsAssetsGroup
organizationsAssetsGroup pOagParent_ pOagPayload_ =
OrganizationsAssetsGroup'
{ _oagParent = pOagParent_
, _oagXgafv = Nothing
, _oagUploadProtocol = Nothing
, _oagAccessToken = Nothing
, _oagUploadType = Nothing
, _oagPayload = pOagPayload_
, _oagCallback = Nothing
}
oagParent :: Lens' OrganizationsAssetsGroup Text
oagParent
= lens _oagParent (\ s a -> s{_oagParent = a})
oagXgafv :: Lens' OrganizationsAssetsGroup (Maybe Xgafv)
oagXgafv = lens _oagXgafv (\ s a -> s{_oagXgafv = a})
oagUploadProtocol :: Lens' OrganizationsAssetsGroup (Maybe Text)
oagUploadProtocol
= lens _oagUploadProtocol
(\ s a -> s{_oagUploadProtocol = a})
oagAccessToken :: Lens' OrganizationsAssetsGroup (Maybe Text)
oagAccessToken
= lens _oagAccessToken
(\ s a -> s{_oagAccessToken = a})
oagUploadType :: Lens' OrganizationsAssetsGroup (Maybe Text)
oagUploadType
= lens _oagUploadType
(\ s a -> s{_oagUploadType = a})
oagPayload :: Lens' OrganizationsAssetsGroup GroupAssetsRequest
oagPayload
= lens _oagPayload (\ s a -> s{_oagPayload = a})
oagCallback :: Lens' OrganizationsAssetsGroup (Maybe Text)
oagCallback
= lens _oagCallback (\ s a -> s{_oagCallback = a})
instance GoogleRequest OrganizationsAssetsGroup where
type Rs OrganizationsAssetsGroup =
GroupAssetsResponse
type Scopes OrganizationsAssetsGroup =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient OrganizationsAssetsGroup'{..}
= go _oagParent _oagXgafv _oagUploadProtocol
_oagAccessToken
_oagUploadType
_oagCallback
(Just AltJSON)
_oagPayload
securityCenterService
where go
= buildClient
(Proxy :: Proxy OrganizationsAssetsGroupResource)
mempty