module Network.Google.Resource.Monitoring.Projects.Groups.Delete
(
ProjectsGroupsDeleteResource
, projectsGroupsDelete
, ProjectsGroupsDelete
, pgdXgafv
, pgdUploadProtocol
, pgdPp
, pgdAccessToken
, pgdUploadType
, pgdBearerToken
, pgdName
, pgdCallback
) where
import Network.Google.Monitoring.Types
import Network.Google.Prelude
type ProjectsGroupsDeleteResource =
"v3" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
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 ProjectsGroupsDelete = ProjectsGroupsDelete'
{ _pgdXgafv :: !(Maybe Xgafv)
, _pgdUploadProtocol :: !(Maybe Text)
, _pgdPp :: !Bool
, _pgdAccessToken :: !(Maybe Text)
, _pgdUploadType :: !(Maybe Text)
, _pgdBearerToken :: !(Maybe Text)
, _pgdName :: !Text
, _pgdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsGroupsDelete
:: Text
-> ProjectsGroupsDelete
projectsGroupsDelete pPgdName_ =
ProjectsGroupsDelete'
{ _pgdXgafv = Nothing
, _pgdUploadProtocol = Nothing
, _pgdPp = True
, _pgdAccessToken = Nothing
, _pgdUploadType = Nothing
, _pgdBearerToken = Nothing
, _pgdName = pPgdName_
, _pgdCallback = Nothing
}
pgdXgafv :: Lens' ProjectsGroupsDelete (Maybe Xgafv)
pgdXgafv = lens _pgdXgafv (\ s a -> s{_pgdXgafv = a})
pgdUploadProtocol :: Lens' ProjectsGroupsDelete (Maybe Text)
pgdUploadProtocol
= lens _pgdUploadProtocol
(\ s a -> s{_pgdUploadProtocol = a})
pgdPp :: Lens' ProjectsGroupsDelete Bool
pgdPp = lens _pgdPp (\ s a -> s{_pgdPp = a})
pgdAccessToken :: Lens' ProjectsGroupsDelete (Maybe Text)
pgdAccessToken
= lens _pgdAccessToken
(\ s a -> s{_pgdAccessToken = a})
pgdUploadType :: Lens' ProjectsGroupsDelete (Maybe Text)
pgdUploadType
= lens _pgdUploadType
(\ s a -> s{_pgdUploadType = a})
pgdBearerToken :: Lens' ProjectsGroupsDelete (Maybe Text)
pgdBearerToken
= lens _pgdBearerToken
(\ s a -> s{_pgdBearerToken = a})
pgdName :: Lens' ProjectsGroupsDelete Text
pgdName = lens _pgdName (\ s a -> s{_pgdName = a})
pgdCallback :: Lens' ProjectsGroupsDelete (Maybe Text)
pgdCallback
= lens _pgdCallback (\ s a -> s{_pgdCallback = a})
instance GoogleRequest ProjectsGroupsDelete where
type Rs ProjectsGroupsDelete = Empty
type Scopes ProjectsGroupsDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/monitoring"]
requestClient ProjectsGroupsDelete'{..}
= go _pgdName _pgdXgafv _pgdUploadProtocol
(Just _pgdPp)
_pgdAccessToken
_pgdUploadType
_pgdBearerToken
_pgdCallback
(Just AltJSON)
monitoringService
where go
= buildClient
(Proxy :: Proxy ProjectsGroupsDeleteResource)
mempty