{-# 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.IAM.Projects.ServiceAccounts.Enable
(
ProjectsServiceAccountsEnableResource
, projectsServiceAccountsEnable
, ProjectsServiceAccountsEnable
, psaeXgafv
, psaeUploadProtocol
, psaeAccessToken
, psaeUploadType
, psaePayload
, psaeName
, psaeCallback
) where
import Network.Google.IAM.Types
import Network.Google.Prelude
type ProjectsServiceAccountsEnableResource =
"v1" :>
CaptureMode "name" "enable" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] EnableServiceAccountRequest :>
Post '[JSON] Empty
data ProjectsServiceAccountsEnable =
ProjectsServiceAccountsEnable'
{ _psaeXgafv :: !(Maybe Xgafv)
, _psaeUploadProtocol :: !(Maybe Text)
, _psaeAccessToken :: !(Maybe Text)
, _psaeUploadType :: !(Maybe Text)
, _psaePayload :: !EnableServiceAccountRequest
, _psaeName :: !Text
, _psaeCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsServiceAccountsEnable
:: EnableServiceAccountRequest
-> Text
-> ProjectsServiceAccountsEnable
projectsServiceAccountsEnable pPsaePayload_ pPsaeName_ =
ProjectsServiceAccountsEnable'
{ _psaeXgafv = Nothing
, _psaeUploadProtocol = Nothing
, _psaeAccessToken = Nothing
, _psaeUploadType = Nothing
, _psaePayload = pPsaePayload_
, _psaeName = pPsaeName_
, _psaeCallback = Nothing
}
psaeXgafv :: Lens' ProjectsServiceAccountsEnable (Maybe Xgafv)
psaeXgafv
= lens _psaeXgafv (\ s a -> s{_psaeXgafv = a})
psaeUploadProtocol :: Lens' ProjectsServiceAccountsEnable (Maybe Text)
psaeUploadProtocol
= lens _psaeUploadProtocol
(\ s a -> s{_psaeUploadProtocol = a})
psaeAccessToken :: Lens' ProjectsServiceAccountsEnable (Maybe Text)
psaeAccessToken
= lens _psaeAccessToken
(\ s a -> s{_psaeAccessToken = a})
psaeUploadType :: Lens' ProjectsServiceAccountsEnable (Maybe Text)
psaeUploadType
= lens _psaeUploadType
(\ s a -> s{_psaeUploadType = a})
psaePayload :: Lens' ProjectsServiceAccountsEnable EnableServiceAccountRequest
psaePayload
= lens _psaePayload (\ s a -> s{_psaePayload = a})
psaeName :: Lens' ProjectsServiceAccountsEnable Text
psaeName = lens _psaeName (\ s a -> s{_psaeName = a})
psaeCallback :: Lens' ProjectsServiceAccountsEnable (Maybe Text)
psaeCallback
= lens _psaeCallback (\ s a -> s{_psaeCallback = a})
instance GoogleRequest ProjectsServiceAccountsEnable
where
type Rs ProjectsServiceAccountsEnable = Empty
type Scopes ProjectsServiceAccountsEnable =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsServiceAccountsEnable'{..}
= go _psaeName _psaeXgafv _psaeUploadProtocol
_psaeAccessToken
_psaeUploadType
_psaeCallback
(Just AltJSON)
_psaePayload
iAMService
where go
= buildClient
(Proxy ::
Proxy ProjectsServiceAccountsEnableResource)
mempty