{-# 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.Delete
(
ProjectsServiceAccountsDeleteResource
, projectsServiceAccountsDelete
, ProjectsServiceAccountsDelete
, pXgafv
, pUploadProtocol
, pAccessToken
, pUploadType
, pName
, pCallback
) where
import Network.Google.IAM.Types
import Network.Google.Prelude
type ProjectsServiceAccountsDeleteResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Empty
data ProjectsServiceAccountsDelete =
ProjectsServiceAccountsDelete'
{ _pXgafv :: !(Maybe Xgafv)
, _pUploadProtocol :: !(Maybe Text)
, _pAccessToken :: !(Maybe Text)
, _pUploadType :: !(Maybe Text)
, _pName :: !Text
, _pCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsServiceAccountsDelete
:: Text
-> ProjectsServiceAccountsDelete
projectsServiceAccountsDelete pPName_ =
ProjectsServiceAccountsDelete'
{ _pXgafv = Nothing
, _pUploadProtocol = Nothing
, _pAccessToken = Nothing
, _pUploadType = Nothing
, _pName = pPName_
, _pCallback = Nothing
}
pXgafv :: Lens' ProjectsServiceAccountsDelete (Maybe Xgafv)
pXgafv = lens _pXgafv (\ s a -> s{_pXgafv = a})
pUploadProtocol :: Lens' ProjectsServiceAccountsDelete (Maybe Text)
pUploadProtocol
= lens _pUploadProtocol
(\ s a -> s{_pUploadProtocol = a})
pAccessToken :: Lens' ProjectsServiceAccountsDelete (Maybe Text)
pAccessToken
= lens _pAccessToken (\ s a -> s{_pAccessToken = a})
pUploadType :: Lens' ProjectsServiceAccountsDelete (Maybe Text)
pUploadType
= lens _pUploadType (\ s a -> s{_pUploadType = a})
pName :: Lens' ProjectsServiceAccountsDelete Text
pName = lens _pName (\ s a -> s{_pName = a})
pCallback :: Lens' ProjectsServiceAccountsDelete (Maybe Text)
pCallback
= lens _pCallback (\ s a -> s{_pCallback = a})
instance GoogleRequest ProjectsServiceAccountsDelete
where
type Rs ProjectsServiceAccountsDelete = Empty
type Scopes ProjectsServiceAccountsDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsServiceAccountsDelete'{..}
= go _pName _pXgafv _pUploadProtocol _pAccessToken
_pUploadType
_pCallback
(Just AltJSON)
iAMService
where go
= buildClient
(Proxy ::
Proxy ProjectsServiceAccountsDeleteResource)
mempty