module Network.Google.Resource.Compute.HTTPHealthChecks.Update
(
HTTPHealthChecksUpdateResource
, hTTPHealthChecksUpdate
, HTTPHealthChecksUpdate
, httphcuProject
, httphcuPayload
, httphcuHTTPHealthCheck
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type HTTPHealthChecksUpdateResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"global" :>
"httpHealthChecks" :>
Capture "httpHealthCheck" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] HTTPHealthCheck :>
Put '[JSON] Operation
data HTTPHealthChecksUpdate = HTTPHealthChecksUpdate'
{ _httphcuProject :: !Text
, _httphcuPayload :: !HTTPHealthCheck
, _httphcuHTTPHealthCheck :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
hTTPHealthChecksUpdate
:: Text
-> HTTPHealthCheck
-> Text
-> HTTPHealthChecksUpdate
hTTPHealthChecksUpdate pHttphcuProject_ pHttphcuPayload_ pHttphcuHTTPHealthCheck_ =
HTTPHealthChecksUpdate'
{ _httphcuProject = pHttphcuProject_
, _httphcuPayload = pHttphcuPayload_
, _httphcuHTTPHealthCheck = pHttphcuHTTPHealthCheck_
}
httphcuProject :: Lens' HTTPHealthChecksUpdate Text
httphcuProject
= lens _httphcuProject
(\ s a -> s{_httphcuProject = a})
httphcuPayload :: Lens' HTTPHealthChecksUpdate HTTPHealthCheck
httphcuPayload
= lens _httphcuPayload
(\ s a -> s{_httphcuPayload = a})
httphcuHTTPHealthCheck :: Lens' HTTPHealthChecksUpdate Text
httphcuHTTPHealthCheck
= lens _httphcuHTTPHealthCheck
(\ s a -> s{_httphcuHTTPHealthCheck = a})
instance GoogleRequest HTTPHealthChecksUpdate where
type Rs HTTPHealthChecksUpdate = Operation
type Scopes HTTPHealthChecksUpdate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient HTTPHealthChecksUpdate'{..}
= go _httphcuProject _httphcuHTTPHealthCheck
(Just AltJSON)
_httphcuPayload
computeService
where go
= buildClient
(Proxy :: Proxy HTTPHealthChecksUpdateResource)
mempty