@@ -1656,6 +1656,7 @@ data Image = Image'
1656 , _iSourceDiskId :: !(Maybe Text)
1656 , _iSourceDiskId :: !(Maybe Text)
1657 , _iKind :: !Text
1657 , _iKind :: !Text
1658 , _iArchiveSizeBytes :: !(Maybe (Textual Int64))
1658 , _iArchiveSizeBytes :: !(Maybe (Textual Int64))
1659+ , _iFamily :: !(Maybe Text)
1659 , _iRawDisk :: !(Maybe ImageRawDisk)
1660 , _iRawDisk :: !(Maybe ImageRawDisk)
1660 , _iSelfLink :: !(Maybe Text)
1661 , _iSelfLink :: !(Maybe Text)
1661 , _iName :: !(Maybe Text)
1662 , _iName :: !(Maybe Text)
@@ -1683,6 +1684,8 @@ data Image = Image'
1684-- * 'iArchiveSizeBytes'
1685-- * 'iArchiveSizeBytes'
1686-- * 'iRawDisk'
1689-- * 'iRawDisk'
1688-- * 'iSelfLink'
1691-- * 'iSelfLink'
@@ -1710,6 +1713,7 @@ image =
1710 , _iSourceDiskId = Nothing
1713 , _iSourceDiskId = Nothing
1711 , _iKind = "compute#image"
1714 , _iKind = "compute#image"
1712 , _iArchiveSizeBytes = Nothing
1715 , _iArchiveSizeBytes = Nothing
1716+ , _iFamily = Nothing
1713 , _iRawDisk = Nothing
1717 , _iRawDisk = Nothing
1714 , _iSelfLink = Nothing
1718 , _iSelfLink = Nothing
1715 , _iName = Nothing
1719 , _iName = Nothing
@@ -1760,6 +1764,12 @@ iArchiveSizeBytes
1760 (\ s a -> s{_iArchiveSizeBytes = a})
1764 (\ s a -> s{_iArchiveSizeBytes = a})
1761 . mapping _Coerce
1765 . mapping _Coerce
1767+-- | The name of the image family to which this image belongs. You can create
1768+-- disks by specifying an image family instead of a specific image name.
1769+-- The image family always returns its latest image that is not deprecated.
1770+iFamily :: Lens' Image (Maybe Text)
1771+iFamily = lens _iFamily (\ s a -> s{_iFamily = a})
1763-- | The parameters of the raw disk image.
1773-- | The parameters of the raw disk image.
1764iRawDisk :: Lens' Image (Maybe ImageRawDisk)
1774iRawDisk :: Lens' Image (Maybe ImageRawDisk)
1765iRawDisk = lens _iRawDisk (\ s a -> s{_iRawDisk = a})
1775iRawDisk = lens _iRawDisk (\ s a -> s{_iRawDisk = a})
@@ -1829,6 +1839,7 @@ instance FromJSON Image where
1829 <*> (o .:? "sourceDiskId")
1839 <*> (o .:? "sourceDiskId")
1830 <*> (o .:? "kind" .!= "compute#image")
1840 <*> (o .:? "kind" .!= "compute#image")
1831 <*> (o .:? "archiveSizeBytes")
1841 <*> (o .:? "archiveSizeBytes")
1842+ <*> (o .:? "family")
1832 <*> (o .:? "rawDisk")
1843 <*> (o .:? "rawDisk")
1833 <*> (o .:? "selfLink")
1844 <*> (o .:? "selfLink")
1834 <*> (o .:? "name")
1845 <*> (o .:? "name")
@@ -1849,6 +1860,7 @@ instance ToJSON Image where
1849 ("sourceDiskId" .=) <$> _iSourceDiskId,
1860 ("sourceDiskId" .=) <$> _iSourceDiskId,
1850 Just ("kind" .= _iKind),
1861 Just ("kind" .= _iKind),
1851 ("archiveSizeBytes" .=) <$> _iArchiveSizeBytes,
1862 ("archiveSizeBytes" .=) <$> _iArchiveSizeBytes,
1863+ ("family" .=) <$> _iFamily,
1852 ("rawDisk" .=) <$> _iRawDisk,
1864 ("rawDisk" .=) <$> _iRawDisk,
1853 ("selfLink" .=) <$> _iSelfLink,
1865 ("selfLink" .=) <$> _iSelfLink,
1854 ("name" .=) <$> _iName,
1866 ("name" .=) <$> _iName,
@@ -3687,7 +3699,7 @@ frName :: Lens' ForwardingRule (Maybe Text)
3687frName = lens _frName (\ s a -> s{_frName = a})
3699frName = lens _frName (\ s a -> s{_frName = a})
3689-- | The IP protocol to which this rule applies. Valid options are TCP, UDP,
3701-- | The IP protocol to which this rule applies. Valid options are TCP, UDP,
3690−-- ESP, AH or SCTP.
3702+-- ESP, AH, SCTP or ICMP.
3691frIPProtocol :: Lens' ForwardingRule (Maybe ForwardingRuleIPProtocol)
3703frIPProtocol :: Lens' ForwardingRule (Maybe ForwardingRuleIPProtocol)
3692frIPProtocol
3704frIPProtocol
3693 = lens _frIPProtocol (\ s a -> s{_frIPProtocol = a})
3705 = lens _frIPProtocol (\ s a -> s{_frIPProtocol = a})
@@ -4298,7 +4310,7 @@ oStartTime
4298 = lens _oStartTime (\ s a -> s{_oStartTime = a})
4310 = lens _oStartTime (\ s a -> s{_oStartTime = a})
4300-- | [Output Only] Type of the resource. Always compute#operation for
4312-- | [Output Only] Type of the resource. Always compute#operation for
4301−-- operation resources.
4313+-- Operation resources.
4302oKind :: Lens' Operation Text
4314oKind :: Lens' Operation Text
4303oKind = lens _oKind (\ s a -> s{_oKind = a})
4315oKind = lens _oKind (\ s a -> s{_oKind = a})
@@ -4631,22 +4643,17 @@ dUsers
4633-- | The source image used to create this disk. If the source image is
4645-- | The source image used to create this disk. If the source image is
4634−-- deleted from the system, this field will not be set, even if an image
4646+-- deleted, this field will not be set. To create a disk with one of the
4635−-- with the same name has been re-created. When creating a disk, you can
4647+-- public operating system images, specify the image by its family name.
4636−-- provide a private (custom) image using the following input, and Compute
4648+-- For example, specify family\/debian-8 to use the latest Debian 8 image:
4637−-- Engine will use the corresponding image from your project. For example:
4649+-- projects\/debian-cloud\/global\/images\/family\/debian-8 Alternatively,
4650+-- use a specific version of a public operating system image:
4651+-- projects\/debian-cloud\/global\/images\/debian-8-jessie-vYYYYMMDD To
4652+-- create a disk with a private image that you created, specify the image
4638−-- global\/images\/my-private-image Or you can provide an image from a
4653+-- name in the following format: global\/images\/my-private-image You can
4639−-- publicly-available project. For example, to use a Debian image from the
4640−-- debian-cloud project, make sure to include the project in the URL:
4641−-- projects\/debian-cloud\/global\/images\/debian-7-wheezy-vYYYYMMDD where
4642−-- vYYYYMMDD is the image version. The fully-qualified URL will also work
4643−-- in both cases. You can also specify the latest image for a private image
4654+-- also specify a private image by its image family, which returns the
4644−-- family by replacing the image name suffix with family\/family-name. For
4655+-- latest version of the image in that family. Replace the image name with
4645−-- example: global\/images\/family\/my-private-family Or you can specify an
4656+-- family\/family-name: global\/images\/family\/my-private-family
4646−-- image family from a publicly-available project. For example, to use the
4647−-- latest Debian 7 from the debian-cloud project, make sure to include the
4648−-- project in the URL:
4649−-- projects\/debian-cloud\/global\/images\/family\/debian-7
4650dSourceImage :: Lens' Disk (Maybe Text)
4657dSourceImage :: Lens' Disk (Maybe Text)
4651dSourceImage
4658dSourceImage
4652 = lens _dSourceImage (\ s a -> s{_dSourceImage = a})
4659 = lens _dSourceImage (\ s a -> s{_dSourceImage = a})
@@ -5023,9 +5030,8 @@ instanceGroupManager =
5023igmKind :: Lens' InstanceGroupManager Text
5030igmKind :: Lens' InstanceGroupManager Text
5024igmKind = lens _igmKind (\ s a -> s{_igmKind = a})
5031igmKind = lens _igmKind (\ s a -> s{_igmKind = a})
5026−-- | [Output Only] The fingerprint of the target pools information. You can
5033+-- | [Output Only] The fingerprint of the resource data. You can use this
5027−-- use this optional field for optimistic locking when you update the
5034+-- optional field for optimistic locking when you update the resource.
5028−-- target pool entries.
5029igmFingerprint :: Lens' InstanceGroupManager (Maybe Word8)
5035igmFingerprint :: Lens' InstanceGroupManager (Maybe Word8)
5030igmFingerprint
5036igmFingerprint
5031 = lens _igmFingerprint
5037 = lens _igmFingerprint
@@ -6045,15 +6051,18 @@ attachedDiskInitializeParams =
6045 , _adipDiskType = Nothing
6051 , _adipDiskType = Nothing
6048−-- | A source image used to create the disk. You can provide a private
6054+-- | The source image used to create this disk. If the source image is
6049−-- (custom) image, and Compute Engine will use the corresponding image from
6055+-- deleted, this field will not be set. To create a disk with one of the
6050−-- your project. For example: global\/images\/my-private-image Or you can
6056+-- public operating system images, specify the image by its family name.
6051−-- provide an image from a publicly-available project. For example, to use
6057+-- For example, specify family\/debian-8 to use the latest Debian 8 image:
6052−-- a Debian image from the debian-cloud project, make sure to include the
6058+-- projects\/debian-cloud\/global\/images\/family\/debian-8 Alternatively,
6053−-- project in the URL:
6059+-- use a specific version of a public operating system image:
6054−-- projects\/debian-cloud\/global\/images\/debian-7-wheezy-vYYYYMMDD where
6060+-- projects\/debian-cloud\/global\/images\/debian-8-jessie-vYYYYMMDD To
6055−-- vYYYYMMDD is the image version. The fully-qualified URL will also work
6061+-- create a disk with a private image that you created, specify the image
6056−-- in both cases.
6062+-- name in the following format: global\/images\/my-private-image You can
6063+-- also specify a private image by its image family, which returns the
6064+-- latest version of the image in that family. Replace the image name with
6065+-- family\/family-name: global\/images\/family\/my-private-family
6057adipSourceImage :: Lens' AttachedDiskInitializeParams (Maybe Text)
6066adipSourceImage :: Lens' AttachedDiskInitializeParams (Maybe Text)
6058adipSourceImage
6067adipSourceImage
6059 = lens _adipSourceImage
6068 = lens _adipSourceImage
@@ -6210,8 +6219,9 @@ niNetwork
6210niName :: Lens' NetworkInterface (Maybe Text)
6219niName :: Lens' NetworkInterface (Maybe Text)
6211niName = lens _niName (\ s a -> s{_niName = a})
6220niName = lens _niName (\ s a -> s{_niName = a})
6213−-- | [Output Only] An optional IPV4 internal network address assigned to the
6222+-- | An IPV4 internal network address to assign to the instance for this
6214−-- instance for this network interface.
6223+-- network interface. If not specified by user an unused internal IP is
6224+-- assigned by system.
6215niNetworkIP :: Lens' NetworkInterface (Maybe Text)
6225niNetworkIP :: Lens' NetworkInterface (Maybe Text)
6216niNetworkIP
6226niNetworkIP
6217 = lens _niNetworkIP (\ s a -> s{_niNetworkIP = a})
6227 = lens _niNetworkIP (\ s a -> s{_niNetworkIP = a})
@@ -6222,8 +6232,8 @@ niNetworkIP
6222-- network is in custom subnet mode, then this field should be specified.
6232-- network is in custom subnet mode, then this field should be specified.
6223-- If you specify this property, you can specify the subnetwork as a full
6233-- If you specify this property, you can specify the subnetwork as a full
6224-- or partial URL. For example, the following are all valid URLs: -
6234-- or partial URL. For example, the following are all valid URLs: -
6225−-- https:\/\/www.googleapis.com\/compute\/v1\/projects\/project\/zones\/zone\/subnetworks\/subnetwork
6235+-- https:\/\/www.googleapis.com\/compute\/v1\/projects\/project\/regions\/region\/subnetworks\/subnetwork
6226−-- - zones\/zone\/subnetworks\/subnetwork
6236+-- - regions\/region\/subnetworks\/subnetwork
6227niSubnetwork :: Lens' NetworkInterface (Maybe Text)
6237niSubnetwork :: Lens' NetworkInterface (Maybe Text)
6228niSubnetwork
6238niSubnetwork
6229 = lens _niSubnetwork (\ s a -> s{_niSubnetwork = a})
6239 = lens _niSubnetwork (\ s a -> s{_niSubnetwork = a})
@@ -7218,16 +7228,15 @@ instance ToJSON Address where
7219-- /See:/ 'zone' smart constructor.
7229-- /See:/ 'zone' smart constructor.
7220data Zone = Zone'
7230data Zone = Zone'
7221− { _zStatus :: !(Maybe ZoneStatus)
7231+ { _zStatus :: !(Maybe ZoneStatus)
7222− , _zMaintenanceWindows :: !(Maybe [ZoneMaintenanceWindowsItem])
7223− , _zKind :: !Text
7232+ , _zKind :: !Text
7224− , _zSelfLink :: !(Maybe Text)
7233+ , _zSelfLink :: !(Maybe Text)
7225− , _zName :: !(Maybe Text)
7234+ , _zName :: !(Maybe Text)
7226− , _zCreationTimestamp :: !(Maybe Text)
7235+ , _zCreationTimestamp :: !(Maybe Text)
7227− , _zId :: !(Maybe (Textual Word64))
7236+ , _zId :: !(Maybe (Textual Word64))
7228− , _zRegion :: !(Maybe Text)
7237+ , _zRegion :: !(Maybe Text)
7229− , _zDescription :: !(Maybe Text)
7238+ , _zDescription :: !(Maybe Text)
7230− , _zDeprecated :: !(Maybe DeprecationStatus)
7239+ , _zDeprecated :: !(Maybe DeprecationStatus)
7231 } deriving (Eq,Show,Data,Typeable,Generic)
7240 } deriving (Eq,Show,Data,Typeable,Generic)
7233-- | Creates a value of 'Zone' with the minimum fields required to make a request.
7242-- | Creates a value of 'Zone' with the minimum fields required to make a request.
@@ -7236,8 +7245,6 @@ data Zone = Zone'
7237-- * 'zStatus'
7246-- * 'zStatus'
7239−-- * 'zMaintenanceWindows'
7241-- * 'zKind'
7248-- * 'zKind'
7243-- * 'zSelfLink'
7250-- * 'zSelfLink'
@@ -7258,7 +7265,6 @@ zone
7260 { _zStatus = Nothing
7267 { _zStatus = Nothing
7261− , _zMaintenanceWindows = Nothing
7262 , _zKind = "compute#zone"
7268 , _zKind = "compute#zone"
7263 , _zSelfLink = Nothing
7269 , _zSelfLink = Nothing
7264 , _zName = Nothing
7270 , _zName = Nothing
@@ -7273,16 +7279,6 @@ zone =
7273zStatus :: Lens' Zone (Maybe ZoneStatus)
7279zStatus :: Lens' Zone (Maybe ZoneStatus)
7274zStatus = lens _zStatus (\ s a -> s{_zStatus = a})
7280zStatus = lens _zStatus (\ s a -> s{_zStatus = a})
7276−-- | [Output Only] Any scheduled maintenance windows for this zone. When the
7277−-- zone is in a maintenance window, all resources which reside in the zone
7278−-- will be unavailable. For more information, see Maintenance Windows
7279−zMaintenanceWindows :: Lens' Zone [ZoneMaintenanceWindowsItem]
7281− = lens _zMaintenanceWindows
7282− (\ s a -> s{_zMaintenanceWindows = a})
7286-- | [Output Only] Type of the resource. Always compute#zone for zones.
7282-- | [Output Only] Type of the resource. Always compute#zone for zones.
7287zKind :: Lens' Zone Text
7283zKind :: Lens' Zone Text
7288zKind = lens _zKind (\ s a -> s{_zKind = a})
7284zKind = lens _zKind (\ s a -> s{_zKind = a})
@@ -7328,8 +7324,7 @@ instance FromJSON Zone where
7329 Zone' <$>
7325 Zone' <$>
7330 (o .:? "status") <*>
7326 (o .:? "status") <*>
7331− (o .:? "maintenanceWindows" .!= mempty)
7332− <*> (o .:? "kind" .!= "compute#zone")
7327+ (o .:? "kind" .!= "compute#zone")
7333 <*> (o .:? "selfLink")
7328 <*> (o .:? "selfLink")
7334 <*> (o .:? "name")
7329 <*> (o .:? "name")
7335 <*> (o .:? "creationTimestamp")
7330 <*> (o .:? "creationTimestamp")
@@ -7342,9 +7337,7 @@ instance ToJSON Zone where
7342 toJSON Zone'{..}
7337 toJSON Zone'{..}
7343 = object
7338 = object
7344 (catMaybes
7339 (catMaybes
7345− [("status" .=) <$> _zStatus,
7340+ [("status" .=) <$> _zStatus, Just ("kind" .= _zKind),
7346− ("maintenanceWindows" .=) <$> _zMaintenanceWindows,
7347− Just ("kind" .= _zKind),
7348 ("selfLink" .=) <$> _zSelfLink,
7341 ("selfLink" .=) <$> _zSelfLink,
7349 ("name" .=) <$> _zName,
7342 ("name" .=) <$> _zName,
7350 ("creationTimestamp" .=) <$> _zCreationTimestamp,
7343 ("creationTimestamp" .=) <$> _zCreationTimestamp,
@@ -8066,76 +8059,6 @@ instance ToJSON InstanceTemplate where
8066 ("description" .=) <$> _itDescription,
8059 ("description" .=) <$> _itDescription,
8067 ("properties" .=) <$> _itProperties])
8060 ("properties" .=) <$> _itProperties])
8070−-- /See:/ 'zoneMaintenanceWindowsItem' smart constructor.
8071−data ZoneMaintenanceWindowsItem = ZoneMaintenanceWindowsItem'
8072− { _zmwiBeginTime :: !(Maybe Text)
8073− , _zmwiName :: !(Maybe Text)
8074− , _zmwiEndTime :: !(Maybe Text)
8075− , _zmwiDescription :: !(Maybe Text)
8076− } deriving (Eq,Show,Data,Typeable,Generic)
8078−-- | Creates a value of 'ZoneMaintenanceWindowsItem' with the minimum fields required to make a request.
8080−-- Use one of the following lenses to modify other fields as desired:
8082−-- * 'zmwiBeginTime'
8088−-- * 'zmwiDescription'
8089−zoneMaintenanceWindowsItem
8090− :: ZoneMaintenanceWindowsItem
8091−zoneMaintenanceWindowsItem =
8092− ZoneMaintenanceWindowsItem'
8093− { _zmwiBeginTime = Nothing
8094− , _zmwiName = Nothing
8095− , _zmwiEndTime = Nothing
8096− , _zmwiDescription = Nothing
8099−-- | [Output Only] Starting time of the maintenance window, in RFC3339
8101−zmwiBeginTime :: Lens' ZoneMaintenanceWindowsItem (Maybe Text)
8103− = lens _zmwiBeginTime
8104− (\ s a -> s{_zmwiBeginTime = a})
8106−-- | [Output Only] Name of the maintenance window.
8107−zmwiName :: Lens' ZoneMaintenanceWindowsItem (Maybe Text)
8108−zmwiName = lens _zmwiName (\ s a -> s{_zmwiName = a})
8110−-- | [Output Only] Ending time of the maintenance window, in RFC3339 format.
8111−zmwiEndTime :: Lens' ZoneMaintenanceWindowsItem (Maybe Text)
8113− = lens _zmwiEndTime (\ s a -> s{_zmwiEndTime = a})
8115−-- | [Output Only] Textual description of the maintenance window.
8116−zmwiDescription :: Lens' ZoneMaintenanceWindowsItem (Maybe Text)
8118− = lens _zmwiDescription
8119− (\ s a -> s{_zmwiDescription = a})
8121−instance FromJSON ZoneMaintenanceWindowsItem where
8123− = withObject "ZoneMaintenanceWindowsItem"
8125− ZoneMaintenanceWindowsItem' <$>
8126− (o .:? "beginTime") <*> (o .:? "name") <*>
8128− <*> (o .:? "description"))
8130−instance ToJSON ZoneMaintenanceWindowsItem where
8131− toJSON ZoneMaintenanceWindowsItem'{..}
8134− [("beginTime" .=) <$> _zmwiBeginTime,
8135− ("name" .=) <$> _zmwiName,
8136− ("endTime" .=) <$> _zmwiEndTime,
8137− ("description" .=) <$> _zmwiDescription])
8139-- | Represents a Target VPN gateway resource.
8062-- | Represents a Target VPN gateway resource.
8141-- /See:/ 'targetVPNGateway' smart constructor.
8064-- /See:/ 'targetVPNGateway' smart constructor.
@@ -11362,7 +11285,7 @@ subId
11362 = lens _subId (\ s a -> s{_subId = a}) .
11285 = lens _subId (\ s a -> s{_subId = a}) .
11363 mapping _Coerce
11286 mapping _Coerce
11365−-- | [Output Only] URL of the region where the Subnetwork resides.
11288+-- | URL of the region where the Subnetwork resides.
11366subRegion :: Lens' Subnetwork (Maybe Text)
11289subRegion :: Lens' Subnetwork (Maybe Text)
11367subRegion
11290subRegion
11368 = lens _subRegion (\ s a -> s{_subRegion = a})
11291 = lens _subRegion (\ s a -> s{_subRegion = a})
@@ -12447,6 +12370,39 @@ instance ToJSON SubnetworkAggregatedList where
12447 ("selfLink" .=) <$> _salSelfLink,
12370 ("selfLink" .=) <$> _salSelfLink,
12448 ("id" .=) <$> _salId])
12371 ("id" .=) <$> _salId])
12374+-- /See:/ 'disksResizeRequest' smart constructor.
12375+newtype DisksResizeRequest = DisksResizeRequest'
12376+ { _drrSizeGb :: Maybe (Textual Int64)
12377+ } deriving (Eq,Show,Data,Typeable,Generic)
12379+-- | Creates a value of 'DisksResizeRequest' with the minimum fields required to make a request.
12381+-- Use one of the following lenses to modify other fields as desired:
12385+ :: DisksResizeRequest
12386+disksResizeRequest =
12387+ DisksResizeRequest'
12388+ { _drrSizeGb = Nothing
12391+-- | The new size of the persistent disk, which is specified in GB.
12392+drrSizeGb :: Lens' DisksResizeRequest (Maybe Int64)
12394+ = lens _drrSizeGb (\ s a -> s{_drrSizeGb = a}) .
12397+instance FromJSON DisksResizeRequest where
12399+ = withObject "DisksResizeRequest"
12400+ (\ o -> DisksResizeRequest' <$> (o .:? "sizeGb"))
12402+instance ToJSON DisksResizeRequest where
12403+ toJSON DisksResizeRequest'{..}
12404+ = object (catMaybes [("sizeGb" .=) <$> _drrSizeGb])
12451-- /See:/ 'autoscalersScopedListWarningDataItem' smart constructor.
12407-- /See:/ 'autoscalersScopedListWarningDataItem' smart constructor.
12452data AutoscalersScopedListWarningDataItem = AutoscalersScopedListWarningDataItem'
12408data AutoscalersScopedListWarningDataItem = AutoscalersScopedListWarningDataItem'
@@ -15832,6 +15788,7 @@ data BackendService = BackendService'
15832 , _bsName :: !(Maybe Text)
15788 , _bsName :: !(Maybe Text)
15833 , _bsCreationTimestamp :: !(Maybe Text)
15789 , _bsCreationTimestamp :: !(Maybe Text)
15834 , _bsId :: !(Maybe (Textual Word64))
15790 , _bsId :: !(Maybe (Textual Word64))
15791+ , _bsRegion :: !(Maybe Text)
15835 , _bsTimeoutSec :: !(Maybe (Textual Int32))
15792 , _bsTimeoutSec :: !(Maybe (Textual Int32))
15836 , _bsDescription :: !(Maybe Text)
15793 , _bsDescription :: !(Maybe Text)
15837 , _bsPortName :: !(Maybe Text)
15794 , _bsPortName :: !(Maybe Text)
@@ -15859,6 +15816,8 @@ data BackendService = BackendService'
15860-- * 'bsId'
15817-- * 'bsId'
15862-- * 'bsTimeoutSec'
15821-- * 'bsTimeoutSec'
15864-- * 'bsDescription'
15823-- * 'bsDescription'
@@ -15880,6 +15839,7 @@ backendService =
15880 , _bsName = Nothing
15839 , _bsName = Nothing
15881 , _bsCreationTimestamp = Nothing
15840 , _bsCreationTimestamp = Nothing
15882 , _bsId = Nothing
15841 , _bsId = Nothing
15842+ , _bsRegion = Nothing
15883 , _bsTimeoutSec = Nothing
15843 , _bsTimeoutSec = Nothing
15884 , _bsDescription = Nothing
15844 , _bsDescription = Nothing
15885 , _bsPortName = Nothing
15845 , _bsPortName = Nothing
@@ -15943,6 +15903,11 @@ bsId
15943 = lens _bsId (\ s a -> s{_bsId = a}) .
15903 = lens _bsId (\ s a -> s{_bsId = a}) .
15944 mapping _Coerce
15904 mapping _Coerce
15906+-- | [Output Only] URL of the region where the regional backend service
15907+-- resides. This field is not applicable to global backend services.
15908+bsRegion :: Lens' BackendService (Maybe Text)
15909+bsRegion = lens _bsRegion (\ s a -> s{_bsRegion = a})
15946-- | How many seconds to wait for the backend before considering it a failed
15911-- | How many seconds to wait for the backend before considering it a failed
15947-- request. Default is 30 seconds.
15912-- request. Default is 30 seconds.
15948bsTimeoutSec :: Lens' BackendService (Maybe Int32)
15913bsTimeoutSec :: Lens' BackendService (Maybe Int32)
@@ -15993,6 +15958,7 @@ instance FromJSON BackendService where
15993 <*> (o .:? "name")
15958 <*> (o .:? "name")
15994 <*> (o .:? "creationTimestamp")
15959 <*> (o .:? "creationTimestamp")
15995 <*> (o .:? "id")
15960 <*> (o .:? "id")
15961+ <*> (o .:? "region")
15996 <*> (o .:? "timeoutSec")
15962 <*> (o .:? "timeoutSec")
15997 <*> (o .:? "description")
15963 <*> (o .:? "description")
15998 <*> (o .:? "portName")
15964 <*> (o .:? "portName")
@@ -16010,7 +15976,7 @@ instance ToJSON BackendService where
16010 ("selfLink" .=) <$> _bsSelfLink,
15976 ("selfLink" .=) <$> _bsSelfLink,
16011 ("name" .=) <$> _bsName,
15977 ("name" .=) <$> _bsName,
16012 ("creationTimestamp" .=) <$> _bsCreationTimestamp,
15978 ("creationTimestamp" .=) <$> _bsCreationTimestamp,
16013− ("id" .=) <$> _bsId,
15979+ ("id" .=) <$> _bsId, ("region" .=) <$> _bsRegion,
16014 ("timeoutSec" .=) <$> _bsTimeoutSec,
15980 ("timeoutSec" .=) <$> _bsTimeoutSec,
16015 ("description" .=) <$> _bsDescription,
15981 ("description" .=) <$> _bsDescription,
16016 ("portName" .=) <$> _bsPortName,
15982 ("portName" .=) <$> _bsPortName,