module Network.Google.Resource.Compute.InstanceGroupManagers.ListManagedInstances
(
InstanceGroupManagersListManagedInstancesResource
, instanceGroupManagersListManagedInstances
, InstanceGroupManagersListManagedInstances
, igmlmiProject
, igmlmiInstanceGroupManager
, igmlmiZone
, igmlmiOrderBy
, igmlmiFilter
, igmlmiPageToken
, igmlmiMaxResults
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type InstanceGroupManagersListManagedInstancesResource
=
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"zones" :>
Capture "zone" Text :>
"instanceGroupManagers" :>
Capture "instanceGroupManager" Text :>
"listManagedInstances" :>
QueryParam "order_by" Text :>
QueryParam "filter" Text :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Word32) :>
QueryParam "alt" AltJSON :>
Post '[JSON]
InstanceGroupManagersListManagedInstancesResponse
data InstanceGroupManagersListManagedInstances = InstanceGroupManagersListManagedInstances'
{ _igmlmiProject :: !Text
, _igmlmiInstanceGroupManager :: !Text
, _igmlmiZone :: !Text
, _igmlmiOrderBy :: !(Maybe Text)
, _igmlmiFilter :: !(Maybe Text)
, _igmlmiPageToken :: !(Maybe Text)
, _igmlmiMaxResults :: !(Textual Word32)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagersListManagedInstances
:: Text
-> Text
-> Text
-> InstanceGroupManagersListManagedInstances
instanceGroupManagersListManagedInstances pIgmlmiProject_ pIgmlmiInstanceGroupManager_ pIgmlmiZone_ =
InstanceGroupManagersListManagedInstances'
{ _igmlmiProject = pIgmlmiProject_
, _igmlmiInstanceGroupManager = pIgmlmiInstanceGroupManager_
, _igmlmiZone = pIgmlmiZone_
, _igmlmiOrderBy = Nothing
, _igmlmiFilter = Nothing
, _igmlmiPageToken = Nothing
, _igmlmiMaxResults = 500
}
igmlmiProject :: Lens' InstanceGroupManagersListManagedInstances Text
igmlmiProject
= lens _igmlmiProject
(\ s a -> s{_igmlmiProject = a})
igmlmiInstanceGroupManager :: Lens' InstanceGroupManagersListManagedInstances Text
igmlmiInstanceGroupManager
= lens _igmlmiInstanceGroupManager
(\ s a -> s{_igmlmiInstanceGroupManager = a})
igmlmiZone :: Lens' InstanceGroupManagersListManagedInstances Text
igmlmiZone
= lens _igmlmiZone (\ s a -> s{_igmlmiZone = a})
igmlmiOrderBy :: Lens' InstanceGroupManagersListManagedInstances (Maybe Text)
igmlmiOrderBy
= lens _igmlmiOrderBy
(\ s a -> s{_igmlmiOrderBy = a})
igmlmiFilter :: Lens' InstanceGroupManagersListManagedInstances (Maybe Text)
igmlmiFilter
= lens _igmlmiFilter (\ s a -> s{_igmlmiFilter = a})
igmlmiPageToken :: Lens' InstanceGroupManagersListManagedInstances (Maybe Text)
igmlmiPageToken
= lens _igmlmiPageToken
(\ s a -> s{_igmlmiPageToken = a})
igmlmiMaxResults :: Lens' InstanceGroupManagersListManagedInstances Word32
igmlmiMaxResults
= lens _igmlmiMaxResults
(\ s a -> s{_igmlmiMaxResults = a})
. _Coerce
instance GoogleRequest
InstanceGroupManagersListManagedInstances where
type Rs InstanceGroupManagersListManagedInstances =
InstanceGroupManagersListManagedInstancesResponse
type Scopes InstanceGroupManagersListManagedInstances
=
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute",
"https://www.googleapis.com/auth/compute.readonly"]
requestClient
InstanceGroupManagersListManagedInstances'{..}
= go _igmlmiProject _igmlmiZone
_igmlmiInstanceGroupManager
_igmlmiOrderBy
_igmlmiFilter
_igmlmiPageToken
(Just _igmlmiMaxResults)
(Just AltJSON)
computeService
where go
= buildClient
(Proxy ::
Proxy
InstanceGroupManagersListManagedInstancesResource)
mempty