@@ -20,11 +20,51 @@ module Network.Google.Container.Types.Product where
20import Network.Google.Container.Types.Sum
20import Network.Google.Container.Types.Sum
21import Network.Google.Prelude
21import Network.Google.Prelude
23+-- | Configuration options for the horizontal pod autoscaling feature, which
24+-- increases or decreases the number of replica pods a replication
25+-- controller has based on the resource usage of the existing pods.
27+-- /See:/ 'horizontalPodAutoscaling' smart constructor.
28+newtype HorizontalPodAutoscaling = HorizontalPodAutoscaling'
29+ { _hpaDisabled :: Maybe Bool
30+ } deriving (Eq,Show,Data,Typeable,Generic)
32+-- | Creates a value of 'HorizontalPodAutoscaling' with the minimum fields required to make a request.
34+-- Use one of the following lenses to modify other fields as desired:
37+horizontalPodAutoscaling
38+ :: HorizontalPodAutoscaling
39+horizontalPodAutoscaling =
40+ HorizontalPodAutoscaling'
41+ { _hpaDisabled = Nothing
44+-- | Whether the Horizontal Pod Autoscaling feature is enabled in the
45+-- cluster. When enabled, it ensures that a Heapster pod is running in the
46+-- cluster, which is also used by the Cloud Monitoring service.
47+hpaDisabled :: Lens' HorizontalPodAutoscaling (Maybe Bool)
49+ = lens _hpaDisabled (\ s a -> s{_hpaDisabled = a})
51+instance FromJSON HorizontalPodAutoscaling where
53+ = withObject "HorizontalPodAutoscaling"
55+ HorizontalPodAutoscaling' <$> (o .:? "disabled"))
57+instance ToJSON HorizontalPodAutoscaling where
58+ toJSON HorizontalPodAutoscaling'{..}
60+ (catMaybes [("disabled" .=) <$> _hpaDisabled])
23-- | ListOperationsResponse is the result of ListOperationsRequest.
62-- | ListOperationsResponse is the result of ListOperationsRequest.
25-- /See:/ 'listOperationsResponse' smart constructor.
64-- /See:/ 'listOperationsResponse' smart constructor.
26−newtype ListOperationsResponse = ListOperationsResponse'
65+data ListOperationsResponse = ListOperationsResponse'
27− { _lorOperations :: Maybe [Operation]
66+ { _lorOperations :: !(Maybe [Operation])
67+ , _lorMissingZones :: !(Maybe [Text])
28 } deriving (Eq,Show,Data,Typeable,Generic)
68 } deriving (Eq,Show,Data,Typeable,Generic)
30-- | Creates a value of 'ListOperationsResponse' with the minimum fields required to make a request.
70-- | Creates a value of 'ListOperationsResponse' with the minimum fields required to make a request.
@@ -32,11 +72,14 @@ newtype ListOperationsResponse = ListOperationsResponse'
32-- Use one of the following lenses to modify other fields as desired:
72-- Use one of the following lenses to modify other fields as desired:
34-- * 'lorOperations'
74-- * 'lorOperations'
76+-- * 'lorMissingZones'
35listOperationsResponse
77listOperationsResponse
36 :: ListOperationsResponse
78 :: ListOperationsResponse
37listOperationsResponse =
79listOperationsResponse =
38 ListOperationsResponse'
80 ListOperationsResponse'
39 { _lorOperations = Nothing
81 { _lorOperations = Nothing
82+ , _lorMissingZones = Nothing
42-- | A list of operations in the project in the specified zone.
85-- | A list of operations in the project in the specified zone.
@@ -47,17 +90,29 @@ lorOperations
47 . _Default
90 . _Default
93+-- | If any zones are listed here, the list of operations returned may be
94+-- missing the operations from those zones.
95+lorMissingZones :: Lens' ListOperationsResponse [Text]
97+ = lens _lorMissingZones
98+ (\ s a -> s{_lorMissingZones = a})
50instance FromJSON ListOperationsResponse where
102instance FromJSON ListOperationsResponse where
51 parseJSON
103 parseJSON
52 = withObject "ListOperationsResponse"
104 = withObject "ListOperationsResponse"
54 ListOperationsResponse' <$>
106 ListOperationsResponse' <$>
55− (o .:? "operations" .!= mempty))
107+ (o .:? "operations" .!= mempty) <*>
108+ (o .:? "missingZones" .!= mempty))
57instance ToJSON ListOperationsResponse where
110instance ToJSON ListOperationsResponse where
58 toJSON ListOperationsResponse'{..}
111 toJSON ListOperationsResponse'{..}
60− (catMaybes [("operations" .=) <$> _lorOperations])
114+ [("operations" .=) <$> _lorOperations,
115+ ("missingZones" .=) <$> _lorMissingZones])
62-- | CreateClusterRequest creates a cluster.
117-- | CreateClusterRequest creates a cluster.
@@ -98,6 +153,7 @@ instance ToJSON CreateClusterRequest where
98-- /See:/ 'cluster' smart constructor.
153-- /See:/ 'cluster' smart constructor.
99data Cluster = Cluster'
154data Cluster = Cluster'
100 { _cStatus :: !(Maybe Text)
155 { _cStatus :: !(Maybe Text)
156+ , _cNodePools :: !(Maybe [NodePool])
101 , _cNodeConfig :: !(Maybe NodeConfig)
157 , _cNodeConfig :: !(Maybe NodeConfig)
102 , _cNodeIPv4CIdRSize :: !(Maybe (Textual Int32))
158 , _cNodeIPv4CIdRSize :: !(Maybe (Textual Int32))
103 , _cClusterIPv4CIdR :: !(Maybe Text)
159 , _cClusterIPv4CIdR :: !(Maybe Text)
@@ -106,13 +162,17 @@ data Cluster = Cluster'
106 , _cNetwork :: !(Maybe Text)
162 , _cNetwork :: !(Maybe Text)
107 , _cInitialClusterVersion :: !(Maybe Text)
163 , _cInitialClusterVersion :: !(Maybe Text)
108 , _cZone :: !(Maybe Text)
164 , _cZone :: !(Maybe Text)
165+ , _cAddonsConfig :: !(Maybe AddonsConfig)
109 , _cServicesIPv4CIdR :: !(Maybe Text)
166 , _cServicesIPv4CIdR :: !(Maybe Text)
110 , _cMasterAuth :: !(Maybe MasterAuth)
167 , _cMasterAuth :: !(Maybe MasterAuth)
111 , _cSelfLink :: !(Maybe Text)
168 , _cSelfLink :: !(Maybe Text)
112 , _cName :: !(Maybe Text)
169 , _cName :: !(Maybe Text)
113 , _cCurrentMasterVersion :: !(Maybe Text)
170 , _cCurrentMasterVersion :: !(Maybe Text)
114 , _cStatusMessage :: !(Maybe Text)
171 , _cStatusMessage :: !(Maybe Text)
172+ , _cSubnetwork :: !(Maybe Text)
173+ , _cCurrentNodeCount :: !(Maybe (Textual Int32))
115 , _cEndpoint :: !(Maybe Text)
174 , _cEndpoint :: !(Maybe Text)
175+ , _cLocations :: !(Maybe [Text])
116 , _cLoggingService :: !(Maybe Text)
176 , _cLoggingService :: !(Maybe Text)
117 , _cDescription :: !(Maybe Text)
177 , _cDescription :: !(Maybe Text)
118 , _cInstanceGroupURLs :: !(Maybe [Text])
178 , _cInstanceGroupURLs :: !(Maybe [Text])
@@ -126,6 +186,8 @@ data Cluster = Cluster'
127-- * 'cStatus'
187-- * 'cStatus'
129-- * 'cNodeConfig'
191-- * 'cNodeConfig'
131-- * 'cNodeIPv4CIdRSize'
193-- * 'cNodeIPv4CIdRSize'
@@ -142,6 +204,8 @@ data Cluster = Cluster'
143-- * 'cZone'
205-- * 'cZone'
145-- * 'cServicesIPv4CIdR'
209-- * 'cServicesIPv4CIdR'
147-- * 'cMasterAuth'
211-- * 'cMasterAuth'
@@ -154,8 +218,14 @@ data Cluster = Cluster'
155-- * 'cStatusMessage'
219-- * 'cStatusMessage'
223+-- * 'cCurrentNodeCount'
157-- * 'cEndpoint'
225-- * 'cEndpoint'
159-- * 'cLoggingService'
229-- * 'cLoggingService'
161-- * 'cDescription'
231-- * 'cDescription'
@@ -170,6 +240,7 @@ cluster
172 { _cStatus = Nothing
242 { _cStatus = Nothing
243+ , _cNodePools = Nothing
173 , _cNodeConfig = Nothing
244 , _cNodeConfig = Nothing
174 , _cNodeIPv4CIdRSize = Nothing
245 , _cNodeIPv4CIdRSize = Nothing
175 , _cClusterIPv4CIdR = Nothing
246 , _cClusterIPv4CIdR = Nothing
@@ -178,13 +249,17 @@ cluster =
178 , _cNetwork = Nothing
249 , _cNetwork = Nothing
179 , _cInitialClusterVersion = Nothing
250 , _cInitialClusterVersion = Nothing
180 , _cZone = Nothing
251 , _cZone = Nothing
252+ , _cAddonsConfig = Nothing
181 , _cServicesIPv4CIdR = Nothing
253 , _cServicesIPv4CIdR = Nothing
182 , _cMasterAuth = Nothing
254 , _cMasterAuth = Nothing
183 , _cSelfLink = Nothing
255 , _cSelfLink = Nothing
184 , _cName = Nothing
256 , _cName = Nothing
185 , _cCurrentMasterVersion = Nothing
257 , _cCurrentMasterVersion = Nothing
186 , _cStatusMessage = Nothing
258 , _cStatusMessage = Nothing
259+ , _cSubnetwork = Nothing
260+ , _cCurrentNodeCount = Nothing
187 , _cEndpoint = Nothing
261 , _cEndpoint = Nothing
262+ , _cLocations = Nothing
188 , _cLoggingService = Nothing
263 , _cLoggingService = Nothing
189 , _cDescription = Nothing
264 , _cDescription = Nothing
190 , _cInstanceGroupURLs = Nothing
265 , _cInstanceGroupURLs = Nothing
@@ -196,15 +271,29 @@ cluster =
196cStatus :: Lens' Cluster (Maybe Text)
271cStatus :: Lens' Cluster (Maybe Text)
197cStatus = lens _cStatus (\ s a -> s{_cStatus = a})
272cStatus = lens _cStatus (\ s a -> s{_cStatus = a})
274+-- | The node pools associated with this cluster. When creating a new
275+-- cluster, only a single node pool should be specified. This field should
276+-- not be set if \"node_config\" or \"initial_node_count\" are specified.
277+cNodePools :: Lens' Cluster [NodePool]
279+ = lens _cNodePools (\ s a -> s{_cNodePools = a}) .
199−-- | Parameters used in creating the cluster\'s nodes. See the descriptions
283+-- | Parameters used in creating the cluster\'s nodes. See \`nodeConfig\` for
200−-- of the child properties of \`nodeConfig\`. If unspecified, the defaults
284+-- the description of its properties. For requests, this field should only
201−-- for all child properties are used.
285+-- be used in lieu of a \"node_pool\" object, since this configuration
286+-- (along with the \"initial_node_count\") will be used to create a
287+-- \"NodePool\" object with an auto-generated name. Do not use this and a
288+-- node_pool at the same time. For responses, this field will be populated
289+-- with the node configuration of the first node pool. If unspecified, the
290+-- defaults are used.
202cNodeConfig :: Lens' Cluster (Maybe NodeConfig)
291cNodeConfig :: Lens' Cluster (Maybe NodeConfig)
203cNodeConfig
292cNodeConfig
204 = lens _cNodeConfig (\ s a -> s{_cNodeConfig = a})
293 = lens _cNodeConfig (\ s a -> s{_cNodeConfig = a})
206-- | [Output only] The size of the address space on each node for hosting
295-- | [Output only] The size of the address space on each node for hosting
207−-- containers. This is provisioned from within the container_ipv4_cidr
296+-- containers. This is provisioned from within the \`container_ipv4_cidr\`
209cNodeIPv4CIdRSize :: Lens' Cluster (Maybe Int32)
298cNodeIPv4CIdRSize :: Lens' Cluster (Maybe Int32)
210cNodeIPv4CIdRSize
299cNodeIPv4CIdRSize
@@ -222,9 +311,12 @@ cClusterIPv4CIdR
222 (\ s a -> s{_cClusterIPv4CIdR = a})
311 (\ s a -> s{_cClusterIPv4CIdR = a})
224-- | The number of nodes to create in this cluster. You must ensure that your
313-- | The number of nodes to create in this cluster. You must ensure that your
225−-- Compute Engine [resource quota](\/compute\/docs\/resource-quotas) is
314+-- Compute Engine resource quota is sufficient for this number of
226−-- sufficient for this number of instances. You must also have available
315+-- instances. You must also have available firewall and routes quota. For
227−-- firewall and routes quota.
316+-- requests, this field should only be used in lieu of a \"node_pool\"
317+-- object, since this configuration (along with the \"node_config\") will
318+-- be used to create a \"NodePool\" object with an auto-generated name. Do
319+-- not use this and a node_pool at the same time.
228cInitialNodeCount :: Lens' Cluster (Maybe Int32)
320cInitialNodeCount :: Lens' Cluster (Maybe Int32)
229cInitialNodeCount
321cInitialNodeCount
230 = lens _cInitialNodeCount
322 = lens _cInitialNodeCount
@@ -232,20 +324,21 @@ cInitialNodeCount
232 . mapping _Coerce
324 . mapping _Coerce
234-- | [Output only] The current version of the node software components. If
326-- | [Output only] The current version of the node software components. If
235−-- they are currently at different versions because they\'re in the process
327+-- they are currently at multiple versions because they\'re in the process
236−-- of being upgraded, this reflects the minimum version of any of them.
328+-- of being upgraded, this reflects the minimum version of all nodes.
237cCurrentNodeVersion :: Lens' Cluster (Maybe Text)
329cCurrentNodeVersion :: Lens' Cluster (Maybe Text)
238cCurrentNodeVersion
330cCurrentNodeVersion
239 = lens _cCurrentNodeVersion
331 = lens _cCurrentNodeVersion
240 (\ s a -> s{_cCurrentNodeVersion = a})
332 (\ s a -> s{_cCurrentNodeVersion = a})
242-- | The name of the Google Compute Engine
334-- | The name of the Google Compute Engine
243−-- [network](\/compute\/docs\/networking#networks_1) to which the cluster
335+-- [network](\/compute\/docs\/networks-and-firewalls#networks) to which the
244−-- is connected. If left unspecified, the \"default\" network will be used.
336+-- cluster is connected. If left unspecified, the \`default\` network will
245cNetwork :: Lens' Cluster (Maybe Text)
338cNetwork :: Lens' Cluster (Maybe Text)
246cNetwork = lens _cNetwork (\ s a -> s{_cNetwork = a})
339cNetwork = lens _cNetwork (\ s a -> s{_cNetwork = a})
248−-- | [Output only] The software version of Kubernetes master and kubelets
341+-- | [Output only] The software version of the master endpoint and kubelets
249-- used in the cluster when it was first created. The version can be
342-- used in the cluster when it was first created. The version can be
250-- upgraded over time.
343-- upgraded over time.
251cInitialClusterVersion :: Lens' Cluster (Maybe Text)
344cInitialClusterVersion :: Lens' Cluster (Maybe Text)
@@ -258,17 +351,23 @@ cInitialClusterVersion
258cZone :: Lens' Cluster (Maybe Text)
351cZone :: Lens' Cluster (Maybe Text)
259cZone = lens _cZone (\ s a -> s{_cZone = a})
352cZone = lens _cZone (\ s a -> s{_cZone = a})
354+-- | Configurations for the various addons available to run in the cluster.
355+cAddonsConfig :: Lens' Cluster (Maybe AddonsConfig)
357+ = lens _cAddonsConfig
358+ (\ s a -> s{_cAddonsConfig = a})
261-- | [Output only] The IP address range of the Kubernetes services in this
360-- | [Output only] The IP address range of the Kubernetes services in this
262-- cluster, in
361-- cluster, in
263-- [CIDR](http:\/\/en.wikipedia.org\/wiki\/Classless_Inter-Domain_Routing)
362-- [CIDR](http:\/\/en.wikipedia.org\/wiki\/Classless_Inter-Domain_Routing)
264-- notation (e.g. \`1.2.3.4\/29\`). Service addresses are typically put in
363-- notation (e.g. \`1.2.3.4\/29\`). Service addresses are typically put in
265−-- the last \/16 from the container CIDR.
364+-- the last \`\/16\` from the container CIDR.
266cServicesIPv4CIdR :: Lens' Cluster (Maybe Text)
365cServicesIPv4CIdR :: Lens' Cluster (Maybe Text)
267cServicesIPv4CIdR
366cServicesIPv4CIdR
268 = lens _cServicesIPv4CIdR
367 = lens _cServicesIPv4CIdR
269 (\ s a -> s{_cServicesIPv4CIdR = a})
368 (\ s a -> s{_cServicesIPv4CIdR = a})
271−-- | The authentication information for accessing the master.
370+-- | The authentication information for accessing the master endpoint.
272cMasterAuth :: Lens' Cluster (Maybe MasterAuth)
371cMasterAuth :: Lens' Cluster (Maybe MasterAuth)
273cMasterAuth
372cMasterAuth
274 = lens _cMasterAuth (\ s a -> s{_cMasterAuth = a})
373 = lens _cMasterAuth (\ s a -> s{_cMasterAuth = a})
@@ -298,18 +397,41 @@ cStatusMessage
298 = lens _cStatusMessage
397 = lens _cStatusMessage
299 (\ s a -> s{_cStatusMessage = a})
398 (\ s a -> s{_cStatusMessage = a})
400+-- | The name of the Google Compute Engine
401+-- [subnetwork](\/compute\/docs\/subnetworks) to which the cluster is
403+cSubnetwork :: Lens' Cluster (Maybe Text)
405+ = lens _cSubnetwork (\ s a -> s{_cSubnetwork = a})
407+-- | [Output only] The number of nodes currently in the cluster.
408+cCurrentNodeCount :: Lens' Cluster (Maybe Int32)
410+ = lens _cCurrentNodeCount
411+ (\ s a -> s{_cCurrentNodeCount = a})
301−-- | [Output only] The IP address of this cluster\'s Kubernetes master
414+-- | [Output only] The IP address of this cluster\'s master endpoint. The
302−-- endpoint. The endpoint can be accessed from the internet at
415+-- endpoint can be accessed from the internet at
303-- \`https:\/\/username:password\'endpoint\/\`. See the \`masterAuth\`
416-- \`https:\/\/username:password\'endpoint\/\`. See the \`masterAuth\`
304-- property of this resource for username and password information.
417-- property of this resource for username and password information.
305cEndpoint :: Lens' Cluster (Maybe Text)
418cEndpoint :: Lens' Cluster (Maybe Text)
307 = lens _cEndpoint (\ s a -> s{_cEndpoint = a})
420 = lens _cEndpoint (\ s a -> s{_cEndpoint = a})
422+-- | The list of Google Compute Engine
423+-- [locations](\/compute\/docs\/zones#available) in which the cluster\'s
424+-- nodes should be located.
425+cLocations :: Lens' Cluster [Text]
427+ = lens _cLocations (\ s a -> s{_cLocations = a}) .
309−-- | The logging service that the cluster should write logs to. Currently
431+-- | The logging service the cluster should use to write logs. Currently
310−-- available options: * \"logging.googleapis.com\" - the Google Cloud
432+-- available options: * \`logging.googleapis.com\` - the Google Cloud
311−-- Logging service * \"none\" - no logs will be exported from the cluster *
433+-- Logging service. * \`none\` - no logs will be exported from the cluster.
312−-- \"\" - default value; the default is \"logging.googleapis.com\"
434+-- * if left as an empty string,\`logging.googleapis.com\` will be used.
313cLoggingService :: Lens' Cluster (Maybe Text)
435cLoggingService :: Lens' Cluster (Maybe Text)
314cLoggingService
436cLoggingService
315 = lens _cLoggingService
437 = lens _cLoggingService
@@ -330,11 +452,11 @@ cInstanceGroupURLs
330 . _Default
452 . _Default
331 . _Coerce
453 . _Coerce
333−-- | The monitoring service that the cluster should write metrics to.
455+-- | The monitoring service the cluster should use to write metrics.
334−-- Currently available options: * \"monitoring.googleapis.com\" - the
456+-- Currently available options: * \`monitoring.googleapis.com\` - the
335−-- Google Cloud Monitoring service * \"none\" - no metrics will be exported
457+-- Google Cloud Monitoring service. * \`none\` - no metrics will be
336−-- from the cluster * \"\" - default value; the default is
458+-- exported from the cluster. * if left as an empty string,
337−-- \"monitoring.googleapis.com\"
459+-- \`monitoring.googleapis.com\` will be used.
338cMonitoringService :: Lens' Cluster (Maybe Text)
460cMonitoringService :: Lens' Cluster (Maybe Text)
339cMonitoringService
461cMonitoringService
340 = lens _cMonitoringService
462 = lens _cMonitoringService
@@ -351,21 +473,26 @@ instance FromJSON Cluster where
351 = withObject "Cluster"
473 = withObject "Cluster"
353 Cluster' <$>
475 Cluster' <$>
476+ (o .:? "status") <*> (o .:? "nodePools" .!= mempty)
354− (o .:? "status") <*> (o .:? "nodeConfig") <*>
477+ <*> (o .:? "nodeConfig")
355− (o .:? "nodeIpv4CidrSize")
478+ <*> (o .:? "nodeIpv4CidrSize")
356 <*> (o .:? "clusterIpv4Cidr")
479 <*> (o .:? "clusterIpv4Cidr")
357 <*> (o .:? "initialNodeCount")
480 <*> (o .:? "initialNodeCount")
358 <*> (o .:? "currentNodeVersion")
481 <*> (o .:? "currentNodeVersion")
359 <*> (o .:? "network")
482 <*> (o .:? "network")
360 <*> (o .:? "initialClusterVersion")
483 <*> (o .:? "initialClusterVersion")
361 <*> (o .:? "zone")
484 <*> (o .:? "zone")
485+ <*> (o .:? "addonsConfig")
362 <*> (o .:? "servicesIpv4Cidr")
486 <*> (o .:? "servicesIpv4Cidr")
363 <*> (o .:? "masterAuth")
487 <*> (o .:? "masterAuth")
364 <*> (o .:? "selfLink")
488 <*> (o .:? "selfLink")
365 <*> (o .:? "name")
489 <*> (o .:? "name")
366 <*> (o .:? "currentMasterVersion")
490 <*> (o .:? "currentMasterVersion")
367 <*> (o .:? "statusMessage")
491 <*> (o .:? "statusMessage")
492+ <*> (o .:? "subnetwork")
493+ <*> (o .:? "currentNodeCount")
368 <*> (o .:? "endpoint")
494 <*> (o .:? "endpoint")
495+ <*> (o .:? "locations" .!= mempty)
369 <*> (o .:? "loggingService")
496 <*> (o .:? "loggingService")
370 <*> (o .:? "description")
497 <*> (o .:? "description")
371 <*> (o .:? "instanceGroupUrls" .!= mempty)
498 <*> (o .:? "instanceGroupUrls" .!= mempty)
@@ -377,6 +504,7 @@ instance ToJSON Cluster where
378 (catMaybes
505 (catMaybes
379 [("status" .=) <$> _cStatus,
506 [("status" .=) <$> _cStatus,
507+ ("nodePools" .=) <$> _cNodePools,
380 ("nodeConfig" .=) <$> _cNodeConfig,
508 ("nodeConfig" .=) <$> _cNodeConfig,
381 ("nodeIpv4CidrSize" .=) <$> _cNodeIPv4CIdRSize,
509 ("nodeIpv4CidrSize" .=) <$> _cNodeIPv4CIdRSize,
382 ("clusterIpv4Cidr" .=) <$> _cClusterIPv4CIdR,
510 ("clusterIpv4Cidr" .=) <$> _cClusterIPv4CIdR,
@@ -386,6 +514,7 @@ instance ToJSON Cluster where
386 ("initialClusterVersion" .=) <$>
514 ("initialClusterVersion" .=) <$>
387 _cInitialClusterVersion,
515 _cInitialClusterVersion,
388 ("zone" .=) <$> _cZone,
516 ("zone" .=) <$> _cZone,
517+ ("addonsConfig" .=) <$> _cAddonsConfig,
389 ("servicesIpv4Cidr" .=) <$> _cServicesIPv4CIdR,
518 ("servicesIpv4Cidr" .=) <$> _cServicesIPv4CIdR,
390 ("masterAuth" .=) <$> _cMasterAuth,
519 ("masterAuth" .=) <$> _cMasterAuth,
391 ("selfLink" .=) <$> _cSelfLink,
520 ("selfLink" .=) <$> _cSelfLink,
@@ -393,14 +522,17 @@ instance ToJSON Cluster where
393 ("currentMasterVersion" .=) <$>
522 ("currentMasterVersion" .=) <$>
394 _cCurrentMasterVersion,
523 _cCurrentMasterVersion,
395 ("statusMessage" .=) <$> _cStatusMessage,
524 ("statusMessage" .=) <$> _cStatusMessage,
525+ ("subnetwork" .=) <$> _cSubnetwork,
526+ ("currentNodeCount" .=) <$> _cCurrentNodeCount,
396 ("endpoint" .=) <$> _cEndpoint,
527 ("endpoint" .=) <$> _cEndpoint,
528+ ("locations" .=) <$> _cLocations,
397 ("loggingService" .=) <$> _cLoggingService,
529 ("loggingService" .=) <$> _cLoggingService,
398 ("description" .=) <$> _cDescription,
530 ("description" .=) <$> _cDescription,
399 ("instanceGroupUrls" .=) <$> _cInstanceGroupURLs,
531 ("instanceGroupUrls" .=) <$> _cInstanceGroupURLs,
400 ("monitoringService" .=) <$> _cMonitoringService,
532 ("monitoringService" .=) <$> _cMonitoringService,
401 ("createTime" .=) <$> _cCreateTime])
533 ("createTime" .=) <$> _cCreateTime])
403−-- | UpdateClusterRequest updates a cluster.
535+-- | UpdateClusterRequest updates the settings of a cluster.
405-- /See:/ 'updateClusterRequest' smart constructor.
537-- /See:/ 'updateClusterRequest' smart constructor.
406newtype UpdateClusterRequest = UpdateClusterRequest'
538newtype UpdateClusterRequest = UpdateClusterRequest'
@@ -433,13 +565,14 @@ instance ToJSON UpdateClusterRequest where
433 toJSON UpdateClusterRequest'{..}
565 toJSON UpdateClusterRequest'{..}
434 = object (catMaybes [("update" .=) <$> _ucrUpdate])
566 = object (catMaybes [("update" .=) <$> _ucrUpdate])
436−-- | Per-node parameters.
568+-- | Parameters that describe the nodes in a cluster.
438-- /See:/ 'nodeConfig' smart constructor.
570-- /See:/ 'nodeConfig' smart constructor.
439data NodeConfig = NodeConfig'
571data NodeConfig = NodeConfig'
440 { _ncDiskSizeGb :: !(Maybe (Textual Int32))
572 { _ncDiskSizeGb :: !(Maybe (Textual Int32))
441 , _ncOAuthScopes :: !(Maybe [Text])
573 , _ncOAuthScopes :: !(Maybe [Text])
442 , _ncMachineType :: !(Maybe Text)
574 , _ncMachineType :: !(Maybe Text)
575+ , _ncMetadata :: !(Maybe NodeConfigMetadata)
443 } deriving (Eq,Show,Data,Typeable,Generic)
576 } deriving (Eq,Show,Data,Typeable,Generic)
445-- | Creates a value of 'NodeConfig' with the minimum fields required to make a request.
578-- | Creates a value of 'NodeConfig' with the minimum fields required to make a request.
@@ -451,6 +584,8 @@ data NodeConfig = NodeConfig'
451-- * 'ncOAuthScopes'
584-- * 'ncOAuthScopes'
453-- * 'ncMachineType'
586-- * 'ncMachineType'
454nodeConfig
589nodeConfig
455 :: NodeConfig
590 :: NodeConfig
456nodeConfig =
591nodeConfig =
@@ -458,6 +593,7 @@ nodeConfig =
458 { _ncDiskSizeGb = Nothing
593 { _ncDiskSizeGb = Nothing
459 , _ncOAuthScopes = Nothing
594 , _ncOAuthScopes = Nothing
460 , _ncMachineType = Nothing
595 , _ncMachineType = Nothing
596+ , _ncMetadata = Nothing
463-- | Size of the disk attached to each node, specified in GB. The smallest
599-- | Size of the disk attached to each node, specified in GB. The smallest
@@ -474,7 +610,10 @@ ncDiskSizeGb
474-- \`https:\/\/www.googleapis.com\/auth\/compute\` is required for mounting
610-- \`https:\/\/www.googleapis.com\/auth\/compute\` is required for mounting
475-- persistent storage on your nodes. *
611-- persistent storage on your nodes. *
476-- \`https:\/\/www.googleapis.com\/auth\/devstorage.read_only\` is required
612-- \`https:\/\/www.googleapis.com\/auth\/devstorage.read_only\` is required
613+-- for communicating with **gcr.io** (the [Google Container
477−-- for communicating with *gcr.io*. If unspecified, no scopes are added.
614+-- Registry](\/container-registry\/)). If unspecified, no scopes are added,
615+-- unless Cloud Logging or Cloud Monitoring are enabled, in which case
616+-- their required scopes will be added.
478ncOAuthScopes :: Lens' NodeConfig [Text]
617ncOAuthScopes :: Lens' NodeConfig [Text]
479ncOAuthScopes
618ncOAuthScopes
480 = lens _ncOAuthScopes
619 = lens _ncOAuthScopes
@@ -490,6 +629,20 @@ ncMachineType
490 = lens _ncMachineType
629 = lens _ncMachineType
491 (\ s a -> s{_ncMachineType = a})
630 (\ s a -> s{_ncMachineType = a})
632+-- | The metadata key\/value pairs assigned to instances in the cluster. Keys
633+-- must conform to the regexp [a-zA-Z0-9-_]+ and be less than 128 bytes in
634+-- length. These are reflected as part of a URL in the metadata server.
635+-- Additionally, to avoid ambiguity, keys must not conflict with any other
636+-- metadata keys for the project or be one of the four reserved keys:
637+-- \"instance-template\", \"kube-env\", \"startup-script\", and
638+-- \"user-data\" Values are free-form strings, and only have meaning as
639+-- interpreted by the image running in the instance. The only restriction
640+-- placed on them is that each value\'s size must be less than or equal to
641+-- 32 KB. The total size of all keys and values must be less than 512 KB.
642+ncMetadata :: Lens' NodeConfig (Maybe NodeConfigMetadata)
644+ = lens _ncMetadata (\ s a -> s{_ncMetadata = a})
493instance FromJSON NodeConfig where
646instance FromJSON NodeConfig where
494 parseJSON
647 parseJSON
495 = withObject "NodeConfig"
648 = withObject "NodeConfig"
@@ -497,7 +650,8 @@ instance FromJSON NodeConfig where
497 NodeConfig' <$>
650 NodeConfig' <$>
498 (o .:? "diskSizeGb") <*>
651 (o .:? "diskSizeGb") <*>
499 (o .:? "oauthScopes" .!= mempty)
652 (o .:? "oauthScopes" .!= mempty)
500− <*> (o .:? "machineType"))
653+ <*> (o .:? "machineType")
654+ <*> (o .:? "metadata"))
502instance ToJSON NodeConfig where
656instance ToJSON NodeConfig where
503 toJSON NodeConfig'{..}
657 toJSON NodeConfig'{..}
@@ -505,9 +659,50 @@ instance ToJSON NodeConfig where
505 (catMaybes
659 (catMaybes
506 [("diskSizeGb" .=) <$> _ncDiskSizeGb,
660 [("diskSizeGb" .=) <$> _ncDiskSizeGb,
507 ("oauthScopes" .=) <$> _ncOAuthScopes,
661 ("oauthScopes" .=) <$> _ncOAuthScopes,
508− ("machineType" .=) <$> _ncMachineType])
662+ ("machineType" .=) <$> _ncMachineType,
663+ ("metadata" .=) <$> _ncMetadata])
665+-- | Configuration options for the HTTP (L7) load balancing controller addon,
666+-- which makes it easy to set up HTTP load balancers for services in a
669+-- /See:/ 'hTTPLoadBalancing' smart constructor.
670+newtype HTTPLoadBalancing = HTTPLoadBalancing'
671+ { _httplbDisabled :: Maybe Bool
672+ } deriving (Eq,Show,Data,Typeable,Generic)
674+-- | Creates a value of 'HTTPLoadBalancing' with the minimum fields required to make a request.
676+-- Use one of the following lenses to modify other fields as desired:
678+-- * 'httplbDisabled'
680+ :: HTTPLoadBalancing
683+ { _httplbDisabled = Nothing
686+-- | Whether the HTTP Load Balancing controller is enabled in the cluster.
687+-- When enabled, it runs a small pod in the cluster that manages the load
689+httplbDisabled :: Lens' HTTPLoadBalancing (Maybe Bool)
691+ = lens _httplbDisabled
692+ (\ s a -> s{_httplbDisabled = a})
694+instance FromJSON HTTPLoadBalancing where
696+ = withObject "HTTPLoadBalancing"
697+ (\ o -> HTTPLoadBalancing' <$> (o .:? "disabled"))
699+instance ToJSON HTTPLoadBalancing where
700+ toJSON HTTPLoadBalancing'{..}
702+ (catMaybes [("disabled" .=) <$> _httplbDisabled])
704+-- | This operation resource represents operations that may have happened or
510−-- | Defines the operation resource. All fields are output only.
705+-- are happening on the cluster. All fields are output only.
512-- /See:/ 'operation' smart constructor.
707-- /See:/ 'operation' smart constructor.
513data Operation = Operation'
708data Operation = Operation'
@@ -518,6 +713,7 @@ data Operation = Operation'
518 , _oStatusMessage :: !(Maybe Text)
713 , _oStatusMessage :: !(Maybe Text)
519 , _oOperationType :: !(Maybe Text)
714 , _oOperationType :: !(Maybe Text)
520 , _oTargetLink :: !(Maybe Text)
715 , _oTargetLink :: !(Maybe Text)
716+ , _oDetail :: !(Maybe Text)
521 } deriving (Eq,Show,Data,Typeable,Generic)
717 } deriving (Eq,Show,Data,Typeable,Generic)
523-- | Creates a value of 'Operation' with the minimum fields required to make a request.
719-- | Creates a value of 'Operation' with the minimum fields required to make a request.
@@ -537,6 +733,8 @@ data Operation = Operation'
537-- * 'oOperationType'
733-- * 'oOperationType'
539-- * 'oTargetLink'
735-- * 'oTargetLink'
541 :: Operation
739 :: Operation
542operation =
740operation =
@@ -548,6 +746,7 @@ operation =
548 , _oStatusMessage = Nothing
746 , _oStatusMessage = Nothing
549 , _oOperationType = Nothing
747 , _oOperationType = Nothing
550 , _oTargetLink = Nothing
748 , _oTargetLink = Nothing
749+ , _oDetail = Nothing
553-- | The current status of the operation.
752-- | The current status of the operation.
@@ -586,6 +785,10 @@ oTargetLink :: Lens' Operation (Maybe Text)
586oTargetLink
785oTargetLink
587 = lens _oTargetLink (\ s a -> s{_oTargetLink = a})
786 = lens _oTargetLink (\ s a -> s{_oTargetLink = a})
788+-- | Detailed operation progress, if available.
789+oDetail :: Lens' Operation (Maybe Text)
790+oDetail = lens _oDetail (\ s a -> s{_oDetail = a})
589instance FromJSON Operation where
792instance FromJSON Operation where
590 parseJSON
793 parseJSON
591 = withObject "Operation"
794 = withObject "Operation"
@@ -596,7 +799,8 @@ instance FromJSON Operation where
596 <*> (o .:? "name")
799 <*> (o .:? "name")
597 <*> (o .:? "statusMessage")
800 <*> (o .:? "statusMessage")
598 <*> (o .:? "operationType")
801 <*> (o .:? "operationType")
599− <*> (o .:? "targetLink"))
802+ <*> (o .:? "targetLink")
803+ <*> (o .:? "detail"))
601instance ToJSON Operation where
805instance ToJSON Operation where
602 toJSON Operation'{..}
806 toJSON Operation'{..}
@@ -607,7 +811,189 @@ instance ToJSON Operation where
607 ("name" .=) <$> _oName,
811 ("name" .=) <$> _oName,
608 ("statusMessage" .=) <$> _oStatusMessage,
812 ("statusMessage" .=) <$> _oStatusMessage,
609 ("operationType" .=) <$> _oOperationType,
813 ("operationType" .=) <$> _oOperationType,
610− ("targetLink" .=) <$> _oTargetLink])
814+ ("targetLink" .=) <$> _oTargetLink,
815+ ("detail" .=) <$> _oDetail])
817+-- | Configuration for the addons that can be automatically spun up in the
818+-- cluster, enabling additional functionality.
820+-- /See:/ 'addonsConfig' smart constructor.
821+data AddonsConfig = AddonsConfig'
822+ { _acHorizontalPodAutoscaling :: !(Maybe HorizontalPodAutoscaling)
823+ , _acHTTPLoadBalancing :: !(Maybe HTTPLoadBalancing)
824+ } deriving (Eq,Show,Data,Typeable,Generic)
826+-- | Creates a value of 'AddonsConfig' with the minimum fields required to make a request.
828+-- Use one of the following lenses to modify other fields as desired:
830+-- * 'acHorizontalPodAutoscaling'
832+-- * 'acHTTPLoadBalancing'
837+ { _acHorizontalPodAutoscaling = Nothing
838+ , _acHTTPLoadBalancing = Nothing
841+-- | Configuration for the horizontal pod autoscaling feature, which
842+-- increases or decreases the number of replica pods a replication
843+-- controller has based on the resource usage of the existing pods.
844+acHorizontalPodAutoscaling :: Lens' AddonsConfig (Maybe HorizontalPodAutoscaling)
845+acHorizontalPodAutoscaling
846+ = lens _acHorizontalPodAutoscaling
847+ (\ s a -> s{_acHorizontalPodAutoscaling = a})
849+-- | Configuration for the HTTP (L7) load balancing controller addon, which
850+-- makes it easy to set up HTTP load balancers for services in a cluster.
851+acHTTPLoadBalancing :: Lens' AddonsConfig (Maybe HTTPLoadBalancing)
853+ = lens _acHTTPLoadBalancing
854+ (\ s a -> s{_acHTTPLoadBalancing = a})
856+instance FromJSON AddonsConfig where
858+ = withObject "AddonsConfig"
861+ (o .:? "horizontalPodAutoscaling") <*>
862+ (o .:? "httpLoadBalancing"))
864+instance ToJSON AddonsConfig where
865+ toJSON AddonsConfig'{..}
868+ [("horizontalPodAutoscaling" .=) <$>
869+ _acHorizontalPodAutoscaling,
870+ ("httpLoadBalancing" .=) <$> _acHTTPLoadBalancing])
872+-- | NodePool contains the name and configuration for a cluster\'s node pool.
873+-- Node pools are a set of nodes (i.e. VM\'s), with a common configuration
874+-- and specification, under the control of the cluster master. They may
875+-- have a set of Kubernetes labels applied to them, which may be used to
876+-- reference them during pod scheduling. They may also be resized up or
877+-- down, to accommodate the workload.
879+-- /See:/ 'nodePool' smart constructor.
880+data NodePool = NodePool'
881+ { _npStatus :: !(Maybe Text)
882+ , _npConfig :: !(Maybe NodeConfig)
883+ , _npInitialNodeCount :: !(Maybe (Textual Int32))
884+ , _npSelfLink :: !(Maybe Text)
885+ , _npName :: !(Maybe Text)
886+ , _npStatusMessage :: !(Maybe Text)
887+ , _npVersion :: !(Maybe Text)
888+ , _npInstanceGroupURLs :: !(Maybe [Text])
889+ } deriving (Eq,Show,Data,Typeable,Generic)
891+-- | Creates a value of 'NodePool' with the minimum fields required to make a request.
893+-- Use one of the following lenses to modify other fields as desired:
899+-- * 'npInitialNodeCount'
905+-- * 'npStatusMessage'
909+-- * 'npInstanceGroupURLs'
914+ { _npStatus = Nothing
915+ , _npConfig = Nothing
916+ , _npInitialNodeCount = Nothing
917+ , _npSelfLink = Nothing
919+ , _npStatusMessage = Nothing
920+ , _npVersion = Nothing
921+ , _npInstanceGroupURLs = Nothing
924+-- | The status of the nodes in this pool instance.
925+npStatus :: Lens' NodePool (Maybe Text)
926+npStatus = lens _npStatus (\ s a -> s{_npStatus = a})
928+-- | The node configuration of the pool.
929+npConfig :: Lens' NodePool (Maybe NodeConfig)
930+npConfig = lens _npConfig (\ s a -> s{_npConfig = a})
932+-- | The initial node count for the pool. You must ensure that your Compute
933+-- Engine resource quota is sufficient for this number of instances. You
934+-- must also have available firewall and routes quota.
935+npInitialNodeCount :: Lens' NodePool (Maybe Int32)
937+ = lens _npInitialNodeCount
938+ (\ s a -> s{_npInitialNodeCount = a})
941+-- | Server-defined URL for the resource.
942+npSelfLink :: Lens' NodePool (Maybe Text)
944+ = lens _npSelfLink (\ s a -> s{_npSelfLink = a})
946+-- | The name of the node pool.
947+npName :: Lens' NodePool (Maybe Text)
948+npName = lens _npName (\ s a -> s{_npName = a})
950+-- | [Output only] Additional information about the current status of this
951+-- node pool instance, if available.
952+npStatusMessage :: Lens' NodePool (Maybe Text)
954+ = lens _npStatusMessage
955+ (\ s a -> s{_npStatusMessage = a})
957+-- | The version of the Kubernetes of this node.
958+npVersion :: Lens' NodePool (Maybe Text)
960+ = lens _npVersion (\ s a -> s{_npVersion = a})
962+-- | [Output only] The resource URLs of [instance
963+-- groups](\/compute\/docs\/instance-groups\/) associated with this node
965+npInstanceGroupURLs :: Lens' NodePool [Text]
967+ = lens _npInstanceGroupURLs
968+ (\ s a -> s{_npInstanceGroupURLs = a})
972+instance FromJSON NodePool where
974+ = withObject "NodePool"
977+ (o .:? "status") <*> (o .:? "config") <*>
978+ (o .:? "initialNodeCount")
979+ <*> (o .:? "selfLink")
981+ <*> (o .:? "statusMessage")
982+ <*> (o .:? "version")
983+ <*> (o .:? "instanceGroupUrls" .!= mempty))
985+instance ToJSON NodePool where
986+ toJSON NodePool'{..}
989+ [("status" .=) <$> _npStatus,
990+ ("config" .=) <$> _npConfig,
991+ ("initialNodeCount" .=) <$> _npInitialNodeCount,
992+ ("selfLink" .=) <$> _npSelfLink,
993+ ("name" .=) <$> _npName,
994+ ("statusMessage" .=) <$> _npStatusMessage,
995+ ("version" .=) <$> _npVersion,
996+ ("instanceGroupUrls" .=) <$> _npInstanceGroupURLs])
612-- | The authentication information for accessing the master endpoint.
998-- | The authentication information for accessing the master endpoint.
613-- Authentication can be done using HTTP basic auth or using client
999-- Authentication can be done using HTTP basic auth or using client
@@ -646,33 +1032,33 @@ masterAuth =
646 , _maClusterCaCertificate = Nothing
1032 , _maClusterCaCertificate = Nothing
649−-- | [Output only] Base64 encoded private key used by clients to authenticate
1035+-- | [Output only] Base64-encoded private key used by clients to authenticate
650-- to the cluster endpoint.
1036-- to the cluster endpoint.
651maClientKey :: Lens' MasterAuth (Maybe Text)
1037maClientKey :: Lens' MasterAuth (Maybe Text)
652maClientKey
1038maClientKey
653 = lens _maClientKey (\ s a -> s{_maClientKey = a})
1039 = lens _maClientKey (\ s a -> s{_maClientKey = a})
655−-- | The username to use for HTTP basic authentication when accessing the
1041+-- | The username to use for HTTP basic authentication to the master
656−-- Kubernetes master endpoint.
1042+-- endpoint.
657maUsername :: Lens' MasterAuth (Maybe Text)
1043maUsername :: Lens' MasterAuth (Maybe Text)
658maUsername
1044maUsername
659 = lens _maUsername (\ s a -> s{_maUsername = a})
1045 = lens _maUsername (\ s a -> s{_maUsername = a})
661−-- | [Output only] Base64 encoded public certificate used by clients to
1047+-- | [Output only] Base64-encoded public certificate used by clients to
662-- authenticate to the cluster endpoint.
1048-- authenticate to the cluster endpoint.
663maClientCertificate :: Lens' MasterAuth (Maybe Text)
1049maClientCertificate :: Lens' MasterAuth (Maybe Text)
664maClientCertificate
1050maClientCertificate
665 = lens _maClientCertificate
1051 = lens _maClientCertificate
666 (\ s a -> s{_maClientCertificate = a})
1052 (\ s a -> s{_maClientCertificate = a})
668−-- | The password to use for HTTP basic authentication when accessing the
1054+-- | The password to use for HTTP basic authentication to the master
669−-- Kubernetes master endpoint. Because the master endpoint is open to the
1055+-- endpoint. Because the master endpoint is open to the Internet, you
670−-- internet, you should create a strong password.
1056+-- should create a strong password.
671maPassword :: Lens' MasterAuth (Maybe Text)
1057maPassword :: Lens' MasterAuth (Maybe Text)
672maPassword
1058maPassword
673 = lens _maPassword (\ s a -> s{_maPassword = a})
1059 = lens _maPassword (\ s a -> s{_maPassword = a})
675−-- | [Output only] Base64 encoded public certificate that is the root of
1061+-- | [Output only] Base64-encoded public certificate that is the root of
676-- trust for the cluster.
1062-- trust for the cluster.
677maClusterCaCertificate :: Lens' MasterAuth (Maybe Text)
1063maClusterCaCertificate :: Lens' MasterAuth (Maybe Text)
678maClusterCaCertificate
1064maClusterCaCertificate
@@ -700,11 +1086,55 @@ instance ToJSON MasterAuth where
700 ("clusterCaCertificate" .=) <$>
1086 ("clusterCaCertificate" .=) <$>
701 _maClusterCaCertificate])
1087 _maClusterCaCertificate])
1089+-- | The metadata key\/value pairs assigned to instances in the cluster. Keys
1090+-- must conform to the regexp [a-zA-Z0-9-_]+ and be less than 128 bytes in
1091+-- length. These are reflected as part of a URL in the metadata server.
1092+-- Additionally, to avoid ambiguity, keys must not conflict with any other
1093+-- metadata keys for the project or be one of the four reserved keys:
1094+-- \"instance-template\", \"kube-env\", \"startup-script\", and
1095+-- \"user-data\" Values are free-form strings, and only have meaning as
1096+-- interpreted by the image running in the instance. The only restriction
1097+-- placed on them is that each value\'s size must be less than or equal to
1098+-- 32 KB. The total size of all keys and values must be less than 512 KB.
1100+-- /See:/ 'nodeConfigMetadata' smart constructor.
1101+newtype NodeConfigMetadata = NodeConfigMetadata'
1102+ { _ncmAddtional :: HashMap Text Text
1103+ } deriving (Eq,Show,Data,Typeable,Generic)
1105+-- | Creates a value of 'NodeConfigMetadata' with the minimum fields required to make a request.
1107+-- Use one of the following lenses to modify other fields as desired:
1111+ :: HashMap Text Text -- ^ 'ncmAddtional'
1112+ -> NodeConfigMetadata
1113+nodeConfigMetadata pNcmAddtional_ =
1114+ NodeConfigMetadata'
1115+ { _ncmAddtional = _Coerce # pNcmAddtional_
1118+ncmAddtional :: Lens' NodeConfigMetadata (HashMap Text Text)
1120+ = lens _ncmAddtional (\ s a -> s{_ncmAddtional = a})
1123+instance FromJSON NodeConfigMetadata where
1125+ = withObject "NodeConfigMetadata"
1126+ (\ o -> NodeConfigMetadata' <$> (parseJSONObject o))
1128+instance ToJSON NodeConfigMetadata where
1129+ toJSON = toJSON . _ncmAddtional
703−-- | Container Engine Server configuration.
1131+-- | Container Engine service configuration.
705-- /See:/ 'serverConfig' smart constructor.
1133-- /See:/ 'serverConfig' smart constructor.
706data ServerConfig = ServerConfig'
1134data ServerConfig = ServerConfig'
707 { _scValidNodeVersions :: !(Maybe [Text])
1135 { _scValidNodeVersions :: !(Maybe [Text])
1136+ , _scDefaultImageFamily :: !(Maybe Text)
1137+ , _scValidImageFamilies :: !(Maybe [Text])
708 , _scDefaultClusterVersion :: !(Maybe Text)
1138 , _scDefaultClusterVersion :: !(Maybe Text)
709 } deriving (Eq,Show,Data,Typeable,Generic)
1139 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -714,12 +1144,18 @@ data ServerConfig = ServerConfig'
715-- * 'scValidNodeVersions'
1145-- * 'scValidNodeVersions'
1147+-- * 'scDefaultImageFamily'
1149+-- * 'scValidImageFamilies'
717-- * 'scDefaultClusterVersion'
1151-- * 'scDefaultClusterVersion'
718serverConfig
1152serverConfig
719 :: ServerConfig
1153 :: ServerConfig
720serverConfig =
1154serverConfig =
721 ServerConfig'
1155 ServerConfig'
722 { _scValidNodeVersions = Nothing
1156 { _scValidNodeVersions = Nothing
1157+ , _scDefaultImageFamily = Nothing
1158+ , _scValidImageFamilies = Nothing
723 , _scDefaultClusterVersion = Nothing
1159 , _scDefaultClusterVersion = Nothing
@@ -731,7 +1167,21 @@ scValidNodeVersions
731 . _Default
1167 . _Default
732 . _Coerce
1168 . _Coerce
734−-- | What version this server deploys by default.
1170+-- | Default image family.
1171+scDefaultImageFamily :: Lens' ServerConfig (Maybe Text)
1172+scDefaultImageFamily
1173+ = lens _scDefaultImageFamily
1174+ (\ s a -> s{_scDefaultImageFamily = a})
1176+-- | List of valid image families.
1177+scValidImageFamilies :: Lens' ServerConfig [Text]
1178+scValidImageFamilies
1179+ = lens _scValidImageFamilies
1180+ (\ s a -> s{_scValidImageFamilies = a})
1184+-- | Version of Kubernetes the service deploys by default.
735scDefaultClusterVersion :: Lens' ServerConfig (Maybe Text)
1185scDefaultClusterVersion :: Lens' ServerConfig (Maybe Text)
736scDefaultClusterVersion
1186scDefaultClusterVersion
737 = lens _scDefaultClusterVersion
1187 = lens _scDefaultClusterVersion
@@ -743,21 +1193,26 @@ instance FromJSON ServerConfig where
744 ServerConfig' <$>
1194 ServerConfig' <$>
745 (o .:? "validNodeVersions" .!= mempty) <*>
1195 (o .:? "validNodeVersions" .!= mempty) <*>
1196+ (o .:? "defaultImageFamily")
1197+ <*> (o .:? "validImageFamilies" .!= mempty)
746− (o .:? "defaultClusterVersion"))
1198+ <*> (o .:? "defaultClusterVersion"))
748instance ToJSON ServerConfig where
1200instance ToJSON ServerConfig where
749 toJSON ServerConfig'{..}
1201 toJSON ServerConfig'{..}
750 = object
1202 = object
751 (catMaybes
1203 (catMaybes
752 [("validNodeVersions" .=) <$> _scValidNodeVersions,
1204 [("validNodeVersions" .=) <$> _scValidNodeVersions,
1205+ ("defaultImageFamily" .=) <$> _scDefaultImageFamily,
1206+ ("validImageFamilies" .=) <$> _scValidImageFamilies,
753 ("defaultClusterVersion" .=) <$>
1207 ("defaultClusterVersion" .=) <$>
754 _scDefaultClusterVersion])
1208 _scDefaultClusterVersion])
756-- | ListClustersResponse is the result of ListClustersRequest.
1210-- | ListClustersResponse is the result of ListClustersRequest.
758-- /See:/ 'listClustersResponse' smart constructor.
1212-- /See:/ 'listClustersResponse' smart constructor.
759−newtype ListClustersResponse = ListClustersResponse'
1213+data ListClustersResponse = ListClustersResponse'
760− { _lcrClusters :: Maybe [Cluster]
1214+ { _lcrClusters :: !(Maybe [Cluster])
1215+ , _lcrMissingZones :: !(Maybe [Text])
761 } deriving (Eq,Show,Data,Typeable,Generic)
1216 } deriving (Eq,Show,Data,Typeable,Generic)
763-- | Creates a value of 'ListClustersResponse' with the minimum fields required to make a request.
1218-- | Creates a value of 'ListClustersResponse' with the minimum fields required to make a request.
@@ -765,11 +1220,14 @@ newtype ListClustersResponse = ListClustersResponse'
765-- Use one of the following lenses to modify other fields as desired:
1220-- Use one of the following lenses to modify other fields as desired:
767-- * 'lcrClusters'
1222-- * 'lcrClusters'
1224+-- * 'lcrMissingZones'
768listClustersResponse
1225listClustersResponse
769 :: ListClustersResponse
1226 :: ListClustersResponse
770listClustersResponse =
1227listClustersResponse =
771 ListClustersResponse'
1228 ListClustersResponse'
772 { _lcrClusters = Nothing
1229 { _lcrClusters = Nothing
1230+ , _lcrMissingZones = Nothing
775-- | A list of clusters in the project in the specified zone, or across all
1233-- | A list of clusters in the project in the specified zone, or across all
@@ -780,53 +1238,199 @@ lcrClusters
780 _Default
1238 _Default
781 . _Coerce
1239 . _Coerce
1241+-- | If any zones are listed here, the list of clusters returned may be
1242+-- missing those zones.
1243+lcrMissingZones :: Lens' ListClustersResponse [Text]
1245+ = lens _lcrMissingZones
1246+ (\ s a -> s{_lcrMissingZones = a})
783instance FromJSON ListClustersResponse where
1250instance FromJSON ListClustersResponse where
784 parseJSON
1251 parseJSON
785 = withObject "ListClustersResponse"
1252 = withObject "ListClustersResponse"
787 ListClustersResponse' <$>
1254 ListClustersResponse' <$>
788− (o .:? "clusters" .!= mempty))
1255+ (o .:? "clusters" .!= mempty) <*>
1256+ (o .:? "missingZones" .!= mempty))
790instance ToJSON ListClustersResponse where
1258instance ToJSON ListClustersResponse where
791 toJSON ListClustersResponse'{..}
1259 toJSON ListClustersResponse'{..}
792 = object
1260 = object
793− (catMaybes [("clusters" .=) <$> _lcrClusters])
1262+ [("clusters" .=) <$> _lcrClusters,
1263+ ("missingZones" .=) <$> _lcrMissingZones])
795−-- | ClusterUpdate describes an update to the cluster.
1265+-- | ClusterUpdate describes an update to the cluster. Exactly one update can
1266+-- be applied to a cluster with each request, so at most one field can be
797-- /See:/ 'clusterUpdate' smart constructor.
1269-- /See:/ 'clusterUpdate' smart constructor.
798−newtype ClusterUpdate = ClusterUpdate'
1270+data ClusterUpdate = ClusterUpdate'
1271+ { _cuDesiredAddonsConfig :: !(Maybe AddonsConfig)
1272+ , _cuDesiredNodePoolId :: !(Maybe Text)
799− { _cuDesiredNodeVersion :: Maybe Text
1273+ , _cuDesiredNodeVersion :: !(Maybe Text)
1274+ , _cuDesiredMasterVersion :: !(Maybe Text)
1275+ , _cuDesiredMonitoringService :: !(Maybe Text)
800 } deriving (Eq,Show,Data,Typeable,Generic)
1276 } deriving (Eq,Show,Data,Typeable,Generic)
802-- | Creates a value of 'ClusterUpdate' with the minimum fields required to make a request.
1278-- | Creates a value of 'ClusterUpdate' with the minimum fields required to make a request.
804-- Use one of the following lenses to modify other fields as desired:
1280-- Use one of the following lenses to modify other fields as desired:
1282+-- * 'cuDesiredAddonsConfig'
1284+-- * 'cuDesiredNodePoolId'
806-- * 'cuDesiredNodeVersion'
1286-- * 'cuDesiredNodeVersion'
1288+-- * 'cuDesiredMasterVersion'
1290+-- * 'cuDesiredMonitoringService'
807clusterUpdate
1291clusterUpdate
808 :: ClusterUpdate
1292 :: ClusterUpdate
809clusterUpdate =
1293clusterUpdate =
810 ClusterUpdate'
1294 ClusterUpdate'
1295+ { _cuDesiredAddonsConfig = Nothing
1296+ , _cuDesiredNodePoolId = Nothing
811− { _cuDesiredNodeVersion = Nothing
1297+ , _cuDesiredNodeVersion = Nothing
1298+ , _cuDesiredMasterVersion = Nothing
1299+ , _cuDesiredMonitoringService = Nothing
1302+-- | Configurations for the various addons available to run in the cluster.
1303+cuDesiredAddonsConfig :: Lens' ClusterUpdate (Maybe AddonsConfig)
1304+cuDesiredAddonsConfig
1305+ = lens _cuDesiredAddonsConfig
1306+ (\ s a -> s{_cuDesiredAddonsConfig = a})
1308+-- | The node pool to be upgraded. This field is mandatory if the
1309+-- \"desired_node_version\" or \"desired_image_family\" is specified and
1310+-- there is more than one node pool on the cluster.
1311+cuDesiredNodePoolId :: Lens' ClusterUpdate (Maybe Text)
1313+ = lens _cuDesiredNodePoolId
1314+ (\ s a -> s{_cuDesiredNodePoolId = a})
814-- | The Kubernetes version to change the nodes to (typically an upgrade).
1316-- | The Kubernetes version to change the nodes to (typically an upgrade).
815−-- Use \"-\" to upgrade to the latest version supported by the server.
1317+-- Use \`-\` to upgrade to the latest version supported by the server.
816cuDesiredNodeVersion :: Lens' ClusterUpdate (Maybe Text)
1318cuDesiredNodeVersion :: Lens' ClusterUpdate (Maybe Text)
817cuDesiredNodeVersion
1319cuDesiredNodeVersion
818 = lens _cuDesiredNodeVersion
1320 = lens _cuDesiredNodeVersion
819 (\ s a -> s{_cuDesiredNodeVersion = a})
1321 (\ s a -> s{_cuDesiredNodeVersion = a})
1323+-- | The Kubernetes version to change the master to. The only valid value is
1324+-- the latest supported version. Use \"-\" to have the server automatically
1325+-- select the latest version.
1326+cuDesiredMasterVersion :: Lens' ClusterUpdate (Maybe Text)
1327+cuDesiredMasterVersion
1328+ = lens _cuDesiredMasterVersion
1329+ (\ s a -> s{_cuDesiredMasterVersion = a})
1331+-- | The monitoring service the cluster should use to write metrics.
1332+-- Currently available options: * \"monitoring.googleapis.com\" - the
1333+-- Google Cloud Monitoring service * \"none\" - no metrics will be exported
1335+cuDesiredMonitoringService :: Lens' ClusterUpdate (Maybe Text)
1336+cuDesiredMonitoringService
1337+ = lens _cuDesiredMonitoringService
1338+ (\ s a -> s{_cuDesiredMonitoringService = a})
821instance FromJSON ClusterUpdate where
1340instance FromJSON ClusterUpdate where
822 parseJSON
1341 parseJSON
823 = withObject "ClusterUpdate"
1342 = withObject "ClusterUpdate"
1345+ (o .:? "desiredAddonsConfig") <*>
1346+ (o .:? "desiredNodePoolId")
825− ClusterUpdate' <$> (o .:? "desiredNodeVersion"))
1347+ <*> (o .:? "desiredNodeVersion")
1348+ <*> (o .:? "desiredMasterVersion")
1349+ <*> (o .:? "desiredMonitoringService"))
827instance ToJSON ClusterUpdate where
1351instance ToJSON ClusterUpdate where
828 toJSON ClusterUpdate'{..}
1352 toJSON ClusterUpdate'{..}
829 = object
1353 = object
830 (catMaybes
1354 (catMaybes
831− [("desiredNodeVersion" .=) <$>
1355+ [("desiredAddonsConfig" .=) <$>
1356+ _cuDesiredAddonsConfig,
1357+ ("desiredNodePoolId" .=) <$> _cuDesiredNodePoolId,
832− _cuDesiredNodeVersion])
1358+ ("desiredNodeVersion" .=) <$> _cuDesiredNodeVersion,
1359+ ("desiredMasterVersion" .=) <$>
1360+ _cuDesiredMasterVersion,
1361+ ("desiredMonitoringService" .=) <$>
1362+ _cuDesiredMonitoringService])
1364+-- | ListNodePoolsResponse is the result of ListNodePoolsRequest.
1366+-- /See:/ 'listNodePoolsResponse' smart constructor.
1367+newtype ListNodePoolsResponse = ListNodePoolsResponse'
1368+ { _lnprNodePools :: Maybe [NodePool]
1369+ } deriving (Eq,Show,Data,Typeable,Generic)
1371+-- | Creates a value of 'ListNodePoolsResponse' with the minimum fields required to make a request.
1373+-- Use one of the following lenses to modify other fields as desired:
1375+-- * 'lnprNodePools'
1376+listNodePoolsResponse
1377+ :: ListNodePoolsResponse
1378+listNodePoolsResponse =
1379+ ListNodePoolsResponse'
1380+ { _lnprNodePools = Nothing
1383+-- | A list of node pools for a cluster.
1384+lnprNodePools :: Lens' ListNodePoolsResponse [NodePool]
1386+ = lens _lnprNodePools
1387+ (\ s a -> s{_lnprNodePools = a})
1391+instance FromJSON ListNodePoolsResponse where
1393+ = withObject "ListNodePoolsResponse"
1395+ ListNodePoolsResponse' <$>
1396+ (o .:? "nodePools" .!= mempty))
1398+instance ToJSON ListNodePoolsResponse where
1399+ toJSON ListNodePoolsResponse'{..}
1401+ (catMaybes [("nodePools" .=) <$> _lnprNodePools])
1403+-- | CreateNodePoolRequest creates a node pool for a cluster.
1405+-- /See:/ 'createNodePoolRequest' smart constructor.
1406+newtype CreateNodePoolRequest = CreateNodePoolRequest'
1407+ { _cnprNodePool :: Maybe NodePool
1408+ } deriving (Eq,Show,Data,Typeable,Generic)
1410+-- | Creates a value of 'CreateNodePoolRequest' with the minimum fields required to make a request.
1412+-- Use one of the following lenses to modify other fields as desired:
1415+createNodePoolRequest
1416+ :: CreateNodePoolRequest
1417+createNodePoolRequest =
1418+ CreateNodePoolRequest'
1419+ { _cnprNodePool = Nothing
1422+-- | The node pool to create.
1423+cnprNodePool :: Lens' CreateNodePoolRequest (Maybe NodePool)
1425+ = lens _cnprNodePool (\ s a -> s{_cnprNodePool = a})
1427+instance FromJSON CreateNodePoolRequest where
1429+ = withObject "CreateNodePoolRequest"
1431+ CreateNodePoolRequest' <$> (o .:? "nodePool"))
1433+instance ToJSON CreateNodePoolRequest where
1434+ toJSON CreateNodePoolRequest'{..}
1436+ (catMaybes [("nodePool" .=) <$> _cnprNodePool])