@@ -307,6 +307,7 @@ data Operation = Operation'
307307 , _oId :: !(Maybe (Textual Word64))
308308 , _oOperationType :: !(Maybe Text)
309309 , _oRegion :: !(Maybe Text)
310+ , _oDescription :: !(Maybe Text)
310311 , _oTargetLink :: !(Maybe Text)
311312 , _oClientOperationId :: !(Maybe Text)
312313 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -355,6 +356,8 @@ data Operation = Operation'
355356--
356357-- * 'oRegion'
357358--
359+-- * 'oDescription'
360+--
358361-- * 'oTargetLink'
359362--
360363-- * 'oClientOperationId'
@@ -382,6 +385,7 @@ operation =
382385 , _oId = Nothing
383386 , _oOperationType = Nothing
384387 , _oRegion = Nothing
388+ , _oDescription = Nothing
385389 , _oTargetLink = Nothing
386390 , _oClientOperationId = Nothing
387391 }
@@ -407,7 +411,7 @@ oStartTime :: Lens' Operation (Maybe Text)
407411oStartTime
408412 = lens _oStartTime (\ s a -> s{_oStartTime = a})
409413
410−-- | [Output Only] Type of the resource. Always compute#Operation for
414+-- | [Output Only] Type of the resource. Always compute#operation for
411415-- Operation resources.
412416oKind :: Lens' Operation Text
413417oKind = lens _oKind (\ s a -> s{_oKind = a})
@@ -470,6 +474,10 @@ oOperationType
470474oRegion :: Lens' Operation (Maybe Text)
471475oRegion = lens _oRegion (\ s a -> s{_oRegion = a})
472476
477+oDescription :: Lens' Operation (Maybe Text)
478+oDescription
479+ = lens _oDescription (\ s a -> s{_oDescription = a})
480+
473481oTargetLink :: Lens' Operation (Maybe Text)
474482oTargetLink
475483 = lens _oTargetLink (\ s a -> s{_oTargetLink = a})
@@ -503,6 +511,7 @@ instance FromJSON Operation where
503511 <*> (o .:? "id")
504512 <*> (o .:? "operationType")
505513 <*> (o .:? "region")
514+ <*> (o .:? "description")
506515 <*> (o .:? "targetLink")
507516 <*> (o .:? "clientOperationId"))
508517
@@ -528,6 +537,7 @@ instance ToJSON Operation where
528537 ("endTime" .=) <$> _oEndTime, ("id" .=) <$> _oId,
529538 ("operationType" .=) <$> _oOperationType,
530539 ("region" .=) <$> _oRegion,
540+ ("description" .=) <$> _oDescription,
531541 ("targetLink" .=) <$> _oTargetLink,
532542 ("clientOperationId" .=) <$> _oClientOperationId])
533543
@@ -582,16 +592,15 @@ instance ToJSON
582592--
583593-- /See:/ 'zone' smart constructor.
584594data Zone = Zone'
585− { _zStatus :: !(Maybe Text)
586− , _zMaintenanceWindows :: !(Maybe [ZoneMaintenanceWindowsItem])
587− , _zKind :: !Text
588− , _zSelfLink :: !(Maybe Text)
589− , _zName :: !(Maybe Text)
590− , _zCreationTimestamp :: !(Maybe Text)
591− , _zId :: !(Maybe (Textual Word64))
592− , _zRegion :: !(Maybe Text)
593− , _zDescription :: !(Maybe Text)
594− , _zDeprecated :: !(Maybe DeprecationStatus)
595+ { _zStatus :: !(Maybe Text)
596+ , _zKind :: !Text
597+ , _zSelfLink :: !(Maybe Text)
598+ , _zName :: !(Maybe Text)
599+ , _zCreationTimestamp :: !(Maybe Text)
600+ , _zId :: !(Maybe (Textual Word64))
601+ , _zRegion :: !(Maybe Text)
602+ , _zDescription :: !(Maybe Text)
603+ , _zDeprecated :: !(Maybe DeprecationStatus)
595604 } deriving (Eq,Show,Data,Typeable,Generic)
596605
597606-- | Creates a value of 'Zone' with the minimum fields required to make a request.
@@ -600,8 +609,6 @@ data Zone = Zone'
600609--
601610-- * 'zStatus'
602611--
603−-- * 'zMaintenanceWindows'
604−--
605612-- * 'zKind'
606613--
607614-- * 'zSelfLink'
@@ -622,7 +629,6 @@ zone
622629zone =
623630 Zone'
624631 { _zStatus = Nothing
625− , _zMaintenanceWindows = Nothing
626632 , _zKind = "autoscaler#zone"
627633 , _zSelfLink = Nothing
628634 , _zName = Nothing
@@ -636,18 +642,10 @@ zone =
636642zStatus :: Lens' Zone (Maybe Text)
637643zStatus = lens _zStatus (\ s a -> s{_zStatus = a})
638644
639−zMaintenanceWindows :: Lens' Zone [ZoneMaintenanceWindowsItem]
640−zMaintenanceWindows
641− = lens _zMaintenanceWindows
642− (\ s a -> s{_zMaintenanceWindows = a})
643− . _Default
644− . _Coerce
645−
646−-- | [Output Only] Type of the resource. Always kind#zone for zones.
645+-- | [Output Only] Type of the resource. Always compute#zone for zones.
647646zKind :: Lens' Zone Text
648647zKind = lens _zKind (\ s a -> s{_zKind = a})
649648
650−-- | [Output Only] Server defined URL for the resource.
651649zSelfLink :: Lens' Zone (Maybe Text)
652650zSelfLink
653651 = lens _zSelfLink (\ s a -> s{_zSelfLink = a})
@@ -681,8 +679,7 @@ instance FromJSON Zone where
681679 (\ o ->
682680 Zone' <$>
683681 (o .:? "status") <*>
684− (o .:? "maintenanceWindows" .!= mempty)
685− <*> (o .:? "kind" .!= "autoscaler#zone")
682+ (o .:? "kind" .!= "autoscaler#zone")
686683 <*> (o .:? "selfLink")
687684 <*> (o .:? "name")
688685 <*> (o .:? "creationTimestamp")
@@ -695,9 +692,7 @@ instance ToJSON Zone where
695692 toJSON Zone'{..}
696693 = object
697694 (catMaybes
698− [("status" .=) <$> _zStatus,
699− ("maintenanceWindows" .=) <$> _zMaintenanceWindows,
700− Just ("kind" .= _zKind),
695+ [("status" .=) <$> _zStatus, Just ("kind" .= _zKind),
701696 ("selfLink" .=) <$> _zSelfLink,
702697 ("name" .=) <$> _zName,
703698 ("creationTimestamp" .=) <$> _zCreationTimestamp,
@@ -705,71 +700,6 @@ instance ToJSON Zone where
705700 ("description" .=) <$> _zDescription,
706701 ("deprecated" .=) <$> _zDeprecated])
707702
708−--
709−-- /See:/ 'zoneMaintenanceWindowsItem' smart constructor.
710−data ZoneMaintenanceWindowsItem = ZoneMaintenanceWindowsItem'
711− { _zmwiBeginTime :: !(Maybe Text)
712− , _zmwiName :: !(Maybe Text)
713− , _zmwiEndTime :: !(Maybe Text)
714− , _zmwiDescription :: !(Maybe Text)
715− } deriving (Eq,Show,Data,Typeable,Generic)
716−
717−-- | Creates a value of 'ZoneMaintenanceWindowsItem' with the minimum fields required to make a request.
718−--
719−-- Use one of the following lenses to modify other fields as desired:
720−--
721−-- * 'zmwiBeginTime'
722−--
723−-- * 'zmwiName'
724−--
725−-- * 'zmwiEndTime'
726−--
727−-- * 'zmwiDescription'
728−zoneMaintenanceWindowsItem
729− :: ZoneMaintenanceWindowsItem
730−zoneMaintenanceWindowsItem =
731− ZoneMaintenanceWindowsItem'
732− { _zmwiBeginTime = Nothing
733− , _zmwiName = Nothing
734− , _zmwiEndTime = Nothing
735− , _zmwiDescription = Nothing
736− }
737−
738−zmwiBeginTime :: Lens' ZoneMaintenanceWindowsItem (Maybe Text)
739−zmwiBeginTime
740− = lens _zmwiBeginTime
741− (\ s a -> s{_zmwiBeginTime = a})
742−
743−zmwiName :: Lens' ZoneMaintenanceWindowsItem (Maybe Text)
744−zmwiName = lens _zmwiName (\ s a -> s{_zmwiName = a})
745−
746−zmwiEndTime :: Lens' ZoneMaintenanceWindowsItem (Maybe Text)
747−zmwiEndTime
748− = lens _zmwiEndTime (\ s a -> s{_zmwiEndTime = a})
749−
750−zmwiDescription :: Lens' ZoneMaintenanceWindowsItem (Maybe Text)
751−zmwiDescription
752− = lens _zmwiDescription
753− (\ s a -> s{_zmwiDescription = a})
754−
755−instance FromJSON ZoneMaintenanceWindowsItem where
756− parseJSON
757− = withObject "ZoneMaintenanceWindowsItem"
758− (\ o ->
759− ZoneMaintenanceWindowsItem' <$>
760− (o .:? "beginTime") <*> (o .:? "name") <*>
761− (o .:? "endTime")
762− <*> (o .:? "description"))
763−
764−instance ToJSON ZoneMaintenanceWindowsItem where
765− toJSON ZoneMaintenanceWindowsItem'{..}
766− = object
767− (catMaybes
768− [("beginTime" .=) <$> _zmwiBeginTime,
769− ("name" .=) <$> _zmwiName,
770− ("endTime" .=) <$> _zmwiEndTime,
771− ("description" .=) <$> _zmwiDescription])
772−
773703--
774704-- /See:/ 'zoneList' smart constructor.
775705data ZoneList = ZoneList'
@@ -818,7 +748,7 @@ zlItems
818748 = lens _zlItems (\ s a -> s{_zlItems = a}) . _Default
819749 . _Coerce
820750
821−-- | Server defined URL for this resource (output only).
751+-- | [Output Only] Server-defined URL for this resource.
822752zlSelfLink :: Lens' ZoneList (Maybe Text)
823753zlSelfLink
824754 = lens _zlSelfLink (\ s a -> s{_zlSelfLink = a})
@@ -960,8 +890,7 @@ apMaxNumReplicas
960890 (\ s a -> s{_apMaxNumReplicas = a})
961891 . mapping _Coerce
962892
963−-- | Exactly one utilization policy should be provided. Configuration
964−-- parameters of CPU based autoscaling policy.
893+-- | Configuration parameters of CPU based autoscaling policy.
965894apCPUUtilization :: Lens' AutoscalingPolicy (Maybe AutoscalingPolicyCPUUtilization)
966895apCPUUtilization
967896 = lens _apCPUUtilization