packages feed

gogol-accesscontextmanager 0.5.0 → 1.0.0

raw patch · 69 files changed

+9493/−5332 lines, 69 filesdep −basedep ~gogol-coresetup-changed

Dependencies removed: base

Dependency ranges changed: gogol-core

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`0.5.0`+`1.0.0`   ## Description
Setup.hs view
@@ -1,2 +1,3 @@-import           Distribution.Simple+import Distribution.Simple+ main = defaultMain
+ gen/Gogol/AccessContextManager.hs view
@@ -0,0 +1,583 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- An API for setting attribute based access control to requests to Google Cloud services. /Warning:/ Do not mix /v1alpha/ and /v1/ API usage in the same access policy. The v1alpha API supports new Access Context Manager features, which may have different attributes or behaviors that are not supported by v1. The practice of mixed API usage within a policy may result in the inability to update that policy, including any access levels or service perimeters belonging to it. It is not recommended to use both v1 and v1alpha for modifying policies with critical service perimeters. Modifications using v1alpha should be limited to policies with non-production\/non-critical service perimeters.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference>+module Gogol.AccessContextManager+  ( -- * Configuration+    accessContextManagerService,++    -- * OAuth Scopes+    CloudPlatform'FullControl,++    -- * Resources++    -- ** accesscontextmanager.accessPolicies.accessLevels.create+    AccessContextManagerAccessPoliciesAccessLevelsCreateResource,+    AccessContextManagerAccessPoliciesAccessLevelsCreate (..),+    newAccessContextManagerAccessPoliciesAccessLevelsCreate,++    -- ** accesscontextmanager.accessPolicies.accessLevels.delete+    AccessContextManagerAccessPoliciesAccessLevelsDeleteResource,+    AccessContextManagerAccessPoliciesAccessLevelsDelete (..),+    newAccessContextManagerAccessPoliciesAccessLevelsDelete,++    -- ** accesscontextmanager.accessPolicies.accessLevels.get+    AccessContextManagerAccessPoliciesAccessLevelsGetResource,+    AccessContextManagerAccessPoliciesAccessLevelsGet (..),+    newAccessContextManagerAccessPoliciesAccessLevelsGet,++    -- ** accesscontextmanager.accessPolicies.accessLevels.list+    AccessContextManagerAccessPoliciesAccessLevelsListResource,+    AccessContextManagerAccessPoliciesAccessLevelsList (..),+    newAccessContextManagerAccessPoliciesAccessLevelsList,++    -- ** accesscontextmanager.accessPolicies.accessLevels.patch+    AccessContextManagerAccessPoliciesAccessLevelsPatchResource,+    AccessContextManagerAccessPoliciesAccessLevelsPatch (..),+    newAccessContextManagerAccessPoliciesAccessLevelsPatch,++    -- ** accesscontextmanager.accessPolicies.accessLevels.replaceAll+    AccessContextManagerAccessPoliciesAccessLevelsReplaceAllResource,+    AccessContextManagerAccessPoliciesAccessLevelsReplaceAll (..),+    newAccessContextManagerAccessPoliciesAccessLevelsReplaceAll,++    -- ** accesscontextmanager.accessPolicies.accessLevels.testIamPermissions+    AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissionsResource,+    AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions (..),+    newAccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions,++    -- ** accesscontextmanager.accessPolicies.authorizedOrgsDescs.create+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreateResource,+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate (..),+    newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate,++    -- ** accesscontextmanager.accessPolicies.authorizedOrgsDescs.delete+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDeleteResource,+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete (..),+    newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete,++    -- ** accesscontextmanager.accessPolicies.authorizedOrgsDescs.get+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGetResource,+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet (..),+    newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet,++    -- ** accesscontextmanager.accessPolicies.authorizedOrgsDescs.list+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsListResource,+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsList (..),+    newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsList,++    -- ** accesscontextmanager.accessPolicies.authorizedOrgsDescs.patch+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatchResource,+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch (..),+    newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch,++    -- ** accesscontextmanager.accessPolicies.create+    AccessContextManagerAccessPoliciesCreateResource,+    AccessContextManagerAccessPoliciesCreate (..),+    newAccessContextManagerAccessPoliciesCreate,++    -- ** accesscontextmanager.accessPolicies.delete+    AccessContextManagerAccessPoliciesDeleteResource,+    AccessContextManagerAccessPoliciesDelete (..),+    newAccessContextManagerAccessPoliciesDelete,++    -- ** accesscontextmanager.accessPolicies.get+    AccessContextManagerAccessPoliciesGetResource,+    AccessContextManagerAccessPoliciesGet (..),+    newAccessContextManagerAccessPoliciesGet,++    -- ** accesscontextmanager.accessPolicies.getIamPolicy+    AccessContextManagerAccessPoliciesGetIamPolicyResource,+    AccessContextManagerAccessPoliciesGetIamPolicy (..),+    newAccessContextManagerAccessPoliciesGetIamPolicy,++    -- ** accesscontextmanager.accessPolicies.list+    AccessContextManagerAccessPoliciesListResource,+    AccessContextManagerAccessPoliciesList (..),+    newAccessContextManagerAccessPoliciesList,++    -- ** accesscontextmanager.accessPolicies.patch+    AccessContextManagerAccessPoliciesPatchResource,+    AccessContextManagerAccessPoliciesPatch (..),+    newAccessContextManagerAccessPoliciesPatch,++    -- ** accesscontextmanager.accessPolicies.servicePerimeters.commit+    AccessContextManagerAccessPoliciesServicePerimetersCommitResource,+    AccessContextManagerAccessPoliciesServicePerimetersCommit (..),+    newAccessContextManagerAccessPoliciesServicePerimetersCommit,++    -- ** accesscontextmanager.accessPolicies.servicePerimeters.create+    AccessContextManagerAccessPoliciesServicePerimetersCreateResource,+    AccessContextManagerAccessPoliciesServicePerimetersCreate (..),+    newAccessContextManagerAccessPoliciesServicePerimetersCreate,++    -- ** accesscontextmanager.accessPolicies.servicePerimeters.delete+    AccessContextManagerAccessPoliciesServicePerimetersDeleteResource,+    AccessContextManagerAccessPoliciesServicePerimetersDelete (..),+    newAccessContextManagerAccessPoliciesServicePerimetersDelete,++    -- ** accesscontextmanager.accessPolicies.servicePerimeters.get+    AccessContextManagerAccessPoliciesServicePerimetersGetResource,+    AccessContextManagerAccessPoliciesServicePerimetersGet (..),+    newAccessContextManagerAccessPoliciesServicePerimetersGet,++    -- ** accesscontextmanager.accessPolicies.servicePerimeters.list+    AccessContextManagerAccessPoliciesServicePerimetersListResource,+    AccessContextManagerAccessPoliciesServicePerimetersList (..),+    newAccessContextManagerAccessPoliciesServicePerimetersList,++    -- ** accesscontextmanager.accessPolicies.servicePerimeters.patch+    AccessContextManagerAccessPoliciesServicePerimetersPatchResource,+    AccessContextManagerAccessPoliciesServicePerimetersPatch (..),+    newAccessContextManagerAccessPoliciesServicePerimetersPatch,++    -- ** accesscontextmanager.accessPolicies.servicePerimeters.replaceAll+    AccessContextManagerAccessPoliciesServicePerimetersReplaceAllResource,+    AccessContextManagerAccessPoliciesServicePerimetersReplaceAll (..),+    newAccessContextManagerAccessPoliciesServicePerimetersReplaceAll,++    -- ** accesscontextmanager.accessPolicies.servicePerimeters.testIamPermissions+    AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissionsResource,+    AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions (..),+    newAccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions,++    -- ** accesscontextmanager.accessPolicies.setIamPolicy+    AccessContextManagerAccessPoliciesSetIamPolicyResource,+    AccessContextManagerAccessPoliciesSetIamPolicy (..),+    newAccessContextManagerAccessPoliciesSetIamPolicy,++    -- ** accesscontextmanager.accessPolicies.testIamPermissions+    AccessContextManagerAccessPoliciesTestIamPermissionsResource,+    AccessContextManagerAccessPoliciesTestIamPermissions (..),+    newAccessContextManagerAccessPoliciesTestIamPermissions,++    -- ** accesscontextmanager.operations.cancel+    AccessContextManagerOperationsCancelResource,+    AccessContextManagerOperationsCancel (..),+    newAccessContextManagerOperationsCancel,++    -- ** accesscontextmanager.operations.delete+    AccessContextManagerOperationsDeleteResource,+    AccessContextManagerOperationsDelete (..),+    newAccessContextManagerOperationsDelete,++    -- ** accesscontextmanager.operations.get+    AccessContextManagerOperationsGetResource,+    AccessContextManagerOperationsGet (..),+    newAccessContextManagerOperationsGet,++    -- ** accesscontextmanager.operations.list+    AccessContextManagerOperationsListResource,+    AccessContextManagerOperationsList (..),+    newAccessContextManagerOperationsList,++    -- ** accesscontextmanager.organizations.gcpUserAccessBindings.create+    AccessContextManagerOrganizationsGcpUserAccessBindingsCreateResource,+    AccessContextManagerOrganizationsGcpUserAccessBindingsCreate (..),+    newAccessContextManagerOrganizationsGcpUserAccessBindingsCreate,++    -- ** accesscontextmanager.organizations.gcpUserAccessBindings.delete+    AccessContextManagerOrganizationsGcpUserAccessBindingsDeleteResource,+    AccessContextManagerOrganizationsGcpUserAccessBindingsDelete (..),+    newAccessContextManagerOrganizationsGcpUserAccessBindingsDelete,++    -- ** accesscontextmanager.organizations.gcpUserAccessBindings.get+    AccessContextManagerOrganizationsGcpUserAccessBindingsGetResource,+    AccessContextManagerOrganizationsGcpUserAccessBindingsGet (..),+    newAccessContextManagerOrganizationsGcpUserAccessBindingsGet,++    -- ** accesscontextmanager.organizations.gcpUserAccessBindings.list+    AccessContextManagerOrganizationsGcpUserAccessBindingsListResource,+    AccessContextManagerOrganizationsGcpUserAccessBindingsList (..),+    newAccessContextManagerOrganizationsGcpUserAccessBindingsList,++    -- ** accesscontextmanager.organizations.gcpUserAccessBindings.patch+    AccessContextManagerOrganizationsGcpUserAccessBindingsPatchResource,+    AccessContextManagerOrganizationsGcpUserAccessBindingsPatch (..),+    newAccessContextManagerOrganizationsGcpUserAccessBindingsPatch,++    -- ** accesscontextmanager.services.get+    AccessContextManagerServicesGetResource,+    AccessContextManagerServicesGet (..),+    newAccessContextManagerServicesGet,++    -- ** accesscontextmanager.services.list+    AccessContextManagerServicesListResource,+    AccessContextManagerServicesList (..),+    newAccessContextManagerServicesList,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** AccessContextManagerOperationMetadata+    AccessContextManagerOperationMetadata (..),+    newAccessContextManagerOperationMetadata,++    -- ** AccessLevel+    AccessLevel (..),+    newAccessLevel,++    -- ** AccessPolicy+    AccessPolicy (..),+    newAccessPolicy,++    -- ** AccessScope+    AccessScope (..),+    newAccessScope,++    -- ** AccessSettings+    AccessSettings (..),+    newAccessSettings,++    -- ** ApiOperation+    ApiOperation (..),+    newApiOperation,++    -- ** Application+    Application (..),+    newApplication,++    -- ** AuditConfig+    AuditConfig (..),+    newAuditConfig,++    -- ** AuditLogConfig+    AuditLogConfig (..),+    newAuditLogConfig,++    -- ** AuditLogConfig_LogType+    AuditLogConfig_LogType (..),++    -- ** AuthorizedOrgsDesc+    AuthorizedOrgsDesc (..),+    newAuthorizedOrgsDesc,++    -- ** AuthorizedOrgsDesc_AssetType+    AuthorizedOrgsDesc_AssetType (..),++    -- ** AuthorizedOrgsDesc_AuthorizationDirection+    AuthorizedOrgsDesc_AuthorizationDirection (..),++    -- ** AuthorizedOrgsDesc_AuthorizationType+    AuthorizedOrgsDesc_AuthorizationType (..),++    -- ** BasicLevel+    BasicLevel (..),+    newBasicLevel,++    -- ** BasicLevel_CombiningFunction+    BasicLevel_CombiningFunction (..),++    -- ** Binding+    Binding (..),+    newBinding,++    -- ** CancelOperationRequest+    CancelOperationRequest (..),+    newCancelOperationRequest,++    -- ** ClientScope+    ClientScope (..),+    newClientScope,++    -- ** CommitServicePerimetersRequest+    CommitServicePerimetersRequest (..),+    newCommitServicePerimetersRequest,++    -- ** CommitServicePerimetersResponse+    CommitServicePerimetersResponse (..),+    newCommitServicePerimetersResponse,++    -- ** Condition+    Condition (..),+    newCondition,++    -- ** CustomLevel+    CustomLevel (..),+    newCustomLevel,++    -- ** DevicePolicy+    DevicePolicy (..),+    newDevicePolicy,++    -- ** DevicePolicy_AllowedDeviceManagementLevelsItem+    DevicePolicy_AllowedDeviceManagementLevelsItem (..),++    -- ** DevicePolicy_AllowedEncryptionStatusesItem+    DevicePolicy_AllowedEncryptionStatusesItem (..),++    -- ** EgressFrom+    EgressFrom (..),+    newEgressFrom,++    -- ** EgressFrom_IdentityType+    EgressFrom_IdentityType (..),++    -- ** EgressFrom_SourceRestriction+    EgressFrom_SourceRestriction (..),++    -- ** EgressPolicy+    EgressPolicy (..),+    newEgressPolicy,++    -- ** EgressSource+    EgressSource (..),+    newEgressSource,++    -- ** EgressTo+    EgressTo (..),+    newEgressTo,++    -- ** Empty+    Empty (..),+    newEmpty,++    -- ** Expr+    Expr (..),+    newExpr,++    -- ** GcpUserAccessBinding+    GcpUserAccessBinding (..),+    newGcpUserAccessBinding,++    -- ** GcpUserAccessBindingOperationMetadata+    GcpUserAccessBindingOperationMetadata (..),+    newGcpUserAccessBindingOperationMetadata,++    -- ** GetIamPolicyRequest+    GetIamPolicyRequest (..),+    newGetIamPolicyRequest,++    -- ** GetPolicyOptions+    GetPolicyOptions (..),+    newGetPolicyOptions,++    -- ** IngressFrom+    IngressFrom (..),+    newIngressFrom,++    -- ** IngressFrom_IdentityType+    IngressFrom_IdentityType (..),++    -- ** IngressPolicy+    IngressPolicy (..),+    newIngressPolicy,++    -- ** IngressSource+    IngressSource (..),+    newIngressSource,++    -- ** IngressTo+    IngressTo (..),+    newIngressTo,++    -- ** ListAccessLevelsResponse+    ListAccessLevelsResponse (..),+    newListAccessLevelsResponse,++    -- ** ListAccessPoliciesResponse+    ListAccessPoliciesResponse (..),+    newListAccessPoliciesResponse,++    -- ** ListAuthorizedOrgsDescsResponse+    ListAuthorizedOrgsDescsResponse (..),+    newListAuthorizedOrgsDescsResponse,++    -- ** ListGcpUserAccessBindingsResponse+    ListGcpUserAccessBindingsResponse (..),+    newListGcpUserAccessBindingsResponse,++    -- ** ListOperationsResponse+    ListOperationsResponse (..),+    newListOperationsResponse,++    -- ** ListServicePerimetersResponse+    ListServicePerimetersResponse (..),+    newListServicePerimetersResponse,++    -- ** ListSupportedServicesResponse+    ListSupportedServicesResponse (..),+    newListSupportedServicesResponse,++    -- ** MethodSelector+    MethodSelector (..),+    newMethodSelector,++    -- ** Operation+    Operation (..),+    newOperation,++    -- ** Operation_Metadata+    Operation_Metadata (..),+    newOperation_Metadata,++    -- ** Operation_Response+    Operation_Response (..),+    newOperation_Response,++    -- ** OsConstraint+    OsConstraint (..),+    newOsConstraint,++    -- ** OsConstraint_OsType+    OsConstraint_OsType (..),++    -- ** Policy+    Policy (..),+    newPolicy,++    -- ** ReplaceAccessLevelsRequest+    ReplaceAccessLevelsRequest (..),+    newReplaceAccessLevelsRequest,++    -- ** ReplaceAccessLevelsResponse+    ReplaceAccessLevelsResponse (..),+    newReplaceAccessLevelsResponse,++    -- ** ReplaceServicePerimetersRequest+    ReplaceServicePerimetersRequest (..),+    newReplaceServicePerimetersRequest,++    -- ** ReplaceServicePerimetersResponse+    ReplaceServicePerimetersResponse (..),+    newReplaceServicePerimetersResponse,++    -- ** ScopedAccessSettings+    ScopedAccessSettings (..),+    newScopedAccessSettings,++    -- ** ServicePerimeter+    ServicePerimeter (..),+    newServicePerimeter,++    -- ** ServicePerimeter_PerimeterType+    ServicePerimeter_PerimeterType (..),++    -- ** ServicePerimeterConfig+    ServicePerimeterConfig (..),+    newServicePerimeterConfig,++    -- ** SessionSettings+    SessionSettings (..),+    newSessionSettings,++    -- ** SessionSettings_SessionReauthMethod+    SessionSettings_SessionReauthMethod (..),++    -- ** SetIamPolicyRequest+    SetIamPolicyRequest (..),+    newSetIamPolicyRequest,++    -- ** Status+    Status (..),+    newStatus,++    -- ** Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- ** SupportedService+    SupportedService (..),+    newSupportedService,++    -- ** SupportedService_ServiceSupportStage+    SupportedService_ServiceSupportStage (..),++    -- ** SupportedService_SupportStage+    SupportedService_SupportStage (..),++    -- ** TestIamPermissionsRequest+    TestIamPermissionsRequest (..),+    newTestIamPermissionsRequest,++    -- ** TestIamPermissionsResponse+    TestIamPermissionsResponse (..),+    newTestIamPermissionsResponse,++    -- ** VpcAccessibleServices+    VpcAccessibleServices (..),+    newVpcAccessibleServices,++    -- ** VpcNetworkSource+    VpcNetworkSource (..),+    newVpcNetworkSource,++    -- ** VpcSubNetwork+    VpcSubNetwork (..),+    newVpcSubNetwork,++    -- ** AccessPoliciesAccessLevelsGetAccessLevelFormat+    AccessPoliciesAccessLevelsGetAccessLevelFormat (..),++    -- ** AccessPoliciesAccessLevelsListAccessLevelFormat+    AccessPoliciesAccessLevelsListAccessLevelFormat (..),+  )+where++import Gogol.AccessContextManager.AccessPolicies.AccessLevels.Create+import Gogol.AccessContextManager.AccessPolicies.AccessLevels.Delete+import Gogol.AccessContextManager.AccessPolicies.AccessLevels.Get+import Gogol.AccessContextManager.AccessPolicies.AccessLevels.List+import Gogol.AccessContextManager.AccessPolicies.AccessLevels.Patch+import Gogol.AccessContextManager.AccessPolicies.AccessLevels.ReplaceAll+import Gogol.AccessContextManager.AccessPolicies.AccessLevels.TestIamPermissions+import Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Create+import Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Delete+import Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Get+import Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.List+import Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Patch+import Gogol.AccessContextManager.AccessPolicies.Create+import Gogol.AccessContextManager.AccessPolicies.Delete+import Gogol.AccessContextManager.AccessPolicies.Get+import Gogol.AccessContextManager.AccessPolicies.GetIamPolicy+import Gogol.AccessContextManager.AccessPolicies.List+import Gogol.AccessContextManager.AccessPolicies.Patch+import Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Commit+import Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Create+import Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Delete+import Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Get+import Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.List+import Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Patch+import Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.ReplaceAll+import Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.TestIamPermissions+import Gogol.AccessContextManager.AccessPolicies.SetIamPolicy+import Gogol.AccessContextManager.AccessPolicies.TestIamPermissions+import Gogol.AccessContextManager.Operations.Cancel+import Gogol.AccessContextManager.Operations.Delete+import Gogol.AccessContextManager.Operations.Get+import Gogol.AccessContextManager.Operations.List+import Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Create+import Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Delete+import Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Get+import Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.List+import Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Patch+import Gogol.AccessContextManager.Services.Get+import Gogol.AccessContextManager.Services.List+import Gogol.AccessContextManager.Types
+ gen/Gogol/AccessContextManager/AccessPolicies/AccessLevels/Create.hs view
@@ -0,0 +1,129 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.AccessLevels.Create+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an access level. The long-running operation from this RPC has a successful status after the access level propagates to long-lasting storage. If access levels contain errors, an error response is returned for the first error encountered.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.accessLevels.create@.+module Gogol.AccessContextManager.AccessPolicies.AccessLevels.Create+  ( -- * Resource+    AccessContextManagerAccessPoliciesAccessLevelsCreateResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesAccessLevelsCreate (..),+    newAccessContextManagerAccessPoliciesAccessLevelsCreate,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.create@ method which the+-- 'AccessContextManagerAccessPoliciesAccessLevelsCreate' request conforms to.+type AccessContextManagerAccessPoliciesAccessLevelsCreateResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "accessLevels"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] AccessLevel+    Core.:> Core.Post '[Core.JSON] Operation++-- | Creates an access level. The long-running operation from this RPC has a successful status after the access level propagates to long-lasting storage. If access levels contain errors, an error response is returned for the first error encountered.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesAccessLevelsCreate' smart constructor.+data AccessContextManagerAccessPoliciesAccessLevelsCreate = AccessContextManagerAccessPoliciesAccessLevelsCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the access policy which owns this Access Level. Format: @accessPolicies\/{policy_id}@+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: AccessLevel,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesAccessLevelsCreate' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesAccessLevelsCreate ::+  -- |  Required. Resource name for the access policy which owns this Access Level. Format: @accessPolicies\/{policy_id}@ See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  AccessLevel ->+  AccessContextManagerAccessPoliciesAccessLevelsCreate+newAccessContextManagerAccessPoliciesAccessLevelsCreate+  parent+  payload =+    AccessContextManagerAccessPoliciesAccessLevelsCreate+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        parent = parent,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesAccessLevelsCreate+  where+  type+    Rs AccessContextManagerAccessPoliciesAccessLevelsCreate =+      Operation+  type+    Scopes AccessContextManagerAccessPoliciesAccessLevelsCreate =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesAccessLevelsCreate {..} =+      go+        parent+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesAccessLevelsCreateResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/AccessLevels/Delete.hs view
@@ -0,0 +1,119 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.AccessLevels.Delete+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an access level based on the resource name. The long-running operation from this RPC has a successful status after the access level has been removed from long-lasting storage.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.accessLevels.delete@.+module Gogol.AccessContextManager.AccessPolicies.AccessLevels.Delete+  ( -- * Resource+    AccessContextManagerAccessPoliciesAccessLevelsDeleteResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesAccessLevelsDelete (..),+    newAccessContextManagerAccessPoliciesAccessLevelsDelete,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.delete@ method which the+-- 'AccessContextManagerAccessPoliciesAccessLevelsDelete' request conforms to.+type AccessContextManagerAccessPoliciesAccessLevelsDeleteResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] Operation++-- | Deletes an access level based on the resource name. The long-running operation from this RPC has a successful status after the access level has been removed from long-lasting storage.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesAccessLevelsDelete' smart constructor.+data AccessContextManagerAccessPoliciesAccessLevelsDelete = AccessContextManagerAccessPoliciesAccessLevelsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the Access Level. Format: @accessPolicies\/{policy_id}\/accessLevels\/{access_level_id}@+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesAccessLevelsDelete' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesAccessLevelsDelete ::+  -- |  Required. Resource name for the Access Level. Format: @accessPolicies\/{policy_id}\/accessLevels\/{access_level_id}@ See 'name'.+  Core.Text ->+  AccessContextManagerAccessPoliciesAccessLevelsDelete+newAccessContextManagerAccessPoliciesAccessLevelsDelete name =+  AccessContextManagerAccessPoliciesAccessLevelsDelete+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesAccessLevelsDelete+  where+  type+    Rs AccessContextManagerAccessPoliciesAccessLevelsDelete =+      Operation+  type+    Scopes AccessContextManagerAccessPoliciesAccessLevelsDelete =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesAccessLevelsDelete {..} =+      go+        name+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesAccessLevelsDeleteResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/AccessLevels/Get.hs view
@@ -0,0 +1,125 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.AccessLevels.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets an access level based on the resource name.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.accessLevels.get@.+module Gogol.AccessContextManager.AccessPolicies.AccessLevels.Get+  ( -- * Resource+    AccessContextManagerAccessPoliciesAccessLevelsGetResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesAccessLevelsGet (..),+    newAccessContextManagerAccessPoliciesAccessLevelsGet,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.get@ method which the+-- 'AccessContextManagerAccessPoliciesAccessLevelsGet' request conforms to.+type AccessContextManagerAccessPoliciesAccessLevelsGetResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam+              "accessLevelFormat"+              AccessPoliciesAccessLevelsGetAccessLevelFormat+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] AccessLevel++-- | Gets an access level based on the resource name.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesAccessLevelsGet' smart constructor.+data AccessContextManagerAccessPoliciesAccessLevelsGet = AccessContextManagerAccessPoliciesAccessLevelsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | Whether to return @BasicLevels@ in the Cloud Common Expression Language rather than as @BasicLevels@. Defaults to AS_DEFINED, where Access Levels are returned as @BasicLevels@ or @CustomLevels@ based on how they were created. If set to CEL, all Access Levels are returned as @CustomLevels@. In the CEL case, @BasicLevels@ are translated to equivalent @CustomLevels@.+    accessLevelFormat :: (Core.Maybe AccessPoliciesAccessLevelsGetAccessLevelFormat),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the Access Level. Format: @accessPolicies\/{policy_id}\/accessLevels\/{access_level_id}@+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesAccessLevelsGet' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesAccessLevelsGet ::+  -- |  Required. Resource name for the Access Level. Format: @accessPolicies\/{policy_id}\/accessLevels\/{access_level_id}@ See 'name'.+  Core.Text ->+  AccessContextManagerAccessPoliciesAccessLevelsGet+newAccessContextManagerAccessPoliciesAccessLevelsGet name =+  AccessContextManagerAccessPoliciesAccessLevelsGet+    { xgafv =+        Core.Nothing,+      accessLevelFormat = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesAccessLevelsGet+  where+  type+    Rs AccessContextManagerAccessPoliciesAccessLevelsGet =+      AccessLevel+  type+    Scopes AccessContextManagerAccessPoliciesAccessLevelsGet =+      '[CloudPlatform'FullControl]+  requestClient AccessContextManagerAccessPoliciesAccessLevelsGet {..} =+    go+      name+      xgafv+      accessLevelFormat+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessContextManagerService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy+                AccessContextManagerAccessPoliciesAccessLevelsGetResource+          )+          Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/AccessLevels/List.hs view
@@ -0,0 +1,137 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.AccessLevels.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all access levels for an access policy.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.accessLevels.list@.+module Gogol.AccessContextManager.AccessPolicies.AccessLevels.List+  ( -- * Resource+    AccessContextManagerAccessPoliciesAccessLevelsListResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesAccessLevelsList (..),+    newAccessContextManagerAccessPoliciesAccessLevelsList,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.list@ method which the+-- 'AccessContextManagerAccessPoliciesAccessLevelsList' request conforms to.+type AccessContextManagerAccessPoliciesAccessLevelsListResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "accessLevels"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam+              "accessLevelFormat"+              AccessPoliciesAccessLevelsListAccessLevelFormat+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListAccessLevelsResponse++-- | Lists all access levels for an access policy.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesAccessLevelsList' smart constructor.+data AccessContextManagerAccessPoliciesAccessLevelsList = AccessContextManagerAccessPoliciesAccessLevelsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | Whether to return @BasicLevels@ in the Cloud Common Expression language, as @CustomLevels@, rather than as @BasicLevels@. Defaults to returning @AccessLevels@ in the format they were defined.+    accessLevelFormat :: (Core.Maybe AccessPoliciesAccessLevelsListAccessLevelFormat),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Number of Access Levels to include in the list. Default 100.+    pageSize :: (Core.Maybe Core.Int32),+    -- | Next page token for the next batch of Access Level instances. Defaults to the first page of results.+    pageToken :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the access policy to list Access Levels from. Format: @accessPolicies\/{policy_id}@+    parent :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesAccessLevelsList' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesAccessLevelsList ::+  -- |  Required. Resource name for the access policy to list Access Levels from. Format: @accessPolicies\/{policy_id}@ See 'parent'.+  Core.Text ->+  AccessContextManagerAccessPoliciesAccessLevelsList+newAccessContextManagerAccessPoliciesAccessLevelsList parent =+  AccessContextManagerAccessPoliciesAccessLevelsList+    { xgafv =+        Core.Nothing,+      accessLevelFormat = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      parent = parent,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesAccessLevelsList+  where+  type+    Rs AccessContextManagerAccessPoliciesAccessLevelsList =+      ListAccessLevelsResponse+  type+    Scopes AccessContextManagerAccessPoliciesAccessLevelsList =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesAccessLevelsList {..} =+      go+        parent+        xgafv+        accessLevelFormat+        accessToken+        callback+        pageSize+        pageToken+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesAccessLevelsListResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/AccessLevels/Patch.hs view
@@ -0,0 +1,131 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.AccessLevels.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates an access level. The long-running operation from this RPC has a successful status after the changes to the access level propagate to long-lasting storage. If access levels contain errors, an error response is returned for the first error encountered.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.accessLevels.patch@.+module Gogol.AccessContextManager.AccessPolicies.AccessLevels.Patch+  ( -- * Resource+    AccessContextManagerAccessPoliciesAccessLevelsPatchResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesAccessLevelsPatch (..),+    newAccessContextManagerAccessPoliciesAccessLevelsPatch,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.patch@ method which the+-- 'AccessContextManagerAccessPoliciesAccessLevelsPatch' request conforms to.+type AccessContextManagerAccessPoliciesAccessLevelsPatchResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "updateMask" Core.FieldMask+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] AccessLevel+    Core.:> Core.Patch '[Core.JSON] Operation++-- | Updates an access level. The long-running operation from this RPC has a successful status after the changes to the access level propagate to long-lasting storage. If access levels contain errors, an error response is returned for the first error encountered.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesAccessLevelsPatch' smart constructor.+data AccessContextManagerAccessPoliciesAccessLevelsPatch = AccessContextManagerAccessPoliciesAccessLevelsPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifier. Resource name for the @AccessLevel@. Format: @accessPolicies\/{access_policy}\/accessLevels\/{access_level}@. The @access_level@ component must begin with a letter, followed by alphanumeric characters or @_@. Its maximum length is 50 characters. After you create an @AccessLevel@, you cannot change its @name@.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: AccessLevel,+    -- | Required. Mask to control which fields get updated. Must be non-empty.+    updateMask :: (Core.Maybe Core.FieldMask),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesAccessLevelsPatch' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesAccessLevelsPatch ::+  -- |  Identifier. Resource name for the @AccessLevel@. Format: @accessPolicies\/{access_policy}\/accessLevels\/{access_level}@. The @access_level@ component must begin with a letter, followed by alphanumeric characters or @_@. Its maximum length is 50 characters. After you create an @AccessLevel@, you cannot change its @name@. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  AccessLevel ->+  AccessContextManagerAccessPoliciesAccessLevelsPatch+newAccessContextManagerAccessPoliciesAccessLevelsPatch name payload =+  AccessContextManagerAccessPoliciesAccessLevelsPatch+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      updateMask = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesAccessLevelsPatch+  where+  type+    Rs AccessContextManagerAccessPoliciesAccessLevelsPatch =+      Operation+  type+    Scopes AccessContextManagerAccessPoliciesAccessLevelsPatch =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesAccessLevelsPatch {..} =+      go+        name+        xgafv+        accessToken+        callback+        updateMask+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesAccessLevelsPatchResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/AccessLevels/ReplaceAll.hs view
@@ -0,0 +1,130 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.AccessLevels.ReplaceAll+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Replaces all existing access levels in an access policy with the access levels provided. This is done atomically. The long-running operation from this RPC has a successful status after all replacements propagate to long-lasting storage. If the replacement contains errors, an error response is returned for the first error encountered. Upon error, the replacement is cancelled, and existing access levels are not affected. The Operation.response field contains ReplaceAccessLevelsResponse. Removing access levels contained in existing service perimeters result in an error.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.accessLevels.replaceAll@.+module Gogol.AccessContextManager.AccessPolicies.AccessLevels.ReplaceAll+  ( -- * Resource+    AccessContextManagerAccessPoliciesAccessLevelsReplaceAllResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesAccessLevelsReplaceAll (..),+    newAccessContextManagerAccessPoliciesAccessLevelsReplaceAll,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.replaceAll@ method which the+-- 'AccessContextManagerAccessPoliciesAccessLevelsReplaceAll' request conforms to.+type AccessContextManagerAccessPoliciesAccessLevelsReplaceAllResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "accessLevels:replaceAll"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] ReplaceAccessLevelsRequest+    Core.:> Core.Post '[Core.JSON] Operation++-- | Replaces all existing access levels in an access policy with the access levels provided. This is done atomically. The long-running operation from this RPC has a successful status after all replacements propagate to long-lasting storage. If the replacement contains errors, an error response is returned for the first error encountered. Upon error, the replacement is cancelled, and existing access levels are not affected. The Operation.response field contains ReplaceAccessLevelsResponse. Removing access levels contained in existing service perimeters result in an error.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesAccessLevelsReplaceAll' smart constructor.+data AccessContextManagerAccessPoliciesAccessLevelsReplaceAll = AccessContextManagerAccessPoliciesAccessLevelsReplaceAll+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the access policy which owns these Access Levels. Format: @accessPolicies\/{policy_id}@+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: ReplaceAccessLevelsRequest,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesAccessLevelsReplaceAll' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesAccessLevelsReplaceAll ::+  -- |  Required. Resource name for the access policy which owns these Access Levels. Format: @accessPolicies\/{policy_id}@ See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ReplaceAccessLevelsRequest ->+  AccessContextManagerAccessPoliciesAccessLevelsReplaceAll+newAccessContextManagerAccessPoliciesAccessLevelsReplaceAll+  parent+  payload =+    AccessContextManagerAccessPoliciesAccessLevelsReplaceAll+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        parent = parent,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesAccessLevelsReplaceAll+  where+  type+    Rs AccessContextManagerAccessPoliciesAccessLevelsReplaceAll =+      Operation+  type+    Scopes+      AccessContextManagerAccessPoliciesAccessLevelsReplaceAll =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesAccessLevelsReplaceAll {..} =+      go+        parent+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesAccessLevelsReplaceAllResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/AccessLevels/TestIamPermissions.hs view
@@ -0,0 +1,130 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.AccessLevels.TestIamPermissions+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the IAM permissions that the caller has on the specified Access Context Manager resource. The resource can be an AccessPolicy, AccessLevel, or ServicePerimeter. This method does not support other resources.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.accessLevels.testIamPermissions@.+module Gogol.AccessContextManager.AccessPolicies.AccessLevels.TestIamPermissions+  ( -- * Resource+    AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissionsResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions (..),+    newAccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.testIamPermissions@ method which the+-- 'AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions' request conforms to.+type AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissionsResource =+  "v1"+    Core.:> Core.CaptureMode "resource" "testIamPermissions" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] TestIamPermissionsRequest+    Core.:> Core.Post '[Core.JSON] TestIamPermissionsResponse++-- | Returns the IAM permissions that the caller has on the specified Access Context Manager resource. The resource can be an AccessPolicy, AccessLevel, or ServicePerimeter. This method does not support other resources.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions' smart constructor.+data AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions = AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: TestIamPermissionsRequest,+    -- | REQUIRED: The resource for which the policy detail is being requested. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field.+    resource :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions ::+  -- |  Multipart request metadata. See 'payload'.+  TestIamPermissionsRequest ->+  -- |  REQUIRED: The resource for which the policy detail is being requested. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field. See 'resource'.+  Core.Text ->+  AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions+newAccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions+  payload+  resource =+    AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        payload = payload,+        resource = resource,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions+  where+  type+    Rs+      AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions =+      TestIamPermissionsResponse+  type+    Scopes+      AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissions {..} =+      go+        resource+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesAccessLevelsTestIamPermissionsResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/AuthorizedOrgsDescs/Create.hs view
@@ -0,0 +1,130 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Create+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an authorized orgs desc. The long-running operation from this RPC has a successful status after the authorized orgs desc propagates to long-lasting storage. If a authorized orgs desc contains errors, an error response is returned for the first error encountered. The name of this @AuthorizedOrgsDesc@ will be assigned during creation.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.authorizedOrgsDescs.create@.+module Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Create+  ( -- * Resource+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreateResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate (..),+    newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.authorizedOrgsDescs.create@ method which the+-- 'AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate' request conforms to.+type AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreateResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "authorizedOrgsDescs"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] AuthorizedOrgsDesc+    Core.:> Core.Post '[Core.JSON] Operation++-- | Creates an authorized orgs desc. The long-running operation from this RPC has a successful status after the authorized orgs desc propagates to long-lasting storage. If a authorized orgs desc contains errors, an error response is returned for the first error encountered. The name of this @AuthorizedOrgsDesc@ will be assigned during creation.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate' smart constructor.+data AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate = AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the access policy which owns this Authorized Orgs Desc. Format: @accessPolicies\/{policy_id}@+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: AuthorizedOrgsDesc,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate ::+  -- |  Required. Resource name for the access policy which owns this Authorized Orgs Desc. Format: @accessPolicies\/{policy_id}@ See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  AuthorizedOrgsDesc ->+  AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate+newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate+  parent+  payload =+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        parent = parent,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate+  where+  type+    Rs AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate =+      Operation+  type+    Scopes+      AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreate {..} =+      go+        parent+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesAuthorizedOrgsDescsCreateResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/AuthorizedOrgsDescs/Delete.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Delete+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an authorized orgs desc based on the resource name. The long-running operation from this RPC has a successful status after the authorized orgs desc is removed from long-lasting storage.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.authorizedOrgsDescs.delete@.+module Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Delete+  ( -- * Resource+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDeleteResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete (..),+    newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.authorizedOrgsDescs.delete@ method which the+-- 'AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete' request conforms to.+type AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDeleteResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] Operation++-- | Deletes an authorized orgs desc based on the resource name. The long-running operation from this RPC has a successful status after the authorized orgs desc is removed from long-lasting storage.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete' smart constructor.+data AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete = AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the Authorized Orgs Desc. Format: @accessPolicies\/{policy_id}\/authorizedOrgsDesc\/{authorized_orgs_desc_id}@+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete ::+  -- |  Required. Resource name for the Authorized Orgs Desc. Format: @accessPolicies\/{policy_id}\/authorizedOrgsDesc\/{authorized_orgs_desc_id}@ See 'name'.+  Core.Text ->+  AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete+newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete name =+  AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete+  where+  type+    Rs AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete =+      Operation+  type+    Scopes+      AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDelete {..} =+      go+        name+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesAuthorizedOrgsDescsDeleteResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/AuthorizedOrgsDescs/Get.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets an authorized orgs desc based on the resource name.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.authorizedOrgsDescs.get@.+module Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Get+  ( -- * Resource+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGetResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet (..),+    newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.authorizedOrgsDescs.get@ method which the+-- 'AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet' request conforms to.+type AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGetResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] AuthorizedOrgsDesc++-- | Gets an authorized orgs desc based on the resource name.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet' smart constructor.+data AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet = AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the Authorized Orgs Desc. Format: @accessPolicies\/{policy_id}\/authorizedOrgsDescs\/{authorized_orgs_descs_id}@+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet ::+  -- |  Required. Resource name for the Authorized Orgs Desc. Format: @accessPolicies\/{policy_id}\/authorizedOrgsDescs\/{authorized_orgs_descs_id}@ See 'name'.+  Core.Text ->+  AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet+newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet name =+  AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet+  where+  type+    Rs AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet =+      AuthorizedOrgsDesc+  type+    Scopes+      AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGet {..} =+      go+        name+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesAuthorizedOrgsDescsGetResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/AuthorizedOrgsDescs/List.hs view
@@ -0,0 +1,131 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all authorized orgs descs for an access policy.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.authorizedOrgsDescs.list@.+module Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.List+  ( -- * Resource+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsListResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsList (..),+    newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsList,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.authorizedOrgsDescs.list@ method which the+-- 'AccessContextManagerAccessPoliciesAuthorizedOrgsDescsList' request conforms to.+type AccessContextManagerAccessPoliciesAuthorizedOrgsDescsListResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "authorizedOrgsDescs"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListAuthorizedOrgsDescsResponse++-- | Lists all authorized orgs descs for an access policy.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsList' smart constructor.+data AccessContextManagerAccessPoliciesAuthorizedOrgsDescsList = AccessContextManagerAccessPoliciesAuthorizedOrgsDescsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Number of Authorized Orgs Descs to include in the list. Default 100.+    pageSize :: (Core.Maybe Core.Int32),+    -- | Next page token for the next batch of Authorized Orgs Desc instances. Defaults to the first page of results.+    pageToken :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the access policy to list Authorized Orgs Desc from. Format: @accessPolicies\/{policy_id}@+    parent :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesAuthorizedOrgsDescsList' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsList ::+  -- |  Required. Resource name for the access policy to list Authorized Orgs Desc from. Format: @accessPolicies\/{policy_id}@ See 'parent'.+  Core.Text ->+  AccessContextManagerAccessPoliciesAuthorizedOrgsDescsList+newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsList parent =+  AccessContextManagerAccessPoliciesAuthorizedOrgsDescsList+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      parent = parent,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsList+  where+  type+    Rs AccessContextManagerAccessPoliciesAuthorizedOrgsDescsList =+      ListAuthorizedOrgsDescsResponse+  type+    Scopes+      AccessContextManagerAccessPoliciesAuthorizedOrgsDescsList =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsList {..} =+      go+        parent+        xgafv+        accessToken+        callback+        pageSize+        pageToken+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesAuthorizedOrgsDescsListResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/AuthorizedOrgsDescs/Patch.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates an authorized orgs desc. The long-running operation from this RPC has a successful status after the authorized orgs desc propagates to long-lasting storage. If a authorized orgs desc contains errors, an error response is returned for the first error encountered. Only the organization list in @AuthorizedOrgsDesc@ can be updated. The name, authorization/type, asset/type and authorization_direction cannot be updated.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.authorizedOrgsDescs.patch@.+module Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Patch+  ( -- * Resource+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatchResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch (..),+    newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.authorizedOrgsDescs.patch@ method which the+-- 'AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch' request conforms to.+type AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatchResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "updateMask" Core.FieldMask+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] AuthorizedOrgsDesc+    Core.:> Core.Patch '[Core.JSON] Operation++-- | Updates an authorized orgs desc. The long-running operation from this RPC has a successful status after the authorized orgs desc propagates to long-lasting storage. If a authorized orgs desc contains errors, an error response is returned for the first error encountered. Only the organization list in @AuthorizedOrgsDesc@ can be updated. The name, authorization/type, asset/type and authorization_direction cannot be updated.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch' smart constructor.+data AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch = AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifier. Resource name for the @AuthorizedOrgsDesc@. Format: @accessPolicies\/{access_policy}\/authorizedOrgsDescs\/{authorized_orgs_desc}@. The @authorized_orgs_desc@ component must begin with a letter, followed by alphanumeric characters or @_@. After you create an @AuthorizedOrgsDesc@, you cannot change its @name@.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: AuthorizedOrgsDesc,+    -- | Required. Mask to control which fields get updated. Must be non-empty.+    updateMask :: (Core.Maybe Core.FieldMask),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch ::+  -- |  Identifier. Resource name for the @AuthorizedOrgsDesc@. Format: @accessPolicies\/{access_policy}\/authorizedOrgsDescs\/{authorized_orgs_desc}@. The @authorized_orgs_desc@ component must begin with a letter, followed by alphanumeric characters or @_@. After you create an @AuthorizedOrgsDesc@, you cannot change its @name@. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  AuthorizedOrgsDesc ->+  AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch+newAccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch+  name+  payload =+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        name = name,+        payload = payload,+        updateMask = Core.Nothing,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch+  where+  type+    Rs AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch =+      Operation+  type+    Scopes+      AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatch {..} =+      go+        name+        xgafv+        accessToken+        callback+        updateMask+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesAuthorizedOrgsDescsPatchResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/Create.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.Create+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an access policy. This method fails if the organization already has an access policy. The long-running operation has a successful status after the access policy propagates to long-lasting storage. Syntactic and basic semantic errors are returned in @metadata@ as a BadRequest proto.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.create@.+module Gogol.AccessContextManager.AccessPolicies.Create+  ( -- * Resource+    AccessContextManagerAccessPoliciesCreateResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesCreate (..),+    newAccessContextManagerAccessPoliciesCreate,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.create@ method which the+-- 'AccessContextManagerAccessPoliciesCreate' request conforms to.+type AccessContextManagerAccessPoliciesCreateResource =+  "v1"+    Core.:> "accessPolicies"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] AccessPolicy+    Core.:> Core.Post '[Core.JSON] Operation++-- | Creates an access policy. This method fails if the organization already has an access policy. The long-running operation has a successful status after the access policy propagates to long-lasting storage. Syntactic and basic semantic errors are returned in @metadata@ as a BadRequest proto.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesCreate' smart constructor.+data AccessContextManagerAccessPoliciesCreate = AccessContextManagerAccessPoliciesCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: AccessPolicy,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesCreate' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesCreate ::+  -- |  Multipart request metadata. See 'payload'.+  AccessPolicy ->+  AccessContextManagerAccessPoliciesCreate+newAccessContextManagerAccessPoliciesCreate payload =+  AccessContextManagerAccessPoliciesCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesCreate+  where+  type Rs AccessContextManagerAccessPoliciesCreate = Operation+  type+    Scopes AccessContextManagerAccessPoliciesCreate =+      '[CloudPlatform'FullControl]+  requestClient AccessContextManagerAccessPoliciesCreate {..} =+    go+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      accessContextManagerService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessContextManagerAccessPoliciesCreateResource+          )+          Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/Delete.hs view
@@ -0,0 +1,114 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.Delete+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an access policy based on the resource name. The long-running operation has a successful status after the access policy is removed from long-lasting storage.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.delete@.+module Gogol.AccessContextManager.AccessPolicies.Delete+  ( -- * Resource+    AccessContextManagerAccessPoliciesDeleteResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesDelete (..),+    newAccessContextManagerAccessPoliciesDelete,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.delete@ method which the+-- 'AccessContextManagerAccessPoliciesDelete' request conforms to.+type AccessContextManagerAccessPoliciesDeleteResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] Operation++-- | Deletes an access policy based on the resource name. The long-running operation has a successful status after the access policy is removed from long-lasting storage.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesDelete' smart constructor.+data AccessContextManagerAccessPoliciesDelete = AccessContextManagerAccessPoliciesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the access policy to delete. Format @accessPolicies\/{policy_id}@+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesDelete' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesDelete ::+  -- |  Required. Resource name for the access policy to delete. Format @accessPolicies\/{policy_id}@ See 'name'.+  Core.Text ->+  AccessContextManagerAccessPoliciesDelete+newAccessContextManagerAccessPoliciesDelete name =+  AccessContextManagerAccessPoliciesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesDelete+  where+  type Rs AccessContextManagerAccessPoliciesDelete = Operation+  type+    Scopes AccessContextManagerAccessPoliciesDelete =+      '[CloudPlatform'FullControl]+  requestClient AccessContextManagerAccessPoliciesDelete {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessContextManagerService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessContextManagerAccessPoliciesDeleteResource+          )+          Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/Get.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns an access policy based on the name.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.get@.+module Gogol.AccessContextManager.AccessPolicies.Get+  ( -- * Resource+    AccessContextManagerAccessPoliciesGetResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesGet (..),+    newAccessContextManagerAccessPoliciesGet,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.get@ method which the+-- 'AccessContextManagerAccessPoliciesGet' request conforms to.+type AccessContextManagerAccessPoliciesGetResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] AccessPolicy++-- | Returns an access policy based on the name.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesGet' smart constructor.+data AccessContextManagerAccessPoliciesGet = AccessContextManagerAccessPoliciesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the access policy to get. Format @accessPolicies\/{policy_id}@+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesGet' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesGet ::+  -- |  Required. Resource name for the access policy to get. Format @accessPolicies\/{policy_id}@ See 'name'.+  Core.Text ->+  AccessContextManagerAccessPoliciesGet+newAccessContextManagerAccessPoliciesGet name =+  AccessContextManagerAccessPoliciesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AccessContextManagerAccessPoliciesGet where+  type Rs AccessContextManagerAccessPoliciesGet = AccessPolicy+  type+    Scopes AccessContextManagerAccessPoliciesGet =+      '[CloudPlatform'FullControl]+  requestClient AccessContextManagerAccessPoliciesGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessContextManagerService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessContextManagerAccessPoliciesGetResource+          )+          Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/GetIamPolicy.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.GetIamPolicy+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the IAM policy for the specified Access Context Manager access policy.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.getIamPolicy@.+module Gogol.AccessContextManager.AccessPolicies.GetIamPolicy+  ( -- * Resource+    AccessContextManagerAccessPoliciesGetIamPolicyResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesGetIamPolicy (..),+    newAccessContextManagerAccessPoliciesGetIamPolicy,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.getIamPolicy@ method which the+-- 'AccessContextManagerAccessPoliciesGetIamPolicy' request conforms to.+type AccessContextManagerAccessPoliciesGetIamPolicyResource =+  "v1"+    Core.:> Core.CaptureMode "resource" "getIamPolicy" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] GetIamPolicyRequest+    Core.:> Core.Post '[Core.JSON] Policy++-- | Gets the IAM policy for the specified Access Context Manager access policy.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesGetIamPolicy' smart constructor.+data AccessContextManagerAccessPoliciesGetIamPolicy = AccessContextManagerAccessPoliciesGetIamPolicy+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: GetIamPolicyRequest,+    -- | REQUIRED: The resource for which the policy is being requested. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field.+    resource :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesGetIamPolicy' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesGetIamPolicy ::+  -- |  Multipart request metadata. See 'payload'.+  GetIamPolicyRequest ->+  -- |  REQUIRED: The resource for which the policy is being requested. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field. See 'resource'.+  Core.Text ->+  AccessContextManagerAccessPoliciesGetIamPolicy+newAccessContextManagerAccessPoliciesGetIamPolicy payload resource =+  AccessContextManagerAccessPoliciesGetIamPolicy+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      resource = resource,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesGetIamPolicy+  where+  type Rs AccessContextManagerAccessPoliciesGetIamPolicy = Policy+  type+    Scopes AccessContextManagerAccessPoliciesGetIamPolicy =+      '[CloudPlatform'FullControl]+  requestClient AccessContextManagerAccessPoliciesGetIamPolicy {..} =+    go+      resource+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      accessContextManagerService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessContextManagerAccessPoliciesGetIamPolicyResource+          )+          Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/List.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all access policies in an organization.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.list@.+module Gogol.AccessContextManager.AccessPolicies.List+  ( -- * Resource+    AccessContextManagerAccessPoliciesListResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesList (..),+    newAccessContextManagerAccessPoliciesList,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.list@ method which the+-- 'AccessContextManagerAccessPoliciesList' request conforms to.+type AccessContextManagerAccessPoliciesListResource =+  "v1"+    Core.:> "accessPolicies"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "parent" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListAccessPoliciesResponse++-- | Lists all access policies in an organization.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesList' smart constructor.+data AccessContextManagerAccessPoliciesList = AccessContextManagerAccessPoliciesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Number of AccessPolicy instances to include in the list. Default 100.+    pageSize :: (Core.Maybe Core.Int32),+    -- | Next page token for the next batch of AccessPolicy instances. Defaults to the first page of results.+    pageToken :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the container to list AccessPolicy instances from. Format: @organizations\/{org_id}@+    parent :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesList' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesList ::+  AccessContextManagerAccessPoliciesList+newAccessContextManagerAccessPoliciesList =+  AccessContextManagerAccessPoliciesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      parent = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AccessContextManagerAccessPoliciesList where+  type+    Rs AccessContextManagerAccessPoliciesList =+      ListAccessPoliciesResponse+  type+    Scopes AccessContextManagerAccessPoliciesList =+      '[CloudPlatform'FullControl]+  requestClient AccessContextManagerAccessPoliciesList {..} =+    go+      xgafv+      accessToken+      callback+      pageSize+      pageToken+      parent+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessContextManagerService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessContextManagerAccessPoliciesListResource+          )+          Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/Patch.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates an access policy. The long-running operation from this RPC has a successful status after the changes to the access policy propagate to long-lasting storage.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.patch@.+module Gogol.AccessContextManager.AccessPolicies.Patch+  ( -- * Resource+    AccessContextManagerAccessPoliciesPatchResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesPatch (..),+    newAccessContextManagerAccessPoliciesPatch,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.patch@ method which the+-- 'AccessContextManagerAccessPoliciesPatch' request conforms to.+type AccessContextManagerAccessPoliciesPatchResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "updateMask" Core.FieldMask+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] AccessPolicy+    Core.:> Core.Patch '[Core.JSON] Operation++-- | Updates an access policy. The long-running operation from this RPC has a successful status after the changes to the access policy propagate to long-lasting storage.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesPatch' smart constructor.+data AccessContextManagerAccessPoliciesPatch = AccessContextManagerAccessPoliciesPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Output only. Identifier. Resource name of the @AccessPolicy@. Format: @accessPolicies\/{access_policy}@+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: AccessPolicy,+    -- | Required. Mask to control which fields get updated. Must be non-empty.+    updateMask :: (Core.Maybe Core.FieldMask),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesPatch' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesPatch ::+  -- |  Output only. Identifier. Resource name of the @AccessPolicy@. Format: @accessPolicies\/{access_policy}@ See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  AccessPolicy ->+  AccessContextManagerAccessPoliciesPatch+newAccessContextManagerAccessPoliciesPatch name payload =+  AccessContextManagerAccessPoliciesPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      updateMask = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AccessContextManagerAccessPoliciesPatch where+  type Rs AccessContextManagerAccessPoliciesPatch = Operation+  type+    Scopes AccessContextManagerAccessPoliciesPatch =+      '[CloudPlatform'FullControl]+  requestClient AccessContextManagerAccessPoliciesPatch {..} =+    go+      name+      xgafv+      accessToken+      callback+      updateMask+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      accessContextManagerService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessContextManagerAccessPoliciesPatchResource+          )+          Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/ServicePerimeters/Commit.hs view
@@ -0,0 +1,130 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Commit+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Commits the dry-run specification for all the service perimeters in an access policy. A commit operation on a service perimeter involves copying its @spec@ field to the @status@ field of the service perimeter. Only service perimeters with @use_explicit_dry_run_spec@ field set to true are affected by a commit operation. The long-running operation from this RPC has a successful status after the dry-run specifications for all the service perimeters have been committed. If a commit fails, it causes the long-running operation to return an error response and the entire commit operation is cancelled. When successful, the Operation.response field contains CommitServicePerimetersResponse. The @dry_run@ and the @spec@ fields are cleared after a successful commit operation.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.servicePerimeters.commit@.+module Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Commit+  ( -- * Resource+    AccessContextManagerAccessPoliciesServicePerimetersCommitResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesServicePerimetersCommit (..),+    newAccessContextManagerAccessPoliciesServicePerimetersCommit,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.commit@ method which the+-- 'AccessContextManagerAccessPoliciesServicePerimetersCommit' request conforms to.+type AccessContextManagerAccessPoliciesServicePerimetersCommitResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "servicePerimeters:commit"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] CommitServicePerimetersRequest+    Core.:> Core.Post '[Core.JSON] Operation++-- | Commits the dry-run specification for all the service perimeters in an access policy. A commit operation on a service perimeter involves copying its @spec@ field to the @status@ field of the service perimeter. Only service perimeters with @use_explicit_dry_run_spec@ field set to true are affected by a commit operation. The long-running operation from this RPC has a successful status after the dry-run specifications for all the service perimeters have been committed. If a commit fails, it causes the long-running operation to return an error response and the entire commit operation is cancelled. When successful, the Operation.response field contains CommitServicePerimetersResponse. The @dry_run@ and the @spec@ fields are cleared after a successful commit operation.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesServicePerimetersCommit' smart constructor.+data AccessContextManagerAccessPoliciesServicePerimetersCommit = AccessContextManagerAccessPoliciesServicePerimetersCommit+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the parent Access Policy which owns all Service Perimeters in scope for the commit operation. Format: @accessPolicies\/{policy_id}@+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: CommitServicePerimetersRequest,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesServicePerimetersCommit' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesServicePerimetersCommit ::+  -- |  Required. Resource name for the parent Access Policy which owns all Service Perimeters in scope for the commit operation. Format: @accessPolicies\/{policy_id}@ See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CommitServicePerimetersRequest ->+  AccessContextManagerAccessPoliciesServicePerimetersCommit+newAccessContextManagerAccessPoliciesServicePerimetersCommit+  parent+  payload =+    AccessContextManagerAccessPoliciesServicePerimetersCommit+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        parent = parent,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesServicePerimetersCommit+  where+  type+    Rs AccessContextManagerAccessPoliciesServicePerimetersCommit =+      Operation+  type+    Scopes+      AccessContextManagerAccessPoliciesServicePerimetersCommit =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesServicePerimetersCommit {..} =+      go+        parent+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesServicePerimetersCommitResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/ServicePerimeters/Create.hs view
@@ -0,0 +1,130 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Create+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a service perimeter. The long-running operation from this RPC has a successful status after the service perimeter propagates to long-lasting storage. If a service perimeter contains errors, an error response is returned for the first error encountered.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.servicePerimeters.create@.+module Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Create+  ( -- * Resource+    AccessContextManagerAccessPoliciesServicePerimetersCreateResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesServicePerimetersCreate (..),+    newAccessContextManagerAccessPoliciesServicePerimetersCreate,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.create@ method which the+-- 'AccessContextManagerAccessPoliciesServicePerimetersCreate' request conforms to.+type AccessContextManagerAccessPoliciesServicePerimetersCreateResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "servicePerimeters"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] ServicePerimeter+    Core.:> Core.Post '[Core.JSON] Operation++-- | Creates a service perimeter. The long-running operation from this RPC has a successful status after the service perimeter propagates to long-lasting storage. If a service perimeter contains errors, an error response is returned for the first error encountered.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesServicePerimetersCreate' smart constructor.+data AccessContextManagerAccessPoliciesServicePerimetersCreate = AccessContextManagerAccessPoliciesServicePerimetersCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the access policy which owns this Service Perimeter. Format: @accessPolicies\/{policy_id}@+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: ServicePerimeter,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesServicePerimetersCreate' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesServicePerimetersCreate ::+  -- |  Required. Resource name for the access policy which owns this Service Perimeter. Format: @accessPolicies\/{policy_id}@ See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ServicePerimeter ->+  AccessContextManagerAccessPoliciesServicePerimetersCreate+newAccessContextManagerAccessPoliciesServicePerimetersCreate+  parent+  payload =+    AccessContextManagerAccessPoliciesServicePerimetersCreate+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        parent = parent,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesServicePerimetersCreate+  where+  type+    Rs AccessContextManagerAccessPoliciesServicePerimetersCreate =+      Operation+  type+    Scopes+      AccessContextManagerAccessPoliciesServicePerimetersCreate =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesServicePerimetersCreate {..} =+      go+        parent+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesServicePerimetersCreateResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/ServicePerimeters/Delete.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Delete+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a service perimeter based on the resource name. The long-running operation from this RPC has a successful status after the service perimeter is removed from long-lasting storage.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.servicePerimeters.delete@.+module Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Delete+  ( -- * Resource+    AccessContextManagerAccessPoliciesServicePerimetersDeleteResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesServicePerimetersDelete (..),+    newAccessContextManagerAccessPoliciesServicePerimetersDelete,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.delete@ method which the+-- 'AccessContextManagerAccessPoliciesServicePerimetersDelete' request conforms to.+type AccessContextManagerAccessPoliciesServicePerimetersDeleteResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] Operation++-- | Deletes a service perimeter based on the resource name. The long-running operation from this RPC has a successful status after the service perimeter is removed from long-lasting storage.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesServicePerimetersDelete' smart constructor.+data AccessContextManagerAccessPoliciesServicePerimetersDelete = AccessContextManagerAccessPoliciesServicePerimetersDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the Service Perimeter. Format: @accessPolicies\/{policy_id}\/servicePerimeters\/{service_perimeter_id}@+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesServicePerimetersDelete' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesServicePerimetersDelete ::+  -- |  Required. Resource name for the Service Perimeter. Format: @accessPolicies\/{policy_id}\/servicePerimeters\/{service_perimeter_id}@ See 'name'.+  Core.Text ->+  AccessContextManagerAccessPoliciesServicePerimetersDelete+newAccessContextManagerAccessPoliciesServicePerimetersDelete name =+  AccessContextManagerAccessPoliciesServicePerimetersDelete+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesServicePerimetersDelete+  where+  type+    Rs AccessContextManagerAccessPoliciesServicePerimetersDelete =+      Operation+  type+    Scopes+      AccessContextManagerAccessPoliciesServicePerimetersDelete =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesServicePerimetersDelete {..} =+      go+        name+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesServicePerimetersDeleteResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/ServicePerimeters/Get.hs view
@@ -0,0 +1,119 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a service perimeter based on the resource name.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.servicePerimeters.get@.+module Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Get+  ( -- * Resource+    AccessContextManagerAccessPoliciesServicePerimetersGetResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesServicePerimetersGet (..),+    newAccessContextManagerAccessPoliciesServicePerimetersGet,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.get@ method which the+-- 'AccessContextManagerAccessPoliciesServicePerimetersGet' request conforms to.+type AccessContextManagerAccessPoliciesServicePerimetersGetResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ServicePerimeter++-- | Gets a service perimeter based on the resource name.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesServicePerimetersGet' smart constructor.+data AccessContextManagerAccessPoliciesServicePerimetersGet = AccessContextManagerAccessPoliciesServicePerimetersGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the Service Perimeter. Format: @accessPolicies\/{policy_id}\/servicePerimeters\/{service_perimeters_id}@+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesServicePerimetersGet' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesServicePerimetersGet ::+  -- |  Required. Resource name for the Service Perimeter. Format: @accessPolicies\/{policy_id}\/servicePerimeters\/{service_perimeters_id}@ See 'name'.+  Core.Text ->+  AccessContextManagerAccessPoliciesServicePerimetersGet+newAccessContextManagerAccessPoliciesServicePerimetersGet name =+  AccessContextManagerAccessPoliciesServicePerimetersGet+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesServicePerimetersGet+  where+  type+    Rs AccessContextManagerAccessPoliciesServicePerimetersGet =+      ServicePerimeter+  type+    Scopes AccessContextManagerAccessPoliciesServicePerimetersGet =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesServicePerimetersGet {..} =+      go+        name+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesServicePerimetersGetResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/ServicePerimeters/List.hs view
@@ -0,0 +1,130 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all service perimeters for an access policy.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.servicePerimeters.list@.+module Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.List+  ( -- * Resource+    AccessContextManagerAccessPoliciesServicePerimetersListResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesServicePerimetersList (..),+    newAccessContextManagerAccessPoliciesServicePerimetersList,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.list@ method which the+-- 'AccessContextManagerAccessPoliciesServicePerimetersList' request conforms to.+type AccessContextManagerAccessPoliciesServicePerimetersListResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "servicePerimeters"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListServicePerimetersResponse++-- | Lists all service perimeters for an access policy.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesServicePerimetersList' smart constructor.+data AccessContextManagerAccessPoliciesServicePerimetersList = AccessContextManagerAccessPoliciesServicePerimetersList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Number of Service Perimeters to include in the list. Default 100.+    pageSize :: (Core.Maybe Core.Int32),+    -- | Next page token for the next batch of Service Perimeter instances. Defaults to the first page of results.+    pageToken :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the access policy to list Service Perimeters from. Format: @accessPolicies\/{policy_id}@+    parent :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesServicePerimetersList' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesServicePerimetersList ::+  -- |  Required. Resource name for the access policy to list Service Perimeters from. Format: @accessPolicies\/{policy_id}@ See 'parent'.+  Core.Text ->+  AccessContextManagerAccessPoliciesServicePerimetersList+newAccessContextManagerAccessPoliciesServicePerimetersList parent =+  AccessContextManagerAccessPoliciesServicePerimetersList+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      parent = parent,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesServicePerimetersList+  where+  type+    Rs AccessContextManagerAccessPoliciesServicePerimetersList =+      ListServicePerimetersResponse+  type+    Scopes AccessContextManagerAccessPoliciesServicePerimetersList =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesServicePerimetersList {..} =+      go+        parent+        xgafv+        accessToken+        callback+        pageSize+        pageToken+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesServicePerimetersListResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/ServicePerimeters/Patch.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a service perimeter. The long-running operation from this RPC has a successful status after the service perimeter propagates to long-lasting storage. If a service perimeter contains errors, an error response is returned for the first error encountered.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.servicePerimeters.patch@.+module Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Patch+  ( -- * Resource+    AccessContextManagerAccessPoliciesServicePerimetersPatchResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesServicePerimetersPatch (..),+    newAccessContextManagerAccessPoliciesServicePerimetersPatch,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.patch@ method which the+-- 'AccessContextManagerAccessPoliciesServicePerimetersPatch' request conforms to.+type AccessContextManagerAccessPoliciesServicePerimetersPatchResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "updateMask" Core.FieldMask+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] ServicePerimeter+    Core.:> Core.Patch '[Core.JSON] Operation++-- | Updates a service perimeter. The long-running operation from this RPC has a successful status after the service perimeter propagates to long-lasting storage. If a service perimeter contains errors, an error response is returned for the first error encountered.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesServicePerimetersPatch' smart constructor.+data AccessContextManagerAccessPoliciesServicePerimetersPatch = AccessContextManagerAccessPoliciesServicePerimetersPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifier. Resource name for the @ServicePerimeter@. Format: @accessPolicies\/{access_policy}\/servicePerimeters\/{service_perimeter}@. The @service_perimeter@ component must begin with a letter, followed by alphanumeric characters or @_@. After you create a @ServicePerimeter@, you cannot change its @name@.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: ServicePerimeter,+    -- | Required. Mask to control which fields get updated. Must be non-empty.+    updateMask :: (Core.Maybe Core.FieldMask),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesServicePerimetersPatch' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesServicePerimetersPatch ::+  -- |  Identifier. Resource name for the @ServicePerimeter@. Format: @accessPolicies\/{access_policy}\/servicePerimeters\/{service_perimeter}@. The @service_perimeter@ component must begin with a letter, followed by alphanumeric characters or @_@. After you create a @ServicePerimeter@, you cannot change its @name@. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ServicePerimeter ->+  AccessContextManagerAccessPoliciesServicePerimetersPatch+newAccessContextManagerAccessPoliciesServicePerimetersPatch+  name+  payload =+    AccessContextManagerAccessPoliciesServicePerimetersPatch+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        name = name,+        payload = payload,+        updateMask = Core.Nothing,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesServicePerimetersPatch+  where+  type+    Rs AccessContextManagerAccessPoliciesServicePerimetersPatch =+      Operation+  type+    Scopes+      AccessContextManagerAccessPoliciesServicePerimetersPatch =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesServicePerimetersPatch {..} =+      go+        name+        xgafv+        accessToken+        callback+        updateMask+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesServicePerimetersPatchResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/ServicePerimeters/ReplaceAll.hs view
@@ -0,0 +1,131 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.ReplaceAll+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Replace all existing service perimeters in an access policy with the service perimeters provided. This is done atomically. The long-running operation from this RPC has a successful status after all replacements propagate to long-lasting storage. Replacements containing errors result in an error response for the first error encountered. Upon an error, replacement are cancelled and existing service perimeters are not affected. The Operation.response field contains ReplaceServicePerimetersResponse.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.servicePerimeters.replaceAll@.+module Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.ReplaceAll+  ( -- * Resource+    AccessContextManagerAccessPoliciesServicePerimetersReplaceAllResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesServicePerimetersReplaceAll (..),+    newAccessContextManagerAccessPoliciesServicePerimetersReplaceAll,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.replaceAll@ method which the+-- 'AccessContextManagerAccessPoliciesServicePerimetersReplaceAll' request conforms to.+type AccessContextManagerAccessPoliciesServicePerimetersReplaceAllResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "servicePerimeters:replaceAll"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] ReplaceServicePerimetersRequest+    Core.:> Core.Post '[Core.JSON] Operation++-- | Replace all existing service perimeters in an access policy with the service perimeters provided. This is done atomically. The long-running operation from this RPC has a successful status after all replacements propagate to long-lasting storage. Replacements containing errors result in an error response for the first error encountered. Upon an error, replacement are cancelled and existing service perimeters are not affected. The Operation.response field contains ReplaceServicePerimetersResponse.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesServicePerimetersReplaceAll' smart constructor.+data AccessContextManagerAccessPoliciesServicePerimetersReplaceAll = AccessContextManagerAccessPoliciesServicePerimetersReplaceAll+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Resource name for the access policy which owns these Service Perimeters. Format: @accessPolicies\/{policy_id}@+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: ReplaceServicePerimetersRequest,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesServicePerimetersReplaceAll' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesServicePerimetersReplaceAll ::+  -- |  Required. Resource name for the access policy which owns these Service Perimeters. Format: @accessPolicies\/{policy_id}@ See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ReplaceServicePerimetersRequest ->+  AccessContextManagerAccessPoliciesServicePerimetersReplaceAll+newAccessContextManagerAccessPoliciesServicePerimetersReplaceAll+  parent+  payload =+    AccessContextManagerAccessPoliciesServicePerimetersReplaceAll+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        parent = parent,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesServicePerimetersReplaceAll+  where+  type+    Rs+      AccessContextManagerAccessPoliciesServicePerimetersReplaceAll =+      Operation+  type+    Scopes+      AccessContextManagerAccessPoliciesServicePerimetersReplaceAll =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesServicePerimetersReplaceAll {..} =+      go+        parent+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesServicePerimetersReplaceAllResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/ServicePerimeters/TestIamPermissions.hs view
@@ -0,0 +1,132 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.TestIamPermissions+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the IAM permissions that the caller has on the specified Access Context Manager resource. The resource can be an AccessPolicy, AccessLevel, or ServicePerimeter. This method does not support other resources.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.servicePerimeters.testIamPermissions@.+module Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.TestIamPermissions+  ( -- * Resource+    AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissionsResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions (..),+    newAccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.testIamPermissions@ method which the+-- 'AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions' request conforms to.+type AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissionsResource =+  "v1"+    Core.:> Core.CaptureMode "resource" "testIamPermissions" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] TestIamPermissionsRequest+    Core.:> Core.Post '[Core.JSON] TestIamPermissionsResponse++-- | Returns the IAM permissions that the caller has on the specified Access Context Manager resource. The resource can be an AccessPolicy, AccessLevel, or ServicePerimeter. This method does not support other resources.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions' smart constructor.+data AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions = AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: TestIamPermissionsRequest,+    -- | REQUIRED: The resource for which the policy detail is being requested. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field.+    resource :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions ::+  -- |  Multipart request metadata. See 'payload'.+  TestIamPermissionsRequest ->+  -- |  REQUIRED: The resource for which the policy detail is being requested. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field. See 'resource'.+  Core.Text ->+  AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions+newAccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions+  payload+  resource =+    AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions+      { xgafv =+          Core.Nothing,+        accessToken =+          Core.Nothing,+        callback = Core.Nothing,+        payload = payload,+        resource = resource,+        uploadType = Core.Nothing,+        uploadProtocol =+          Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions+  where+  type+    Rs+      AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions =+      TestIamPermissionsResponse+  type+    Scopes+      AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissions {..} =+      go+        resource+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesServicePerimetersTestIamPermissionsResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/SetIamPolicy.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.SetIamPolicy+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Sets the IAM policy for the specified Access Context Manager access policy. This method replaces the existing IAM policy on the access policy. The IAM policy controls the set of users who can perform specific operations on the Access Context Manager access policy.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.setIamPolicy@.+module Gogol.AccessContextManager.AccessPolicies.SetIamPolicy+  ( -- * Resource+    AccessContextManagerAccessPoliciesSetIamPolicyResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesSetIamPolicy (..),+    newAccessContextManagerAccessPoliciesSetIamPolicy,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.setIamPolicy@ method which the+-- 'AccessContextManagerAccessPoliciesSetIamPolicy' request conforms to.+type AccessContextManagerAccessPoliciesSetIamPolicyResource =+  "v1"+    Core.:> Core.CaptureMode "resource" "setIamPolicy" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] SetIamPolicyRequest+    Core.:> Core.Post '[Core.JSON] Policy++-- | Sets the IAM policy for the specified Access Context Manager access policy. This method replaces the existing IAM policy on the access policy. The IAM policy controls the set of users who can perform specific operations on the Access Context Manager access policy.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesSetIamPolicy' smart constructor.+data AccessContextManagerAccessPoliciesSetIamPolicy = AccessContextManagerAccessPoliciesSetIamPolicy+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: SetIamPolicyRequest,+    -- | REQUIRED: The resource for which the policy is being specified. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field.+    resource :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesSetIamPolicy' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesSetIamPolicy ::+  -- |  Multipart request metadata. See 'payload'.+  SetIamPolicyRequest ->+  -- |  REQUIRED: The resource for which the policy is being specified. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field. See 'resource'.+  Core.Text ->+  AccessContextManagerAccessPoliciesSetIamPolicy+newAccessContextManagerAccessPoliciesSetIamPolicy payload resource =+  AccessContextManagerAccessPoliciesSetIamPolicy+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      resource = resource,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesSetIamPolicy+  where+  type Rs AccessContextManagerAccessPoliciesSetIamPolicy = Policy+  type+    Scopes AccessContextManagerAccessPoliciesSetIamPolicy =+      '[CloudPlatform'FullControl]+  requestClient AccessContextManagerAccessPoliciesSetIamPolicy {..} =+    go+      resource+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      accessContextManagerService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessContextManagerAccessPoliciesSetIamPolicyResource+          )+          Core.mempty
+ gen/Gogol/AccessContextManager/AccessPolicies/TestIamPermissions.hs view
@@ -0,0 +1,128 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.AccessPolicies.TestIamPermissions+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the IAM permissions that the caller has on the specified Access Context Manager resource. The resource can be an AccessPolicy, AccessLevel, or ServicePerimeter. This method does not support other resources.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.testIamPermissions@.+module Gogol.AccessContextManager.AccessPolicies.TestIamPermissions+  ( -- * Resource+    AccessContextManagerAccessPoliciesTestIamPermissionsResource,++    -- ** Constructing a Request+    AccessContextManagerAccessPoliciesTestIamPermissions (..),+    newAccessContextManagerAccessPoliciesTestIamPermissions,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.accessPolicies.testIamPermissions@ method which the+-- 'AccessContextManagerAccessPoliciesTestIamPermissions' request conforms to.+type AccessContextManagerAccessPoliciesTestIamPermissionsResource =+  "v1"+    Core.:> Core.CaptureMode "resource" "testIamPermissions" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] TestIamPermissionsRequest+    Core.:> Core.Post '[Core.JSON] TestIamPermissionsResponse++-- | Returns the IAM permissions that the caller has on the specified Access Context Manager resource. The resource can be an AccessPolicy, AccessLevel, or ServicePerimeter. This method does not support other resources.+--+-- /See:/ 'newAccessContextManagerAccessPoliciesTestIamPermissions' smart constructor.+data AccessContextManagerAccessPoliciesTestIamPermissions = AccessContextManagerAccessPoliciesTestIamPermissions+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: TestIamPermissionsRequest,+    -- | REQUIRED: The resource for which the policy detail is being requested. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field.+    resource :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerAccessPoliciesTestIamPermissions' with the minimum fields required to make a request.+newAccessContextManagerAccessPoliciesTestIamPermissions ::+  -- |  Multipart request metadata. See 'payload'.+  TestIamPermissionsRequest ->+  -- |  REQUIRED: The resource for which the policy detail is being requested. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field. See 'resource'.+  Core.Text ->+  AccessContextManagerAccessPoliciesTestIamPermissions+newAccessContextManagerAccessPoliciesTestIamPermissions+  payload+  resource =+    AccessContextManagerAccessPoliciesTestIamPermissions+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        payload = payload,+        resource = resource,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerAccessPoliciesTestIamPermissions+  where+  type+    Rs AccessContextManagerAccessPoliciesTestIamPermissions =+      TestIamPermissionsResponse+  type+    Scopes AccessContextManagerAccessPoliciesTestIamPermissions =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerAccessPoliciesTestIamPermissions {..} =+      go+        resource+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerAccessPoliciesTestIamPermissionsResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/Internal/Product.hs view
@@ -0,0 +1,2789 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.Internal.Product+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Gogol.AccessContextManager.Internal.Product+  ( -- * AccessContextManagerOperationMetadata+    AccessContextManagerOperationMetadata (..),+    newAccessContextManagerOperationMetadata,++    -- * AccessLevel+    AccessLevel (..),+    newAccessLevel,++    -- * AccessPolicy+    AccessPolicy (..),+    newAccessPolicy,++    -- * AccessScope+    AccessScope (..),+    newAccessScope,++    -- * AccessSettings+    AccessSettings (..),+    newAccessSettings,++    -- * ApiOperation+    ApiOperation (..),+    newApiOperation,++    -- * Application+    Application (..),+    newApplication,++    -- * AuditConfig+    AuditConfig (..),+    newAuditConfig,++    -- * AuditLogConfig+    AuditLogConfig (..),+    newAuditLogConfig,++    -- * AuthorizedOrgsDesc+    AuthorizedOrgsDesc (..),+    newAuthorizedOrgsDesc,++    -- * BasicLevel+    BasicLevel (..),+    newBasicLevel,++    -- * Binding+    Binding (..),+    newBinding,++    -- * CancelOperationRequest+    CancelOperationRequest (..),+    newCancelOperationRequest,++    -- * ClientScope+    ClientScope (..),+    newClientScope,++    -- * CommitServicePerimetersRequest+    CommitServicePerimetersRequest (..),+    newCommitServicePerimetersRequest,++    -- * CommitServicePerimetersResponse+    CommitServicePerimetersResponse (..),+    newCommitServicePerimetersResponse,++    -- * Condition+    Condition (..),+    newCondition,++    -- * CustomLevel+    CustomLevel (..),+    newCustomLevel,++    -- * DevicePolicy+    DevicePolicy (..),+    newDevicePolicy,++    -- * EgressFrom+    EgressFrom (..),+    newEgressFrom,++    -- * EgressPolicy+    EgressPolicy (..),+    newEgressPolicy,++    -- * EgressSource+    EgressSource (..),+    newEgressSource,++    -- * EgressTo+    EgressTo (..),+    newEgressTo,++    -- * Empty+    Empty (..),+    newEmpty,++    -- * Expr+    Expr (..),+    newExpr,++    -- * GcpUserAccessBinding+    GcpUserAccessBinding (..),+    newGcpUserAccessBinding,++    -- * GcpUserAccessBindingOperationMetadata+    GcpUserAccessBindingOperationMetadata (..),+    newGcpUserAccessBindingOperationMetadata,++    -- * GetIamPolicyRequest+    GetIamPolicyRequest (..),+    newGetIamPolicyRequest,++    -- * GetPolicyOptions+    GetPolicyOptions (..),+    newGetPolicyOptions,++    -- * IngressFrom+    IngressFrom (..),+    newIngressFrom,++    -- * IngressPolicy+    IngressPolicy (..),+    newIngressPolicy,++    -- * IngressSource+    IngressSource (..),+    newIngressSource,++    -- * IngressTo+    IngressTo (..),+    newIngressTo,++    -- * ListAccessLevelsResponse+    ListAccessLevelsResponse (..),+    newListAccessLevelsResponse,++    -- * ListAccessPoliciesResponse+    ListAccessPoliciesResponse (..),+    newListAccessPoliciesResponse,++    -- * ListAuthorizedOrgsDescsResponse+    ListAuthorizedOrgsDescsResponse (..),+    newListAuthorizedOrgsDescsResponse,++    -- * ListGcpUserAccessBindingsResponse+    ListGcpUserAccessBindingsResponse (..),+    newListGcpUserAccessBindingsResponse,++    -- * ListOperationsResponse+    ListOperationsResponse (..),+    newListOperationsResponse,++    -- * ListServicePerimetersResponse+    ListServicePerimetersResponse (..),+    newListServicePerimetersResponse,++    -- * ListSupportedServicesResponse+    ListSupportedServicesResponse (..),+    newListSupportedServicesResponse,++    -- * MethodSelector+    MethodSelector (..),+    newMethodSelector,++    -- * Operation+    Operation (..),+    newOperation,++    -- * Operation_Metadata+    Operation_Metadata (..),+    newOperation_Metadata,++    -- * Operation_Response+    Operation_Response (..),+    newOperation_Response,++    -- * OsConstraint+    OsConstraint (..),+    newOsConstraint,++    -- * Policy+    Policy (..),+    newPolicy,++    -- * ReplaceAccessLevelsRequest+    ReplaceAccessLevelsRequest (..),+    newReplaceAccessLevelsRequest,++    -- * ReplaceAccessLevelsResponse+    ReplaceAccessLevelsResponse (..),+    newReplaceAccessLevelsResponse,++    -- * ReplaceServicePerimetersRequest+    ReplaceServicePerimetersRequest (..),+    newReplaceServicePerimetersRequest,++    -- * ReplaceServicePerimetersResponse+    ReplaceServicePerimetersResponse (..),+    newReplaceServicePerimetersResponse,++    -- * ScopedAccessSettings+    ScopedAccessSettings (..),+    newScopedAccessSettings,++    -- * ServicePerimeter+    ServicePerimeter (..),+    newServicePerimeter,++    -- * ServicePerimeterConfig+    ServicePerimeterConfig (..),+    newServicePerimeterConfig,++    -- * SessionSettings+    SessionSettings (..),+    newSessionSettings,++    -- * SetIamPolicyRequest+    SetIamPolicyRequest (..),+    newSetIamPolicyRequest,++    -- * Status+    Status (..),+    newStatus,++    -- * Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- * SupportedService+    SupportedService (..),+    newSupportedService,++    -- * TestIamPermissionsRequest+    TestIamPermissionsRequest (..),+    newTestIamPermissionsRequest,++    -- * TestIamPermissionsResponse+    TestIamPermissionsResponse (..),+    newTestIamPermissionsResponse,++    -- * VpcAccessibleServices+    VpcAccessibleServices (..),+    newVpcAccessibleServices,++    -- * VpcNetworkSource+    VpcNetworkSource (..),+    newVpcNetworkSource,++    -- * VpcSubNetwork+    VpcSubNetwork (..),+    newVpcSubNetwork,+  )+where++import Gogol.AccessContextManager.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Metadata of Access Context Manager\'s Long Running Operations.+--+-- /See:/ 'newAccessContextManagerOperationMetadata' smart constructor.+data AccessContextManagerOperationMetadata = AccessContextManagerOperationMetadata+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerOperationMetadata' with the minimum fields required to make a request.+newAccessContextManagerOperationMetadata ::+  AccessContextManagerOperationMetadata+newAccessContextManagerOperationMetadata =+  AccessContextManagerOperationMetadata++instance Core.FromJSON AccessContextManagerOperationMetadata where+  parseJSON =+    Core.withObject+      "AccessContextManagerOperationMetadata"+      (\o -> Core.pure AccessContextManagerOperationMetadata)++instance Core.ToJSON AccessContextManagerOperationMetadata where+  toJSON = Core.const Core.emptyObject++-- | An @AccessLevel@ is a label that can be applied to requests to Google Cloud services, along with a list of requirements necessary for the label to be applied.+--+-- /See:/ 'newAccessLevel' smart constructor.+data AccessLevel = AccessLevel+  { -- | A @BasicLevel@ composed of @Conditions@.+    basic :: (Core.Maybe BasicLevel),+    -- | A @CustomLevel@ written in the Common Expression Language.+    custom :: (Core.Maybe CustomLevel),+    -- | Description of the @AccessLevel@ and its use. Does not affect behavior.+    description :: (Core.Maybe Core.Text),+    -- | Identifier. Resource name for the @AccessLevel@. Format: @accessPolicies\/{access_policy}\/accessLevels\/{access_level}@. The @access_level@ component must begin with a letter, followed by alphanumeric characters or @_@. Its maximum length is 50 characters. After you create an @AccessLevel@, you cannot change its @name@.+    name :: (Core.Maybe Core.Text),+    -- | Human readable title. Must be unique within the Policy.+    title :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessLevel' with the minimum fields required to make a request.+newAccessLevel ::+  AccessLevel+newAccessLevel =+  AccessLevel+    { basic = Core.Nothing,+      custom = Core.Nothing,+      description = Core.Nothing,+      name = Core.Nothing,+      title = Core.Nothing+    }++instance Core.FromJSON AccessLevel where+  parseJSON =+    Core.withObject+      "AccessLevel"+      ( \o ->+          AccessLevel+            Core.<$> (o Core..:? "basic")+            Core.<*> (o Core..:? "custom")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "title")+      )++instance Core.ToJSON AccessLevel where+  toJSON AccessLevel {..} =+    Core.object+      ( Core.catMaybes+          [ ("basic" Core..=) Core.<$> basic,+            ("custom" Core..=) Core.<$> custom,+            ("description" Core..=) Core.<$> description,+            ("name" Core..=) Core.<$> name,+            ("title" Core..=) Core.<$> title+          ]+      )++-- | @AccessPolicy@ is a container for @AccessLevels@ (which define the necessary attributes to use Google Cloud services) and @ServicePerimeters@ (which define regions of services able to freely pass data within a perimeter). An access policy is globally visible within an organization, and the restrictions it specifies apply to all projects within an organization.+--+-- /See:/ 'newAccessPolicy' smart constructor.+data AccessPolicy = AccessPolicy+  { -- | Output only. An opaque identifier for the current version of the @AccessPolicy@. This will always be a strongly validated etag, meaning that two Access Policies will be identical if and only if their etags are identical. Clients should not expect this to be in any specific format.+    etag :: (Core.Maybe Core.Text),+    -- | Output only. Identifier. Resource name of the @AccessPolicy@. Format: @accessPolicies\/{access_policy}@+    name :: (Core.Maybe Core.Text),+    -- | Required. The parent of this @AccessPolicy@ in the Cloud Resource Hierarchy. Currently immutable once created. Format: @organizations\/{organization_id}@+    parent :: (Core.Maybe Core.Text),+    -- | The scopes of the AccessPolicy. Scopes define which resources a policy can restrict and where its resources can be referenced. For example, policy A with @scopes=[\"folders\/123\"]@ has the following behavior: - ServicePerimeter can only restrict projects within @folders\/123@. - ServicePerimeter within policy A can only reference access levels defined within policy A. - Only one policy can include a given scope; thus, attempting to create a second policy which includes @folders\/123@ will result in an error. If no scopes are provided, then any resource within the organization can be restricted. Scopes cannot be modified after a policy is created. Policies can only have a single scope. Format: list of @folders\/{folder_number}@ or @projects\/{project_number}@+    scopes :: (Core.Maybe [Core.Text]),+    -- | Required. Human readable title. Does not affect behavior.+    title :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessPolicy' with the minimum fields required to make a request.+newAccessPolicy ::+  AccessPolicy+newAccessPolicy =+  AccessPolicy+    { etag = Core.Nothing,+      name = Core.Nothing,+      parent = Core.Nothing,+      scopes = Core.Nothing,+      title = Core.Nothing+    }++instance Core.FromJSON AccessPolicy where+  parseJSON =+    Core.withObject+      "AccessPolicy"+      ( \o ->+          AccessPolicy+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "parent")+            Core.<*> (o Core..:? "scopes")+            Core.<*> (o Core..:? "title")+      )++instance Core.ToJSON AccessPolicy where+  toJSON AccessPolicy {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("name" Core..=) Core.<$> name,+            ("parent" Core..=) Core.<$> parent,+            ("scopes" Core..=) Core.<$> scopes,+            ("title" Core..=) Core.<$> title+          ]+      )++-- | Access scope represents the client scope, etc. to which the settings will be applied to.+--+-- /See:/ 'newAccessScope' smart constructor.+newtype AccessScope = AccessScope+  { -- | Optional. Client scope for this access scope.+    clientScope :: (Core.Maybe ClientScope)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessScope' with the minimum fields required to make a request.+newAccessScope ::+  AccessScope+newAccessScope = AccessScope {clientScope = Core.Nothing}++instance Core.FromJSON AccessScope where+  parseJSON =+    Core.withObject+      "AccessScope"+      (\o -> AccessScope Core.<$> (o Core..:? "clientScope"))++instance Core.ToJSON AccessScope where+  toJSON AccessScope {..} =+    Core.object+      (Core.catMaybes [("clientScope" Core..=) Core.<$> clientScope])++-- | Access settings represent the set of conditions that must be met for access to be granted. At least one of the fields must be set.+--+-- /See:/ 'newAccessSettings' smart constructor.+data AccessSettings = AccessSettings+  { -- | Optional. Access level that a user must have to be granted access. Only one access level is supported, not multiple. This repeated field must have exactly one element. Example: \"accessPolicies\/9522\/accessLevels\/device_trusted\"+    accessLevels :: (Core.Maybe [Core.Text]),+    -- | Optional. Session settings applied to user access on a given AccessScope.+    sessionSettings :: (Core.Maybe SessionSettings)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessSettings' with the minimum fields required to make a request.+newAccessSettings ::+  AccessSettings+newAccessSettings =+  AccessSettings+    { accessLevels = Core.Nothing,+      sessionSettings = Core.Nothing+    }++instance Core.FromJSON AccessSettings where+  parseJSON =+    Core.withObject+      "AccessSettings"+      ( \o ->+          AccessSettings+            Core.<$> (o Core..:? "accessLevels")+            Core.<*> (o Core..:? "sessionSettings")+      )++instance Core.ToJSON AccessSettings where+  toJSON AccessSettings {..} =+    Core.object+      ( Core.catMaybes+          [ ("accessLevels" Core..=) Core.<$> accessLevels,+            ("sessionSettings" Core..=) Core.<$> sessionSettings+          ]+      )++-- | Identification for an API Operation.+--+-- /See:/ 'newApiOperation' smart constructor.+data ApiOperation = ApiOperation+  { -- | API methods or permissions to allow. Method or permission must belong to the service specified by @service_name@ field. A single MethodSelector entry with @*@ specified for the @method@ field will allow all methods AND permissions for the service specified in @service_name@.+    methodSelectors :: (Core.Maybe [MethodSelector]),+    -- | The name of the API whose methods or permissions the IngressPolicy or EgressPolicy want to allow. A single ApiOperation with @service_name@ field set to @*@ will allow all methods AND permissions for all services.+    serviceName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ApiOperation' with the minimum fields required to make a request.+newApiOperation ::+  ApiOperation+newApiOperation =+  ApiOperation+    { methodSelectors = Core.Nothing,+      serviceName = Core.Nothing+    }++instance Core.FromJSON ApiOperation where+  parseJSON =+    Core.withObject+      "ApiOperation"+      ( \o ->+          ApiOperation+            Core.<$> (o Core..:? "methodSelectors")+            Core.<*> (o Core..:? "serviceName")+      )++instance Core.ToJSON ApiOperation where+  toJSON ApiOperation {..} =+    Core.object+      ( Core.catMaybes+          [ ("methodSelectors" Core..=) Core.<$> methodSelectors,+            ("serviceName" Core..=) Core.<$> serviceName+          ]+      )++-- | An application that accesses Google Cloud APIs.+--+-- /See:/ 'newApplication' smart constructor.+data Application = Application+  { -- | The OAuth client ID of the application.+    clientId :: (Core.Maybe Core.Text),+    -- | The name of the application. Example: \"Cloud Console\"+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Application' with the minimum fields required to make a request.+newApplication ::+  Application+newApplication =+  Application {clientId = Core.Nothing, name = Core.Nothing}++instance Core.FromJSON Application where+  parseJSON =+    Core.withObject+      "Application"+      ( \o ->+          Application+            Core.<$> (o Core..:? "clientId")+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON Application where+  toJSON Application {..} =+    Core.object+      ( Core.catMaybes+          [ ("clientId" Core..=) Core.<$> clientId,+            ("name" Core..=) Core.<$> name+          ]+      )++-- | 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:jose\@example.com\" ] }, { \"log/type\": \"DATA/WRITE\" }, { \"log/type\": \"ADMIN/READ\" } ] }, { \"service\": \"sampleservice.googleapis.com\", \"audit/log/configs\": [ { \"log/type\": \"DATA/READ\" }, { \"log/type\": \"DATA/WRITE\", \"exempted/members\": [ \"user:aliya\@example.com\" ] } ] } ] } For sampleservice, this policy enables DATA/READ, DATA/WRITE and+-- ADMIN/READ logging. It also exempts @jose\@example.com@ from DATA/READ logging, and @aliya\@example.com@ from DATA/WRITE logging.+--+-- /See:/ 'newAuditConfig' smart constructor.+data AuditConfig = AuditConfig+  { -- | The configuration for logging of each type of permission.+    auditLogConfigs :: (Core.Maybe [AuditLogConfig]),+    -- | Specifies a service that will be enabled for audit logging. For example, @storage.googleapis.com@, @cloudsql.googleapis.com@. @allServices@ is a special value that covers all services.+    service :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AuditConfig' with the minimum fields required to make a request.+newAuditConfig ::+  AuditConfig+newAuditConfig =+  AuditConfig+    { auditLogConfigs = Core.Nothing,+      service = Core.Nothing+    }++instance Core.FromJSON AuditConfig where+  parseJSON =+    Core.withObject+      "AuditConfig"+      ( \o ->+          AuditConfig+            Core.<$> (o Core..:? "auditLogConfigs")+            Core.<*> (o Core..:? "service")+      )++instance Core.ToJSON AuditConfig where+  toJSON AuditConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("auditLogConfigs" Core..=) Core.<$> auditLogConfigs,+            ("service" Core..=) Core.<$> service+          ]+      )++-- | Provides the configuration for logging a type of permissions. Example: { \"audit/log/configs\": [ { \"log/type\": \"DATA/READ\", \"exempted/members\": [ \"user:jose\@example.com\" ] }, { \"log/type\": \"DATA/WRITE\" } ] } This enables \'DATA/READ\' and \'DATA/WRITE\' logging, while exempting jose\@example.com from DATA/READ logging.+--+-- /See:/ 'newAuditLogConfig' smart constructor.+data AuditLogConfig = AuditLogConfig+  { -- | Specifies the identities that do not cause logging for this type of permission. Follows the same format of Binding.members.+    exemptedMembers :: (Core.Maybe [Core.Text]),+    -- | The log type that this config enables.+    logType :: (Core.Maybe AuditLogConfig_LogType)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AuditLogConfig' with the minimum fields required to make a request.+newAuditLogConfig ::+  AuditLogConfig+newAuditLogConfig =+  AuditLogConfig+    { exemptedMembers = Core.Nothing,+      logType = Core.Nothing+    }++instance Core.FromJSON AuditLogConfig where+  parseJSON =+    Core.withObject+      "AuditLogConfig"+      ( \o ->+          AuditLogConfig+            Core.<$> (o Core..:? "exemptedMembers")+            Core.<*> (o Core..:? "logType")+      )++instance Core.ToJSON AuditLogConfig where+  toJSON AuditLogConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("exemptedMembers" Core..=) Core.<$> exemptedMembers,+            ("logType" Core..=) Core.<$> logType+          ]+      )++-- | @AuthorizedOrgsDesc@ contains data for an organization\'s authorization policy.+--+-- /See:/ 'newAuthorizedOrgsDesc' smart constructor.+data AuthorizedOrgsDesc = AuthorizedOrgsDesc+  { -- | The asset type of this authorized orgs desc. Valid values are @ASSET_TYPE_DEVICE@, and @ASSET_TYPE_CREDENTIAL_STRENGTH@.+    assetType :: (Core.Maybe AuthorizedOrgsDesc_AssetType),+    -- | The direction of the authorization relationship between this organization and the organizations listed in the @orgs@ field. The valid values for this field include the following: @AUTHORIZATION_DIRECTION_FROM@: Allows this organization to evaluate traffic in the organizations listed in the @orgs@ field. @AUTHORIZATION_DIRECTION_TO@: Allows the organizations listed in the @orgs@ field to evaluate the traffic in this organization. For the authorization relationship to take effect, all of the organizations must authorize and specify the appropriate relationship direction. For example, if organization A authorized organization B and C to evaluate its traffic, by specifying @AUTHORIZATION_DIRECTION_TO@ as the authorization direction, organizations B and C must specify @AUTHORIZATION_DIRECTION_FROM@ as the authorization direction in their @AuthorizedOrgsDesc@ resource.+    authorizationDirection :: (Core.Maybe AuthorizedOrgsDesc_AuthorizationDirection),+    -- | A granular control type for authorization levels. Valid value is @AUTHORIZATION_TYPE_TRUST@.+    authorizationType :: (Core.Maybe AuthorizedOrgsDesc_AuthorizationType),+    -- | Identifier. Resource name for the @AuthorizedOrgsDesc@. Format: @accessPolicies\/{access_policy}\/authorizedOrgsDescs\/{authorized_orgs_desc}@. The @authorized_orgs_desc@ component must begin with a letter, followed by alphanumeric characters or @_@. After you create an @AuthorizedOrgsDesc@, you cannot change its @name@.+    name :: (Core.Maybe Core.Text),+    -- | The list of organization ids in this AuthorizedOrgsDesc. Format: @organizations\/@ Example: @organizations\/123456@+    orgs :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AuthorizedOrgsDesc' with the minimum fields required to make a request.+newAuthorizedOrgsDesc ::+  AuthorizedOrgsDesc+newAuthorizedOrgsDesc =+  AuthorizedOrgsDesc+    { assetType = Core.Nothing,+      authorizationDirection = Core.Nothing,+      authorizationType = Core.Nothing,+      name = Core.Nothing,+      orgs = Core.Nothing+    }++instance Core.FromJSON AuthorizedOrgsDesc where+  parseJSON =+    Core.withObject+      "AuthorizedOrgsDesc"+      ( \o ->+          AuthorizedOrgsDesc+            Core.<$> (o Core..:? "assetType")+            Core.<*> (o Core..:? "authorizationDirection")+            Core.<*> (o Core..:? "authorizationType")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "orgs")+      )++instance Core.ToJSON AuthorizedOrgsDesc where+  toJSON AuthorizedOrgsDesc {..} =+    Core.object+      ( Core.catMaybes+          [ ("assetType" Core..=) Core.<$> assetType,+            ("authorizationDirection" Core..=) Core.<$> authorizationDirection,+            ("authorizationType" Core..=) Core.<$> authorizationType,+            ("name" Core..=) Core.<$> name,+            ("orgs" Core..=) Core.<$> orgs+          ]+      )++-- | @BasicLevel@ is an @AccessLevel@ using a set of recommended features.+--+-- /See:/ 'newBasicLevel' smart constructor.+data BasicLevel = BasicLevel+  { -- | How the @conditions@ list should be combined to determine if a request is granted this @AccessLevel@. If AND is used, each @Condition@ in @conditions@ must be satisfied for the @AccessLevel@ to be applied. If OR is used, at least one @Condition@ in @conditions@ must be satisfied for the @AccessLevel@ to be applied. Default behavior is AND.+    combiningFunction :: (Core.Maybe BasicLevel_CombiningFunction),+    -- | Required. A list of requirements for the @AccessLevel@ to be granted.+    conditions :: (Core.Maybe [Condition])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BasicLevel' with the minimum fields required to make a request.+newBasicLevel ::+  BasicLevel+newBasicLevel =+  BasicLevel+    { combiningFunction = Core.Nothing,+      conditions = Core.Nothing+    }++instance Core.FromJSON BasicLevel where+  parseJSON =+    Core.withObject+      "BasicLevel"+      ( \o ->+          BasicLevel+            Core.<$> (o Core..:? "combiningFunction")+            Core.<*> (o Core..:? "conditions")+      )++instance Core.ToJSON BasicLevel where+  toJSON BasicLevel {..} =+    Core.object+      ( Core.catMaybes+          [ ("combiningFunction" Core..=) Core.<$> combiningFunction,+            ("conditions" Core..=) Core.<$> conditions+          ]+      )++-- | Associates @members@, or principals, with a @role@.+--+-- /See:/ 'newBinding' smart constructor.+data Binding = Binding+  { -- | The condition that is associated with this binding. If the condition evaluates to @true@, then this binding applies to the current request. If the condition evaluates to @false@, then this binding does not apply to the current request. However, a different role binding might grant the same role to one or more of the principals in this binding. To learn which resources support conditions in their IAM policies, see the <https://cloud.google.com/iam/help/conditions/resource-policies IAM documentation>.+    condition :: (Core.Maybe Expr),+    -- | Specifies the principals requesting access for a Google Cloud resource. @members@ can have the following values: * @allUsers@: A special identifier that represents anyone who is on the internet; with or without a Google account. * @allAuthenticatedUsers@: A special identifier that represents anyone who is authenticated with a Google account or a service account. Does not include identities that come from external identity providers (IdPs) through identity federation. * @user:{emailid}@: An email address that represents a specific Google account. For example, @alice\@example.com@ . * @serviceAccount:{emailid}@: An email address that represents a Google service account. For example, @my-other-app\@appspot.gserviceaccount.com@. * @serviceAccount:{projectid}.svc.id.goog[{namespace}\/{kubernetes-sa}]@: An identifier for a <https://cloud.google.com/kubernetes-engine/docs/how-to/kubernetes-service-accounts Kubernetes service account>. For example, @my-project.svc.id.goog[my-namespace\/my-kubernetes-sa]@. *+    -- @group:{emailid}@: An email address that represents a Google group. For example, @admins\@example.com@. * @domain:{domain}@: The G Suite domain (primary) that represents all the users of that domain. For example, @google.com@ or @example.com@. * @principal:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/subject\/{subject_attribute_value}@: A single identity in a workforce identity pool. * @principalSet:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/group\/{group_id}@: All workforce identities in a group. * @principalSet:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/attribute.{attribute_name}\/{attribute_value}@: All workforce identities with a specific attribute value. * @principalSet:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/*@: All identities in a workforce identity pool. *+    -- @principal:\/\/iam.googleapis.com\/projects\/{project_number}\/locations\/global\/workloadIdentityPools\/{pool_id}\/subject\/{subject_attribute_value}@: A single identity in a workload identity pool. * @principalSet:\/\/iam.googleapis.com\/projects\/{project_number}\/locations\/global\/workloadIdentityPools\/{pool_id}\/group\/{group_id}@: A workload identity pool group. * @principalSet:\/\/iam.googleapis.com\/projects\/{project_number}\/locations\/global\/workloadIdentityPools\/{pool_id}\/attribute.{attribute_name}\/{attribute_value}@: All identities in a workload identity pool with a certain attribute. * @principalSet:\/\/iam.googleapis.com\/projects\/{project_number}\/locations\/global\/workloadIdentityPools\/{pool_id}\/*@: All identities in a workload identity pool. * @deleted:user:{emailid}?uid={uniqueid}@: An email address (plus unique identifier) representing a user that has been recently deleted. For example, @alice\@example.com?uid=123456789012345678901@. If the user is recovered, this value reverts+    -- to @user:{emailid}@ and the recovered user retains the role in the binding. * @deleted:serviceAccount:{emailid}?uid={uniqueid}@: An email address (plus unique identifier) representing a service account that has been recently deleted. For example, @my-other-app\@appspot.gserviceaccount.com?uid=123456789012345678901@. If the service account is undeleted, this value reverts to @serviceAccount:{emailid}@ and the undeleted service account retains the role in the binding. * @deleted:group:{emailid}?uid={uniqueid}@: An email address (plus unique identifier) representing a Google group that has been recently deleted. For example, @admins\@example.com?uid=123456789012345678901@. If the group is recovered, this value reverts to @group:{emailid}@ and the recovered group retains the role in the binding. * @deleted:principal:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/subject\/{subject_attribute_value}@: Deleted single identity in a workforce identity pool. For example,+    -- @deleted:principal:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/my-pool-id\/subject\/my-subject-attribute-value@.+    members :: (Core.Maybe [Core.Text]),+    -- | Role that is assigned to the list of @members@, or principals. For example, @roles\/viewer@, @roles\/editor@, or @roles\/owner@. For an overview of the IAM roles and permissions, see the <https://cloud.google.com/iam/docs/roles-overview IAM documentation>. For a list of the available pre-defined roles, see <https://cloud.google.com/iam/docs/understanding-roles here>.+    role' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Binding' with the minimum fields required to make a request.+newBinding ::+  Binding+newBinding =+  Binding+    { condition = Core.Nothing,+      members = Core.Nothing,+      role' = Core.Nothing+    }++instance Core.FromJSON Binding where+  parseJSON =+    Core.withObject+      "Binding"+      ( \o ->+          Binding+            Core.<$> (o Core..:? "condition")+            Core.<*> (o Core..:? "members")+            Core.<*> (o Core..:? "role")+      )++instance Core.ToJSON Binding where+  toJSON Binding {..} =+    Core.object+      ( Core.catMaybes+          [ ("condition" Core..=) Core.<$> condition,+            ("members" Core..=) Core.<$> members,+            ("role" Core..=) Core.<$> role'+          ]+      )++-- | The request message for Operations.CancelOperation.+--+-- /See:/ 'newCancelOperationRequest' smart constructor.+data CancelOperationRequest = CancelOperationRequest+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CancelOperationRequest' with the minimum fields required to make a request.+newCancelOperationRequest ::+  CancelOperationRequest+newCancelOperationRequest = CancelOperationRequest++instance Core.FromJSON CancelOperationRequest where+  parseJSON =+    Core.withObject+      "CancelOperationRequest"+      (\o -> Core.pure CancelOperationRequest)++instance Core.ToJSON CancelOperationRequest where+  toJSON = Core.const Core.emptyObject++-- | Client scope represents the application, etc. subject to this binding\'s restrictions.+--+-- /See:/ 'newClientScope' smart constructor.+newtype ClientScope = ClientScope+  { -- | Optional. The application that is subject to this binding\'s scope.+    restrictedClientApplication :: (Core.Maybe Application)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ClientScope' with the minimum fields required to make a request.+newClientScope ::+  ClientScope+newClientScope =+  ClientScope {restrictedClientApplication = Core.Nothing}++instance Core.FromJSON ClientScope where+  parseJSON =+    Core.withObject+      "ClientScope"+      ( \o ->+          ClientScope Core.<$> (o Core..:? "restrictedClientApplication")+      )++instance Core.ToJSON ClientScope where+  toJSON ClientScope {..} =+    Core.object+      ( Core.catMaybes+          [ ("restrictedClientApplication" Core..=)+              Core.<$> restrictedClientApplication+          ]+      )++-- | A request to commit dry-run specs in all Service Perimeters belonging to an Access Policy.+--+-- /See:/ 'newCommitServicePerimetersRequest' smart constructor.+newtype CommitServicePerimetersRequest = CommitServicePerimetersRequest+  { -- | Optional. The etag for the version of the Access Policy that this commit operation is to be performed on. If, at the time of commit, the etag for the Access Policy stored in Access Context Manager is different from the specified etag, then the commit operation will not be performed and the call will fail. This field is not required. If etag is not provided, the operation will be performed as if a valid etag is provided.+    etag :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CommitServicePerimetersRequest' with the minimum fields required to make a request.+newCommitServicePerimetersRequest ::+  CommitServicePerimetersRequest+newCommitServicePerimetersRequest =+  CommitServicePerimetersRequest {etag = Core.Nothing}++instance Core.FromJSON CommitServicePerimetersRequest where+  parseJSON =+    Core.withObject+      "CommitServicePerimetersRequest"+      ( \o ->+          CommitServicePerimetersRequest Core.<$> (o Core..:? "etag")+      )++instance Core.ToJSON CommitServicePerimetersRequest where+  toJSON CommitServicePerimetersRequest {..} =+    Core.object (Core.catMaybes [("etag" Core..=) Core.<$> etag])++-- | A response to CommitServicePerimetersRequest. This will be put inside of Operation.response field.+--+-- /See:/ 'newCommitServicePerimetersResponse' smart constructor.+newtype CommitServicePerimetersResponse = CommitServicePerimetersResponse+  { -- | List of all the Service Perimeter instances in the Access Policy.+    servicePerimeters :: (Core.Maybe [ServicePerimeter])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CommitServicePerimetersResponse' with the minimum fields required to make a request.+newCommitServicePerimetersResponse ::+  CommitServicePerimetersResponse+newCommitServicePerimetersResponse =+  CommitServicePerimetersResponse {servicePerimeters = Core.Nothing}++instance Core.FromJSON CommitServicePerimetersResponse where+  parseJSON =+    Core.withObject+      "CommitServicePerimetersResponse"+      ( \o ->+          CommitServicePerimetersResponse+            Core.<$> (o Core..:? "servicePerimeters")+      )++instance Core.ToJSON CommitServicePerimetersResponse where+  toJSON CommitServicePerimetersResponse {..} =+    Core.object+      ( Core.catMaybes+          [("servicePerimeters" Core..=) Core.<$> servicePerimeters]+      )++-- | A condition necessary for an @AccessLevel@ to be granted. The Condition is an AND over its fields. So a Condition is true if: 1) the request IP is from one of the listed subnetworks AND 2) the originating device complies with the listed device policy AND 3) all listed access levels are granted AND 4) the request was sent at a time allowed by the DateTimeRestriction.+--+-- /See:/ 'newCondition' smart constructor.+data Condition = Condition+  { -- | Device specific restrictions, all restrictions must hold for the Condition to be true. If not specified, all devices are allowed.+    devicePolicy :: (Core.Maybe DevicePolicy),+    -- | CIDR block IP subnetwork specification. May be IPv4 or IPv6. Note that for a CIDR IP address block, the specified IP address portion must be properly truncated (i.e. all the host bits must be zero) or the input is considered malformed. For example, \"192.0.2.0\/24\" is accepted but \"192.0.2.1\/24\" is not. Similarly, for IPv6, \"2001:db8::\/32\" is accepted whereas \"2001:db8::1\/32\" is not. The originating IP of a request must be in one of the listed subnets in order for this Condition to be true. If empty, all IP addresses are allowed.+    ipSubnetworks :: (Core.Maybe [Core.Text]),+    -- | The request must be made by one of the provided user or service accounts. Groups are not supported. Syntax: @user:{emailid}@ @serviceAccount:{emailid}@ If not specified, a request may come from any user.+    members :: (Core.Maybe [Core.Text]),+    -- | Whether to negate the Condition. If true, the Condition becomes a NAND over its non-empty fields. Any non-empty field criteria evaluating to false will result in the Condition to be satisfied. Defaults to false.+    negate :: (Core.Maybe Core.Bool),+    -- | The request must originate from one of the provided countries\/regions. Must be valid ISO 3166-1 alpha-2 codes.+    regions :: (Core.Maybe [Core.Text]),+    -- | A list of other access levels defined in the same @Policy@, referenced by resource name. Referencing an @AccessLevel@ which does not exist is an error. All access levels listed must be granted for the Condition to be true. Example: \"@accessPolicies\/MY_POLICY\/accessLevels\/LEVEL_NAME\"@+    requiredAccessLevels :: (Core.Maybe [Core.Text]),+    -- | The request must originate from one of the provided VPC networks in Google Cloud. Cannot specify this field together with @ip_subnetworks@.+    vpcNetworkSources :: (Core.Maybe [VpcNetworkSource])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Condition' with the minimum fields required to make a request.+newCondition ::+  Condition+newCondition =+  Condition+    { devicePolicy = Core.Nothing,+      ipSubnetworks = Core.Nothing,+      members = Core.Nothing,+      negate = Core.Nothing,+      regions = Core.Nothing,+      requiredAccessLevels = Core.Nothing,+      vpcNetworkSources = Core.Nothing+    }++instance Core.FromJSON Condition where+  parseJSON =+    Core.withObject+      "Condition"+      ( \o ->+          Condition+            Core.<$> (o Core..:? "devicePolicy")+            Core.<*> (o Core..:? "ipSubnetworks")+            Core.<*> (o Core..:? "members")+            Core.<*> (o Core..:? "negate")+            Core.<*> (o Core..:? "regions")+            Core.<*> (o Core..:? "requiredAccessLevels")+            Core.<*> (o Core..:? "vpcNetworkSources")+      )++instance Core.ToJSON Condition where+  toJSON Condition {..} =+    Core.object+      ( Core.catMaybes+          [ ("devicePolicy" Core..=) Core.<$> devicePolicy,+            ("ipSubnetworks" Core..=) Core.<$> ipSubnetworks,+            ("members" Core..=) Core.<$> members,+            ("negate" Core..=) Core.<$> negate,+            ("regions" Core..=) Core.<$> regions,+            ("requiredAccessLevels" Core..=) Core.<$> requiredAccessLevels,+            ("vpcNetworkSources" Core..=) Core.<$> vpcNetworkSources+          ]+      )++-- | @CustomLevel@ is an @AccessLevel@ using the Cloud Common Expression Language to represent the necessary conditions for the level to apply to a request. See CEL spec at: https:\/\/github.com\/google\/cel-spec+--+-- /See:/ 'newCustomLevel' smart constructor.+newtype CustomLevel = CustomLevel+  { -- | Required. A Cloud CEL expression evaluating to a boolean.+    expr :: (Core.Maybe Expr)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomLevel' with the minimum fields required to make a request.+newCustomLevel ::+  CustomLevel+newCustomLevel = CustomLevel {expr = Core.Nothing}++instance Core.FromJSON CustomLevel where+  parseJSON =+    Core.withObject+      "CustomLevel"+      (\o -> CustomLevel Core.<$> (o Core..:? "expr"))++instance Core.ToJSON CustomLevel where+  toJSON CustomLevel {..} =+    Core.object (Core.catMaybes [("expr" Core..=) Core.<$> expr])++-- | @DevicePolicy@ specifies device specific restrictions necessary to acquire a given access level. A @DevicePolicy@ specifies requirements for requests from devices to be granted access levels, it does not do any enforcement on the device. @DevicePolicy@ acts as an AND over all specified fields, and each repeated field is an OR over its elements. Any unset fields are ignored. For example, if the proto is { os/type : DESKTOP/WINDOWS, os/type : DESKTOP/LINUX, encryption_status: ENCRYPTED}, then the DevicePolicy will be true for requests originating from encrypted Linux desktops and encrypted Windows desktops.+--+-- /See:/ 'newDevicePolicy' smart constructor.+data DevicePolicy = DevicePolicy+  { -- | Allowed device management levels, an empty list allows all management levels.+    allowedDeviceManagementLevels :: (Core.Maybe [DevicePolicy_AllowedDeviceManagementLevelsItem]),+    -- | Allowed encryptions statuses, an empty list allows all statuses.+    allowedEncryptionStatuses :: (Core.Maybe [DevicePolicy_AllowedEncryptionStatusesItem]),+    -- | Allowed OS versions, an empty list allows all types and all versions.+    osConstraints :: (Core.Maybe [OsConstraint]),+    -- | Whether the device needs to be approved by the customer admin.+    requireAdminApproval :: (Core.Maybe Core.Bool),+    -- | Whether the device needs to be corp owned.+    requireCorpOwned :: (Core.Maybe Core.Bool),+    -- | Whether or not screenlock is required for the DevicePolicy to be true. Defaults to @false@.+    requireScreenlock :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DevicePolicy' with the minimum fields required to make a request.+newDevicePolicy ::+  DevicePolicy+newDevicePolicy =+  DevicePolicy+    { allowedDeviceManagementLevels = Core.Nothing,+      allowedEncryptionStatuses = Core.Nothing,+      osConstraints = Core.Nothing,+      requireAdminApproval = Core.Nothing,+      requireCorpOwned = Core.Nothing,+      requireScreenlock = Core.Nothing+    }++instance Core.FromJSON DevicePolicy where+  parseJSON =+    Core.withObject+      "DevicePolicy"+      ( \o ->+          DevicePolicy+            Core.<$> (o Core..:? "allowedDeviceManagementLevels")+            Core.<*> (o Core..:? "allowedEncryptionStatuses")+            Core.<*> (o Core..:? "osConstraints")+            Core.<*> (o Core..:? "requireAdminApproval")+            Core.<*> (o Core..:? "requireCorpOwned")+            Core.<*> (o Core..:? "requireScreenlock")+      )++instance Core.ToJSON DevicePolicy where+  toJSON DevicePolicy {..} =+    Core.object+      ( Core.catMaybes+          [ ("allowedDeviceManagementLevels" Core..=)+              Core.<$> allowedDeviceManagementLevels,+            ("allowedEncryptionStatuses" Core..=)+              Core.<$> allowedEncryptionStatuses,+            ("osConstraints" Core..=) Core.<$> osConstraints,+            ("requireAdminApproval" Core..=) Core.<$> requireAdminApproval,+            ("requireCorpOwned" Core..=) Core.<$> requireCorpOwned,+            ("requireScreenlock" Core..=) Core.<$> requireScreenlock+          ]+      )++-- | Defines the conditions under which an EgressPolicy matches a request. Conditions based on information about the source of the request. Note that if the destination of the request is also protected by a ServicePerimeter, then that ServicePerimeter must have an IngressPolicy which allows access in order for this request to succeed.+--+-- /See:/ 'newEgressFrom' smart constructor.+data EgressFrom = EgressFrom+  { -- | A list of identities that are allowed access through [EgressPolicy]. Identities can be an individual user, service account, Google group, or third-party identity. For third-party identity, only single identities are supported and other identity types are not supported. The @v1@ identities that have the prefix @user@, @group@, @serviceAccount@, and @principal@ in https:\/\/cloud.google.com\/iam\/docs\/principal-identifiers#v1 are supported.+    identities :: (Core.Maybe [Core.Text]),+    -- | Specifies the type of identities that are allowed access to outside the perimeter. If left unspecified, then members of @identities@ field will be allowed access.+    identityType :: (Core.Maybe EgressFrom_IdentityType),+    -- | Whether to enforce traffic restrictions based on @sources@ field. If the @sources@ fields is non-empty, then this field must be set to @SOURCE_RESTRICTION_ENABLED@.+    sourceRestriction :: (Core.Maybe EgressFrom_SourceRestriction),+    -- | Sources that this EgressPolicy authorizes access from. If this field is not empty, then @source_restriction@ must be set to @SOURCE_RESTRICTION_ENABLED@.+    sources :: (Core.Maybe [EgressSource])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'EgressFrom' with the minimum fields required to make a request.+newEgressFrom ::+  EgressFrom+newEgressFrom =+  EgressFrom+    { identities = Core.Nothing,+      identityType = Core.Nothing,+      sourceRestriction = Core.Nothing,+      sources = Core.Nothing+    }++instance Core.FromJSON EgressFrom where+  parseJSON =+    Core.withObject+      "EgressFrom"+      ( \o ->+          EgressFrom+            Core.<$> (o Core..:? "identities")+            Core.<*> (o Core..:? "identityType")+            Core.<*> (o Core..:? "sourceRestriction")+            Core.<*> (o Core..:? "sources")+      )++instance Core.ToJSON EgressFrom where+  toJSON EgressFrom {..} =+    Core.object+      ( Core.catMaybes+          [ ("identities" Core..=) Core.<$> identities,+            ("identityType" Core..=) Core.<$> identityType,+            ("sourceRestriction" Core..=) Core.<$> sourceRestriction,+            ("sources" Core..=) Core.<$> sources+          ]+      )++-- | Policy for egress from perimeter. EgressPolicies match requests based on @egress_from@ and @egress_to@ stanzas. For an EgressPolicy to match, both @egress_from@ and @egress_to@ stanzas must be matched. If an EgressPolicy matches a request, the request is allowed to span the ServicePerimeter boundary. For example, an EgressPolicy can be used to allow VMs on networks within the ServicePerimeter to access a defined set of projects outside the perimeter in certain contexts (e.g. to read data from a Cloud Storage bucket or query against a BigQuery dataset). EgressPolicies are concerned with the /resources/ that a request relates as well as the API services and API actions being used. They do not related to the direction of data movement. More detailed documentation for this concept can be found in the descriptions of EgressFrom and EgressTo.+--+-- /See:/ 'newEgressPolicy' smart constructor.+data EgressPolicy = EgressPolicy+  { -- | Defines conditions on the source of a request causing this EgressPolicy to apply.+    egressFrom :: (Core.Maybe EgressFrom),+    -- | Defines the conditions on the ApiOperation and destination resources that cause this EgressPolicy to apply.+    egressTo :: (Core.Maybe EgressTo),+    -- | Optional. Human-readable title for the egress rule. The title must be unique within the perimeter and can not exceed 100 characters. Within the access policy, the combined length of all rule titles must not exceed 240,000 characters.+    title :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'EgressPolicy' with the minimum fields required to make a request.+newEgressPolicy ::+  EgressPolicy+newEgressPolicy =+  EgressPolicy+    { egressFrom = Core.Nothing,+      egressTo = Core.Nothing,+      title = Core.Nothing+    }++instance Core.FromJSON EgressPolicy where+  parseJSON =+    Core.withObject+      "EgressPolicy"+      ( \o ->+          EgressPolicy+            Core.<$> (o Core..:? "egressFrom")+            Core.<*> (o Core..:? "egressTo")+            Core.<*> (o Core..:? "title")+      )++instance Core.ToJSON EgressPolicy where+  toJSON EgressPolicy {..} =+    Core.object+      ( Core.catMaybes+          [ ("egressFrom" Core..=) Core.<$> egressFrom,+            ("egressTo" Core..=) Core.<$> egressTo,+            ("title" Core..=) Core.<$> title+          ]+      )++-- | The source that EgressPolicy authorizes access from inside the ServicePerimeter to somewhere outside the ServicePerimeter boundaries.+--+-- /See:/ 'newEgressSource' smart constructor.+data EgressSource = EgressSource+  { -- | An AccessLevel resource name that allows protected resources inside the ServicePerimeters to access outside the ServicePerimeter boundaries. AccessLevels listed must be in the same policy as this ServicePerimeter. Referencing a nonexistent AccessLevel will cause an error. If an AccessLevel name is not specified, only resources within the perimeter can be accessed through Google Cloud calls with request origins within the perimeter. Example: @accessPolicies\/MY_POLICY\/accessLevels\/MY_LEVEL@. If a single @*@ is specified for @access_level@, then all EgressSources will be allowed.+    accessLevel :: (Core.Maybe Core.Text),+    -- | A Google Cloud resource from the service perimeter that you want to allow to access data outside the perimeter. This field supports only projects. The project format is @projects\/{project_number}@. You can\'t use @*@ in this field to allow all Google Cloud resources.+    resource :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'EgressSource' with the minimum fields required to make a request.+newEgressSource ::+  EgressSource+newEgressSource =+  EgressSource {accessLevel = Core.Nothing, resource = Core.Nothing}++instance Core.FromJSON EgressSource where+  parseJSON =+    Core.withObject+      "EgressSource"+      ( \o ->+          EgressSource+            Core.<$> (o Core..:? "accessLevel")+            Core.<*> (o Core..:? "resource")+      )++instance Core.ToJSON EgressSource where+  toJSON EgressSource {..} =+    Core.object+      ( Core.catMaybes+          [ ("accessLevel" Core..=) Core.<$> accessLevel,+            ("resource" Core..=) Core.<$> resource+          ]+      )++-- | Defines the conditions under which an EgressPolicy matches a request. Conditions are based on information about the ApiOperation intended to be performed on the @resources@ specified. Note that if the destination of the request is also protected by a ServicePerimeter, then that ServicePerimeter must have an IngressPolicy which allows access in order for this request to succeed. The request must match @operations@ AND @resources@ fields in order to be allowed egress out of the perimeter.+--+-- /See:/ 'newEgressTo' smart constructor.+data EgressTo = EgressTo+  { -- | A list of external resources that are allowed to be accessed. Only AWS and Azure resources are supported. For Amazon S3, the supported formats are s3:\/\/BUCKET/NAME, s3a:\/\/BUCKET/NAME, and s3n:\/\/BUCKET/NAME. For Azure Storage, the supported format is azure:\/\/myaccount.blob.core.windows.net\/CONTAINER/NAME. A request matches if it contains an external resource in this list (Example: s3:\/\/bucket\/path). Currently \'*\' is not allowed.+    externalResources :: (Core.Maybe [Core.Text]),+    -- | A list of ApiOperations allowed to be performed by the sources specified in the corresponding EgressFrom. A request matches if it uses an operation\/service in this list.+    operations :: (Core.Maybe [ApiOperation]),+    -- | A list of resources, currently only projects in the form @projects\/@, that are allowed to be accessed by sources defined in the corresponding EgressFrom. A request matches if it contains a resource in this list. If @*@ is specified for @resources@, then this EgressTo rule will authorize access to all resources outside the perimeter.+    resources :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'EgressTo' with the minimum fields required to make a request.+newEgressTo ::+  EgressTo+newEgressTo =+  EgressTo+    { externalResources = Core.Nothing,+      operations = Core.Nothing,+      resources = Core.Nothing+    }++instance Core.FromJSON EgressTo where+  parseJSON =+    Core.withObject+      "EgressTo"+      ( \o ->+          EgressTo+            Core.<$> (o Core..:? "externalResources")+            Core.<*> (o Core..:? "operations")+            Core.<*> (o Core..:? "resources")+      )++instance Core.ToJSON EgressTo where+  toJSON EgressTo {..} =+    Core.object+      ( Core.catMaybes+          [ ("externalResources" Core..=) Core.<$> externalResources,+            ("operations" Core..=) Core.<$> operations,+            ("resources" Core..=) Core.<$> resources+          ]+      )++-- | A generic empty message that you can re-use to avoid defining duplicated empty messages in your APIs. A typical example is to use it as the request or the response type of an API method. For instance: service Foo { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); }+--+-- /See:/ 'newEmpty' smart constructor.+data Empty = Empty+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Empty' with the minimum fields required to make a request.+newEmpty ::+  Empty+newEmpty = Empty++instance Core.FromJSON Empty where+  parseJSON = Core.withObject "Empty" (\o -> Core.pure Empty)++instance Core.ToJSON Empty where+  toJSON = Core.const Core.emptyObject++-- | Represents a textual expression in the Common Expression Language (CEL) syntax. CEL is a C-like expression language. The syntax and semantics of CEL are documented at https:\/\/github.com\/google\/cel-spec. Example (Comparison): title: \"Summary size limit\" description: \"Determines if a summary is less than 100 chars\" expression: \"document.summary.size() \< 100\" Example (Equality): title: \"Requestor is owner\" description: \"Determines if requestor is the document owner\" expression: \"document.owner == request.auth.claims.email\" Example (Logic): title: \"Public documents\" description: \"Determine whether the document should be publicly visible\" expression: \"document.type != \'private\' && document.type != \'internal\'\" Example (Data Manipulation): title: \"Notification string\" description: \"Create a notification string with a timestamp.\" expression: \"\'New message received at \' + string(document.create_time)\" The exact variables and functions that may be referenced within an expression are+-- determined by the service that evaluates it. See the service documentation for additional information.+--+-- /See:/ 'newExpr' smart constructor.+data Expr = Expr+  { -- | Optional. Description of the expression. This is a longer text which describes the expression, e.g. when hovered over it in a UI.+    description :: (Core.Maybe Core.Text),+    -- | Textual representation of an expression in Common Expression Language syntax.+    expression :: (Core.Maybe Core.Text),+    -- | Optional. String indicating the location of the expression for error reporting, e.g. a file name and a position in the file.+    location :: (Core.Maybe Core.Text),+    -- | 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.+    title :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Expr' with the minimum fields required to make a request.+newExpr ::+  Expr+newExpr =+  Expr+    { description = Core.Nothing,+      expression = Core.Nothing,+      location = Core.Nothing,+      title = Core.Nothing+    }++instance Core.FromJSON Expr where+  parseJSON =+    Core.withObject+      "Expr"+      ( \o ->+          Expr+            Core.<$> (o Core..:? "description")+            Core.<*> (o Core..:? "expression")+            Core.<*> (o Core..:? "location")+            Core.<*> (o Core..:? "title")+      )++instance Core.ToJSON Expr where+  toJSON Expr {..} =+    Core.object+      ( Core.catMaybes+          [ ("description" Core..=) Core.<$> description,+            ("expression" Core..=) Core.<$> expression,+            ("location" Core..=) Core.<$> location,+            ("title" Core..=) Core.<$> title+          ]+      )++-- | Restricts access to Cloud Console and Google Cloud APIs for a set of users using Context-Aware Access.+--+-- /See:/ 'newGcpUserAccessBinding' smart constructor.+data GcpUserAccessBinding = GcpUserAccessBinding+  { -- | Optional. Access level that a user must have to be granted access. Only one access level is supported, not multiple. This repeated field must have exactly one element. Example: \"accessPolicies\/9522\/accessLevels\/device_trusted\"+    accessLevels :: (Core.Maybe [Core.Text]),+    -- | Optional. Dry run access level that will be evaluated but will not be enforced. The access denial based on dry run policy will be logged. Only one access level is supported, not multiple. This list must have exactly one element. Example: \"accessPolicies\/9522\/accessLevels\/device_trusted\"+    dryRunAccessLevels :: (Core.Maybe [Core.Text]),+    -- | Required. Immutable. Google Group id whose members are subject to this binding\'s restrictions. See \"id\" in the [G Suite Directory API\'s Groups resource] (https:\/\/developers.google.com\/admin-sdk\/directory\/v1\/reference\/groups#resource). If a group\'s email address\/alias is changed, this resource will continue to point at the changed group. This field does not accept group email addresses or aliases. Example: \"01d520gv4vjcrht\"+    groupKey :: (Core.Maybe Core.Text),+    -- | Immutable. Assigned by the server during creation. The last segment has an arbitrary length and has only URI unreserved characters (as defined by <https://tools.ietf.org/html/rfc3986#section-2.3 RFC 3986 Section 2.3>). Should not be specified by the client during creation. Example: \"organizations\/256\/gcpUserAccessBindings\/b3-BhcX_Ud5N\"+    name :: (Core.Maybe Core.Text),+    -- | Optional. A list of applications that are subject to this binding\'s restrictions. If the list is empty, the binding restrictions will universally apply to all applications.+    restrictedClientApplications :: (Core.Maybe [Application]),+    -- | Optional. A list of scoped access settings that set this binding\'s restrictions on a subset of applications. This field cannot be set if restricted/client/applications is set.+    scopedAccessSettings :: (Core.Maybe [ScopedAccessSettings]),+    -- | Optional. The Google Cloud session length (GCSL) policy for the group key.+    sessionSettings :: (Core.Maybe SessionSettings)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GcpUserAccessBinding' with the minimum fields required to make a request.+newGcpUserAccessBinding ::+  GcpUserAccessBinding+newGcpUserAccessBinding =+  GcpUserAccessBinding+    { accessLevels = Core.Nothing,+      dryRunAccessLevels = Core.Nothing,+      groupKey = Core.Nothing,+      name = Core.Nothing,+      restrictedClientApplications = Core.Nothing,+      scopedAccessSettings = Core.Nothing,+      sessionSettings = Core.Nothing+    }++instance Core.FromJSON GcpUserAccessBinding where+  parseJSON =+    Core.withObject+      "GcpUserAccessBinding"+      ( \o ->+          GcpUserAccessBinding+            Core.<$> (o Core..:? "accessLevels")+            Core.<*> (o Core..:? "dryRunAccessLevels")+            Core.<*> (o Core..:? "groupKey")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "restrictedClientApplications")+            Core.<*> (o Core..:? "scopedAccessSettings")+            Core.<*> (o Core..:? "sessionSettings")+      )++instance Core.ToJSON GcpUserAccessBinding where+  toJSON GcpUserAccessBinding {..} =+    Core.object+      ( Core.catMaybes+          [ ("accessLevels" Core..=) Core.<$> accessLevels,+            ("dryRunAccessLevels" Core..=) Core.<$> dryRunAccessLevels,+            ("groupKey" Core..=) Core.<$> groupKey,+            ("name" Core..=) Core.<$> name,+            ("restrictedClientApplications" Core..=)+              Core.<$> restrictedClientApplications,+            ("scopedAccessSettings" Core..=) Core.<$> scopedAccessSettings,+            ("sessionSettings" Core..=) Core.<$> sessionSettings+          ]+      )++-- | Metadata of Google Cloud Access Binding Long Running Operations.+--+-- /See:/ 'newGcpUserAccessBindingOperationMetadata' smart constructor.+data GcpUserAccessBindingOperationMetadata = GcpUserAccessBindingOperationMetadata+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GcpUserAccessBindingOperationMetadata' with the minimum fields required to make a request.+newGcpUserAccessBindingOperationMetadata ::+  GcpUserAccessBindingOperationMetadata+newGcpUserAccessBindingOperationMetadata =+  GcpUserAccessBindingOperationMetadata++instance Core.FromJSON GcpUserAccessBindingOperationMetadata where+  parseJSON =+    Core.withObject+      "GcpUserAccessBindingOperationMetadata"+      (\o -> Core.pure GcpUserAccessBindingOperationMetadata)++instance Core.ToJSON GcpUserAccessBindingOperationMetadata where+  toJSON = Core.const Core.emptyObject++-- | Request message for @GetIamPolicy@ method.+--+-- /See:/ 'newGetIamPolicyRequest' smart constructor.+newtype GetIamPolicyRequest = GetIamPolicyRequest+  { -- | OPTIONAL: A @GetPolicyOptions@ object for specifying options to @GetIamPolicy@.+    options :: (Core.Maybe GetPolicyOptions)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GetIamPolicyRequest' with the minimum fields required to make a request.+newGetIamPolicyRequest ::+  GetIamPolicyRequest+newGetIamPolicyRequest =+  GetIamPolicyRequest {options = Core.Nothing}++instance Core.FromJSON GetIamPolicyRequest where+  parseJSON =+    Core.withObject+      "GetIamPolicyRequest"+      (\o -> GetIamPolicyRequest Core.<$> (o Core..:? "options"))++instance Core.ToJSON GetIamPolicyRequest where+  toJSON GetIamPolicyRequest {..} =+    Core.object+      (Core.catMaybes [("options" Core..=) Core.<$> options])++-- | Encapsulates settings provided to GetIamPolicy.+--+-- /See:/ 'newGetPolicyOptions' smart constructor.+newtype GetPolicyOptions = GetPolicyOptions+  { -- | Optional. The maximum policy version that will be used to format the policy. Valid values are 0, 1, and 3. Requests specifying an invalid value will be rejected. Requests for policies with any conditional role bindings must specify version 3. Policies with no conditional role bindings may specify any valid value or leave the field unset. The policy in the response might use the policy version that you specified, or it might use a lower policy version. For example, if you specify version 3, but the policy has no conditional role bindings, the response uses version 1. To learn which resources support conditions in their IAM policies, see the <https://cloud.google.com/iam/help/conditions/resource-policies IAM documentation>.+    requestedPolicyVersion :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GetPolicyOptions' with the minimum fields required to make a request.+newGetPolicyOptions ::+  GetPolicyOptions+newGetPolicyOptions =+  GetPolicyOptions {requestedPolicyVersion = Core.Nothing}++instance Core.FromJSON GetPolicyOptions where+  parseJSON =+    Core.withObject+      "GetPolicyOptions"+      ( \o ->+          GetPolicyOptions Core.<$> (o Core..:? "requestedPolicyVersion")+      )++instance Core.ToJSON GetPolicyOptions where+  toJSON GetPolicyOptions {..} =+    Core.object+      ( Core.catMaybes+          [ ("requestedPolicyVersion" Core..=)+              Core.<$> requestedPolicyVersion+          ]+      )++-- | Defines the conditions under which an IngressPolicy matches a request. Conditions are based on information about the source of the request. The request must satisfy what is defined in @sources@ AND identity related fields in order to match.+--+-- /See:/ 'newIngressFrom' smart constructor.+data IngressFrom = IngressFrom+  { -- | A list of identities that are allowed access through [IngressPolicy]. Identities can be an individual user, service account, Google group, or third-party identity. For third-party identity, only single identities are supported and other identity types are not supported. The @v1@ identities that have the prefix @user@, @group@, @serviceAccount@, and @principal@ in https:\/\/cloud.google.com\/iam\/docs\/principal-identifiers#v1 are supported.+    identities :: (Core.Maybe [Core.Text]),+    -- | Specifies the type of identities that are allowed access from outside the perimeter. If left unspecified, then members of @identities@ field will be allowed access.+    identityType :: (Core.Maybe IngressFrom_IdentityType),+    -- | Sources that this IngressPolicy authorizes access from.+    sources :: (Core.Maybe [IngressSource])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'IngressFrom' with the minimum fields required to make a request.+newIngressFrom ::+  IngressFrom+newIngressFrom =+  IngressFrom+    { identities = Core.Nothing,+      identityType = Core.Nothing,+      sources = Core.Nothing+    }++instance Core.FromJSON IngressFrom where+  parseJSON =+    Core.withObject+      "IngressFrom"+      ( \o ->+          IngressFrom+            Core.<$> (o Core..:? "identities")+            Core.<*> (o Core..:? "identityType")+            Core.<*> (o Core..:? "sources")+      )++instance Core.ToJSON IngressFrom where+  toJSON IngressFrom {..} =+    Core.object+      ( Core.catMaybes+          [ ("identities" Core..=) Core.<$> identities,+            ("identityType" Core..=) Core.<$> identityType,+            ("sources" Core..=) Core.<$> sources+          ]+      )++-- | Policy for ingress into ServicePerimeter. IngressPolicies match requests based on @ingress_from@ and @ingress_to@ stanzas. For an ingress policy to match, both the @ingress_from@ and @ingress_to@ stanzas must be matched. If an IngressPolicy matches a request, the request is allowed through the perimeter boundary from outside the perimeter. For example, access from the internet can be allowed either based on an AccessLevel or, for traffic hosted on Google Cloud, the project of the source network. For access from private networks, using the project of the hosting network is required. Individual ingress policies can be limited by restricting which services and\/or actions they match using the @ingress_to@ field.+--+-- /See:/ 'newIngressPolicy' smart constructor.+data IngressPolicy = IngressPolicy+  { -- | Defines the conditions on the source of a request causing this IngressPolicy to apply.+    ingressFrom :: (Core.Maybe IngressFrom),+    -- | Defines the conditions on the ApiOperation and request destination that cause this IngressPolicy to apply.+    ingressTo :: (Core.Maybe IngressTo),+    -- | Optional. Human-readable title for the ingress rule. The title must be unique within the perimeter and can not exceed 100 characters. Within the access policy, the combined length of all rule titles must not exceed 240,000 characters.+    title :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'IngressPolicy' with the minimum fields required to make a request.+newIngressPolicy ::+  IngressPolicy+newIngressPolicy =+  IngressPolicy+    { ingressFrom = Core.Nothing,+      ingressTo = Core.Nothing,+      title = Core.Nothing+    }++instance Core.FromJSON IngressPolicy where+  parseJSON =+    Core.withObject+      "IngressPolicy"+      ( \o ->+          IngressPolicy+            Core.<$> (o Core..:? "ingressFrom")+            Core.<*> (o Core..:? "ingressTo")+            Core.<*> (o Core..:? "title")+      )++instance Core.ToJSON IngressPolicy where+  toJSON IngressPolicy {..} =+    Core.object+      ( Core.catMaybes+          [ ("ingressFrom" Core..=) Core.<$> ingressFrom,+            ("ingressTo" Core..=) Core.<$> ingressTo,+            ("title" Core..=) Core.<$> title+          ]+      )++-- | The source that IngressPolicy authorizes access from.+--+-- /See:/ 'newIngressSource' smart constructor.+data IngressSource = IngressSource+  { -- | An AccessLevel resource name that allow resources within the ServicePerimeters to be accessed from the internet. AccessLevels listed must be in the same policy as this ServicePerimeter. Referencing a nonexistent AccessLevel will cause an error. If no AccessLevel names are listed, resources within the perimeter can only be accessed via Google Cloud calls with request origins within the perimeter. Example: @accessPolicies\/MY_POLICY\/accessLevels\/MY_LEVEL@. If a single @*@ is specified for @access_level@, then all IngressSources will be allowed.+    accessLevel :: (Core.Maybe Core.Text),+    -- | A Google Cloud resource that is allowed to ingress the perimeter. Requests from these resources will be allowed to access perimeter data. Currently only projects and VPCs are allowed. Project format: @projects\/{project_number}@ VPC network format: @\/\/compute.googleapis.com\/projects\/{PROJECT_ID}\/global\/networks\/{NAME}@. The project may be in any Google Cloud organization, not just the organization that the perimeter is defined in. @*@ is not allowed, the case of allowing all Google Cloud resources only is not supported.+    resource :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'IngressSource' with the minimum fields required to make a request.+newIngressSource ::+  IngressSource+newIngressSource =+  IngressSource+    { accessLevel = Core.Nothing,+      resource = Core.Nothing+    }++instance Core.FromJSON IngressSource where+  parseJSON =+    Core.withObject+      "IngressSource"+      ( \o ->+          IngressSource+            Core.<$> (o Core..:? "accessLevel")+            Core.<*> (o Core..:? "resource")+      )++instance Core.ToJSON IngressSource where+  toJSON IngressSource {..} =+    Core.object+      ( Core.catMaybes+          [ ("accessLevel" Core..=) Core.<$> accessLevel,+            ("resource" Core..=) Core.<$> resource+          ]+      )++-- | Defines the conditions under which an IngressPolicy matches a request. Conditions are based on information about the ApiOperation intended to be performed on the target resource of the request. The request must satisfy what is defined in @operations@ AND @resources@ in order to match.+--+-- /See:/ 'newIngressTo' smart constructor.+data IngressTo = IngressTo+  { -- | A list of ApiOperations allowed to be performed by the sources specified in corresponding IngressFrom in this ServicePerimeter.+    operations :: (Core.Maybe [ApiOperation]),+    -- | A list of resources, currently only projects in the form @projects\/@, protected by this ServicePerimeter that are allowed to be accessed by sources defined in the corresponding IngressFrom. If a single @*@ is specified, then access to all resources inside the perimeter are allowed.+    resources :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'IngressTo' with the minimum fields required to make a request.+newIngressTo ::+  IngressTo+newIngressTo =+  IngressTo {operations = Core.Nothing, resources = Core.Nothing}++instance Core.FromJSON IngressTo where+  parseJSON =+    Core.withObject+      "IngressTo"+      ( \o ->+          IngressTo+            Core.<$> (o Core..:? "operations")+            Core.<*> (o Core..:? "resources")+      )++instance Core.ToJSON IngressTo where+  toJSON IngressTo {..} =+    Core.object+      ( Core.catMaybes+          [ ("operations" Core..=) Core.<$> operations,+            ("resources" Core..=) Core.<$> resources+          ]+      )++-- | A response to @ListAccessLevelsRequest@.+--+-- /See:/ 'newListAccessLevelsResponse' smart constructor.+data ListAccessLevelsResponse = ListAccessLevelsResponse+  { -- | List of the Access Level instances.+    accessLevels :: (Core.Maybe [AccessLevel]),+    -- | The pagination token to retrieve the next page of results. If the value is empty, no further results remain.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListAccessLevelsResponse' with the minimum fields required to make a request.+newListAccessLevelsResponse ::+  ListAccessLevelsResponse+newListAccessLevelsResponse =+  ListAccessLevelsResponse+    { accessLevels = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ListAccessLevelsResponse where+  parseJSON =+    Core.withObject+      "ListAccessLevelsResponse"+      ( \o ->+          ListAccessLevelsResponse+            Core.<$> (o Core..:? "accessLevels")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ListAccessLevelsResponse where+  toJSON ListAccessLevelsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("accessLevels" Core..=) Core.<$> accessLevels,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | A response to @ListAccessPoliciesRequest@.+--+-- /See:/ 'newListAccessPoliciesResponse' smart constructor.+data ListAccessPoliciesResponse = ListAccessPoliciesResponse+  { -- | List of the AccessPolicy instances.+    accessPolicies :: (Core.Maybe [AccessPolicy]),+    -- | The pagination token to retrieve the next page of results. If the value is empty, no further results remain.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListAccessPoliciesResponse' with the minimum fields required to make a request.+newListAccessPoliciesResponse ::+  ListAccessPoliciesResponse+newListAccessPoliciesResponse =+  ListAccessPoliciesResponse+    { accessPolicies = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ListAccessPoliciesResponse where+  parseJSON =+    Core.withObject+      "ListAccessPoliciesResponse"+      ( \o ->+          ListAccessPoliciesResponse+            Core.<$> (o Core..:? "accessPolicies")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ListAccessPoliciesResponse where+  toJSON ListAccessPoliciesResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("accessPolicies" Core..=) Core.<$> accessPolicies,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | A response to @ListAuthorizedOrgsDescsRequest@.+--+-- /See:/ 'newListAuthorizedOrgsDescsResponse' smart constructor.+data ListAuthorizedOrgsDescsResponse = ListAuthorizedOrgsDescsResponse+  { -- | List of all the Authorized Orgs Desc instances.+    authorizedOrgsDescs :: (Core.Maybe [AuthorizedOrgsDesc]),+    -- | The pagination token to retrieve the next page of results. If the value is empty, no further results remain.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListAuthorizedOrgsDescsResponse' with the minimum fields required to make a request.+newListAuthorizedOrgsDescsResponse ::+  ListAuthorizedOrgsDescsResponse+newListAuthorizedOrgsDescsResponse =+  ListAuthorizedOrgsDescsResponse+    { authorizedOrgsDescs =+        Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ListAuthorizedOrgsDescsResponse where+  parseJSON =+    Core.withObject+      "ListAuthorizedOrgsDescsResponse"+      ( \o ->+          ListAuthorizedOrgsDescsResponse+            Core.<$> (o Core..:? "authorizedOrgsDescs")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ListAuthorizedOrgsDescsResponse where+  toJSON ListAuthorizedOrgsDescsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("authorizedOrgsDescs" Core..=) Core.<$> authorizedOrgsDescs,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | Response of ListGcpUserAccessBindings.+--+-- /See:/ 'newListGcpUserAccessBindingsResponse' smart constructor.+data ListGcpUserAccessBindingsResponse = ListGcpUserAccessBindingsResponse+  { -- | GcpUserAccessBinding+    gcpUserAccessBindings :: (Core.Maybe [GcpUserAccessBinding]),+    -- | Token to get the next page of items. If blank, there are no more items.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListGcpUserAccessBindingsResponse' with the minimum fields required to make a request.+newListGcpUserAccessBindingsResponse ::+  ListGcpUserAccessBindingsResponse+newListGcpUserAccessBindingsResponse =+  ListGcpUserAccessBindingsResponse+    { gcpUserAccessBindings =+        Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ListGcpUserAccessBindingsResponse where+  parseJSON =+    Core.withObject+      "ListGcpUserAccessBindingsResponse"+      ( \o ->+          ListGcpUserAccessBindingsResponse+            Core.<$> (o Core..:? "gcpUserAccessBindings")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ListGcpUserAccessBindingsResponse where+  toJSON ListGcpUserAccessBindingsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("gcpUserAccessBindings" Core..=) Core.<$> gcpUserAccessBindings,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | The response message for Operations.ListOperations.+--+-- /See:/ 'newListOperationsResponse' smart constructor.+data ListOperationsResponse = ListOperationsResponse+  { -- | The standard List next-page token.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | A list of operations that matches the specified filter in the request.+    operations :: (Core.Maybe [Operation])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListOperationsResponse' with the minimum fields required to make a request.+newListOperationsResponse ::+  ListOperationsResponse+newListOperationsResponse =+  ListOperationsResponse+    { nextPageToken = Core.Nothing,+      operations = Core.Nothing+    }++instance Core.FromJSON ListOperationsResponse where+  parseJSON =+    Core.withObject+      "ListOperationsResponse"+      ( \o ->+          ListOperationsResponse+            Core.<$> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "operations")+      )++instance Core.ToJSON ListOperationsResponse where+  toJSON ListOperationsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("operations" Core..=) Core.<$> operations+          ]+      )++-- | A response to @ListServicePerimetersRequest@.+--+-- /See:/ 'newListServicePerimetersResponse' smart constructor.+data ListServicePerimetersResponse = ListServicePerimetersResponse+  { -- | The pagination token to retrieve the next page of results. If the value is empty, no further results remain.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | List of the Service Perimeter instances.+    servicePerimeters :: (Core.Maybe [ServicePerimeter])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListServicePerimetersResponse' with the minimum fields required to make a request.+newListServicePerimetersResponse ::+  ListServicePerimetersResponse+newListServicePerimetersResponse =+  ListServicePerimetersResponse+    { nextPageToken = Core.Nothing,+      servicePerimeters = Core.Nothing+    }++instance Core.FromJSON ListServicePerimetersResponse where+  parseJSON =+    Core.withObject+      "ListServicePerimetersResponse"+      ( \o ->+          ListServicePerimetersResponse+            Core.<$> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "servicePerimeters")+      )++instance Core.ToJSON ListServicePerimetersResponse where+  toJSON ListServicePerimetersResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("servicePerimeters" Core..=) Core.<$> servicePerimeters+          ]+      )++-- | A response to @ListSupportedServicesRequest@.+--+-- /See:/ 'newListSupportedServicesResponse' smart constructor.+data ListSupportedServicesResponse = ListSupportedServicesResponse+  { -- | The pagination token to retrieve the next page of results. If the value is empty, no further results remain.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | List of services supported by VPC Service Controls instances.+    supportedServices :: (Core.Maybe [SupportedService])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListSupportedServicesResponse' with the minimum fields required to make a request.+newListSupportedServicesResponse ::+  ListSupportedServicesResponse+newListSupportedServicesResponse =+  ListSupportedServicesResponse+    { nextPageToken = Core.Nothing,+      supportedServices = Core.Nothing+    }++instance Core.FromJSON ListSupportedServicesResponse where+  parseJSON =+    Core.withObject+      "ListSupportedServicesResponse"+      ( \o ->+          ListSupportedServicesResponse+            Core.<$> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "supportedServices")+      )++instance Core.ToJSON ListSupportedServicesResponse where+  toJSON ListSupportedServicesResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("supportedServices" Core..=) Core.<$> supportedServices+          ]+      )++-- | An allowed method or permission of a service specified in ApiOperation.+--+-- /See:/ 'newMethodSelector' smart constructor.+data MethodSelector = MethodSelector+  { -- | A valid method name for the corresponding @service_name@ in ApiOperation. If @*@ is used as the value for the @method@, then ALL methods and permissions are allowed.+    method :: (Core.Maybe Core.Text),+    -- | A valid Cloud IAM permission for the corresponding @service_name@ in ApiOperation.+    permission :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MethodSelector' with the minimum fields required to make a request.+newMethodSelector ::+  MethodSelector+newMethodSelector =+  MethodSelector {method = Core.Nothing, permission = Core.Nothing}++instance Core.FromJSON MethodSelector where+  parseJSON =+    Core.withObject+      "MethodSelector"+      ( \o ->+          MethodSelector+            Core.<$> (o Core..:? "method")+            Core.<*> (o Core..:? "permission")+      )++instance Core.ToJSON MethodSelector where+  toJSON MethodSelector {..} =+    Core.object+      ( Core.catMaybes+          [ ("method" Core..=) Core.<$> method,+            ("permission" Core..=) Core.<$> permission+          ]+      )++-- | This resource represents a long-running operation that is the result of a network API call.+--+-- /See:/ 'newOperation' smart constructor.+data Operation = Operation+  { -- | If the value is @false@, it means the operation is still in progress. If @true@, the operation is completed, and either @error@ or @response@ is available.+    done :: (Core.Maybe Core.Bool),+    -- | The error result of the operation in case of failure or cancellation.+    error :: (Core.Maybe Status),+    -- | Service-specific metadata associated with the operation. It typically contains progress information and common metadata such as create time. Some services might not provide such metadata. Any method that returns a long-running operation should document the metadata type, if any.+    metadata :: (Core.Maybe Operation_Metadata),+    -- | The server-assigned name, which is only unique within the same service that originally returns it. If you use the default HTTP mapping, the @name@ should be a resource name ending with @operations\/{unique_id}@.+    name :: (Core.Maybe Core.Text),+    -- | The normal, successful response of the operation. If the original method returns no data on success, such as @Delete@, the response is @google.protobuf.Empty@. If the original method is standard @Get@\/@Create@\/@Update@, the response should be the resource. For other methods, the response should have the type @XxxResponse@, where @Xxx@ is the original method name. For example, if the original method name is @TakeSnapshot()@, the inferred response type is @TakeSnapshotResponse@.+    response :: (Core.Maybe Operation_Response)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Operation' with the minimum fields required to make a request.+newOperation ::+  Operation+newOperation =+  Operation+    { done = Core.Nothing,+      error = Core.Nothing,+      metadata = Core.Nothing,+      name = Core.Nothing,+      response = Core.Nothing+    }++instance Core.FromJSON Operation where+  parseJSON =+    Core.withObject+      "Operation"+      ( \o ->+          Operation+            Core.<$> (o Core..:? "done")+            Core.<*> (o Core..:? "error")+            Core.<*> (o Core..:? "metadata")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "response")+      )++instance Core.ToJSON Operation where+  toJSON Operation {..} =+    Core.object+      ( Core.catMaybes+          [ ("done" Core..=) Core.<$> done,+            ("error" Core..=) Core.<$> error,+            ("metadata" Core..=) Core.<$> metadata,+            ("name" Core..=) Core.<$> name,+            ("response" Core..=) Core.<$> response+          ]+      )++-- | Service-specific metadata associated with the operation. It typically contains progress information and common metadata such as create time. Some services might not provide such metadata. Any method that returns a long-running operation should document the metadata type, if any.+--+-- /See:/ 'newOperation_Metadata' smart constructor.+newtype Operation_Metadata = Operation_Metadata+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Operation_Metadata' with the minimum fields required to make a request.+newOperation_Metadata ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Operation_Metadata+newOperation_Metadata additional =+  Operation_Metadata {additional = additional}++instance Core.FromJSON Operation_Metadata where+  parseJSON =+    Core.withObject+      "Operation_Metadata"+      (\o -> Operation_Metadata Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Operation_Metadata where+  toJSON Operation_Metadata {..} = Core.toJSON additional++-- | The normal, successful response of the operation. If the original method returns no data on success, such as @Delete@, the response is @google.protobuf.Empty@. If the original method is standard @Get@\/@Create@\/@Update@, the response should be the resource. For other methods, the response should have the type @XxxResponse@, where @Xxx@ is the original method name. For example, if the original method name is @TakeSnapshot()@, the inferred response type is @TakeSnapshotResponse@.+--+-- /See:/ 'newOperation_Response' smart constructor.+newtype Operation_Response = Operation_Response+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Operation_Response' with the minimum fields required to make a request.+newOperation_Response ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Operation_Response+newOperation_Response additional =+  Operation_Response {additional = additional}++instance Core.FromJSON Operation_Response where+  parseJSON =+    Core.withObject+      "Operation_Response"+      (\o -> Operation_Response Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Operation_Response where+  toJSON Operation_Response {..} = Core.toJSON additional++-- | A restriction on the OS type and version of devices making requests.+--+-- /See:/ 'newOsConstraint' smart constructor.+data OsConstraint = OsConstraint+  { -- | The minimum allowed OS version. If not set, any version of this OS satisfies the constraint. Format: @\"major.minor.patch\"@. Examples: @\"10.5.301\"@, @\"9.2.1\"@.+    minimumVersion :: (Core.Maybe Core.Text),+    -- | Required. The allowed OS type.+    osType :: (Core.Maybe OsConstraint_OsType),+    -- | Only allows requests from devices with a verified Chrome OS. Verifications includes requirements that the device is enterprise-managed, conformant to domain policies, and the caller has permission to call the API targeted by the request.+    requireVerifiedChromeOs :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'OsConstraint' with the minimum fields required to make a request.+newOsConstraint ::+  OsConstraint+newOsConstraint =+  OsConstraint+    { minimumVersion = Core.Nothing,+      osType = Core.Nothing,+      requireVerifiedChromeOs = Core.Nothing+    }++instance Core.FromJSON OsConstraint where+  parseJSON =+    Core.withObject+      "OsConstraint"+      ( \o ->+          OsConstraint+            Core.<$> (o Core..:? "minimumVersion")+            Core.<*> (o Core..:? "osType")+            Core.<*> (o Core..:? "requireVerifiedChromeOs")+      )++instance Core.ToJSON OsConstraint where+  toJSON OsConstraint {..} =+    Core.object+      ( Core.catMaybes+          [ ("minimumVersion" Core..=) Core.<$> minimumVersion,+            ("osType" Core..=) Core.<$> osType,+            ("requireVerifiedChromeOs" Core..=)+              Core.<$> requireVerifiedChromeOs+          ]+      )++-- | An Identity and Access Management (IAM) policy, which specifies access controls for Google Cloud resources. A @Policy@ is a collection of @bindings@. A @binding@ binds one or more @members@, or principals, to a single @role@. Principals can be user accounts, service accounts, Google groups, and domains (such as G Suite). A @role@ is a named list of permissions; each @role@ can be an IAM predefined role or a user-created custom role. For some types of Google Cloud resources, a @binding@ can also specify a @condition@, which is a logical expression that allows access to a resource only if the expression evaluates to @true@. A condition can add constraints based on attributes of the request, the resource, or both. To learn which resources support conditions in their IAM policies, see the <https://cloud.google.com/iam/help/conditions/resource-policies IAM documentation>. __JSON example:__+-- @{ \"bindings\": [ { \"role\": \"roles\/resourcemanager.organizationAdmin\", \"members\": [ \"user:mike\@example.com\", \"group:admins\@example.com\", \"domain:google.com\", \"serviceAccount:my-project-id\@appspot.gserviceaccount.com\" ] }, { \"role\": \"roles\/resourcemanager.organizationViewer\", \"members\": [ \"user:eve\@example.com\" ], \"condition\": { \"title\": \"expirable access\", \"description\": \"Does not grant access after Sep 2020\", \"expression\": \"request.time \< timestamp(\'2020-10-01T00:00:00.000Z\')\", } } ], \"etag\": \"BwWWja0YfJA=\", \"version\": 3 }@ __YAML example:__+-- @bindings: - members: - user:mike\@example.com - group:admins\@example.com - domain:google.com - serviceAccount:my-project-id\@appspot.gserviceaccount.com role: roles\/resourcemanager.organizationAdmin - members: - user:eve\@example.com role: roles\/resourcemanager.organizationViewer condition: title: expirable access description: Does not grant access after Sep 2020 expression: request.time \< timestamp(\'2020-10-01T00:00:00.000Z\') etag: BwWWja0YfJA= version: 3@ For a description of IAM and its features, see the <https://cloud.google.com/iam/docs/ IAM documentation>.+--+-- /See:/ 'newPolicy' smart constructor.+data Policy = Policy+  { -- | Specifies cloud audit logging configuration for this policy.+    auditConfigs :: (Core.Maybe [AuditConfig]),+    -- | Associates a list of @members@, or principals, with a @role@. Optionally, may specify a @condition@ that determines how and when the @bindings@ are applied. Each of the @bindings@ must contain at least one principal. The @bindings@ in a @Policy@ can refer to up to 1,500 principals; up to 250 of these principals can be Google groups. Each occurrence of a principal counts towards these limits. For example, if the @bindings@ grant 50 different roles to @user:alice\@example.com@, and not to any other principal, then you can add another 1,450 principals to the @bindings@ in the @Policy@.+    bindings :: (Core.Maybe [Binding]),+    -- | @etag@ is used for optimistic concurrency control as a way to help prevent simultaneous updates of a policy from overwriting each other. It is strongly suggested that systems make use of the @etag@ in the read-modify-write cycle to perform policy updates in order to avoid race conditions: An @etag@ is returned in the response to @getIamPolicy@, and systems are expected to put that etag in the request to @setIamPolicy@ to ensure that their change will be applied to the same version of the policy. __Important:__ If you use IAM Conditions, you must include the @etag@ field whenever you call @setIamPolicy@. If you omit this field, then IAM allows you to overwrite a version @3@ policy with a version @1@ policy, and all of the conditions in the version @3@ policy are lost.+    etag :: (Core.Maybe Core.Base64),+    -- | Specifies the format of the policy. Valid values are @0@, @1@, and @3@. Requests that specify an invalid value are rejected. Any operation that affects conditional role bindings must specify version @3@. This requirement applies to the following operations: * Getting a policy that includes a conditional role binding * Adding a conditional role binding to a policy * Changing a conditional role binding in a policy * Removing any role binding, with or without a condition, from a policy that includes conditions __Important:__ If you use IAM Conditions, you must include the @etag@ field whenever you call @setIamPolicy@. If you omit this field, then IAM allows you to overwrite a version @3@ policy with a version @1@ policy, and all of the conditions in the version @3@ policy are lost. If a policy does not include any conditions, operations on that policy may specify any valid version or leave the field unset. To learn which resources support conditions in their IAM policies, see the+    -- <https://cloud.google.com/iam/help/conditions/resource-policies IAM documentation>.+    version :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Policy' with the minimum fields required to make a request.+newPolicy ::+  Policy+newPolicy =+  Policy+    { auditConfigs = Core.Nothing,+      bindings = Core.Nothing,+      etag = Core.Nothing,+      version = Core.Nothing+    }++instance Core.FromJSON Policy where+  parseJSON =+    Core.withObject+      "Policy"+      ( \o ->+          Policy+            Core.<$> (o Core..:? "auditConfigs")+            Core.<*> (o Core..:? "bindings")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "version")+      )++instance Core.ToJSON Policy where+  toJSON Policy {..} =+    Core.object+      ( Core.catMaybes+          [ ("auditConfigs" Core..=) Core.<$> auditConfigs,+            ("bindings" Core..=) Core.<$> bindings,+            ("etag" Core..=) Core.<$> etag,+            ("version" Core..=) Core.<$> version+          ]+      )++-- | A request to replace all existing Access Levels in an Access Policy with the Access Levels provided. This is done atomically.+--+-- /See:/ 'newReplaceAccessLevelsRequest' smart constructor.+data ReplaceAccessLevelsRequest = ReplaceAccessLevelsRequest+  { -- | Required. The desired Access Levels that should replace all existing Access Levels in the Access Policy.+    accessLevels :: (Core.Maybe [AccessLevel]),+    -- | Optional. The etag for the version of the Access Policy that this replace operation is to be performed on. If, at the time of replace, the etag for the Access Policy stored in Access Context Manager is different from the specified etag, then the replace operation will not be performed and the call will fail. This field is not required. If etag is not provided, the operation will be performed as if a valid etag is provided.+    etag :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ReplaceAccessLevelsRequest' with the minimum fields required to make a request.+newReplaceAccessLevelsRequest ::+  ReplaceAccessLevelsRequest+newReplaceAccessLevelsRequest =+  ReplaceAccessLevelsRequest+    { accessLevels = Core.Nothing,+      etag = Core.Nothing+    }++instance Core.FromJSON ReplaceAccessLevelsRequest where+  parseJSON =+    Core.withObject+      "ReplaceAccessLevelsRequest"+      ( \o ->+          ReplaceAccessLevelsRequest+            Core.<$> (o Core..:? "accessLevels")+            Core.<*> (o Core..:? "etag")+      )++instance Core.ToJSON ReplaceAccessLevelsRequest where+  toJSON ReplaceAccessLevelsRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("accessLevels" Core..=) Core.<$> accessLevels,+            ("etag" Core..=) Core.<$> etag+          ]+      )++-- | A response to ReplaceAccessLevelsRequest. This will be put inside of Operation.response field.+--+-- /See:/ 'newReplaceAccessLevelsResponse' smart constructor.+newtype ReplaceAccessLevelsResponse = ReplaceAccessLevelsResponse+  { -- | List of the Access Level instances.+    accessLevels :: (Core.Maybe [AccessLevel])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ReplaceAccessLevelsResponse' with the minimum fields required to make a request.+newReplaceAccessLevelsResponse ::+  ReplaceAccessLevelsResponse+newReplaceAccessLevelsResponse =+  ReplaceAccessLevelsResponse {accessLevels = Core.Nothing}++instance Core.FromJSON ReplaceAccessLevelsResponse where+  parseJSON =+    Core.withObject+      "ReplaceAccessLevelsResponse"+      ( \o ->+          ReplaceAccessLevelsResponse Core.<$> (o Core..:? "accessLevels")+      )++instance Core.ToJSON ReplaceAccessLevelsResponse where+  toJSON ReplaceAccessLevelsResponse {..} =+    Core.object+      (Core.catMaybes [("accessLevels" Core..=) Core.<$> accessLevels])++-- | A request to replace all existing Service Perimeters in an Access Policy with the Service Perimeters provided. This is done atomically.+--+-- /See:/ 'newReplaceServicePerimetersRequest' smart constructor.+data ReplaceServicePerimetersRequest = ReplaceServicePerimetersRequest+  { -- | Optional. The etag for the version of the Access Policy that this replace operation is to be performed on. If, at the time of replace, the etag for the Access Policy stored in Access Context Manager is different from the specified etag, then the replace operation will not be performed and the call will fail. This field is not required. If etag is not provided, the operation will be performed as if a valid etag is provided.+    etag :: (Core.Maybe Core.Text),+    -- | Required. The desired Service Perimeters that should replace all existing Service Perimeters in the Access Policy.+    servicePerimeters :: (Core.Maybe [ServicePerimeter])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ReplaceServicePerimetersRequest' with the minimum fields required to make a request.+newReplaceServicePerimetersRequest ::+  ReplaceServicePerimetersRequest+newReplaceServicePerimetersRequest =+  ReplaceServicePerimetersRequest+    { etag = Core.Nothing,+      servicePerimeters = Core.Nothing+    }++instance Core.FromJSON ReplaceServicePerimetersRequest where+  parseJSON =+    Core.withObject+      "ReplaceServicePerimetersRequest"+      ( \o ->+          ReplaceServicePerimetersRequest+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "servicePerimeters")+      )++instance Core.ToJSON ReplaceServicePerimetersRequest where+  toJSON ReplaceServicePerimetersRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("servicePerimeters" Core..=) Core.<$> servicePerimeters+          ]+      )++-- | A response to ReplaceServicePerimetersRequest. This will be put inside of Operation.response field.+--+-- /See:/ 'newReplaceServicePerimetersResponse' smart constructor.+newtype ReplaceServicePerimetersResponse = ReplaceServicePerimetersResponse+  { -- | List of the Service Perimeter instances.+    servicePerimeters :: (Core.Maybe [ServicePerimeter])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ReplaceServicePerimetersResponse' with the minimum fields required to make a request.+newReplaceServicePerimetersResponse ::+  ReplaceServicePerimetersResponse+newReplaceServicePerimetersResponse =+  ReplaceServicePerimetersResponse+    { servicePerimeters =+        Core.Nothing+    }++instance Core.FromJSON ReplaceServicePerimetersResponse where+  parseJSON =+    Core.withObject+      "ReplaceServicePerimetersResponse"+      ( \o ->+          ReplaceServicePerimetersResponse+            Core.<$> (o Core..:? "servicePerimeters")+      )++instance Core.ToJSON ReplaceServicePerimetersResponse where+  toJSON ReplaceServicePerimetersResponse {..} =+    Core.object+      ( Core.catMaybes+          [("servicePerimeters" Core..=) Core.<$> servicePerimeters]+      )++-- | A relationship between access settings and its scope.+--+-- /See:/ 'newScopedAccessSettings' smart constructor.+data ScopedAccessSettings = ScopedAccessSettings+  { -- | Optional. Access settings for this scoped access settings. This field may be empty if dry/run/settings is set.+    activeSettings :: (Core.Maybe AccessSettings),+    -- | Optional. Dry-run access settings for this scoped access settings. This field may be empty if active_settings is set.+    dryRunSettings :: (Core.Maybe AccessSettings),+    -- | Optional. Application, etc. to which the access settings will be applied to. Implicitly, this is the scoped access settings key; as such, it must be unique and non-empty.+    scope :: (Core.Maybe AccessScope)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ScopedAccessSettings' with the minimum fields required to make a request.+newScopedAccessSettings ::+  ScopedAccessSettings+newScopedAccessSettings =+  ScopedAccessSettings+    { activeSettings = Core.Nothing,+      dryRunSettings = Core.Nothing,+      scope = Core.Nothing+    }++instance Core.FromJSON ScopedAccessSettings where+  parseJSON =+    Core.withObject+      "ScopedAccessSettings"+      ( \o ->+          ScopedAccessSettings+            Core.<$> (o Core..:? "activeSettings")+            Core.<*> (o Core..:? "dryRunSettings")+            Core.<*> (o Core..:? "scope")+      )++instance Core.ToJSON ScopedAccessSettings where+  toJSON ScopedAccessSettings {..} =+    Core.object+      ( Core.catMaybes+          [ ("activeSettings" Core..=) Core.<$> activeSettings,+            ("dryRunSettings" Core..=) Core.<$> dryRunSettings,+            ("scope" Core..=) Core.<$> scope+          ]+      )++-- | @ServicePerimeter@ describes a set of Google Cloud resources which can freely import and export data amongst themselves, but not export outside of the @ServicePerimeter@. If a request with a source within this @ServicePerimeter@ has a target outside of the @ServicePerimeter@, the request will be blocked. Otherwise the request is allowed. There are two types of Service Perimeter - Regular and Bridge. Regular Service Perimeters cannot overlap, a single Google Cloud project or VPC network can only belong to a single regular Service Perimeter. Service Perimeter Bridges can contain only Google Cloud projects as members, a single Google Cloud project may belong to multiple Service Perimeter Bridges.+--+-- /See:/ 'newServicePerimeter' smart constructor.+data ServicePerimeter = ServicePerimeter+  { -- | Description of the @ServicePerimeter@ and its use. Does not affect behavior.+    description :: (Core.Maybe Core.Text),+    -- | Optional. An opaque identifier for the current version of the @ServicePerimeter@. This identifier does not follow any specific format. If an etag is not provided, the operation will be performed as if a valid etag is provided.+    etag :: (Core.Maybe Core.Text),+    -- | Identifier. Resource name for the @ServicePerimeter@. Format: @accessPolicies\/{access_policy}\/servicePerimeters\/{service_perimeter}@. The @service_perimeter@ component must begin with a letter, followed by alphanumeric characters or @_@. After you create a @ServicePerimeter@, you cannot change its @name@.+    name :: (Core.Maybe Core.Text),+    -- | Perimeter type indicator. A single project or VPC network is allowed to be a member of single regular perimeter, but multiple service perimeter bridges. A project cannot be a included in a perimeter bridge without being included in regular perimeter. For perimeter bridges, the restricted service list as well as access level lists must be empty.+    perimeterType :: (Core.Maybe ServicePerimeter_PerimeterType),+    -- | Proposed (or dry run) ServicePerimeter configuration. This configuration allows to specify and test ServicePerimeter configuration without enforcing actual access restrictions. Only allowed to be set when the \"use/explicit/dry/run/spec\" flag is set.+    spec :: (Core.Maybe ServicePerimeterConfig),+    -- | Current ServicePerimeter configuration. Specifies sets of resources, restricted services and access levels that determine perimeter content and boundaries.+    status :: (Core.Maybe ServicePerimeterConfig),+    -- | Human readable title. Must be unique within the Policy.+    title :: (Core.Maybe Core.Text),+    -- | Use explicit dry run spec flag. Ordinarily, a dry-run spec implicitly exists for all Service Perimeters, and that spec is identical to the status for those Service Perimeters. When this flag is set, it inhibits the generation of the implicit spec, thereby allowing the user to explicitly provide a configuration (\"spec\") to use in a dry-run version of the Service Perimeter. This allows the user to test changes to the enforced config (\"status\") without actually enforcing them. This testing is done through analyzing the differences between currently enforced and suggested restrictions. use/explicit/dry/run/spec must bet set to True if any of the fields in the spec are set to non-default values.+    useExplicitDryRunSpec :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ServicePerimeter' with the minimum fields required to make a request.+newServicePerimeter ::+  ServicePerimeter+newServicePerimeter =+  ServicePerimeter+    { description = Core.Nothing,+      etag = Core.Nothing,+      name = Core.Nothing,+      perimeterType = Core.Nothing,+      spec = Core.Nothing,+      status = Core.Nothing,+      title = Core.Nothing,+      useExplicitDryRunSpec = Core.Nothing+    }++instance Core.FromJSON ServicePerimeter where+  parseJSON =+    Core.withObject+      "ServicePerimeter"+      ( \o ->+          ServicePerimeter+            Core.<$> (o Core..:? "description")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "perimeterType")+            Core.<*> (o Core..:? "spec")+            Core.<*> (o Core..:? "status")+            Core.<*> (o Core..:? "title")+            Core.<*> (o Core..:? "useExplicitDryRunSpec")+      )++instance Core.ToJSON ServicePerimeter where+  toJSON ServicePerimeter {..} =+    Core.object+      ( Core.catMaybes+          [ ("description" Core..=) Core.<$> description,+            ("etag" Core..=) Core.<$> etag,+            ("name" Core..=) Core.<$> name,+            ("perimeterType" Core..=) Core.<$> perimeterType,+            ("spec" Core..=) Core.<$> spec,+            ("status" Core..=) Core.<$> status,+            ("title" Core..=) Core.<$> title,+            ("useExplicitDryRunSpec" Core..=) Core.<$> useExplicitDryRunSpec+          ]+      )++-- | @ServicePerimeterConfig@ specifies a set of Google Cloud resources that describe specific Service Perimeter configuration.+--+-- /See:/ 'newServicePerimeterConfig' smart constructor.+data ServicePerimeterConfig = ServicePerimeterConfig+  { -- | A list of @AccessLevel@ resource names that allow resources within the @ServicePerimeter@ to be accessed from the internet. @AccessLevels@ listed must be in the same policy as this @ServicePerimeter@. Referencing a nonexistent @AccessLevel@ is a syntax error. If no @AccessLevel@ names are listed, resources within the perimeter can only be accessed via Google Cloud calls with request origins within the perimeter. Example: @\"accessPolicies\/MY_POLICY\/accessLevels\/MY_LEVEL\"@. For Service Perimeter Bridge, must be empty.+    accessLevels :: (Core.Maybe [Core.Text]),+    -- | List of EgressPolicies to apply to the perimeter. A perimeter may have multiple EgressPolicies, each of which is evaluated separately. Access is granted if any EgressPolicy grants it. Must be empty for a perimeter bridge.+    egressPolicies :: (Core.Maybe [EgressPolicy]),+    -- | List of IngressPolicies to apply to the perimeter. A perimeter may have multiple IngressPolicies, each of which is evaluated separately. Access is granted if any Ingress Policy grants it. Must be empty for a perimeter bridge.+    ingressPolicies :: (Core.Maybe [IngressPolicy]),+    -- | A list of Google Cloud resources that are inside of the service perimeter. Currently only projects and VPCs are allowed. Project format: @projects\/{project_number}@ VPC network format: @\/\/compute.googleapis.com\/projects\/{PROJECT_ID}\/global\/networks\/{NAME}@.+    resources :: (Core.Maybe [Core.Text]),+    -- | Google Cloud services that are subject to the Service Perimeter restrictions. For example, if @storage.googleapis.com@ is specified, access to the storage buckets inside the perimeter must meet the perimeter\'s access restrictions.+    restrictedServices :: (Core.Maybe [Core.Text]),+    -- | Configuration for APIs allowed within Perimeter.+    vpcAccessibleServices :: (Core.Maybe VpcAccessibleServices)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ServicePerimeterConfig' with the minimum fields required to make a request.+newServicePerimeterConfig ::+  ServicePerimeterConfig+newServicePerimeterConfig =+  ServicePerimeterConfig+    { accessLevels = Core.Nothing,+      egressPolicies = Core.Nothing,+      ingressPolicies = Core.Nothing,+      resources = Core.Nothing,+      restrictedServices = Core.Nothing,+      vpcAccessibleServices = Core.Nothing+    }++instance Core.FromJSON ServicePerimeterConfig where+  parseJSON =+    Core.withObject+      "ServicePerimeterConfig"+      ( \o ->+          ServicePerimeterConfig+            Core.<$> (o Core..:? "accessLevels")+            Core.<*> (o Core..:? "egressPolicies")+            Core.<*> (o Core..:? "ingressPolicies")+            Core.<*> (o Core..:? "resources")+            Core.<*> (o Core..:? "restrictedServices")+            Core.<*> (o Core..:? "vpcAccessibleServices")+      )++instance Core.ToJSON ServicePerimeterConfig where+  toJSON ServicePerimeterConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("accessLevels" Core..=) Core.<$> accessLevels,+            ("egressPolicies" Core..=) Core.<$> egressPolicies,+            ("ingressPolicies" Core..=) Core.<$> ingressPolicies,+            ("resources" Core..=) Core.<$> resources,+            ("restrictedServices" Core..=) Core.<$> restrictedServices,+            ("vpcAccessibleServices" Core..=) Core.<$> vpcAccessibleServices+          ]+      )++-- | Stores settings related to Google Cloud Session Length including session duration, the type of challenge (i.e. method) they should face when their session expires, and other related settings.+--+-- /See:/ 'newSessionSettings' smart constructor.+data SessionSettings = SessionSettings+  { -- | Optional. How long a user is allowed to take between actions before a new access token must be issued. Only set for Google Cloud apps.+    maxInactivity :: (Core.Maybe Core.Duration),+    -- | Optional. The session length. Setting this field to zero is equal to disabling session. Also can set infinite session by flipping the enabled bit to false below. If use/oidc/max/age is true, for OIDC apps, the session length will be the minimum of this field and OIDC max/age param.+    sessionLength :: (Core.Maybe Core.Duration),+    -- | Optional. This field enables or disables Google Cloud session length. When false, all fields set above will be disregarded and the session length is basically infinite.+    sessionLengthEnabled :: (Core.Maybe Core.Bool),+    -- | Optional. Session method when user\'s Google Cloud session is up.+    sessionReauthMethod :: (Core.Maybe SessionSettings_SessionReauthMethod),+    -- | Optional. Only useful for OIDC apps. When false, the OIDC max/age param, if passed in the authentication request will be ignored. When true, the re-auth period will be the minimum of the session/length field and the max_age OIDC param.+    useOidcMaxAge :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SessionSettings' with the minimum fields required to make a request.+newSessionSettings ::+  SessionSettings+newSessionSettings =+  SessionSettings+    { maxInactivity = Core.Nothing,+      sessionLength = Core.Nothing,+      sessionLengthEnabled = Core.Nothing,+      sessionReauthMethod = Core.Nothing,+      useOidcMaxAge = Core.Nothing+    }++instance Core.FromJSON SessionSettings where+  parseJSON =+    Core.withObject+      "SessionSettings"+      ( \o ->+          SessionSettings+            Core.<$> (o Core..:? "maxInactivity")+            Core.<*> (o Core..:? "sessionLength")+            Core.<*> (o Core..:? "sessionLengthEnabled")+            Core.<*> (o Core..:? "sessionReauthMethod")+            Core.<*> (o Core..:? "useOidcMaxAge")+      )++instance Core.ToJSON SessionSettings where+  toJSON SessionSettings {..} =+    Core.object+      ( Core.catMaybes+          [ ("maxInactivity" Core..=) Core.<$> maxInactivity,+            ("sessionLength" Core..=) Core.<$> sessionLength,+            ("sessionLengthEnabled" Core..=) Core.<$> sessionLengthEnabled,+            ("sessionReauthMethod" Core..=) Core.<$> sessionReauthMethod,+            ("useOidcMaxAge" Core..=) Core.<$> useOidcMaxAge+          ]+      )++-- | Request message for @SetIamPolicy@ method.+--+-- /See:/ 'newSetIamPolicyRequest' smart constructor.+data SetIamPolicyRequest = SetIamPolicyRequest+  { -- | 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 a valid policy but certain Google Cloud services (such as Projects) might reject them.+    policy :: (Core.Maybe Policy),+    -- | OPTIONAL: A FieldMask specifying which fields of the policy to modify. Only the fields in the mask will be modified. If no mask is provided, the following default mask is used: @paths: \"bindings, etag\"@+    updateMask :: (Core.Maybe Core.FieldMask)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SetIamPolicyRequest' with the minimum fields required to make a request.+newSetIamPolicyRequest ::+  SetIamPolicyRequest+newSetIamPolicyRequest =+  SetIamPolicyRequest+    { policy = Core.Nothing,+      updateMask = Core.Nothing+    }++instance Core.FromJSON SetIamPolicyRequest where+  parseJSON =+    Core.withObject+      "SetIamPolicyRequest"+      ( \o ->+          SetIamPolicyRequest+            Core.<$> (o Core..:? "policy")+            Core.<*> (o Core..:? "updateMask")+      )++instance Core.ToJSON SetIamPolicyRequest where+  toJSON SetIamPolicyRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("policy" Core..=) Core.<$> policy,+            ("updateMask" Core..=) Core.<$> updateMask+          ]+      )++-- | The @Status@ type defines a logical error model that is suitable for different programming environments, including REST APIs and RPC APIs. It is used by <https://github.com/grpc gRPC>. Each @Status@ message contains three pieces of data: error code, error message, and error details. You can find out more about this error model and how to work with it in the <https://cloud.google.com/apis/design/errors API Design Guide>.+--+-- /See:/ 'newStatus' smart constructor.+data Status = Status+  { -- | The status code, which should be an enum value of google.rpc.Code.+    code :: (Core.Maybe Core.Int32),+    -- | A list of messages that carry the error details. There is a common set of message types for APIs to use.+    details :: (Core.Maybe [Status_DetailsItem]),+    -- | A developer-facing error message, which should be in English. Any user-facing error message should be localized and sent in the google.rpc.Status.details field, or localized by the client.+    message :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Status' with the minimum fields required to make a request.+newStatus ::+  Status+newStatus =+  Status+    { code = Core.Nothing,+      details = Core.Nothing,+      message = Core.Nothing+    }++instance Core.FromJSON Status where+  parseJSON =+    Core.withObject+      "Status"+      ( \o ->+          Status+            Core.<$> (o Core..:? "code")+            Core.<*> (o Core..:? "details")+            Core.<*> (o Core..:? "message")+      )++instance Core.ToJSON Status where+  toJSON Status {..} =+    Core.object+      ( Core.catMaybes+          [ ("code" Core..=) Core.<$> code,+            ("details" Core..=) Core.<$> details,+            ("message" Core..=) Core.<$> message+          ]+      )++--+-- /See:/ 'newStatus_DetailsItem' smart constructor.+newtype Status_DetailsItem = Status_DetailsItem+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Status_DetailsItem' with the minimum fields required to make a request.+newStatus_DetailsItem ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Status_DetailsItem+newStatus_DetailsItem additional =+  Status_DetailsItem {additional = additional}++instance Core.FromJSON Status_DetailsItem where+  parseJSON =+    Core.withObject+      "Status_DetailsItem"+      (\o -> Status_DetailsItem Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Status_DetailsItem where+  toJSON Status_DetailsItem {..} = Core.toJSON additional++-- | @SupportedService@ specifies the VPC Service Controls and its properties.+--+-- /See:/ 'newSupportedService' smart constructor.+data SupportedService = SupportedService+  { -- | True if the service is available on the restricted VIP. Services on the restricted VIP typically either support VPC Service Controls or are core infrastructure services required for the functioning of Google Cloud.+    availableOnRestrictedVip :: (Core.Maybe Core.Bool),+    -- | True if the service is supported with some limitations. Check <https://cloud.google.com/vpc-service-controls/docs/supported-products documentation> for details.+    knownLimitations :: (Core.Maybe Core.Bool),+    -- | The service name or address of the supported service, such as @service.googleapis.com@.+    name :: (Core.Maybe Core.Text),+    -- | The support stage of the service.+    serviceSupportStage :: (Core.Maybe SupportedService_ServiceSupportStage),+    -- | The support stage of the service.+    supportStage :: (Core.Maybe SupportedService_SupportStage),+    -- | The list of the supported methods. This field exists only in response to GetSupportedService+    supportedMethods :: (Core.Maybe [MethodSelector]),+    -- | The name of the supported product, such as \'Cloud Product API\'.+    title :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SupportedService' with the minimum fields required to make a request.+newSupportedService ::+  SupportedService+newSupportedService =+  SupportedService+    { availableOnRestrictedVip = Core.Nothing,+      knownLimitations = Core.Nothing,+      name = Core.Nothing,+      serviceSupportStage = Core.Nothing,+      supportStage = Core.Nothing,+      supportedMethods = Core.Nothing,+      title = Core.Nothing+    }++instance Core.FromJSON SupportedService where+  parseJSON =+    Core.withObject+      "SupportedService"+      ( \o ->+          SupportedService+            Core.<$> (o Core..:? "availableOnRestrictedVip")+            Core.<*> (o Core..:? "knownLimitations")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "serviceSupportStage")+            Core.<*> (o Core..:? "supportStage")+            Core.<*> (o Core..:? "supportedMethods")+            Core.<*> (o Core..:? "title")+      )++instance Core.ToJSON SupportedService where+  toJSON SupportedService {..} =+    Core.object+      ( Core.catMaybes+          [ ("availableOnRestrictedVip" Core..=)+              Core.<$> availableOnRestrictedVip,+            ("knownLimitations" Core..=) Core.<$> knownLimitations,+            ("name" Core..=) Core.<$> name,+            ("serviceSupportStage" Core..=) Core.<$> serviceSupportStage,+            ("supportStage" Core..=) Core.<$> supportStage,+            ("supportedMethods" Core..=) Core.<$> supportedMethods,+            ("title" Core..=) Core.<$> title+          ]+      )++-- | Request message for @TestIamPermissions@ method.+--+-- /See:/ 'newTestIamPermissionsRequest' smart constructor.+newtype TestIamPermissionsRequest = TestIamPermissionsRequest+  { -- | The set of permissions to check for the @resource@. Permissions with wildcards (such as @*@ or @storage.*@) are not allowed. For more information see <https://cloud.google.com/iam/docs/overview#permissions IAM Overview>.+    permissions :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TestIamPermissionsRequest' with the minimum fields required to make a request.+newTestIamPermissionsRequest ::+  TestIamPermissionsRequest+newTestIamPermissionsRequest =+  TestIamPermissionsRequest {permissions = Core.Nothing}++instance Core.FromJSON TestIamPermissionsRequest where+  parseJSON =+    Core.withObject+      "TestIamPermissionsRequest"+      ( \o ->+          TestIamPermissionsRequest Core.<$> (o Core..:? "permissions")+      )++instance Core.ToJSON TestIamPermissionsRequest where+  toJSON TestIamPermissionsRequest {..} =+    Core.object+      (Core.catMaybes [("permissions" Core..=) Core.<$> permissions])++-- | Response message for @TestIamPermissions@ method.+--+-- /See:/ 'newTestIamPermissionsResponse' smart constructor.+newtype TestIamPermissionsResponse = TestIamPermissionsResponse+  { -- | A subset of @TestPermissionsRequest.permissions@ that the caller is allowed.+    permissions :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TestIamPermissionsResponse' with the minimum fields required to make a request.+newTestIamPermissionsResponse ::+  TestIamPermissionsResponse+newTestIamPermissionsResponse =+  TestIamPermissionsResponse {permissions = Core.Nothing}++instance Core.FromJSON TestIamPermissionsResponse where+  parseJSON =+    Core.withObject+      "TestIamPermissionsResponse"+      ( \o ->+          TestIamPermissionsResponse Core.<$> (o Core..:? "permissions")+      )++instance Core.ToJSON TestIamPermissionsResponse where+  toJSON TestIamPermissionsResponse {..} =+    Core.object+      (Core.catMaybes [("permissions" Core..=) Core.<$> permissions])++-- | Specifies how APIs are allowed to communicate within the Service Perimeter.+--+-- /See:/ 'newVpcAccessibleServices' smart constructor.+data VpcAccessibleServices = VpcAccessibleServices+  { -- | The list of APIs usable within the Service Perimeter. Must be empty unless \'enable_restriction\' is True. You can specify a list of individual services, as well as include the \'RESTRICTED-SERVICES\' value, which automatically includes all of the services protected by the perimeter.+    allowedServices :: (Core.Maybe [Core.Text]),+    -- | Whether to restrict API calls within the Service Perimeter to the list of APIs specified in \'allowed_services\'.+    enableRestriction :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'VpcAccessibleServices' with the minimum fields required to make a request.+newVpcAccessibleServices ::+  VpcAccessibleServices+newVpcAccessibleServices =+  VpcAccessibleServices+    { allowedServices = Core.Nothing,+      enableRestriction = Core.Nothing+    }++instance Core.FromJSON VpcAccessibleServices where+  parseJSON =+    Core.withObject+      "VpcAccessibleServices"+      ( \o ->+          VpcAccessibleServices+            Core.<$> (o Core..:? "allowedServices")+            Core.<*> (o Core..:? "enableRestriction")+      )++instance Core.ToJSON VpcAccessibleServices where+  toJSON VpcAccessibleServices {..} =+    Core.object+      ( Core.catMaybes+          [ ("allowedServices" Core..=) Core.<$> allowedServices,+            ("enableRestriction" Core..=) Core.<$> enableRestriction+          ]+      )++-- | The originating network source in Google Cloud.+--+-- /See:/ 'newVpcNetworkSource' smart constructor.+newtype VpcNetworkSource = VpcNetworkSource+  { -- | Sub-segment ranges of a VPC network.+    vpcSubnetwork :: (Core.Maybe VpcSubNetwork)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'VpcNetworkSource' with the minimum fields required to make a request.+newVpcNetworkSource ::+  VpcNetworkSource+newVpcNetworkSource =+  VpcNetworkSource {vpcSubnetwork = Core.Nothing}++instance Core.FromJSON VpcNetworkSource where+  parseJSON =+    Core.withObject+      "VpcNetworkSource"+      (\o -> VpcNetworkSource Core.<$> (o Core..:? "vpcSubnetwork"))++instance Core.ToJSON VpcNetworkSource where+  toJSON VpcNetworkSource {..} =+    Core.object+      (Core.catMaybes [("vpcSubnetwork" Core..=) Core.<$> vpcSubnetwork])++-- | Sub-segment ranges inside of a VPC Network.+--+-- /See:/ 'newVpcSubNetwork' smart constructor.+data VpcSubNetwork = VpcSubNetwork+  { -- | Required. Network name. If the network is not part of the organization, the @compute.network.get@ permission must be granted to the caller. Format: @\/\/compute.googleapis.com\/projects\/{PROJECT_ID}\/global\/networks\/{NETWORK_NAME}@ Example: @\/\/compute.googleapis.com\/projects\/my-project\/global\/networks\/network-1@+    network :: (Core.Maybe Core.Text),+    -- | CIDR block IP subnetwork specification. The IP address must be an IPv4 address and can be a public or private IP address. Note that for a CIDR IP address block, the specified IP address portion must be properly truncated (i.e. all the host bits must be zero) or the input is considered malformed. For example, \"192.0.2.0\/24\" is accepted but \"192.0.2.1\/24\" is not. If empty, all IP addresses are allowed.+    vpcIpSubnetworks :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'VpcSubNetwork' with the minimum fields required to make a request.+newVpcSubNetwork ::+  VpcSubNetwork+newVpcSubNetwork =+  VpcSubNetwork+    { network = Core.Nothing,+      vpcIpSubnetworks = Core.Nothing+    }++instance Core.FromJSON VpcSubNetwork where+  parseJSON =+    Core.withObject+      "VpcSubNetwork"+      ( \o ->+          VpcSubNetwork+            Core.<$> (o Core..:? "network")+            Core.<*> (o Core..:? "vpcIpSubnetworks")+      )++instance Core.ToJSON VpcSubNetwork where+  toJSON VpcSubNetwork {..} =+    Core.object+      ( Core.catMaybes+          [ ("network" Core..=) Core.<$> network,+            ("vpcIpSubnetworks" Core..=) Core.<$> vpcIpSubnetworks+          ]+      )
+ gen/Gogol/AccessContextManager/Internal/Sum.hs view
@@ -0,0 +1,819 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.Internal.Sum+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Gogol.AccessContextManager.Internal.Sum+  ( -- * Xgafv+    Xgafv+      ( Xgafv_1,+        Xgafv_2,+        ..+      ),++    -- * AuditLogConfig_LogType+    AuditLogConfig_LogType+      ( AuditLogConfig_LogType_LOGTYPEUNSPECIFIED,+        AuditLogConfig_LogType_ADMINREAD,+        AuditLogConfig_LogType_DATAWRITE,+        AuditLogConfig_LogType_DATAREAD,+        ..+      ),++    -- * AuthorizedOrgsDesc_AssetType+    AuthorizedOrgsDesc_AssetType+      ( AuthorizedOrgsDesc_AssetType_ASSETTYPEUNSPECIFIED,+        AuthorizedOrgsDesc_AssetType_ASSETTYPEDEVICE,+        AuthorizedOrgsDesc_AssetType_ASSETTYPECREDENTIALSTRENGTH,+        ..+      ),++    -- * AuthorizedOrgsDesc_AuthorizationDirection+    AuthorizedOrgsDesc_AuthorizationDirection+      ( AuthorizedOrgsDesc_AuthorizationDirection_AUTHORIZATIONDIRECTIONUNSPECIFIED,+        AuthorizedOrgsDesc_AuthorizationDirection_AUTHORIZATIONDIRECTIONTO,+        AuthorizedOrgsDesc_AuthorizationDirection_AUTHORIZATIONDIRECTIONFROM,+        ..+      ),++    -- * AuthorizedOrgsDesc_AuthorizationType+    AuthorizedOrgsDesc_AuthorizationType+      ( AuthorizedOrgsDesc_AuthorizationType_AUTHORIZATIONTYPEUNSPECIFIED,+        AuthorizedOrgsDesc_AuthorizationType_AUTHORIZATIONTYPETRUST,+        ..+      ),++    -- * BasicLevel_CombiningFunction+    BasicLevel_CombiningFunction+      ( BasicLevel_CombiningFunction_And,+        BasicLevel_CombiningFunction_OR,+        ..+      ),++    -- * DevicePolicy_AllowedDeviceManagementLevelsItem+    DevicePolicy_AllowedDeviceManagementLevelsItem+      ( DevicePolicy_AllowedDeviceManagementLevelsItem_MANAGEMENTUNSPECIFIED,+        DevicePolicy_AllowedDeviceManagementLevelsItem_None,+        DevicePolicy_AllowedDeviceManagementLevelsItem_Basic,+        DevicePolicy_AllowedDeviceManagementLevelsItem_Complete,+        ..+      ),++    -- * DevicePolicy_AllowedEncryptionStatusesItem+    DevicePolicy_AllowedEncryptionStatusesItem+      ( DevicePolicy_AllowedEncryptionStatusesItem_ENCRYPTIONUNSPECIFIED,+        DevicePolicy_AllowedEncryptionStatusesItem_ENCRYPTIONUNSUPPORTED,+        DevicePolicy_AllowedEncryptionStatusesItem_Unencrypted,+        DevicePolicy_AllowedEncryptionStatusesItem_Encrypted,+        ..+      ),++    -- * EgressFrom_IdentityType+    EgressFrom_IdentityType+      ( EgressFrom_IdentityType_IDENTITYTYPEUNSPECIFIED,+        EgressFrom_IdentityType_ANYIDENTITY,+        EgressFrom_IdentityType_ANYUSERACCOUNT,+        EgressFrom_IdentityType_ANYSERVICEACCOUNT,+        ..+      ),++    -- * EgressFrom_SourceRestriction+    EgressFrom_SourceRestriction+      ( EgressFrom_SourceRestriction_SOURCERESTRICTIONUNSPECIFIED,+        EgressFrom_SourceRestriction_SOURCERESTRICTIONENABLED,+        EgressFrom_SourceRestriction_SOURCERESTRICTIONDISABLED,+        ..+      ),++    -- * IngressFrom_IdentityType+    IngressFrom_IdentityType+      ( IngressFrom_IdentityType_IDENTITYTYPEUNSPECIFIED,+        IngressFrom_IdentityType_ANYIDENTITY,+        IngressFrom_IdentityType_ANYUSERACCOUNT,+        IngressFrom_IdentityType_ANYSERVICEACCOUNT,+        ..+      ),++    -- * OsConstraint_OsType+    OsConstraint_OsType+      ( OsConstraint_OsType_OSUNSPECIFIED,+        OsConstraint_OsType_DESKTOPMAC,+        OsConstraint_OsType_DESKTOPWINDOWS,+        OsConstraint_OsType_DESKTOPLINUX,+        OsConstraint_OsType_DESKTOPCHROMEOS,+        OsConstraint_OsType_Android,+        OsConstraint_OsType_Ios,+        ..+      ),++    -- * ServicePerimeter_PerimeterType+    ServicePerimeter_PerimeterType+      ( ServicePerimeter_PerimeterType_PERIMETERTYPEREGULAR,+        ServicePerimeter_PerimeterType_PERIMETERTYPEBRIDGE,+        ..+      ),++    -- * SessionSettings_SessionReauthMethod+    SessionSettings_SessionReauthMethod+      ( SessionSettings_SessionReauthMethod_SESSIONREAUTHMETHODUNSPECIFIED,+        SessionSettings_SessionReauthMethod_Login,+        SessionSettings_SessionReauthMethod_SECURITYKEY,+        SessionSettings_SessionReauthMethod_Password,+        ..+      ),++    -- * SupportedService_ServiceSupportStage+    SupportedService_ServiceSupportStage+      ( SupportedService_ServiceSupportStage_SERVICESUPPORTSTAGEUNSPECIFIED,+        SupportedService_ServiceSupportStage_GA,+        SupportedService_ServiceSupportStage_Preview,+        SupportedService_ServiceSupportStage_Deprecated,+        ..+      ),++    -- * SupportedService_SupportStage+    SupportedService_SupportStage+      ( SupportedService_SupportStage_LAUNCHSTAGEUNSPECIFIED,+        SupportedService_SupportStage_Unimplemented,+        SupportedService_SupportStage_Prelaunch,+        SupportedService_SupportStage_EARLYACCESS,+        SupportedService_SupportStage_Alpha,+        SupportedService_SupportStage_Beta,+        SupportedService_SupportStage_GA,+        SupportedService_SupportStage_Deprecated,+        ..+      ),++    -- * AccessPoliciesAccessLevelsGetAccessLevelFormat+    AccessPoliciesAccessLevelsGetAccessLevelFormat+      ( AccessPoliciesAccessLevelsGetAccessLevelFormat_LEVELFORMATUNSPECIFIED,+        AccessPoliciesAccessLevelsGetAccessLevelFormat_ASDEFINED,+        AccessPoliciesAccessLevelsGetAccessLevelFormat_Cel,+        ..+      ),++    -- * AccessPoliciesAccessLevelsListAccessLevelFormat+    AccessPoliciesAccessLevelsListAccessLevelFormat+      ( AccessPoliciesAccessLevelsListAccessLevelFormat_LEVELFORMATUNSPECIFIED,+        AccessPoliciesAccessLevelsListAccessLevelFormat_ASDEFINED,+        AccessPoliciesAccessLevelsListAccessLevelFormat_Cel,+        ..+      ),+  )+where++import Gogol.Prelude qualified as Core++-- | V1 error format.+newtype Xgafv = Xgafv {fromXgafv :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | v1 error format+pattern Xgafv_1 :: Xgafv+pattern Xgafv_1 = Xgafv "1"++-- | v2 error format+pattern Xgafv_2 :: Xgafv+pattern Xgafv_2 = Xgafv "2"++{-# COMPLETE+  Xgafv_1,+  Xgafv_2,+  Xgafv+  #-}++-- | The log type that this config enables.+newtype AuditLogConfig_LogType = AuditLogConfig_LogType {fromAuditLogConfig_LogType :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Default case. Should never be this.+pattern AuditLogConfig_LogType_LOGTYPEUNSPECIFIED :: AuditLogConfig_LogType+pattern AuditLogConfig_LogType_LOGTYPEUNSPECIFIED = AuditLogConfig_LogType "LOG_TYPE_UNSPECIFIED"++-- | Admin reads. Example: CloudIAM getIamPolicy+pattern AuditLogConfig_LogType_ADMINREAD :: AuditLogConfig_LogType+pattern AuditLogConfig_LogType_ADMINREAD = AuditLogConfig_LogType "ADMIN_READ"++-- | Data writes. Example: CloudSQL Users create+pattern AuditLogConfig_LogType_DATAWRITE :: AuditLogConfig_LogType+pattern AuditLogConfig_LogType_DATAWRITE = AuditLogConfig_LogType "DATA_WRITE"++-- | Data reads. Example: CloudSQL Users list+pattern AuditLogConfig_LogType_DATAREAD :: AuditLogConfig_LogType+pattern AuditLogConfig_LogType_DATAREAD = AuditLogConfig_LogType "DATA_READ"++{-# COMPLETE+  AuditLogConfig_LogType_LOGTYPEUNSPECIFIED,+  AuditLogConfig_LogType_ADMINREAD,+  AuditLogConfig_LogType_DATAWRITE,+  AuditLogConfig_LogType_DATAREAD,+  AuditLogConfig_LogType+  #-}++-- | The asset type of this authorized orgs desc. Valid values are @ASSET_TYPE_DEVICE@, and @ASSET_TYPE_CREDENTIAL_STRENGTH@.+newtype AuthorizedOrgsDesc_AssetType = AuthorizedOrgsDesc_AssetType {fromAuthorizedOrgsDesc_AssetType :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | No asset type specified.+pattern AuthorizedOrgsDesc_AssetType_ASSETTYPEUNSPECIFIED :: AuthorizedOrgsDesc_AssetType+pattern AuthorizedOrgsDesc_AssetType_ASSETTYPEUNSPECIFIED = AuthorizedOrgsDesc_AssetType "ASSET_TYPE_UNSPECIFIED"++-- | Device asset type.+pattern AuthorizedOrgsDesc_AssetType_ASSETTYPEDEVICE :: AuthorizedOrgsDesc_AssetType+pattern AuthorizedOrgsDesc_AssetType_ASSETTYPEDEVICE = AuthorizedOrgsDesc_AssetType "ASSET_TYPE_DEVICE"++-- | Credential strength asset type.+pattern AuthorizedOrgsDesc_AssetType_ASSETTYPECREDENTIALSTRENGTH :: AuthorizedOrgsDesc_AssetType+pattern AuthorizedOrgsDesc_AssetType_ASSETTYPECREDENTIALSTRENGTH = AuthorizedOrgsDesc_AssetType "ASSET_TYPE_CREDENTIAL_STRENGTH"++{-# COMPLETE+  AuthorizedOrgsDesc_AssetType_ASSETTYPEUNSPECIFIED,+  AuthorizedOrgsDesc_AssetType_ASSETTYPEDEVICE,+  AuthorizedOrgsDesc_AssetType_ASSETTYPECREDENTIALSTRENGTH,+  AuthorizedOrgsDesc_AssetType+  #-}++-- | The direction of the authorization relationship between this organization and the organizations listed in the @orgs@ field. The valid values for this field include the following: @AUTHORIZATION_DIRECTION_FROM@: Allows this organization to evaluate traffic in the organizations listed in the @orgs@ field. @AUTHORIZATION_DIRECTION_TO@: Allows the organizations listed in the @orgs@ field to evaluate the traffic in this organization. For the authorization relationship to take effect, all of the organizations must authorize and specify the appropriate relationship direction. For example, if organization A authorized organization B and C to evaluate its traffic, by specifying @AUTHORIZATION_DIRECTION_TO@ as the authorization direction, organizations B and C must specify @AUTHORIZATION_DIRECTION_FROM@ as the authorization direction in their @AuthorizedOrgsDesc@ resource.+newtype AuthorizedOrgsDesc_AuthorizationDirection = AuthorizedOrgsDesc_AuthorizationDirection {fromAuthorizedOrgsDesc_AuthorizationDirection :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | No direction specified.+pattern AuthorizedOrgsDesc_AuthorizationDirection_AUTHORIZATIONDIRECTIONUNSPECIFIED :: AuthorizedOrgsDesc_AuthorizationDirection+pattern AuthorizedOrgsDesc_AuthorizationDirection_AUTHORIZATIONDIRECTIONUNSPECIFIED = AuthorizedOrgsDesc_AuthorizationDirection "AUTHORIZATION_DIRECTION_UNSPECIFIED"++-- | The specified organizations are authorized to evaluate traffic in this organization.+pattern AuthorizedOrgsDesc_AuthorizationDirection_AUTHORIZATIONDIRECTIONTO :: AuthorizedOrgsDesc_AuthorizationDirection+pattern AuthorizedOrgsDesc_AuthorizationDirection_AUTHORIZATIONDIRECTIONTO = AuthorizedOrgsDesc_AuthorizationDirection "AUTHORIZATION_DIRECTION_TO"++-- | The traffic of the specified organizations can be evaluated by this organization.+pattern AuthorizedOrgsDesc_AuthorizationDirection_AUTHORIZATIONDIRECTIONFROM :: AuthorizedOrgsDesc_AuthorizationDirection+pattern AuthorizedOrgsDesc_AuthorizationDirection_AUTHORIZATIONDIRECTIONFROM = AuthorizedOrgsDesc_AuthorizationDirection "AUTHORIZATION_DIRECTION_FROM"++{-# COMPLETE+  AuthorizedOrgsDesc_AuthorizationDirection_AUTHORIZATIONDIRECTIONUNSPECIFIED,+  AuthorizedOrgsDesc_AuthorizationDirection_AUTHORIZATIONDIRECTIONTO,+  AuthorizedOrgsDesc_AuthorizationDirection_AUTHORIZATIONDIRECTIONFROM,+  AuthorizedOrgsDesc_AuthorizationDirection+  #-}++-- | A granular control type for authorization levels. Valid value is @AUTHORIZATION_TYPE_TRUST@.+newtype AuthorizedOrgsDesc_AuthorizationType = AuthorizedOrgsDesc_AuthorizationType {fromAuthorizedOrgsDesc_AuthorizationType :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | No authorization type specified.+pattern AuthorizedOrgsDesc_AuthorizationType_AUTHORIZATIONTYPEUNSPECIFIED :: AuthorizedOrgsDesc_AuthorizationType+pattern AuthorizedOrgsDesc_AuthorizationType_AUTHORIZATIONTYPEUNSPECIFIED = AuthorizedOrgsDesc_AuthorizationType "AUTHORIZATION_TYPE_UNSPECIFIED"++-- | This authorization relationship is \"trust\".+pattern AuthorizedOrgsDesc_AuthorizationType_AUTHORIZATIONTYPETRUST :: AuthorizedOrgsDesc_AuthorizationType+pattern AuthorizedOrgsDesc_AuthorizationType_AUTHORIZATIONTYPETRUST = AuthorizedOrgsDesc_AuthorizationType "AUTHORIZATION_TYPE_TRUST"++{-# COMPLETE+  AuthorizedOrgsDesc_AuthorizationType_AUTHORIZATIONTYPEUNSPECIFIED,+  AuthorizedOrgsDesc_AuthorizationType_AUTHORIZATIONTYPETRUST,+  AuthorizedOrgsDesc_AuthorizationType+  #-}++-- | How the @conditions@ list should be combined to determine if a request is granted this @AccessLevel@. If AND is used, each @Condition@ in @conditions@ must be satisfied for the @AccessLevel@ to be applied. If OR is used, at least one @Condition@ in @conditions@ must be satisfied for the @AccessLevel@ to be applied. Default behavior is AND.+newtype BasicLevel_CombiningFunction = BasicLevel_CombiningFunction {fromBasicLevel_CombiningFunction :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | All @Conditions@ must be true for the @BasicLevel@ to be true.+pattern BasicLevel_CombiningFunction_And :: BasicLevel_CombiningFunction+pattern BasicLevel_CombiningFunction_And = BasicLevel_CombiningFunction "AND"++-- | If at least one @Condition@ is true, then the @BasicLevel@ is true.+pattern BasicLevel_CombiningFunction_OR :: BasicLevel_CombiningFunction+pattern BasicLevel_CombiningFunction_OR = BasicLevel_CombiningFunction "OR"++{-# COMPLETE+  BasicLevel_CombiningFunction_And,+  BasicLevel_CombiningFunction_OR,+  BasicLevel_CombiningFunction+  #-}++newtype DevicePolicy_AllowedDeviceManagementLevelsItem = DevicePolicy_AllowedDeviceManagementLevelsItem {fromDevicePolicy_AllowedDeviceManagementLevelsItem :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The device\'s management level is not specified or not known.+pattern DevicePolicy_AllowedDeviceManagementLevelsItem_MANAGEMENTUNSPECIFIED :: DevicePolicy_AllowedDeviceManagementLevelsItem+pattern DevicePolicy_AllowedDeviceManagementLevelsItem_MANAGEMENTUNSPECIFIED = DevicePolicy_AllowedDeviceManagementLevelsItem "MANAGEMENT_UNSPECIFIED"++-- | The device is not managed.+pattern DevicePolicy_AllowedDeviceManagementLevelsItem_None :: DevicePolicy_AllowedDeviceManagementLevelsItem+pattern DevicePolicy_AllowedDeviceManagementLevelsItem_None = DevicePolicy_AllowedDeviceManagementLevelsItem "NONE"++-- | Basic management is enabled, which is generally limited to monitoring and wiping the corporate account.+pattern DevicePolicy_AllowedDeviceManagementLevelsItem_Basic :: DevicePolicy_AllowedDeviceManagementLevelsItem+pattern DevicePolicy_AllowedDeviceManagementLevelsItem_Basic = DevicePolicy_AllowedDeviceManagementLevelsItem "BASIC"++-- | Complete device management. This includes more thorough monitoring and the ability to directly manage the device (such as remote wiping). This can be enabled through the Android Enterprise Platform.+pattern DevicePolicy_AllowedDeviceManagementLevelsItem_Complete :: DevicePolicy_AllowedDeviceManagementLevelsItem+pattern DevicePolicy_AllowedDeviceManagementLevelsItem_Complete = DevicePolicy_AllowedDeviceManagementLevelsItem "COMPLETE"++{-# COMPLETE+  DevicePolicy_AllowedDeviceManagementLevelsItem_MANAGEMENTUNSPECIFIED,+  DevicePolicy_AllowedDeviceManagementLevelsItem_None,+  DevicePolicy_AllowedDeviceManagementLevelsItem_Basic,+  DevicePolicy_AllowedDeviceManagementLevelsItem_Complete,+  DevicePolicy_AllowedDeviceManagementLevelsItem+  #-}++newtype DevicePolicy_AllowedEncryptionStatusesItem = DevicePolicy_AllowedEncryptionStatusesItem {fromDevicePolicy_AllowedEncryptionStatusesItem :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The encryption status of the device is not specified or not known.+pattern DevicePolicy_AllowedEncryptionStatusesItem_ENCRYPTIONUNSPECIFIED :: DevicePolicy_AllowedEncryptionStatusesItem+pattern DevicePolicy_AllowedEncryptionStatusesItem_ENCRYPTIONUNSPECIFIED = DevicePolicy_AllowedEncryptionStatusesItem "ENCRYPTION_UNSPECIFIED"++-- | The device does not support encryption.+pattern DevicePolicy_AllowedEncryptionStatusesItem_ENCRYPTIONUNSUPPORTED :: DevicePolicy_AllowedEncryptionStatusesItem+pattern DevicePolicy_AllowedEncryptionStatusesItem_ENCRYPTIONUNSUPPORTED = DevicePolicy_AllowedEncryptionStatusesItem "ENCRYPTION_UNSUPPORTED"++-- | The device supports encryption, but is currently unencrypted.+pattern DevicePolicy_AllowedEncryptionStatusesItem_Unencrypted :: DevicePolicy_AllowedEncryptionStatusesItem+pattern DevicePolicy_AllowedEncryptionStatusesItem_Unencrypted = DevicePolicy_AllowedEncryptionStatusesItem "UNENCRYPTED"++-- | The device is encrypted.+pattern DevicePolicy_AllowedEncryptionStatusesItem_Encrypted :: DevicePolicy_AllowedEncryptionStatusesItem+pattern DevicePolicy_AllowedEncryptionStatusesItem_Encrypted = DevicePolicy_AllowedEncryptionStatusesItem "ENCRYPTED"++{-# COMPLETE+  DevicePolicy_AllowedEncryptionStatusesItem_ENCRYPTIONUNSPECIFIED,+  DevicePolicy_AllowedEncryptionStatusesItem_ENCRYPTIONUNSUPPORTED,+  DevicePolicy_AllowedEncryptionStatusesItem_Unencrypted,+  DevicePolicy_AllowedEncryptionStatusesItem_Encrypted,+  DevicePolicy_AllowedEncryptionStatusesItem+  #-}++-- | Specifies the type of identities that are allowed access to outside the perimeter. If left unspecified, then members of @identities@ field will be allowed access.+newtype EgressFrom_IdentityType = EgressFrom_IdentityType {fromEgressFrom_IdentityType :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | No blanket identity group specified.+pattern EgressFrom_IdentityType_IDENTITYTYPEUNSPECIFIED :: EgressFrom_IdentityType+pattern EgressFrom_IdentityType_IDENTITYTYPEUNSPECIFIED = EgressFrom_IdentityType "IDENTITY_TYPE_UNSPECIFIED"++-- | Authorize access from all identities outside the perimeter.+pattern EgressFrom_IdentityType_ANYIDENTITY :: EgressFrom_IdentityType+pattern EgressFrom_IdentityType_ANYIDENTITY = EgressFrom_IdentityType "ANY_IDENTITY"++-- | Authorize access from all human users outside the perimeter.+pattern EgressFrom_IdentityType_ANYUSERACCOUNT :: EgressFrom_IdentityType+pattern EgressFrom_IdentityType_ANYUSERACCOUNT = EgressFrom_IdentityType "ANY_USER_ACCOUNT"++-- | Authorize access from all service accounts outside the perimeter.+pattern EgressFrom_IdentityType_ANYSERVICEACCOUNT :: EgressFrom_IdentityType+pattern EgressFrom_IdentityType_ANYSERVICEACCOUNT = EgressFrom_IdentityType "ANY_SERVICE_ACCOUNT"++{-# COMPLETE+  EgressFrom_IdentityType_IDENTITYTYPEUNSPECIFIED,+  EgressFrom_IdentityType_ANYIDENTITY,+  EgressFrom_IdentityType_ANYUSERACCOUNT,+  EgressFrom_IdentityType_ANYSERVICEACCOUNT,+  EgressFrom_IdentityType+  #-}++-- | Whether to enforce traffic restrictions based on @sources@ field. If the @sources@ fields is non-empty, then this field must be set to @SOURCE_RESTRICTION_ENABLED@.+newtype EgressFrom_SourceRestriction = EgressFrom_SourceRestriction {fromEgressFrom_SourceRestriction :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Enforcement preference unspecified, will not enforce traffic restrictions based on @sources@ in EgressFrom.+pattern EgressFrom_SourceRestriction_SOURCERESTRICTIONUNSPECIFIED :: EgressFrom_SourceRestriction+pattern EgressFrom_SourceRestriction_SOURCERESTRICTIONUNSPECIFIED = EgressFrom_SourceRestriction "SOURCE_RESTRICTION_UNSPECIFIED"++-- | Enforcement preference enabled, traffic restrictions will be enforced based on @sources@ in EgressFrom.+pattern EgressFrom_SourceRestriction_SOURCERESTRICTIONENABLED :: EgressFrom_SourceRestriction+pattern EgressFrom_SourceRestriction_SOURCERESTRICTIONENABLED = EgressFrom_SourceRestriction "SOURCE_RESTRICTION_ENABLED"++-- | Enforcement preference disabled, will not enforce traffic restrictions based on @sources@ in EgressFrom.+pattern EgressFrom_SourceRestriction_SOURCERESTRICTIONDISABLED :: EgressFrom_SourceRestriction+pattern EgressFrom_SourceRestriction_SOURCERESTRICTIONDISABLED = EgressFrom_SourceRestriction "SOURCE_RESTRICTION_DISABLED"++{-# COMPLETE+  EgressFrom_SourceRestriction_SOURCERESTRICTIONUNSPECIFIED,+  EgressFrom_SourceRestriction_SOURCERESTRICTIONENABLED,+  EgressFrom_SourceRestriction_SOURCERESTRICTIONDISABLED,+  EgressFrom_SourceRestriction+  #-}++-- | Specifies the type of identities that are allowed access from outside the perimeter. If left unspecified, then members of @identities@ field will be allowed access.+newtype IngressFrom_IdentityType = IngressFrom_IdentityType {fromIngressFrom_IdentityType :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | No blanket identity group specified.+pattern IngressFrom_IdentityType_IDENTITYTYPEUNSPECIFIED :: IngressFrom_IdentityType+pattern IngressFrom_IdentityType_IDENTITYTYPEUNSPECIFIED = IngressFrom_IdentityType "IDENTITY_TYPE_UNSPECIFIED"++-- | Authorize access from all identities outside the perimeter.+pattern IngressFrom_IdentityType_ANYIDENTITY :: IngressFrom_IdentityType+pattern IngressFrom_IdentityType_ANYIDENTITY = IngressFrom_IdentityType "ANY_IDENTITY"++-- | Authorize access from all human users outside the perimeter.+pattern IngressFrom_IdentityType_ANYUSERACCOUNT :: IngressFrom_IdentityType+pattern IngressFrom_IdentityType_ANYUSERACCOUNT = IngressFrom_IdentityType "ANY_USER_ACCOUNT"++-- | Authorize access from all service accounts outside the perimeter.+pattern IngressFrom_IdentityType_ANYSERVICEACCOUNT :: IngressFrom_IdentityType+pattern IngressFrom_IdentityType_ANYSERVICEACCOUNT = IngressFrom_IdentityType "ANY_SERVICE_ACCOUNT"++{-# COMPLETE+  IngressFrom_IdentityType_IDENTITYTYPEUNSPECIFIED,+  IngressFrom_IdentityType_ANYIDENTITY,+  IngressFrom_IdentityType_ANYUSERACCOUNT,+  IngressFrom_IdentityType_ANYSERVICEACCOUNT,+  IngressFrom_IdentityType+  #-}++-- | Required. The allowed OS type.+newtype OsConstraint_OsType = OsConstraint_OsType {fromOsConstraint_OsType :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The operating system of the device is not specified or not known.+pattern OsConstraint_OsType_OSUNSPECIFIED :: OsConstraint_OsType+pattern OsConstraint_OsType_OSUNSPECIFIED = OsConstraint_OsType "OS_UNSPECIFIED"++-- | A desktop Mac operating system.+pattern OsConstraint_OsType_DESKTOPMAC :: OsConstraint_OsType+pattern OsConstraint_OsType_DESKTOPMAC = OsConstraint_OsType "DESKTOP_MAC"++-- | A desktop Windows operating system.+pattern OsConstraint_OsType_DESKTOPWINDOWS :: OsConstraint_OsType+pattern OsConstraint_OsType_DESKTOPWINDOWS = OsConstraint_OsType "DESKTOP_WINDOWS"++-- | A desktop Linux operating system.+pattern OsConstraint_OsType_DESKTOPLINUX :: OsConstraint_OsType+pattern OsConstraint_OsType_DESKTOPLINUX = OsConstraint_OsType "DESKTOP_LINUX"++-- | A desktop ChromeOS operating system.+pattern OsConstraint_OsType_DESKTOPCHROMEOS :: OsConstraint_OsType+pattern OsConstraint_OsType_DESKTOPCHROMEOS = OsConstraint_OsType "DESKTOP_CHROME_OS"++-- | An Android operating system.+pattern OsConstraint_OsType_Android :: OsConstraint_OsType+pattern OsConstraint_OsType_Android = OsConstraint_OsType "ANDROID"++-- | An iOS operating system.+pattern OsConstraint_OsType_Ios :: OsConstraint_OsType+pattern OsConstraint_OsType_Ios = OsConstraint_OsType "IOS"++{-# COMPLETE+  OsConstraint_OsType_OSUNSPECIFIED,+  OsConstraint_OsType_DESKTOPMAC,+  OsConstraint_OsType_DESKTOPWINDOWS,+  OsConstraint_OsType_DESKTOPLINUX,+  OsConstraint_OsType_DESKTOPCHROMEOS,+  OsConstraint_OsType_Android,+  OsConstraint_OsType_Ios,+  OsConstraint_OsType+  #-}++-- | Perimeter type indicator. A single project or VPC network is allowed to be a member of single regular perimeter, but multiple service perimeter bridges. A project cannot be a included in a perimeter bridge without being included in regular perimeter. For perimeter bridges, the restricted service list as well as access level lists must be empty.+newtype ServicePerimeter_PerimeterType = ServicePerimeter_PerimeterType {fromServicePerimeter_PerimeterType :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Regular Perimeter. When no value is specified, the perimeter uses this type.+pattern ServicePerimeter_PerimeterType_PERIMETERTYPEREGULAR :: ServicePerimeter_PerimeterType+pattern ServicePerimeter_PerimeterType_PERIMETERTYPEREGULAR = ServicePerimeter_PerimeterType "PERIMETER_TYPE_REGULAR"++-- | Perimeter Bridge.+pattern ServicePerimeter_PerimeterType_PERIMETERTYPEBRIDGE :: ServicePerimeter_PerimeterType+pattern ServicePerimeter_PerimeterType_PERIMETERTYPEBRIDGE = ServicePerimeter_PerimeterType "PERIMETER_TYPE_BRIDGE"++{-# COMPLETE+  ServicePerimeter_PerimeterType_PERIMETERTYPEREGULAR,+  ServicePerimeter_PerimeterType_PERIMETERTYPEBRIDGE,+  ServicePerimeter_PerimeterType+  #-}++-- | Optional. Session method when user\'s Google Cloud session is up.+newtype SessionSettings_SessionReauthMethod = SessionSettings_SessionReauthMethod {fromSessionSettings_SessionReauthMethod :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | If method is undefined in the API, LOGIN will be used by default.+pattern SessionSettings_SessionReauthMethod_SESSIONREAUTHMETHODUNSPECIFIED :: SessionSettings_SessionReauthMethod+pattern SessionSettings_SessionReauthMethod_SESSIONREAUTHMETHODUNSPECIFIED = SessionSettings_SessionReauthMethod "SESSION_REAUTH_METHOD_UNSPECIFIED"++-- | The user will be prompted to perform regular login. Users who are enrolled for two-step verification and haven\'t chosen \"Remember this computer\" will be prompted for their second factor.+pattern SessionSettings_SessionReauthMethod_Login :: SessionSettings_SessionReauthMethod+pattern SessionSettings_SessionReauthMethod_Login = SessionSettings_SessionReauthMethod "LOGIN"++-- | The user will be prompted to authenticate using their security key. If no security key has been configured, then authentication will fallback to LOGIN.+pattern SessionSettings_SessionReauthMethod_SECURITYKEY :: SessionSettings_SessionReauthMethod+pattern SessionSettings_SessionReauthMethod_SECURITYKEY = SessionSettings_SessionReauthMethod "SECURITY_KEY"++-- | The user will be prompted for their password.+pattern SessionSettings_SessionReauthMethod_Password :: SessionSettings_SessionReauthMethod+pattern SessionSettings_SessionReauthMethod_Password = SessionSettings_SessionReauthMethod "PASSWORD"++{-# COMPLETE+  SessionSettings_SessionReauthMethod_SESSIONREAUTHMETHODUNSPECIFIED,+  SessionSettings_SessionReauthMethod_Login,+  SessionSettings_SessionReauthMethod_SECURITYKEY,+  SessionSettings_SessionReauthMethod_Password,+  SessionSettings_SessionReauthMethod+  #-}++-- | The support stage of the service.+newtype SupportedService_ServiceSupportStage = SupportedService_ServiceSupportStage {fromSupportedService_ServiceSupportStage :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Do not use this default value.+pattern SupportedService_ServiceSupportStage_SERVICESUPPORTSTAGEUNSPECIFIED :: SupportedService_ServiceSupportStage+pattern SupportedService_ServiceSupportStage_SERVICESUPPORTSTAGEUNSPECIFIED = SupportedService_ServiceSupportStage "SERVICE_SUPPORT_STAGE_UNSPECIFIED"++-- | GA features are open to all developers and are considered stable and fully qualified for production use.+pattern SupportedService_ServiceSupportStage_GA :: SupportedService_ServiceSupportStage+pattern SupportedService_ServiceSupportStage_GA = SupportedService_ServiceSupportStage "GA"++-- | PREVIEW indicates a pre-release stage where the product is functionally complete but undergoing real-world testing.+pattern SupportedService_ServiceSupportStage_Preview :: SupportedService_ServiceSupportStage+pattern SupportedService_ServiceSupportStage_Preview = SupportedService_ServiceSupportStage "PREVIEW"++-- | Deprecated features are scheduled to be shut down and removed.+pattern SupportedService_ServiceSupportStage_Deprecated :: SupportedService_ServiceSupportStage+pattern SupportedService_ServiceSupportStage_Deprecated = SupportedService_ServiceSupportStage "DEPRECATED"++{-# COMPLETE+  SupportedService_ServiceSupportStage_SERVICESUPPORTSTAGEUNSPECIFIED,+  SupportedService_ServiceSupportStage_GA,+  SupportedService_ServiceSupportStage_Preview,+  SupportedService_ServiceSupportStage_Deprecated,+  SupportedService_ServiceSupportStage+  #-}++-- | The support stage of the service.+newtype SupportedService_SupportStage = SupportedService_SupportStage {fromSupportedService_SupportStage :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Do not use this default value.+pattern SupportedService_SupportStage_LAUNCHSTAGEUNSPECIFIED :: SupportedService_SupportStage+pattern SupportedService_SupportStage_LAUNCHSTAGEUNSPECIFIED = SupportedService_SupportStage "LAUNCH_STAGE_UNSPECIFIED"++-- | The feature is not yet implemented. Users can not use it.+pattern SupportedService_SupportStage_Unimplemented :: SupportedService_SupportStage+pattern SupportedService_SupportStage_Unimplemented = SupportedService_SupportStage "UNIMPLEMENTED"++-- | Prelaunch features are hidden from users and are only visible internally.+pattern SupportedService_SupportStage_Prelaunch :: SupportedService_SupportStage+pattern SupportedService_SupportStage_Prelaunch = SupportedService_SupportStage "PRELAUNCH"++-- | Early Access features are limited to a closed group of testers. To use these features, you must sign up in advance and sign a Trusted Tester agreement (which includes confidentiality provisions). These features may be unstable, changed in backward-incompatible ways, and are not guaranteed to be released.+pattern SupportedService_SupportStage_EARLYACCESS :: SupportedService_SupportStage+pattern SupportedService_SupportStage_EARLYACCESS = SupportedService_SupportStage "EARLY_ACCESS"++-- | Alpha is a limited availability test for releases before they are cleared for widespread use. By Alpha, all significant design issues are resolved and we are in the process of verifying functionality. Alpha customers need to apply for access, agree to applicable terms, and have their projects allowlisted. Alpha releases don\'t have to be feature complete, no SLAs are provided, and there are no technical support obligations, but they will be far enough along that customers can actually use them in test environments or for limited-use tests -- just like they would in normal production cases.+pattern SupportedService_SupportStage_Alpha :: SupportedService_SupportStage+pattern SupportedService_SupportStage_Alpha = SupportedService_SupportStage "ALPHA"++-- | Beta is the point at which we are ready to open a release for any customer to use. There are no SLA or technical support obligations in a Beta release. Products will be complete from a feature perspective, but may have some open outstanding issues. Beta releases are suitable for limited production use cases.+pattern SupportedService_SupportStage_Beta :: SupportedService_SupportStage+pattern SupportedService_SupportStage_Beta = SupportedService_SupportStage "BETA"++-- | GA features are open to all developers and are considered stable and fully qualified for production use.+pattern SupportedService_SupportStage_GA :: SupportedService_SupportStage+pattern SupportedService_SupportStage_GA = SupportedService_SupportStage "GA"++-- | Deprecated features are scheduled to be shut down and removed. For more information, see the \"Deprecation Policy\" section of our <https://cloud.google.com/terms/ Terms of Service> and the <https://cloud.google.com/terms/deprecation Google Cloud Platform Subject to the Deprecation Policy> documentation.+pattern SupportedService_SupportStage_Deprecated :: SupportedService_SupportStage+pattern SupportedService_SupportStage_Deprecated = SupportedService_SupportStage "DEPRECATED"++{-# COMPLETE+  SupportedService_SupportStage_LAUNCHSTAGEUNSPECIFIED,+  SupportedService_SupportStage_Unimplemented,+  SupportedService_SupportStage_Prelaunch,+  SupportedService_SupportStage_EARLYACCESS,+  SupportedService_SupportStage_Alpha,+  SupportedService_SupportStage_Beta,+  SupportedService_SupportStage_GA,+  SupportedService_SupportStage_Deprecated,+  SupportedService_SupportStage+  #-}++-- | Whether to return @BasicLevels@ in the Cloud Common Expression Language rather than as @BasicLevels@. Defaults to AS_DEFINED, where Access Levels are returned as @BasicLevels@ or @CustomLevels@ based on how they were created. If set to CEL, all Access Levels are returned as @CustomLevels@. In the CEL case, @BasicLevels@ are translated to equivalent @CustomLevels@.+newtype AccessPoliciesAccessLevelsGetAccessLevelFormat = AccessPoliciesAccessLevelsGetAccessLevelFormat {fromAccessPoliciesAccessLevelsGetAccessLevelFormat :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The format was not specified.+pattern AccessPoliciesAccessLevelsGetAccessLevelFormat_LEVELFORMATUNSPECIFIED :: AccessPoliciesAccessLevelsGetAccessLevelFormat+pattern AccessPoliciesAccessLevelsGetAccessLevelFormat_LEVELFORMATUNSPECIFIED = AccessPoliciesAccessLevelsGetAccessLevelFormat "LEVEL_FORMAT_UNSPECIFIED"++-- | Uses the format the resource was defined in. BasicLevels are returned as BasicLevels, CustomLevels are returned as CustomLevels.+pattern AccessPoliciesAccessLevelsGetAccessLevelFormat_ASDEFINED :: AccessPoliciesAccessLevelsGetAccessLevelFormat+pattern AccessPoliciesAccessLevelsGetAccessLevelFormat_ASDEFINED = AccessPoliciesAccessLevelsGetAccessLevelFormat "AS_DEFINED"++-- | Use Cloud Common Expression Language when returning the resource. Both BasicLevels and CustomLevels are returned as CustomLevels.+pattern AccessPoliciesAccessLevelsGetAccessLevelFormat_Cel :: AccessPoliciesAccessLevelsGetAccessLevelFormat+pattern AccessPoliciesAccessLevelsGetAccessLevelFormat_Cel = AccessPoliciesAccessLevelsGetAccessLevelFormat "CEL"++{-# COMPLETE+  AccessPoliciesAccessLevelsGetAccessLevelFormat_LEVELFORMATUNSPECIFIED,+  AccessPoliciesAccessLevelsGetAccessLevelFormat_ASDEFINED,+  AccessPoliciesAccessLevelsGetAccessLevelFormat_Cel,+  AccessPoliciesAccessLevelsGetAccessLevelFormat+  #-}++-- | Whether to return @BasicLevels@ in the Cloud Common Expression language, as @CustomLevels@, rather than as @BasicLevels@. Defaults to returning @AccessLevels@ in the format they were defined.+newtype AccessPoliciesAccessLevelsListAccessLevelFormat = AccessPoliciesAccessLevelsListAccessLevelFormat {fromAccessPoliciesAccessLevelsListAccessLevelFormat :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The format was not specified.+pattern AccessPoliciesAccessLevelsListAccessLevelFormat_LEVELFORMATUNSPECIFIED :: AccessPoliciesAccessLevelsListAccessLevelFormat+pattern AccessPoliciesAccessLevelsListAccessLevelFormat_LEVELFORMATUNSPECIFIED = AccessPoliciesAccessLevelsListAccessLevelFormat "LEVEL_FORMAT_UNSPECIFIED"++-- | Uses the format the resource was defined in. BasicLevels are returned as BasicLevels, CustomLevels are returned as CustomLevels.+pattern AccessPoliciesAccessLevelsListAccessLevelFormat_ASDEFINED :: AccessPoliciesAccessLevelsListAccessLevelFormat+pattern AccessPoliciesAccessLevelsListAccessLevelFormat_ASDEFINED = AccessPoliciesAccessLevelsListAccessLevelFormat "AS_DEFINED"++-- | Use Cloud Common Expression Language when returning the resource. Both BasicLevels and CustomLevels are returned as CustomLevels.+pattern AccessPoliciesAccessLevelsListAccessLevelFormat_Cel :: AccessPoliciesAccessLevelsListAccessLevelFormat+pattern AccessPoliciesAccessLevelsListAccessLevelFormat_Cel = AccessPoliciesAccessLevelsListAccessLevelFormat "CEL"++{-# COMPLETE+  AccessPoliciesAccessLevelsListAccessLevelFormat_LEVELFORMATUNSPECIFIED,+  AccessPoliciesAccessLevelsListAccessLevelFormat_ASDEFINED,+  AccessPoliciesAccessLevelsListAccessLevelFormat_Cel,+  AccessPoliciesAccessLevelsListAccessLevelFormat+  #-}
+ gen/Gogol/AccessContextManager/Operations/Cancel.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.Operations.Cancel+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts asynchronous cancellation on a long-running operation. The server makes a best effort to cancel the operation, but success is not guaranteed. If the server doesn\'t support this method, it returns @google.rpc.Code.UNIMPLEMENTED@. Clients can use Operations.GetOperation or other methods to check whether the cancellation succeeded or whether the operation completed despite cancellation. On successful cancellation, the operation is not deleted; instead, it becomes an operation with an Operation.error value with a google.rpc.Status.code of @1@, corresponding to @Code.CANCELLED@.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.operations.cancel@.+module Gogol.AccessContextManager.Operations.Cancel+  ( -- * Resource+    AccessContextManagerOperationsCancelResource,++    -- ** Constructing a Request+    AccessContextManagerOperationsCancel (..),+    newAccessContextManagerOperationsCancel,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.operations.cancel@ method which the+-- 'AccessContextManagerOperationsCancel' request conforms to.+type AccessContextManagerOperationsCancelResource =+  "v1"+    Core.:> Core.CaptureMode "name" "cancel" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] CancelOperationRequest+    Core.:> Core.Post '[Core.JSON] Empty++-- | Starts asynchronous cancellation on a long-running operation. The server makes a best effort to cancel the operation, but success is not guaranteed. If the server doesn\'t support this method, it returns @google.rpc.Code.UNIMPLEMENTED@. Clients can use Operations.GetOperation or other methods to check whether the cancellation succeeded or whether the operation completed despite cancellation. On successful cancellation, the operation is not deleted; instead, it becomes an operation with an Operation.error value with a google.rpc.Status.code of @1@, corresponding to @Code.CANCELLED@.+--+-- /See:/ 'newAccessContextManagerOperationsCancel' smart constructor.+data AccessContextManagerOperationsCancel = AccessContextManagerOperationsCancel+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The name of the operation resource to be cancelled.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: CancelOperationRequest,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerOperationsCancel' with the minimum fields required to make a request.+newAccessContextManagerOperationsCancel ::+  -- |  The name of the operation resource to be cancelled. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CancelOperationRequest ->+  AccessContextManagerOperationsCancel+newAccessContextManagerOperationsCancel name payload =+  AccessContextManagerOperationsCancel+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AccessContextManagerOperationsCancel where+  type Rs AccessContextManagerOperationsCancel = Empty+  type+    Scopes AccessContextManagerOperationsCancel =+      '[CloudPlatform'FullControl]+  requestClient AccessContextManagerOperationsCancel {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      accessContextManagerService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessContextManagerOperationsCancelResource+          )+          Core.mempty
+ gen/Gogol/AccessContextManager/Operations/Delete.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.Operations.Delete+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a long-running operation. This method indicates that the client is no longer interested in the operation result. It does not cancel the operation. If the server doesn\'t support this method, it returns @google.rpc.Code.UNIMPLEMENTED@.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.operations.delete@.+module Gogol.AccessContextManager.Operations.Delete+  ( -- * Resource+    AccessContextManagerOperationsDeleteResource,++    -- ** Constructing a Request+    AccessContextManagerOperationsDelete (..),+    newAccessContextManagerOperationsDelete,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.operations.delete@ method which the+-- 'AccessContextManagerOperationsDelete' request conforms to.+type AccessContextManagerOperationsDeleteResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] Empty++-- | Deletes a long-running operation. This method indicates that the client is no longer interested in the operation result. It does not cancel the operation. If the server doesn\'t support this method, it returns @google.rpc.Code.UNIMPLEMENTED@.+--+-- /See:/ 'newAccessContextManagerOperationsDelete' smart constructor.+data AccessContextManagerOperationsDelete = AccessContextManagerOperationsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The name of the operation resource to be deleted.+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerOperationsDelete' with the minimum fields required to make a request.+newAccessContextManagerOperationsDelete ::+  -- |  The name of the operation resource to be deleted. See 'name'.+  Core.Text ->+  AccessContextManagerOperationsDelete+newAccessContextManagerOperationsDelete name =+  AccessContextManagerOperationsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AccessContextManagerOperationsDelete where+  type Rs AccessContextManagerOperationsDelete = Empty+  type+    Scopes AccessContextManagerOperationsDelete =+      '[CloudPlatform'FullControl]+  requestClient AccessContextManagerOperationsDelete {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessContextManagerService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessContextManagerOperationsDeleteResource+          )+          Core.mempty
+ gen/Gogol/AccessContextManager/Operations/Get.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.Operations.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the latest state of a long-running operation. Clients can use this method to poll the operation result at intervals as recommended by the API service.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.operations.get@.+module Gogol.AccessContextManager.Operations.Get+  ( -- * Resource+    AccessContextManagerOperationsGetResource,++    -- ** Constructing a Request+    AccessContextManagerOperationsGet (..),+    newAccessContextManagerOperationsGet,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.operations.get@ method which the+-- 'AccessContextManagerOperationsGet' request conforms to.+type AccessContextManagerOperationsGetResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Operation++-- | Gets the latest state of a long-running operation. Clients can use this method to poll the operation result at intervals as recommended by the API service.+--+-- /See:/ 'newAccessContextManagerOperationsGet' smart constructor.+data AccessContextManagerOperationsGet = AccessContextManagerOperationsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The name of the operation resource.+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerOperationsGet' with the minimum fields required to make a request.+newAccessContextManagerOperationsGet ::+  -- |  The name of the operation resource. See 'name'.+  Core.Text ->+  AccessContextManagerOperationsGet+newAccessContextManagerOperationsGet name =+  AccessContextManagerOperationsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AccessContextManagerOperationsGet where+  type Rs AccessContextManagerOperationsGet = Operation+  type+    Scopes AccessContextManagerOperationsGet =+      '[CloudPlatform'FullControl]+  requestClient AccessContextManagerOperationsGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessContextManagerService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessContextManagerOperationsGetResource+          )+          Core.mempty
+ gen/Gogol/AccessContextManager/Operations/List.hs view
@@ -0,0 +1,126 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.Operations.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists operations that match the specified filter in the request. If the server doesn\'t support this method, it returns @UNIMPLEMENTED@.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.operations.list@.+module Gogol.AccessContextManager.Operations.List+  ( -- * Resource+    AccessContextManagerOperationsListResource,++    -- ** Constructing a Request+    AccessContextManagerOperationsList (..),+    newAccessContextManagerOperationsList,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.operations.list@ method which the+-- 'AccessContextManagerOperationsList' request conforms to.+type AccessContextManagerOperationsListResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "filter" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListOperationsResponse++-- | Lists operations that match the specified filter in the request. If the server doesn\'t support this method, it returns @UNIMPLEMENTED@.+--+-- /See:/ 'newAccessContextManagerOperationsList' smart constructor.+data AccessContextManagerOperationsList = AccessContextManagerOperationsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The standard list filter.+    filter :: (Core.Maybe Core.Text),+    -- | The name of the operation\'s parent resource.+    name :: Core.Text,+    -- | The standard list page size.+    pageSize :: (Core.Maybe Core.Int32),+    -- | The standard list page token.+    pageToken :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerOperationsList' with the minimum fields required to make a request.+newAccessContextManagerOperationsList ::+  -- |  The name of the operation\'s parent resource. See 'name'.+  Core.Text ->+  AccessContextManagerOperationsList+newAccessContextManagerOperationsList name =+  AccessContextManagerOperationsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      name = name,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AccessContextManagerOperationsList where+  type Rs AccessContextManagerOperationsList = ListOperationsResponse+  type+    Scopes AccessContextManagerOperationsList =+      '[CloudPlatform'FullControl]+  requestClient AccessContextManagerOperationsList {..} =+    go+      name+      xgafv+      accessToken+      callback+      filter+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessContextManagerService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessContextManagerOperationsListResource+          )+          Core.mempty
+ gen/Gogol/AccessContextManager/Organizations/GcpUserAccessBindings/Create.hs view
@@ -0,0 +1,131 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Create+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a GcpUserAccessBinding. If the client specifies a name, the server ignores it. Fails if a resource already exists with the same group_key. Completion of this long-running operation does not necessarily signify that the new binding is deployed onto all affected users, which may take more time.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.organizations.gcpUserAccessBindings.create@.+module Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Create+  ( -- * Resource+    AccessContextManagerOrganizationsGcpUserAccessBindingsCreateResource,++    -- ** Constructing a Request+    AccessContextManagerOrganizationsGcpUserAccessBindingsCreate (..),+    newAccessContextManagerOrganizationsGcpUserAccessBindingsCreate,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.organizations.gcpUserAccessBindings.create@ method which the+-- 'AccessContextManagerOrganizationsGcpUserAccessBindingsCreate' request conforms to.+type AccessContextManagerOrganizationsGcpUserAccessBindingsCreateResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "gcpUserAccessBindings"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] GcpUserAccessBinding+    Core.:> Core.Post '[Core.JSON] Operation++-- | Creates a GcpUserAccessBinding. If the client specifies a name, the server ignores it. Fails if a resource already exists with the same group_key. Completion of this long-running operation does not necessarily signify that the new binding is deployed onto all affected users, which may take more time.+--+-- /See:/ 'newAccessContextManagerOrganizationsGcpUserAccessBindingsCreate' smart constructor.+data AccessContextManagerOrganizationsGcpUserAccessBindingsCreate = AccessContextManagerOrganizationsGcpUserAccessBindingsCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Example: \"organizations\/256\"+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: GcpUserAccessBinding,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerOrganizationsGcpUserAccessBindingsCreate' with the minimum fields required to make a request.+newAccessContextManagerOrganizationsGcpUserAccessBindingsCreate ::+  -- |  Required. Example: \"organizations\/256\" See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  GcpUserAccessBinding ->+  AccessContextManagerOrganizationsGcpUserAccessBindingsCreate+newAccessContextManagerOrganizationsGcpUserAccessBindingsCreate+  parent+  payload =+    AccessContextManagerOrganizationsGcpUserAccessBindingsCreate+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        parent = parent,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerOrganizationsGcpUserAccessBindingsCreate+  where+  type+    Rs+      AccessContextManagerOrganizationsGcpUserAccessBindingsCreate =+      Operation+  type+    Scopes+      AccessContextManagerOrganizationsGcpUserAccessBindingsCreate =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerOrganizationsGcpUserAccessBindingsCreate {..} =+      go+        parent+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerOrganizationsGcpUserAccessBindingsCreateResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/Organizations/GcpUserAccessBindings/Delete.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Delete+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a GcpUserAccessBinding. Completion of this long-running operation does not necessarily signify that the binding deletion is deployed onto all affected users, which may take more time.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.organizations.gcpUserAccessBindings.delete@.+module Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Delete+  ( -- * Resource+    AccessContextManagerOrganizationsGcpUserAccessBindingsDeleteResource,++    -- ** Constructing a Request+    AccessContextManagerOrganizationsGcpUserAccessBindingsDelete (..),+    newAccessContextManagerOrganizationsGcpUserAccessBindingsDelete,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.organizations.gcpUserAccessBindings.delete@ method which the+-- 'AccessContextManagerOrganizationsGcpUserAccessBindingsDelete' request conforms to.+type AccessContextManagerOrganizationsGcpUserAccessBindingsDeleteResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] Operation++-- | Deletes a GcpUserAccessBinding. Completion of this long-running operation does not necessarily signify that the binding deletion is deployed onto all affected users, which may take more time.+--+-- /See:/ 'newAccessContextManagerOrganizationsGcpUserAccessBindingsDelete' smart constructor.+data AccessContextManagerOrganizationsGcpUserAccessBindingsDelete = AccessContextManagerOrganizationsGcpUserAccessBindingsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Example: \"organizations\/256\/gcpUserAccessBindings\/b3-BhcX_Ud5N\"+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerOrganizationsGcpUserAccessBindingsDelete' with the minimum fields required to make a request.+newAccessContextManagerOrganizationsGcpUserAccessBindingsDelete ::+  -- |  Required. Example: \"organizations\/256\/gcpUserAccessBindings\/b3-BhcX_Ud5N\" See 'name'.+  Core.Text ->+  AccessContextManagerOrganizationsGcpUserAccessBindingsDelete+newAccessContextManagerOrganizationsGcpUserAccessBindingsDelete+  name =+    AccessContextManagerOrganizationsGcpUserAccessBindingsDelete+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        name = name,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerOrganizationsGcpUserAccessBindingsDelete+  where+  type+    Rs+      AccessContextManagerOrganizationsGcpUserAccessBindingsDelete =+      Operation+  type+    Scopes+      AccessContextManagerOrganizationsGcpUserAccessBindingsDelete =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerOrganizationsGcpUserAccessBindingsDelete {..} =+      go+        name+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerOrganizationsGcpUserAccessBindingsDeleteResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/Organizations/GcpUserAccessBindings/Get.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the GcpUserAccessBinding with the given name.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.organizations.gcpUserAccessBindings.get@.+module Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Get+  ( -- * Resource+    AccessContextManagerOrganizationsGcpUserAccessBindingsGetResource,++    -- ** Constructing a Request+    AccessContextManagerOrganizationsGcpUserAccessBindingsGet (..),+    newAccessContextManagerOrganizationsGcpUserAccessBindingsGet,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.organizations.gcpUserAccessBindings.get@ method which the+-- 'AccessContextManagerOrganizationsGcpUserAccessBindingsGet' request conforms to.+type AccessContextManagerOrganizationsGcpUserAccessBindingsGetResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] GcpUserAccessBinding++-- | Gets the GcpUserAccessBinding with the given name.+--+-- /See:/ 'newAccessContextManagerOrganizationsGcpUserAccessBindingsGet' smart constructor.+data AccessContextManagerOrganizationsGcpUserAccessBindingsGet = AccessContextManagerOrganizationsGcpUserAccessBindingsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Example: \"organizations\/256\/gcpUserAccessBindings\/b3-BhcX_Ud5N\"+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerOrganizationsGcpUserAccessBindingsGet' with the minimum fields required to make a request.+newAccessContextManagerOrganizationsGcpUserAccessBindingsGet ::+  -- |  Required. Example: \"organizations\/256\/gcpUserAccessBindings\/b3-BhcX_Ud5N\" See 'name'.+  Core.Text ->+  AccessContextManagerOrganizationsGcpUserAccessBindingsGet+newAccessContextManagerOrganizationsGcpUserAccessBindingsGet name =+  AccessContextManagerOrganizationsGcpUserAccessBindingsGet+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessContextManagerOrganizationsGcpUserAccessBindingsGet+  where+  type+    Rs AccessContextManagerOrganizationsGcpUserAccessBindingsGet =+      GcpUserAccessBinding+  type+    Scopes+      AccessContextManagerOrganizationsGcpUserAccessBindingsGet =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerOrganizationsGcpUserAccessBindingsGet {..} =+      go+        name+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerOrganizationsGcpUserAccessBindingsGetResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/Organizations/GcpUserAccessBindings/List.hs view
@@ -0,0 +1,132 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all GcpUserAccessBindings for a Google Cloud organization.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.organizations.gcpUserAccessBindings.list@.+module Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.List+  ( -- * Resource+    AccessContextManagerOrganizationsGcpUserAccessBindingsListResource,++    -- ** Constructing a Request+    AccessContextManagerOrganizationsGcpUserAccessBindingsList (..),+    newAccessContextManagerOrganizationsGcpUserAccessBindingsList,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.organizations.gcpUserAccessBindings.list@ method which the+-- 'AccessContextManagerOrganizationsGcpUserAccessBindingsList' request conforms to.+type AccessContextManagerOrganizationsGcpUserAccessBindingsListResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "gcpUserAccessBindings"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListGcpUserAccessBindingsResponse++-- | Lists all GcpUserAccessBindings for a Google Cloud organization.+--+-- /See:/ 'newAccessContextManagerOrganizationsGcpUserAccessBindingsList' smart constructor.+data AccessContextManagerOrganizationsGcpUserAccessBindingsList = AccessContextManagerOrganizationsGcpUserAccessBindingsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Optional. Maximum number of items to return. The server may return fewer items. If left blank, the server may return any number of items.+    pageSize :: (Core.Maybe Core.Int32),+    -- | Optional. If left blank, returns the first page. To enumerate all items, use the next/page/token from your previous list operation.+    pageToken :: (Core.Maybe Core.Text),+    -- | Required. Example: \"organizations\/256\"+    parent :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerOrganizationsGcpUserAccessBindingsList' with the minimum fields required to make a request.+newAccessContextManagerOrganizationsGcpUserAccessBindingsList ::+  -- |  Required. Example: \"organizations\/256\" See 'parent'.+  Core.Text ->+  AccessContextManagerOrganizationsGcpUserAccessBindingsList+newAccessContextManagerOrganizationsGcpUserAccessBindingsList+  parent =+    AccessContextManagerOrganizationsGcpUserAccessBindingsList+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        pageSize = Core.Nothing,+        pageToken = Core.Nothing,+        parent = parent,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerOrganizationsGcpUserAccessBindingsList+  where+  type+    Rs AccessContextManagerOrganizationsGcpUserAccessBindingsList =+      ListGcpUserAccessBindingsResponse+  type+    Scopes+      AccessContextManagerOrganizationsGcpUserAccessBindingsList =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerOrganizationsGcpUserAccessBindingsList {..} =+      go+        parent+        xgafv+        accessToken+        callback+        pageSize+        pageToken+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerOrganizationsGcpUserAccessBindingsListResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/Organizations/GcpUserAccessBindings/Patch.hs view
@@ -0,0 +1,139 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a GcpUserAccessBinding. Completion of this long-running operation does not necessarily signify that the changed binding is deployed onto all affected users, which may take more time.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.organizations.gcpUserAccessBindings.patch@.+module Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Patch+  ( -- * Resource+    AccessContextManagerOrganizationsGcpUserAccessBindingsPatchResource,++    -- ** Constructing a Request+    AccessContextManagerOrganizationsGcpUserAccessBindingsPatch (..),+    newAccessContextManagerOrganizationsGcpUserAccessBindingsPatch,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.organizations.gcpUserAccessBindings.patch@ method which the+-- 'AccessContextManagerOrganizationsGcpUserAccessBindingsPatch' request conforms to.+type AccessContextManagerOrganizationsGcpUserAccessBindingsPatchResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "append" Core.Bool+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "updateMask" Core.FieldMask+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] GcpUserAccessBinding+    Core.:> Core.Patch '[Core.JSON] Operation++-- | Updates a GcpUserAccessBinding. Completion of this long-running operation does not necessarily signify that the changed binding is deployed onto all affected users, which may take more time.+--+-- /See:/ 'newAccessContextManagerOrganizationsGcpUserAccessBindingsPatch' smart constructor.+data AccessContextManagerOrganizationsGcpUserAccessBindingsPatch = AccessContextManagerOrganizationsGcpUserAccessBindingsPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | Optional. This field controls whether or not certain repeated settings in the update request overwrite or append to existing settings on the binding. If true, then append. Otherwise overwrite. So far, only scoped/access/settings with reauth/settings supports appending. Global access/levels, access/levels in scoped/access/settings, dry/run/access/levels, reauth/settings, and session/settings are not compatible with append functionality, and the request will return an error if append=true when these settings are in the update/mask. The request will also return an error if append=true when \"scoped/access/settings\" is not set in the update/mask.+    append :: (Core.Maybe Core.Bool),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable. Assigned by the server during creation. The last segment has an arbitrary length and has only URI unreserved characters (as defined by <https://tools.ietf.org/html/rfc3986#section-2.3 RFC 3986 Section 2.3>). Should not be specified by the client during creation. Example: \"organizations\/256\/gcpUserAccessBindings\/b3-BhcX_Ud5N\"+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: GcpUserAccessBinding,+    -- | Required. Only the fields specified in this mask are updated. Because name and group/key cannot be changed, update/mask is required and may only contain the following fields: @access_levels@, @dry_run_access_levels@, @reauth_settings@ @session_settings@, @scoped_access_settings@. update/mask { paths: \"access/levels\" }+    updateMask :: (Core.Maybe Core.FieldMask),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerOrganizationsGcpUserAccessBindingsPatch' with the minimum fields required to make a request.+newAccessContextManagerOrganizationsGcpUserAccessBindingsPatch ::+  -- |  Immutable. Assigned by the server during creation. The last segment has an arbitrary length and has only URI unreserved characters (as defined by <https://tools.ietf.org/html/rfc3986#section-2.3 RFC 3986 Section 2.3>). Should not be specified by the client during creation. Example: \"organizations\/256\/gcpUserAccessBindings\/b3-BhcX_Ud5N\" See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  GcpUserAccessBinding ->+  AccessContextManagerOrganizationsGcpUserAccessBindingsPatch+newAccessContextManagerOrganizationsGcpUserAccessBindingsPatch+  name+  payload =+    AccessContextManagerOrganizationsGcpUserAccessBindingsPatch+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        append = Core.Nothing,+        callback = Core.Nothing,+        name = name,+        payload = payload,+        updateMask = Core.Nothing,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessContextManagerOrganizationsGcpUserAccessBindingsPatch+  where+  type+    Rs AccessContextManagerOrganizationsGcpUserAccessBindingsPatch =+      Operation+  type+    Scopes+      AccessContextManagerOrganizationsGcpUserAccessBindingsPatch =+      '[CloudPlatform'FullControl]+  requestClient+    AccessContextManagerOrganizationsGcpUserAccessBindingsPatch {..} =+      go+        name+        xgafv+        accessToken+        append+        callback+        updateMask+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessContextManagerService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessContextManagerOrganizationsGcpUserAccessBindingsPatchResource+            )+            Core.mempty
+ gen/Gogol/AccessContextManager/Services/Get.hs view
@@ -0,0 +1,110 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.Services.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a VPC-SC supported service based on the service name.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.services.get@.+module Gogol.AccessContextManager.Services.Get+  ( -- * Resource+    AccessContextManagerServicesGetResource,++    -- ** Constructing a Request+    AccessContextManagerServicesGet (..),+    newAccessContextManagerServicesGet,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.services.get@ method which the+-- 'AccessContextManagerServicesGet' request conforms to.+type AccessContextManagerServicesGetResource =+  "v1"+    Core.:> "services"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] SupportedService++-- | Returns a VPC-SC supported service based on the service name.+--+-- /See:/ 'newAccessContextManagerServicesGet' smart constructor.+data AccessContextManagerServicesGet = AccessContextManagerServicesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The name of the service to get information about. The names must be in the same format as used in defining a service perimeter, for example, @storage.googleapis.com@.+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerServicesGet' with the minimum fields required to make a request.+newAccessContextManagerServicesGet ::+  -- |  The name of the service to get information about. The names must be in the same format as used in defining a service perimeter, for example, @storage.googleapis.com@. See 'name'.+  Core.Text ->+  AccessContextManagerServicesGet+newAccessContextManagerServicesGet name =+  AccessContextManagerServicesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AccessContextManagerServicesGet where+  type Rs AccessContextManagerServicesGet = SupportedService+  type+    Scopes AccessContextManagerServicesGet =+      '[CloudPlatform'FullControl]+  requestClient AccessContextManagerServicesGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessContextManagerService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AccessContextManagerServicesGetResource)+          Core.mempty
+ gen/Gogol/AccessContextManager/Services/List.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.Services.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all VPC-SC supported services.+--+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.services.list@.+module Gogol.AccessContextManager.Services.List+  ( -- * Resource+    AccessContextManagerServicesListResource,++    -- ** Constructing a Request+    AccessContextManagerServicesList (..),+    newAccessContextManagerServicesList,+  )+where++import Gogol.AccessContextManager.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accesscontextmanager.services.list@ method which the+-- 'AccessContextManagerServicesList' request conforms to.+type AccessContextManagerServicesListResource =+  "v1"+    Core.:> "services"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListSupportedServicesResponse++-- | Lists all VPC-SC supported services.+--+-- /See:/ 'newAccessContextManagerServicesList' smart constructor.+data AccessContextManagerServicesList = AccessContextManagerServicesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | This flag specifies the maximum number of services to return per page. Default is 100.+    pageSize :: (Core.Maybe Core.Int32),+    -- | Token to start on a later page. Default is the first page.+    pageToken :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessContextManagerServicesList' with the minimum fields required to make a request.+newAccessContextManagerServicesList ::+  AccessContextManagerServicesList+newAccessContextManagerServicesList =+  AccessContextManagerServicesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AccessContextManagerServicesList where+  type+    Rs AccessContextManagerServicesList =+      ListSupportedServicesResponse+  type+    Scopes AccessContextManagerServicesList =+      '[CloudPlatform'FullControl]+  requestClient AccessContextManagerServicesList {..} =+    go+      xgafv+      accessToken+      callback+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessContextManagerService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AccessContextManagerServicesListResource)+          Core.mempty
+ gen/Gogol/AccessContextManager/Types.hs view
@@ -0,0 +1,356 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.AccessContextManager.Types+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Gogol.AccessContextManager.Types+  ( -- * Configuration+    accessContextManagerService,++    -- * OAuth Scopes+    CloudPlatform'FullControl,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** AccessContextManagerOperationMetadata+    AccessContextManagerOperationMetadata (..),+    newAccessContextManagerOperationMetadata,++    -- ** AccessLevel+    AccessLevel (..),+    newAccessLevel,++    -- ** AccessPolicy+    AccessPolicy (..),+    newAccessPolicy,++    -- ** AccessScope+    AccessScope (..),+    newAccessScope,++    -- ** AccessSettings+    AccessSettings (..),+    newAccessSettings,++    -- ** ApiOperation+    ApiOperation (..),+    newApiOperation,++    -- ** Application+    Application (..),+    newApplication,++    -- ** AuditConfig+    AuditConfig (..),+    newAuditConfig,++    -- ** AuditLogConfig+    AuditLogConfig (..),+    newAuditLogConfig,++    -- ** AuditLogConfig_LogType+    AuditLogConfig_LogType (..),++    -- ** AuthorizedOrgsDesc+    AuthorizedOrgsDesc (..),+    newAuthorizedOrgsDesc,++    -- ** AuthorizedOrgsDesc_AssetType+    AuthorizedOrgsDesc_AssetType (..),++    -- ** AuthorizedOrgsDesc_AuthorizationDirection+    AuthorizedOrgsDesc_AuthorizationDirection (..),++    -- ** AuthorizedOrgsDesc_AuthorizationType+    AuthorizedOrgsDesc_AuthorizationType (..),++    -- ** BasicLevel+    BasicLevel (..),+    newBasicLevel,++    -- ** BasicLevel_CombiningFunction+    BasicLevel_CombiningFunction (..),++    -- ** Binding+    Binding (..),+    newBinding,++    -- ** CancelOperationRequest+    CancelOperationRequest (..),+    newCancelOperationRequest,++    -- ** ClientScope+    ClientScope (..),+    newClientScope,++    -- ** CommitServicePerimetersRequest+    CommitServicePerimetersRequest (..),+    newCommitServicePerimetersRequest,++    -- ** CommitServicePerimetersResponse+    CommitServicePerimetersResponse (..),+    newCommitServicePerimetersResponse,++    -- ** Condition+    Condition (..),+    newCondition,++    -- ** CustomLevel+    CustomLevel (..),+    newCustomLevel,++    -- ** DevicePolicy+    DevicePolicy (..),+    newDevicePolicy,++    -- ** DevicePolicy_AllowedDeviceManagementLevelsItem+    DevicePolicy_AllowedDeviceManagementLevelsItem (..),++    -- ** DevicePolicy_AllowedEncryptionStatusesItem+    DevicePolicy_AllowedEncryptionStatusesItem (..),++    -- ** EgressFrom+    EgressFrom (..),+    newEgressFrom,++    -- ** EgressFrom_IdentityType+    EgressFrom_IdentityType (..),++    -- ** EgressFrom_SourceRestriction+    EgressFrom_SourceRestriction (..),++    -- ** EgressPolicy+    EgressPolicy (..),+    newEgressPolicy,++    -- ** EgressSource+    EgressSource (..),+    newEgressSource,++    -- ** EgressTo+    EgressTo (..),+    newEgressTo,++    -- ** Empty+    Empty (..),+    newEmpty,++    -- ** Expr+    Expr (..),+    newExpr,++    -- ** GcpUserAccessBinding+    GcpUserAccessBinding (..),+    newGcpUserAccessBinding,++    -- ** GcpUserAccessBindingOperationMetadata+    GcpUserAccessBindingOperationMetadata (..),+    newGcpUserAccessBindingOperationMetadata,++    -- ** GetIamPolicyRequest+    GetIamPolicyRequest (..),+    newGetIamPolicyRequest,++    -- ** GetPolicyOptions+    GetPolicyOptions (..),+    newGetPolicyOptions,++    -- ** IngressFrom+    IngressFrom (..),+    newIngressFrom,++    -- ** IngressFrom_IdentityType+    IngressFrom_IdentityType (..),++    -- ** IngressPolicy+    IngressPolicy (..),+    newIngressPolicy,++    -- ** IngressSource+    IngressSource (..),+    newIngressSource,++    -- ** IngressTo+    IngressTo (..),+    newIngressTo,++    -- ** ListAccessLevelsResponse+    ListAccessLevelsResponse (..),+    newListAccessLevelsResponse,++    -- ** ListAccessPoliciesResponse+    ListAccessPoliciesResponse (..),+    newListAccessPoliciesResponse,++    -- ** ListAuthorizedOrgsDescsResponse+    ListAuthorizedOrgsDescsResponse (..),+    newListAuthorizedOrgsDescsResponse,++    -- ** ListGcpUserAccessBindingsResponse+    ListGcpUserAccessBindingsResponse (..),+    newListGcpUserAccessBindingsResponse,++    -- ** ListOperationsResponse+    ListOperationsResponse (..),+    newListOperationsResponse,++    -- ** ListServicePerimetersResponse+    ListServicePerimetersResponse (..),+    newListServicePerimetersResponse,++    -- ** ListSupportedServicesResponse+    ListSupportedServicesResponse (..),+    newListSupportedServicesResponse,++    -- ** MethodSelector+    MethodSelector (..),+    newMethodSelector,++    -- ** Operation+    Operation (..),+    newOperation,++    -- ** Operation_Metadata+    Operation_Metadata (..),+    newOperation_Metadata,++    -- ** Operation_Response+    Operation_Response (..),+    newOperation_Response,++    -- ** OsConstraint+    OsConstraint (..),+    newOsConstraint,++    -- ** OsConstraint_OsType+    OsConstraint_OsType (..),++    -- ** Policy+    Policy (..),+    newPolicy,++    -- ** ReplaceAccessLevelsRequest+    ReplaceAccessLevelsRequest (..),+    newReplaceAccessLevelsRequest,++    -- ** ReplaceAccessLevelsResponse+    ReplaceAccessLevelsResponse (..),+    newReplaceAccessLevelsResponse,++    -- ** ReplaceServicePerimetersRequest+    ReplaceServicePerimetersRequest (..),+    newReplaceServicePerimetersRequest,++    -- ** ReplaceServicePerimetersResponse+    ReplaceServicePerimetersResponse (..),+    newReplaceServicePerimetersResponse,++    -- ** ScopedAccessSettings+    ScopedAccessSettings (..),+    newScopedAccessSettings,++    -- ** ServicePerimeter+    ServicePerimeter (..),+    newServicePerimeter,++    -- ** ServicePerimeter_PerimeterType+    ServicePerimeter_PerimeterType (..),++    -- ** ServicePerimeterConfig+    ServicePerimeterConfig (..),+    newServicePerimeterConfig,++    -- ** SessionSettings+    SessionSettings (..),+    newSessionSettings,++    -- ** SessionSettings_SessionReauthMethod+    SessionSettings_SessionReauthMethod (..),++    -- ** SetIamPolicyRequest+    SetIamPolicyRequest (..),+    newSetIamPolicyRequest,++    -- ** Status+    Status (..),+    newStatus,++    -- ** Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- ** SupportedService+    SupportedService (..),+    newSupportedService,++    -- ** SupportedService_ServiceSupportStage+    SupportedService_ServiceSupportStage (..),++    -- ** SupportedService_SupportStage+    SupportedService_SupportStage (..),++    -- ** TestIamPermissionsRequest+    TestIamPermissionsRequest (..),+    newTestIamPermissionsRequest,++    -- ** TestIamPermissionsResponse+    TestIamPermissionsResponse (..),+    newTestIamPermissionsResponse,++    -- ** VpcAccessibleServices+    VpcAccessibleServices (..),+    newVpcAccessibleServices,++    -- ** VpcNetworkSource+    VpcNetworkSource (..),+    newVpcNetworkSource,++    -- ** VpcSubNetwork+    VpcSubNetwork (..),+    newVpcSubNetwork,++    -- ** AccessPoliciesAccessLevelsGetAccessLevelFormat+    AccessPoliciesAccessLevelsGetAccessLevelFormat (..),++    -- ** AccessPoliciesAccessLevelsListAccessLevelFormat+    AccessPoliciesAccessLevelsListAccessLevelFormat (..),+  )+where++import Gogol.AccessContextManager.Internal.Product+import Gogol.AccessContextManager.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Default request referring to version @v1@ of the Access Context Manager API. This contains the host and root path used as a starting point for constructing service requests.+accessContextManagerService :: Core.ServiceConfig+accessContextManagerService =+  Core.defaultService+    (Core.ServiceId "accesscontextmanager:v1")+    "accesscontextmanager.googleapis.com"++-- | See, edit, configure, and delete your Google Cloud data and see the email address for your Google Account.+type CloudPlatform'FullControl =+  "https://www.googleapis.com/auth/cloud-platform"
− gen/Network/Google/AccessContextManager.hs 
@@ -1,284 +0,0 @@-{-# LANGUAGE DataKinds         #-}-{-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE TypeOperators     #-}--{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- |--- Module      : Network.Google.AccessContextManager--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ An API for setting attribute based access control to requests to GCP--- services.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference>-module Network.Google.AccessContextManager-    (-    -- * Service Configuration-      accessContextManagerService--    -- * OAuth Scopes-    , cloudPlatformScope--    -- * API Declaration-    , AccessContextManagerAPI--    -- * Resources--    -- ** accesscontextmanager.accessPolicies.accessLevels.create-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Create--    -- ** accesscontextmanager.accessPolicies.accessLevels.delete-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Delete--    -- ** accesscontextmanager.accessPolicies.accessLevels.get-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Get--    -- ** accesscontextmanager.accessPolicies.accessLevels.list-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.List--    -- ** accesscontextmanager.accessPolicies.accessLevels.patch-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Patch--    -- ** accesscontextmanager.accessPolicies.create-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.Create--    -- ** accesscontextmanager.accessPolicies.delete-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.Delete--    -- ** accesscontextmanager.accessPolicies.get-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.Get--    -- ** accesscontextmanager.accessPolicies.list-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.List--    -- ** accesscontextmanager.accessPolicies.patch-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.Patch--    -- ** accesscontextmanager.accessPolicies.servicePerimeters.create-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Create--    -- ** accesscontextmanager.accessPolicies.servicePerimeters.delete-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Delete--    -- ** accesscontextmanager.accessPolicies.servicePerimeters.get-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Get--    -- ** accesscontextmanager.accessPolicies.servicePerimeters.list-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.List--    -- ** accesscontextmanager.accessPolicies.servicePerimeters.patch-    , module Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Patch--    -- ** accesscontextmanager.operations.cancel-    , module Network.Google.Resource.AccessContextManager.Operations.Cancel--    -- ** accesscontextmanager.operations.delete-    , module Network.Google.Resource.AccessContextManager.Operations.Delete--    -- ** accesscontextmanager.operations.get-    , module Network.Google.Resource.AccessContextManager.Operations.Get--    -- ** accesscontextmanager.operations.list-    , module Network.Google.Resource.AccessContextManager.Operations.List--    -- * Types--    -- ** Status-    , Status-    , status-    , sDetails-    , sCode-    , sMessage--    -- ** BasicLevel-    , BasicLevel-    , basicLevel-    , blConditions-    , blCombiningFunction--    -- ** ListOperationsResponse-    , ListOperationsResponse-    , listOperationsResponse-    , lorNextPageToken-    , lorOperations--    -- ** CancelOperationRequest-    , CancelOperationRequest-    , cancelOperationRequest--    -- ** AccessLevel-    , AccessLevel-    , accessLevel-    , alBasic-    , alUpdateTime-    , alName-    , alTitle-    , alDescription-    , alCreateTime--    -- ** BasicLevelCombiningFunction-    , BasicLevelCombiningFunction (..)--    -- ** ServicePerimeterConfig-    , ServicePerimeterConfig-    , servicePerimeterConfig-    , spcResources-    , spcRestrictedServices-    , spcAccessLevels--    -- ** Operation-    , Operation-    , operation-    , oDone-    , oError-    , oResponse-    , oName-    , oMetadata--    -- ** ServicePerimeterPerimeterType-    , ServicePerimeterPerimeterType (..)--    -- ** Empty-    , Empty-    , empty--    -- ** OSConstraintOSType-    , OSConstraintOSType (..)--    -- ** ServicePerimeter-    , ServicePerimeter-    , servicePerimeter-    , spStatus-    , spPerimeterType-    , spUpdateTime-    , spName-    , spTitle-    , spDescription-    , spCreateTime--    -- ** ListAccessPoliciesResponse-    , ListAccessPoliciesResponse-    , listAccessPoliciesResponse-    , laprNextPageToken-    , laprAccessPolicies--    -- ** StatusDetailsItem-    , StatusDetailsItem-    , statusDetailsItem-    , sdiAddtional--    -- ** OSConstraint-    , OSConstraint-    , osConstraint-    , ocOSType-    , ocMinimumVersion-    , ocRequireVerifiedChromeOS--    -- ** AccessPolicy-    , AccessPolicy-    , accessPolicy-    , apParent-    , apUpdateTime-    , apName-    , apTitle-    , apCreateTime--    -- ** Xgafv-    , Xgafv (..)--    -- ** ListServicePerimetersResponse-    , ListServicePerimetersResponse-    , listServicePerimetersResponse-    , lsprNextPageToken-    , lsprServicePerimeters--    -- ** ListAccessLevelsResponse-    , ListAccessLevelsResponse-    , listAccessLevelsResponse-    , lalrNextPageToken-    , lalrAccessLevels--    -- ** OperationMetadata-    , OperationMetadata-    , operationMetadata-    , omAddtional--    -- ** DevicePolicy-    , DevicePolicy-    , devicePolicy-    , dpOSConstraints-    , dpRequireAdminApproval-    , dpRequireCorpOwned-    , dpRequireScreenlock-    , dpAllowedEncryptionStatuses-    , dpAllowedDeviceManagementLevels--    -- ** Condition-    , Condition-    , condition-    , cMembers-    , cRegions-    , cNegate-    , cIPSubnetworks-    , cDevicePolicy-    , cRequiredAccessLevels--    -- ** OperationResponse-    , OperationResponse-    , operationResponse-    , orAddtional-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude-import           Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Create-import           Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Delete-import           Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Get-import           Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.List-import           Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Patch-import           Network.Google.Resource.AccessContextManager.AccessPolicies.Create-import           Network.Google.Resource.AccessContextManager.AccessPolicies.Delete-import           Network.Google.Resource.AccessContextManager.AccessPolicies.Get-import           Network.Google.Resource.AccessContextManager.AccessPolicies.List-import           Network.Google.Resource.AccessContextManager.AccessPolicies.Patch-import           Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Create-import           Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Delete-import           Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Get-import           Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.List-import           Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Patch-import           Network.Google.Resource.AccessContextManager.Operations.Cancel-import           Network.Google.Resource.AccessContextManager.Operations.Delete-import           Network.Google.Resource.AccessContextManager.Operations.Get-import           Network.Google.Resource.AccessContextManager.Operations.List--{- $resources-TODO--}---- | Represents the entirety of the methods and resources available for the Access Context Manager API service.-type AccessContextManagerAPI =-     AccessPoliciesServicePerimetersListResource :<|>-       AccessPoliciesServicePerimetersPatchResource-       :<|> AccessPoliciesServicePerimetersGetResource-       :<|> AccessPoliciesServicePerimetersCreateResource-       :<|> AccessPoliciesServicePerimetersDeleteResource-       :<|> AccessPoliciesAccessLevelsListResource-       :<|> AccessPoliciesAccessLevelsPatchResource-       :<|> AccessPoliciesAccessLevelsGetResource-       :<|> AccessPoliciesAccessLevelsCreateResource-       :<|> AccessPoliciesAccessLevelsDeleteResource-       :<|> AccessPoliciesListResource-       :<|> AccessPoliciesPatchResource-       :<|> AccessPoliciesGetResource-       :<|> AccessPoliciesCreateResource-       :<|> AccessPoliciesDeleteResource-       :<|> OperationsListResource-       :<|> OperationsGetResource-       :<|> OperationsCancelResource-       :<|> OperationsDeleteResource
− gen/Network/Google/AccessContextManager/Types.hs 
@@ -1,184 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.AccessContextManager.Types--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.Google.AccessContextManager.Types-    (-    -- * Service Configuration-      accessContextManagerService--    -- * OAuth Scopes-    , cloudPlatformScope--    -- * Status-    , Status-    , status-    , sDetails-    , sCode-    , sMessage--    -- * BasicLevel-    , BasicLevel-    , basicLevel-    , blConditions-    , blCombiningFunction--    -- * ListOperationsResponse-    , ListOperationsResponse-    , listOperationsResponse-    , lorNextPageToken-    , lorOperations--    -- * CancelOperationRequest-    , CancelOperationRequest-    , cancelOperationRequest--    -- * AccessLevel-    , AccessLevel-    , accessLevel-    , alBasic-    , alUpdateTime-    , alName-    , alTitle-    , alDescription-    , alCreateTime--    -- * BasicLevelCombiningFunction-    , BasicLevelCombiningFunction (..)--    -- * ServicePerimeterConfig-    , ServicePerimeterConfig-    , servicePerimeterConfig-    , spcResources-    , spcRestrictedServices-    , spcAccessLevels--    -- * Operation-    , Operation-    , operation-    , oDone-    , oError-    , oResponse-    , oName-    , oMetadata--    -- * ServicePerimeterPerimeterType-    , ServicePerimeterPerimeterType (..)--    -- * Empty-    , Empty-    , empty--    -- * OSConstraintOSType-    , OSConstraintOSType (..)--    -- * ServicePerimeter-    , ServicePerimeter-    , servicePerimeter-    , spStatus-    , spPerimeterType-    , spUpdateTime-    , spName-    , spTitle-    , spDescription-    , spCreateTime--    -- * ListAccessPoliciesResponse-    , ListAccessPoliciesResponse-    , listAccessPoliciesResponse-    , laprNextPageToken-    , laprAccessPolicies--    -- * StatusDetailsItem-    , StatusDetailsItem-    , statusDetailsItem-    , sdiAddtional--    -- * OSConstraint-    , OSConstraint-    , osConstraint-    , ocOSType-    , ocMinimumVersion-    , ocRequireVerifiedChromeOS--    -- * AccessPolicy-    , AccessPolicy-    , accessPolicy-    , apParent-    , apUpdateTime-    , apName-    , apTitle-    , apCreateTime--    -- * Xgafv-    , Xgafv (..)--    -- * ListServicePerimetersResponse-    , ListServicePerimetersResponse-    , listServicePerimetersResponse-    , lsprNextPageToken-    , lsprServicePerimeters--    -- * ListAccessLevelsResponse-    , ListAccessLevelsResponse-    , listAccessLevelsResponse-    , lalrNextPageToken-    , lalrAccessLevels--    -- * OperationMetadata-    , OperationMetadata-    , operationMetadata-    , omAddtional--    -- * DevicePolicy-    , DevicePolicy-    , devicePolicy-    , dpOSConstraints-    , dpRequireAdminApproval-    , dpRequireCorpOwned-    , dpRequireScreenlock-    , dpAllowedEncryptionStatuses-    , dpAllowedDeviceManagementLevels--    -- * Condition-    , Condition-    , condition-    , cMembers-    , cRegions-    , cNegate-    , cIPSubnetworks-    , cDevicePolicy-    , cRequiredAccessLevels--    -- * OperationResponse-    , OperationResponse-    , operationResponse-    , orAddtional-    ) where--import           Network.Google.AccessContextManager.Types.Product-import           Network.Google.AccessContextManager.Types.Sum-import           Network.Google.Prelude---- | Default request referring to version 'v1' of the Access Context Manager API. This contains the host and root path used as a starting point for constructing service requests.-accessContextManagerService :: ServiceConfig-accessContextManagerService-  = defaultService-      (ServiceId "accesscontextmanager:v1")-      "accesscontextmanager.googleapis.com"---- | View and manage your data across Google Cloud Platform services-cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]-cloudPlatformScope = Proxy
− gen/Network/Google/AccessContextManager/Types/Product.hs 
@@ -1,1375 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}--{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.AccessContextManager.Types.Product--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.Google.AccessContextManager.Types.Product where--import           Network.Google.AccessContextManager.Types.Sum-import           Network.Google.Prelude---- | The \`Status\` type defines a logical error model that is suitable for--- different programming environments, including REST APIs and RPC APIs. It--- is used by [gRPC](https:\/\/github.com\/grpc). The error model is--- designed to be: - Simple to use and understand for most users - Flexible--- enough to meet unexpected needs # Overview The \`Status\` message--- contains three pieces of data: error code, error message, and error--- details. The error code should be an enum value of google.rpc.Code, but--- it may accept additional error codes if needed. The error message should--- be a developer-facing English message that helps developers *understand*--- and *resolve* the error. If a localized user-facing error message is--- needed, put the localized message in the error details or localize it in--- the client. The optional error details may contain arbitrary information--- about the error. There is a predefined set of error detail types in the--- package \`google.rpc\` that can be used for common error conditions. #--- Language mapping The \`Status\` message is the logical representation of--- the error model, but it is not necessarily the actual wire format. When--- the \`Status\` message is exposed in different client libraries and--- different wire protocols, it can be mapped differently. For example, it--- will likely be mapped to some exceptions in Java, but more likely mapped--- to some error codes in C. # Other uses The error model and the--- \`Status\` message can be used in a variety of environments, either with--- or without APIs, to provide a consistent developer experience across--- different environments. Example uses of this error model include: ---- Partial errors. If a service needs to return partial errors to the--- client, it may embed the \`Status\` in the normal response to indicate--- the partial errors. - Workflow errors. A typical workflow has multiple--- steps. Each step may have a \`Status\` message for error reporting. ---- Batch operations. If a client uses batch request and batch response, the--- \`Status\` message should be used directly inside batch response, one--- for each error sub-response. - Asynchronous operations. If an API call--- embeds asynchronous operation results in its response, the status of--- those operations should be represented directly using the \`Status\`--- message. - Logging. If some API errors are stored in logs, the message--- \`Status\` could be used directly after any stripping needed for--- security\/privacy reasons.------ /See:/ 'status' smart constructor.-data Status =-  Status'-    { _sDetails :: !(Maybe [StatusDetailsItem])-    , _sCode    :: !(Maybe (Textual Int32))-    , _sMessage :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Status' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sDetails'------ * 'sCode'------ * 'sMessage'-status-    :: Status-status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing}----- | A list of messages that carry the error details. There is a common set--- of message types for APIs to use.-sDetails :: Lens' Status [StatusDetailsItem]-sDetails-  = lens _sDetails (\ s a -> s{_sDetails = a}) .-      _Default-      . _Coerce---- | The status code, which should be an enum value of google.rpc.Code.-sCode :: Lens' Status (Maybe Int32)-sCode-  = lens _sCode (\ s a -> s{_sCode = a}) .-      mapping _Coerce---- | A developer-facing error message, which should be in English. Any--- user-facing error message should be localized and sent in the--- google.rpc.Status.details field, or localized by the client.-sMessage :: Lens' Status (Maybe Text)-sMessage = lens _sMessage (\ s a -> s{_sMessage = a})--instance FromJSON Status where-        parseJSON-          = withObject "Status"-              (\ o ->-                 Status' <$>-                   (o .:? "details" .!= mempty) <*> (o .:? "code") <*>-                     (o .:? "message"))--instance ToJSON Status where-        toJSON Status'{..}-          = object-              (catMaybes-                 [("details" .=) <$> _sDetails,-                  ("code" .=) <$> _sCode,-                  ("message" .=) <$> _sMessage])---- | \`BasicLevel\` is an \`AccessLevel\` using a set of recommended--- features.------ /See:/ 'basicLevel' smart constructor.-data BasicLevel =-  BasicLevel'-    { _blConditions        :: !(Maybe [Condition])-    , _blCombiningFunction :: !(Maybe BasicLevelCombiningFunction)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'BasicLevel' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'blConditions'------ * 'blCombiningFunction'-basicLevel-    :: BasicLevel-basicLevel =-  BasicLevel' {_blConditions = Nothing, _blCombiningFunction = Nothing}----- | Required. A list of requirements for the \`AccessLevel\` to be granted.-blConditions :: Lens' BasicLevel [Condition]-blConditions-  = lens _blConditions (\ s a -> s{_blConditions = a})-      . _Default-      . _Coerce---- | How the \`conditions\` list should be combined to determine if a request--- is granted this \`AccessLevel\`. If AND is used, each \`Condition\` in--- \`conditions\` must be satisfied for the \`AccessLevel\` to be applied.--- If OR is used, at least one \`Condition\` in \`conditions\` must be--- satisfied for the \`AccessLevel\` to be applied. Default behavior is--- AND.-blCombiningFunction :: Lens' BasicLevel (Maybe BasicLevelCombiningFunction)-blCombiningFunction-  = lens _blCombiningFunction-      (\ s a -> s{_blCombiningFunction = a})--instance FromJSON BasicLevel where-        parseJSON-          = withObject "BasicLevel"-              (\ o ->-                 BasicLevel' <$>-                   (o .:? "conditions" .!= mempty) <*>-                     (o .:? "combiningFunction"))--instance ToJSON BasicLevel where-        toJSON BasicLevel'{..}-          = object-              (catMaybes-                 [("conditions" .=) <$> _blConditions,-                  ("combiningFunction" .=) <$> _blCombiningFunction])---- | The response message for Operations.ListOperations.------ /See:/ 'listOperationsResponse' smart constructor.-data ListOperationsResponse =-  ListOperationsResponse'-    { _lorNextPageToken :: !(Maybe Text)-    , _lorOperations    :: !(Maybe [Operation])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListOperationsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lorNextPageToken'------ * 'lorOperations'-listOperationsResponse-    :: ListOperationsResponse-listOperationsResponse =-  ListOperationsResponse'-    {_lorNextPageToken = Nothing, _lorOperations = Nothing}----- | The standard List next-page token.-lorNextPageToken :: Lens' ListOperationsResponse (Maybe Text)-lorNextPageToken-  = lens _lorNextPageToken-      (\ s a -> s{_lorNextPageToken = a})---- | A list of operations that matches the specified filter in the request.-lorOperations :: Lens' ListOperationsResponse [Operation]-lorOperations-  = lens _lorOperations-      (\ s a -> s{_lorOperations = a})-      . _Default-      . _Coerce--instance FromJSON ListOperationsResponse where-        parseJSON-          = withObject "ListOperationsResponse"-              (\ o ->-                 ListOperationsResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "operations" .!= mempty))--instance ToJSON ListOperationsResponse where-        toJSON ListOperationsResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _lorNextPageToken,-                  ("operations" .=) <$> _lorOperations])---- | The request message for Operations.CancelOperation.------ /See:/ 'cancelOperationRequest' smart constructor.-data CancelOperationRequest =-  CancelOperationRequest'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CancelOperationRequest' with the minimum fields required to make a request.----cancelOperationRequest-    :: CancelOperationRequest-cancelOperationRequest = CancelOperationRequest'---instance FromJSON CancelOperationRequest where-        parseJSON-          = withObject "CancelOperationRequest"-              (\ o -> pure CancelOperationRequest')--instance ToJSON CancelOperationRequest where-        toJSON = const emptyObject---- | An \`AccessLevel\` is a label that can be applied to requests to GCP--- services, along with a list of requirements necessary for the label to--- be applied.------ /See:/ 'accessLevel' smart constructor.-data AccessLevel =-  AccessLevel'-    { _alBasic       :: !(Maybe BasicLevel)-    , _alUpdateTime  :: !(Maybe DateTime')-    , _alName        :: !(Maybe Text)-    , _alTitle       :: !(Maybe Text)-    , _alDescription :: !(Maybe Text)-    , _alCreateTime  :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessLevel' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'alBasic'------ * 'alUpdateTime'------ * 'alName'------ * 'alTitle'------ * 'alDescription'------ * 'alCreateTime'-accessLevel-    :: AccessLevel-accessLevel =-  AccessLevel'-    { _alBasic = Nothing-    , _alUpdateTime = Nothing-    , _alName = Nothing-    , _alTitle = Nothing-    , _alDescription = Nothing-    , _alCreateTime = Nothing-    }----- | A \`BasicLevel\` composed of \`Conditions\`.-alBasic :: Lens' AccessLevel (Maybe BasicLevel)-alBasic = lens _alBasic (\ s a -> s{_alBasic = a})---- | Output only. Time the \`AccessLevel\` was updated in UTC.-alUpdateTime :: Lens' AccessLevel (Maybe UTCTime)-alUpdateTime-  = lens _alUpdateTime (\ s a -> s{_alUpdateTime = a})-      . mapping _DateTime---- | Required. Resource name for the Access Level. The \`short_name\`--- component must begin with a letter and only include alphanumeric and--- \'_\'. Format:--- \`accessPolicies\/{policy_id}\/accessLevels\/{short_name}\`-alName :: Lens' AccessLevel (Maybe Text)-alName = lens _alName (\ s a -> s{_alName = a})---- | Human readable title. Must be unique within the Policy.-alTitle :: Lens' AccessLevel (Maybe Text)-alTitle = lens _alTitle (\ s a -> s{_alTitle = a})---- | Description of the \`AccessLevel\` and its use. Does not affect--- behavior.-alDescription :: Lens' AccessLevel (Maybe Text)-alDescription-  = lens _alDescription-      (\ s a -> s{_alDescription = a})---- | Output only. Time the \`AccessLevel\` was created in UTC.-alCreateTime :: Lens' AccessLevel (Maybe UTCTime)-alCreateTime-  = lens _alCreateTime (\ s a -> s{_alCreateTime = a})-      . mapping _DateTime--instance FromJSON AccessLevel where-        parseJSON-          = withObject "AccessLevel"-              (\ o ->-                 AccessLevel' <$>-                   (o .:? "basic") <*> (o .:? "updateTime") <*>-                     (o .:? "name")-                     <*> (o .:? "title")-                     <*> (o .:? "description")-                     <*> (o .:? "createTime"))--instance ToJSON AccessLevel where-        toJSON AccessLevel'{..}-          = object-              (catMaybes-                 [("basic" .=) <$> _alBasic,-                  ("updateTime" .=) <$> _alUpdateTime,-                  ("name" .=) <$> _alName, ("title" .=) <$> _alTitle,-                  ("description" .=) <$> _alDescription,-                  ("createTime" .=) <$> _alCreateTime])---- | \`ServicePerimeterConfig\` specifies a set of GCP resources that--- describe specific Service Perimeter configuration.------ /See:/ 'servicePerimeterConfig' smart constructor.-data ServicePerimeterConfig =-  ServicePerimeterConfig'-    { _spcResources          :: !(Maybe [Text])-    , _spcRestrictedServices :: !(Maybe [Text])-    , _spcAccessLevels       :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ServicePerimeterConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'spcResources'------ * 'spcRestrictedServices'------ * 'spcAccessLevels'-servicePerimeterConfig-    :: ServicePerimeterConfig-servicePerimeterConfig =-  ServicePerimeterConfig'-    { _spcResources = Nothing-    , _spcRestrictedServices = Nothing-    , _spcAccessLevels = Nothing-    }----- | A list of GCP resources that are inside of the service perimeter.--- Currently only projects are allowed. Format:--- \`projects\/{project_number}\`-spcResources :: Lens' ServicePerimeterConfig [Text]-spcResources-  = lens _spcResources (\ s a -> s{_spcResources = a})-      . _Default-      . _Coerce---- | GCP services that are subject to the Service Perimeter restrictions. For--- example, if \`storage.googleapis.com\` is specified, access to the--- storage buckets inside the perimeter must meet the perimeter\'s access--- restrictions.-spcRestrictedServices :: Lens' ServicePerimeterConfig [Text]-spcRestrictedServices-  = lens _spcRestrictedServices-      (\ s a -> s{_spcRestrictedServices = a})-      . _Default-      . _Coerce---- | A list of \`AccessLevel\` resource names that allow resources within the--- \`ServicePerimeter\` to be accessed from the internet. \`AccessLevels\`--- listed must be in the same policy as this \`ServicePerimeter\`.--- Referencing a nonexistent \`AccessLevel\` is a syntax error. If no--- \`AccessLevel\` names are listed, resources within the perimeter can--- only be accessed via GCP calls with request origins within the--- perimeter. Example:--- \`\"accessPolicies\/MY_POLICY\/accessLevels\/MY_LEVEL\"\`. For Service--- Perimeter Bridge, must be empty.-spcAccessLevels :: Lens' ServicePerimeterConfig [Text]-spcAccessLevels-  = lens _spcAccessLevels-      (\ s a -> s{_spcAccessLevels = a})-      . _Default-      . _Coerce--instance FromJSON ServicePerimeterConfig where-        parseJSON-          = withObject "ServicePerimeterConfig"-              (\ o ->-                 ServicePerimeterConfig' <$>-                   (o .:? "resources" .!= mempty) <*>-                     (o .:? "restrictedServices" .!= mempty)-                     <*> (o .:? "accessLevels" .!= mempty))--instance ToJSON ServicePerimeterConfig where-        toJSON ServicePerimeterConfig'{..}-          = object-              (catMaybes-                 [("resources" .=) <$> _spcResources,-                  ("restrictedServices" .=) <$> _spcRestrictedServices,-                  ("accessLevels" .=) <$> _spcAccessLevels])---- | This resource represents a long-running operation that is the result of--- a network API call.------ /See:/ 'operation' smart constructor.-data Operation =-  Operation'-    { _oDone     :: !(Maybe Bool)-    , _oError    :: !(Maybe Status)-    , _oResponse :: !(Maybe OperationResponse)-    , _oName     :: !(Maybe Text)-    , _oMetadata :: !(Maybe OperationMetadata)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Operation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oDone'------ * 'oError'------ * 'oResponse'------ * 'oName'------ * 'oMetadata'-operation-    :: Operation-operation =-  Operation'-    { _oDone = Nothing-    , _oError = Nothing-    , _oResponse = Nothing-    , _oName = Nothing-    , _oMetadata = Nothing-    }----- | If the value is \`false\`, it means the operation is still in progress.--- If \`true\`, the operation is completed, and either \`error\` or--- \`response\` is available.-oDone :: Lens' Operation (Maybe Bool)-oDone = lens _oDone (\ s a -> s{_oDone = a})---- | The error result of the operation in case of failure or cancellation.-oError :: Lens' Operation (Maybe Status)-oError = lens _oError (\ s a -> s{_oError = a})---- | The normal response of the operation in case of success. If the original--- method returns no data on success, such as \`Delete\`, the response is--- \`google.protobuf.Empty\`. If the original method is standard--- \`Get\`\/\`Create\`\/\`Update\`, the response should be the resource.--- For other methods, the response should have the type \`XxxResponse\`,--- where \`Xxx\` is the original method name. For example, if the original--- method name is \`TakeSnapshot()\`, the inferred response type is--- \`TakeSnapshotResponse\`.-oResponse :: Lens' Operation (Maybe OperationResponse)-oResponse-  = lens _oResponse (\ s a -> s{_oResponse = a})---- | The server-assigned name, which is only unique within the same service--- that originally returns it. If you use the default HTTP mapping, the--- \`name\` should have the format of \`operations\/some\/unique\/name\`.-oName :: Lens' Operation (Maybe Text)-oName = lens _oName (\ s a -> s{_oName = a})---- | Service-specific metadata associated with the operation. It typically--- contains progress information and common metadata such as create time.--- Some services might not provide such metadata. Any method that returns a--- long-running operation should document the metadata type, if any.-oMetadata :: Lens' Operation (Maybe OperationMetadata)-oMetadata-  = lens _oMetadata (\ s a -> s{_oMetadata = a})--instance FromJSON Operation where-        parseJSON-          = withObject "Operation"-              (\ o ->-                 Operation' <$>-                   (o .:? "done") <*> (o .:? "error") <*>-                     (o .:? "response")-                     <*> (o .:? "name")-                     <*> (o .:? "metadata"))--instance ToJSON Operation where-        toJSON Operation'{..}-          = object-              (catMaybes-                 [("done" .=) <$> _oDone, ("error" .=) <$> _oError,-                  ("response" .=) <$> _oResponse,-                  ("name" .=) <$> _oName,-                  ("metadata" .=) <$> _oMetadata])---- | A generic empty message that you can re-use to avoid defining duplicated--- empty messages in your APIs. A typical example is to use it as the--- request or the response type of an API method. For instance: service Foo--- { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); } The--- JSON representation for \`Empty\` is empty JSON object \`{}\`.------ /See:/ 'empty' smart constructor.-data Empty =-  Empty'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Empty' with the minimum fields required to make a request.----empty-    :: Empty-empty = Empty'---instance FromJSON Empty where-        parseJSON = withObject "Empty" (\ o -> pure Empty')--instance ToJSON Empty where-        toJSON = const emptyObject---- | \`ServicePerimeter\` describes a set of GCP resources which can freely--- import and export data amongst themselves, but not export outside of the--- \`ServicePerimeter\`. If a request with a source within this--- \`ServicePerimeter\` has a target outside of the \`ServicePerimeter\`,--- the request will be blocked. Otherwise the request is allowed. There are--- two types of Service Perimeter - Regular and Bridge. Regular Service--- Perimeters cannot overlap, a single GCP project can only belong to a--- single regular Service Perimeter. Service Perimeter Bridges can contain--- only GCP projects as members, a single GCP project may belong to--- multiple Service Perimeter Bridges.------ /See:/ 'servicePerimeter' smart constructor.-data ServicePerimeter =-  ServicePerimeter'-    { _spStatus        :: !(Maybe ServicePerimeterConfig)-    , _spPerimeterType :: !(Maybe ServicePerimeterPerimeterType)-    , _spUpdateTime    :: !(Maybe DateTime')-    , _spName          :: !(Maybe Text)-    , _spTitle         :: !(Maybe Text)-    , _spDescription   :: !(Maybe Text)-    , _spCreateTime    :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ServicePerimeter' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'spStatus'------ * 'spPerimeterType'------ * 'spUpdateTime'------ * 'spName'------ * 'spTitle'------ * 'spDescription'------ * 'spCreateTime'-servicePerimeter-    :: ServicePerimeter-servicePerimeter =-  ServicePerimeter'-    { _spStatus = Nothing-    , _spPerimeterType = Nothing-    , _spUpdateTime = Nothing-    , _spName = Nothing-    , _spTitle = Nothing-    , _spDescription = Nothing-    , _spCreateTime = Nothing-    }----- | Current ServicePerimeter configuration. Specifies sets of resources,--- restricted services and access levels that determine perimeter content--- and boundaries.-spStatus :: Lens' ServicePerimeter (Maybe ServicePerimeterConfig)-spStatus = lens _spStatus (\ s a -> s{_spStatus = a})---- | Perimeter type indicator. A single project is allowed to be a member of--- single regular perimeter, but multiple service perimeter bridges. A--- project cannot be a included in a perimeter bridge without being--- included in regular perimeter. For perimeter bridges, the restricted--- service list as well as access level lists must be empty.-spPerimeterType :: Lens' ServicePerimeter (Maybe ServicePerimeterPerimeterType)-spPerimeterType-  = lens _spPerimeterType-      (\ s a -> s{_spPerimeterType = a})---- | Output only. Time the \`ServicePerimeter\` was updated in UTC.-spUpdateTime :: Lens' ServicePerimeter (Maybe UTCTime)-spUpdateTime-  = lens _spUpdateTime (\ s a -> s{_spUpdateTime = a})-      . mapping _DateTime---- | Required. Resource name for the ServicePerimeter. The \`short_name\`--- component must begin with a letter and only include alphanumeric and--- \'_\'. Format:--- \`accessPolicies\/{policy_id}\/servicePerimeters\/{short_name}\`-spName :: Lens' ServicePerimeter (Maybe Text)-spName = lens _spName (\ s a -> s{_spName = a})---- | Human readable title. Must be unique within the Policy.-spTitle :: Lens' ServicePerimeter (Maybe Text)-spTitle = lens _spTitle (\ s a -> s{_spTitle = a})---- | Description of the \`ServicePerimeter\` and its use. Does not affect--- behavior.-spDescription :: Lens' ServicePerimeter (Maybe Text)-spDescription-  = lens _spDescription-      (\ s a -> s{_spDescription = a})---- | Output only. Time the \`ServicePerimeter\` was created in UTC.-spCreateTime :: Lens' ServicePerimeter (Maybe UTCTime)-spCreateTime-  = lens _spCreateTime (\ s a -> s{_spCreateTime = a})-      . mapping _DateTime--instance FromJSON ServicePerimeter where-        parseJSON-          = withObject "ServicePerimeter"-              (\ o ->-                 ServicePerimeter' <$>-                   (o .:? "status") <*> (o .:? "perimeterType") <*>-                     (o .:? "updateTime")-                     <*> (o .:? "name")-                     <*> (o .:? "title")-                     <*> (o .:? "description")-                     <*> (o .:? "createTime"))--instance ToJSON ServicePerimeter where-        toJSON ServicePerimeter'{..}-          = object-              (catMaybes-                 [("status" .=) <$> _spStatus,-                  ("perimeterType" .=) <$> _spPerimeterType,-                  ("updateTime" .=) <$> _spUpdateTime,-                  ("name" .=) <$> _spName, ("title" .=) <$> _spTitle,-                  ("description" .=) <$> _spDescription,-                  ("createTime" .=) <$> _spCreateTime])---- | A response to \`ListAccessPoliciesRequest\`.------ /See:/ 'listAccessPoliciesResponse' smart constructor.-data ListAccessPoliciesResponse =-  ListAccessPoliciesResponse'-    { _laprNextPageToken  :: !(Maybe Text)-    , _laprAccessPolicies :: !(Maybe [AccessPolicy])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListAccessPoliciesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'laprNextPageToken'------ * 'laprAccessPolicies'-listAccessPoliciesResponse-    :: ListAccessPoliciesResponse-listAccessPoliciesResponse =-  ListAccessPoliciesResponse'-    {_laprNextPageToken = Nothing, _laprAccessPolicies = Nothing}----- | The pagination token to retrieve the next page of results. If the value--- is empty, no further results remain.-laprNextPageToken :: Lens' ListAccessPoliciesResponse (Maybe Text)-laprNextPageToken-  = lens _laprNextPageToken-      (\ s a -> s{_laprNextPageToken = a})---- | List of the AccessPolicy instances.-laprAccessPolicies :: Lens' ListAccessPoliciesResponse [AccessPolicy]-laprAccessPolicies-  = lens _laprAccessPolicies-      (\ s a -> s{_laprAccessPolicies = a})-      . _Default-      . _Coerce--instance FromJSON ListAccessPoliciesResponse where-        parseJSON-          = withObject "ListAccessPoliciesResponse"-              (\ o ->-                 ListAccessPoliciesResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "accessPolicies" .!= mempty))--instance ToJSON ListAccessPoliciesResponse where-        toJSON ListAccessPoliciesResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _laprNextPageToken,-                  ("accessPolicies" .=) <$> _laprAccessPolicies])------- /See:/ 'statusDetailsItem' smart constructor.-newtype StatusDetailsItem =-  StatusDetailsItem'-    { _sdiAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sdiAddtional'-statusDetailsItem-    :: HashMap Text JSONValue -- ^ 'sdiAddtional'-    -> StatusDetailsItem-statusDetailsItem pSdiAddtional_ =-  StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_}----- | Properties of the object. Contains field \'type with type URL.-sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue)-sdiAddtional-  = lens _sdiAddtional (\ s a -> s{_sdiAddtional = a})-      . _Coerce--instance FromJSON StatusDetailsItem where-        parseJSON-          = withObject "StatusDetailsItem"-              (\ o -> StatusDetailsItem' <$> (parseJSONObject o))--instance ToJSON StatusDetailsItem where-        toJSON = toJSON . _sdiAddtional---- | A restriction on the OS type and version of devices making requests.------ /See:/ 'osConstraint' smart constructor.-data OSConstraint =-  OSConstraint'-    { _ocOSType                  :: !(Maybe OSConstraintOSType)-    , _ocMinimumVersion          :: !(Maybe Text)-    , _ocRequireVerifiedChromeOS :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OSConstraint' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ocOSType'------ * 'ocMinimumVersion'------ * 'ocRequireVerifiedChromeOS'-osConstraint-    :: OSConstraint-osConstraint =-  OSConstraint'-    { _ocOSType = Nothing-    , _ocMinimumVersion = Nothing-    , _ocRequireVerifiedChromeOS = Nothing-    }----- | Required. The allowed OS type.-ocOSType :: Lens' OSConstraint (Maybe OSConstraintOSType)-ocOSType = lens _ocOSType (\ s a -> s{_ocOSType = a})---- | The minimum allowed OS version. If not set, any version of this OS--- satisfies the constraint. Format: \`\"major.minor.patch\"\`. Examples:--- \`\"10.5.301\"\`, \`\"9.2.1\"\`.-ocMinimumVersion :: Lens' OSConstraint (Maybe Text)-ocMinimumVersion-  = lens _ocMinimumVersion-      (\ s a -> s{_ocMinimumVersion = a})---- | Only allows requests from devices with a verified Chrome OS.--- Verifications includes requirements that the device is--- enterprise-managed, conformant to Dasher domain policies, and the caller--- has permission to call the API targeted by the request.-ocRequireVerifiedChromeOS :: Lens' OSConstraint (Maybe Bool)-ocRequireVerifiedChromeOS-  = lens _ocRequireVerifiedChromeOS-      (\ s a -> s{_ocRequireVerifiedChromeOS = a})--instance FromJSON OSConstraint where-        parseJSON-          = withObject "OSConstraint"-              (\ o ->-                 OSConstraint' <$>-                   (o .:? "osType") <*> (o .:? "minimumVersion") <*>-                     (o .:? "requireVerifiedChromeOs"))--instance ToJSON OSConstraint where-        toJSON OSConstraint'{..}-          = object-              (catMaybes-                 [("osType" .=) <$> _ocOSType,-                  ("minimumVersion" .=) <$> _ocMinimumVersion,-                  ("requireVerifiedChromeOs" .=) <$>-                    _ocRequireVerifiedChromeOS])---- | \`AccessPolicy\` is a container for \`AccessLevels\` (which define the--- necessary attributes to use GCP services) and \`ServicePerimeters\`--- (which define regions of services able to freely pass data within a--- perimeter). An access policy is globally visible within an organization,--- and the restrictions it specifies apply to all projects within an--- organization.------ /See:/ 'accessPolicy' smart constructor.-data AccessPolicy =-  AccessPolicy'-    { _apParent     :: !(Maybe Text)-    , _apUpdateTime :: !(Maybe DateTime')-    , _apName       :: !(Maybe Text)-    , _apTitle      :: !(Maybe Text)-    , _apCreateTime :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPolicy' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apParent'------ * 'apUpdateTime'------ * 'apName'------ * 'apTitle'------ * 'apCreateTime'-accessPolicy-    :: AccessPolicy-accessPolicy =-  AccessPolicy'-    { _apParent = Nothing-    , _apUpdateTime = Nothing-    , _apName = Nothing-    , _apTitle = Nothing-    , _apCreateTime = Nothing-    }----- | Required. The parent of this \`AccessPolicy\` in the Cloud Resource--- Hierarchy. Currently immutable once created. Format:--- \`organizations\/{organization_id}\`-apParent :: Lens' AccessPolicy (Maybe Text)-apParent = lens _apParent (\ s a -> s{_apParent = a})---- | Output only. Time the \`AccessPolicy\` was updated in UTC.-apUpdateTime :: Lens' AccessPolicy (Maybe UTCTime)-apUpdateTime-  = lens _apUpdateTime (\ s a -> s{_apUpdateTime = a})-      . mapping _DateTime---- | Output only. Resource name of the \`AccessPolicy\`. Format:--- \`accessPolicies\/{policy_id}\`-apName :: Lens' AccessPolicy (Maybe Text)-apName = lens _apName (\ s a -> s{_apName = a})---- | Required. Human readable title. Does not affect behavior.-apTitle :: Lens' AccessPolicy (Maybe Text)-apTitle = lens _apTitle (\ s a -> s{_apTitle = a})---- | Output only. Time the \`AccessPolicy\` was created in UTC.-apCreateTime :: Lens' AccessPolicy (Maybe UTCTime)-apCreateTime-  = lens _apCreateTime (\ s a -> s{_apCreateTime = a})-      . mapping _DateTime--instance FromJSON AccessPolicy where-        parseJSON-          = withObject "AccessPolicy"-              (\ o ->-                 AccessPolicy' <$>-                   (o .:? "parent") <*> (o .:? "updateTime") <*>-                     (o .:? "name")-                     <*> (o .:? "title")-                     <*> (o .:? "createTime"))--instance ToJSON AccessPolicy where-        toJSON AccessPolicy'{..}-          = object-              (catMaybes-                 [("parent" .=) <$> _apParent,-                  ("updateTime" .=) <$> _apUpdateTime,-                  ("name" .=) <$> _apName, ("title" .=) <$> _apTitle,-                  ("createTime" .=) <$> _apCreateTime])---- | A response to \`ListServicePerimetersRequest\`.------ /See:/ 'listServicePerimetersResponse' smart constructor.-data ListServicePerimetersResponse =-  ListServicePerimetersResponse'-    { _lsprNextPageToken     :: !(Maybe Text)-    , _lsprServicePerimeters :: !(Maybe [ServicePerimeter])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListServicePerimetersResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lsprNextPageToken'------ * 'lsprServicePerimeters'-listServicePerimetersResponse-    :: ListServicePerimetersResponse-listServicePerimetersResponse =-  ListServicePerimetersResponse'-    {_lsprNextPageToken = Nothing, _lsprServicePerimeters = Nothing}----- | The pagination token to retrieve the next page of results. If the value--- is empty, no further results remain.-lsprNextPageToken :: Lens' ListServicePerimetersResponse (Maybe Text)-lsprNextPageToken-  = lens _lsprNextPageToken-      (\ s a -> s{_lsprNextPageToken = a})---- | List of the Service Perimeter instances.-lsprServicePerimeters :: Lens' ListServicePerimetersResponse [ServicePerimeter]-lsprServicePerimeters-  = lens _lsprServicePerimeters-      (\ s a -> s{_lsprServicePerimeters = a})-      . _Default-      . _Coerce--instance FromJSON ListServicePerimetersResponse where-        parseJSON-          = withObject "ListServicePerimetersResponse"-              (\ o ->-                 ListServicePerimetersResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "servicePerimeters" .!= mempty))--instance ToJSON ListServicePerimetersResponse where-        toJSON ListServicePerimetersResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _lsprNextPageToken,-                  ("servicePerimeters" .=) <$> _lsprServicePerimeters])---- | A response to \`ListAccessLevelsRequest\`.------ /See:/ 'listAccessLevelsResponse' smart constructor.-data ListAccessLevelsResponse =-  ListAccessLevelsResponse'-    { _lalrNextPageToken :: !(Maybe Text)-    , _lalrAccessLevels  :: !(Maybe [AccessLevel])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListAccessLevelsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lalrNextPageToken'------ * 'lalrAccessLevels'-listAccessLevelsResponse-    :: ListAccessLevelsResponse-listAccessLevelsResponse =-  ListAccessLevelsResponse'-    {_lalrNextPageToken = Nothing, _lalrAccessLevels = Nothing}----- | The pagination token to retrieve the next page of results. If the value--- is empty, no further results remain.-lalrNextPageToken :: Lens' ListAccessLevelsResponse (Maybe Text)-lalrNextPageToken-  = lens _lalrNextPageToken-      (\ s a -> s{_lalrNextPageToken = a})---- | List of the Access Level instances.-lalrAccessLevels :: Lens' ListAccessLevelsResponse [AccessLevel]-lalrAccessLevels-  = lens _lalrAccessLevels-      (\ s a -> s{_lalrAccessLevels = a})-      . _Default-      . _Coerce--instance FromJSON ListAccessLevelsResponse where-        parseJSON-          = withObject "ListAccessLevelsResponse"-              (\ o ->-                 ListAccessLevelsResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "accessLevels" .!= mempty))--instance ToJSON ListAccessLevelsResponse where-        toJSON ListAccessLevelsResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _lalrNextPageToken,-                  ("accessLevels" .=) <$> _lalrAccessLevels])---- | Service-specific metadata associated with the operation. It typically--- contains progress information and common metadata such as create time.--- Some services might not provide such metadata. Any method that returns a--- long-running operation should document the metadata type, if any.------ /See:/ 'operationMetadata' smart constructor.-newtype OperationMetadata =-  OperationMetadata'-    { _omAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OperationMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'omAddtional'-operationMetadata-    :: HashMap Text JSONValue -- ^ 'omAddtional'-    -> OperationMetadata-operationMetadata pOmAddtional_ =-  OperationMetadata' {_omAddtional = _Coerce # pOmAddtional_}----- | Properties of the object. Contains field \'type with type URL.-omAddtional :: Lens' OperationMetadata (HashMap Text JSONValue)-omAddtional-  = lens _omAddtional (\ s a -> s{_omAddtional = a}) .-      _Coerce--instance FromJSON OperationMetadata where-        parseJSON-          = withObject "OperationMetadata"-              (\ o -> OperationMetadata' <$> (parseJSONObject o))--instance ToJSON OperationMetadata where-        toJSON = toJSON . _omAddtional---- | \`DevicePolicy\` specifies device specific restrictions necessary to--- acquire a given access level. A \`DevicePolicy\` specifies requirements--- for requests from devices to be granted access levels, it does not do--- any enforcement on the device. \`DevicePolicy\` acts as an AND over all--- specified fields, and each repeated field is an OR over its elements.--- Any unset fields are ignored. For example, if the proto is { os_type :--- DESKTOP_WINDOWS, os_type : DESKTOP_LINUX, encryption_status: ENCRYPTED},--- then the DevicePolicy will be true for requests originating from--- encrypted Linux desktops and encrypted Windows desktops.------ /See:/ 'devicePolicy' smart constructor.-data DevicePolicy =-  DevicePolicy'-    { _dpOSConstraints                 :: !(Maybe [OSConstraint])-    , _dpRequireAdminApproval          :: !(Maybe Bool)-    , _dpRequireCorpOwned              :: !(Maybe Bool)-    , _dpRequireScreenlock             :: !(Maybe Bool)-    , _dpAllowedEncryptionStatuses     :: !(Maybe [Text])-    , _dpAllowedDeviceManagementLevels :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DevicePolicy' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dpOSConstraints'------ * 'dpRequireAdminApproval'------ * 'dpRequireCorpOwned'------ * 'dpRequireScreenlock'------ * 'dpAllowedEncryptionStatuses'------ * 'dpAllowedDeviceManagementLevels'-devicePolicy-    :: DevicePolicy-devicePolicy =-  DevicePolicy'-    { _dpOSConstraints = Nothing-    , _dpRequireAdminApproval = Nothing-    , _dpRequireCorpOwned = Nothing-    , _dpRequireScreenlock = Nothing-    , _dpAllowedEncryptionStatuses = Nothing-    , _dpAllowedDeviceManagementLevels = Nothing-    }----- | Allowed OS versions, an empty list allows all types and all versions.-dpOSConstraints :: Lens' DevicePolicy [OSConstraint]-dpOSConstraints-  = lens _dpOSConstraints-      (\ s a -> s{_dpOSConstraints = a})-      . _Default-      . _Coerce---- | Whether the device needs to be approved by the customer admin.-dpRequireAdminApproval :: Lens' DevicePolicy (Maybe Bool)-dpRequireAdminApproval-  = lens _dpRequireAdminApproval-      (\ s a -> s{_dpRequireAdminApproval = a})---- | Whether the device needs to be corp owned.-dpRequireCorpOwned :: Lens' DevicePolicy (Maybe Bool)-dpRequireCorpOwned-  = lens _dpRequireCorpOwned-      (\ s a -> s{_dpRequireCorpOwned = a})---- | Whether or not screenlock is required for the DevicePolicy to be true.--- Defaults to \`false\`.-dpRequireScreenlock :: Lens' DevicePolicy (Maybe Bool)-dpRequireScreenlock-  = lens _dpRequireScreenlock-      (\ s a -> s{_dpRequireScreenlock = a})---- | Allowed encryptions statuses, an empty list allows all statuses.-dpAllowedEncryptionStatuses :: Lens' DevicePolicy [Text]-dpAllowedEncryptionStatuses-  = lens _dpAllowedEncryptionStatuses-      (\ s a -> s{_dpAllowedEncryptionStatuses = a})-      . _Default-      . _Coerce---- | Allowed device management levels, an empty list allows all management--- levels.-dpAllowedDeviceManagementLevels :: Lens' DevicePolicy [Text]-dpAllowedDeviceManagementLevels-  = lens _dpAllowedDeviceManagementLevels-      (\ s a -> s{_dpAllowedDeviceManagementLevels = a})-      . _Default-      . _Coerce--instance FromJSON DevicePolicy where-        parseJSON-          = withObject "DevicePolicy"-              (\ o ->-                 DevicePolicy' <$>-                   (o .:? "osConstraints" .!= mempty) <*>-                     (o .:? "requireAdminApproval")-                     <*> (o .:? "requireCorpOwned")-                     <*> (o .:? "requireScreenlock")-                     <*> (o .:? "allowedEncryptionStatuses" .!= mempty)-                     <*>-                     (o .:? "allowedDeviceManagementLevels" .!= mempty))--instance ToJSON DevicePolicy where-        toJSON DevicePolicy'{..}-          = object-              (catMaybes-                 [("osConstraints" .=) <$> _dpOSConstraints,-                  ("requireAdminApproval" .=) <$>-                    _dpRequireAdminApproval,-                  ("requireCorpOwned" .=) <$> _dpRequireCorpOwned,-                  ("requireScreenlock" .=) <$> _dpRequireScreenlock,-                  ("allowedEncryptionStatuses" .=) <$>-                    _dpAllowedEncryptionStatuses,-                  ("allowedDeviceManagementLevels" .=) <$>-                    _dpAllowedDeviceManagementLevels])---- | A condition necessary for an \`AccessLevel\` to be granted. The--- Condition is an AND over its fields. So a Condition is true if: 1) the--- request IP is from one of the listed subnetworks AND 2) the originating--- device complies with the listed device policy AND 3) all listed access--- levels are granted AND 4) the request was sent at a time allowed by the--- DateTimeRestriction.------ /See:/ 'condition' smart constructor.-data Condition =-  Condition'-    { _cMembers              :: !(Maybe [Text])-    , _cRegions              :: !(Maybe [Text])-    , _cNegate               :: !(Maybe Bool)-    , _cIPSubnetworks        :: !(Maybe [Text])-    , _cDevicePolicy         :: !(Maybe DevicePolicy)-    , _cRequiredAccessLevels :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Condition' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cMembers'------ * 'cRegions'------ * 'cNegate'------ * 'cIPSubnetworks'------ * 'cDevicePolicy'------ * 'cRequiredAccessLevels'-condition-    :: Condition-condition =-  Condition'-    { _cMembers = Nothing-    , _cRegions = Nothing-    , _cNegate = Nothing-    , _cIPSubnetworks = Nothing-    , _cDevicePolicy = Nothing-    , _cRequiredAccessLevels = Nothing-    }----- | The request must be made by one of the provided user or service--- accounts. Groups are not supported. Syntax: \`user:{emailid}\`--- \`serviceAccount:{emailid}\` If not specified, a request may come from--- any user.-cMembers :: Lens' Condition [Text]-cMembers-  = lens _cMembers (\ s a -> s{_cMembers = a}) .-      _Default-      . _Coerce---- | The request must originate from one of the provided countries\/regions.--- Must be valid ISO 3166-1 alpha-2 codes.-cRegions :: Lens' Condition [Text]-cRegions-  = lens _cRegions (\ s a -> s{_cRegions = a}) .-      _Default-      . _Coerce---- | Whether to negate the Condition. If true, the Condition becomes a NAND--- over its non-empty fields, each field must be false for the Condition--- overall to be satisfied. Defaults to false.-cNegate :: Lens' Condition (Maybe Bool)-cNegate = lens _cNegate (\ s a -> s{_cNegate = a})---- | CIDR block IP subnetwork specification. May be IPv4 or IPv6. Note that--- for a CIDR IP address block, the specified IP address portion must be--- properly truncated (i.e. all the host bits must be zero) or the input is--- considered malformed. For example, \"192.0.2.0\/24\" is accepted but--- \"192.0.2.1\/24\" is not. Similarly, for IPv6, \"2001:db8::\/32\" is--- accepted whereas \"2001:db8::1\/32\" is not. The originating IP of a--- request must be in one of the listed subnets in order for this Condition--- to be true. If empty, all IP addresses are allowed.-cIPSubnetworks :: Lens' Condition [Text]-cIPSubnetworks-  = lens _cIPSubnetworks-      (\ s a -> s{_cIPSubnetworks = a})-      . _Default-      . _Coerce---- | Device specific restrictions, all restrictions must hold for the--- Condition to be true. If not specified, all devices are allowed.-cDevicePolicy :: Lens' Condition (Maybe DevicePolicy)-cDevicePolicy-  = lens _cDevicePolicy-      (\ s a -> s{_cDevicePolicy = a})---- | A list of other access levels defined in the same \`Policy\`, referenced--- by resource name. Referencing an \`AccessLevel\` which does not exist is--- an error. All access levels listed must be granted for the Condition to--- be true. Example:--- \"\`accessPolicies\/MY_POLICY\/accessLevels\/LEVEL_NAME\"\`-cRequiredAccessLevels :: Lens' Condition [Text]-cRequiredAccessLevels-  = lens _cRequiredAccessLevels-      (\ s a -> s{_cRequiredAccessLevels = a})-      . _Default-      . _Coerce--instance FromJSON Condition where-        parseJSON-          = withObject "Condition"-              (\ o ->-                 Condition' <$>-                   (o .:? "members" .!= mempty) <*>-                     (o .:? "regions" .!= mempty)-                     <*> (o .:? "negate")-                     <*> (o .:? "ipSubnetworks" .!= mempty)-                     <*> (o .:? "devicePolicy")-                     <*> (o .:? "requiredAccessLevels" .!= mempty))--instance ToJSON Condition where-        toJSON Condition'{..}-          = object-              (catMaybes-                 [("members" .=) <$> _cMembers,-                  ("regions" .=) <$> _cRegions,-                  ("negate" .=) <$> _cNegate,-                  ("ipSubnetworks" .=) <$> _cIPSubnetworks,-                  ("devicePolicy" .=) <$> _cDevicePolicy,-                  ("requiredAccessLevels" .=) <$>-                    _cRequiredAccessLevels])---- | The normal response of the operation in case of success. If the original--- method returns no data on success, such as \`Delete\`, the response is--- \`google.protobuf.Empty\`. If the original method is standard--- \`Get\`\/\`Create\`\/\`Update\`, the response should be the resource.--- For other methods, the response should have the type \`XxxResponse\`,--- where \`Xxx\` is the original method name. For example, if the original--- method name is \`TakeSnapshot()\`, the inferred response type is--- \`TakeSnapshotResponse\`.------ /See:/ 'operationResponse' smart constructor.-newtype OperationResponse =-  OperationResponse'-    { _orAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OperationResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'orAddtional'-operationResponse-    :: HashMap Text JSONValue -- ^ 'orAddtional'-    -> OperationResponse-operationResponse pOrAddtional_ =-  OperationResponse' {_orAddtional = _Coerce # pOrAddtional_}----- | Properties of the object. Contains field \'type with type URL.-orAddtional :: Lens' OperationResponse (HashMap Text JSONValue)-orAddtional-  = lens _orAddtional (\ s a -> s{_orAddtional = a}) .-      _Coerce--instance FromJSON OperationResponse where-        parseJSON-          = withObject "OperationResponse"-              (\ o -> OperationResponse' <$> (parseJSONObject o))--instance ToJSON OperationResponse where-        toJSON = toJSON . _orAddtional
− gen/Network/Google/AccessContextManager/Types/Sum.hs 
@@ -1,159 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.AccessContextManager.Types.Sum--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.Google.AccessContextManager.Types.Sum where--import           Network.Google.Prelude hiding (Bytes)---- | How the \`conditions\` list should be combined to determine if a request--- is granted this \`AccessLevel\`. If AND is used, each \`Condition\` in--- \`conditions\` must be satisfied for the \`AccessLevel\` to be applied.--- If OR is used, at least one \`Condition\` in \`conditions\` must be--- satisfied for the \`AccessLevel\` to be applied. Default behavior is--- AND.-data BasicLevelCombiningFunction-    = And-      -- ^ @AND@-      -- All \`Conditions\` must be true for the \`BasicLevel\` to be true.-    | OR-      -- ^ @OR@-      -- If at least one \`Condition\` is true, then the \`BasicLevel\` is true.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable BasicLevelCombiningFunction--instance FromHttpApiData BasicLevelCombiningFunction where-    parseQueryParam = \case-        "AND" -> Right And-        "OR" -> Right OR-        x -> Left ("Unable to parse BasicLevelCombiningFunction from: " <> x)--instance ToHttpApiData BasicLevelCombiningFunction where-    toQueryParam = \case-        And -> "AND"-        OR -> "OR"--instance FromJSON BasicLevelCombiningFunction where-    parseJSON = parseJSONText "BasicLevelCombiningFunction"--instance ToJSON BasicLevelCombiningFunction where-    toJSON = toJSONText---- | Perimeter type indicator. A single project is allowed to be a member of--- single regular perimeter, but multiple service perimeter bridges. A--- project cannot be a included in a perimeter bridge without being--- included in regular perimeter. For perimeter bridges, the restricted--- service list as well as access level lists must be empty.-data ServicePerimeterPerimeterType-    = PerimeterTypeRegular-      -- ^ @PERIMETER_TYPE_REGULAR@-      -- Regular Perimeter.-    | PerimeterTypeBridge-      -- ^ @PERIMETER_TYPE_BRIDGE@-      -- Perimeter Bridge.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ServicePerimeterPerimeterType--instance FromHttpApiData ServicePerimeterPerimeterType where-    parseQueryParam = \case-        "PERIMETER_TYPE_REGULAR" -> Right PerimeterTypeRegular-        "PERIMETER_TYPE_BRIDGE" -> Right PerimeterTypeBridge-        x -> Left ("Unable to parse ServicePerimeterPerimeterType from: " <> x)--instance ToHttpApiData ServicePerimeterPerimeterType where-    toQueryParam = \case-        PerimeterTypeRegular -> "PERIMETER_TYPE_REGULAR"-        PerimeterTypeBridge -> "PERIMETER_TYPE_BRIDGE"--instance FromJSON ServicePerimeterPerimeterType where-    parseJSON = parseJSONText "ServicePerimeterPerimeterType"--instance ToJSON ServicePerimeterPerimeterType where-    toJSON = toJSONText---- | Required. The allowed OS type.-data OSConstraintOSType-    = OSUnspecified-      -- ^ @OS_UNSPECIFIED@-      -- The operating system of the device is not specified or not known.-    | DesktopMAC-      -- ^ @DESKTOP_MAC@-      -- A desktop Mac operating system.-    | DesktopWindows-      -- ^ @DESKTOP_WINDOWS@-      -- A desktop Windows operating system.-    | DesktopLinux-      -- ^ @DESKTOP_LINUX@-      -- A desktop Linux operating system.-    | DesktopChromeOS-      -- ^ @DESKTOP_CHROME_OS@-      -- A desktop ChromeOS operating system.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable OSConstraintOSType--instance FromHttpApiData OSConstraintOSType where-    parseQueryParam = \case-        "OS_UNSPECIFIED" -> Right OSUnspecified-        "DESKTOP_MAC" -> Right DesktopMAC-        "DESKTOP_WINDOWS" -> Right DesktopWindows-        "DESKTOP_LINUX" -> Right DesktopLinux-        "DESKTOP_CHROME_OS" -> Right DesktopChromeOS-        x -> Left ("Unable to parse OSConstraintOSType from: " <> x)--instance ToHttpApiData OSConstraintOSType where-    toQueryParam = \case-        OSUnspecified -> "OS_UNSPECIFIED"-        DesktopMAC -> "DESKTOP_MAC"-        DesktopWindows -> "DESKTOP_WINDOWS"-        DesktopLinux -> "DESKTOP_LINUX"-        DesktopChromeOS -> "DESKTOP_CHROME_OS"--instance FromJSON OSConstraintOSType where-    parseJSON = parseJSONText "OSConstraintOSType"--instance ToJSON OSConstraintOSType where-    toJSON = toJSONText---- | V1 error format.-data Xgafv-    = X1-      -- ^ @1@-      -- v1 error format-    | X2-      -- ^ @2@-      -- v2 error format-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable Xgafv--instance FromHttpApiData Xgafv where-    parseQueryParam = \case-        "1" -> Right X1-        "2" -> Right X2-        x -> Left ("Unable to parse Xgafv from: " <> x)--instance ToHttpApiData Xgafv where-    toQueryParam = \case-        X1 -> "1"-        X2 -> "2"--instance FromJSON Xgafv where-    parseJSON = parseJSONText "Xgafv"--instance ToJSON Xgafv where-    toJSON = toJSONText
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Create.hs 
@@ -1,175 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Create--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Create an Access Level. The longrunning operation from this RPC will--- have a successful status once the Access Level has propagated to--- long-lasting storage. Access Levels containing errors will result in an--- error response for the first error encountered.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.accessLevels.create@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Create-    (-    -- * REST Resource-      AccessPoliciesAccessLevelsCreateResource--    -- * Creating a Request-    , accessPoliciesAccessLevelsCreate-    , AccessPoliciesAccessLevelsCreate--    -- * Request Lenses-    , apalcParent-    , apalcXgafv-    , apalcUploadProtocol-    , apalcAccessToken-    , apalcUploadType-    , apalcPayload-    , apalcCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.create@ method which the--- 'AccessPoliciesAccessLevelsCreate' request conforms to.-type AccessPoliciesAccessLevelsCreateResource =-     "v1" :>-       Capture "parent" Text :>-         "accessLevels" :>-           QueryParam "$.xgafv" Xgafv :>-             QueryParam "upload_protocol" Text :>-               QueryParam "access_token" Text :>-                 QueryParam "uploadType" Text :>-                   QueryParam "callback" Text :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] AccessLevel :> Post '[JSON] Operation---- | Create an Access Level. The longrunning operation from this RPC will--- have a successful status once the Access Level has propagated to--- long-lasting storage. Access Levels containing errors will result in an--- error response for the first error encountered.------ /See:/ 'accessPoliciesAccessLevelsCreate' smart constructor.-data AccessPoliciesAccessLevelsCreate =-  AccessPoliciesAccessLevelsCreate'-    { _apalcParent         :: !Text-    , _apalcXgafv          :: !(Maybe Xgafv)-    , _apalcUploadProtocol :: !(Maybe Text)-    , _apalcAccessToken    :: !(Maybe Text)-    , _apalcUploadType     :: !(Maybe Text)-    , _apalcPayload        :: !AccessLevel-    , _apalcCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesAccessLevelsCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apalcParent'------ * 'apalcXgafv'------ * 'apalcUploadProtocol'------ * 'apalcAccessToken'------ * 'apalcUploadType'------ * 'apalcPayload'------ * 'apalcCallback'-accessPoliciesAccessLevelsCreate-    :: Text -- ^ 'apalcParent'-    -> AccessLevel -- ^ 'apalcPayload'-    -> AccessPoliciesAccessLevelsCreate-accessPoliciesAccessLevelsCreate pApalcParent_ pApalcPayload_ =-  AccessPoliciesAccessLevelsCreate'-    { _apalcParent = pApalcParent_-    , _apalcXgafv = Nothing-    , _apalcUploadProtocol = Nothing-    , _apalcAccessToken = Nothing-    , _apalcUploadType = Nothing-    , _apalcPayload = pApalcPayload_-    , _apalcCallback = Nothing-    }----- | Required. Resource name for the access policy which owns this Access--- Level. Format: \`accessPolicies\/{policy_id}\`-apalcParent :: Lens' AccessPoliciesAccessLevelsCreate Text-apalcParent-  = lens _apalcParent (\ s a -> s{_apalcParent = a})---- | V1 error format.-apalcXgafv :: Lens' AccessPoliciesAccessLevelsCreate (Maybe Xgafv)-apalcXgafv-  = lens _apalcXgafv (\ s a -> s{_apalcXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-apalcUploadProtocol :: Lens' AccessPoliciesAccessLevelsCreate (Maybe Text)-apalcUploadProtocol-  = lens _apalcUploadProtocol-      (\ s a -> s{_apalcUploadProtocol = a})---- | OAuth access token.-apalcAccessToken :: Lens' AccessPoliciesAccessLevelsCreate (Maybe Text)-apalcAccessToken-  = lens _apalcAccessToken-      (\ s a -> s{_apalcAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-apalcUploadType :: Lens' AccessPoliciesAccessLevelsCreate (Maybe Text)-apalcUploadType-  = lens _apalcUploadType-      (\ s a -> s{_apalcUploadType = a})---- | Multipart request metadata.-apalcPayload :: Lens' AccessPoliciesAccessLevelsCreate AccessLevel-apalcPayload-  = lens _apalcPayload (\ s a -> s{_apalcPayload = a})---- | JSONP-apalcCallback :: Lens' AccessPoliciesAccessLevelsCreate (Maybe Text)-apalcCallback-  = lens _apalcCallback-      (\ s a -> s{_apalcCallback = a})--instance GoogleRequest-           AccessPoliciesAccessLevelsCreate-         where-        type Rs AccessPoliciesAccessLevelsCreate = Operation-        type Scopes AccessPoliciesAccessLevelsCreate =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient AccessPoliciesAccessLevelsCreate'{..}-          = go _apalcParent _apalcXgafv _apalcUploadProtocol-              _apalcAccessToken-              _apalcUploadType-              _apalcCallback-              (Just AltJSON)-              _apalcPayload-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy AccessPoliciesAccessLevelsCreateResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Delete.hs 
@@ -1,159 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Delete--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Delete an Access Level by resource name. The longrunning operation from--- this RPC will have a successful status once the Access Level has been--- removed from long-lasting storage.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.accessLevels.delete@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Delete-    (-    -- * REST Resource-      AccessPoliciesAccessLevelsDeleteResource--    -- * Creating a Request-    , accessPoliciesAccessLevelsDelete-    , AccessPoliciesAccessLevelsDelete--    -- * Request Lenses-    , apaldXgafv-    , apaldUploadProtocol-    , apaldAccessToken-    , apaldUploadType-    , apaldName-    , apaldCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.delete@ method which the--- 'AccessPoliciesAccessLevelsDelete' request conforms to.-type AccessPoliciesAccessLevelsDeleteResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] Operation---- | Delete an Access Level by resource name. The longrunning operation from--- this RPC will have a successful status once the Access Level has been--- removed from long-lasting storage.------ /See:/ 'accessPoliciesAccessLevelsDelete' smart constructor.-data AccessPoliciesAccessLevelsDelete =-  AccessPoliciesAccessLevelsDelete'-    { _apaldXgafv          :: !(Maybe Xgafv)-    , _apaldUploadProtocol :: !(Maybe Text)-    , _apaldAccessToken    :: !(Maybe Text)-    , _apaldUploadType     :: !(Maybe Text)-    , _apaldName           :: !Text-    , _apaldCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesAccessLevelsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apaldXgafv'------ * 'apaldUploadProtocol'------ * 'apaldAccessToken'------ * 'apaldUploadType'------ * 'apaldName'------ * 'apaldCallback'-accessPoliciesAccessLevelsDelete-    :: Text -- ^ 'apaldName'-    -> AccessPoliciesAccessLevelsDelete-accessPoliciesAccessLevelsDelete pApaldName_ =-  AccessPoliciesAccessLevelsDelete'-    { _apaldXgafv = Nothing-    , _apaldUploadProtocol = Nothing-    , _apaldAccessToken = Nothing-    , _apaldUploadType = Nothing-    , _apaldName = pApaldName_-    , _apaldCallback = Nothing-    }----- | V1 error format.-apaldXgafv :: Lens' AccessPoliciesAccessLevelsDelete (Maybe Xgafv)-apaldXgafv-  = lens _apaldXgafv (\ s a -> s{_apaldXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-apaldUploadProtocol :: Lens' AccessPoliciesAccessLevelsDelete (Maybe Text)-apaldUploadProtocol-  = lens _apaldUploadProtocol-      (\ s a -> s{_apaldUploadProtocol = a})---- | OAuth access token.-apaldAccessToken :: Lens' AccessPoliciesAccessLevelsDelete (Maybe Text)-apaldAccessToken-  = lens _apaldAccessToken-      (\ s a -> s{_apaldAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-apaldUploadType :: Lens' AccessPoliciesAccessLevelsDelete (Maybe Text)-apaldUploadType-  = lens _apaldUploadType-      (\ s a -> s{_apaldUploadType = a})---- | Required. Resource name for the Access Level. Format:--- \`accessPolicies\/{policy_id}\/accessLevels\/{access_level_id}\`-apaldName :: Lens' AccessPoliciesAccessLevelsDelete Text-apaldName-  = lens _apaldName (\ s a -> s{_apaldName = a})---- | JSONP-apaldCallback :: Lens' AccessPoliciesAccessLevelsDelete (Maybe Text)-apaldCallback-  = lens _apaldCallback-      (\ s a -> s{_apaldCallback = a})--instance GoogleRequest-           AccessPoliciesAccessLevelsDelete-         where-        type Rs AccessPoliciesAccessLevelsDelete = Operation-        type Scopes AccessPoliciesAccessLevelsDelete =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient AccessPoliciesAccessLevelsDelete'{..}-          = go _apaldName _apaldXgafv _apaldUploadProtocol-              _apaldAccessToken-              _apaldUploadType-              _apaldCallback-              (Just AltJSON)-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy AccessPoliciesAccessLevelsDeleteResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Get.hs 
@@ -1,172 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Get an Access Level by resource name.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.accessLevels.get@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Get-    (-    -- * REST Resource-      AccessPoliciesAccessLevelsGetResource--    -- * Creating a Request-    , accessPoliciesAccessLevelsGet-    , AccessPoliciesAccessLevelsGet--    -- * Request Lenses-    , apalgXgafv-    , apalgUploadProtocol-    , apalgAccessToken-    , apalgUploadType-    , apalgAccessLevelFormat-    , apalgName-    , apalgCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.get@ method which the--- 'AccessPoliciesAccessLevelsGet' request conforms to.-type AccessPoliciesAccessLevelsGetResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "accessLevelFormat" Text :>-                   QueryParam "callback" Text :>-                     QueryParam "alt" AltJSON :> Get '[JSON] AccessLevel---- | Get an Access Level by resource name.------ /See:/ 'accessPoliciesAccessLevelsGet' smart constructor.-data AccessPoliciesAccessLevelsGet =-  AccessPoliciesAccessLevelsGet'-    { _apalgXgafv             :: !(Maybe Xgafv)-    , _apalgUploadProtocol    :: !(Maybe Text)-    , _apalgAccessToken       :: !(Maybe Text)-    , _apalgUploadType        :: !(Maybe Text)-    , _apalgAccessLevelFormat :: !(Maybe Text)-    , _apalgName              :: !Text-    , _apalgCallback          :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesAccessLevelsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apalgXgafv'------ * 'apalgUploadProtocol'------ * 'apalgAccessToken'------ * 'apalgUploadType'------ * 'apalgAccessLevelFormat'------ * 'apalgName'------ * 'apalgCallback'-accessPoliciesAccessLevelsGet-    :: Text -- ^ 'apalgName'-    -> AccessPoliciesAccessLevelsGet-accessPoliciesAccessLevelsGet pApalgName_ =-  AccessPoliciesAccessLevelsGet'-    { _apalgXgafv = Nothing-    , _apalgUploadProtocol = Nothing-    , _apalgAccessToken = Nothing-    , _apalgUploadType = Nothing-    , _apalgAccessLevelFormat = Nothing-    , _apalgName = pApalgName_-    , _apalgCallback = Nothing-    }----- | V1 error format.-apalgXgafv :: Lens' AccessPoliciesAccessLevelsGet (Maybe Xgafv)-apalgXgafv-  = lens _apalgXgafv (\ s a -> s{_apalgXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-apalgUploadProtocol :: Lens' AccessPoliciesAccessLevelsGet (Maybe Text)-apalgUploadProtocol-  = lens _apalgUploadProtocol-      (\ s a -> s{_apalgUploadProtocol = a})---- | OAuth access token.-apalgAccessToken :: Lens' AccessPoliciesAccessLevelsGet (Maybe Text)-apalgAccessToken-  = lens _apalgAccessToken-      (\ s a -> s{_apalgAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-apalgUploadType :: Lens' AccessPoliciesAccessLevelsGet (Maybe Text)-apalgUploadType-  = lens _apalgUploadType-      (\ s a -> s{_apalgUploadType = a})---- | Whether to return \`BasicLevels\` in the Cloud Common Expression--- Language rather than as \`BasicLevels\`. Defaults to AS_DEFINED, where--- Access Levels are returned as \`BasicLevels\` or \`CustomLevels\` based--- on how they were created. If set to CEL, all Access Levels are returned--- as \`CustomLevels\`. In the CEL case, \`BasicLevels\` are translated to--- equivalent \`CustomLevels\`.-apalgAccessLevelFormat :: Lens' AccessPoliciesAccessLevelsGet (Maybe Text)-apalgAccessLevelFormat-  = lens _apalgAccessLevelFormat-      (\ s a -> s{_apalgAccessLevelFormat = a})---- | Required. Resource name for the Access Level. Format:--- \`accessPolicies\/{policy_id}\/accessLevels\/{access_level_id}\`-apalgName :: Lens' AccessPoliciesAccessLevelsGet Text-apalgName-  = lens _apalgName (\ s a -> s{_apalgName = a})---- | JSONP-apalgCallback :: Lens' AccessPoliciesAccessLevelsGet (Maybe Text)-apalgCallback-  = lens _apalgCallback-      (\ s a -> s{_apalgCallback = a})--instance GoogleRequest AccessPoliciesAccessLevelsGet-         where-        type Rs AccessPoliciesAccessLevelsGet = AccessLevel-        type Scopes AccessPoliciesAccessLevelsGet =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient AccessPoliciesAccessLevelsGet'{..}-          = go _apalgName _apalgXgafv _apalgUploadProtocol-              _apalgAccessToken-              _apalgUploadType-              _apalgAccessLevelFormat-              _apalgCallback-              (Just AltJSON)-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy AccessPoliciesAccessLevelsGetResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/List.hs 
@@ -1,200 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.List--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ List all Access Levels for an access policy.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.accessLevels.list@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.List-    (-    -- * REST Resource-      AccessPoliciesAccessLevelsListResource--    -- * Creating a Request-    , accessPoliciesAccessLevelsList-    , AccessPoliciesAccessLevelsList--    -- * Request Lenses-    , apallParent-    , apallXgafv-    , apallUploadProtocol-    , apallAccessToken-    , apallUploadType-    , apallAccessLevelFormat-    , apallPageToken-    , apallPageSize-    , apallCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.list@ method which the--- 'AccessPoliciesAccessLevelsList' request conforms to.-type AccessPoliciesAccessLevelsListResource =-     "v1" :>-       Capture "parent" Text :>-         "accessLevels" :>-           QueryParam "$.xgafv" Xgafv :>-             QueryParam "upload_protocol" Text :>-               QueryParam "access_token" Text :>-                 QueryParam "uploadType" Text :>-                   QueryParam "accessLevelFormat" Text :>-                     QueryParam "pageToken" Text :>-                       QueryParam "pageSize" (Textual Int32) :>-                         QueryParam "callback" Text :>-                           QueryParam "alt" AltJSON :>-                             Get '[JSON] ListAccessLevelsResponse---- | List all Access Levels for an access policy.------ /See:/ 'accessPoliciesAccessLevelsList' smart constructor.-data AccessPoliciesAccessLevelsList =-  AccessPoliciesAccessLevelsList'-    { _apallParent            :: !Text-    , _apallXgafv             :: !(Maybe Xgafv)-    , _apallUploadProtocol    :: !(Maybe Text)-    , _apallAccessToken       :: !(Maybe Text)-    , _apallUploadType        :: !(Maybe Text)-    , _apallAccessLevelFormat :: !(Maybe Text)-    , _apallPageToken         :: !(Maybe Text)-    , _apallPageSize          :: !(Maybe (Textual Int32))-    , _apallCallback          :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesAccessLevelsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apallParent'------ * 'apallXgafv'------ * 'apallUploadProtocol'------ * 'apallAccessToken'------ * 'apallUploadType'------ * 'apallAccessLevelFormat'------ * 'apallPageToken'------ * 'apallPageSize'------ * 'apallCallback'-accessPoliciesAccessLevelsList-    :: Text -- ^ 'apallParent'-    -> AccessPoliciesAccessLevelsList-accessPoliciesAccessLevelsList pApallParent_ =-  AccessPoliciesAccessLevelsList'-    { _apallParent = pApallParent_-    , _apallXgafv = Nothing-    , _apallUploadProtocol = Nothing-    , _apallAccessToken = Nothing-    , _apallUploadType = Nothing-    , _apallAccessLevelFormat = Nothing-    , _apallPageToken = Nothing-    , _apallPageSize = Nothing-    , _apallCallback = Nothing-    }----- | Required. Resource name for the access policy to list Access Levels--- from. Format: \`accessPolicies\/{policy_id}\`-apallParent :: Lens' AccessPoliciesAccessLevelsList Text-apallParent-  = lens _apallParent (\ s a -> s{_apallParent = a})---- | V1 error format.-apallXgafv :: Lens' AccessPoliciesAccessLevelsList (Maybe Xgafv)-apallXgafv-  = lens _apallXgafv (\ s a -> s{_apallXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-apallUploadProtocol :: Lens' AccessPoliciesAccessLevelsList (Maybe Text)-apallUploadProtocol-  = lens _apallUploadProtocol-      (\ s a -> s{_apallUploadProtocol = a})---- | OAuth access token.-apallAccessToken :: Lens' AccessPoliciesAccessLevelsList (Maybe Text)-apallAccessToken-  = lens _apallAccessToken-      (\ s a -> s{_apallAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-apallUploadType :: Lens' AccessPoliciesAccessLevelsList (Maybe Text)-apallUploadType-  = lens _apallUploadType-      (\ s a -> s{_apallUploadType = a})---- | Whether to return \`BasicLevels\` in the Cloud Common Expression--- language, as \`CustomLevels\`, rather than as \`BasicLevels\`. Defaults--- to returning \`AccessLevels\` in the format they were defined.-apallAccessLevelFormat :: Lens' AccessPoliciesAccessLevelsList (Maybe Text)-apallAccessLevelFormat-  = lens _apallAccessLevelFormat-      (\ s a -> s{_apallAccessLevelFormat = a})---- | Next page token for the next batch of Access Level instances. Defaults--- to the first page of results.-apallPageToken :: Lens' AccessPoliciesAccessLevelsList (Maybe Text)-apallPageToken-  = lens _apallPageToken-      (\ s a -> s{_apallPageToken = a})---- | Number of Access Levels to include in the list. Default 100.-apallPageSize :: Lens' AccessPoliciesAccessLevelsList (Maybe Int32)-apallPageSize-  = lens _apallPageSize-      (\ s a -> s{_apallPageSize = a})-      . mapping _Coerce---- | JSONP-apallCallback :: Lens' AccessPoliciesAccessLevelsList (Maybe Text)-apallCallback-  = lens _apallCallback-      (\ s a -> s{_apallCallback = a})--instance GoogleRequest AccessPoliciesAccessLevelsList-         where-        type Rs AccessPoliciesAccessLevelsList =-             ListAccessLevelsResponse-        type Scopes AccessPoliciesAccessLevelsList =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient AccessPoliciesAccessLevelsList'{..}-          = go _apallParent _apallXgafv _apallUploadProtocol-              _apallAccessToken-              _apallUploadType-              _apallAccessLevelFormat-              _apallPageToken-              _apallPageSize-              _apallCallback-              (Just AltJSON)-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy AccessPoliciesAccessLevelsListResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Patch.hs 
@@ -1,190 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Patch--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Update an Access Level. The longrunning operation from this RPC will--- have a successful status once the changes to the Access Level have--- propagated to long-lasting storage. Access Levels containing errors will--- result in an error response for the first error encountered.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.accessLevels.patch@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Patch-    (-    -- * REST Resource-      AccessPoliciesAccessLevelsPatchResource--    -- * Creating a Request-    , accessPoliciesAccessLevelsPatch-    , AccessPoliciesAccessLevelsPatch--    -- * Request Lenses-    , apalpXgafv-    , apalpUploadProtocol-    , apalpUpdateMask-    , apalpAccessToken-    , apalpUploadType-    , apalpPayload-    , apalpName-    , apalpCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.patch@ method which the--- 'AccessPoliciesAccessLevelsPatch' request conforms to.-type AccessPoliciesAccessLevelsPatchResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "updateMask" GFieldMask :>-               QueryParam "access_token" Text :>-                 QueryParam "uploadType" Text :>-                   QueryParam "callback" Text :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] AccessLevel :>-                         Patch '[JSON] Operation---- | Update an Access Level. The longrunning operation from this RPC will--- have a successful status once the changes to the Access Level have--- propagated to long-lasting storage. Access Levels containing errors will--- result in an error response for the first error encountered.------ /See:/ 'accessPoliciesAccessLevelsPatch' smart constructor.-data AccessPoliciesAccessLevelsPatch =-  AccessPoliciesAccessLevelsPatch'-    { _apalpXgafv          :: !(Maybe Xgafv)-    , _apalpUploadProtocol :: !(Maybe Text)-    , _apalpUpdateMask     :: !(Maybe GFieldMask)-    , _apalpAccessToken    :: !(Maybe Text)-    , _apalpUploadType     :: !(Maybe Text)-    , _apalpPayload        :: !AccessLevel-    , _apalpName           :: !Text-    , _apalpCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesAccessLevelsPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apalpXgafv'------ * 'apalpUploadProtocol'------ * 'apalpUpdateMask'------ * 'apalpAccessToken'------ * 'apalpUploadType'------ * 'apalpPayload'------ * 'apalpName'------ * 'apalpCallback'-accessPoliciesAccessLevelsPatch-    :: AccessLevel -- ^ 'apalpPayload'-    -> Text -- ^ 'apalpName'-    -> AccessPoliciesAccessLevelsPatch-accessPoliciesAccessLevelsPatch pApalpPayload_ pApalpName_ =-  AccessPoliciesAccessLevelsPatch'-    { _apalpXgafv = Nothing-    , _apalpUploadProtocol = Nothing-    , _apalpUpdateMask = Nothing-    , _apalpAccessToken = Nothing-    , _apalpUploadType = Nothing-    , _apalpPayload = pApalpPayload_-    , _apalpName = pApalpName_-    , _apalpCallback = Nothing-    }----- | V1 error format.-apalpXgafv :: Lens' AccessPoliciesAccessLevelsPatch (Maybe Xgafv)-apalpXgafv-  = lens _apalpXgafv (\ s a -> s{_apalpXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-apalpUploadProtocol :: Lens' AccessPoliciesAccessLevelsPatch (Maybe Text)-apalpUploadProtocol-  = lens _apalpUploadProtocol-      (\ s a -> s{_apalpUploadProtocol = a})---- | Required. Mask to control which fields get updated. Must be non-empty.-apalpUpdateMask :: Lens' AccessPoliciesAccessLevelsPatch (Maybe GFieldMask)-apalpUpdateMask-  = lens _apalpUpdateMask-      (\ s a -> s{_apalpUpdateMask = a})---- | OAuth access token.-apalpAccessToken :: Lens' AccessPoliciesAccessLevelsPatch (Maybe Text)-apalpAccessToken-  = lens _apalpAccessToken-      (\ s a -> s{_apalpAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-apalpUploadType :: Lens' AccessPoliciesAccessLevelsPatch (Maybe Text)-apalpUploadType-  = lens _apalpUploadType-      (\ s a -> s{_apalpUploadType = a})---- | Multipart request metadata.-apalpPayload :: Lens' AccessPoliciesAccessLevelsPatch AccessLevel-apalpPayload-  = lens _apalpPayload (\ s a -> s{_apalpPayload = a})---- | Required. Resource name for the Access Level. The \`short_name\`--- component must begin with a letter and only include alphanumeric and--- \'_\'. Format:--- \`accessPolicies\/{policy_id}\/accessLevels\/{short_name}\`-apalpName :: Lens' AccessPoliciesAccessLevelsPatch Text-apalpName-  = lens _apalpName (\ s a -> s{_apalpName = a})---- | JSONP-apalpCallback :: Lens' AccessPoliciesAccessLevelsPatch (Maybe Text)-apalpCallback-  = lens _apalpCallback-      (\ s a -> s{_apalpCallback = a})--instance GoogleRequest-           AccessPoliciesAccessLevelsPatch-         where-        type Rs AccessPoliciesAccessLevelsPatch = Operation-        type Scopes AccessPoliciesAccessLevelsPatch =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient AccessPoliciesAccessLevelsPatch'{..}-          = go _apalpName _apalpXgafv _apalpUploadProtocol-              _apalpUpdateMask-              _apalpAccessToken-              _apalpUploadType-              _apalpCallback-              (Just AltJSON)-              _apalpPayload-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy AccessPoliciesAccessLevelsPatchResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Create.hs 
@@ -1,159 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.Create--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Create an \`AccessPolicy\`. Fails if this organization already has a--- \`AccessPolicy\`. The longrunning Operation will have a successful--- status once the \`AccessPolicy\` has propagated to long-lasting storage.--- Syntactic and basic semantic errors will be returned in \`metadata\` as--- a BadRequest proto.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.create@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.Create-    (-    -- * REST Resource-      AccessPoliciesCreateResource--    -- * Creating a Request-    , accessPoliciesCreate-    , AccessPoliciesCreate--    -- * Request Lenses-    , apcXgafv-    , apcUploadProtocol-    , apcAccessToken-    , apcUploadType-    , apcPayload-    , apcCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.create@ method which the--- 'AccessPoliciesCreate' request conforms to.-type AccessPoliciesCreateResource =-     "v1" :>-       "accessPolicies" :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] AccessPolicy :>-                       Post '[JSON] Operation---- | Create an \`AccessPolicy\`. Fails if this organization already has a--- \`AccessPolicy\`. The longrunning Operation will have a successful--- status once the \`AccessPolicy\` has propagated to long-lasting storage.--- Syntactic and basic semantic errors will be returned in \`metadata\` as--- a BadRequest proto.------ /See:/ 'accessPoliciesCreate' smart constructor.-data AccessPoliciesCreate =-  AccessPoliciesCreate'-    { _apcXgafv          :: !(Maybe Xgafv)-    , _apcUploadProtocol :: !(Maybe Text)-    , _apcAccessToken    :: !(Maybe Text)-    , _apcUploadType     :: !(Maybe Text)-    , _apcPayload        :: !AccessPolicy-    , _apcCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apcXgafv'------ * 'apcUploadProtocol'------ * 'apcAccessToken'------ * 'apcUploadType'------ * 'apcPayload'------ * 'apcCallback'-accessPoliciesCreate-    :: AccessPolicy -- ^ 'apcPayload'-    -> AccessPoliciesCreate-accessPoliciesCreate pApcPayload_ =-  AccessPoliciesCreate'-    { _apcXgafv = Nothing-    , _apcUploadProtocol = Nothing-    , _apcAccessToken = Nothing-    , _apcUploadType = Nothing-    , _apcPayload = pApcPayload_-    , _apcCallback = Nothing-    }----- | V1 error format.-apcXgafv :: Lens' AccessPoliciesCreate (Maybe Xgafv)-apcXgafv = lens _apcXgafv (\ s a -> s{_apcXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-apcUploadProtocol :: Lens' AccessPoliciesCreate (Maybe Text)-apcUploadProtocol-  = lens _apcUploadProtocol-      (\ s a -> s{_apcUploadProtocol = a})---- | OAuth access token.-apcAccessToken :: Lens' AccessPoliciesCreate (Maybe Text)-apcAccessToken-  = lens _apcAccessToken-      (\ s a -> s{_apcAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-apcUploadType :: Lens' AccessPoliciesCreate (Maybe Text)-apcUploadType-  = lens _apcUploadType-      (\ s a -> s{_apcUploadType = a})---- | Multipart request metadata.-apcPayload :: Lens' AccessPoliciesCreate AccessPolicy-apcPayload-  = lens _apcPayload (\ s a -> s{_apcPayload = a})---- | JSONP-apcCallback :: Lens' AccessPoliciesCreate (Maybe Text)-apcCallback-  = lens _apcCallback (\ s a -> s{_apcCallback = a})--instance GoogleRequest AccessPoliciesCreate where-        type Rs AccessPoliciesCreate = Operation-        type Scopes AccessPoliciesCreate =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient AccessPoliciesCreate'{..}-          = go _apcXgafv _apcUploadProtocol _apcAccessToken-              _apcUploadType-              _apcCallback-              (Just AltJSON)-              _apcPayload-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy :: Proxy AccessPoliciesCreateResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Delete.hs 
@@ -1,153 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.Delete--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Delete an AccessPolicy by resource name. The longrunning Operation will--- have a successful status once the AccessPolicy has been removed from--- long-lasting storage.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.delete@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.Delete-    (-    -- * REST Resource-      AccessPoliciesDeleteResource--    -- * Creating a Request-    , accessPoliciesDelete-    , AccessPoliciesDelete--    -- * Request Lenses-    , apdXgafv-    , apdUploadProtocol-    , apdAccessToken-    , apdUploadType-    , apdName-    , apdCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.delete@ method which the--- 'AccessPoliciesDelete' request conforms to.-type AccessPoliciesDeleteResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] Operation---- | Delete an AccessPolicy by resource name. The longrunning Operation will--- have a successful status once the AccessPolicy has been removed from--- long-lasting storage.------ /See:/ 'accessPoliciesDelete' smart constructor.-data AccessPoliciesDelete =-  AccessPoliciesDelete'-    { _apdXgafv          :: !(Maybe Xgafv)-    , _apdUploadProtocol :: !(Maybe Text)-    , _apdAccessToken    :: !(Maybe Text)-    , _apdUploadType     :: !(Maybe Text)-    , _apdName           :: !Text-    , _apdCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apdXgafv'------ * 'apdUploadProtocol'------ * 'apdAccessToken'------ * 'apdUploadType'------ * 'apdName'------ * 'apdCallback'-accessPoliciesDelete-    :: Text -- ^ 'apdName'-    -> AccessPoliciesDelete-accessPoliciesDelete pApdName_ =-  AccessPoliciesDelete'-    { _apdXgafv = Nothing-    , _apdUploadProtocol = Nothing-    , _apdAccessToken = Nothing-    , _apdUploadType = Nothing-    , _apdName = pApdName_-    , _apdCallback = Nothing-    }----- | V1 error format.-apdXgafv :: Lens' AccessPoliciesDelete (Maybe Xgafv)-apdXgafv = lens _apdXgafv (\ s a -> s{_apdXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-apdUploadProtocol :: Lens' AccessPoliciesDelete (Maybe Text)-apdUploadProtocol-  = lens _apdUploadProtocol-      (\ s a -> s{_apdUploadProtocol = a})---- | OAuth access token.-apdAccessToken :: Lens' AccessPoliciesDelete (Maybe Text)-apdAccessToken-  = lens _apdAccessToken-      (\ s a -> s{_apdAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-apdUploadType :: Lens' AccessPoliciesDelete (Maybe Text)-apdUploadType-  = lens _apdUploadType-      (\ s a -> s{_apdUploadType = a})---- | Required. Resource name for the access policy to delete. Format--- \`accessPolicies\/{policy_id}\`-apdName :: Lens' AccessPoliciesDelete Text-apdName = lens _apdName (\ s a -> s{_apdName = a})---- | JSONP-apdCallback :: Lens' AccessPoliciesDelete (Maybe Text)-apdCallback-  = lens _apdCallback (\ s a -> s{_apdCallback = a})--instance GoogleRequest AccessPoliciesDelete where-        type Rs AccessPoliciesDelete = Operation-        type Scopes AccessPoliciesDelete =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient AccessPoliciesDelete'{..}-          = go _apdName _apdXgafv _apdUploadProtocol-              _apdAccessToken-              _apdUploadType-              _apdCallback-              (Just AltJSON)-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy :: Proxy AccessPoliciesDeleteResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Get.hs 
@@ -1,149 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Get an AccessPolicy by name.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.get@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.Get-    (-    -- * REST Resource-      AccessPoliciesGetResource--    -- * Creating a Request-    , accessPoliciesGet-    , AccessPoliciesGet--    -- * Request Lenses-    , apgXgafv-    , apgUploadProtocol-    , apgAccessToken-    , apgUploadType-    , apgName-    , apgCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.get@ method which the--- 'AccessPoliciesGet' request conforms to.-type AccessPoliciesGetResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] AccessPolicy---- | Get an AccessPolicy by name.------ /See:/ 'accessPoliciesGet' smart constructor.-data AccessPoliciesGet =-  AccessPoliciesGet'-    { _apgXgafv          :: !(Maybe Xgafv)-    , _apgUploadProtocol :: !(Maybe Text)-    , _apgAccessToken    :: !(Maybe Text)-    , _apgUploadType     :: !(Maybe Text)-    , _apgName           :: !Text-    , _apgCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apgXgafv'------ * 'apgUploadProtocol'------ * 'apgAccessToken'------ * 'apgUploadType'------ * 'apgName'------ * 'apgCallback'-accessPoliciesGet-    :: Text -- ^ 'apgName'-    -> AccessPoliciesGet-accessPoliciesGet pApgName_ =-  AccessPoliciesGet'-    { _apgXgafv = Nothing-    , _apgUploadProtocol = Nothing-    , _apgAccessToken = Nothing-    , _apgUploadType = Nothing-    , _apgName = pApgName_-    , _apgCallback = Nothing-    }----- | V1 error format.-apgXgafv :: Lens' AccessPoliciesGet (Maybe Xgafv)-apgXgafv = lens _apgXgafv (\ s a -> s{_apgXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-apgUploadProtocol :: Lens' AccessPoliciesGet (Maybe Text)-apgUploadProtocol-  = lens _apgUploadProtocol-      (\ s a -> s{_apgUploadProtocol = a})---- | OAuth access token.-apgAccessToken :: Lens' AccessPoliciesGet (Maybe Text)-apgAccessToken-  = lens _apgAccessToken-      (\ s a -> s{_apgAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-apgUploadType :: Lens' AccessPoliciesGet (Maybe Text)-apgUploadType-  = lens _apgUploadType-      (\ s a -> s{_apgUploadType = a})---- | Required. Resource name for the access policy to get. Format--- \`accessPolicies\/{policy_id}\`-apgName :: Lens' AccessPoliciesGet Text-apgName = lens _apgName (\ s a -> s{_apgName = a})---- | JSONP-apgCallback :: Lens' AccessPoliciesGet (Maybe Text)-apgCallback-  = lens _apgCallback (\ s a -> s{_apgCallback = a})--instance GoogleRequest AccessPoliciesGet where-        type Rs AccessPoliciesGet = AccessPolicy-        type Scopes AccessPoliciesGet =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient AccessPoliciesGet'{..}-          = go _apgName _apgXgafv _apgUploadProtocol-              _apgAccessToken-              _apgUploadType-              _apgCallback-              (Just AltJSON)-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy :: Proxy AccessPoliciesGetResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/List.hs 
@@ -1,178 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.List--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ List all AccessPolicies under a container.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.list@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.List-    (-    -- * REST Resource-      AccessPoliciesListResource--    -- * Creating a Request-    , accessPoliciesList-    , AccessPoliciesList--    -- * Request Lenses-    , aplParent-    , aplXgafv-    , aplUploadProtocol-    , aplAccessToken-    , aplUploadType-    , aplPageToken-    , aplPageSize-    , aplCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.list@ method which the--- 'AccessPoliciesList' request conforms to.-type AccessPoliciesListResource =-     "v1" :>-       "accessPolicies" :>-         QueryParam "parent" Text :>-           QueryParam "$.xgafv" Xgafv :>-             QueryParam "upload_protocol" Text :>-               QueryParam "access_token" Text :>-                 QueryParam "uploadType" Text :>-                   QueryParam "pageToken" Text :>-                     QueryParam "pageSize" (Textual Int32) :>-                       QueryParam "callback" Text :>-                         QueryParam "alt" AltJSON :>-                           Get '[JSON] ListAccessPoliciesResponse---- | List all AccessPolicies under a container.------ /See:/ 'accessPoliciesList' smart constructor.-data AccessPoliciesList =-  AccessPoliciesList'-    { _aplParent         :: !(Maybe Text)-    , _aplXgafv          :: !(Maybe Xgafv)-    , _aplUploadProtocol :: !(Maybe Text)-    , _aplAccessToken    :: !(Maybe Text)-    , _aplUploadType     :: !(Maybe Text)-    , _aplPageToken      :: !(Maybe Text)-    , _aplPageSize       :: !(Maybe (Textual Int32))-    , _aplCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aplParent'------ * 'aplXgafv'------ * 'aplUploadProtocol'------ * 'aplAccessToken'------ * 'aplUploadType'------ * 'aplPageToken'------ * 'aplPageSize'------ * 'aplCallback'-accessPoliciesList-    :: AccessPoliciesList-accessPoliciesList =-  AccessPoliciesList'-    { _aplParent = Nothing-    , _aplXgafv = Nothing-    , _aplUploadProtocol = Nothing-    , _aplAccessToken = Nothing-    , _aplUploadType = Nothing-    , _aplPageToken = Nothing-    , _aplPageSize = Nothing-    , _aplCallback = Nothing-    }----- | Required. Resource name for the container to list AccessPolicy instances--- from. Format: \`organizations\/{org_id}\`-aplParent :: Lens' AccessPoliciesList (Maybe Text)-aplParent-  = lens _aplParent (\ s a -> s{_aplParent = a})---- | V1 error format.-aplXgafv :: Lens' AccessPoliciesList (Maybe Xgafv)-aplXgafv = lens _aplXgafv (\ s a -> s{_aplXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-aplUploadProtocol :: Lens' AccessPoliciesList (Maybe Text)-aplUploadProtocol-  = lens _aplUploadProtocol-      (\ s a -> s{_aplUploadProtocol = a})---- | OAuth access token.-aplAccessToken :: Lens' AccessPoliciesList (Maybe Text)-aplAccessToken-  = lens _aplAccessToken-      (\ s a -> s{_aplAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-aplUploadType :: Lens' AccessPoliciesList (Maybe Text)-aplUploadType-  = lens _aplUploadType-      (\ s a -> s{_aplUploadType = a})---- | Next page token for the next batch of AccessPolicy instances. Defaults--- to the first page of results.-aplPageToken :: Lens' AccessPoliciesList (Maybe Text)-aplPageToken-  = lens _aplPageToken (\ s a -> s{_aplPageToken = a})---- | Number of AccessPolicy instances to include in the list. Default 100.-aplPageSize :: Lens' AccessPoliciesList (Maybe Int32)-aplPageSize-  = lens _aplPageSize (\ s a -> s{_aplPageSize = a}) .-      mapping _Coerce---- | JSONP-aplCallback :: Lens' AccessPoliciesList (Maybe Text)-aplCallback-  = lens _aplCallback (\ s a -> s{_aplCallback = a})--instance GoogleRequest AccessPoliciesList where-        type Rs AccessPoliciesList =-             ListAccessPoliciesResponse-        type Scopes AccessPoliciesList =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient AccessPoliciesList'{..}-          = go _aplParent _aplXgafv _aplUploadProtocol-              _aplAccessToken-              _aplUploadType-              _aplPageToken-              _aplPageSize-              _aplCallback-              (Just AltJSON)-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy :: Proxy AccessPoliciesListResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Patch.hs 
@@ -1,182 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.Patch--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Update an AccessPolicy. The longrunning Operation from this RPC will--- have a successful status once the changes to the AccessPolicy have--- propagated to long-lasting storage. Syntactic and basic semantic errors--- will be returned in \`metadata\` as a BadRequest proto.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.patch@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.Patch-    (-    -- * REST Resource-      AccessPoliciesPatchResource--    -- * Creating a Request-    , accessPoliciesPatch-    , AccessPoliciesPatch--    -- * Request Lenses-    , appXgafv-    , appUploadProtocol-    , appUpdateMask-    , appAccessToken-    , appUploadType-    , appPayload-    , appName-    , appCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.patch@ method which the--- 'AccessPoliciesPatch' request conforms to.-type AccessPoliciesPatchResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "updateMask" GFieldMask :>-               QueryParam "access_token" Text :>-                 QueryParam "uploadType" Text :>-                   QueryParam "callback" Text :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] AccessPolicy :>-                         Patch '[JSON] Operation---- | Update an AccessPolicy. The longrunning Operation from this RPC will--- have a successful status once the changes to the AccessPolicy have--- propagated to long-lasting storage. Syntactic and basic semantic errors--- will be returned in \`metadata\` as a BadRequest proto.------ /See:/ 'accessPoliciesPatch' smart constructor.-data AccessPoliciesPatch =-  AccessPoliciesPatch'-    { _appXgafv          :: !(Maybe Xgafv)-    , _appUploadProtocol :: !(Maybe Text)-    , _appUpdateMask     :: !(Maybe GFieldMask)-    , _appAccessToken    :: !(Maybe Text)-    , _appUploadType     :: !(Maybe Text)-    , _appPayload        :: !AccessPolicy-    , _appName           :: !Text-    , _appCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'appXgafv'------ * 'appUploadProtocol'------ * 'appUpdateMask'------ * 'appAccessToken'------ * 'appUploadType'------ * 'appPayload'------ * 'appName'------ * 'appCallback'-accessPoliciesPatch-    :: AccessPolicy -- ^ 'appPayload'-    -> Text -- ^ 'appName'-    -> AccessPoliciesPatch-accessPoliciesPatch pAppPayload_ pAppName_ =-  AccessPoliciesPatch'-    { _appXgafv = Nothing-    , _appUploadProtocol = Nothing-    , _appUpdateMask = Nothing-    , _appAccessToken = Nothing-    , _appUploadType = Nothing-    , _appPayload = pAppPayload_-    , _appName = pAppName_-    , _appCallback = Nothing-    }----- | V1 error format.-appXgafv :: Lens' AccessPoliciesPatch (Maybe Xgafv)-appXgafv = lens _appXgafv (\ s a -> s{_appXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-appUploadProtocol :: Lens' AccessPoliciesPatch (Maybe Text)-appUploadProtocol-  = lens _appUploadProtocol-      (\ s a -> s{_appUploadProtocol = a})---- | Required. Mask to control which fields get updated. Must be non-empty.-appUpdateMask :: Lens' AccessPoliciesPatch (Maybe GFieldMask)-appUpdateMask-  = lens _appUpdateMask-      (\ s a -> s{_appUpdateMask = a})---- | OAuth access token.-appAccessToken :: Lens' AccessPoliciesPatch (Maybe Text)-appAccessToken-  = lens _appAccessToken-      (\ s a -> s{_appAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-appUploadType :: Lens' AccessPoliciesPatch (Maybe Text)-appUploadType-  = lens _appUploadType-      (\ s a -> s{_appUploadType = a})---- | Multipart request metadata.-appPayload :: Lens' AccessPoliciesPatch AccessPolicy-appPayload-  = lens _appPayload (\ s a -> s{_appPayload = a})---- | Output only. Resource name of the \`AccessPolicy\`. Format:--- \`accessPolicies\/{policy_id}\`-appName :: Lens' AccessPoliciesPatch Text-appName = lens _appName (\ s a -> s{_appName = a})---- | JSONP-appCallback :: Lens' AccessPoliciesPatch (Maybe Text)-appCallback-  = lens _appCallback (\ s a -> s{_appCallback = a})--instance GoogleRequest AccessPoliciesPatch where-        type Rs AccessPoliciesPatch = Operation-        type Scopes AccessPoliciesPatch =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient AccessPoliciesPatch'{..}-          = go _appName _appXgafv _appUploadProtocol-              _appUpdateMask-              _appAccessToken-              _appUploadType-              _appCallback-              (Just AltJSON)-              _appPayload-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy :: Proxy AccessPoliciesPatchResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Create.hs 
@@ -1,178 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Create--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Create an Service Perimeter. The longrunning operation from this RPC--- will have a successful status once the Service Perimeter has propagated--- to long-lasting storage. Service Perimeters containing errors will--- result in an error response for the first error encountered.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.servicePerimeters.create@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Create-    (-    -- * REST Resource-      AccessPoliciesServicePerimetersCreateResource--    -- * Creating a Request-    , accessPoliciesServicePerimetersCreate-    , AccessPoliciesServicePerimetersCreate--    -- * Request Lenses-    , apspcParent-    , apspcXgafv-    , apspcUploadProtocol-    , apspcAccessToken-    , apspcUploadType-    , apspcPayload-    , apspcCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.create@ method which the--- 'AccessPoliciesServicePerimetersCreate' request conforms to.-type AccessPoliciesServicePerimetersCreateResource =-     "v1" :>-       Capture "parent" Text :>-         "servicePerimeters" :>-           QueryParam "$.xgafv" Xgafv :>-             QueryParam "upload_protocol" Text :>-               QueryParam "access_token" Text :>-                 QueryParam "uploadType" Text :>-                   QueryParam "callback" Text :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] ServicePerimeter :>-                         Post '[JSON] Operation---- | Create an Service Perimeter. The longrunning operation from this RPC--- will have a successful status once the Service Perimeter has propagated--- to long-lasting storage. Service Perimeters containing errors will--- result in an error response for the first error encountered.------ /See:/ 'accessPoliciesServicePerimetersCreate' smart constructor.-data AccessPoliciesServicePerimetersCreate =-  AccessPoliciesServicePerimetersCreate'-    { _apspcParent         :: !Text-    , _apspcXgafv          :: !(Maybe Xgafv)-    , _apspcUploadProtocol :: !(Maybe Text)-    , _apspcAccessToken    :: !(Maybe Text)-    , _apspcUploadType     :: !(Maybe Text)-    , _apspcPayload        :: !ServicePerimeter-    , _apspcCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesServicePerimetersCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apspcParent'------ * 'apspcXgafv'------ * 'apspcUploadProtocol'------ * 'apspcAccessToken'------ * 'apspcUploadType'------ * 'apspcPayload'------ * 'apspcCallback'-accessPoliciesServicePerimetersCreate-    :: Text -- ^ 'apspcParent'-    -> ServicePerimeter -- ^ 'apspcPayload'-    -> AccessPoliciesServicePerimetersCreate-accessPoliciesServicePerimetersCreate pApspcParent_ pApspcPayload_ =-  AccessPoliciesServicePerimetersCreate'-    { _apspcParent = pApspcParent_-    , _apspcXgafv = Nothing-    , _apspcUploadProtocol = Nothing-    , _apspcAccessToken = Nothing-    , _apspcUploadType = Nothing-    , _apspcPayload = pApspcPayload_-    , _apspcCallback = Nothing-    }----- | Required. Resource name for the access policy which owns this Service--- Perimeter. Format: \`accessPolicies\/{policy_id}\`-apspcParent :: Lens' AccessPoliciesServicePerimetersCreate Text-apspcParent-  = lens _apspcParent (\ s a -> s{_apspcParent = a})---- | V1 error format.-apspcXgafv :: Lens' AccessPoliciesServicePerimetersCreate (Maybe Xgafv)-apspcXgafv-  = lens _apspcXgafv (\ s a -> s{_apspcXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-apspcUploadProtocol :: Lens' AccessPoliciesServicePerimetersCreate (Maybe Text)-apspcUploadProtocol-  = lens _apspcUploadProtocol-      (\ s a -> s{_apspcUploadProtocol = a})---- | OAuth access token.-apspcAccessToken :: Lens' AccessPoliciesServicePerimetersCreate (Maybe Text)-apspcAccessToken-  = lens _apspcAccessToken-      (\ s a -> s{_apspcAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-apspcUploadType :: Lens' AccessPoliciesServicePerimetersCreate (Maybe Text)-apspcUploadType-  = lens _apspcUploadType-      (\ s a -> s{_apspcUploadType = a})---- | Multipart request metadata.-apspcPayload :: Lens' AccessPoliciesServicePerimetersCreate ServicePerimeter-apspcPayload-  = lens _apspcPayload (\ s a -> s{_apspcPayload = a})---- | JSONP-apspcCallback :: Lens' AccessPoliciesServicePerimetersCreate (Maybe Text)-apspcCallback-  = lens _apspcCallback-      (\ s a -> s{_apspcCallback = a})--instance GoogleRequest-           AccessPoliciesServicePerimetersCreate-         where-        type Rs AccessPoliciesServicePerimetersCreate =-             Operation-        type Scopes AccessPoliciesServicePerimetersCreate =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient-          AccessPoliciesServicePerimetersCreate'{..}-          = go _apspcParent _apspcXgafv _apspcUploadProtocol-              _apspcAccessToken-              _apspcUploadType-              _apspcCallback-              (Just AltJSON)-              _apspcPayload-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy AccessPoliciesServicePerimetersCreateResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Delete.hs 
@@ -1,161 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Delete--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Delete an Service Perimeter by resource name. The longrunning operation--- from this RPC will have a successful status once the Service Perimeter--- has been removed from long-lasting storage.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.servicePerimeters.delete@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Delete-    (-    -- * REST Resource-      AccessPoliciesServicePerimetersDeleteResource--    -- * Creating a Request-    , accessPoliciesServicePerimetersDelete-    , AccessPoliciesServicePerimetersDelete--    -- * Request Lenses-    , apspdXgafv-    , apspdUploadProtocol-    , apspdAccessToken-    , apspdUploadType-    , apspdName-    , apspdCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.delete@ method which the--- 'AccessPoliciesServicePerimetersDelete' request conforms to.-type AccessPoliciesServicePerimetersDeleteResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] Operation---- | Delete an Service Perimeter by resource name. The longrunning operation--- from this RPC will have a successful status once the Service Perimeter--- has been removed from long-lasting storage.------ /See:/ 'accessPoliciesServicePerimetersDelete' smart constructor.-data AccessPoliciesServicePerimetersDelete =-  AccessPoliciesServicePerimetersDelete'-    { _apspdXgafv          :: !(Maybe Xgafv)-    , _apspdUploadProtocol :: !(Maybe Text)-    , _apspdAccessToken    :: !(Maybe Text)-    , _apspdUploadType     :: !(Maybe Text)-    , _apspdName           :: !Text-    , _apspdCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesServicePerimetersDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apspdXgafv'------ * 'apspdUploadProtocol'------ * 'apspdAccessToken'------ * 'apspdUploadType'------ * 'apspdName'------ * 'apspdCallback'-accessPoliciesServicePerimetersDelete-    :: Text -- ^ 'apspdName'-    -> AccessPoliciesServicePerimetersDelete-accessPoliciesServicePerimetersDelete pApspdName_ =-  AccessPoliciesServicePerimetersDelete'-    { _apspdXgafv = Nothing-    , _apspdUploadProtocol = Nothing-    , _apspdAccessToken = Nothing-    , _apspdUploadType = Nothing-    , _apspdName = pApspdName_-    , _apspdCallback = Nothing-    }----- | V1 error format.-apspdXgafv :: Lens' AccessPoliciesServicePerimetersDelete (Maybe Xgafv)-apspdXgafv-  = lens _apspdXgafv (\ s a -> s{_apspdXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-apspdUploadProtocol :: Lens' AccessPoliciesServicePerimetersDelete (Maybe Text)-apspdUploadProtocol-  = lens _apspdUploadProtocol-      (\ s a -> s{_apspdUploadProtocol = a})---- | OAuth access token.-apspdAccessToken :: Lens' AccessPoliciesServicePerimetersDelete (Maybe Text)-apspdAccessToken-  = lens _apspdAccessToken-      (\ s a -> s{_apspdAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-apspdUploadType :: Lens' AccessPoliciesServicePerimetersDelete (Maybe Text)-apspdUploadType-  = lens _apspdUploadType-      (\ s a -> s{_apspdUploadType = a})---- | Required. Resource name for the Service Perimeter. Format:--- \`accessPolicies\/{policy_id}\/servicePerimeters\/{service_perimeter_id}\`-apspdName :: Lens' AccessPoliciesServicePerimetersDelete Text-apspdName-  = lens _apspdName (\ s a -> s{_apspdName = a})---- | JSONP-apspdCallback :: Lens' AccessPoliciesServicePerimetersDelete (Maybe Text)-apspdCallback-  = lens _apspdCallback-      (\ s a -> s{_apspdCallback = a})--instance GoogleRequest-           AccessPoliciesServicePerimetersDelete-         where-        type Rs AccessPoliciesServicePerimetersDelete =-             Operation-        type Scopes AccessPoliciesServicePerimetersDelete =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient-          AccessPoliciesServicePerimetersDelete'{..}-          = go _apspdName _apspdXgafv _apspdUploadProtocol-              _apspdAccessToken-              _apspdUploadType-              _apspdCallback-              (Just AltJSON)-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy AccessPoliciesServicePerimetersDeleteResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Get.hs 
@@ -1,157 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Get an Service Perimeter by resource name.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.servicePerimeters.get@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Get-    (-    -- * REST Resource-      AccessPoliciesServicePerimetersGetResource--    -- * Creating a Request-    , accessPoliciesServicePerimetersGet-    , AccessPoliciesServicePerimetersGet--    -- * Request Lenses-    , apspgXgafv-    , apspgUploadProtocol-    , apspgAccessToken-    , apspgUploadType-    , apspgName-    , apspgCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.get@ method which the--- 'AccessPoliciesServicePerimetersGet' request conforms to.-type AccessPoliciesServicePerimetersGetResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     Get '[JSON] ServicePerimeter---- | Get an Service Perimeter by resource name.------ /See:/ 'accessPoliciesServicePerimetersGet' smart constructor.-data AccessPoliciesServicePerimetersGet =-  AccessPoliciesServicePerimetersGet'-    { _apspgXgafv          :: !(Maybe Xgafv)-    , _apspgUploadProtocol :: !(Maybe Text)-    , _apspgAccessToken    :: !(Maybe Text)-    , _apspgUploadType     :: !(Maybe Text)-    , _apspgName           :: !Text-    , _apspgCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesServicePerimetersGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apspgXgafv'------ * 'apspgUploadProtocol'------ * 'apspgAccessToken'------ * 'apspgUploadType'------ * 'apspgName'------ * 'apspgCallback'-accessPoliciesServicePerimetersGet-    :: Text -- ^ 'apspgName'-    -> AccessPoliciesServicePerimetersGet-accessPoliciesServicePerimetersGet pApspgName_ =-  AccessPoliciesServicePerimetersGet'-    { _apspgXgafv = Nothing-    , _apspgUploadProtocol = Nothing-    , _apspgAccessToken = Nothing-    , _apspgUploadType = Nothing-    , _apspgName = pApspgName_-    , _apspgCallback = Nothing-    }----- | V1 error format.-apspgXgafv :: Lens' AccessPoliciesServicePerimetersGet (Maybe Xgafv)-apspgXgafv-  = lens _apspgXgafv (\ s a -> s{_apspgXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-apspgUploadProtocol :: Lens' AccessPoliciesServicePerimetersGet (Maybe Text)-apspgUploadProtocol-  = lens _apspgUploadProtocol-      (\ s a -> s{_apspgUploadProtocol = a})---- | OAuth access token.-apspgAccessToken :: Lens' AccessPoliciesServicePerimetersGet (Maybe Text)-apspgAccessToken-  = lens _apspgAccessToken-      (\ s a -> s{_apspgAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-apspgUploadType :: Lens' AccessPoliciesServicePerimetersGet (Maybe Text)-apspgUploadType-  = lens _apspgUploadType-      (\ s a -> s{_apspgUploadType = a})---- | Required. Resource name for the Service Perimeter. Format:--- \`accessPolicies\/{policy_id}\/servicePerimeters\/{service_perimeters_id}\`-apspgName :: Lens' AccessPoliciesServicePerimetersGet Text-apspgName-  = lens _apspgName (\ s a -> s{_apspgName = a})---- | JSONP-apspgCallback :: Lens' AccessPoliciesServicePerimetersGet (Maybe Text)-apspgCallback-  = lens _apspgCallback-      (\ s a -> s{_apspgCallback = a})--instance GoogleRequest-           AccessPoliciesServicePerimetersGet-         where-        type Rs AccessPoliciesServicePerimetersGet =-             ServicePerimeter-        type Scopes AccessPoliciesServicePerimetersGet =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient AccessPoliciesServicePerimetersGet'{..}-          = go _apspgName _apspgXgafv _apspgUploadProtocol-              _apspgAccessToken-              _apspgUploadType-              _apspgCallback-              (Just AltJSON)-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy AccessPoliciesServicePerimetersGetResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/List.hs 
@@ -1,187 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.List--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ List all Service Perimeters for an access policy.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.servicePerimeters.list@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.List-    (-    -- * REST Resource-      AccessPoliciesServicePerimetersListResource--    -- * Creating a Request-    , accessPoliciesServicePerimetersList-    , AccessPoliciesServicePerimetersList--    -- * Request Lenses-    , apsplParent-    , apsplXgafv-    , apsplUploadProtocol-    , apsplAccessToken-    , apsplUploadType-    , apsplPageToken-    , apsplPageSize-    , apsplCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.list@ method which the--- 'AccessPoliciesServicePerimetersList' request conforms to.-type AccessPoliciesServicePerimetersListResource =-     "v1" :>-       Capture "parent" Text :>-         "servicePerimeters" :>-           QueryParam "$.xgafv" Xgafv :>-             QueryParam "upload_protocol" Text :>-               QueryParam "access_token" Text :>-                 QueryParam "uploadType" Text :>-                   QueryParam "pageToken" Text :>-                     QueryParam "pageSize" (Textual Int32) :>-                       QueryParam "callback" Text :>-                         QueryParam "alt" AltJSON :>-                           Get '[JSON] ListServicePerimetersResponse---- | List all Service Perimeters for an access policy.------ /See:/ 'accessPoliciesServicePerimetersList' smart constructor.-data AccessPoliciesServicePerimetersList =-  AccessPoliciesServicePerimetersList'-    { _apsplParent         :: !Text-    , _apsplXgafv          :: !(Maybe Xgafv)-    , _apsplUploadProtocol :: !(Maybe Text)-    , _apsplAccessToken    :: !(Maybe Text)-    , _apsplUploadType     :: !(Maybe Text)-    , _apsplPageToken      :: !(Maybe Text)-    , _apsplPageSize       :: !(Maybe (Textual Int32))-    , _apsplCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesServicePerimetersList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apsplParent'------ * 'apsplXgafv'------ * 'apsplUploadProtocol'------ * 'apsplAccessToken'------ * 'apsplUploadType'------ * 'apsplPageToken'------ * 'apsplPageSize'------ * 'apsplCallback'-accessPoliciesServicePerimetersList-    :: Text -- ^ 'apsplParent'-    -> AccessPoliciesServicePerimetersList-accessPoliciesServicePerimetersList pApsplParent_ =-  AccessPoliciesServicePerimetersList'-    { _apsplParent = pApsplParent_-    , _apsplXgafv = Nothing-    , _apsplUploadProtocol = Nothing-    , _apsplAccessToken = Nothing-    , _apsplUploadType = Nothing-    , _apsplPageToken = Nothing-    , _apsplPageSize = Nothing-    , _apsplCallback = Nothing-    }----- | Required. Resource name for the access policy to list Service Perimeters--- from. Format: \`accessPolicies\/{policy_id}\`-apsplParent :: Lens' AccessPoliciesServicePerimetersList Text-apsplParent-  = lens _apsplParent (\ s a -> s{_apsplParent = a})---- | V1 error format.-apsplXgafv :: Lens' AccessPoliciesServicePerimetersList (Maybe Xgafv)-apsplXgafv-  = lens _apsplXgafv (\ s a -> s{_apsplXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-apsplUploadProtocol :: Lens' AccessPoliciesServicePerimetersList (Maybe Text)-apsplUploadProtocol-  = lens _apsplUploadProtocol-      (\ s a -> s{_apsplUploadProtocol = a})---- | OAuth access token.-apsplAccessToken :: Lens' AccessPoliciesServicePerimetersList (Maybe Text)-apsplAccessToken-  = lens _apsplAccessToken-      (\ s a -> s{_apsplAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-apsplUploadType :: Lens' AccessPoliciesServicePerimetersList (Maybe Text)-apsplUploadType-  = lens _apsplUploadType-      (\ s a -> s{_apsplUploadType = a})---- | Next page token for the next batch of Service Perimeter instances.--- Defaults to the first page of results.-apsplPageToken :: Lens' AccessPoliciesServicePerimetersList (Maybe Text)-apsplPageToken-  = lens _apsplPageToken-      (\ s a -> s{_apsplPageToken = a})---- | Number of Service Perimeters to include in the list. Default 100.-apsplPageSize :: Lens' AccessPoliciesServicePerimetersList (Maybe Int32)-apsplPageSize-  = lens _apsplPageSize-      (\ s a -> s{_apsplPageSize = a})-      . mapping _Coerce---- | JSONP-apsplCallback :: Lens' AccessPoliciesServicePerimetersList (Maybe Text)-apsplCallback-  = lens _apsplCallback-      (\ s a -> s{_apsplCallback = a})--instance GoogleRequest-           AccessPoliciesServicePerimetersList-         where-        type Rs AccessPoliciesServicePerimetersList =-             ListServicePerimetersResponse-        type Scopes AccessPoliciesServicePerimetersList =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient-          AccessPoliciesServicePerimetersList'{..}-          = go _apsplParent _apsplXgafv _apsplUploadProtocol-              _apsplAccessToken-              _apsplUploadType-              _apsplPageToken-              _apsplPageSize-              _apsplCallback-              (Just AltJSON)-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy AccessPoliciesServicePerimetersListResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Patch.hs 
@@ -1,192 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Patch--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Update an Service Perimeter. The longrunning operation from this RPC--- will have a successful status once the changes to the Service Perimeter--- have propagated to long-lasting storage. Service Perimeter containing--- errors will result in an error response for the first error encountered.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.accessPolicies.servicePerimeters.patch@.-module Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Patch-    (-    -- * REST Resource-      AccessPoliciesServicePerimetersPatchResource--    -- * Creating a Request-    , accessPoliciesServicePerimetersPatch-    , AccessPoliciesServicePerimetersPatch--    -- * Request Lenses-    , apsppXgafv-    , apsppUploadProtocol-    , apsppUpdateMask-    , apsppAccessToken-    , apsppUploadType-    , apsppPayload-    , apsppName-    , apsppCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.patch@ method which the--- 'AccessPoliciesServicePerimetersPatch' request conforms to.-type AccessPoliciesServicePerimetersPatchResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "updateMask" GFieldMask :>-               QueryParam "access_token" Text :>-                 QueryParam "uploadType" Text :>-                   QueryParam "callback" Text :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] ServicePerimeter :>-                         Patch '[JSON] Operation---- | Update an Service Perimeter. The longrunning operation from this RPC--- will have a successful status once the changes to the Service Perimeter--- have propagated to long-lasting storage. Service Perimeter containing--- errors will result in an error response for the first error encountered.------ /See:/ 'accessPoliciesServicePerimetersPatch' smart constructor.-data AccessPoliciesServicePerimetersPatch =-  AccessPoliciesServicePerimetersPatch'-    { _apsppXgafv          :: !(Maybe Xgafv)-    , _apsppUploadProtocol :: !(Maybe Text)-    , _apsppUpdateMask     :: !(Maybe GFieldMask)-    , _apsppAccessToken    :: !(Maybe Text)-    , _apsppUploadType     :: !(Maybe Text)-    , _apsppPayload        :: !ServicePerimeter-    , _apsppName           :: !Text-    , _apsppCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessPoliciesServicePerimetersPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apsppXgafv'------ * 'apsppUploadProtocol'------ * 'apsppUpdateMask'------ * 'apsppAccessToken'------ * 'apsppUploadType'------ * 'apsppPayload'------ * 'apsppName'------ * 'apsppCallback'-accessPoliciesServicePerimetersPatch-    :: ServicePerimeter -- ^ 'apsppPayload'-    -> Text -- ^ 'apsppName'-    -> AccessPoliciesServicePerimetersPatch-accessPoliciesServicePerimetersPatch pApsppPayload_ pApsppName_ =-  AccessPoliciesServicePerimetersPatch'-    { _apsppXgafv = Nothing-    , _apsppUploadProtocol = Nothing-    , _apsppUpdateMask = Nothing-    , _apsppAccessToken = Nothing-    , _apsppUploadType = Nothing-    , _apsppPayload = pApsppPayload_-    , _apsppName = pApsppName_-    , _apsppCallback = Nothing-    }----- | V1 error format.-apsppXgafv :: Lens' AccessPoliciesServicePerimetersPatch (Maybe Xgafv)-apsppXgafv-  = lens _apsppXgafv (\ s a -> s{_apsppXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-apsppUploadProtocol :: Lens' AccessPoliciesServicePerimetersPatch (Maybe Text)-apsppUploadProtocol-  = lens _apsppUploadProtocol-      (\ s a -> s{_apsppUploadProtocol = a})---- | Required. Mask to control which fields get updated. Must be non-empty.-apsppUpdateMask :: Lens' AccessPoliciesServicePerimetersPatch (Maybe GFieldMask)-apsppUpdateMask-  = lens _apsppUpdateMask-      (\ s a -> s{_apsppUpdateMask = a})---- | OAuth access token.-apsppAccessToken :: Lens' AccessPoliciesServicePerimetersPatch (Maybe Text)-apsppAccessToken-  = lens _apsppAccessToken-      (\ s a -> s{_apsppAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-apsppUploadType :: Lens' AccessPoliciesServicePerimetersPatch (Maybe Text)-apsppUploadType-  = lens _apsppUploadType-      (\ s a -> s{_apsppUploadType = a})---- | Multipart request metadata.-apsppPayload :: Lens' AccessPoliciesServicePerimetersPatch ServicePerimeter-apsppPayload-  = lens _apsppPayload (\ s a -> s{_apsppPayload = a})---- | Required. Resource name for the ServicePerimeter. The \`short_name\`--- component must begin with a letter and only include alphanumeric and--- \'_\'. Format:--- \`accessPolicies\/{policy_id}\/servicePerimeters\/{short_name}\`-apsppName :: Lens' AccessPoliciesServicePerimetersPatch Text-apsppName-  = lens _apsppName (\ s a -> s{_apsppName = a})---- | JSONP-apsppCallback :: Lens' AccessPoliciesServicePerimetersPatch (Maybe Text)-apsppCallback-  = lens _apsppCallback-      (\ s a -> s{_apsppCallback = a})--instance GoogleRequest-           AccessPoliciesServicePerimetersPatch-         where-        type Rs AccessPoliciesServicePerimetersPatch =-             Operation-        type Scopes AccessPoliciesServicePerimetersPatch =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient-          AccessPoliciesServicePerimetersPatch'{..}-          = go _apsppName _apsppXgafv _apsppUploadProtocol-              _apsppUpdateMask-              _apsppAccessToken-              _apsppUploadType-              _apsppCallback-              (Just AltJSON)-              _apsppPayload-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy AccessPoliciesServicePerimetersPatchResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/Operations/Cancel.hs 
@@ -1,177 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.Operations.Cancel--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Starts asynchronous cancellation on a long-running operation. The server--- makes a best effort to cancel the operation, but success is not--- guaranteed. If the server doesn\'t support this method, it returns--- \`google.rpc.Code.UNIMPLEMENTED\`. Clients can use--- Operations.GetOperation or other methods to check whether the--- cancellation succeeded or whether the operation completed despite--- cancellation. On successful cancellation, the operation is not deleted;--- instead, it becomes an operation with an Operation.error value with a--- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.operations.cancel@.-module Network.Google.Resource.AccessContextManager.Operations.Cancel-    (-    -- * REST Resource-      OperationsCancelResource--    -- * Creating a Request-    , operationsCancel-    , OperationsCancel--    -- * Request Lenses-    , ocXgafv-    , ocUploadProtocol-    , ocAccessToken-    , ocUploadType-    , ocPayload-    , ocName-    , ocCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.operations.cancel@ method which the--- 'OperationsCancel' request conforms to.-type OperationsCancelResource =-     "v1" :>-       CaptureMode "name" "cancel" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] CancelOperationRequest :>-                       Post '[JSON] Empty---- | Starts asynchronous cancellation on a long-running operation. The server--- makes a best effort to cancel the operation, but success is not--- guaranteed. If the server doesn\'t support this method, it returns--- \`google.rpc.Code.UNIMPLEMENTED\`. Clients can use--- Operations.GetOperation or other methods to check whether the--- cancellation succeeded or whether the operation completed despite--- cancellation. On successful cancellation, the operation is not deleted;--- instead, it becomes an operation with an Operation.error value with a--- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`.------ /See:/ 'operationsCancel' smart constructor.-data OperationsCancel =-  OperationsCancel'-    { _ocXgafv          :: !(Maybe Xgafv)-    , _ocUploadProtocol :: !(Maybe Text)-    , _ocAccessToken    :: !(Maybe Text)-    , _ocUploadType     :: !(Maybe Text)-    , _ocPayload        :: !CancelOperationRequest-    , _ocName           :: !Text-    , _ocCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OperationsCancel' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ocXgafv'------ * 'ocUploadProtocol'------ * 'ocAccessToken'------ * 'ocUploadType'------ * 'ocPayload'------ * 'ocName'------ * 'ocCallback'-operationsCancel-    :: CancelOperationRequest -- ^ 'ocPayload'-    -> Text -- ^ 'ocName'-    -> OperationsCancel-operationsCancel pOcPayload_ pOcName_ =-  OperationsCancel'-    { _ocXgafv = Nothing-    , _ocUploadProtocol = Nothing-    , _ocAccessToken = Nothing-    , _ocUploadType = Nothing-    , _ocPayload = pOcPayload_-    , _ocName = pOcName_-    , _ocCallback = Nothing-    }----- | V1 error format.-ocXgafv :: Lens' OperationsCancel (Maybe Xgafv)-ocXgafv = lens _ocXgafv (\ s a -> s{_ocXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-ocUploadProtocol :: Lens' OperationsCancel (Maybe Text)-ocUploadProtocol-  = lens _ocUploadProtocol-      (\ s a -> s{_ocUploadProtocol = a})---- | OAuth access token.-ocAccessToken :: Lens' OperationsCancel (Maybe Text)-ocAccessToken-  = lens _ocAccessToken-      (\ s a -> s{_ocAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-ocUploadType :: Lens' OperationsCancel (Maybe Text)-ocUploadType-  = lens _ocUploadType (\ s a -> s{_ocUploadType = a})---- | Multipart request metadata.-ocPayload :: Lens' OperationsCancel CancelOperationRequest-ocPayload-  = lens _ocPayload (\ s a -> s{_ocPayload = a})---- | The name of the operation resource to be cancelled.-ocName :: Lens' OperationsCancel Text-ocName = lens _ocName (\ s a -> s{_ocName = a})---- | JSONP-ocCallback :: Lens' OperationsCancel (Maybe Text)-ocCallback-  = lens _ocCallback (\ s a -> s{_ocCallback = a})--instance GoogleRequest OperationsCancel where-        type Rs OperationsCancel = Empty-        type Scopes OperationsCancel =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient OperationsCancel'{..}-          = go _ocName _ocXgafv _ocUploadProtocol-              _ocAccessToken-              _ocUploadType-              _ocCallback-              (Just AltJSON)-              _ocPayload-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy :: Proxy OperationsCancelResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/Operations/Delete.hs 
@@ -1,153 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.Operations.Delete--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes a long-running operation. This method indicates that the client--- is no longer interested in the operation result. It does not cancel the--- operation. If the server doesn\'t support this method, it returns--- \`google.rpc.Code.UNIMPLEMENTED\`.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.operations.delete@.-module Network.Google.Resource.AccessContextManager.Operations.Delete-    (-    -- * REST Resource-      OperationsDeleteResource--    -- * Creating a Request-    , operationsDelete-    , OperationsDelete--    -- * Request Lenses-    , odXgafv-    , odUploadProtocol-    , odAccessToken-    , odUploadType-    , odName-    , odCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.operations.delete@ method which the--- 'OperationsDelete' request conforms to.-type OperationsDeleteResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] Empty---- | Deletes a long-running operation. This method indicates that the client--- is no longer interested in the operation result. It does not cancel the--- operation. If the server doesn\'t support this method, it returns--- \`google.rpc.Code.UNIMPLEMENTED\`.------ /See:/ 'operationsDelete' smart constructor.-data OperationsDelete =-  OperationsDelete'-    { _odXgafv          :: !(Maybe Xgafv)-    , _odUploadProtocol :: !(Maybe Text)-    , _odAccessToken    :: !(Maybe Text)-    , _odUploadType     :: !(Maybe Text)-    , _odName           :: !Text-    , _odCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OperationsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'odXgafv'------ * 'odUploadProtocol'------ * 'odAccessToken'------ * 'odUploadType'------ * 'odName'------ * 'odCallback'-operationsDelete-    :: Text -- ^ 'odName'-    -> OperationsDelete-operationsDelete pOdName_ =-  OperationsDelete'-    { _odXgafv = Nothing-    , _odUploadProtocol = Nothing-    , _odAccessToken = Nothing-    , _odUploadType = Nothing-    , _odName = pOdName_-    , _odCallback = Nothing-    }----- | V1 error format.-odXgafv :: Lens' OperationsDelete (Maybe Xgafv)-odXgafv = lens _odXgafv (\ s a -> s{_odXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-odUploadProtocol :: Lens' OperationsDelete (Maybe Text)-odUploadProtocol-  = lens _odUploadProtocol-      (\ s a -> s{_odUploadProtocol = a})---- | OAuth access token.-odAccessToken :: Lens' OperationsDelete (Maybe Text)-odAccessToken-  = lens _odAccessToken-      (\ s a -> s{_odAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-odUploadType :: Lens' OperationsDelete (Maybe Text)-odUploadType-  = lens _odUploadType (\ s a -> s{_odUploadType = a})---- | The name of the operation resource to be deleted.-odName :: Lens' OperationsDelete Text-odName = lens _odName (\ s a -> s{_odName = a})---- | JSONP-odCallback :: Lens' OperationsDelete (Maybe Text)-odCallback-  = lens _odCallback (\ s a -> s{_odCallback = a})--instance GoogleRequest OperationsDelete where-        type Rs OperationsDelete = Empty-        type Scopes OperationsDelete =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient OperationsDelete'{..}-          = go _odName _odXgafv _odUploadProtocol-              _odAccessToken-              _odUploadType-              _odCallback-              (Just AltJSON)-              accessContextManagerService-          where go-                  = buildClient-                      (Proxy :: Proxy OperationsDeleteResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/Operations/Get.hs 
@@ -1,150 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.Operations.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the latest state of a long-running operation. Clients can use this--- method to poll the operation result at intervals as recommended by the--- API service.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.operations.get@.-module Network.Google.Resource.AccessContextManager.Operations.Get-    (-    -- * REST Resource-      OperationsGetResource--    -- * Creating a Request-    , operationsGet-    , OperationsGet--    -- * Request Lenses-    , ogXgafv-    , ogUploadProtocol-    , ogAccessToken-    , ogUploadType-    , ogName-    , ogCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.operations.get@ method which the--- 'OperationsGet' request conforms to.-type OperationsGetResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Operation---- | Gets the latest state of a long-running operation. Clients can use this--- method to poll the operation result at intervals as recommended by the--- API service.------ /See:/ 'operationsGet' smart constructor.-data OperationsGet =-  OperationsGet'-    { _ogXgafv          :: !(Maybe Xgafv)-    , _ogUploadProtocol :: !(Maybe Text)-    , _ogAccessToken    :: !(Maybe Text)-    , _ogUploadType     :: !(Maybe Text)-    , _ogName           :: !Text-    , _ogCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OperationsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ogXgafv'------ * 'ogUploadProtocol'------ * 'ogAccessToken'------ * 'ogUploadType'------ * 'ogName'------ * 'ogCallback'-operationsGet-    :: Text -- ^ 'ogName'-    -> OperationsGet-operationsGet pOgName_ =-  OperationsGet'-    { _ogXgafv = Nothing-    , _ogUploadProtocol = Nothing-    , _ogAccessToken = Nothing-    , _ogUploadType = Nothing-    , _ogName = pOgName_-    , _ogCallback = Nothing-    }----- | V1 error format.-ogXgafv :: Lens' OperationsGet (Maybe Xgafv)-ogXgafv = lens _ogXgafv (\ s a -> s{_ogXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-ogUploadProtocol :: Lens' OperationsGet (Maybe Text)-ogUploadProtocol-  = lens _ogUploadProtocol-      (\ s a -> s{_ogUploadProtocol = a})---- | OAuth access token.-ogAccessToken :: Lens' OperationsGet (Maybe Text)-ogAccessToken-  = lens _ogAccessToken-      (\ s a -> s{_ogAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-ogUploadType :: Lens' OperationsGet (Maybe Text)-ogUploadType-  = lens _ogUploadType (\ s a -> s{_ogUploadType = a})---- | The name of the operation resource.-ogName :: Lens' OperationsGet Text-ogName = lens _ogName (\ s a -> s{_ogName = a})---- | JSONP-ogCallback :: Lens' OperationsGet (Maybe Text)-ogCallback-  = lens _ogCallback (\ s a -> s{_ogCallback = a})--instance GoogleRequest OperationsGet where-        type Rs OperationsGet = Operation-        type Scopes OperationsGet =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient OperationsGet'{..}-          = go _ogName _ogXgafv _ogUploadProtocol-              _ogAccessToken-              _ogUploadType-              _ogCallback-              (Just AltJSON)-              accessContextManagerService-          where go-                  = buildClient (Proxy :: Proxy OperationsGetResource)-                      mempty
− gen/Network/Google/Resource/AccessContextManager/Operations/List.hs 
@@ -1,201 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.AccessContextManager.Operations.List--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Lists operations that match the specified filter in the request. If the--- server doesn\'t support this method, it returns \`UNIMPLEMENTED\`. NOTE:--- the \`name\` binding allows API services to override the binding to use--- different resource name schemes, such as \`users\/*\/operations\`. To--- override the binding, API services can add a binding such as--- \`\"\/v1\/{name=users\/*}\/operations\"\` to their service--- configuration. For backwards compatibility, the default name includes--- the operations collection id, however overriding users must ensure the--- name binding is the parent resource, without the operations collection--- id.------ /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.operations.list@.-module Network.Google.Resource.AccessContextManager.Operations.List-    (-    -- * REST Resource-      OperationsListResource--    -- * Creating a Request-    , operationsList-    , OperationsList--    -- * Request Lenses-    , olXgafv-    , olUploadProtocol-    , olAccessToken-    , olUploadType-    , olName-    , olFilter-    , olPageToken-    , olPageSize-    , olCallback-    ) where--import           Network.Google.AccessContextManager.Types-import           Network.Google.Prelude---- | A resource alias for @accesscontextmanager.operations.list@ method which the--- 'OperationsList' request conforms to.-type OperationsListResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "filter" Text :>-                   QueryParam "pageToken" Text :>-                     QueryParam "pageSize" (Textual Int32) :>-                       QueryParam "callback" Text :>-                         QueryParam "alt" AltJSON :>-                           Get '[JSON] ListOperationsResponse---- | Lists operations that match the specified filter in the request. If the--- server doesn\'t support this method, it returns \`UNIMPLEMENTED\`. NOTE:--- the \`name\` binding allows API services to override the binding to use--- different resource name schemes, such as \`users\/*\/operations\`. To--- override the binding, API services can add a binding such as--- \`\"\/v1\/{name=users\/*}\/operations\"\` to their service--- configuration. For backwards compatibility, the default name includes--- the operations collection id, however overriding users must ensure the--- name binding is the parent resource, without the operations collection--- id.------ /See:/ 'operationsList' smart constructor.-data OperationsList =-  OperationsList'-    { _olXgafv          :: !(Maybe Xgafv)-    , _olUploadProtocol :: !(Maybe Text)-    , _olAccessToken    :: !(Maybe Text)-    , _olUploadType     :: !(Maybe Text)-    , _olName           :: !Text-    , _olFilter         :: !(Maybe Text)-    , _olPageToken      :: !(Maybe Text)-    , _olPageSize       :: !(Maybe (Textual Int32))-    , _olCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OperationsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'olXgafv'------ * 'olUploadProtocol'------ * 'olAccessToken'------ * 'olUploadType'------ * 'olName'------ * 'olFilter'------ * 'olPageToken'------ * 'olPageSize'------ * 'olCallback'-operationsList-    :: Text -- ^ 'olName'-    -> OperationsList-operationsList pOlName_ =-  OperationsList'-    { _olXgafv = Nothing-    , _olUploadProtocol = Nothing-    , _olAccessToken = Nothing-    , _olUploadType = Nothing-    , _olName = pOlName_-    , _olFilter = Nothing-    , _olPageToken = Nothing-    , _olPageSize = Nothing-    , _olCallback = Nothing-    }----- | V1 error format.-olXgafv :: Lens' OperationsList (Maybe Xgafv)-olXgafv = lens _olXgafv (\ s a -> s{_olXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-olUploadProtocol :: Lens' OperationsList (Maybe Text)-olUploadProtocol-  = lens _olUploadProtocol-      (\ s a -> s{_olUploadProtocol = a})---- | OAuth access token.-olAccessToken :: Lens' OperationsList (Maybe Text)-olAccessToken-  = lens _olAccessToken-      (\ s a -> s{_olAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-olUploadType :: Lens' OperationsList (Maybe Text)-olUploadType-  = lens _olUploadType (\ s a -> s{_olUploadType = a})---- | The name of the operation\'s parent resource.-olName :: Lens' OperationsList Text-olName = lens _olName (\ s a -> s{_olName = a})---- | The standard list filter.-olFilter :: Lens' OperationsList (Maybe Text)-olFilter = lens _olFilter (\ s a -> s{_olFilter = a})---- | The standard list page token.-olPageToken :: Lens' OperationsList (Maybe Text)-olPageToken-  = lens _olPageToken (\ s a -> s{_olPageToken = a})---- | The standard list page size.-olPageSize :: Lens' OperationsList (Maybe Int32)-olPageSize-  = lens _olPageSize (\ s a -> s{_olPageSize = a}) .-      mapping _Coerce---- | JSONP-olCallback :: Lens' OperationsList (Maybe Text)-olCallback-  = lens _olCallback (\ s a -> s{_olCallback = a})--instance GoogleRequest OperationsList where-        type Rs OperationsList = ListOperationsResponse-        type Scopes OperationsList =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient OperationsList'{..}-          = go _olName _olXgafv _olUploadProtocol-              _olAccessToken-              _olUploadType-              _olFilter-              _olPageToken-              _olPageSize-              _olCallback-              (Just AltJSON)-              accessContextManagerService-          where go-                  = buildClient (Proxy :: Proxy OperationsListResource)-                      mempty
gogol-accesscontextmanager.cabal view
@@ -1,65 +1,99 @@-name:                  gogol-accesscontextmanager-version:               0.5.0-synopsis:              Google Access Context Manager SDK.-homepage:              https://github.com/brendanhay/gogol-bug-reports:           https://github.com/brendanhay/gogol/issues-license:               OtherLicense-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2015-2016 Brendan Hay-category:              Network, Google, Cloud-build-type:            Simple-cabal-version:         >= 1.10-extra-source-files:    README.md src/.gitkeep+cabal-version:      2.2+name:               gogol-accesscontextmanager+version:            1.0.0+synopsis:           Google Access Context Manager SDK.+homepage:           https://github.com/brendanhay/gogol+bug-reports:        https://github.com/brendanhay/gogol/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+gogol@gmail.com>, Toni Cebrián <toni@tonicebrian.com> +copyright:          Copyright (c) 2015-2025 Brendan Hay+category:           Google+build-type:         Simple+extra-source-files:+  README.md+  src/.gitkeep+ description:-    An API for setting attribute based access control to requests to GCP-    services.-    .-    /Warning:/ This is an experimental prototype/preview release which is still-    under exploratory development and not intended for public use, caveat emptor!-    .-    This library is compatible with version @v1@-    of the API.+  An API for setting attribute based access control to requests to Google Cloud services. /Warning:/ Do not mix /v1alpha/ and /v1/ API usage in the same access policy. The v1alpha API supports new Access Context Manager features, which may have different attributes or behaviors that are not supported by v1. The practice of mixed API usage within a policy may result in the inability to update that policy, including any access levels or service perimeters belonging to it. It is not recommended to use both v1 and v1alpha for modifying policies with critical service perimeters. Modifications using v1alpha should be limited to policies with non-production\/non-critical service perimeters.+  .+  /Warning:/ This is an experimental prototype/preview release which is still+  under exploratory development and not intended for public use, caveat emptor!+  .+  This library is compatible with version @v1@+  of the API.  source-repository head-    type:     git-    location: git://github.com/brendanhay/gogol.git+  type:     git+  location: git://github.com/brendanhay/gogol.git+  subdir:   gogol-accesscontextmanager +flag field-selectors+  description:+    If record field selectors should be enabled. Disabling this requires GHC >=9.2 and the NoFieldSelectors extension.++  default:     False+  manual:      True+ library-    default-language:  Haskell2010-    hs-source-dirs:    src gen+  default-language: GHC2021+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields+    -fwarn-unused-packages -    ghc-options:       -Wall+  if (!flag(field-selectors) && impl(ghc >=9.2))+    default-extensions: NoFieldSelectors -    exposed-modules:-          Network.Google.AccessContextManager-        , Network.Google.AccessContextManager.Types-        , Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Create-        , Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Delete-        , Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Get-        , Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.List-        , Network.Google.Resource.AccessContextManager.AccessPolicies.AccessLevels.Patch-        , Network.Google.Resource.AccessContextManager.AccessPolicies.Create-        , Network.Google.Resource.AccessContextManager.AccessPolicies.Delete-        , Network.Google.Resource.AccessContextManager.AccessPolicies.Get-        , Network.Google.Resource.AccessContextManager.AccessPolicies.List-        , Network.Google.Resource.AccessContextManager.AccessPolicies.Patch-        , Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Create-        , Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Delete-        , Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Get-        , Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.List-        , Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Patch-        , Network.Google.Resource.AccessContextManager.Operations.Cancel-        , Network.Google.Resource.AccessContextManager.Operations.Delete-        , Network.Google.Resource.AccessContextManager.Operations.Get-        , Network.Google.Resource.AccessContextManager.Operations.List+  exposed-modules:+    Gogol.AccessContextManager+    Gogol.AccessContextManager.AccessPolicies.AccessLevels.Create+    Gogol.AccessContextManager.AccessPolicies.AccessLevels.Delete+    Gogol.AccessContextManager.AccessPolicies.AccessLevels.Get+    Gogol.AccessContextManager.AccessPolicies.AccessLevels.List+    Gogol.AccessContextManager.AccessPolicies.AccessLevels.Patch+    Gogol.AccessContextManager.AccessPolicies.AccessLevels.ReplaceAll+    Gogol.AccessContextManager.AccessPolicies.AccessLevels.TestIamPermissions+    Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Create+    Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Delete+    Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Get+    Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.List+    Gogol.AccessContextManager.AccessPolicies.AuthorizedOrgsDescs.Patch+    Gogol.AccessContextManager.AccessPolicies.Create+    Gogol.AccessContextManager.AccessPolicies.Delete+    Gogol.AccessContextManager.AccessPolicies.Get+    Gogol.AccessContextManager.AccessPolicies.GetIamPolicy+    Gogol.AccessContextManager.AccessPolicies.List+    Gogol.AccessContextManager.AccessPolicies.Patch+    Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Commit+    Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Create+    Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Delete+    Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Get+    Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.List+    Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.Patch+    Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.ReplaceAll+    Gogol.AccessContextManager.AccessPolicies.ServicePerimeters.TestIamPermissions+    Gogol.AccessContextManager.AccessPolicies.SetIamPolicy+    Gogol.AccessContextManager.AccessPolicies.TestIamPermissions+    Gogol.AccessContextManager.Operations.Cancel+    Gogol.AccessContextManager.Operations.Delete+    Gogol.AccessContextManager.Operations.Get+    Gogol.AccessContextManager.Operations.List+    Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Create+    Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Delete+    Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Get+    Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.List+    Gogol.AccessContextManager.Organizations.GcpUserAccessBindings.Patch+    Gogol.AccessContextManager.Services.Get+    Gogol.AccessContextManager.Services.List+    Gogol.AccessContextManager.Types -    other-modules:-          Network.Google.AccessContextManager.Types.Product-        , Network.Google.AccessContextManager.Types.Sum+  other-modules:+    Gogol.AccessContextManager.Internal.Product+    Gogol.AccessContextManager.Internal.Sum -    build-depends:-          gogol-core == 0.5.0.*-        , base       >= 4.7 && < 5+  build-depends:    gogol-core ^>=1.0.0