diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.0.1` +`0.1.0` ## Description @@ -18,9 +18,9 @@ ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues). +For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information. +> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information. ## Licence diff --git a/gen/Network/Google/Autoscaler.hs b/gen/Network/Google/Autoscaler.hs --- a/gen/Network/Google/Autoscaler.hs +++ b/gen/Network/Google/Autoscaler.hs @@ -7,7 +7,7 @@ -- | -- Module : Network.Google.Autoscaler --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -22,6 +22,10 @@ -- * Service Configuration autoscalerService + -- * OAuth Scopes + , computeScope + , computeReadOnlyScope + -- * API Declaration , AutoscalerAPI @@ -113,6 +117,7 @@ , oId , oOperationType , oRegion + , oDescription , oTargetLink , oClientOperationId @@ -125,7 +130,6 @@ , Zone , zone , zStatus - , zMaintenanceWindows , zKind , zSelfLink , zName @@ -134,14 +138,6 @@ , zRegion , zDescription , zDeprecated - - -- ** ZoneMaintenanceWindowsItem - , ZoneMaintenanceWindowsItem - , zoneMaintenanceWindowsItem - , zmwiBeginTime - , zmwiName - , zmwiEndTime - , zmwiDescription -- ** ZoneList , ZoneList diff --git a/gen/Network/Google/Autoscaler/Types.hs b/gen/Network/Google/Autoscaler/Types.hs --- a/gen/Network/Google/Autoscaler/Types.hs +++ b/gen/Network/Google/Autoscaler/Types.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.Autoscaler.Types --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,7 +21,7 @@ -- * OAuth Scopes , computeScope - , computeReadonlyScope + , computeReadOnlyScope -- * OperationWarningsItemDataItem , OperationWarningsItemDataItem @@ -76,6 +77,7 @@ , oId , oOperationType , oRegion + , oDescription , oTargetLink , oClientOperationId @@ -88,7 +90,6 @@ , Zone , zone , zStatus - , zMaintenanceWindows , zKind , zSelfLink , zName @@ -98,14 +99,6 @@ , zDescription , zDeprecated - -- * ZoneMaintenanceWindowsItem - , ZoneMaintenanceWindowsItem - , zoneMaintenanceWindowsItem - , zmwiBeginTime - , zmwiName - , zmwiEndTime - , zmwiDescription - -- * ZoneList , ZoneList , zoneList @@ -174,15 +167,15 @@ import Network.Google.Prelude -- | Default request referring to version 'v1beta2' of the Google Compute Engine Autoscaler API. This contains the host and root path used as a starting point for constructing service requests. -autoscalerService :: Service +autoscalerService :: ServiceConfig autoscalerService = defaultService (ServiceId "autoscaler:v1beta2") "www.googleapis.com" -- | View and manage your Google Compute Engine resources -computeScope :: OAuthScope -computeScope = "https://www.googleapis.com/auth/compute"; +computeScope :: Proxy '["https://www.googleapis.com/auth/compute"] +computeScope = Proxy; -- | View your Google Compute Engine resources -computeReadonlyScope :: OAuthScope -computeReadonlyScope = "https://www.googleapis.com/auth/compute.readonly"; +computeReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/compute.readonly"] +computeReadOnlyScope = Proxy; diff --git a/gen/Network/Google/Autoscaler/Types/Product.hs b/gen/Network/Google/Autoscaler/Types/Product.hs --- a/gen/Network/Google/Autoscaler/Types/Product.hs +++ b/gen/Network/Google/Autoscaler/Types/Product.hs @@ -9,7 +9,7 @@ -- | -- Module : Network.Google.Autoscaler.Types.Product --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -22,7 +22,7 @@ -- -- /See:/ 'operationWarningsItemDataItem' smart constructor. -data OperationWarningsItemDataItem = OperationWarningsItemDataItem +data OperationWarningsItemDataItem = OperationWarningsItemDataItem' { _owidiValue :: !(Maybe Text) , _owidiKey :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -37,7 +37,7 @@ operationWarningsItemDataItem :: OperationWarningsItemDataItem operationWarningsItemDataItem = - OperationWarningsItemDataItem + OperationWarningsItemDataItem' { _owidiValue = Nothing , _owidiKey = Nothing } @@ -53,11 +53,11 @@ parseJSON = withObject "OperationWarningsItemDataItem" (\ o -> - OperationWarningsItemDataItem <$> + OperationWarningsItemDataItem' <$> (o .:? "value") <*> (o .:? "key")) instance ToJSON OperationWarningsItemDataItem where - toJSON OperationWarningsItemDataItem{..} + toJSON OperationWarningsItemDataItem'{..} = object (catMaybes [("value" .=) <$> _owidiValue, @@ -65,7 +65,7 @@ -- -- /See:/ 'deprecationStatus' smart constructor. -data DeprecationStatus = DeprecationStatus +data DeprecationStatus = DeprecationStatus' { _dsState :: !(Maybe Text) , _dsDeleted :: !(Maybe Text) , _dsReplacement :: !(Maybe Text) @@ -89,7 +89,7 @@ deprecationStatus :: DeprecationStatus deprecationStatus = - DeprecationStatus + DeprecationStatus' { _dsState = Nothing , _dsDeleted = Nothing , _dsReplacement = Nothing @@ -121,14 +121,14 @@ parseJSON = withObject "DeprecationStatus" (\ o -> - DeprecationStatus <$> + DeprecationStatus' <$> (o .:? "state") <*> (o .:? "deleted") <*> (o .:? "replacement") <*> (o .:? "obsolete") <*> (o .:? "deprecated")) instance ToJSON DeprecationStatus where - toJSON DeprecationStatus{..} + toJSON DeprecationStatus'{..} = object (catMaybes [("state" .=) <$> _dsState, @@ -140,7 +140,7 @@ -- | Custom utilization metric policy. -- -- /See:/ 'autoscalingPolicyCustomMetricUtilization' smart constructor. -data AutoscalingPolicyCustomMetricUtilization = AutoscalingPolicyCustomMetricUtilization +data AutoscalingPolicyCustomMetricUtilization = AutoscalingPolicyCustomMetricUtilization' { _apcmuUtilizationTarget :: !(Maybe (Textual Double)) , _apcmuMetric :: !(Maybe Text) , _apcmuUtilizationTargetType :: !(Maybe Text) @@ -158,7 +158,7 @@ autoscalingPolicyCustomMetricUtilization :: AutoscalingPolicyCustomMetricUtilization autoscalingPolicyCustomMetricUtilization = - AutoscalingPolicyCustomMetricUtilization + AutoscalingPolicyCustomMetricUtilization' { _apcmuUtilizationTarget = Nothing , _apcmuMetric = Nothing , _apcmuUtilizationTargetType = Nothing @@ -193,13 +193,13 @@ = withObject "AutoscalingPolicyCustomMetricUtilization" (\ o -> - AutoscalingPolicyCustomMetricUtilization <$> + AutoscalingPolicyCustomMetricUtilization' <$> (o .:? "utilizationTarget") <*> (o .:? "metric") <*> (o .:? "utilizationTargetType")) instance ToJSON AutoscalingPolicyCustomMetricUtilization where - toJSON AutoscalingPolicyCustomMetricUtilization{..} + toJSON AutoscalingPolicyCustomMetricUtilization'{..} = object (catMaybes [("utilizationTarget" .=) <$> @@ -210,7 +210,7 @@ -- -- /See:/ 'operationList' smart constructor. -data OperationList = OperationList +data OperationList = OperationList' { _olNextPageToken :: !(Maybe Text) , _olKind :: !Text , _olItems :: !(Maybe [Operation]) @@ -234,7 +234,7 @@ operationList :: OperationList operationList = - OperationList + OperationList' { _olNextPageToken = Nothing , _olKind = "autoscaler#operationList" , _olItems = Nothing @@ -268,7 +268,7 @@ parseJSON = withObject "OperationList" (\ o -> - OperationList <$> + OperationList' <$> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "autoscaler#operationList") <*> (o .:? "items" .!= mempty) @@ -276,7 +276,7 @@ <*> (o .:? "id")) instance ToJSON OperationList where - toJSON OperationList{..} + toJSON OperationList'{..} = object (catMaybes [("nextPageToken" .=) <$> _olNextPageToken, @@ -286,7 +286,7 @@ -- -- /See:/ 'operation' smart constructor. -data Operation = Operation +data Operation = Operation' { _oTargetId :: !(Maybe (Textual Word64)) , _oStatus :: !(Maybe Text) , _oInsertTime :: !(Maybe Text) @@ -307,6 +307,7 @@ , _oId :: !(Maybe (Textual Word64)) , _oOperationType :: !(Maybe Text) , _oRegion :: !(Maybe Text) + , _oDescription :: !(Maybe Text) , _oTargetLink :: !(Maybe Text) , _oClientOperationId :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -355,13 +356,15 @@ -- -- * 'oRegion' -- +-- * 'oDescription' +-- -- * 'oTargetLink' -- -- * 'oClientOperationId' operation :: Operation operation = - Operation + Operation' { _oTargetId = Nothing , _oStatus = Nothing , _oInsertTime = Nothing @@ -382,6 +385,7 @@ , _oId = Nothing , _oOperationType = Nothing , _oRegion = Nothing + , _oDescription = Nothing , _oTargetLink = Nothing , _oClientOperationId = Nothing } @@ -407,7 +411,7 @@ oStartTime = lens _oStartTime (\ s a -> s{_oStartTime = a}) --- | [Output Only] Type of the resource. Always compute#Operation for +-- | [Output Only] Type of the resource. Always compute#operation for -- Operation resources. oKind :: Lens' Operation Text oKind = lens _oKind (\ s a -> s{_oKind = a}) @@ -470,6 +474,10 @@ oRegion :: Lens' Operation (Maybe Text) oRegion = lens _oRegion (\ s a -> s{_oRegion = a}) +oDescription :: Lens' Operation (Maybe Text) +oDescription + = lens _oDescription (\ s a -> s{_oDescription = a}) + oTargetLink :: Lens' Operation (Maybe Text) oTargetLink = lens _oTargetLink (\ s a -> s{_oTargetLink = a}) @@ -483,7 +491,7 @@ parseJSON = withObject "Operation" (\ o -> - Operation <$> + Operation' <$> (o .:? "targetId") <*> (o .:? "status") <*> (o .:? "insertTime") <*> (o .:? "progress") @@ -503,11 +511,12 @@ <*> (o .:? "id") <*> (o .:? "operationType") <*> (o .:? "region") + <*> (o .:? "description") <*> (o .:? "targetLink") <*> (o .:? "clientOperationId")) instance ToJSON Operation where - toJSON Operation{..} + toJSON Operation'{..} = object (catMaybes [("targetId" .=) <$> _oTargetId, @@ -528,13 +537,14 @@ ("endTime" .=) <$> _oEndTime, ("id" .=) <$> _oId, ("operationType" .=) <$> _oOperationType, ("region" .=) <$> _oRegion, + ("description" .=) <$> _oDescription, ("targetLink" .=) <$> _oTargetLink, ("clientOperationId" .=) <$> _oClientOperationId]) -- | Load balancing utilization policy. -- -- /See:/ 'autoscalingPolicyLoadBalancingUtilization' smart constructor. -newtype AutoscalingPolicyLoadBalancingUtilization = AutoscalingPolicyLoadBalancingUtilization +newtype AutoscalingPolicyLoadBalancingUtilization = AutoscalingPolicyLoadBalancingUtilization' { _aplbuUtilizationTarget :: Maybe (Textual Double) } deriving (Eq,Show,Data,Typeable,Generic) @@ -546,7 +556,7 @@ autoscalingPolicyLoadBalancingUtilization :: AutoscalingPolicyLoadBalancingUtilization autoscalingPolicyLoadBalancingUtilization = - AutoscalingPolicyLoadBalancingUtilization + AutoscalingPolicyLoadBalancingUtilization' { _aplbuUtilizationTarget = Nothing } @@ -568,12 +578,12 @@ = withObject "AutoscalingPolicyLoadBalancingUtilization" (\ o -> - AutoscalingPolicyLoadBalancingUtilization <$> + AutoscalingPolicyLoadBalancingUtilization' <$> (o .:? "utilizationTarget")) instance ToJSON AutoscalingPolicyLoadBalancingUtilization where - toJSON AutoscalingPolicyLoadBalancingUtilization{..} + toJSON AutoscalingPolicyLoadBalancingUtilization'{..} = object (catMaybes [("utilizationTarget" .=) <$> @@ -581,17 +591,16 @@ -- -- /See:/ 'zone' smart constructor. -data Zone = Zone - { _zStatus :: !(Maybe Text) - , _zMaintenanceWindows :: !(Maybe [ZoneMaintenanceWindowsItem]) - , _zKind :: !Text - , _zSelfLink :: !(Maybe Text) - , _zName :: !(Maybe Text) - , _zCreationTimestamp :: !(Maybe Text) - , _zId :: !(Maybe (Textual Word64)) - , _zRegion :: !(Maybe Text) - , _zDescription :: !(Maybe Text) - , _zDeprecated :: !(Maybe DeprecationStatus) +data Zone = Zone' + { _zStatus :: !(Maybe Text) + , _zKind :: !Text + , _zSelfLink :: !(Maybe Text) + , _zName :: !(Maybe Text) + , _zCreationTimestamp :: !(Maybe Text) + , _zId :: !(Maybe (Textual Word64)) + , _zRegion :: !(Maybe Text) + , _zDescription :: !(Maybe Text) + , _zDeprecated :: !(Maybe DeprecationStatus) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'Zone' with the minimum fields required to make a request. @@ -600,8 +609,6 @@ -- -- * 'zStatus' -- --- * 'zMaintenanceWindows' --- -- * 'zKind' -- -- * 'zSelfLink' @@ -620,9 +627,8 @@ zone :: Zone zone = - Zone + Zone' { _zStatus = Nothing - , _zMaintenanceWindows = Nothing , _zKind = "autoscaler#zone" , _zSelfLink = Nothing , _zName = Nothing @@ -636,18 +642,10 @@ zStatus :: Lens' Zone (Maybe Text) zStatus = lens _zStatus (\ s a -> s{_zStatus = a}) -zMaintenanceWindows :: Lens' Zone [ZoneMaintenanceWindowsItem] -zMaintenanceWindows - = lens _zMaintenanceWindows - (\ s a -> s{_zMaintenanceWindows = a}) - . _Default - . _Coerce - --- | [Output Only] Type of the resource. Always kind#zone for zones. +-- | [Output Only] Type of the resource. Always compute#zone for zones. zKind :: Lens' Zone Text zKind = lens _zKind (\ s a -> s{_zKind = a}) --- | [Output Only] Server defined URL for the resource. zSelfLink :: Lens' Zone (Maybe Text) zSelfLink = lens _zSelfLink (\ s a -> s{_zSelfLink = a}) @@ -679,10 +677,9 @@ parseJSON = withObject "Zone" (\ o -> - Zone <$> + Zone' <$> (o .:? "status") <*> - (o .:? "maintenanceWindows" .!= mempty) - <*> (o .:? "kind" .!= "autoscaler#zone") + (o .:? "kind" .!= "autoscaler#zone") <*> (o .:? "selfLink") <*> (o .:? "name") <*> (o .:? "creationTimestamp") @@ -692,12 +689,10 @@ <*> (o .:? "deprecated")) instance ToJSON Zone where - toJSON Zone{..} + toJSON Zone'{..} = object (catMaybes - [("status" .=) <$> _zStatus, - ("maintenanceWindows" .=) <$> _zMaintenanceWindows, - Just ("kind" .= _zKind), + [("status" .=) <$> _zStatus, Just ("kind" .= _zKind), ("selfLink" .=) <$> _zSelfLink, ("name" .=) <$> _zName, ("creationTimestamp" .=) <$> _zCreationTimestamp, @@ -706,73 +701,8 @@ ("deprecated" .=) <$> _zDeprecated]) -- --- /See:/ 'zoneMaintenanceWindowsItem' smart constructor. -data ZoneMaintenanceWindowsItem = ZoneMaintenanceWindowsItem - { _zmwiBeginTime :: !(Maybe Text) - , _zmwiName :: !(Maybe Text) - , _zmwiEndTime :: !(Maybe Text) - , _zmwiDescription :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'ZoneMaintenanceWindowsItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'zmwiBeginTime' --- --- * 'zmwiName' --- --- * 'zmwiEndTime' --- --- * 'zmwiDescription' -zoneMaintenanceWindowsItem - :: ZoneMaintenanceWindowsItem -zoneMaintenanceWindowsItem = - ZoneMaintenanceWindowsItem - { _zmwiBeginTime = Nothing - , _zmwiName = Nothing - , _zmwiEndTime = Nothing - , _zmwiDescription = Nothing - } - -zmwiBeginTime :: Lens' ZoneMaintenanceWindowsItem (Maybe Text) -zmwiBeginTime - = lens _zmwiBeginTime - (\ s a -> s{_zmwiBeginTime = a}) - -zmwiName :: Lens' ZoneMaintenanceWindowsItem (Maybe Text) -zmwiName = lens _zmwiName (\ s a -> s{_zmwiName = a}) - -zmwiEndTime :: Lens' ZoneMaintenanceWindowsItem (Maybe Text) -zmwiEndTime - = lens _zmwiEndTime (\ s a -> s{_zmwiEndTime = a}) - -zmwiDescription :: Lens' ZoneMaintenanceWindowsItem (Maybe Text) -zmwiDescription - = lens _zmwiDescription - (\ s a -> s{_zmwiDescription = a}) - -instance FromJSON ZoneMaintenanceWindowsItem where - parseJSON - = withObject "ZoneMaintenanceWindowsItem" - (\ o -> - ZoneMaintenanceWindowsItem <$> - (o .:? "beginTime") <*> (o .:? "name") <*> - (o .:? "endTime") - <*> (o .:? "description")) - -instance ToJSON ZoneMaintenanceWindowsItem where - toJSON ZoneMaintenanceWindowsItem{..} - = object - (catMaybes - [("beginTime" .=) <$> _zmwiBeginTime, - ("name" .=) <$> _zmwiName, - ("endTime" .=) <$> _zmwiEndTime, - ("description" .=) <$> _zmwiDescription]) - --- -- /See:/ 'zoneList' smart constructor. -data ZoneList = ZoneList +data ZoneList = ZoneList' { _zlNextPageToken :: !(Maybe Text) , _zlKind :: !Text , _zlItems :: !(Maybe [Zone]) @@ -796,7 +726,7 @@ zoneList :: ZoneList zoneList = - ZoneList + ZoneList' { _zlNextPageToken = Nothing , _zlKind = "autoscaler#zoneList" , _zlItems = Nothing @@ -818,7 +748,7 @@ = lens _zlItems (\ s a -> s{_zlItems = a}) . _Default . _Coerce --- | Server defined URL for this resource (output only). +-- | [Output Only] Server-defined URL for this resource. zlSelfLink :: Lens' ZoneList (Maybe Text) zlSelfLink = lens _zlSelfLink (\ s a -> s{_zlSelfLink = a}) @@ -830,7 +760,7 @@ parseJSON = withObject "ZoneList" (\ o -> - ZoneList <$> + ZoneList' <$> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "autoscaler#zoneList") <*> (o .:? "items" .!= mempty) @@ -838,7 +768,7 @@ <*> (o .:? "id")) instance ToJSON ZoneList where - toJSON ZoneList{..} + toJSON ZoneList'{..} = object (catMaybes [("nextPageToken" .=) <$> _zlNextPageToken, @@ -848,7 +778,7 @@ -- -- /See:/ 'autoscalerListResponse' smart constructor. -data AutoscalerListResponse = AutoscalerListResponse +data AutoscalerListResponse = AutoscalerListResponse' { _alrNextPageToken :: !(Maybe Text) , _alrKind :: !Text , _alrItems :: !(Maybe [Autoscaler]) @@ -866,7 +796,7 @@ autoscalerListResponse :: AutoscalerListResponse autoscalerListResponse = - AutoscalerListResponse + AutoscalerListResponse' { _alrNextPageToken = Nothing , _alrKind = "compute#autoscalerList" , _alrItems = Nothing @@ -893,13 +823,13 @@ parseJSON = withObject "AutoscalerListResponse" (\ o -> - AutoscalerListResponse <$> + AutoscalerListResponse' <$> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "compute#autoscalerList") <*> (o .:? "items" .!= mempty)) instance ToJSON AutoscalerListResponse where - toJSON AutoscalerListResponse{..} + toJSON AutoscalerListResponse'{..} = object (catMaybes [("nextPageToken" .=) <$> _alrNextPageToken, @@ -909,7 +839,7 @@ -- | Cloud Autoscaler policy. -- -- /See:/ 'autoscalingPolicy' smart constructor. -data AutoscalingPolicy = AutoscalingPolicy +data AutoscalingPolicy = AutoscalingPolicy' { _apCustomMetricUtilizations :: !(Maybe [AutoscalingPolicyCustomMetricUtilization]) , _apMaxNumReplicas :: !(Maybe (Textual Int32)) , _apCPUUtilization :: !(Maybe AutoscalingPolicyCPUUtilization) @@ -936,7 +866,7 @@ autoscalingPolicy :: AutoscalingPolicy autoscalingPolicy = - AutoscalingPolicy + AutoscalingPolicy' { _apCustomMetricUtilizations = Nothing , _apMaxNumReplicas = Nothing , _apCPUUtilization = Nothing @@ -960,8 +890,7 @@ (\ s a -> s{_apMaxNumReplicas = a}) . mapping _Coerce --- | Exactly one utilization policy should be provided. Configuration --- parameters of CPU based autoscaling policy. +-- | Configuration parameters of CPU based autoscaling policy. apCPUUtilization :: Lens' AutoscalingPolicy (Maybe AutoscalingPolicyCPUUtilization) apCPUUtilization = lens _apCPUUtilization @@ -995,7 +924,7 @@ parseJSON = withObject "AutoscalingPolicy" (\ o -> - AutoscalingPolicy <$> + AutoscalingPolicy' <$> (o .:? "customMetricUtilizations" .!= mempty) <*> (o .:? "maxNumReplicas") <*> (o .:? "cpuUtilization") @@ -1004,7 +933,7 @@ <*> (o .:? "coolDownPeriodSec")) instance ToJSON AutoscalingPolicy where - toJSON AutoscalingPolicy{..} + toJSON AutoscalingPolicy'{..} = object (catMaybes [("customMetricUtilizations" .=) <$> @@ -1018,7 +947,7 @@ -- -- /See:/ 'operationError' smart constructor. -newtype OperationError = OperationError +newtype OperationError = OperationError' { _oeErrors :: Maybe [OperationErrorErrorsItem] } deriving (Eq,Show,Data,Typeable,Generic) @@ -1030,7 +959,7 @@ operationError :: OperationError operationError = - OperationError + OperationError' { _oeErrors = Nothing } @@ -1044,16 +973,16 @@ parseJSON = withObject "OperationError" (\ o -> - OperationError <$> (o .:? "errors" .!= mempty)) + OperationError' <$> (o .:? "errors" .!= mempty)) instance ToJSON OperationError where - toJSON OperationError{..} + toJSON OperationError'{..} = object (catMaybes [("errors" .=) <$> _oeErrors]) -- | Cloud Autoscaler resource. -- -- /See:/ 'autoscaler' smart constructor. -data Autoscaler = Autoscaler +data Autoscaler = Autoscaler' { _aKind :: !Text , _aSelfLink :: !(Maybe Text) , _aName :: !(Maybe Text) @@ -1086,7 +1015,7 @@ autoscaler :: Autoscaler autoscaler = - Autoscaler + Autoscaler' { _aKind = "compute#autoscaler" , _aSelfLink = Nothing , _aName = Nothing @@ -1142,7 +1071,7 @@ parseJSON = withObject "Autoscaler" (\ o -> - Autoscaler <$> + Autoscaler' <$> (o .:? "kind" .!= "compute#autoscaler") <*> (o .:? "selfLink") <*> (o .:? "name") @@ -1153,7 +1082,7 @@ <*> (o .:? "target")) instance ToJSON Autoscaler where - toJSON Autoscaler{..} + toJSON Autoscaler'{..} = object (catMaybes [Just ("kind" .= _aKind), @@ -1167,7 +1096,7 @@ -- -- /See:/ 'operationErrorErrorsItem' smart constructor. -data OperationErrorErrorsItem = OperationErrorErrorsItem +data OperationErrorErrorsItem = OperationErrorErrorsItem' { _oeeiLocation :: !(Maybe Text) , _oeeiCode :: !(Maybe Text) , _oeeiMessage :: !(Maybe Text) @@ -1185,7 +1114,7 @@ operationErrorErrorsItem :: OperationErrorErrorsItem operationErrorErrorsItem = - OperationErrorErrorsItem + OperationErrorErrorsItem' { _oeeiLocation = Nothing , _oeeiCode = Nothing , _oeeiMessage = Nothing @@ -1206,12 +1135,12 @@ parseJSON = withObject "OperationErrorErrorsItem" (\ o -> - OperationErrorErrorsItem <$> + OperationErrorErrorsItem' <$> (o .:? "location") <*> (o .:? "code") <*> (o .:? "message")) instance ToJSON OperationErrorErrorsItem where - toJSON OperationErrorErrorsItem{..} + toJSON OperationErrorErrorsItem'{..} = object (catMaybes [("location" .=) <$> _oeeiLocation, @@ -1221,7 +1150,7 @@ -- | CPU utilization policy. -- -- /See:/ 'autoscalingPolicyCPUUtilization' smart constructor. -newtype AutoscalingPolicyCPUUtilization = AutoscalingPolicyCPUUtilization +newtype AutoscalingPolicyCPUUtilization = AutoscalingPolicyCPUUtilization' { _apcuUtilizationTarget :: Maybe (Textual Double) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1233,7 +1162,7 @@ autoscalingPolicyCPUUtilization :: AutoscalingPolicyCPUUtilization autoscalingPolicyCPUUtilization = - AutoscalingPolicyCPUUtilization + AutoscalingPolicyCPUUtilization' { _apcuUtilizationTarget = Nothing } @@ -1252,11 +1181,11 @@ parseJSON = withObject "AutoscalingPolicyCPUUtilization" (\ o -> - AutoscalingPolicyCPUUtilization <$> + AutoscalingPolicyCPUUtilization' <$> (o .:? "utilizationTarget")) instance ToJSON AutoscalingPolicyCPUUtilization where - toJSON AutoscalingPolicyCPUUtilization{..} + toJSON AutoscalingPolicyCPUUtilization'{..} = object (catMaybes [("utilizationTarget" .=) <$> @@ -1264,7 +1193,7 @@ -- -- /See:/ 'operationWarningsItem' smart constructor. -data OperationWarningsItem = OperationWarningsItem +data OperationWarningsItem = OperationWarningsItem' { _owiData :: !(Maybe [OperationWarningsItemDataItem]) , _owiCode :: !(Maybe Text) , _owiMessage :: !(Maybe Text) @@ -1282,7 +1211,7 @@ operationWarningsItem :: OperationWarningsItem operationWarningsItem = - OperationWarningsItem + OperationWarningsItem' { _owiData = Nothing , _owiCode = Nothing , _owiMessage = Nothing @@ -1304,12 +1233,12 @@ parseJSON = withObject "OperationWarningsItem" (\ o -> - OperationWarningsItem <$> + OperationWarningsItem' <$> (o .:? "data" .!= mempty) <*> (o .:? "code") <*> (o .:? "message")) instance ToJSON OperationWarningsItem where - toJSON OperationWarningsItem{..} + toJSON OperationWarningsItem'{..} = object (catMaybes [("data" .=) <$> _owiData, ("code" .=) <$> _owiCode, diff --git a/gen/Network/Google/Autoscaler/Types/Sum.hs b/gen/Network/Google/Autoscaler/Types/Sum.hs --- a/gen/Network/Google/Autoscaler/Types/Sum.hs +++ b/gen/Network/Google/Autoscaler/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.Autoscaler.Types.Sum --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated diff --git a/gen/Network/Google/Resource/Autoscaler/Autoscalers/Delete.hs b/gen/Network/Google/Resource/Autoscaler/Autoscalers/Delete.hs --- a/gen/Network/Google/Resource/Autoscaler/Autoscalers/Delete.hs +++ b/gen/Network/Google/Resource/Autoscaler/Autoscalers/Delete.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Autoscaler.Autoscalers.Delete --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -57,7 +57,7 @@ -- | Deletes the specified Autoscaler resource. -- -- /See:/ 'autoscalersDelete' smart constructor. -data AutoscalersDelete = AutoscalersDelete +data AutoscalersDelete = AutoscalersDelete' { _adProject :: !Text , _adZone :: !Text , _adAutoscaler :: !Text @@ -78,7 +78,7 @@ -> Text -- ^ 'adAutoscaler' -> AutoscalersDelete autoscalersDelete pAdProject_ pAdZone_ pAdAutoscaler_ = - AutoscalersDelete + AutoscalersDelete' { _adProject = pAdProject_ , _adZone = pAdZone_ , _adAutoscaler = pAdAutoscaler_ @@ -100,7 +100,9 @@ instance GoogleRequest AutoscalersDelete where type Rs AutoscalersDelete = Operation - requestClient AutoscalersDelete{..} + type Scopes AutoscalersDelete = + '["https://www.googleapis.com/auth/compute"] + requestClient AutoscalersDelete'{..} = go _adProject _adZone _adAutoscaler (Just AltJSON) autoscalerService where go diff --git a/gen/Network/Google/Resource/Autoscaler/Autoscalers/Get.hs b/gen/Network/Google/Resource/Autoscaler/Autoscalers/Get.hs --- a/gen/Network/Google/Resource/Autoscaler/Autoscalers/Get.hs +++ b/gen/Network/Google/Resource/Autoscaler/Autoscalers/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Autoscaler.Autoscalers.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -57,7 +57,7 @@ -- | Gets the specified Autoscaler resource. -- -- /See:/ 'autoscalersGet' smart constructor. -data AutoscalersGet = AutoscalersGet +data AutoscalersGet = AutoscalersGet' { _agProject :: !Text , _agZone :: !Text , _agAutoscaler :: !Text @@ -78,7 +78,7 @@ -> Text -- ^ 'agAutoscaler' -> AutoscalersGet autoscalersGet pAgProject_ pAgZone_ pAgAutoscaler_ = - AutoscalersGet + AutoscalersGet' { _agProject = pAgProject_ , _agZone = pAgZone_ , _agAutoscaler = pAgAutoscaler_ @@ -100,7 +100,10 @@ instance GoogleRequest AutoscalersGet where type Rs AutoscalersGet = Autoscaler - requestClient AutoscalersGet{..} + type Scopes AutoscalersGet = + '["https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/compute.readonly"] + requestClient AutoscalersGet'{..} = go _agProject _agZone _agAutoscaler (Just AltJSON) autoscalerService where go diff --git a/gen/Network/Google/Resource/Autoscaler/Autoscalers/Insert.hs b/gen/Network/Google/Resource/Autoscaler/Autoscalers/Insert.hs --- a/gen/Network/Google/Resource/Autoscaler/Autoscalers/Insert.hs +++ b/gen/Network/Google/Resource/Autoscaler/Autoscalers/Insert.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Autoscaler.Autoscalers.Insert --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -57,7 +57,7 @@ -- | Adds new Autoscaler resource. -- -- /See:/ 'autoscalersInsert' smart constructor. -data AutoscalersInsert = AutoscalersInsert +data AutoscalersInsert = AutoscalersInsert' { _aiProject :: !Text , _aiZone :: !Text , _aiPayload :: !Autoscaler @@ -78,7 +78,7 @@ -> Autoscaler -- ^ 'aiPayload' -> AutoscalersInsert autoscalersInsert pAiProject_ pAiZone_ pAiPayload_ = - AutoscalersInsert + AutoscalersInsert' { _aiProject = pAiProject_ , _aiZone = pAiZone_ , _aiPayload = pAiPayload_ @@ -100,7 +100,9 @@ instance GoogleRequest AutoscalersInsert where type Rs AutoscalersInsert = Operation - requestClient AutoscalersInsert{..} + type Scopes AutoscalersInsert = + '["https://www.googleapis.com/auth/compute"] + requestClient AutoscalersInsert'{..} = go _aiProject _aiZone (Just AltJSON) _aiPayload autoscalerService where go diff --git a/gen/Network/Google/Resource/Autoscaler/Autoscalers/List.hs b/gen/Network/Google/Resource/Autoscaler/Autoscalers/List.hs --- a/gen/Network/Google/Resource/Autoscaler/Autoscalers/List.hs +++ b/gen/Network/Google/Resource/Autoscaler/Autoscalers/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Autoscaler.Autoscalers.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -62,7 +62,7 @@ -- | Lists all Autoscaler resources in this zone. -- -- /See:/ 'autoscalersList' smart constructor. -data AutoscalersList = AutoscalersList +data AutoscalersList = AutoscalersList' { _alProject :: !Text , _alZone :: !Text , _alFilter :: !(Maybe Text) @@ -88,7 +88,7 @@ -> Text -- ^ 'alZone' -> AutoscalersList autoscalersList pAlProject_ pAlZone_ = - AutoscalersList + AutoscalersList' { _alProject = pAlProject_ , _alZone = pAlZone_ , _alFilter = Nothing @@ -119,7 +119,10 @@ instance GoogleRequest AutoscalersList where type Rs AutoscalersList = AutoscalerListResponse - requestClient AutoscalersList{..} + type Scopes AutoscalersList = + '["https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/compute.readonly"] + requestClient AutoscalersList'{..} = go _alProject _alZone _alFilter _alPageToken (Just _alMaxResults) (Just AltJSON) diff --git a/gen/Network/Google/Resource/Autoscaler/Autoscalers/Patch.hs b/gen/Network/Google/Resource/Autoscaler/Autoscalers/Patch.hs --- a/gen/Network/Google/Resource/Autoscaler/Autoscalers/Patch.hs +++ b/gen/Network/Google/Resource/Autoscaler/Autoscalers/Patch.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Autoscaler.Autoscalers.Patch --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -61,7 +61,7 @@ -- supports patch semantics. -- -- /See:/ 'autoscalersPatch' smart constructor. -data AutoscalersPatch = AutoscalersPatch +data AutoscalersPatch = AutoscalersPatch' { _apProject :: !Text , _apZone :: !Text , _apPayload :: !Autoscaler @@ -86,7 +86,7 @@ -> Text -- ^ 'apAutoscaler' -> AutoscalersPatch autoscalersPatch pApProject_ pApZone_ pApPayload_ pApAutoscaler_ = - AutoscalersPatch + AutoscalersPatch' { _apProject = pApProject_ , _apZone = pApZone_ , _apPayload = pApPayload_ @@ -114,7 +114,9 @@ instance GoogleRequest AutoscalersPatch where type Rs AutoscalersPatch = Operation - requestClient AutoscalersPatch{..} + type Scopes AutoscalersPatch = + '["https://www.googleapis.com/auth/compute"] + requestClient AutoscalersPatch'{..} = go _apProject _apZone _apAutoscaler (Just AltJSON) _apPayload autoscalerService diff --git a/gen/Network/Google/Resource/Autoscaler/Autoscalers/Update.hs b/gen/Network/Google/Resource/Autoscaler/Autoscalers/Update.hs --- a/gen/Network/Google/Resource/Autoscaler/Autoscalers/Update.hs +++ b/gen/Network/Google/Resource/Autoscaler/Autoscalers/Update.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Autoscaler.Autoscalers.Update --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -59,7 +59,7 @@ -- | Update the entire content of the Autoscaler resource. -- -- /See:/ 'autoscalersUpdate' smart constructor. -data AutoscalersUpdate = AutoscalersUpdate +data AutoscalersUpdate = AutoscalersUpdate' { _auProject :: !Text , _auZone :: !Text , _auPayload :: !Autoscaler @@ -84,7 +84,7 @@ -> Text -- ^ 'auAutoscaler' -> AutoscalersUpdate autoscalersUpdate pAuProject_ pAuZone_ pAuPayload_ pAuAutoscaler_ = - AutoscalersUpdate + AutoscalersUpdate' { _auProject = pAuProject_ , _auZone = pAuZone_ , _auPayload = pAuPayload_ @@ -112,7 +112,9 @@ instance GoogleRequest AutoscalersUpdate where type Rs AutoscalersUpdate = Operation - requestClient AutoscalersUpdate{..} + type Scopes AutoscalersUpdate = + '["https://www.googleapis.com/auth/compute"] + requestClient AutoscalersUpdate'{..} = go _auProject _auZone _auAutoscaler (Just AltJSON) _auPayload autoscalerService diff --git a/gen/Network/Google/Resource/Autoscaler/ZoneOperations/Delete.hs b/gen/Network/Google/Resource/Autoscaler/ZoneOperations/Delete.hs --- a/gen/Network/Google/Resource/Autoscaler/ZoneOperations/Delete.hs +++ b/gen/Network/Google/Resource/Autoscaler/ZoneOperations/Delete.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Autoscaler.ZoneOperations.Delete --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -56,7 +56,7 @@ -- | Deletes the specified zone-specific operation resource. -- -- /See:/ 'zoneOperationsDelete' smart constructor. -data ZoneOperationsDelete = ZoneOperationsDelete +data ZoneOperationsDelete = ZoneOperationsDelete' { _zodProject :: !Text , _zodOperation :: !Text , _zodZone :: !Text @@ -77,7 +77,7 @@ -> Text -- ^ 'zodZone' -> ZoneOperationsDelete zoneOperationsDelete pZodProject_ pZodOperation_ pZodZone_ = - ZoneOperationsDelete + ZoneOperationsDelete' { _zodProject = pZodProject_ , _zodOperation = pZodOperation_ , _zodZone = pZodZone_ @@ -96,7 +96,9 @@ instance GoogleRequest ZoneOperationsDelete where type Rs ZoneOperationsDelete = () - requestClient ZoneOperationsDelete{..} + type Scopes ZoneOperationsDelete = + '["https://www.googleapis.com/auth/compute"] + requestClient ZoneOperationsDelete'{..} = go _zodProject _zodZone _zodOperation (Just AltJSON) autoscalerService diff --git a/gen/Network/Google/Resource/Autoscaler/ZoneOperations/Get.hs b/gen/Network/Google/Resource/Autoscaler/ZoneOperations/Get.hs --- a/gen/Network/Google/Resource/Autoscaler/ZoneOperations/Get.hs +++ b/gen/Network/Google/Resource/Autoscaler/ZoneOperations/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Autoscaler.ZoneOperations.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -56,7 +56,7 @@ -- | Retrieves the specified zone-specific operation resource. -- -- /See:/ 'zoneOperationsGet' smart constructor. -data ZoneOperationsGet = ZoneOperationsGet +data ZoneOperationsGet = ZoneOperationsGet' { _zogProject :: !Text , _zogOperation :: !Text , _zogZone :: !Text @@ -77,7 +77,7 @@ -> Text -- ^ 'zogZone' -> ZoneOperationsGet zoneOperationsGet pZogProject_ pZogOperation_ pZogZone_ = - ZoneOperationsGet + ZoneOperationsGet' { _zogProject = pZogProject_ , _zogOperation = pZogOperation_ , _zogZone = pZogZone_ @@ -96,7 +96,10 @@ instance GoogleRequest ZoneOperationsGet where type Rs ZoneOperationsGet = Operation - requestClient ZoneOperationsGet{..} + type Scopes ZoneOperationsGet = + '["https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/compute.readonly"] + requestClient ZoneOperationsGet'{..} = go _zogProject _zogZone _zogOperation (Just AltJSON) autoscalerService diff --git a/gen/Network/Google/Resource/Autoscaler/ZoneOperations/List.hs b/gen/Network/Google/Resource/Autoscaler/ZoneOperations/List.hs --- a/gen/Network/Google/Resource/Autoscaler/ZoneOperations/List.hs +++ b/gen/Network/Google/Resource/Autoscaler/ZoneOperations/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Autoscaler.ZoneOperations.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -62,7 +62,7 @@ -- zone. -- -- /See:/ 'zoneOperationsList' smart constructor. -data ZoneOperationsList = ZoneOperationsList +data ZoneOperationsList = ZoneOperationsList' { _zolProject :: !Text , _zolZone :: !Text , _zolFilter :: !(Maybe Text) @@ -88,7 +88,7 @@ -> Text -- ^ 'zolZone' -> ZoneOperationsList zoneOperationsList pZolProject_ pZolZone_ = - ZoneOperationsList + ZoneOperationsList' { _zolProject = pZolProject_ , _zolZone = pZolZone_ , _zolFilter = Nothing @@ -119,7 +119,10 @@ instance GoogleRequest ZoneOperationsList where type Rs ZoneOperationsList = OperationList - requestClient ZoneOperationsList{..} + type Scopes ZoneOperationsList = + '["https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/compute.readonly"] + requestClient ZoneOperationsList'{..} = go _zolProject _zolZone _zolFilter _zolPageToken (Just _zolMaxResults) (Just AltJSON) diff --git a/gen/Network/Google/Resource/Autoscaler/Zones/List.hs b/gen/Network/Google/Resource/Autoscaler/Zones/List.hs --- a/gen/Network/Google/Resource/Autoscaler/Zones/List.hs +++ b/gen/Network/Google/Resource/Autoscaler/Zones/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Autoscaler.Zones.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -47,8 +47,8 @@ type ZonesListResource = "autoscaler" :> "v1beta2" :> - Capture "project" Text :> - "zones" :> + "zones" :> + QueryParam "project" Text :> QueryParam "filter" Text :> QueryParam "pageToken" Text :> QueryParam "maxResults" (Textual Word32) :> @@ -57,8 +57,8 @@ -- | -- -- /See:/ 'zonesList' smart constructor. -data ZonesList = ZonesList - { _zlProject :: !Text +data ZonesList = ZonesList' + { _zlProject :: !(Maybe Text) , _zlFilter :: !(Maybe Text) , _zlPageToken :: !(Maybe Text) , _zlMaxResults :: !(Textual Word32) @@ -76,17 +76,16 @@ -- -- * 'zlMaxResults' zonesList - :: Text -- ^ 'zlProject' - -> ZonesList -zonesList pZlProject_ = - ZonesList - { _zlProject = pZlProject_ + :: ZonesList +zonesList = + ZonesList' + { _zlProject = Nothing , _zlFilter = Nothing , _zlPageToken = Nothing , _zlMaxResults = 500 } -zlProject :: Lens' ZonesList Text +zlProject :: Lens' ZonesList (Maybe Text) zlProject = lens _zlProject (\ s a -> s{_zlProject = a}) @@ -104,7 +103,10 @@ instance GoogleRequest ZonesList where type Rs ZonesList = ZoneList - requestClient ZonesList{..} + type Scopes ZonesList = + '["https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/compute.readonly"] + requestClient ZonesList'{..} = go _zlProject _zlFilter _zlPageToken (Just _zlMaxResults) (Just AltJSON) diff --git a/gogol-autoscaler.cabal b/gogol-autoscaler.cabal --- a/gogol-autoscaler.cabal +++ b/gogol-autoscaler.cabal @@ -1,5 +1,5 @@ name: gogol-autoscaler -version: 0.0.1 +version: 0.1.0 synopsis: Google Compute Engine Autoscaler SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,7 +7,7 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay -copyright: Copyright (c) 2015 Brendan Hay +copyright: Copyright (c) 2015-2016 Brendan Hay category: Network, Google, Cloud build-type: Simple cabal-version: >= 1.10 @@ -56,5 +56,5 @@ , Network.Google.Autoscaler.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5