module Network.Google.Resource.Compute.RegionInstanceGroupManagers.RecreateInstances
(
RegionInstanceGroupManagersRecreateInstancesResource
, regionInstanceGroupManagersRecreateInstances
, RegionInstanceGroupManagersRecreateInstances
, rigmriProject
, rigmriInstanceGroupManager
, rigmriPayload
, rigmriRegion
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type RegionInstanceGroupManagersRecreateInstancesResource
=
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"regions" :>
Capture "region" Text :>
"instanceGroupManagers" :>
Capture "instanceGroupManager" Text :>
"recreateInstances" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
RegionInstanceGroupManagersRecreateRequest
:> Post '[JSON] Operation
data RegionInstanceGroupManagersRecreateInstances = RegionInstanceGroupManagersRecreateInstances'
{ _rigmriProject :: !Text
, _rigmriInstanceGroupManager :: !Text
, _rigmriPayload :: !RegionInstanceGroupManagersRecreateRequest
, _rigmriRegion :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
regionInstanceGroupManagersRecreateInstances
:: Text
-> Text
-> RegionInstanceGroupManagersRecreateRequest
-> Text
-> RegionInstanceGroupManagersRecreateInstances
regionInstanceGroupManagersRecreateInstances pRigmriProject_ pRigmriInstanceGroupManager_ pRigmriPayload_ pRigmriRegion_ =
RegionInstanceGroupManagersRecreateInstances'
{ _rigmriProject = pRigmriProject_
, _rigmriInstanceGroupManager = pRigmriInstanceGroupManager_
, _rigmriPayload = pRigmriPayload_
, _rigmriRegion = pRigmriRegion_
}
rigmriProject :: Lens' RegionInstanceGroupManagersRecreateInstances Text
rigmriProject
= lens _rigmriProject
(\ s a -> s{_rigmriProject = a})
rigmriInstanceGroupManager :: Lens' RegionInstanceGroupManagersRecreateInstances Text
rigmriInstanceGroupManager
= lens _rigmriInstanceGroupManager
(\ s a -> s{_rigmriInstanceGroupManager = a})
rigmriPayload :: Lens' RegionInstanceGroupManagersRecreateInstances RegionInstanceGroupManagersRecreateRequest
rigmriPayload
= lens _rigmriPayload
(\ s a -> s{_rigmriPayload = a})
rigmriRegion :: Lens' RegionInstanceGroupManagersRecreateInstances Text
rigmriRegion
= lens _rigmriRegion (\ s a -> s{_rigmriRegion = a})
instance GoogleRequest
RegionInstanceGroupManagersRecreateInstances where
type Rs RegionInstanceGroupManagersRecreateInstances
= Operation
type Scopes
RegionInstanceGroupManagersRecreateInstances
=
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient
RegionInstanceGroupManagersRecreateInstances'{..}
= go _rigmriProject _rigmriRegion
_rigmriInstanceGroupManager
(Just AltJSON)
_rigmriPayload
computeService
where go
= buildClient
(Proxy ::
Proxy
RegionInstanceGroupManagersRecreateInstancesResource)
mempty