module Network.Google.Resource.Monitoring.Projects.Categories.MetricAssociations.Delete
(
ProjectsCategoriesMetricAssociationsDeleteResource
, projectsCategoriesMetricAssociationsDelete
, ProjectsCategoriesMetricAssociationsDelete
, pcmadXgafv
, pcmadUploadProtocol
, pcmadPp
, pcmadAccessToken
, pcmadUploadType
, pcmadBearerToken
, pcmadName
, pcmadCallback
) where
import Network.Google.Monitoring.Types
import Network.Google.Prelude
type ProjectsCategoriesMetricAssociationsDeleteResource
=
"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 ProjectsCategoriesMetricAssociationsDelete = ProjectsCategoriesMetricAssociationsDelete'
{ _pcmadXgafv :: !(Maybe Xgafv)
, _pcmadUploadProtocol :: !(Maybe Text)
, _pcmadPp :: !Bool
, _pcmadAccessToken :: !(Maybe Text)
, _pcmadUploadType :: !(Maybe Text)
, _pcmadBearerToken :: !(Maybe Text)
, _pcmadName :: !Text
, _pcmadCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsCategoriesMetricAssociationsDelete
:: Text
-> ProjectsCategoriesMetricAssociationsDelete
projectsCategoriesMetricAssociationsDelete pPcmadName_ =
ProjectsCategoriesMetricAssociationsDelete'
{ _pcmadXgafv = Nothing
, _pcmadUploadProtocol = Nothing
, _pcmadPp = True
, _pcmadAccessToken = Nothing
, _pcmadUploadType = Nothing
, _pcmadBearerToken = Nothing
, _pcmadName = pPcmadName_
, _pcmadCallback = Nothing
}
pcmadXgafv :: Lens' ProjectsCategoriesMetricAssociationsDelete (Maybe Xgafv)
pcmadXgafv
= lens _pcmadXgafv (\ s a -> s{_pcmadXgafv = a})
pcmadUploadProtocol :: Lens' ProjectsCategoriesMetricAssociationsDelete (Maybe Text)
pcmadUploadProtocol
= lens _pcmadUploadProtocol
(\ s a -> s{_pcmadUploadProtocol = a})
pcmadPp :: Lens' ProjectsCategoriesMetricAssociationsDelete Bool
pcmadPp = lens _pcmadPp (\ s a -> s{_pcmadPp = a})
pcmadAccessToken :: Lens' ProjectsCategoriesMetricAssociationsDelete (Maybe Text)
pcmadAccessToken
= lens _pcmadAccessToken
(\ s a -> s{_pcmadAccessToken = a})
pcmadUploadType :: Lens' ProjectsCategoriesMetricAssociationsDelete (Maybe Text)
pcmadUploadType
= lens _pcmadUploadType
(\ s a -> s{_pcmadUploadType = a})
pcmadBearerToken :: Lens' ProjectsCategoriesMetricAssociationsDelete (Maybe Text)
pcmadBearerToken
= lens _pcmadBearerToken
(\ s a -> s{_pcmadBearerToken = a})
pcmadName :: Lens' ProjectsCategoriesMetricAssociationsDelete Text
pcmadName
= lens _pcmadName (\ s a -> s{_pcmadName = a})
pcmadCallback :: Lens' ProjectsCategoriesMetricAssociationsDelete (Maybe Text)
pcmadCallback
= lens _pcmadCallback
(\ s a -> s{_pcmadCallback = a})
instance GoogleRequest
ProjectsCategoriesMetricAssociationsDelete where
type Rs ProjectsCategoriesMetricAssociationsDelete =
Empty
type Scopes
ProjectsCategoriesMetricAssociationsDelete
=
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/monitoring"]
requestClient
ProjectsCategoriesMetricAssociationsDelete'{..}
= go _pcmadName _pcmadXgafv _pcmadUploadProtocol
(Just _pcmadPp)
_pcmadAccessToken
_pcmadUploadType
_pcmadBearerToken
_pcmadCallback
(Just AltJSON)
monitoringService
where go
= buildClient
(Proxy ::
Proxy
ProjectsCategoriesMetricAssociationsDeleteResource)
mempty