c3fe606 · gogol · git.iko.soy

git.iko.soy/gogol

on develop help sign in

Regenerating gogol-autoscaler from latest service definition

c3fe606Brendan Hay10 years ago

gogol-autoscaler/gen/Network/Google/Autoscaler.hs+1−9

compare with develop

unifiedsplit

@@ -117,6 +117,7 @@ module Network.Google.Autoscaler

117 , oId

118 , oOperationType

119 , oRegion

120+ , oDescription

120 , oTargetLink

121 , oTargetLink

121 , oClientOperationId

122 , oClientOperationId

122

123

@@ -129,7 +130,6 @@ module Network.Google.Autoscaler

129 , Zone

130 , Zone

130 , zone

131 , zone

131 , zStatus

132 , zStatus

132− , zMaintenanceWindows

133 , zKind

134 , zSelfLink

135 , zName

@@ -139,14 +139,6 @@ module Network.Google.Autoscaler

139 , zDescription

140 , zDeprecated

141

142− -- ** ZoneMaintenanceWindowsItem

143− , ZoneMaintenanceWindowsItem

144− , zoneMaintenanceWindowsItem

145− , zmwiBeginTime

146− , zmwiName

147− , zmwiEndTime

148− , zmwiDescription

149−

150 -- ** ZoneList

142 -- ** ZoneList

151 , ZoneList

143 , ZoneList

152 , zoneList

144 , zoneList

gogol-autoscaler/gen/Network/Google/Autoscaler/Types.hs+1−9

@@ -77,6 +77,7 @@ module Network.Google.Autoscaler.Types

77 , oId

78 , oOperationType

79 , oRegion

80+ , oDescription

80 , oTargetLink

81 , oTargetLink

81 , oClientOperationId

82 , oClientOperationId

@@ -89,7 +90,6 @@ module Network.Google.Autoscaler.Types

89 , Zone

90 , Zone

90 , zone

91 , zone

91 , zStatus

92 , zStatus

92− , zMaintenanceWindows

93 , zKind

94 , zSelfLink

95 , zName

@@ -99,14 +99,6 @@ module Network.Google.Autoscaler.Types

99 , zDescription

100 , zDeprecated

101

102− -- * ZoneMaintenanceWindowsItem

103− , ZoneMaintenanceWindowsItem

104− , zoneMaintenanceWindowsItem

105− , zmwiBeginTime

106− , zmwiName

107− , zmwiEndTime

108− , zmwiDescription

109−

110 -- * ZoneList

102 -- * ZoneList

111 , ZoneList

103 , ZoneList

112 , zoneList

104 , zoneList

gogol-autoscaler/gen/Network/Google/Autoscaler/Types/Product.hs+25−96

@@ -307,6 +307,7 @@ data Operation = Operation'

307 , _oId :: !(Maybe (Textual Word64))

308 , _oOperationType :: !(Maybe Text)

309 , _oRegion :: !(Maybe Text)

310+ , _oDescription :: !(Maybe Text)

310 , _oTargetLink :: !(Maybe Text)

311 , _oTargetLink :: !(Maybe Text)

311 , _oClientOperationId :: !(Maybe Text)

312 , _oClientOperationId :: !(Maybe Text)

312 } deriving (Eq,Show,Data,Typeable,Generic)

313 } deriving (Eq,Show,Data,Typeable,Generic)

@@ -355,6 +356,8 @@ data Operation = Operation'

355--

356--

356-- * 'oRegion'

357-- * 'oRegion'

357--

358--

359+-- * 'oDescription'

360+--

358-- * 'oTargetLink'

361-- * 'oTargetLink'

359--

362--

360-- * 'oClientOperationId'

363-- * 'oClientOperationId'

@@ -382,6 +385,7 @@ operation =

382 , _oId = Nothing

385 , _oId = Nothing

383 , _oOperationType = Nothing

386 , _oOperationType = Nothing

384 , _oRegion = Nothing

387 , _oRegion = Nothing

