module Network.Google.Resource.CloudResourceManager.Organizations.Update
(
OrganizationsUpdateResource
, organizationsUpdate
, OrganizationsUpdate
, ouXgafv
, ouUploadProtocol
, ouPp
, ouAccessToken
, ouUploadType
, ouPayload
, ouBearerToken
, ouOrganizationId
, ouCallback
) where
import Network.Google.Prelude
import Network.Google.ResourceManager.Types
type OrganizationsUpdateResource =
"v1beta1" :>
"organizations" :>
Capture "organizationId" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Organization :>
Put '[JSON] Organization
data OrganizationsUpdate = OrganizationsUpdate
{ _ouXgafv :: !(Maybe Text)
, _ouUploadProtocol :: !(Maybe Text)
, _ouPp :: !Bool
, _ouAccessToken :: !(Maybe Text)
, _ouUploadType :: !(Maybe Text)
, _ouPayload :: !Organization
, _ouBearerToken :: !(Maybe Text)
, _ouOrganizationId :: !Text
, _ouCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
organizationsUpdate
:: Organization
-> Text
-> OrganizationsUpdate
organizationsUpdate pOuPayload_ pOuOrganizationId_ =
OrganizationsUpdate
{ _ouXgafv = Nothing
, _ouUploadProtocol = Nothing
, _ouPp = True
, _ouAccessToken = Nothing
, _ouUploadType = Nothing
, _ouPayload = pOuPayload_
, _ouBearerToken = Nothing
, _ouOrganizationId = pOuOrganizationId_
, _ouCallback = Nothing
}
ouXgafv :: Lens' OrganizationsUpdate (Maybe Text)
ouXgafv = lens _ouXgafv (\ s a -> s{_ouXgafv = a})
ouUploadProtocol :: Lens' OrganizationsUpdate (Maybe Text)
ouUploadProtocol
= lens _ouUploadProtocol
(\ s a -> s{_ouUploadProtocol = a})
ouPp :: Lens' OrganizationsUpdate Bool
ouPp = lens _ouPp (\ s a -> s{_ouPp = a})
ouAccessToken :: Lens' OrganizationsUpdate (Maybe Text)
ouAccessToken
= lens _ouAccessToken
(\ s a -> s{_ouAccessToken = a})
ouUploadType :: Lens' OrganizationsUpdate (Maybe Text)
ouUploadType
= lens _ouUploadType (\ s a -> s{_ouUploadType = a})
ouPayload :: Lens' OrganizationsUpdate Organization
ouPayload
= lens _ouPayload (\ s a -> s{_ouPayload = a})
ouBearerToken :: Lens' OrganizationsUpdate (Maybe Text)
ouBearerToken
= lens _ouBearerToken
(\ s a -> s{_ouBearerToken = a})
ouOrganizationId :: Lens' OrganizationsUpdate Text
ouOrganizationId
= lens _ouOrganizationId
(\ s a -> s{_ouOrganizationId = a})
ouCallback :: Lens' OrganizationsUpdate (Maybe Text)
ouCallback
= lens _ouCallback (\ s a -> s{_ouCallback = a})
instance GoogleRequest OrganizationsUpdate where
type Rs OrganizationsUpdate = Organization
requestClient OrganizationsUpdate{..}
= go _ouOrganizationId _ouXgafv _ouUploadProtocol
(Just _ouPp)
_ouAccessToken
_ouUploadType
_ouBearerToken
_ouCallback
(Just AltJSON)
_ouPayload
resourceManagerService
where go
= buildClient
(Proxy :: Proxy OrganizationsUpdateResource)
mempty