module Network.Google.Resource.IAM.Projects.ServiceAccounts.SetIAMPolicy
(
ProjectsServiceAccountsSetIAMPolicyResource
, projectsServiceAccountsSetIAMPolicy
, ProjectsServiceAccountsSetIAMPolicy
, psasipXgafv
, psasipUploadProtocol
, psasipPp
, psasipAccessToken
, psasipUploadType
, psasipPayload
, psasipBearerToken
, psasipResource
, psasipCallback
) where
import Network.Google.KnowledgeGraphSearch.Types
import Network.Google.Prelude
type ProjectsServiceAccountsSetIAMPolicyResource =
"v1" :>
CaptureMode "resource" "setIamPolicy" 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] SetIAMPolicyRequest :>
Post '[JSON] Policy
data ProjectsServiceAccountsSetIAMPolicy = ProjectsServiceAccountsSetIAMPolicy'
{ _psasipXgafv :: !(Maybe Text)
, _psasipUploadProtocol :: !(Maybe Text)
, _psasipPp :: !Bool
, _psasipAccessToken :: !(Maybe Text)
, _psasipUploadType :: !(Maybe Text)
, _psasipPayload :: !SetIAMPolicyRequest
, _psasipBearerToken :: !(Maybe Text)
, _psasipResource :: !Text
, _psasipCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsServiceAccountsSetIAMPolicy
:: SetIAMPolicyRequest
-> Text
-> ProjectsServiceAccountsSetIAMPolicy
projectsServiceAccountsSetIAMPolicy pPsasipPayload_ pPsasipResource_ =
ProjectsServiceAccountsSetIAMPolicy'
{ _psasipXgafv = Nothing
, _psasipUploadProtocol = Nothing
, _psasipPp = True
, _psasipAccessToken = Nothing
, _psasipUploadType = Nothing
, _psasipPayload = pPsasipPayload_
, _psasipBearerToken = Nothing
, _psasipResource = pPsasipResource_
, _psasipCallback = Nothing
}
psasipXgafv :: Lens' ProjectsServiceAccountsSetIAMPolicy (Maybe Text)
psasipXgafv
= lens _psasipXgafv (\ s a -> s{_psasipXgafv = a})
psasipUploadProtocol :: Lens' ProjectsServiceAccountsSetIAMPolicy (Maybe Text)
psasipUploadProtocol
= lens _psasipUploadProtocol
(\ s a -> s{_psasipUploadProtocol = a})
psasipPp :: Lens' ProjectsServiceAccountsSetIAMPolicy Bool
psasipPp = lens _psasipPp (\ s a -> s{_psasipPp = a})
psasipAccessToken :: Lens' ProjectsServiceAccountsSetIAMPolicy (Maybe Text)
psasipAccessToken
= lens _psasipAccessToken
(\ s a -> s{_psasipAccessToken = a})
psasipUploadType :: Lens' ProjectsServiceAccountsSetIAMPolicy (Maybe Text)
psasipUploadType
= lens _psasipUploadType
(\ s a -> s{_psasipUploadType = a})
psasipPayload :: Lens' ProjectsServiceAccountsSetIAMPolicy SetIAMPolicyRequest
psasipPayload
= lens _psasipPayload
(\ s a -> s{_psasipPayload = a})
psasipBearerToken :: Lens' ProjectsServiceAccountsSetIAMPolicy (Maybe Text)
psasipBearerToken
= lens _psasipBearerToken
(\ s a -> s{_psasipBearerToken = a})
psasipResource :: Lens' ProjectsServiceAccountsSetIAMPolicy Text
psasipResource
= lens _psasipResource
(\ s a -> s{_psasipResource = a})
psasipCallback :: Lens' ProjectsServiceAccountsSetIAMPolicy (Maybe Text)
psasipCallback
= lens _psasipCallback
(\ s a -> s{_psasipCallback = a})
instance GoogleRequest
ProjectsServiceAccountsSetIAMPolicy where
type Rs ProjectsServiceAccountsSetIAMPolicy = Policy
type Scopes ProjectsServiceAccountsSetIAMPolicy =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsServiceAccountsSetIAMPolicy'{..}
= go _psasipResource _psasipXgafv
_psasipUploadProtocol
(Just _psasipPp)
_psasipAccessToken
_psasipUploadType
_psasipBearerToken
_psasipCallback
(Just AltJSON)
_psasipPayload
knowledgeGraphSearchService
where go
= buildClient
(Proxy ::
Proxy ProjectsServiceAccountsSetIAMPolicyResource)
mempty