{-# 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.OSLogin.Users.Projects.Delete
(
UsersProjectsDeleteResource
, usersProjectsDelete
, UsersProjectsDelete
, updXgafv
, updUploadProtocol
, updAccessToken
, updUploadType
, updName
, updCallback
) where
import Network.Google.OSLogin.Types
import Network.Google.Prelude
type UsersProjectsDeleteResource =
"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 UsersProjectsDelete = UsersProjectsDelete'
{ _updXgafv :: !(Maybe Xgafv)
, _updUploadProtocol :: !(Maybe Text)
, _updAccessToken :: !(Maybe Text)
, _updUploadType :: !(Maybe Text)
, _updName :: !Text
, _updCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
usersProjectsDelete
:: Text
-> UsersProjectsDelete
usersProjectsDelete pUpdName_ =
UsersProjectsDelete'
{ _updXgafv = Nothing
, _updUploadProtocol = Nothing
, _updAccessToken = Nothing
, _updUploadType = Nothing
, _updName = pUpdName_
, _updCallback = Nothing
}
updXgafv :: Lens' UsersProjectsDelete (Maybe Xgafv)
updXgafv = lens _updXgafv (\ s a -> s{_updXgafv = a})
updUploadProtocol :: Lens' UsersProjectsDelete (Maybe Text)
updUploadProtocol
= lens _updUploadProtocol
(\ s a -> s{_updUploadProtocol = a})
updAccessToken :: Lens' UsersProjectsDelete (Maybe Text)
updAccessToken
= lens _updAccessToken
(\ s a -> s{_updAccessToken = a})
updUploadType :: Lens' UsersProjectsDelete (Maybe Text)
updUploadType
= lens _updUploadType
(\ s a -> s{_updUploadType = a})
updName :: Lens' UsersProjectsDelete Text
updName = lens _updName (\ s a -> s{_updName = a})
updCallback :: Lens' UsersProjectsDelete (Maybe Text)
updCallback
= lens _updCallback (\ s a -> s{_updCallback = a})
instance GoogleRequest UsersProjectsDelete where
type Rs UsersProjectsDelete = Empty
type Scopes UsersProjectsDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient UsersProjectsDelete'{..}
= go _updName _updXgafv _updUploadProtocol
_updAccessToken
_updUploadType
_updCallback
(Just AltJSON)
oSLoginService
where go
= buildClient
(Proxy :: Proxy UsersProjectsDeleteResource)
mempty