@@ -20,6 +20,88 @@ module Network.Google.Compute.Types.Product where
2020import Network.Google.Compute.Types.Sum
2121import Network.Google.Prelude
2222
23+-- | Contains a list of TargetHttpsProxy resources.
24+--
25+-- /See:/ 'targetHTTPSProxyList' smart constructor.
26+data TargetHTTPSProxyList = TargetHTTPSProxyList
27+ { _thplNextPageToken :: !(Maybe Text)
28+ , _thplKind :: !Text
29+ , _thplItems :: !(Maybe [TargetHTTPSProxy])
30+ , _thplSelfLink :: !(Maybe Text)
31+ , _thplId :: !(Maybe Text)
32+ } deriving (Eq,Show,Data,Typeable,Generic)
33+
34+-- | Creates a value of 'TargetHTTPSProxyList' with the minimum fields required to make a request.
35+--
36+-- Use one of the following lenses to modify other fields as desired:
37+--
38+-- * 'thplNextPageToken'
39+--
40+-- * 'thplKind'
41+--
42+-- * 'thplItems'
43+--
44+-- * 'thplSelfLink'
45+--
46+-- * 'thplId'
47+targetHTTPSProxyList
48+ :: TargetHTTPSProxyList
49+targetHTTPSProxyList =
50+ TargetHTTPSProxyList
51+ { _thplNextPageToken = Nothing
52+ , _thplKind = "compute#targetHttpsProxyList"
53+ , _thplItems = Nothing
54+ , _thplSelfLink = Nothing
55+ , _thplId = Nothing
56+ }
57+
58+-- | [Output Only] A token used to continue a truncated list request.
59+thplNextPageToken :: Lens' TargetHTTPSProxyList (Maybe Text)
60+thplNextPageToken
61+ = lens _thplNextPageToken
62+ (\ s a -> s{_thplNextPageToken = a})
63+
64+-- | Type of resource.
65+thplKind :: Lens' TargetHTTPSProxyList Text
66+thplKind = lens _thplKind (\ s a -> s{_thplKind = a})
67+
68+-- | A list of TargetHttpsProxy resources.
69+thplItems :: Lens' TargetHTTPSProxyList [TargetHTTPSProxy]
70+thplItems
71+ = lens _thplItems (\ s a -> s{_thplItems = a}) .
72+ _Default
73+ . _Coerce
74+
75+-- | [Output Only] Server-defined URL for this resource.
76+thplSelfLink :: Lens' TargetHTTPSProxyList (Maybe Text)
77+thplSelfLink
78+ = lens _thplSelfLink (\ s a -> s{_thplSelfLink = a})
79+
80+-- | [Output Only] Unique identifier for the resource; defined by the server.
81+thplId :: Lens' TargetHTTPSProxyList (Maybe Text)
82+thplId = lens _thplId (\ s a -> s{_thplId = a})
83+
84+instance FromJSON TargetHTTPSProxyList where
85+ parseJSON
86+ = withObject "TargetHTTPSProxyList"
87+ (\ o ->
88+ TargetHTTPSProxyList <$>
89+ (o .:? "nextPageToken") <*>
90+ (o .:? "kind" .!= "compute#targetHttpsProxyList")
91+ <*> (o .:? "items" .!= mempty)
92+ <*> (o .:? "selfLink")
93+ <*> (o .:? "id"))
94+
95+instance ToJSON TargetHTTPSProxyList where
96+ toJSON TargetHTTPSProxyList{..}
97+ = object
98+ (catMaybes
99+ [("nextPageToken" .=) <$> _thplNextPageToken,
100+ Just ("kind" .= _thplKind),
101+ ("items" .=) <$> _thplItems,
102+ ("selfLink" .=) <$> _thplSelfLink,
103+ ("id" .=) <$> _thplId])
104+
23105--
24106-- /See:/ 'addressesScopedList' smart constructor.
25107data AddressesScopedList = AddressesScopedList
@@ -132,7 +214,8 @@ instanceGroupManagersAbandonInstancesRequest =
132214 { _igmairInstances = Nothing
133215 }
134216
135−-- | The names of instances to abandon from the managed instance group.
217+-- | The URL for one or more instances to abandon from the managed instance
218+-- group.
136219igmairInstances :: Lens' InstanceGroupManagersAbandonInstancesRequest [Text]
137220igmairInstances
138221 = lens _igmairInstances
@@ -415,21 +498,21 @@ iglNextPageToken
415498iglKind :: Lens' InstanceGroupList Text
416499iglKind = lens _iglKind (\ s a -> s{_iglKind = a})
417500
418−-- | A list of InstanceGroup resources.
501+-- | A list of instance groups.
419502iglItems :: Lens' InstanceGroupList [InstanceGroup]
420503iglItems
421504 = lens _iglItems (\ s a -> s{_iglItems = a}) .
422505 _Default
423506 . _Coerce
424507
425−-- | [Output Only] The URL for this instance group. The server defines this
508+-- | [Output Only] The URL for this resource type. The server generates this
426509-- URL.
427510iglSelfLink :: Lens' InstanceGroupList (Maybe Text)
428511iglSelfLink
429512 = lens _iglSelfLink (\ s a -> s{_iglSelfLink = a})
430513
431514-- | [Output Only] A unique identifier for this list of instance groups. The
432−-- server defines this identifier.
515+-- server generates this identifier.
433516iglId :: Lens' InstanceGroupList (Maybe Text)
434517iglId = lens _iglId (\ s a -> s{_iglId = a})
435518
@@ -1031,9 +1114,12 @@ instanceGroupsSetNamedPortsRequest =
10311114 , _igsnprNamedPorts = Nothing
10321115 }
10331116
1034−-- | The fingerprint of the named ports information, which is a hash of the
1035−-- contents. Use this field for optimistic locking when you update the
1036−-- named ports entries.
1117+-- | The fingerprint of the named ports information for this instance group.
1118+-- Use this optional property to prevent conflicts when multiple users
1119+-- change the named ports settings concurrently. Obtain the fingerprint
1120+-- with the instanceGroups.get method. Then, include the fingerprint in
1121+-- your request to ensure that you do not overwrite changes that were
1122+-- applied from another concurrent request.
10371123igsnprFingerprint :: Lens' InstanceGroupsSetNamedPortsRequest (Maybe Word8)
10381124igsnprFingerprint
10391125 = lens _igsnprFingerprint
@@ -1282,7 +1368,7 @@ instanceGroupsAddInstancesRequest =
12821368 { _igairInstances = Nothing
12831369 }
12841370
1285−-- | The instances to add to the instance group.
1371+-- | The list of instances to add to the instance group.
12861372igairInstances :: Lens' InstanceGroupsAddInstancesRequest [InstanceReference]
12871373igairInstances
12881374 = lens _igairInstances
@@ -1304,7 +1390,7 @@ instance ToJSON InstanceGroupsAddInstancesRequest
13041390 = object
13051391 (catMaybes [("instances" .=) <$> _igairInstances])
13061392
1307−-- | [Output Only] A list of InstanceGroupManager resources.
1393+-- | [Output Only] A list of managed instance groups.
13081394--
13091395-- /See:/ 'instanceGroupManagerList' smart constructor.
13101396data InstanceGroupManagerList = InstanceGroupManagerList
@@ -1345,27 +1431,26 @@ igmlNextPageToken
13451431 = lens _igmlNextPageToken
13461432 (\ s a -> s{_igmlNextPageToken = a})
13471433
1348−-- | [Output Only] Type of the resource. Always
1349−-- compute#instanceGroupManagerList for a list of managed instance group
1350−-- resources.
1434+-- | [Output Only] The resource type, which is always
1435+-- compute#instanceGroupManagerList for a list of managed instance groups.
13511436igmlKind :: Lens' InstanceGroupManagerList Text
13521437igmlKind = lens _igmlKind (\ s a -> s{_igmlKind = a})
13531438
1354−-- | [Output Only] A list of managed instance group resources.
1439+-- | [Output Only] A list of managed instance groups.
13551440igmlItems :: Lens' InstanceGroupManagerList [InstanceGroupManager]
13561441igmlItems
13571442 = lens _igmlItems (\ s a -> s{_igmlItems = a}) .
13581443 _Default
13591444 . _Coerce
13601445
1361−-- | [Output Only] The URL for this managed instance group. The server
1362−-- defines this URL.
1446+-- | [Output Only] The URL for this resource type. The server generates this
1447+-- URL.
13631448igmlSelfLink :: Lens' InstanceGroupManagerList (Maybe Text)
13641449igmlSelfLink
13651450 = lens _igmlSelfLink (\ s a -> s{_igmlSelfLink = a})
13661451
1367−-- | [Output Only] A unique identifier for this managed instance group. The
1368−-- server defines this identifier.
1452+-- | [Output Only] A unique identifier for this resource type. The server
1453+-- generates this identifier.
13691454igmlId :: Lens' InstanceGroupManagerList (Maybe Text)
13701455igmlId = lens _igmlId (\ s a -> s{_igmlId = a})
13711456
@@ -2172,12 +2257,12 @@ instanceWithNamedPorts =
21722257 , _iwnpInstance = Nothing
21732258 }
21742259
2175−-- | The status of the instance.
2260+-- | [Output Only] The status of the instance.
21762261iwnpStatus :: Lens' InstanceWithNamedPorts (Maybe InstanceWithNamedPortsStatus)
21772262iwnpStatus
21782263 = lens _iwnpStatus (\ s a -> s{_iwnpStatus = a})
21792264
2180−-- | The named ports that belong to this instance group.
2265+-- | [Output Only] The named ports that belong to this instance group.
21812266iwnpNamedPorts :: Lens' InstanceWithNamedPorts [NamedPort]
21822267iwnpNamedPorts
21832268 = lens _iwnpNamedPorts
@@ -2185,7 +2270,7 @@ iwnpNamedPorts
21852270 . _Default
21862271 . _Coerce
21872272
2188−-- | The URL of the instance.
2273+-- | [Output Only] The URL of the instance.
21892274iwnpInstance :: Lens' InstanceWithNamedPorts (Maybe Text)
21902275iwnpInstance
21912276 = lens _iwnpInstance (\ s a -> s{_iwnpInstance = a})
@@ -2275,6 +2360,7 @@ instanceReference =
22752360 { _irInstance = Nothing
22762361 }
22772362
2363+-- | The URL for a specific instance.
22782364irInstance :: Lens' InstanceReference (Maybe Text)
22792365irInstance
22802366 = lens _irInstance (\ s a -> s{_irInstance = a})
@@ -2419,7 +2505,7 @@ instance ToJSON OperationsScopedList where
24192505 [("warning" .=) <$> _oslWarning,
24202506 ("operations" .=) <$> _oslOperations])
24212507
2422−-- | The named port information. For example: .
2508+-- | The named port. For example: .
24232509--
24242510-- /See:/ 'namedPort' smart constructor.
24252511data NamedPort = NamedPort
@@ -2442,7 +2528,8 @@ namedPort =
24422528 , _npPort = Nothing
24432529 }
24442530
2445−-- | The name for this NamedPort.
2531+-- | The name for this named port. The name must be 1-63 characters long, and
2532+-- comply with RFC1035.
24462533npName :: Lens' NamedPort (Maybe Text)
24472534npName = lens _npName (\ s a -> s{_npName = a})
24482535
@@ -2584,27 +2671,27 @@ igmalNextPageToken
25842671 = lens _igmalNextPageToken
25852672 (\ s a -> s{_igmalNextPageToken = a})
25862673
2587−-- | [Output Only] Type of the resource. Always
2674+-- | [Output Only] The resource type, which is always
25882675-- compute#instanceGroupManagerAggregatedList for an aggregated list of
25892676-- managed instance groups.
25902677igmalKind :: Lens' InstanceGroupManagerAggregatedList Text
25912678igmalKind
25922679 = lens _igmalKind (\ s a -> s{_igmalKind = a})
25932680
2594−-- | A map of filtered managed instance group lists.
2681+-- | [Output Only] A map of filtered managed instance group lists.
25952682igmalItems :: Lens' InstanceGroupManagerAggregatedList (Maybe InstanceGroupManagerAggregatedListItems)
25962683igmalItems
25972684 = lens _igmalItems (\ s a -> s{_igmalItems = a})
25982685
2599−-- | [Output Only] The URL for this aggregated list of managed instance
2600−-- groups. The server defines this URL.
2686+-- | [Output Only] The URL for this resource type. The server generates this
2687+-- URL.
26012688igmalSelfLink :: Lens' InstanceGroupManagerAggregatedList (Maybe Text)
26022689igmalSelfLink
26032690 = lens _igmalSelfLink
26042691 (\ s a -> s{_igmalSelfLink = a})
26052692
26062693-- | [Output Only] A unique identifier for this aggregated list of managed
2607−-- instance groups. The server defines this identifier.
2694+-- instance groups. The server generates this identifier.
26082695igmalId :: Lens' InstanceGroupManagerAggregatedList (Maybe Text)
26092696igmalId = lens _igmalId (\ s a -> s{_igmalId = a})
26102697
@@ -2985,7 +3072,7 @@ targetPool =
29853072 }
29863073
29873074-- | Sesssion affinity option, must be one of the following values: NONE:
2988−-- Connections from the same client IP may go to any instance in the pool;
3075+-- Connections from the same client IP may go to any instance in the pool.
29893076-- CLIENT_IP: Connections from the same client IP will go to the same
29903077-- instance in the pool while that instance remains healthy.
29913078-- CLIENT_IP_PROTO: Connections from the same client IP with the same IP
@@ -3166,7 +3253,7 @@ ilNextPageToken
31663253ilKind :: Lens' ImageList Text
31673254ilKind = lens _ilKind (\ s a -> s{_ilKind = a})
31683255
3169−-- | A list of Image resources.
3256+-- | [Output Only] A list of Image resources.
31703257ilItems :: Lens' ImageList [Image]
31713258ilItems
31723259 = lens _ilItems (\ s a -> s{_ilItems = a}) . _Default
@@ -3332,13 +3419,12 @@ frIPAddress :: Lens' ForwardingRule (Maybe Text)
33323419frIPAddress
33333420 = lens _frIPAddress (\ s a -> s{_frIPAddress = a})
33343421
3335−-- | Type of the resource.
3422+-- | [Output Only] Type of the resource. Always compute#forwardingRule.
33363423frKind :: Lens' ForwardingRule Text
33373424frKind = lens _frKind (\ s a -> s{_frKind = a})
33383425
3339−-- | Applicable only when \`IPProtocol\` is TCP, UDP, or SCTP, only packets
3426+-- | Applicable only when IPProtocol is TCP, UDP, or SCTP, only packets
33403427-- addressed to ports in the specified range will be forwarded to target.
3341−-- If portRange is left empty (default value), all ports are forwarded.
33423428-- Forwarding rules with the same \`[IPAddress, IPProtocol]\` pair must
33433429-- have disjoint port ranges.
33443430frPortRange :: Lens' ForwardingRule (Maybe Text)
@@ -3888,7 +3974,7 @@ oStartTime :: Lens' Operation (Maybe Text)
38883974oStartTime
38893975 = lens _oStartTime (\ s a -> s{_oStartTime = a})
38903976
3891−-- | [Output Only] Type of the resource. Always compute#Operation for
3977+-- | [Output Only] Type of the resource. Always compute#operation for
38923978-- Operation resources.
38933979oKind :: Lens' Operation Text
38943980oKind = lens _oKind (\ s a -> s{_oKind = a})
@@ -3960,7 +4046,8 @@ oEndTime = lens _oEndTime (\ s a -> s{_oEndTime = a})
39604046oId :: Lens' Operation (Maybe Word64)
39614047oId = lens _oId (\ s a -> s{_oId = a})
39624048
3963−-- | [Output Only] Type of the operation, such as insert, update, and delete.
4049+-- | [Output Only] Type of the operation, such as insert,
4050+-- compute.instanceGroups.update, or compute.instanceGroups.delete.
39644051oOperationType :: Lens' Operation (Maybe Text)
39654052oOperationType
39664053 = lens _oOperationType
@@ -4580,9 +4667,9 @@ instanceGroupManager =
45804667igmKind :: Lens' InstanceGroupManager Text
45814668igmKind = lens _igmKind (\ s a -> s{_igmKind = a})
45824669
4583−-- | [Output Only] The fingerprint of the target pools information, which is
4584−-- a hash of the contents. This field is used for optimistic locking when
4585−-- updating the target pool entries.
4670+-- | [Output Only] The fingerprint of the target pools information. You can
4671+-- use this optional field for optimistic locking when you update the
4672+-- target pool entries.
45864673igmFingerprint :: Lens' InstanceGroupManager (Maybe Word8)
45874674igmFingerprint
45884675 = lens _igmFingerprint
@@ -4597,7 +4684,7 @@ igmBaseInstanceName
45974684 = lens _igmBaseInstanceName
45984685 (\ s a -> s{_igmBaseInstanceName = a})
45994686
4600−-- | The URL of the zone where the managed instance group is located.
4687+-- | The name of the zone where the managed instance group is located.
46014688igmZone :: Lens' InstanceGroupManager (Maybe Text)
46024689igmZone = lens _igmZone (\ s a -> s{_igmZone = a})
46034690
@@ -4617,13 +4704,15 @@ igmTargetSize
46174704 = lens _igmTargetSize
46184705 (\ s a -> s{_igmTargetSize = a})
46194706
4620−-- | [Output Only] Server-defined URL for this managed instance group.
4707+-- | [Output Only] The URL for this managed instance group. The server
4708+-- defines this URL.
46214709igmSelfLink :: Lens' InstanceGroupManager (Maybe Text)
46224710igmSelfLink
46234711 = lens _igmSelfLink (\ s a -> s{_igmSelfLink = a})
46244712
46254713-- | [Output Only] The list of instance actions and the number of instances
4626−-- in this managed instance group that are scheduled for those actions.
4714+-- in this managed instance group that are scheduled for each of those
4715+-- actions.
46274716igmCurrentActions :: Lens' InstanceGroupManager (Maybe InstanceGroupManagerActionsSummary)
46284717igmCurrentActions
46294718 = lens _igmCurrentActions
@@ -4641,14 +4730,14 @@ igmCreationTimestamp
46414730 = lens _igmCreationTimestamp
46424731 (\ s a -> s{_igmCreationTimestamp = a})
46434732
4644−-- | [Output Only] A unique identifier for this managed instance group. The
4645−-- server defines this identifier.
4733+-- | [Output Only] A unique identifier for this resource type. The server
4734+-- generates this identifier.
46464735igmId :: Lens' InstanceGroupManager (Maybe Word64)
46474736igmId = lens _igmId (\ s a -> s{_igmId = a})
46484737
4649−-- | The URLs of all TargetPool resources to which new instances in the
4650−-- instanceGroup field are added. Updating the target pool values does not
4651−-- affect existing instances.
4738+-- | The URLs for all TargetPool resources to which instances in the
4739+-- instanceGroup field are added. The target pools automatically apply to
4740+-- all of the instances in the managed instance group.
46524741igmTargetPools :: Lens' InstanceGroupManager [Text]
46534742igmTargetPools
46544743 = lens _igmTargetPools
@@ -4662,7 +4751,7 @@ igmDescription
46624751 = lens _igmDescription
46634752 (\ s a -> s{_igmDescription = a})
46644753
4665−-- | [Output Only] The URL of the InstanceGroup resource.
4754+-- | [Output Only] The URL of the Instance Group resource.
46664755igmInstanceGroup :: Lens' InstanceGroupManager (Maybe Text)
46674756igmInstanceGroup
46684757 = lens _igmInstanceGroup
@@ -4725,7 +4814,7 @@ instanceGroupsRemoveInstancesRequest =
47254814 { _igrirInstances = Nothing
47264815 }
47274816
4728−-- | The instances to remove from the instance group.
4817+-- | The list of instances to remove from the instance group.
47294818igrirInstances :: Lens' InstanceGroupsRemoveInstancesRequest [InstanceReference]
47304819igrirInstances
47314820 = lens _igrirInstances
@@ -4887,8 +4976,8 @@ instance ToJSON AutoscalersScopedListWarning where
48874976 ("code" .=) <$> _aslwCode,
48884977 ("message" .=) <$> _aslwMessage])
48894978
4890−-- | Encountered errors during the last attempt to create or delete the
4891−-- instance.
4979+-- | [Output Only] Encountered errors during the last attempt to create or
4980+-- delete the instance.
48924981--
48934982-- /See:/ 'managedInstanceLastAttemptErrors' smart constructor.
48944983newtype ManagedInstanceLastAttemptErrors = ManagedInstanceLastAttemptErrors
@@ -5276,7 +5365,7 @@ instanceGroupManagersListManagedInstancesResponse =
52765365 { _igmlmirManagedInstances = Nothing
52775366 }
52785367
5279−-- | List of managed instances. If empty - all instances are listed.
5368+-- | [Output Only] The list of instances in the managed instance group.
52805369igmlmirManagedInstances :: Lens' InstanceGroupManagersListManagedInstancesResponse [ManagedInstance]
52815370igmlmirManagedInstances
52825371 = lens _igmlmirManagedInstances
@@ -5366,12 +5455,7 @@ ipServiceAccounts
53665455 . _Default
53675456 . _Coerce
53685457
5369−-- | An array of network access configurations for this interface. This
5370−-- specifies how this interface is configured to interact with other
5371−-- network services, such as connecting to the internet. Currently,
5372−-- ONE_TO_ONE_NAT is the only supported access configuration. If you do not
5373−-- specify any access configurations, the instances that are created from
5374−-- this template will have no external internet access.
5458+-- | An array of network access configurations for this interface.
53755459ipNetworkInterfaces :: Lens' InstanceProperties [NetworkInterface]
53765460ipNetworkInterfaces
53775461 = lens _ipNetworkInterfaces
@@ -5393,7 +5477,7 @@ ipMetadata :: Lens' InstanceProperties (Maybe Metadata)
53935477ipMetadata
53945478 = lens _ipMetadata (\ s a -> s{_ipMetadata = a})
53955479
5396−-- | A list of scheduling options for the instances that are created from
5480+-- | Specifies the scheduling options for the instances that are created from
53975481-- this template.
53985482ipScheduling :: Lens' InstanceProperties (Maybe Scheduling)
53995483ipScheduling
@@ -5406,11 +5490,12 @@ ipDisks
54065490 = lens _ipDisks (\ s a -> s{_ipDisks = a}) . _Default
54075491 . _Coerce
54085492
5409−-- | A boolean that specifies if instances created from this template can
5410−-- send packets with source IP addresses other than their own or receive
5411−-- packets with destination IP addresses other than their own. If you use
5412−-- these instances as an IP gateway or as the next-hop in a Route resource,
5413−-- specify true. Otherwise, specify false.
5493+-- | Enables instances created based on this template to send packets with
5494+-- source IP addresses other than their own and receive packets with
5495+-- destination IP addresses other than their own. If these instances will
5496+-- be used as an IP gateway or it will be set as the next-hop in a Route
5497+-- resource, specify true. If unsure, leave this set to false. See the
5498+-- canIpForward documentation for more information.
54145499ipCanIPForward :: Lens' InstanceProperties (Maybe Bool)
54155500ipCanIPForward
54165501 = lens _ipCanIPForward
@@ -5830,7 +5915,7 @@ itlNextPageToken
58305915itlKind :: Lens' InstanceTemplateList Text
58315916itlKind = lens _itlKind (\ s a -> s{_itlKind = a})
58325917
5833−-- | A list of InstanceTemplate resources.
5918+-- | [Output Only] list of InstanceTemplate resources.
58345919itlItems :: Lens' InstanceTemplateList [InstanceTemplate]
58355920itlItems
58365921 = lens _itlItems (\ s a -> s{_itlItems = a}) .
@@ -6032,6 +6117,88 @@ instance ToJSON TargetVPNGatewayList where
60326117 ("selfLink" .=) <$> _tvglSelfLink,
60336118 ("id" .=) <$> _tvglId])
60346119
6120+-- | Contains a list of SslCertificate resources.
6121+--
6122+-- /See:/ 'sslCertificateList' smart constructor.
6123+data SSLCertificateList = SSLCertificateList
6124+ { _sclNextPageToken :: !(Maybe Text)
6125+ , _sclKind :: !Text
6126+ , _sclItems :: !(Maybe [SSLCertificate])
6127+ , _sclSelfLink :: !(Maybe Text)
6128+ , _sclId :: !(Maybe Text)
6129+ } deriving (Eq,Show,Data,Typeable,Generic)
6130+
6131+-- | Creates a value of 'SSLCertificateList' with the minimum fields required to make a request.
6132+--
6133+-- Use one of the following lenses to modify other fields as desired:
6134+--
6135+-- * 'sclNextPageToken'
6136+--
6137+-- * 'sclKind'
6138+--
6139+-- * 'sclItems'
6140+--
6141+-- * 'sclSelfLink'
6142+--
6143+-- * 'sclId'
6144+sslCertificateList
6145+ :: SSLCertificateList
6146+sslCertificateList =
6147+ SSLCertificateList
6148+ { _sclNextPageToken = Nothing
6149+ , _sclKind = "compute#sslCertificateList"
6150+ , _sclItems = Nothing
6151+ , _sclSelfLink = Nothing
6152+ , _sclId = Nothing
6153+ }
6154+
6155+-- | [Output Only] A token used to continue a truncated list request.
6156+sclNextPageToken :: Lens' SSLCertificateList (Maybe Text)
6157+sclNextPageToken
6158+ = lens _sclNextPageToken
6159+ (\ s a -> s{_sclNextPageToken = a})
6160+
6161+-- | Type of resource.
6162+sclKind :: Lens' SSLCertificateList Text
6163+sclKind = lens _sclKind (\ s a -> s{_sclKind = a})
6164+
6165+-- | A list of SslCertificate resources.
6166+sclItems :: Lens' SSLCertificateList [SSLCertificate]
6167+sclItems
6168+ = lens _sclItems (\ s a -> s{_sclItems = a}) .
6169+ _Default
6170+ . _Coerce
6171+
6172+-- | [Output Only] Server-defined URL for this resource.
6173+sclSelfLink :: Lens' SSLCertificateList (Maybe Text)
6174+sclSelfLink
6175+ = lens _sclSelfLink (\ s a -> s{_sclSelfLink = a})
6176+
6177+-- | [Output Only] Unique identifier for the resource. Defined by the server.
6178+sclId :: Lens' SSLCertificateList (Maybe Text)
6179+sclId = lens _sclId (\ s a -> s{_sclId = a})
6180+
6181+instance FromJSON SSLCertificateList where
6182+ parseJSON
6183+ = withObject "SSLCertificateList"
6184+ (\ o ->
6185+ SSLCertificateList <$>
6186+ (o .:? "nextPageToken") <*>
6187+ (o .:? "kind" .!= "compute#sslCertificateList")
6188+ <*> (o .:? "items" .!= mempty)
6189+ <*> (o .:? "selfLink")
6190+ <*> (o .:? "id"))
6191+
6192+instance ToJSON SSLCertificateList where
6193+ toJSON SSLCertificateList{..}
6194+ = object
6195+ (catMaybes
6196+ [("nextPageToken" .=) <$> _sclNextPageToken,
6197+ Just ("kind" .= _sclKind),
6198+ ("items" .=) <$> _sclItems,
6199+ ("selfLink" .=) <$> _sclSelfLink,
6200+ ("id" .=) <$> _sclId])
6201+
60356202--
60366203-- /See:/ 'firewallAllowedItem' smart constructor.
60376204data FirewallAllowedItem = FirewallAllowedItem
@@ -6707,7 +6874,7 @@ instanceGroupManagersRecreateInstancesRequest =
67076874 { _igmrirInstances = Nothing
67086875 }
67096876
6710−-- | The names of one or more instances to recreate.
6877+-- | The URL for one or more instances to recreate.
67116878igmrirInstances :: Lens' InstanceGroupManagersRecreateInstancesRequest [Text]
67126879igmrirInstances
67136880 = lens _igmrirInstances
@@ -6903,14 +7070,14 @@ igalItems :: Lens' InstanceGroupAggregatedList (Maybe InstanceGroupAggregatedLis
69037070igalItems
69047071 = lens _igalItems (\ s a -> s{_igalItems = a})
69057072
6906−-- | [Output Only] A unique identifier for this aggregated list of instance
6907−-- groups. The server defines this identifier.
7073+-- | [Output Only] The URL for this resource type. The server generates this
7074+-- URL.
69087075igalSelfLink :: Lens' InstanceGroupAggregatedList (Maybe Text)
69097076igalSelfLink
69107077 = lens _igalSelfLink (\ s a -> s{_igalSelfLink = a})
69117078
69127079-- | [Output Only] A unique identifier for this aggregated list of instance
6913−-- groups. The server defines this identifier.
7080+-- groups. The server generates this identifier.
69147081igalId :: Lens' InstanceGroupAggregatedList (Maybe Text)
69157082igalId = lens _igalId (\ s a -> s{_igalId = a})
69167083
@@ -7221,6 +7388,51 @@ instance ToJSON
72217388 [("value" .=) <$> _tvgslwdiValue,
72227389 ("key" .=) <$> _tvgslwdiKey])
72237390
7391+--
7392+-- /See:/ 'targetHTTPSProxiesSetSSLCertificatesRequest' smart constructor.
7393+newtype TargetHTTPSProxiesSetSSLCertificatesRequest = TargetHTTPSProxiesSetSSLCertificatesRequest
7394+ { _thpsscrSSLCertificates :: Maybe [Text]
7395+ } deriving (Eq,Show,Data,Typeable,Generic)
7396+
7397+-- | Creates a value of 'TargetHTTPSProxiesSetSSLCertificatesRequest' with the minimum fields required to make a request.
7398+--
7399+-- Use one of the following lenses to modify other fields as desired:
7400+--
7401+-- * 'thpsscrSSLCertificates'
7402+targetHTTPSProxiesSetSSLCertificatesRequest
7403+ :: TargetHTTPSProxiesSetSSLCertificatesRequest
7404+targetHTTPSProxiesSetSSLCertificatesRequest =
7405+ TargetHTTPSProxiesSetSSLCertificatesRequest
7406+ { _thpsscrSSLCertificates = Nothing
7407+ }
7408+
7409+-- | New set of URLs to SslCertificate resources to associate with this
7410+-- TargetHttpProxy. Currently exactly one ssl certificate must be
7411+-- specified.
7412+thpsscrSSLCertificates :: Lens' TargetHTTPSProxiesSetSSLCertificatesRequest [Text]
7413+thpsscrSSLCertificates
7414+ = lens _thpsscrSSLCertificates
7415+ (\ s a -> s{_thpsscrSSLCertificates = a})
7416+ . _Default
7417+ . _Coerce
7418+
7419+instance FromJSON
7420+ TargetHTTPSProxiesSetSSLCertificatesRequest where
7421+ parseJSON
7422+ = withObject
7423+ "TargetHTTPSProxiesSetSSLCertificatesRequest"
7424+ (\ o ->
7425+ TargetHTTPSProxiesSetSSLCertificatesRequest <$>
7426+ (o .:? "sslCertificates" .!= mempty))
7427+
7428+instance ToJSON
7429+ TargetHTTPSProxiesSetSSLCertificatesRequest where
7430+ toJSON
7431+ TargetHTTPSProxiesSetSSLCertificatesRequest{..}
7432+ = object
7433+ (catMaybes
7434+ [("sslCertificates" .=) <$> _thpsscrSSLCertificates])
7435+
72247436-- | An Instance Template resource.
72257437--
72267438-- /See:/ 'instanceTemplate' smart constructor.
@@ -7275,8 +7487,13 @@ itSelfLink :: Lens' InstanceTemplate (Maybe Text)
72757487itSelfLink
72767488 = lens _itSelfLink (\ s a -> s{_itSelfLink = a})
72777489
7278−-- | The name of the instance template. The name must be 1-63 characters
7279−-- long, and comply with RFC1035.
7490+-- | Name of the resource; provided by the client when the resource is
7491+-- created. The name must be 1-63 characters long, and comply with RFC1035.
7492+-- Specifically, the name must be 1-63 characters long and match the
7493+-- regular expression [a-z]([-a-z0-9]*[a-z0-9])? which means the first
7494+-- character must be a lowercase letter, and all following characters must
7495+-- be a dash, lowercase letter, or digit, except the last character, which
7496+-- cannot be a dash.
72807497itName :: Lens' InstanceTemplate (Maybe Text)
72817498itName = lens _itName (\ s a -> s{_itName = a})
72827499
@@ -7298,7 +7515,7 @@ itDescription
72987515 = lens _itDescription
72997516 (\ s a -> s{_itDescription = a})
73007517
7301−-- | The instance properties for the instance template resource.
7518+-- | The instance properties for this instance template.
73027519itProperties :: Lens' InstanceTemplate (Maybe InstanceProperties)
73037520itProperties
73047521 = lens _itProperties (\ s a -> s{_itProperties = a})
@@ -7590,6 +7807,133 @@ instance ToJSON URLMapsValidateResponse where
75907807 toJSON URLMapsValidateResponse{..}
75917808 = object (catMaybes [("result" .=) <$> _umvrResult])
75927809
7810+-- | An SslCertificate resource. This resource provides a mechanism to upload
7811+-- an SSL key and certificate to global HTTPS loadbalancer to serve secure
7812+-- connections.
7813+--
7814+-- /See:/ 'sslCertificate' smart constructor.
7815+data SSLCertificate = SSLCertificate
7816+ { _scPrivateKey :: !(Maybe Text)
7817+ , _scKind :: !Text
7818+ , _scSelfLink :: !(Maybe Text)
7819+ , _scName :: !(Maybe Text)
7820+ , _scCreationTimestamp :: !(Maybe Text)
7821+ , _scId :: !(Maybe Word64)
7822+ , _scCertificate :: !(Maybe Text)
7823+ , _scDescription :: !(Maybe Text)
7824+ } deriving (Eq,Show,Data,Typeable,Generic)
7825+
7826+-- | Creates a value of 'SSLCertificate' with the minimum fields required to make a request.
7827+--
7828+-- Use one of the following lenses to modify other fields as desired:
7829+--
7830+-- * 'scPrivateKey'
7831+--
7832+-- * 'scKind'
7833+--
7834+-- * 'scSelfLink'
7835+--
7836+-- * 'scName'
7837+--
7838+-- * 'scCreationTimestamp'
7839+--
7840+-- * 'scId'
7841+--
7842+-- * 'scCertificate'
7843+--
7844+-- * 'scDescription'
7845+sslCertificate
7846+ :: SSLCertificate
7847+sslCertificate =
7848+ SSLCertificate
7849+ { _scPrivateKey = Nothing
7850+ , _scKind = "compute#sslCertificate"
7851+ , _scSelfLink = Nothing
7852+ , _scName = Nothing
7853+ , _scCreationTimestamp = Nothing
7854+ , _scId = Nothing
7855+ , _scCertificate = Nothing
7856+ , _scDescription = Nothing
7857+ }
7858+
7859+-- | A write-only private key in PEM format. Only insert RPCs will include
7860+-- this field.
7861+scPrivateKey :: Lens' SSLCertificate (Maybe Text)
7862+scPrivateKey
7863+ = lens _scPrivateKey (\ s a -> s{_scPrivateKey = a})
7864+
7865+-- | [Output Only] Type of the resource. Always compute#sslCertificate for
7866+-- SSL certificates.
7867+scKind :: Lens' SSLCertificate Text
7868+scKind = lens _scKind (\ s a -> s{_scKind = a})
7869+
7870+-- | [Output only] Server-defined URL for the resource.
7871+scSelfLink :: Lens' SSLCertificate (Maybe Text)
7872+scSelfLink
7873+ = lens _scSelfLink (\ s a -> s{_scSelfLink = a})
7874+
7875+-- | Name of the resource. Provided by the client when the resource is
7876+-- created. The name must be 1-63 characters long, and comply with RFC1035.
7877+-- Specifically, the name must be 1-63 characters long and match the
7878+-- regular expression [a-z]([-a-z0-9]*[a-z0-9])? which means the first
7879+-- character must be a lowercase letter, and all following characters must
7880+-- be a dash, lowercase letter, or digit, except the last character, which
7881+-- cannot be a dash.
7882+scName :: Lens' SSLCertificate (Maybe Text)
7883+scName = lens _scName (\ s a -> s{_scName = a})
7884+
7885+-- | [Output Only] Creation timestamp in RFC3339 text format.
7886+scCreationTimestamp :: Lens' SSLCertificate (Maybe Text)
7887+scCreationTimestamp
7888+ = lens _scCreationTimestamp
7889+ (\ s a -> s{_scCreationTimestamp = a})
7890+
7891+-- | [Output Only] Unique identifier for the resource. Defined by the server.
7892+scId :: Lens' SSLCertificate (Maybe Word64)
7893+scId = lens _scId (\ s a -> s{_scId = a})
7894+
7895+-- | A local certificate file. The certificate must be in PEM format. The
7896+-- certificate chain must be no greater than 5 certs long. The chain must
7897+-- include at least one intermediate cert.
7898+scCertificate :: Lens' SSLCertificate (Maybe Text)
7899+scCertificate
7900+ = lens _scCertificate
7901+ (\ s a -> s{_scCertificate = a})
7902+
7903+-- | An optional textual description of the resource. Provided by the client
7904+-- when the resource is created.
7905+scDescription :: Lens' SSLCertificate (Maybe Text)
7906+scDescription
7907+ = lens _scDescription
7908+ (\ s a -> s{_scDescription = a})
7909+
7910+instance FromJSON SSLCertificate where
7911+ parseJSON
7912+ = withObject "SSLCertificate"
7913+ (\ o ->
7914+ SSLCertificate <$>
7915+ (o .:? "privateKey") <*>
7916+ (o .:? "kind" .!= "compute#sslCertificate")
7917+ <*> (o .:? "selfLink")
7918+ <*> (o .:? "name")
7919+ <*> (o .:? "creationTimestamp")
7920+ <*> (o .:? "id")
7921+ <*> (o .:? "certificate")
7922+ <*> (o .:? "description"))
7923+
7924+instance ToJSON SSLCertificate where
7925+ toJSON SSLCertificate{..}
7926+ = object
7927+ (catMaybes
7928+ [("privateKey" .=) <$> _scPrivateKey,
7929+ Just ("kind" .= _scKind),
7930+ ("selfLink" .=) <$> _scSelfLink,
7931+ ("name" .=) <$> _scName,
7932+ ("creationTimestamp" .=) <$> _scCreationTimestamp,
7933+ ("id" .=) <$> _scId,
7934+ ("certificate" .=) <$> _scCertificate,
7935+ ("description" .=) <$> _scDescription])
7936+
75937937--
75947938-- /See:/ 'urlMapReference' smart constructor.
75957939newtype URLMapReference = URLMapReference
@@ -7868,31 +8212,46 @@ managedInstance =
78688212 , _miInstance = Nothing
78698213 }
78708214
7871−-- | Information about the last attempt to create or delete the instance.
8215+-- | [Output Only] Information about the last attempt to create or delete the
8216+-- instance.
78728217miLastAttempt :: Lens' ManagedInstance (Maybe ManagedInstanceLastAttempt)
78738218miLastAttempt
78748219 = lens _miLastAttempt
78758220 (\ s a -> s{_miLastAttempt = a})
78768221
7877−-- | The current action that the managed instance group has scheduled for the
7878−-- instance.
8222+-- | [Output Only] The current action that the managed instance group has
8223+-- scheduled for the instance. Possible values: - NONE The instance is
8224+-- running, and the managed instance group does not have any scheduled
8225+-- actions for this instance. - CREATING The managed instance group is
8226+-- creating this instance. - RECREATING The managed instance group is
8227+-- recreating this instance. - DELETING The managed instance group is
8228+-- permanently deleting this instance. - ABANDONING The managed instance
8229+-- group is abandoning this instance. The instance will be removed from the
8230+-- instance group and from any target pools that are associated with this
8231+-- group. - RESTARTING The managed instance group is restarting the
8232+-- instance. - REFRESHING The managed instance group is applying
8233+-- configuration changes to the instance without stopping it. For example,
8234+-- the group can update the target pool list for an instance without
8235+-- stopping that instance.
78798236miCurrentAction :: Lens' ManagedInstance (Maybe ManagedInstanceCurrentAction)
78808237miCurrentAction
78818238 = lens _miCurrentAction
78828239 (\ s a -> s{_miCurrentAction = a})
78838240
7884−-- | The unique identifier for this resource (empty when instance does not
7885−-- exist).
8241+-- | [Output only] The unique identifier for this resource. This field is
8242+-- empty when instance does not exist.
78868243miId :: Lens' ManagedInstance (Maybe Word64)
78878244miId = lens _miId (\ s a -> s{_miId = a})
78888245
7889−-- | The status of the instance (empty when instance does not exist).
8246+-- | [Output Only] The status of the instance. This field is empty when the
8247+-- instance does not exist.
78908248miInstanceStatus :: Lens' ManagedInstance (Maybe ManagedInstanceInstanceStatus)
78918249miInstanceStatus
78928250 = lens _miInstanceStatus
78938251 (\ s a -> s{_miInstanceStatus = a})
78948252
7895−-- | The URL of the instance (set even though instance does not exist yet).
8253+-- | [Output Only] The URL of the instance. The URL can exist even if the
8254+-- instance has not yet been created.
78968255miInstance :: Lens' ManagedInstance (Maybe Text)
78978256miInstance
78988257 = lens _miInstance (\ s a -> s{_miInstance = a})
@@ -7917,7 +8276,7 @@ instance ToJSON ManagedInstance where
79178276 ("instanceStatus" .=) <$> _miInstanceStatus,
79188277 ("instance" .=) <$> _miInstance])
79198278
7920−-- | A map of filtered managed instance group lists.
8279+-- | [Output Only] A map of filtered managed instance group lists.
79218280--
79228281-- /See:/ 'instanceGroupManagerAggregatedListItems' smart constructor.
79238282newtype InstanceGroupManagerAggregatedListItems = InstanceGroupManagerAggregatedListItems
@@ -7937,7 +8296,8 @@ instanceGroupManagerAggregatedListItems pIgmaliAddtional_ =
79378296 { _igmaliAddtional = pIgmaliAddtional_
79388297 }
79398298
7940−-- | The name of the scope that contains this set of managed instance groups.
8299+-- | [Output Only] The name of the scope that contains this set of managed
8300+-- instance groups.
79418301igmaliAddtional :: Lens' InstanceGroupManagerAggregatedListItems (HashMap Text InstanceGroupManagersScopedList)
79428302igmaliAddtional
79438303 = lens _igmaliAddtional
@@ -7974,7 +8334,8 @@ instanceGroupManagersDeleteInstancesRequest =
79748334 { _igmdirInstances = Nothing
79758335 }
79768336
7977−-- | The names of one or more instances to delete.
8337+-- | The list of instances to delete from this managed instance group.
8338+-- Specify one or more instance URLs.
79788339igmdirInstances :: Lens' InstanceGroupManagersDeleteInstancesRequest [Text]
79798340igmdirInstances
79808341 = lens _igmdirInstances
@@ -8395,7 +8756,7 @@ igmasRestarting
83958756 (\ s a -> s{_igmasRestarting = a})
83968757
83978758-- | [Output Only] The number of instances in the managed instance group that
8398−-- currently have no scheduled actions.
8759+-- are running and have no scheduled actions.
83998760igmasNone :: Lens' InstanceGroupManagerActionsSummary (Maybe Int32)
84008761igmasNone
84018762 = lens _igmasNone (\ s a -> s{_igmasNone = a})
@@ -8426,9 +8787,9 @@ igmasRecreating
84268787 = lens _igmasRecreating
84278788 (\ s a -> s{_igmasRecreating = a})
84288789
8429−-- | [Output Only] Total number of instances in the managed instance group
8430−-- that are scheduled to be abandoned. Abandoning an instance removes it
8431−-- from the managed instance group without deleting it.
8790+-- | [Output Only] The total number of instances in the managed instance
8791+-- group that are scheduled to be abandoned. Abandoning an instance removes
8792+-- it from the managed instance group without deleting it.
84328793igmasAbandoning :: Lens' InstanceGroupManagerActionsSummary (Maybe Int32)
84338794igmasAbandoning
84348795 = lens _igmasAbandoning
@@ -9015,6 +9376,9 @@ adDeviceName :: Lens' AttachedDisk (Maybe Text)
90159376adDeviceName
90169377 = lens _adDeviceName (\ s a -> s{_adDeviceName = a})
90179378
9379+-- | Specifies the disk interface to use for attaching this disk, either SCSI
9380+-- or NVME. The default is SCSI. For performance characteristics of SCSI
9381+-- over NVMe, see Local SSD performance.
90189382adInterface :: Lens' AttachedDisk (Maybe AttachedDiskInterface)
90199383adInterface
90209384 = lens _adInterface (\ s a -> s{_adInterface = a})
@@ -10751,7 +11115,7 @@ thttppURLMap :: Lens' TargetHTTPProxy (Maybe Text)
1075111115thttppURLMap
1075211116 = lens _thttppURLMap (\ s a -> s{_thttppURLMap = a})
1075311117
10754−-- | [Output Only] Type of resource. Always compute#Operation for Operation
11118+-- | [Output Only] Type of resource. Always compute#operation for Operation
1075511119-- resources.
1075611120thttppKind :: Lens' TargetHTTPProxy Text
1075711121thttppKind
@@ -11197,8 +11561,8 @@ igliNextPageToken
1119711561igliKind :: Lens' InstanceGroupsListInstances Text
1119811562igliKind = lens _igliKind (\ s a -> s{_igliKind = a})
1119911563
11200−-- | A list of InstanceWithNamedPorts resources, which contains all named
11201−-- ports for the given instance.
11564+-- | [Output Only] A list of instances and any named ports that are assigned
11565+-- to those instances.
1120211566igliItems :: Lens' InstanceGroupsListInstances [InstanceWithNamedPorts]
1120311567igliItems
1120411568 = lens _igliItems (\ s a -> s{_igliItems = a}) .
@@ -11206,13 +11570,13 @@ igliItems
1120611570 . _Coerce
1120711571
1120811572-- | [Output Only] The URL for this list of instance groups. The server
11209−-- defines this URL.
11573+-- generates this URL.
1121011574igliSelfLink :: Lens' InstanceGroupsListInstances (Maybe Text)
1121111575igliSelfLink
1121211576 = lens _igliSelfLink (\ s a -> s{_igliSelfLink = a})
1121311577
1121411578-- | [Output Only] A unique identifier for this list of instance groups. The
11215−-- server defines this identifier.
11579+-- server generates this identifier.
1121611580igliId :: Lens' InstanceGroupsListInstances (Maybe Text)
1121711581igliId = lens _igliId (\ s a -> s{_igliId = a})
1121811582
@@ -12363,20 +12727,21 @@ instanceGroupManagersSetTargetPoolsRequest =
1236312727 , _igmstprTargetPools = Nothing
1236412728 }
1236512729
12366−-- | The fingerprint of the target pools information, which is a hash of the
12367−-- contents. This field is used for optimistic locking when updating the
12368−-- target pool entries.
12730+-- | The fingerprint of the target pools information. Use this optional
12731+-- property to prevent conflicts when multiple users change the target
12732+-- pools settings concurrently. Obtain the fingerprint with the
12733+-- instanceGroupManagers.get method. Then, include the fingerprint in your
12734+-- request to ensure that you do not overwrite changes that were applied
12735+-- from another concurrent request.
1236912736igmstprFingerprint :: Lens' InstanceGroupManagersSetTargetPoolsRequest (Maybe Word8)
1237012737igmstprFingerprint
1237112738 = lens _igmstprFingerprint
1237212739 (\ s a -> s{_igmstprFingerprint = a})
1237312740
1237412741-- | The list of target pool URLs that instances in this managed instance
12375−-- group belong to. When the managed instance group creates new instances,
12376−-- the group automatically adds those instances to the target pools that
12377−-- are specified in this parameter. Changing the value of this parameter
12378−-- does not change the target pools of existing instances in this managed
12379−-- instance group.
12742+-- group belong to. The managed instance group applies these target pools
12743+-- to all of the instances in the group. Existing instances and new
12744+-- instances in the group all receive these target pool settings.
1238012745igmstprTargetPools :: Lens' InstanceGroupManagersSetTargetPoolsRequest [Text]
1238112746igmstprTargetPools
1238212747 = lens _igmstprTargetPools
@@ -12402,6 +12767,88 @@ instance ToJSON
1240212767 [("fingerprint" .=) <$> _igmstprFingerprint,
1240312768 ("targetPools" .=) <$> _igmstprTargetPools])
1240412769
12770+-- | Contains a list of HttpsHealthCheck resources.
12771+--
12772+-- /See:/ 'httpsHealthCheckList' smart constructor.
12773+data HTTPSHealthCheckList = HTTPSHealthCheckList
12774+ { _hhclNextPageToken :: !(Maybe Text)
12775+ , _hhclKind :: !Text
12776+ , _hhclItems :: !(Maybe [HTTPSHealthCheck])
12777+ , _hhclSelfLink :: !(Maybe Text)
12778+ , _hhclId :: !(Maybe Text)
12779+ } deriving (Eq,Show,Data,Typeable,Generic)
12780+
12781+-- | Creates a value of 'HTTPSHealthCheckList' with the minimum fields required to make a request.
12782+--
12783+-- Use one of the following lenses to modify other fields as desired:
12784+--
12785+-- * 'hhclNextPageToken'
12786+--
12787+-- * 'hhclKind'
12788+--
12789+-- * 'hhclItems'
12790+--
12791+-- * 'hhclSelfLink'
12792+--
12793+-- * 'hhclId'
12794+httpsHealthCheckList
12795+ :: HTTPSHealthCheckList
12796+httpsHealthCheckList =
12797+ HTTPSHealthCheckList
12798+ { _hhclNextPageToken = Nothing
12799+ , _hhclKind = "compute#httpsHealthCheckList"
12800+ , _hhclItems = Nothing
12801+ , _hhclSelfLink = Nothing
12802+ , _hhclId = Nothing
12803+ }
12804+
12805+-- | [Output Only] A token used to continue a truncated list request.
12806+hhclNextPageToken :: Lens' HTTPSHealthCheckList (Maybe Text)
12807+hhclNextPageToken
12808+ = lens _hhclNextPageToken
12809+ (\ s a -> s{_hhclNextPageToken = a})
12810+
12811+-- | Type of resource.
12812+hhclKind :: Lens' HTTPSHealthCheckList Text
12813+hhclKind = lens _hhclKind (\ s a -> s{_hhclKind = a})
12814+
12815+-- | A list of HttpsHealthCheck resources.
12816+hhclItems :: Lens' HTTPSHealthCheckList [HTTPSHealthCheck]
12817+hhclItems
12818+ = lens _hhclItems (\ s a -> s{_hhclItems = a}) .
12819+ _Default
12820+ . _Coerce
12821+
12822+-- | [Output Only] Server-defined URL for this resource.
12823+hhclSelfLink :: Lens' HTTPSHealthCheckList (Maybe Text)
12824+hhclSelfLink
12825+ = lens _hhclSelfLink (\ s a -> s{_hhclSelfLink = a})
12826+
12827+-- | [Output Only] Unique identifier for the resource; defined by the server.
12828+hhclId :: Lens' HTTPSHealthCheckList (Maybe Text)
12829+hhclId = lens _hhclId (\ s a -> s{_hhclId = a})
12830+
12831+instance FromJSON HTTPSHealthCheckList where
12832+ parseJSON
12833+ = withObject "HTTPSHealthCheckList"
12834+ (\ o ->
12835+ HTTPSHealthCheckList <$>
12836+ (o .:? "nextPageToken") <*>
12837+ (o .:? "kind" .!= "compute#httpsHealthCheckList")
12838+ <*> (o .:? "items" .!= mempty)
12839+ <*> (o .:? "selfLink")
12840+ <*> (o .:? "id"))
12841+
12842+instance ToJSON HTTPSHealthCheckList where
12843+ toJSON HTTPSHealthCheckList{..}
12844+ = object
12845+ (catMaybes
12846+ [("nextPageToken" .=) <$> _hhclNextPageToken,
12847+ Just ("kind" .= _hhclKind),
12848+ ("items" .=) <$> _hhclItems,
12849+ ("selfLink" .=) <$> _hhclSelfLink,
12850+ ("id" .=) <$> _hhclId])
12851+
1240512852--
1240612853-- /See:/ 'operationErrorErrorsItem' smart constructor.
1240712854data OperationErrorErrorsItem = OperationErrorErrorsItem
@@ -12683,8 +13130,8 @@ managedInstanceLastAttempt =
1268313130 { _milaErrors = Nothing
1268413131 }
1268513132
12686−-- | Encountered errors during the last attempt to create or delete the
12687−-- instance.
13133+-- | [Output Only] Encountered errors during the last attempt to create or
13134+-- delete the instance.
1268813135milaErrors :: Lens' ManagedInstanceLastAttempt (Maybe ManagedInstanceLastAttemptErrors)
1268913136milaErrors
1269013137 = lens _milaErrors (\ s a -> s{_milaErrors = a})
@@ -13176,9 +13623,9 @@ hostRule =
1317613623 , _hrPathMatcher = Nothing
1317713624 }
1317813625
13179−-- | The list of host patterns to match. They must be valid hostnames except
13180−-- that they may start with *. or *-. The * acts like a glob and will match
13181−-- any string of atoms (separated by .s and -s) to the left.
13626+-- | The list of host patterns to match. They must be valid hostnames, except
13627+-- * will match any string of ([a-z0-9-.]*). In that case, * must be the
13628+-- first character and must be followed in the pattern by either - or ..
1318213629hrHosts :: Lens' HostRule [Text]
1318313630hrHosts
1318413631 = lens _hrHosts (\ s a -> s{_hrHosts = a}) . _Default
@@ -13190,8 +13637,8 @@ hrDescription
1319013637 = lens _hrDescription
1319113638 (\ s a -> s{_hrDescription = a})
1319213639
13193−-- | The name of the PathMatcher to match the path portion of the URL, if the
13194−-- this hostRule matches the URL\'s host portion.
13640+-- | The name of the PathMatcher to use to match the path portion of the URL
13641+-- if the hostRule matches the URL\'s host portion.
1319513642hrPathMatcher :: Lens' HostRule (Maybe Text)
1319613643hrPathMatcher
1319713644 = lens _hrPathMatcher
@@ -13334,25 +13781,25 @@ ig1Size = lens _ig1Size (\ s a -> s{_ig1Size = a})
1333413781ig1Kind :: Lens' InstanceGroup Text
1333513782ig1Kind = lens _ig1Kind (\ s a -> s{_ig1Kind = a})
1333613783
13337−-- | [Output Only] The fingerprint of the named ports information. The system
13338−-- uses this fingerprint to detect conflicts when multiple users change the
13339−-- named ports information concurrently.
13784+-- | [Output Only] The fingerprint of the named ports. The system uses this
13785+-- fingerprint to detect conflicts when multiple users change the named
13786+-- ports concurrently.
1334013787ig1Fingerprint :: Lens' InstanceGroup (Maybe Word8)
1334113788ig1Fingerprint
1334213789 = lens _ig1Fingerprint
1334313790 (\ s a -> s{_ig1Fingerprint = a})
1334413791
13345−-- | The URL of the network to which all instances in the instance group
13346−-- belong.
13792+-- | [Output Only] The URL of the network to which all instances in the
13793+-- instance group belong.
1334713794ig1Network :: Lens' InstanceGroup (Maybe Text)
1334813795ig1Network
1334913796 = lens _ig1Network (\ s a -> s{_ig1Network = a})
1335013797
13351−-- | The URL of the zone where the instance group is located.
13798+-- | [Output Only] The URL of the zone where the instance group is located.
1335213799ig1Zone :: Lens' InstanceGroup (Maybe Text)
1335313800ig1Zone = lens _ig1Zone (\ s a -> s{_ig1Zone = a})
1335413801
13355−-- | [Output Only] The URL for this instance group. The server defines this
13802+-- | [Output Only] The URL for this instance group. The server generates this
1335613803-- URL.
1335713804ig1SelfLink :: Lens' InstanceGroup (Maybe Text)
1335813805ig1SelfLink
@@ -13370,8 +13817,8 @@ ig1CreationTimestamp
1337013817 = lens _ig1CreationTimestamp
1337113818 (\ s a -> s{_ig1CreationTimestamp = a})
1337213819
13373−-- | [Output Only] A unique identifier for this instance group. The server
13374−-- defines this identifier.
13820+-- | [Output Only] A unique identifier for this resource type. The server
13821+-- generates this identifier.
1337513822ig1Id :: Lens' InstanceGroup (Maybe Word64)
1337613823ig1Id = lens _ig1Id (\ s a -> s{_ig1Id = a})
1337713824
@@ -13381,10 +13828,10 @@ ig1Description
1338113828 = lens _ig1Description
1338213829 (\ s a -> s{_ig1Description = a})
1338313830
13384−-- | Assigns a name to a port number. For example: {name: ?http?, port: 80}
13831+-- | Assigns a name to a port number. For example: {name: \"http\", port: 80}
1338513832-- This allows the system to reference ports by the assigned name instead
1338613833-- of a port number. Named ports can also contain multiple ports. For
13387−-- example: [{name: ?http?, port: 80},{name: \"http\", port: 8080}] Named
13834+-- example: [{name: \"http\", port: 80},{name: \"http\", port: 8080}] Named
1338813835-- ports apply to all instances in this instance group.
1338913836ig1NamedPorts :: Lens' InstanceGroup [NamedPort]
1339013837ig1NamedPorts
@@ -13762,6 +14209,132 @@ instance ToJSON MetadataItemsItem where
1376214209 (catMaybes
1376314210 [("value" .=) <$> _miiValue, ("key" .=) <$> _miiKey])
1376414211
14212+-- | A TargetHttpsProxy resource. This resource defines an HTTPS proxy.
14213+--
14214+-- /See:/ 'targetHTTPSProxy' smart constructor.
14215+data TargetHTTPSProxy = TargetHTTPSProxy
14216+ { _thpURLMap :: !(Maybe Text)
14217+ , _thpSSLCertificates :: !(Maybe [Text])
14218+ , _thpKind :: !Text
14219+ , _thpSelfLink :: !(Maybe Text)
14220+ , _thpName :: !(Maybe Text)
14221+ , _thpCreationTimestamp :: !(Maybe Text)
14222+ , _thpId :: !(Maybe Word64)
14223+ , _thpDescription :: !(Maybe Text)
14224+ } deriving (Eq,Show,Data,Typeable,Generic)
14225+
14226+-- | Creates a value of 'TargetHTTPSProxy' with the minimum fields required to make a request.
14227+--
14228+-- Use one of the following lenses to modify other fields as desired:
14229+--
14230+-- * 'thpURLMap'
14231+--
14232+-- * 'thpSSLCertificates'
14233+--
14234+-- * 'thpKind'
14235+--
14236+-- * 'thpSelfLink'
14237+--
14238+-- * 'thpName'
14239+--
14240+-- * 'thpCreationTimestamp'
14241+--
14242+-- * 'thpId'
14243+--
14244+-- * 'thpDescription'
14245+targetHTTPSProxy
14246+ :: TargetHTTPSProxy
14247+targetHTTPSProxy =
14248+ TargetHTTPSProxy
14249+ { _thpURLMap = Nothing
14250+ , _thpSSLCertificates = Nothing
14251+ , _thpKind = "compute#targetHttpsProxy"
14252+ , _thpSelfLink = Nothing
14253+ , _thpName = Nothing
14254+ , _thpCreationTimestamp = Nothing
14255+ , _thpId = Nothing
14256+ , _thpDescription = Nothing
14257+ }
14258+
14259+-- | URL to the UrlMap resource that defines the mapping from URL to the
14260+-- BackendService.
14261+thpURLMap :: Lens' TargetHTTPSProxy (Maybe Text)
14262+thpURLMap
14263+ = lens _thpURLMap (\ s a -> s{_thpURLMap = a})
14264+
14265+-- | URLs to SslCertificate resources that are used to authenticate
14266+-- connections to Backends. Currently exactly one SSL certificate must be
14267+-- specified.
14268+thpSSLCertificates :: Lens' TargetHTTPSProxy [Text]
14269+thpSSLCertificates
14270+ = lens _thpSSLCertificates
14271+ (\ s a -> s{_thpSSLCertificates = a})
14272+ . _Default
14273+ . _Coerce
14274+
14275+-- | Type of the resource.
14276+thpKind :: Lens' TargetHTTPSProxy Text
14277+thpKind = lens _thpKind (\ s a -> s{_thpKind = a})
14278+
14279+-- | [Output Only] Server-defined URL for the resource.
14280+thpSelfLink :: Lens' TargetHTTPSProxy (Maybe Text)
14281+thpSelfLink
14282+ = lens _thpSelfLink (\ s a -> s{_thpSelfLink = a})
14283+
14284+-- | Name of the resource. Provided by the client when the resource is
14285+-- created. The name must be 1-63 characters long, and comply with RFC1035.
14286+-- Specifically, the name must be 1-63 characters long and match the
14287+-- regular expression [a-z]([-a-z0-9]*[a-z0-9])? which means the first
14288+-- character must be a lowercase letter, and all following characters must
14289+-- be a dash, lowercase letter, or digit, except the last character, which
14290+-- cannot be a dash.
14291+thpName :: Lens' TargetHTTPSProxy (Maybe Text)
14292+thpName = lens _thpName (\ s a -> s{_thpName = a})
14293+
14294+-- | [Output Only] Creation timestamp in RFC3339 text format.
14295+thpCreationTimestamp :: Lens' TargetHTTPSProxy (Maybe Text)
14296+thpCreationTimestamp
14297+ = lens _thpCreationTimestamp
14298+ (\ s a -> s{_thpCreationTimestamp = a})
14299+
14300+-- | [Output Only] Unique identifier for the resource; defined by the server.
14301+thpId :: Lens' TargetHTTPSProxy (Maybe Word64)
14302+thpId = lens _thpId (\ s a -> s{_thpId = a})
14303+
14304+-- | An optional textual description of the resource. Provided by the client
14305+-- when the resource is created.
14306+thpDescription :: Lens' TargetHTTPSProxy (Maybe Text)
14307+thpDescription
14308+ = lens _thpDescription
14309+ (\ s a -> s{_thpDescription = a})
14310+
14311+instance FromJSON TargetHTTPSProxy where
14312+ parseJSON
14313+ = withObject "TargetHTTPSProxy"
14314+ (\ o ->
14315+ TargetHTTPSProxy <$>
14316+ (o .:? "urlMap") <*>
14317+ (o .:? "sslCertificates" .!= mempty)
14318+ <*> (o .:? "kind" .!= "compute#targetHttpsProxy")
14319+ <*> (o .:? "selfLink")
14320+ <*> (o .:? "name")
14321+ <*> (o .:? "creationTimestamp")
14322+ <*> (o .:? "id")
14323+ <*> (o .:? "description"))
14324+
14325+instance ToJSON TargetHTTPSProxy where
14326+ toJSON TargetHTTPSProxy{..}
14327+ = object
14328+ (catMaybes
14329+ [("urlMap" .=) <$> _thpURLMap,
14330+ ("sslCertificates" .=) <$> _thpSSLCertificates,
14331+ Just ("kind" .= _thpKind),
14332+ ("selfLink" .=) <$> _thpSelfLink,
14333+ ("name" .=) <$> _thpName,
14334+ ("creationTimestamp" .=) <$> _thpCreationTimestamp,
14335+ ("id" .=) <$> _thpId,
14336+ ("description" .=) <$> _thpDescription])
14337+
1376514338--
1376614339-- /See:/ 'targetVPNGatewaysScopedList' smart constructor.
1376714340data TargetVPNGatewaysScopedList = TargetVPNGatewaysScopedList
@@ -14293,6 +14866,193 @@ instance ToJSON InstanceGroupsScopedList where
1429314866 [("warning" .=) <$> _igslWarning,
1429414867 ("instanceGroups" .=) <$> _igslInstanceGroups])
1429514868
14869+-- | An HttpsHealthCheck resource. This resource defines a template for how
14870+-- individual instances should be checked for health, via HTTPS.
14871+--
14872+-- /See:/ 'httpsHealthCheck' smart constructor.
14873+data HTTPSHealthCheck = HTTPSHealthCheck
14874+ { _hhcHealthyThreshold :: !(Maybe Int32)
14875+ , _hhcKind :: !Text
14876+ , _hhcRequestPath :: !(Maybe Text)
14877+ , _hhcSelfLink :: !(Maybe Text)
14878+ , _hhcCheckIntervalSec :: !(Maybe Int32)
14879+ , _hhcName :: !(Maybe Text)
14880+ , _hhcCreationTimestamp :: !(Maybe Text)
14881+ , _hhcId :: !(Maybe Word64)
14882+ , _hhcHost :: !(Maybe Text)
14883+ , _hhcTimeoutSec :: !(Maybe Int32)
14884+ , _hhcDescription :: !(Maybe Text)
14885+ , _hhcUnhealthyThreshold :: !(Maybe Int32)
14886+ , _hhcPort :: !(Maybe Int32)
14887+ } deriving (Eq,Show,Data,Typeable,Generic)
14888+
14889+-- | Creates a value of 'HTTPSHealthCheck' with the minimum fields required to make a request.
14890+--
14891+-- Use one of the following lenses to modify other fields as desired:
14892+--
14893+-- * 'hhcHealthyThreshold'
14894+--
14895+-- * 'hhcKind'
14896+--
14897+-- * 'hhcRequestPath'
14898+--
14899+-- * 'hhcSelfLink'
14900+--
14901+-- * 'hhcCheckIntervalSec'
14902+--
14903+-- * 'hhcName'
14904+--
14905+-- * 'hhcCreationTimestamp'
14906+--
14907+-- * 'hhcId'
14908+--
14909+-- * 'hhcHost'
14910+--
14911+-- * 'hhcTimeoutSec'
14912+--
14913+-- * 'hhcDescription'
14914+--
14915+-- * 'hhcUnhealthyThreshold'
14916+--
14917+-- * 'hhcPort'
14918+httpsHealthCheck
14919+ :: HTTPSHealthCheck
14920+httpsHealthCheck =
14921+ HTTPSHealthCheck
14922+ { _hhcHealthyThreshold = Nothing
14923+ , _hhcKind = "compute#httpsHealthCheck"
14924+ , _hhcRequestPath = Nothing
14925+ , _hhcSelfLink = Nothing
14926+ , _hhcCheckIntervalSec = Nothing
14927+ , _hhcName = Nothing
14928+ , _hhcCreationTimestamp = Nothing
14929+ , _hhcId = Nothing
14930+ , _hhcHost = Nothing
14931+ , _hhcTimeoutSec = Nothing
14932+ , _hhcDescription = Nothing
14933+ , _hhcUnhealthyThreshold = Nothing
14934+ , _hhcPort = Nothing
14935+ }
14936+
14937+-- | A so-far unhealthy instance will be marked healthy after this many
14938+-- consecutive successes. The default value is 2.
14939+hhcHealthyThreshold :: Lens' HTTPSHealthCheck (Maybe Int32)
14940+hhcHealthyThreshold
14941+ = lens _hhcHealthyThreshold
14942+ (\ s a -> s{_hhcHealthyThreshold = a})
14943+
14944+-- | Type of the resource.
14945+hhcKind :: Lens' HTTPSHealthCheck Text
14946+hhcKind = lens _hhcKind (\ s a -> s{_hhcKind = a})
14947+
14948+-- | The request path of the HTTPS health check request. The default value is
14949+-- \"\/\".
14950+hhcRequestPath :: Lens' HTTPSHealthCheck (Maybe Text)
14951+hhcRequestPath
14952+ = lens _hhcRequestPath
14953+ (\ s a -> s{_hhcRequestPath = a})
14954+
14955+-- | [Output Only] Server-defined URL for the resource.
14956+hhcSelfLink :: Lens' HTTPSHealthCheck (Maybe Text)
14957+hhcSelfLink
14958+ = lens _hhcSelfLink (\ s a -> s{_hhcSelfLink = a})
14959+
14960+-- | How often (in seconds) to send a health check. The default value is 5
14961+-- seconds.
14962+hhcCheckIntervalSec :: Lens' HTTPSHealthCheck (Maybe Int32)
14963+hhcCheckIntervalSec
14964+ = lens _hhcCheckIntervalSec
14965+ (\ s a -> s{_hhcCheckIntervalSec = a})
14966+
14967+-- | Name of the resource. Provided by the client when the resource is
14968+-- created. The name must be 1-63 characters long, and comply with RFC1035.
14969+-- Specifically, the name must be 1-63 characters long and match the
14970+-- regular expression [a-z]([-a-z0-9]*[a-z0-9])? which means the first
14971+-- character must be a lowercase letter, and all following characters must
14972+-- be a dash, lowercase letter, or digit, except the last character, which
14973+-- cannot be a dash.
14974+hhcName :: Lens' HTTPSHealthCheck (Maybe Text)
14975+hhcName = lens _hhcName (\ s a -> s{_hhcName = a})
14976+
14977+-- | [Output Only] Creation timestamp in RFC3339 text format.
14978+hhcCreationTimestamp :: Lens' HTTPSHealthCheck (Maybe Text)
14979+hhcCreationTimestamp
14980+ = lens _hhcCreationTimestamp
14981+ (\ s a -> s{_hhcCreationTimestamp = a})
14982+
14983+-- | [Output Only] Unique identifier for the resource; defined by the server.
14984+hhcId :: Lens' HTTPSHealthCheck (Maybe Word64)
14985+hhcId = lens _hhcId (\ s a -> s{_hhcId = a})
14986+
14987+-- | The value of the host header in the HTTPS health check request. If left
14988+-- empty (default value), the public IP on behalf of which this health
14989+-- check is performed will be used.
14990+hhcHost :: Lens' HTTPSHealthCheck (Maybe Text)
14991+hhcHost = lens _hhcHost (\ s a -> s{_hhcHost = a})
14992+
14993+-- | How long (in seconds) to wait before claiming failure. The default value
14994+-- is 5 seconds. It is invalid for timeoutSec to have a greater value than
14995+-- checkIntervalSec.
14996+hhcTimeoutSec :: Lens' HTTPSHealthCheck (Maybe Int32)
14997+hhcTimeoutSec
14998+ = lens _hhcTimeoutSec
14999+ (\ s a -> s{_hhcTimeoutSec = a})
15000+
15001+-- | An optional textual description of the resource; provided by the client
15002+-- when the resource is created.
15003+hhcDescription :: Lens' HTTPSHealthCheck (Maybe Text)
15004+hhcDescription
15005+ = lens _hhcDescription
15006+ (\ s a -> s{_hhcDescription = a})
15007+
15008+-- | A so-far healthy instance will be marked unhealthy after this many
15009+-- consecutive failures. The default value is 2.
15010+hhcUnhealthyThreshold :: Lens' HTTPSHealthCheck (Maybe Int32)
15011+hhcUnhealthyThreshold
15012+ = lens _hhcUnhealthyThreshold
15013+ (\ s a -> s{_hhcUnhealthyThreshold = a})
15014+
15015+-- | The TCP port number for the HTTPS health check request. The default
15016+-- value is 443.
15017+hhcPort :: Lens' HTTPSHealthCheck (Maybe Int32)
15018+hhcPort = lens _hhcPort (\ s a -> s{_hhcPort = a})
15019+
15020+instance FromJSON HTTPSHealthCheck where
15021+ parseJSON
15022+ = withObject "HTTPSHealthCheck"
15023+ (\ o ->
15024+ HTTPSHealthCheck <$>
15025+ (o .:? "healthyThreshold") <*>
15026+ (o .:? "kind" .!= "compute#httpsHealthCheck")
15027+ <*> (o .:? "requestPath")
15028+ <*> (o .:? "selfLink")
15029+ <*> (o .:? "checkIntervalSec")
15030+ <*> (o .:? "name")
15031+ <*> (o .:? "creationTimestamp")
15032+ <*> (o .:? "id")
15033+ <*> (o .:? "host")
15034+ <*> (o .:? "timeoutSec")
15035+ <*> (o .:? "description")
15036+ <*> (o .:? "unhealthyThreshold")
15037+ <*> (o .:? "port"))
15038+
15039+instance ToJSON HTTPSHealthCheck where
15040+ toJSON HTTPSHealthCheck{..}
15041+ = object
15042+ (catMaybes
15043+ [("healthyThreshold" .=) <$> _hhcHealthyThreshold,
15044+ Just ("kind" .= _hhcKind),
15045+ ("requestPath" .=) <$> _hhcRequestPath,
15046+ ("selfLink" .=) <$> _hhcSelfLink,
15047+ ("checkIntervalSec" .=) <$> _hhcCheckIntervalSec,
15048+ ("name" .=) <$> _hhcName,
15049+ ("creationTimestamp" .=) <$> _hhcCreationTimestamp,
15050+ ("id" .=) <$> _hhcId, ("host" .=) <$> _hhcHost,
15051+ ("timeoutSec" .=) <$> _hhcTimeoutSec,
15052+ ("description" .=) <$> _hhcDescription,
15053+ ("unhealthyThreshold" .=) <$> _hhcUnhealthyThreshold,
15054+ ("port" .=) <$> _hhcPort])
15055+
1429615056-- | [Output Only] A map of scoped vpn tunnel lists.
1429715057--
1429815058-- /See:/ 'vpnTunnelAggregatedListItems' smart constructor.
@@ -14842,7 +15602,7 @@ instance ToJSON Instance where
1484215602
1484315603-- | A matcher for the path portion of the URL. The BackendService from the
1484415604-- longest-matched rule will serve the URL. If no rule was matched, the
14845−-- default_service will be used.
15605+-- default service will be used.
1484615606--
1484715607-- /See:/ 'pathMatcher' smart constructor.
1484815608data PathMatcher = PathMatcher