diff --git a/gen/Network/Google/DeploymentManager.hs b/gen/Network/Google/DeploymentManager.hs --- a/gen/Network/Google/DeploymentManager.hs +++ b/gen/Network/Google/DeploymentManager.hs @@ -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 diff --git a/gen/Network/Google/DeploymentManager/Types.hs b/gen/Network/Google/DeploymentManager/Types.hs --- a/gen/Network/Google/DeploymentManager/Types.hs +++ b/gen/Network/Google/DeploymentManager/Types.hs @@ -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 diff --git a/gen/Network/Google/DeploymentManager/Types/Product.hs b/gen/Network/Google/DeploymentManager/Types/Product.hs --- a/gen/Network/Google/DeploymentManager/Types/Product.hs +++ b/gen/Network/Google/DeploymentManager/Types/Product.hs @@ -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, diff --git a/gen/Network/Google/DeploymentManager/Types/Sum.hs b/gen/Network/Google/DeploymentManager/Types/Sum.hs --- a/gen/Network/Google/DeploymentManager/Types/Sum.hs +++ b/gen/Network/Google/DeploymentManager/Types/Sum.hs @@ -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 diff --git a/gen/Network/Google/Resource/DeploymentManager/Deployments/GetIAMPolicy.hs b/gen/Network/Google/Resource/DeploymentManager/Deployments/GetIAMPolicy.hs --- a/gen/Network/Google/Resource/DeploymentManager/Deployments/GetIAMPolicy.hs +++ b/gen/Network/Google/Resource/DeploymentManager/Deployments/GetIAMPolicy.hs @@ -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}) diff --git a/gen/Network/Google/Resource/DeploymentManager/Deployments/Insert.hs b/gen/Network/Google/Resource/DeploymentManager/Deployments/Insert.hs --- a/gen/Network/Google/Resource/DeploymentManager/Deployments/Insert.hs +++ b/gen/Network/Google/Resource/DeploymentManager/Deployments/Insert.hs @@ -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 diff --git a/gen/Network/Google/Resource/DeploymentManager/Deployments/List.hs b/gen/Network/Google/Resource/DeploymentManager/Deployments/List.hs --- a/gen/Network/Google/Resource/DeploymentManager/Deployments/List.hs +++ b/gen/Network/Google/Resource/DeploymentManager/Deployments/List.hs @@ -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}) diff --git a/gen/Network/Google/Resource/DeploymentManager/Deployments/SetIAMPolicy.hs b/gen/Network/Google/Resource/DeploymentManager/Deployments/SetIAMPolicy.hs --- a/gen/Network/Google/Resource/DeploymentManager/Deployments/SetIAMPolicy.hs +++ b/gen/Network/Google/Resource/DeploymentManager/Deployments/SetIAMPolicy.hs @@ -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}) diff --git a/gen/Network/Google/Resource/DeploymentManager/Deployments/TestIAMPermissions.hs b/gen/Network/Google/Resource/DeploymentManager/Deployments/TestIAMPermissions.hs --- a/gen/Network/Google/Resource/DeploymentManager/Deployments/TestIAMPermissions.hs +++ b/gen/Network/Google/Resource/DeploymentManager/Deployments/TestIAMPermissions.hs @@ -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}) diff --git a/gen/Network/Google/Resource/DeploymentManager/Manifests/List.hs b/gen/Network/Google/Resource/DeploymentManager/Manifests/List.hs --- a/gen/Network/Google/Resource/DeploymentManager/Manifests/List.hs +++ b/gen/Network/Google/Resource/DeploymentManager/Manifests/List.hs @@ -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}) diff --git a/gen/Network/Google/Resource/DeploymentManager/Operations/List.hs b/gen/Network/Google/Resource/DeploymentManager/Operations/List.hs --- a/gen/Network/Google/Resource/DeploymentManager/Operations/List.hs +++ b/gen/Network/Google/Resource/DeploymentManager/Operations/List.hs @@ -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}) diff --git a/gen/Network/Google/Resource/DeploymentManager/Resources/List.hs b/gen/Network/Google/Resource/DeploymentManager/Resources/List.hs --- a/gen/Network/Google/Resource/DeploymentManager/Resources/List.hs +++ b/gen/Network/Google/Resource/DeploymentManager/Resources/List.hs @@ -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}) diff --git a/gen/Network/Google/Resource/DeploymentManager/Types/List.hs b/gen/Network/Google/Resource/DeploymentManager/Types/List.hs --- a/gen/Network/Google/Resource/DeploymentManager/Types/List.hs +++ b/gen/Network/Google/Resource/DeploymentManager/Types/List.hs @@ -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}) diff --git a/gogol-deploymentmanager.cabal b/gogol-deploymentmanager.cabal --- a/gogol-deploymentmanager.cabal +++ b/gogol-deploymentmanager.cabal @@ -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