module Network.Google.Resource.Compute.TargetPools.AddHealthCheck
(
TargetPoolsAddHealthCheckResource
, targetPoolsAddHealthCheck
, TargetPoolsAddHealthCheck
, tpahcProject
, tpahcTargetPool
, tpahcPayload
, tpahcRegion
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type TargetPoolsAddHealthCheckResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"regions" :>
Capture "region" Text :>
"targetPools" :>
Capture "targetPool" Text :>
"addHealthCheck" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] TargetPoolsAddHealthCheckRequest :>
Post '[JSON] Operation
data TargetPoolsAddHealthCheck = TargetPoolsAddHealthCheck'
{ _tpahcProject :: !Text
, _tpahcTargetPool :: !Text
, _tpahcPayload :: !TargetPoolsAddHealthCheckRequest
, _tpahcRegion :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
targetPoolsAddHealthCheck
:: Text
-> Text
-> TargetPoolsAddHealthCheckRequest
-> Text
-> TargetPoolsAddHealthCheck
targetPoolsAddHealthCheck pTpahcProject_ pTpahcTargetPool_ pTpahcPayload_ pTpahcRegion_ =
TargetPoolsAddHealthCheck'
{ _tpahcProject = pTpahcProject_
, _tpahcTargetPool = pTpahcTargetPool_
, _tpahcPayload = pTpahcPayload_
, _tpahcRegion = pTpahcRegion_
}
tpahcProject :: Lens' TargetPoolsAddHealthCheck Text
tpahcProject
= lens _tpahcProject (\ s a -> s{_tpahcProject = a})
tpahcTargetPool :: Lens' TargetPoolsAddHealthCheck Text
tpahcTargetPool
= lens _tpahcTargetPool
(\ s a -> s{_tpahcTargetPool = a})
tpahcPayload :: Lens' TargetPoolsAddHealthCheck TargetPoolsAddHealthCheckRequest
tpahcPayload
= lens _tpahcPayload (\ s a -> s{_tpahcPayload = a})
tpahcRegion :: Lens' TargetPoolsAddHealthCheck Text
tpahcRegion
= lens _tpahcRegion (\ s a -> s{_tpahcRegion = a})
instance GoogleRequest TargetPoolsAddHealthCheck
where
type Rs TargetPoolsAddHealthCheck = Operation
type Scopes TargetPoolsAddHealthCheck =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient TargetPoolsAddHealthCheck'{..}
= go _tpahcProject _tpahcRegion _tpahcTargetPool
(Just AltJSON)
_tpahcPayload
computeService
where go
= buildClient
(Proxy :: Proxy TargetPoolsAddHealthCheckResource)
mempty