gogol-deploymentmanager 0.0.1 → 0.1.0

raw patch · 21 files changed

+678/−343 lines, 21 filesdep ~gogol-core

Dependency ranges changed: gogol-core

Files

• README.md +3/−3
• gen/Network/Google/DeploymentManager.hs +25/−3
• gen/Network/Google/DeploymentManager/Types.hs +28/−11
• gen/Network/Google/DeploymentManager/Types/Product.hs +332/−159
• gen/Network/Google/DeploymentManager/Types/Sum.hs +33/−33
• gen/Network/Google/Resource/DeploymentManager/Deployments/CancelPreview.hs +7/−4
• gen/Network/Google/Resource/DeploymentManager/Deployments/Delete.hs +7/−4
• gen/Network/Google/Resource/DeploymentManager/Deployments/Get.hs +9/−4
• gen/Network/Google/Resource/DeploymentManager/Deployments/Insert.hs +7/−4
• gen/Network/Google/Resource/DeploymentManager/Deployments/List.hs +34/−17
• gen/Network/Google/Resource/DeploymentManager/Deployments/Patch.hs +9/−6
• gen/Network/Google/Resource/DeploymentManager/Deployments/Stop.hs +7/−4
• gen/Network/Google/Resource/DeploymentManager/Deployments/Update.hs +9/−6
• gen/Network/Google/Resource/DeploymentManager/Manifests/Get.hs +9/−4
• gen/Network/Google/Resource/DeploymentManager/Manifests/List.hs +34/−17
• gen/Network/Google/Resource/DeploymentManager/Operations/Get.hs +9/−4
• gen/Network/Google/Resource/DeploymentManager/Operations/List.hs +34/−17
• gen/Network/Google/Resource/DeploymentManager/Resources/Get.hs +9/−4
• gen/Network/Google/Resource/DeploymentManager/Resources/List.hs +34/−17
• gen/Network/Google/Resource/DeploymentManager/Types/List.hs +34/−17
• gogol-deploymentmanager.cabal +5/−5

@@ -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,14 +7,14 @@  -- | -- Module      : Network.Google.DeploymentManager--- 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 -- Portability : non-portable (GHC extensions) ----- The Deployment Manager API allows users to declaratively configure,--- deploy and run complex solutions on the Google Cloud Platform.+-- Declares, configures, and deploys complex solutions on Google Cloud+-- Platform. -- -- /See:/ <https://cloud.google.com/deployment-manager/ Google Cloud Deployment Manager API Reference> module Network.Google.DeploymentManager@@ -22,6 +22,12 @@     -- * Service Configuration       deploymentManagerService +    -- * OAuth Scopes+    , cloudPlatformReadOnlyScope+    , cloudPlatformScope+    , ndevCloudmanScope+    , ndevCloudmanReadOnlyScope+     -- * API Declaration     , DeploymentManagerAPI @@ -135,6 +141,7 @@     , oId     , oOperationType     , oRegion+    , oDescription     , oTargetLink     , oClientOperationId @@ -151,6 +158,7 @@     , DeploymentUpdate     , deploymentUpdate     , duManifest+    , duLabels      -- ** ResourceUpdate     , ResourceUpdate@@ -163,6 +171,12 @@     , ruFinalProperties     , ruProperties +    -- ** DeploymentLabelEntry+    , DeploymentLabelEntry+    , deploymentLabelEntry+    , dleValue+    , dleKey+     -- ** Manifest     , Manifest     , manifest@@ -202,6 +216,12 @@     , rUpdate     , rProperties +    -- ** DeploymentUpdateLabelEntry+    , DeploymentUpdateLabelEntry+    , deploymentUpdateLabelEntry+    , duleValue+    , duleKey+     -- ** ResourceUpdateErrorErrorsItem     , ResourceUpdateErrorErrorsItem     , resourceUpdateErrorErrorsItem@@ -289,9 +309,11 @@     , dInsertTime     , dOperation     , dFingerprint+    , dSelfLink     , dName     , dManifest     , dId+    , dLabels     , dDescription     , dUpdate     , dTarget

