module Network.Google.Resource.Autoscaler.Zones.List
(
ZonesListResource
, zonesList
, ZonesList
, zlProject
, zlFilter
, zlPageToken
, zlMaxResults
) where
import Network.Google.Autoscaler.Types
import Network.Google.Prelude
type ZonesListResource =
"autoscaler" :>
"v1beta2" :>
"zones" :>
QueryParam "project" Text :>
QueryParam "filter" Text :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Word32) :>
QueryParam "alt" AltJSON :> Get '[JSON] ZoneList
data ZonesList = ZonesList'
{ _zlProject :: !(Maybe Text)
, _zlFilter :: !(Maybe Text)
, _zlPageToken :: !(Maybe Text)
, _zlMaxResults :: !(Textual Word32)
} deriving (Eq,Show,Data,Typeable,Generic)
zonesList
:: ZonesList
zonesList =
ZonesList'
{ _zlProject = Nothing
, _zlFilter = Nothing
, _zlPageToken = Nothing
, _zlMaxResults = 500
}
zlProject :: Lens' ZonesList (Maybe Text)
zlProject
= lens _zlProject (\ s a -> s{_zlProject = a})
zlFilter :: Lens' ZonesList (Maybe Text)
zlFilter = lens _zlFilter (\ s a -> s{_zlFilter = a})
zlPageToken :: Lens' ZonesList (Maybe Text)
zlPageToken
= lens _zlPageToken (\ s a -> s{_zlPageToken = a})
zlMaxResults :: Lens' ZonesList Word32
zlMaxResults
= lens _zlMaxResults (\ s a -> s{_zlMaxResults = a})
. _Coerce
instance GoogleRequest ZonesList where
type Rs ZonesList = ZoneList
type Scopes ZonesList =
'["https://www.googleapis.com/auth/compute",
"https://www.googleapis.com/auth/compute.readonly"]
requestClient ZonesList'{..}
= go _zlProject _zlFilter _zlPageToken
(Just _zlMaxResults)
(Just AltJSON)
autoscalerService
where go
= buildClient (Proxy :: Proxy ZonesListResource)
mempty