module Network.Google.Resource.Compute.RegionInstanceGroupManagers.Delete
(
RegionInstanceGroupManagersDeleteResource
, regionInstanceGroupManagersDelete
, RegionInstanceGroupManagersDelete
, rigmdProject
, rigmdInstanceGroupManager
, rigmdRegion
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type RegionInstanceGroupManagersDeleteResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"regions" :>
Capture "region" Text :>
"instanceGroupManagers" :>
Capture "instanceGroupManager" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Operation
data RegionInstanceGroupManagersDelete = RegionInstanceGroupManagersDelete'
{ _rigmdProject :: !Text
, _rigmdInstanceGroupManager :: !Text
, _rigmdRegion :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
regionInstanceGroupManagersDelete
:: Text
-> Text
-> Text
-> RegionInstanceGroupManagersDelete
regionInstanceGroupManagersDelete pRigmdProject_ pRigmdInstanceGroupManager_ pRigmdRegion_ =
RegionInstanceGroupManagersDelete'
{ _rigmdProject = pRigmdProject_
, _rigmdInstanceGroupManager = pRigmdInstanceGroupManager_
, _rigmdRegion = pRigmdRegion_
}
rigmdProject :: Lens' RegionInstanceGroupManagersDelete Text
rigmdProject
= lens _rigmdProject (\ s a -> s{_rigmdProject = a})
rigmdInstanceGroupManager :: Lens' RegionInstanceGroupManagersDelete Text
rigmdInstanceGroupManager
= lens _rigmdInstanceGroupManager
(\ s a -> s{_rigmdInstanceGroupManager = a})
rigmdRegion :: Lens' RegionInstanceGroupManagersDelete Text
rigmdRegion
= lens _rigmdRegion (\ s a -> s{_rigmdRegion = a})
instance GoogleRequest
RegionInstanceGroupManagersDelete where
type Rs RegionInstanceGroupManagersDelete = Operation
type Scopes RegionInstanceGroupManagersDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient RegionInstanceGroupManagersDelete'{..}
= go _rigmdProject _rigmdRegion
_rigmdInstanceGroupManager
(Just AltJSON)
computeService
where go
= buildClient
(Proxy ::
Proxy RegionInstanceGroupManagersDeleteResource)
mempty