packages feed

gogol-accessapproval 0.5.0 → 1.0.0

raw patch · 56 files changed

+5016/−4107 lines, 56 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/AccessApproval.hs view
@@ -0,0 +1,284 @@+{-# 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.AccessApproval+-- 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 controlling access to data by Google personnel.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference>+module Gogol.AccessApproval+  ( -- * Configuration+    accessApprovalService,++    -- * OAuth Scopes+    CloudPlatform'FullControl,++    -- * Resources++    -- ** accessapproval.folders.approvalRequests.approve+    AccessApprovalFoldersApprovalRequestsApproveResource,+    AccessApprovalFoldersApprovalRequestsApprove (..),+    newAccessApprovalFoldersApprovalRequestsApprove,++    -- ** accessapproval.folders.approvalRequests.dismiss+    AccessApprovalFoldersApprovalRequestsDismissResource,+    AccessApprovalFoldersApprovalRequestsDismiss (..),+    newAccessApprovalFoldersApprovalRequestsDismiss,++    -- ** accessapproval.folders.approvalRequests.get+    AccessApprovalFoldersApprovalRequestsGetResource,+    AccessApprovalFoldersApprovalRequestsGet (..),+    newAccessApprovalFoldersApprovalRequestsGet,++    -- ** accessapproval.folders.approvalRequests.invalidate+    AccessApprovalFoldersApprovalRequestsInvalidateResource,+    AccessApprovalFoldersApprovalRequestsInvalidate (..),+    newAccessApprovalFoldersApprovalRequestsInvalidate,++    -- ** accessapproval.folders.approvalRequests.list+    AccessApprovalFoldersApprovalRequestsListResource,+    AccessApprovalFoldersApprovalRequestsList (..),+    newAccessApprovalFoldersApprovalRequestsList,++    -- ** accessapproval.folders.deleteAccessApprovalSettings+    AccessApprovalFoldersDeleteAccessApprovalSettingsResource,+    AccessApprovalFoldersDeleteAccessApprovalSettings (..),+    newAccessApprovalFoldersDeleteAccessApprovalSettings,++    -- ** accessapproval.folders.getAccessApprovalSettings+    AccessApprovalFoldersGetAccessApprovalSettingsResource,+    AccessApprovalFoldersGetAccessApprovalSettings (..),+    newAccessApprovalFoldersGetAccessApprovalSettings,++    -- ** accessapproval.folders.getServiceAccount+    AccessApprovalFoldersGetServiceAccountResource,+    AccessApprovalFoldersGetServiceAccount (..),+    newAccessApprovalFoldersGetServiceAccount,++    -- ** accessapproval.folders.updateAccessApprovalSettings+    AccessApprovalFoldersUpdateAccessApprovalSettingsResource,+    AccessApprovalFoldersUpdateAccessApprovalSettings (..),+    newAccessApprovalFoldersUpdateAccessApprovalSettings,++    -- ** accessapproval.organizations.approvalRequests.approve+    AccessApprovalOrganizationsApprovalRequestsApproveResource,+    AccessApprovalOrganizationsApprovalRequestsApprove (..),+    newAccessApprovalOrganizationsApprovalRequestsApprove,++    -- ** accessapproval.organizations.approvalRequests.dismiss+    AccessApprovalOrganizationsApprovalRequestsDismissResource,+    AccessApprovalOrganizationsApprovalRequestsDismiss (..),+    newAccessApprovalOrganizationsApprovalRequestsDismiss,++    -- ** accessapproval.organizations.approvalRequests.get+    AccessApprovalOrganizationsApprovalRequestsGetResource,+    AccessApprovalOrganizationsApprovalRequestsGet (..),+    newAccessApprovalOrganizationsApprovalRequestsGet,++    -- ** accessapproval.organizations.approvalRequests.invalidate+    AccessApprovalOrganizationsApprovalRequestsInvalidateResource,+    AccessApprovalOrganizationsApprovalRequestsInvalidate (..),+    newAccessApprovalOrganizationsApprovalRequestsInvalidate,++    -- ** accessapproval.organizations.approvalRequests.list+    AccessApprovalOrganizationsApprovalRequestsListResource,+    AccessApprovalOrganizationsApprovalRequestsList (..),+    newAccessApprovalOrganizationsApprovalRequestsList,++    -- ** accessapproval.organizations.deleteAccessApprovalSettings+    AccessApprovalOrganizationsDeleteAccessApprovalSettingsResource,+    AccessApprovalOrganizationsDeleteAccessApprovalSettings (..),+    newAccessApprovalOrganizationsDeleteAccessApprovalSettings,++    -- ** accessapproval.organizations.getAccessApprovalSettings+    AccessApprovalOrganizationsGetAccessApprovalSettingsResource,+    AccessApprovalOrganizationsGetAccessApprovalSettings (..),+    newAccessApprovalOrganizationsGetAccessApprovalSettings,++    -- ** accessapproval.organizations.getServiceAccount+    AccessApprovalOrganizationsGetServiceAccountResource,+    AccessApprovalOrganizationsGetServiceAccount (..),+    newAccessApprovalOrganizationsGetServiceAccount,++    -- ** accessapproval.organizations.updateAccessApprovalSettings+    AccessApprovalOrganizationsUpdateAccessApprovalSettingsResource,+    AccessApprovalOrganizationsUpdateAccessApprovalSettings (..),+    newAccessApprovalOrganizationsUpdateAccessApprovalSettings,++    -- ** accessapproval.projects.approvalRequests.approve+    AccessApprovalProjectsApprovalRequestsApproveResource,+    AccessApprovalProjectsApprovalRequestsApprove (..),+    newAccessApprovalProjectsApprovalRequestsApprove,++    -- ** accessapproval.projects.approvalRequests.dismiss+    AccessApprovalProjectsApprovalRequestsDismissResource,+    AccessApprovalProjectsApprovalRequestsDismiss (..),+    newAccessApprovalProjectsApprovalRequestsDismiss,++    -- ** accessapproval.projects.approvalRequests.get+    AccessApprovalProjectsApprovalRequestsGetResource,+    AccessApprovalProjectsApprovalRequestsGet (..),+    newAccessApprovalProjectsApprovalRequestsGet,++    -- ** accessapproval.projects.approvalRequests.invalidate+    AccessApprovalProjectsApprovalRequestsInvalidateResource,+    AccessApprovalProjectsApprovalRequestsInvalidate (..),+    newAccessApprovalProjectsApprovalRequestsInvalidate,++    -- ** accessapproval.projects.approvalRequests.list+    AccessApprovalProjectsApprovalRequestsListResource,+    AccessApprovalProjectsApprovalRequestsList (..),+    newAccessApprovalProjectsApprovalRequestsList,++    -- ** accessapproval.projects.deleteAccessApprovalSettings+    AccessApprovalProjectsDeleteAccessApprovalSettingsResource,+    AccessApprovalProjectsDeleteAccessApprovalSettings (..),+    newAccessApprovalProjectsDeleteAccessApprovalSettings,++    -- ** accessapproval.projects.getAccessApprovalSettings+    AccessApprovalProjectsGetAccessApprovalSettingsResource,+    AccessApprovalProjectsGetAccessApprovalSettings (..),+    newAccessApprovalProjectsGetAccessApprovalSettings,++    -- ** accessapproval.projects.getServiceAccount+    AccessApprovalProjectsGetServiceAccountResource,+    AccessApprovalProjectsGetServiceAccount (..),+    newAccessApprovalProjectsGetServiceAccount,++    -- ** accessapproval.projects.updateAccessApprovalSettings+    AccessApprovalProjectsUpdateAccessApprovalSettingsResource,+    AccessApprovalProjectsUpdateAccessApprovalSettings (..),+    newAccessApprovalProjectsUpdateAccessApprovalSettings,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** AccessApprovalServiceAccount+    AccessApprovalServiceAccount (..),+    newAccessApprovalServiceAccount,++    -- ** AccessApprovalSettings+    AccessApprovalSettings (..),+    newAccessApprovalSettings,++    -- ** AccessApprovalSettings_RequestScopeMaxWidthPreference+    AccessApprovalSettings_RequestScopeMaxWidthPreference (..),++    -- ** AccessLocations+    AccessLocations (..),+    newAccessLocations,++    -- ** AccessReason+    AccessReason (..),+    newAccessReason,++    -- ** AccessReason_Type+    AccessReason_Type (..),++    -- ** ApprovalRequest+    ApprovalRequest (..),+    newApprovalRequest,++    -- ** ApproveApprovalRequestMessage+    ApproveApprovalRequestMessage (..),+    newApproveApprovalRequestMessage,++    -- ** ApproveDecision+    ApproveDecision (..),+    newApproveDecision,++    -- ** AugmentedInfo+    AugmentedInfo (..),+    newAugmentedInfo,++    -- ** DismissApprovalRequestMessage+    DismissApprovalRequestMessage (..),+    newDismissApprovalRequestMessage,++    -- ** DismissDecision+    DismissDecision (..),+    newDismissDecision,++    -- ** Empty+    Empty (..),+    newEmpty,++    -- ** EnrolledService+    EnrolledService (..),+    newEnrolledService,++    -- ** EnrolledService_EnrollmentLevel+    EnrolledService_EnrollmentLevel (..),++    -- ** InvalidateApprovalRequestMessage+    InvalidateApprovalRequestMessage (..),+    newInvalidateApprovalRequestMessage,++    -- ** ListApprovalRequestsResponse+    ListApprovalRequestsResponse (..),+    newListApprovalRequestsResponse,++    -- ** ResourceProperties+    ResourceProperties (..),+    newResourceProperties,++    -- ** SignatureInfo+    SignatureInfo (..),+    newSignatureInfo,++    -- ** SignatureInfo_GoogleKeyAlgorithm+    SignatureInfo_GoogleKeyAlgorithm (..),+  )+where++import Gogol.AccessApproval.Folders.ApprovalRequests.Approve+import Gogol.AccessApproval.Folders.ApprovalRequests.Dismiss+import Gogol.AccessApproval.Folders.ApprovalRequests.Get+import Gogol.AccessApproval.Folders.ApprovalRequests.Invalidate+import Gogol.AccessApproval.Folders.ApprovalRequests.List+import Gogol.AccessApproval.Folders.DeleteAccessApprovalSettings+import Gogol.AccessApproval.Folders.GetAccessApprovalSettings+import Gogol.AccessApproval.Folders.GetServiceAccount+import Gogol.AccessApproval.Folders.UpdateAccessApprovalSettings+import Gogol.AccessApproval.Organizations.ApprovalRequests.Approve+import Gogol.AccessApproval.Organizations.ApprovalRequests.Dismiss+import Gogol.AccessApproval.Organizations.ApprovalRequests.Get+import Gogol.AccessApproval.Organizations.ApprovalRequests.Invalidate+import Gogol.AccessApproval.Organizations.ApprovalRequests.List+import Gogol.AccessApproval.Organizations.DeleteAccessApprovalSettings+import Gogol.AccessApproval.Organizations.GetAccessApprovalSettings+import Gogol.AccessApproval.Organizations.GetServiceAccount+import Gogol.AccessApproval.Organizations.UpdateAccessApprovalSettings+import Gogol.AccessApproval.Projects.ApprovalRequests.Approve+import Gogol.AccessApproval.Projects.ApprovalRequests.Dismiss+import Gogol.AccessApproval.Projects.ApprovalRequests.Get+import Gogol.AccessApproval.Projects.ApprovalRequests.Invalidate+import Gogol.AccessApproval.Projects.ApprovalRequests.List+import Gogol.AccessApproval.Projects.DeleteAccessApprovalSettings+import Gogol.AccessApproval.Projects.GetAccessApprovalSettings+import Gogol.AccessApproval.Projects.GetServiceAccount+import Gogol.AccessApproval.Projects.UpdateAccessApprovalSettings+import Gogol.AccessApproval.Types
+ gen/Gogol/AccessApproval/Folders/ApprovalRequests/Approve.hs view
@@ -0,0 +1,124 @@+{-# 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.AccessApproval.Folders.ApprovalRequests.Approve+-- 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)+--+-- Approves a request and returns the updated ApprovalRequest. Returns NOT/FOUND if the request does not exist. Returns FAILED/PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.approve@.+module Gogol.AccessApproval.Folders.ApprovalRequests.Approve+  ( -- * Resource+    AccessApprovalFoldersApprovalRequestsApproveResource,++    -- ** Constructing a Request+    AccessApprovalFoldersApprovalRequestsApprove (..),+    newAccessApprovalFoldersApprovalRequestsApprove,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.folders.approvalRequests.approve@ method which the+-- 'AccessApprovalFoldersApprovalRequestsApprove' request conforms to.+type AccessApprovalFoldersApprovalRequestsApproveResource =+  "v1"+    Core.:> Core.CaptureMode "name" "approve" 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] ApproveApprovalRequestMessage+    Core.:> Core.Post '[Core.JSON] ApprovalRequest++-- | Approves a request and returns the updated ApprovalRequest. Returns NOT/FOUND if the request does not exist. Returns FAILED/PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ 'newAccessApprovalFoldersApprovalRequestsApprove' smart constructor.+data AccessApprovalFoldersApprovalRequestsApprove = AccessApprovalFoldersApprovalRequestsApprove+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the approval request to approve.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: ApproveApprovalRequestMessage,+    -- | 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 'AccessApprovalFoldersApprovalRequestsApprove' with the minimum fields required to make a request.+newAccessApprovalFoldersApprovalRequestsApprove ::+  -- |  Name of the approval request to approve. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ApproveApprovalRequestMessage ->+  AccessApprovalFoldersApprovalRequestsApprove+newAccessApprovalFoldersApprovalRequestsApprove name payload =+  AccessApprovalFoldersApprovalRequestsApprove+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalFoldersApprovalRequestsApprove+  where+  type+    Rs AccessApprovalFoldersApprovalRequestsApprove =+      ApprovalRequest+  type+    Scopes AccessApprovalFoldersApprovalRequestsApprove =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalFoldersApprovalRequestsApprove {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalFoldersApprovalRequestsApproveResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Folders/ApprovalRequests/Dismiss.hs view
@@ -0,0 +1,124 @@+{-# 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.AccessApproval.Folders.ApprovalRequests.Dismiss+-- 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)+--+-- Dismisses a request. Returns the updated ApprovalRequest. NOTE: This does not deny access to the resource if another request has been made and approved. It is equivalent in effect to ignoring the request altogether. Returns NOT/FOUND if the request does not exist. Returns FAILED/PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.dismiss@.+module Gogol.AccessApproval.Folders.ApprovalRequests.Dismiss+  ( -- * Resource+    AccessApprovalFoldersApprovalRequestsDismissResource,++    -- ** Constructing a Request+    AccessApprovalFoldersApprovalRequestsDismiss (..),+    newAccessApprovalFoldersApprovalRequestsDismiss,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.folders.approvalRequests.dismiss@ method which the+-- 'AccessApprovalFoldersApprovalRequestsDismiss' request conforms to.+type AccessApprovalFoldersApprovalRequestsDismissResource =+  "v1"+    Core.:> Core.CaptureMode "name" "dismiss" 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] DismissApprovalRequestMessage+    Core.:> Core.Post '[Core.JSON] ApprovalRequest++-- | Dismisses a request. Returns the updated ApprovalRequest. NOTE: This does not deny access to the resource if another request has been made and approved. It is equivalent in effect to ignoring the request altogether. Returns NOT/FOUND if the request does not exist. Returns FAILED/PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ 'newAccessApprovalFoldersApprovalRequestsDismiss' smart constructor.+data AccessApprovalFoldersApprovalRequestsDismiss = AccessApprovalFoldersApprovalRequestsDismiss+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the ApprovalRequest to dismiss.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: DismissApprovalRequestMessage,+    -- | 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 'AccessApprovalFoldersApprovalRequestsDismiss' with the minimum fields required to make a request.+newAccessApprovalFoldersApprovalRequestsDismiss ::+  -- |  Name of the ApprovalRequest to dismiss. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  DismissApprovalRequestMessage ->+  AccessApprovalFoldersApprovalRequestsDismiss+newAccessApprovalFoldersApprovalRequestsDismiss name payload =+  AccessApprovalFoldersApprovalRequestsDismiss+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalFoldersApprovalRequestsDismiss+  where+  type+    Rs AccessApprovalFoldersApprovalRequestsDismiss =+      ApprovalRequest+  type+    Scopes AccessApprovalFoldersApprovalRequestsDismiss =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalFoldersApprovalRequestsDismiss {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalFoldersApprovalRequestsDismissResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Folders/ApprovalRequests/Get.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.AccessApproval.Folders.ApprovalRequests.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 approval request. Returns NOT_FOUND if the request does not exist.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.get@.+module Gogol.AccessApproval.Folders.ApprovalRequests.Get+  ( -- * Resource+    AccessApprovalFoldersApprovalRequestsGetResource,++    -- ** Constructing a Request+    AccessApprovalFoldersApprovalRequestsGet (..),+    newAccessApprovalFoldersApprovalRequestsGet,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.folders.approvalRequests.get@ method which the+-- 'AccessApprovalFoldersApprovalRequestsGet' request conforms to.+type AccessApprovalFoldersApprovalRequestsGetResource =+  "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] ApprovalRequest++-- | Gets an approval request. Returns NOT_FOUND if the request does not exist.+--+-- /See:/ 'newAccessApprovalFoldersApprovalRequestsGet' smart constructor.+data AccessApprovalFoldersApprovalRequestsGet = AccessApprovalFoldersApprovalRequestsGet+  { -- | 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 approval request to retrieve. Format: \"{projects|folders|organizations}\/{id}\/approvalRequests\/{approval_request}\"+    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 'AccessApprovalFoldersApprovalRequestsGet' with the minimum fields required to make a request.+newAccessApprovalFoldersApprovalRequestsGet ::+  -- |  The name of the approval request to retrieve. Format: \"{projects|folders|organizations}\/{id}\/approvalRequests\/{approval_request}\" See 'name'.+  Core.Text ->+  AccessApprovalFoldersApprovalRequestsGet+newAccessApprovalFoldersApprovalRequestsGet name =+  AccessApprovalFoldersApprovalRequestsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalFoldersApprovalRequestsGet+  where+  type Rs AccessApprovalFoldersApprovalRequestsGet = ApprovalRequest+  type+    Scopes AccessApprovalFoldersApprovalRequestsGet =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalFoldersApprovalRequestsGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalFoldersApprovalRequestsGetResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Folders/ApprovalRequests/Invalidate.hs view
@@ -0,0 +1,124 @@+{-# 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.AccessApproval.Folders.ApprovalRequests.Invalidate+-- 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)+--+-- Invalidates an existing ApprovalRequest. Returns the updated ApprovalRequest. NOTE: This does not deny access to the resource if another request has been made and approved. It only invalidates a single approval. Returns FAILED_PRECONDITION if the request exists but is not in an approved state.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.invalidate@.+module Gogol.AccessApproval.Folders.ApprovalRequests.Invalidate+  ( -- * Resource+    AccessApprovalFoldersApprovalRequestsInvalidateResource,++    -- ** Constructing a Request+    AccessApprovalFoldersApprovalRequestsInvalidate (..),+    newAccessApprovalFoldersApprovalRequestsInvalidate,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.folders.approvalRequests.invalidate@ method which the+-- 'AccessApprovalFoldersApprovalRequestsInvalidate' request conforms to.+type AccessApprovalFoldersApprovalRequestsInvalidateResource =+  "v1"+    Core.:> Core.CaptureMode "name" "invalidate" 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] InvalidateApprovalRequestMessage+    Core.:> Core.Post '[Core.JSON] ApprovalRequest++-- | Invalidates an existing ApprovalRequest. Returns the updated ApprovalRequest. NOTE: This does not deny access to the resource if another request has been made and approved. It only invalidates a single approval. Returns FAILED_PRECONDITION if the request exists but is not in an approved state.+--+-- /See:/ 'newAccessApprovalFoldersApprovalRequestsInvalidate' smart constructor.+data AccessApprovalFoldersApprovalRequestsInvalidate = AccessApprovalFoldersApprovalRequestsInvalidate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the ApprovalRequest to invalidate.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: InvalidateApprovalRequestMessage,+    -- | 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 'AccessApprovalFoldersApprovalRequestsInvalidate' with the minimum fields required to make a request.+newAccessApprovalFoldersApprovalRequestsInvalidate ::+  -- |  Name of the ApprovalRequest to invalidate. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  InvalidateApprovalRequestMessage ->+  AccessApprovalFoldersApprovalRequestsInvalidate+newAccessApprovalFoldersApprovalRequestsInvalidate name payload =+  AccessApprovalFoldersApprovalRequestsInvalidate+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalFoldersApprovalRequestsInvalidate+  where+  type+    Rs AccessApprovalFoldersApprovalRequestsInvalidate =+      ApprovalRequest+  type+    Scopes AccessApprovalFoldersApprovalRequestsInvalidate =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalFoldersApprovalRequestsInvalidate {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalFoldersApprovalRequestsInvalidateResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Folders/ApprovalRequests/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.AccessApproval.Folders.ApprovalRequests.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 approval requests associated with a project, folder, or organization. Approval requests can be filtered by state (pending, active, dismissed). The order is reverse chronological.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.list@.+module Gogol.AccessApproval.Folders.ApprovalRequests.List+  ( -- * Resource+    AccessApprovalFoldersApprovalRequestsListResource,++    -- ** Constructing a Request+    AccessApprovalFoldersApprovalRequestsList (..),+    newAccessApprovalFoldersApprovalRequestsList,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.folders.approvalRequests.list@ method which the+-- 'AccessApprovalFoldersApprovalRequestsList' request conforms to.+type AccessApprovalFoldersApprovalRequestsListResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "approvalRequests"+    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] ListApprovalRequestsResponse++-- | Lists approval requests associated with a project, folder, or organization. Approval requests can be filtered by state (pending, active, dismissed). The order is reverse chronological.+--+-- /See:/ 'newAccessApprovalFoldersApprovalRequestsList' smart constructor.+data AccessApprovalFoldersApprovalRequestsList = AccessApprovalFoldersApprovalRequestsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | A filter on the type of approval requests to retrieve. Must be one of the following values: * [not set]: Requests that are pending or have active approvals. * ALL: All requests. * PENDING: Only pending requests. * ACTIVE: Only active (i.e. currently approved) requests. * DISMISSED: Only requests that have been dismissed, or requests that are not approved and past expiration. * EXPIRED: Only requests that have been approved, and the approval has expired. * HISTORY: Active, dismissed and expired requests.+    filter :: (Core.Maybe Core.Text),+    -- | Requested page size.+    pageSize :: (Core.Maybe Core.Int32),+    -- | A token identifying the page of results to return.+    pageToken :: (Core.Maybe Core.Text),+    -- | The parent resource. This may be \"projects\/{project}\", \"folders\/{folder}\", or \"organizations\/{organization}\".+    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 'AccessApprovalFoldersApprovalRequestsList' with the minimum fields required to make a request.+newAccessApprovalFoldersApprovalRequestsList ::+  -- |  The parent resource. This may be \"projects\/{project}\", \"folders\/{folder}\", or \"organizations\/{organization}\". See 'parent'.+  Core.Text ->+  AccessApprovalFoldersApprovalRequestsList+newAccessApprovalFoldersApprovalRequestsList parent =+  AccessApprovalFoldersApprovalRequestsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      parent = parent,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalFoldersApprovalRequestsList+  where+  type+    Rs AccessApprovalFoldersApprovalRequestsList =+      ListApprovalRequestsResponse+  type+    Scopes AccessApprovalFoldersApprovalRequestsList =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalFoldersApprovalRequestsList {..} =+    go+      parent+      xgafv+      accessToken+      callback+      filter+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalFoldersApprovalRequestsListResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Folders/DeleteAccessApprovalSettings.hs view
@@ -0,0 +1,116 @@+{-# 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.AccessApproval.Folders.DeleteAccessApprovalSettings+-- 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 the settings associated with a project, folder, or organization. This will have the effect of disabling Access Approval for the project, folder, or organization, but only if all ancestors also have Access Approval disabled. If Access Approval is enabled at a higher level of the hierarchy, then Access Approval will still be enabled at this level as the settings are inherited.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.folders.deleteAccessApprovalSettings@.+module Gogol.AccessApproval.Folders.DeleteAccessApprovalSettings+  ( -- * Resource+    AccessApprovalFoldersDeleteAccessApprovalSettingsResource,++    -- ** Constructing a Request+    AccessApprovalFoldersDeleteAccessApprovalSettings (..),+    newAccessApprovalFoldersDeleteAccessApprovalSettings,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.folders.deleteAccessApprovalSettings@ method which the+-- 'AccessApprovalFoldersDeleteAccessApprovalSettings' request conforms to.+type AccessApprovalFoldersDeleteAccessApprovalSettingsResource =+  "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 the settings associated with a project, folder, or organization. This will have the effect of disabling Access Approval for the project, folder, or organization, but only if all ancestors also have Access Approval disabled. If Access Approval is enabled at a higher level of the hierarchy, then Access Approval will still be enabled at this level as the settings are inherited.+--+-- /See:/ 'newAccessApprovalFoldersDeleteAccessApprovalSettings' smart constructor.+data AccessApprovalFoldersDeleteAccessApprovalSettings = AccessApprovalFoldersDeleteAccessApprovalSettings+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the AccessApprovalSettings to delete.+    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 'AccessApprovalFoldersDeleteAccessApprovalSettings' with the minimum fields required to make a request.+newAccessApprovalFoldersDeleteAccessApprovalSettings ::+  -- |  Name of the AccessApprovalSettings to delete. See 'name'.+  Core.Text ->+  AccessApprovalFoldersDeleteAccessApprovalSettings+newAccessApprovalFoldersDeleteAccessApprovalSettings name =+  AccessApprovalFoldersDeleteAccessApprovalSettings+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalFoldersDeleteAccessApprovalSettings+  where+  type Rs AccessApprovalFoldersDeleteAccessApprovalSettings = Empty+  type+    Scopes AccessApprovalFoldersDeleteAccessApprovalSettings =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalFoldersDeleteAccessApprovalSettings {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy+                AccessApprovalFoldersDeleteAccessApprovalSettingsResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Folders/GetAccessApprovalSettings.hs view
@@ -0,0 +1,117 @@+{-# 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.AccessApproval.Folders.GetAccessApprovalSettings+-- 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 settings associated with a project, folder, or organization.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.folders.getAccessApprovalSettings@.+module Gogol.AccessApproval.Folders.GetAccessApprovalSettings+  ( -- * Resource+    AccessApprovalFoldersGetAccessApprovalSettingsResource,++    -- ** Constructing a Request+    AccessApprovalFoldersGetAccessApprovalSettings (..),+    newAccessApprovalFoldersGetAccessApprovalSettings,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.folders.getAccessApprovalSettings@ method which the+-- 'AccessApprovalFoldersGetAccessApprovalSettings' request conforms to.+type AccessApprovalFoldersGetAccessApprovalSettingsResource =+  "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] AccessApprovalSettings++-- | Gets the settings associated with a project, folder, or organization.+--+-- /See:/ 'newAccessApprovalFoldersGetAccessApprovalSettings' smart constructor.+data AccessApprovalFoldersGetAccessApprovalSettings = AccessApprovalFoldersGetAccessApprovalSettings+  { -- | 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 AccessApprovalSettings to retrieve. Format: \"{projects|folders|organizations}\/{id}\/accessApprovalSettings\"+    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 'AccessApprovalFoldersGetAccessApprovalSettings' with the minimum fields required to make a request.+newAccessApprovalFoldersGetAccessApprovalSettings ::+  -- |  The name of the AccessApprovalSettings to retrieve. Format: \"{projects|folders|organizations}\/{id}\/accessApprovalSettings\" See 'name'.+  Core.Text ->+  AccessApprovalFoldersGetAccessApprovalSettings+newAccessApprovalFoldersGetAccessApprovalSettings name =+  AccessApprovalFoldersGetAccessApprovalSettings+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalFoldersGetAccessApprovalSettings+  where+  type+    Rs AccessApprovalFoldersGetAccessApprovalSettings =+      AccessApprovalSettings+  type+    Scopes AccessApprovalFoldersGetAccessApprovalSettings =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalFoldersGetAccessApprovalSettings {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalFoldersGetAccessApprovalSettingsResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Folders/GetServiceAccount.hs view
@@ -0,0 +1,113 @@+{-# 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.AccessApproval.Folders.GetServiceAccount+-- 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)+--+-- Retrieves the service account that is used by Access Approval to access KMS keys for signing approved approval requests.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.folders.getServiceAccount@.+module Gogol.AccessApproval.Folders.GetServiceAccount+  ( -- * Resource+    AccessApprovalFoldersGetServiceAccountResource,++    -- ** Constructing a Request+    AccessApprovalFoldersGetServiceAccount (..),+    newAccessApprovalFoldersGetServiceAccount,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.folders.getServiceAccount@ method which the+-- 'AccessApprovalFoldersGetServiceAccount' request conforms to.+type AccessApprovalFoldersGetServiceAccountResource =+  "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] AccessApprovalServiceAccount++-- | Retrieves the service account that is used by Access Approval to access KMS keys for signing approved approval requests.+--+-- /See:/ 'newAccessApprovalFoldersGetServiceAccount' smart constructor.+data AccessApprovalFoldersGetServiceAccount = AccessApprovalFoldersGetServiceAccount+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the AccessApprovalServiceAccount to retrieve.+    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 'AccessApprovalFoldersGetServiceAccount' with the minimum fields required to make a request.+newAccessApprovalFoldersGetServiceAccount ::+  -- |  Name of the AccessApprovalServiceAccount to retrieve. See 'name'.+  Core.Text ->+  AccessApprovalFoldersGetServiceAccount+newAccessApprovalFoldersGetServiceAccount name =+  AccessApprovalFoldersGetServiceAccount+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AccessApprovalFoldersGetServiceAccount where+  type+    Rs AccessApprovalFoldersGetServiceAccount =+      AccessApprovalServiceAccount+  type+    Scopes AccessApprovalFoldersGetServiceAccount =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalFoldersGetServiceAccount {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalFoldersGetServiceAccountResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Folders/UpdateAccessApprovalSettings.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.AccessApproval.Folders.UpdateAccessApprovalSettings+-- 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 the settings associated with a project, folder, or organization. Settings to update are determined by the value of field_mask.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.folders.updateAccessApprovalSettings@.+module Gogol.AccessApproval.Folders.UpdateAccessApprovalSettings+  ( -- * Resource+    AccessApprovalFoldersUpdateAccessApprovalSettingsResource,++    -- ** Constructing a Request+    AccessApprovalFoldersUpdateAccessApprovalSettings (..),+    newAccessApprovalFoldersUpdateAccessApprovalSettings,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.folders.updateAccessApprovalSettings@ method which the+-- 'AccessApprovalFoldersUpdateAccessApprovalSettings' request conforms to.+type AccessApprovalFoldersUpdateAccessApprovalSettingsResource =+  "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] AccessApprovalSettings+    Core.:> Core.Patch '[Core.JSON] AccessApprovalSettings++-- | Updates the settings associated with a project, folder, or organization. Settings to update are determined by the value of field_mask.+--+-- /See:/ 'newAccessApprovalFoldersUpdateAccessApprovalSettings' smart constructor.+data AccessApprovalFoldersUpdateAccessApprovalSettings = AccessApprovalFoldersUpdateAccessApprovalSettings+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The resource name of the settings. Format is one of: * \"projects\/{project}\/accessApprovalSettings\" * \"folders\/{folder}\/accessApprovalSettings\" * \"organizations\/{organization}\/accessApprovalSettings\"+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: AccessApprovalSettings,+    -- | The update mask applies to the settings. Only the top level fields of AccessApprovalSettings (notification/emails & enrolled/services) are supported. For each field, if it is included, the currently stored value will be entirely overwritten with the value of the field passed in this request. For the @FieldMask@ definition, see https:\/\/developers.google.com\/protocol-buffers\/docs\/reference\/google.protobuf#fieldmask If this field is left unset, only the notification_emails field will be updated.+    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 'AccessApprovalFoldersUpdateAccessApprovalSettings' with the minimum fields required to make a request.+newAccessApprovalFoldersUpdateAccessApprovalSettings ::+  -- |  The resource name of the settings. Format is one of: * \"projects\/{project}\/accessApprovalSettings\" * \"folders\/{folder}\/accessApprovalSettings\" * \"organizations\/{organization}\/accessApprovalSettings\" See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  AccessApprovalSettings ->+  AccessApprovalFoldersUpdateAccessApprovalSettings+newAccessApprovalFoldersUpdateAccessApprovalSettings name payload =+  AccessApprovalFoldersUpdateAccessApprovalSettings+    { 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+    AccessApprovalFoldersUpdateAccessApprovalSettings+  where+  type+    Rs AccessApprovalFoldersUpdateAccessApprovalSettings =+      AccessApprovalSettings+  type+    Scopes AccessApprovalFoldersUpdateAccessApprovalSettings =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalFoldersUpdateAccessApprovalSettings {..} =+    go+      name+      xgafv+      accessToken+      callback+      updateMask+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy+                AccessApprovalFoldersUpdateAccessApprovalSettingsResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Internal/Product.hs view
@@ -0,0 +1,757 @@+{-# 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.AccessApproval.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.AccessApproval.Internal.Product+  ( -- * AccessApprovalServiceAccount+    AccessApprovalServiceAccount (..),+    newAccessApprovalServiceAccount,++    -- * AccessApprovalSettings+    AccessApprovalSettings (..),+    newAccessApprovalSettings,++    -- * AccessLocations+    AccessLocations (..),+    newAccessLocations,++    -- * AccessReason+    AccessReason (..),+    newAccessReason,++    -- * ApprovalRequest+    ApprovalRequest (..),+    newApprovalRequest,++    -- * ApproveApprovalRequestMessage+    ApproveApprovalRequestMessage (..),+    newApproveApprovalRequestMessage,++    -- * ApproveDecision+    ApproveDecision (..),+    newApproveDecision,++    -- * AugmentedInfo+    AugmentedInfo (..),+    newAugmentedInfo,++    -- * DismissApprovalRequestMessage+    DismissApprovalRequestMessage (..),+    newDismissApprovalRequestMessage,++    -- * DismissDecision+    DismissDecision (..),+    newDismissDecision,++    -- * Empty+    Empty (..),+    newEmpty,++    -- * EnrolledService+    EnrolledService (..),+    newEnrolledService,++    -- * InvalidateApprovalRequestMessage+    InvalidateApprovalRequestMessage (..),+    newInvalidateApprovalRequestMessage,++    -- * ListApprovalRequestsResponse+    ListApprovalRequestsResponse (..),+    newListApprovalRequestsResponse,++    -- * ResourceProperties+    ResourceProperties (..),+    newResourceProperties,++    -- * SignatureInfo+    SignatureInfo (..),+    newSignatureInfo,+  )+where++import Gogol.AccessApproval.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Access Approval service account related to a project\/folder\/organization.+--+-- /See:/ 'newAccessApprovalServiceAccount' smart constructor.+data AccessApprovalServiceAccount = AccessApprovalServiceAccount+  { -- | Email address of the service account.+    accountEmail :: (Core.Maybe Core.Text),+    -- | The resource name of the Access Approval service account. Format is one of: * \"projects\/{project}\/serviceAccount\" * \"folders\/{folder}\/serviceAccount\" * \"organizations\/{organization}\/serviceAccount\"+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessApprovalServiceAccount' with the minimum fields required to make a request.+newAccessApprovalServiceAccount ::+  AccessApprovalServiceAccount+newAccessApprovalServiceAccount =+  AccessApprovalServiceAccount+    { accountEmail = Core.Nothing,+      name = Core.Nothing+    }++instance Core.FromJSON AccessApprovalServiceAccount where+  parseJSON =+    Core.withObject+      "AccessApprovalServiceAccount"+      ( \o ->+          AccessApprovalServiceAccount+            Core.<$> (o Core..:? "accountEmail")+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON AccessApprovalServiceAccount where+  toJSON AccessApprovalServiceAccount {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountEmail" Core..=) Core.<$> accountEmail,+            ("name" Core..=) Core.<$> name+          ]+      )++-- | Settings on a Project\/Folder\/Organization related to Access Approval.+--+-- /See:/ 'newAccessApprovalSettings' smart constructor.+data AccessApprovalSettings = AccessApprovalSettings+  { -- | The asymmetric crypto key version to use for signing approval requests. Empty active/key/version indicates that a Google-managed key should be used for signing. This property will be ignored if set by an ancestor of this resource, and new non-empty values may not be set.+    activeKeyVersion :: (Core.Maybe Core.Text),+    -- | Output only. This field is read only (not settable via UpdateAccessApprovalSettings method). If the field is true, that indicates that an ancestor of this Project or Folder has set active/key/version (this field will always be unset for the organization since organizations do not have ancestors).+    ancestorHasActiveKeyVersion :: (Core.Maybe Core.Bool),+    -- | Output only. This field is read only (not settable via UpdateAccessApprovalSettings method). If the field is true, that indicates that at least one service is enrolled for Access Approval in one or more ancestors of the Project or Folder (this field will always be unset for the organization since organizations do not have ancestors).+    enrolledAncestor :: (Core.Maybe Core.Bool),+    -- | A list of Google Cloud Services for which the given resource has Access Approval enrolled. Access requests for the resource given by name against any of these services contained here will be required to have explicit approval. If name refers to an organization, enrollment can be done for individual services. If name refers to a folder or project, enrollment can only be done on an all or nothing basis. If a cloud_product is repeated in this list, the first entry will be honored and all following entries will be discarded. A maximum of 10 enrolled services will be enforced, to be expanded as the set of supported services is expanded.+    enrolledServices :: (Core.Maybe [EnrolledService]),+    -- | Output only. This field is read only (not settable via UpdateAccessApprovalSettings method). If the field is true, that indicates that there is some configuration issue with the active/key/version configured at this level in the resource hierarchy (e.g. it doesn\'t exist or the Access Approval service account doesn\'t have the correct permissions on it, etc.) This key version is not necessarily the effective key version at this level, as key versions are inherited top-down.+    invalidKeyVersion :: (Core.Maybe Core.Bool),+    -- | The resource name of the settings. Format is one of: * \"projects\/{project}\/accessApprovalSettings\" * \"folders\/{folder}\/accessApprovalSettings\" * \"organizations\/{organization}\/accessApprovalSettings\"+    name :: (Core.Maybe Core.Text),+    -- | A list of email addresses to which notifications relating to approval requests should be sent. Notifications relating to a resource will be sent to all emails in the settings of ancestor resources of that resource. A maximum of 50 email addresses are allowed.+    notificationEmails :: (Core.Maybe [Core.Text]),+    -- | Optional. A pubsub topic to which notifications relating to approval requests should be sent.+    notificationPubsubTopic :: (Core.Maybe Core.Text),+    -- | This preference is communicated to Google personnel when sending an approval request but can be overridden if necessary.+    preferNoBroadApprovalRequests :: (Core.Maybe Core.Bool),+    -- | This preference is shared with Google personnel, but can be overridden if said personnel deems necessary. The approver ultimately can set the expiration at approval time.+    preferredRequestExpirationDays :: (Core.Maybe Core.Int32),+    -- | Optional. A setting to indicate the maximum width of an Access Approval request.+    requestScopeMaxWidthPreference :: (Core.Maybe AccessApprovalSettings_RequestScopeMaxWidthPreference),+    -- | Optional. A setting to require approval request justifications to be customer visible.+    requireCustomerVisibleJustification :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessApprovalSettings' with the minimum fields required to make a request.+newAccessApprovalSettings ::+  AccessApprovalSettings+newAccessApprovalSettings =+  AccessApprovalSettings+    { activeKeyVersion = Core.Nothing,+      ancestorHasActiveKeyVersion = Core.Nothing,+      enrolledAncestor = Core.Nothing,+      enrolledServices = Core.Nothing,+      invalidKeyVersion = Core.Nothing,+      name = Core.Nothing,+      notificationEmails = Core.Nothing,+      notificationPubsubTopic = Core.Nothing,+      preferNoBroadApprovalRequests = Core.Nothing,+      preferredRequestExpirationDays = Core.Nothing,+      requestScopeMaxWidthPreference = Core.Nothing,+      requireCustomerVisibleJustification = Core.Nothing+    }++instance Core.FromJSON AccessApprovalSettings where+  parseJSON =+    Core.withObject+      "AccessApprovalSettings"+      ( \o ->+          AccessApprovalSettings+            Core.<$> (o Core..:? "activeKeyVersion")+            Core.<*> (o Core..:? "ancestorHasActiveKeyVersion")+            Core.<*> (o Core..:? "enrolledAncestor")+            Core.<*> (o Core..:? "enrolledServices")+            Core.<*> (o Core..:? "invalidKeyVersion")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "notificationEmails")+            Core.<*> (o Core..:? "notificationPubsubTopic")+            Core.<*> (o Core..:? "preferNoBroadApprovalRequests")+            Core.<*> (o Core..:? "preferredRequestExpirationDays")+            Core.<*> (o Core..:? "requestScopeMaxWidthPreference")+            Core.<*> (o Core..:? "requireCustomerVisibleJustification")+      )++instance Core.ToJSON AccessApprovalSettings where+  toJSON AccessApprovalSettings {..} =+    Core.object+      ( Core.catMaybes+          [ ("activeKeyVersion" Core..=) Core.<$> activeKeyVersion,+            ("ancestorHasActiveKeyVersion" Core..=)+              Core.<$> ancestorHasActiveKeyVersion,+            ("enrolledAncestor" Core..=) Core.<$> enrolledAncestor,+            ("enrolledServices" Core..=) Core.<$> enrolledServices,+            ("invalidKeyVersion" Core..=) Core.<$> invalidKeyVersion,+            ("name" Core..=) Core.<$> name,+            ("notificationEmails" Core..=) Core.<$> notificationEmails,+            ("notificationPubsubTopic" Core..=)+              Core.<$> notificationPubsubTopic,+            ("preferNoBroadApprovalRequests" Core..=)+              Core.<$> preferNoBroadApprovalRequests,+            ("preferredRequestExpirationDays" Core..=)+              Core.<$> preferredRequestExpirationDays,+            ("requestScopeMaxWidthPreference" Core..=)+              Core.<$> requestScopeMaxWidthPreference,+            ("requireCustomerVisibleJustification" Core..=)+              Core.<$> requireCustomerVisibleJustification+          ]+      )++-- | Home office and physical location of the principal.+--+-- /See:/ 'newAccessLocations' smart constructor.+data AccessLocations = AccessLocations+  { -- | The \"home office\" location of the principal. A two-letter country code (ISO 3166-1 alpha-2), such as \"US\", \"DE\" or \"GB\" or a region code. In some limited situations Google systems may refer refer to a region code instead of a country code. Possible Region Codes: * ASI: Asia * EUR: Europe * OCE: Oceania * AFR: Africa * NAM: North America * SAM: South America * ANT: Antarctica * ANY: Any location+    principalOfficeCountry :: (Core.Maybe Core.Text),+    -- | Physical location of the principal at the time of the access. A two-letter country code (ISO 3166-1 alpha-2), such as \"US\", \"DE\" or \"GB\" or a region code. In some limited situations Google systems may refer refer to a region code instead of a country code. Possible Region Codes: * ASI: Asia * EUR: Europe * OCE: Oceania * AFR: Africa * NAM: North America * SAM: South America * ANT: Antarctica * ANY: Any location+    principalPhysicalLocationCountry :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessLocations' with the minimum fields required to make a request.+newAccessLocations ::+  AccessLocations+newAccessLocations =+  AccessLocations+    { principalOfficeCountry = Core.Nothing,+      principalPhysicalLocationCountry = Core.Nothing+    }++instance Core.FromJSON AccessLocations where+  parseJSON =+    Core.withObject+      "AccessLocations"+      ( \o ->+          AccessLocations+            Core.<$> (o Core..:? "principalOfficeCountry")+            Core.<*> (o Core..:? "principalPhysicalLocationCountry")+      )++instance Core.ToJSON AccessLocations where+  toJSON AccessLocations {..} =+    Core.object+      ( Core.catMaybes+          [ ("principalOfficeCountry" Core..=)+              Core.<$> principalOfficeCountry,+            ("principalPhysicalLocationCountry" Core..=)+              Core.<$> principalPhysicalLocationCountry+          ]+      )++--+-- /See:/ 'newAccessReason' smart constructor.+data AccessReason = AccessReason+  { -- | More detail about certain reason types. See comments for each type above.+    detail :: (Core.Maybe Core.Text),+    -- | Type of access justification.+    type' :: (Core.Maybe AccessReason_Type)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessReason' with the minimum fields required to make a request.+newAccessReason ::+  AccessReason+newAccessReason =+  AccessReason {detail = Core.Nothing, type' = Core.Nothing}++instance Core.FromJSON AccessReason where+  parseJSON =+    Core.withObject+      "AccessReason"+      ( \o ->+          AccessReason+            Core.<$> (o Core..:? "detail")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON AccessReason where+  toJSON AccessReason {..} =+    Core.object+      ( Core.catMaybes+          [ ("detail" Core..=) Core.<$> detail,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | A request for the customer to approve access to a resource.+--+-- /See:/ 'newApprovalRequest' smart constructor.+data ApprovalRequest = ApprovalRequest+  { -- | Access was approved.+    approve :: (Core.Maybe ApproveDecision),+    -- | The request was dismissed.+    dismiss :: (Core.Maybe DismissDecision),+    -- | The resource name of the request. Format is \"{projects|folders|organizations}\/{id}\/approvalRequests\/{approval_request}\".+    name :: (Core.Maybe Core.Text),+    -- | The time at which approval was requested.+    requestTime :: (Core.Maybe Core.DateTime),+    -- | This field contains the augmented information of the request.+    requestedAugmentedInfo :: (Core.Maybe AugmentedInfo),+    -- | The requested access duration.+    requestedDuration :: (Core.Maybe Core.Duration),+    -- | The original requested expiration for the approval. Calculated by adding the requested/duration to the request/time.+    requestedExpiration :: (Core.Maybe Core.DateTime),+    -- | The locations for which approval is being requested.+    requestedLocations :: (Core.Maybe AccessLocations),+    -- | The justification for which approval is being requested.+    requestedReason :: (Core.Maybe AccessReason),+    -- | The resource for which approval is being requested. The format of the resource name is defined at https:\/\/cloud.google.com\/apis\/design\/resource_names. The resource name here may either be a \"full\" resource name (e.g. \"\/\/library.googleapis.com\/shelves\/shelf1\/books\/book2\") or a \"relative\" resource name (e.g. \"shelves\/shelf1\/books\/book2\") as described in the resource name specification.+    requestedResourceName :: (Core.Maybe Core.Text),+    -- | Properties related to the resource represented by requested/resource/name.+    requestedResourceProperties :: (Core.Maybe ResourceProperties)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ApprovalRequest' with the minimum fields required to make a request.+newApprovalRequest ::+  ApprovalRequest+newApprovalRequest =+  ApprovalRequest+    { approve = Core.Nothing,+      dismiss = Core.Nothing,+      name = Core.Nothing,+      requestTime = Core.Nothing,+      requestedAugmentedInfo = Core.Nothing,+      requestedDuration = Core.Nothing,+      requestedExpiration = Core.Nothing,+      requestedLocations = Core.Nothing,+      requestedReason = Core.Nothing,+      requestedResourceName = Core.Nothing,+      requestedResourceProperties = Core.Nothing+    }++instance Core.FromJSON ApprovalRequest where+  parseJSON =+    Core.withObject+      "ApprovalRequest"+      ( \o ->+          ApprovalRequest+            Core.<$> (o Core..:? "approve")+            Core.<*> (o Core..:? "dismiss")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "requestTime")+            Core.<*> (o Core..:? "requestedAugmentedInfo")+            Core.<*> (o Core..:? "requestedDuration")+            Core.<*> (o Core..:? "requestedExpiration")+            Core.<*> (o Core..:? "requestedLocations")+            Core.<*> (o Core..:? "requestedReason")+            Core.<*> (o Core..:? "requestedResourceName")+            Core.<*> (o Core..:? "requestedResourceProperties")+      )++instance Core.ToJSON ApprovalRequest where+  toJSON ApprovalRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("approve" Core..=) Core.<$> approve,+            ("dismiss" Core..=) Core.<$> dismiss,+            ("name" Core..=) Core.<$> name,+            ("requestTime" Core..=) Core.<$> requestTime,+            ("requestedAugmentedInfo" Core..=) Core.<$> requestedAugmentedInfo,+            ("requestedDuration" Core..=) Core.<$> requestedDuration,+            ("requestedExpiration" Core..=) Core.<$> requestedExpiration,+            ("requestedLocations" Core..=) Core.<$> requestedLocations,+            ("requestedReason" Core..=) Core.<$> requestedReason,+            ("requestedResourceName" Core..=) Core.<$> requestedResourceName,+            ("requestedResourceProperties" Core..=)+              Core.<$> requestedResourceProperties+          ]+      )++-- | Request to approve an ApprovalRequest.+--+-- /See:/ 'newApproveApprovalRequestMessage' smart constructor.+newtype ApproveApprovalRequestMessage = ApproveApprovalRequestMessage+  { -- | The expiration time of this approval.+    expireTime :: (Core.Maybe Core.DateTime)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ApproveApprovalRequestMessage' with the minimum fields required to make a request.+newApproveApprovalRequestMessage ::+  ApproveApprovalRequestMessage+newApproveApprovalRequestMessage =+  ApproveApprovalRequestMessage {expireTime = Core.Nothing}++instance Core.FromJSON ApproveApprovalRequestMessage where+  parseJSON =+    Core.withObject+      "ApproveApprovalRequestMessage"+      ( \o ->+          ApproveApprovalRequestMessage Core.<$> (o Core..:? "expireTime")+      )++instance Core.ToJSON ApproveApprovalRequestMessage where+  toJSON ApproveApprovalRequestMessage {..} =+    Core.object+      (Core.catMaybes [("expireTime" Core..=) Core.<$> expireTime])++-- | A decision that has been made to approve access to a resource.+--+-- /See:/ 'newApproveDecision' smart constructor.+data ApproveDecision = ApproveDecision+  { -- | The time at which approval was granted.+    approveTime :: (Core.Maybe Core.DateTime),+    -- | True when the request has been auto-approved.+    autoApproved :: (Core.Maybe Core.Bool),+    -- | The time at which the approval expires.+    expireTime :: (Core.Maybe Core.DateTime),+    -- | If set, denotes the timestamp at which the approval is invalidated.+    invalidateTime :: (Core.Maybe Core.DateTime),+    -- | The signature for the ApprovalRequest and details on how it was signed.+    signatureInfo :: (Core.Maybe SignatureInfo)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ApproveDecision' with the minimum fields required to make a request.+newApproveDecision ::+  ApproveDecision+newApproveDecision =+  ApproveDecision+    { approveTime = Core.Nothing,+      autoApproved = Core.Nothing,+      expireTime = Core.Nothing,+      invalidateTime = Core.Nothing,+      signatureInfo = Core.Nothing+    }++instance Core.FromJSON ApproveDecision where+  parseJSON =+    Core.withObject+      "ApproveDecision"+      ( \o ->+          ApproveDecision+            Core.<$> (o Core..:? "approveTime")+            Core.<*> (o Core..:? "autoApproved")+            Core.<*> (o Core..:? "expireTime")+            Core.<*> (o Core..:? "invalidateTime")+            Core.<*> (o Core..:? "signatureInfo")+      )++instance Core.ToJSON ApproveDecision where+  toJSON ApproveDecision {..} =+    Core.object+      ( Core.catMaybes+          [ ("approveTime" Core..=) Core.<$> approveTime,+            ("autoApproved" Core..=) Core.<$> autoApproved,+            ("expireTime" Core..=) Core.<$> expireTime,+            ("invalidateTime" Core..=) Core.<$> invalidateTime,+            ("signatureInfo" Core..=) Core.<$> signatureInfo+          ]+      )++-- | This field contains the augmented information of the request.+--+-- /See:/ 'newAugmentedInfo' smart constructor.+newtype AugmentedInfo = AugmentedInfo+  { -- | For command-line tools, the full command-line exactly as entered by the actor without adding any additional characters (such as quotation marks).+    command :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AugmentedInfo' with the minimum fields required to make a request.+newAugmentedInfo ::+  AugmentedInfo+newAugmentedInfo = AugmentedInfo {command = Core.Nothing}++instance Core.FromJSON AugmentedInfo where+  parseJSON =+    Core.withObject+      "AugmentedInfo"+      (\o -> AugmentedInfo Core.<$> (o Core..:? "command"))++instance Core.ToJSON AugmentedInfo where+  toJSON AugmentedInfo {..} =+    Core.object+      (Core.catMaybes [("command" Core..=) Core.<$> command])++-- | Request to dismiss an approval request.+--+-- /See:/ 'newDismissApprovalRequestMessage' smart constructor.+data DismissApprovalRequestMessage = DismissApprovalRequestMessage+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DismissApprovalRequestMessage' with the minimum fields required to make a request.+newDismissApprovalRequestMessage ::+  DismissApprovalRequestMessage+newDismissApprovalRequestMessage = DismissApprovalRequestMessage++instance Core.FromJSON DismissApprovalRequestMessage where+  parseJSON =+    Core.withObject+      "DismissApprovalRequestMessage"+      (\o -> Core.pure DismissApprovalRequestMessage)++instance Core.ToJSON DismissApprovalRequestMessage where+  toJSON = Core.const Core.emptyObject++-- | A decision that has been made to dismiss an approval request.+--+-- /See:/ 'newDismissDecision' smart constructor.+data DismissDecision = DismissDecision+  { -- | The time at which the approval request was dismissed.+    dismissTime :: (Core.Maybe Core.DateTime),+    -- | This field will be true if the ApprovalRequest was implicitly dismissed due to inaction by the access approval approvers (the request is not acted on by the approvers before the exiration time).+    implicit :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DismissDecision' with the minimum fields required to make a request.+newDismissDecision ::+  DismissDecision+newDismissDecision =+  DismissDecision+    { dismissTime = Core.Nothing,+      implicit = Core.Nothing+    }++instance Core.FromJSON DismissDecision where+  parseJSON =+    Core.withObject+      "DismissDecision"+      ( \o ->+          DismissDecision+            Core.<$> (o Core..:? "dismissTime")+            Core.<*> (o Core..:? "implicit")+      )++instance Core.ToJSON DismissDecision where+  toJSON DismissDecision {..} =+    Core.object+      ( Core.catMaybes+          [ ("dismissTime" Core..=) Core.<$> dismissTime,+            ("implicit" Core..=) Core.<$> implicit+          ]+      )++-- | 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 the enrollment of a cloud resource into a specific service.+--+-- /See:/ 'newEnrolledService' smart constructor.+data EnrolledService = EnrolledService+  { -- | The product for which Access Approval will be enrolled. Allowed values are listed below (case-sensitive): * all * GA * App Engine * Artifact Registry * BigQuery * Certificate Authority Service * Cloud Bigtable * Cloud Key Management Service * Compute Engine * Cloud Composer * Cloud Dataflow * Cloud Dataproc * Cloud DLP * Cloud EKM * Cloud Firestore * Cloud HSM * Cloud Identity and Access Management * Cloud Logging * Cloud NAT * Cloud Pub\/Sub * Cloud Spanner * Cloud SQL * Cloud Storage * Eventarc * Google Kubernetes Engine * Organization Policy Serivice * Persistent Disk * Resource Manager * Secret Manager * Speaker ID Note: These values are supported as input for legacy purposes, but will not be returned from the API. * all * ga-only * appengine.googleapis.com * artifactregistry.googleapis.com * bigquery.googleapis.com * bigtable.googleapis.com * container.googleapis.com * cloudkms.googleapis.com * cloudresourcemanager.googleapis.com * cloudsql.googleapis.com * compute.googleapis.com *+    -- dataflow.googleapis.com * dataproc.googleapis.com * dlp.googleapis.com * iam.googleapis.com * logging.googleapis.com * orgpolicy.googleapis.com * pubsub.googleapis.com * spanner.googleapis.com * secretmanager.googleapis.com * speakerid.googleapis.com * storage.googleapis.com Calls to UpdateAccessApprovalSettings using \'all\' or any of the XXX.googleapis.com will be translated to the associated product name (\'all\', \'App Engine\', etc.). Note: \'all\' will enroll the resource in all products supported at both \'GA\' and \'Preview\' levels. More information about levels of support is available at https:\/\/cloud.google.com\/access-approval\/docs\/supported-services+    cloudProduct :: (Core.Maybe Core.Text),+    -- | The enrollment level of the service.+    enrollmentLevel :: (Core.Maybe EnrolledService_EnrollmentLevel)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'EnrolledService' with the minimum fields required to make a request.+newEnrolledService ::+  EnrolledService+newEnrolledService =+  EnrolledService+    { cloudProduct = Core.Nothing,+      enrollmentLevel = Core.Nothing+    }++instance Core.FromJSON EnrolledService where+  parseJSON =+    Core.withObject+      "EnrolledService"+      ( \o ->+          EnrolledService+            Core.<$> (o Core..:? "cloudProduct")+            Core.<*> (o Core..:? "enrollmentLevel")+      )++instance Core.ToJSON EnrolledService where+  toJSON EnrolledService {..} =+    Core.object+      ( Core.catMaybes+          [ ("cloudProduct" Core..=) Core.<$> cloudProduct,+            ("enrollmentLevel" Core..=) Core.<$> enrollmentLevel+          ]+      )++-- | Request to invalidate an existing approval.+--+-- /See:/ 'newInvalidateApprovalRequestMessage' smart constructor.+data InvalidateApprovalRequestMessage = InvalidateApprovalRequestMessage+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'InvalidateApprovalRequestMessage' with the minimum fields required to make a request.+newInvalidateApprovalRequestMessage ::+  InvalidateApprovalRequestMessage+newInvalidateApprovalRequestMessage =+  InvalidateApprovalRequestMessage++instance Core.FromJSON InvalidateApprovalRequestMessage where+  parseJSON =+    Core.withObject+      "InvalidateApprovalRequestMessage"+      (\o -> Core.pure InvalidateApprovalRequestMessage)++instance Core.ToJSON InvalidateApprovalRequestMessage where+  toJSON = Core.const Core.emptyObject++-- | Response to listing of ApprovalRequest objects.+--+-- /See:/ 'newListApprovalRequestsResponse' smart constructor.+data ListApprovalRequestsResponse = ListApprovalRequestsResponse+  { -- | Approval request details.+    approvalRequests :: (Core.Maybe [ApprovalRequest]),+    -- | Token to retrieve the next page of results, or empty if there are no more.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListApprovalRequestsResponse' with the minimum fields required to make a request.+newListApprovalRequestsResponse ::+  ListApprovalRequestsResponse+newListApprovalRequestsResponse =+  ListApprovalRequestsResponse+    { approvalRequests = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ListApprovalRequestsResponse where+  parseJSON =+    Core.withObject+      "ListApprovalRequestsResponse"+      ( \o ->+          ListApprovalRequestsResponse+            Core.<$> (o Core..:? "approvalRequests")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ListApprovalRequestsResponse where+  toJSON ListApprovalRequestsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("approvalRequests" Core..=) Core.<$> approvalRequests,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | The properties associated with the resource of the request.+--+-- /See:/ 'newResourceProperties' smart constructor.+newtype ResourceProperties = ResourceProperties+  { -- | Whether an approval will exclude the descendants of the resource being requested.+    excludesDescendants :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ResourceProperties' with the minimum fields required to make a request.+newResourceProperties ::+  ResourceProperties+newResourceProperties =+  ResourceProperties {excludesDescendants = Core.Nothing}++instance Core.FromJSON ResourceProperties where+  parseJSON =+    Core.withObject+      "ResourceProperties"+      ( \o ->+          ResourceProperties Core.<$> (o Core..:? "excludesDescendants")+      )++instance Core.ToJSON ResourceProperties where+  toJSON ResourceProperties {..} =+    Core.object+      ( Core.catMaybes+          [("excludesDescendants" Core..=) Core.<$> excludesDescendants]+      )++-- | Information about the digital signature of the resource.+--+-- /See:/ 'newSignatureInfo' smart constructor.+data SignatureInfo = SignatureInfo+  { -- | The resource name of the customer CryptoKeyVersion used for signing.+    customerKmsKeyVersion :: (Core.Maybe Core.Text),+    -- | The hashing algorithm used for signature verification. It will only be present in the case of Google managed keys.+    googleKeyAlgorithm :: (Core.Maybe SignatureInfo_GoogleKeyAlgorithm),+    -- | The public key for the Google default signing, encoded in PEM format. The signature was created using a private key which may be verified using this public key.+    googlePublicKeyPem :: (Core.Maybe Core.Text),+    -- | The ApprovalRequest that is serialized without the SignatureInfo message field. This data is used with the hashing algorithm to generate the digital signature, and it can be used for signature verification.+    serializedApprovalRequest :: (Core.Maybe Core.Base64),+    -- | The digital signature.+    signature :: (Core.Maybe Core.Base64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SignatureInfo' with the minimum fields required to make a request.+newSignatureInfo ::+  SignatureInfo+newSignatureInfo =+  SignatureInfo+    { customerKmsKeyVersion = Core.Nothing,+      googleKeyAlgorithm = Core.Nothing,+      googlePublicKeyPem = Core.Nothing,+      serializedApprovalRequest = Core.Nothing,+      signature = Core.Nothing+    }++instance Core.FromJSON SignatureInfo where+  parseJSON =+    Core.withObject+      "SignatureInfo"+      ( \o ->+          SignatureInfo+            Core.<$> (o Core..:? "customerKmsKeyVersion")+            Core.<*> (o Core..:? "googleKeyAlgorithm")+            Core.<*> (o Core..:? "googlePublicKeyPem")+            Core.<*> (o Core..:? "serializedApprovalRequest")+            Core.<*> (o Core..:? "signature")+      )++instance Core.ToJSON SignatureInfo where+  toJSON SignatureInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("customerKmsKeyVersion" Core..=) Core.<$> customerKmsKeyVersion,+            ("googleKeyAlgorithm" Core..=) Core.<$> googleKeyAlgorithm,+            ("googlePublicKeyPem" Core..=) Core.<$> googlePublicKeyPem,+            ("serializedApprovalRequest" Core..=)+              Core.<$> serializedApprovalRequest,+            ("signature" Core..=) Core.<$> signature+          ]+      )
+ gen/Gogol/AccessApproval/Internal/Sum.hs view
@@ -0,0 +1,457 @@+{-# 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.AccessApproval.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.AccessApproval.Internal.Sum+  ( -- * Xgafv+    Xgafv+      ( Xgafv_1,+        Xgafv_2,+        ..+      ),++    -- * AccessApprovalSettings_RequestScopeMaxWidthPreference+    AccessApprovalSettings_RequestScopeMaxWidthPreference+      ( AccessApprovalSettings_RequestScopeMaxWidthPreference_REQUESTSCOPEMAXWIDTHPREFERENCEUNSPECIFIED,+        AccessApprovalSettings_RequestScopeMaxWidthPreference_Organization,+        AccessApprovalSettings_RequestScopeMaxWidthPreference_Folder,+        AccessApprovalSettings_RequestScopeMaxWidthPreference_Project,+        ..+      ),++    -- * AccessReason_Type+    AccessReason_Type+      ( AccessReason_Type_TYPEUNSPECIFIED,+        AccessReason_Type_CUSTOMERINITIATEDSUPPORT,+        AccessReason_Type_GOOGLEINITIATEDSERVICE,+        AccessReason_Type_GOOGLEINITIATEDREVIEW,+        AccessReason_Type_THIRDPARTYDATAREQUEST,+        AccessReason_Type_GOOGLERESPONSETOPRODUCTIONALERT,+        AccessReason_Type_CLOUDINITIATEDACCESS,+        ..+      ),++    -- * EnrolledService_EnrollmentLevel+    EnrolledService_EnrollmentLevel+      ( EnrolledService_EnrollmentLevel_ENROLLMENTLEVELUNSPECIFIED,+        EnrolledService_EnrollmentLevel_BLOCKALL,+        ..+      ),++    -- * SignatureInfo_GoogleKeyAlgorithm+    SignatureInfo_GoogleKeyAlgorithm+      ( SignatureInfo_GoogleKeyAlgorithm_CRYPTOKEYVERSIONALGORITHMUNSPECIFIED,+        SignatureInfo_GoogleKeyAlgorithm_GOOGLESYMMETRICENCRYPTION,+        SignatureInfo_GoogleKeyAlgorithm_AES128GCM,+        SignatureInfo_GoogleKeyAlgorithm_AES256GCM,+        SignatureInfo_GoogleKeyAlgorithm_AES128CBC,+        SignatureInfo_GoogleKeyAlgorithm_AES256CBC,+        SignatureInfo_GoogleKeyAlgorithm_AES128CTR,+        SignatureInfo_GoogleKeyAlgorithm_AES256CTR,+        SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_2048_SHA256,+        SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_3072_SHA256,+        SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_4096_SHA256,+        SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_4096_SHA512,+        SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_2048_SHA256,+        SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_3072_SHA256,+        SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_4096_SHA256,+        SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_4096_SHA512,+        SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_RAW_PKCS1_2048,+        SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_RAW_PKCS1_3072,+        SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_RAW_PKCS1_4096,+        SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_2048_SHA256,+        SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_3072_SHA256,+        SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_4096_SHA256,+        SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_4096_SHA512,+        SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_2048_SHA1,+        SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_3072_SHA1,+        SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_4096_SHA1,+        SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_P256_SHA256,+        SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_P384_SHA384,+        SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_SECP256K1_SHA256,+        SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_ED25519,+        SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA256,+        SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA1,+        SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA384,+        SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA512,+        SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA224,+        SignatureInfo_GoogleKeyAlgorithm_EXTERNALSYMMETRICENCRYPTION,+        SignatureInfo_GoogleKeyAlgorithm_PQ_SIGN_ML_DSA_65,+        SignatureInfo_GoogleKeyAlgorithm_PQSIGNSLHDSASHA2128S,+        ..+      ),+  )+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+  #-}++-- | Optional. A setting to indicate the maximum width of an Access Approval request.+newtype AccessApprovalSettings_RequestScopeMaxWidthPreference = AccessApprovalSettings_RequestScopeMaxWidthPreference {fromAccessApprovalSettings_RequestScopeMaxWidthPreference :: 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 value for proto, shouldn\'t be used.+pattern AccessApprovalSettings_RequestScopeMaxWidthPreference_REQUESTSCOPEMAXWIDTHPREFERENCEUNSPECIFIED :: AccessApprovalSettings_RequestScopeMaxWidthPreference+pattern AccessApprovalSettings_RequestScopeMaxWidthPreference_REQUESTSCOPEMAXWIDTHPREFERENCEUNSPECIFIED = AccessApprovalSettings_RequestScopeMaxWidthPreference "REQUEST_SCOPE_MAX_WIDTH_PREFERENCE_UNSPECIFIED"++-- | This is the widest scope possible. It means the customer has no scope restriction when it comes to Access Approval requests.+pattern AccessApprovalSettings_RequestScopeMaxWidthPreference_Organization :: AccessApprovalSettings_RequestScopeMaxWidthPreference+pattern AccessApprovalSettings_RequestScopeMaxWidthPreference_Organization = AccessApprovalSettings_RequestScopeMaxWidthPreference "ORGANIZATION"++-- | Customer allows the scope of Access Approval requests as broad as the Folder level.+pattern AccessApprovalSettings_RequestScopeMaxWidthPreference_Folder :: AccessApprovalSettings_RequestScopeMaxWidthPreference+pattern AccessApprovalSettings_RequestScopeMaxWidthPreference_Folder = AccessApprovalSettings_RequestScopeMaxWidthPreference "FOLDER"++-- | Customer allows the scope of Access Approval requests as broad as the Project level.+pattern AccessApprovalSettings_RequestScopeMaxWidthPreference_Project :: AccessApprovalSettings_RequestScopeMaxWidthPreference+pattern AccessApprovalSettings_RequestScopeMaxWidthPreference_Project = AccessApprovalSettings_RequestScopeMaxWidthPreference "PROJECT"++{-# COMPLETE+  AccessApprovalSettings_RequestScopeMaxWidthPreference_REQUESTSCOPEMAXWIDTHPREFERENCEUNSPECIFIED,+  AccessApprovalSettings_RequestScopeMaxWidthPreference_Organization,+  AccessApprovalSettings_RequestScopeMaxWidthPreference_Folder,+  AccessApprovalSettings_RequestScopeMaxWidthPreference_Project,+  AccessApprovalSettings_RequestScopeMaxWidthPreference+  #-}++-- | Type of access justification.+newtype AccessReason_Type = AccessReason_Type {fromAccessReason_Type :: 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 value for proto, shouldn\'t be used.+pattern AccessReason_Type_TYPEUNSPECIFIED :: AccessReason_Type+pattern AccessReason_Type_TYPEUNSPECIFIED = AccessReason_Type "TYPE_UNSPECIFIED"++-- | Customer made a request or raised an issue that required the principal to access customer data. @detail@ is of the form (\"#####\" is the issue ID): * \"Feedback Report: #####\" * \"Case Number: #####\" * \"Case ID: #####\" * \"E-PIN Reference: #####\" * \"Google-#####\" * \"T-#####\"+pattern AccessReason_Type_CUSTOMERINITIATEDSUPPORT :: AccessReason_Type+pattern AccessReason_Type_CUSTOMERINITIATEDSUPPORT = AccessReason_Type "CUSTOMER_INITIATED_SUPPORT"++-- | The principal accessed customer data in order to diagnose or resolve a suspected issue in services. Often this access is used to confirm that customers are not affected by a suspected service issue or to remediate a reversible system issue.+pattern AccessReason_Type_GOOGLEINITIATEDSERVICE :: AccessReason_Type+pattern AccessReason_Type_GOOGLEINITIATEDSERVICE = AccessReason_Type "GOOGLE_INITIATED_SERVICE"++-- | Google initiated service for security, fraud, abuse, or compliance purposes.+pattern AccessReason_Type_GOOGLEINITIATEDREVIEW :: AccessReason_Type+pattern AccessReason_Type_GOOGLEINITIATEDREVIEW = AccessReason_Type "GOOGLE_INITIATED_REVIEW"++-- | The principal was compelled to access customer data in order to respond to a legal third party data request or process, including legal processes from customers themselves.+pattern AccessReason_Type_THIRDPARTYDATAREQUEST :: AccessReason_Type+pattern AccessReason_Type_THIRDPARTYDATAREQUEST = AccessReason_Type "THIRD_PARTY_DATA_REQUEST"++-- | The principal accessed customer data in order to diagnose or resolve a suspected issue in services or a known outage.+pattern AccessReason_Type_GOOGLERESPONSETOPRODUCTIONALERT :: AccessReason_Type+pattern AccessReason_Type_GOOGLERESPONSETOPRODUCTIONALERT = AccessReason_Type "GOOGLE_RESPONSE_TO_PRODUCTION_ALERT"++-- | Similar to \'GOOGLE/INITIATED/SERVICE\' or \'GOOGLE/INITIATED/REVIEW\', but with universe agnostic naming. The principal accessed customer data in order to diagnose or resolve a suspected issue in services or a known outage, or for security, fraud, abuse, or compliance review purposes.+pattern AccessReason_Type_CLOUDINITIATEDACCESS :: AccessReason_Type+pattern AccessReason_Type_CLOUDINITIATEDACCESS = AccessReason_Type "CLOUD_INITIATED_ACCESS"++{-# COMPLETE+  AccessReason_Type_TYPEUNSPECIFIED,+  AccessReason_Type_CUSTOMERINITIATEDSUPPORT,+  AccessReason_Type_GOOGLEINITIATEDSERVICE,+  AccessReason_Type_GOOGLEINITIATEDREVIEW,+  AccessReason_Type_THIRDPARTYDATAREQUEST,+  AccessReason_Type_GOOGLERESPONSETOPRODUCTIONALERT,+  AccessReason_Type_CLOUDINITIATEDACCESS,+  AccessReason_Type+  #-}++-- | The enrollment level of the service.+newtype EnrolledService_EnrollmentLevel = EnrolledService_EnrollmentLevel {fromEnrolledService_EnrollmentLevel :: 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 value for proto, shouldn\'t be used.+pattern EnrolledService_EnrollmentLevel_ENROLLMENTLEVELUNSPECIFIED :: EnrolledService_EnrollmentLevel+pattern EnrolledService_EnrollmentLevel_ENROLLMENTLEVELUNSPECIFIED = EnrolledService_EnrollmentLevel "ENROLLMENT_LEVEL_UNSPECIFIED"++-- | Service is enrolled in Access Approval for all requests+pattern EnrolledService_EnrollmentLevel_BLOCKALL :: EnrolledService_EnrollmentLevel+pattern EnrolledService_EnrollmentLevel_BLOCKALL = EnrolledService_EnrollmentLevel "BLOCK_ALL"++{-# COMPLETE+  EnrolledService_EnrollmentLevel_ENROLLMENTLEVELUNSPECIFIED,+  EnrolledService_EnrollmentLevel_BLOCKALL,+  EnrolledService_EnrollmentLevel+  #-}++-- | The hashing algorithm used for signature verification. It will only be present in the case of Google managed keys.+newtype SignatureInfo_GoogleKeyAlgorithm = SignatureInfo_GoogleKeyAlgorithm {fromSignatureInfo_GoogleKeyAlgorithm :: 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+    )++-- | Not specified.+pattern SignatureInfo_GoogleKeyAlgorithm_CRYPTOKEYVERSIONALGORITHMUNSPECIFIED :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_CRYPTOKEYVERSIONALGORITHMUNSPECIFIED = SignatureInfo_GoogleKeyAlgorithm "CRYPTO_KEY_VERSION_ALGORITHM_UNSPECIFIED"++-- | Creates symmetric encryption keys.+pattern SignatureInfo_GoogleKeyAlgorithm_GOOGLESYMMETRICENCRYPTION :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_GOOGLESYMMETRICENCRYPTION = SignatureInfo_GoogleKeyAlgorithm "GOOGLE_SYMMETRIC_ENCRYPTION"++-- | AES-GCM (Galois Counter Mode) using 128-bit keys.+pattern SignatureInfo_GoogleKeyAlgorithm_AES128GCM :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_AES128GCM = SignatureInfo_GoogleKeyAlgorithm "AES_128_GCM"++-- | AES-GCM (Galois Counter Mode) using 256-bit keys.+pattern SignatureInfo_GoogleKeyAlgorithm_AES256GCM :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_AES256GCM = SignatureInfo_GoogleKeyAlgorithm "AES_256_GCM"++-- | AES-CBC (Cipher Block Chaining Mode) using 128-bit keys.+pattern SignatureInfo_GoogleKeyAlgorithm_AES128CBC :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_AES128CBC = SignatureInfo_GoogleKeyAlgorithm "AES_128_CBC"++-- | AES-CBC (Cipher Block Chaining Mode) using 256-bit keys.+pattern SignatureInfo_GoogleKeyAlgorithm_AES256CBC :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_AES256CBC = SignatureInfo_GoogleKeyAlgorithm "AES_256_CBC"++-- | AES-CTR (Counter Mode) using 128-bit keys.+pattern SignatureInfo_GoogleKeyAlgorithm_AES128CTR :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_AES128CTR = SignatureInfo_GoogleKeyAlgorithm "AES_128_CTR"++-- | AES-CTR (Counter Mode) using 256-bit keys.+pattern SignatureInfo_GoogleKeyAlgorithm_AES256CTR :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_AES256CTR = SignatureInfo_GoogleKeyAlgorithm "AES_256_CTR"++-- | RSASSA-PSS 2048 bit key with a SHA256 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_2048_SHA256 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_2048_SHA256 = SignatureInfo_GoogleKeyAlgorithm "RSA_SIGN_PSS_2048_SHA256"++-- | RSASSA-PSS 3072 bit key with a SHA256 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_3072_SHA256 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_3072_SHA256 = SignatureInfo_GoogleKeyAlgorithm "RSA_SIGN_PSS_3072_SHA256"++-- | RSASSA-PSS 4096 bit key with a SHA256 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_4096_SHA256 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_4096_SHA256 = SignatureInfo_GoogleKeyAlgorithm "RSA_SIGN_PSS_4096_SHA256"++-- | RSASSA-PSS 4096 bit key with a SHA512 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_4096_SHA512 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_4096_SHA512 = SignatureInfo_GoogleKeyAlgorithm "RSA_SIGN_PSS_4096_SHA512"++-- | RSASSA-PKCS1-v1_5 with a 2048 bit key and a SHA256 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_2048_SHA256 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_2048_SHA256 = SignatureInfo_GoogleKeyAlgorithm "RSA_SIGN_PKCS1_2048_SHA256"++-- | RSASSA-PKCS1-v1_5 with a 3072 bit key and a SHA256 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_3072_SHA256 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_3072_SHA256 = SignatureInfo_GoogleKeyAlgorithm "RSA_SIGN_PKCS1_3072_SHA256"++-- | RSASSA-PKCS1-v1_5 with a 4096 bit key and a SHA256 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_4096_SHA256 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_4096_SHA256 = SignatureInfo_GoogleKeyAlgorithm "RSA_SIGN_PKCS1_4096_SHA256"++-- | RSASSA-PKCS1-v1_5 with a 4096 bit key and a SHA512 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_4096_SHA512 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_4096_SHA512 = SignatureInfo_GoogleKeyAlgorithm "RSA_SIGN_PKCS1_4096_SHA512"++-- | RSASSA-PKCS1-v1_5 signing without encoding, with a 2048 bit key.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_RAW_PKCS1_2048 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_RAW_PKCS1_2048 = SignatureInfo_GoogleKeyAlgorithm "RSA_SIGN_RAW_PKCS1_2048"++-- | RSASSA-PKCS1-v1_5 signing without encoding, with a 3072 bit key.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_RAW_PKCS1_3072 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_RAW_PKCS1_3072 = SignatureInfo_GoogleKeyAlgorithm "RSA_SIGN_RAW_PKCS1_3072"++-- | RSASSA-PKCS1-v1_5 signing without encoding, with a 4096 bit key.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_RAW_PKCS1_4096 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_RAW_PKCS1_4096 = SignatureInfo_GoogleKeyAlgorithm "RSA_SIGN_RAW_PKCS1_4096"++-- | RSAES-OAEP 2048 bit key with a SHA256 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_2048_SHA256 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_2048_SHA256 = SignatureInfo_GoogleKeyAlgorithm "RSA_DECRYPT_OAEP_2048_SHA256"++-- | RSAES-OAEP 3072 bit key with a SHA256 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_3072_SHA256 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_3072_SHA256 = SignatureInfo_GoogleKeyAlgorithm "RSA_DECRYPT_OAEP_3072_SHA256"++-- | RSAES-OAEP 4096 bit key with a SHA256 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_4096_SHA256 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_4096_SHA256 = SignatureInfo_GoogleKeyAlgorithm "RSA_DECRYPT_OAEP_4096_SHA256"++-- | RSAES-OAEP 4096 bit key with a SHA512 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_4096_SHA512 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_4096_SHA512 = SignatureInfo_GoogleKeyAlgorithm "RSA_DECRYPT_OAEP_4096_SHA512"++-- | RSAES-OAEP 2048 bit key with a SHA1 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_2048_SHA1 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_2048_SHA1 = SignatureInfo_GoogleKeyAlgorithm "RSA_DECRYPT_OAEP_2048_SHA1"++-- | RSAES-OAEP 3072 bit key with a SHA1 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_3072_SHA1 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_3072_SHA1 = SignatureInfo_GoogleKeyAlgorithm "RSA_DECRYPT_OAEP_3072_SHA1"++-- | RSAES-OAEP 4096 bit key with a SHA1 digest.+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_4096_SHA1 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_4096_SHA1 = SignatureInfo_GoogleKeyAlgorithm "RSA_DECRYPT_OAEP_4096_SHA1"++-- | ECDSA on the NIST P-256 curve with a SHA256 digest. Other hash functions can also be used: https:\/\/cloud.google.com\/kms\/docs\/create-validate-signatures#ecdsa/support/for/other/hash_algorithms+pattern SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_P256_SHA256 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_P256_SHA256 = SignatureInfo_GoogleKeyAlgorithm "EC_SIGN_P256_SHA256"++-- | ECDSA on the NIST P-384 curve with a SHA384 digest. Other hash functions can also be used: https:\/\/cloud.google.com\/kms\/docs\/create-validate-signatures#ecdsa/support/for/other/hash_algorithms+pattern SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_P384_SHA384 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_P384_SHA384 = SignatureInfo_GoogleKeyAlgorithm "EC_SIGN_P384_SHA384"++-- | ECDSA on the non-NIST secp256k1 curve. This curve is only supported for HSM protection level. Other hash functions can also be used: https:\/\/cloud.google.com\/kms\/docs\/create-validate-signatures#ecdsa/support/for/other/hash_algorithms+pattern SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_SECP256K1_SHA256 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_SECP256K1_SHA256 = SignatureInfo_GoogleKeyAlgorithm "EC_SIGN_SECP256K1_SHA256"++-- | EdDSA on the Curve25519 in pure mode (taking data as input).+pattern SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_ED25519 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_ED25519 = SignatureInfo_GoogleKeyAlgorithm "EC_SIGN_ED25519"++-- | HMAC-SHA256 signing with a 256 bit key.+pattern SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA256 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA256 = SignatureInfo_GoogleKeyAlgorithm "HMAC_SHA256"++-- | HMAC-SHA1 signing with a 160 bit key.+pattern SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA1 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA1 = SignatureInfo_GoogleKeyAlgorithm "HMAC_SHA1"++-- | HMAC-SHA384 signing with a 384 bit key.+pattern SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA384 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA384 = SignatureInfo_GoogleKeyAlgorithm "HMAC_SHA384"++-- | HMAC-SHA512 signing with a 512 bit key.+pattern SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA512 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA512 = SignatureInfo_GoogleKeyAlgorithm "HMAC_SHA512"++-- | HMAC-SHA224 signing with a 224 bit key.+pattern SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA224 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA224 = SignatureInfo_GoogleKeyAlgorithm "HMAC_SHA224"++-- | Algorithm representing symmetric encryption by an external key manager.+pattern SignatureInfo_GoogleKeyAlgorithm_EXTERNALSYMMETRICENCRYPTION :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_EXTERNALSYMMETRICENCRYPTION = SignatureInfo_GoogleKeyAlgorithm "EXTERNAL_SYMMETRIC_ENCRYPTION"++-- | The post-quantum Module-Lattice-Based Digital Signature Algorithm, at security level 3. Randomized version.+pattern SignatureInfo_GoogleKeyAlgorithm_PQ_SIGN_ML_DSA_65 :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_PQ_SIGN_ML_DSA_65 = SignatureInfo_GoogleKeyAlgorithm "PQ_SIGN_ML_DSA_65"++-- | The post-quantum stateless hash-based digital signature algorithm, at security level 1. Randomized version.+pattern SignatureInfo_GoogleKeyAlgorithm_PQSIGNSLHDSASHA2128S :: SignatureInfo_GoogleKeyAlgorithm+pattern SignatureInfo_GoogleKeyAlgorithm_PQSIGNSLHDSASHA2128S = SignatureInfo_GoogleKeyAlgorithm "PQ_SIGN_SLH_DSA_SHA2_128S"++{-# COMPLETE+  SignatureInfo_GoogleKeyAlgorithm_CRYPTOKEYVERSIONALGORITHMUNSPECIFIED,+  SignatureInfo_GoogleKeyAlgorithm_GOOGLESYMMETRICENCRYPTION,+  SignatureInfo_GoogleKeyAlgorithm_AES128GCM,+  SignatureInfo_GoogleKeyAlgorithm_AES256GCM,+  SignatureInfo_GoogleKeyAlgorithm_AES128CBC,+  SignatureInfo_GoogleKeyAlgorithm_AES256CBC,+  SignatureInfo_GoogleKeyAlgorithm_AES128CTR,+  SignatureInfo_GoogleKeyAlgorithm_AES256CTR,+  SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_2048_SHA256,+  SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_3072_SHA256,+  SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_4096_SHA256,+  SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PSS_4096_SHA512,+  SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_2048_SHA256,+  SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_3072_SHA256,+  SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_4096_SHA256,+  SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_PKCS1_4096_SHA512,+  SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_RAW_PKCS1_2048,+  SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_RAW_PKCS1_3072,+  SignatureInfo_GoogleKeyAlgorithm_RSA_SIGN_RAW_PKCS1_4096,+  SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_2048_SHA256,+  SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_3072_SHA256,+  SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_4096_SHA256,+  SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_4096_SHA512,+  SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_2048_SHA1,+  SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_3072_SHA1,+  SignatureInfo_GoogleKeyAlgorithm_RSA_DECRYPT_OAEP_4096_SHA1,+  SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_P256_SHA256,+  SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_P384_SHA384,+  SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_SECP256K1_SHA256,+  SignatureInfo_GoogleKeyAlgorithm_EC_SIGN_ED25519,+  SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA256,+  SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA1,+  SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA384,+  SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA512,+  SignatureInfo_GoogleKeyAlgorithm_HMAC_SHA224,+  SignatureInfo_GoogleKeyAlgorithm_EXTERNALSYMMETRICENCRYPTION,+  SignatureInfo_GoogleKeyAlgorithm_PQ_SIGN_ML_DSA_65,+  SignatureInfo_GoogleKeyAlgorithm_PQSIGNSLHDSASHA2128S,+  SignatureInfo_GoogleKeyAlgorithm+  #-}
+ gen/Gogol/AccessApproval/Organizations/ApprovalRequests/Approve.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.AccessApproval.Organizations.ApprovalRequests.Approve+-- 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)+--+-- Approves a request and returns the updated ApprovalRequest. Returns NOT/FOUND if the request does not exist. Returns FAILED/PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.approve@.+module Gogol.AccessApproval.Organizations.ApprovalRequests.Approve+  ( -- * Resource+    AccessApprovalOrganizationsApprovalRequestsApproveResource,++    -- ** Constructing a Request+    AccessApprovalOrganizationsApprovalRequestsApprove (..),+    newAccessApprovalOrganizationsApprovalRequestsApprove,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.organizations.approvalRequests.approve@ method which the+-- 'AccessApprovalOrganizationsApprovalRequestsApprove' request conforms to.+type AccessApprovalOrganizationsApprovalRequestsApproveResource =+  "v1"+    Core.:> Core.CaptureMode "name" "approve" 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] ApproveApprovalRequestMessage+    Core.:> Core.Post '[Core.JSON] ApprovalRequest++-- | Approves a request and returns the updated ApprovalRequest. Returns NOT/FOUND if the request does not exist. Returns FAILED/PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ 'newAccessApprovalOrganizationsApprovalRequestsApprove' smart constructor.+data AccessApprovalOrganizationsApprovalRequestsApprove = AccessApprovalOrganizationsApprovalRequestsApprove+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the approval request to approve.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: ApproveApprovalRequestMessage,+    -- | 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 'AccessApprovalOrganizationsApprovalRequestsApprove' with the minimum fields required to make a request.+newAccessApprovalOrganizationsApprovalRequestsApprove ::+  -- |  Name of the approval request to approve. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ApproveApprovalRequestMessage ->+  AccessApprovalOrganizationsApprovalRequestsApprove+newAccessApprovalOrganizationsApprovalRequestsApprove name payload =+  AccessApprovalOrganizationsApprovalRequestsApprove+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalOrganizationsApprovalRequestsApprove+  where+  type+    Rs AccessApprovalOrganizationsApprovalRequestsApprove =+      ApprovalRequest+  type+    Scopes AccessApprovalOrganizationsApprovalRequestsApprove =+      '[CloudPlatform'FullControl]+  requestClient+    AccessApprovalOrganizationsApprovalRequestsApprove {..} =+      go+        name+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessApprovalService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessApprovalOrganizationsApprovalRequestsApproveResource+            )+            Core.mempty
+ gen/Gogol/AccessApproval/Organizations/ApprovalRequests/Dismiss.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.AccessApproval.Organizations.ApprovalRequests.Dismiss+-- 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)+--+-- Dismisses a request. Returns the updated ApprovalRequest. NOTE: This does not deny access to the resource if another request has been made and approved. It is equivalent in effect to ignoring the request altogether. Returns NOT/FOUND if the request does not exist. Returns FAILED/PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.dismiss@.+module Gogol.AccessApproval.Organizations.ApprovalRequests.Dismiss+  ( -- * Resource+    AccessApprovalOrganizationsApprovalRequestsDismissResource,++    -- ** Constructing a Request+    AccessApprovalOrganizationsApprovalRequestsDismiss (..),+    newAccessApprovalOrganizationsApprovalRequestsDismiss,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.organizations.approvalRequests.dismiss@ method which the+-- 'AccessApprovalOrganizationsApprovalRequestsDismiss' request conforms to.+type AccessApprovalOrganizationsApprovalRequestsDismissResource =+  "v1"+    Core.:> Core.CaptureMode "name" "dismiss" 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] DismissApprovalRequestMessage+    Core.:> Core.Post '[Core.JSON] ApprovalRequest++-- | Dismisses a request. Returns the updated ApprovalRequest. NOTE: This does not deny access to the resource if another request has been made and approved. It is equivalent in effect to ignoring the request altogether. Returns NOT/FOUND if the request does not exist. Returns FAILED/PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ 'newAccessApprovalOrganizationsApprovalRequestsDismiss' smart constructor.+data AccessApprovalOrganizationsApprovalRequestsDismiss = AccessApprovalOrganizationsApprovalRequestsDismiss+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the ApprovalRequest to dismiss.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: DismissApprovalRequestMessage,+    -- | 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 'AccessApprovalOrganizationsApprovalRequestsDismiss' with the minimum fields required to make a request.+newAccessApprovalOrganizationsApprovalRequestsDismiss ::+  -- |  Name of the ApprovalRequest to dismiss. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  DismissApprovalRequestMessage ->+  AccessApprovalOrganizationsApprovalRequestsDismiss+newAccessApprovalOrganizationsApprovalRequestsDismiss name payload =+  AccessApprovalOrganizationsApprovalRequestsDismiss+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalOrganizationsApprovalRequestsDismiss+  where+  type+    Rs AccessApprovalOrganizationsApprovalRequestsDismiss =+      ApprovalRequest+  type+    Scopes AccessApprovalOrganizationsApprovalRequestsDismiss =+      '[CloudPlatform'FullControl]+  requestClient+    AccessApprovalOrganizationsApprovalRequestsDismiss {..} =+      go+        name+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessApprovalService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessApprovalOrganizationsApprovalRequestsDismissResource+            )+            Core.mempty
+ gen/Gogol/AccessApproval/Organizations/ApprovalRequests/Get.hs view
@@ -0,0 +1,117 @@+{-# 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.AccessApproval.Organizations.ApprovalRequests.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 approval request. Returns NOT_FOUND if the request does not exist.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.get@.+module Gogol.AccessApproval.Organizations.ApprovalRequests.Get+  ( -- * Resource+    AccessApprovalOrganizationsApprovalRequestsGetResource,++    -- ** Constructing a Request+    AccessApprovalOrganizationsApprovalRequestsGet (..),+    newAccessApprovalOrganizationsApprovalRequestsGet,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.organizations.approvalRequests.get@ method which the+-- 'AccessApprovalOrganizationsApprovalRequestsGet' request conforms to.+type AccessApprovalOrganizationsApprovalRequestsGetResource =+  "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] ApprovalRequest++-- | Gets an approval request. Returns NOT_FOUND if the request does not exist.+--+-- /See:/ 'newAccessApprovalOrganizationsApprovalRequestsGet' smart constructor.+data AccessApprovalOrganizationsApprovalRequestsGet = AccessApprovalOrganizationsApprovalRequestsGet+  { -- | 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 approval request to retrieve. Format: \"{projects|folders|organizations}\/{id}\/approvalRequests\/{approval_request}\"+    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 'AccessApprovalOrganizationsApprovalRequestsGet' with the minimum fields required to make a request.+newAccessApprovalOrganizationsApprovalRequestsGet ::+  -- |  The name of the approval request to retrieve. Format: \"{projects|folders|organizations}\/{id}\/approvalRequests\/{approval_request}\" See 'name'.+  Core.Text ->+  AccessApprovalOrganizationsApprovalRequestsGet+newAccessApprovalOrganizationsApprovalRequestsGet name =+  AccessApprovalOrganizationsApprovalRequestsGet+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalOrganizationsApprovalRequestsGet+  where+  type+    Rs AccessApprovalOrganizationsApprovalRequestsGet =+      ApprovalRequest+  type+    Scopes AccessApprovalOrganizationsApprovalRequestsGet =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalOrganizationsApprovalRequestsGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalOrganizationsApprovalRequestsGetResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Organizations/ApprovalRequests/Invalidate.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.AccessApproval.Organizations.ApprovalRequests.Invalidate+-- 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)+--+-- Invalidates an existing ApprovalRequest. Returns the updated ApprovalRequest. NOTE: This does not deny access to the resource if another request has been made and approved. It only invalidates a single approval. Returns FAILED_PRECONDITION if the request exists but is not in an approved state.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.invalidate@.+module Gogol.AccessApproval.Organizations.ApprovalRequests.Invalidate+  ( -- * Resource+    AccessApprovalOrganizationsApprovalRequestsInvalidateResource,++    -- ** Constructing a Request+    AccessApprovalOrganizationsApprovalRequestsInvalidate (..),+    newAccessApprovalOrganizationsApprovalRequestsInvalidate,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.organizations.approvalRequests.invalidate@ method which the+-- 'AccessApprovalOrganizationsApprovalRequestsInvalidate' request conforms to.+type AccessApprovalOrganizationsApprovalRequestsInvalidateResource =+  "v1"+    Core.:> Core.CaptureMode "name" "invalidate" 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] InvalidateApprovalRequestMessage+    Core.:> Core.Post '[Core.JSON] ApprovalRequest++-- | Invalidates an existing ApprovalRequest. Returns the updated ApprovalRequest. NOTE: This does not deny access to the resource if another request has been made and approved. It only invalidates a single approval. Returns FAILED_PRECONDITION if the request exists but is not in an approved state.+--+-- /See:/ 'newAccessApprovalOrganizationsApprovalRequestsInvalidate' smart constructor.+data AccessApprovalOrganizationsApprovalRequestsInvalidate = AccessApprovalOrganizationsApprovalRequestsInvalidate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the ApprovalRequest to invalidate.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: InvalidateApprovalRequestMessage,+    -- | 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 'AccessApprovalOrganizationsApprovalRequestsInvalidate' with the minimum fields required to make a request.+newAccessApprovalOrganizationsApprovalRequestsInvalidate ::+  -- |  Name of the ApprovalRequest to invalidate. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  InvalidateApprovalRequestMessage ->+  AccessApprovalOrganizationsApprovalRequestsInvalidate+newAccessApprovalOrganizationsApprovalRequestsInvalidate+  name+  payload =+    AccessApprovalOrganizationsApprovalRequestsInvalidate+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        name = name,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AccessApprovalOrganizationsApprovalRequestsInvalidate+  where+  type+    Rs AccessApprovalOrganizationsApprovalRequestsInvalidate =+      ApprovalRequest+  type+    Scopes AccessApprovalOrganizationsApprovalRequestsInvalidate =+      '[CloudPlatform'FullControl]+  requestClient+    AccessApprovalOrganizationsApprovalRequestsInvalidate {..} =+      go+        name+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessApprovalService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessApprovalOrganizationsApprovalRequestsInvalidateResource+            )+            Core.mempty
+ gen/Gogol/AccessApproval/Organizations/ApprovalRequests/List.hs view
@@ -0,0 +1,133 @@+{-# 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.AccessApproval.Organizations.ApprovalRequests.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 approval requests associated with a project, folder, or organization. Approval requests can be filtered by state (pending, active, dismissed). The order is reverse chronological.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.list@.+module Gogol.AccessApproval.Organizations.ApprovalRequests.List+  ( -- * Resource+    AccessApprovalOrganizationsApprovalRequestsListResource,++    -- ** Constructing a Request+    AccessApprovalOrganizationsApprovalRequestsList (..),+    newAccessApprovalOrganizationsApprovalRequestsList,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.organizations.approvalRequests.list@ method which the+-- 'AccessApprovalOrganizationsApprovalRequestsList' request conforms to.+type AccessApprovalOrganizationsApprovalRequestsListResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "approvalRequests"+    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] ListApprovalRequestsResponse++-- | Lists approval requests associated with a project, folder, or organization. Approval requests can be filtered by state (pending, active, dismissed). The order is reverse chronological.+--+-- /See:/ 'newAccessApprovalOrganizationsApprovalRequestsList' smart constructor.+data AccessApprovalOrganizationsApprovalRequestsList = AccessApprovalOrganizationsApprovalRequestsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | A filter on the type of approval requests to retrieve. Must be one of the following values: * [not set]: Requests that are pending or have active approvals. * ALL: All requests. * PENDING: Only pending requests. * ACTIVE: Only active (i.e. currently approved) requests. * DISMISSED: Only requests that have been dismissed, or requests that are not approved and past expiration. * EXPIRED: Only requests that have been approved, and the approval has expired. * HISTORY: Active, dismissed and expired requests.+    filter :: (Core.Maybe Core.Text),+    -- | Requested page size.+    pageSize :: (Core.Maybe Core.Int32),+    -- | A token identifying the page of results to return.+    pageToken :: (Core.Maybe Core.Text),+    -- | The parent resource. This may be \"projects\/{project}\", \"folders\/{folder}\", or \"organizations\/{organization}\".+    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 'AccessApprovalOrganizationsApprovalRequestsList' with the minimum fields required to make a request.+newAccessApprovalOrganizationsApprovalRequestsList ::+  -- |  The parent resource. This may be \"projects\/{project}\", \"folders\/{folder}\", or \"organizations\/{organization}\". See 'parent'.+  Core.Text ->+  AccessApprovalOrganizationsApprovalRequestsList+newAccessApprovalOrganizationsApprovalRequestsList parent =+  AccessApprovalOrganizationsApprovalRequestsList+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      parent = parent,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalOrganizationsApprovalRequestsList+  where+  type+    Rs AccessApprovalOrganizationsApprovalRequestsList =+      ListApprovalRequestsResponse+  type+    Scopes AccessApprovalOrganizationsApprovalRequestsList =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalOrganizationsApprovalRequestsList {..} =+    go+      parent+      xgafv+      accessToken+      callback+      filter+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalOrganizationsApprovalRequestsListResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Organizations/DeleteAccessApprovalSettings.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.AccessApproval.Organizations.DeleteAccessApprovalSettings+-- 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 the settings associated with a project, folder, or organization. This will have the effect of disabling Access Approval for the project, folder, or organization, but only if all ancestors also have Access Approval disabled. If Access Approval is enabled at a higher level of the hierarchy, then Access Approval will still be enabled at this level as the settings are inherited.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.deleteAccessApprovalSettings@.+module Gogol.AccessApproval.Organizations.DeleteAccessApprovalSettings+  ( -- * Resource+    AccessApprovalOrganizationsDeleteAccessApprovalSettingsResource,++    -- ** Constructing a Request+    AccessApprovalOrganizationsDeleteAccessApprovalSettings (..),+    newAccessApprovalOrganizationsDeleteAccessApprovalSettings,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.organizations.deleteAccessApprovalSettings@ method which the+-- 'AccessApprovalOrganizationsDeleteAccessApprovalSettings' request conforms to.+type AccessApprovalOrganizationsDeleteAccessApprovalSettingsResource =+  "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 the settings associated with a project, folder, or organization. This will have the effect of disabling Access Approval for the project, folder, or organization, but only if all ancestors also have Access Approval disabled. If Access Approval is enabled at a higher level of the hierarchy, then Access Approval will still be enabled at this level as the settings are inherited.+--+-- /See:/ 'newAccessApprovalOrganizationsDeleteAccessApprovalSettings' smart constructor.+data AccessApprovalOrganizationsDeleteAccessApprovalSettings = AccessApprovalOrganizationsDeleteAccessApprovalSettings+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the AccessApprovalSettings to delete.+    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 'AccessApprovalOrganizationsDeleteAccessApprovalSettings' with the minimum fields required to make a request.+newAccessApprovalOrganizationsDeleteAccessApprovalSettings ::+  -- |  Name of the AccessApprovalSettings to delete. See 'name'.+  Core.Text ->+  AccessApprovalOrganizationsDeleteAccessApprovalSettings+newAccessApprovalOrganizationsDeleteAccessApprovalSettings name =+  AccessApprovalOrganizationsDeleteAccessApprovalSettings+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalOrganizationsDeleteAccessApprovalSettings+  where+  type+    Rs AccessApprovalOrganizationsDeleteAccessApprovalSettings =+      Empty+  type+    Scopes AccessApprovalOrganizationsDeleteAccessApprovalSettings =+      '[CloudPlatform'FullControl]+  requestClient+    AccessApprovalOrganizationsDeleteAccessApprovalSettings {..} =+      go+        name+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        accessApprovalService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessApprovalOrganizationsDeleteAccessApprovalSettingsResource+            )+            Core.mempty
+ gen/Gogol/AccessApproval/Organizations/GetAccessApprovalSettings.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.AccessApproval.Organizations.GetAccessApprovalSettings+-- 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 settings associated with a project, folder, or organization.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.getAccessApprovalSettings@.+module Gogol.AccessApproval.Organizations.GetAccessApprovalSettings+  ( -- * Resource+    AccessApprovalOrganizationsGetAccessApprovalSettingsResource,++    -- ** Constructing a Request+    AccessApprovalOrganizationsGetAccessApprovalSettings (..),+    newAccessApprovalOrganizationsGetAccessApprovalSettings,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.organizations.getAccessApprovalSettings@ method which the+-- 'AccessApprovalOrganizationsGetAccessApprovalSettings' request conforms to.+type AccessApprovalOrganizationsGetAccessApprovalSettingsResource =+  "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] AccessApprovalSettings++-- | Gets the settings associated with a project, folder, or organization.+--+-- /See:/ 'newAccessApprovalOrganizationsGetAccessApprovalSettings' smart constructor.+data AccessApprovalOrganizationsGetAccessApprovalSettings = AccessApprovalOrganizationsGetAccessApprovalSettings+  { -- | 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 AccessApprovalSettings to retrieve. Format: \"{projects|folders|organizations}\/{id}\/accessApprovalSettings\"+    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 'AccessApprovalOrganizationsGetAccessApprovalSettings' with the minimum fields required to make a request.+newAccessApprovalOrganizationsGetAccessApprovalSettings ::+  -- |  The name of the AccessApprovalSettings to retrieve. Format: \"{projects|folders|organizations}\/{id}\/accessApprovalSettings\" See 'name'.+  Core.Text ->+  AccessApprovalOrganizationsGetAccessApprovalSettings+newAccessApprovalOrganizationsGetAccessApprovalSettings name =+  AccessApprovalOrganizationsGetAccessApprovalSettings+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalOrganizationsGetAccessApprovalSettings+  where+  type+    Rs AccessApprovalOrganizationsGetAccessApprovalSettings =+      AccessApprovalSettings+  type+    Scopes AccessApprovalOrganizationsGetAccessApprovalSettings =+      '[CloudPlatform'FullControl]+  requestClient+    AccessApprovalOrganizationsGetAccessApprovalSettings {..} =+      go+        name+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        accessApprovalService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessApprovalOrganizationsGetAccessApprovalSettingsResource+            )+            Core.mempty
+ gen/Gogol/AccessApproval/Organizations/GetServiceAccount.hs view
@@ -0,0 +1,117 @@+{-# 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.AccessApproval.Organizations.GetServiceAccount+-- 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)+--+-- Retrieves the service account that is used by Access Approval to access KMS keys for signing approved approval requests.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.getServiceAccount@.+module Gogol.AccessApproval.Organizations.GetServiceAccount+  ( -- * Resource+    AccessApprovalOrganizationsGetServiceAccountResource,++    -- ** Constructing a Request+    AccessApprovalOrganizationsGetServiceAccount (..),+    newAccessApprovalOrganizationsGetServiceAccount,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.organizations.getServiceAccount@ method which the+-- 'AccessApprovalOrganizationsGetServiceAccount' request conforms to.+type AccessApprovalOrganizationsGetServiceAccountResource =+  "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] AccessApprovalServiceAccount++-- | Retrieves the service account that is used by Access Approval to access KMS keys for signing approved approval requests.+--+-- /See:/ 'newAccessApprovalOrganizationsGetServiceAccount' smart constructor.+data AccessApprovalOrganizationsGetServiceAccount = AccessApprovalOrganizationsGetServiceAccount+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the AccessApprovalServiceAccount to retrieve.+    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 'AccessApprovalOrganizationsGetServiceAccount' with the minimum fields required to make a request.+newAccessApprovalOrganizationsGetServiceAccount ::+  -- |  Name of the AccessApprovalServiceAccount to retrieve. See 'name'.+  Core.Text ->+  AccessApprovalOrganizationsGetServiceAccount+newAccessApprovalOrganizationsGetServiceAccount name =+  AccessApprovalOrganizationsGetServiceAccount+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalOrganizationsGetServiceAccount+  where+  type+    Rs AccessApprovalOrganizationsGetServiceAccount =+      AccessApprovalServiceAccount+  type+    Scopes AccessApprovalOrganizationsGetServiceAccount =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalOrganizationsGetServiceAccount {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalOrganizationsGetServiceAccountResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Organizations/UpdateAccessApprovalSettings.hs view
@@ -0,0 +1,133 @@+{-# 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.AccessApproval.Organizations.UpdateAccessApprovalSettings+-- 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 the settings associated with a project, folder, or organization. Settings to update are determined by the value of field_mask.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.updateAccessApprovalSettings@.+module Gogol.AccessApproval.Organizations.UpdateAccessApprovalSettings+  ( -- * Resource+    AccessApprovalOrganizationsUpdateAccessApprovalSettingsResource,++    -- ** Constructing a Request+    AccessApprovalOrganizationsUpdateAccessApprovalSettings (..),+    newAccessApprovalOrganizationsUpdateAccessApprovalSettings,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.organizations.updateAccessApprovalSettings@ method which the+-- 'AccessApprovalOrganizationsUpdateAccessApprovalSettings' request conforms to.+type AccessApprovalOrganizationsUpdateAccessApprovalSettingsResource =+  "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] AccessApprovalSettings+    Core.:> Core.Patch '[Core.JSON] AccessApprovalSettings++-- | Updates the settings associated with a project, folder, or organization. Settings to update are determined by the value of field_mask.+--+-- /See:/ 'newAccessApprovalOrganizationsUpdateAccessApprovalSettings' smart constructor.+data AccessApprovalOrganizationsUpdateAccessApprovalSettings = AccessApprovalOrganizationsUpdateAccessApprovalSettings+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The resource name of the settings. Format is one of: * \"projects\/{project}\/accessApprovalSettings\" * \"folders\/{folder}\/accessApprovalSettings\" * \"organizations\/{organization}\/accessApprovalSettings\"+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: AccessApprovalSettings,+    -- | The update mask applies to the settings. Only the top level fields of AccessApprovalSettings (notification/emails & enrolled/services) are supported. For each field, if it is included, the currently stored value will be entirely overwritten with the value of the field passed in this request. For the @FieldMask@ definition, see https:\/\/developers.google.com\/protocol-buffers\/docs\/reference\/google.protobuf#fieldmask If this field is left unset, only the notification_emails field will be updated.+    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 'AccessApprovalOrganizationsUpdateAccessApprovalSettings' with the minimum fields required to make a request.+newAccessApprovalOrganizationsUpdateAccessApprovalSettings ::+  -- |  The resource name of the settings. Format is one of: * \"projects\/{project}\/accessApprovalSettings\" * \"folders\/{folder}\/accessApprovalSettings\" * \"organizations\/{organization}\/accessApprovalSettings\" See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  AccessApprovalSettings ->+  AccessApprovalOrganizationsUpdateAccessApprovalSettings+newAccessApprovalOrganizationsUpdateAccessApprovalSettings+  name+  payload =+    AccessApprovalOrganizationsUpdateAccessApprovalSettings+      { 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+    AccessApprovalOrganizationsUpdateAccessApprovalSettings+  where+  type+    Rs AccessApprovalOrganizationsUpdateAccessApprovalSettings =+      AccessApprovalSettings+  type+    Scopes AccessApprovalOrganizationsUpdateAccessApprovalSettings =+      '[CloudPlatform'FullControl]+  requestClient+    AccessApprovalOrganizationsUpdateAccessApprovalSettings {..} =+      go+        name+        xgafv+        accessToken+        callback+        updateMask+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessApprovalService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessApprovalOrganizationsUpdateAccessApprovalSettingsResource+            )+            Core.mempty
+ gen/Gogol/AccessApproval/Projects/ApprovalRequests/Approve.hs view
@@ -0,0 +1,124 @@+{-# 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.AccessApproval.Projects.ApprovalRequests.Approve+-- 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)+--+-- Approves a request and returns the updated ApprovalRequest. Returns NOT/FOUND if the request does not exist. Returns FAILED/PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.approve@.+module Gogol.AccessApproval.Projects.ApprovalRequests.Approve+  ( -- * Resource+    AccessApprovalProjectsApprovalRequestsApproveResource,++    -- ** Constructing a Request+    AccessApprovalProjectsApprovalRequestsApprove (..),+    newAccessApprovalProjectsApprovalRequestsApprove,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.projects.approvalRequests.approve@ method which the+-- 'AccessApprovalProjectsApprovalRequestsApprove' request conforms to.+type AccessApprovalProjectsApprovalRequestsApproveResource =+  "v1"+    Core.:> Core.CaptureMode "name" "approve" 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] ApproveApprovalRequestMessage+    Core.:> Core.Post '[Core.JSON] ApprovalRequest++-- | Approves a request and returns the updated ApprovalRequest. Returns NOT/FOUND if the request does not exist. Returns FAILED/PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ 'newAccessApprovalProjectsApprovalRequestsApprove' smart constructor.+data AccessApprovalProjectsApprovalRequestsApprove = AccessApprovalProjectsApprovalRequestsApprove+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the approval request to approve.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: ApproveApprovalRequestMessage,+    -- | 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 'AccessApprovalProjectsApprovalRequestsApprove' with the minimum fields required to make a request.+newAccessApprovalProjectsApprovalRequestsApprove ::+  -- |  Name of the approval request to approve. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ApproveApprovalRequestMessage ->+  AccessApprovalProjectsApprovalRequestsApprove+newAccessApprovalProjectsApprovalRequestsApprove name payload =+  AccessApprovalProjectsApprovalRequestsApprove+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalProjectsApprovalRequestsApprove+  where+  type+    Rs AccessApprovalProjectsApprovalRequestsApprove =+      ApprovalRequest+  type+    Scopes AccessApprovalProjectsApprovalRequestsApprove =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalProjectsApprovalRequestsApprove {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalProjectsApprovalRequestsApproveResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Projects/ApprovalRequests/Dismiss.hs view
@@ -0,0 +1,124 @@+{-# 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.AccessApproval.Projects.ApprovalRequests.Dismiss+-- 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)+--+-- Dismisses a request. Returns the updated ApprovalRequest. NOTE: This does not deny access to the resource if another request has been made and approved. It is equivalent in effect to ignoring the request altogether. Returns NOT/FOUND if the request does not exist. Returns FAILED/PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.dismiss@.+module Gogol.AccessApproval.Projects.ApprovalRequests.Dismiss+  ( -- * Resource+    AccessApprovalProjectsApprovalRequestsDismissResource,++    -- ** Constructing a Request+    AccessApprovalProjectsApprovalRequestsDismiss (..),+    newAccessApprovalProjectsApprovalRequestsDismiss,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.projects.approvalRequests.dismiss@ method which the+-- 'AccessApprovalProjectsApprovalRequestsDismiss' request conforms to.+type AccessApprovalProjectsApprovalRequestsDismissResource =+  "v1"+    Core.:> Core.CaptureMode "name" "dismiss" 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] DismissApprovalRequestMessage+    Core.:> Core.Post '[Core.JSON] ApprovalRequest++-- | Dismisses a request. Returns the updated ApprovalRequest. NOTE: This does not deny access to the resource if another request has been made and approved. It is equivalent in effect to ignoring the request altogether. Returns NOT/FOUND if the request does not exist. Returns FAILED/PRECONDITION if the request exists but is not in a pending state.+--+-- /See:/ 'newAccessApprovalProjectsApprovalRequestsDismiss' smart constructor.+data AccessApprovalProjectsApprovalRequestsDismiss = AccessApprovalProjectsApprovalRequestsDismiss+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the ApprovalRequest to dismiss.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: DismissApprovalRequestMessage,+    -- | 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 'AccessApprovalProjectsApprovalRequestsDismiss' with the minimum fields required to make a request.+newAccessApprovalProjectsApprovalRequestsDismiss ::+  -- |  Name of the ApprovalRequest to dismiss. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  DismissApprovalRequestMessage ->+  AccessApprovalProjectsApprovalRequestsDismiss+newAccessApprovalProjectsApprovalRequestsDismiss name payload =+  AccessApprovalProjectsApprovalRequestsDismiss+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalProjectsApprovalRequestsDismiss+  where+  type+    Rs AccessApprovalProjectsApprovalRequestsDismiss =+      ApprovalRequest+  type+    Scopes AccessApprovalProjectsApprovalRequestsDismiss =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalProjectsApprovalRequestsDismiss {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalProjectsApprovalRequestsDismissResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Projects/ApprovalRequests/Get.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.AccessApproval.Projects.ApprovalRequests.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 approval request. Returns NOT_FOUND if the request does not exist.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.get@.+module Gogol.AccessApproval.Projects.ApprovalRequests.Get+  ( -- * Resource+    AccessApprovalProjectsApprovalRequestsGetResource,++    -- ** Constructing a Request+    AccessApprovalProjectsApprovalRequestsGet (..),+    newAccessApprovalProjectsApprovalRequestsGet,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.projects.approvalRequests.get@ method which the+-- 'AccessApprovalProjectsApprovalRequestsGet' request conforms to.+type AccessApprovalProjectsApprovalRequestsGetResource =+  "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] ApprovalRequest++-- | Gets an approval request. Returns NOT_FOUND if the request does not exist.+--+-- /See:/ 'newAccessApprovalProjectsApprovalRequestsGet' smart constructor.+data AccessApprovalProjectsApprovalRequestsGet = AccessApprovalProjectsApprovalRequestsGet+  { -- | 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 approval request to retrieve. Format: \"{projects|folders|organizations}\/{id}\/approvalRequests\/{approval_request}\"+    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 'AccessApprovalProjectsApprovalRequestsGet' with the minimum fields required to make a request.+newAccessApprovalProjectsApprovalRequestsGet ::+  -- |  The name of the approval request to retrieve. Format: \"{projects|folders|organizations}\/{id}\/approvalRequests\/{approval_request}\" See 'name'.+  Core.Text ->+  AccessApprovalProjectsApprovalRequestsGet+newAccessApprovalProjectsApprovalRequestsGet name =+  AccessApprovalProjectsApprovalRequestsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalProjectsApprovalRequestsGet+  where+  type Rs AccessApprovalProjectsApprovalRequestsGet = ApprovalRequest+  type+    Scopes AccessApprovalProjectsApprovalRequestsGet =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalProjectsApprovalRequestsGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalProjectsApprovalRequestsGetResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Projects/ApprovalRequests/Invalidate.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.AccessApproval.Projects.ApprovalRequests.Invalidate+-- 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)+--+-- Invalidates an existing ApprovalRequest. Returns the updated ApprovalRequest. NOTE: This does not deny access to the resource if another request has been made and approved. It only invalidates a single approval. Returns FAILED_PRECONDITION if the request exists but is not in an approved state.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.invalidate@.+module Gogol.AccessApproval.Projects.ApprovalRequests.Invalidate+  ( -- * Resource+    AccessApprovalProjectsApprovalRequestsInvalidateResource,++    -- ** Constructing a Request+    AccessApprovalProjectsApprovalRequestsInvalidate (..),+    newAccessApprovalProjectsApprovalRequestsInvalidate,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.projects.approvalRequests.invalidate@ method which the+-- 'AccessApprovalProjectsApprovalRequestsInvalidate' request conforms to.+type AccessApprovalProjectsApprovalRequestsInvalidateResource =+  "v1"+    Core.:> Core.CaptureMode "name" "invalidate" 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] InvalidateApprovalRequestMessage+    Core.:> Core.Post '[Core.JSON] ApprovalRequest++-- | Invalidates an existing ApprovalRequest. Returns the updated ApprovalRequest. NOTE: This does not deny access to the resource if another request has been made and approved. It only invalidates a single approval. Returns FAILED_PRECONDITION if the request exists but is not in an approved state.+--+-- /See:/ 'newAccessApprovalProjectsApprovalRequestsInvalidate' smart constructor.+data AccessApprovalProjectsApprovalRequestsInvalidate = AccessApprovalProjectsApprovalRequestsInvalidate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the ApprovalRequest to invalidate.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: InvalidateApprovalRequestMessage,+    -- | 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 'AccessApprovalProjectsApprovalRequestsInvalidate' with the minimum fields required to make a request.+newAccessApprovalProjectsApprovalRequestsInvalidate ::+  -- |  Name of the ApprovalRequest to invalidate. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  InvalidateApprovalRequestMessage ->+  AccessApprovalProjectsApprovalRequestsInvalidate+newAccessApprovalProjectsApprovalRequestsInvalidate name payload =+  AccessApprovalProjectsApprovalRequestsInvalidate+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalProjectsApprovalRequestsInvalidate+  where+  type+    Rs AccessApprovalProjectsApprovalRequestsInvalidate =+      ApprovalRequest+  type+    Scopes AccessApprovalProjectsApprovalRequestsInvalidate =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalProjectsApprovalRequestsInvalidate {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy+                AccessApprovalProjectsApprovalRequestsInvalidateResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Projects/ApprovalRequests/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.AccessApproval.Projects.ApprovalRequests.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 approval requests associated with a project, folder, or organization. Approval requests can be filtered by state (pending, active, dismissed). The order is reverse chronological.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.list@.+module Gogol.AccessApproval.Projects.ApprovalRequests.List+  ( -- * Resource+    AccessApprovalProjectsApprovalRequestsListResource,++    -- ** Constructing a Request+    AccessApprovalProjectsApprovalRequestsList (..),+    newAccessApprovalProjectsApprovalRequestsList,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.projects.approvalRequests.list@ method which the+-- 'AccessApprovalProjectsApprovalRequestsList' request conforms to.+type AccessApprovalProjectsApprovalRequestsListResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "approvalRequests"+    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] ListApprovalRequestsResponse++-- | Lists approval requests associated with a project, folder, or organization. Approval requests can be filtered by state (pending, active, dismissed). The order is reverse chronological.+--+-- /See:/ 'newAccessApprovalProjectsApprovalRequestsList' smart constructor.+data AccessApprovalProjectsApprovalRequestsList = AccessApprovalProjectsApprovalRequestsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | A filter on the type of approval requests to retrieve. Must be one of the following values: * [not set]: Requests that are pending or have active approvals. * ALL: All requests. * PENDING: Only pending requests. * ACTIVE: Only active (i.e. currently approved) requests. * DISMISSED: Only requests that have been dismissed, or requests that are not approved and past expiration. * EXPIRED: Only requests that have been approved, and the approval has expired. * HISTORY: Active, dismissed and expired requests.+    filter :: (Core.Maybe Core.Text),+    -- | Requested page size.+    pageSize :: (Core.Maybe Core.Int32),+    -- | A token identifying the page of results to return.+    pageToken :: (Core.Maybe Core.Text),+    -- | The parent resource. This may be \"projects\/{project}\", \"folders\/{folder}\", or \"organizations\/{organization}\".+    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 'AccessApprovalProjectsApprovalRequestsList' with the minimum fields required to make a request.+newAccessApprovalProjectsApprovalRequestsList ::+  -- |  The parent resource. This may be \"projects\/{project}\", \"folders\/{folder}\", or \"organizations\/{organization}\". See 'parent'.+  Core.Text ->+  AccessApprovalProjectsApprovalRequestsList+newAccessApprovalProjectsApprovalRequestsList parent =+  AccessApprovalProjectsApprovalRequestsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      parent = parent,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalProjectsApprovalRequestsList+  where+  type+    Rs AccessApprovalProjectsApprovalRequestsList =+      ListApprovalRequestsResponse+  type+    Scopes AccessApprovalProjectsApprovalRequestsList =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalProjectsApprovalRequestsList {..} =+    go+      parent+      xgafv+      accessToken+      callback+      filter+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalProjectsApprovalRequestsListResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Projects/DeleteAccessApprovalSettings.hs view
@@ -0,0 +1,117 @@+{-# 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.AccessApproval.Projects.DeleteAccessApprovalSettings+-- 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 the settings associated with a project, folder, or organization. This will have the effect of disabling Access Approval for the project, folder, or organization, but only if all ancestors also have Access Approval disabled. If Access Approval is enabled at a higher level of the hierarchy, then Access Approval will still be enabled at this level as the settings are inherited.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.projects.deleteAccessApprovalSettings@.+module Gogol.AccessApproval.Projects.DeleteAccessApprovalSettings+  ( -- * Resource+    AccessApprovalProjectsDeleteAccessApprovalSettingsResource,++    -- ** Constructing a Request+    AccessApprovalProjectsDeleteAccessApprovalSettings (..),+    newAccessApprovalProjectsDeleteAccessApprovalSettings,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.projects.deleteAccessApprovalSettings@ method which the+-- 'AccessApprovalProjectsDeleteAccessApprovalSettings' request conforms to.+type AccessApprovalProjectsDeleteAccessApprovalSettingsResource =+  "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 the settings associated with a project, folder, or organization. This will have the effect of disabling Access Approval for the project, folder, or organization, but only if all ancestors also have Access Approval disabled. If Access Approval is enabled at a higher level of the hierarchy, then Access Approval will still be enabled at this level as the settings are inherited.+--+-- /See:/ 'newAccessApprovalProjectsDeleteAccessApprovalSettings' smart constructor.+data AccessApprovalProjectsDeleteAccessApprovalSettings = AccessApprovalProjectsDeleteAccessApprovalSettings+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the AccessApprovalSettings to delete.+    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 'AccessApprovalProjectsDeleteAccessApprovalSettings' with the minimum fields required to make a request.+newAccessApprovalProjectsDeleteAccessApprovalSettings ::+  -- |  Name of the AccessApprovalSettings to delete. See 'name'.+  Core.Text ->+  AccessApprovalProjectsDeleteAccessApprovalSettings+newAccessApprovalProjectsDeleteAccessApprovalSettings name =+  AccessApprovalProjectsDeleteAccessApprovalSettings+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalProjectsDeleteAccessApprovalSettings+  where+  type Rs AccessApprovalProjectsDeleteAccessApprovalSettings = Empty+  type+    Scopes AccessApprovalProjectsDeleteAccessApprovalSettings =+      '[CloudPlatform'FullControl]+  requestClient+    AccessApprovalProjectsDeleteAccessApprovalSettings {..} =+      go+        name+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        accessApprovalService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessApprovalProjectsDeleteAccessApprovalSettingsResource+            )+            Core.mempty
+ gen/Gogol/AccessApproval/Projects/GetAccessApprovalSettings.hs view
@@ -0,0 +1,117 @@+{-# 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.AccessApproval.Projects.GetAccessApprovalSettings+-- 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 settings associated with a project, folder, or organization.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.projects.getAccessApprovalSettings@.+module Gogol.AccessApproval.Projects.GetAccessApprovalSettings+  ( -- * Resource+    AccessApprovalProjectsGetAccessApprovalSettingsResource,++    -- ** Constructing a Request+    AccessApprovalProjectsGetAccessApprovalSettings (..),+    newAccessApprovalProjectsGetAccessApprovalSettings,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.projects.getAccessApprovalSettings@ method which the+-- 'AccessApprovalProjectsGetAccessApprovalSettings' request conforms to.+type AccessApprovalProjectsGetAccessApprovalSettingsResource =+  "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] AccessApprovalSettings++-- | Gets the settings associated with a project, folder, or organization.+--+-- /See:/ 'newAccessApprovalProjectsGetAccessApprovalSettings' smart constructor.+data AccessApprovalProjectsGetAccessApprovalSettings = AccessApprovalProjectsGetAccessApprovalSettings+  { -- | 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 AccessApprovalSettings to retrieve. Format: \"{projects|folders|organizations}\/{id}\/accessApprovalSettings\"+    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 'AccessApprovalProjectsGetAccessApprovalSettings' with the minimum fields required to make a request.+newAccessApprovalProjectsGetAccessApprovalSettings ::+  -- |  The name of the AccessApprovalSettings to retrieve. Format: \"{projects|folders|organizations}\/{id}\/accessApprovalSettings\" See 'name'.+  Core.Text ->+  AccessApprovalProjectsGetAccessApprovalSettings+newAccessApprovalProjectsGetAccessApprovalSettings name =+  AccessApprovalProjectsGetAccessApprovalSettings+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AccessApprovalProjectsGetAccessApprovalSettings+  where+  type+    Rs AccessApprovalProjectsGetAccessApprovalSettings =+      AccessApprovalSettings+  type+    Scopes AccessApprovalProjectsGetAccessApprovalSettings =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalProjectsGetAccessApprovalSettings {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalProjectsGetAccessApprovalSettingsResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Projects/GetServiceAccount.hs view
@@ -0,0 +1,113 @@+{-# 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.AccessApproval.Projects.GetServiceAccount+-- 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)+--+-- Retrieves the service account that is used by Access Approval to access KMS keys for signing approved approval requests.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.projects.getServiceAccount@.+module Gogol.AccessApproval.Projects.GetServiceAccount+  ( -- * Resource+    AccessApprovalProjectsGetServiceAccountResource,++    -- ** Constructing a Request+    AccessApprovalProjectsGetServiceAccount (..),+    newAccessApprovalProjectsGetServiceAccount,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.projects.getServiceAccount@ method which the+-- 'AccessApprovalProjectsGetServiceAccount' request conforms to.+type AccessApprovalProjectsGetServiceAccountResource =+  "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] AccessApprovalServiceAccount++-- | Retrieves the service account that is used by Access Approval to access KMS keys for signing approved approval requests.+--+-- /See:/ 'newAccessApprovalProjectsGetServiceAccount' smart constructor.+data AccessApprovalProjectsGetServiceAccount = AccessApprovalProjectsGetServiceAccount+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Name of the AccessApprovalServiceAccount to retrieve.+    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 'AccessApprovalProjectsGetServiceAccount' with the minimum fields required to make a request.+newAccessApprovalProjectsGetServiceAccount ::+  -- |  Name of the AccessApprovalServiceAccount to retrieve. See 'name'.+  Core.Text ->+  AccessApprovalProjectsGetServiceAccount+newAccessApprovalProjectsGetServiceAccount name =+  AccessApprovalProjectsGetServiceAccount+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AccessApprovalProjectsGetServiceAccount where+  type+    Rs AccessApprovalProjectsGetServiceAccount =+      AccessApprovalServiceAccount+  type+    Scopes AccessApprovalProjectsGetServiceAccount =+      '[CloudPlatform'FullControl]+  requestClient AccessApprovalProjectsGetServiceAccount {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      accessApprovalService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AccessApprovalProjectsGetServiceAccountResource+          )+          Core.mempty
+ gen/Gogol/AccessApproval/Projects/UpdateAccessApprovalSettings.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.AccessApproval.Projects.UpdateAccessApprovalSettings+-- 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 the settings associated with a project, folder, or organization. Settings to update are determined by the value of field_mask.+--+-- /See:/ <https://cloud.google.com/assured-workloads/access-approval/docs Access Approval API Reference> for @accessapproval.projects.updateAccessApprovalSettings@.+module Gogol.AccessApproval.Projects.UpdateAccessApprovalSettings+  ( -- * Resource+    AccessApprovalProjectsUpdateAccessApprovalSettingsResource,++    -- ** Constructing a Request+    AccessApprovalProjectsUpdateAccessApprovalSettings (..),+    newAccessApprovalProjectsUpdateAccessApprovalSettings,+  )+where++import Gogol.AccessApproval.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @accessapproval.projects.updateAccessApprovalSettings@ method which the+-- 'AccessApprovalProjectsUpdateAccessApprovalSettings' request conforms to.+type AccessApprovalProjectsUpdateAccessApprovalSettingsResource =+  "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] AccessApprovalSettings+    Core.:> Core.Patch '[Core.JSON] AccessApprovalSettings++-- | Updates the settings associated with a project, folder, or organization. Settings to update are determined by the value of field_mask.+--+-- /See:/ 'newAccessApprovalProjectsUpdateAccessApprovalSettings' smart constructor.+data AccessApprovalProjectsUpdateAccessApprovalSettings = AccessApprovalProjectsUpdateAccessApprovalSettings+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The resource name of the settings. Format is one of: * \"projects\/{project}\/accessApprovalSettings\" * \"folders\/{folder}\/accessApprovalSettings\" * \"organizations\/{organization}\/accessApprovalSettings\"+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: AccessApprovalSettings,+    -- | The update mask applies to the settings. Only the top level fields of AccessApprovalSettings (notification/emails & enrolled/services) are supported. For each field, if it is included, the currently stored value will be entirely overwritten with the value of the field passed in this request. For the @FieldMask@ definition, see https:\/\/developers.google.com\/protocol-buffers\/docs\/reference\/google.protobuf#fieldmask If this field is left unset, only the notification_emails field will be updated.+    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 'AccessApprovalProjectsUpdateAccessApprovalSettings' with the minimum fields required to make a request.+newAccessApprovalProjectsUpdateAccessApprovalSettings ::+  -- |  The resource name of the settings. Format is one of: * \"projects\/{project}\/accessApprovalSettings\" * \"folders\/{folder}\/accessApprovalSettings\" * \"organizations\/{organization}\/accessApprovalSettings\" See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  AccessApprovalSettings ->+  AccessApprovalProjectsUpdateAccessApprovalSettings+newAccessApprovalProjectsUpdateAccessApprovalSettings name payload =+  AccessApprovalProjectsUpdateAccessApprovalSettings+    { 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+    AccessApprovalProjectsUpdateAccessApprovalSettings+  where+  type+    Rs AccessApprovalProjectsUpdateAccessApprovalSettings =+      AccessApprovalSettings+  type+    Scopes AccessApprovalProjectsUpdateAccessApprovalSettings =+      '[CloudPlatform'FullControl]+  requestClient+    AccessApprovalProjectsUpdateAccessApprovalSettings {..} =+      go+        name+        xgafv+        accessToken+        callback+        updateMask+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        accessApprovalService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AccessApprovalProjectsUpdateAccessApprovalSettingsResource+            )+            Core.mempty
+ gen/Gogol/AccessApproval/Types.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.AccessApproval.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.AccessApproval.Types+  ( -- * Configuration+    accessApprovalService,++    -- * OAuth Scopes+    CloudPlatform'FullControl,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** AccessApprovalServiceAccount+    AccessApprovalServiceAccount (..),+    newAccessApprovalServiceAccount,++    -- ** AccessApprovalSettings+    AccessApprovalSettings (..),+    newAccessApprovalSettings,++    -- ** AccessApprovalSettings_RequestScopeMaxWidthPreference+    AccessApprovalSettings_RequestScopeMaxWidthPreference (..),++    -- ** AccessLocations+    AccessLocations (..),+    newAccessLocations,++    -- ** AccessReason+    AccessReason (..),+    newAccessReason,++    -- ** AccessReason_Type+    AccessReason_Type (..),++    -- ** ApprovalRequest+    ApprovalRequest (..),+    newApprovalRequest,++    -- ** ApproveApprovalRequestMessage+    ApproveApprovalRequestMessage (..),+    newApproveApprovalRequestMessage,++    -- ** ApproveDecision+    ApproveDecision (..),+    newApproveDecision,++    -- ** AugmentedInfo+    AugmentedInfo (..),+    newAugmentedInfo,++    -- ** DismissApprovalRequestMessage+    DismissApprovalRequestMessage (..),+    newDismissApprovalRequestMessage,++    -- ** DismissDecision+    DismissDecision (..),+    newDismissDecision,++    -- ** Empty+    Empty (..),+    newEmpty,++    -- ** EnrolledService+    EnrolledService (..),+    newEnrolledService,++    -- ** EnrolledService_EnrollmentLevel+    EnrolledService_EnrollmentLevel (..),++    -- ** InvalidateApprovalRequestMessage+    InvalidateApprovalRequestMessage (..),+    newInvalidateApprovalRequestMessage,++    -- ** ListApprovalRequestsResponse+    ListApprovalRequestsResponse (..),+    newListApprovalRequestsResponse,++    -- ** ResourceProperties+    ResourceProperties (..),+    newResourceProperties,++    -- ** SignatureInfo+    SignatureInfo (..),+    newSignatureInfo,++    -- ** SignatureInfo_GoogleKeyAlgorithm+    SignatureInfo_GoogleKeyAlgorithm (..),+  )+where++import Gogol.AccessApproval.Internal.Product+import Gogol.AccessApproval.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Default request referring to version @v1@ of the Access Approval API. This contains the host and root path used as a starting point for constructing service requests.+accessApprovalService :: Core.ServiceConfig+accessApprovalService =+  Core.defaultService+    (Core.ServiceId "accessapproval:v1")+    "accessapproval.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/AccessApproval.hs 
@@ -1,196 +0,0 @@-{-# LANGUAGE DataKinds         #-}-{-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE TypeOperators     #-}--{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- |--- Module      : Network.Google.AccessApproval--- 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 controlling access to data by Google personnel.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference>-module Network.Google.AccessApproval-    (-    -- * Service Configuration-      accessApprovalService--    -- * OAuth Scopes-    , cloudPlatformScope--    -- * API Declaration-    , AccessApprovalAPI--    -- * Resources--    -- ** accessapproval.folders.approvalRequests.approve-    , module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Approve--    -- ** accessapproval.folders.approvalRequests.dismiss-    , module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Dismiss--    -- ** accessapproval.folders.approvalRequests.get-    , module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Get--    -- ** accessapproval.folders.approvalRequests.list-    , module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.List--    -- ** accessapproval.folders.getAccessApprovalSettings-    , module Network.Google.Resource.AccessApproval.Folders.GetAccessApprovalSettings--    -- ** accessapproval.folders.updateAccessApprovalSettings-    , module Network.Google.Resource.AccessApproval.Folders.UpdateAccessApprovalSettings--    -- ** accessapproval.organizations.approvalRequests.approve-    , module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Approve--    -- ** accessapproval.organizations.approvalRequests.dismiss-    , module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Dismiss--    -- ** accessapproval.organizations.approvalRequests.get-    , module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Get--    -- ** accessapproval.organizations.approvalRequests.list-    , module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.List--    -- ** accessapproval.organizations.getAccessApprovalSettings-    , module Network.Google.Resource.AccessApproval.Organizations.GetAccessApprovalSettings--    -- ** accessapproval.organizations.updateAccessApprovalSettings-    , module Network.Google.Resource.AccessApproval.Organizations.UpdateAccessApprovalSettings--    -- ** accessapproval.projects.approvalRequests.approve-    , module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Approve--    -- ** accessapproval.projects.approvalRequests.dismiss-    , module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Dismiss--    -- ** accessapproval.projects.approvalRequests.get-    , module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Get--    -- ** accessapproval.projects.approvalRequests.list-    , module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.List--    -- ** accessapproval.projects.getAccessApprovalSettings-    , module Network.Google.Resource.AccessApproval.Projects.GetAccessApprovalSettings--    -- ** accessapproval.projects.updateAccessApprovalSettings-    , module Network.Google.Resource.AccessApproval.Projects.UpdateAccessApprovalSettings--    -- * Types--    -- ** ListApprovalRequestsResponse-    , ListApprovalRequestsResponse-    , listApprovalRequestsResponse-    , larrNextPageToken-    , larrApprovalRequests--    -- ** ApproveDecision-    , ApproveDecision-    , approveDecision-    , adApproveTime-    , adExpireTime--    -- ** AccessLocations-    , AccessLocations-    , accessLocations-    , alPrincipalOfficeCountry-    , alPrincipalPhysicalLocationCountry--    -- ** DismissDecision-    , DismissDecision-    , dismissDecision-    , ddDismissTime--    -- ** AccessReasonType-    , AccessReasonType (..)--    -- ** AccessApprovalSettings-    , AccessApprovalSettings-    , accessApprovalSettings-    , aasName-    , aasNotificationEmails--    -- ** ApprovalRequest-    , ApprovalRequest-    , approvalRequest-    , arRequestedResourceName-    , arRequestedExpiration-    , arRequestTime-    , arRequestedReason-    , arName-    , arApprove-    , arDismiss-    , arRequestedLocations--    -- ** DismissApprovalRequestMessage-    , DismissApprovalRequestMessage-    , dismissApprovalRequestMessage--    -- ** Xgafv-    , Xgafv (..)--    -- ** ApproveApprovalRequestMessage-    , ApproveApprovalRequestMessage-    , approveApprovalRequestMessage-    , aarmExpireTime--    -- ** AccessReason-    , AccessReason-    , accessReason-    , arType-    , arDetail-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude-import           Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Approve-import           Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Dismiss-import           Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Get-import           Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.List-import           Network.Google.Resource.AccessApproval.Folders.GetAccessApprovalSettings-import           Network.Google.Resource.AccessApproval.Folders.UpdateAccessApprovalSettings-import           Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Approve-import           Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Dismiss-import           Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Get-import           Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.List-import           Network.Google.Resource.AccessApproval.Organizations.GetAccessApprovalSettings-import           Network.Google.Resource.AccessApproval.Organizations.UpdateAccessApprovalSettings-import           Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Approve-import           Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Dismiss-import           Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Get-import           Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.List-import           Network.Google.Resource.AccessApproval.Projects.GetAccessApprovalSettings-import           Network.Google.Resource.AccessApproval.Projects.UpdateAccessApprovalSettings--{- $resources-TODO--}---- | Represents the entirety of the methods and resources available for the Access Approval API service.-type AccessApprovalAPI =-     FoldersApprovalRequestsListResource :<|>-       FoldersApprovalRequestsGetResource-       :<|> FoldersApprovalRequestsApproveResource-       :<|> FoldersApprovalRequestsDismissResource-       :<|> FoldersUpdateAccessApprovalSettingsResource-       :<|> FoldersGetAccessApprovalSettingsResource-       :<|> OrganizationsApprovalRequestsListResource-       :<|> OrganizationsApprovalRequestsGetResource-       :<|> OrganizationsApprovalRequestsApproveResource-       :<|> OrganizationsApprovalRequestsDismissResource-       :<|>-       OrganizationsUpdateAccessApprovalSettingsResource-       :<|> OrganizationsGetAccessApprovalSettingsResource-       :<|> ProjectsApprovalRequestsListResource-       :<|> ProjectsApprovalRequestsGetResource-       :<|> ProjectsApprovalRequestsApproveResource-       :<|> ProjectsApprovalRequestsDismissResource-       :<|> ProjectsUpdateAccessApprovalSettingsResource-       :<|> ProjectsGetAccessApprovalSettingsResource
− gen/Network/Google/AccessApproval/Types.hs 
@@ -1,100 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.AccessApproval.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.AccessApproval.Types-    (-    -- * Service Configuration-      accessApprovalService--    -- * OAuth Scopes-    , cloudPlatformScope--    -- * ListApprovalRequestsResponse-    , ListApprovalRequestsResponse-    , listApprovalRequestsResponse-    , larrNextPageToken-    , larrApprovalRequests--    -- * ApproveDecision-    , ApproveDecision-    , approveDecision-    , adApproveTime-    , adExpireTime--    -- * AccessLocations-    , AccessLocations-    , accessLocations-    , alPrincipalOfficeCountry-    , alPrincipalPhysicalLocationCountry--    -- * DismissDecision-    , DismissDecision-    , dismissDecision-    , ddDismissTime--    -- * AccessReasonType-    , AccessReasonType (..)--    -- * AccessApprovalSettings-    , AccessApprovalSettings-    , accessApprovalSettings-    , aasName-    , aasNotificationEmails--    -- * ApprovalRequest-    , ApprovalRequest-    , approvalRequest-    , arRequestedResourceName-    , arRequestedExpiration-    , arRequestTime-    , arRequestedReason-    , arName-    , arApprove-    , arDismiss-    , arRequestedLocations--    -- * DismissApprovalRequestMessage-    , DismissApprovalRequestMessage-    , dismissApprovalRequestMessage--    -- * Xgafv-    , Xgafv (..)--    -- * ApproveApprovalRequestMessage-    , ApproveApprovalRequestMessage-    , approveApprovalRequestMessage-    , aarmExpireTime--    -- * AccessReason-    , AccessReason-    , accessReason-    , arType-    , arDetail-    ) where--import           Network.Google.AccessApproval.Types.Product-import           Network.Google.AccessApproval.Types.Sum-import           Network.Google.Prelude---- | Default request referring to version 'v1beta1' of the Access Approval API. This contains the host and root path used as a starting point for constructing service requests.-accessApprovalService :: ServiceConfig-accessApprovalService-  = defaultService (ServiceId "accessapproval:v1beta1")-      "accessapproval.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/AccessApproval/Types/Product.hs 
@@ -1,546 +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.AccessApproval.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.AccessApproval.Types.Product where--import           Network.Google.AccessApproval.Types.Sum-import           Network.Google.Prelude---- | Response to listing of ApprovalRequest objects.------ /See:/ 'listApprovalRequestsResponse' smart constructor.-data ListApprovalRequestsResponse =-  ListApprovalRequestsResponse'-    { _larrNextPageToken    :: !(Maybe Text)-    , _larrApprovalRequests :: !(Maybe [ApprovalRequest])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListApprovalRequestsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'larrNextPageToken'------ * 'larrApprovalRequests'-listApprovalRequestsResponse-    :: ListApprovalRequestsResponse-listApprovalRequestsResponse =-  ListApprovalRequestsResponse'-    {_larrNextPageToken = Nothing, _larrApprovalRequests = Nothing}----- | Token to retrieve the next page of results, or empty if there are no--- more.-larrNextPageToken :: Lens' ListApprovalRequestsResponse (Maybe Text)-larrNextPageToken-  = lens _larrNextPageToken-      (\ s a -> s{_larrNextPageToken = a})---- | Approval request details.-larrApprovalRequests :: Lens' ListApprovalRequestsResponse [ApprovalRequest]-larrApprovalRequests-  = lens _larrApprovalRequests-      (\ s a -> s{_larrApprovalRequests = a})-      . _Default-      . _Coerce--instance FromJSON ListApprovalRequestsResponse where-        parseJSON-          = withObject "ListApprovalRequestsResponse"-              (\ o ->-                 ListApprovalRequestsResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "approvalRequests" .!= mempty))--instance ToJSON ListApprovalRequestsResponse where-        toJSON ListApprovalRequestsResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _larrNextPageToken,-                  ("approvalRequests" .=) <$> _larrApprovalRequests])---- | A decision that has been made to approve access to a resource.------ /See:/ 'approveDecision' smart constructor.-data ApproveDecision =-  ApproveDecision'-    { _adApproveTime :: !(Maybe DateTime')-    , _adExpireTime  :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ApproveDecision' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'adApproveTime'------ * 'adExpireTime'-approveDecision-    :: ApproveDecision-approveDecision =-  ApproveDecision' {_adApproveTime = Nothing, _adExpireTime = Nothing}----- | The time at which approval was granted.-adApproveTime :: Lens' ApproveDecision (Maybe UTCTime)-adApproveTime-  = lens _adApproveTime-      (\ s a -> s{_adApproveTime = a})-      . mapping _DateTime---- | The time at which the approval expires.-adExpireTime :: Lens' ApproveDecision (Maybe UTCTime)-adExpireTime-  = lens _adExpireTime (\ s a -> s{_adExpireTime = a})-      . mapping _DateTime--instance FromJSON ApproveDecision where-        parseJSON-          = withObject "ApproveDecision"-              (\ o ->-                 ApproveDecision' <$>-                   (o .:? "approveTime") <*> (o .:? "expireTime"))--instance ToJSON ApproveDecision where-        toJSON ApproveDecision'{..}-          = object-              (catMaybes-                 [("approveTime" .=) <$> _adApproveTime,-                  ("expireTime" .=) <$> _adExpireTime])---- | Home office and physical location of the principal.------ /See:/ 'accessLocations' smart constructor.-data AccessLocations =-  AccessLocations'-    { _alPrincipalOfficeCountry           :: !(Maybe Text)-    , _alPrincipalPhysicalLocationCountry :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessLocations' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'alPrincipalOfficeCountry'------ * 'alPrincipalPhysicalLocationCountry'-accessLocations-    :: AccessLocations-accessLocations =-  AccessLocations'-    { _alPrincipalOfficeCountry = Nothing-    , _alPrincipalPhysicalLocationCountry = Nothing-    }----- | The \"home office\" location of the principal. A two-letter country code--- (ISO 3166-1 alpha-2), such as \"US\", \"DE\" or \"GB\" or a region code.--- In some limited situations Google systems may refer refer to a region--- code instead of a country code. Possible Region Codes:------ 1.  ASI: Asia--- 2.  EUR: Europe--- 3.  OCE: Oceania--- 4.  AFR: Africa--- 5.  NAM: North America--- 6.  SAM: South America--- 7.  ANT: Antarctica--- 8.  ANY: Any location-alPrincipalOfficeCountry :: Lens' AccessLocations (Maybe Text)-alPrincipalOfficeCountry-  = lens _alPrincipalOfficeCountry-      (\ s a -> s{_alPrincipalOfficeCountry = a})---- | Physical location of the principal at the time of the access. A--- two-letter country code (ISO 3166-1 alpha-2), such as \"US\", \"DE\" or--- \"GB\" or a region code. In some limited situations Google systems may--- refer refer to a region code instead of a country code. Possible Region--- Codes:------ 1.  ASI: Asia--- 2.  EUR: Europe--- 3.  OCE: Oceania--- 4.  AFR: Africa--- 5.  NAM: North America--- 6.  SAM: South America--- 7.  ANT: Antarctica--- 8.  ANY: Any location-alPrincipalPhysicalLocationCountry :: Lens' AccessLocations (Maybe Text)-alPrincipalPhysicalLocationCountry-  = lens _alPrincipalPhysicalLocationCountry-      (\ s a -> s{_alPrincipalPhysicalLocationCountry = a})--instance FromJSON AccessLocations where-        parseJSON-          = withObject "AccessLocations"-              (\ o ->-                 AccessLocations' <$>-                   (o .:? "principalOfficeCountry") <*>-                     (o .:? "principalPhysicalLocationCountry"))--instance ToJSON AccessLocations where-        toJSON AccessLocations'{..}-          = object-              (catMaybes-                 [("principalOfficeCountry" .=) <$>-                    _alPrincipalOfficeCountry,-                  ("principalPhysicalLocationCountry" .=) <$>-                    _alPrincipalPhysicalLocationCountry])---- | A decision that has been made to dismiss an approval request.------ /See:/ 'dismissDecision' smart constructor.-newtype DismissDecision =-  DismissDecision'-    { _ddDismissTime :: Maybe DateTime'-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DismissDecision' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddDismissTime'-dismissDecision-    :: DismissDecision-dismissDecision = DismissDecision' {_ddDismissTime = Nothing}----- | The time at which the approval request was dismissed.-ddDismissTime :: Lens' DismissDecision (Maybe UTCTime)-ddDismissTime-  = lens _ddDismissTime-      (\ s a -> s{_ddDismissTime = a})-      . mapping _DateTime--instance FromJSON DismissDecision where-        parseJSON-          = withObject "DismissDecision"-              (\ o -> DismissDecision' <$> (o .:? "dismissTime"))--instance ToJSON DismissDecision where-        toJSON DismissDecision'{..}-          = object-              (catMaybes [("dismissTime" .=) <$> _ddDismissTime])---- | Settings on a Project\/Folder\/Organization related to Access Approval.------ /See:/ 'accessApprovalSettings' smart constructor.-data AccessApprovalSettings =-  AccessApprovalSettings'-    { _aasName               :: !(Maybe Text)-    , _aasNotificationEmails :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessApprovalSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aasName'------ * 'aasNotificationEmails'-accessApprovalSettings-    :: AccessApprovalSettings-accessApprovalSettings =-  AccessApprovalSettings' {_aasName = Nothing, _aasNotificationEmails = Nothing}----- | The resource name of the settings. Format is one of:--- \"projects\/{project_id}\/accessApprovalSettings\"--- \"folders\/{folder_id}\/accessApprovalSettings\"--- \"organizations\/{organization_id}\/accessApprovalSettings\"-aasName :: Lens' AccessApprovalSettings (Maybe Text)-aasName = lens _aasName (\ s a -> s{_aasName = a})---- | A list of email addresses to which notifications relating to approval--- requests should be sent. Notifications relating to a resource will be--- sent to all emails in the settings of ancestor resources of that--- resource.-aasNotificationEmails :: Lens' AccessApprovalSettings [Text]-aasNotificationEmails-  = lens _aasNotificationEmails-      (\ s a -> s{_aasNotificationEmails = a})-      . _Default-      . _Coerce--instance FromJSON AccessApprovalSettings where-        parseJSON-          = withObject "AccessApprovalSettings"-              (\ o ->-                 AccessApprovalSettings' <$>-                   (o .:? "name") <*>-                     (o .:? "notificationEmails" .!= mempty))--instance ToJSON AccessApprovalSettings where-        toJSON AccessApprovalSettings'{..}-          = object-              (catMaybes-                 [("name" .=) <$> _aasName,-                  ("notificationEmails" .=) <$>-                    _aasNotificationEmails])---- | A request for the customer to approve access to a resource.------ /See:/ 'approvalRequest' smart constructor.-data ApprovalRequest =-  ApprovalRequest'-    { _arRequestedResourceName :: !(Maybe Text)-    , _arRequestedExpiration   :: !(Maybe DateTime')-    , _arRequestTime           :: !(Maybe DateTime')-    , _arRequestedReason       :: !(Maybe AccessReason)-    , _arName                  :: !(Maybe Text)-    , _arApprove               :: !(Maybe ApproveDecision)-    , _arDismiss               :: !(Maybe DismissDecision)-    , _arRequestedLocations    :: !(Maybe AccessLocations)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ApprovalRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'arRequestedResourceName'------ * 'arRequestedExpiration'------ * 'arRequestTime'------ * 'arRequestedReason'------ * 'arName'------ * 'arApprove'------ * 'arDismiss'------ * 'arRequestedLocations'-approvalRequest-    :: ApprovalRequest-approvalRequest =-  ApprovalRequest'-    { _arRequestedResourceName = Nothing-    , _arRequestedExpiration = Nothing-    , _arRequestTime = Nothing-    , _arRequestedReason = Nothing-    , _arName = Nothing-    , _arApprove = Nothing-    , _arDismiss = Nothing-    , _arRequestedLocations = Nothing-    }----- | The resource for which approval is being requested. The format of the--- resource name is defined at--- https:\/\/cloud.google.com\/apis\/design\/resource_names. The resource--- name here may either be a \"full\" resource name (e.g.--- \"\/\/library.googleapis.com\/shelves\/shelf1\/books\/book2\") or a--- \"relative\" resource name (e.g. \"shelves\/shelf1\/books\/book2\") as--- described in the resource name specification.-arRequestedResourceName :: Lens' ApprovalRequest (Maybe Text)-arRequestedResourceName-  = lens _arRequestedResourceName-      (\ s a -> s{_arRequestedResourceName = a})---- | The requested expiration for the approval. If the request is approved,--- access will be granted from the time of approval until the expiration--- time.-arRequestedExpiration :: Lens' ApprovalRequest (Maybe UTCTime)-arRequestedExpiration-  = lens _arRequestedExpiration-      (\ s a -> s{_arRequestedExpiration = a})-      . mapping _DateTime---- | The time at which approval was requested.-arRequestTime :: Lens' ApprovalRequest (Maybe UTCTime)-arRequestTime-  = lens _arRequestTime-      (\ s a -> s{_arRequestTime = a})-      . mapping _DateTime---- | The justification for which approval is being requested.-arRequestedReason :: Lens' ApprovalRequest (Maybe AccessReason)-arRequestedReason-  = lens _arRequestedReason-      (\ s a -> s{_arRequestedReason = a})---- | The resource name of the request. Format is--- \"{projects|folders|organizations}\/{id}\/approvalRequests\/{approval_request_id}\".-arName :: Lens' ApprovalRequest (Maybe Text)-arName = lens _arName (\ s a -> s{_arName = a})---- | Access was approved.-arApprove :: Lens' ApprovalRequest (Maybe ApproveDecision)-arApprove-  = lens _arApprove (\ s a -> s{_arApprove = a})---- | The request was dismissed.-arDismiss :: Lens' ApprovalRequest (Maybe DismissDecision)-arDismiss-  = lens _arDismiss (\ s a -> s{_arDismiss = a})---- | The locations for which approval is being requested.-arRequestedLocations :: Lens' ApprovalRequest (Maybe AccessLocations)-arRequestedLocations-  = lens _arRequestedLocations-      (\ s a -> s{_arRequestedLocations = a})--instance FromJSON ApprovalRequest where-        parseJSON-          = withObject "ApprovalRequest"-              (\ o ->-                 ApprovalRequest' <$>-                   (o .:? "requestedResourceName") <*>-                     (o .:? "requestedExpiration")-                     <*> (o .:? "requestTime")-                     <*> (o .:? "requestedReason")-                     <*> (o .:? "name")-                     <*> (o .:? "approve")-                     <*> (o .:? "dismiss")-                     <*> (o .:? "requestedLocations"))--instance ToJSON ApprovalRequest where-        toJSON ApprovalRequest'{..}-          = object-              (catMaybes-                 [("requestedResourceName" .=) <$>-                    _arRequestedResourceName,-                  ("requestedExpiration" .=) <$>-                    _arRequestedExpiration,-                  ("requestTime" .=) <$> _arRequestTime,-                  ("requestedReason" .=) <$> _arRequestedReason,-                  ("name" .=) <$> _arName,-                  ("approve" .=) <$> _arApprove,-                  ("dismiss" .=) <$> _arDismiss,-                  ("requestedLocations" .=) <$> _arRequestedLocations])---- | Request to dismiss an approval request.------ /See:/ 'dismissApprovalRequestMessage' smart constructor.-data DismissApprovalRequestMessage =-  DismissApprovalRequestMessage'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DismissApprovalRequestMessage' with the minimum fields required to make a request.----dismissApprovalRequestMessage-    :: DismissApprovalRequestMessage-dismissApprovalRequestMessage = DismissApprovalRequestMessage'---instance FromJSON DismissApprovalRequestMessage where-        parseJSON-          = withObject "DismissApprovalRequestMessage"-              (\ o -> pure DismissApprovalRequestMessage')--instance ToJSON DismissApprovalRequestMessage where-        toJSON = const emptyObject---- | Request to approve an ApprovalRequest.------ /See:/ 'approveApprovalRequestMessage' smart constructor.-newtype ApproveApprovalRequestMessage =-  ApproveApprovalRequestMessage'-    { _aarmExpireTime :: Maybe DateTime'-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ApproveApprovalRequestMessage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aarmExpireTime'-approveApprovalRequestMessage-    :: ApproveApprovalRequestMessage-approveApprovalRequestMessage =-  ApproveApprovalRequestMessage' {_aarmExpireTime = Nothing}----- | The expiration time of this approval.-aarmExpireTime :: Lens' ApproveApprovalRequestMessage (Maybe UTCTime)-aarmExpireTime-  = lens _aarmExpireTime-      (\ s a -> s{_aarmExpireTime = a})-      . mapping _DateTime--instance FromJSON ApproveApprovalRequestMessage where-        parseJSON-          = withObject "ApproveApprovalRequestMessage"-              (\ o ->-                 ApproveApprovalRequestMessage' <$>-                   (o .:? "expireTime"))--instance ToJSON ApproveApprovalRequestMessage where-        toJSON ApproveApprovalRequestMessage'{..}-          = object-              (catMaybes [("expireTime" .=) <$> _aarmExpireTime])------- /See:/ 'accessReason' smart constructor.-data AccessReason =-  AccessReason'-    { _arType   :: !(Maybe AccessReasonType)-    , _arDetail :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AccessReason' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'arType'------ * 'arDetail'-accessReason-    :: AccessReason-accessReason = AccessReason' {_arType = Nothing, _arDetail = Nothing}----- | Type of access justification.-arType :: Lens' AccessReason (Maybe AccessReasonType)-arType = lens _arType (\ s a -> s{_arType = a})---- | More detail about certain reason types. See comments for each type--- above.-arDetail :: Lens' AccessReason (Maybe Text)-arDetail = lens _arDetail (\ s a -> s{_arDetail = a})--instance FromJSON AccessReason where-        parseJSON-          = withObject "AccessReason"-              (\ o ->-                 AccessReason' <$>-                   (o .:? "type") <*> (o .:? "detail"))--instance ToJSON AccessReason where-        toJSON AccessReason'{..}-          = object-              (catMaybes-                 [("type" .=) <$> _arType,-                  ("detail" .=) <$> _arDetail])
− gen/Network/Google/AccessApproval/Types/Sum.hs 
@@ -1,100 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.AccessApproval.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.AccessApproval.Types.Sum where--import           Network.Google.Prelude hiding (Bytes)---- | Type of access justification.-data AccessReasonType-    = TypeUnspecified-      -- ^ @TYPE_UNSPECIFIED@-      -- Default value for proto, shouldn\'t be used.-    | CustomerInitiatedSupport-      -- ^ @CUSTOMER_INITIATED_SUPPORT@-      -- Customer made a request or raised an issue that required the principal-      -- to access customer data. \`detail\` is of the form (\"#####\" is the-      -- issue ID):-      ---      -- 1.  \"Feedback Report: #####\"-      -- 2.  \"Case Number: #####\"-      -- 3.  \"Case ID: #####\"-      -- 4.  \"E-PIN Reference: #####\"-      -- 5.  \"Google-#####\"-      -- 6.  \"T-#####\"-    | GoogleInitiatedService-      -- ^ @GOOGLE_INITIATED_SERVICE@-      -- The principal accessed customer data in order to diagnose or resolve a-      -- suspected issue in services or a known outage. Often this access is used-      -- to confirm that customers are not affected by a suspected service issue-      -- or to remediate a reversible system issue.-    | GoogleInitiatedReview-      -- ^ @GOOGLE_INITIATED_REVIEW@-      -- Google initiated service for security, fraud, abuse, or compliance-      -- purposes.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable AccessReasonType--instance FromHttpApiData AccessReasonType where-    parseQueryParam = \case-        "TYPE_UNSPECIFIED" -> Right TypeUnspecified-        "CUSTOMER_INITIATED_SUPPORT" -> Right CustomerInitiatedSupport-        "GOOGLE_INITIATED_SERVICE" -> Right GoogleInitiatedService-        "GOOGLE_INITIATED_REVIEW" -> Right GoogleInitiatedReview-        x -> Left ("Unable to parse AccessReasonType from: " <> x)--instance ToHttpApiData AccessReasonType where-    toQueryParam = \case-        TypeUnspecified -> "TYPE_UNSPECIFIED"-        CustomerInitiatedSupport -> "CUSTOMER_INITIATED_SUPPORT"-        GoogleInitiatedService -> "GOOGLE_INITIATED_SERVICE"-        GoogleInitiatedReview -> "GOOGLE_INITIATED_REVIEW"--instance FromJSON AccessReasonType where-    parseJSON = parseJSONText "AccessReasonType"--instance ToJSON AccessReasonType 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/AccessApproval/Folders/ApprovalRequests/Approve.hs 
@@ -1,170 +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.AccessApproval.Folders.ApprovalRequests.Approve--- 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)------ Approves a request and returns the updated ApprovalRequest. Returns--- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if--- the request exists but is not in a pending state.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.approve@.-module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Approve-    (-    -- * REST Resource-      FoldersApprovalRequestsApproveResource--    -- * Creating a Request-    , foldersApprovalRequestsApprove-    , FoldersApprovalRequestsApprove--    -- * Request Lenses-    , faraXgafv-    , faraUploadProtocol-    , faraAccessToken-    , faraUploadType-    , faraPayload-    , faraName-    , faraCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.folders.approvalRequests.approve@ method which the--- 'FoldersApprovalRequestsApprove' request conforms to.-type FoldersApprovalRequestsApproveResource =-     "v1beta1" :>-       CaptureMode "name" "approve" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] ApproveApprovalRequestMessage :>-                       Post '[JSON] ApprovalRequest---- | Approves a request and returns the updated ApprovalRequest. Returns--- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if--- the request exists but is not in a pending state.------ /See:/ 'foldersApprovalRequestsApprove' smart constructor.-data FoldersApprovalRequestsApprove =-  FoldersApprovalRequestsApprove'-    { _faraXgafv          :: !(Maybe Xgafv)-    , _faraUploadProtocol :: !(Maybe Text)-    , _faraAccessToken    :: !(Maybe Text)-    , _faraUploadType     :: !(Maybe Text)-    , _faraPayload        :: !ApproveApprovalRequestMessage-    , _faraName           :: !Text-    , _faraCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FoldersApprovalRequestsApprove' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'faraXgafv'------ * 'faraUploadProtocol'------ * 'faraAccessToken'------ * 'faraUploadType'------ * 'faraPayload'------ * 'faraName'------ * 'faraCallback'-foldersApprovalRequestsApprove-    :: ApproveApprovalRequestMessage -- ^ 'faraPayload'-    -> Text -- ^ 'faraName'-    -> FoldersApprovalRequestsApprove-foldersApprovalRequestsApprove pFaraPayload_ pFaraName_ =-  FoldersApprovalRequestsApprove'-    { _faraXgafv = Nothing-    , _faraUploadProtocol = Nothing-    , _faraAccessToken = Nothing-    , _faraUploadType = Nothing-    , _faraPayload = pFaraPayload_-    , _faraName = pFaraName_-    , _faraCallback = Nothing-    }----- | V1 error format.-faraXgafv :: Lens' FoldersApprovalRequestsApprove (Maybe Xgafv)-faraXgafv-  = lens _faraXgafv (\ s a -> s{_faraXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-faraUploadProtocol :: Lens' FoldersApprovalRequestsApprove (Maybe Text)-faraUploadProtocol-  = lens _faraUploadProtocol-      (\ s a -> s{_faraUploadProtocol = a})---- | OAuth access token.-faraAccessToken :: Lens' FoldersApprovalRequestsApprove (Maybe Text)-faraAccessToken-  = lens _faraAccessToken-      (\ s a -> s{_faraAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-faraUploadType :: Lens' FoldersApprovalRequestsApprove (Maybe Text)-faraUploadType-  = lens _faraUploadType-      (\ s a -> s{_faraUploadType = a})---- | Multipart request metadata.-faraPayload :: Lens' FoldersApprovalRequestsApprove ApproveApprovalRequestMessage-faraPayload-  = lens _faraPayload (\ s a -> s{_faraPayload = a})---- | Name of the approval request to approve.-faraName :: Lens' FoldersApprovalRequestsApprove Text-faraName = lens _faraName (\ s a -> s{_faraName = a})---- | JSONP-faraCallback :: Lens' FoldersApprovalRequestsApprove (Maybe Text)-faraCallback-  = lens _faraCallback (\ s a -> s{_faraCallback = a})--instance GoogleRequest FoldersApprovalRequestsApprove-         where-        type Rs FoldersApprovalRequestsApprove =-             ApprovalRequest-        type Scopes FoldersApprovalRequestsApprove =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient FoldersApprovalRequestsApprove'{..}-          = go _faraName _faraXgafv _faraUploadProtocol-              _faraAccessToken-              _faraUploadType-              _faraCallback-              (Just AltJSON)-              _faraPayload-              accessApprovalService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy FoldersApprovalRequestsApproveResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Folders/ApprovalRequests/Dismiss.hs 
@@ -1,174 +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.AccessApproval.Folders.ApprovalRequests.Dismiss--- 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)------ Dismisses a request. Returns the updated ApprovalRequest. NOTE: This--- does not deny access to the resource if another request has been made--- and approved. It is equivalent in effect to ignoring the request--- altogether. Returns NOT_FOUND if the request does not exist. Returns--- FAILED_PRECONDITION if the request exists but is not in a pending state.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.dismiss@.-module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Dismiss-    (-    -- * REST Resource-      FoldersApprovalRequestsDismissResource--    -- * Creating a Request-    , foldersApprovalRequestsDismiss-    , FoldersApprovalRequestsDismiss--    -- * Request Lenses-    , fardXgafv-    , fardUploadProtocol-    , fardAccessToken-    , fardUploadType-    , fardPayload-    , fardName-    , fardCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.folders.approvalRequests.dismiss@ method which the--- 'FoldersApprovalRequestsDismiss' request conforms to.-type FoldersApprovalRequestsDismissResource =-     "v1beta1" :>-       CaptureMode "name" "dismiss" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] DismissApprovalRequestMessage :>-                       Post '[JSON] ApprovalRequest---- | Dismisses a request. Returns the updated ApprovalRequest. NOTE: This--- does not deny access to the resource if another request has been made--- and approved. It is equivalent in effect to ignoring the request--- altogether. Returns NOT_FOUND if the request does not exist. Returns--- FAILED_PRECONDITION if the request exists but is not in a pending state.------ /See:/ 'foldersApprovalRequestsDismiss' smart constructor.-data FoldersApprovalRequestsDismiss =-  FoldersApprovalRequestsDismiss'-    { _fardXgafv          :: !(Maybe Xgafv)-    , _fardUploadProtocol :: !(Maybe Text)-    , _fardAccessToken    :: !(Maybe Text)-    , _fardUploadType     :: !(Maybe Text)-    , _fardPayload        :: !DismissApprovalRequestMessage-    , _fardName           :: !Text-    , _fardCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FoldersApprovalRequestsDismiss' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fardXgafv'------ * 'fardUploadProtocol'------ * 'fardAccessToken'------ * 'fardUploadType'------ * 'fardPayload'------ * 'fardName'------ * 'fardCallback'-foldersApprovalRequestsDismiss-    :: DismissApprovalRequestMessage -- ^ 'fardPayload'-    -> Text -- ^ 'fardName'-    -> FoldersApprovalRequestsDismiss-foldersApprovalRequestsDismiss pFardPayload_ pFardName_ =-  FoldersApprovalRequestsDismiss'-    { _fardXgafv = Nothing-    , _fardUploadProtocol = Nothing-    , _fardAccessToken = Nothing-    , _fardUploadType = Nothing-    , _fardPayload = pFardPayload_-    , _fardName = pFardName_-    , _fardCallback = Nothing-    }----- | V1 error format.-fardXgafv :: Lens' FoldersApprovalRequestsDismiss (Maybe Xgafv)-fardXgafv-  = lens _fardXgafv (\ s a -> s{_fardXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-fardUploadProtocol :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)-fardUploadProtocol-  = lens _fardUploadProtocol-      (\ s a -> s{_fardUploadProtocol = a})---- | OAuth access token.-fardAccessToken :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)-fardAccessToken-  = lens _fardAccessToken-      (\ s a -> s{_fardAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-fardUploadType :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)-fardUploadType-  = lens _fardUploadType-      (\ s a -> s{_fardUploadType = a})---- | Multipart request metadata.-fardPayload :: Lens' FoldersApprovalRequestsDismiss DismissApprovalRequestMessage-fardPayload-  = lens _fardPayload (\ s a -> s{_fardPayload = a})---- | Name of the ApprovalRequest to dismiss.-fardName :: Lens' FoldersApprovalRequestsDismiss Text-fardName = lens _fardName (\ s a -> s{_fardName = a})---- | JSONP-fardCallback :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)-fardCallback-  = lens _fardCallback (\ s a -> s{_fardCallback = a})--instance GoogleRequest FoldersApprovalRequestsDismiss-         where-        type Rs FoldersApprovalRequestsDismiss =-             ApprovalRequest-        type Scopes FoldersApprovalRequestsDismiss =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient FoldersApprovalRequestsDismiss'{..}-          = go _fardName _fardXgafv _fardUploadProtocol-              _fardAccessToken-              _fardUploadType-              _fardCallback-              (Just AltJSON)-              _fardPayload-              accessApprovalService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy FoldersApprovalRequestsDismissResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Folders/ApprovalRequests/Get.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.AccessApproval.Folders.ApprovalRequests.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 an approval request. Returns NOT_FOUND if the request does not--- exist.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.get@.-module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Get-    (-    -- * REST Resource-      FoldersApprovalRequestsGetResource--    -- * Creating a Request-    , foldersApprovalRequestsGet-    , FoldersApprovalRequestsGet--    -- * Request Lenses-    , fargXgafv-    , fargUploadProtocol-    , fargAccessToken-    , fargUploadType-    , fargName-    , fargCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.folders.approvalRequests.get@ method which the--- 'FoldersApprovalRequestsGet' request conforms to.-type FoldersApprovalRequestsGetResource =-     "v1beta1" :>-       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] ApprovalRequest---- | Gets an approval request. Returns NOT_FOUND if the request does not--- exist.------ /See:/ 'foldersApprovalRequestsGet' smart constructor.-data FoldersApprovalRequestsGet =-  FoldersApprovalRequestsGet'-    { _fargXgafv          :: !(Maybe Xgafv)-    , _fargUploadProtocol :: !(Maybe Text)-    , _fargAccessToken    :: !(Maybe Text)-    , _fargUploadType     :: !(Maybe Text)-    , _fargName           :: !Text-    , _fargCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FoldersApprovalRequestsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fargXgafv'------ * 'fargUploadProtocol'------ * 'fargAccessToken'------ * 'fargUploadType'------ * 'fargName'------ * 'fargCallback'-foldersApprovalRequestsGet-    :: Text -- ^ 'fargName'-    -> FoldersApprovalRequestsGet-foldersApprovalRequestsGet pFargName_ =-  FoldersApprovalRequestsGet'-    { _fargXgafv = Nothing-    , _fargUploadProtocol = Nothing-    , _fargAccessToken = Nothing-    , _fargUploadType = Nothing-    , _fargName = pFargName_-    , _fargCallback = Nothing-    }----- | V1 error format.-fargXgafv :: Lens' FoldersApprovalRequestsGet (Maybe Xgafv)-fargXgafv-  = lens _fargXgafv (\ s a -> s{_fargXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-fargUploadProtocol :: Lens' FoldersApprovalRequestsGet (Maybe Text)-fargUploadProtocol-  = lens _fargUploadProtocol-      (\ s a -> s{_fargUploadProtocol = a})---- | OAuth access token.-fargAccessToken :: Lens' FoldersApprovalRequestsGet (Maybe Text)-fargAccessToken-  = lens _fargAccessToken-      (\ s a -> s{_fargAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-fargUploadType :: Lens' FoldersApprovalRequestsGet (Maybe Text)-fargUploadType-  = lens _fargUploadType-      (\ s a -> s{_fargUploadType = a})---- | Name of the approval request to retrieve.-fargName :: Lens' FoldersApprovalRequestsGet Text-fargName = lens _fargName (\ s a -> s{_fargName = a})---- | JSONP-fargCallback :: Lens' FoldersApprovalRequestsGet (Maybe Text)-fargCallback-  = lens _fargCallback (\ s a -> s{_fargCallback = a})--instance GoogleRequest FoldersApprovalRequestsGet-         where-        type Rs FoldersApprovalRequestsGet = ApprovalRequest-        type Scopes FoldersApprovalRequestsGet =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient FoldersApprovalRequestsGet'{..}-          = go _fargName _fargXgafv _fargUploadProtocol-              _fargAccessToken-              _fargUploadType-              _fargCallback-              (Just AltJSON)-              accessApprovalService-          where go-                  = buildClient-                      (Proxy :: Proxy FoldersApprovalRequestsGetResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Folders/ApprovalRequests/List.hs 
@@ -1,204 +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.AccessApproval.Folders.ApprovalRequests.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 approval requests associated with a project, folder, or--- organization. Approval requests can be filtered by state (pending,--- active, dismissed). The order is reverse chronological.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.list@.-module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.List-    (-    -- * REST Resource-      FoldersApprovalRequestsListResource--    -- * Creating a Request-    , foldersApprovalRequestsList-    , FoldersApprovalRequestsList--    -- * Request Lenses-    , farlParent-    , farlXgafv-    , farlUploadProtocol-    , farlAccessToken-    , farlUploadType-    , farlFilter-    , farlPageToken-    , farlPageSize-    , farlCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.folders.approvalRequests.list@ method which the--- 'FoldersApprovalRequestsList' request conforms to.-type FoldersApprovalRequestsListResource =-     "v1beta1" :>-       Capture "parent" Text :>-         "approvalRequests" :>-           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] ListApprovalRequestsResponse---- | Lists approval requests associated with a project, folder, or--- organization. Approval requests can be filtered by state (pending,--- active, dismissed). The order is reverse chronological.------ /See:/ 'foldersApprovalRequestsList' smart constructor.-data FoldersApprovalRequestsList =-  FoldersApprovalRequestsList'-    { _farlParent         :: !Text-    , _farlXgafv          :: !(Maybe Xgafv)-    , _farlUploadProtocol :: !(Maybe Text)-    , _farlAccessToken    :: !(Maybe Text)-    , _farlUploadType     :: !(Maybe Text)-    , _farlFilter         :: !(Maybe Text)-    , _farlPageToken      :: !(Maybe Text)-    , _farlPageSize       :: !(Maybe (Textual Int32))-    , _farlCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FoldersApprovalRequestsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'farlParent'------ * 'farlXgafv'------ * 'farlUploadProtocol'------ * 'farlAccessToken'------ * 'farlUploadType'------ * 'farlFilter'------ * 'farlPageToken'------ * 'farlPageSize'------ * 'farlCallback'-foldersApprovalRequestsList-    :: Text -- ^ 'farlParent'-    -> FoldersApprovalRequestsList-foldersApprovalRequestsList pFarlParent_ =-  FoldersApprovalRequestsList'-    { _farlParent = pFarlParent_-    , _farlXgafv = Nothing-    , _farlUploadProtocol = Nothing-    , _farlAccessToken = Nothing-    , _farlUploadType = Nothing-    , _farlFilter = Nothing-    , _farlPageToken = Nothing-    , _farlPageSize = Nothing-    , _farlCallback = Nothing-    }----- | The parent resource. This may be \"projects\/{project_id}\",--- \"folders\/{folder_id}\", or \"organizations\/{organization_id}\".-farlParent :: Lens' FoldersApprovalRequestsList Text-farlParent-  = lens _farlParent (\ s a -> s{_farlParent = a})---- | V1 error format.-farlXgafv :: Lens' FoldersApprovalRequestsList (Maybe Xgafv)-farlXgafv-  = lens _farlXgafv (\ s a -> s{_farlXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-farlUploadProtocol :: Lens' FoldersApprovalRequestsList (Maybe Text)-farlUploadProtocol-  = lens _farlUploadProtocol-      (\ s a -> s{_farlUploadProtocol = a})---- | OAuth access token.-farlAccessToken :: Lens' FoldersApprovalRequestsList (Maybe Text)-farlAccessToken-  = lens _farlAccessToken-      (\ s a -> s{_farlAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-farlUploadType :: Lens' FoldersApprovalRequestsList (Maybe Text)-farlUploadType-  = lens _farlUploadType-      (\ s a -> s{_farlUploadType = a})---- | A filter on the type of approval requests to retrieve. Must be one of--- the following values:------ 1.  [not set]: Requests that are pending or have active approvals.--- 2.  ALL: All requests.--- 3.  PENDING: Only pending requests.--- 4.  ACTIVE: Only active (i.e. currently approved) requests.--- 5.  DISMISSED: Only dismissed (including expired) requests.-farlFilter :: Lens' FoldersApprovalRequestsList (Maybe Text)-farlFilter-  = lens _farlFilter (\ s a -> s{_farlFilter = a})---- | A token identifying the page of results to return.-farlPageToken :: Lens' FoldersApprovalRequestsList (Maybe Text)-farlPageToken-  = lens _farlPageToken-      (\ s a -> s{_farlPageToken = a})---- | Requested page size.-farlPageSize :: Lens' FoldersApprovalRequestsList (Maybe Int32)-farlPageSize-  = lens _farlPageSize (\ s a -> s{_farlPageSize = a})-      . mapping _Coerce---- | JSONP-farlCallback :: Lens' FoldersApprovalRequestsList (Maybe Text)-farlCallback-  = lens _farlCallback (\ s a -> s{_farlCallback = a})--instance GoogleRequest FoldersApprovalRequestsList-         where-        type Rs FoldersApprovalRequestsList =-             ListApprovalRequestsResponse-        type Scopes FoldersApprovalRequestsList =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient FoldersApprovalRequestsList'{..}-          = go _farlParent _farlXgafv _farlUploadProtocol-              _farlAccessToken-              _farlUploadType-              _farlFilter-              _farlPageToken-              _farlPageSize-              _farlCallback-              (Just AltJSON)-              accessApprovalService-          where go-                  = buildClient-                      (Proxy :: Proxy FoldersApprovalRequestsListResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Folders/GetAccessApprovalSettings.hs 
@@ -1,156 +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.AccessApproval.Folders.GetAccessApprovalSettings--- 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 settings associated with a project, folder, or organization.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.getAccessApprovalSettings@.-module Network.Google.Resource.AccessApproval.Folders.GetAccessApprovalSettings-    (-    -- * REST Resource-      FoldersGetAccessApprovalSettingsResource--    -- * Creating a Request-    , foldersGetAccessApprovalSettings-    , FoldersGetAccessApprovalSettings--    -- * Request Lenses-    , fgaasXgafv-    , fgaasUploadProtocol-    , fgaasAccessToken-    , fgaasUploadType-    , fgaasName-    , fgaasCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.folders.getAccessApprovalSettings@ method which the--- 'FoldersGetAccessApprovalSettings' request conforms to.-type FoldersGetAccessApprovalSettingsResource =-     "v1beta1" :>-       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] AccessApprovalSettings---- | Gets the settings associated with a project, folder, or organization.------ /See:/ 'foldersGetAccessApprovalSettings' smart constructor.-data FoldersGetAccessApprovalSettings =-  FoldersGetAccessApprovalSettings'-    { _fgaasXgafv          :: !(Maybe Xgafv)-    , _fgaasUploadProtocol :: !(Maybe Text)-    , _fgaasAccessToken    :: !(Maybe Text)-    , _fgaasUploadType     :: !(Maybe Text)-    , _fgaasName           :: !Text-    , _fgaasCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FoldersGetAccessApprovalSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fgaasXgafv'------ * 'fgaasUploadProtocol'------ * 'fgaasAccessToken'------ * 'fgaasUploadType'------ * 'fgaasName'------ * 'fgaasCallback'-foldersGetAccessApprovalSettings-    :: Text -- ^ 'fgaasName'-    -> FoldersGetAccessApprovalSettings-foldersGetAccessApprovalSettings pFgaasName_ =-  FoldersGetAccessApprovalSettings'-    { _fgaasXgafv = Nothing-    , _fgaasUploadProtocol = Nothing-    , _fgaasAccessToken = Nothing-    , _fgaasUploadType = Nothing-    , _fgaasName = pFgaasName_-    , _fgaasCallback = Nothing-    }----- | V1 error format.-fgaasXgafv :: Lens' FoldersGetAccessApprovalSettings (Maybe Xgafv)-fgaasXgafv-  = lens _fgaasXgafv (\ s a -> s{_fgaasXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-fgaasUploadProtocol :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)-fgaasUploadProtocol-  = lens _fgaasUploadProtocol-      (\ s a -> s{_fgaasUploadProtocol = a})---- | OAuth access token.-fgaasAccessToken :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)-fgaasAccessToken-  = lens _fgaasAccessToken-      (\ s a -> s{_fgaasAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-fgaasUploadType :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)-fgaasUploadType-  = lens _fgaasUploadType-      (\ s a -> s{_fgaasUploadType = a})---- | Name of the AccessApprovalSettings to retrieve.-fgaasName :: Lens' FoldersGetAccessApprovalSettings Text-fgaasName-  = lens _fgaasName (\ s a -> s{_fgaasName = a})---- | JSONP-fgaasCallback :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)-fgaasCallback-  = lens _fgaasCallback-      (\ s a -> s{_fgaasCallback = a})--instance GoogleRequest-           FoldersGetAccessApprovalSettings-         where-        type Rs FoldersGetAccessApprovalSettings =-             AccessApprovalSettings-        type Scopes FoldersGetAccessApprovalSettings =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient FoldersGetAccessApprovalSettings'{..}-          = go _fgaasName _fgaasXgafv _fgaasUploadProtocol-              _fgaasAccessToken-              _fgaasUploadType-              _fgaasCallback-              (Just AltJSON)-              accessApprovalService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy FoldersGetAccessApprovalSettingsResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Folders/UpdateAccessApprovalSettings.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.AccessApproval.Folders.UpdateAccessApprovalSettings--- 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)------ Updates the settings associated with a project, folder, or organization.--- Completely replaces the existing settings.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.updateAccessApprovalSettings@.-module Network.Google.Resource.AccessApproval.Folders.UpdateAccessApprovalSettings-    (-    -- * REST Resource-      FoldersUpdateAccessApprovalSettingsResource--    -- * Creating a Request-    , foldersUpdateAccessApprovalSettings-    , FoldersUpdateAccessApprovalSettings--    -- * Request Lenses-    , fuaasXgafv-    , fuaasUploadProtocol-    , fuaasAccessToken-    , fuaasUploadType-    , fuaasPayload-    , fuaasName-    , fuaasCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.folders.updateAccessApprovalSettings@ method which the--- 'FoldersUpdateAccessApprovalSettings' request conforms to.-type FoldersUpdateAccessApprovalSettingsResource =-     "v1beta1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] AccessApprovalSettings :>-                       Patch '[JSON] AccessApprovalSettings---- | Updates the settings associated with a project, folder, or organization.--- Completely replaces the existing settings.------ /See:/ 'foldersUpdateAccessApprovalSettings' smart constructor.-data FoldersUpdateAccessApprovalSettings =-  FoldersUpdateAccessApprovalSettings'-    { _fuaasXgafv          :: !(Maybe Xgafv)-    , _fuaasUploadProtocol :: !(Maybe Text)-    , _fuaasAccessToken    :: !(Maybe Text)-    , _fuaasUploadType     :: !(Maybe Text)-    , _fuaasPayload        :: !AccessApprovalSettings-    , _fuaasName           :: !Text-    , _fuaasCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FoldersUpdateAccessApprovalSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fuaasXgafv'------ * 'fuaasUploadProtocol'------ * 'fuaasAccessToken'------ * 'fuaasUploadType'------ * 'fuaasPayload'------ * 'fuaasName'------ * 'fuaasCallback'-foldersUpdateAccessApprovalSettings-    :: AccessApprovalSettings -- ^ 'fuaasPayload'-    -> Text -- ^ 'fuaasName'-    -> FoldersUpdateAccessApprovalSettings-foldersUpdateAccessApprovalSettings pFuaasPayload_ pFuaasName_ =-  FoldersUpdateAccessApprovalSettings'-    { _fuaasXgafv = Nothing-    , _fuaasUploadProtocol = Nothing-    , _fuaasAccessToken = Nothing-    , _fuaasUploadType = Nothing-    , _fuaasPayload = pFuaasPayload_-    , _fuaasName = pFuaasName_-    , _fuaasCallback = Nothing-    }----- | V1 error format.-fuaasXgafv :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Xgafv)-fuaasXgafv-  = lens _fuaasXgafv (\ s a -> s{_fuaasXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-fuaasUploadProtocol :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)-fuaasUploadProtocol-  = lens _fuaasUploadProtocol-      (\ s a -> s{_fuaasUploadProtocol = a})---- | OAuth access token.-fuaasAccessToken :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)-fuaasAccessToken-  = lens _fuaasAccessToken-      (\ s a -> s{_fuaasAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-fuaasUploadType :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)-fuaasUploadType-  = lens _fuaasUploadType-      (\ s a -> s{_fuaasUploadType = a})---- | Multipart request metadata.-fuaasPayload :: Lens' FoldersUpdateAccessApprovalSettings AccessApprovalSettings-fuaasPayload-  = lens _fuaasPayload (\ s a -> s{_fuaasPayload = a})---- | The resource name of the settings. Format is one of:--- \"projects\/{project_id}\/accessApprovalSettings\"--- \"folders\/{folder_id}\/accessApprovalSettings\"--- \"organizations\/{organization_id}\/accessApprovalSettings\"-fuaasName :: Lens' FoldersUpdateAccessApprovalSettings Text-fuaasName-  = lens _fuaasName (\ s a -> s{_fuaasName = a})---- | JSONP-fuaasCallback :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)-fuaasCallback-  = lens _fuaasCallback-      (\ s a -> s{_fuaasCallback = a})--instance GoogleRequest-           FoldersUpdateAccessApprovalSettings-         where-        type Rs FoldersUpdateAccessApprovalSettings =-             AccessApprovalSettings-        type Scopes FoldersUpdateAccessApprovalSettings =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient-          FoldersUpdateAccessApprovalSettings'{..}-          = go _fuaasName _fuaasXgafv _fuaasUploadProtocol-              _fuaasAccessToken-              _fuaasUploadType-              _fuaasCallback-              (Just AltJSON)-              _fuaasPayload-              accessApprovalService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy FoldersUpdateAccessApprovalSettingsResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Organizations/ApprovalRequests/Approve.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.AccessApproval.Organizations.ApprovalRequests.Approve--- 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)------ Approves a request and returns the updated ApprovalRequest. Returns--- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if--- the request exists but is not in a pending state.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.approve@.-module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Approve-    (-    -- * REST Resource-      OrganizationsApprovalRequestsApproveResource--    -- * Creating a Request-    , organizationsApprovalRequestsApprove-    , OrganizationsApprovalRequestsApprove--    -- * Request Lenses-    , oaraXgafv-    , oaraUploadProtocol-    , oaraAccessToken-    , oaraUploadType-    , oaraPayload-    , oaraName-    , oaraCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.organizations.approvalRequests.approve@ method which the--- 'OrganizationsApprovalRequestsApprove' request conforms to.-type OrganizationsApprovalRequestsApproveResource =-     "v1beta1" :>-       CaptureMode "name" "approve" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] ApproveApprovalRequestMessage :>-                       Post '[JSON] ApprovalRequest---- | Approves a request and returns the updated ApprovalRequest. Returns--- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if--- the request exists but is not in a pending state.------ /See:/ 'organizationsApprovalRequestsApprove' smart constructor.-data OrganizationsApprovalRequestsApprove =-  OrganizationsApprovalRequestsApprove'-    { _oaraXgafv          :: !(Maybe Xgafv)-    , _oaraUploadProtocol :: !(Maybe Text)-    , _oaraAccessToken    :: !(Maybe Text)-    , _oaraUploadType     :: !(Maybe Text)-    , _oaraPayload        :: !ApproveApprovalRequestMessage-    , _oaraName           :: !Text-    , _oaraCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OrganizationsApprovalRequestsApprove' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oaraXgafv'------ * 'oaraUploadProtocol'------ * 'oaraAccessToken'------ * 'oaraUploadType'------ * 'oaraPayload'------ * 'oaraName'------ * 'oaraCallback'-organizationsApprovalRequestsApprove-    :: ApproveApprovalRequestMessage -- ^ 'oaraPayload'-    -> Text -- ^ 'oaraName'-    -> OrganizationsApprovalRequestsApprove-organizationsApprovalRequestsApprove pOaraPayload_ pOaraName_ =-  OrganizationsApprovalRequestsApprove'-    { _oaraXgafv = Nothing-    , _oaraUploadProtocol = Nothing-    , _oaraAccessToken = Nothing-    , _oaraUploadType = Nothing-    , _oaraPayload = pOaraPayload_-    , _oaraName = pOaraName_-    , _oaraCallback = Nothing-    }----- | V1 error format.-oaraXgafv :: Lens' OrganizationsApprovalRequestsApprove (Maybe Xgafv)-oaraXgafv-  = lens _oaraXgafv (\ s a -> s{_oaraXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-oaraUploadProtocol :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)-oaraUploadProtocol-  = lens _oaraUploadProtocol-      (\ s a -> s{_oaraUploadProtocol = a})---- | OAuth access token.-oaraAccessToken :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)-oaraAccessToken-  = lens _oaraAccessToken-      (\ s a -> s{_oaraAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-oaraUploadType :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)-oaraUploadType-  = lens _oaraUploadType-      (\ s a -> s{_oaraUploadType = a})---- | Multipart request metadata.-oaraPayload :: Lens' OrganizationsApprovalRequestsApprove ApproveApprovalRequestMessage-oaraPayload-  = lens _oaraPayload (\ s a -> s{_oaraPayload = a})---- | Name of the approval request to approve.-oaraName :: Lens' OrganizationsApprovalRequestsApprove Text-oaraName = lens _oaraName (\ s a -> s{_oaraName = a})---- | JSONP-oaraCallback :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)-oaraCallback-  = lens _oaraCallback (\ s a -> s{_oaraCallback = a})--instance GoogleRequest-           OrganizationsApprovalRequestsApprove-         where-        type Rs OrganizationsApprovalRequestsApprove =-             ApprovalRequest-        type Scopes OrganizationsApprovalRequestsApprove =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient-          OrganizationsApprovalRequestsApprove'{..}-          = go _oaraName _oaraXgafv _oaraUploadProtocol-              _oaraAccessToken-              _oaraUploadType-              _oaraCallback-              (Just AltJSON)-              _oaraPayload-              accessApprovalService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy OrganizationsApprovalRequestsApproveResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Organizations/ApprovalRequests/Dismiss.hs 
@@ -1,176 +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.AccessApproval.Organizations.ApprovalRequests.Dismiss--- 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)------ Dismisses a request. Returns the updated ApprovalRequest. NOTE: This--- does not deny access to the resource if another request has been made--- and approved. It is equivalent in effect to ignoring the request--- altogether. Returns NOT_FOUND if the request does not exist. Returns--- FAILED_PRECONDITION if the request exists but is not in a pending state.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.dismiss@.-module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Dismiss-    (-    -- * REST Resource-      OrganizationsApprovalRequestsDismissResource--    -- * Creating a Request-    , organizationsApprovalRequestsDismiss-    , OrganizationsApprovalRequestsDismiss--    -- * Request Lenses-    , oardXgafv-    , oardUploadProtocol-    , oardAccessToken-    , oardUploadType-    , oardPayload-    , oardName-    , oardCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.organizations.approvalRequests.dismiss@ method which the--- 'OrganizationsApprovalRequestsDismiss' request conforms to.-type OrganizationsApprovalRequestsDismissResource =-     "v1beta1" :>-       CaptureMode "name" "dismiss" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] DismissApprovalRequestMessage :>-                       Post '[JSON] ApprovalRequest---- | Dismisses a request. Returns the updated ApprovalRequest. NOTE: This--- does not deny access to the resource if another request has been made--- and approved. It is equivalent in effect to ignoring the request--- altogether. Returns NOT_FOUND if the request does not exist. Returns--- FAILED_PRECONDITION if the request exists but is not in a pending state.------ /See:/ 'organizationsApprovalRequestsDismiss' smart constructor.-data OrganizationsApprovalRequestsDismiss =-  OrganizationsApprovalRequestsDismiss'-    { _oardXgafv          :: !(Maybe Xgafv)-    , _oardUploadProtocol :: !(Maybe Text)-    , _oardAccessToken    :: !(Maybe Text)-    , _oardUploadType     :: !(Maybe Text)-    , _oardPayload        :: !DismissApprovalRequestMessage-    , _oardName           :: !Text-    , _oardCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OrganizationsApprovalRequestsDismiss' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oardXgafv'------ * 'oardUploadProtocol'------ * 'oardAccessToken'------ * 'oardUploadType'------ * 'oardPayload'------ * 'oardName'------ * 'oardCallback'-organizationsApprovalRequestsDismiss-    :: DismissApprovalRequestMessage -- ^ 'oardPayload'-    -> Text -- ^ 'oardName'-    -> OrganizationsApprovalRequestsDismiss-organizationsApprovalRequestsDismiss pOardPayload_ pOardName_ =-  OrganizationsApprovalRequestsDismiss'-    { _oardXgafv = Nothing-    , _oardUploadProtocol = Nothing-    , _oardAccessToken = Nothing-    , _oardUploadType = Nothing-    , _oardPayload = pOardPayload_-    , _oardName = pOardName_-    , _oardCallback = Nothing-    }----- | V1 error format.-oardXgafv :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Xgafv)-oardXgafv-  = lens _oardXgafv (\ s a -> s{_oardXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-oardUploadProtocol :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)-oardUploadProtocol-  = lens _oardUploadProtocol-      (\ s a -> s{_oardUploadProtocol = a})---- | OAuth access token.-oardAccessToken :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)-oardAccessToken-  = lens _oardAccessToken-      (\ s a -> s{_oardAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-oardUploadType :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)-oardUploadType-  = lens _oardUploadType-      (\ s a -> s{_oardUploadType = a})---- | Multipart request metadata.-oardPayload :: Lens' OrganizationsApprovalRequestsDismiss DismissApprovalRequestMessage-oardPayload-  = lens _oardPayload (\ s a -> s{_oardPayload = a})---- | Name of the ApprovalRequest to dismiss.-oardName :: Lens' OrganizationsApprovalRequestsDismiss Text-oardName = lens _oardName (\ s a -> s{_oardName = a})---- | JSONP-oardCallback :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)-oardCallback-  = lens _oardCallback (\ s a -> s{_oardCallback = a})--instance GoogleRequest-           OrganizationsApprovalRequestsDismiss-         where-        type Rs OrganizationsApprovalRequestsDismiss =-             ApprovalRequest-        type Scopes OrganizationsApprovalRequestsDismiss =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient-          OrganizationsApprovalRequestsDismiss'{..}-          = go _oardName _oardXgafv _oardUploadProtocol-              _oardAccessToken-              _oardUploadType-              _oardCallback-              (Just AltJSON)-              _oardPayload-              accessApprovalService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy OrganizationsApprovalRequestsDismissResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Organizations/ApprovalRequests/Get.hs 
@@ -1,156 +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.AccessApproval.Organizations.ApprovalRequests.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 an approval request. Returns NOT_FOUND if the request does not--- exist.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.get@.-module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Get-    (-    -- * REST Resource-      OrganizationsApprovalRequestsGetResource--    -- * Creating a Request-    , organizationsApprovalRequestsGet-    , OrganizationsApprovalRequestsGet--    -- * Request Lenses-    , oargXgafv-    , oargUploadProtocol-    , oargAccessToken-    , oargUploadType-    , oargName-    , oargCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.organizations.approvalRequests.get@ method which the--- 'OrganizationsApprovalRequestsGet' request conforms to.-type OrganizationsApprovalRequestsGetResource =-     "v1beta1" :>-       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] ApprovalRequest---- | Gets an approval request. Returns NOT_FOUND if the request does not--- exist.------ /See:/ 'organizationsApprovalRequestsGet' smart constructor.-data OrganizationsApprovalRequestsGet =-  OrganizationsApprovalRequestsGet'-    { _oargXgafv          :: !(Maybe Xgafv)-    , _oargUploadProtocol :: !(Maybe Text)-    , _oargAccessToken    :: !(Maybe Text)-    , _oargUploadType     :: !(Maybe Text)-    , _oargName           :: !Text-    , _oargCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OrganizationsApprovalRequestsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oargXgafv'------ * 'oargUploadProtocol'------ * 'oargAccessToken'------ * 'oargUploadType'------ * 'oargName'------ * 'oargCallback'-organizationsApprovalRequestsGet-    :: Text -- ^ 'oargName'-    -> OrganizationsApprovalRequestsGet-organizationsApprovalRequestsGet pOargName_ =-  OrganizationsApprovalRequestsGet'-    { _oargXgafv = Nothing-    , _oargUploadProtocol = Nothing-    , _oargAccessToken = Nothing-    , _oargUploadType = Nothing-    , _oargName = pOargName_-    , _oargCallback = Nothing-    }----- | V1 error format.-oargXgafv :: Lens' OrganizationsApprovalRequestsGet (Maybe Xgafv)-oargXgafv-  = lens _oargXgafv (\ s a -> s{_oargXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-oargUploadProtocol :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)-oargUploadProtocol-  = lens _oargUploadProtocol-      (\ s a -> s{_oargUploadProtocol = a})---- | OAuth access token.-oargAccessToken :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)-oargAccessToken-  = lens _oargAccessToken-      (\ s a -> s{_oargAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-oargUploadType :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)-oargUploadType-  = lens _oargUploadType-      (\ s a -> s{_oargUploadType = a})---- | Name of the approval request to retrieve.-oargName :: Lens' OrganizationsApprovalRequestsGet Text-oargName = lens _oargName (\ s a -> s{_oargName = a})---- | JSONP-oargCallback :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)-oargCallback-  = lens _oargCallback (\ s a -> s{_oargCallback = a})--instance GoogleRequest-           OrganizationsApprovalRequestsGet-         where-        type Rs OrganizationsApprovalRequestsGet =-             ApprovalRequest-        type Scopes OrganizationsApprovalRequestsGet =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient OrganizationsApprovalRequestsGet'{..}-          = go _oargName _oargXgafv _oargUploadProtocol-              _oargAccessToken-              _oargUploadType-              _oargCallback-              (Just AltJSON)-              accessApprovalService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy OrganizationsApprovalRequestsGetResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Organizations/ApprovalRequests/List.hs 
@@ -1,206 +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.AccessApproval.Organizations.ApprovalRequests.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 approval requests associated with a project, folder, or--- organization. Approval requests can be filtered by state (pending,--- active, dismissed). The order is reverse chronological.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.list@.-module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.List-    (-    -- * REST Resource-      OrganizationsApprovalRequestsListResource--    -- * Creating a Request-    , organizationsApprovalRequestsList-    , OrganizationsApprovalRequestsList--    -- * Request Lenses-    , oarlParent-    , oarlXgafv-    , oarlUploadProtocol-    , oarlAccessToken-    , oarlUploadType-    , oarlFilter-    , oarlPageToken-    , oarlPageSize-    , oarlCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.organizations.approvalRequests.list@ method which the--- 'OrganizationsApprovalRequestsList' request conforms to.-type OrganizationsApprovalRequestsListResource =-     "v1beta1" :>-       Capture "parent" Text :>-         "approvalRequests" :>-           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] ListApprovalRequestsResponse---- | Lists approval requests associated with a project, folder, or--- organization. Approval requests can be filtered by state (pending,--- active, dismissed). The order is reverse chronological.------ /See:/ 'organizationsApprovalRequestsList' smart constructor.-data OrganizationsApprovalRequestsList =-  OrganizationsApprovalRequestsList'-    { _oarlParent         :: !Text-    , _oarlXgafv          :: !(Maybe Xgafv)-    , _oarlUploadProtocol :: !(Maybe Text)-    , _oarlAccessToken    :: !(Maybe Text)-    , _oarlUploadType     :: !(Maybe Text)-    , _oarlFilter         :: !(Maybe Text)-    , _oarlPageToken      :: !(Maybe Text)-    , _oarlPageSize       :: !(Maybe (Textual Int32))-    , _oarlCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OrganizationsApprovalRequestsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oarlParent'------ * 'oarlXgafv'------ * 'oarlUploadProtocol'------ * 'oarlAccessToken'------ * 'oarlUploadType'------ * 'oarlFilter'------ * 'oarlPageToken'------ * 'oarlPageSize'------ * 'oarlCallback'-organizationsApprovalRequestsList-    :: Text -- ^ 'oarlParent'-    -> OrganizationsApprovalRequestsList-organizationsApprovalRequestsList pOarlParent_ =-  OrganizationsApprovalRequestsList'-    { _oarlParent = pOarlParent_-    , _oarlXgafv = Nothing-    , _oarlUploadProtocol = Nothing-    , _oarlAccessToken = Nothing-    , _oarlUploadType = Nothing-    , _oarlFilter = Nothing-    , _oarlPageToken = Nothing-    , _oarlPageSize = Nothing-    , _oarlCallback = Nothing-    }----- | The parent resource. This may be \"projects\/{project_id}\",--- \"folders\/{folder_id}\", or \"organizations\/{organization_id}\".-oarlParent :: Lens' OrganizationsApprovalRequestsList Text-oarlParent-  = lens _oarlParent (\ s a -> s{_oarlParent = a})---- | V1 error format.-oarlXgafv :: Lens' OrganizationsApprovalRequestsList (Maybe Xgafv)-oarlXgafv-  = lens _oarlXgafv (\ s a -> s{_oarlXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-oarlUploadProtocol :: Lens' OrganizationsApprovalRequestsList (Maybe Text)-oarlUploadProtocol-  = lens _oarlUploadProtocol-      (\ s a -> s{_oarlUploadProtocol = a})---- | OAuth access token.-oarlAccessToken :: Lens' OrganizationsApprovalRequestsList (Maybe Text)-oarlAccessToken-  = lens _oarlAccessToken-      (\ s a -> s{_oarlAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-oarlUploadType :: Lens' OrganizationsApprovalRequestsList (Maybe Text)-oarlUploadType-  = lens _oarlUploadType-      (\ s a -> s{_oarlUploadType = a})---- | A filter on the type of approval requests to retrieve. Must be one of--- the following values:------ 1.  [not set]: Requests that are pending or have active approvals.--- 2.  ALL: All requests.--- 3.  PENDING: Only pending requests.--- 4.  ACTIVE: Only active (i.e. currently approved) requests.--- 5.  DISMISSED: Only dismissed (including expired) requests.-oarlFilter :: Lens' OrganizationsApprovalRequestsList (Maybe Text)-oarlFilter-  = lens _oarlFilter (\ s a -> s{_oarlFilter = a})---- | A token identifying the page of results to return.-oarlPageToken :: Lens' OrganizationsApprovalRequestsList (Maybe Text)-oarlPageToken-  = lens _oarlPageToken-      (\ s a -> s{_oarlPageToken = a})---- | Requested page size.-oarlPageSize :: Lens' OrganizationsApprovalRequestsList (Maybe Int32)-oarlPageSize-  = lens _oarlPageSize (\ s a -> s{_oarlPageSize = a})-      . mapping _Coerce---- | JSONP-oarlCallback :: Lens' OrganizationsApprovalRequestsList (Maybe Text)-oarlCallback-  = lens _oarlCallback (\ s a -> s{_oarlCallback = a})--instance GoogleRequest-           OrganizationsApprovalRequestsList-         where-        type Rs OrganizationsApprovalRequestsList =-             ListApprovalRequestsResponse-        type Scopes OrganizationsApprovalRequestsList =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient OrganizationsApprovalRequestsList'{..}-          = go _oarlParent _oarlXgafv _oarlUploadProtocol-              _oarlAccessToken-              _oarlUploadType-              _oarlFilter-              _oarlPageToken-              _oarlPageSize-              _oarlCallback-              (Just AltJSON)-              accessApprovalService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy OrganizationsApprovalRequestsListResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Organizations/GetAccessApprovalSettings.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.AccessApproval.Organizations.GetAccessApprovalSettings--- 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 settings associated with a project, folder, or organization.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.getAccessApprovalSettings@.-module Network.Google.Resource.AccessApproval.Organizations.GetAccessApprovalSettings-    (-    -- * REST Resource-      OrganizationsGetAccessApprovalSettingsResource--    -- * Creating a Request-    , organizationsGetAccessApprovalSettings-    , OrganizationsGetAccessApprovalSettings--    -- * Request Lenses-    , ogaasXgafv-    , ogaasUploadProtocol-    , ogaasAccessToken-    , ogaasUploadType-    , ogaasName-    , ogaasCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.organizations.getAccessApprovalSettings@ method which the--- 'OrganizationsGetAccessApprovalSettings' request conforms to.-type OrganizationsGetAccessApprovalSettingsResource =-     "v1beta1" :>-       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] AccessApprovalSettings---- | Gets the settings associated with a project, folder, or organization.------ /See:/ 'organizationsGetAccessApprovalSettings' smart constructor.-data OrganizationsGetAccessApprovalSettings =-  OrganizationsGetAccessApprovalSettings'-    { _ogaasXgafv          :: !(Maybe Xgafv)-    , _ogaasUploadProtocol :: !(Maybe Text)-    , _ogaasAccessToken    :: !(Maybe Text)-    , _ogaasUploadType     :: !(Maybe Text)-    , _ogaasName           :: !Text-    , _ogaasCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OrganizationsGetAccessApprovalSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ogaasXgafv'------ * 'ogaasUploadProtocol'------ * 'ogaasAccessToken'------ * 'ogaasUploadType'------ * 'ogaasName'------ * 'ogaasCallback'-organizationsGetAccessApprovalSettings-    :: Text -- ^ 'ogaasName'-    -> OrganizationsGetAccessApprovalSettings-organizationsGetAccessApprovalSettings pOgaasName_ =-  OrganizationsGetAccessApprovalSettings'-    { _ogaasXgafv = Nothing-    , _ogaasUploadProtocol = Nothing-    , _ogaasAccessToken = Nothing-    , _ogaasUploadType = Nothing-    , _ogaasName = pOgaasName_-    , _ogaasCallback = Nothing-    }----- | V1 error format.-ogaasXgafv :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Xgafv)-ogaasXgafv-  = lens _ogaasXgafv (\ s a -> s{_ogaasXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-ogaasUploadProtocol :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)-ogaasUploadProtocol-  = lens _ogaasUploadProtocol-      (\ s a -> s{_ogaasUploadProtocol = a})---- | OAuth access token.-ogaasAccessToken :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)-ogaasAccessToken-  = lens _ogaasAccessToken-      (\ s a -> s{_ogaasAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-ogaasUploadType :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)-ogaasUploadType-  = lens _ogaasUploadType-      (\ s a -> s{_ogaasUploadType = a})---- | Name of the AccessApprovalSettings to retrieve.-ogaasName :: Lens' OrganizationsGetAccessApprovalSettings Text-ogaasName-  = lens _ogaasName (\ s a -> s{_ogaasName = a})---- | JSONP-ogaasCallback :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)-ogaasCallback-  = lens _ogaasCallback-      (\ s a -> s{_ogaasCallback = a})--instance GoogleRequest-           OrganizationsGetAccessApprovalSettings-         where-        type Rs OrganizationsGetAccessApprovalSettings =-             AccessApprovalSettings-        type Scopes OrganizationsGetAccessApprovalSettings =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient-          OrganizationsGetAccessApprovalSettings'{..}-          = go _ogaasName _ogaasXgafv _ogaasUploadProtocol-              _ogaasAccessToken-              _ogaasUploadType-              _ogaasCallback-              (Just AltJSON)-              accessApprovalService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy OrganizationsGetAccessApprovalSettingsResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Organizations/UpdateAccessApprovalSettings.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.AccessApproval.Organizations.UpdateAccessApprovalSettings--- 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)------ Updates the settings associated with a project, folder, or organization.--- Completely replaces the existing settings.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.updateAccessApprovalSettings@.-module Network.Google.Resource.AccessApproval.Organizations.UpdateAccessApprovalSettings-    (-    -- * REST Resource-      OrganizationsUpdateAccessApprovalSettingsResource--    -- * Creating a Request-    , organizationsUpdateAccessApprovalSettings-    , OrganizationsUpdateAccessApprovalSettings--    -- * Request Lenses-    , ouaasXgafv-    , ouaasUploadProtocol-    , ouaasAccessToken-    , ouaasUploadType-    , ouaasPayload-    , ouaasName-    , ouaasCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.organizations.updateAccessApprovalSettings@ method which the--- 'OrganizationsUpdateAccessApprovalSettings' request conforms to.-type OrganizationsUpdateAccessApprovalSettingsResource-     =-     "v1beta1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] AccessApprovalSettings :>-                       Patch '[JSON] AccessApprovalSettings---- | Updates the settings associated with a project, folder, or organization.--- Completely replaces the existing settings.------ /See:/ 'organizationsUpdateAccessApprovalSettings' smart constructor.-data OrganizationsUpdateAccessApprovalSettings =-  OrganizationsUpdateAccessApprovalSettings'-    { _ouaasXgafv          :: !(Maybe Xgafv)-    , _ouaasUploadProtocol :: !(Maybe Text)-    , _ouaasAccessToken    :: !(Maybe Text)-    , _ouaasUploadType     :: !(Maybe Text)-    , _ouaasPayload        :: !AccessApprovalSettings-    , _ouaasName           :: !Text-    , _ouaasCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OrganizationsUpdateAccessApprovalSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ouaasXgafv'------ * 'ouaasUploadProtocol'------ * 'ouaasAccessToken'------ * 'ouaasUploadType'------ * 'ouaasPayload'------ * 'ouaasName'------ * 'ouaasCallback'-organizationsUpdateAccessApprovalSettings-    :: AccessApprovalSettings -- ^ 'ouaasPayload'-    -> Text -- ^ 'ouaasName'-    -> OrganizationsUpdateAccessApprovalSettings-organizationsUpdateAccessApprovalSettings pOuaasPayload_ pOuaasName_ =-  OrganizationsUpdateAccessApprovalSettings'-    { _ouaasXgafv = Nothing-    , _ouaasUploadProtocol = Nothing-    , _ouaasAccessToken = Nothing-    , _ouaasUploadType = Nothing-    , _ouaasPayload = pOuaasPayload_-    , _ouaasName = pOuaasName_-    , _ouaasCallback = Nothing-    }----- | V1 error format.-ouaasXgafv :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Xgafv)-ouaasXgafv-  = lens _ouaasXgafv (\ s a -> s{_ouaasXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-ouaasUploadProtocol :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)-ouaasUploadProtocol-  = lens _ouaasUploadProtocol-      (\ s a -> s{_ouaasUploadProtocol = a})---- | OAuth access token.-ouaasAccessToken :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)-ouaasAccessToken-  = lens _ouaasAccessToken-      (\ s a -> s{_ouaasAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-ouaasUploadType :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)-ouaasUploadType-  = lens _ouaasUploadType-      (\ s a -> s{_ouaasUploadType = a})---- | Multipart request metadata.-ouaasPayload :: Lens' OrganizationsUpdateAccessApprovalSettings AccessApprovalSettings-ouaasPayload-  = lens _ouaasPayload (\ s a -> s{_ouaasPayload = a})---- | The resource name of the settings. Format is one of:--- \"projects\/{project_id}\/accessApprovalSettings\"--- \"folders\/{folder_id}\/accessApprovalSettings\"--- \"organizations\/{organization_id}\/accessApprovalSettings\"-ouaasName :: Lens' OrganizationsUpdateAccessApprovalSettings Text-ouaasName-  = lens _ouaasName (\ s a -> s{_ouaasName = a})---- | JSONP-ouaasCallback :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)-ouaasCallback-  = lens _ouaasCallback-      (\ s a -> s{_ouaasCallback = a})--instance GoogleRequest-           OrganizationsUpdateAccessApprovalSettings-         where-        type Rs OrganizationsUpdateAccessApprovalSettings =-             AccessApprovalSettings-        type Scopes OrganizationsUpdateAccessApprovalSettings-             = '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient-          OrganizationsUpdateAccessApprovalSettings'{..}-          = go _ouaasName _ouaasXgafv _ouaasUploadProtocol-              _ouaasAccessToken-              _ouaasUploadType-              _ouaasCallback-              (Just AltJSON)-              _ouaasPayload-              accessApprovalService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy-                           OrganizationsUpdateAccessApprovalSettingsResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Projects/ApprovalRequests/Approve.hs 
@@ -1,171 +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.AccessApproval.Projects.ApprovalRequests.Approve--- 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)------ Approves a request and returns the updated ApprovalRequest. Returns--- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if--- the request exists but is not in a pending state.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.approve@.-module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Approve-    (-    -- * REST Resource-      ProjectsApprovalRequestsApproveResource--    -- * Creating a Request-    , projectsApprovalRequestsApprove-    , ProjectsApprovalRequestsApprove--    -- * Request Lenses-    , paraXgafv-    , paraUploadProtocol-    , paraAccessToken-    , paraUploadType-    , paraPayload-    , paraName-    , paraCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.projects.approvalRequests.approve@ method which the--- 'ProjectsApprovalRequestsApprove' request conforms to.-type ProjectsApprovalRequestsApproveResource =-     "v1beta1" :>-       CaptureMode "name" "approve" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] ApproveApprovalRequestMessage :>-                       Post '[JSON] ApprovalRequest---- | Approves a request and returns the updated ApprovalRequest. Returns--- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if--- the request exists but is not in a pending state.------ /See:/ 'projectsApprovalRequestsApprove' smart constructor.-data ProjectsApprovalRequestsApprove =-  ProjectsApprovalRequestsApprove'-    { _paraXgafv          :: !(Maybe Xgafv)-    , _paraUploadProtocol :: !(Maybe Text)-    , _paraAccessToken    :: !(Maybe Text)-    , _paraUploadType     :: !(Maybe Text)-    , _paraPayload        :: !ApproveApprovalRequestMessage-    , _paraName           :: !Text-    , _paraCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsApprovalRequestsApprove' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'paraXgafv'------ * 'paraUploadProtocol'------ * 'paraAccessToken'------ * 'paraUploadType'------ * 'paraPayload'------ * 'paraName'------ * 'paraCallback'-projectsApprovalRequestsApprove-    :: ApproveApprovalRequestMessage -- ^ 'paraPayload'-    -> Text -- ^ 'paraName'-    -> ProjectsApprovalRequestsApprove-projectsApprovalRequestsApprove pParaPayload_ pParaName_ =-  ProjectsApprovalRequestsApprove'-    { _paraXgafv = Nothing-    , _paraUploadProtocol = Nothing-    , _paraAccessToken = Nothing-    , _paraUploadType = Nothing-    , _paraPayload = pParaPayload_-    , _paraName = pParaName_-    , _paraCallback = Nothing-    }----- | V1 error format.-paraXgafv :: Lens' ProjectsApprovalRequestsApprove (Maybe Xgafv)-paraXgafv-  = lens _paraXgafv (\ s a -> s{_paraXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-paraUploadProtocol :: Lens' ProjectsApprovalRequestsApprove (Maybe Text)-paraUploadProtocol-  = lens _paraUploadProtocol-      (\ s a -> s{_paraUploadProtocol = a})---- | OAuth access token.-paraAccessToken :: Lens' ProjectsApprovalRequestsApprove (Maybe Text)-paraAccessToken-  = lens _paraAccessToken-      (\ s a -> s{_paraAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-paraUploadType :: Lens' ProjectsApprovalRequestsApprove (Maybe Text)-paraUploadType-  = lens _paraUploadType-      (\ s a -> s{_paraUploadType = a})---- | Multipart request metadata.-paraPayload :: Lens' ProjectsApprovalRequestsApprove ApproveApprovalRequestMessage-paraPayload-  = lens _paraPayload (\ s a -> s{_paraPayload = a})---- | Name of the approval request to approve.-paraName :: Lens' ProjectsApprovalRequestsApprove Text-paraName = lens _paraName (\ s a -> s{_paraName = a})---- | JSONP-paraCallback :: Lens' ProjectsApprovalRequestsApprove (Maybe Text)-paraCallback-  = lens _paraCallback (\ s a -> s{_paraCallback = a})--instance GoogleRequest-           ProjectsApprovalRequestsApprove-         where-        type Rs ProjectsApprovalRequestsApprove =-             ApprovalRequest-        type Scopes ProjectsApprovalRequestsApprove =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsApprovalRequestsApprove'{..}-          = go _paraName _paraXgafv _paraUploadProtocol-              _paraAccessToken-              _paraUploadType-              _paraCallback-              (Just AltJSON)-              _paraPayload-              accessApprovalService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsApprovalRequestsApproveResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Projects/ApprovalRequests/Dismiss.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.AccessApproval.Projects.ApprovalRequests.Dismiss--- 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)------ Dismisses a request. Returns the updated ApprovalRequest. NOTE: This--- does not deny access to the resource if another request has been made--- and approved. It is equivalent in effect to ignoring the request--- altogether. Returns NOT_FOUND if the request does not exist. Returns--- FAILED_PRECONDITION if the request exists but is not in a pending state.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.dismiss@.-module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Dismiss-    (-    -- * REST Resource-      ProjectsApprovalRequestsDismissResource--    -- * Creating a Request-    , projectsApprovalRequestsDismiss-    , ProjectsApprovalRequestsDismiss--    -- * Request Lenses-    , pardXgafv-    , pardUploadProtocol-    , pardAccessToken-    , pardUploadType-    , pardPayload-    , pardName-    , pardCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.projects.approvalRequests.dismiss@ method which the--- 'ProjectsApprovalRequestsDismiss' request conforms to.-type ProjectsApprovalRequestsDismissResource =-     "v1beta1" :>-       CaptureMode "name" "dismiss" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] DismissApprovalRequestMessage :>-                       Post '[JSON] ApprovalRequest---- | Dismisses a request. Returns the updated ApprovalRequest. NOTE: This--- does not deny access to the resource if another request has been made--- and approved. It is equivalent in effect to ignoring the request--- altogether. Returns NOT_FOUND if the request does not exist. Returns--- FAILED_PRECONDITION if the request exists but is not in a pending state.------ /See:/ 'projectsApprovalRequestsDismiss' smart constructor.-data ProjectsApprovalRequestsDismiss =-  ProjectsApprovalRequestsDismiss'-    { _pardXgafv          :: !(Maybe Xgafv)-    , _pardUploadProtocol :: !(Maybe Text)-    , _pardAccessToken    :: !(Maybe Text)-    , _pardUploadType     :: !(Maybe Text)-    , _pardPayload        :: !DismissApprovalRequestMessage-    , _pardName           :: !Text-    , _pardCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsApprovalRequestsDismiss' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pardXgafv'------ * 'pardUploadProtocol'------ * 'pardAccessToken'------ * 'pardUploadType'------ * 'pardPayload'------ * 'pardName'------ * 'pardCallback'-projectsApprovalRequestsDismiss-    :: DismissApprovalRequestMessage -- ^ 'pardPayload'-    -> Text -- ^ 'pardName'-    -> ProjectsApprovalRequestsDismiss-projectsApprovalRequestsDismiss pPardPayload_ pPardName_ =-  ProjectsApprovalRequestsDismiss'-    { _pardXgafv = Nothing-    , _pardUploadProtocol = Nothing-    , _pardAccessToken = Nothing-    , _pardUploadType = Nothing-    , _pardPayload = pPardPayload_-    , _pardName = pPardName_-    , _pardCallback = Nothing-    }----- | V1 error format.-pardXgafv :: Lens' ProjectsApprovalRequestsDismiss (Maybe Xgafv)-pardXgafv-  = lens _pardXgafv (\ s a -> s{_pardXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pardUploadProtocol :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)-pardUploadProtocol-  = lens _pardUploadProtocol-      (\ s a -> s{_pardUploadProtocol = a})---- | OAuth access token.-pardAccessToken :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)-pardAccessToken-  = lens _pardAccessToken-      (\ s a -> s{_pardAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pardUploadType :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)-pardUploadType-  = lens _pardUploadType-      (\ s a -> s{_pardUploadType = a})---- | Multipart request metadata.-pardPayload :: Lens' ProjectsApprovalRequestsDismiss DismissApprovalRequestMessage-pardPayload-  = lens _pardPayload (\ s a -> s{_pardPayload = a})---- | Name of the ApprovalRequest to dismiss.-pardName :: Lens' ProjectsApprovalRequestsDismiss Text-pardName = lens _pardName (\ s a -> s{_pardName = a})---- | JSONP-pardCallback :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)-pardCallback-  = lens _pardCallback (\ s a -> s{_pardCallback = a})--instance GoogleRequest-           ProjectsApprovalRequestsDismiss-         where-        type Rs ProjectsApprovalRequestsDismiss =-             ApprovalRequest-        type Scopes ProjectsApprovalRequestsDismiss =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsApprovalRequestsDismiss'{..}-          = go _pardName _pardXgafv _pardUploadProtocol-              _pardAccessToken-              _pardUploadType-              _pardCallback-              (Just AltJSON)-              _pardPayload-              accessApprovalService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsApprovalRequestsDismissResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Projects/ApprovalRequests/Get.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.AccessApproval.Projects.ApprovalRequests.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 an approval request. Returns NOT_FOUND if the request does not--- exist.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.get@.-module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Get-    (-    -- * REST Resource-      ProjectsApprovalRequestsGetResource--    -- * Creating a Request-    , projectsApprovalRequestsGet-    , ProjectsApprovalRequestsGet--    -- * Request Lenses-    , pargXgafv-    , pargUploadProtocol-    , pargAccessToken-    , pargUploadType-    , pargName-    , pargCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.projects.approvalRequests.get@ method which the--- 'ProjectsApprovalRequestsGet' request conforms to.-type ProjectsApprovalRequestsGetResource =-     "v1beta1" :>-       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] ApprovalRequest---- | Gets an approval request. Returns NOT_FOUND if the request does not--- exist.------ /See:/ 'projectsApprovalRequestsGet' smart constructor.-data ProjectsApprovalRequestsGet =-  ProjectsApprovalRequestsGet'-    { _pargXgafv          :: !(Maybe Xgafv)-    , _pargUploadProtocol :: !(Maybe Text)-    , _pargAccessToken    :: !(Maybe Text)-    , _pargUploadType     :: !(Maybe Text)-    , _pargName           :: !Text-    , _pargCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsApprovalRequestsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pargXgafv'------ * 'pargUploadProtocol'------ * 'pargAccessToken'------ * 'pargUploadType'------ * 'pargName'------ * 'pargCallback'-projectsApprovalRequestsGet-    :: Text -- ^ 'pargName'-    -> ProjectsApprovalRequestsGet-projectsApprovalRequestsGet pPargName_ =-  ProjectsApprovalRequestsGet'-    { _pargXgafv = Nothing-    , _pargUploadProtocol = Nothing-    , _pargAccessToken = Nothing-    , _pargUploadType = Nothing-    , _pargName = pPargName_-    , _pargCallback = Nothing-    }----- | V1 error format.-pargXgafv :: Lens' ProjectsApprovalRequestsGet (Maybe Xgafv)-pargXgafv-  = lens _pargXgafv (\ s a -> s{_pargXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pargUploadProtocol :: Lens' ProjectsApprovalRequestsGet (Maybe Text)-pargUploadProtocol-  = lens _pargUploadProtocol-      (\ s a -> s{_pargUploadProtocol = a})---- | OAuth access token.-pargAccessToken :: Lens' ProjectsApprovalRequestsGet (Maybe Text)-pargAccessToken-  = lens _pargAccessToken-      (\ s a -> s{_pargAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pargUploadType :: Lens' ProjectsApprovalRequestsGet (Maybe Text)-pargUploadType-  = lens _pargUploadType-      (\ s a -> s{_pargUploadType = a})---- | Name of the approval request to retrieve.-pargName :: Lens' ProjectsApprovalRequestsGet Text-pargName = lens _pargName (\ s a -> s{_pargName = a})---- | JSONP-pargCallback :: Lens' ProjectsApprovalRequestsGet (Maybe Text)-pargCallback-  = lens _pargCallback (\ s a -> s{_pargCallback = a})--instance GoogleRequest ProjectsApprovalRequestsGet-         where-        type Rs ProjectsApprovalRequestsGet = ApprovalRequest-        type Scopes ProjectsApprovalRequestsGet =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsApprovalRequestsGet'{..}-          = go _pargName _pargXgafv _pargUploadProtocol-              _pargAccessToken-              _pargUploadType-              _pargCallback-              (Just AltJSON)-              accessApprovalService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsApprovalRequestsGetResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Projects/ApprovalRequests/List.hs 
@@ -1,204 +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.AccessApproval.Projects.ApprovalRequests.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 approval requests associated with a project, folder, or--- organization. Approval requests can be filtered by state (pending,--- active, dismissed). The order is reverse chronological.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.list@.-module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.List-    (-    -- * REST Resource-      ProjectsApprovalRequestsListResource--    -- * Creating a Request-    , projectsApprovalRequestsList-    , ProjectsApprovalRequestsList--    -- * Request Lenses-    , parlParent-    , parlXgafv-    , parlUploadProtocol-    , parlAccessToken-    , parlUploadType-    , parlFilter-    , parlPageToken-    , parlPageSize-    , parlCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.projects.approvalRequests.list@ method which the--- 'ProjectsApprovalRequestsList' request conforms to.-type ProjectsApprovalRequestsListResource =-     "v1beta1" :>-       Capture "parent" Text :>-         "approvalRequests" :>-           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] ListApprovalRequestsResponse---- | Lists approval requests associated with a project, folder, or--- organization. Approval requests can be filtered by state (pending,--- active, dismissed). The order is reverse chronological.------ /See:/ 'projectsApprovalRequestsList' smart constructor.-data ProjectsApprovalRequestsList =-  ProjectsApprovalRequestsList'-    { _parlParent         :: !Text-    , _parlXgafv          :: !(Maybe Xgafv)-    , _parlUploadProtocol :: !(Maybe Text)-    , _parlAccessToken    :: !(Maybe Text)-    , _parlUploadType     :: !(Maybe Text)-    , _parlFilter         :: !(Maybe Text)-    , _parlPageToken      :: !(Maybe Text)-    , _parlPageSize       :: !(Maybe (Textual Int32))-    , _parlCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsApprovalRequestsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'parlParent'------ * 'parlXgafv'------ * 'parlUploadProtocol'------ * 'parlAccessToken'------ * 'parlUploadType'------ * 'parlFilter'------ * 'parlPageToken'------ * 'parlPageSize'------ * 'parlCallback'-projectsApprovalRequestsList-    :: Text -- ^ 'parlParent'-    -> ProjectsApprovalRequestsList-projectsApprovalRequestsList pParlParent_ =-  ProjectsApprovalRequestsList'-    { _parlParent = pParlParent_-    , _parlXgafv = Nothing-    , _parlUploadProtocol = Nothing-    , _parlAccessToken = Nothing-    , _parlUploadType = Nothing-    , _parlFilter = Nothing-    , _parlPageToken = Nothing-    , _parlPageSize = Nothing-    , _parlCallback = Nothing-    }----- | The parent resource. This may be \"projects\/{project_id}\",--- \"folders\/{folder_id}\", or \"organizations\/{organization_id}\".-parlParent :: Lens' ProjectsApprovalRequestsList Text-parlParent-  = lens _parlParent (\ s a -> s{_parlParent = a})---- | V1 error format.-parlXgafv :: Lens' ProjectsApprovalRequestsList (Maybe Xgafv)-parlXgafv-  = lens _parlXgafv (\ s a -> s{_parlXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-parlUploadProtocol :: Lens' ProjectsApprovalRequestsList (Maybe Text)-parlUploadProtocol-  = lens _parlUploadProtocol-      (\ s a -> s{_parlUploadProtocol = a})---- | OAuth access token.-parlAccessToken :: Lens' ProjectsApprovalRequestsList (Maybe Text)-parlAccessToken-  = lens _parlAccessToken-      (\ s a -> s{_parlAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-parlUploadType :: Lens' ProjectsApprovalRequestsList (Maybe Text)-parlUploadType-  = lens _parlUploadType-      (\ s a -> s{_parlUploadType = a})---- | A filter on the type of approval requests to retrieve. Must be one of--- the following values:------ 1.  [not set]: Requests that are pending or have active approvals.--- 2.  ALL: All requests.--- 3.  PENDING: Only pending requests.--- 4.  ACTIVE: Only active (i.e. currently approved) requests.--- 5.  DISMISSED: Only dismissed (including expired) requests.-parlFilter :: Lens' ProjectsApprovalRequestsList (Maybe Text)-parlFilter-  = lens _parlFilter (\ s a -> s{_parlFilter = a})---- | A token identifying the page of results to return.-parlPageToken :: Lens' ProjectsApprovalRequestsList (Maybe Text)-parlPageToken-  = lens _parlPageToken-      (\ s a -> s{_parlPageToken = a})---- | Requested page size.-parlPageSize :: Lens' ProjectsApprovalRequestsList (Maybe Int32)-parlPageSize-  = lens _parlPageSize (\ s a -> s{_parlPageSize = a})-      . mapping _Coerce---- | JSONP-parlCallback :: Lens' ProjectsApprovalRequestsList (Maybe Text)-parlCallback-  = lens _parlCallback (\ s a -> s{_parlCallback = a})--instance GoogleRequest ProjectsApprovalRequestsList-         where-        type Rs ProjectsApprovalRequestsList =-             ListApprovalRequestsResponse-        type Scopes ProjectsApprovalRequestsList =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsApprovalRequestsList'{..}-          = go _parlParent _parlXgafv _parlUploadProtocol-              _parlAccessToken-              _parlUploadType-              _parlFilter-              _parlPageToken-              _parlPageSize-              _parlCallback-              (Just AltJSON)-              accessApprovalService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsApprovalRequestsListResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Projects/GetAccessApprovalSettings.hs 
@@ -1,156 +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.AccessApproval.Projects.GetAccessApprovalSettings--- 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 settings associated with a project, folder, or organization.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.getAccessApprovalSettings@.-module Network.Google.Resource.AccessApproval.Projects.GetAccessApprovalSettings-    (-    -- * REST Resource-      ProjectsGetAccessApprovalSettingsResource--    -- * Creating a Request-    , projectsGetAccessApprovalSettings-    , ProjectsGetAccessApprovalSettings--    -- * Request Lenses-    , pgaasXgafv-    , pgaasUploadProtocol-    , pgaasAccessToken-    , pgaasUploadType-    , pgaasName-    , pgaasCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.projects.getAccessApprovalSettings@ method which the--- 'ProjectsGetAccessApprovalSettings' request conforms to.-type ProjectsGetAccessApprovalSettingsResource =-     "v1beta1" :>-       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] AccessApprovalSettings---- | Gets the settings associated with a project, folder, or organization.------ /See:/ 'projectsGetAccessApprovalSettings' smart constructor.-data ProjectsGetAccessApprovalSettings =-  ProjectsGetAccessApprovalSettings'-    { _pgaasXgafv          :: !(Maybe Xgafv)-    , _pgaasUploadProtocol :: !(Maybe Text)-    , _pgaasAccessToken    :: !(Maybe Text)-    , _pgaasUploadType     :: !(Maybe Text)-    , _pgaasName           :: !Text-    , _pgaasCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsGetAccessApprovalSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pgaasXgafv'------ * 'pgaasUploadProtocol'------ * 'pgaasAccessToken'------ * 'pgaasUploadType'------ * 'pgaasName'------ * 'pgaasCallback'-projectsGetAccessApprovalSettings-    :: Text -- ^ 'pgaasName'-    -> ProjectsGetAccessApprovalSettings-projectsGetAccessApprovalSettings pPgaasName_ =-  ProjectsGetAccessApprovalSettings'-    { _pgaasXgafv = Nothing-    , _pgaasUploadProtocol = Nothing-    , _pgaasAccessToken = Nothing-    , _pgaasUploadType = Nothing-    , _pgaasName = pPgaasName_-    , _pgaasCallback = Nothing-    }----- | V1 error format.-pgaasXgafv :: Lens' ProjectsGetAccessApprovalSettings (Maybe Xgafv)-pgaasXgafv-  = lens _pgaasXgafv (\ s a -> s{_pgaasXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pgaasUploadProtocol :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)-pgaasUploadProtocol-  = lens _pgaasUploadProtocol-      (\ s a -> s{_pgaasUploadProtocol = a})---- | OAuth access token.-pgaasAccessToken :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)-pgaasAccessToken-  = lens _pgaasAccessToken-      (\ s a -> s{_pgaasAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pgaasUploadType :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)-pgaasUploadType-  = lens _pgaasUploadType-      (\ s a -> s{_pgaasUploadType = a})---- | Name of the AccessApprovalSettings to retrieve.-pgaasName :: Lens' ProjectsGetAccessApprovalSettings Text-pgaasName-  = lens _pgaasName (\ s a -> s{_pgaasName = a})---- | JSONP-pgaasCallback :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)-pgaasCallback-  = lens _pgaasCallback-      (\ s a -> s{_pgaasCallback = a})--instance GoogleRequest-           ProjectsGetAccessApprovalSettings-         where-        type Rs ProjectsGetAccessApprovalSettings =-             AccessApprovalSettings-        type Scopes ProjectsGetAccessApprovalSettings =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsGetAccessApprovalSettings'{..}-          = go _pgaasName _pgaasXgafv _pgaasUploadProtocol-              _pgaasAccessToken-              _pgaasUploadType-              _pgaasCallback-              (Just AltJSON)-              accessApprovalService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsGetAccessApprovalSettingsResource)-                      mempty
− gen/Network/Google/Resource/AccessApproval/Projects/UpdateAccessApprovalSettings.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.AccessApproval.Projects.UpdateAccessApprovalSettings--- 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)------ Updates the settings associated with a project, folder, or organization.--- Completely replaces the existing settings.------ /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.updateAccessApprovalSettings@.-module Network.Google.Resource.AccessApproval.Projects.UpdateAccessApprovalSettings-    (-    -- * REST Resource-      ProjectsUpdateAccessApprovalSettingsResource--    -- * Creating a Request-    , projectsUpdateAccessApprovalSettings-    , ProjectsUpdateAccessApprovalSettings--    -- * Request Lenses-    , puaasXgafv-    , puaasUploadProtocol-    , puaasAccessToken-    , puaasUploadType-    , puaasPayload-    , puaasName-    , puaasCallback-    ) where--import           Network.Google.AccessApproval.Types-import           Network.Google.Prelude---- | A resource alias for @accessapproval.projects.updateAccessApprovalSettings@ method which the--- 'ProjectsUpdateAccessApprovalSettings' request conforms to.-type ProjectsUpdateAccessApprovalSettingsResource =-     "v1beta1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] AccessApprovalSettings :>-                       Patch '[JSON] AccessApprovalSettings---- | Updates the settings associated with a project, folder, or organization.--- Completely replaces the existing settings.------ /See:/ 'projectsUpdateAccessApprovalSettings' smart constructor.-data ProjectsUpdateAccessApprovalSettings =-  ProjectsUpdateAccessApprovalSettings'-    { _puaasXgafv          :: !(Maybe Xgafv)-    , _puaasUploadProtocol :: !(Maybe Text)-    , _puaasAccessToken    :: !(Maybe Text)-    , _puaasUploadType     :: !(Maybe Text)-    , _puaasPayload        :: !AccessApprovalSettings-    , _puaasName           :: !Text-    , _puaasCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsUpdateAccessApprovalSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'puaasXgafv'------ * 'puaasUploadProtocol'------ * 'puaasAccessToken'------ * 'puaasUploadType'------ * 'puaasPayload'------ * 'puaasName'------ * 'puaasCallback'-projectsUpdateAccessApprovalSettings-    :: AccessApprovalSettings -- ^ 'puaasPayload'-    -> Text -- ^ 'puaasName'-    -> ProjectsUpdateAccessApprovalSettings-projectsUpdateAccessApprovalSettings pPuaasPayload_ pPuaasName_ =-  ProjectsUpdateAccessApprovalSettings'-    { _puaasXgafv = Nothing-    , _puaasUploadProtocol = Nothing-    , _puaasAccessToken = Nothing-    , _puaasUploadType = Nothing-    , _puaasPayload = pPuaasPayload_-    , _puaasName = pPuaasName_-    , _puaasCallback = Nothing-    }----- | V1 error format.-puaasXgafv :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Xgafv)-puaasXgafv-  = lens _puaasXgafv (\ s a -> s{_puaasXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-puaasUploadProtocol :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)-puaasUploadProtocol-  = lens _puaasUploadProtocol-      (\ s a -> s{_puaasUploadProtocol = a})---- | OAuth access token.-puaasAccessToken :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)-puaasAccessToken-  = lens _puaasAccessToken-      (\ s a -> s{_puaasAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-puaasUploadType :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)-puaasUploadType-  = lens _puaasUploadType-      (\ s a -> s{_puaasUploadType = a})---- | Multipart request metadata.-puaasPayload :: Lens' ProjectsUpdateAccessApprovalSettings AccessApprovalSettings-puaasPayload-  = lens _puaasPayload (\ s a -> s{_puaasPayload = a})---- | The resource name of the settings. Format is one of:--- \"projects\/{project_id}\/accessApprovalSettings\"--- \"folders\/{folder_id}\/accessApprovalSettings\"--- \"organizations\/{organization_id}\/accessApprovalSettings\"-puaasName :: Lens' ProjectsUpdateAccessApprovalSettings Text-puaasName-  = lens _puaasName (\ s a -> s{_puaasName = a})---- | JSONP-puaasCallback :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)-puaasCallback-  = lens _puaasCallback-      (\ s a -> s{_puaasCallback = a})--instance GoogleRequest-           ProjectsUpdateAccessApprovalSettings-         where-        type Rs ProjectsUpdateAccessApprovalSettings =-             AccessApprovalSettings-        type Scopes ProjectsUpdateAccessApprovalSettings =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient-          ProjectsUpdateAccessApprovalSettings'{..}-          = go _puaasName _puaasXgafv _puaasUploadProtocol-              _puaasAccessToken-              _puaasUploadType-              _puaasCallback-              (Just AltJSON)-              _puaasPayload-              accessApprovalService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsUpdateAccessApprovalSettingsResource)-                      mempty
gogol-accessapproval.cabal view
@@ -1,63 +1,87 @@-name:                  gogol-accessapproval-version:               0.5.0-synopsis:              Google Access Approval 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-accessapproval+version:            1.0.0+synopsis:           Google Access Approval 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 controlling access to data by Google personnel.-    .-    /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 @v1beta1@-    of the API.+  An API for controlling access to data by Google personnel.+  .+  /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-accessapproval +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.AccessApproval-        , Network.Google.AccessApproval.Types-        , Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Approve-        , Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Dismiss-        , Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Get-        , Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.List-        , Network.Google.Resource.AccessApproval.Folders.GetAccessApprovalSettings-        , Network.Google.Resource.AccessApproval.Folders.UpdateAccessApprovalSettings-        , Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Approve-        , Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Dismiss-        , Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Get-        , Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.List-        , Network.Google.Resource.AccessApproval.Organizations.GetAccessApprovalSettings-        , Network.Google.Resource.AccessApproval.Organizations.UpdateAccessApprovalSettings-        , Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Approve-        , Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Dismiss-        , Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Get-        , Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.List-        , Network.Google.Resource.AccessApproval.Projects.GetAccessApprovalSettings-        , Network.Google.Resource.AccessApproval.Projects.UpdateAccessApprovalSettings+  exposed-modules:+    Gogol.AccessApproval+    Gogol.AccessApproval.Folders.ApprovalRequests.Approve+    Gogol.AccessApproval.Folders.ApprovalRequests.Dismiss+    Gogol.AccessApproval.Folders.ApprovalRequests.Get+    Gogol.AccessApproval.Folders.ApprovalRequests.Invalidate+    Gogol.AccessApproval.Folders.ApprovalRequests.List+    Gogol.AccessApproval.Folders.DeleteAccessApprovalSettings+    Gogol.AccessApproval.Folders.GetAccessApprovalSettings+    Gogol.AccessApproval.Folders.GetServiceAccount+    Gogol.AccessApproval.Folders.UpdateAccessApprovalSettings+    Gogol.AccessApproval.Organizations.ApprovalRequests.Approve+    Gogol.AccessApproval.Organizations.ApprovalRequests.Dismiss+    Gogol.AccessApproval.Organizations.ApprovalRequests.Get+    Gogol.AccessApproval.Organizations.ApprovalRequests.Invalidate+    Gogol.AccessApproval.Organizations.ApprovalRequests.List+    Gogol.AccessApproval.Organizations.DeleteAccessApprovalSettings+    Gogol.AccessApproval.Organizations.GetAccessApprovalSettings+    Gogol.AccessApproval.Organizations.GetServiceAccount+    Gogol.AccessApproval.Organizations.UpdateAccessApprovalSettings+    Gogol.AccessApproval.Projects.ApprovalRequests.Approve+    Gogol.AccessApproval.Projects.ApprovalRequests.Dismiss+    Gogol.AccessApproval.Projects.ApprovalRequests.Get+    Gogol.AccessApproval.Projects.ApprovalRequests.Invalidate+    Gogol.AccessApproval.Projects.ApprovalRequests.List+    Gogol.AccessApproval.Projects.DeleteAccessApprovalSettings+    Gogol.AccessApproval.Projects.GetAccessApprovalSettings+    Gogol.AccessApproval.Projects.GetServiceAccount+    Gogol.AccessApproval.Projects.UpdateAccessApprovalSettings+    Gogol.AccessApproval.Types -    other-modules:-          Network.Google.AccessApproval.Types.Product-        , Network.Google.AccessApproval.Types.Sum+  other-modules:+    Gogol.AccessApproval.Internal.Product+    Gogol.AccessApproval.Internal.Sum -    build-depends:-          gogol-core == 0.5.0.*-        , base       >= 4.7 && < 5+  build-depends:    gogol-core ^>=1.0.0