388+ , _oDescription = Nothing

385 , _oTargetLink = Nothing

389 , _oTargetLink = Nothing

386 , _oClientOperationId = Nothing

390 , _oClientOperationId = Nothing

387 }

391 }

@@ -407,7 +411,7 @@ oStartTime :: Lens' Operation (Maybe Text)

407oStartTime

411oStartTime

408 = lens _oStartTime (\ s a -> s{_oStartTime = a})

412 = lens _oStartTime (\ s a -> s{_oStartTime = a})

409

413

410−-- | [Output Only] Type of the resource. Always compute#Operation for

414+-- | [Output Only] Type of the resource. Always compute#operation for

411-- Operation resources.

415-- Operation resources.

412oKind :: Lens' Operation Text

416oKind :: Lens' Operation Text

413oKind = lens _oKind (\ s a -> s{_oKind = a})

417oKind = lens _oKind (\ s a -> s{_oKind = a})

@@ -470,6 +474,10 @@ oOperationType

470oRegion :: Lens' Operation (Maybe Text)

474oRegion :: Lens' Operation (Maybe Text)

471oRegion = lens _oRegion (\ s a -> s{_oRegion = a})

475oRegion = lens _oRegion (\ s a -> s{_oRegion = a})

472

476

477+oDescription :: Lens' Operation (Maybe Text)

478+oDescription

479+ = lens _oDescription (\ s a -> s{_oDescription = a})

480+

473oTargetLink :: Lens' Operation (Maybe Text)

481oTargetLink :: Lens' Operation (Maybe Text)

474oTargetLink

482oTargetLink

475 = lens _oTargetLink (\ s a -> s{_oTargetLink = a})

483 = lens _oTargetLink (\ s a -> s{_oTargetLink = a})

@@ -503,6 +511,7 @@ instance FromJSON Operation where

503 <*> (o .:? "id")

511 <*> (o .:? "id")

504 <*> (o .:? "operationType")

512 <*> (o .:? "operationType")

505 <*> (o .:? "region")

513 <*> (o .:? "region")

514+ <*> (o .:? "description")

506 <*> (o .:? "targetLink")

515 <*> (o .:? "targetLink")

507 <*> (o .:? "clientOperationId"))

516 <*> (o .:? "clientOperationId"))

508

517

@@ -528,6 +537,7 @@ instance ToJSON Operation where

528 ("endTime" .=) <$> _oEndTime, ("id" .=) <$> _oId,

537 ("endTime" .=) <$> _oEndTime, ("id" .=) <$> _oId,

529 ("operationType" .=) <$> _oOperationType,

538 ("operationType" .=) <$> _oOperationType,

530 ("region" .=) <$> _oRegion,

539 ("region" .=) <$> _oRegion,

540+ ("description" .=) <$> _oDescription,

531 ("targetLink" .=) <$> _oTargetLink,

541 ("targetLink" .=) <$> _oTargetLink,

532 ("clientOperationId" .=) <$> _oClientOperationId])

542 ("clientOperationId" .=) <$> _oClientOperationId])

533

543

@@ -582,16 +592,15 @@ instance ToJSON

582--

592--

583-- /See:/ 'zone' smart constructor.

593-- /See:/ 'zone' smart constructor.

584data Zone = Zone'

594data Zone = Zone'

585− { _zStatus :: !(Maybe Text)

595+ { _zStatus :: !(Maybe Text)

586− , _zMaintenanceWindows :: !(Maybe [ZoneMaintenanceWindowsItem])

587− , _zKind :: !Text

596+ , _zKind :: !Text

588− , _zSelfLink :: !(Maybe Text)

597+ , _zSelfLink :: !(Maybe Text)

589− , _zName :: !(Maybe Text)

598+ , _zName :: !(Maybe Text)

590− , _zCreationTimestamp :: !(Maybe Text)

599+ , _zCreationTimestamp :: !(Maybe Text)

591− , _zId :: !(Maybe (Textual Word64))

600+ , _zId :: !(Maybe (Textual Word64))

592− , _zRegion :: !(Maybe Text)

601+ , _zRegion :: !(Maybe Text)

593− , _zDescription :: !(Maybe Text)

602+ , _zDescription :: !(Maybe Text)

594− , _zDeprecated :: !(Maybe DeprecationStatus)

603+ , _zDeprecated :: !(Maybe DeprecationStatus)

595 } deriving (Eq,Show,Data,Typeable,Generic)

604 } deriving (Eq,Show,Data,Typeable,Generic)

