module Network.Google.Resource.Compute.RegionInstanceGroupManagers.SetTargetPools
(
RegionInstanceGroupManagersSetTargetPoolsResource
, regionInstanceGroupManagersSetTargetPools
, RegionInstanceGroupManagersSetTargetPools
, rigmstpProject
, rigmstpInstanceGroupManager
, rigmstpPayload
, rigmstpRegion
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type RegionInstanceGroupManagersSetTargetPoolsResource
=
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"regions" :>
Capture "region" Text :>
"instanceGroupManagers" :>
Capture "instanceGroupManager" Text :>
"setTargetPools" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
RegionInstanceGroupManagersSetTargetPoolsRequest
:> Post '[JSON] Operation
data RegionInstanceGroupManagersSetTargetPools = RegionInstanceGroupManagersSetTargetPools'
{ _rigmstpProject :: !Text
, _rigmstpInstanceGroupManager :: !Text
, _rigmstpPayload :: !RegionInstanceGroupManagersSetTargetPoolsRequest
, _rigmstpRegion :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
regionInstanceGroupManagersSetTargetPools
:: Text
-> Text
-> RegionInstanceGroupManagersSetTargetPoolsRequest
-> Text
-> RegionInstanceGroupManagersSetTargetPools
regionInstanceGroupManagersSetTargetPools pRigmstpProject_ pRigmstpInstanceGroupManager_ pRigmstpPayload_ pRigmstpRegion_ =
RegionInstanceGroupManagersSetTargetPools'
{ _rigmstpProject = pRigmstpProject_
, _rigmstpInstanceGroupManager = pRigmstpInstanceGroupManager_
, _rigmstpPayload = pRigmstpPayload_
, _rigmstpRegion = pRigmstpRegion_
}
rigmstpProject :: Lens' RegionInstanceGroupManagersSetTargetPools Text
rigmstpProject
= lens _rigmstpProject
(\ s a -> s{_rigmstpProject = a})
rigmstpInstanceGroupManager :: Lens' RegionInstanceGroupManagersSetTargetPools Text
rigmstpInstanceGroupManager
= lens _rigmstpInstanceGroupManager
(\ s a -> s{_rigmstpInstanceGroupManager = a})
rigmstpPayload :: Lens' RegionInstanceGroupManagersSetTargetPools RegionInstanceGroupManagersSetTargetPoolsRequest
rigmstpPayload
= lens _rigmstpPayload
(\ s a -> s{_rigmstpPayload = a})
rigmstpRegion :: Lens' RegionInstanceGroupManagersSetTargetPools Text
rigmstpRegion
= lens _rigmstpRegion
(\ s a -> s{_rigmstpRegion = a})
instance GoogleRequest
RegionInstanceGroupManagersSetTargetPools where
type Rs RegionInstanceGroupManagersSetTargetPools =
Operation
type Scopes RegionInstanceGroupManagersSetTargetPools
=
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient
RegionInstanceGroupManagersSetTargetPools'{..}
= go _rigmstpProject _rigmstpRegion
_rigmstpInstanceGroupManager
(Just AltJSON)
_rigmstpPayload
computeService
where go
= buildClient
(Proxy ::
Proxy
RegionInstanceGroupManagersSetTargetPoolsResource)
mempty