{-# 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.Patch
(
OrganizationsSourcesPatchResource
, organizationsSourcesPatch
, OrganizationsSourcesPatch
, ospXgafv
, ospUploadProtocol
, ospUpdateMask
, ospAccessToken
, ospUploadType
, ospPayload
, ospName
, ospCallback
) where
import Network.Google.Prelude
import Network.Google.SecurityCenter.Types
type OrganizationsSourcesPatchResource =
"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] Source :> Patch '[JSON] Source
data OrganizationsSourcesPatch =
OrganizationsSourcesPatch'
{ _ospXgafv :: !(Maybe Xgafv)
, _ospUploadProtocol :: !(Maybe Text)
, _ospUpdateMask :: !(Maybe GFieldMask)
, _ospAccessToken :: !(Maybe Text)
, _ospUploadType :: !(Maybe Text)
, _ospPayload :: !Source
, _ospName :: !Text
, _ospCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsSourcesPatch
:: Source
-> Text
-> OrganizationsSourcesPatch
organizationsSourcesPatch pOspPayload_ pOspName_ =
OrganizationsSourcesPatch'
{ _ospXgafv = Nothing
, _ospUploadProtocol = Nothing
, _ospUpdateMask = Nothing
, _ospAccessToken = Nothing
, _ospUploadType = Nothing
, _ospPayload = pOspPayload_
, _ospName = pOspName_
, _ospCallback = Nothing
}
ospXgafv :: Lens' OrganizationsSourcesPatch (Maybe Xgafv)
ospXgafv = lens _ospXgafv (\ s a -> s{_ospXgafv = a})
ospUploadProtocol :: Lens' OrganizationsSourcesPatch (Maybe Text)
ospUploadProtocol
= lens _ospUploadProtocol
(\ s a -> s{_ospUploadProtocol = a})
ospUpdateMask :: Lens' OrganizationsSourcesPatch (Maybe GFieldMask)
ospUpdateMask
= lens _ospUpdateMask
(\ s a -> s{_ospUpdateMask = a})
ospAccessToken :: Lens' OrganizationsSourcesPatch (Maybe Text)
ospAccessToken
= lens _ospAccessToken
(\ s a -> s{_ospAccessToken = a})
ospUploadType :: Lens' OrganizationsSourcesPatch (Maybe Text)
ospUploadType
= lens _ospUploadType
(\ s a -> s{_ospUploadType = a})
ospPayload :: Lens' OrganizationsSourcesPatch Source
ospPayload
= lens _ospPayload (\ s a -> s{_ospPayload = a})
ospName :: Lens' OrganizationsSourcesPatch Text
ospName = lens _ospName (\ s a -> s{_ospName = a})
ospCallback :: Lens' OrganizationsSourcesPatch (Maybe Text)
ospCallback
= lens _ospCallback (\ s a -> s{_ospCallback = a})
instance GoogleRequest OrganizationsSourcesPatch
where
type Rs OrganizationsSourcesPatch = Source
type Scopes OrganizationsSourcesPatch =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient OrganizationsSourcesPatch'{..}
= go _ospName _ospXgafv _ospUploadProtocol
_ospUpdateMask
_ospAccessToken
_ospUploadType
_ospCallback
(Just AltJSON)
_ospPayload
securityCenterService
where go
= buildClient
(Proxy :: Proxy OrganizationsSourcesPatchResource)
mempty