module Network.Google.Resource.Monitoring.Projects.Categories.Delete
(
ProjectsCategoriesDeleteResource
, projectsCategoriesDelete
, ProjectsCategoriesDelete
, pcdXgafv
, pcdUploadProtocol
, pcdPp
, pcdAccessToken
, pcdUploadType
, pcdBearerToken
, pcdName
, pcdCallback
) where
import Network.Google.Monitoring.Types
import Network.Google.Prelude
type ProjectsCategoriesDeleteResource =
"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 ProjectsCategoriesDelete = ProjectsCategoriesDelete'
{ _pcdXgafv :: !(Maybe Xgafv)
, _pcdUploadProtocol :: !(Maybe Text)
, _pcdPp :: !Bool
, _pcdAccessToken :: !(Maybe Text)
, _pcdUploadType :: !(Maybe Text)
, _pcdBearerToken :: !(Maybe Text)
, _pcdName :: !Text
, _pcdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsCategoriesDelete
:: Text
-> ProjectsCategoriesDelete
projectsCategoriesDelete pPcdName_ =
ProjectsCategoriesDelete'
{ _pcdXgafv = Nothing
, _pcdUploadProtocol = Nothing
, _pcdPp = True
, _pcdAccessToken = Nothing
, _pcdUploadType = Nothing
, _pcdBearerToken = Nothing
, _pcdName = pPcdName_
, _pcdCallback = Nothing
}
pcdXgafv :: Lens' ProjectsCategoriesDelete (Maybe Xgafv)
pcdXgafv = lens _pcdXgafv (\ s a -> s{_pcdXgafv = a})
pcdUploadProtocol :: Lens' ProjectsCategoriesDelete (Maybe Text)
pcdUploadProtocol
= lens _pcdUploadProtocol
(\ s a -> s{_pcdUploadProtocol = a})
pcdPp :: Lens' ProjectsCategoriesDelete Bool
pcdPp = lens _pcdPp (\ s a -> s{_pcdPp = a})
pcdAccessToken :: Lens' ProjectsCategoriesDelete (Maybe Text)
pcdAccessToken
= lens _pcdAccessToken
(\ s a -> s{_pcdAccessToken = a})
pcdUploadType :: Lens' ProjectsCategoriesDelete (Maybe Text)
pcdUploadType
= lens _pcdUploadType
(\ s a -> s{_pcdUploadType = a})
pcdBearerToken :: Lens' ProjectsCategoriesDelete (Maybe Text)
pcdBearerToken
= lens _pcdBearerToken
(\ s a -> s{_pcdBearerToken = a})
pcdName :: Lens' ProjectsCategoriesDelete Text
pcdName = lens _pcdName (\ s a -> s{_pcdName = a})
pcdCallback :: Lens' ProjectsCategoriesDelete (Maybe Text)
pcdCallback
= lens _pcdCallback (\ s a -> s{_pcdCallback = a})
instance GoogleRequest ProjectsCategoriesDelete where
type Rs ProjectsCategoriesDelete = Empty
type Scopes ProjectsCategoriesDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/monitoring"]
requestClient ProjectsCategoriesDelete'{..}
= go _pcdName _pcdXgafv _pcdUploadProtocol
(Just _pcdPp)
_pcdAccessToken
_pcdUploadType
_pcdBearerToken
_pcdCallback
(Just AltJSON)
monitoringService
where go
= buildClient
(Proxy :: Proxy ProjectsCategoriesDeleteResource)
mempty