module Network.Google.Resource.Logging.Projects.Metrics.Delete
(
ProjectsMetricsDeleteResource
, projectsMetricsDelete
, ProjectsMetricsDelete
, pmdXgafv
, pmdUploadProtocol
, pmdPp
, pmdAccessToken
, pmdMetricName
, pmdUploadType
, pmdBearerToken
, pmdCallback
) where
import Network.Google.Logging.Types
import Network.Google.Prelude
type ProjectsMetricsDeleteResource =
"v2beta1" :>
Capture "metricName" 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 ProjectsMetricsDelete = ProjectsMetricsDelete'
{ _pmdXgafv :: !(Maybe Text)
, _pmdUploadProtocol :: !(Maybe Text)
, _pmdPp :: !Bool
, _pmdAccessToken :: !(Maybe Text)
, _pmdMetricName :: !Text
, _pmdUploadType :: !(Maybe Text)
, _pmdBearerToken :: !(Maybe Text)
, _pmdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsMetricsDelete
:: Text
-> ProjectsMetricsDelete
projectsMetricsDelete pPmdMetricName_ =
ProjectsMetricsDelete'
{ _pmdXgafv = Nothing
, _pmdUploadProtocol = Nothing
, _pmdPp = True
, _pmdAccessToken = Nothing
, _pmdMetricName = pPmdMetricName_
, _pmdUploadType = Nothing
, _pmdBearerToken = Nothing
, _pmdCallback = Nothing
}
pmdXgafv :: Lens' ProjectsMetricsDelete (Maybe Text)
pmdXgafv = lens _pmdXgafv (\ s a -> s{_pmdXgafv = a})
pmdUploadProtocol :: Lens' ProjectsMetricsDelete (Maybe Text)
pmdUploadProtocol
= lens _pmdUploadProtocol
(\ s a -> s{_pmdUploadProtocol = a})
pmdPp :: Lens' ProjectsMetricsDelete Bool
pmdPp = lens _pmdPp (\ s a -> s{_pmdPp = a})
pmdAccessToken :: Lens' ProjectsMetricsDelete (Maybe Text)
pmdAccessToken
= lens _pmdAccessToken
(\ s a -> s{_pmdAccessToken = a})
pmdMetricName :: Lens' ProjectsMetricsDelete Text
pmdMetricName
= lens _pmdMetricName
(\ s a -> s{_pmdMetricName = a})
pmdUploadType :: Lens' ProjectsMetricsDelete (Maybe Text)
pmdUploadType
= lens _pmdUploadType
(\ s a -> s{_pmdUploadType = a})
pmdBearerToken :: Lens' ProjectsMetricsDelete (Maybe Text)
pmdBearerToken
= lens _pmdBearerToken
(\ s a -> s{_pmdBearerToken = a})
pmdCallback :: Lens' ProjectsMetricsDelete (Maybe Text)
pmdCallback
= lens _pmdCallback (\ s a -> s{_pmdCallback = a})
instance GoogleRequest ProjectsMetricsDelete where
type Rs ProjectsMetricsDelete = Empty
type Scopes ProjectsMetricsDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/logging.admin",
"https://www.googleapis.com/auth/logging.write"]
requestClient ProjectsMetricsDelete'{..}
= go _pmdMetricName _pmdXgafv _pmdUploadProtocol
(Just _pmdPp)
_pmdAccessToken
_pmdUploadType
_pmdBearerToken
_pmdCallback
(Just AltJSON)
loggingService
where go
= buildClient
(Proxy :: Proxy ProjectsMetricsDeleteResource)
mempty