module Network.Google.Resource.ReplicaPool.InstanceGroupManagers.List
(
InstanceGroupManagersListResource
, instanceGroupManagersList
, InstanceGroupManagersList
, igmlProject
, igmlZone
, igmlFilter
, igmlPageToken
, igmlMaxResults
) where
import Network.Google.Prelude
import Network.Google.ReplicaPool.Types
type InstanceGroupManagersListResource =
"replicapool" :>
"v1beta2" :>
"projects" :>
Capture "project" Text :>
"zones" :>
Capture "zone" Text :>
"instanceGroupManagers" :>
QueryParam "filter" Text :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Word32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] InstanceGroupManagerList
data InstanceGroupManagersList = InstanceGroupManagersList'
{ _igmlProject :: !Text
, _igmlZone :: !Text
, _igmlFilter :: !(Maybe Text)
, _igmlPageToken :: !(Maybe Text)
, _igmlMaxResults :: !(Textual Word32)
} deriving (Eq,Show,Data,Typeable,Generic)
instanceGroupManagersList
:: Text
-> Text
-> InstanceGroupManagersList
instanceGroupManagersList pIgmlProject_ pIgmlZone_ =
InstanceGroupManagersList'
{ _igmlProject = pIgmlProject_
, _igmlZone = pIgmlZone_
, _igmlFilter = Nothing
, _igmlPageToken = Nothing
, _igmlMaxResults = 500
}
igmlProject :: Lens' InstanceGroupManagersList Text
igmlProject
= lens _igmlProject (\ s a -> s{_igmlProject = a})
igmlZone :: Lens' InstanceGroupManagersList Text
igmlZone = lens _igmlZone (\ s a -> s{_igmlZone = a})
igmlFilter :: Lens' InstanceGroupManagersList (Maybe Text)
igmlFilter
= lens _igmlFilter (\ s a -> s{_igmlFilter = a})
igmlPageToken :: Lens' InstanceGroupManagersList (Maybe Text)
igmlPageToken
= lens _igmlPageToken
(\ s a -> s{_igmlPageToken = a})
igmlMaxResults :: Lens' InstanceGroupManagersList Word32
igmlMaxResults
= lens _igmlMaxResults
(\ s a -> s{_igmlMaxResults = a})
. _Coerce
instance GoogleRequest InstanceGroupManagersList
where
type Rs InstanceGroupManagersList =
InstanceGroupManagerList
type Scopes InstanceGroupManagersList =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/cloud-platform.read-only",
"https://www.googleapis.com/auth/compute",
"https://www.googleapis.com/auth/compute.readonly"]
requestClient InstanceGroupManagersList'{..}
= go _igmlProject _igmlZone _igmlFilter
_igmlPageToken
(Just _igmlMaxResults)
(Just AltJSON)
replicaPoolService
where go
= buildClient
(Proxy :: Proxy InstanceGroupManagersListResource)
mempty