module Network.Google.Resource.Monitoring.Projects.MetricDescriptors.Delete
(
ProjectsMetricDescriptorsDeleteResource
, projectsMetricDescriptorsDelete
, ProjectsMetricDescriptorsDelete
, pmddXgafv
, pmddUploadProtocol
, pmddPp
, pmddAccessToken
, pmddUploadType
, pmddBearerToken
, pmddName
, pmddCallback
) where
import Network.Google.Monitoring.Types
import Network.Google.Prelude
type ProjectsMetricDescriptorsDeleteResource =
"v3" :>
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 ProjectsMetricDescriptorsDelete = ProjectsMetricDescriptorsDelete'
{ _pmddXgafv :: !(Maybe Text)
, _pmddUploadProtocol :: !(Maybe Text)
, _pmddPp :: !Bool
, _pmddAccessToken :: !(Maybe Text)
, _pmddUploadType :: !(Maybe Text)
, _pmddBearerToken :: !(Maybe Text)
, _pmddName :: !Text
, _pmddCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsMetricDescriptorsDelete
:: Text
-> ProjectsMetricDescriptorsDelete
projectsMetricDescriptorsDelete pPmddName_ =
ProjectsMetricDescriptorsDelete'
{ _pmddXgafv = Nothing
, _pmddUploadProtocol = Nothing
, _pmddPp = True
, _pmddAccessToken = Nothing
, _pmddUploadType = Nothing
, _pmddBearerToken = Nothing
, _pmddName = pPmddName_
, _pmddCallback = Nothing
}
pmddXgafv :: Lens' ProjectsMetricDescriptorsDelete (Maybe Text)
pmddXgafv
= lens _pmddXgafv (\ s a -> s{_pmddXgafv = a})
pmddUploadProtocol :: Lens' ProjectsMetricDescriptorsDelete (Maybe Text)
pmddUploadProtocol
= lens _pmddUploadProtocol
(\ s a -> s{_pmddUploadProtocol = a})
pmddPp :: Lens' ProjectsMetricDescriptorsDelete Bool
pmddPp = lens _pmddPp (\ s a -> s{_pmddPp = a})
pmddAccessToken :: Lens' ProjectsMetricDescriptorsDelete (Maybe Text)
pmddAccessToken
= lens _pmddAccessToken
(\ s a -> s{_pmddAccessToken = a})
pmddUploadType :: Lens' ProjectsMetricDescriptorsDelete (Maybe Text)
pmddUploadType
= lens _pmddUploadType
(\ s a -> s{_pmddUploadType = a})
pmddBearerToken :: Lens' ProjectsMetricDescriptorsDelete (Maybe Text)
pmddBearerToken
= lens _pmddBearerToken
(\ s a -> s{_pmddBearerToken = a})
pmddName :: Lens' ProjectsMetricDescriptorsDelete Text
pmddName = lens _pmddName (\ s a -> s{_pmddName = a})
pmddCallback :: Lens' ProjectsMetricDescriptorsDelete (Maybe Text)
pmddCallback
= lens _pmddCallback (\ s a -> s{_pmddCallback = a})
instance GoogleRequest
ProjectsMetricDescriptorsDelete where
type Rs ProjectsMetricDescriptorsDelete = Empty
type Scopes ProjectsMetricDescriptorsDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/monitoring"]
requestClient ProjectsMetricDescriptorsDelete'{..}
= go _pmddName _pmddXgafv _pmddUploadProtocol
(Just _pmddPp)
_pmddAccessToken
_pmddUploadType
_pmddBearerToken
_pmddCallback
(Just AltJSON)
monitoringService
where go
= buildClient
(Proxy ::
Proxy ProjectsMetricDescriptorsDeleteResource)
mempty