{-# 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.UpdateOrganizationSettings
(
OrganizationsUpdateOrganizationSettingsResource
, organizationsUpdateOrganizationSettings
, OrganizationsUpdateOrganizationSettings
, ouosXgafv
, ouosUploadProtocol
, ouosUpdateMask
, ouosAccessToken
, ouosUploadType
, ouosPayload
, ouosName
, ouosCallback
) where
import Network.Google.Prelude
import Network.Google.SecurityCenter.Types
type OrganizationsUpdateOrganizationSettingsResource
=
"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] OrganizationSettings :>
Patch '[JSON] OrganizationSettings
data OrganizationsUpdateOrganizationSettings =
OrganizationsUpdateOrganizationSettings'
{ _ouosXgafv :: !(Maybe Xgafv)
, _ouosUploadProtocol :: !(Maybe Text)
, _ouosUpdateMask :: !(Maybe GFieldMask)
, _ouosAccessToken :: !(Maybe Text)
, _ouosUploadType :: !(Maybe Text)
, _ouosPayload :: !OrganizationSettings
, _ouosName :: !Text
, _ouosCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsUpdateOrganizationSettings
:: OrganizationSettings
-> Text
-> OrganizationsUpdateOrganizationSettings
organizationsUpdateOrganizationSettings pOuosPayload_ pOuosName_ =
OrganizationsUpdateOrganizationSettings'
{ _ouosXgafv = Nothing
, _ouosUploadProtocol = Nothing
, _ouosUpdateMask = Nothing
, _ouosAccessToken = Nothing
, _ouosUploadType = Nothing
, _ouosPayload = pOuosPayload_
, _ouosName = pOuosName_
, _ouosCallback = Nothing
}
ouosXgafv :: Lens' OrganizationsUpdateOrganizationSettings (Maybe Xgafv)
ouosXgafv
= lens _ouosXgafv (\ s a -> s{_ouosXgafv = a})
ouosUploadProtocol :: Lens' OrganizationsUpdateOrganizationSettings (Maybe Text)
ouosUploadProtocol
= lens _ouosUploadProtocol
(\ s a -> s{_ouosUploadProtocol = a})
ouosUpdateMask :: Lens' OrganizationsUpdateOrganizationSettings (Maybe GFieldMask)
ouosUpdateMask
= lens _ouosUpdateMask
(\ s a -> s{_ouosUpdateMask = a})
ouosAccessToken :: Lens' OrganizationsUpdateOrganizationSettings (Maybe Text)
ouosAccessToken
= lens _ouosAccessToken
(\ s a -> s{_ouosAccessToken = a})
ouosUploadType :: Lens' OrganizationsUpdateOrganizationSettings (Maybe Text)
ouosUploadType
= lens _ouosUploadType
(\ s a -> s{_ouosUploadType = a})
ouosPayload :: Lens' OrganizationsUpdateOrganizationSettings OrganizationSettings
ouosPayload
= lens _ouosPayload (\ s a -> s{_ouosPayload = a})
ouosName :: Lens' OrganizationsUpdateOrganizationSettings Text
ouosName = lens _ouosName (\ s a -> s{_ouosName = a})
ouosCallback :: Lens' OrganizationsUpdateOrganizationSettings (Maybe Text)
ouosCallback
= lens _ouosCallback (\ s a -> s{_ouosCallback = a})
instance GoogleRequest
OrganizationsUpdateOrganizationSettings
where
type Rs OrganizationsUpdateOrganizationSettings =
OrganizationSettings
type Scopes OrganizationsUpdateOrganizationSettings =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
OrganizationsUpdateOrganizationSettings'{..}
= go _ouosName _ouosXgafv _ouosUploadProtocol
_ouosUpdateMask
_ouosAccessToken
_ouosUploadType
_ouosCallback
(Just AltJSON)
_ouosPayload
securityCenterService
where go
= buildClient
(Proxy ::
Proxy
OrganizationsUpdateOrganizationSettingsResource)
mempty