gogol-deploymentmanager 0.3.0 → 0.4.0

raw patch · 14 files changed

+702/−231 lines, 14 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• gen/Network/Google/DeploymentManager.hs +39/−0
• gen/Network/Google/DeploymentManager/Types.hs +39/−0
• gen/Network/Google/DeploymentManager/Types/Product.hs +472/−108
• gen/Network/Google/DeploymentManager/Types/Sum.hs +28/−1
• gen/Network/Google/Resource/DeploymentManager/Deployments/GetIAMPolicy.hs +1/−1
• gen/Network/Google/Resource/DeploymentManager/Deployments/Insert.hs +24/−8
• gen/Network/Google/Resource/DeploymentManager/Deployments/List.hs +18/−21
• gen/Network/Google/Resource/DeploymentManager/Deployments/SetIAMPolicy.hs +6/−5
• gen/Network/Google/Resource/DeploymentManager/Deployments/TestIAMPermissions.hs +1/−1
• gen/Network/Google/Resource/DeploymentManager/Manifests/List.hs +18/−21
• gen/Network/Google/Resource/DeploymentManager/Operations/List.hs +18/−21
• gen/Network/Google/Resource/DeploymentManager/Resources/List.hs +18/−21
• gen/Network/Google/Resource/DeploymentManager/Types/List.hs +18/−21
• gogol-deploymentmanager.cabal +2/−2

@@ -110,6 +110,14 @@     -- ** DeploymentsUpdateCreatePolicy     , DeploymentsUpdateCreatePolicy (..) +    -- ** Expr+    , Expr+    , expr+    , eLocation+    , eExpression+    , eTitle+    , eDescription+     -- ** OperationsListResponse     , OperationsListResponse     , operationsListResponse@@ -189,6 +197,7 @@     , deploymentUpdate     , duManifest     , duLabels+    , duDescription      -- ** ResourceUpdate     , ResourceUpdate@@ -248,6 +257,12 @@     , deploymentsCancelPreviewRequest     , dcprFingerprint +    -- ** LogConfigCloudAuditOptions+    , LogConfigCloudAuditOptions+    , logConfigCloudAuditOptions+    , lccaoAuthorizationLoggingOptions+    , lccaoLogName+     -- ** Resource     , Resource     , resource@@ -264,6 +279,11 @@     , rUpdate     , rProperties +    -- ** LogConfigDataAccessOptions+    , LogConfigDataAccessOptions+    , logConfigDataAccessOptions+    , lcdaoLogMode+     -- ** DeploymentUpdateLabelEntry     , DeploymentUpdateLabelEntry     , deploymentUpdateLabelEntry@@ -288,6 +308,18 @@     , operationError     , oeErrors +    -- ** GlobalSetPolicyRequest+    , GlobalSetPolicyRequest+    , globalSetPolicyRequest+    , gsprEtag+    , gsprBindings+    , gsprPolicy++    -- ** AuthorizationLoggingOptions+    , AuthorizationLoggingOptions+    , authorizationLoggingOptions+    , aloPermissionType+     -- ** Policy     , Policy     , policy@@ -368,6 +400,8 @@     -- ** LogConfig     , LogConfig     , logConfig+    , lcCloudAudit+    , lcDataAccess     , lcCounter      -- ** ResourceAccessControl@@ -393,6 +427,7 @@     , binding     , bMembers     , bRole+    , bCondition      -- ** Deployment     , Deployment@@ -400,6 +435,7 @@     , dInsertTime     , dOperation     , dFingerprint+    , dUpdateTime     , dSelfLink     , dName     , dManifest@@ -408,6 +444,9 @@     , dDescription     , dUpdate     , dTarget++    -- ** DeploymentsInsertCreatePolicy+    , DeploymentsInsertCreatePolicy (..)     ) where  import           Network.Google.DeploymentManager.Types

@@ -46,6 +46,14 @@     -- * DeploymentsUpdateCreatePolicy     , DeploymentsUpdateCreatePolicy (..) +    -- * Expr+    , Expr+    , expr+    , eLocation+    , eExpression+    , eTitle+    , eDescription+     -- * OperationsListResponse     , OperationsListResponse     , operationsListResponse@@ -125,6 +133,7 @@     , deploymentUpdate     , duManifest     , duLabels+    , duDescription      -- * ResourceUpdate     , ResourceUpdate@@ -184,6 +193,12 @@     , deploymentsCancelPreviewRequest     , dcprFingerprint +    -- * LogConfigCloudAuditOptions+    , LogConfigCloudAuditOptions+    , logConfigCloudAuditOptions+    , lccaoAuthorizationLoggingOptions+    , lccaoLogName+     -- * Resource     , Resource     , resource@@ -200,6 +215,11 @@     , rUpdate     , rProperties +    -- * LogConfigDataAccessOptions+    , LogConfigDataAccessOptions+    , logConfigDataAccessOptions+    , lcdaoLogMode+     -- * DeploymentUpdateLabelEntry     , DeploymentUpdateLabelEntry     , deploymentUpdateLabelEntry@@ -224,6 +244,18 @@     , operationError     , oeErrors +    -- * GlobalSetPolicyRequest+    , GlobalSetPolicyRequest+    , globalSetPolicyRequest+    , gsprEtag+    , gsprBindings+    , gsprPolicy++    -- * AuthorizationLoggingOptions+    , AuthorizationLoggingOptions+    , authorizationLoggingOptions+    , aloPermissionType+     -- * Policy     , Policy     , policy@@ -304,6 +336,8 @@     -- * LogConfig     , LogConfig     , logConfig+    , lcCloudAudit+    , lcDataAccess     , lcCounter      -- * ResourceAccessControl@@ -329,6 +363,7 @@     , binding     , bMembers     , bRole+    , bCondition      -- * Deployment     , Deployment@@ -336,6 +371,7 @@     , dInsertTime     , dOperation     , dFingerprint+    , dUpdateTime     , dSelfLink     , dName     , dManifest@@ -344,6 +380,9 @@     , dDescription     , dUpdate     , dTarget++    -- * DeploymentsInsertCreatePolicy+    , DeploymentsInsertCreatePolicy (..)     ) where  import           Network.Google.DeploymentManager.Types.Product

