module Network.Google.Resource.Compute.HTTPHealthChecks.Delete
(
HTTPHealthChecksDeleteResource
, hTTPHealthChecksDelete
, HTTPHealthChecksDelete
, httphcdProject
, httphcdHTTPHealthCheck
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type HTTPHealthChecksDeleteResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"global" :>
"httpHealthChecks" :>
Capture "httpHealthCheck" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Operation
data HTTPHealthChecksDelete = HTTPHealthChecksDelete'
{ _httphcdProject :: !Text
, _httphcdHTTPHealthCheck :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
hTTPHealthChecksDelete
:: Text
-> Text
-> HTTPHealthChecksDelete
hTTPHealthChecksDelete pHttphcdProject_ pHttphcdHTTPHealthCheck_ =
HTTPHealthChecksDelete'
{ _httphcdProject = pHttphcdProject_
, _httphcdHTTPHealthCheck = pHttphcdHTTPHealthCheck_
}
httphcdProject :: Lens' HTTPHealthChecksDelete Text
httphcdProject
= lens _httphcdProject
(\ s a -> s{_httphcdProject = a})
httphcdHTTPHealthCheck :: Lens' HTTPHealthChecksDelete Text
httphcdHTTPHealthCheck
= lens _httphcdHTTPHealthCheck
(\ s a -> s{_httphcdHTTPHealthCheck = a})
instance GoogleRequest HTTPHealthChecksDelete where
type Rs HTTPHealthChecksDelete = Operation
type Scopes HTTPHealthChecksDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient HTTPHealthChecksDelete'{..}
= go _httphcdProject _httphcdHTTPHealthCheck
(Just AltJSON)
computeService
where go
= buildClient
(Proxy :: Proxy HTTPHealthChecksDeleteResource)
mempty