module Network.Google.Resource.IAM.Projects.ServiceAccounts.Delete
(
ProjectsServiceAccountsDeleteResource
, projectsServiceAccountsDelete
, ProjectsServiceAccountsDelete
, psadXgafv
, psadUploadProtocol
, psadPp
, psadAccessToken
, psadUploadType
, psadBearerToken
, psadName
, psadCallback
) where
import Network.Google.IAM.Types
import Network.Google.Prelude
type ProjectsServiceAccountsDeleteResource =
"v1" :>
Capture "name" 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 :> Delete '[JSON] Empty
data ProjectsServiceAccountsDelete = ProjectsServiceAccountsDelete'
{ _psadXgafv :: !(Maybe Text)
, _psadUploadProtocol :: !(Maybe Text)
, _psadPp :: !Bool
, _psadAccessToken :: !(Maybe Text)
, _psadUploadType :: !(Maybe Text)
, _psadBearerToken :: !(Maybe Text)
, _psadName :: !Text
, _psadCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsServiceAccountsDelete
:: Text
-> ProjectsServiceAccountsDelete
projectsServiceAccountsDelete pPsadName_ =
ProjectsServiceAccountsDelete'
{ _psadXgafv = Nothing
, _psadUploadProtocol = Nothing
, _psadPp = True
, _psadAccessToken = Nothing
, _psadUploadType = Nothing
, _psadBearerToken = Nothing
, _psadName = pPsadName_
, _psadCallback = Nothing
}
psadXgafv :: Lens' ProjectsServiceAccountsDelete (Maybe Text)
psadXgafv
= lens _psadXgafv (\ s a -> s{_psadXgafv = a})
psadUploadProtocol :: Lens' ProjectsServiceAccountsDelete (Maybe Text)
psadUploadProtocol
= lens _psadUploadProtocol
(\ s a -> s{_psadUploadProtocol = a})
psadPp :: Lens' ProjectsServiceAccountsDelete Bool
psadPp = lens _psadPp (\ s a -> s{_psadPp = a})
psadAccessToken :: Lens' ProjectsServiceAccountsDelete (Maybe Text)
psadAccessToken
= lens _psadAccessToken
(\ s a -> s{_psadAccessToken = a})
psadUploadType :: Lens' ProjectsServiceAccountsDelete (Maybe Text)
psadUploadType
= lens _psadUploadType
(\ s a -> s{_psadUploadType = a})
psadBearerToken :: Lens' ProjectsServiceAccountsDelete (Maybe Text)
psadBearerToken
= lens _psadBearerToken
(\ s a -> s{_psadBearerToken = a})
psadName :: Lens' ProjectsServiceAccountsDelete Text
psadName = lens _psadName (\ s a -> s{_psadName = a})
psadCallback :: Lens' ProjectsServiceAccountsDelete (Maybe Text)
psadCallback
= lens _psadCallback (\ s a -> s{_psadCallback = a})
instance GoogleRequest ProjectsServiceAccountsDelete
where
type Rs ProjectsServiceAccountsDelete = Empty
type Scopes ProjectsServiceAccountsDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsServiceAccountsDelete'{..}
= go _psadName _psadXgafv _psadUploadProtocol
(Just _psadPp)
_psadAccessToken
_psadUploadType
_psadBearerToken
_psadCallback
(Just AltJSON)
iAMService
where go
= buildClient
(Proxy ::
Proxy ProjectsServiceAccountsDeleteResource)
mempty