@@ -104,8 +104,23 @@         toJSON ConfigFile'{..}           = object (catMaybes [("content" .=) <$> _cfContent]) --- | Provides the configuration for non-admin_activity logging for a service.--- Controls exemptions and specific log sub-types.+-- | Specifies the audit configuration for a service. The configuration+-- determines which permission types are logged, and what identities, if+-- any, are exempted from logging. An AuditConfig must have one or more+-- AuditLogConfigs. If there are AuditConfigs for both \`allServices\` and+-- a specific service, the union of the two AuditConfigs is used for that+-- service: the log_types specified in each AuditConfig are enabled, and+-- the exempted_members in each AuditLogConfig are exempted. Example Policy+-- with multiple AuditConfigs: { \"audit_configs\": [ { \"service\":+-- \"allServices\" \"audit_log_configs\": [ { \"log_type\": \"DATA_READ\",+-- \"exempted_members\": [ \"user:foo\'gmail.com\" ] }, { \"log_type\":+-- \"DATA_WRITE\", }, { \"log_type\": \"ADMIN_READ\", } ] }, { \"service\":+-- \"fooservice.googleapis.com\" \"audit_log_configs\": [ { \"log_type\":+-- \"DATA_READ\", }, { \"log_type\": \"DATA_WRITE\", \"exempted_members\":+-- [ \"user:bar\'gmail.com\" ] } ] } ] } For fooservice, this policy+-- enables DATA_READ, DATA_WRITE and ADMIN_READ logging. It also exempts+-- foo\'gmail.com from DATA_READ logging, and bar\'gmail.com from+-- DATA_WRITE logging. -- -- /See:/ 'auditConfig' smart constructor. data AuditConfig = AuditConfig'@@ -133,13 +148,13 @@     }  -- | Specifies a service that will be enabled for audit logging. For example,--- \`resourcemanager\`, \`storage\`, \`compute\`. \`allServices\` is a--- special value that covers all services.+-- \`storage.googleapis.com\`, \`cloudsql.googleapis.com\`. \`allServices\`+-- is a special value that covers all services. acService :: Lens' AuditConfig (Maybe Text) acService   = lens _acService (\ s a -> s{_acService = a}) --- | The configuration for each type of logging+-- | The configuration for logging of each type of permission. acAuditLogConfigs :: Lens' AuditConfig [AuditLogConfig] acAuditLogConfigs   = lens _acAuditLogConfigs@@ -147,9 +162,7 @@       . _Default       . _Coerce --- | Specifies the identities that are exempted from \"data access\" audit--- logging for the \`service\` specified above. Follows the same format of--- Binding.members.+-- | acExemptedMembers :: Lens' AuditConfig [Text] acExemptedMembers   = lens _acExemptedMembers@@ -174,6 +187,82 @@                   ("auditLogConfigs" .=) <$> _acAuditLogConfigs,                   ("exemptedMembers" .=) <$> _acExemptedMembers]) +-- | Represents an expression text. Example: title: \"User account presence\"+-- description: \"Determines whether the request has a user account\"+-- expression: \"size(request.user) > 0\"+--+-- /See:/ 'expr' smart constructor.+data Expr = Expr'+    { _eLocation    :: !(Maybe Text)+    , _eExpression  :: !(Maybe Text)+    , _eTitle       :: !(Maybe Text)+    , _eDescription :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'Expr' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eLocation'+--+-- * 'eExpression'+--+-- * 'eTitle'+--+-- * 'eDescription'+expr+    :: Expr+expr =+    Expr'+    { _eLocation = Nothing+    , _eExpression = Nothing+    , _eTitle = Nothing+    , _eDescription = Nothing+    }++-- | An optional string indicating the location of the expression for error+-- reporting, e.g. a file name and a position in the file.+eLocation :: Lens' Expr (Maybe Text)+eLocation+  = lens _eLocation (\ s a -> s{_eLocation = a})++-- | Textual representation of an expression in Common Expression Language+-- syntax. The application context of the containing message determines+-- which well-known feature set of CEL is supported.+eExpression :: Lens' Expr (Maybe Text)+eExpression+  = lens _eExpression (\ s a -> s{_eExpression = a})++-- | An optional title for the expression, i.e. a short string describing its+-- purpose. This can be used e.g. in UIs which allow to enter the+-- expression.+eTitle :: Lens' Expr (Maybe Text)+eTitle = lens _eTitle (\ s a -> s{_eTitle = a})++-- | An optional description of the expression. This is a longer text which+-- describes the expression, e.g. when hovered over it in a UI.+eDescription :: Lens' Expr (Maybe Text)+eDescription+  = lens _eDescription (\ s a -> s{_eDescription = a})++instance FromJSON Expr where+        parseJSON+          = withObject "Expr"+              (\ o ->+                 Expr' <$>+                   (o .:? "location") <*> (o .:? "expression") <*>+                     (o .:? "title")+                     <*> (o .:? "description"))++instance ToJSON Expr where+        toJSON Expr'{..}+          = object+              (catMaybes+                 [("location" .=) <$> _eLocation,+                  ("expression" .=) <$> _eExpression,+                  ("title" .=) <$> _eTitle,+                  ("description" .=) <$> _eDescription])+ -- | A response containing a partial list of operations and a page token used -- to build the next request if the request has been truncated. --@@ -198,13 +287,13 @@     , _olrOperations = Nothing     } --- | [Output Only] A token used to continue a truncated list request.+-- | Output only. A token used to continue a truncated list request. olrNextPageToken :: Lens' OperationsListResponse (Maybe Text) olrNextPageToken   = lens _olrNextPageToken       (\ s a -> s{_olrNextPageToken = a}) --- | [Output Only] Operations contained in this list response.+-- | Output only. Operations contained in this list response. olrOperations :: Lens' OperationsListResponse [Operation] olrOperations   = lens _olrOperations@@ -310,7 +399,7 @@   = lens _tlrNextPageToken       (\ s a -> s{_tlrNextPageToken = a}) --- | [Output Only] A list of resource types supported by Deployment Manager.+-- | Output only. A list of resource types supported by Deployment Manager. tlrTypes :: Lens' TypesListResponse [Type] tlrTypes   = lens _tlrTypes (\ s a -> s{_tlrTypes = a}) .@@ -332,7 +421,22 @@                  [("nextPageToken" .=) <$> _tlrNextPageToken,                   ("types" .=) <$> _tlrTypes]) --- | Options for counters+-- | Increment a streamz counter with the specified metric and field names.+-- Metric names should start with a \'\/\', generally be lowercase-only,+-- and end in \"_count\". Field names should not contain an initial slash.+-- The actual exported metric names will have \"\/iam\/policy\" prepended.+-- Field names correspond to IAM request parameters and field values are+-- their respective values. Supported field names: - \"authority\", which+-- is \"[token]\" if IAMContext.token is present, otherwise the value of+-- IAMContext.authority_selector if present, and otherwise a representation+-- of IAMContext.principal; or - \"iam_principal\", a representation of+-- IAMContext.principal even if a token or authority selector is present;+-- or - \"\" (empty string), resulting in a counter with no fields.+-- Examples: counter { metric: \"\/debug_access_count\" field:+-- \"iam_principal\" } ==> increment counter+-- \/iam\/policy\/backend_debug_access_count {iam_principal=[value of+-- IAMContext.principal]} At this time we do not support multiple field+-- names (though this may be supported in the future). -- -- /See:/ 'logConfigCounterOptions' smart constructor. data LogConfigCounterOptions = LogConfigCounterOptions'@@ -379,7 +483,11 @@                  [("field" .=) <$> _lccoField,                   ("metric" .=) <$> _lccoMetric]) --- | An Operation resource, used to manage asynchronous API requests.+-- | An Operation resource, used to manage asynchronous API requests. (==+-- resource_for v1.globalOperations ==) (== resource_for+-- beta.globalOperations ==) (== resource_for v1.regionOperations ==) (==+-- resource_for beta.regionOperations ==) (== resource_for+-- v1.zoneOperations ==) (== resource_for beta.zoneOperations ==) -- -- /See:/ 'operation' smart constructor. data Operation = Operation'@@ -538,7 +646,9 @@       (\ s a -> s{_oHTTPErrorMessage = a})  -- | [Output Only] The URL of the zone where the operation resides. Only--- available when performing per-zone operations.+-- available when performing per-zone operations. You must specify this+-- field as part of the HTTP request URL. It is not settable as a field in+-- the request body. oZone :: Lens' Operation (Maybe Text) oZone = lens _oZone (\ s a -> s{_oZone = a}) @@ -580,7 +690,7 @@   = lens _oStatusMessage       (\ s a -> s{_oStatusMessage = a}) --- | [Output Only] Creation timestamp in RFC3339 text format.+-- | [Deprecated] This field is deprecated. oCreationTimestamp :: Lens' Operation (Maybe Text) oCreationTimestamp   = lens _oCreationTimestamp@@ -605,7 +715,9 @@       (\ s a -> s{_oOperationType = a})  -- | [Output Only] The URL of the region where the operation resides. Only--- available when performing regional operations.+-- available when performing regional operations. You must specify this+-- field as part of the HTTP request URL. It is not settable as a field in+-- the request body. oRegion :: Lens' Operation (Maybe Text) oRegion = lens _oRegion (\ s a -> s{_oRegion = a}) @@ -622,7 +734,8 @@ oTargetLink   = lens _oTargetLink (\ s a -> s{_oTargetLink = a}) --- | [Output Only] Reserved for future use.+-- | [Output Only] The value of \`requestId\` if you provided it in the+-- request. Not present otherwise. oClientOperationId :: Lens' Operation (Maybe Text) oClientOperationId   = lens _oClientOperationId@@ -777,8 +890,9 @@ -- -- /See:/ 'deploymentUpdate' smart constructor. data DeploymentUpdate = DeploymentUpdate'-    { _duManifest :: !(Maybe Text)-    , _duLabels   :: !(Maybe [DeploymentUpdateLabelEntry])+    { _duManifest    :: !(Maybe Text)+    , _duLabels      :: !(Maybe [DeploymentUpdateLabelEntry])+    , _duDescription :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeploymentUpdate' with the minimum fields required to make a request.@@ -788,21 +902,24 @@ -- * 'duManifest' -- -- * 'duLabels'+--+-- * 'duDescription' deploymentUpdate     :: DeploymentUpdate deploymentUpdate =     DeploymentUpdate'     { _duManifest = Nothing     , _duLabels = Nothing+    , _duDescription = Nothing     } --- | [Output Only] URL of the manifest representing the update configuration+-- | Output only. URL of the manifest representing the update configuration -- of this deployment. duManifest :: Lens' DeploymentUpdate (Maybe Text) duManifest   = lens _duManifest (\ s a -> s{_duManifest = a}) --- | [Output Only] Map of labels; provided by the client when the resource is+-- | 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@@ -814,19 +931,28 @@       _Default       . _Coerce +-- | Output only. An optional user-provided description of the deployment+-- after the current update has been applied.+duDescription :: Lens' DeploymentUpdate (Maybe Text)+duDescription+  = lens _duDescription+      (\ s a -> s{_duDescription = a})+ instance FromJSON DeploymentUpdate where         parseJSON           = withObject "DeploymentUpdate"               (\ o ->                  DeploymentUpdate' <$>-                   (o .:? "manifest") <*> (o .:? "labels" .!= mempty))+                   (o .:? "manifest") <*> (o .:? "labels" .!= mempty)+                     <*> (o .:? "description"))  instance ToJSON DeploymentUpdate where         toJSON DeploymentUpdate'{..}           = object               (catMaybes                  [("manifest" .=) <$> _duManifest,-                  ("labels" .=) <$> _duLabels])+                  ("labels" .=) <$> _duLabels,+                  ("description" .=) <$> _duDescription])  -- | --@@ -875,12 +1001,12 @@     , _ruProperties = Nothing     } --- | [Output Only] The state of the resource.+-- | Output only. The state of the resource. ruState :: Lens' ResourceUpdate (Maybe Text) ruState = lens _ruState (\ s a -> s{_ruState = a}) --- | [Output Only] If errors are generated during update of the resource,--- this field will be populated.+-- | Output only. If errors are generated during update of the resource, this+-- field will be populated. ruError :: Lens' ResourceUpdate (Maybe ResourceUpdateError) ruError = lens _ruError (\ s a -> s{_ruError = a}) @@ -891,32 +1017,32 @@   = lens _ruAccessControl       (\ s a -> s{_ruAccessControl = a}) --- | [Output Only] If warning messages are generated during processing of--- this resource, this field will be populated.+-- | Output only. If warning messages are generated during processing of this+-- resource, this field will be populated. ruWarnings :: Lens' ResourceUpdate [ResourceUpdateWarningsItem] ruWarnings   = lens _ruWarnings (\ s a -> s{_ruWarnings = a}) .       _Default       . _Coerce --- | [Output Only] The intent of the resource: PREVIEW, UPDATE, or CANCEL.+-- | Output only. The intent of the resource: PREVIEW, UPDATE, or CANCEL. ruIntent :: Lens' ResourceUpdate (Maybe Text) ruIntent = lens _ruIntent (\ s a -> s{_ruIntent = a}) --- | [Output Only] URL of the manifest representing the update configuration+-- | Output only. URL of the manifest representing the update configuration -- of this resource. ruManifest :: Lens' ResourceUpdate (Maybe Text) ruManifest   = lens _ruManifest (\ s a -> s{_ruManifest = a}) --- | [Output Only] The expanded properties of the resource with reference+-- | Output only. The expanded properties of the resource with reference -- values expanded. Returned as serialized YAML. ruFinalProperties :: Lens' ResourceUpdate (Maybe Text) ruFinalProperties   = lens _ruFinalProperties       (\ s a -> s{_ruFinalProperties = a}) --- | [Output Only] The set of updated properties for this resource, before+-- | Output only. The set of updated properties for this resource, before -- references are expanded. Returned as serialized YAML. ruProperties :: Lens' ResourceUpdate (Maybe Text) ruProperties@@ -1058,7 +1184,8 @@       _Default       . _Coerce --- | Additional restrictions that must be met+-- | Additional restrictions that must be met. All conditions must pass for+-- the rule to match. rConditions :: Lens' Rule [Condition] rConditions   = lens _rConditions (\ s a -> s{_rConditions = a}) .@@ -1187,44 +1314,42 @@     , _mId = Nothing     } --- | [Output Only] Timestamp when the manifest was created, in RFC3339 text--- format.+-- | Output only. Creation timestamp in RFC3339 text format. mInsertTime :: Lens' Manifest (Maybe Text) mInsertTime   = lens _mInsertTime (\ s a -> s{_mInsertTime = a}) --- | [Output Only] The YAML layout for this manifest.+-- | Output only. The YAML layout for this manifest. mLayout :: Lens' Manifest (Maybe Text) mLayout = lens _mLayout (\ s a -> s{_mLayout = a}) --- | [Output Only] The YAML configuration for this manifest.+-- | Output only. The YAML configuration for this manifest. mConfig :: Lens' Manifest (Maybe ConfigFile) mConfig = lens _mConfig (\ s a -> s{_mConfig = a}) --- | [Output Only] The fully-expanded configuration file, including any+-- | Output only. The fully-expanded configuration file, including any -- templates and references. mExpandedConfig :: Lens' Manifest (Maybe Text) mExpandedConfig   = lens _mExpandedConfig       (\ s a -> s{_mExpandedConfig = a}) --- | [Output Only] The imported files for this manifest.+-- | Output only. The imported files for this manifest. mImports :: Lens' Manifest [ImportFile] mImports   = lens _mImports (\ s a -> s{_mImports = a}) .       _Default       . _Coerce --- | [Output Only] Self link for the manifest.+-- | Output only. Self link for the manifest. mSelfLink :: Lens' Manifest (Maybe Text) mSelfLink   = lens _mSelfLink (\ s a -> s{_mSelfLink = a}) --- | [Output Only] The name of the manifest.+-- | Output only. The name of the manifest. mName :: Lens' Manifest (Maybe Text) mName = lens _mName (\ s a -> s{_mName = a}) --- | [Output Only] Unique identifier for the resource; defined by the server. mId :: Lens' Manifest (Maybe Word64) mId   = lens _mId (\ s a -> s{_mId = a}) . mapping _Coerce@@ -1362,6 +1487,56 @@           = object               (catMaybes [("fingerprint" .=) <$> _dcprFingerprint]) +-- | Write a Cloud Audit log+--+-- /See:/ 'logConfigCloudAuditOptions' smart constructor.+data LogConfigCloudAuditOptions = LogConfigCloudAuditOptions'+    { _lccaoAuthorizationLoggingOptions :: !(Maybe AuthorizationLoggingOptions)+    , _lccaoLogName                     :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'LogConfigCloudAuditOptions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lccaoAuthorizationLoggingOptions'+--+-- * 'lccaoLogName'+logConfigCloudAuditOptions+    :: LogConfigCloudAuditOptions+logConfigCloudAuditOptions =+    LogConfigCloudAuditOptions'+    { _lccaoAuthorizationLoggingOptions = Nothing+    , _lccaoLogName = Nothing+    }++-- | Information used by the Cloud Audit Logging pipeline.+lccaoAuthorizationLoggingOptions :: Lens' LogConfigCloudAuditOptions (Maybe AuthorizationLoggingOptions)+lccaoAuthorizationLoggingOptions+  = lens _lccaoAuthorizationLoggingOptions+      (\ s a -> s{_lccaoAuthorizationLoggingOptions = a})++-- | The log_name to populate in the Cloud Audit Record.+lccaoLogName :: Lens' LogConfigCloudAuditOptions (Maybe Text)+lccaoLogName+  = lens _lccaoLogName (\ s a -> s{_lccaoLogName = a})++instance FromJSON LogConfigCloudAuditOptions where+        parseJSON+          = withObject "LogConfigCloudAuditOptions"+              (\ o ->+                 LogConfigCloudAuditOptions' <$>+                   (o .:? "authorizationLoggingOptions") <*>+                     (o .:? "logName"))++instance ToJSON LogConfigCloudAuditOptions where+        toJSON LogConfigCloudAuditOptions'{..}+          = object+              (catMaybes+                 [("authorizationLoggingOptions" .=) <$>+                    _lccaoAuthorizationLoggingOptions,+                  ("logName" .=) <$> _lccaoLogName])+ -- | -- -- /See:/ 'resource' smart constructor.@@ -1425,8 +1600,7 @@     , _rProperties = Nothing     } --- | [Output Only] Timestamp when the resource was created or acquired, in--- RFC3339 text format .+-- | Output only. Creation timestamp in RFC3339 text format. rInsertTime :: Lens' Resource (Maybe Text) rInsertTime   = lens _rInsertTime (\ s a -> s{_rInsertTime = a})@@ -1437,57 +1611,55 @@   = lens _rAccessControl       (\ s a -> s{_rAccessControl = a}) --- | [Output Only] The URL of the actual resource.+-- | Output only. The URL of the actual resource. rURL :: Lens' Resource (Maybe Text) rURL = lens _rURL (\ s a -> s{_rURL = a}) --- | [Output Only] If warning messages are generated during processing of--- this resource, this field will be populated.+-- | Output only. If warning messages are generated during processing of this+-- resource, this field will be populated. rWarnings :: Lens' Resource [ResourceWarningsItem] rWarnings   = lens _rWarnings (\ s a -> s{_rWarnings = a}) .       _Default       . _Coerce --- | [Output Only] Timestamp when the resource was updated, in RFC3339 text--- format .+-- | Output only. Update timestamp in RFC3339 text format. rUpdateTime :: Lens' Resource (Maybe Text) rUpdateTime   = lens _rUpdateTime (\ s a -> s{_rUpdateTime = a}) --- | [Output Only] The name of the resource as it appears in the YAML config.+-- | Output only. The name of the resource as it appears in the YAML config. rName :: Lens' Resource (Maybe Text) rName = lens _rName (\ s a -> s{_rName = a}) --- | [Output Only] URL of the manifest representing the current configuration+-- | Output only. URL of the manifest representing the current configuration -- of this resource. rManifest :: Lens' Resource (Maybe Text) rManifest   = lens _rManifest (\ s a -> s{_rManifest = a}) --- | [Output Only] The evaluated properties of the resource with references+-- | Output only. The evaluated properties of the resource with references -- expanded. Returned as serialized YAML. rFinalProperties :: Lens' Resource (Maybe Text) rFinalProperties   = lens _rFinalProperties       (\ s a -> s{_rFinalProperties = a}) --- | [Output Only] Unique identifier for the resource; defined by the server. rId :: Lens' Resource (Maybe Word64) rId   = lens _rId (\ s a -> s{_rId = a}) . mapping _Coerce --- | [Output Only] The type of the resource, for example compute.v1.instance,+-- | Output only. The type of the resource, for example compute.v1.instance, -- or cloudfunctions.v1beta1.function. rType :: Lens' Resource (Maybe Text) rType = lens _rType (\ s a -> s{_rType = a}) --- | [Output Only] If Deployment Manager is currently updating or previewing+-- | Output only. If Deployment Manager is currently updating or previewing -- an update to this resource, the updated configuration appears here. rUpdate :: Lens' Resource (Maybe ResourceUpdate) rUpdate = lens _rUpdate (\ s a -> s{_rUpdate = a}) --- | [Output Only] The current properties of the resource before any+-- | Output only. The current properties of the resource before any -- references have been filled in. Returned as serialized YAML. rProperties :: Lens' Resource (Maybe Text) rProperties@@ -1525,7 +1697,47 @@                   ("update" .=) <$> _rUpdate,                   ("properties" .=) <$> _rProperties]) +-- | Write a Data Access (Gin) log --+-- /See:/ 'logConfigDataAccessOptions' smart constructor.+newtype LogConfigDataAccessOptions = LogConfigDataAccessOptions'+    { _lcdaoLogMode :: Maybe Text+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'LogConfigDataAccessOptions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lcdaoLogMode'+logConfigDataAccessOptions+    :: LogConfigDataAccessOptions+logConfigDataAccessOptions =+    LogConfigDataAccessOptions'+    { _lcdaoLogMode = Nothing+    }++-- | Whether Gin logging should happen in a fail-closed manner at the caller.+-- This is relevant only in the LocalIAM implementation, for now. NOTE:+-- Logging to Gin in a fail-closed manner is currently unsupported while+-- work is being done to satisfy the requirements of go\/345. Currently,+-- setting LOG_FAIL_CLOSED mode will have no effect, but still exists+-- because there is active work being done to support it (b\/115874152).+lcdaoLogMode :: Lens' LogConfigDataAccessOptions (Maybe Text)+lcdaoLogMode+  = lens _lcdaoLogMode (\ s a -> s{_lcdaoLogMode = a})++instance FromJSON LogConfigDataAccessOptions where+        parseJSON+          = withObject "LogConfigDataAccessOptions"+              (\ o ->+                 LogConfigDataAccessOptions' <$> (o .:? "logMode"))++instance ToJSON LogConfigDataAccessOptions where+        toJSON LogConfigDataAccessOptions'{..}+          = object+              (catMaybes [("logMode" .=) <$> _lcdaoLogMode])++-- -- /See:/ 'deploymentUpdateLabelEntry' smart constructor. data DeploymentUpdateLabelEntry = DeploymentUpdateLabelEntry'     { _duleValue :: !(Maybe Text)@@ -1651,13 +1863,13 @@     , _mlrManifests = Nothing     } --- | [Output Only] A token used to continue a truncated list request.+-- | Output only. A token used to continue a truncated list request. mlrNextPageToken :: Lens' ManifestsListResponse (Maybe Text) mlrNextPageToken   = lens _mlrNextPageToken       (\ s a -> s{_mlrNextPageToken = a}) --- | [Output Only] Manifests contained in this list response.+-- | Output only. Manifests contained in this list response. mlrManifests :: Lens' ManifestsListResponse [Manifest] mlrManifests   = lens _mlrManifests (\ s a -> s{_mlrManifests = a})@@ -1717,19 +1929,126 @@         toJSON OperationError'{..}           = object (catMaybes [("errors" .=) <$> _oeErrors]) +--+-- /See:/ 'globalSetPolicyRequest' smart constructor.+data GlobalSetPolicyRequest = GlobalSetPolicyRequest'+    { _gsprEtag     :: !(Maybe Bytes)+    , _gsprBindings :: !(Maybe [Binding])+    , _gsprPolicy   :: !(Maybe Policy)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'GlobalSetPolicyRequest' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gsprEtag'+--+-- * 'gsprBindings'+--+-- * 'gsprPolicy'+globalSetPolicyRequest+    :: GlobalSetPolicyRequest+globalSetPolicyRequest =+    GlobalSetPolicyRequest'+    { _gsprEtag = Nothing+    , _gsprBindings = Nothing+    , _gsprPolicy = Nothing+    }++-- | Flatten Policy to create a backward compatible wire-format. Deprecated.+-- Use \'policy\' to specify the etag.+gsprEtag :: Lens' GlobalSetPolicyRequest (Maybe ByteString)+gsprEtag+  = lens _gsprEtag (\ s a -> s{_gsprEtag = a}) .+      mapping _Bytes++-- | Flatten Policy to create a backward compatible wire-format. Deprecated.+-- Use \'policy\' to specify bindings.+gsprBindings :: Lens' GlobalSetPolicyRequest [Binding]+gsprBindings+  = lens _gsprBindings (\ s a -> s{_gsprBindings = a})+      . _Default+      . _Coerce++-- | REQUIRED: The complete policy to be applied to the \'resource\'. The+-- size of the policy is limited to a few 10s of KB. An empty policy is in+-- general a valid policy but certain services (like Projects) might reject+-- them.+gsprPolicy :: Lens' GlobalSetPolicyRequest (Maybe Policy)+gsprPolicy+  = lens _gsprPolicy (\ s a -> s{_gsprPolicy = a})++instance FromJSON GlobalSetPolicyRequest where+        parseJSON+          = withObject "GlobalSetPolicyRequest"+              (\ o ->+                 GlobalSetPolicyRequest' <$>+                   (o .:? "etag") <*> (o .:? "bindings" .!= mempty) <*>+                     (o .:? "policy"))++instance ToJSON GlobalSetPolicyRequest where+        toJSON GlobalSetPolicyRequest'{..}+          = object+              (catMaybes+                 [("etag" .=) <$> _gsprEtag,+                  ("bindings" .=) <$> _gsprBindings,+                  ("policy" .=) <$> _gsprPolicy])++-- | Authorization-related information used by Cloud Audit Logging.+--+-- /See:/ 'authorizationLoggingOptions' smart constructor.+newtype AuthorizationLoggingOptions = AuthorizationLoggingOptions'+    { _aloPermissionType :: Maybe Text+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'AuthorizationLoggingOptions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aloPermissionType'+authorizationLoggingOptions+    :: AuthorizationLoggingOptions+authorizationLoggingOptions =+    AuthorizationLoggingOptions'+    { _aloPermissionType = Nothing+    }++-- | The type of the permission that was checked.+aloPermissionType :: Lens' AuthorizationLoggingOptions (Maybe Text)+aloPermissionType+  = lens _aloPermissionType+      (\ s a -> s{_aloPermissionType = a})++instance FromJSON AuthorizationLoggingOptions where+        parseJSON+          = withObject "AuthorizationLoggingOptions"+              (\ o ->+                 AuthorizationLoggingOptions' <$>+                   (o .:? "permissionType"))++instance ToJSON AuthorizationLoggingOptions where+        toJSON AuthorizationLoggingOptions'{..}+          = object+              (catMaybes+                 [("permissionType" .=) <$> _aloPermissionType])+ -- | Defines an Identity and Access Management (IAM) policy. It is used to -- specify access control policies for Cloud Platform resources. A--- \`Policy\` consists of a list of \`bindings\`. A \`Binding\` binds a+-- \`Policy\` consists of a list of \`bindings\`. A \`binding\` binds a -- list of \`members\` to a \`role\`, where the members can be user -- accounts, Google groups, Google domains, and service accounts. A--- \`role\` is a named list of permissions defined by IAM. **Example** {--- \"bindings\": [ { \"role\": \"roles\/owner\", \"members\": [+-- \`role\` is a named list of permissions defined by IAM. **JSON Example**+-- { \"bindings\": [ { \"role\": \"roles\/owner\", \"members\": [ -- \"user:mike\'example.com\", \"group:admins\'example.com\", -- \"domain:google.com\",--- \"serviceAccount:my-other-app\'appspot.gserviceaccount.com\", ] }, {+-- \"serviceAccount:my-other-app\'appspot.gserviceaccount.com\" ] }, { -- \"role\": \"roles\/viewer\", \"members\": [\"user:sean\'example.com\"] }--- ] } For a description of IAM and its features, see the [IAM developer\'s--- guide](https:\/\/cloud.google.com\/iam).+-- ] } **YAML Example** bindings: - members: - user:mike\'example.com -+-- group:admins\'example.com - domain:google.com -+-- serviceAccount:my-other-app\'appspot.gserviceaccount.com role:+-- roles\/owner - members: - user:sean\'example.com role: roles\/viewer For+-- a description of IAM and its features, see the [IAM developer\'s+-- guide](https:\/\/cloud.google.com\/iam\/docs). -- -- /See:/ 'policy' smart constructor. data Policy = Policy'@@ -1768,11 +2087,7 @@     , _pIAMOwned = Nothing     } --- | Specifies audit logging configs for \"data access\". \"data access\":--- generally refers to data reads\/writes and admin reads. \"admin--- activity\": generally refers to admin writes. Note: \`AuditConfig\`--- doesn\'t apply to \"admin activity\", which always enables audit--- logging.+-- | Specifies cloud audit logging configuration for this policy. pAuditConfigs :: Lens' Policy [AuditConfig] pAuditConfigs   = lens _pAuditConfigs@@ -1806,14 +2121,13 @@   = lens _pRules (\ s a -> s{_pRules = a}) . _Default .       _Coerce --- | Version of the \`Policy\`. The default version is 0.+-- | Deprecated. pVersion :: Lens' Policy (Maybe Int32) pVersion   = lens _pVersion (\ s a -> s{_pVersion = a}) .       mapping _Coerce --- | Associates a list of \`members\` to a \`role\`. Multiple \`bindings\`--- must not be specified for the same \`role\`. \`bindings\` with no+-- | Associates a list of \`members\` to a \`role\`. \`bindings\` with no -- members will result in an error. pBindings :: Lens' Policy [Binding] pBindings@@ -1882,19 +2196,18 @@     , _tId = Nothing     } --- | [Output Only] Timestamp when the type was created, in RFC3339 text--- format.+-- | Output only. Creation timestamp in RFC3339 text format. tInsertTime :: Lens' Type (Maybe Text) tInsertTime   = lens _tInsertTime (\ s a -> s{_tInsertTime = a}) --- | [Output Only] The Operation that most recently ran, or is currently+-- | Output only. The Operation that most recently ran, or is currently -- running, on this type. tOperation :: Lens' Type (Maybe Operation) tOperation   = lens _tOperation (\ s a -> s{_tOperation = a}) --- | [Output Only] Self link for the type.+-- | Output only. Server defined URL for the resource. tSelfLink :: Lens' Type (Maybe Text) tSelfLink   = lens _tSelfLink (\ s a -> s{_tSelfLink = a})@@ -1903,7 +2216,6 @@ tName :: Lens' Type (Maybe Text) tName = lens _tName (\ s a -> s{_tName = a}) --- | [Output Only] Unique identifier for the resource; defined by the server. tId :: Lens' Type (Maybe Word64) tId   = lens _tId (\ s a -> s{_tId = a}) . mapping _Coerce@@ -2125,7 +2437,11 @@                  [("value" .=) <$> _rwidiValue,                   ("key" .=) <$> _rwidiKey]) --- | Provides the configuration for a sub-type of logging.+-- | Provides the configuration for logging a type of permissions. Example: {+-- \"audit_log_configs\": [ { \"log_type\": \"DATA_READ\",+-- \"exempted_members\": [ \"user:foo\'gmail.com\" ] }, { \"log_type\":+-- \"DATA_WRITE\", } ] } This enables \'DATA_READ\' and \'DATA_WRITE\'+-- logging, while exempting foo\'gmail.com from DATA_READ logging. -- -- /See:/ 'auditLogConfig' smart constructor. data AuditLogConfig = AuditLogConfig'@@ -2153,8 +2469,8 @@ alcLogType   = lens _alcLogType (\ s a -> s{_alcLogType = a}) --- | Specifies the identities that are exempted from this type of logging--- Follows the same format of Binding.members.+-- | Specifies the identities that do not cause logging for this type of+-- permission. Follows the same format of [Binding.members][]. alcExemptedMembers :: Lens' AuditLogConfig [Text] alcExemptedMembers   = lens _alcExemptedMembers@@ -2177,8 +2493,8 @@                  [("logType" .=) <$> _alcLogType,                   ("exemptedMembers" .=) <$> _alcExemptedMembers]) --- | [Output Only] If errors are generated during update of the resource,--- this field will be populated.+-- | Output only. If errors are generated during update of the resource, this+-- field will be populated. -- -- /See:/ 'resourceUpdateError' smart constructor. newtype ResourceUpdateError = ResourceUpdateError'@@ -2324,13 +2640,13 @@     , _dlrDeployments = Nothing     } --- | [Output Only] A token used to continue a truncated list request.+-- | Output only. A token used to continue a truncated list request. dlrNextPageToken :: Lens' DeploymentsListResponse (Maybe Text) dlrNextPageToken   = lens _dlrNextPageToken       (\ s a -> s{_dlrNextPageToken = a}) --- | [Output Only] The deployments contained in this response.+-- | Output only. The deployments contained in this response. dlrDeployments :: Lens' DeploymentsListResponse [Deployment] dlrDeployments   = lens _dlrDeployments@@ -2415,22 +2731,40 @@ -- | Specifies what kind of log the caller must write -- -- /See:/ 'logConfig' smart constructor.-newtype LogConfig = LogConfig'-    { _lcCounter :: Maybe LogConfigCounterOptions+data LogConfig = LogConfig'+    { _lcCloudAudit :: !(Maybe LogConfigCloudAuditOptions)+    , _lcDataAccess :: !(Maybe LogConfigDataAccessOptions)+    , _lcCounter    :: !(Maybe LogConfigCounterOptions)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'LogConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'lcCloudAudit'+--+-- * 'lcDataAccess'+-- -- * 'lcCounter' logConfig     :: LogConfig logConfig =     LogConfig'-    { _lcCounter = Nothing+    { _lcCloudAudit = Nothing+    , _lcDataAccess = Nothing+    , _lcCounter = Nothing     } +-- | Cloud audit options.+lcCloudAudit :: Lens' LogConfig (Maybe LogConfigCloudAuditOptions)+lcCloudAudit+  = lens _lcCloudAudit (\ s a -> s{_lcCloudAudit = a})++-- | Data access options.+lcDataAccess :: Lens' LogConfig (Maybe LogConfigDataAccessOptions)+lcDataAccess+  = lens _lcDataAccess (\ s a -> s{_lcDataAccess = a})+ -- | Counter options. lcCounter :: Lens' LogConfig (Maybe LogConfigCounterOptions) lcCounter@@ -2439,11 +2773,18 @@ instance FromJSON LogConfig where         parseJSON           = withObject "LogConfig"-              (\ o -> LogConfig' <$> (o .:? "counter"))+              (\ o ->+                 LogConfig' <$>+                   (o .:? "cloudAudit") <*> (o .:? "dataAccess") <*>+                     (o .:? "counter"))  instance ToJSON LogConfig where         toJSON LogConfig'{..}-          = object (catMaybes [("counter" .=) <$> _lcCounter])+          = object+              (catMaybes+                 [("cloudAudit" .=) <$> _lcCloudAudit,+                  ("dataAccess" .=) <$> _lcDataAccess,+                  ("counter" .=) <$> _lcCounter])  -- | The access controls set on the resource. --@@ -2595,8 +2936,9 @@ -- -- /See:/ 'binding' smart constructor. data Binding = Binding'-    { _bMembers :: !(Maybe [Text])-    , _bRole    :: !(Maybe Text)+    { _bMembers   :: !(Maybe [Text])+    , _bRole      :: !(Maybe Text)+    , _bCondition :: !(Maybe Expr)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'Binding' with the minimum fields required to make a request.@@ -2606,12 +2948,15 @@ -- * 'bMembers' -- -- * 'bRole'+--+-- * 'bCondition' binding     :: Binding binding =     Binding'     { _bMembers = Nothing     , _bRole = Nothing+    , _bCondition = Nothing     }  -- | Specifies the identities requesting access for a Cloud Platform@@ -2621,13 +2966,13 @@ -- identifier that represents anyone who is authenticated with a Google -- account or a service account. * \`user:{emailid}\`: An email address -- that represents a specific Google account. For example,--- \`alice\'gmail.com\` or \`joe\'example.com\`. *--- \`serviceAccount:{emailid}\`: An email address that represents a service--- account. For example, \`my-other-app\'appspot.gserviceaccount.com\`. *--- \`group:{emailid}\`: An email address that represents a Google group.--- For example, \`admins\'example.com\`. * \`domain:{domain}\`: A Google--- Apps domain name that represents all the users of that domain. For--- example, \`google.com\` or \`example.com\`.+-- \`alice\'gmail.com\` . * \`serviceAccount:{emailid}\`: An email address+-- that represents a service account. For example,+-- \`my-other-app\'appspot.gserviceaccount.com\`. * \`group:{emailid}\`: An+-- email address that represents a Google group. For example,+-- \`admins\'example.com\`. * \`domain:{domain}\`: A Google Apps domain+-- name that represents all the users of that domain. For example,+-- \`google.com\` or \`example.com\`. bMembers :: Lens' Binding [Text] bMembers   = lens _bMembers (\ s a -> s{_bMembers = a}) .@@ -2639,19 +2984,29 @@ bRole :: Lens' Binding (Maybe Text) bRole = lens _bRole (\ s a -> s{_bRole = a}) +-- | Unimplemented. The condition that is associated with this binding. NOTE:+-- an unsatisfied condition will not allow user access via current binding.+-- Different bindings, including their conditions, are examined+-- independently.+bCondition :: Lens' Binding (Maybe Expr)+bCondition+  = lens _bCondition (\ s a -> s{_bCondition = a})+ instance FromJSON Binding where         parseJSON           = withObject "Binding"               (\ o ->                  Binding' <$>-                   (o .:? "members" .!= mempty) <*> (o .:? "role"))+                   (o .:? "members" .!= mempty) <*> (o .:? "role") <*>+                     (o .:? "condition"))  instance ToJSON Binding where         toJSON Binding'{..}           = object               (catMaybes                  [("members" .=) <$> _bMembers,-                  ("role" .=) <$> _bRole])+                  ("role" .=) <$> _bRole,+                  ("condition" .=) <$> _bCondition])  -- | --@@ -2660,6 +3015,7 @@     { _dInsertTime  :: !(Maybe Text)     , _dOperation   :: !(Maybe Operation)     , _dFingerprint :: !(Maybe Bytes)+    , _dUpdateTime  :: !(Maybe Text)     , _dSelfLink    :: !(Maybe Text)     , _dName        :: !(Maybe Text)     , _dManifest    :: !(Maybe Text)@@ -2680,6 +3036,8 @@ -- -- * 'dFingerprint' --+-- * 'dUpdateTime'+-- -- * 'dSelfLink' -- -- * 'dName'@@ -2702,6 +3060,7 @@     { _dInsertTime = Nothing     , _dOperation = Nothing     , _dFingerprint = Nothing+    , _dUpdateTime = Nothing     , _dSelfLink = Nothing     , _dName = Nothing     , _dManifest = Nothing@@ -2712,13 +3071,12 @@     , _dTarget = Nothing     } --- | [Output Only] Timestamp when the deployment was created, in RFC3339 text--- format .+-- | Output only. Creation timestamp in RFC3339 text format. dInsertTime :: Lens' Deployment (Maybe Text) dInsertTime   = lens _dInsertTime (\ s a -> s{_dInsertTime = a}) --- | [Output Only] The Operation that most recently ran, or is currently+-- | Output only. The Operation that most recently ran, or is currently -- running, on this deployment. dOperation :: Lens' Deployment (Maybe Operation) dOperation@@ -2737,7 +3095,12 @@   = lens _dFingerprint (\ s a -> s{_dFingerprint = a})       . mapping _Bytes --- | [Output Only] Self link for the deployment.+-- | Output only. Update timestamp in RFC3339 text format.+dUpdateTime :: Lens' Deployment (Maybe Text)+dUpdateTime+  = lens _dUpdateTime (\ s a -> s{_dUpdateTime = a})++-- | Output only. Server defined URL for the resource. dSelfLink :: Lens' Deployment (Maybe Text) dSelfLink   = lens _dSelfLink (\ s a -> s{_dSelfLink = a})@@ -2752,13 +3115,12 @@ dName :: Lens' Deployment (Maybe Text) dName = lens _dName (\ s a -> s{_dName = a}) --- | [Output Only] URL of the manifest representing the last manifest that--- was successfully deployed.+-- | Output only. URL of the manifest representing the last manifest that was+-- successfully deployed. dManifest :: Lens' Deployment (Maybe Text) dManifest   = lens _dManifest (\ s a -> s{_dManifest = a}) --- | [Output Only] Unique identifier for the resource; defined by the server. dId :: Lens' Deployment (Maybe Word64) dId   = lens _dId (\ s a -> s{_dId = a}) . mapping _Coerce@@ -2779,7 +3141,7 @@ dDescription   = lens _dDescription (\ s a -> s{_dDescription = a}) --- | [Output Only] If Deployment Manager is currently updating or previewing+-- | Output only. If Deployment Manager is currently updating or previewing -- an update to this deployment, the updated configuration appears here. dUpdate :: Lens' Deployment (Maybe DeploymentUpdate) dUpdate = lens _dUpdate (\ s a -> s{_dUpdate = a})@@ -2796,6 +3158,7 @@                  Deployment' <$>                    (o .:? "insertTime") <*> (o .:? "operation") <*>                      (o .:? "fingerprint")+                     <*> (o .:? "updateTime")                      <*> (o .:? "selfLink")                      <*> (o .:? "name")                      <*> (o .:? "manifest")@@ -2812,6 +3175,7 @@                  [("insertTime" .=) <$> _dInsertTime,                   ("operation" .=) <$> _dOperation,                   ("fingerprint" .=) <$> _dFingerprint,+                  ("updateTime" .=) <$> _dUpdateTime,                   ("selfLink" .=) <$> _dSelfLink,                   ("name" .=) <$> _dName,                   ("manifest" .=) <$> _dManifest, ("id" .=) <$> _dId,

@@ -16,7 +16,7 @@ -- module Network.Google.DeploymentManager.Types.Sum where -import           Network.Google.Prelude+import           Network.Google.Prelude hiding (Bytes)  -- | Sets the policy to use for creating new resources. data DeploymentsUpdateCreatePolicy@@ -151,4 +151,31 @@     parseJSON = parseJSONText "DeploymentsPatchCreatePolicy"  instance ToJSON DeploymentsPatchCreatePolicy where+    toJSON = toJSONText++-- | Sets the policy to use for creating new resources.+data DeploymentsInsertCreatePolicy+    = DICPAcquire+      -- ^ @ACQUIRE@+    | DICPCreateOrAcquire+      -- ^ @CREATE_OR_ACQUIRE@+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable DeploymentsInsertCreatePolicy++instance FromHttpApiData DeploymentsInsertCreatePolicy where+    parseQueryParam = \case+        "ACQUIRE" -> Right DICPAcquire+        "CREATE_OR_ACQUIRE" -> Right DICPCreateOrAcquire+        x -> Left ("Unable to parse DeploymentsInsertCreatePolicy from: " <> x)++instance ToHttpApiData DeploymentsInsertCreatePolicy where+    toQueryParam = \case+        DICPAcquire -> "ACQUIRE"+        DICPCreateOrAcquire -> "CREATE_OR_ACQUIRE"++instance FromJSON DeploymentsInsertCreatePolicy where+    parseJSON = parseJSONText "DeploymentsInsertCreatePolicy"++instance ToJSON DeploymentsInsertCreatePolicy where     toJSON = toJSONText

@@ -85,7 +85,7 @@ dgipProject   = lens _dgipProject (\ s a -> s{_dgipProject = a}) --- | Name of the resource for this request.+-- | Name or id of the resource for this request. dgipResource :: Lens' DeploymentsGetIAMPolicy Text dgipResource   = lens _dgipResource (\ s a -> s{_dgipResource = a})

@@ -34,6 +34,7 @@     , DeploymentsInsert      -- * Request Lenses+    , diCreatePolicy     , diProject     , diPayload     , diPreview@@ -51,24 +52,30 @@            Capture "project" Text :>              "global" :>                "deployments" :>-                 QueryParam "preview" Bool :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Deployment :> Post '[JSON] Operation+                 QueryParam "createPolicy"+                   DeploymentsInsertCreatePolicy+                   :>+                   QueryParam "preview" Bool :>+                     QueryParam "alt" AltJSON :>+                       ReqBody '[JSON] Deployment :> Post '[JSON] Operation  -- | Creates a deployment and all of the resources described by the -- deployment manifest. -- -- /See:/ 'deploymentsInsert' smart constructor. data DeploymentsInsert = DeploymentsInsert'-    { _diProject :: !Text-    , _diPayload :: !Deployment-    , _diPreview :: !(Maybe Bool)+    { _diCreatePolicy :: !DeploymentsInsertCreatePolicy+    , _diProject      :: !Text+    , _diPayload      :: !Deployment+    , _diPreview      :: !(Maybe Bool)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeploymentsInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'diCreatePolicy'+-- -- * 'diProject' -- -- * 'diPayload'@@ -80,11 +87,18 @@     -> DeploymentsInsert deploymentsInsert pDiProject_ pDiPayload_ =     DeploymentsInsert'-    { _diProject = pDiProject_+    { _diCreatePolicy = DICPCreateOrAcquire+    , _diProject = pDiProject_     , _diPayload = pDiPayload_     , _diPreview = Nothing     } +-- | Sets the policy to use for creating new resources.+diCreatePolicy :: Lens' DeploymentsInsert DeploymentsInsertCreatePolicy+diCreatePolicy+  = lens _diCreatePolicy+      (\ s a -> s{_diCreatePolicy = a})+ -- | The project ID for this request. diProject :: Lens' DeploymentsInsert Text diProject@@ -113,7 +127,9 @@              '["https://www.googleapis.com/auth/cloud-platform",                "https://www.googleapis.com/auth/ndev.cloudman"]         requestClient DeploymentsInsert'{..}-          = go _diProject _diPreview (Just AltJSON) _diPayload+          = go _diProject (Just _diCreatePolicy) _diPreview+              (Just AltJSON)+              _diPayload               deploymentManagerService           where go                   = buildClient

@@ -112,26 +112,22 @@ dlProject   = 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--- 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 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. You can 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. To filter on multiple expressions, provide 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.+-- | A filter expression that filters resources listed in the response. The+-- expression must specify the field name, a comparison operator, and the+-- value that you want to use for filtering. The value must be a string, a+-- number, or a boolean. The comparison operator must be either =, !=, >,+-- or \<. For example, if you are filtering Compute Engine instances, you+-- can exclude instances named example-instance by specifying name !=+-- example-instance. You can also filter nested fields. For example, you+-- could specify scheduling.automaticRestart = false to include instances+-- only if they are not scheduled for automatic restarts. You can use+-- filtering on nested fields to filter based on resource labels. To filter+-- on multiple expressions, provide each separate expression within+-- parentheses. For example, (scheduling.automaticRestart = true)+-- (cpuPlatform = \"Intel Skylake\"). By default, each expression is an AND+-- expression. However, you can include AND and OR expressions explicitly.+-- For example, (cpuPlatform = \"Intel Skylake\") OR (cpuPlatform = \"Intel+-- Broadwell\") AND (scheduling.automaticRestart = true). dlFilter :: Lens' DeploymentsList (Maybe Text) dlFilter = lens _dlFilter (\ s a -> s{_dlFilter = a}) @@ -144,7 +140,8 @@ -- | 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.+-- in subsequent list requests. Acceptable values are 0 to 500, inclusive.+-- (Default: 500) dlMaxResults :: Lens' DeploymentsList Word32 dlMaxResults   = lens _dlMaxResults (\ s a -> s{_dlMaxResults = a})

@@ -54,7 +54,8 @@                  Capture "resource" Text :>                    "setIamPolicy" :>                      QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] Policy :> Post '[JSON] Policy+                       ReqBody '[JSON] GlobalSetPolicyRequest :>+                         Post '[JSON] Policy  -- | Sets the access control policy on the specified resource. Replaces any -- existing policy.@@ -62,7 +63,7 @@ -- /See:/ 'deploymentsSetIAMPolicy' smart constructor. data DeploymentsSetIAMPolicy = DeploymentsSetIAMPolicy'     { _dsipProject  :: !Text-    , _dsipPayload  :: !Policy+    , _dsipPayload  :: !GlobalSetPolicyRequest     , _dsipResource :: !Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -77,7 +78,7 @@ -- * 'dsipResource' deploymentsSetIAMPolicy     :: Text -- ^ 'dsipProject'-    -> Policy -- ^ 'dsipPayload'+    -> GlobalSetPolicyRequest -- ^ 'dsipPayload'     -> Text -- ^ 'dsipResource'     -> DeploymentsSetIAMPolicy deploymentsSetIAMPolicy pDsipProject_ pDsipPayload_ pDsipResource_ =@@ -93,11 +94,11 @@   = lens _dsipProject (\ s a -> s{_dsipProject = a})  -- | Multipart request metadata.-dsipPayload :: Lens' DeploymentsSetIAMPolicy Policy+dsipPayload :: Lens' DeploymentsSetIAMPolicy GlobalSetPolicyRequest dsipPayload   = lens _dsipPayload (\ s a -> s{_dsipPayload = a}) --- | Name of the resource for this request.+-- | Name or id of the resource for this request. dsipResource :: Lens' DeploymentsSetIAMPolicy Text dsipResource   = lens _dsipResource (\ s a -> s{_dsipResource = a})

@@ -96,7 +96,7 @@ dtipPayload   = lens _dtipPayload (\ s a -> s{_dtipPayload = a}) --- | Name of the resource for this request.+-- | Name or id of the resource for this request. dtipResource :: Lens' DeploymentsTestIAMPermissions Text dtipResource   = lens _dtipResource (\ s a -> s{_dtipResource = a})

@@ -120,26 +120,22 @@ mlProject   = 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--- 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 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. You can 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. To filter on multiple expressions, provide 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.+-- | A filter expression that filters resources listed in the response. The+-- expression must specify the field name, a comparison operator, and the+-- value that you want to use for filtering. The value must be a string, a+-- number, or a boolean. The comparison operator must be either =, !=, >,+-- or \<. For example, if you are filtering Compute Engine instances, you+-- can exclude instances named example-instance by specifying name !=+-- example-instance. You can also filter nested fields. For example, you+-- could specify scheduling.automaticRestart = false to include instances+-- only if they are not scheduled for automatic restarts. You can use+-- filtering on nested fields to filter based on resource labels. To filter+-- on multiple expressions, provide each separate expression within+-- parentheses. For example, (scheduling.automaticRestart = true)+-- (cpuPlatform = \"Intel Skylake\"). By default, each expression is an AND+-- expression. However, you can include AND and OR expressions explicitly.+-- For example, (cpuPlatform = \"Intel Skylake\") OR (cpuPlatform = \"Intel+-- Broadwell\") AND (scheduling.automaticRestart = true). mlFilter :: Lens' ManifestsList (Maybe Text) mlFilter = lens _mlFilter (\ s a -> s{_mlFilter = a}) @@ -152,7 +148,8 @@ -- | 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.+-- in subsequent list requests. Acceptable values are 0 to 500, inclusive.+-- (Default: 500) mlMaxResults :: Lens' ManifestsList Word32 mlMaxResults   = lens _mlMaxResults (\ s a -> s{_mlMaxResults = a})

@@ -112,26 +112,22 @@ olProject   = 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--- 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 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. You can 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. To filter on multiple expressions, provide 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.+-- | A filter expression that filters resources listed in the response. The+-- expression must specify the field name, a comparison operator, and the+-- value that you want to use for filtering. The value must be a string, a+-- number, or a boolean. The comparison operator must be either =, !=, >,+-- or \<. For example, if you are filtering Compute Engine instances, you+-- can exclude instances named example-instance by specifying name !=+-- example-instance. You can also filter nested fields. For example, you+-- could specify scheduling.automaticRestart = false to include instances+-- only if they are not scheduled for automatic restarts. You can use+-- filtering on nested fields to filter based on resource labels. To filter+-- on multiple expressions, provide each separate expression within+-- parentheses. For example, (scheduling.automaticRestart = true)+-- (cpuPlatform = \"Intel Skylake\"). By default, each expression is an AND+-- expression. However, you can include AND and OR expressions explicitly.+-- For example, (cpuPlatform = \"Intel Skylake\") OR (cpuPlatform = \"Intel+-- Broadwell\") AND (scheduling.automaticRestart = true). olFilter :: Lens' OperationsList (Maybe Text) olFilter = lens _olFilter (\ s a -> s{_olFilter = a}) @@ -144,7 +140,8 @@ -- | 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.+-- in subsequent list requests. Acceptable values are 0 to 500, inclusive.+-- (Default: 500) olMaxResults :: Lens' OperationsList Word32 olMaxResults   = lens _olMaxResults (\ s a -> s{_olMaxResults = a})

@@ -120,26 +120,22 @@ rlProject   = 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--- 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 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. You can 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. To filter on multiple expressions, provide 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.+-- | A filter expression that filters resources listed in the response. The+-- expression must specify the field name, a comparison operator, and the+-- value that you want to use for filtering. The value must be a string, a+-- number, or a boolean. The comparison operator must be either =, !=, >,+-- or \<. For example, if you are filtering Compute Engine instances, you+-- can exclude instances named example-instance by specifying name !=+-- example-instance. You can also filter nested fields. For example, you+-- could specify scheduling.automaticRestart = false to include instances+-- only if they are not scheduled for automatic restarts. You can use+-- filtering on nested fields to filter based on resource labels. To filter+-- on multiple expressions, provide each separate expression within+-- parentheses. For example, (scheduling.automaticRestart = true)+-- (cpuPlatform = \"Intel Skylake\"). By default, each expression is an AND+-- expression. However, you can include AND and OR expressions explicitly.+-- For example, (cpuPlatform = \"Intel Skylake\") OR (cpuPlatform = \"Intel+-- Broadwell\") AND (scheduling.automaticRestart = true). rlFilter :: Lens' ResourcesList (Maybe Text) rlFilter = lens _rlFilter (\ s a -> s{_rlFilter = a}) @@ -152,7 +148,8 @@ -- | 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.+-- in subsequent list requests. Acceptable values are 0 to 500, inclusive.+-- (Default: 500) rlMaxResults :: Lens' ResourcesList Word32 rlMaxResults   = lens _rlMaxResults (\ s a -> s{_rlMaxResults = a})

@@ -112,26 +112,22 @@ tlProject   = 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--- 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 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. You can 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. To filter on multiple expressions, provide 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.+-- | A filter expression that filters resources listed in the response. The+-- expression must specify the field name, a comparison operator, and the+-- value that you want to use for filtering. The value must be a string, a+-- number, or a boolean. The comparison operator must be either =, !=, >,+-- or \<. For example, if you are filtering Compute Engine instances, you+-- can exclude instances named example-instance by specifying name !=+-- example-instance. You can also filter nested fields. For example, you+-- could specify scheduling.automaticRestart = false to include instances+-- only if they are not scheduled for automatic restarts. You can use+-- filtering on nested fields to filter based on resource labels. To filter+-- on multiple expressions, provide each separate expression within+-- parentheses. For example, (scheduling.automaticRestart = true)+-- (cpuPlatform = \"Intel Skylake\"). By default, each expression is an AND+-- expression. However, you can include AND and OR expressions explicitly.+-- For example, (cpuPlatform = \"Intel Skylake\") OR (cpuPlatform = \"Intel+-- Broadwell\") AND (scheduling.automaticRestart = true). tlFilter :: Lens' TypesList (Maybe Text) tlFilter = lens _tlFilter (\ s a -> s{_tlFilter = a}) @@ -144,7 +140,8 @@ -- | 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.+-- in subsequent list requests. Acceptable values are 0 to 500, inclusive.+-- (Default: 500) tlMaxResults :: Lens' TypesList Word32 tlMaxResults   = lens _tlMaxResults (\ s a -> s{_tlMaxResults = a})

@@ -1,5 +1,5 @@ name:                  gogol-deploymentmanager-version:               0.3.0+version:               0.4.0 synopsis:              Google Cloud Deployment Manager SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -60,5 +60,5 @@         , Network.Google.DeploymentManager.Types.Sum      build-depends:-          gogol-core == 0.3.0.*+          gogol-core == 0.4.0.*         , base       >= 4.7 && < 5