596

605

597-- | Creates a value of 'Zone' with the minimum fields required to make a request.

606-- | Creates a value of 'Zone' with the minimum fields required to make a request.

@@ -600,8 +609,6 @@ data Zone = Zone'

600--

609--

601-- * 'zStatus'

610-- * 'zStatus'

602--

611--

603−-- * 'zMaintenanceWindows'

604−--

605-- * 'zKind'

612-- * 'zKind'

606--

613--

607-- * 'zSelfLink'

614-- * 'zSelfLink'

@@ -622,7 +629,6 @@ zone

622zone =

629zone =

623 Zone'

630 Zone'

624 { _zStatus = Nothing

631 { _zStatus = Nothing

625− , _zMaintenanceWindows = Nothing

626 , _zKind = "autoscaler#zone"

632 , _zKind = "autoscaler#zone"

627 , _zSelfLink = Nothing

633 , _zSelfLink = Nothing

628 , _zName = Nothing

634 , _zName = Nothing

@@ -636,18 +642,10 @@ zone =

636zStatus :: Lens' Zone (Maybe Text)

642zStatus :: Lens' Zone (Maybe Text)

637zStatus = lens _zStatus (\ s a -> s{_zStatus = a})

643zStatus = lens _zStatus (\ s a -> s{_zStatus = a})

638

644

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.

647zKind :: Lens' Zone Text

646zKind :: Lens' Zone Text

648zKind = lens _zKind (\ s a -> s{_zKind = a})

647zKind = lens _zKind (\ s a -> s{_zKind = a})

649

648

650−-- | [Output Only] Server defined URL for the resource.

651zSelfLink :: Lens' Zone (Maybe Text)

649zSelfLink :: Lens' Zone (Maybe Text)

652zSelfLink

650zSelfLink

653 = lens _zSelfLink (\ s a -> s{_zSelfLink = a})

651 = lens _zSelfLink (\ s a -> s{_zSelfLink = a})

@@ -681,8 +679,7 @@ instance FromJSON Zone where

681 (\ o ->

679 (\ o ->

682 Zone' <$>

680 Zone' <$>

683 (o .:? "status") <*>

681 (o .:? "status") <*>

684− (o .:? "maintenanceWindows" .!= mempty)

685− <*> (o .:? "kind" .!= "autoscaler#zone")

682+ (o .:? "kind" .!= "autoscaler#zone")

686 <*> (o .:? "selfLink")

683 <*> (o .:? "selfLink")

687 <*> (o .:? "name")

684 <*> (o .:? "name")

688 <*> (o .:? "creationTimestamp")

685 <*> (o .:? "creationTimestamp")

@@ -695,9 +692,7 @@ instance ToJSON Zone where

695 toJSON Zone'{..}

692 toJSON Zone'{..}

696 = object

693 = object

697 (catMaybes

694 (catMaybes

698− [("status" .=) <$> _zStatus,

695+ [("status" .=) <$> _zStatus, Just ("kind" .= _zKind),

699− ("maintenanceWindows" .=) <$> _zMaintenanceWindows,

700− Just ("kind" .= _zKind),

701 ("selfLink" .=) <$> _zSelfLink,

696 ("selfLink" .=) <$> _zSelfLink,

702 ("name" .=) <$> _zName,

697 ("name" .=) <$> _zName,

703 ("creationTimestamp" .=) <$> _zCreationTimestamp,

698 ("creationTimestamp" .=) <$> _zCreationTimestamp,

@@ -705,71 +700,6 @@ instance ToJSON Zone where

705 ("description" .=) <$> _zDescription,

700 ("description" .=) <$> _zDescription,

706 ("deprecated" .=) <$> _zDeprecated])

701 ("deprecated" .=) <$> _zDeprecated])

707

702

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−

773--

703--

774-- /See:/ 'zoneList' smart constructor.

704-- /See:/ 'zoneList' smart constructor.

775data ZoneList = ZoneList'

705data ZoneList = ZoneList'

@@ -818,7 +748,7 @@ zlItems

818 = lens _zlItems (\ s a -> s{_zlItems = a}) . _Default

748 = lens _zlItems (\ s a -> s{_zlItems = a}) . _Default

819 . _Coerce

749 . _Coerce

820

750

821−-- | Server defined URL for this resource (output only).

751+-- | [Output Only] Server-defined URL for this resource.

822zlSelfLink :: Lens' ZoneList (Maybe Text)

752zlSelfLink :: Lens' ZoneList (Maybe Text)

823zlSelfLink

753zlSelfLink

824 = lens _zlSelfLink (\ s a -> s{_zlSelfLink = a})

754 = lens _zlSelfLink (\ s a -> s{_zlSelfLink = a})

@@ -960,8 +890,7 @@ apMaxNumReplicas

960 (\ s a -> s{_apMaxNumReplicas = a})

890 (\ s a -> s{_apMaxNumReplicas = a})

961 . mapping _Coerce

891 . mapping _Coerce

962

892

963−-- | Exactly one utilization policy should be provided. Configuration

964−-- parameters of CPU based autoscaling policy.

893+-- | Configuration parameters of CPU based autoscaling policy.

965apCPUUtilization :: Lens' AutoscalingPolicy (Maybe AutoscalingPolicyCPUUtilization)

894apCPUUtilization :: Lens' AutoscalingPolicy (Maybe AutoscalingPolicyCPUUtilization)

966apCPUUtilization

895apCPUUtilization

967 = lens _apCPUUtilization

896 = lens _apCPUUtilization

gogol-autoscaler/gen/Network/Google/Resource/Autoscaler/Zones/List.hs+7−8

@@ -47,8 +47,8 @@ import Network.Google.Prelude

47type ZonesListResource =

48 "autoscaler" :>

49 "v1beta2" :>

50+ "zones" :>

50− Capture "project" Text :>

51+ QueryParam "project" Text :>

51− "zones" :>

52 QueryParam "filter" Text :>

53 QueryParam "pageToken" Text :>

54 QueryParam "maxResults" (Textual Word32) :>

@@ -58,7 +58,7 @@ type ZonesListResource =

58--

59-- /See:/ 'zonesList' smart constructor.

60data ZonesList = ZonesList'

61− { _zlProject :: !Text

61+ { _zlProject :: !(Maybe Text)

62 , _zlFilter :: !(Maybe Text)

63 , _zlPageToken :: !(Maybe Text)

64 , _zlMaxResults :: !(Textual Word32)

@@ -76,17 +76,16 @@ data ZonesList = ZonesList'

76--

77-- * 'zlMaxResults'

78zonesList

79− :: Text -- ^ 'zlProject'

80− -> ZonesList

79+ :: ZonesList

81−zonesList pZlProject_ =

80+zonesList =

82 ZonesList'

81 ZonesList'

83− { _zlProject = pZlProject_

82+ { _zlProject = Nothing

84 , _zlFilter = Nothing

83 , _zlFilter = Nothing

85 , _zlPageToken = Nothing

84 , _zlPageToken = Nothing

86 , _zlMaxResults = 500

85 , _zlMaxResults = 500

87 }

86 }

89−zlProject :: Lens' ZonesList Text

88+zlProject :: Lens' ZonesList (Maybe Text)

90zlProject

89zlProject

91 = lens _zlProject (\ s a -> s{_zlProject = a})

90 = lens _zlProject (\ s a -> s{_zlProject = a})