@@ -1,3 +1,4 @@+{-# LANGUAGE DataKinds          #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE NoImplicitPrelude  #-}@@ -7,7 +8,7 @@  -- | -- Module      : Network.Google.DeploymentManager.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@@ -22,7 +23,7 @@     , cloudPlatformReadOnlyScope     , cloudPlatformScope     , ndevCloudmanScope-    , ndevCloudmanReadonlyScope+    , ndevCloudmanReadOnlyScope      -- * OperationWarningsItemDataItem     , OperationWarningsItemDataItem@@ -85,6 +86,7 @@     , oId     , oOperationType     , oRegion+    , oDescription     , oTargetLink     , oClientOperationId @@ -101,6 +103,7 @@     , DeploymentUpdate     , deploymentUpdate     , duManifest+    , duLabels      -- * ResourceUpdate     , ResourceUpdate@@ -113,6 +116,12 @@     , ruFinalProperties     , ruProperties +    -- * DeploymentLabelEntry+    , DeploymentLabelEntry+    , deploymentLabelEntry+    , dleValue+    , dleKey+     -- * Manifest     , Manifest     , manifest@@ -152,6 +161,12 @@     , rUpdate     , rProperties +    -- * DeploymentUpdateLabelEntry+    , DeploymentUpdateLabelEntry+    , deploymentUpdateLabelEntry+    , duleValue+    , duleKey+     -- * ResourceUpdateErrorErrorsItem     , ResourceUpdateErrorErrorsItem     , resourceUpdateErrorErrorsItem@@ -239,9 +254,11 @@     , dInsertTime     , dOperation     , dFingerprint+    , dSelfLink     , dName     , dManifest     , dId+    , dLabels     , dDescription     , dUpdate     , dTarget@@ -252,25 +269,25 @@ import           Network.Google.Prelude  -- | Default request referring to version 'v2' of the Google Cloud Deployment Manager API. This contains the host and root path used as a starting point for constructing service requests.-deploymentManagerService :: Service+deploymentManagerService :: ServiceConfig deploymentManagerService   = defaultService (ServiceId "deploymentmanager:v2")       "www.googleapis.com"  -- | View your data across Google Cloud Platform services-cloudPlatformReadOnlyScope :: OAuthScope-cloudPlatformReadOnlyScope = "https://www.googleapis.com/auth/cloud-platform.read-only";+cloudPlatformReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform.read-only"]+cloudPlatformReadOnlyScope = Proxy;  -- | View and manage your data across Google Cloud Platform services-cloudPlatformScope :: OAuthScope-cloudPlatformScope = "https://www.googleapis.com/auth/cloud-platform";+cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]+cloudPlatformScope = Proxy;  -- | View and manage your Google Cloud Platform management resources and -- deployment status information-ndevCloudmanScope :: OAuthScope-ndevCloudmanScope = "https://www.googleapis.com/auth/ndev.cloudman";+ndevCloudmanScope :: Proxy '["https://www.googleapis.com/auth/ndev.cloudman"]+ndevCloudmanScope = Proxy;  -- | View your Google Cloud Platform management resources and deployment -- status information-ndevCloudmanReadonlyScope :: OAuthScope-ndevCloudmanReadonlyScope = "https://www.googleapis.com/auth/ndev.cloudman.readonly";+ndevCloudmanReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/ndev.cloudman.readonly"]+ndevCloudmanReadOnlyScope = Proxy;

@@ -9,7 +9,7 @@  -- | -- Module      : Network.Google.DeploymentManager.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     }@@ -47,7 +47,13 @@ owidiValue   = lens _owidiValue (\ s a -> s{_owidiValue = a}) --- | [Output Only] A key for the warning data.+-- | [Output Only] A key that provides more detail on the warning being+-- returned. For example, for warnings where there are no results in a list+-- request for a particular zone, this key might be scope and the key value+-- might be the zone name. Other examples might be a key indicating a+-- deprecated resource and a suggested replacement, or a warning about+-- invalid network settings (for example, if an instance attempts to+-- perform IP forwarding but is not enabled for IP forwarding). owidiKey :: Lens' OperationWarningsItemDataItem (Maybe Text) owidiKey = lens _owidiKey (\ s a -> s{_owidiKey = a}) @@ -55,11 +61,11 @@         parseJSON           = withObject "OperationWarningsItemDataItem"               (\ o ->-                 OperationWarningsItemDataItem <$>+                 OperationWarningsItemDataItem' <$>                    (o .:? "value") <*> (o .:? "key"))  instance ToJSON OperationWarningsItemDataItem where-        toJSON OperationWarningsItemDataItem{..}+        toJSON OperationWarningsItemDataItem'{..}           = object               (catMaybes                  [("value" .=) <$> _owidiValue,@@ -68,7 +74,7 @@ -- | -- -- /See:/ 'configFile' smart constructor.-newtype ConfigFile = ConfigFile+newtype ConfigFile = ConfigFile'     { _cfContent :: Maybe Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -80,7 +86,7 @@ configFile     :: ConfigFile configFile =-    ConfigFile+    ConfigFile'     { _cfContent = Nothing     } @@ -92,17 +98,17 @@ instance FromJSON ConfigFile where         parseJSON           = withObject "ConfigFile"-              (\ o -> ConfigFile <$> (o .:? "content"))+              (\ o -> ConfigFile' <$> (o .:? "content"))  instance ToJSON ConfigFile where-        toJSON ConfigFile{..}+        toJSON ConfigFile'{..}           = object (catMaybes [("content" .=) <$> _cfContent])  -- | A response containing a partial list of operations and a page token used -- to build the next request if the request has been truncated. -- -- /See:/ 'operationsListResponse' smart constructor.-data OperationsListResponse = OperationsListResponse+data OperationsListResponse = OperationsListResponse'     { _olrNextPageToken :: !(Maybe Text)     , _olrOperations    :: !(Maybe [Operation])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -117,7 +123,7 @@ operationsListResponse     :: OperationsListResponse operationsListResponse =-    OperationsListResponse+    OperationsListResponse'     { _olrNextPageToken = Nothing     , _olrOperations = Nothing     }@@ -140,12 +146,12 @@         parseJSON           = withObject "OperationsListResponse"               (\ o ->-                 OperationsListResponse <$>+                 OperationsListResponse' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "operations" .!= mempty))  instance ToJSON OperationsListResponse where-        toJSON OperationsListResponse{..}+        toJSON OperationsListResponse'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _olrNextPageToken,@@ -153,7 +159,7 @@  -- -- /See:/ 'resourceUpdateWarningsItemDataItem' smart constructor.-data ResourceUpdateWarningsItemDataItem = ResourceUpdateWarningsItemDataItem+data ResourceUpdateWarningsItemDataItem = ResourceUpdateWarningsItemDataItem'     { _ruwidiValue :: !(Maybe Text)     , _ruwidiKey   :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -168,7 +174,7 @@ resourceUpdateWarningsItemDataItem     :: ResourceUpdateWarningsItemDataItem resourceUpdateWarningsItemDataItem =-    ResourceUpdateWarningsItemDataItem+    ResourceUpdateWarningsItemDataItem'     { _ruwidiValue = Nothing     , _ruwidiKey = Nothing     }@@ -178,7 +184,13 @@ ruwidiValue   = lens _ruwidiValue (\ s a -> s{_ruwidiValue = a}) --- | [Output Only] A key for the warning data.+-- | [Output Only] A key that provides more detail on the warning being+-- returned. For example, for warnings where there are no results in a list+-- request for a particular zone, this key might be scope and the key value+-- might be the zone name. Other examples might be a key indicating a+-- deprecated resource and a suggested replacement, or a warning about+-- invalid network settings (for example, if an instance attempts to+-- perform IP forwarding but is not enabled for IP forwarding). ruwidiKey :: Lens' ResourceUpdateWarningsItemDataItem (Maybe Text) ruwidiKey   = lens _ruwidiKey (\ s a -> s{_ruwidiKey = a})@@ -188,12 +200,12 @@         parseJSON           = withObject "ResourceUpdateWarningsItemDataItem"               (\ o ->-                 ResourceUpdateWarningsItemDataItem <$>+                 ResourceUpdateWarningsItemDataItem' <$>                    (o .:? "value") <*> (o .:? "key"))  instance ToJSON ResourceUpdateWarningsItemDataItem          where-        toJSON ResourceUpdateWarningsItemDataItem{..}+        toJSON ResourceUpdateWarningsItemDataItem'{..}           = object               (catMaybes                  [("value" .=) <$> _ruwidiValue,@@ -202,7 +214,7 @@ -- | A response that returns all Types supported by Deployment Manager -- -- /See:/ 'typesListResponse' smart constructor.-data TypesListResponse = TypesListResponse+data TypesListResponse = TypesListResponse'     { _tlrNextPageToken :: !(Maybe Text)     , _tlrTypes         :: !(Maybe [Type])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -217,7 +229,7 @@ typesListResponse     :: TypesListResponse typesListResponse =-    TypesListResponse+    TypesListResponse'     { _tlrNextPageToken = Nothing     , _tlrTypes = Nothing     }@@ -239,12 +251,12 @@         parseJSON           = withObject "TypesListResponse"               (\ o ->-                 TypesListResponse <$>+                 TypesListResponse' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "types" .!= mempty))  instance ToJSON TypesListResponse where-        toJSON TypesListResponse{..}+        toJSON TypesListResponse'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _tlrNextPageToken,@@ -253,7 +265,7 @@ -- | An Operation resource, used to manage asynchronous API requests. -- -- /See:/ 'operation' smart constructor.-data Operation = Operation+data Operation = Operation'     { _oTargetId            :: !(Maybe (Textual Word64))     , _oStatus              :: !(Maybe Text)     , _oInsertTime          :: !(Maybe Text)@@ -274,6 +286,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)@@ -322,13 +335,15 @@ -- -- * 'oRegion' --+-- * 'oDescription'+-- -- * 'oTargetLink' -- -- * 'oClientOperationId' operation     :: Operation operation =-    Operation+    Operation'     { _oTargetId = Nothing     , _oStatus = Nothing     , _oInsertTime = Nothing@@ -349,45 +364,46 @@     , _oId = Nothing     , _oOperationType = Nothing     , _oRegion = Nothing+    , _oDescription = Nothing     , _oTargetLink = Nothing     , _oClientOperationId = Nothing     } --- | [Output Only] Unique target ID which identifies a particular incarnation--- of the target.+-- | [Output Only] The unique target ID, which identifies a specific+-- incarnation of the target resource. oTargetId :: Lens' Operation (Maybe Word64) oTargetId   = lens _oTargetId (\ s a -> s{_oTargetId = a}) .       mapping _Coerce --- | [Output Only] Status of the operation. Can be one of the following:--- PENDING, RUNNING, or DONE.+-- | [Output Only] The status of the operation, which can be one of the+-- following: PENDING, RUNNING, or DONE. oStatus :: Lens' Operation (Maybe Text) oStatus = lens _oStatus (\ s a -> s{_oStatus = a}) --- | [Output Only] The time that this operation was requested. This is in--- RFC3339 text format.+-- | [Output Only] The time that this operation was requested. This value is+-- in RFC3339 text format. oInsertTime :: Lens' Operation (Maybe Text) oInsertTime   = lens _oInsertTime (\ s a -> s{_oInsertTime = a})  -- | [Output Only] An optional progress indicator that ranges from 0 to 100. -- There is no requirement that this be linear or support any granularity--- of operations. This should not be used to guess at when the operation--- will be complete. This number should monotonically increase as the--- operation progresses.+-- of operations. This should not be used to guess when the operation will+-- be complete. This number should monotonically increase as the operation+-- progresses. oProgress :: Lens' Operation (Maybe Int32) oProgress   = lens _oProgress (\ s a -> s{_oProgress = a}) .       mapping _Coerce  -- | [Output Only] The time that this operation was started by the server.--- This is in RFC3339 text format.+-- This value is in RFC3339 text format. oStartTime :: Lens' Operation (Maybe Text) 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})@@ -404,7 +420,8 @@   = lens _oHTTPErrorMessage       (\ s a -> s{_oHTTPErrorMessage = a}) --- | [Output Only] URL of the zone where the operation resides.+-- | [Output Only] The URL of the zone where the operation resides. Only+-- available when performing per-zone operations. oZone :: Lens' Operation (Maybe Text) oZone = lens _oZone (\ s a -> s{_oZone = a}) @@ -417,7 +434,8 @@       . _Coerce  -- | [Output Only] If the operation fails, this field contains the HTTP error--- message that was returned, such as 404.+-- status code that was returned. For example, a 404 means the resource was+-- not found. oHTTPErrorStatusCode :: Lens' Operation (Maybe Int32) oHTTPErrorStatusCode   = lens _oHTTPErrorStatusCode@@ -451,35 +469,41 @@   = lens _oCreationTimestamp       (\ s a -> s{_oCreationTimestamp = a}) --- | [Output Only] The time that this operation was completed. This is in--- RFC3339 text format.+-- | [Output Only] The time that this operation was completed. This value is+-- in RFC3339 text format. oEndTime :: Lens' Operation (Maybe Text) oEndTime = lens _oEndTime (\ s a -> s{_oEndTime = a}) --- | [Output Only] Unique identifier for the resource; defined by the server.+-- | [Output Only] The unique identifier for the resource. This identifier is+-- defined by the server. oId :: Lens' Operation (Maybe Word64) oId   = lens _oId (\ s a -> s{_oId = a}) . mapping _Coerce --- | [Output Only] Type of the operation, such as insert, update, and delete.+-- | [Output Only] The type of operation, such as insert, update, or delete,+-- and so on. oOperationType :: Lens' Operation (Maybe Text) oOperationType   = lens _oOperationType       (\ s a -> s{_oOperationType = a}) --- | [Output Only] URL of the region where the operation resides. Only--- applicable for regional resources.+-- | [Output Only] The URL of the region where the operation resides. Only+-- available when performing regional operations. oRegion :: Lens' Operation (Maybe Text) oRegion = lens _oRegion (\ s a -> s{_oRegion = a}) --- | [Output Only] URL of the resource the operation is mutating.+-- | [Output Only] A textual description of the operation, which is set when+-- the operation is created.+oDescription :: Lens' Operation (Maybe Text)+oDescription+  = lens _oDescription (\ s a -> s{_oDescription = a})++-- | [Output Only] The URL of the resource that the operation modifies. oTargetLink :: Lens' Operation (Maybe Text) oTargetLink   = lens _oTargetLink (\ s a -> s{_oTargetLink = a}) --- | [Output Only] An optional identifier specified by the client when the--- mutation was initiated. Must be unique for all Operation resources in--- the project.+-- | [Output Only] Reserved for future use. oClientOperationId :: Lens' Operation (Maybe Text) oClientOperationId   = lens _oClientOperationId@@ -489,7 +513,7 @@         parseJSON           = withObject "Operation"               (\ o ->-                 Operation <$>+                 Operation' <$>                    (o .:? "targetId") <*> (o .:? "status") <*>                      (o .:? "insertTime")                      <*> (o .:? "progress")@@ -509,11 +533,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,@@ -534,6 +559,7 @@                   ("endTime" .=) <$> _oEndTime, ("id" .=) <$> _oId,                   ("operationType" .=) <$> _oOperationType,                   ("region" .=) <$> _oRegion,+                  ("description" .=) <$> _oDescription,                   ("targetLink" .=) <$> _oTargetLink,                   ("clientOperationId" .=) <$> _oClientOperationId]) @@ -541,7 +567,7 @@ -- to build the next request if the request has been truncated. -- -- /See:/ 'resourcesListResponse' smart constructor.-data ResourcesListResponse = ResourcesListResponse+data ResourcesListResponse = ResourcesListResponse'     { _rlrNextPageToken :: !(Maybe Text)     , _rlrResources     :: !(Maybe [Resource])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -556,7 +582,7 @@ resourcesListResponse     :: ResourcesListResponse resourcesListResponse =-    ResourcesListResponse+    ResourcesListResponse'     { _rlrNextPageToken = Nothing     , _rlrResources = Nothing     }@@ -578,12 +604,12 @@         parseJSON           = withObject "ResourcesListResponse"               (\ o ->-                 ResourcesListResponse <$>+                 ResourcesListResponse' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "resources" .!= mempty))  instance ToJSON ResourcesListResponse where-        toJSON ResourcesListResponse{..}+        toJSON ResourcesListResponse'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _rlrNextPageToken,@@ -592,8 +618,9 @@ -- | -- -- /See:/ 'deploymentUpdate' smart constructor.-newtype DeploymentUpdate = DeploymentUpdate-    { _duManifest :: Maybe Text+data DeploymentUpdate = DeploymentUpdate'+    { _duManifest :: !(Maybe Text)+    , _duLabels   :: !(Maybe [DeploymentUpdateLabelEntry])     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeploymentUpdate' with the minimum fields required to make a request.@@ -601,11 +628,14 @@ -- Use one of the following lenses to modify other fields as desired: -- -- * 'duManifest'+--+-- * 'duLabels' deploymentUpdate     :: DeploymentUpdate deploymentUpdate =-    DeploymentUpdate+    DeploymentUpdate'     { _duManifest = Nothing+    , _duLabels = Nothing     }  -- | [Output Only] URL of the manifest representing the update configuration@@ -614,20 +644,36 @@ duManifest   = lens _duManifest (\ s a -> s{_duManifest = a}) +-- | [Output Only] Map of labels; provided by the client when the resource is+-- created or updated. Specifically: Label keys must be between 1 and 63+-- characters long and must conform to the following regular expression:+-- [a-z]([-a-z0-9]*[a-z0-9])? Label values must be between 0 and 63+-- characters long and must conform to the regular expression+-- ([a-z]([-a-z0-9]*[a-z0-9])?)?+duLabels :: Lens' DeploymentUpdate [DeploymentUpdateLabelEntry]+duLabels+  = lens _duLabels (\ s a -> s{_duLabels = a}) .+      _Default+      . _Coerce+ instance FromJSON DeploymentUpdate where         parseJSON           = withObject "DeploymentUpdate"-              (\ o -> DeploymentUpdate <$> (o .:? "manifest"))+              (\ o ->+                 DeploymentUpdate' <$>+                   (o .:? "manifest") <*> (o .:? "labels" .!= mempty))  instance ToJSON DeploymentUpdate where-        toJSON DeploymentUpdate{..}+        toJSON DeploymentUpdate'{..}           = object-              (catMaybes [("manifest" .=) <$> _duManifest])+              (catMaybes+                 [("manifest" .=) <$> _duManifest,+                  ("labels" .=) <$> _duLabels])  -- | -- -- /See:/ 'resourceUpdate' smart constructor.-data ResourceUpdate = ResourceUpdate+data ResourceUpdate = ResourceUpdate'     { _ruState           :: !(Maybe Text)     , _ruError           :: !(Maybe ResourceUpdateError)     , _ruWarnings        :: !(Maybe [ResourceUpdateWarningsItem])@@ -657,7 +703,7 @@ resourceUpdate     :: ResourceUpdate resourceUpdate =-    ResourceUpdate+    ResourceUpdate'     { _ruState = Nothing     , _ruError = Nothing     , _ruWarnings = Nothing@@ -711,7 +757,7 @@         parseJSON           = withObject "ResourceUpdate"               (\ o ->-                 ResourceUpdate <$>+                 ResourceUpdate' <$>                    (o .:? "state") <*> (o .:? "error") <*>                      (o .:? "warnings" .!= mempty)                      <*> (o .:? "intent")@@ -720,7 +766,7 @@                      <*> (o .:? "properties"))  instance ToJSON ResourceUpdate where-        toJSON ResourceUpdate{..}+        toJSON ResourceUpdate'{..}           = object               (catMaybes                  [("state" .=) <$> _ruState,@@ -731,10 +777,51 @@                   ("finalProperties" .=) <$> _ruFinalProperties,                   ("properties" .=) <$> _ruProperties]) +--+-- /See:/ 'deploymentLabelEntry' smart constructor.+data DeploymentLabelEntry = DeploymentLabelEntry'+    { _dleValue :: !(Maybe Text)+    , _dleKey   :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeploymentLabelEntry' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dleValue'+--+-- * 'dleKey'+deploymentLabelEntry+    :: DeploymentLabelEntry+deploymentLabelEntry =+    DeploymentLabelEntry'+    { _dleValue = Nothing+    , _dleKey = Nothing+    }++dleValue :: Lens' DeploymentLabelEntry (Maybe Text)+dleValue = lens _dleValue (\ s a -> s{_dleValue = a})++dleKey :: Lens' DeploymentLabelEntry (Maybe Text)+dleKey = lens _dleKey (\ s a -> s{_dleKey = a})++instance FromJSON DeploymentLabelEntry where+        parseJSON+          = withObject "DeploymentLabelEntry"+              (\ o ->+                 DeploymentLabelEntry' <$>+                   (o .:? "value") <*> (o .:? "key"))++instance ToJSON DeploymentLabelEntry where+        toJSON DeploymentLabelEntry'{..}+          = object+              (catMaybes+                 [("value" .=) <$> _dleValue, ("key" .=) <$> _dleKey])+ -- | -- -- /See:/ 'manifest' smart constructor.-data Manifest = Manifest+data Manifest = Manifest'     { _mInsertTime     :: !(Maybe Text)     , _mLayout         :: !(Maybe Text)     , _mConfig         :: !(Maybe ConfigFile)@@ -767,7 +854,7 @@ manifest     :: Manifest manifest =-    Manifest+    Manifest'     { _mInsertTime = Nothing     , _mLayout = Nothing     , _mConfig = Nothing@@ -824,7 +911,7 @@         parseJSON           = withObject "Manifest"               (\ o ->-                 Manifest <$>+                 Manifest' <$>                    (o .:? "insertTime") <*> (o .:? "layout") <*>                      (o .:? "config")                      <*> (o .:? "expandedConfig")@@ -834,7 +921,7 @@                      <*> (o .:? "id"))  instance ToJSON Manifest where-        toJSON Manifest{..}+        toJSON Manifest'{..}           = object               (catMaybes                  [("insertTime" .=) <$> _mInsertTime,@@ -847,7 +934,7 @@  -- -- /See:/ 'resourceUpdateWarningsItem' smart constructor.-data ResourceUpdateWarningsItem = ResourceUpdateWarningsItem+data ResourceUpdateWarningsItem = ResourceUpdateWarningsItem'     { _ruwiData    :: !(Maybe [ResourceUpdateWarningsItemDataItem])     , _ruwiCode    :: !(Maybe Text)     , _ruwiMessage :: !(Maybe Text)@@ -865,24 +952,27 @@ resourceUpdateWarningsItem     :: ResourceUpdateWarningsItem resourceUpdateWarningsItem =-    ResourceUpdateWarningsItem+    ResourceUpdateWarningsItem'     { _ruwiData = Nothing     , _ruwiCode = Nothing     , _ruwiMessage = Nothing     } --- | [Output Only] Metadata for this warning in key: value format.+-- | [Output Only] Metadata about this warning in key: value format. For+-- example: \"data\": [ { \"key\": \"scope\", \"value\":+-- \"zones\/us-east1-d\" } ruwiData :: Lens' ResourceUpdateWarningsItem [ResourceUpdateWarningsItemDataItem] ruwiData   = lens _ruwiData (\ s a -> s{_ruwiData = a}) .       _Default       . _Coerce --- | [Output Only] The warning type identifier for this warning.+-- | [Output Only] A warning code, if applicable. For example, Compute Engine+-- returns NO_RESULTS_ON_PAGE if there are no results in the response. ruwiCode :: Lens' ResourceUpdateWarningsItem (Maybe Text) ruwiCode = lens _ruwiCode (\ s a -> s{_ruwiCode = a}) --- | [Output Only] Optional human-readable details for this warning.+-- | [Output Only] A human-readable description of the warning code. ruwiMessage :: Lens' ResourceUpdateWarningsItem (Maybe Text) ruwiMessage   = lens _ruwiMessage (\ s a -> s{_ruwiMessage = a})@@ -891,12 +981,12 @@         parseJSON           = withObject "ResourceUpdateWarningsItem"               (\ o ->-                 ResourceUpdateWarningsItem <$>+                 ResourceUpdateWarningsItem' <$>                    (o .:? "data" .!= mempty) <*> (o .:? "code") <*>                      (o .:? "message"))  instance ToJSON ResourceUpdateWarningsItem where-        toJSON ResourceUpdateWarningsItem{..}+        toJSON ResourceUpdateWarningsItem'{..}           = object               (catMaybes                  [("data" .=) <$> _ruwiData,@@ -906,8 +996,8 @@ -- | -- -- /See:/ 'deploymentsCancelPreviewRequest' smart constructor.-newtype DeploymentsCancelPreviewRequest = DeploymentsCancelPreviewRequest-    { _dcprFingerprint :: Maybe (Textual Word8)+newtype DeploymentsCancelPreviewRequest = DeploymentsCancelPreviewRequest'+    { _dcprFingerprint :: Maybe Base64     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeploymentsCancelPreviewRequest' with the minimum fields required to make a request.@@ -918,7 +1008,7 @@ deploymentsCancelPreviewRequest     :: DeploymentsCancelPreviewRequest deploymentsCancelPreviewRequest =-    DeploymentsCancelPreviewRequest+    DeploymentsCancelPreviewRequest'     { _dcprFingerprint = Nothing     } @@ -930,30 +1020,30 @@ -- user attempts to cancel a preview, this would prevent one of the -- requests). The fingerprint is initially generated by Deployment Manager -- and changes after every request to modify a deployment. To get the--- latest fingerprint value, perform a get() request to a deployment.-dcprFingerprint :: Lens' DeploymentsCancelPreviewRequest (Maybe Word8)+-- latest fingerprint value, perform a get() request on the deployment.+dcprFingerprint :: Lens' DeploymentsCancelPreviewRequest (Maybe ByteString) dcprFingerprint   = lens _dcprFingerprint       (\ s a -> s{_dcprFingerprint = a})-      . mapping _Coerce+      . mapping _Base64  instance FromJSON DeploymentsCancelPreviewRequest          where         parseJSON           = withObject "DeploymentsCancelPreviewRequest"               (\ o ->-                 DeploymentsCancelPreviewRequest <$>+                 DeploymentsCancelPreviewRequest' <$>                    (o .:? "fingerprint"))  instance ToJSON DeploymentsCancelPreviewRequest where-        toJSON DeploymentsCancelPreviewRequest{..}+        toJSON DeploymentsCancelPreviewRequest'{..}           = object               (catMaybes [("fingerprint" .=) <$> _dcprFingerprint])  -- | -- -- /See:/ 'resource' smart constructor.-data Resource = Resource+data Resource = Resource'     { _rInsertTime      :: !(Maybe Text)     , _rURL             :: !(Maybe Text)     , _rWarnings        :: !(Maybe [ResourceWarningsItem])@@ -995,7 +1085,7 @@ resource     :: Resource resource =-    Resource+    Resource'     { _rInsertTime = Nothing     , _rURL = Nothing     , _rWarnings = Nothing@@ -1075,7 +1165,7 @@         parseJSON           = withObject "Resource"               (\ o ->-                 Resource <$>+                 Resource' <$>                    (o .:? "insertTime") <*> (o .:? "url") <*>                      (o .:? "warnings" .!= mempty)                      <*> (o .:? "updateTime")@@ -1088,7 +1178,7 @@                      <*> (o .:? "properties"))  instance ToJSON Resource where-        toJSON Resource{..}+        toJSON Resource'{..}           = object               (catMaybes                  [("insertTime" .=) <$> _rInsertTime,@@ -1102,8 +1192,51 @@                   ("properties" .=) <$> _rProperties])  --+-- /See:/ 'deploymentUpdateLabelEntry' smart constructor.+data DeploymentUpdateLabelEntry = DeploymentUpdateLabelEntry'+    { _duleValue :: !(Maybe Text)+    , _duleKey   :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeploymentUpdateLabelEntry' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'duleValue'+--+-- * 'duleKey'+deploymentUpdateLabelEntry+    :: DeploymentUpdateLabelEntry+deploymentUpdateLabelEntry =+    DeploymentUpdateLabelEntry'+    { _duleValue = Nothing+    , _duleKey = Nothing+    }++duleValue :: Lens' DeploymentUpdateLabelEntry (Maybe Text)+duleValue+  = lens _duleValue (\ s a -> s{_duleValue = a})++duleKey :: Lens' DeploymentUpdateLabelEntry (Maybe Text)+duleKey = lens _duleKey (\ s a -> s{_duleKey = a})++instance FromJSON DeploymentUpdateLabelEntry where+        parseJSON+          = withObject "DeploymentUpdateLabelEntry"+              (\ o ->+                 DeploymentUpdateLabelEntry' <$>+                   (o .:? "value") <*> (o .:? "key"))++instance ToJSON DeploymentUpdateLabelEntry where+        toJSON DeploymentUpdateLabelEntry'{..}+          = object+              (catMaybes+                 [("value" .=) <$> _duleValue,+                  ("key" .=) <$> _duleKey])++-- -- /See:/ 'resourceUpdateErrorErrorsItem' smart constructor.-data ResourceUpdateErrorErrorsItem = ResourceUpdateErrorErrorsItem+data ResourceUpdateErrorErrorsItem = ResourceUpdateErrorErrorsItem'     { _rueeiLocation :: !(Maybe Text)     , _rueeiCode     :: !(Maybe Text)     , _rueeiMessage  :: !(Maybe Text)@@ -1121,13 +1254,13 @@ resourceUpdateErrorErrorsItem     :: ResourceUpdateErrorErrorsItem resourceUpdateErrorErrorsItem =-    ResourceUpdateErrorErrorsItem+    ResourceUpdateErrorErrorsItem'     { _rueeiLocation = Nothing     , _rueeiCode = Nothing     , _rueeiMessage = Nothing     } --- | [Output Only] Indicates the field in the request which caused the error.+-- | [Output Only] Indicates the field in the request that caused the error. -- This property is optional. rueeiLocation :: Lens' ResourceUpdateErrorErrorsItem (Maybe Text) rueeiLocation@@ -1148,12 +1281,12 @@         parseJSON           = withObject "ResourceUpdateErrorErrorsItem"               (\ o ->-                 ResourceUpdateErrorErrorsItem <$>+                 ResourceUpdateErrorErrorsItem' <$>                    (o .:? "location") <*> (o .:? "code") <*>                      (o .:? "message"))  instance ToJSON ResourceUpdateErrorErrorsItem where-        toJSON ResourceUpdateErrorErrorsItem{..}+        toJSON ResourceUpdateErrorErrorsItem'{..}           = object               (catMaybes                  [("location" .=) <$> _rueeiLocation,@@ -1164,7 +1297,7 @@ -- to build the next request if the request has been truncated. -- -- /See:/ 'manifestsListResponse' smart constructor.-data ManifestsListResponse = ManifestsListResponse+data ManifestsListResponse = ManifestsListResponse'     { _mlrNextPageToken :: !(Maybe Text)     , _mlrManifests     :: !(Maybe [Manifest])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1179,7 +1312,7 @@ manifestsListResponse     :: ManifestsListResponse manifestsListResponse =-    ManifestsListResponse+    ManifestsListResponse'     { _mlrNextPageToken = Nothing     , _mlrManifests = Nothing     }@@ -1201,12 +1334,12 @@         parseJSON           = withObject "ManifestsListResponse"               (\ o ->-                 ManifestsListResponse <$>+                 ManifestsListResponse' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "manifests" .!= mempty))  instance ToJSON ManifestsListResponse where-        toJSON ManifestsListResponse{..}+        toJSON ManifestsListResponse'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _mlrNextPageToken,@@ -1216,7 +1349,7 @@ -- operation, this field will be populated. -- -- /See:/ 'operationError' smart constructor.-newtype OperationError = OperationError+newtype OperationError = OperationError'     { _oeErrors :: Maybe [OperationErrorErrorsItem]     } deriving (Eq,Show,Data,Typeable,Generic) @@ -1228,7 +1361,7 @@ operationError     :: OperationError operationError =-    OperationError+    OperationError'     { _oeErrors = Nothing     } @@ -1244,16 +1377,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])  -- | A resource type supported by Deployment Manager. -- -- /See:/ 'type'' smart constructor.-data Type = Type+data Type = Type'     { _tInsertTime :: !(Maybe Text)     , _tSelfLink   :: !(Maybe Text)     , _tName       :: !(Maybe Text)@@ -1274,7 +1407,7 @@ type'     :: Type type' =-    Type+    Type'     { _tInsertTime = Nothing     , _tSelfLink = Nothing     , _tName = Nothing@@ -1305,13 +1438,13 @@         parseJSON           = withObject "Type"               (\ o ->-                 Type <$>+                 Type' <$>                    (o .:? "insertTime") <*> (o .:? "selfLink") <*>                      (o .:? "name")                      <*> (o .:? "id"))  instance ToJSON Type where-        toJSON Type{..}+        toJSON Type'{..}           = object               (catMaybes                  [("insertTime" .=) <$> _tInsertTime,@@ -1321,7 +1454,7 @@ -- | -- -- /See:/ 'importFile' smart constructor.-data ImportFile = ImportFile+data ImportFile = ImportFile'     { _ifContent :: !(Maybe Text)     , _ifName    :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1336,7 +1469,7 @@ importFile     :: ImportFile importFile =-    ImportFile+    ImportFile'     { _ifContent = Nothing     , _ifName = Nothing     }@@ -1354,10 +1487,10 @@         parseJSON           = withObject "ImportFile"               (\ o ->-                 ImportFile <$> (o .:? "content") <*> (o .:? "name"))+                 ImportFile' <$> (o .:? "content") <*> (o .:? "name"))  instance ToJSON ImportFile where-        toJSON ImportFile{..}+        toJSON ImportFile'{..}           = object               (catMaybes                  [("content" .=) <$> _ifContent,@@ -1365,7 +1498,7 @@  -- -- /See:/ 'operationErrorErrorsItem' smart constructor.-data OperationErrorErrorsItem = OperationErrorErrorsItem+data OperationErrorErrorsItem = OperationErrorErrorsItem'     { _oeeiLocation :: !(Maybe Text)     , _oeeiCode     :: !(Maybe Text)     , _oeeiMessage  :: !(Maybe Text)@@ -1383,13 +1516,13 @@ operationErrorErrorsItem     :: OperationErrorErrorsItem operationErrorErrorsItem =-    OperationErrorErrorsItem+    OperationErrorErrorsItem'     { _oeeiLocation = Nothing     , _oeeiCode = Nothing     , _oeeiMessage = Nothing     } --- | [Output Only] Indicates the field in the request which caused the error.+-- | [Output Only] Indicates the field in the request that caused the error. -- This property is optional. oeeiLocation :: Lens' OperationErrorErrorsItem (Maybe Text) oeeiLocation@@ -1408,12 +1541,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,@@ -1423,8 +1556,8 @@ -- | -- -- /See:/ 'deploymentsStopRequest' smart constructor.-newtype DeploymentsStopRequest = DeploymentsStopRequest-    { _dsrFingerprint :: Maybe (Textual Word8)+newtype DeploymentsStopRequest = DeploymentsStopRequest'+    { _dsrFingerprint :: Maybe Base64     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeploymentsStopRequest' with the minimum fields required to make a request.@@ -1435,7 +1568,7 @@ deploymentsStopRequest     :: DeploymentsStopRequest deploymentsStopRequest =-    DeploymentsStopRequest+    DeploymentsStopRequest'     { _dsrFingerprint = Nothing     } @@ -1447,27 +1580,27 @@ -- ongoing update request, this would prevent a collision). The fingerprint -- is initially generated by Deployment Manager and changes after every -- request to modify a deployment. To get the latest fingerprint value,--- perform a get() request to a deployment.-dsrFingerprint :: Lens' DeploymentsStopRequest (Maybe Word8)+-- perform a get() request on the deployment.+dsrFingerprint :: Lens' DeploymentsStopRequest (Maybe ByteString) dsrFingerprint   = lens _dsrFingerprint       (\ s a -> s{_dsrFingerprint = a})-      . mapping _Coerce+      . mapping _Base64  instance FromJSON DeploymentsStopRequest where         parseJSON           = withObject "DeploymentsStopRequest"               (\ o ->-                 DeploymentsStopRequest <$> (o .:? "fingerprint"))+                 DeploymentsStopRequest' <$> (o .:? "fingerprint"))  instance ToJSON DeploymentsStopRequest where-        toJSON DeploymentsStopRequest{..}+        toJSON DeploymentsStopRequest'{..}           = object               (catMaybes [("fingerprint" .=) <$> _dsrFingerprint])  -- -- /See:/ 'resourceWarningsItemDataItem' smart constructor.-data ResourceWarningsItemDataItem = ResourceWarningsItemDataItem+data ResourceWarningsItemDataItem = ResourceWarningsItemDataItem'     { _rwidiValue :: !(Maybe Text)     , _rwidiKey   :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1482,7 +1615,7 @@ resourceWarningsItemDataItem     :: ResourceWarningsItemDataItem resourceWarningsItemDataItem =-    ResourceWarningsItemDataItem+    ResourceWarningsItemDataItem'     { _rwidiValue = Nothing     , _rwidiKey = Nothing     }@@ -1492,7 +1625,13 @@ rwidiValue   = lens _rwidiValue (\ s a -> s{_rwidiValue = a}) --- | [Output Only] A key for the warning data.+-- | [Output Only] A key that provides more detail on the warning being+-- returned. For example, for warnings where there are no results in a list+-- request for a particular zone, this key might be scope and the key value+-- might be the zone name. Other examples might be a key indicating a+-- deprecated resource and a suggested replacement, or a warning about+-- invalid network settings (for example, if an instance attempts to+-- perform IP forwarding but is not enabled for IP forwarding). rwidiKey :: Lens' ResourceWarningsItemDataItem (Maybe Text) rwidiKey = lens _rwidiKey (\ s a -> s{_rwidiKey = a}) @@ -1500,11 +1639,11 @@         parseJSON           = withObject "ResourceWarningsItemDataItem"               (\ o ->-                 ResourceWarningsItemDataItem <$>+                 ResourceWarningsItemDataItem' <$>                    (o .:? "value") <*> (o .:? "key"))  instance ToJSON ResourceWarningsItemDataItem where-        toJSON ResourceWarningsItemDataItem{..}+        toJSON ResourceWarningsItemDataItem'{..}           = object               (catMaybes                  [("value" .=) <$> _rwidiValue,@@ -1514,7 +1653,7 @@ -- this field will be populated. -- -- /See:/ 'resourceUpdateError' smart constructor.-newtype ResourceUpdateError = ResourceUpdateError+newtype ResourceUpdateError = ResourceUpdateError'     { _rueErrors :: Maybe [ResourceUpdateErrorErrorsItem]     } deriving (Eq,Show,Data,Typeable,Generic) @@ -1526,7 +1665,7 @@ resourceUpdateError     :: ResourceUpdateError resourceUpdateError =-    ResourceUpdateError+    ResourceUpdateError'     { _rueErrors = Nothing     } @@ -1542,17 +1681,17 @@         parseJSON           = withObject "ResourceUpdateError"               (\ o ->-                 ResourceUpdateError <$> (o .:? "errors" .!= mempty))+                 ResourceUpdateError' <$> (o .:? "errors" .!= mempty))  instance ToJSON ResourceUpdateError where-        toJSON ResourceUpdateError{..}+        toJSON ResourceUpdateError'{..}           = object (catMaybes [("errors" .=) <$> _rueErrors])  -- | A response containing a partial list of deployments and a page token -- used to build the next request if the request has been truncated. -- -- /See:/ 'deploymentsListResponse' smart constructor.-data DeploymentsListResponse = DeploymentsListResponse+data DeploymentsListResponse = DeploymentsListResponse'     { _dlrNextPageToken :: !(Maybe Text)     , _dlrDeployments   :: !(Maybe [Deployment])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1567,7 +1706,7 @@ deploymentsListResponse     :: DeploymentsListResponse deploymentsListResponse =-    DeploymentsListResponse+    DeploymentsListResponse'     { _dlrNextPageToken = Nothing     , _dlrDeployments = Nothing     }@@ -1590,12 +1729,12 @@         parseJSON           = withObject "DeploymentsListResponse"               (\ o ->-                 DeploymentsListResponse <$>+                 DeploymentsListResponse' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "deployments" .!= mempty))  instance ToJSON DeploymentsListResponse where-        toJSON DeploymentsListResponse{..}+        toJSON DeploymentsListResponse'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _dlrNextPageToken,@@ -1603,7 +1742,7 @@  -- -- /See:/ 'resourceWarningsItem' smart constructor.-data ResourceWarningsItem = ResourceWarningsItem+data ResourceWarningsItem = ResourceWarningsItem'     { _rwiData    :: !(Maybe [ResourceWarningsItemDataItem])     , _rwiCode    :: !(Maybe Text)     , _rwiMessage :: !(Maybe Text)@@ -1621,23 +1760,26 @@ resourceWarningsItem     :: ResourceWarningsItem resourceWarningsItem =-    ResourceWarningsItem+    ResourceWarningsItem'     { _rwiData = Nothing     , _rwiCode = Nothing     , _rwiMessage = Nothing     } --- | [Output Only] Metadata for this warning in key: value format.+-- | [Output Only] Metadata about this warning in key: value format. For+-- example: \"data\": [ { \"key\": \"scope\", \"value\":+-- \"zones\/us-east1-d\" } rwiData :: Lens' ResourceWarningsItem [ResourceWarningsItemDataItem] rwiData   = lens _rwiData (\ s a -> s{_rwiData = a}) . _Default       . _Coerce --- | [Output Only] The warning type identifier for this warning.+-- | [Output Only] A warning code, if applicable. For example, Compute Engine+-- returns NO_RESULTS_ON_PAGE if there are no results in the response. rwiCode :: Lens' ResourceWarningsItem (Maybe Text) rwiCode = lens _rwiCode (\ s a -> s{_rwiCode = a}) --- | [Output Only] Optional human-readable details for this warning.+-- | [Output Only] A human-readable description of the warning code. rwiMessage :: Lens' ResourceWarningsItem (Maybe Text) rwiMessage   = lens _rwiMessage (\ s a -> s{_rwiMessage = a})@@ -1646,12 +1788,12 @@         parseJSON           = withObject "ResourceWarningsItem"               (\ o ->-                 ResourceWarningsItem <$>+                 ResourceWarningsItem' <$>                    (o .:? "data" .!= mempty) <*> (o .:? "code") <*>                      (o .:? "message"))  instance ToJSON ResourceWarningsItem where-        toJSON ResourceWarningsItem{..}+        toJSON ResourceWarningsItem'{..}           = object               (catMaybes                  [("data" .=) <$> _rwiData, ("code" .=) <$> _rwiCode,@@ -1660,7 +1802,7 @@ -- | -- -- /See:/ 'targetConfiguration' smart constructor.-data TargetConfiguration = TargetConfiguration+data TargetConfiguration = TargetConfiguration'     { _tcConfig  :: !(Maybe ConfigFile)     , _tcImports :: !(Maybe [ImportFile])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1675,7 +1817,7 @@ targetConfiguration     :: TargetConfiguration targetConfiguration =-    TargetConfiguration+    TargetConfiguration'     { _tcConfig = Nothing     , _tcImports = Nothing     }@@ -1697,11 +1839,11 @@         parseJSON           = withObject "TargetConfiguration"               (\ o ->-                 TargetConfiguration <$>+                 TargetConfiguration' <$>                    (o .:? "config") <*> (o .:? "imports" .!= mempty))  instance ToJSON TargetConfiguration where-        toJSON TargetConfiguration{..}+        toJSON TargetConfiguration'{..}           = object               (catMaybes                  [("config" .=) <$> _tcConfig,@@ -1709,7 +1851,7 @@  -- -- /See:/ 'operationWarningsItem' smart constructor.-data OperationWarningsItem = OperationWarningsItem+data OperationWarningsItem = OperationWarningsItem'     { _owiData    :: !(Maybe [OperationWarningsItemDataItem])     , _owiCode    :: !(Maybe Text)     , _owiMessage :: !(Maybe Text)@@ -1727,23 +1869,26 @@ operationWarningsItem     :: OperationWarningsItem operationWarningsItem =-    OperationWarningsItem+    OperationWarningsItem'     { _owiData = Nothing     , _owiCode = Nothing     , _owiMessage = Nothing     } --- | [Output Only] Metadata for this warning in key: value format.+-- | [Output Only] Metadata about this warning in key: value format. For+-- example: \"data\": [ { \"key\": \"scope\", \"value\":+-- \"zones\/us-east1-d\" } owiData :: Lens' OperationWarningsItem [OperationWarningsItemDataItem] owiData   = lens _owiData (\ s a -> s{_owiData = a}) . _Default       . _Coerce --- | [Output Only] The warning type identifier for this warning.+-- | [Output Only] A warning code, if applicable. For example, Compute Engine+-- returns NO_RESULTS_ON_PAGE if there are no results in the response. owiCode :: Lens' OperationWarningsItem (Maybe Text) owiCode = lens _owiCode (\ s a -> s{_owiCode = a}) --- | [Output Only] Optional human-readable details for this warning.+-- | [Output Only] A human-readable description of the warning code. owiMessage :: Lens' OperationWarningsItem (Maybe Text) owiMessage   = lens _owiMessage (\ s a -> s{_owiMessage = a})@@ -1752,12 +1897,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,@@ -1766,13 +1911,15 @@ -- | -- -- /See:/ 'deployment' smart constructor.-data Deployment = Deployment+data Deployment = Deployment'     { _dInsertTime  :: !(Maybe Text)     , _dOperation   :: !(Maybe Operation)-    , _dFingerprint :: !(Maybe (Textual Word8))+    , _dFingerprint :: !(Maybe Base64)+    , _dSelfLink    :: !(Maybe Text)     , _dName        :: !(Maybe Text)     , _dManifest    :: !(Maybe Text)     , _dId          :: !(Maybe (Textual Word64))+    , _dLabels      :: !(Maybe [DeploymentLabelEntry])     , _dDescription :: !(Maybe Text)     , _dUpdate      :: !(Maybe DeploymentUpdate)     , _dTarget      :: !(Maybe TargetConfiguration)@@ -1788,12 +1935,16 @@ -- -- * 'dFingerprint' --+-- * 'dSelfLink'+-- -- * 'dName' -- -- * 'dManifest' -- -- * 'dId' --+-- * 'dLabels'+-- -- * 'dDescription' -- -- * 'dUpdate'@@ -1802,13 +1953,15 @@ deployment     :: Deployment deployment =-    Deployment+    Deployment'     { _dInsertTime = Nothing     , _dOperation = Nothing     , _dFingerprint = Nothing+    , _dSelfLink = Nothing     , _dName = Nothing     , _dManifest = Nothing     , _dId = Nothing+    , _dLabels = Nothing     , _dDescription = Nothing     , _dUpdate = Nothing     , _dTarget = Nothing@@ -1834,11 +1987,16 @@ -- fingerprint is initially generated by Deployment Manager and changes -- after every request to modify data. To get the latest fingerprint value, -- perform a get() request to a deployment.-dFingerprint :: Lens' Deployment (Maybe Word8)+dFingerprint :: Lens' Deployment (Maybe ByteString) dFingerprint   = lens _dFingerprint (\ s a -> s{_dFingerprint = a})-      . mapping _Coerce+      . mapping _Base64 +-- | [Output Only] Self link for the deployment.+dSelfLink :: Lens' Deployment (Maybe Text)+dSelfLink+  = lens _dSelfLink (\ s a -> s{_dSelfLink = a})+ -- | Name of the resource; provided by the client when the resource is -- created. The name must be 1-63 characters long, and comply with RFC1035. -- Specifically, the name must be 1-63 characters long and match the@@ -1860,6 +2018,17 @@ dId   = lens _dId (\ s a -> s{_dId = a}) . mapping _Coerce +-- | Map of labels; provided by the client when the resource is created or+-- updated. Specifically: Label keys must be between 1 and 63 characters+-- long and must conform to the following regular expression:+-- [a-z]([-a-z0-9]*[a-z0-9])? Label values must be between 0 and 63+-- characters long and must conform to the regular expression+-- ([a-z]([-a-z0-9]*[a-z0-9])?)?+dLabels :: Lens' Deployment [DeploymentLabelEntry]+dLabels+  = lens _dLabels (\ s a -> s{_dLabels = a}) . _Default+      . _Coerce+ -- | An optional user-provided description of the deployment. dDescription :: Lens' Deployment (Maybe Text) dDescription@@ -1879,25 +2048,29 @@         parseJSON           = withObject "Deployment"               (\ o ->-                 Deployment <$>+                 Deployment' <$>                    (o .:? "insertTime") <*> (o .:? "operation") <*>                      (o .:? "fingerprint")+                     <*> (o .:? "selfLink")                      <*> (o .:? "name")                      <*> (o .:? "manifest")                      <*> (o .:? "id")+                     <*> (o .:? "labels" .!= mempty)                      <*> (o .:? "description")                      <*> (o .:? "update")                      <*> (o .:? "target"))  instance ToJSON Deployment where-        toJSON Deployment{..}+        toJSON Deployment'{..}           = object               (catMaybes                  [("insertTime" .=) <$> _dInsertTime,                   ("operation" .=) <$> _dOperation,                   ("fingerprint" .=) <$> _dFingerprint,+                  ("selfLink" .=) <$> _dSelfLink,                   ("name" .=) <$> _dName,                   ("manifest" .=) <$> _dManifest, ("id" .=) <$> _dId,+                  ("labels" .=) <$> _dLabels,                   ("description" .=) <$> _dDescription,                   ("update" .=) <$> _dUpdate,                   ("target" .=) <$> _dTarget])

@@ -8,7 +8,7 @@  -- | -- Module      : Network.Google.DeploymentManager.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@@ -24,18 +24,18 @@       -- ^ @ACQUIRE@     | CreateOrAcquire       -- ^ @CREATE_OR_ACQUIRE@-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable DeploymentsUpdateCreatePolicy -instance FromText DeploymentsUpdateCreatePolicy where-    fromText = \case-        "ACQUIRE" -> Just Acquire-        "CREATE_OR_ACQUIRE" -> Just CreateOrAcquire-        _ -> Nothing+instance FromHttpApiData DeploymentsUpdateCreatePolicy where+    parseQueryParam = \case+        "ACQUIRE" -> Right Acquire+        "CREATE_OR_ACQUIRE" -> Right CreateOrAcquire+        x -> Left ("Unable to parse DeploymentsUpdateCreatePolicy from: " <> x) -instance ToText DeploymentsUpdateCreatePolicy where-    toText = \case+instance ToHttpApiData DeploymentsUpdateCreatePolicy where+    toQueryParam = \case         Acquire -> "ACQUIRE"         CreateOrAcquire -> "CREATE_OR_ACQUIRE" @@ -51,18 +51,18 @@       -- ^ @ABANDON@     | Delete'       -- ^ @DELETE@-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable DeploymentsUpdateDeletePolicy -instance FromText DeploymentsUpdateDeletePolicy where-    fromText = \case-        "ABANDON" -> Just Abandon-        "DELETE" -> Just Delete'-        _ -> Nothing+instance FromHttpApiData DeploymentsUpdateDeletePolicy where+    parseQueryParam = \case+        "ABANDON" -> Right Abandon+        "DELETE" -> Right Delete'+        x -> Left ("Unable to parse DeploymentsUpdateDeletePolicy from: " <> x) -instance ToText DeploymentsUpdateDeletePolicy where-    toText = \case+instance ToHttpApiData DeploymentsUpdateDeletePolicy where+    toQueryParam = \case         Abandon -> "ABANDON"         Delete' -> "DELETE" @@ -78,18 +78,18 @@       -- ^ @ABANDON@     | DPDPDelete'       -- ^ @DELETE@-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable DeploymentsPatchDeletePolicy -instance FromText DeploymentsPatchDeletePolicy where-    fromText = \case-        "ABANDON" -> Just DPDPAbandon-        "DELETE" -> Just DPDPDelete'-        _ -> Nothing+instance FromHttpApiData DeploymentsPatchDeletePolicy where+    parseQueryParam = \case+        "ABANDON" -> Right DPDPAbandon+        "DELETE" -> Right DPDPDelete'+        x -> Left ("Unable to parse DeploymentsPatchDeletePolicy from: " <> x) -instance ToText DeploymentsPatchDeletePolicy where-    toText = \case+instance ToHttpApiData DeploymentsPatchDeletePolicy where+    toQueryParam = \case         DPDPAbandon -> "ABANDON"         DPDPDelete' -> "DELETE" @@ -105,18 +105,18 @@       -- ^ @ACQUIRE@     | DPCPCreateOrAcquire       -- ^ @CREATE_OR_ACQUIRE@-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable DeploymentsPatchCreatePolicy -instance FromText DeploymentsPatchCreatePolicy where-    fromText = \case-        "ACQUIRE" -> Just DPCPAcquire-        "CREATE_OR_ACQUIRE" -> Just DPCPCreateOrAcquire-        _ -> Nothing+instance FromHttpApiData DeploymentsPatchCreatePolicy where+    parseQueryParam = \case+        "ACQUIRE" -> Right DPCPAcquire+        "CREATE_OR_ACQUIRE" -> Right DPCPCreateOrAcquire+        x -> Left ("Unable to parse DeploymentsPatchCreatePolicy from: " <> x) -instance ToText DeploymentsPatchCreatePolicy where-    toText = \case+instance ToHttpApiData DeploymentsPatchCreatePolicy where+    toQueryParam = \case         DPCPAcquire -> "ACQUIRE"         DPCPCreateOrAcquire -> "CREATE_OR_ACQUIRE" 

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Deployments.CancelPreview--- 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 @@ -- deployment. -- -- /See:/ 'deploymentsCancelPreview' smart constructor.-data DeploymentsCancelPreview = DeploymentsCancelPreview+data DeploymentsCancelPreview = DeploymentsCancelPreview'     { _dcpProject    :: !Text     , _dcpPayload    :: !DeploymentsCancelPreviewRequest     , _dcpDeployment :: !Text@@ -82,7 +82,7 @@     -> Text -- ^ 'dcpDeployment'     -> DeploymentsCancelPreview deploymentsCancelPreview pDcpProject_ pDcpPayload_ pDcpDeployment_ =-    DeploymentsCancelPreview+    DeploymentsCancelPreview'     { _dcpProject = pDcpProject_     , _dcpPayload = pDcpPayload_     , _dcpDeployment = pDcpDeployment_@@ -106,7 +106,10 @@  instance GoogleRequest DeploymentsCancelPreview where         type Rs DeploymentsCancelPreview = Operation-        requestClient DeploymentsCancelPreview{..}+        type Scopes DeploymentsCancelPreview =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/ndev.cloudman"]+        requestClient DeploymentsCancelPreview'{..}           = go _dcpProject _dcpDeployment (Just AltJSON)               _dcpPayload               deploymentManagerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Deployments.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@@ -55,7 +55,7 @@ -- | Deletes a deployment and all of the resources in the deployment. -- -- /See:/ 'deploymentsDelete' smart constructor.-data DeploymentsDelete = DeploymentsDelete+data DeploymentsDelete = DeploymentsDelete'     { _ddProject    :: !Text     , _ddDeployment :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'ddDeployment'     -> DeploymentsDelete deploymentsDelete pDdProject_ pDdDeployment_ =-    DeploymentsDelete+    DeploymentsDelete'     { _ddProject = pDdProject_     , _ddDeployment = pDdDeployment_     }@@ -89,7 +89,10 @@  instance GoogleRequest DeploymentsDelete where         type Rs DeploymentsDelete = Operation-        requestClient DeploymentsDelete{..}+        type Scopes DeploymentsDelete =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/ndev.cloudman"]+        requestClient DeploymentsDelete'{..}           = go _ddProject _ddDeployment (Just AltJSON)               deploymentManagerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Deployments.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@@ -55,7 +55,7 @@ -- | Gets information about a specific deployment. -- -- /See:/ 'deploymentsGet' smart constructor.-data DeploymentsGet = DeploymentsGet+data DeploymentsGet = DeploymentsGet'     { _dgProject    :: !Text     , _dgDeployment :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'dgDeployment'     -> DeploymentsGet deploymentsGet pDgProject_ pDgDeployment_ =-    DeploymentsGet+    DeploymentsGet'     { _dgProject = pDgProject_     , _dgDeployment = pDgDeployment_     }@@ -89,7 +89,12 @@  instance GoogleRequest DeploymentsGet where         type Rs DeploymentsGet = Deployment-        requestClient DeploymentsGet{..}+        type Scopes DeploymentsGet =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.cloudman",+               "https://www.googleapis.com/auth/ndev.cloudman.readonly"]+        requestClient DeploymentsGet'{..}           = go _dgProject _dgDeployment (Just AltJSON)               deploymentManagerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Deployments.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@@ -59,7 +59,7 @@ -- deployment manifest. -- -- /See:/ 'deploymentsInsert' smart constructor.-data DeploymentsInsert = DeploymentsInsert+data DeploymentsInsert = DeploymentsInsert'     { _diProject :: !Text     , _diPayload :: !Deployment     , _diPreview :: !(Maybe Bool)@@ -79,7 +79,7 @@     -> Deployment -- ^ 'diPayload'     -> DeploymentsInsert deploymentsInsert pDiProject_ pDiPayload_ =-    DeploymentsInsert+    DeploymentsInsert'     { _diProject = pDiProject_     , _diPayload = pDiPayload_     , _diPreview = Nothing@@ -109,7 +109,10 @@  instance GoogleRequest DeploymentsInsert where         type Rs DeploymentsInsert = Operation-        requestClient DeploymentsInsert{..}+        type Scopes DeploymentsInsert =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/ndev.cloudman"]+        requestClient DeploymentsInsert'{..}           = go _diProject _diPreview (Just AltJSON) _diPayload               deploymentManagerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Deployments.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@@ -60,7 +60,7 @@ -- | Lists all deployments for a given project. -- -- /See:/ 'deploymentsList' smart constructor.-data DeploymentsList = DeploymentsList+data DeploymentsList = DeploymentsList'     { _dlProject    :: !Text     , _dlFilter     :: !(Maybe Text)     , _dlPageToken  :: !(Maybe Text)@@ -82,7 +82,7 @@     :: Text -- ^ 'dlProject'     -> DeploymentsList deploymentsList pDlProject_ =-    DeploymentsList+    DeploymentsList'     { _dlProject = pDlProject_     , _dlFilter = Nothing     , _dlPageToken = Nothing@@ -95,27 +95,39 @@   = lens _dlProject (\ s a -> s{_dlProject = a})  -- | Sets a filter expression for filtering listed resources, in the form--- filter={expression}. Your {expression} must be in the format: FIELD_NAME--- COMPARISON_STRING LITERAL_STRING. The FIELD_NAME is the name of the+-- filter={expression}. Your {expression} must be in the format: field_name+-- comparison_string literal_string. The field_name is the name of the -- field you want to compare. Only atomic field types are supported--- (string, number, boolean). The COMPARISON_STRING must be either eq--- (equals) or ne (not equals). The LITERAL_STRING is the string value to--- filter to. The literal value must be valid for the type of field--- (string, number, boolean). For string fields, the literal value is--- interpreted as a regular expression using RE2 syntax. The literal value--- must match the entire field. For example, filter=name ne--- example-instance.+-- (string, number, boolean). The comparison_string must be either eq+-- (equals) or ne (not equals). The literal_string is the string value to+-- filter to. The literal value must be valid for the type of field you are+-- filtering by (string, number, boolean). For string fields, the literal+-- value is interpreted as a regular expression using RE2 syntax. The+-- literal value must match the entire field. For example, to filter for+-- instances that do not have a name of example-instance, you would use+-- filter=name ne example-instance. Compute Engine Beta API Only: When+-- filtering in the Beta API, you can also filter on nested fields. For+-- example, you could filter on instances that have set the+-- scheduling.automaticRestart field to true. Use filtering on nested+-- fields to take advantage of labels to organize and search for results+-- based on label values. The Beta API also supports filtering on multiple+-- expressions by providing each separate expression within parentheses.+-- For example, (scheduling.automaticRestart eq true) (zone eq+-- us-central1-f). Multiple expressions are treated as AND expressions,+-- meaning that resources must match all expressions to pass the filters. dlFilter :: Lens' DeploymentsList (Maybe Text) dlFilter = lens _dlFilter (\ s a -> s{_dlFilter = a}) --- | Specifies a page token to use. Use this parameter if you want to list--- the next page of results. Set pageToken to the nextPageToken returned by--- a previous list request.+-- | Specifies a page token to use. Set pageToken to the nextPageToken+-- returned by a previous list request to get the next page of results. dlPageToken :: Lens' DeploymentsList (Maybe Text) dlPageToken   = lens _dlPageToken (\ s a -> s{_dlPageToken = a}) --- | Maximum count of results to be returned.+-- | The maximum number of results per page that should be returned. If the+-- number of available results is larger than maxResults, Compute Engine+-- returns a nextPageToken that can be used to get the next page of results+-- in subsequent list requests. dlMaxResults :: Lens' DeploymentsList Word32 dlMaxResults   = lens _dlMaxResults (\ s a -> s{_dlMaxResults = a})@@ -123,7 +135,12 @@  instance GoogleRequest DeploymentsList where         type Rs DeploymentsList = DeploymentsListResponse-        requestClient DeploymentsList{..}+        type Scopes DeploymentsList =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.cloudman",+               "https://www.googleapis.com/auth/ndev.cloudman.readonly"]+        requestClient DeploymentsList'{..}           = go _dlProject _dlFilter _dlPageToken               (Just _dlMaxResults)               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Deployments.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@@ -69,7 +69,7 @@ -- deployment manifest. This method supports patch semantics. -- -- /See:/ 'deploymentsPatch' smart constructor.-data DeploymentsPatch = DeploymentsPatch+data DeploymentsPatch = DeploymentsPatch'     { _dpCreatePolicy :: !DeploymentsPatchCreatePolicy     , _dpProject      :: !Text     , _dpPayload      :: !Deployment@@ -99,7 +99,7 @@     -> Text -- ^ 'dpDeployment'     -> DeploymentsPatch deploymentsPatch pDpProject_ pDpPayload_ pDpDeployment_ =-    DeploymentsPatch+    DeploymentsPatch'     { _dpCreatePolicy = DPCPCreateOrAcquire     , _dpProject = pDpProject_     , _dpPayload = pDpPayload_@@ -132,8 +132,8 @@  -- | If set to true, updates the deployment and creates and updates the -- \"shell\" resources but does not actually alter or instantiate these--- resources. This allows you to preview what your deployment looks like.--- You can use this intent to preview how an update would affect your+-- resources. This allows you to preview what your deployment will look+-- like. You can use this intent to preview how an update would affect your -- deployment. You must provide a target.config with a configuration if -- this is set to true. After previewing a deployment, you can deploy your -- resources by making a request with the update() or you can@@ -151,7 +151,10 @@  instance GoogleRequest DeploymentsPatch where         type Rs DeploymentsPatch = Operation-        requestClient DeploymentsPatch{..}+        type Scopes DeploymentsPatch =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/ndev.cloudman"]+        requestClient DeploymentsPatch'{..}           = go _dpProject _dpDeployment (Just _dpCreatePolicy)               (Just _dpDeletePolicy)               (Just _dpPreview)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Deployments.Stop--- 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 @@ -- already been completed, but prevents any new work from being started. -- -- /See:/ 'deploymentsStop' smart constructor.-data DeploymentsStop = DeploymentsStop+data DeploymentsStop = DeploymentsStop'     { _dsProject    :: !Text     , _dsPayload    :: !DeploymentsStopRequest     , _dsDeployment :: !Text@@ -82,7 +82,7 @@     -> Text -- ^ 'dsDeployment'     -> DeploymentsStop deploymentsStop pDsProject_ pDsPayload_ pDsDeployment_ =-    DeploymentsStop+    DeploymentsStop'     { _dsProject = pDsProject_     , _dsPayload = pDsPayload_     , _dsDeployment = pDsDeployment_@@ -105,7 +105,10 @@  instance GoogleRequest DeploymentsStop where         type Rs DeploymentsStop = Operation-        requestClient DeploymentsStop{..}+        type Scopes DeploymentsStop =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/ndev.cloudman"]+        requestClient DeploymentsStop'{..}           = go _dsProject _dsDeployment (Just AltJSON)               _dsPayload               deploymentManagerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Deployments.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@@ -69,7 +69,7 @@ -- deployment manifest. -- -- /See:/ 'deploymentsUpdate' smart constructor.-data DeploymentsUpdate = DeploymentsUpdate+data DeploymentsUpdate = DeploymentsUpdate'     { _duCreatePolicy :: !DeploymentsUpdateCreatePolicy     , _duProject      :: !Text     , _duPayload      :: !Deployment@@ -99,7 +99,7 @@     -> Text -- ^ 'duDeployment'     -> DeploymentsUpdate deploymentsUpdate pDuProject_ pDuPayload_ pDuDeployment_ =-    DeploymentsUpdate+    DeploymentsUpdate'     { _duCreatePolicy = CreateOrAcquire     , _duProject = pDuProject_     , _duPayload = pDuPayload_@@ -132,8 +132,8 @@  -- | If set to true, updates the deployment and creates and updates the -- \"shell\" resources but does not actually alter or instantiate these--- resources. This allows you to preview what your deployment looks like.--- You can use this intent to preview how an update would affect your+-- resources. This allows you to preview what your deployment will look+-- like. You can use this intent to preview how an update would affect your -- deployment. You must provide a target.config with a configuration if -- this is set to true. After previewing a deployment, you can deploy your -- resources by making a request with the update() or you can@@ -151,7 +151,10 @@  instance GoogleRequest DeploymentsUpdate where         type Rs DeploymentsUpdate = Operation-        requestClient DeploymentsUpdate{..}+        type Scopes DeploymentsUpdate =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/ndev.cloudman"]+        requestClient DeploymentsUpdate'{..}           = go _duProject _duDeployment (Just _duCreatePolicy)               (Just _duDeletePolicy)               (Just _duPreview)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Manifests.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@@ -58,7 +58,7 @@ -- | Gets information about a specific manifest. -- -- /See:/ 'manifestsGet' smart constructor.-data ManifestsGet = ManifestsGet+data ManifestsGet = ManifestsGet'     { _mgProject    :: !Text     , _mgManifest   :: !Text     , _mgDeployment :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'mgDeployment'     -> ManifestsGet manifestsGet pMgProject_ pMgManifest_ pMgDeployment_ =-    ManifestsGet+    ManifestsGet'     { _mgProject = pMgProject_     , _mgManifest = pMgManifest_     , _mgDeployment = pMgDeployment_@@ -102,7 +102,12 @@  instance GoogleRequest ManifestsGet where         type Rs ManifestsGet = Manifest-        requestClient ManifestsGet{..}+        type Scopes ManifestsGet =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.cloudman",+               "https://www.googleapis.com/auth/ndev.cloudman.readonly"]+        requestClient ManifestsGet'{..}           = go _mgProject _mgDeployment _mgManifest               (Just AltJSON)               deploymentManagerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Manifests.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@@ -63,7 +63,7 @@ -- | Lists all manifests for a given deployment. -- -- /See:/ 'manifestsList' smart constructor.-data ManifestsList = ManifestsList+data ManifestsList = ManifestsList'     { _mlProject    :: !Text     , _mlFilter     :: !(Maybe Text)     , _mlPageToken  :: !(Maybe Text)@@ -89,7 +89,7 @@     -> Text -- ^ 'mlDeployment'     -> ManifestsList manifestsList pMlProject_ pMlDeployment_ =-    ManifestsList+    ManifestsList'     { _mlProject = pMlProject_     , _mlFilter = Nothing     , _mlPageToken = Nothing@@ -103,27 +103,39 @@   = lens _mlProject (\ s a -> s{_mlProject = a})  -- | Sets a filter expression for filtering listed resources, in the form--- filter={expression}. Your {expression} must be in the format: FIELD_NAME--- COMPARISON_STRING LITERAL_STRING. The FIELD_NAME is the name of the+-- filter={expression}. Your {expression} must be in the format: field_name+-- comparison_string literal_string. The field_name is the name of the -- field you want to compare. Only atomic field types are supported--- (string, number, boolean). The COMPARISON_STRING must be either eq--- (equals) or ne (not equals). The LITERAL_STRING is the string value to--- filter to. The literal value must be valid for the type of field--- (string, number, boolean). For string fields, the literal value is--- interpreted as a regular expression using RE2 syntax. The literal value--- must match the entire field. For example, filter=name ne--- example-instance.+-- (string, number, boolean). The comparison_string must be either eq+-- (equals) or ne (not equals). The literal_string is the string value to+-- filter to. The literal value must be valid for the type of field you are+-- filtering by (string, number, boolean). For string fields, the literal+-- value is interpreted as a regular expression using RE2 syntax. The+-- literal value must match the entire field. For example, to filter for+-- instances that do not have a name of example-instance, you would use+-- filter=name ne example-instance. Compute Engine Beta API Only: When+-- filtering in the Beta API, you can also filter on nested fields. For+-- example, you could filter on instances that have set the+-- scheduling.automaticRestart field to true. Use filtering on nested+-- fields to take advantage of labels to organize and search for results+-- based on label values. The Beta API also supports filtering on multiple+-- expressions by providing each separate expression within parentheses.+-- For example, (scheduling.automaticRestart eq true) (zone eq+-- us-central1-f). Multiple expressions are treated as AND expressions,+-- meaning that resources must match all expressions to pass the filters. mlFilter :: Lens' ManifestsList (Maybe Text) mlFilter = lens _mlFilter (\ s a -> s{_mlFilter = a}) --- | Specifies a page token to use. Use this parameter if you want to list--- the next page of results. Set pageToken to the nextPageToken returned by--- a previous list request.+-- | Specifies a page token to use. Set pageToken to the nextPageToken+-- returned by a previous list request to get the next page of results. mlPageToken :: Lens' ManifestsList (Maybe Text) mlPageToken   = lens _mlPageToken (\ s a -> s{_mlPageToken = a}) --- | Maximum count of results to be returned.+-- | The maximum number of results per page that should be returned. If the+-- number of available results is larger than maxResults, Compute Engine+-- returns a nextPageToken that can be used to get the next page of results+-- in subsequent list requests. mlMaxResults :: Lens' ManifestsList Word32 mlMaxResults   = lens _mlMaxResults (\ s a -> s{_mlMaxResults = a})@@ -136,7 +148,12 @@  instance GoogleRequest ManifestsList where         type Rs ManifestsList = ManifestsListResponse-        requestClient ManifestsList{..}+        type Scopes ManifestsList =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.cloudman",+               "https://www.googleapis.com/auth/ndev.cloudman.readonly"]+        requestClient ManifestsList'{..}           = go _mlProject _mlDeployment _mlFilter _mlPageToken               (Just _mlMaxResults)               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Operations.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@@ -55,7 +55,7 @@ -- | Gets information about a specific operation. -- -- /See:/ 'operationsGet' smart constructor.-data OperationsGet = OperationsGet+data OperationsGet = OperationsGet'     { _ogProject   :: !Text     , _ogOperation :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'ogOperation'     -> OperationsGet operationsGet pOgProject_ pOgOperation_ =-    OperationsGet+    OperationsGet'     { _ogProject = pOgProject_     , _ogOperation = pOgOperation_     }@@ -89,7 +89,12 @@  instance GoogleRequest OperationsGet where         type Rs OperationsGet = Operation-        requestClient OperationsGet{..}+        type Scopes OperationsGet =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.cloudman",+               "https://www.googleapis.com/auth/ndev.cloudman.readonly"]+        requestClient OperationsGet'{..}           = go _ogProject _ogOperation (Just AltJSON)               deploymentManagerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Operations.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@@ -60,7 +60,7 @@ -- | Lists all operations for a project. -- -- /See:/ 'operationsList' smart constructor.-data OperationsList = OperationsList+data OperationsList = OperationsList'     { _olProject    :: !Text     , _olFilter     :: !(Maybe Text)     , _olPageToken  :: !(Maybe Text)@@ -82,7 +82,7 @@     :: Text -- ^ 'olProject'     -> OperationsList operationsList pOlProject_ =-    OperationsList+    OperationsList'     { _olProject = pOlProject_     , _olFilter = Nothing     , _olPageToken = Nothing@@ -95,27 +95,39 @@   = lens _olProject (\ s a -> s{_olProject = a})  -- | Sets a filter expression for filtering listed resources, in the form--- filter={expression}. Your {expression} must be in the format: FIELD_NAME--- COMPARISON_STRING LITERAL_STRING. The FIELD_NAME is the name of the+-- filter={expression}. Your {expression} must be in the format: field_name+-- comparison_string literal_string. The field_name is the name of the -- field you want to compare. Only atomic field types are supported--- (string, number, boolean). The COMPARISON_STRING must be either eq--- (equals) or ne (not equals). The LITERAL_STRING is the string value to--- filter to. The literal value must be valid for the type of field--- (string, number, boolean). For string fields, the literal value is--- interpreted as a regular expression using RE2 syntax. The literal value--- must match the entire field. For example, filter=name ne--- example-instance.+-- (string, number, boolean). The comparison_string must be either eq+-- (equals) or ne (not equals). The literal_string is the string value to+-- filter to. The literal value must be valid for the type of field you are+-- filtering by (string, number, boolean). For string fields, the literal+-- value is interpreted as a regular expression using RE2 syntax. The+-- literal value must match the entire field. For example, to filter for+-- instances that do not have a name of example-instance, you would use+-- filter=name ne example-instance. Compute Engine Beta API Only: When+-- filtering in the Beta API, you can also filter on nested fields. For+-- example, you could filter on instances that have set the+-- scheduling.automaticRestart field to true. Use filtering on nested+-- fields to take advantage of labels to organize and search for results+-- based on label values. The Beta API also supports filtering on multiple+-- expressions by providing each separate expression within parentheses.+-- For example, (scheduling.automaticRestart eq true) (zone eq+-- us-central1-f). Multiple expressions are treated as AND expressions,+-- meaning that resources must match all expressions to pass the filters. olFilter :: Lens' OperationsList (Maybe Text) olFilter = lens _olFilter (\ s a -> s{_olFilter = a}) --- | Specifies a page token to use. Use this parameter if you want to list--- the next page of results. Set pageToken to the nextPageToken returned by--- a previous list request.+-- | Specifies a page token to use. Set pageToken to the nextPageToken+-- returned by a previous list request to get the next page of results. olPageToken :: Lens' OperationsList (Maybe Text) olPageToken   = lens _olPageToken (\ s a -> s{_olPageToken = a}) --- | Maximum count of results to be returned.+-- | The maximum number of results per page that should be returned. If the+-- number of available results is larger than maxResults, Compute Engine+-- returns a nextPageToken that can be used to get the next page of results+-- in subsequent list requests. olMaxResults :: Lens' OperationsList Word32 olMaxResults   = lens _olMaxResults (\ s a -> s{_olMaxResults = a})@@ -123,7 +135,12 @@  instance GoogleRequest OperationsList where         type Rs OperationsList = OperationsListResponse-        requestClient OperationsList{..}+        type Scopes OperationsList =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.cloudman",+               "https://www.googleapis.com/auth/ndev.cloudman.readonly"]+        requestClient OperationsList'{..}           = go _olProject _olFilter _olPageToken               (Just _olMaxResults)               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Resources.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@@ -58,7 +58,7 @@ -- | Gets information about a single resource. -- -- /See:/ 'resourcesGet' smart constructor.-data ResourcesGet = ResourcesGet+data ResourcesGet = ResourcesGet'     { _rgProject    :: !Text     , _rgResource   :: !Text     , _rgDeployment :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'rgDeployment'     -> ResourcesGet resourcesGet pRgProject_ pRgResource_ pRgDeployment_ =-    ResourcesGet+    ResourcesGet'     { _rgProject = pRgProject_     , _rgResource = pRgResource_     , _rgDeployment = pRgDeployment_@@ -102,7 +102,12 @@  instance GoogleRequest ResourcesGet where         type Rs ResourcesGet = Resource-        requestClient ResourcesGet{..}+        type Scopes ResourcesGet =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.cloudman",+               "https://www.googleapis.com/auth/ndev.cloudman.readonly"]+        requestClient ResourcesGet'{..}           = go _rgProject _rgDeployment _rgResource               (Just AltJSON)               deploymentManagerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Resources.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@@ -63,7 +63,7 @@ -- | Lists all resources in a given deployment. -- -- /See:/ 'resourcesList' smart constructor.-data ResourcesList = ResourcesList+data ResourcesList = ResourcesList'     { _rlProject    :: !Text     , _rlFilter     :: !(Maybe Text)     , _rlPageToken  :: !(Maybe Text)@@ -89,7 +89,7 @@     -> Text -- ^ 'rlDeployment'     -> ResourcesList resourcesList pRlProject_ pRlDeployment_ =-    ResourcesList+    ResourcesList'     { _rlProject = pRlProject_     , _rlFilter = Nothing     , _rlPageToken = Nothing@@ -103,27 +103,39 @@   = lens _rlProject (\ s a -> s{_rlProject = a})  -- | Sets a filter expression for filtering listed resources, in the form--- filter={expression}. Your {expression} must be in the format: FIELD_NAME--- COMPARISON_STRING LITERAL_STRING. The FIELD_NAME is the name of the+-- filter={expression}. Your {expression} must be in the format: field_name+-- comparison_string literal_string. The field_name is the name of the -- field you want to compare. Only atomic field types are supported--- (string, number, boolean). The COMPARISON_STRING must be either eq--- (equals) or ne (not equals). The LITERAL_STRING is the string value to--- filter to. The literal value must be valid for the type of field--- (string, number, boolean). For string fields, the literal value is--- interpreted as a regular expression using RE2 syntax. The literal value--- must match the entire field. For example, filter=name ne--- example-instance.+-- (string, number, boolean). The comparison_string must be either eq+-- (equals) or ne (not equals). The literal_string is the string value to+-- filter to. The literal value must be valid for the type of field you are+-- filtering by (string, number, boolean). For string fields, the literal+-- value is interpreted as a regular expression using RE2 syntax. The+-- literal value must match the entire field. For example, to filter for+-- instances that do not have a name of example-instance, you would use+-- filter=name ne example-instance. Compute Engine Beta API Only: When+-- filtering in the Beta API, you can also filter on nested fields. For+-- example, you could filter on instances that have set the+-- scheduling.automaticRestart field to true. Use filtering on nested+-- fields to take advantage of labels to organize and search for results+-- based on label values. The Beta API also supports filtering on multiple+-- expressions by providing each separate expression within parentheses.+-- For example, (scheduling.automaticRestart eq true) (zone eq+-- us-central1-f). Multiple expressions are treated as AND expressions,+-- meaning that resources must match all expressions to pass the filters. rlFilter :: Lens' ResourcesList (Maybe Text) rlFilter = lens _rlFilter (\ s a -> s{_rlFilter = a}) --- | Specifies a page token to use. Use this parameter if you want to list--- the next page of results. Set pageToken to the nextPageToken returned by--- a previous list request.+-- | Specifies a page token to use. Set pageToken to the nextPageToken+-- returned by a previous list request to get the next page of results. rlPageToken :: Lens' ResourcesList (Maybe Text) rlPageToken   = lens _rlPageToken (\ s a -> s{_rlPageToken = a}) --- | Maximum count of results to be returned.+-- | The maximum number of results per page that should be returned. If the+-- number of available results is larger than maxResults, Compute Engine+-- returns a nextPageToken that can be used to get the next page of results+-- in subsequent list requests. rlMaxResults :: Lens' ResourcesList Word32 rlMaxResults   = lens _rlMaxResults (\ s a -> s{_rlMaxResults = a})@@ -136,7 +148,12 @@  instance GoogleRequest ResourcesList where         type Rs ResourcesList = ResourcesListResponse-        requestClient ResourcesList{..}+        type Scopes ResourcesList =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.cloudman",+               "https://www.googleapis.com/auth/ndev.cloudman.readonly"]+        requestClient ResourcesList'{..}           = go _rlProject _rlDeployment _rlFilter _rlPageToken               (Just _rlMaxResults)               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.DeploymentManager.Types.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@@ -60,7 +60,7 @@ -- | Lists all resource types for Deployment Manager. -- -- /See:/ 'typesList' smart constructor.-data TypesList = TypesList+data TypesList = TypesList'     { _tlProject    :: !Text     , _tlFilter     :: !(Maybe Text)     , _tlPageToken  :: !(Maybe Text)@@ -82,7 +82,7 @@     :: Text -- ^ 'tlProject'     -> TypesList typesList pTlProject_ =-    TypesList+    TypesList'     { _tlProject = pTlProject_     , _tlFilter = Nothing     , _tlPageToken = Nothing@@ -95,27 +95,39 @@   = lens _tlProject (\ s a -> s{_tlProject = a})  -- | Sets a filter expression for filtering listed resources, in the form--- filter={expression}. Your {expression} must be in the format: FIELD_NAME--- COMPARISON_STRING LITERAL_STRING. The FIELD_NAME is the name of the+-- filter={expression}. Your {expression} must be in the format: field_name+-- comparison_string literal_string. The field_name is the name of the -- field you want to compare. Only atomic field types are supported--- (string, number, boolean). The COMPARISON_STRING must be either eq--- (equals) or ne (not equals). The LITERAL_STRING is the string value to--- filter to. The literal value must be valid for the type of field--- (string, number, boolean). For string fields, the literal value is--- interpreted as a regular expression using RE2 syntax. The literal value--- must match the entire field. For example, filter=name ne--- example-instance.+-- (string, number, boolean). The comparison_string must be either eq+-- (equals) or ne (not equals). The literal_string is the string value to+-- filter to. The literal value must be valid for the type of field you are+-- filtering by (string, number, boolean). For string fields, the literal+-- value is interpreted as a regular expression using RE2 syntax. The+-- literal value must match the entire field. For example, to filter for+-- instances that do not have a name of example-instance, you would use+-- filter=name ne example-instance. Compute Engine Beta API Only: When+-- filtering in the Beta API, you can also filter on nested fields. For+-- example, you could filter on instances that have set the+-- scheduling.automaticRestart field to true. Use filtering on nested+-- fields to take advantage of labels to organize and search for results+-- based on label values. The Beta API also supports filtering on multiple+-- expressions by providing each separate expression within parentheses.+-- For example, (scheduling.automaticRestart eq true) (zone eq+-- us-central1-f). Multiple expressions are treated as AND expressions,+-- meaning that resources must match all expressions to pass the filters. tlFilter :: Lens' TypesList (Maybe Text) tlFilter = lens _tlFilter (\ s a -> s{_tlFilter = a}) --- | Specifies a page token to use. Use this parameter if you want to list--- the next page of results. Set pageToken to the nextPageToken returned by--- a previous list request.+-- | Specifies a page token to use. Set pageToken to the nextPageToken+-- returned by a previous list request to get the next page of results. tlPageToken :: Lens' TypesList (Maybe Text) tlPageToken   = lens _tlPageToken (\ s a -> s{_tlPageToken = a}) --- | Maximum count of results to be returned.+-- | The maximum number of results per page that should be returned. If the+-- number of available results is larger than maxResults, Compute Engine+-- returns a nextPageToken that can be used to get the next page of results+-- in subsequent list requests. tlMaxResults :: Lens' TypesList Word32 tlMaxResults   = lens _tlMaxResults (\ s a -> s{_tlMaxResults = a})@@ -123,7 +135,12 @@  instance GoogleRequest TypesList where         type Rs TypesList = TypesListResponse-        requestClient TypesList{..}+        type Scopes TypesList =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/ndev.cloudman",+               "https://www.googleapis.com/auth/ndev.cloudman.readonly"]+        requestClient TypesList'{..}           = go _tlProject _tlFilter _tlPageToken               (Just _tlMaxResults)               (Just AltJSON)

@@ -1,5 +1,5 @@ name:                  gogol-deploymentmanager-version:               0.0.1+version:               0.1.0 synopsis:              Google Cloud Deployment Manager SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -7,15 +7,15 @@ 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 extra-source-files:    README.md  description:-    The Deployment Manager API allows users to declaratively configure,-    deploy and run complex solutions on the Google Cloud Platform.+    Declares, configures, and deploys complex solutions on Google Cloud+    Platform.     .     /Warning:/ This is an experimental prototype/preview release which is still     under exploratory development and not intended for public use, caveat emptor!@@ -57,5 +57,5 @@         , Network.Google.DeploymentManager.Types.Sum      build-depends:-          gogol-core == 0.0.1.*+          gogol-core == 0.1.0.*         , base       >= 4.7 && < 5