module Network.Google.Resource.ReplicaPool.InstanceGroupManagers.DeleteInstances
(
InstanceGroupManagersDeleteInstancesResource
, instanceGroupManagersDeleteInstances
, InstanceGroupManagersDeleteInstances
, igmdiProject
, igmdiInstanceGroupManager
, igmdiZone
, igmdiPayload
) where
import Network.Google.Prelude
import Network.Google.ReplicaPool.Types
type InstanceGroupManagersDeleteInstancesResource =
"replicapool" :>
"v1beta2" :>
"projects" :>
Capture "project" Text :>
"zones" :>
Capture "zone" Text :>
"instanceGroupManagers" :>
Capture "instanceGroupManager" Text :>
"deleteInstances" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
InstanceGroupManagersDeleteInstancesRequest
:> Post '[JSON] Operation
data InstanceGroupManagersDeleteInstances = InstanceGroupManagersDeleteInstances
{ _igmdiProject :: !Text
, _igmdiInstanceGroupManager :: !Text
, _igmdiZone :: !Text
, _igmdiPayload :: !InstanceGroupManagersDeleteInstancesRequest
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagersDeleteInstances
:: Text
-> Text
-> Text
-> InstanceGroupManagersDeleteInstancesRequest
-> InstanceGroupManagersDeleteInstances
instanceGroupManagersDeleteInstances pIgmdiProject_ pIgmdiInstanceGroupManager_ pIgmdiZone_ pIgmdiPayload_ =
InstanceGroupManagersDeleteInstances
{ _igmdiProject = pIgmdiProject_
, _igmdiInstanceGroupManager = pIgmdiInstanceGroupManager_
, _igmdiZone = pIgmdiZone_
, _igmdiPayload = pIgmdiPayload_
}
igmdiProject :: Lens' InstanceGroupManagersDeleteInstances Text
igmdiProject
= lens _igmdiProject (\ s a -> s{_igmdiProject = a})
igmdiInstanceGroupManager :: Lens' InstanceGroupManagersDeleteInstances Text
igmdiInstanceGroupManager
= lens _igmdiInstanceGroupManager
(\ s a -> s{_igmdiInstanceGroupManager = a})
igmdiZone :: Lens' InstanceGroupManagersDeleteInstances Text
igmdiZone
= lens _igmdiZone (\ s a -> s{_igmdiZone = a})
igmdiPayload :: Lens' InstanceGroupManagersDeleteInstances InstanceGroupManagersDeleteInstancesRequest
igmdiPayload
= lens _igmdiPayload (\ s a -> s{_igmdiPayload = a})
instance GoogleRequest
InstanceGroupManagersDeleteInstances where
type Rs InstanceGroupManagersDeleteInstances =
Operation
requestClient
InstanceGroupManagersDeleteInstances{..}
= go _igmdiProject _igmdiZone
_igmdiInstanceGroupManager
(Just AltJSON)
_igmdiPayload
replicaPoolService
where go
= buildClient
(Proxy ::
Proxy InstanceGroupManagersDeleteInstancesResource)
mempty