gogol-autoscaler 0.0.1 → 0.1.0

raw patch · 16 files changed

+180/−238 lines, 16 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +3/−3
• gen/Network/Google/Autoscaler.hs +6/−10
• gen/Network/Google/Autoscaler/Types.hs +9/−16
• gen/Network/Google/Autoscaler/Types/Product.hs +86/−157
• gen/Network/Google/Autoscaler/Types/Sum.hs +1/−1
• gen/Network/Google/Resource/Autoscaler/Autoscalers/Delete.hs +6/−4
• gen/Network/Google/Resource/Autoscaler/Autoscalers/Get.hs +7/−4
• gen/Network/Google/Resource/Autoscaler/Autoscalers/Insert.hs +6/−4
• gen/Network/Google/Resource/Autoscaler/Autoscalers/List.hs +7/−4
• gen/Network/Google/Resource/Autoscaler/Autoscalers/Patch.hs +6/−4
• gen/Network/Google/Resource/Autoscaler/Autoscalers/Update.hs +6/−4
• gen/Network/Google/Resource/Autoscaler/ZoneOperations/Delete.hs +6/−4
• gen/Network/Google/Resource/Autoscaler/ZoneOperations/Get.hs +7/−4
• gen/Network/Google/Resource/Autoscaler/ZoneOperations/List.hs +7/−4
• gen/Network/Google/Resource/Autoscaler/Zones/List.hs +14/−12
• gogol-autoscaler.cabal +3/−3

@@ -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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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;

@@ -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 <brendan.g.hay@gmail.com> -- 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,

@@ -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 <brendan.g.hay@gmail.com> -- Stability   : auto-generated

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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)

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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)

@@ -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 <brendan.g.hay@gmail.com> -- 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)

@@ -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 <brendan.g.hay@gmail.com>-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