module Network.Google.Resource.Compute.TargetPools.RemoveHealthCheck
(
TargetPoolsRemoveHealthCheckResource
, targetPoolsRemoveHealthCheck
, TargetPoolsRemoveHealthCheck
, tprhcProject
, tprhcTargetPool
, tprhcPayload
, tprhcRegion
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type TargetPoolsRemoveHealthCheckResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"regions" :>
Capture "region" Text :>
"targetPools" :>
Capture "targetPool" Text :>
"removeHealthCheck" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] TargetPoolsRemoveHealthCheckRequest
:> Post '[JSON] Operation
data TargetPoolsRemoveHealthCheck = TargetPoolsRemoveHealthCheck'
{ _tprhcProject :: !Text
, _tprhcTargetPool :: !Text
, _tprhcPayload :: !TargetPoolsRemoveHealthCheckRequest
, _tprhcRegion :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
targetPoolsRemoveHealthCheck
:: Text
-> Text
-> TargetPoolsRemoveHealthCheckRequest
-> Text
-> TargetPoolsRemoveHealthCheck
targetPoolsRemoveHealthCheck pTprhcProject_ pTprhcTargetPool_ pTprhcPayload_ pTprhcRegion_ =
TargetPoolsRemoveHealthCheck'
{ _tprhcProject = pTprhcProject_
, _tprhcTargetPool = pTprhcTargetPool_
, _tprhcPayload = pTprhcPayload_
, _tprhcRegion = pTprhcRegion_
}
tprhcProject :: Lens' TargetPoolsRemoveHealthCheck Text
tprhcProject
= lens _tprhcProject (\ s a -> s{_tprhcProject = a})
tprhcTargetPool :: Lens' TargetPoolsRemoveHealthCheck Text
tprhcTargetPool
= lens _tprhcTargetPool
(\ s a -> s{_tprhcTargetPool = a})
tprhcPayload :: Lens' TargetPoolsRemoveHealthCheck TargetPoolsRemoveHealthCheckRequest
tprhcPayload
= lens _tprhcPayload (\ s a -> s{_tprhcPayload = a})
tprhcRegion :: Lens' TargetPoolsRemoveHealthCheck Text
tprhcRegion
= lens _tprhcRegion (\ s a -> s{_tprhcRegion = a})
instance GoogleRequest TargetPoolsRemoveHealthCheck
where
type Rs TargetPoolsRemoveHealthCheck = Operation
type Scopes TargetPoolsRemoveHealthCheck =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient TargetPoolsRemoveHealthCheck'{..}
= go _tprhcProject _tprhcRegion _tprhcTargetPool
(Just AltJSON)
_tprhcPayload
computeService
where go
= buildClient
(Proxy :: Proxy TargetPoolsRemoveHealthCheckResource)
mempty