{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Monitoring.Projects.UptimeCheckConfigs.Delete
(
ProjectsUptimeCheckConfigsDeleteResource
, projectsUptimeCheckConfigsDelete
, ProjectsUptimeCheckConfigsDelete
, puccdXgafv
, puccdUploadProtocol
, puccdAccessToken
, puccdUploadType
, puccdName
, puccdCallback
) where
import Network.Google.Monitoring.Types
import Network.Google.Prelude
type ProjectsUptimeCheckConfigsDeleteResource =
"v3" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Empty
data ProjectsUptimeCheckConfigsDelete = ProjectsUptimeCheckConfigsDelete'
{ _puccdXgafv :: !(Maybe Xgafv)
, _puccdUploadProtocol :: !(Maybe Text)
, _puccdAccessToken :: !(Maybe Text)
, _puccdUploadType :: !(Maybe Text)
, _puccdName :: !Text
, _puccdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsUptimeCheckConfigsDelete
:: Text
-> ProjectsUptimeCheckConfigsDelete
projectsUptimeCheckConfigsDelete pPuccdName_ =
ProjectsUptimeCheckConfigsDelete'
{ _puccdXgafv = Nothing
, _puccdUploadProtocol = Nothing
, _puccdAccessToken = Nothing
, _puccdUploadType = Nothing
, _puccdName = pPuccdName_
, _puccdCallback = Nothing
}
puccdXgafv :: Lens' ProjectsUptimeCheckConfigsDelete (Maybe Xgafv)
puccdXgafv
= lens _puccdXgafv (\ s a -> s{_puccdXgafv = a})
puccdUploadProtocol :: Lens' ProjectsUptimeCheckConfigsDelete (Maybe Text)
puccdUploadProtocol
= lens _puccdUploadProtocol
(\ s a -> s{_puccdUploadProtocol = a})
puccdAccessToken :: Lens' ProjectsUptimeCheckConfigsDelete (Maybe Text)
puccdAccessToken
= lens _puccdAccessToken
(\ s a -> s{_puccdAccessToken = a})
puccdUploadType :: Lens' ProjectsUptimeCheckConfigsDelete (Maybe Text)
puccdUploadType
= lens _puccdUploadType
(\ s a -> s{_puccdUploadType = a})
puccdName :: Lens' ProjectsUptimeCheckConfigsDelete Text
puccdName
= lens _puccdName (\ s a -> s{_puccdName = a})
puccdCallback :: Lens' ProjectsUptimeCheckConfigsDelete (Maybe Text)
puccdCallback
= lens _puccdCallback
(\ s a -> s{_puccdCallback = a})
instance GoogleRequest
ProjectsUptimeCheckConfigsDelete where
type Rs ProjectsUptimeCheckConfigsDelete = Empty
type Scopes ProjectsUptimeCheckConfigsDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/monitoring"]
requestClient ProjectsUptimeCheckConfigsDelete'{..}
= go _puccdName _puccdXgafv _puccdUploadProtocol
_puccdAccessToken
_puccdUploadType
_puccdCallback
(Just AltJSON)
monitoringService
where go
= buildClient
(Proxy ::
Proxy ProjectsUptimeCheckConfigsDeleteResource)
mempty