packages feed

gogol-datafusion 0.5.0 → 1.0.0

raw patch · 46 files changed

+5470/−6344 lines, 46 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/DataFusion.hs view
@@ -0,0 +1,355 @@+{-# 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.DataFusion+-- 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)+--+-- Cloud Data Fusion is a fully-managed, cloud native, enterprise data integration service for quickly building and managing data pipelines. It provides a graphical interface to increase time efficiency and reduce complexity, and allows business users, developers, and data scientists to easily and reliably build scalable data integration solutions to cleanse, prepare, blend, transfer and transform data without having to wrestle with infrastructure.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference>+module Gogol.DataFusion+  ( -- * Configuration+    dataFusionService,++    -- * OAuth Scopes+    CloudPlatform'FullControl,++    -- * Resources++    -- ** datafusion.projects.locations.get+    DataFusionProjectsLocationsGetResource,+    DataFusionProjectsLocationsGet (..),+    newDataFusionProjectsLocationsGet,++    -- ** datafusion.projects.locations.instances.create+    DataFusionProjectsLocationsInstancesCreateResource,+    DataFusionProjectsLocationsInstancesCreate (..),+    newDataFusionProjectsLocationsInstancesCreate,++    -- ** datafusion.projects.locations.instances.delete+    DataFusionProjectsLocationsInstancesDeleteResource,+    DataFusionProjectsLocationsInstancesDelete (..),+    newDataFusionProjectsLocationsInstancesDelete,++    -- ** datafusion.projects.locations.instances.dnsPeerings.create+    DataFusionProjectsLocationsInstancesDnsPeeringsCreateResource,+    DataFusionProjectsLocationsInstancesDnsPeeringsCreate (..),+    newDataFusionProjectsLocationsInstancesDnsPeeringsCreate,++    -- ** datafusion.projects.locations.instances.dnsPeerings.delete+    DataFusionProjectsLocationsInstancesDnsPeeringsDeleteResource,+    DataFusionProjectsLocationsInstancesDnsPeeringsDelete (..),+    newDataFusionProjectsLocationsInstancesDnsPeeringsDelete,++    -- ** datafusion.projects.locations.instances.dnsPeerings.list+    DataFusionProjectsLocationsInstancesDnsPeeringsListResource,+    DataFusionProjectsLocationsInstancesDnsPeeringsList (..),+    newDataFusionProjectsLocationsInstancesDnsPeeringsList,++    -- ** datafusion.projects.locations.instances.get+    DataFusionProjectsLocationsInstancesGetResource,+    DataFusionProjectsLocationsInstancesGet (..),+    newDataFusionProjectsLocationsInstancesGet,++    -- ** datafusion.projects.locations.instances.getIamPolicy+    DataFusionProjectsLocationsInstancesGetIamPolicyResource,+    DataFusionProjectsLocationsInstancesGetIamPolicy (..),+    newDataFusionProjectsLocationsInstancesGetIamPolicy,++    -- ** datafusion.projects.locations.instances.list+    DataFusionProjectsLocationsInstancesListResource,+    DataFusionProjectsLocationsInstancesList (..),+    newDataFusionProjectsLocationsInstancesList,++    -- ** datafusion.projects.locations.instances.patch+    DataFusionProjectsLocationsInstancesPatchResource,+    DataFusionProjectsLocationsInstancesPatch (..),+    newDataFusionProjectsLocationsInstancesPatch,++    -- ** datafusion.projects.locations.instances.restart+    DataFusionProjectsLocationsInstancesRestartResource,+    DataFusionProjectsLocationsInstancesRestart (..),+    newDataFusionProjectsLocationsInstancesRestart,++    -- ** datafusion.projects.locations.instances.setIamPolicy+    DataFusionProjectsLocationsInstancesSetIamPolicyResource,+    DataFusionProjectsLocationsInstancesSetIamPolicy (..),+    newDataFusionProjectsLocationsInstancesSetIamPolicy,++    -- ** datafusion.projects.locations.instances.testIamPermissions+    DataFusionProjectsLocationsInstancesTestIamPermissionsResource,+    DataFusionProjectsLocationsInstancesTestIamPermissions (..),+    newDataFusionProjectsLocationsInstancesTestIamPermissions,++    -- ** datafusion.projects.locations.list+    DataFusionProjectsLocationsListResource,+    DataFusionProjectsLocationsList (..),+    newDataFusionProjectsLocationsList,++    -- ** datafusion.projects.locations.operations.cancel+    DataFusionProjectsLocationsOperationsCancelResource,+    DataFusionProjectsLocationsOperationsCancel (..),+    newDataFusionProjectsLocationsOperationsCancel,++    -- ** datafusion.projects.locations.operations.delete+    DataFusionProjectsLocationsOperationsDeleteResource,+    DataFusionProjectsLocationsOperationsDelete (..),+    newDataFusionProjectsLocationsOperationsDelete,++    -- ** datafusion.projects.locations.operations.get+    DataFusionProjectsLocationsOperationsGetResource,+    DataFusionProjectsLocationsOperationsGet (..),+    newDataFusionProjectsLocationsOperationsGet,++    -- ** datafusion.projects.locations.operations.list+    DataFusionProjectsLocationsOperationsListResource,+    DataFusionProjectsLocationsOperationsList (..),+    newDataFusionProjectsLocationsOperationsList,++    -- ** datafusion.projects.locations.versions.list+    DataFusionProjectsLocationsVersionsListResource,+    DataFusionProjectsLocationsVersionsList (..),+    newDataFusionProjectsLocationsVersionsList,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** Accelerator+    Accelerator (..),+    newAccelerator,++    -- ** Accelerator_AcceleratorType+    Accelerator_AcceleratorType (..),++    -- ** Accelerator_State+    Accelerator_State (..),++    -- ** AuditConfig+    AuditConfig (..),+    newAuditConfig,++    -- ** AuditLogConfig+    AuditLogConfig (..),+    newAuditLogConfig,++    -- ** AuditLogConfig_LogType+    AuditLogConfig_LogType (..),++    -- ** Binding+    Binding (..),+    newBinding,++    -- ** CancelOperationRequest+    CancelOperationRequest (..),+    newCancelOperationRequest,++    -- ** CryptoKeyConfig+    CryptoKeyConfig (..),+    newCryptoKeyConfig,++    -- ** DnsPeering+    DnsPeering (..),+    newDnsPeering,++    -- ** Empty+    Empty (..),+    newEmpty,++    -- ** EventPublishConfig+    EventPublishConfig (..),+    newEventPublishConfig,++    -- ** Expr+    Expr (..),+    newExpr,++    -- ** Instance+    Instance (..),+    newInstance,++    -- ** Instance_DisabledReasonItem+    Instance_DisabledReasonItem (..),++    -- ** Instance_Labels+    Instance_Labels (..),+    newInstance_Labels,++    -- ** Instance_Options+    Instance_Options (..),+    newInstance_Options,++    -- ** Instance_State+    Instance_State (..),++    -- ** Instance_Type+    Instance_Type (..),++    -- ** ListAvailableVersionsResponse+    ListAvailableVersionsResponse (..),+    newListAvailableVersionsResponse,++    -- ** ListDnsPeeringsResponse+    ListDnsPeeringsResponse (..),+    newListDnsPeeringsResponse,++    -- ** ListInstancesResponse+    ListInstancesResponse (..),+    newListInstancesResponse,++    -- ** ListLocationsResponse+    ListLocationsResponse (..),+    newListLocationsResponse,++    -- ** ListOperationsResponse+    ListOperationsResponse (..),+    newListOperationsResponse,++    -- ** Location+    Location (..),+    newLocation,++    -- ** Location_Labels+    Location_Labels (..),+    newLocation_Labels,++    -- ** Location_Metadata+    Location_Metadata (..),+    newLocation_Metadata,++    -- ** LoggingConfig+    LoggingConfig (..),+    newLoggingConfig,++    -- ** MaintenanceEvent+    MaintenanceEvent (..),+    newMaintenanceEvent,++    -- ** MaintenanceEvent_State+    MaintenanceEvent_State (..),++    -- ** MaintenancePolicy+    MaintenancePolicy (..),+    newMaintenancePolicy,++    -- ** MaintenanceWindow+    MaintenanceWindow (..),+    newMaintenanceWindow,++    -- ** NetworkConfig+    NetworkConfig (..),+    newNetworkConfig,++    -- ** NetworkConfig_ConnectionType+    NetworkConfig_ConnectionType (..),++    -- ** Operation+    Operation (..),+    newOperation,++    -- ** Operation_Metadata+    Operation_Metadata (..),+    newOperation_Metadata,++    -- ** Operation_Response+    Operation_Response (..),+    newOperation_Response,++    -- ** OperationMetadata+    OperationMetadata (..),+    newOperationMetadata,++    -- ** OperationMetadata_AdditionalStatus+    OperationMetadata_AdditionalStatus (..),+    newOperationMetadata_AdditionalStatus,++    -- ** Policy+    Policy (..),+    newPolicy,++    -- ** PrivateServiceConnectConfig+    PrivateServiceConnectConfig (..),+    newPrivateServiceConnectConfig,++    -- ** RecurringTimeWindow+    RecurringTimeWindow (..),+    newRecurringTimeWindow,++    -- ** RestartInstanceRequest+    RestartInstanceRequest (..),+    newRestartInstanceRequest,++    -- ** SetIamPolicyRequest+    SetIamPolicyRequest (..),+    newSetIamPolicyRequest,++    -- ** Status+    Status (..),+    newStatus,++    -- ** Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- ** TestIamPermissionsRequest+    TestIamPermissionsRequest (..),+    newTestIamPermissionsRequest,++    -- ** TestIamPermissionsResponse+    TestIamPermissionsResponse (..),+    newTestIamPermissionsResponse,++    -- ** TimeWindow+    TimeWindow (..),+    newTimeWindow,++    -- ** Version+    Version (..),+    newVersion,++    -- ** Version_Type+    Version_Type (..),+  )+where++import Gogol.DataFusion.Projects.Locations.Get+import Gogol.DataFusion.Projects.Locations.Instances.Create+import Gogol.DataFusion.Projects.Locations.Instances.Delete+import Gogol.DataFusion.Projects.Locations.Instances.DnsPeerings.Create+import Gogol.DataFusion.Projects.Locations.Instances.DnsPeerings.Delete+import Gogol.DataFusion.Projects.Locations.Instances.DnsPeerings.List+import Gogol.DataFusion.Projects.Locations.Instances.Get+import Gogol.DataFusion.Projects.Locations.Instances.GetIamPolicy+import Gogol.DataFusion.Projects.Locations.Instances.List+import Gogol.DataFusion.Projects.Locations.Instances.Patch+import Gogol.DataFusion.Projects.Locations.Instances.Restart+import Gogol.DataFusion.Projects.Locations.Instances.SetIamPolicy+import Gogol.DataFusion.Projects.Locations.Instances.TestIamPermissions+import Gogol.DataFusion.Projects.Locations.List+import Gogol.DataFusion.Projects.Locations.Operations.Cancel+import Gogol.DataFusion.Projects.Locations.Operations.Delete+import Gogol.DataFusion.Projects.Locations.Operations.Get+import Gogol.DataFusion.Projects.Locations.Operations.List+import Gogol.DataFusion.Projects.Locations.Versions.List+import Gogol.DataFusion.Types
+ gen/Gogol/DataFusion/Internal/Product.hs view
@@ -0,0 +1,1952 @@+{-# 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.DataFusion.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.DataFusion.Internal.Product+  ( -- * Accelerator+    Accelerator (..),+    newAccelerator,++    -- * AuditConfig+    AuditConfig (..),+    newAuditConfig,++    -- * AuditLogConfig+    AuditLogConfig (..),+    newAuditLogConfig,++    -- * Binding+    Binding (..),+    newBinding,++    -- * CancelOperationRequest+    CancelOperationRequest (..),+    newCancelOperationRequest,++    -- * CryptoKeyConfig+    CryptoKeyConfig (..),+    newCryptoKeyConfig,++    -- * DnsPeering+    DnsPeering (..),+    newDnsPeering,++    -- * Empty+    Empty (..),+    newEmpty,++    -- * EventPublishConfig+    EventPublishConfig (..),+    newEventPublishConfig,++    -- * Expr+    Expr (..),+    newExpr,++    -- * Instance+    Instance (..),+    newInstance,++    -- * Instance_Labels+    Instance_Labels (..),+    newInstance_Labels,++    -- * Instance_Options+    Instance_Options (..),+    newInstance_Options,++    -- * ListAvailableVersionsResponse+    ListAvailableVersionsResponse (..),+    newListAvailableVersionsResponse,++    -- * ListDnsPeeringsResponse+    ListDnsPeeringsResponse (..),+    newListDnsPeeringsResponse,++    -- * ListInstancesResponse+    ListInstancesResponse (..),+    newListInstancesResponse,++    -- * ListLocationsResponse+    ListLocationsResponse (..),+    newListLocationsResponse,++    -- * ListOperationsResponse+    ListOperationsResponse (..),+    newListOperationsResponse,++    -- * Location+    Location (..),+    newLocation,++    -- * Location_Labels+    Location_Labels (..),+    newLocation_Labels,++    -- * Location_Metadata+    Location_Metadata (..),+    newLocation_Metadata,++    -- * LoggingConfig+    LoggingConfig (..),+    newLoggingConfig,++    -- * MaintenanceEvent+    MaintenanceEvent (..),+    newMaintenanceEvent,++    -- * MaintenancePolicy+    MaintenancePolicy (..),+    newMaintenancePolicy,++    -- * MaintenanceWindow+    MaintenanceWindow (..),+    newMaintenanceWindow,++    -- * NetworkConfig+    NetworkConfig (..),+    newNetworkConfig,++    -- * Operation+    Operation (..),+    newOperation,++    -- * Operation_Metadata+    Operation_Metadata (..),+    newOperation_Metadata,++    -- * Operation_Response+    Operation_Response (..),+    newOperation_Response,++    -- * OperationMetadata+    OperationMetadata (..),+    newOperationMetadata,++    -- * OperationMetadata_AdditionalStatus+    OperationMetadata_AdditionalStatus (..),+    newOperationMetadata_AdditionalStatus,++    -- * Policy+    Policy (..),+    newPolicy,++    -- * PrivateServiceConnectConfig+    PrivateServiceConnectConfig (..),+    newPrivateServiceConnectConfig,++    -- * RecurringTimeWindow+    RecurringTimeWindow (..),+    newRecurringTimeWindow,++    -- * RestartInstanceRequest+    RestartInstanceRequest (..),+    newRestartInstanceRequest,++    -- * SetIamPolicyRequest+    SetIamPolicyRequest (..),+    newSetIamPolicyRequest,++    -- * Status+    Status (..),+    newStatus,++    -- * Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- * TestIamPermissionsRequest+    TestIamPermissionsRequest (..),+    newTestIamPermissionsRequest,++    -- * TestIamPermissionsResponse+    TestIamPermissionsResponse (..),+    newTestIamPermissionsResponse,++    -- * TimeWindow+    TimeWindow (..),+    newTimeWindow,++    -- * Version+    Version (..),+    newVersion,+  )+where++import Gogol.DataFusion.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Identifies Data Fusion accelerators for an instance.+--+-- /See:/ 'newAccelerator' smart constructor.+data Accelerator = Accelerator+  { -- | Optional. The type of an accelator for a Cloud Data Fusion instance.+    acceleratorType :: (Core.Maybe Accelerator_AcceleratorType),+    -- | Output only. The state of the accelerator.+    state :: (Core.Maybe Accelerator_State)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Accelerator' with the minimum fields required to make a request.+newAccelerator ::+  Accelerator+newAccelerator =+  Accelerator {acceleratorType = Core.Nothing, state = Core.Nothing}++instance Core.FromJSON Accelerator where+  parseJSON =+    Core.withObject+      "Accelerator"+      ( \o ->+          Accelerator+            Core.<$> (o Core..:? "acceleratorType")+            Core.<*> (o Core..:? "state")+      )++instance Core.ToJSON Accelerator where+  toJSON Accelerator {..} =+    Core.object+      ( Core.catMaybes+          [ ("acceleratorType" Core..=) Core.<$> acceleratorType,+            ("state" Core..=) Core.<$> state+          ]+      )++-- | Specifies the audit configuration for a service. The configuration determines which permission types are logged, and what identities, if any, are exempted from logging. An AuditConfig must have one or more AuditLogConfigs. If there are AuditConfigs for both @allServices@ and a specific service, the union of the two AuditConfigs is used for that service: the log/types specified in each AuditConfig are enabled, and the exempted/members in each AuditLogConfig are exempted. Example Policy with multiple AuditConfigs: { \"audit/configs\": [ { \"service\": \"allServices\", \"audit/log/configs\": [ { \"log/type\": \"DATA/READ\", \"exempted/members\": [ \"user:jose\@example.com\" ] }, { \"log/type\": \"DATA/WRITE\" }, { \"log/type\": \"ADMIN/READ\" } ] }, { \"service\": \"sampleservice.googleapis.com\", \"audit/log/configs\": [ { \"log/type\": \"DATA/READ\" }, { \"log/type\": \"DATA/WRITE\", \"exempted/members\": [ \"user:aliya\@example.com\" ] } ] } ] } For sampleservice, this policy enables DATA/READ, DATA/WRITE and+-- ADMIN/READ logging. It also exempts @jose\@example.com@ from DATA/READ logging, and @aliya\@example.com@ from DATA/WRITE logging.+--+-- /See:/ 'newAuditConfig' smart constructor.+data AuditConfig = AuditConfig+  { -- | The configuration for logging of each type of permission.+    auditLogConfigs :: (Core.Maybe [AuditLogConfig]),+    -- | Specifies a service that will be enabled for audit logging. For example, @storage.googleapis.com@, @cloudsql.googleapis.com@. @allServices@ is a special value that covers all services.+    service :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AuditConfig' with the minimum fields required to make a request.+newAuditConfig ::+  AuditConfig+newAuditConfig =+  AuditConfig+    { auditLogConfigs = Core.Nothing,+      service = Core.Nothing+    }++instance Core.FromJSON AuditConfig where+  parseJSON =+    Core.withObject+      "AuditConfig"+      ( \o ->+          AuditConfig+            Core.<$> (o Core..:? "auditLogConfigs")+            Core.<*> (o Core..:? "service")+      )++instance Core.ToJSON AuditConfig where+  toJSON AuditConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("auditLogConfigs" Core..=) Core.<$> auditLogConfigs,+            ("service" Core..=) Core.<$> service+          ]+      )++-- | Provides the configuration for logging a type of permissions. Example: { \"audit/log/configs\": [ { \"log/type\": \"DATA/READ\", \"exempted/members\": [ \"user:jose\@example.com\" ] }, { \"log/type\": \"DATA/WRITE\" } ] } This enables \'DATA/READ\' and \'DATA/WRITE\' logging, while exempting jose\@example.com from DATA/READ logging.+--+-- /See:/ 'newAuditLogConfig' smart constructor.+data AuditLogConfig = AuditLogConfig+  { -- | Specifies the identities that do not cause logging for this type of permission. Follows the same format of Binding.members.+    exemptedMembers :: (Core.Maybe [Core.Text]),+    -- | The log type that this config enables.+    logType :: (Core.Maybe AuditLogConfig_LogType)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AuditLogConfig' with the minimum fields required to make a request.+newAuditLogConfig ::+  AuditLogConfig+newAuditLogConfig =+  AuditLogConfig+    { exemptedMembers = Core.Nothing,+      logType = Core.Nothing+    }++instance Core.FromJSON AuditLogConfig where+  parseJSON =+    Core.withObject+      "AuditLogConfig"+      ( \o ->+          AuditLogConfig+            Core.<$> (o Core..:? "exemptedMembers")+            Core.<*> (o Core..:? "logType")+      )++instance Core.ToJSON AuditLogConfig where+  toJSON AuditLogConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("exemptedMembers" Core..=) Core.<$> exemptedMembers,+            ("logType" Core..=) Core.<$> logType+          ]+      )++-- | Associates @members@, or principals, with a @role@.+--+-- /See:/ 'newBinding' smart constructor.+data Binding = Binding+  { -- | The condition that is associated with this binding. If the condition evaluates to @true@, then this binding applies to the current request. If the condition evaluates to @false@, then this binding does not apply to the current request. However, a different role binding might grant the same role to one or more of the principals in this binding. To learn which resources support conditions in their IAM policies, see the <https://cloud.google.com/iam/help/conditions/resource-policies IAM documentation>.+    condition :: (Core.Maybe Expr),+    -- | Specifies the principals requesting access for a Google Cloud resource. @members@ can have the following values: * @allUsers@: A special identifier that represents anyone who is on the internet; with or without a Google account. * @allAuthenticatedUsers@: A special identifier that represents anyone who is authenticated with a Google account or a service account. Does not include identities that come from external identity providers (IdPs) through identity federation. * @user:{emailid}@: An email address that represents a specific Google account. For example, @alice\@example.com@ . * @serviceAccount:{emailid}@: An email address that represents a Google service account. For example, @my-other-app\@appspot.gserviceaccount.com@. * @serviceAccount:{projectid}.svc.id.goog[{namespace}\/{kubernetes-sa}]@: An identifier for a <https://cloud.google.com/kubernetes-engine/docs/how-to/kubernetes-service-accounts Kubernetes service account>. For example, @my-project.svc.id.goog[my-namespace\/my-kubernetes-sa]@. *+    -- @group:{emailid}@: An email address that represents a Google group. For example, @admins\@example.com@. * @domain:{domain}@: The G Suite domain (primary) that represents all the users of that domain. For example, @google.com@ or @example.com@. * @principal:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/subject\/{subject_attribute_value}@: A single identity in a workforce identity pool. * @principalSet:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/group\/{group_id}@: All workforce identities in a group. * @principalSet:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/attribute.{attribute_name}\/{attribute_value}@: All workforce identities with a specific attribute value. * @principalSet:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/*@: All identities in a workforce identity pool. *+    -- @principal:\/\/iam.googleapis.com\/projects\/{project_number}\/locations\/global\/workloadIdentityPools\/{pool_id}\/subject\/{subject_attribute_value}@: A single identity in a workload identity pool. * @principalSet:\/\/iam.googleapis.com\/projects\/{project_number}\/locations\/global\/workloadIdentityPools\/{pool_id}\/group\/{group_id}@: A workload identity pool group. * @principalSet:\/\/iam.googleapis.com\/projects\/{project_number}\/locations\/global\/workloadIdentityPools\/{pool_id}\/attribute.{attribute_name}\/{attribute_value}@: All identities in a workload identity pool with a certain attribute. * @principalSet:\/\/iam.googleapis.com\/projects\/{project_number}\/locations\/global\/workloadIdentityPools\/{pool_id}\/*@: All identities in a workload identity pool. * @deleted:user:{emailid}?uid={uniqueid}@: An email address (plus unique identifier) representing a user that has been recently deleted. For example, @alice\@example.com?uid=123456789012345678901@. If the user is recovered, this value reverts+    -- to @user:{emailid}@ and the recovered user retains the role in the binding. * @deleted:serviceAccount:{emailid}?uid={uniqueid}@: An email address (plus unique identifier) representing a service account that has been recently deleted. For example, @my-other-app\@appspot.gserviceaccount.com?uid=123456789012345678901@. If the service account is undeleted, this value reverts to @serviceAccount:{emailid}@ and the undeleted service account retains the role in the binding. * @deleted:group:{emailid}?uid={uniqueid}@: An email address (plus unique identifier) representing a Google group that has been recently deleted. For example, @admins\@example.com?uid=123456789012345678901@. If the group is recovered, this value reverts to @group:{emailid}@ and the recovered group retains the role in the binding. * @deleted:principal:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/subject\/{subject_attribute_value}@: Deleted single identity in a workforce identity pool. For example,+    -- @deleted:principal:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/my-pool-id\/subject\/my-subject-attribute-value@.+    members :: (Core.Maybe [Core.Text]),+    -- | Role that is assigned to the list of @members@, or principals. For example, @roles\/viewer@, @roles\/editor@, or @roles\/owner@. For an overview of the IAM roles and permissions, see the <https://cloud.google.com/iam/docs/roles-overview IAM documentation>. For a list of the available pre-defined roles, see <https://cloud.google.com/iam/docs/understanding-roles here>.+    role' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Binding' with the minimum fields required to make a request.+newBinding ::+  Binding+newBinding =+  Binding+    { condition = Core.Nothing,+      members = Core.Nothing,+      role' = Core.Nothing+    }++instance Core.FromJSON Binding where+  parseJSON =+    Core.withObject+      "Binding"+      ( \o ->+          Binding+            Core.<$> (o Core..:? "condition")+            Core.<*> (o Core..:? "members")+            Core.<*> (o Core..:? "role")+      )++instance Core.ToJSON Binding where+  toJSON Binding {..} =+    Core.object+      ( Core.catMaybes+          [ ("condition" Core..=) Core.<$> condition,+            ("members" Core..=) Core.<$> members,+            ("role" Core..=) Core.<$> role'+          ]+      )++-- | The request message for Operations.CancelOperation.+--+-- /See:/ 'newCancelOperationRequest' smart constructor.+data CancelOperationRequest = CancelOperationRequest+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CancelOperationRequest' with the minimum fields required to make a request.+newCancelOperationRequest ::+  CancelOperationRequest+newCancelOperationRequest = CancelOperationRequest++instance Core.FromJSON CancelOperationRequest where+  parseJSON =+    Core.withObject+      "CancelOperationRequest"+      (\o -> Core.pure CancelOperationRequest)++instance Core.ToJSON CancelOperationRequest where+  toJSON = Core.const Core.emptyObject++-- | The crypto key configuration. This field is used by the Customer-managed encryption keys (CMEK) feature.+--+-- /See:/ 'newCryptoKeyConfig' smart constructor.+newtype CryptoKeyConfig = CryptoKeyConfig+  { -- | Optional. The name of the key which is used to encrypt\/decrypt customer data. For key in Cloud KMS, the key should be in the format of @projects\/*\/locations\/*\/keyRings\/*\/cryptoKeys\/*@.+    keyReference :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CryptoKeyConfig' with the minimum fields required to make a request.+newCryptoKeyConfig ::+  CryptoKeyConfig+newCryptoKeyConfig = CryptoKeyConfig {keyReference = Core.Nothing}++instance Core.FromJSON CryptoKeyConfig where+  parseJSON =+    Core.withObject+      "CryptoKeyConfig"+      (\o -> CryptoKeyConfig Core.<$> (o Core..:? "keyReference"))++instance Core.ToJSON CryptoKeyConfig where+  toJSON CryptoKeyConfig {..} =+    Core.object+      (Core.catMaybes [("keyReference" Core..=) Core.<$> keyReference])++-- | DNS peering configuration. These configurations are used to create DNS peering with the customer Cloud DNS.+--+-- /See:/ 'newDnsPeering' smart constructor.+data DnsPeering = DnsPeering+  { -- | Optional. Optional description of the dns zone.+    description :: (Core.Maybe Core.Text),+    -- | Required. The dns name suffix of the zone.+    domain :: (Core.Maybe Core.Text),+    -- | Identifier. The resource name of the dns peering zone. Format: projects\/{project}\/locations\/{location}\/instances\/{instance}\/dnsPeerings\/{dns_peering}+    name :: (Core.Maybe Core.Text),+    -- | Optional. Optional target network to which dns peering should happen.+    targetNetwork :: (Core.Maybe Core.Text),+    -- | Optional. Optional target project to which dns peering should happen.+    targetProject :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DnsPeering' with the minimum fields required to make a request.+newDnsPeering ::+  DnsPeering+newDnsPeering =+  DnsPeering+    { description = Core.Nothing,+      domain = Core.Nothing,+      name = Core.Nothing,+      targetNetwork = Core.Nothing,+      targetProject = Core.Nothing+    }++instance Core.FromJSON DnsPeering where+  parseJSON =+    Core.withObject+      "DnsPeering"+      ( \o ->+          DnsPeering+            Core.<$> (o Core..:? "description")+            Core.<*> (o Core..:? "domain")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "targetNetwork")+            Core.<*> (o Core..:? "targetProject")+      )++instance Core.ToJSON DnsPeering where+  toJSON DnsPeering {..} =+    Core.object+      ( Core.catMaybes+          [ ("description" Core..=) Core.<$> description,+            ("domain" Core..=) Core.<$> domain,+            ("name" Core..=) Core.<$> name,+            ("targetNetwork" Core..=) Core.<$> targetNetwork,+            ("targetProject" Core..=) Core.<$> targetProject+          ]+      )++-- | 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++-- | Confirguration of PubSubEventWriter.+--+-- /See:/ 'newEventPublishConfig' smart constructor.+data EventPublishConfig = EventPublishConfig+  { -- | Required. Option to enable Event Publishing.+    enabled :: (Core.Maybe Core.Bool),+    -- | Required. The resource name of the Pub\/Sub topic. Format: projects\/{project/id}\/topics\/{topic/id}+    topic :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'EventPublishConfig' with the minimum fields required to make a request.+newEventPublishConfig ::+  EventPublishConfig+newEventPublishConfig =+  EventPublishConfig {enabled = Core.Nothing, topic = Core.Nothing}++instance Core.FromJSON EventPublishConfig where+  parseJSON =+    Core.withObject+      "EventPublishConfig"+      ( \o ->+          EventPublishConfig+            Core.<$> (o Core..:? "enabled")+            Core.<*> (o Core..:? "topic")+      )++instance Core.ToJSON EventPublishConfig where+  toJSON EventPublishConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("enabled" Core..=) Core.<$> enabled,+            ("topic" Core..=) Core.<$> topic+          ]+      )++-- | Represents a textual expression in the Common Expression Language (CEL) syntax. CEL is a C-like expression language. The syntax and semantics of CEL are documented at https:\/\/github.com\/google\/cel-spec. Example (Comparison): title: \"Summary size limit\" description: \"Determines if a summary is less than 100 chars\" expression: \"document.summary.size() \< 100\" Example (Equality): title: \"Requestor is owner\" description: \"Determines if requestor is the document owner\" expression: \"document.owner == request.auth.claims.email\" Example (Logic): title: \"Public documents\" description: \"Determine whether the document should be publicly visible\" expression: \"document.type != \'private\' && document.type != \'internal\'\" Example (Data Manipulation): title: \"Notification string\" description: \"Create a notification string with a timestamp.\" expression: \"\'New message received at \' + string(document.create_time)\" The exact variables and functions that may be referenced within an expression are+-- determined by the service that evaluates it. See the service documentation for additional information.+--+-- /See:/ 'newExpr' smart constructor.+data Expr = Expr+  { -- | Optional. Description of the expression. This is a longer text which describes the expression, e.g. when hovered over it in a UI.+    description :: (Core.Maybe Core.Text),+    -- | Textual representation of an expression in Common Expression Language syntax.+    expression :: (Core.Maybe Core.Text),+    -- | Optional. String indicating the location of the expression for error reporting, e.g. a file name and a position in the file.+    location :: (Core.Maybe Core.Text),+    -- | Optional. Title for the expression, i.e. a short string describing its purpose. This can be used e.g. in UIs which allow to enter the expression.+    title :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Expr' with the minimum fields required to make a request.+newExpr ::+  Expr+newExpr =+  Expr+    { description = Core.Nothing,+      expression = Core.Nothing,+      location = Core.Nothing,+      title = Core.Nothing+    }++instance Core.FromJSON Expr where+  parseJSON =+    Core.withObject+      "Expr"+      ( \o ->+          Expr+            Core.<$> (o Core..:? "description")+            Core.<*> (o Core..:? "expression")+            Core.<*> (o Core..:? "location")+            Core.<*> (o Core..:? "title")+      )++instance Core.ToJSON Expr where+  toJSON Expr {..} =+    Core.object+      ( Core.catMaybes+          [ ("description" Core..=) Core.<$> description,+            ("expression" Core..=) Core.<$> expression,+            ("location" Core..=) Core.<$> location,+            ("title" Core..=) Core.<$> title+          ]+      )++-- | Represents a Data Fusion instance.+--+-- /See:/ 'newInstance' smart constructor.+data Instance = Instance+  { -- | Output only. List of accelerators enabled for this CDF instance.+    accelerators :: (Core.Maybe [Accelerator]),+    -- | Output only. Endpoint on which the REST APIs is accessible.+    apiEndpoint :: (Core.Maybe Core.Text),+    -- | Output only. Available versions that the instance can be upgraded to using UpdateInstanceRequest.+    availableVersion :: (Core.Maybe [Version]),+    -- | Output only. The time the instance was created.+    createTime :: (Core.Maybe Core.DateTime),+    -- | Optional. The crypto key configuration. This field is used by the Customer-Managed Encryption Keys (CMEK) feature.+    cryptoKeyConfig :: (Core.Maybe CryptoKeyConfig),+    -- | Optional. Option to enable the Dataplex Lineage Integration feature.+    dataplexDataLineageIntegrationEnabled :: (Core.Maybe Core.Bool),+    -- | Optional. User-managed service account to set on Dataproc when Cloud Data Fusion creates Dataproc to run data processing pipelines. This allows users to have fine-grained access control on Dataproc\'s accesses to cloud resources.+    dataprocServiceAccount :: (Core.Maybe Core.Text),+    -- | Optional. A description of this instance.+    description :: (Core.Maybe Core.Text),+    -- | Output only. If the instance state is DISABLED, the reason for disabling the instance.+    disabledReason :: (Core.Maybe [Instance_DisabledReasonItem]),+    -- | Optional. Display name for an instance.+    displayName :: (Core.Maybe Core.Text),+    -- | Optional. Option to enable granular role-based access control.+    enableRbac :: (Core.Maybe Core.Bool),+    -- | Optional. Option to enable Dataproc Stackdriver Logging.+    enableStackdriverLogging :: (Core.Maybe Core.Bool),+    -- | Optional. Option to enable Stackdriver Monitoring.+    enableStackdriverMonitoring :: (Core.Maybe Core.Bool),+    -- | Output only. Option to enable granular zone separation.+    enableZoneSeparation :: (Core.Maybe Core.Bool),+    -- | Optional. Option to enable and pass metadata for event publishing.+    eventPublishConfig :: (Core.Maybe EventPublishConfig),+    -- | Output only. Cloud Storage bucket generated by Data Fusion in the customer project.+    gcsBucket :: (Core.Maybe Core.Text),+    -- | The resource labels for instance to use to annotate any related underlying resources such as Compute Engine VMs. The character \'=\' is not allowed to be used within the labels.+    labels :: (Core.Maybe Instance_Labels),+    -- | Optional. The logging configuration for this instance. This field is supported only in CDF versions 6.11.0 and above.+    loggingConfig :: (Core.Maybe LoggingConfig),+    -- | Output only. The maintenance events for this instance.+    maintenanceEvents :: (Core.Maybe [MaintenanceEvent]),+    -- | Optional. Configure the maintenance policy for this instance.+    maintenancePolicy :: (Core.Maybe MaintenancePolicy),+    -- | Output only. The name of this instance is in the form of projects\/{project}\/locations\/{location}\/instances\/{instance}.+    name :: (Core.Maybe Core.Text),+    -- | Optional. Network configuration options. These are required when a private Data Fusion instance is to be created.+    networkConfig :: (Core.Maybe NetworkConfig),+    -- | Optional. Map of additional options used to configure the behavior of Data Fusion instance.+    options :: (Core.Maybe Instance_Options),+    -- | Output only. Service agent for the customer project.+    p4ServiceAccount :: (Core.Maybe Core.Text),+    -- | Optional. Current patch revision of the Data Fusion.+    patchRevision :: (Core.Maybe Core.Text),+    -- | Optional. Specifies whether the Data Fusion instance should be private. If set to true, all Data Fusion nodes will have private IP addresses and will not be able to access the public internet.+    privateInstance :: (Core.Maybe Core.Bool),+    -- | Output only. Reserved for future use.+    satisfiesPzi :: (Core.Maybe Core.Bool),+    -- | Output only. Reserved for future use.+    satisfiesPzs :: (Core.Maybe Core.Bool),+    -- | Output only. Deprecated. Use tenant/project/id instead to extract the tenant project ID.+    serviceAccount :: (Core.Maybe Core.Text),+    -- | Output only. Endpoint on which the Data Fusion UI is accessible.+    serviceEndpoint :: (Core.Maybe Core.Text),+    -- | Output only. The current state of this Data Fusion instance.+    state :: (Core.Maybe Instance_State),+    -- | Output only. Additional information about the current state of this Data Fusion instance if available.+    stateMessage :: (Core.Maybe Core.Text),+    -- | Output only. The name of the tenant project.+    tenantProjectId :: (Core.Maybe Core.Text),+    -- | Required. Instance type.+    type' :: (Core.Maybe Instance_Type),+    -- | Output only. The time the instance was last updated.+    updateTime :: (Core.Maybe Core.DateTime),+    -- | Optional. Current version of the Data Fusion. Only specifiable in Update.+    version :: (Core.Maybe Core.Text),+    -- | Output only. Endpoint on which the Data Fusion UI is accessible to third-party users+    workforceIdentityServiceEndpoint :: (Core.Maybe Core.Text),+    -- | Optional. Name of the zone in which the Data Fusion instance will be created. Only DEVELOPER instances use this field.+    zone :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Instance' with the minimum fields required to make a request.+newInstance ::+  Instance+newInstance =+  Instance+    { accelerators = Core.Nothing,+      apiEndpoint = Core.Nothing,+      availableVersion = Core.Nothing,+      createTime = Core.Nothing,+      cryptoKeyConfig = Core.Nothing,+      dataplexDataLineageIntegrationEnabled = Core.Nothing,+      dataprocServiceAccount = Core.Nothing,+      description = Core.Nothing,+      disabledReason = Core.Nothing,+      displayName = Core.Nothing,+      enableRbac = Core.Nothing,+      enableStackdriverLogging = Core.Nothing,+      enableStackdriverMonitoring = Core.Nothing,+      enableZoneSeparation = Core.Nothing,+      eventPublishConfig = Core.Nothing,+      gcsBucket = Core.Nothing,+      labels = Core.Nothing,+      loggingConfig = Core.Nothing,+      maintenanceEvents = Core.Nothing,+      maintenancePolicy = Core.Nothing,+      name = Core.Nothing,+      networkConfig = Core.Nothing,+      options = Core.Nothing,+      p4ServiceAccount = Core.Nothing,+      patchRevision = Core.Nothing,+      privateInstance = Core.Nothing,+      satisfiesPzi = Core.Nothing,+      satisfiesPzs = Core.Nothing,+      serviceAccount = Core.Nothing,+      serviceEndpoint = Core.Nothing,+      state = Core.Nothing,+      stateMessage = Core.Nothing,+      tenantProjectId = Core.Nothing,+      type' = Core.Nothing,+      updateTime = Core.Nothing,+      version = Core.Nothing,+      workforceIdentityServiceEndpoint = Core.Nothing,+      zone = Core.Nothing+    }++instance Core.FromJSON Instance where+  parseJSON =+    Core.withObject+      "Instance"+      ( \o ->+          Instance+            Core.<$> (o Core..:? "accelerators")+            Core.<*> (o Core..:? "apiEndpoint")+            Core.<*> (o Core..:? "availableVersion")+            Core.<*> (o Core..:? "createTime")+            Core.<*> (o Core..:? "cryptoKeyConfig")+            Core.<*> (o Core..:? "dataplexDataLineageIntegrationEnabled")+            Core.<*> (o Core..:? "dataprocServiceAccount")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "disabledReason")+            Core.<*> (o Core..:? "displayName")+            Core.<*> (o Core..:? "enableRbac")+            Core.<*> (o Core..:? "enableStackdriverLogging")+            Core.<*> (o Core..:? "enableStackdriverMonitoring")+            Core.<*> (o Core..:? "enableZoneSeparation")+            Core.<*> (o Core..:? "eventPublishConfig")+            Core.<*> (o Core..:? "gcsBucket")+            Core.<*> (o Core..:? "labels")+            Core.<*> (o Core..:? "loggingConfig")+            Core.<*> (o Core..:? "maintenanceEvents")+            Core.<*> (o Core..:? "maintenancePolicy")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "networkConfig")+            Core.<*> (o Core..:? "options")+            Core.<*> (o Core..:? "p4ServiceAccount")+            Core.<*> (o Core..:? "patchRevision")+            Core.<*> (o Core..:? "privateInstance")+            Core.<*> (o Core..:? "satisfiesPzi")+            Core.<*> (o Core..:? "satisfiesPzs")+            Core.<*> (o Core..:? "serviceAccount")+            Core.<*> (o Core..:? "serviceEndpoint")+            Core.<*> (o Core..:? "state")+            Core.<*> (o Core..:? "stateMessage")+            Core.<*> (o Core..:? "tenantProjectId")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "updateTime")+            Core.<*> (o Core..:? "version")+            Core.<*> (o Core..:? "workforceIdentityServiceEndpoint")+            Core.<*> (o Core..:? "zone")+      )++instance Core.ToJSON Instance where+  toJSON Instance {..} =+    Core.object+      ( Core.catMaybes+          [ ("accelerators" Core..=) Core.<$> accelerators,+            ("apiEndpoint" Core..=) Core.<$> apiEndpoint,+            ("availableVersion" Core..=) Core.<$> availableVersion,+            ("createTime" Core..=) Core.<$> createTime,+            ("cryptoKeyConfig" Core..=) Core.<$> cryptoKeyConfig,+            ("dataplexDataLineageIntegrationEnabled" Core..=)+              Core.<$> dataplexDataLineageIntegrationEnabled,+            ("dataprocServiceAccount" Core..=) Core.<$> dataprocServiceAccount,+            ("description" Core..=) Core.<$> description,+            ("disabledReason" Core..=) Core.<$> disabledReason,+            ("displayName" Core..=) Core.<$> displayName,+            ("enableRbac" Core..=) Core.<$> enableRbac,+            ("enableStackdriverLogging" Core..=)+              Core.<$> enableStackdriverLogging,+            ("enableStackdriverMonitoring" Core..=)+              Core.<$> enableStackdriverMonitoring,+            ("enableZoneSeparation" Core..=) Core.<$> enableZoneSeparation,+            ("eventPublishConfig" Core..=) Core.<$> eventPublishConfig,+            ("gcsBucket" Core..=) Core.<$> gcsBucket,+            ("labels" Core..=) Core.<$> labels,+            ("loggingConfig" Core..=) Core.<$> loggingConfig,+            ("maintenanceEvents" Core..=) Core.<$> maintenanceEvents,+            ("maintenancePolicy" Core..=) Core.<$> maintenancePolicy,+            ("name" Core..=) Core.<$> name,+            ("networkConfig" Core..=) Core.<$> networkConfig,+            ("options" Core..=) Core.<$> options,+            ("p4ServiceAccount" Core..=) Core.<$> p4ServiceAccount,+            ("patchRevision" Core..=) Core.<$> patchRevision,+            ("privateInstance" Core..=) Core.<$> privateInstance,+            ("satisfiesPzi" Core..=) Core.<$> satisfiesPzi,+            ("satisfiesPzs" Core..=) Core.<$> satisfiesPzs,+            ("serviceAccount" Core..=) Core.<$> serviceAccount,+            ("serviceEndpoint" Core..=) Core.<$> serviceEndpoint,+            ("state" Core..=) Core.<$> state,+            ("stateMessage" Core..=) Core.<$> stateMessage,+            ("tenantProjectId" Core..=) Core.<$> tenantProjectId,+            ("type" Core..=) Core.<$> type',+            ("updateTime" Core..=) Core.<$> updateTime,+            ("version" Core..=) Core.<$> version,+            ("workforceIdentityServiceEndpoint" Core..=)+              Core.<$> workforceIdentityServiceEndpoint,+            ("zone" Core..=) Core.<$> zone+          ]+      )++-- | The resource labels for instance to use to annotate any related underlying resources such as Compute Engine VMs. The character \'=\' is not allowed to be used within the labels.+--+-- /See:/ 'newInstance_Labels' smart constructor.+newtype Instance_Labels = Instance_Labels+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Instance_Labels' with the minimum fields required to make a request.+newInstance_Labels ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  Instance_Labels+newInstance_Labels additional =+  Instance_Labels {additional = additional}++instance Core.FromJSON Instance_Labels where+  parseJSON =+    Core.withObject+      "Instance_Labels"+      (\o -> Instance_Labels Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Instance_Labels where+  toJSON Instance_Labels {..} = Core.toJSON additional++-- | Optional. Map of additional options used to configure the behavior of Data Fusion instance.+--+-- /See:/ 'newInstance_Options' smart constructor.+newtype Instance_Options = Instance_Options+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Instance_Options' with the minimum fields required to make a request.+newInstance_Options ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  Instance_Options+newInstance_Options additional =+  Instance_Options {additional = additional}++instance Core.FromJSON Instance_Options where+  parseJSON =+    Core.withObject+      "Instance_Options"+      (\o -> Instance_Options Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Instance_Options where+  toJSON Instance_Options {..} = Core.toJSON additional++-- | Response message for the list available versions request.+--+-- /See:/ 'newListAvailableVersionsResponse' smart constructor.+data ListAvailableVersionsResponse = ListAvailableVersionsResponse+  { -- | Represents a list of versions that are supported. Deprecated: Use versions field instead.+    availableVersions :: (Core.Maybe [Version]),+    -- | Token to retrieve the next page of results or empty if there are no more results in the list.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | Represents a list of all versions.+    versions :: (Core.Maybe [Version])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListAvailableVersionsResponse' with the minimum fields required to make a request.+newListAvailableVersionsResponse ::+  ListAvailableVersionsResponse+newListAvailableVersionsResponse =+  ListAvailableVersionsResponse+    { availableVersions = Core.Nothing,+      nextPageToken = Core.Nothing,+      versions = Core.Nothing+    }++instance Core.FromJSON ListAvailableVersionsResponse where+  parseJSON =+    Core.withObject+      "ListAvailableVersionsResponse"+      ( \o ->+          ListAvailableVersionsResponse+            Core.<$> (o Core..:? "availableVersions")+            Core.<*> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "versions")+      )++instance Core.ToJSON ListAvailableVersionsResponse where+  toJSON ListAvailableVersionsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("availableVersions" Core..=) Core.<$> availableVersions,+            ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("versions" Core..=) Core.<$> versions+          ]+      )++-- | Response message for list DNS peerings.+--+-- /See:/ 'newListDnsPeeringsResponse' smart constructor.+data ListDnsPeeringsResponse = ListDnsPeeringsResponse+  { -- | List of dns peering.+    dnsPeerings :: (Core.Maybe [DnsPeering]),+    -- | A token, which can be sent as @page_token@ to retrieve the next page. If this field is omitted, there are no subsequent pages.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListDnsPeeringsResponse' with the minimum fields required to make a request.+newListDnsPeeringsResponse ::+  ListDnsPeeringsResponse+newListDnsPeeringsResponse =+  ListDnsPeeringsResponse+    { dnsPeerings = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ListDnsPeeringsResponse where+  parseJSON =+    Core.withObject+      "ListDnsPeeringsResponse"+      ( \o ->+          ListDnsPeeringsResponse+            Core.<$> (o Core..:? "dnsPeerings")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ListDnsPeeringsResponse where+  toJSON ListDnsPeeringsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("dnsPeerings" Core..=) Core.<$> dnsPeerings,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | Response message for the list instance request.+--+-- /See:/ 'newListInstancesResponse' smart constructor.+data ListInstancesResponse = ListInstancesResponse+  { -- | Represents a list of Data Fusion instances.+    instances :: (Core.Maybe [Instance]),+    -- | Token to retrieve the next page of results or empty if there are no more results in the list.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | Locations that could not be reached.+    unreachable :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListInstancesResponse' with the minimum fields required to make a request.+newListInstancesResponse ::+  ListInstancesResponse+newListInstancesResponse =+  ListInstancesResponse+    { instances = Core.Nothing,+      nextPageToken = Core.Nothing,+      unreachable = Core.Nothing+    }++instance Core.FromJSON ListInstancesResponse where+  parseJSON =+    Core.withObject+      "ListInstancesResponse"+      ( \o ->+          ListInstancesResponse+            Core.<$> (o Core..:? "instances")+            Core.<*> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "unreachable")+      )++instance Core.ToJSON ListInstancesResponse where+  toJSON ListInstancesResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("instances" Core..=) Core.<$> instances,+            ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("unreachable" Core..=) Core.<$> unreachable+          ]+      )++-- | The response message for Locations.ListLocations.+--+-- /See:/ 'newListLocationsResponse' smart constructor.+data ListLocationsResponse = ListLocationsResponse+  { -- | A list of locations that matches the specified filter in the request.+    locations :: (Core.Maybe [Location]),+    -- | The standard List next-page token.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListLocationsResponse' with the minimum fields required to make a request.+newListLocationsResponse ::+  ListLocationsResponse+newListLocationsResponse =+  ListLocationsResponse+    { locations = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ListLocationsResponse where+  parseJSON =+    Core.withObject+      "ListLocationsResponse"+      ( \o ->+          ListLocationsResponse+            Core.<$> (o Core..:? "locations")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ListLocationsResponse where+  toJSON ListLocationsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("locations" Core..=) Core.<$> locations,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | The response message for Operations.ListOperations.+--+-- /See:/ 'newListOperationsResponse' smart constructor.+data ListOperationsResponse = ListOperationsResponse+  { -- | The standard List next-page token.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | A list of operations that matches the specified filter in the request.+    operations :: (Core.Maybe [Operation])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListOperationsResponse' with the minimum fields required to make a request.+newListOperationsResponse ::+  ListOperationsResponse+newListOperationsResponse =+  ListOperationsResponse+    { nextPageToken = Core.Nothing,+      operations = Core.Nothing+    }++instance Core.FromJSON ListOperationsResponse where+  parseJSON =+    Core.withObject+      "ListOperationsResponse"+      ( \o ->+          ListOperationsResponse+            Core.<$> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "operations")+      )++instance Core.ToJSON ListOperationsResponse where+  toJSON ListOperationsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("operations" Core..=) Core.<$> operations+          ]+      )++-- | A resource that represents a Google Cloud location.+--+-- /See:/ 'newLocation' smart constructor.+data Location = Location+  { -- | The friendly name for this location, typically a nearby city name. For example, \"Tokyo\".+    displayName :: (Core.Maybe Core.Text),+    -- | Cross-service attributes for the location. For example {\"cloud.googleapis.com\/region\": \"us-east1\"}+    labels :: (Core.Maybe Location_Labels),+    -- | The canonical id for this location. For example: @\"us-east1\"@.+    locationId :: (Core.Maybe Core.Text),+    -- | Service-specific metadata. For example the available capacity at the given location.+    metadata :: (Core.Maybe Location_Metadata),+    -- | Resource name for the location, which may vary between implementations. For example: @\"projects\/example-project\/locations\/us-east1\"@+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Location' with the minimum fields required to make a request.+newLocation ::+  Location+newLocation =+  Location+    { displayName = Core.Nothing,+      labels = Core.Nothing,+      locationId = Core.Nothing,+      metadata = Core.Nothing,+      name = Core.Nothing+    }++instance Core.FromJSON Location where+  parseJSON =+    Core.withObject+      "Location"+      ( \o ->+          Location+            Core.<$> (o Core..:? "displayName")+            Core.<*> (o Core..:? "labels")+            Core.<*> (o Core..:? "locationId")+            Core.<*> (o Core..:? "metadata")+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON Location where+  toJSON Location {..} =+    Core.object+      ( Core.catMaybes+          [ ("displayName" Core..=) Core.<$> displayName,+            ("labels" Core..=) Core.<$> labels,+            ("locationId" Core..=) Core.<$> locationId,+            ("metadata" Core..=) Core.<$> metadata,+            ("name" Core..=) Core.<$> name+          ]+      )++-- | Cross-service attributes for the location. For example {\"cloud.googleapis.com\/region\": \"us-east1\"}+--+-- /See:/ 'newLocation_Labels' smart constructor.+newtype Location_Labels = Location_Labels+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Location_Labels' with the minimum fields required to make a request.+newLocation_Labels ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  Location_Labels+newLocation_Labels additional =+  Location_Labels {additional = additional}++instance Core.FromJSON Location_Labels where+  parseJSON =+    Core.withObject+      "Location_Labels"+      (\o -> Location_Labels Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Location_Labels where+  toJSON Location_Labels {..} = Core.toJSON additional++-- | Service-specific metadata. For example the available capacity at the given location.+--+-- /See:/ 'newLocation_Metadata' smart constructor.+newtype Location_Metadata = Location_Metadata+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Location_Metadata' with the minimum fields required to make a request.+newLocation_Metadata ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Location_Metadata+newLocation_Metadata additional =+  Location_Metadata {additional = additional}++instance Core.FromJSON Location_Metadata where+  parseJSON =+    Core.withObject+      "Location_Metadata"+      (\o -> Location_Metadata Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Location_Metadata where+  toJSON Location_Metadata {..} = Core.toJSON additional++-- | Logging configuration for a Data Fusion instance.+--+-- /See:/ 'newLoggingConfig' smart constructor.+newtype LoggingConfig = LoggingConfig+  { -- | Optional. Option to determine whether instance logs should be written to Cloud Logging. By default, instance logs are written to Cloud Logging.+    instanceCloudLoggingDisabled :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LoggingConfig' with the minimum fields required to make a request.+newLoggingConfig ::+  LoggingConfig+newLoggingConfig =+  LoggingConfig {instanceCloudLoggingDisabled = Core.Nothing}++instance Core.FromJSON LoggingConfig where+  parseJSON =+    Core.withObject+      "LoggingConfig"+      ( \o ->+          LoggingConfig Core.<$> (o Core..:? "instanceCloudLoggingDisabled")+      )++instance Core.ToJSON LoggingConfig where+  toJSON LoggingConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("instanceCloudLoggingDisabled" Core..=)+              Core.<$> instanceCloudLoggingDisabled+          ]+      )++-- | Represents a maintenance event.+--+-- /See:/ 'newMaintenanceEvent' smart constructor.+data MaintenanceEvent = MaintenanceEvent+  { -- | Output only. The end time of the maintenance event provided in <https://www.ietf.org/rfc/rfc3339.txt RFC 3339> format. Example: \"2024-01-02T12:04:06-06:00\" This field will be empty if the maintenance event is not yet complete.+    endTime :: (Core.Maybe Core.DateTime),+    -- | Output only. The start time of the maintenance event provided in <https://www.ietf.org/rfc/rfc3339.txt RFC 3339> format. Example: \"2024-01-01T12:04:06-04:00\"+    startTime :: (Core.Maybe Core.DateTime),+    -- | Output only. The state of the maintenance event.+    state :: (Core.Maybe MaintenanceEvent_State)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MaintenanceEvent' with the minimum fields required to make a request.+newMaintenanceEvent ::+  MaintenanceEvent+newMaintenanceEvent =+  MaintenanceEvent+    { endTime = Core.Nothing,+      startTime = Core.Nothing,+      state = Core.Nothing+    }++instance Core.FromJSON MaintenanceEvent where+  parseJSON =+    Core.withObject+      "MaintenanceEvent"+      ( \o ->+          MaintenanceEvent+            Core.<$> (o Core..:? "endTime")+            Core.<*> (o Core..:? "startTime")+            Core.<*> (o Core..:? "state")+      )++instance Core.ToJSON MaintenanceEvent where+  toJSON MaintenanceEvent {..} =+    Core.object+      ( Core.catMaybes+          [ ("endTime" Core..=) Core.<$> endTime,+            ("startTime" Core..=) Core.<$> startTime,+            ("state" Core..=) Core.<$> state+          ]+      )++-- | Maintenance policy of the instance.+--+-- /See:/ 'newMaintenancePolicy' smart constructor.+data MaintenancePolicy = MaintenancePolicy+  { -- | Optional. The maintenance exclusion window of the instance.+    maintenanceExclusionWindow :: (Core.Maybe TimeWindow),+    -- | Optional. The maintenance window of the instance.+    maintenanceWindow :: (Core.Maybe MaintenanceWindow)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MaintenancePolicy' with the minimum fields required to make a request.+newMaintenancePolicy ::+  MaintenancePolicy+newMaintenancePolicy =+  MaintenancePolicy+    { maintenanceExclusionWindow = Core.Nothing,+      maintenanceWindow = Core.Nothing+    }++instance Core.FromJSON MaintenancePolicy where+  parseJSON =+    Core.withObject+      "MaintenancePolicy"+      ( \o ->+          MaintenancePolicy+            Core.<$> (o Core..:? "maintenanceExclusionWindow")+            Core.<*> (o Core..:? "maintenanceWindow")+      )++instance Core.ToJSON MaintenancePolicy where+  toJSON MaintenancePolicy {..} =+    Core.object+      ( Core.catMaybes+          [ ("maintenanceExclusionWindow" Core..=)+              Core.<$> maintenanceExclusionWindow,+            ("maintenanceWindow" Core..=) Core.<$> maintenanceWindow+          ]+      )++-- | Maintenance window of the instance.+--+-- /See:/ 'newMaintenanceWindow' smart constructor.+newtype MaintenanceWindow = MaintenanceWindow+  { -- | Required. The recurring time window of the maintenance window.+    recurringTimeWindow :: (Core.Maybe RecurringTimeWindow)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MaintenanceWindow' with the minimum fields required to make a request.+newMaintenanceWindow ::+  MaintenanceWindow+newMaintenanceWindow =+  MaintenanceWindow {recurringTimeWindow = Core.Nothing}++instance Core.FromJSON MaintenanceWindow where+  parseJSON =+    Core.withObject+      "MaintenanceWindow"+      ( \o ->+          MaintenanceWindow Core.<$> (o Core..:? "recurringTimeWindow")+      )++instance Core.ToJSON MaintenanceWindow where+  toJSON MaintenanceWindow {..} =+    Core.object+      ( Core.catMaybes+          [("recurringTimeWindow" Core..=) Core.<$> recurringTimeWindow]+      )++-- | Network configuration for a Data Fusion instance. These configurations are used for peering with the customer network. Configurations are optional when a public Data Fusion instance is to be created. However, providing these configurations allows several benefits, such as reduced network latency while accessing the customer resources from managed Data Fusion instance nodes, as well as access to the customer on-prem resources.+--+-- /See:/ 'newNetworkConfig' smart constructor.+data NetworkConfig = NetworkConfig+  { -- | Optional. Type of connection for establishing private IP connectivity between the Data Fusion customer project VPC and the corresponding tenant project from a predefined list of available connection modes. If this field is unspecified for a private instance, VPC peering is used.+    connectionType :: (Core.Maybe NetworkConfig_ConnectionType),+    -- | Optional. The IP range in CIDR notation to use for the managed Data Fusion instance nodes. This range must not overlap with any other ranges used in the Data Fusion instance network. This is required only when using connection type VPC_PEERING. Format: a.b.c.d\/22 Example: 192.168.0.0\/22+    ipAllocation :: (Core.Maybe Core.Text),+    -- | Optional. Name of the network in the customer project with which the Tenant Project will be peered for executing pipelines. In case of shared VPC where the network resides in another host project the network should specified in the form of projects\/{host-project-id}\/global\/networks\/{network}. This is only required for connectivity type VPC_PEERING.+    network :: (Core.Maybe Core.Text),+    -- | Optional. Configuration for Private Service Connect. This is required only when using connection type PRIVATE/SERVICE/CONNECT_INTERFACES.+    privateServiceConnectConfig :: (Core.Maybe PrivateServiceConnectConfig)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'NetworkConfig' with the minimum fields required to make a request.+newNetworkConfig ::+  NetworkConfig+newNetworkConfig =+  NetworkConfig+    { connectionType = Core.Nothing,+      ipAllocation = Core.Nothing,+      network = Core.Nothing,+      privateServiceConnectConfig = Core.Nothing+    }++instance Core.FromJSON NetworkConfig where+  parseJSON =+    Core.withObject+      "NetworkConfig"+      ( \o ->+          NetworkConfig+            Core.<$> (o Core..:? "connectionType")+            Core.<*> (o Core..:? "ipAllocation")+            Core.<*> (o Core..:? "network")+            Core.<*> (o Core..:? "privateServiceConnectConfig")+      )++instance Core.ToJSON NetworkConfig where+  toJSON NetworkConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("connectionType" Core..=) Core.<$> connectionType,+            ("ipAllocation" Core..=) Core.<$> ipAllocation,+            ("network" Core..=) Core.<$> network,+            ("privateServiceConnectConfig" Core..=)+              Core.<$> privateServiceConnectConfig+          ]+      )++-- | This resource represents a long-running operation that is the result of a network API call.+--+-- /See:/ 'newOperation' smart constructor.+data Operation = Operation+  { -- | If the value is @false@, it means the operation is still in progress. If @true@, the operation is completed, and either @error@ or @response@ is available.+    done :: (Core.Maybe Core.Bool),+    -- | The error result of the operation in case of failure or cancellation.+    error :: (Core.Maybe Status),+    -- | Service-specific metadata associated with the operation. It typically contains progress information and common metadata such as create time. Some services might not provide such metadata. Any method that returns a long-running operation should document the metadata type, if any.+    metadata :: (Core.Maybe Operation_Metadata),+    -- | The server-assigned name, which is only unique within the same service that originally returns it. If you use the default HTTP mapping, the @name@ should be a resource name ending with @operations\/{unique_id}@.+    name :: (Core.Maybe Core.Text),+    -- | The normal, successful response of the operation. If the original method returns no data on success, such as @Delete@, the response is @google.protobuf.Empty@. If the original method is standard @Get@\/@Create@\/@Update@, the response should be the resource. For other methods, the response should have the type @XxxResponse@, where @Xxx@ is the original method name. For example, if the original method name is @TakeSnapshot()@, the inferred response type is @TakeSnapshotResponse@.+    response :: (Core.Maybe Operation_Response)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Operation' with the minimum fields required to make a request.+newOperation ::+  Operation+newOperation =+  Operation+    { done = Core.Nothing,+      error = Core.Nothing,+      metadata = Core.Nothing,+      name = Core.Nothing,+      response = Core.Nothing+    }++instance Core.FromJSON Operation where+  parseJSON =+    Core.withObject+      "Operation"+      ( \o ->+          Operation+            Core.<$> (o Core..:? "done")+            Core.<*> (o Core..:? "error")+            Core.<*> (o Core..:? "metadata")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "response")+      )++instance Core.ToJSON Operation where+  toJSON Operation {..} =+    Core.object+      ( Core.catMaybes+          [ ("done" Core..=) Core.<$> done,+            ("error" Core..=) Core.<$> error,+            ("metadata" Core..=) Core.<$> metadata,+            ("name" Core..=) Core.<$> name,+            ("response" Core..=) Core.<$> response+          ]+      )++-- | Service-specific metadata associated with the operation. It typically contains progress information and common metadata such as create time. Some services might not provide such metadata. Any method that returns a long-running operation should document the metadata type, if any.+--+-- /See:/ 'newOperation_Metadata' smart constructor.+newtype Operation_Metadata = Operation_Metadata+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Operation_Metadata' with the minimum fields required to make a request.+newOperation_Metadata ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Operation_Metadata+newOperation_Metadata additional =+  Operation_Metadata {additional = additional}++instance Core.FromJSON Operation_Metadata where+  parseJSON =+    Core.withObject+      "Operation_Metadata"+      (\o -> Operation_Metadata Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Operation_Metadata where+  toJSON Operation_Metadata {..} = Core.toJSON additional++-- | The normal, successful response of the operation. If the original method returns no data on success, such as @Delete@, the response is @google.protobuf.Empty@. If the original method is standard @Get@\/@Create@\/@Update@, the response should be the resource. For other methods, the response should have the type @XxxResponse@, where @Xxx@ is the original method name. For example, if the original method name is @TakeSnapshot()@, the inferred response type is @TakeSnapshotResponse@.+--+-- /See:/ 'newOperation_Response' smart constructor.+newtype Operation_Response = Operation_Response+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Operation_Response' with the minimum fields required to make a request.+newOperation_Response ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Operation_Response+newOperation_Response additional =+  Operation_Response {additional = additional}++instance Core.FromJSON Operation_Response where+  parseJSON =+    Core.withObject+      "Operation_Response"+      (\o -> Operation_Response Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Operation_Response where+  toJSON Operation_Response {..} = Core.toJSON additional++-- | Represents the metadata of a long-running operation.+--+-- /See:/ 'newOperationMetadata' smart constructor.+data OperationMetadata = OperationMetadata+  { -- | Map to hold any additional status info for the operation If there is an accelerator being enabled\/disabled\/deleted, this will be populated with accelerator name as key and status as ENABLING, DISABLING or DELETING+    additionalStatus :: (Core.Maybe OperationMetadata_AdditionalStatus),+    -- | API version used to start the operation.+    apiVersion :: (Core.Maybe Core.Text),+    -- | The time the operation was created.+    createTime :: (Core.Maybe Core.DateTime),+    -- | The time the operation finished running.+    endTime :: (Core.Maybe Core.DateTime),+    -- | Identifies whether the user has requested cancellation of the operation. Operations that have successfully been cancelled have google.longrunning.Operation.error value with a google.rpc.Status.code of 1, corresponding to @Code.CANCELLED@.+    requestedCancellation :: (Core.Maybe Core.Bool),+    -- | Human-readable status of the operation if any.+    statusDetail :: (Core.Maybe Core.Text),+    -- | Server-defined resource path for the target of the operation.+    target :: (Core.Maybe Core.Text),+    -- | Name of the verb executed by the operation.+    verb :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'OperationMetadata' with the minimum fields required to make a request.+newOperationMetadata ::+  OperationMetadata+newOperationMetadata =+  OperationMetadata+    { additionalStatus = Core.Nothing,+      apiVersion = Core.Nothing,+      createTime = Core.Nothing,+      endTime = Core.Nothing,+      requestedCancellation = Core.Nothing,+      statusDetail = Core.Nothing,+      target = Core.Nothing,+      verb = Core.Nothing+    }++instance Core.FromJSON OperationMetadata where+  parseJSON =+    Core.withObject+      "OperationMetadata"+      ( \o ->+          OperationMetadata+            Core.<$> (o Core..:? "additionalStatus")+            Core.<*> (o Core..:? "apiVersion")+            Core.<*> (o Core..:? "createTime")+            Core.<*> (o Core..:? "endTime")+            Core.<*> (o Core..:? "requestedCancellation")+            Core.<*> (o Core..:? "statusDetail")+            Core.<*> (o Core..:? "target")+            Core.<*> (o Core..:? "verb")+      )++instance Core.ToJSON OperationMetadata where+  toJSON OperationMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("additionalStatus" Core..=) Core.<$> additionalStatus,+            ("apiVersion" Core..=) Core.<$> apiVersion,+            ("createTime" Core..=) Core.<$> createTime,+            ("endTime" Core..=) Core.<$> endTime,+            ("requestedCancellation" Core..=) Core.<$> requestedCancellation,+            ("statusDetail" Core..=) Core.<$> statusDetail,+            ("target" Core..=) Core.<$> target,+            ("verb" Core..=) Core.<$> verb+          ]+      )++-- | Map to hold any additional status info for the operation If there is an accelerator being enabled\/disabled\/deleted, this will be populated with accelerator name as key and status as ENABLING, DISABLING or DELETING+--+-- /See:/ 'newOperationMetadata_AdditionalStatus' smart constructor.+newtype OperationMetadata_AdditionalStatus = OperationMetadata_AdditionalStatus+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'OperationMetadata_AdditionalStatus' with the minimum fields required to make a request.+newOperationMetadata_AdditionalStatus ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  OperationMetadata_AdditionalStatus+newOperationMetadata_AdditionalStatus additional =+  OperationMetadata_AdditionalStatus {additional = additional}++instance Core.FromJSON OperationMetadata_AdditionalStatus where+  parseJSON =+    Core.withObject+      "OperationMetadata_AdditionalStatus"+      ( \o ->+          OperationMetadata_AdditionalStatus+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON OperationMetadata_AdditionalStatus where+  toJSON OperationMetadata_AdditionalStatus {..} =+    Core.toJSON additional++-- | An Identity and Access Management (IAM) policy, which specifies access controls for Google Cloud resources. A @Policy@ is a collection of @bindings@. A @binding@ binds one or more @members@, or principals, to a single @role@. Principals can be user accounts, service accounts, Google groups, and domains (such as G Suite). A @role@ is a named list of permissions; each @role@ can be an IAM predefined role or a user-created custom role. For some types of Google Cloud resources, a @binding@ can also specify a @condition@, which is a logical expression that allows access to a resource only if the expression evaluates to @true@. A condition can add constraints based on attributes of the request, the resource, or both. To learn which resources support conditions in their IAM policies, see the <https://cloud.google.com/iam/help/conditions/resource-policies IAM documentation>. __JSON example:__+-- @{ \"bindings\": [ { \"role\": \"roles\/resourcemanager.organizationAdmin\", \"members\": [ \"user:mike\@example.com\", \"group:admins\@example.com\", \"domain:google.com\", \"serviceAccount:my-project-id\@appspot.gserviceaccount.com\" ] }, { \"role\": \"roles\/resourcemanager.organizationViewer\", \"members\": [ \"user:eve\@example.com\" ], \"condition\": { \"title\": \"expirable access\", \"description\": \"Does not grant access after Sep 2020\", \"expression\": \"request.time \< timestamp(\'2020-10-01T00:00:00.000Z\')\", } } ], \"etag\": \"BwWWja0YfJA=\", \"version\": 3 }@ __YAML example:__+-- @bindings: - members: - user:mike\@example.com - group:admins\@example.com - domain:google.com - serviceAccount:my-project-id\@appspot.gserviceaccount.com role: roles\/resourcemanager.organizationAdmin - members: - user:eve\@example.com role: roles\/resourcemanager.organizationViewer condition: title: expirable access description: Does not grant access after Sep 2020 expression: request.time \< timestamp(\'2020-10-01T00:00:00.000Z\') etag: BwWWja0YfJA= version: 3@ For a description of IAM and its features, see the <https://cloud.google.com/iam/docs/ IAM documentation>.+--+-- /See:/ 'newPolicy' smart constructor.+data Policy = Policy+  { -- | Specifies cloud audit logging configuration for this policy.+    auditConfigs :: (Core.Maybe [AuditConfig]),+    -- | Associates a list of @members@, or principals, with a @role@. Optionally, may specify a @condition@ that determines how and when the @bindings@ are applied. Each of the @bindings@ must contain at least one principal. The @bindings@ in a @Policy@ can refer to up to 1,500 principals; up to 250 of these principals can be Google groups. Each occurrence of a principal counts towards these limits. For example, if the @bindings@ grant 50 different roles to @user:alice\@example.com@, and not to any other principal, then you can add another 1,450 principals to the @bindings@ in the @Policy@.+    bindings :: (Core.Maybe [Binding]),+    -- | @etag@ is used for optimistic concurrency control as a way to help prevent simultaneous updates of a policy from overwriting each other. It is strongly suggested that systems make use of the @etag@ in the read-modify-write cycle to perform policy updates in order to avoid race conditions: An @etag@ is returned in the response to @getIamPolicy@, and systems are expected to put that etag in the request to @setIamPolicy@ to ensure that their change will be applied to the same version of the policy. __Important:__ If you use IAM Conditions, you must include the @etag@ field whenever you call @setIamPolicy@. If you omit this field, then IAM allows you to overwrite a version @3@ policy with a version @1@ policy, and all of the conditions in the version @3@ policy are lost.+    etag :: (Core.Maybe Core.Base64),+    -- | Specifies the format of the policy. Valid values are @0@, @1@, and @3@. Requests that specify an invalid value are rejected. Any operation that affects conditional role bindings must specify version @3@. This requirement applies to the following operations: * Getting a policy that includes a conditional role binding * Adding a conditional role binding to a policy * Changing a conditional role binding in a policy * Removing any role binding, with or without a condition, from a policy that includes conditions __Important:__ If you use IAM Conditions, you must include the @etag@ field whenever you call @setIamPolicy@. If you omit this field, then IAM allows you to overwrite a version @3@ policy with a version @1@ policy, and all of the conditions in the version @3@ policy are lost. If a policy does not include any conditions, operations on that policy may specify any valid version or leave the field unset. To learn which resources support conditions in their IAM policies, see the+    -- <https://cloud.google.com/iam/help/conditions/resource-policies IAM documentation>.+    version :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Policy' with the minimum fields required to make a request.+newPolicy ::+  Policy+newPolicy =+  Policy+    { auditConfigs = Core.Nothing,+      bindings = Core.Nothing,+      etag = Core.Nothing,+      version = Core.Nothing+    }++instance Core.FromJSON Policy where+  parseJSON =+    Core.withObject+      "Policy"+      ( \o ->+          Policy+            Core.<$> (o Core..:? "auditConfigs")+            Core.<*> (o Core..:? "bindings")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "version")+      )++instance Core.ToJSON Policy where+  toJSON Policy {..} =+    Core.object+      ( Core.catMaybes+          [ ("auditConfigs" Core..=) Core.<$> auditConfigs,+            ("bindings" Core..=) Core.<$> bindings,+            ("etag" Core..=) Core.<$> etag,+            ("version" Core..=) Core.<$> version+          ]+      )++-- | Configuration for using Private Service Connect to establish connectivity between the Data Fusion consumer project and the corresponding tenant project.+--+-- /See:/ 'newPrivateServiceConnectConfig' smart constructor.+data PrivateServiceConnectConfig = PrivateServiceConnectConfig+  { -- | Output only. The CIDR block to which the CDF instance can\'t route traffic to in the consumer project VPC. The size of this block is \/25. The format of this field is governed by RFC 4632. Example: 240.0.0.0\/25+    effectiveUnreachableCidrBlock :: (Core.Maybe Core.Text),+    -- | Required. The reference to the network attachment used to establish private connectivity. It will be of the form projects\/{project-id}\/regions\/{region}\/networkAttachments\/{network-attachment-id}.+    networkAttachment :: (Core.Maybe Core.Text),+    -- | Optional. Input only. The CIDR block to which the CDF instance can\'t route traffic to in the consumer project VPC. The size of this block should be at least \/25. This range should not overlap with the primary address range of any subnetwork used by the network attachment. This range can be used for other purposes in the consumer VPC as long as there is no requirement for CDF to reach destinations using these addresses. If this value is not provided, the server chooses a non RFC 1918 address range. The format of this field is governed by RFC 4632. Example: 192.168.0.0\/25+    unreachableCidrBlock :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PrivateServiceConnectConfig' with the minimum fields required to make a request.+newPrivateServiceConnectConfig ::+  PrivateServiceConnectConfig+newPrivateServiceConnectConfig =+  PrivateServiceConnectConfig+    { effectiveUnreachableCidrBlock =+        Core.Nothing,+      networkAttachment = Core.Nothing,+      unreachableCidrBlock = Core.Nothing+    }++instance Core.FromJSON PrivateServiceConnectConfig where+  parseJSON =+    Core.withObject+      "PrivateServiceConnectConfig"+      ( \o ->+          PrivateServiceConnectConfig+            Core.<$> (o Core..:? "effectiveUnreachableCidrBlock")+            Core.<*> (o Core..:? "networkAttachment")+            Core.<*> (o Core..:? "unreachableCidrBlock")+      )++instance Core.ToJSON PrivateServiceConnectConfig where+  toJSON PrivateServiceConnectConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("effectiveUnreachableCidrBlock" Core..=)+              Core.<$> effectiveUnreachableCidrBlock,+            ("networkAttachment" Core..=) Core.<$> networkAttachment,+            ("unreachableCidrBlock" Core..=) Core.<$> unreachableCidrBlock+          ]+      )++-- | Represents an arbitrary window of time that recurs.+--+-- /See:/ 'newRecurringTimeWindow' smart constructor.+data RecurringTimeWindow = RecurringTimeWindow+  { -- | Required. An RRULE with format <https://tools.ietf.org/html/rfc5545#section-3.8.5.3 RFC-5545> for how this window reccurs. They go on for the span of time between the start and end time. The only supported FREQ value is \"WEEKLY\". To have something repeat every weekday, use: \"FREQ=WEEKLY;BYDAY=MO,TU,WE,TH,FR\". This specifies how frequently the window starts. To have a 9 am - 5 pm UTC-4 window every weekday, use something like: @start time = 2019-01-01T09:00:00-0400 end time = 2019-01-01T17:00:00-0400 recurrence = FREQ=WEEKLY;BYDAY=MO,TU,WE,TH,FR@+    recurrence :: (Core.Maybe Core.Text),+    -- | Required. The window representing the start and end time of recurrences. This field ignores the date components of the provided timestamps. Only the time of day and duration between start and end time are relevant.+    window :: (Core.Maybe TimeWindow)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RecurringTimeWindow' with the minimum fields required to make a request.+newRecurringTimeWindow ::+  RecurringTimeWindow+newRecurringTimeWindow =+  RecurringTimeWindow+    { recurrence = Core.Nothing,+      window = Core.Nothing+    }++instance Core.FromJSON RecurringTimeWindow where+  parseJSON =+    Core.withObject+      "RecurringTimeWindow"+      ( \o ->+          RecurringTimeWindow+            Core.<$> (o Core..:? "recurrence")+            Core.<*> (o Core..:? "window")+      )++instance Core.ToJSON RecurringTimeWindow where+  toJSON RecurringTimeWindow {..} =+    Core.object+      ( Core.catMaybes+          [ ("recurrence" Core..=) Core.<$> recurrence,+            ("window" Core..=) Core.<$> window+          ]+      )++-- | Request message for restarting a Data Fusion instance.+--+-- /See:/ 'newRestartInstanceRequest' smart constructor.+data RestartInstanceRequest = RestartInstanceRequest+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RestartInstanceRequest' with the minimum fields required to make a request.+newRestartInstanceRequest ::+  RestartInstanceRequest+newRestartInstanceRequest = RestartInstanceRequest++instance Core.FromJSON RestartInstanceRequest where+  parseJSON =+    Core.withObject+      "RestartInstanceRequest"+      (\o -> Core.pure RestartInstanceRequest)++instance Core.ToJSON RestartInstanceRequest where+  toJSON = Core.const Core.emptyObject++-- | Request message for @SetIamPolicy@ method.+--+-- /See:/ 'newSetIamPolicyRequest' smart constructor.+data SetIamPolicyRequest = SetIamPolicyRequest+  { -- | REQUIRED: The complete policy to be applied to the @resource@. The size of the policy is limited to a few 10s of KB. An empty policy is a valid policy but certain Google Cloud services (such as Projects) might reject them.+    policy :: (Core.Maybe Policy),+    -- | OPTIONAL: A FieldMask specifying which fields of the policy to modify. Only the fields in the mask will be modified. If no mask is provided, the following default mask is used: @paths: \"bindings, etag\"@+    updateMask :: (Core.Maybe Core.FieldMask)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SetIamPolicyRequest' with the minimum fields required to make a request.+newSetIamPolicyRequest ::+  SetIamPolicyRequest+newSetIamPolicyRequest =+  SetIamPolicyRequest+    { policy = Core.Nothing,+      updateMask = Core.Nothing+    }++instance Core.FromJSON SetIamPolicyRequest where+  parseJSON =+    Core.withObject+      "SetIamPolicyRequest"+      ( \o ->+          SetIamPolicyRequest+            Core.<$> (o Core..:? "policy")+            Core.<*> (o Core..:? "updateMask")+      )++instance Core.ToJSON SetIamPolicyRequest where+  toJSON SetIamPolicyRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("policy" Core..=) Core.<$> policy,+            ("updateMask" Core..=) Core.<$> updateMask+          ]+      )++-- | The @Status@ type defines a logical error model that is suitable for different programming environments, including REST APIs and RPC APIs. It is used by <https://github.com/grpc gRPC>. Each @Status@ message contains three pieces of data: error code, error message, and error details. You can find out more about this error model and how to work with it in the <https://cloud.google.com/apis/design/errors API Design Guide>.+--+-- /See:/ 'newStatus' smart constructor.+data Status = Status+  { -- | The status code, which should be an enum value of google.rpc.Code.+    code :: (Core.Maybe Core.Int32),+    -- | A list of messages that carry the error details. There is a common set of message types for APIs to use.+    details :: (Core.Maybe [Status_DetailsItem]),+    -- | A developer-facing error message, which should be in English. Any user-facing error message should be localized and sent in the google.rpc.Status.details field, or localized by the client.+    message :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Status' with the minimum fields required to make a request.+newStatus ::+  Status+newStatus =+  Status+    { code = Core.Nothing,+      details = Core.Nothing,+      message = Core.Nothing+    }++instance Core.FromJSON Status where+  parseJSON =+    Core.withObject+      "Status"+      ( \o ->+          Status+            Core.<$> (o Core..:? "code")+            Core.<*> (o Core..:? "details")+            Core.<*> (o Core..:? "message")+      )++instance Core.ToJSON Status where+  toJSON Status {..} =+    Core.object+      ( Core.catMaybes+          [ ("code" Core..=) Core.<$> code,+            ("details" Core..=) Core.<$> details,+            ("message" Core..=) Core.<$> message+          ]+      )++--+-- /See:/ 'newStatus_DetailsItem' smart constructor.+newtype Status_DetailsItem = Status_DetailsItem+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Status_DetailsItem' with the minimum fields required to make a request.+newStatus_DetailsItem ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Status_DetailsItem+newStatus_DetailsItem additional =+  Status_DetailsItem {additional = additional}++instance Core.FromJSON Status_DetailsItem where+  parseJSON =+    Core.withObject+      "Status_DetailsItem"+      (\o -> Status_DetailsItem Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Status_DetailsItem where+  toJSON Status_DetailsItem {..} = Core.toJSON additional++-- | Request message for @TestIamPermissions@ method.+--+-- /See:/ 'newTestIamPermissionsRequest' smart constructor.+newtype TestIamPermissionsRequest = TestIamPermissionsRequest+  { -- | The set of permissions to check for the @resource@. Permissions with wildcards (such as @*@ or @storage.*@) are not allowed. For more information see <https://cloud.google.com/iam/docs/overview#permissions IAM Overview>.+    permissions :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TestIamPermissionsRequest' with the minimum fields required to make a request.+newTestIamPermissionsRequest ::+  TestIamPermissionsRequest+newTestIamPermissionsRequest =+  TestIamPermissionsRequest {permissions = Core.Nothing}++instance Core.FromJSON TestIamPermissionsRequest where+  parseJSON =+    Core.withObject+      "TestIamPermissionsRequest"+      ( \o ->+          TestIamPermissionsRequest Core.<$> (o Core..:? "permissions")+      )++instance Core.ToJSON TestIamPermissionsRequest where+  toJSON TestIamPermissionsRequest {..} =+    Core.object+      (Core.catMaybes [("permissions" Core..=) Core.<$> permissions])++-- | Response message for @TestIamPermissions@ method.+--+-- /See:/ 'newTestIamPermissionsResponse' smart constructor.+newtype TestIamPermissionsResponse = TestIamPermissionsResponse+  { -- | A subset of @TestPermissionsRequest.permissions@ that the caller is allowed.+    permissions :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TestIamPermissionsResponse' with the minimum fields required to make a request.+newTestIamPermissionsResponse ::+  TestIamPermissionsResponse+newTestIamPermissionsResponse =+  TestIamPermissionsResponse {permissions = Core.Nothing}++instance Core.FromJSON TestIamPermissionsResponse where+  parseJSON =+    Core.withObject+      "TestIamPermissionsResponse"+      ( \o ->+          TestIamPermissionsResponse Core.<$> (o Core..:? "permissions")+      )++instance Core.ToJSON TestIamPermissionsResponse where+  toJSON TestIamPermissionsResponse {..} =+    Core.object+      (Core.catMaybes [("permissions" Core..=) Core.<$> permissions])++-- | Represents an arbitrary window of time.+--+-- /See:/ 'newTimeWindow' smart constructor.+data TimeWindow = TimeWindow+  { -- | Required. The end time of the time window provided in <https://www.ietf.org/rfc/rfc3339.txt RFC 3339> format. The end time should take place after the start time. Example: \"2024-01-02T12:04:06-06:00\"+    endTime :: (Core.Maybe Core.DateTime),+    -- | Required. The start time of the time window provided in <https://www.ietf.org/rfc/rfc3339.txt RFC 3339> format. Example: \"2024-01-01T12:04:06-04:00\"+    startTime :: (Core.Maybe Core.DateTime)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TimeWindow' with the minimum fields required to make a request.+newTimeWindow ::+  TimeWindow+newTimeWindow =+  TimeWindow {endTime = Core.Nothing, startTime = Core.Nothing}++instance Core.FromJSON TimeWindow where+  parseJSON =+    Core.withObject+      "TimeWindow"+      ( \o ->+          TimeWindow+            Core.<$> (o Core..:? "endTime")+            Core.<*> (o Core..:? "startTime")+      )++instance Core.ToJSON TimeWindow where+  toJSON TimeWindow {..} =+    Core.object+      ( Core.catMaybes+          [ ("endTime" Core..=) Core.<$> endTime,+            ("startTime" Core..=) Core.<$> startTime+          ]+      )++-- | The Data Fusion version. This proto message stores information about certain Data Fusion version, which is used for Data Fusion version upgrade.+--+-- /See:/ 'newVersion' smart constructor.+data Version = Version+  { -- | Represents a list of available feature names for a given version.+    availableFeatures :: (Core.Maybe [Core.Text]),+    -- | Whether this is currently the default version for Cloud Data Fusion+    defaultVersion :: (Core.Maybe Core.Bool),+    -- | Type represents the release availability of the version+    type' :: (Core.Maybe Version_Type),+    -- | The version number of the Data Fusion instance, such as \'6.0.1.0\'.+    versionNumber :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Version' with the minimum fields required to make a request.+newVersion ::+  Version+newVersion =+  Version+    { availableFeatures = Core.Nothing,+      defaultVersion = Core.Nothing,+      type' = Core.Nothing,+      versionNumber = Core.Nothing+    }++instance Core.FromJSON Version where+  parseJSON =+    Core.withObject+      "Version"+      ( \o ->+          Version+            Core.<$> (o Core..:? "availableFeatures")+            Core.<*> (o Core..:? "defaultVersion")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "versionNumber")+      )++instance Core.ToJSON Version where+  toJSON Version {..} =+    Core.object+      ( Core.catMaybes+          [ ("availableFeatures" Core..=) Core.<$> availableFeatures,+            ("defaultVersion" Core..=) Core.<$> defaultVersion,+            ("type" Core..=) Core.<$> type',+            ("versionNumber" Core..=) Core.<$> versionNumber+          ]+      )
+ gen/Gogol/DataFusion/Internal/Sum.hs view
@@ -0,0 +1,506 @@+{-# 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.DataFusion.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.DataFusion.Internal.Sum+  ( -- * Xgafv+    Xgafv+      ( Xgafv_1,+        Xgafv_2,+        ..+      ),++    -- * Accelerator_AcceleratorType+    Accelerator_AcceleratorType+      ( Accelerator_AcceleratorType_ACCELERATORTYPEUNSPECIFIED,+        Accelerator_AcceleratorType_Cdc,+        Accelerator_AcceleratorType_Healthcare,+        Accelerator_AcceleratorType_CCAIINSIGHTS,+        Accelerator_AcceleratorType_Cloudsearch,+        ..+      ),++    -- * Accelerator_State+    Accelerator_State+      ( Accelerator_State_STATEUNSPECIFIED,+        Accelerator_State_Enabled,+        Accelerator_State_Disabled,+        Accelerator_State_Unknown,+        ..+      ),++    -- * AuditLogConfig_LogType+    AuditLogConfig_LogType+      ( AuditLogConfig_LogType_LOGTYPEUNSPECIFIED,+        AuditLogConfig_LogType_ADMINREAD,+        AuditLogConfig_LogType_DATAWRITE,+        AuditLogConfig_LogType_DATAREAD,+        ..+      ),++    -- * Instance_DisabledReasonItem+    Instance_DisabledReasonItem+      ( Instance_DisabledReasonItem_DISABLEDREASONUNSPECIFIED,+        Instance_DisabledReasonItem_KMSKEYISSUE,+        ..+      ),++    -- * Instance_State+    Instance_State+      ( Instance_State_STATEUNSPECIFIED,+        Instance_State_Creating,+        Instance_State_Active,+        Instance_State_Failed,+        Instance_State_Deleting,+        Instance_State_Upgrading,+        Instance_State_Restarting,+        Instance_State_Updating,+        Instance_State_AUTOUPDATING,+        Instance_State_AUTOUPGRADING,+        Instance_State_Disabled,+        ..+      ),++    -- * Instance_Type+    Instance_Type+      ( Instance_Type_TYPEUNSPECIFIED,+        Instance_Type_Basic,+        Instance_Type_Enterprise,+        Instance_Type_Developer,+        ..+      ),++    -- * MaintenanceEvent_State+    MaintenanceEvent_State+      ( MaintenanceEvent_State_STATEUNSPECIFIED,+        MaintenanceEvent_State_Scheduled,+        MaintenanceEvent_State_Started,+        MaintenanceEvent_State_Completed,+        ..+      ),++    -- * NetworkConfig_ConnectionType+    NetworkConfig_ConnectionType+      ( NetworkConfig_ConnectionType_CONNECTIONTYPEUNSPECIFIED,+        NetworkConfig_ConnectionType_VPCPEERING,+        NetworkConfig_ConnectionType_PRIVATESERVICECONNECTINTERFACES,+        ..+      ),++    -- * Version_Type+    Version_Type+      ( Version_Type_TYPEUNSPECIFIED,+        Version_Type_TYPEPREVIEW,+        Version_Type_TYPEGENERALAVAILABILITY,+        Version_Type_TYPEDEPRECATED,+        ..+      ),+  )+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. The type of an accelator for a Cloud Data Fusion instance.+newtype Accelerator_AcceleratorType = Accelerator_AcceleratorType {fromAccelerator_AcceleratorType :: 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, if unspecified.+pattern Accelerator_AcceleratorType_ACCELERATORTYPEUNSPECIFIED :: Accelerator_AcceleratorType+pattern Accelerator_AcceleratorType_ACCELERATORTYPEUNSPECIFIED = Accelerator_AcceleratorType "ACCELERATOR_TYPE_UNSPECIFIED"++-- | Change Data Capture accelerator for Cloud Data Fusion.+pattern Accelerator_AcceleratorType_Cdc :: Accelerator_AcceleratorType+pattern Accelerator_AcceleratorType_Cdc = Accelerator_AcceleratorType "CDC"++-- | Reserved for internal use.+pattern Accelerator_AcceleratorType_Healthcare :: Accelerator_AcceleratorType+pattern Accelerator_AcceleratorType_Healthcare = Accelerator_AcceleratorType "HEALTHCARE"++-- | Contact Center AI Insights This accelerator is used to enable import and export pipelines custom built to streamline CCAI Insights processing.+pattern Accelerator_AcceleratorType_CCAIINSIGHTS :: Accelerator_AcceleratorType+pattern Accelerator_AcceleratorType_CCAIINSIGHTS = Accelerator_AcceleratorType "CCAI_INSIGHTS"++-- | Reserved for internal use.+pattern Accelerator_AcceleratorType_Cloudsearch :: Accelerator_AcceleratorType+pattern Accelerator_AcceleratorType_Cloudsearch = Accelerator_AcceleratorType "CLOUDSEARCH"++{-# COMPLETE+  Accelerator_AcceleratorType_ACCELERATORTYPEUNSPECIFIED,+  Accelerator_AcceleratorType_Cdc,+  Accelerator_AcceleratorType_Healthcare,+  Accelerator_AcceleratorType_CCAIINSIGHTS,+  Accelerator_AcceleratorType_Cloudsearch,+  Accelerator_AcceleratorType+  #-}++-- | Output only. The state of the accelerator.+newtype Accelerator_State = Accelerator_State {fromAccelerator_State :: 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, do not use.+pattern Accelerator_State_STATEUNSPECIFIED :: Accelerator_State+pattern Accelerator_State_STATEUNSPECIFIED = Accelerator_State "STATE_UNSPECIFIED"++-- | Indicates that the accelerator is enabled and available to use.+pattern Accelerator_State_Enabled :: Accelerator_State+pattern Accelerator_State_Enabled = Accelerator_State "ENABLED"++-- | Indicates that the accelerator is disabled and not available to use.+pattern Accelerator_State_Disabled :: Accelerator_State+pattern Accelerator_State_Disabled = Accelerator_State "DISABLED"++-- | Indicates that accelerator state is currently unknown. Requests for enable, disable could be retried while in this state.+pattern Accelerator_State_Unknown :: Accelerator_State+pattern Accelerator_State_Unknown = Accelerator_State "UNKNOWN"++{-# COMPLETE+  Accelerator_State_STATEUNSPECIFIED,+  Accelerator_State_Enabled,+  Accelerator_State_Disabled,+  Accelerator_State_Unknown,+  Accelerator_State+  #-}++-- | The log type that this config enables.+newtype AuditLogConfig_LogType = AuditLogConfig_LogType {fromAuditLogConfig_LogType :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Default case. Should never be this.+pattern AuditLogConfig_LogType_LOGTYPEUNSPECIFIED :: AuditLogConfig_LogType+pattern AuditLogConfig_LogType_LOGTYPEUNSPECIFIED = AuditLogConfig_LogType "LOG_TYPE_UNSPECIFIED"++-- | Admin reads. Example: CloudIAM getIamPolicy+pattern AuditLogConfig_LogType_ADMINREAD :: AuditLogConfig_LogType+pattern AuditLogConfig_LogType_ADMINREAD = AuditLogConfig_LogType "ADMIN_READ"++-- | Data writes. Example: CloudSQL Users create+pattern AuditLogConfig_LogType_DATAWRITE :: AuditLogConfig_LogType+pattern AuditLogConfig_LogType_DATAWRITE = AuditLogConfig_LogType "DATA_WRITE"++-- | Data reads. Example: CloudSQL Users list+pattern AuditLogConfig_LogType_DATAREAD :: AuditLogConfig_LogType+pattern AuditLogConfig_LogType_DATAREAD = AuditLogConfig_LogType "DATA_READ"++{-# COMPLETE+  AuditLogConfig_LogType_LOGTYPEUNSPECIFIED,+  AuditLogConfig_LogType_ADMINREAD,+  AuditLogConfig_LogType_DATAWRITE,+  AuditLogConfig_LogType_DATAREAD,+  AuditLogConfig_LogType+  #-}++newtype Instance_DisabledReasonItem = Instance_DisabledReasonItem {fromInstance_DisabledReasonItem :: 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+    )++-- | This is an unknown reason for disabling.+pattern Instance_DisabledReasonItem_DISABLEDREASONUNSPECIFIED :: Instance_DisabledReasonItem+pattern Instance_DisabledReasonItem_DISABLEDREASONUNSPECIFIED = Instance_DisabledReasonItem "DISABLED_REASON_UNSPECIFIED"++-- | The KMS key used by the instance is either revoked or denied access to+pattern Instance_DisabledReasonItem_KMSKEYISSUE :: Instance_DisabledReasonItem+pattern Instance_DisabledReasonItem_KMSKEYISSUE = Instance_DisabledReasonItem "KMS_KEY_ISSUE"++{-# COMPLETE+  Instance_DisabledReasonItem_DISABLEDREASONUNSPECIFIED,+  Instance_DisabledReasonItem_KMSKEYISSUE,+  Instance_DisabledReasonItem+  #-}++-- | Output only. The current state of this Data Fusion instance.+newtype Instance_State = Instance_State {fromInstance_State :: 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+    )++-- | Instance does not have a state yet+pattern Instance_State_STATEUNSPECIFIED :: Instance_State+pattern Instance_State_STATEUNSPECIFIED = Instance_State "STATE_UNSPECIFIED"++-- | Instance is being created+pattern Instance_State_Creating :: Instance_State+pattern Instance_State_Creating = Instance_State "CREATING"++-- | Instance is active and ready for requests. This corresponds to \'RUNNING\' in datafusion.v1beta1.+pattern Instance_State_Active :: Instance_State+pattern Instance_State_Active = Instance_State "ACTIVE"++-- | Instance creation failed+pattern Instance_State_Failed :: Instance_State+pattern Instance_State_Failed = Instance_State "FAILED"++-- | Instance is being deleted+pattern Instance_State_Deleting :: Instance_State+pattern Instance_State_Deleting = Instance_State "DELETING"++-- | Instance is being upgraded+pattern Instance_State_Upgrading :: Instance_State+pattern Instance_State_Upgrading = Instance_State "UPGRADING"++-- | Instance is being restarted+pattern Instance_State_Restarting :: Instance_State+pattern Instance_State_Restarting = Instance_State "RESTARTING"++-- | Instance is being updated on customer request+pattern Instance_State_Updating :: Instance_State+pattern Instance_State_Updating = Instance_State "UPDATING"++-- | Instance is being auto-updated+pattern Instance_State_AUTOUPDATING :: Instance_State+pattern Instance_State_AUTOUPDATING = Instance_State "AUTO_UPDATING"++-- | Instance is being auto-upgraded+pattern Instance_State_AUTOUPGRADING :: Instance_State+pattern Instance_State_AUTOUPGRADING = Instance_State "AUTO_UPGRADING"++-- | Instance is disabled+pattern Instance_State_Disabled :: Instance_State+pattern Instance_State_Disabled = Instance_State "DISABLED"++{-# COMPLETE+  Instance_State_STATEUNSPECIFIED,+  Instance_State_Creating,+  Instance_State_Active,+  Instance_State_Failed,+  Instance_State_Deleting,+  Instance_State_Upgrading,+  Instance_State_Restarting,+  Instance_State_Updating,+  Instance_State_AUTOUPDATING,+  Instance_State_AUTOUPGRADING,+  Instance_State_Disabled,+  Instance_State+  #-}++-- | Required. Instance type.+newtype Instance_Type = Instance_Type {fromInstance_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+    )++-- | No type specified. The instance creation will fail.+pattern Instance_Type_TYPEUNSPECIFIED :: Instance_Type+pattern Instance_Type_TYPEUNSPECIFIED = Instance_Type "TYPE_UNSPECIFIED"++-- | Basic Data Fusion instance. In Basic type, the user will be able to create data pipelines using point and click UI. However, there are certain limitations, such as fewer number of concurrent pipelines, no support for streaming pipelines, etc.+pattern Instance_Type_Basic :: Instance_Type+pattern Instance_Type_Basic = Instance_Type "BASIC"++-- | Enterprise Data Fusion instance. In Enterprise type, the user will have all features available, such as support for streaming pipelines, higher number of concurrent pipelines, etc.+pattern Instance_Type_Enterprise :: Instance_Type+pattern Instance_Type_Enterprise = Instance_Type "ENTERPRISE"++-- | Developer Data Fusion instance. In Developer type, the user will have all features available but with restrictive capabilities. This is to help enterprises design and develop their data ingestion and integration pipelines at low cost.+pattern Instance_Type_Developer :: Instance_Type+pattern Instance_Type_Developer = Instance_Type "DEVELOPER"++{-# COMPLETE+  Instance_Type_TYPEUNSPECIFIED,+  Instance_Type_Basic,+  Instance_Type_Enterprise,+  Instance_Type_Developer,+  Instance_Type+  #-}++-- | Output only. The state of the maintenance event.+newtype MaintenanceEvent_State = MaintenanceEvent_State {fromMaintenanceEvent_State :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The state of the maintenance event is unspecified.+pattern MaintenanceEvent_State_STATEUNSPECIFIED :: MaintenanceEvent_State+pattern MaintenanceEvent_State_STATEUNSPECIFIED = MaintenanceEvent_State "STATE_UNSPECIFIED"++-- | The maintenance is scheduled but has not started.+pattern MaintenanceEvent_State_Scheduled :: MaintenanceEvent_State+pattern MaintenanceEvent_State_Scheduled = MaintenanceEvent_State "SCHEDULED"++-- | The maintenance has been started.+pattern MaintenanceEvent_State_Started :: MaintenanceEvent_State+pattern MaintenanceEvent_State_Started = MaintenanceEvent_State "STARTED"++-- | The maintenance has been completed.+pattern MaintenanceEvent_State_Completed :: MaintenanceEvent_State+pattern MaintenanceEvent_State_Completed = MaintenanceEvent_State "COMPLETED"++{-# COMPLETE+  MaintenanceEvent_State_STATEUNSPECIFIED,+  MaintenanceEvent_State_Scheduled,+  MaintenanceEvent_State_Started,+  MaintenanceEvent_State_Completed,+  MaintenanceEvent_State+  #-}++-- | Optional. Type of connection for establishing private IP connectivity between the Data Fusion customer project VPC and the corresponding tenant project from a predefined list of available connection modes. If this field is unspecified for a private instance, VPC peering is used.+newtype NetworkConfig_ConnectionType = NetworkConfig_ConnectionType {fromNetworkConfig_ConnectionType :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | No specific connection type was requested, the default value of VPC_PEERING is chosen.+pattern NetworkConfig_ConnectionType_CONNECTIONTYPEUNSPECIFIED :: NetworkConfig_ConnectionType+pattern NetworkConfig_ConnectionType_CONNECTIONTYPEUNSPECIFIED = NetworkConfig_ConnectionType "CONNECTION_TYPE_UNSPECIFIED"++-- | Requests the use of VPC peerings for connecting the consumer and tenant projects.+pattern NetworkConfig_ConnectionType_VPCPEERING :: NetworkConfig_ConnectionType+pattern NetworkConfig_ConnectionType_VPCPEERING = NetworkConfig_ConnectionType "VPC_PEERING"++-- | Requests the use of Private Service Connect Interfaces for connecting the consumer and tenant projects.+pattern NetworkConfig_ConnectionType_PRIVATESERVICECONNECTINTERFACES :: NetworkConfig_ConnectionType+pattern NetworkConfig_ConnectionType_PRIVATESERVICECONNECTINTERFACES = NetworkConfig_ConnectionType "PRIVATE_SERVICE_CONNECT_INTERFACES"++{-# COMPLETE+  NetworkConfig_ConnectionType_CONNECTIONTYPEUNSPECIFIED,+  NetworkConfig_ConnectionType_VPCPEERING,+  NetworkConfig_ConnectionType_PRIVATESERVICECONNECTINTERFACES,+  NetworkConfig_ConnectionType+  #-}++-- | Type represents the release availability of the version+newtype Version_Type = Version_Type {fromVersion_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+    )++-- | Version does not have availability yet+pattern Version_Type_TYPEUNSPECIFIED :: Version_Type+pattern Version_Type_TYPEUNSPECIFIED = Version_Type "TYPE_UNSPECIFIED"++-- | Version is under development and not considered stable+pattern Version_Type_TYPEPREVIEW :: Version_Type+pattern Version_Type_TYPEPREVIEW = Version_Type "TYPE_PREVIEW"++-- | Version is available for public use+pattern Version_Type_TYPEGENERALAVAILABILITY :: Version_Type+pattern Version_Type_TYPEGENERALAVAILABILITY = Version_Type "TYPE_GENERAL_AVAILABILITY"++-- | Version is no longer supported.+pattern Version_Type_TYPEDEPRECATED :: Version_Type+pattern Version_Type_TYPEDEPRECATED = Version_Type "TYPE_DEPRECATED"++{-# COMPLETE+  Version_Type_TYPEUNSPECIFIED,+  Version_Type_TYPEPREVIEW,+  Version_Type_TYPEGENERALAVAILABILITY,+  Version_Type_TYPEDEPRECATED,+  Version_Type+  #-}
+ gen/Gogol/DataFusion/Projects/Locations/Get.hs view
@@ -0,0 +1,109 @@+{-# 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.DataFusion.Projects.Locations.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 information about a location.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.get@.+module Gogol.DataFusion.Projects.Locations.Get+  ( -- * Resource+    DataFusionProjectsLocationsGetResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsGet (..),+    newDataFusionProjectsLocationsGet,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.get@ method which the+-- 'DataFusionProjectsLocationsGet' request conforms to.+type DataFusionProjectsLocationsGetResource =+  "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] Location++-- | Gets information about a location.+--+-- /See:/ 'newDataFusionProjectsLocationsGet' smart constructor.+data DataFusionProjectsLocationsGet = DataFusionProjectsLocationsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Resource name for the location.+    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 'DataFusionProjectsLocationsGet' with the minimum fields required to make a request.+newDataFusionProjectsLocationsGet ::+  -- |  Resource name for the location. See 'name'.+  Core.Text ->+  DataFusionProjectsLocationsGet+newDataFusionProjectsLocationsGet name =+  DataFusionProjectsLocationsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataFusionProjectsLocationsGet where+  type Rs DataFusionProjectsLocationsGet = Location+  type+    Scopes DataFusionProjectsLocationsGet =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataFusionService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataFusionProjectsLocationsGetResource)+          Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Instances/Create.hs view
@@ -0,0 +1,127 @@+{-# 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.DataFusion.Projects.Locations.Instances.Create+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new Data Fusion instance in the specified project and location.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.create@.+module Gogol.DataFusion.Projects.Locations.Instances.Create+  ( -- * Resource+    DataFusionProjectsLocationsInstancesCreateResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsInstancesCreate (..),+    newDataFusionProjectsLocationsInstancesCreate,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.instances.create@ method which the+-- 'DataFusionProjectsLocationsInstancesCreate' request conforms to.+type DataFusionProjectsLocationsInstancesCreateResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "instances"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "instanceId" 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] Instance+    Core.:> Core.Post '[Core.JSON] Operation++-- | Creates a new Data Fusion instance in the specified project and location.+--+-- /See:/ 'newDataFusionProjectsLocationsInstancesCreate' smart constructor.+data DataFusionProjectsLocationsInstancesCreate = DataFusionProjectsLocationsInstancesCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The name of the instance to create. Instance name can only contain lowercase alphanumeric characters and hyphens. It must start with a letter and must not end with a hyphen. It can have a maximum of 30 characters.+    instanceId :: (Core.Maybe Core.Text),+    -- | Required. The instance\'s project and location in the format projects\/{project}\/locations\/{location}.+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: Instance,+    -- | 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 'DataFusionProjectsLocationsInstancesCreate' with the minimum fields required to make a request.+newDataFusionProjectsLocationsInstancesCreate ::+  -- |  Required. The instance\'s project and location in the format projects\/{project}\/locations\/{location}. See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Instance ->+  DataFusionProjectsLocationsInstancesCreate+newDataFusionProjectsLocationsInstancesCreate parent payload =+  DataFusionProjectsLocationsInstancesCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      instanceId = Core.Nothing,+      parent = parent,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    DataFusionProjectsLocationsInstancesCreate+  where+  type Rs DataFusionProjectsLocationsInstancesCreate = Operation+  type+    Scopes DataFusionProjectsLocationsInstancesCreate =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsInstancesCreate {..} =+    go+      parent+      xgafv+      accessToken+      callback+      instanceId+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataFusionService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataFusionProjectsLocationsInstancesCreateResource+          )+          Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Instances/Delete.hs view
@@ -0,0 +1,114 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.DataFusion.Projects.Locations.Instances.Delete+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a single Date Fusion instance.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.delete@.+module Gogol.DataFusion.Projects.Locations.Instances.Delete+  ( -- * Resource+    DataFusionProjectsLocationsInstancesDeleteResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsInstancesDelete (..),+    newDataFusionProjectsLocationsInstancesDelete,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.instances.delete@ method which the+-- 'DataFusionProjectsLocationsInstancesDelete' request conforms to.+type DataFusionProjectsLocationsInstancesDeleteResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] Operation++-- | Deletes a single Date Fusion instance.+--+-- /See:/ 'newDataFusionProjectsLocationsInstancesDelete' smart constructor.+data DataFusionProjectsLocationsInstancesDelete = DataFusionProjectsLocationsInstancesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The instance resource name in the format projects\/{project}\/locations\/{location}\/instances\/{instance}+    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 'DataFusionProjectsLocationsInstancesDelete' with the minimum fields required to make a request.+newDataFusionProjectsLocationsInstancesDelete ::+  -- |  Required. The instance resource name in the format projects\/{project}\/locations\/{location}\/instances\/{instance} See 'name'.+  Core.Text ->+  DataFusionProjectsLocationsInstancesDelete+newDataFusionProjectsLocationsInstancesDelete name =+  DataFusionProjectsLocationsInstancesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    DataFusionProjectsLocationsInstancesDelete+  where+  type Rs DataFusionProjectsLocationsInstancesDelete = Operation+  type+    Scopes DataFusionProjectsLocationsInstancesDelete =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsInstancesDelete {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataFusionService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataFusionProjectsLocationsInstancesDeleteResource+          )+          Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Instances/DnsPeerings/Create.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.DataFusion.Projects.Locations.Instances.DnsPeerings.Create+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates DNS peering on the given resource.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.dnsPeerings.create@.+module Gogol.DataFusion.Projects.Locations.Instances.DnsPeerings.Create+  ( -- * Resource+    DataFusionProjectsLocationsInstancesDnsPeeringsCreateResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsInstancesDnsPeeringsCreate (..),+    newDataFusionProjectsLocationsInstancesDnsPeeringsCreate,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.instances.dnsPeerings.create@ method which the+-- 'DataFusionProjectsLocationsInstancesDnsPeeringsCreate' request conforms to.+type DataFusionProjectsLocationsInstancesDnsPeeringsCreateResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "dnsPeerings"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "dnsPeeringId" 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] DnsPeering+    Core.:> Core.Post '[Core.JSON] DnsPeering++-- | Creates DNS peering on the given resource.+--+-- /See:/ 'newDataFusionProjectsLocationsInstancesDnsPeeringsCreate' smart constructor.+data DataFusionProjectsLocationsInstancesDnsPeeringsCreate = DataFusionProjectsLocationsInstancesDnsPeeringsCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The name of the peering to create.+    dnsPeeringId :: (Core.Maybe Core.Text),+    -- | Required. The resource on which DNS peering will be created.+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: DnsPeering,+    -- | 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 'DataFusionProjectsLocationsInstancesDnsPeeringsCreate' with the minimum fields required to make a request.+newDataFusionProjectsLocationsInstancesDnsPeeringsCreate ::+  -- |  Required. The resource on which DNS peering will be created. See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  DnsPeering ->+  DataFusionProjectsLocationsInstancesDnsPeeringsCreate+newDataFusionProjectsLocationsInstancesDnsPeeringsCreate+  parent+  payload =+    DataFusionProjectsLocationsInstancesDnsPeeringsCreate+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        dnsPeeringId = Core.Nothing,+        parent = parent,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataFusionProjectsLocationsInstancesDnsPeeringsCreate+  where+  type+    Rs DataFusionProjectsLocationsInstancesDnsPeeringsCreate =+      DnsPeering+  type+    Scopes DataFusionProjectsLocationsInstancesDnsPeeringsCreate =+      '[CloudPlatform'FullControl]+  requestClient+    DataFusionProjectsLocationsInstancesDnsPeeringsCreate {..} =+      go+        parent+        xgafv+        accessToken+        callback+        dnsPeeringId+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        dataFusionService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  DataFusionProjectsLocationsInstancesDnsPeeringsCreateResource+            )+            Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Instances/DnsPeerings/Delete.hs view
@@ -0,0 +1,119 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.DataFusion.Projects.Locations.Instances.DnsPeerings.Delete+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes DNS peering on the given resource.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.dnsPeerings.delete@.+module Gogol.DataFusion.Projects.Locations.Instances.DnsPeerings.Delete+  ( -- * Resource+    DataFusionProjectsLocationsInstancesDnsPeeringsDeleteResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsInstancesDnsPeeringsDelete (..),+    newDataFusionProjectsLocationsInstancesDnsPeeringsDelete,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.instances.dnsPeerings.delete@ method which the+-- 'DataFusionProjectsLocationsInstancesDnsPeeringsDelete' request conforms to.+type DataFusionProjectsLocationsInstancesDnsPeeringsDeleteResource =+  "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 DNS peering on the given resource.+--+-- /See:/ 'newDataFusionProjectsLocationsInstancesDnsPeeringsDelete' smart constructor.+data DataFusionProjectsLocationsInstancesDnsPeeringsDelete = DataFusionProjectsLocationsInstancesDnsPeeringsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The name of the DNS peering zone to delete. Format: projects\/{project}\/locations\/{location}\/instances\/{instance}\/dnsPeerings\/{dns_peering}+    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 'DataFusionProjectsLocationsInstancesDnsPeeringsDelete' with the minimum fields required to make a request.+newDataFusionProjectsLocationsInstancesDnsPeeringsDelete ::+  -- |  Required. The name of the DNS peering zone to delete. Format: projects\/{project}\/locations\/{location}\/instances\/{instance}\/dnsPeerings\/{dns_peering} See 'name'.+  Core.Text ->+  DataFusionProjectsLocationsInstancesDnsPeeringsDelete+newDataFusionProjectsLocationsInstancesDnsPeeringsDelete name =+  DataFusionProjectsLocationsInstancesDnsPeeringsDelete+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    DataFusionProjectsLocationsInstancesDnsPeeringsDelete+  where+  type+    Rs DataFusionProjectsLocationsInstancesDnsPeeringsDelete =+      Empty+  type+    Scopes DataFusionProjectsLocationsInstancesDnsPeeringsDelete =+      '[CloudPlatform'FullControl]+  requestClient+    DataFusionProjectsLocationsInstancesDnsPeeringsDelete {..} =+      go+        name+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        dataFusionService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  DataFusionProjectsLocationsInstancesDnsPeeringsDeleteResource+            )+            Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Instances/DnsPeerings/List.hs view
@@ -0,0 +1,130 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.DataFusion.Projects.Locations.Instances.DnsPeerings.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 DNS peerings for a given resource.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.dnsPeerings.list@.+module Gogol.DataFusion.Projects.Locations.Instances.DnsPeerings.List+  ( -- * Resource+    DataFusionProjectsLocationsInstancesDnsPeeringsListResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsInstancesDnsPeeringsList (..),+    newDataFusionProjectsLocationsInstancesDnsPeeringsList,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.instances.dnsPeerings.list@ method which the+-- 'DataFusionProjectsLocationsInstancesDnsPeeringsList' request conforms to.+type DataFusionProjectsLocationsInstancesDnsPeeringsListResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "dnsPeerings"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListDnsPeeringsResponse++-- | Lists DNS peerings for a given resource.+--+-- /See:/ 'newDataFusionProjectsLocationsInstancesDnsPeeringsList' smart constructor.+data DataFusionProjectsLocationsInstancesDnsPeeringsList = DataFusionProjectsLocationsInstancesDnsPeeringsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The maximum number of dns peerings to return. The service may return fewer than this value. If unspecified, at most 50 dns peerings will be returned. The maximum value is 200; values above 200 will be coerced to 200.+    pageSize :: (Core.Maybe Core.Int32),+    -- | A page token, received from a previous @ListDnsPeerings@ call. Provide this to retrieve the subsequent page. When paginating, all other parameters provided to @ListDnsPeerings@ must match the call that provided the page token.+    pageToken :: (Core.Maybe Core.Text),+    -- | Required. The parent, which owns this collection of dns peerings. Format: projects\/{project}\/locations\/{location}\/instances\/{instance}+    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 'DataFusionProjectsLocationsInstancesDnsPeeringsList' with the minimum fields required to make a request.+newDataFusionProjectsLocationsInstancesDnsPeeringsList ::+  -- |  Required. The parent, which owns this collection of dns peerings. Format: projects\/{project}\/locations\/{location}\/instances\/{instance} See 'parent'.+  Core.Text ->+  DataFusionProjectsLocationsInstancesDnsPeeringsList+newDataFusionProjectsLocationsInstancesDnsPeeringsList parent =+  DataFusionProjectsLocationsInstancesDnsPeeringsList+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      parent = parent,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    DataFusionProjectsLocationsInstancesDnsPeeringsList+  where+  type+    Rs DataFusionProjectsLocationsInstancesDnsPeeringsList =+      ListDnsPeeringsResponse+  type+    Scopes DataFusionProjectsLocationsInstancesDnsPeeringsList =+      '[CloudPlatform'FullControl]+  requestClient+    DataFusionProjectsLocationsInstancesDnsPeeringsList {..} =+      go+        parent+        xgafv+        accessToken+        callback+        pageSize+        pageToken+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        dataFusionService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  DataFusionProjectsLocationsInstancesDnsPeeringsListResource+            )+            Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Instances/Get.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.DataFusion.Projects.Locations.Instances.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 details of a single Data Fusion instance.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.get@.+module Gogol.DataFusion.Projects.Locations.Instances.Get+  ( -- * Resource+    DataFusionProjectsLocationsInstancesGetResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsInstancesGet (..),+    newDataFusionProjectsLocationsInstancesGet,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.instances.get@ method which the+-- 'DataFusionProjectsLocationsInstancesGet' request conforms to.+type DataFusionProjectsLocationsInstancesGetResource =+  "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] Instance++-- | Gets details of a single Data Fusion instance.+--+-- /See:/ 'newDataFusionProjectsLocationsInstancesGet' smart constructor.+data DataFusionProjectsLocationsInstancesGet = DataFusionProjectsLocationsInstancesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The instance resource name in the format projects\/{project}\/locations\/{location}\/instances\/{instance}.+    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 'DataFusionProjectsLocationsInstancesGet' with the minimum fields required to make a request.+newDataFusionProjectsLocationsInstancesGet ::+  -- |  Required. The instance resource name in the format projects\/{project}\/locations\/{location}\/instances\/{instance}. See 'name'.+  Core.Text ->+  DataFusionProjectsLocationsInstancesGet+newDataFusionProjectsLocationsInstancesGet name =+  DataFusionProjectsLocationsInstancesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataFusionProjectsLocationsInstancesGet where+  type Rs DataFusionProjectsLocationsInstancesGet = Instance+  type+    Scopes DataFusionProjectsLocationsInstancesGet =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsInstancesGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataFusionService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataFusionProjectsLocationsInstancesGetResource+          )+          Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Instances/GetIamPolicy.hs view
@@ -0,0 +1,121 @@+{-# 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.DataFusion.Projects.Locations.Instances.GetIamPolicy+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the access control policy for a resource. Returns an empty policy if the resource exists and does not have a policy set.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.getIamPolicy@.+module Gogol.DataFusion.Projects.Locations.Instances.GetIamPolicy+  ( -- * Resource+    DataFusionProjectsLocationsInstancesGetIamPolicyResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsInstancesGetIamPolicy (..),+    newDataFusionProjectsLocationsInstancesGetIamPolicy,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.instances.getIamPolicy@ method which the+-- 'DataFusionProjectsLocationsInstancesGetIamPolicy' request conforms to.+type DataFusionProjectsLocationsInstancesGetIamPolicyResource =+  "v1"+    Core.:> Core.CaptureMode "resource" "getIamPolicy" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "options.requestedPolicyVersion" Core.Int32+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Policy++-- | Gets the access control policy for a resource. Returns an empty policy if the resource exists and does not have a policy set.+--+-- /See:/ 'newDataFusionProjectsLocationsInstancesGetIamPolicy' smart constructor.+data DataFusionProjectsLocationsInstancesGetIamPolicy = DataFusionProjectsLocationsInstancesGetIamPolicy+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Optional. The maximum policy version that will be used to format the policy. Valid values are 0, 1, and 3. Requests specifying an invalid value will be rejected. Requests for policies with any conditional role bindings must specify version 3. Policies with no conditional role bindings may specify any valid value or leave the field unset. The policy in the response might use the policy version that you specified, or it might use a lower policy version. For example, if you specify version 3, but the policy has no conditional role bindings, the response uses version 1. To learn which resources support conditions in their IAM policies, see the <https://cloud.google.com/iam/help/conditions/resource-policies IAM documentation>.+    optionsRequestedPolicyVersion :: (Core.Maybe Core.Int32),+    -- | REQUIRED: The resource for which the policy is being requested. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field.+    resource :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataFusionProjectsLocationsInstancesGetIamPolicy' with the minimum fields required to make a request.+newDataFusionProjectsLocationsInstancesGetIamPolicy ::+  -- |  REQUIRED: The resource for which the policy is being requested. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field. See 'resource'.+  Core.Text ->+  DataFusionProjectsLocationsInstancesGetIamPolicy+newDataFusionProjectsLocationsInstancesGetIamPolicy resource =+  DataFusionProjectsLocationsInstancesGetIamPolicy+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      optionsRequestedPolicyVersion = Core.Nothing,+      resource = resource,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    DataFusionProjectsLocationsInstancesGetIamPolicy+  where+  type Rs DataFusionProjectsLocationsInstancesGetIamPolicy = Policy+  type+    Scopes DataFusionProjectsLocationsInstancesGetIamPolicy =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsInstancesGetIamPolicy {..} =+    go+      resource+      xgafv+      accessToken+      callback+      optionsRequestedPolicyVersion+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataFusionService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy+                DataFusionProjectsLocationsInstancesGetIamPolicyResource+          )+          Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Instances/List.hs view
@@ -0,0 +1,137 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.DataFusion.Projects.Locations.Instances.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 Data Fusion instances in the specified project and location.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.list@.+module Gogol.DataFusion.Projects.Locations.Instances.List+  ( -- * Resource+    DataFusionProjectsLocationsInstancesListResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsInstancesList (..),+    newDataFusionProjectsLocationsInstancesList,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.instances.list@ method which the+-- 'DataFusionProjectsLocationsInstancesList' request conforms to.+type DataFusionProjectsLocationsInstancesListResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "instances"+    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 "orderBy" 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] ListInstancesResponse++-- | Lists Data Fusion instances in the specified project and location.+--+-- /See:/ 'newDataFusionProjectsLocationsInstancesList' smart constructor.+data DataFusionProjectsLocationsInstancesList = DataFusionProjectsLocationsInstancesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | List filter.+    filter :: (Core.Maybe Core.Text),+    -- | Sort results. Supported values are \"name\", \"name desc\", or \"\" (unsorted).+    orderBy :: (Core.Maybe Core.Text),+    -- | The maximum number of items to return.+    pageSize :: (Core.Maybe Core.Int32),+    -- | The next/page/token value to use if there are additional results to retrieve for this list request.+    pageToken :: (Core.Maybe Core.Text),+    -- | Required. The project and location for which to retrieve instance information in the format projects\/{project}\/locations\/{location}. If the location is specified as \'-\' (wildcard), then all regions available to the project are queried, and the results are aggregated.+    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 'DataFusionProjectsLocationsInstancesList' with the minimum fields required to make a request.+newDataFusionProjectsLocationsInstancesList ::+  -- |  Required. The project and location for which to retrieve instance information in the format projects\/{project}\/locations\/{location}. If the location is specified as \'-\' (wildcard), then all regions available to the project are queried, and the results are aggregated. See 'parent'.+  Core.Text ->+  DataFusionProjectsLocationsInstancesList+newDataFusionProjectsLocationsInstancesList parent =+  DataFusionProjectsLocationsInstancesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      orderBy = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      parent = parent,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    DataFusionProjectsLocationsInstancesList+  where+  type+    Rs DataFusionProjectsLocationsInstancesList =+      ListInstancesResponse+  type+    Scopes DataFusionProjectsLocationsInstancesList =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsInstancesList {..} =+    go+      parent+      xgafv+      accessToken+      callback+      filter+      orderBy+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataFusionService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataFusionProjectsLocationsInstancesListResource+          )+          Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Instances/Patch.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.DataFusion.Projects.Locations.Instances.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a single Data Fusion instance.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.patch@.+module Gogol.DataFusion.Projects.Locations.Instances.Patch+  ( -- * Resource+    DataFusionProjectsLocationsInstancesPatchResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsInstancesPatch (..),+    newDataFusionProjectsLocationsInstancesPatch,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.instances.patch@ method which the+-- 'DataFusionProjectsLocationsInstancesPatch' request conforms to.+type DataFusionProjectsLocationsInstancesPatchResource =+  "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] Instance+    Core.:> Core.Patch '[Core.JSON] Operation++-- | Updates a single Data Fusion instance.+--+-- /See:/ 'newDataFusionProjectsLocationsInstancesPatch' smart constructor.+data DataFusionProjectsLocationsInstancesPatch = DataFusionProjectsLocationsInstancesPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Output only. The name of this instance is in the form of projects\/{project}\/locations\/{location}\/instances\/{instance}.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: Instance,+    -- | Field mask is used to specify the fields that the update will overwrite in an instance resource. The fields specified in the update_mask are relative to the resource, not the full request. A field will be overwritten if it is in the mask. If the user does not provide a mask, the label field will be overwritten.+    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 'DataFusionProjectsLocationsInstancesPatch' with the minimum fields required to make a request.+newDataFusionProjectsLocationsInstancesPatch ::+  -- |  Output only. The name of this instance is in the form of projects\/{project}\/locations\/{location}\/instances\/{instance}. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Instance ->+  DataFusionProjectsLocationsInstancesPatch+newDataFusionProjectsLocationsInstancesPatch name payload =+  DataFusionProjectsLocationsInstancesPatch+    { 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+    DataFusionProjectsLocationsInstancesPatch+  where+  type Rs DataFusionProjectsLocationsInstancesPatch = Operation+  type+    Scopes DataFusionProjectsLocationsInstancesPatch =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsInstancesPatch {..} =+    go+      name+      xgafv+      accessToken+      callback+      updateMask+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataFusionService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataFusionProjectsLocationsInstancesPatchResource+          )+          Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Instances/Restart.hs view
@@ -0,0 +1,121 @@+{-# 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.DataFusion.Projects.Locations.Instances.Restart+-- 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)+--+-- Restart a single Data Fusion instance. At the end of an operation instance is fully restarted.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.restart@.+module Gogol.DataFusion.Projects.Locations.Instances.Restart+  ( -- * Resource+    DataFusionProjectsLocationsInstancesRestartResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsInstancesRestart (..),+    newDataFusionProjectsLocationsInstancesRestart,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.instances.restart@ method which the+-- 'DataFusionProjectsLocationsInstancesRestart' request conforms to.+type DataFusionProjectsLocationsInstancesRestartResource =+  "v1"+    Core.:> Core.CaptureMode "name" "restart" 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] RestartInstanceRequest+    Core.:> Core.Post '[Core.JSON] Operation++-- | Restart a single Data Fusion instance. At the end of an operation instance is fully restarted.+--+-- /See:/ 'newDataFusionProjectsLocationsInstancesRestart' smart constructor.+data DataFusionProjectsLocationsInstancesRestart = DataFusionProjectsLocationsInstancesRestart+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Name of the Data Fusion instance which need to be restarted in the form of projects\/{project}\/locations\/{location}\/instances\/{instance}+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: RestartInstanceRequest,+    -- | 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 'DataFusionProjectsLocationsInstancesRestart' with the minimum fields required to make a request.+newDataFusionProjectsLocationsInstancesRestart ::+  -- |  Required. Name of the Data Fusion instance which need to be restarted in the form of projects\/{project}\/locations\/{location}\/instances\/{instance} See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  RestartInstanceRequest ->+  DataFusionProjectsLocationsInstancesRestart+newDataFusionProjectsLocationsInstancesRestart name payload =+  DataFusionProjectsLocationsInstancesRestart+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    DataFusionProjectsLocationsInstancesRestart+  where+  type Rs DataFusionProjectsLocationsInstancesRestart = Operation+  type+    Scopes DataFusionProjectsLocationsInstancesRestart =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsInstancesRestart {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataFusionService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataFusionProjectsLocationsInstancesRestartResource+          )+          Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Instances/SetIamPolicy.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.DataFusion.Projects.Locations.Instances.SetIamPolicy+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Sets the access control policy on the specified resource. Replaces any existing policy. Can return @NOT_FOUND@, @INVALID_ARGUMENT@, and @PERMISSION_DENIED@ errors.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.setIamPolicy@.+module Gogol.DataFusion.Projects.Locations.Instances.SetIamPolicy+  ( -- * Resource+    DataFusionProjectsLocationsInstancesSetIamPolicyResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsInstancesSetIamPolicy (..),+    newDataFusionProjectsLocationsInstancesSetIamPolicy,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.instances.setIamPolicy@ method which the+-- 'DataFusionProjectsLocationsInstancesSetIamPolicy' request conforms to.+type DataFusionProjectsLocationsInstancesSetIamPolicyResource =+  "v1"+    Core.:> Core.CaptureMode "resource" "setIamPolicy" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] SetIamPolicyRequest+    Core.:> Core.Post '[Core.JSON] Policy++-- | Sets the access control policy on the specified resource. Replaces any existing policy. Can return @NOT_FOUND@, @INVALID_ARGUMENT@, and @PERMISSION_DENIED@ errors.+--+-- /See:/ 'newDataFusionProjectsLocationsInstancesSetIamPolicy' smart constructor.+data DataFusionProjectsLocationsInstancesSetIamPolicy = DataFusionProjectsLocationsInstancesSetIamPolicy+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: SetIamPolicyRequest,+    -- | REQUIRED: The resource for which the policy is being specified. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field.+    resource :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataFusionProjectsLocationsInstancesSetIamPolicy' with the minimum fields required to make a request.+newDataFusionProjectsLocationsInstancesSetIamPolicy ::+  -- |  Multipart request metadata. See 'payload'.+  SetIamPolicyRequest ->+  -- |  REQUIRED: The resource for which the policy is being specified. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field. See 'resource'.+  Core.Text ->+  DataFusionProjectsLocationsInstancesSetIamPolicy+newDataFusionProjectsLocationsInstancesSetIamPolicy+  payload+  resource =+    DataFusionProjectsLocationsInstancesSetIamPolicy+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        payload = payload,+        resource = resource,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataFusionProjectsLocationsInstancesSetIamPolicy+  where+  type Rs DataFusionProjectsLocationsInstancesSetIamPolicy = Policy+  type+    Scopes DataFusionProjectsLocationsInstancesSetIamPolicy =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsInstancesSetIamPolicy {..} =+    go+      resource+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataFusionService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy+                DataFusionProjectsLocationsInstancesSetIamPolicyResource+          )+          Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Instances/TestIamPermissions.hs view
@@ -0,0 +1,128 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.DataFusion.Projects.Locations.Instances.TestIamPermissions+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns permissions that a caller has on the specified resource. If the resource does not exist, this will return an empty set of permissions, not a @NOT_FOUND@ error. Note: This operation is designed to be used for building permission-aware UIs and command-line tools, not for authorization checking. This operation may \"fail open\" without warning.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.testIamPermissions@.+module Gogol.DataFusion.Projects.Locations.Instances.TestIamPermissions+  ( -- * Resource+    DataFusionProjectsLocationsInstancesTestIamPermissionsResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsInstancesTestIamPermissions (..),+    newDataFusionProjectsLocationsInstancesTestIamPermissions,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.instances.testIamPermissions@ method which the+-- 'DataFusionProjectsLocationsInstancesTestIamPermissions' request conforms to.+type DataFusionProjectsLocationsInstancesTestIamPermissionsResource =+  "v1"+    Core.:> Core.CaptureMode "resource" "testIamPermissions" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] TestIamPermissionsRequest+    Core.:> Core.Post '[Core.JSON] TestIamPermissionsResponse++-- | Returns permissions that a caller has on the specified resource. If the resource does not exist, this will return an empty set of permissions, not a @NOT_FOUND@ error. Note: This operation is designed to be used for building permission-aware UIs and command-line tools, not for authorization checking. This operation may \"fail open\" without warning.+--+-- /See:/ 'newDataFusionProjectsLocationsInstancesTestIamPermissions' smart constructor.+data DataFusionProjectsLocationsInstancesTestIamPermissions = DataFusionProjectsLocationsInstancesTestIamPermissions+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: TestIamPermissionsRequest,+    -- | REQUIRED: The resource for which the policy detail is being requested. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field.+    resource :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataFusionProjectsLocationsInstancesTestIamPermissions' with the minimum fields required to make a request.+newDataFusionProjectsLocationsInstancesTestIamPermissions ::+  -- |  Multipart request metadata. See 'payload'.+  TestIamPermissionsRequest ->+  -- |  REQUIRED: The resource for which the policy detail is being requested. See <https://cloud.google.com/apis/design/resource_names Resource names> for the appropriate value for this field. See 'resource'.+  Core.Text ->+  DataFusionProjectsLocationsInstancesTestIamPermissions+newDataFusionProjectsLocationsInstancesTestIamPermissions+  payload+  resource =+    DataFusionProjectsLocationsInstancesTestIamPermissions+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        payload = payload,+        resource = resource,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataFusionProjectsLocationsInstancesTestIamPermissions+  where+  type+    Rs DataFusionProjectsLocationsInstancesTestIamPermissions =+      TestIamPermissionsResponse+  type+    Scopes DataFusionProjectsLocationsInstancesTestIamPermissions =+      '[CloudPlatform'FullControl]+  requestClient+    DataFusionProjectsLocationsInstancesTestIamPermissions {..} =+      go+        resource+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        dataFusionService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  DataFusionProjectsLocationsInstancesTestIamPermissionsResource+            )+            Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/List.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.DataFusion.Projects.Locations.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 information about the supported locations for this service.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.list@.+module Gogol.DataFusion.Projects.Locations.List+  ( -- * Resource+    DataFusionProjectsLocationsListResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsList (..),+    newDataFusionProjectsLocationsList,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.list@ method which the+-- 'DataFusionProjectsLocationsList' request conforms to.+type DataFusionProjectsLocationsListResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> "locations"+    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] ListLocationsResponse++-- | Lists information about the supported locations for this service.+--+-- /See:/ 'newDataFusionProjectsLocationsList' smart constructor.+data DataFusionProjectsLocationsList = DataFusionProjectsLocationsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | A filter to narrow down results to a preferred subset. The filtering language accepts strings like @\"displayName=tokyo\"@, and is documented in more detail in <https://google.aip.dev/160 AIP-160>.+    filter :: (Core.Maybe Core.Text),+    -- | The resource that owns the locations collection, if applicable.+    name :: Core.Text,+    -- | The maximum number of results to return. If not set, the service selects a default.+    pageSize :: (Core.Maybe Core.Int32),+    -- | A page token received from the @next_page_token@ field in the response. Send that page token to receive the subsequent page.+    pageToken :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataFusionProjectsLocationsList' with the minimum fields required to make a request.+newDataFusionProjectsLocationsList ::+  -- |  The resource that owns the locations collection, if applicable. See 'name'.+  Core.Text ->+  DataFusionProjectsLocationsList+newDataFusionProjectsLocationsList name =+  DataFusionProjectsLocationsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      name = name,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataFusionProjectsLocationsList where+  type Rs DataFusionProjectsLocationsList = ListLocationsResponse+  type+    Scopes DataFusionProjectsLocationsList =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsList {..} =+    go+      name+      xgafv+      accessToken+      callback+      filter+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataFusionService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataFusionProjectsLocationsListResource)+          Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Operations/Cancel.hs view
@@ -0,0 +1,121 @@+{-# 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.DataFusion.Projects.Locations.Operations.Cancel+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts asynchronous cancellation on a long-running operation. The server makes a best effort to cancel the operation, but success is not guaranteed. If the server doesn\'t support this method, it returns @google.rpc.Code.UNIMPLEMENTED@. Clients can use Operations.GetOperation or other methods to check whether the cancellation succeeded or whether the operation completed despite cancellation. On successful cancellation, the operation is not deleted; instead, it becomes an operation with an Operation.error value with a google.rpc.Status.code of @1@, corresponding to @Code.CANCELLED@.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.operations.cancel@.+module Gogol.DataFusion.Projects.Locations.Operations.Cancel+  ( -- * Resource+    DataFusionProjectsLocationsOperationsCancelResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsOperationsCancel (..),+    newDataFusionProjectsLocationsOperationsCancel,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.operations.cancel@ method which the+-- 'DataFusionProjectsLocationsOperationsCancel' request conforms to.+type DataFusionProjectsLocationsOperationsCancelResource =+  "v1"+    Core.:> Core.CaptureMode "name" "cancel" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] CancelOperationRequest+    Core.:> Core.Post '[Core.JSON] Empty++-- | Starts asynchronous cancellation on a long-running operation. The server makes a best effort to cancel the operation, but success is not guaranteed. If the server doesn\'t support this method, it returns @google.rpc.Code.UNIMPLEMENTED@. Clients can use Operations.GetOperation or other methods to check whether the cancellation succeeded or whether the operation completed despite cancellation. On successful cancellation, the operation is not deleted; instead, it becomes an operation with an Operation.error value with a google.rpc.Status.code of @1@, corresponding to @Code.CANCELLED@.+--+-- /See:/ 'newDataFusionProjectsLocationsOperationsCancel' smart constructor.+data DataFusionProjectsLocationsOperationsCancel = DataFusionProjectsLocationsOperationsCancel+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The name of the operation resource to be cancelled.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: CancelOperationRequest,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataFusionProjectsLocationsOperationsCancel' with the minimum fields required to make a request.+newDataFusionProjectsLocationsOperationsCancel ::+  -- |  The name of the operation resource to be cancelled. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CancelOperationRequest ->+  DataFusionProjectsLocationsOperationsCancel+newDataFusionProjectsLocationsOperationsCancel name payload =+  DataFusionProjectsLocationsOperationsCancel+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    DataFusionProjectsLocationsOperationsCancel+  where+  type Rs DataFusionProjectsLocationsOperationsCancel = Empty+  type+    Scopes DataFusionProjectsLocationsOperationsCancel =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsOperationsCancel {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataFusionService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataFusionProjectsLocationsOperationsCancelResource+          )+          Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Operations/Delete.hs view
@@ -0,0 +1,114 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.DataFusion.Projects.Locations.Operations.Delete+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a long-running operation. This method indicates that the client is no longer interested in the operation result. It does not cancel the operation. If the server doesn\'t support this method, it returns @google.rpc.Code.UNIMPLEMENTED@.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.operations.delete@.+module Gogol.DataFusion.Projects.Locations.Operations.Delete+  ( -- * Resource+    DataFusionProjectsLocationsOperationsDeleteResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsOperationsDelete (..),+    newDataFusionProjectsLocationsOperationsDelete,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.operations.delete@ method which the+-- 'DataFusionProjectsLocationsOperationsDelete' request conforms to.+type DataFusionProjectsLocationsOperationsDeleteResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] Empty++-- | Deletes a long-running operation. This method indicates that the client is no longer interested in the operation result. It does not cancel the operation. If the server doesn\'t support this method, it returns @google.rpc.Code.UNIMPLEMENTED@.+--+-- /See:/ 'newDataFusionProjectsLocationsOperationsDelete' smart constructor.+data DataFusionProjectsLocationsOperationsDelete = DataFusionProjectsLocationsOperationsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The name of the operation resource to be deleted.+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataFusionProjectsLocationsOperationsDelete' with the minimum fields required to make a request.+newDataFusionProjectsLocationsOperationsDelete ::+  -- |  The name of the operation resource to be deleted. See 'name'.+  Core.Text ->+  DataFusionProjectsLocationsOperationsDelete+newDataFusionProjectsLocationsOperationsDelete name =+  DataFusionProjectsLocationsOperationsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    DataFusionProjectsLocationsOperationsDelete+  where+  type Rs DataFusionProjectsLocationsOperationsDelete = Empty+  type+    Scopes DataFusionProjectsLocationsOperationsDelete =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsOperationsDelete {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataFusionService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataFusionProjectsLocationsOperationsDeleteResource+          )+          Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Operations/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.DataFusion.Projects.Locations.Operations.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the latest state of a long-running operation. Clients can use this method to poll the operation result at intervals as recommended by the API service.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.operations.get@.+module Gogol.DataFusion.Projects.Locations.Operations.Get+  ( -- * Resource+    DataFusionProjectsLocationsOperationsGetResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsOperationsGet (..),+    newDataFusionProjectsLocationsOperationsGet,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.operations.get@ method which the+-- 'DataFusionProjectsLocationsOperationsGet' request conforms to.+type DataFusionProjectsLocationsOperationsGetResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Operation++-- | Gets the latest state of a long-running operation. Clients can use this method to poll the operation result at intervals as recommended by the API service.+--+-- /See:/ 'newDataFusionProjectsLocationsOperationsGet' smart constructor.+data DataFusionProjectsLocationsOperationsGet = DataFusionProjectsLocationsOperationsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The name of the operation resource.+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataFusionProjectsLocationsOperationsGet' with the minimum fields required to make a request.+newDataFusionProjectsLocationsOperationsGet ::+  -- |  The name of the operation resource. See 'name'.+  Core.Text ->+  DataFusionProjectsLocationsOperationsGet+newDataFusionProjectsLocationsOperationsGet name =+  DataFusionProjectsLocationsOperationsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    DataFusionProjectsLocationsOperationsGet+  where+  type Rs DataFusionProjectsLocationsOperationsGet = Operation+  type+    Scopes DataFusionProjectsLocationsOperationsGet =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsOperationsGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataFusionService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataFusionProjectsLocationsOperationsGetResource+          )+          Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Operations/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.DataFusion.Projects.Locations.Operations.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists operations that match the specified filter in the request. If the server doesn\'t support this method, it returns @UNIMPLEMENTED@.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.operations.list@.+module Gogol.DataFusion.Projects.Locations.Operations.List+  ( -- * Resource+    DataFusionProjectsLocationsOperationsListResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsOperationsList (..),+    newDataFusionProjectsLocationsOperationsList,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.operations.list@ method which the+-- 'DataFusionProjectsLocationsOperationsList' request conforms to.+type DataFusionProjectsLocationsOperationsListResource =+  "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> "operations"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "filter" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListOperationsResponse++-- | Lists operations that match the specified filter in the request. If the server doesn\'t support this method, it returns @UNIMPLEMENTED@.+--+-- /See:/ 'newDataFusionProjectsLocationsOperationsList' smart constructor.+data DataFusionProjectsLocationsOperationsList = DataFusionProjectsLocationsOperationsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The standard list filter.+    filter :: (Core.Maybe Core.Text),+    -- | The name of the operation\'s parent resource.+    name :: Core.Text,+    -- | The standard list page size.+    pageSize :: (Core.Maybe Core.Int32),+    -- | The standard list page token.+    pageToken :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataFusionProjectsLocationsOperationsList' with the minimum fields required to make a request.+newDataFusionProjectsLocationsOperationsList ::+  -- |  The name of the operation\'s parent resource. See 'name'.+  Core.Text ->+  DataFusionProjectsLocationsOperationsList+newDataFusionProjectsLocationsOperationsList name =+  DataFusionProjectsLocationsOperationsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      name = name,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    DataFusionProjectsLocationsOperationsList+  where+  type+    Rs DataFusionProjectsLocationsOperationsList =+      ListOperationsResponse+  type+    Scopes DataFusionProjectsLocationsOperationsList =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsOperationsList {..} =+    go+      name+      xgafv+      accessToken+      callback+      filter+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataFusionService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataFusionProjectsLocationsOperationsListResource+          )+          Core.mempty
+ gen/Gogol/DataFusion/Projects/Locations/Versions/List.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.DataFusion.Projects.Locations.Versions.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 possible versions for Data Fusion instances in the specified project and location.+--+-- /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.versions.list@.+module Gogol.DataFusion.Projects.Locations.Versions.List+  ( -- * Resource+    DataFusionProjectsLocationsVersionsListResource,++    -- ** Constructing a Request+    DataFusionProjectsLocationsVersionsList (..),+    newDataFusionProjectsLocationsVersionsList,+  )+where++import Gogol.DataFusion.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datafusion.projects.locations.versions.list@ method which the+-- 'DataFusionProjectsLocationsVersionsList' request conforms to.+type DataFusionProjectsLocationsVersionsListResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "versions"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "latestPatchOnly" Core.Bool+    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] ListAvailableVersionsResponse++-- | Lists possible versions for Data Fusion instances in the specified project and location.+--+-- /See:/ 'newDataFusionProjectsLocationsVersionsList' smart constructor.+data DataFusionProjectsLocationsVersionsList = DataFusionProjectsLocationsVersionsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Whether or not to return the latest patch of every available minor version. If true, only the latest patch will be returned. Ex. if allowed versions is [6.1.1, 6.1.2, 6.2.0] then response will be [6.1.2, 6.2.0]+    latestPatchOnly :: (Core.Maybe Core.Bool),+    -- | The maximum number of items to return.+    pageSize :: (Core.Maybe Core.Int32),+    -- | The next/page/token value to use if there are additional results to retrieve for this list request.+    pageToken :: (Core.Maybe Core.Text),+    -- | Required. The project and location for which to retrieve instance information in the format projects\/{project}\/locations\/{location}.+    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 'DataFusionProjectsLocationsVersionsList' with the minimum fields required to make a request.+newDataFusionProjectsLocationsVersionsList ::+  -- |  Required. The project and location for which to retrieve instance information in the format projects\/{project}\/locations\/{location}. See 'parent'.+  Core.Text ->+  DataFusionProjectsLocationsVersionsList+newDataFusionProjectsLocationsVersionsList parent =+  DataFusionProjectsLocationsVersionsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      latestPatchOnly = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      parent = parent,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataFusionProjectsLocationsVersionsList where+  type+    Rs DataFusionProjectsLocationsVersionsList =+      ListAvailableVersionsResponse+  type+    Scopes DataFusionProjectsLocationsVersionsList =+      '[CloudPlatform'FullControl]+  requestClient DataFusionProjectsLocationsVersionsList {..} =+    go+      parent+      xgafv+      accessToken+      callback+      latestPatchOnly+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataFusionService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataFusionProjectsLocationsVersionsListResource+          )+          Core.mempty
+ gen/Gogol/DataFusion/Types.hs view
@@ -0,0 +1,248 @@+{-# 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.DataFusion.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.DataFusion.Types+  ( -- * Configuration+    dataFusionService,++    -- * OAuth Scopes+    CloudPlatform'FullControl,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** Accelerator+    Accelerator (..),+    newAccelerator,++    -- ** Accelerator_AcceleratorType+    Accelerator_AcceleratorType (..),++    -- ** Accelerator_State+    Accelerator_State (..),++    -- ** AuditConfig+    AuditConfig (..),+    newAuditConfig,++    -- ** AuditLogConfig+    AuditLogConfig (..),+    newAuditLogConfig,++    -- ** AuditLogConfig_LogType+    AuditLogConfig_LogType (..),++    -- ** Binding+    Binding (..),+    newBinding,++    -- ** CancelOperationRequest+    CancelOperationRequest (..),+    newCancelOperationRequest,++    -- ** CryptoKeyConfig+    CryptoKeyConfig (..),+    newCryptoKeyConfig,++    -- ** DnsPeering+    DnsPeering (..),+    newDnsPeering,++    -- ** Empty+    Empty (..),+    newEmpty,++    -- ** EventPublishConfig+    EventPublishConfig (..),+    newEventPublishConfig,++    -- ** Expr+    Expr (..),+    newExpr,++    -- ** Instance+    Instance (..),+    newInstance,++    -- ** Instance_DisabledReasonItem+    Instance_DisabledReasonItem (..),++    -- ** Instance_Labels+    Instance_Labels (..),+    newInstance_Labels,++    -- ** Instance_Options+    Instance_Options (..),+    newInstance_Options,++    -- ** Instance_State+    Instance_State (..),++    -- ** Instance_Type+    Instance_Type (..),++    -- ** ListAvailableVersionsResponse+    ListAvailableVersionsResponse (..),+    newListAvailableVersionsResponse,++    -- ** ListDnsPeeringsResponse+    ListDnsPeeringsResponse (..),+    newListDnsPeeringsResponse,++    -- ** ListInstancesResponse+    ListInstancesResponse (..),+    newListInstancesResponse,++    -- ** ListLocationsResponse+    ListLocationsResponse (..),+    newListLocationsResponse,++    -- ** ListOperationsResponse+    ListOperationsResponse (..),+    newListOperationsResponse,++    -- ** Location+    Location (..),+    newLocation,++    -- ** Location_Labels+    Location_Labels (..),+    newLocation_Labels,++    -- ** Location_Metadata+    Location_Metadata (..),+    newLocation_Metadata,++    -- ** LoggingConfig+    LoggingConfig (..),+    newLoggingConfig,++    -- ** MaintenanceEvent+    MaintenanceEvent (..),+    newMaintenanceEvent,++    -- ** MaintenanceEvent_State+    MaintenanceEvent_State (..),++    -- ** MaintenancePolicy+    MaintenancePolicy (..),+    newMaintenancePolicy,++    -- ** MaintenanceWindow+    MaintenanceWindow (..),+    newMaintenanceWindow,++    -- ** NetworkConfig+    NetworkConfig (..),+    newNetworkConfig,++    -- ** NetworkConfig_ConnectionType+    NetworkConfig_ConnectionType (..),++    -- ** Operation+    Operation (..),+    newOperation,++    -- ** Operation_Metadata+    Operation_Metadata (..),+    newOperation_Metadata,++    -- ** Operation_Response+    Operation_Response (..),+    newOperation_Response,++    -- ** OperationMetadata+    OperationMetadata (..),+    newOperationMetadata,++    -- ** OperationMetadata_AdditionalStatus+    OperationMetadata_AdditionalStatus (..),+    newOperationMetadata_AdditionalStatus,++    -- ** Policy+    Policy (..),+    newPolicy,++    -- ** PrivateServiceConnectConfig+    PrivateServiceConnectConfig (..),+    newPrivateServiceConnectConfig,++    -- ** RecurringTimeWindow+    RecurringTimeWindow (..),+    newRecurringTimeWindow,++    -- ** RestartInstanceRequest+    RestartInstanceRequest (..),+    newRestartInstanceRequest,++    -- ** SetIamPolicyRequest+    SetIamPolicyRequest (..),+    newSetIamPolicyRequest,++    -- ** Status+    Status (..),+    newStatus,++    -- ** Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- ** TestIamPermissionsRequest+    TestIamPermissionsRequest (..),+    newTestIamPermissionsRequest,++    -- ** TestIamPermissionsResponse+    TestIamPermissionsResponse (..),+    newTestIamPermissionsResponse,++    -- ** TimeWindow+    TimeWindow (..),+    newTimeWindow,++    -- ** Version+    Version (..),+    newVersion,++    -- ** Version_Type+    Version_Type (..),+  )+where++import Gogol.DataFusion.Internal.Product+import Gogol.DataFusion.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Default request referring to version @v1@ of the Cloud Data Fusion API. This contains the host and root path used as a starting point for constructing service requests.+dataFusionService :: Core.ServiceConfig+dataFusionService =+  Core.defaultService+    (Core.ServiceId "datafusion:v1")+    "datafusion.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/DataFusion.hs 
@@ -1,400 +0,0 @@-{-# LANGUAGE DataKinds         #-}-{-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE TypeOperators     #-}--{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- |--- Module      : Network.Google.DataFusion--- 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)------ Cloud Data Fusion is a fully-managed, cloud native, enterprise data--- integration service for quickly building and managing data pipelines. It--- provides a graphical interface to increase time efficiency and reduce--- complexity, and allows business users, developers, and data scientists--- to easily and reliably build scalable data integration solutions to--- cleanse, prepare, blend, transfer and transform data without having to--- wrestle with infrastructure.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference>-module Network.Google.DataFusion-    (-    -- * Service Configuration-      dataFusionService--    -- * OAuth Scopes-    , cloudPlatformScope--    -- * API Declaration-    , DataFusionAPI--    -- * Resources--    -- ** datafusion.projects.locations.get-    , module Network.Google.Resource.DataFusion.Projects.Locations.Get--    -- ** datafusion.projects.locations.instances.create-    , module Network.Google.Resource.DataFusion.Projects.Locations.Instances.Create--    -- ** datafusion.projects.locations.instances.delete-    , module Network.Google.Resource.DataFusion.Projects.Locations.Instances.Delete--    -- ** datafusion.projects.locations.instances.get-    , module Network.Google.Resource.DataFusion.Projects.Locations.Instances.Get--    -- ** datafusion.projects.locations.instances.getIamPolicy-    , module Network.Google.Resource.DataFusion.Projects.Locations.Instances.GetIAMPolicy--    -- ** datafusion.projects.locations.instances.list-    , module Network.Google.Resource.DataFusion.Projects.Locations.Instances.List--    -- ** datafusion.projects.locations.instances.patch-    , module Network.Google.Resource.DataFusion.Projects.Locations.Instances.Patch--    -- ** datafusion.projects.locations.instances.restart-    , module Network.Google.Resource.DataFusion.Projects.Locations.Instances.Restart--    -- ** datafusion.projects.locations.instances.setIamPolicy-    , module Network.Google.Resource.DataFusion.Projects.Locations.Instances.SetIAMPolicy--    -- ** datafusion.projects.locations.instances.testIamPermissions-    , module Network.Google.Resource.DataFusion.Projects.Locations.Instances.TestIAMPermissions--    -- ** datafusion.projects.locations.instances.upgrade-    , module Network.Google.Resource.DataFusion.Projects.Locations.Instances.Upgrade--    -- ** datafusion.projects.locations.list-    , module Network.Google.Resource.DataFusion.Projects.Locations.List--    -- ** datafusion.projects.locations.operations.cancel-    , module Network.Google.Resource.DataFusion.Projects.Locations.Operations.Cancel--    -- ** datafusion.projects.locations.operations.delete-    , module Network.Google.Resource.DataFusion.Projects.Locations.Operations.Delete--    -- ** datafusion.projects.locations.operations.get-    , module Network.Google.Resource.DataFusion.Projects.Locations.Operations.Get--    -- ** datafusion.projects.locations.operations.list-    , module Network.Google.Resource.DataFusion.Projects.Locations.Operations.List--    -- * Types--    -- ** InstanceLabels-    , InstanceLabels-    , instanceLabels-    , ilAddtional--    -- ** Status-    , Status-    , status-    , sDetails-    , sCode-    , sMessage--    -- ** OperationSchema-    , OperationSchema-    , operationSchema-    , osAddtional--    -- ** CounterOptions-    , CounterOptions-    , counterOptions-    , coField-    , coMetric--    -- ** AuditConfig-    , AuditConfig-    , auditConfig-    , acService-    , acAuditLogConfigs-    , acExemptedMembers--    -- ** CloudAuditOptionsLogName-    , CloudAuditOptionsLogName (..)--    -- ** Expr-    , Expr-    , expr-    , eLocation-    , eExpression-    , eTitle-    , eDescription--    -- ** ListLocationsResponse-    , ListLocationsResponse-    , listLocationsResponse-    , llrNextPageToken-    , llrLocations--    -- ** ListOperationsResponse-    , ListOperationsResponse-    , listOperationsResponse-    , lorNextPageToken-    , lorOperations--    -- ** CancelOperationRequest-    , CancelOperationRequest-    , cancelOperationRequest--    -- ** ConditionSys-    , ConditionSys (..)--    -- ** Location-    , Location-    , location-    , lName-    , lMetadata-    , lDisplayName-    , lLabels-    , lLocationId--    -- ** Operation-    , Operation-    , operation-    , oDone-    , oError-    , oResponse-    , oName-    , oMetadata--    -- ** Empty-    , Empty-    , empty--    -- ** RuleAction-    , RuleAction (..)--    -- ** StatusDetailsItem-    , StatusDetailsItem-    , statusDetailsItem-    , sdiAddtional--    -- ** Rule-    , Rule-    , rule-    , rAction-    , rIn-    , rNotIn-    , rConditions-    , rPermissions-    , rLogConfig-    , rDescription--    -- ** SetIAMPolicyRequest-    , SetIAMPolicyRequest-    , setIAMPolicyRequest-    , siprUpdateMask-    , siprPolicy--    -- ** InstanceType-    , InstanceType (..)--    -- ** NetworkConfig-    , NetworkConfig-    , networkConfig-    , ncNetwork-    , ncIPAllocation--    -- ** CloudAuditOptions-    , CloudAuditOptions-    , cloudAuditOptions-    , caoAuthorizationLoggingOptions-    , caoLogName--    -- ** ConditionOp-    , ConditionOp (..)--    -- ** DataAccessOptions-    , DataAccessOptions-    , dataAccessOptions-    , daoLogMode--    -- ** RestartInstanceRequest-    , RestartInstanceRequest-    , restartInstanceRequest--    -- ** AuditLogConfigLogType-    , AuditLogConfigLogType (..)--    -- ** Xgafv-    , Xgafv (..)--    -- ** TestIAMPermissionsRequest-    , TestIAMPermissionsRequest-    , testIAMPermissionsRequest-    , tiprPermissions--    -- ** TestIAMPermissionsResponse-    , TestIAMPermissionsResponse-    , testIAMPermissionsResponse-    , tiamprPermissions--    -- ** UpgradeInstanceRequest-    , UpgradeInstanceRequest-    , upgradeInstanceRequest--    -- ** AuthorizationLoggingOptions-    , AuthorizationLoggingOptions-    , authorizationLoggingOptions-    , aloPermissionType--    -- ** Policy-    , Policy-    , policy-    , pAuditConfigs-    , pEtag-    , pRules-    , pVersion-    , pBindings-    , pIAMOwned--    -- ** LocationLabels-    , LocationLabels-    , locationLabels-    , llAddtional--    -- ** LocationMetadata-    , LocationMetadata-    , locationMetadata-    , lmAddtional--    -- ** OperationMetadata-    , OperationMetadata-    , operationMetadata-    , omAPIVersion-    , omRequestedCancellation-    , omEndTime-    , omStatusDetail-    , omVerb-    , omTarget-    , omCreateTime--    -- ** DataAccessOptionsLogMode-    , DataAccessOptionsLogMode (..)--    -- ** AuditLogConfig-    , AuditLogConfig-    , auditLogConfig-    , alcLogType-    , alcExemptedMembers--    -- ** ListInstancesResponse-    , ListInstancesResponse-    , listInstancesResponse-    , lirNextPageToken-    , lirUnreachable-    , lirInstances--    -- ** AuthorizationLoggingOptionsPermissionType-    , AuthorizationLoggingOptionsPermissionType (..)--    -- ** Condition-    , Condition-    , condition-    , cOp-    , cIAM-    , cValues-    , cSys-    , cSvc--    -- ** InstanceState-    , InstanceState (..)--    -- ** ConditionIAM-    , ConditionIAM (..)--    -- ** OperationResponse-    , OperationResponse-    , operationResponse-    , orAddtional--    -- ** LogConfig-    , LogConfig-    , logConfig-    , lcCloudAudit-    , lcDataAccess-    , lcCounter--    -- ** InstanceOptions-    , InstanceOptions-    , instanceOptions-    , ioAddtional--    -- ** Binding-    , Binding-    , binding-    , bMembers-    , bRole-    , bCondition--    -- ** Instance-    , Instance-    , instance'-    , iStateMessage-    , iState-    , iEnableStackdriverLogging-    , iServiceEndpoint-    , iZone-    , iServiceAccount-    , iNetworkConfig-    , iUpdateTime-    , iPrivateInstance-    , iName-    , iVersion-    , iDisplayName-    , iEnableStackdriverMonitoring-    , iLabels-    , iOptions-    , iType-    , iDescription-    , iCreateTime-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude-import           Network.Google.Resource.DataFusion.Projects.Locations.Get-import           Network.Google.Resource.DataFusion.Projects.Locations.Instances.Create-import           Network.Google.Resource.DataFusion.Projects.Locations.Instances.Delete-import           Network.Google.Resource.DataFusion.Projects.Locations.Instances.Get-import           Network.Google.Resource.DataFusion.Projects.Locations.Instances.GetIAMPolicy-import           Network.Google.Resource.DataFusion.Projects.Locations.Instances.List-import           Network.Google.Resource.DataFusion.Projects.Locations.Instances.Patch-import           Network.Google.Resource.DataFusion.Projects.Locations.Instances.Restart-import           Network.Google.Resource.DataFusion.Projects.Locations.Instances.SetIAMPolicy-import           Network.Google.Resource.DataFusion.Projects.Locations.Instances.TestIAMPermissions-import           Network.Google.Resource.DataFusion.Projects.Locations.Instances.Upgrade-import           Network.Google.Resource.DataFusion.Projects.Locations.List-import           Network.Google.Resource.DataFusion.Projects.Locations.Operations.Cancel-import           Network.Google.Resource.DataFusion.Projects.Locations.Operations.Delete-import           Network.Google.Resource.DataFusion.Projects.Locations.Operations.Get-import           Network.Google.Resource.DataFusion.Projects.Locations.Operations.List--{- $resources-TODO--}---- | Represents the entirety of the methods and resources available for the Cloud Data Fusion API service.-type DataFusionAPI =-     ProjectsLocationsInstancesListResource :<|>-       ProjectsLocationsInstancesUpgradeResource-       :<|> ProjectsLocationsInstancesGetIAMPolicyResource-       :<|> ProjectsLocationsInstancesPatchResource-       :<|> ProjectsLocationsInstancesGetResource-       :<|> ProjectsLocationsInstancesCreateResource-       :<|> ProjectsLocationsInstancesSetIAMPolicyResource-       :<|> ProjectsLocationsInstancesRestartResource-       :<|>-       ProjectsLocationsInstancesTestIAMPermissionsResource-       :<|> ProjectsLocationsInstancesDeleteResource-       :<|> ProjectsLocationsOperationsListResource-       :<|> ProjectsLocationsOperationsGetResource-       :<|> ProjectsLocationsOperationsCancelResource-       :<|> ProjectsLocationsOperationsDeleteResource-       :<|> ProjectsLocationsListResource-       :<|> ProjectsLocationsGetResource
− gen/Network/Google/DataFusion/Types.hs 
@@ -1,308 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.DataFusion.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.DataFusion.Types-    (-    -- * Service Configuration-      dataFusionService--    -- * OAuth Scopes-    , cloudPlatformScope--    -- * InstanceLabels-    , InstanceLabels-    , instanceLabels-    , ilAddtional--    -- * Status-    , Status-    , status-    , sDetails-    , sCode-    , sMessage--    -- * OperationSchema-    , OperationSchema-    , operationSchema-    , osAddtional--    -- * CounterOptions-    , CounterOptions-    , counterOptions-    , coField-    , coMetric--    -- * AuditConfig-    , AuditConfig-    , auditConfig-    , acService-    , acAuditLogConfigs-    , acExemptedMembers--    -- * CloudAuditOptionsLogName-    , CloudAuditOptionsLogName (..)--    -- * Expr-    , Expr-    , expr-    , eLocation-    , eExpression-    , eTitle-    , eDescription--    -- * ListLocationsResponse-    , ListLocationsResponse-    , listLocationsResponse-    , llrNextPageToken-    , llrLocations--    -- * ListOperationsResponse-    , ListOperationsResponse-    , listOperationsResponse-    , lorNextPageToken-    , lorOperations--    -- * CancelOperationRequest-    , CancelOperationRequest-    , cancelOperationRequest--    -- * ConditionSys-    , ConditionSys (..)--    -- * Location-    , Location-    , location-    , lName-    , lMetadata-    , lDisplayName-    , lLabels-    , lLocationId--    -- * Operation-    , Operation-    , operation-    , oDone-    , oError-    , oResponse-    , oName-    , oMetadata--    -- * Empty-    , Empty-    , empty--    -- * RuleAction-    , RuleAction (..)--    -- * StatusDetailsItem-    , StatusDetailsItem-    , statusDetailsItem-    , sdiAddtional--    -- * Rule-    , Rule-    , rule-    , rAction-    , rIn-    , rNotIn-    , rConditions-    , rPermissions-    , rLogConfig-    , rDescription--    -- * SetIAMPolicyRequest-    , SetIAMPolicyRequest-    , setIAMPolicyRequest-    , siprUpdateMask-    , siprPolicy--    -- * InstanceType-    , InstanceType (..)--    -- * NetworkConfig-    , NetworkConfig-    , networkConfig-    , ncNetwork-    , ncIPAllocation--    -- * CloudAuditOptions-    , CloudAuditOptions-    , cloudAuditOptions-    , caoAuthorizationLoggingOptions-    , caoLogName--    -- * ConditionOp-    , ConditionOp (..)--    -- * DataAccessOptions-    , DataAccessOptions-    , dataAccessOptions-    , daoLogMode--    -- * RestartInstanceRequest-    , RestartInstanceRequest-    , restartInstanceRequest--    -- * AuditLogConfigLogType-    , AuditLogConfigLogType (..)--    -- * Xgafv-    , Xgafv (..)--    -- * TestIAMPermissionsRequest-    , TestIAMPermissionsRequest-    , testIAMPermissionsRequest-    , tiprPermissions--    -- * TestIAMPermissionsResponse-    , TestIAMPermissionsResponse-    , testIAMPermissionsResponse-    , tiamprPermissions--    -- * UpgradeInstanceRequest-    , UpgradeInstanceRequest-    , upgradeInstanceRequest--    -- * AuthorizationLoggingOptions-    , AuthorizationLoggingOptions-    , authorizationLoggingOptions-    , aloPermissionType--    -- * Policy-    , Policy-    , policy-    , pAuditConfigs-    , pEtag-    , pRules-    , pVersion-    , pBindings-    , pIAMOwned--    -- * LocationLabels-    , LocationLabels-    , locationLabels-    , llAddtional--    -- * LocationMetadata-    , LocationMetadata-    , locationMetadata-    , lmAddtional--    -- * OperationMetadata-    , OperationMetadata-    , operationMetadata-    , omAPIVersion-    , omRequestedCancellation-    , omEndTime-    , omStatusDetail-    , omVerb-    , omTarget-    , omCreateTime--    -- * DataAccessOptionsLogMode-    , DataAccessOptionsLogMode (..)--    -- * AuditLogConfig-    , AuditLogConfig-    , auditLogConfig-    , alcLogType-    , alcExemptedMembers--    -- * ListInstancesResponse-    , ListInstancesResponse-    , listInstancesResponse-    , lirNextPageToken-    , lirUnreachable-    , lirInstances--    -- * AuthorizationLoggingOptionsPermissionType-    , AuthorizationLoggingOptionsPermissionType (..)--    -- * Condition-    , Condition-    , condition-    , cOp-    , cIAM-    , cValues-    , cSys-    , cSvc--    -- * InstanceState-    , InstanceState (..)--    -- * ConditionIAM-    , ConditionIAM (..)--    -- * OperationResponse-    , OperationResponse-    , operationResponse-    , orAddtional--    -- * LogConfig-    , LogConfig-    , logConfig-    , lcCloudAudit-    , lcDataAccess-    , lcCounter--    -- * InstanceOptions-    , InstanceOptions-    , instanceOptions-    , ioAddtional--    -- * Binding-    , Binding-    , binding-    , bMembers-    , bRole-    , bCondition--    -- * Instance-    , Instance-    , instance'-    , iStateMessage-    , iState-    , iEnableStackdriverLogging-    , iServiceEndpoint-    , iZone-    , iServiceAccount-    , iNetworkConfig-    , iUpdateTime-    , iPrivateInstance-    , iName-    , iVersion-    , iDisplayName-    , iEnableStackdriverMonitoring-    , iLabels-    , iOptions-    , iType-    , iDescription-    , iCreateTime-    ) where--import           Network.Google.DataFusion.Types.Product-import           Network.Google.DataFusion.Types.Sum-import           Network.Google.Prelude---- | Default request referring to version 'v1beta1' of the Cloud Data Fusion API. This contains the host and root path used as a starting point for constructing service requests.-dataFusionService :: ServiceConfig-dataFusionService-  = defaultService (ServiceId "datafusion:v1beta1")-      "datafusion.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/DataFusion/Types/Product.hs 
@@ -1,2258 +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.DataFusion.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.DataFusion.Types.Product where--import           Network.Google.DataFusion.Types.Sum-import           Network.Google.Prelude---- | The resource labels for instance to use to annotate any related--- underlying resources such as GCE VMs. The character \'=\' is not allowed--- to be used within the labels.------ /See:/ 'instanceLabels' smart constructor.-newtype InstanceLabels =-  InstanceLabels'-    { _ilAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'InstanceLabels' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ilAddtional'-instanceLabels-    :: HashMap Text Text -- ^ 'ilAddtional'-    -> InstanceLabels-instanceLabels pIlAddtional_ =-  InstanceLabels' {_ilAddtional = _Coerce # pIlAddtional_}---ilAddtional :: Lens' InstanceLabels (HashMap Text Text)-ilAddtional-  = lens _ilAddtional (\ s a -> s{_ilAddtional = a}) .-      _Coerce--instance FromJSON InstanceLabels where-        parseJSON-          = withObject "InstanceLabels"-              (\ o -> InstanceLabels' <$> (parseJSONObject o))--instance ToJSON InstanceLabels where-        toJSON = toJSON . _ilAddtional---- | The \`Status\` type defines a logical error model that is suitable for--- different programming environments, including REST APIs and RPC APIs. It--- is used by [gRPC](https:\/\/github.com\/grpc). The error model is--- designed to be: - Simple to use and understand for most users - Flexible--- enough to meet unexpected needs # Overview The \`Status\` message--- contains three pieces of data: error code, error message, and error--- details. The error code should be an enum value of google.rpc.Code, but--- it may accept additional error codes if needed. The error message should--- be a developer-facing English message that helps developers *understand*--- and *resolve* the error. If a localized user-facing error message is--- needed, put the localized message in the error details or localize it in--- the client. The optional error details may contain arbitrary information--- about the error. There is a predefined set of error detail types in the--- package \`google.rpc\` that can be used for common error conditions. #--- Language mapping The \`Status\` message is the logical representation of--- the error model, but it is not necessarily the actual wire format. When--- the \`Status\` message is exposed in different client libraries and--- different wire protocols, it can be mapped differently. For example, it--- will likely be mapped to some exceptions in Java, but more likely mapped--- to some error codes in C. # Other uses The error model and the--- \`Status\` message can be used in a variety of environments, either with--- or without APIs, to provide a consistent developer experience across--- different environments. Example uses of this error model include: ---- Partial errors. If a service needs to return partial errors to the--- client, it may embed the \`Status\` in the normal response to indicate--- the partial errors. - Workflow errors. A typical workflow has multiple--- steps. Each step may have a \`Status\` message for error reporting. ---- Batch operations. If a client uses batch request and batch response, the--- \`Status\` message should be used directly inside batch response, one--- for each error sub-response. - Asynchronous operations. If an API call--- embeds asynchronous operation results in its response, the status of--- those operations should be represented directly using the \`Status\`--- message. - Logging. If some API errors are stored in logs, the message--- \`Status\` could be used directly after any stripping needed for--- security\/privacy reasons.------ /See:/ 'status' smart constructor.-data Status =-  Status'-    { _sDetails :: !(Maybe [StatusDetailsItem])-    , _sCode    :: !(Maybe (Textual Int32))-    , _sMessage :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Status' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sDetails'------ * 'sCode'------ * 'sMessage'-status-    :: Status-status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing}----- | A list of messages that carry the error details. There is a common set--- of message types for APIs to use.-sDetails :: Lens' Status [StatusDetailsItem]-sDetails-  = lens _sDetails (\ s a -> s{_sDetails = a}) .-      _Default-      . _Coerce---- | The status code, which should be an enum value of google.rpc.Code.-sCode :: Lens' Status (Maybe Int32)-sCode-  = lens _sCode (\ s a -> s{_sCode = a}) .-      mapping _Coerce---- | A developer-facing error message, which should be in English. Any--- user-facing error message should be localized and sent in the--- google.rpc.Status.details field, or localized by the client.-sMessage :: Lens' Status (Maybe Text)-sMessage = lens _sMessage (\ s a -> s{_sMessage = a})--instance FromJSON Status where-        parseJSON-          = withObject "Status"-              (\ o ->-                 Status' <$>-                   (o .:? "details" .!= mempty) <*> (o .:? "code") <*>-                     (o .:? "message"))--instance ToJSON Status where-        toJSON Status'{..}-          = object-              (catMaybes-                 [("details" .=) <$> _sDetails,-                  ("code" .=) <$> _sCode,-                  ("message" .=) <$> _sMessage])---- | Service-specific metadata associated with the operation. It typically--- contains progress information and common metadata such as create time.--- Some services might not provide such metadata. Any method that returns a--- long-running operation should document the metadata type, if any.------ /See:/ 'operationSchema' smart constructor.-newtype OperationSchema =-  OperationSchema'-    { _osAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OperationSchema' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'osAddtional'-operationSchema-    :: HashMap Text JSONValue -- ^ 'osAddtional'-    -> OperationSchema-operationSchema pOsAddtional_ =-  OperationSchema' {_osAddtional = _Coerce # pOsAddtional_}----- | Properties of the object. Contains field \'type with type URL.-osAddtional :: Lens' OperationSchema (HashMap Text JSONValue)-osAddtional-  = lens _osAddtional (\ s a -> s{_osAddtional = a}) .-      _Coerce--instance FromJSON OperationSchema where-        parseJSON-          = withObject "OperationSchema"-              (\ o -> OperationSchema' <$> (parseJSONObject o))--instance ToJSON OperationSchema where-        toJSON = toJSON . _osAddtional---- | Increment a streamz counter with the specified metric and field names.--- Metric names should start with a \'\/\', generally be lowercase-only,--- and end in \"_count\". Field names should not contain an initial slash.--- The actual exported metric names will have \"\/iam\/policy\" prepended.--- Field names correspond to IAM request parameters and field values are--- their respective values. Supported field names: - \"authority\", which--- is \"[token]\" if IAMContext.token is present, otherwise the value of--- IAMContext.authority_selector if present, and otherwise a representation--- of IAMContext.principal; or - \"iam_principal\", a representation of--- IAMContext.principal even if a token or authority selector is present;--- or - \"\" (empty string), resulting in a counter with no fields.--- Examples: counter { metric: \"\/debug_access_count\" field:--- \"iam_principal\" } ==> increment counter--- \/iam\/policy\/backend_debug_access_count {iam_principal=[value of--- IAMContext.principal]} At this time we do not support multiple field--- names (though this may be supported in the future).------ /See:/ 'counterOptions' smart constructor.-data CounterOptions =-  CounterOptions'-    { _coField  :: !(Maybe Text)-    , _coMetric :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CounterOptions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'coField'------ * 'coMetric'-counterOptions-    :: CounterOptions-counterOptions = CounterOptions' {_coField = Nothing, _coMetric = Nothing}----- | The field value to attribute.-coField :: Lens' CounterOptions (Maybe Text)-coField = lens _coField (\ s a -> s{_coField = a})---- | The metric to update.-coMetric :: Lens' CounterOptions (Maybe Text)-coMetric = lens _coMetric (\ s a -> s{_coMetric = a})--instance FromJSON CounterOptions where-        parseJSON-          = withObject "CounterOptions"-              (\ o ->-                 CounterOptions' <$>-                   (o .:? "field") <*> (o .:? "metric"))--instance ToJSON CounterOptions where-        toJSON CounterOptions'{..}-          = object-              (catMaybes-                 [("field" .=) <$> _coField,-                  ("metric" .=) <$> _coMetric])---- | Specifies the audit configuration for a service. The configuration--- determines which permission types are logged, and what identities, if--- any, are exempted from logging. An AuditConfig must have one or more--- AuditLogConfigs. If there are AuditConfigs for both \`allServices\` and--- a specific service, the union of the two AuditConfigs is used for that--- service: the log_types specified in each AuditConfig are enabled, and--- the exempted_members in each AuditLogConfig are exempted. Example Policy--- with multiple AuditConfigs: { \"audit_configs\": [ { \"service\":--- \"allServices\" \"audit_log_configs\": [ { \"log_type\": \"DATA_READ\",--- \"exempted_members\": [ \"user:foo\'gmail.com\" ] }, { \"log_type\":--- \"DATA_WRITE\", }, { \"log_type\": \"ADMIN_READ\", } ] }, { \"service\":--- \"fooservice.googleapis.com\" \"audit_log_configs\": [ { \"log_type\":--- \"DATA_READ\", }, { \"log_type\": \"DATA_WRITE\", \"exempted_members\":--- [ \"user:bar\'gmail.com\" ] } ] } ] } For fooservice, this policy--- enables DATA_READ, DATA_WRITE and ADMIN_READ logging. It also exempts--- foo\'gmail.com from DATA_READ logging, and bar\'gmail.com from--- DATA_WRITE logging.------ /See:/ 'auditConfig' smart constructor.-data AuditConfig =-  AuditConfig'-    { _acService         :: !(Maybe Text)-    , _acAuditLogConfigs :: !(Maybe [AuditLogConfig])-    , _acExemptedMembers :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AuditConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'acService'------ * 'acAuditLogConfigs'------ * 'acExemptedMembers'-auditConfig-    :: AuditConfig-auditConfig =-  AuditConfig'-    { _acService = Nothing-    , _acAuditLogConfigs = Nothing-    , _acExemptedMembers = Nothing-    }----- | Specifies a service that will be enabled for audit logging. For example,--- \`storage.googleapis.com\`, \`cloudsql.googleapis.com\`. \`allServices\`--- is a special value that covers all services.-acService :: Lens' AuditConfig (Maybe Text)-acService-  = lens _acService (\ s a -> s{_acService = a})---- | The configuration for logging of each type of permission.-acAuditLogConfigs :: Lens' AuditConfig [AuditLogConfig]-acAuditLogConfigs-  = lens _acAuditLogConfigs-      (\ s a -> s{_acAuditLogConfigs = a})-      . _Default-      . _Coerce--acExemptedMembers :: Lens' AuditConfig [Text]-acExemptedMembers-  = lens _acExemptedMembers-      (\ s a -> s{_acExemptedMembers = a})-      . _Default-      . _Coerce--instance FromJSON AuditConfig where-        parseJSON-          = withObject "AuditConfig"-              (\ o ->-                 AuditConfig' <$>-                   (o .:? "service") <*>-                     (o .:? "auditLogConfigs" .!= mempty)-                     <*> (o .:? "exemptedMembers" .!= mempty))--instance ToJSON AuditConfig where-        toJSON AuditConfig'{..}-          = object-              (catMaybes-                 [("service" .=) <$> _acService,-                  ("auditLogConfigs" .=) <$> _acAuditLogConfigs,-                  ("exemptedMembers" .=) <$> _acExemptedMembers])---- | Represents an expression text. Example: title: \"User account presence\"--- description: \"Determines whether the request has a user account\"--- expression: \"size(request.user) > 0\"------ /See:/ 'expr' smart constructor.-data Expr =-  Expr'-    { _eLocation    :: !(Maybe Text)-    , _eExpression  :: !(Maybe Text)-    , _eTitle       :: !(Maybe Text)-    , _eDescription :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Expr' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eLocation'------ * 'eExpression'------ * 'eTitle'------ * 'eDescription'-expr-    :: Expr-expr =-  Expr'-    { _eLocation = Nothing-    , _eExpression = Nothing-    , _eTitle = Nothing-    , _eDescription = Nothing-    }----- | An optional string indicating the location of the expression for error--- reporting, e.g. a file name and a position in the file.-eLocation :: Lens' Expr (Maybe Text)-eLocation-  = lens _eLocation (\ s a -> s{_eLocation = a})---- | Textual representation of an expression in Common Expression Language--- syntax. The application context of the containing message determines--- which well-known feature set of CEL is supported.-eExpression :: Lens' Expr (Maybe Text)-eExpression-  = lens _eExpression (\ s a -> s{_eExpression = a})---- | An optional title for the expression, i.e. a short string describing its--- purpose. This can be used e.g. in UIs which allow to enter the--- expression.-eTitle :: Lens' Expr (Maybe Text)-eTitle = lens _eTitle (\ s a -> s{_eTitle = a})---- | An optional description of the expression. This is a longer text which--- describes the expression, e.g. when hovered over it in a UI.-eDescription :: Lens' Expr (Maybe Text)-eDescription-  = lens _eDescription (\ s a -> s{_eDescription = a})--instance FromJSON Expr where-        parseJSON-          = withObject "Expr"-              (\ o ->-                 Expr' <$>-                   (o .:? "location") <*> (o .:? "expression") <*>-                     (o .:? "title")-                     <*> (o .:? "description"))--instance ToJSON Expr where-        toJSON Expr'{..}-          = object-              (catMaybes-                 [("location" .=) <$> _eLocation,-                  ("expression" .=) <$> _eExpression,-                  ("title" .=) <$> _eTitle,-                  ("description" .=) <$> _eDescription])---- | The response message for Locations.ListLocations.------ /See:/ 'listLocationsResponse' smart constructor.-data ListLocationsResponse =-  ListLocationsResponse'-    { _llrNextPageToken :: !(Maybe Text)-    , _llrLocations     :: !(Maybe [Location])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListLocationsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'llrNextPageToken'------ * 'llrLocations'-listLocationsResponse-    :: ListLocationsResponse-listLocationsResponse =-  ListLocationsResponse' {_llrNextPageToken = Nothing, _llrLocations = Nothing}----- | The standard List next-page token.-llrNextPageToken :: Lens' ListLocationsResponse (Maybe Text)-llrNextPageToken-  = lens _llrNextPageToken-      (\ s a -> s{_llrNextPageToken = a})---- | A list of locations that matches the specified filter in the request.-llrLocations :: Lens' ListLocationsResponse [Location]-llrLocations-  = lens _llrLocations (\ s a -> s{_llrLocations = a})-      . _Default-      . _Coerce--instance FromJSON ListLocationsResponse where-        parseJSON-          = withObject "ListLocationsResponse"-              (\ o ->-                 ListLocationsResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "locations" .!= mempty))--instance ToJSON ListLocationsResponse where-        toJSON ListLocationsResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _llrNextPageToken,-                  ("locations" .=) <$> _llrLocations])---- | The response message for Operations.ListOperations.------ /See:/ 'listOperationsResponse' smart constructor.-data ListOperationsResponse =-  ListOperationsResponse'-    { _lorNextPageToken :: !(Maybe Text)-    , _lorOperations    :: !(Maybe [Operation])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListOperationsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lorNextPageToken'------ * 'lorOperations'-listOperationsResponse-    :: ListOperationsResponse-listOperationsResponse =-  ListOperationsResponse'-    {_lorNextPageToken = Nothing, _lorOperations = Nothing}----- | The standard List next-page token.-lorNextPageToken :: Lens' ListOperationsResponse (Maybe Text)-lorNextPageToken-  = lens _lorNextPageToken-      (\ s a -> s{_lorNextPageToken = a})---- | A list of operations that matches the specified filter in the request.-lorOperations :: Lens' ListOperationsResponse [Operation]-lorOperations-  = lens _lorOperations-      (\ s a -> s{_lorOperations = a})-      . _Default-      . _Coerce--instance FromJSON ListOperationsResponse where-        parseJSON-          = withObject "ListOperationsResponse"-              (\ o ->-                 ListOperationsResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "operations" .!= mempty))--instance ToJSON ListOperationsResponse where-        toJSON ListOperationsResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _lorNextPageToken,-                  ("operations" .=) <$> _lorOperations])---- | The request message for Operations.CancelOperation.------ /See:/ 'cancelOperationRequest' smart constructor.-data CancelOperationRequest =-  CancelOperationRequest'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CancelOperationRequest' with the minimum fields required to make a request.----cancelOperationRequest-    :: CancelOperationRequest-cancelOperationRequest = CancelOperationRequest'---instance FromJSON CancelOperationRequest where-        parseJSON-          = withObject "CancelOperationRequest"-              (\ o -> pure CancelOperationRequest')--instance ToJSON CancelOperationRequest where-        toJSON = const emptyObject---- | A resource that represents Google Cloud Platform location.------ /See:/ 'location' smart constructor.-data Location =-  Location'-    { _lName        :: !(Maybe Text)-    , _lMetadata    :: !(Maybe LocationMetadata)-    , _lDisplayName :: !(Maybe Text)-    , _lLabels      :: !(Maybe LocationLabels)-    , _lLocationId  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Location' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lName'------ * 'lMetadata'------ * 'lDisplayName'------ * 'lLabels'------ * 'lLocationId'-location-    :: Location-location =-  Location'-    { _lName = Nothing-    , _lMetadata = Nothing-    , _lDisplayName = Nothing-    , _lLabels = Nothing-    , _lLocationId = Nothing-    }----- | Resource name for the location, which may vary between implementations.--- For example: \`\"projects\/example-project\/locations\/us-east1\"\`-lName :: Lens' Location (Maybe Text)-lName = lens _lName (\ s a -> s{_lName = a})---- | Service-specific metadata. For example the available capacity at the--- given location.-lMetadata :: Lens' Location (Maybe LocationMetadata)-lMetadata-  = lens _lMetadata (\ s a -> s{_lMetadata = a})---- | The friendly name for this location, typically a nearby city name. For--- example, \"Tokyo\".-lDisplayName :: Lens' Location (Maybe Text)-lDisplayName-  = lens _lDisplayName (\ s a -> s{_lDisplayName = a})---- | Cross-service attributes for the location. For example--- {\"cloud.googleapis.com\/region\": \"us-east1\"}-lLabels :: Lens' Location (Maybe LocationLabels)-lLabels = lens _lLabels (\ s a -> s{_lLabels = a})---- | The canonical id for this location. For example: \`\"us-east1\"\`.-lLocationId :: Lens' Location (Maybe Text)-lLocationId-  = lens _lLocationId (\ s a -> s{_lLocationId = a})--instance FromJSON Location where-        parseJSON-          = withObject "Location"-              (\ o ->-                 Location' <$>-                   (o .:? "name") <*> (o .:? "metadata") <*>-                     (o .:? "displayName")-                     <*> (o .:? "labels")-                     <*> (o .:? "locationId"))--instance ToJSON Location where-        toJSON Location'{..}-          = object-              (catMaybes-                 [("name" .=) <$> _lName,-                  ("metadata" .=) <$> _lMetadata,-                  ("displayName" .=) <$> _lDisplayName,-                  ("labels" .=) <$> _lLabels,-                  ("locationId" .=) <$> _lLocationId])---- | This resource represents a long-running operation that is the result of--- a network API call.------ /See:/ 'operation' smart constructor.-data Operation =-  Operation'-    { _oDone     :: !(Maybe Bool)-    , _oError    :: !(Maybe Status)-    , _oResponse :: !(Maybe OperationResponse)-    , _oName     :: !(Maybe Text)-    , _oMetadata :: !(Maybe OperationSchema)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Operation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oDone'------ * 'oError'------ * 'oResponse'------ * 'oName'------ * 'oMetadata'-operation-    :: Operation-operation =-  Operation'-    { _oDone = Nothing-    , _oError = Nothing-    , _oResponse = Nothing-    , _oName = Nothing-    , _oMetadata = Nothing-    }----- | If the value is \`false\`, it means the operation is still in progress.--- If \`true\`, the operation is completed, and either \`error\` or--- \`response\` is available.-oDone :: Lens' Operation (Maybe Bool)-oDone = lens _oDone (\ s a -> s{_oDone = a})---- | The error result of the operation in case of failure or cancellation.-oError :: Lens' Operation (Maybe Status)-oError = lens _oError (\ s a -> s{_oError = a})---- | The normal response of the operation in case of success. If the original--- method returns no data on success, such as \`Delete\`, the response is--- \`google.protobuf.Empty\`. If the original method is standard--- \`Get\`\/\`Create\`\/\`Update\`, the response should be the resource.--- For other methods, the response should have the type \`XxxResponse\`,--- where \`Xxx\` is the original method name. For example, if the original--- method name is \`TakeSnapshot()\`, the inferred response type is--- \`TakeSnapshotResponse\`.-oResponse :: Lens' Operation (Maybe OperationResponse)-oResponse-  = lens _oResponse (\ s a -> s{_oResponse = a})---- | The server-assigned name, which is only unique within the same service--- that originally returns it. If you use the default HTTP mapping, the--- \`name\` should have the format of \`operations\/some\/unique\/name\`.-oName :: Lens' Operation (Maybe Text)-oName = lens _oName (\ s a -> s{_oName = a})---- | Service-specific metadata associated with the operation. It typically--- contains progress information and common metadata such as create time.--- Some services might not provide such metadata. Any method that returns a--- long-running operation should document the metadata type, if any.-oMetadata :: Lens' Operation (Maybe OperationSchema)-oMetadata-  = lens _oMetadata (\ s a -> s{_oMetadata = a})--instance FromJSON Operation where-        parseJSON-          = withObject "Operation"-              (\ o ->-                 Operation' <$>-                   (o .:? "done") <*> (o .:? "error") <*>-                     (o .:? "response")-                     <*> (o .:? "name")-                     <*> (o .:? "metadata"))--instance ToJSON Operation where-        toJSON Operation'{..}-          = object-              (catMaybes-                 [("done" .=) <$> _oDone, ("error" .=) <$> _oError,-                  ("response" .=) <$> _oResponse,-                  ("name" .=) <$> _oName,-                  ("metadata" .=) <$> _oMetadata])---- | A generic empty message that you can re-use to avoid defining duplicated--- empty messages in your APIs. A typical example is to use it as the--- request or the response type of an API method. For instance: service Foo--- { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); } The--- JSON representation for \`Empty\` is empty JSON object \`{}\`.------ /See:/ 'empty' smart constructor.-data Empty =-  Empty'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Empty' with the minimum fields required to make a request.----empty-    :: Empty-empty = Empty'---instance FromJSON Empty where-        parseJSON = withObject "Empty" (\ o -> pure Empty')--instance ToJSON Empty where-        toJSON = const emptyObject------- /See:/ 'statusDetailsItem' smart constructor.-newtype StatusDetailsItem =-  StatusDetailsItem'-    { _sdiAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sdiAddtional'-statusDetailsItem-    :: HashMap Text JSONValue -- ^ 'sdiAddtional'-    -> StatusDetailsItem-statusDetailsItem pSdiAddtional_ =-  StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_}----- | Properties of the object. Contains field \'type with type URL.-sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue)-sdiAddtional-  = lens _sdiAddtional (\ s a -> s{_sdiAddtional = a})-      . _Coerce--instance FromJSON StatusDetailsItem where-        parseJSON-          = withObject "StatusDetailsItem"-              (\ o -> StatusDetailsItem' <$> (parseJSONObject o))--instance ToJSON StatusDetailsItem where-        toJSON = toJSON . _sdiAddtional---- | A rule to be applied in a Policy.------ /See:/ 'rule' smart constructor.-data Rule =-  Rule'-    { _rAction      :: !(Maybe RuleAction)-    , _rIn          :: !(Maybe [Text])-    , _rNotIn       :: !(Maybe [Text])-    , _rConditions  :: !(Maybe [Condition])-    , _rPermissions :: !(Maybe [Text])-    , _rLogConfig   :: !(Maybe [LogConfig])-    , _rDescription :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Rule' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rAction'------ * 'rIn'------ * 'rNotIn'------ * 'rConditions'------ * 'rPermissions'------ * 'rLogConfig'------ * 'rDescription'-rule-    :: Rule-rule =-  Rule'-    { _rAction = Nothing-    , _rIn = Nothing-    , _rNotIn = Nothing-    , _rConditions = Nothing-    , _rPermissions = Nothing-    , _rLogConfig = Nothing-    , _rDescription = Nothing-    }----- | Required-rAction :: Lens' Rule (Maybe RuleAction)-rAction = lens _rAction (\ s a -> s{_rAction = a})---- | If one or more \'in\' clauses are specified, the rule matches if the--- PRINCIPAL\/AUTHORITY_SELECTOR is in at least one of these entries.-rIn :: Lens' Rule [Text]-rIn-  = lens _rIn (\ s a -> s{_rIn = a}) . _Default .-      _Coerce---- | If one or more \'not_in\' clauses are specified, the rule matches if the--- PRINCIPAL\/AUTHORITY_SELECTOR is in none of the entries. The format for--- in and not_in entries can be found at in the Local IAM documentation--- (see go\/local-iam#features).-rNotIn :: Lens' Rule [Text]-rNotIn-  = lens _rNotIn (\ s a -> s{_rNotIn = a}) . _Default .-      _Coerce---- | Additional restrictions that must be met. All conditions must pass for--- the rule to match.-rConditions :: Lens' Rule [Condition]-rConditions-  = lens _rConditions (\ s a -> s{_rConditions = a}) .-      _Default-      . _Coerce---- | A permission is a string of form \'..\' (e.g.,--- \'storage.buckets.list\'). A value of \'*\' matches all permissions, and--- a verb part of \'*\' (e.g., \'storage.buckets.*\') matches all verbs.-rPermissions :: Lens' Rule [Text]-rPermissions-  = lens _rPermissions (\ s a -> s{_rPermissions = a})-      . _Default-      . _Coerce---- | The config returned to callers of tech.iam.IAM.CheckPolicy for any--- entries that match the LOG action.-rLogConfig :: Lens' Rule [LogConfig]-rLogConfig-  = lens _rLogConfig (\ s a -> s{_rLogConfig = a}) .-      _Default-      . _Coerce---- | Human-readable description of the rule.-rDescription :: Lens' Rule (Maybe Text)-rDescription-  = lens _rDescription (\ s a -> s{_rDescription = a})--instance FromJSON Rule where-        parseJSON-          = withObject "Rule"-              (\ o ->-                 Rule' <$>-                   (o .:? "action") <*> (o .:? "in" .!= mempty) <*>-                     (o .:? "notIn" .!= mempty)-                     <*> (o .:? "conditions" .!= mempty)-                     <*> (o .:? "permissions" .!= mempty)-                     <*> (o .:? "logConfig" .!= mempty)-                     <*> (o .:? "description"))--instance ToJSON Rule where-        toJSON Rule'{..}-          = object-              (catMaybes-                 [("action" .=) <$> _rAction, ("in" .=) <$> _rIn,-                  ("notIn" .=) <$> _rNotIn,-                  ("conditions" .=) <$> _rConditions,-                  ("permissions" .=) <$> _rPermissions,-                  ("logConfig" .=) <$> _rLogConfig,-                  ("description" .=) <$> _rDescription])---- | Request message for \`SetIamPolicy\` method.------ /See:/ 'setIAMPolicyRequest' smart constructor.-data SetIAMPolicyRequest =-  SetIAMPolicyRequest'-    { _siprUpdateMask :: !(Maybe GFieldMask)-    , _siprPolicy     :: !(Maybe Policy)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SetIAMPolicyRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'siprUpdateMask'------ * 'siprPolicy'-setIAMPolicyRequest-    :: SetIAMPolicyRequest-setIAMPolicyRequest =-  SetIAMPolicyRequest' {_siprUpdateMask = Nothing, _siprPolicy = Nothing}----- | OPTIONAL: A FieldMask specifying which fields of the policy to modify.--- Only the fields in the mask will be modified. If no mask is provided,--- the following default mask is used: paths: \"bindings, etag\" This field--- is only used by Cloud IAM.-siprUpdateMask :: Lens' SetIAMPolicyRequest (Maybe GFieldMask)-siprUpdateMask-  = lens _siprUpdateMask-      (\ s a -> s{_siprUpdateMask = a})---- | REQUIRED: The complete policy to be applied to the \`resource\`. The--- size of the policy is limited to a few 10s of KB. An empty policy is a--- valid policy but certain Cloud Platform services (such as Projects)--- might reject them.-siprPolicy :: Lens' SetIAMPolicyRequest (Maybe Policy)-siprPolicy-  = lens _siprPolicy (\ s a -> s{_siprPolicy = a})--instance FromJSON SetIAMPolicyRequest where-        parseJSON-          = withObject "SetIAMPolicyRequest"-              (\ o ->-                 SetIAMPolicyRequest' <$>-                   (o .:? "updateMask") <*> (o .:? "policy"))--instance ToJSON SetIAMPolicyRequest where-        toJSON SetIAMPolicyRequest'{..}-          = object-              (catMaybes-                 [("updateMask" .=) <$> _siprUpdateMask,-                  ("policy" .=) <$> _siprPolicy])---- | Network configuration for a Data Fusion instance. These configurations--- are used for peering with the customer network. Configurations are--- optional when a public Data Fusion instance is to be created. However,--- providing these configurations allows several benefits, such as reduced--- network latency while accessing the customer resources from managed Data--- Fusion instance nodes, as well as access to the customer on-prem--- resources.------ /See:/ 'networkConfig' smart constructor.-data NetworkConfig =-  NetworkConfig'-    { _ncNetwork      :: !(Maybe Text)-    , _ncIPAllocation :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'NetworkConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ncNetwork'------ * 'ncIPAllocation'-networkConfig-    :: NetworkConfig-networkConfig = NetworkConfig' {_ncNetwork = Nothing, _ncIPAllocation = Nothing}----- | Name of the network in the customer project with which the Tenant--- Project will be peered for executing pipelines.-ncNetwork :: Lens' NetworkConfig (Maybe Text)-ncNetwork-  = lens _ncNetwork (\ s a -> s{_ncNetwork = a})---- | The IP range in CIDR notation to use for the managed Data Fusion--- instance nodes. This range must not overlap with any other ranges used--- in the Data Fusion instance network.-ncIPAllocation :: Lens' NetworkConfig (Maybe Text)-ncIPAllocation-  = lens _ncIPAllocation-      (\ s a -> s{_ncIPAllocation = a})--instance FromJSON NetworkConfig where-        parseJSON-          = withObject "NetworkConfig"-              (\ o ->-                 NetworkConfig' <$>-                   (o .:? "network") <*> (o .:? "ipAllocation"))--instance ToJSON NetworkConfig where-        toJSON NetworkConfig'{..}-          = object-              (catMaybes-                 [("network" .=) <$> _ncNetwork,-                  ("ipAllocation" .=) <$> _ncIPAllocation])---- | Write a Cloud Audit log------ /See:/ 'cloudAuditOptions' smart constructor.-data CloudAuditOptions =-  CloudAuditOptions'-    { _caoAuthorizationLoggingOptions :: !(Maybe AuthorizationLoggingOptions)-    , _caoLogName                     :: !(Maybe CloudAuditOptionsLogName)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CloudAuditOptions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'caoAuthorizationLoggingOptions'------ * 'caoLogName'-cloudAuditOptions-    :: CloudAuditOptions-cloudAuditOptions =-  CloudAuditOptions'-    {_caoAuthorizationLoggingOptions = Nothing, _caoLogName = Nothing}----- | Information used by the Cloud Audit Logging pipeline.-caoAuthorizationLoggingOptions :: Lens' CloudAuditOptions (Maybe AuthorizationLoggingOptions)-caoAuthorizationLoggingOptions-  = lens _caoAuthorizationLoggingOptions-      (\ s a -> s{_caoAuthorizationLoggingOptions = a})---- | The log_name to populate in the Cloud Audit Record.-caoLogName :: Lens' CloudAuditOptions (Maybe CloudAuditOptionsLogName)-caoLogName-  = lens _caoLogName (\ s a -> s{_caoLogName = a})--instance FromJSON CloudAuditOptions where-        parseJSON-          = withObject "CloudAuditOptions"-              (\ o ->-                 CloudAuditOptions' <$>-                   (o .:? "authorizationLoggingOptions") <*>-                     (o .:? "logName"))--instance ToJSON CloudAuditOptions where-        toJSON CloudAuditOptions'{..}-          = object-              (catMaybes-                 [("authorizationLoggingOptions" .=) <$>-                    _caoAuthorizationLoggingOptions,-                  ("logName" .=) <$> _caoLogName])---- | Write a Data Access (Gin) log------ /See:/ 'dataAccessOptions' smart constructor.-newtype DataAccessOptions =-  DataAccessOptions'-    { _daoLogMode :: Maybe DataAccessOptionsLogMode-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DataAccessOptions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'daoLogMode'-dataAccessOptions-    :: DataAccessOptions-dataAccessOptions = DataAccessOptions' {_daoLogMode = Nothing}----- | Whether Gin logging should happen in a fail-closed manner at the caller.--- This is relevant only in the LocalIAM implementation, for now.-daoLogMode :: Lens' DataAccessOptions (Maybe DataAccessOptionsLogMode)-daoLogMode-  = lens _daoLogMode (\ s a -> s{_daoLogMode = a})--instance FromJSON DataAccessOptions where-        parseJSON-          = withObject "DataAccessOptions"-              (\ o -> DataAccessOptions' <$> (o .:? "logMode"))--instance ToJSON DataAccessOptions where-        toJSON DataAccessOptions'{..}-          = object (catMaybes [("logMode" .=) <$> _daoLogMode])---- | Request message for restarting a Data Fusion instance.------ /See:/ 'restartInstanceRequest' smart constructor.-data RestartInstanceRequest =-  RestartInstanceRequest'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RestartInstanceRequest' with the minimum fields required to make a request.----restartInstanceRequest-    :: RestartInstanceRequest-restartInstanceRequest = RestartInstanceRequest'---instance FromJSON RestartInstanceRequest where-        parseJSON-          = withObject "RestartInstanceRequest"-              (\ o -> pure RestartInstanceRequest')--instance ToJSON RestartInstanceRequest where-        toJSON = const emptyObject---- | Request message for \`TestIamPermissions\` method.------ /See:/ 'testIAMPermissionsRequest' smart constructor.-newtype TestIAMPermissionsRequest =-  TestIAMPermissionsRequest'-    { _tiprPermissions :: Maybe [Text]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TestIAMPermissionsRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tiprPermissions'-testIAMPermissionsRequest-    :: TestIAMPermissionsRequest-testIAMPermissionsRequest =-  TestIAMPermissionsRequest' {_tiprPermissions = Nothing}----- | The set of permissions to check for the \`resource\`. Permissions with--- wildcards (such as \'*\' or \'storage.*\') are not allowed. For more--- information see [IAM--- Overview](https:\/\/cloud.google.com\/iam\/docs\/overview#permissions).-tiprPermissions :: Lens' TestIAMPermissionsRequest [Text]-tiprPermissions-  = lens _tiprPermissions-      (\ s a -> s{_tiprPermissions = a})-      . _Default-      . _Coerce--instance FromJSON TestIAMPermissionsRequest where-        parseJSON-          = withObject "TestIAMPermissionsRequest"-              (\ o ->-                 TestIAMPermissionsRequest' <$>-                   (o .:? "permissions" .!= mempty))--instance ToJSON TestIAMPermissionsRequest where-        toJSON TestIAMPermissionsRequest'{..}-          = object-              (catMaybes [("permissions" .=) <$> _tiprPermissions])---- | Response message for \`TestIamPermissions\` method.------ /See:/ 'testIAMPermissionsResponse' smart constructor.-newtype TestIAMPermissionsResponse =-  TestIAMPermissionsResponse'-    { _tiamprPermissions :: Maybe [Text]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TestIAMPermissionsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tiamprPermissions'-testIAMPermissionsResponse-    :: TestIAMPermissionsResponse-testIAMPermissionsResponse =-  TestIAMPermissionsResponse' {_tiamprPermissions = Nothing}----- | A subset of \`TestPermissionsRequest.permissions\` that the caller is--- allowed.-tiamprPermissions :: Lens' TestIAMPermissionsResponse [Text]-tiamprPermissions-  = lens _tiamprPermissions-      (\ s a -> s{_tiamprPermissions = a})-      . _Default-      . _Coerce--instance FromJSON TestIAMPermissionsResponse where-        parseJSON-          = withObject "TestIAMPermissionsResponse"-              (\ o ->-                 TestIAMPermissionsResponse' <$>-                   (o .:? "permissions" .!= mempty))--instance ToJSON TestIAMPermissionsResponse where-        toJSON TestIAMPermissionsResponse'{..}-          = object-              (catMaybes-                 [("permissions" .=) <$> _tiamprPermissions])---- | Request message for upgrading a Data Fusion instance. To change the--- instance properties, instance update should be used.------ /See:/ 'upgradeInstanceRequest' smart constructor.-data UpgradeInstanceRequest =-  UpgradeInstanceRequest'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UpgradeInstanceRequest' with the minimum fields required to make a request.----upgradeInstanceRequest-    :: UpgradeInstanceRequest-upgradeInstanceRequest = UpgradeInstanceRequest'---instance FromJSON UpgradeInstanceRequest where-        parseJSON-          = withObject "UpgradeInstanceRequest"-              (\ o -> pure UpgradeInstanceRequest')--instance ToJSON UpgradeInstanceRequest where-        toJSON = const emptyObject---- | Authorization-related information used by Cloud Audit Logging.------ /See:/ 'authorizationLoggingOptions' smart constructor.-newtype AuthorizationLoggingOptions =-  AuthorizationLoggingOptions'-    { _aloPermissionType :: Maybe AuthorizationLoggingOptionsPermissionType-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AuthorizationLoggingOptions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aloPermissionType'-authorizationLoggingOptions-    :: AuthorizationLoggingOptions-authorizationLoggingOptions =-  AuthorizationLoggingOptions' {_aloPermissionType = Nothing}----- | The type of the permission that was checked.-aloPermissionType :: Lens' AuthorizationLoggingOptions (Maybe AuthorizationLoggingOptionsPermissionType)-aloPermissionType-  = lens _aloPermissionType-      (\ s a -> s{_aloPermissionType = a})--instance FromJSON AuthorizationLoggingOptions where-        parseJSON-          = withObject "AuthorizationLoggingOptions"-              (\ o ->-                 AuthorizationLoggingOptions' <$>-                   (o .:? "permissionType"))--instance ToJSON AuthorizationLoggingOptions where-        toJSON AuthorizationLoggingOptions'{..}-          = object-              (catMaybes-                 [("permissionType" .=) <$> _aloPermissionType])---- | Defines an Identity and Access Management (IAM) policy. It is used to--- specify access control policies for Cloud Platform resources. A--- \`Policy\` consists of a list of \`bindings\`. A \`binding\` binds a--- list of \`members\` to a \`role\`, where the members can be user--- accounts, Google groups, Google domains, and service accounts. A--- \`role\` is a named list of permissions defined by IAM. **JSON Example**--- { \"bindings\": [ { \"role\": \"roles\/owner\", \"members\": [--- \"user:mike\'example.com\", \"group:admins\'example.com\",--- \"domain:google.com\",--- \"serviceAccount:my-other-app\'appspot.gserviceaccount.com\" ] }, {--- \"role\": \"roles\/viewer\", \"members\": [\"user:sean\'example.com\"] }--- ] } **YAML Example** bindings: - members: - user:mike\'example.com ---- group:admins\'example.com - domain:google.com ---- serviceAccount:my-other-app\'appspot.gserviceaccount.com role:--- roles\/owner - members: - user:sean\'example.com role: roles\/viewer For--- a description of IAM and its features, see the [IAM developer\'s--- guide](https:\/\/cloud.google.com\/iam\/docs).------ /See:/ 'policy' smart constructor.-data Policy =-  Policy'-    { _pAuditConfigs :: !(Maybe [AuditConfig])-    , _pEtag         :: !(Maybe Bytes)-    , _pRules        :: !(Maybe [Rule])-    , _pVersion      :: !(Maybe (Textual Int32))-    , _pBindings     :: !(Maybe [Binding])-    , _pIAMOwned     :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Policy' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pAuditConfigs'------ * 'pEtag'------ * 'pRules'------ * 'pVersion'------ * 'pBindings'------ * 'pIAMOwned'-policy-    :: Policy-policy =-  Policy'-    { _pAuditConfigs = Nothing-    , _pEtag = Nothing-    , _pRules = Nothing-    , _pVersion = Nothing-    , _pBindings = Nothing-    , _pIAMOwned = Nothing-    }----- | Specifies cloud audit logging configuration for this policy.-pAuditConfigs :: Lens' Policy [AuditConfig]-pAuditConfigs-  = lens _pAuditConfigs-      (\ s a -> s{_pAuditConfigs = a})-      . _Default-      . _Coerce---- | \`etag\` is used for optimistic concurrency control as a way to help--- prevent simultaneous updates of a policy from overwriting each other. It--- is strongly suggested that systems make use of the \`etag\` in the--- read-modify-write cycle to perform policy updates in order to avoid race--- conditions: An \`etag\` is returned in the response to \`getIamPolicy\`,--- and systems are expected to put that etag in the request to--- \`setIamPolicy\` to ensure that their change will be applied to the same--- version of the policy. If no \`etag\` is provided in the call to--- \`setIamPolicy\`, then the existing policy is overwritten blindly.-pEtag :: Lens' Policy (Maybe ByteString)-pEtag-  = lens _pEtag (\ s a -> s{_pEtag = a}) .-      mapping _Bytes---- | If more than one rule is specified, the rules are applied in the--- following manner: - All matching LOG rules are always applied. - If any--- DENY\/DENY_WITH_LOG rule matches, permission is denied. Logging will be--- applied if one or more matching rule requires logging. - Otherwise, if--- any ALLOW\/ALLOW_WITH_LOG rule matches, permission is granted. Logging--- will be applied if one or more matching rule requires logging. ---- Otherwise, if no rule applies, permission is denied.-pRules :: Lens' Policy [Rule]-pRules-  = lens _pRules (\ s a -> s{_pRules = a}) . _Default .-      _Coerce---- | Deprecated.-pVersion :: Lens' Policy (Maybe Int32)-pVersion-  = lens _pVersion (\ s a -> s{_pVersion = a}) .-      mapping _Coerce---- | Associates a list of \`members\` to a \`role\`. \`bindings\` with no--- members will result in an error.-pBindings :: Lens' Policy [Binding]-pBindings-  = lens _pBindings (\ s a -> s{_pBindings = a}) .-      _Default-      . _Coerce--pIAMOwned :: Lens' Policy (Maybe Bool)-pIAMOwned-  = lens _pIAMOwned (\ s a -> s{_pIAMOwned = a})--instance FromJSON Policy where-        parseJSON-          = withObject "Policy"-              (\ o ->-                 Policy' <$>-                   (o .:? "auditConfigs" .!= mempty) <*> (o .:? "etag")-                     <*> (o .:? "rules" .!= mempty)-                     <*> (o .:? "version")-                     <*> (o .:? "bindings" .!= mempty)-                     <*> (o .:? "iamOwned"))--instance ToJSON Policy where-        toJSON Policy'{..}-          = object-              (catMaybes-                 [("auditConfigs" .=) <$> _pAuditConfigs,-                  ("etag" .=) <$> _pEtag, ("rules" .=) <$> _pRules,-                  ("version" .=) <$> _pVersion,-                  ("bindings" .=) <$> _pBindings,-                  ("iamOwned" .=) <$> _pIAMOwned])---- | Cross-service attributes for the location. For example--- {\"cloud.googleapis.com\/region\": \"us-east1\"}------ /See:/ 'locationLabels' smart constructor.-newtype LocationLabels =-  LocationLabels'-    { _llAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LocationLabels' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'llAddtional'-locationLabels-    :: HashMap Text Text -- ^ 'llAddtional'-    -> LocationLabels-locationLabels pLlAddtional_ =-  LocationLabels' {_llAddtional = _Coerce # pLlAddtional_}---llAddtional :: Lens' LocationLabels (HashMap Text Text)-llAddtional-  = lens _llAddtional (\ s a -> s{_llAddtional = a}) .-      _Coerce--instance FromJSON LocationLabels where-        parseJSON-          = withObject "LocationLabels"-              (\ o -> LocationLabels' <$> (parseJSONObject o))--instance ToJSON LocationLabels where-        toJSON = toJSON . _llAddtional---- | Service-specific metadata. For example the available capacity at the--- given location.------ /See:/ 'locationMetadata' smart constructor.-newtype LocationMetadata =-  LocationMetadata'-    { _lmAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LocationMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lmAddtional'-locationMetadata-    :: HashMap Text JSONValue -- ^ 'lmAddtional'-    -> LocationMetadata-locationMetadata pLmAddtional_ =-  LocationMetadata' {_lmAddtional = _Coerce # pLmAddtional_}----- | Properties of the object. Contains field \'type with type URL.-lmAddtional :: Lens' LocationMetadata (HashMap Text JSONValue)-lmAddtional-  = lens _lmAddtional (\ s a -> s{_lmAddtional = a}) .-      _Coerce--instance FromJSON LocationMetadata where-        parseJSON-          = withObject "LocationMetadata"-              (\ o -> LocationMetadata' <$> (parseJSONObject o))--instance ToJSON LocationMetadata where-        toJSON = toJSON . _lmAddtional---- | Represents the metadata of a long-running operation.------ /See:/ 'operationMetadata' smart constructor.-data OperationMetadata =-  OperationMetadata'-    { _omAPIVersion            :: !(Maybe Text)-    , _omRequestedCancellation :: !(Maybe Bool)-    , _omEndTime               :: !(Maybe DateTime')-    , _omStatusDetail          :: !(Maybe Text)-    , _omVerb                  :: !(Maybe Text)-    , _omTarget                :: !(Maybe Text)-    , _omCreateTime            :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OperationMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'omAPIVersion'------ * 'omRequestedCancellation'------ * 'omEndTime'------ * 'omStatusDetail'------ * 'omVerb'------ * 'omTarget'------ * 'omCreateTime'-operationMetadata-    :: OperationMetadata-operationMetadata =-  OperationMetadata'-    { _omAPIVersion = Nothing-    , _omRequestedCancellation = Nothing-    , _omEndTime = Nothing-    , _omStatusDetail = Nothing-    , _omVerb = Nothing-    , _omTarget = Nothing-    , _omCreateTime = Nothing-    }----- | API version used to start the operation.-omAPIVersion :: Lens' OperationMetadata (Maybe Text)-omAPIVersion-  = lens _omAPIVersion (\ s a -> s{_omAPIVersion = a})---- | Identifies whether the user has requested cancellation of the operation.--- Operations that have successfully been cancelled have Operation.error--- value with a google.rpc.Status.code of 1, corresponding to--- \`Code.CANCELLED\`.-omRequestedCancellation :: Lens' OperationMetadata (Maybe Bool)-omRequestedCancellation-  = lens _omRequestedCancellation-      (\ s a -> s{_omRequestedCancellation = a})---- | The time the operation finished running.-omEndTime :: Lens' OperationMetadata (Maybe UTCTime)-omEndTime-  = lens _omEndTime (\ s a -> s{_omEndTime = a}) .-      mapping _DateTime---- | Human-readable status of the operation if any.-omStatusDetail :: Lens' OperationMetadata (Maybe Text)-omStatusDetail-  = lens _omStatusDetail-      (\ s a -> s{_omStatusDetail = a})---- | Name of the verb executed by the operation.-omVerb :: Lens' OperationMetadata (Maybe Text)-omVerb = lens _omVerb (\ s a -> s{_omVerb = a})---- | Server-defined resource path for the target of the operation.-omTarget :: Lens' OperationMetadata (Maybe Text)-omTarget = lens _omTarget (\ s a -> s{_omTarget = a})---- | The time the operation was created.-omCreateTime :: Lens' OperationMetadata (Maybe UTCTime)-omCreateTime-  = lens _omCreateTime (\ s a -> s{_omCreateTime = a})-      . mapping _DateTime--instance FromJSON OperationMetadata where-        parseJSON-          = withObject "OperationMetadata"-              (\ o ->-                 OperationMetadata' <$>-                   (o .:? "apiVersion") <*>-                     (o .:? "requestedCancellation")-                     <*> (o .:? "endTime")-                     <*> (o .:? "statusDetail")-                     <*> (o .:? "verb")-                     <*> (o .:? "target")-                     <*> (o .:? "createTime"))--instance ToJSON OperationMetadata where-        toJSON OperationMetadata'{..}-          = object-              (catMaybes-                 [("apiVersion" .=) <$> _omAPIVersion,-                  ("requestedCancellation" .=) <$>-                    _omRequestedCancellation,-                  ("endTime" .=) <$> _omEndTime,-                  ("statusDetail" .=) <$> _omStatusDetail,-                  ("verb" .=) <$> _omVerb, ("target" .=) <$> _omTarget,-                  ("createTime" .=) <$> _omCreateTime])---- | Provides the configuration for logging a type of permissions. Example: {--- \"audit_log_configs\": [ { \"log_type\": \"DATA_READ\",--- \"exempted_members\": [ \"user:foo\'gmail.com\" ] }, { \"log_type\":--- \"DATA_WRITE\", } ] } This enables \'DATA_READ\' and \'DATA_WRITE\'--- logging, while exempting foo\'gmail.com from DATA_READ logging.------ /See:/ 'auditLogConfig' smart constructor.-data AuditLogConfig =-  AuditLogConfig'-    { _alcLogType         :: !(Maybe AuditLogConfigLogType)-    , _alcExemptedMembers :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AuditLogConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'alcLogType'------ * 'alcExemptedMembers'-auditLogConfig-    :: AuditLogConfig-auditLogConfig =-  AuditLogConfig' {_alcLogType = Nothing, _alcExemptedMembers = Nothing}----- | The log type that this config enables.-alcLogType :: Lens' AuditLogConfig (Maybe AuditLogConfigLogType)-alcLogType-  = lens _alcLogType (\ s a -> s{_alcLogType = a})---- | Specifies the identities that do not cause logging for this type of--- permission. Follows the same format of Binding.members.-alcExemptedMembers :: Lens' AuditLogConfig [Text]-alcExemptedMembers-  = lens _alcExemptedMembers-      (\ s a -> s{_alcExemptedMembers = a})-      . _Default-      . _Coerce--instance FromJSON AuditLogConfig where-        parseJSON-          = withObject "AuditLogConfig"-              (\ o ->-                 AuditLogConfig' <$>-                   (o .:? "logType") <*>-                     (o .:? "exemptedMembers" .!= mempty))--instance ToJSON AuditLogConfig where-        toJSON AuditLogConfig'{..}-          = object-              (catMaybes-                 [("logType" .=) <$> _alcLogType,-                  ("exemptedMembers" .=) <$> _alcExemptedMembers])---- | Response message for the list instance request.------ /See:/ 'listInstancesResponse' smart constructor.-data ListInstancesResponse =-  ListInstancesResponse'-    { _lirNextPageToken :: !(Maybe Text)-    , _lirUnreachable   :: !(Maybe [Text])-    , _lirInstances     :: !(Maybe [Instance])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListInstancesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lirNextPageToken'------ * 'lirUnreachable'------ * 'lirInstances'-listInstancesResponse-    :: ListInstancesResponse-listInstancesResponse =-  ListInstancesResponse'-    { _lirNextPageToken = Nothing-    , _lirUnreachable = Nothing-    , _lirInstances = Nothing-    }----- | Token to retrieve the next page of results or empty if there are no more--- results in the list.-lirNextPageToken :: Lens' ListInstancesResponse (Maybe Text)-lirNextPageToken-  = lens _lirNextPageToken-      (\ s a -> s{_lirNextPageToken = a})---- | Locations that could not be reached.-lirUnreachable :: Lens' ListInstancesResponse [Text]-lirUnreachable-  = lens _lirUnreachable-      (\ s a -> s{_lirUnreachable = a})-      . _Default-      . _Coerce---- | Represents a list of Data Fusion instances.-lirInstances :: Lens' ListInstancesResponse [Instance]-lirInstances-  = lens _lirInstances (\ s a -> s{_lirInstances = a})-      . _Default-      . _Coerce--instance FromJSON ListInstancesResponse where-        parseJSON-          = withObject "ListInstancesResponse"-              (\ o ->-                 ListInstancesResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "unreachable" .!= mempty)-                     <*> (o .:? "instances" .!= mempty))--instance ToJSON ListInstancesResponse where-        toJSON ListInstancesResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _lirNextPageToken,-                  ("unreachable" .=) <$> _lirUnreachable,-                  ("instances" .=) <$> _lirInstances])---- | A condition to be met.------ /See:/ 'condition' smart constructor.-data Condition =-  Condition'-    { _cOp     :: !(Maybe ConditionOp)-    , _cIAM    :: !(Maybe ConditionIAM)-    , _cValues :: !(Maybe [Text])-    , _cSys    :: !(Maybe ConditionSys)-    , _cSvc    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Condition' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cOp'------ * 'cIAM'------ * 'cValues'------ * 'cSys'------ * 'cSvc'-condition-    :: Condition-condition =-  Condition'-    { _cOp = Nothing-    , _cIAM = Nothing-    , _cValues = Nothing-    , _cSys = Nothing-    , _cSvc = Nothing-    }----- | An operator to apply the subject with.-cOp :: Lens' Condition (Maybe ConditionOp)-cOp = lens _cOp (\ s a -> s{_cOp = a})---- | Trusted attributes supplied by the IAM system.-cIAM :: Lens' Condition (Maybe ConditionIAM)-cIAM = lens _cIAM (\ s a -> s{_cIAM = a})---- | The objects of the condition.-cValues :: Lens' Condition [Text]-cValues-  = lens _cValues (\ s a -> s{_cValues = a}) . _Default-      . _Coerce---- | Trusted attributes supplied by any service that owns resources and uses--- the IAM system for access control.-cSys :: Lens' Condition (Maybe ConditionSys)-cSys = lens _cSys (\ s a -> s{_cSys = a})---- | Trusted attributes discharged by the service.-cSvc :: Lens' Condition (Maybe Text)-cSvc = lens _cSvc (\ s a -> s{_cSvc = a})--instance FromJSON Condition where-        parseJSON-          = withObject "Condition"-              (\ o ->-                 Condition' <$>-                   (o .:? "op") <*> (o .:? "iam") <*>-                     (o .:? "values" .!= mempty)-                     <*> (o .:? "sys")-                     <*> (o .:? "svc"))--instance ToJSON Condition where-        toJSON Condition'{..}-          = object-              (catMaybes-                 [("op" .=) <$> _cOp, ("iam" .=) <$> _cIAM,-                  ("values" .=) <$> _cValues, ("sys" .=) <$> _cSys,-                  ("svc" .=) <$> _cSvc])---- | The normal response of the operation in case of success. If the original--- method returns no data on success, such as \`Delete\`, the response is--- \`google.protobuf.Empty\`. If the original method is standard--- \`Get\`\/\`Create\`\/\`Update\`, the response should be the resource.--- For other methods, the response should have the type \`XxxResponse\`,--- where \`Xxx\` is the original method name. For example, if the original--- method name is \`TakeSnapshot()\`, the inferred response type is--- \`TakeSnapshotResponse\`.------ /See:/ 'operationResponse' smart constructor.-newtype OperationResponse =-  OperationResponse'-    { _orAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OperationResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'orAddtional'-operationResponse-    :: HashMap Text JSONValue -- ^ 'orAddtional'-    -> OperationResponse-operationResponse pOrAddtional_ =-  OperationResponse' {_orAddtional = _Coerce # pOrAddtional_}----- | Properties of the object. Contains field \'type with type URL.-orAddtional :: Lens' OperationResponse (HashMap Text JSONValue)-orAddtional-  = lens _orAddtional (\ s a -> s{_orAddtional = a}) .-      _Coerce--instance FromJSON OperationResponse where-        parseJSON-          = withObject "OperationResponse"-              (\ o -> OperationResponse' <$> (parseJSONObject o))--instance ToJSON OperationResponse where-        toJSON = toJSON . _orAddtional---- | Specifies what kind of log the caller must write------ /See:/ 'logConfig' smart constructor.-data LogConfig =-  LogConfig'-    { _lcCloudAudit :: !(Maybe CloudAuditOptions)-    , _lcDataAccess :: !(Maybe DataAccessOptions)-    , _lcCounter    :: !(Maybe CounterOptions)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LogConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lcCloudAudit'------ * 'lcDataAccess'------ * 'lcCounter'-logConfig-    :: LogConfig-logConfig =-  LogConfig'-    {_lcCloudAudit = Nothing, _lcDataAccess = Nothing, _lcCounter = Nothing}----- | Cloud audit options.-lcCloudAudit :: Lens' LogConfig (Maybe CloudAuditOptions)-lcCloudAudit-  = lens _lcCloudAudit (\ s a -> s{_lcCloudAudit = a})---- | Data access options.-lcDataAccess :: Lens' LogConfig (Maybe DataAccessOptions)-lcDataAccess-  = lens _lcDataAccess (\ s a -> s{_lcDataAccess = a})---- | Counter options.-lcCounter :: Lens' LogConfig (Maybe CounterOptions)-lcCounter-  = lens _lcCounter (\ s a -> s{_lcCounter = a})--instance FromJSON LogConfig where-        parseJSON-          = withObject "LogConfig"-              (\ o ->-                 LogConfig' <$>-                   (o .:? "cloudAudit") <*> (o .:? "dataAccess") <*>-                     (o .:? "counter"))--instance ToJSON LogConfig where-        toJSON LogConfig'{..}-          = object-              (catMaybes-                 [("cloudAudit" .=) <$> _lcCloudAudit,-                  ("dataAccess" .=) <$> _lcDataAccess,-                  ("counter" .=) <$> _lcCounter])---- | Map of additional options used to configure the behavior of Data Fusion--- instance.------ /See:/ 'instanceOptions' smart constructor.-newtype InstanceOptions =-  InstanceOptions'-    { _ioAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'InstanceOptions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ioAddtional'-instanceOptions-    :: HashMap Text Text -- ^ 'ioAddtional'-    -> InstanceOptions-instanceOptions pIoAddtional_ =-  InstanceOptions' {_ioAddtional = _Coerce # pIoAddtional_}---ioAddtional :: Lens' InstanceOptions (HashMap Text Text)-ioAddtional-  = lens _ioAddtional (\ s a -> s{_ioAddtional = a}) .-      _Coerce--instance FromJSON InstanceOptions where-        parseJSON-          = withObject "InstanceOptions"-              (\ o -> InstanceOptions' <$> (parseJSONObject o))--instance ToJSON InstanceOptions where-        toJSON = toJSON . _ioAddtional---- | Associates \`members\` with a \`role\`.------ /See:/ 'binding' smart constructor.-data Binding =-  Binding'-    { _bMembers   :: !(Maybe [Text])-    , _bRole      :: !(Maybe Text)-    , _bCondition :: !(Maybe Expr)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Binding' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bMembers'------ * 'bRole'------ * 'bCondition'-binding-    :: Binding-binding =-  Binding' {_bMembers = Nothing, _bRole = Nothing, _bCondition = Nothing}----- | Specifies the identities requesting access for a Cloud Platform--- resource. \`members\` can have the following values: * \`allUsers\`: A--- special identifier that represents anyone who is on the internet; with--- or without a Google account. * \`allAuthenticatedUsers\`: A special--- identifier that represents anyone who is authenticated with a Google--- account or a service account. * \`user:{emailid}\`: An email address--- that represents a specific Google account. For example,--- \`alice\'gmail.com\` . * \`serviceAccount:{emailid}\`: An email address--- that represents a service account. For example,--- \`my-other-app\'appspot.gserviceaccount.com\`. * \`group:{emailid}\`: An--- email address that represents a Google group. For example,--- \`admins\'example.com\`. * \`domain:{domain}\`: The G Suite domain--- (primary) that represents all the users of that domain. For example,--- \`google.com\` or \`example.com\`.-bMembers :: Lens' Binding [Text]-bMembers-  = lens _bMembers (\ s a -> s{_bMembers = a}) .-      _Default-      . _Coerce---- | Role that is assigned to \`members\`. For example, \`roles\/viewer\`,--- \`roles\/editor\`, or \`roles\/owner\`.-bRole :: Lens' Binding (Maybe Text)-bRole = lens _bRole (\ s a -> s{_bRole = a})---- | The condition that is associated with this binding. NOTE: An unsatisfied--- condition will not allow user access via current binding. Different--- bindings, including their conditions, are examined independently.-bCondition :: Lens' Binding (Maybe Expr)-bCondition-  = lens _bCondition (\ s a -> s{_bCondition = a})--instance FromJSON Binding where-        parseJSON-          = withObject "Binding"-              (\ o ->-                 Binding' <$>-                   (o .:? "members" .!= mempty) <*> (o .:? "role") <*>-                     (o .:? "condition"))--instance ToJSON Binding where-        toJSON Binding'{..}-          = object-              (catMaybes-                 [("members" .=) <$> _bMembers,-                  ("role" .=) <$> _bRole,-                  ("condition" .=) <$> _bCondition])---- | Represents a Data Fusion instance.------ /See:/ 'instance'' smart constructor.-data Instance =-  Instance'-    { _iStateMessage                :: !(Maybe Text)-    , _iState                       :: !(Maybe InstanceState)-    , _iEnableStackdriverLogging    :: !(Maybe Bool)-    , _iServiceEndpoint             :: !(Maybe Text)-    , _iZone                        :: !(Maybe Text)-    , _iServiceAccount              :: !(Maybe Text)-    , _iNetworkConfig               :: !(Maybe NetworkConfig)-    , _iUpdateTime                  :: !(Maybe DateTime')-    , _iPrivateInstance             :: !(Maybe Bool)-    , _iName                        :: !(Maybe Text)-    , _iVersion                     :: !(Maybe Text)-    , _iDisplayName                 :: !(Maybe Text)-    , _iEnableStackdriverMonitoring :: !(Maybe Bool)-    , _iLabels                      :: !(Maybe InstanceLabels)-    , _iOptions                     :: !(Maybe InstanceOptions)-    , _iType                        :: !(Maybe InstanceType)-    , _iDescription                 :: !(Maybe Text)-    , _iCreateTime                  :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Instance' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'iStateMessage'------ * 'iState'------ * 'iEnableStackdriverLogging'------ * 'iServiceEndpoint'------ * 'iZone'------ * 'iServiceAccount'------ * 'iNetworkConfig'------ * 'iUpdateTime'------ * 'iPrivateInstance'------ * 'iName'------ * 'iVersion'------ * 'iDisplayName'------ * 'iEnableStackdriverMonitoring'------ * 'iLabels'------ * 'iOptions'------ * 'iType'------ * 'iDescription'------ * 'iCreateTime'-instance'-    :: Instance-instance' =-  Instance'-    { _iStateMessage = Nothing-    , _iState = Nothing-    , _iEnableStackdriverLogging = Nothing-    , _iServiceEndpoint = Nothing-    , _iZone = Nothing-    , _iServiceAccount = Nothing-    , _iNetworkConfig = Nothing-    , _iUpdateTime = Nothing-    , _iPrivateInstance = Nothing-    , _iName = Nothing-    , _iVersion = Nothing-    , _iDisplayName = Nothing-    , _iEnableStackdriverMonitoring = Nothing-    , _iLabels = Nothing-    , _iOptions = Nothing-    , _iType = Nothing-    , _iDescription = Nothing-    , _iCreateTime = Nothing-    }----- | Output only. Additional information about the current state of this Data--- Fusion instance if available.-iStateMessage :: Lens' Instance (Maybe Text)-iStateMessage-  = lens _iStateMessage-      (\ s a -> s{_iStateMessage = a})---- | Output only. The current state of this Data Fusion instance.-iState :: Lens' Instance (Maybe InstanceState)-iState = lens _iState (\ s a -> s{_iState = a})---- | Option to enable Stackdriver Logging.-iEnableStackdriverLogging :: Lens' Instance (Maybe Bool)-iEnableStackdriverLogging-  = lens _iEnableStackdriverLogging-      (\ s a -> s{_iEnableStackdriverLogging = a})---- | Output only. Endpoint on which the Data Fusion UI and REST APIs are--- accessible.-iServiceEndpoint :: Lens' Instance (Maybe Text)-iServiceEndpoint-  = lens _iServiceEndpoint-      (\ s a -> s{_iServiceEndpoint = a})---- | Name of the zone in which the Data Fusion instance will be created.-iZone :: Lens' Instance (Maybe Text)-iZone = lens _iZone (\ s a -> s{_iZone = a})---- | Output only. Service account which will be used to access resources in--- the customer project.\"-iServiceAccount :: Lens' Instance (Maybe Text)-iServiceAccount-  = lens _iServiceAccount-      (\ s a -> s{_iServiceAccount = a})---- | Network configuration options. These are required when a private Data--- Fusion instance is to be created.-iNetworkConfig :: Lens' Instance (Maybe NetworkConfig)-iNetworkConfig-  = lens _iNetworkConfig-      (\ s a -> s{_iNetworkConfig = a})---- | Output only. The time the instance was last updated.-iUpdateTime :: Lens' Instance (Maybe UTCTime)-iUpdateTime-  = lens _iUpdateTime (\ s a -> s{_iUpdateTime = a}) .-      mapping _DateTime---- | Specifies whether the Data Fusion instance should be private. If set to--- true, all Data Fusion nodes will have private IP addresses and will not--- be able to access the public internet.-iPrivateInstance :: Lens' Instance (Maybe Bool)-iPrivateInstance-  = lens _iPrivateInstance-      (\ s a -> s{_iPrivateInstance = a})---- | Output only. The name of this instance is in the form of--- projects\/{project}\/locations\/{location}\/instances\/{instance}.-iName :: Lens' Instance (Maybe Text)-iName = lens _iName (\ s a -> s{_iName = a})---- | Output only. Current version of the Data Fusion.-iVersion :: Lens' Instance (Maybe Text)-iVersion = lens _iVersion (\ s a -> s{_iVersion = a})---- | Display name for an instance.-iDisplayName :: Lens' Instance (Maybe Text)-iDisplayName-  = lens _iDisplayName (\ s a -> s{_iDisplayName = a})---- | Option to enable Stackdriver Monitoring.-iEnableStackdriverMonitoring :: Lens' Instance (Maybe Bool)-iEnableStackdriverMonitoring-  = lens _iEnableStackdriverMonitoring-      (\ s a -> s{_iEnableStackdriverMonitoring = a})---- | The resource labels for instance to use to annotate any related--- underlying resources such as GCE VMs. The character \'=\' is not allowed--- to be used within the labels.-iLabels :: Lens' Instance (Maybe InstanceLabels)-iLabels = lens _iLabels (\ s a -> s{_iLabels = a})---- | Map of additional options used to configure the behavior of Data Fusion--- instance.-iOptions :: Lens' Instance (Maybe InstanceOptions)-iOptions = lens _iOptions (\ s a -> s{_iOptions = a})---- | Required. Instance type.-iType :: Lens' Instance (Maybe InstanceType)-iType = lens _iType (\ s a -> s{_iType = a})---- | An optional description of this instance.-iDescription :: Lens' Instance (Maybe Text)-iDescription-  = lens _iDescription (\ s a -> s{_iDescription = a})---- | Output only. The time the instance was created.-iCreateTime :: Lens' Instance (Maybe UTCTime)-iCreateTime-  = lens _iCreateTime (\ s a -> s{_iCreateTime = a}) .-      mapping _DateTime--instance FromJSON Instance where-        parseJSON-          = withObject "Instance"-              (\ o ->-                 Instance' <$>-                   (o .:? "stateMessage") <*> (o .:? "state") <*>-                     (o .:? "enableStackdriverLogging")-                     <*> (o .:? "serviceEndpoint")-                     <*> (o .:? "zone")-                     <*> (o .:? "serviceAccount")-                     <*> (o .:? "networkConfig")-                     <*> (o .:? "updateTime")-                     <*> (o .:? "privateInstance")-                     <*> (o .:? "name")-                     <*> (o .:? "version")-                     <*> (o .:? "displayName")-                     <*> (o .:? "enableStackdriverMonitoring")-                     <*> (o .:? "labels")-                     <*> (o .:? "options")-                     <*> (o .:? "type")-                     <*> (o .:? "description")-                     <*> (o .:? "createTime"))--instance ToJSON Instance where-        toJSON Instance'{..}-          = object-              (catMaybes-                 [("stateMessage" .=) <$> _iStateMessage,-                  ("state" .=) <$> _iState,-                  ("enableStackdriverLogging" .=) <$>-                    _iEnableStackdriverLogging,-                  ("serviceEndpoint" .=) <$> _iServiceEndpoint,-                  ("zone" .=) <$> _iZone,-                  ("serviceAccount" .=) <$> _iServiceAccount,-                  ("networkConfig" .=) <$> _iNetworkConfig,-                  ("updateTime" .=) <$> _iUpdateTime,-                  ("privateInstance" .=) <$> _iPrivateInstance,-                  ("name" .=) <$> _iName, ("version" .=) <$> _iVersion,-                  ("displayName" .=) <$> _iDisplayName,-                  ("enableStackdriverMonitoring" .=) <$>-                    _iEnableStackdriverMonitoring,-                  ("labels" .=) <$> _iLabels,-                  ("options" .=) <$> _iOptions, ("type" .=) <$> _iType,-                  ("description" .=) <$> _iDescription,-                  ("createTime" .=) <$> _iCreateTime])
− gen/Network/Google/DataFusion/Types/Sum.hs 
@@ -1,531 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.DataFusion.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.DataFusion.Types.Sum where--import           Network.Google.Prelude hiding (Bytes)---- | The log_name to populate in the Cloud Audit Record.-data CloudAuditOptionsLogName-    = UnspecifiedLogName-      -- ^ @UNSPECIFIED_LOG_NAME@-      -- Default. Should not be used.-    | AdminActivity-      -- ^ @ADMIN_ACTIVITY@-      -- Corresponds to \"cloudaudit.googleapis.com\/activity\"-    | DataAccess-      -- ^ @DATA_ACCESS@-      -- Corresponds to \"cloudaudit.googleapis.com\/data_access\"-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable CloudAuditOptionsLogName--instance FromHttpApiData CloudAuditOptionsLogName where-    parseQueryParam = \case-        "UNSPECIFIED_LOG_NAME" -> Right UnspecifiedLogName-        "ADMIN_ACTIVITY" -> Right AdminActivity-        "DATA_ACCESS" -> Right DataAccess-        x -> Left ("Unable to parse CloudAuditOptionsLogName from: " <> x)--instance ToHttpApiData CloudAuditOptionsLogName where-    toQueryParam = \case-        UnspecifiedLogName -> "UNSPECIFIED_LOG_NAME"-        AdminActivity -> "ADMIN_ACTIVITY"-        DataAccess -> "DATA_ACCESS"--instance FromJSON CloudAuditOptionsLogName where-    parseJSON = parseJSONText "CloudAuditOptionsLogName"--instance ToJSON CloudAuditOptionsLogName where-    toJSON = toJSONText---- | Trusted attributes supplied by any service that owns resources and uses--- the IAM system for access control.-data ConditionSys-    = NoAttr-      -- ^ @NO_ATTR@-      -- Default non-attribute type-    | Region-      -- ^ @REGION@-      -- Region of the resource-    | Service-      -- ^ @SERVICE@-      -- Service name-    | Name-      -- ^ @NAME@-      -- Resource name-    | IP-      -- ^ @IP@-      -- IP address of the caller-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ConditionSys--instance FromHttpApiData ConditionSys where-    parseQueryParam = \case-        "NO_ATTR" -> Right NoAttr-        "REGION" -> Right Region-        "SERVICE" -> Right Service-        "NAME" -> Right Name-        "IP" -> Right IP-        x -> Left ("Unable to parse ConditionSys from: " <> x)--instance ToHttpApiData ConditionSys where-    toQueryParam = \case-        NoAttr -> "NO_ATTR"-        Region -> "REGION"-        Service -> "SERVICE"-        Name -> "NAME"-        IP -> "IP"--instance FromJSON ConditionSys where-    parseJSON = parseJSONText "ConditionSys"--instance ToJSON ConditionSys where-    toJSON = toJSONText---- | Required-data RuleAction-    = NoAction-      -- ^ @NO_ACTION@-      -- Default no action.-    | Allow-      -- ^ @ALLOW@-      -- Matching \'Entries\' grant access.-    | AllowWithLog-      -- ^ @ALLOW_WITH_LOG@-      -- Matching \'Entries\' grant access and the caller promises to log the-      -- request per the returned log_configs.-    | Deny-      -- ^ @DENY@-      -- Matching \'Entries\' deny access.-    | DenyWithLog-      -- ^ @DENY_WITH_LOG@-      -- Matching \'Entries\' deny access and the caller promises to log the-      -- request per the returned log_configs.-    | Log-      -- ^ @LOG@-      -- Matching \'Entries\' tell IAM.Check callers to generate logs.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable RuleAction--instance FromHttpApiData RuleAction where-    parseQueryParam = \case-        "NO_ACTION" -> Right NoAction-        "ALLOW" -> Right Allow-        "ALLOW_WITH_LOG" -> Right AllowWithLog-        "DENY" -> Right Deny-        "DENY_WITH_LOG" -> Right DenyWithLog-        "LOG" -> Right Log-        x -> Left ("Unable to parse RuleAction from: " <> x)--instance ToHttpApiData RuleAction where-    toQueryParam = \case-        NoAction -> "NO_ACTION"-        Allow -> "ALLOW"-        AllowWithLog -> "ALLOW_WITH_LOG"-        Deny -> "DENY"-        DenyWithLog -> "DENY_WITH_LOG"-        Log -> "LOG"--instance FromJSON RuleAction where-    parseJSON = parseJSONText "RuleAction"--instance ToJSON RuleAction where-    toJSON = toJSONText---- | Required. Instance type.-data InstanceType-    = TypeUnspecified-      -- ^ @TYPE_UNSPECIFIED@-      -- No type specified. The instance creation will fail.-    | Basic-      -- ^ @BASIC@-      -- Basic Data Fusion instance. In Basic type, the user will be able to-      -- create data pipelines using point and click UI. However, there are-      -- certain limitations, such as fewer number of concurrent pipelines, no-      -- support for streaming pipelines, etc.-    | Enterprise-      -- ^ @ENTERPRISE@-      -- Enterprise Data Fusion instance. In Enterprise type, the user will have-      -- more features available, such as support for streaming pipelines, higher-      -- number of concurrent pipelines, etc.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable InstanceType--instance FromHttpApiData InstanceType where-    parseQueryParam = \case-        "TYPE_UNSPECIFIED" -> Right TypeUnspecified-        "BASIC" -> Right Basic-        "ENTERPRISE" -> Right Enterprise-        x -> Left ("Unable to parse InstanceType from: " <> x)--instance ToHttpApiData InstanceType where-    toQueryParam = \case-        TypeUnspecified -> "TYPE_UNSPECIFIED"-        Basic -> "BASIC"-        Enterprise -> "ENTERPRISE"--instance FromJSON InstanceType where-    parseJSON = parseJSONText "InstanceType"--instance ToJSON InstanceType where-    toJSON = toJSONText---- | An operator to apply the subject with.-data ConditionOp-    = NoOp-      -- ^ @NO_OP@-      -- Default no-op.-    | Equals-      -- ^ @EQUALS@-      -- DEPRECATED. Use IN instead.-    | NotEquals-      -- ^ @NOT_EQUALS@-      -- DEPRECATED. Use NOT_IN instead.-    | IN-      -- ^ @IN@-      -- The condition is true if the subject (or any element of it if it is a-      -- set) matches any of the supplied values.-    | NotIn-      -- ^ @NOT_IN@-      -- The condition is true if the subject (or every element of it if it is a-      -- set) matches none of the supplied values.-    | Discharged-      -- ^ @DISCHARGED@-      -- Subject is discharged-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ConditionOp--instance FromHttpApiData ConditionOp where-    parseQueryParam = \case-        "NO_OP" -> Right NoOp-        "EQUALS" -> Right Equals-        "NOT_EQUALS" -> Right NotEquals-        "IN" -> Right IN-        "NOT_IN" -> Right NotIn-        "DISCHARGED" -> Right Discharged-        x -> Left ("Unable to parse ConditionOp from: " <> x)--instance ToHttpApiData ConditionOp where-    toQueryParam = \case-        NoOp -> "NO_OP"-        Equals -> "EQUALS"-        NotEquals -> "NOT_EQUALS"-        IN -> "IN"-        NotIn -> "NOT_IN"-        Discharged -> "DISCHARGED"--instance FromJSON ConditionOp where-    parseJSON = parseJSONText "ConditionOp"--instance ToJSON ConditionOp where-    toJSON = toJSONText---- | The log type that this config enables.-data AuditLogConfigLogType-    = LogTypeUnspecified-      -- ^ @LOG_TYPE_UNSPECIFIED@-      -- Default case. Should never be this.-    | AdminRead-      -- ^ @ADMIN_READ@-      -- Admin reads. Example: CloudIAM getIamPolicy-    | DataWrite-      -- ^ @DATA_WRITE@-      -- Data writes. Example: CloudSQL Users create-    | DataRead-      -- ^ @DATA_READ@-      -- Data reads. Example: CloudSQL Users list-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable AuditLogConfigLogType--instance FromHttpApiData AuditLogConfigLogType where-    parseQueryParam = \case-        "LOG_TYPE_UNSPECIFIED" -> Right LogTypeUnspecified-        "ADMIN_READ" -> Right AdminRead-        "DATA_WRITE" -> Right DataWrite-        "DATA_READ" -> Right DataRead-        x -> Left ("Unable to parse AuditLogConfigLogType from: " <> x)--instance ToHttpApiData AuditLogConfigLogType where-    toQueryParam = \case-        LogTypeUnspecified -> "LOG_TYPE_UNSPECIFIED"-        AdminRead -> "ADMIN_READ"-        DataWrite -> "DATA_WRITE"-        DataRead -> "DATA_READ"--instance FromJSON AuditLogConfigLogType where-    parseJSON = parseJSONText "AuditLogConfigLogType"--instance ToJSON AuditLogConfigLogType 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---- | Whether Gin logging should happen in a fail-closed manner at the caller.--- This is relevant only in the LocalIAM implementation, for now.-data DataAccessOptionsLogMode-    = LogModeUnspecified-      -- ^ @LOG_MODE_UNSPECIFIED@-      -- Client is not required to write a partial Gin log immediately after the-      -- authorization check. If client chooses to write one and it fails, client-      -- may either fail open (allow the operation to continue) or fail closed-      -- (handle as a DENY outcome).-    | LogFailClosed-      -- ^ @LOG_FAIL_CLOSED@-      -- The application\'s operation in the context of which this authorization-      -- check is being made may only be performed if it is successfully logged-      -- to Gin. For instance, the authorization library may satisfy this-      -- obligation by emitting a partial log entry at authorization check time-      -- and only returning ALLOW to the application if it succeeds. If a-      -- matching Rule has this directive, but the client has not indicated that-      -- it will honor such requirements, then the IAM check will result in-      -- authorization failure by setting CheckPolicyResponse.success=false.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable DataAccessOptionsLogMode--instance FromHttpApiData DataAccessOptionsLogMode where-    parseQueryParam = \case-        "LOG_MODE_UNSPECIFIED" -> Right LogModeUnspecified-        "LOG_FAIL_CLOSED" -> Right LogFailClosed-        x -> Left ("Unable to parse DataAccessOptionsLogMode from: " <> x)--instance ToHttpApiData DataAccessOptionsLogMode where-    toQueryParam = \case-        LogModeUnspecified -> "LOG_MODE_UNSPECIFIED"-        LogFailClosed -> "LOG_FAIL_CLOSED"--instance FromJSON DataAccessOptionsLogMode where-    parseJSON = parseJSONText "DataAccessOptionsLogMode"--instance ToJSON DataAccessOptionsLogMode where-    toJSON = toJSONText---- | The type of the permission that was checked.-data AuthorizationLoggingOptionsPermissionType-    = ALOPTPermissionTypeUnspecified-      -- ^ @PERMISSION_TYPE_UNSPECIFIED@-      -- Default. Should not be used.-    | ALOPTAdminRead-      -- ^ @ADMIN_READ@-      -- A read of admin (meta) data.-    | ALOPTAdminWrite-      -- ^ @ADMIN_WRITE@-      -- A write of admin (meta) data.-    | ALOPTDataRead-      -- ^ @DATA_READ@-      -- A read of standard data.-    | ALOPTDataWrite-      -- ^ @DATA_WRITE@-      -- A write of standard data.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable AuthorizationLoggingOptionsPermissionType--instance FromHttpApiData AuthorizationLoggingOptionsPermissionType where-    parseQueryParam = \case-        "PERMISSION_TYPE_UNSPECIFIED" -> Right ALOPTPermissionTypeUnspecified-        "ADMIN_READ" -> Right ALOPTAdminRead-        "ADMIN_WRITE" -> Right ALOPTAdminWrite-        "DATA_READ" -> Right ALOPTDataRead-        "DATA_WRITE" -> Right ALOPTDataWrite-        x -> Left ("Unable to parse AuthorizationLoggingOptionsPermissionType from: " <> x)--instance ToHttpApiData AuthorizationLoggingOptionsPermissionType where-    toQueryParam = \case-        ALOPTPermissionTypeUnspecified -> "PERMISSION_TYPE_UNSPECIFIED"-        ALOPTAdminRead -> "ADMIN_READ"-        ALOPTAdminWrite -> "ADMIN_WRITE"-        ALOPTDataRead -> "DATA_READ"-        ALOPTDataWrite -> "DATA_WRITE"--instance FromJSON AuthorizationLoggingOptionsPermissionType where-    parseJSON = parseJSONText "AuthorizationLoggingOptionsPermissionType"--instance ToJSON AuthorizationLoggingOptionsPermissionType where-    toJSON = toJSONText---- | Output only. The current state of this Data Fusion instance.-data InstanceState-    = StateUnspecified-      -- ^ @STATE_UNSPECIFIED@-      -- Instance does not have a state yet-    | Creating-      -- ^ @CREATING@-      -- Instance is being created-    | Running-      -- ^ @RUNNING@-      -- Instance is running and ready for requests-    | Failed-      -- ^ @FAILED@-      -- Instance creation failed-    | Deleting-      -- ^ @DELETING@-      -- Instance is being deleted-    | Upgrading-      -- ^ @UPGRADING@-      -- Instance is being upgraded-    | Restarting-      -- ^ @RESTARTING@-      -- Instance is being restarted-    | Updating-      -- ^ @UPDATING@-      -- Instance is being updated-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable InstanceState--instance FromHttpApiData InstanceState where-    parseQueryParam = \case-        "STATE_UNSPECIFIED" -> Right StateUnspecified-        "CREATING" -> Right Creating-        "RUNNING" -> Right Running-        "FAILED" -> Right Failed-        "DELETING" -> Right Deleting-        "UPGRADING" -> Right Upgrading-        "RESTARTING" -> Right Restarting-        "UPDATING" -> Right Updating-        x -> Left ("Unable to parse InstanceState from: " <> x)--instance ToHttpApiData InstanceState where-    toQueryParam = \case-        StateUnspecified -> "STATE_UNSPECIFIED"-        Creating -> "CREATING"-        Running -> "RUNNING"-        Failed -> "FAILED"-        Deleting -> "DELETING"-        Upgrading -> "UPGRADING"-        Restarting -> "RESTARTING"-        Updating -> "UPDATING"--instance FromJSON InstanceState where-    parseJSON = parseJSONText "InstanceState"--instance ToJSON InstanceState where-    toJSON = toJSONText---- | Trusted attributes supplied by the IAM system.-data ConditionIAM-    = CINoAttr-      -- ^ @NO_ATTR@-      -- Default non-attribute.-    | CIAuthority-      -- ^ @AUTHORITY@-      -- Either principal or (if present) authority selector.-    | CIAttribution-      -- ^ @ATTRIBUTION@-      -- The principal (even if an authority selector is present), which must-      -- only be used for attribution, not authorization.-    | CISecurityRealm-      -- ^ @SECURITY_REALM@-      -- Any of the security realms in the IAMContext (go\/security-realms). When-      -- used with IN, the condition indicates \"any of the request\'s realms-      -- match one of the given values; with NOT_IN, \"none of the realms match-      -- any of the given values\". Note that a value can be: - \'self\' (i.e.,-      -- allow connections from clients that are in the same security realm) - a-      -- realm (e.g., \'campus-abc\') - a realm group (e.g.,-      -- \'realms-for-borg-cell-xx\', see: go\/realm-groups) A match is-      -- determined by a realm group membership check performed by a RealmAclRep-      -- object (go\/realm-acl-howto). It is not permitted to grant access based-      -- on the *absence* of a realm, so realm conditions can only be used in a-      -- \"positive\" context (e.g., ALLOW\/IN or DENY\/NOT_IN).-    | CIApprover-      -- ^ @APPROVER@-      -- An approver (distinct from the requester) that has authorized this-      -- request. When used with IN, the condition indicates that one of the-      -- approvers associated with the request matches the specified principal,-      -- or is a member of the specified group. Approvers can only grant-      -- additional access, and are thus only used in a strictly positive context-      -- (e.g. ALLOW\/IN or DENY\/NOT_IN).-    | CIJustificationType-      -- ^ @JUSTIFICATION_TYPE@-      -- What types of justifications have been supplied with this request.-      -- String values should match enum names from tech.iam.JustificationType,-      -- e.g. \"MANUAL_STRING\". It is not permitted to grant access based on the-      -- *absence* of a justification, so justification conditions can only be-      -- used in a \"positive\" context (e.g., ALLOW\/IN or DENY\/NOT_IN).-      -- Multiple justifications, e.g., a Buganizer ID and a manually-entered-      -- reason, are normal and supported.-    | CICredentialsType-      -- ^ @CREDENTIALS_TYPE@-      -- What type of credentials have been supplied with this request. String-      -- values should match enum names from security_loas_l2.CredentialsType --      -- currently, only CREDS_TYPE_EMERGENCY is supported. It is not permitted-      -- to grant access based on the *absence* of a credentials type, so the-      -- conditions can only be used in a \"positive\" context (e.g., ALLOW\/IN-      -- or DENY\/NOT_IN).-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ConditionIAM--instance FromHttpApiData ConditionIAM where-    parseQueryParam = \case-        "NO_ATTR" -> Right CINoAttr-        "AUTHORITY" -> Right CIAuthority-        "ATTRIBUTION" -> Right CIAttribution-        "SECURITY_REALM" -> Right CISecurityRealm-        "APPROVER" -> Right CIApprover-        "JUSTIFICATION_TYPE" -> Right CIJustificationType-        "CREDENTIALS_TYPE" -> Right CICredentialsType-        x -> Left ("Unable to parse ConditionIAM from: " <> x)--instance ToHttpApiData ConditionIAM where-    toQueryParam = \case-        CINoAttr -> "NO_ATTR"-        CIAuthority -> "AUTHORITY"-        CIAttribution -> "ATTRIBUTION"-        CISecurityRealm -> "SECURITY_REALM"-        CIApprover -> "APPROVER"-        CIJustificationType -> "JUSTIFICATION_TYPE"-        CICredentialsType -> "CREDENTIALS_TYPE"--instance FromJSON ConditionIAM where-    parseJSON = parseJSONText "ConditionIAM"--instance ToJSON ConditionIAM where-    toJSON = toJSONText
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Get.hs 
@@ -1,148 +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.DataFusion.Projects.Locations.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 information about a location.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.get@.-module Network.Google.Resource.DataFusion.Projects.Locations.Get-    (-    -- * REST Resource-      ProjectsLocationsGetResource--    -- * Creating a Request-    , projectsLocationsGet-    , ProjectsLocationsGet--    -- * Request Lenses-    , plgXgafv-    , plgUploadProtocol-    , plgAccessToken-    , plgUploadType-    , plgName-    , plgCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.get@ method which the--- 'ProjectsLocationsGet' request conforms to.-type ProjectsLocationsGetResource =-     "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] Location---- | Gets information about a location.------ /See:/ 'projectsLocationsGet' smart constructor.-data ProjectsLocationsGet =-  ProjectsLocationsGet'-    { _plgXgafv          :: !(Maybe Xgafv)-    , _plgUploadProtocol :: !(Maybe Text)-    , _plgAccessToken    :: !(Maybe Text)-    , _plgUploadType     :: !(Maybe Text)-    , _plgName           :: !Text-    , _plgCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plgXgafv'------ * 'plgUploadProtocol'------ * 'plgAccessToken'------ * 'plgUploadType'------ * 'plgName'------ * 'plgCallback'-projectsLocationsGet-    :: Text -- ^ 'plgName'-    -> ProjectsLocationsGet-projectsLocationsGet pPlgName_ =-  ProjectsLocationsGet'-    { _plgXgafv = Nothing-    , _plgUploadProtocol = Nothing-    , _plgAccessToken = Nothing-    , _plgUploadType = Nothing-    , _plgName = pPlgName_-    , _plgCallback = Nothing-    }----- | V1 error format.-plgXgafv :: Lens' ProjectsLocationsGet (Maybe Xgafv)-plgXgafv = lens _plgXgafv (\ s a -> s{_plgXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-plgUploadProtocol :: Lens' ProjectsLocationsGet (Maybe Text)-plgUploadProtocol-  = lens _plgUploadProtocol-      (\ s a -> s{_plgUploadProtocol = a})---- | OAuth access token.-plgAccessToken :: Lens' ProjectsLocationsGet (Maybe Text)-plgAccessToken-  = lens _plgAccessToken-      (\ s a -> s{_plgAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-plgUploadType :: Lens' ProjectsLocationsGet (Maybe Text)-plgUploadType-  = lens _plgUploadType-      (\ s a -> s{_plgUploadType = a})---- | Resource name for the location.-plgName :: Lens' ProjectsLocationsGet Text-plgName = lens _plgName (\ s a -> s{_plgName = a})---- | JSONP-plgCallback :: Lens' ProjectsLocationsGet (Maybe Text)-plgCallback-  = lens _plgCallback (\ s a -> s{_plgCallback = a})--instance GoogleRequest ProjectsLocationsGet where-        type Rs ProjectsLocationsGet = Location-        type Scopes ProjectsLocationsGet =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsLocationsGet'{..}-          = go _plgName _plgXgafv _plgUploadProtocol-              _plgAccessToken-              _plgUploadType-              _plgCallback-              (Just AltJSON)-              dataFusionService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsLocationsGetResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Instances/Create.hs 
@@ -1,183 +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.DataFusion.Projects.Locations.Instances.Create--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a new Data Fusion instance in the specified project and--- location.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.create@.-module Network.Google.Resource.DataFusion.Projects.Locations.Instances.Create-    (-    -- * REST Resource-      ProjectsLocationsInstancesCreateResource--    -- * Creating a Request-    , projectsLocationsInstancesCreate-    , ProjectsLocationsInstancesCreate--    -- * Request Lenses-    , plicParent-    , plicInstanceId-    , plicXgafv-    , plicUploadProtocol-    , plicAccessToken-    , plicUploadType-    , plicPayload-    , plicCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.instances.create@ method which the--- 'ProjectsLocationsInstancesCreate' request conforms to.-type ProjectsLocationsInstancesCreateResource =-     "v1beta1" :>-       Capture "parent" Text :>-         "instances" :>-           QueryParam "instanceId" Text :>-             QueryParam "$.xgafv" Xgafv :>-               QueryParam "upload_protocol" Text :>-                 QueryParam "access_token" Text :>-                   QueryParam "uploadType" Text :>-                     QueryParam "callback" Text :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] Instance :> Post '[JSON] Operation---- | Creates a new Data Fusion instance in the specified project and--- location.------ /See:/ 'projectsLocationsInstancesCreate' smart constructor.-data ProjectsLocationsInstancesCreate =-  ProjectsLocationsInstancesCreate'-    { _plicParent         :: !Text-    , _plicInstanceId     :: !(Maybe Text)-    , _plicXgafv          :: !(Maybe Xgafv)-    , _plicUploadProtocol :: !(Maybe Text)-    , _plicAccessToken    :: !(Maybe Text)-    , _plicUploadType     :: !(Maybe Text)-    , _plicPayload        :: !Instance-    , _plicCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsInstancesCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plicParent'------ * 'plicInstanceId'------ * 'plicXgafv'------ * 'plicUploadProtocol'------ * 'plicAccessToken'------ * 'plicUploadType'------ * 'plicPayload'------ * 'plicCallback'-projectsLocationsInstancesCreate-    :: Text -- ^ 'plicParent'-    -> Instance -- ^ 'plicPayload'-    -> ProjectsLocationsInstancesCreate-projectsLocationsInstancesCreate pPlicParent_ pPlicPayload_ =-  ProjectsLocationsInstancesCreate'-    { _plicParent = pPlicParent_-    , _plicInstanceId = Nothing-    , _plicXgafv = Nothing-    , _plicUploadProtocol = Nothing-    , _plicAccessToken = Nothing-    , _plicUploadType = Nothing-    , _plicPayload = pPlicPayload_-    , _plicCallback = Nothing-    }----- | The instance\'s project and location in the format--- projects\/{project}\/locations\/{location}.-plicParent :: Lens' ProjectsLocationsInstancesCreate Text-plicParent-  = lens _plicParent (\ s a -> s{_plicParent = a})---- | The name of the instance to create.-plicInstanceId :: Lens' ProjectsLocationsInstancesCreate (Maybe Text)-plicInstanceId-  = lens _plicInstanceId-      (\ s a -> s{_plicInstanceId = a})---- | V1 error format.-plicXgafv :: Lens' ProjectsLocationsInstancesCreate (Maybe Xgafv)-plicXgafv-  = lens _plicXgafv (\ s a -> s{_plicXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-plicUploadProtocol :: Lens' ProjectsLocationsInstancesCreate (Maybe Text)-plicUploadProtocol-  = lens _plicUploadProtocol-      (\ s a -> s{_plicUploadProtocol = a})---- | OAuth access token.-plicAccessToken :: Lens' ProjectsLocationsInstancesCreate (Maybe Text)-plicAccessToken-  = lens _plicAccessToken-      (\ s a -> s{_plicAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-plicUploadType :: Lens' ProjectsLocationsInstancesCreate (Maybe Text)-plicUploadType-  = lens _plicUploadType-      (\ s a -> s{_plicUploadType = a})---- | Multipart request metadata.-plicPayload :: Lens' ProjectsLocationsInstancesCreate Instance-plicPayload-  = lens _plicPayload (\ s a -> s{_plicPayload = a})---- | JSONP-plicCallback :: Lens' ProjectsLocationsInstancesCreate (Maybe Text)-plicCallback-  = lens _plicCallback (\ s a -> s{_plicCallback = a})--instance GoogleRequest-           ProjectsLocationsInstancesCreate-         where-        type Rs ProjectsLocationsInstancesCreate = Operation-        type Scopes ProjectsLocationsInstancesCreate =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsLocationsInstancesCreate'{..}-          = go _plicParent _plicInstanceId _plicXgafv-              _plicUploadProtocol-              _plicAccessToken-              _plicUploadType-              _plicCallback-              (Just AltJSON)-              _plicPayload-              dataFusionService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsInstancesCreateResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Instances/Delete.hs 
@@ -1,153 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.DataFusion.Projects.Locations.Instances.Delete--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes a single Date Fusion instance.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.delete@.-module Network.Google.Resource.DataFusion.Projects.Locations.Instances.Delete-    (-    -- * REST Resource-      ProjectsLocationsInstancesDeleteResource--    -- * Creating a Request-    , projectsLocationsInstancesDelete-    , ProjectsLocationsInstancesDelete--    -- * Request Lenses-    , plidXgafv-    , plidUploadProtocol-    , plidAccessToken-    , plidUploadType-    , plidName-    , plidCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.instances.delete@ method which the--- 'ProjectsLocationsInstancesDelete' request conforms to.-type ProjectsLocationsInstancesDeleteResource =-     "v1beta1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] Operation---- | Deletes a single Date Fusion instance.------ /See:/ 'projectsLocationsInstancesDelete' smart constructor.-data ProjectsLocationsInstancesDelete =-  ProjectsLocationsInstancesDelete'-    { _plidXgafv          :: !(Maybe Xgafv)-    , _plidUploadProtocol :: !(Maybe Text)-    , _plidAccessToken    :: !(Maybe Text)-    , _plidUploadType     :: !(Maybe Text)-    , _plidName           :: !Text-    , _plidCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsInstancesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plidXgafv'------ * 'plidUploadProtocol'------ * 'plidAccessToken'------ * 'plidUploadType'------ * 'plidName'------ * 'plidCallback'-projectsLocationsInstancesDelete-    :: Text -- ^ 'plidName'-    -> ProjectsLocationsInstancesDelete-projectsLocationsInstancesDelete pPlidName_ =-  ProjectsLocationsInstancesDelete'-    { _plidXgafv = Nothing-    , _plidUploadProtocol = Nothing-    , _plidAccessToken = Nothing-    , _plidUploadType = Nothing-    , _plidName = pPlidName_-    , _plidCallback = Nothing-    }----- | V1 error format.-plidXgafv :: Lens' ProjectsLocationsInstancesDelete (Maybe Xgafv)-plidXgafv-  = lens _plidXgafv (\ s a -> s{_plidXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-plidUploadProtocol :: Lens' ProjectsLocationsInstancesDelete (Maybe Text)-plidUploadProtocol-  = lens _plidUploadProtocol-      (\ s a -> s{_plidUploadProtocol = a})---- | OAuth access token.-plidAccessToken :: Lens' ProjectsLocationsInstancesDelete (Maybe Text)-plidAccessToken-  = lens _plidAccessToken-      (\ s a -> s{_plidAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-plidUploadType :: Lens' ProjectsLocationsInstancesDelete (Maybe Text)-plidUploadType-  = lens _plidUploadType-      (\ s a -> s{_plidUploadType = a})---- | The instance resource name in the format--- projects\/{project}\/locations\/{location}\/instances\/{instance}-plidName :: Lens' ProjectsLocationsInstancesDelete Text-plidName = lens _plidName (\ s a -> s{_plidName = a})---- | JSONP-plidCallback :: Lens' ProjectsLocationsInstancesDelete (Maybe Text)-plidCallback-  = lens _plidCallback (\ s a -> s{_plidCallback = a})--instance GoogleRequest-           ProjectsLocationsInstancesDelete-         where-        type Rs ProjectsLocationsInstancesDelete = Operation-        type Scopes ProjectsLocationsInstancesDelete =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsLocationsInstancesDelete'{..}-          = go _plidName _plidXgafv _plidUploadProtocol-              _plidAccessToken-              _plidUploadType-              _plidCallback-              (Just AltJSON)-              dataFusionService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsInstancesDeleteResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Instances/Get.hs 
@@ -1,152 +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.DataFusion.Projects.Locations.Instances.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 details of a single Data Fusion instance.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.get@.-module Network.Google.Resource.DataFusion.Projects.Locations.Instances.Get-    (-    -- * REST Resource-      ProjectsLocationsInstancesGetResource--    -- * Creating a Request-    , projectsLocationsInstancesGet-    , ProjectsLocationsInstancesGet--    -- * Request Lenses-    , pligXgafv-    , pligUploadProtocol-    , pligAccessToken-    , pligUploadType-    , pligName-    , pligCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.instances.get@ method which the--- 'ProjectsLocationsInstancesGet' request conforms to.-type ProjectsLocationsInstancesGetResource =-     "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] Instance---- | Gets details of a single Data Fusion instance.------ /See:/ 'projectsLocationsInstancesGet' smart constructor.-data ProjectsLocationsInstancesGet =-  ProjectsLocationsInstancesGet'-    { _pligXgafv          :: !(Maybe Xgafv)-    , _pligUploadProtocol :: !(Maybe Text)-    , _pligAccessToken    :: !(Maybe Text)-    , _pligUploadType     :: !(Maybe Text)-    , _pligName           :: !Text-    , _pligCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsInstancesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pligXgafv'------ * 'pligUploadProtocol'------ * 'pligAccessToken'------ * 'pligUploadType'------ * 'pligName'------ * 'pligCallback'-projectsLocationsInstancesGet-    :: Text -- ^ 'pligName'-    -> ProjectsLocationsInstancesGet-projectsLocationsInstancesGet pPligName_ =-  ProjectsLocationsInstancesGet'-    { _pligXgafv = Nothing-    , _pligUploadProtocol = Nothing-    , _pligAccessToken = Nothing-    , _pligUploadType = Nothing-    , _pligName = pPligName_-    , _pligCallback = Nothing-    }----- | V1 error format.-pligXgafv :: Lens' ProjectsLocationsInstancesGet (Maybe Xgafv)-pligXgafv-  = lens _pligXgafv (\ s a -> s{_pligXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pligUploadProtocol :: Lens' ProjectsLocationsInstancesGet (Maybe Text)-pligUploadProtocol-  = lens _pligUploadProtocol-      (\ s a -> s{_pligUploadProtocol = a})---- | OAuth access token.-pligAccessToken :: Lens' ProjectsLocationsInstancesGet (Maybe Text)-pligAccessToken-  = lens _pligAccessToken-      (\ s a -> s{_pligAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pligUploadType :: Lens' ProjectsLocationsInstancesGet (Maybe Text)-pligUploadType-  = lens _pligUploadType-      (\ s a -> s{_pligUploadType = a})---- | The instance resource name in the format--- projects\/{project}\/locations\/{location}\/instances\/{instance}.-pligName :: Lens' ProjectsLocationsInstancesGet Text-pligName = lens _pligName (\ s a -> s{_pligName = a})---- | JSONP-pligCallback :: Lens' ProjectsLocationsInstancesGet (Maybe Text)-pligCallback-  = lens _pligCallback (\ s a -> s{_pligCallback = a})--instance GoogleRequest ProjectsLocationsInstancesGet-         where-        type Rs ProjectsLocationsInstancesGet = Instance-        type Scopes ProjectsLocationsInstancesGet =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsLocationsInstancesGet'{..}-          = go _pligName _pligXgafv _pligUploadProtocol-              _pligAccessToken-              _pligUploadType-              _pligCallback-              (Just AltJSON)-              dataFusionService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsInstancesGetResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Instances/GetIAMPolicy.hs 
@@ -1,161 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.DataFusion.Projects.Locations.Instances.GetIAMPolicy--- 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 access control policy for a resource. Returns an empty policy--- if the resource exists and does not have a policy set.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.getIamPolicy@.-module Network.Google.Resource.DataFusion.Projects.Locations.Instances.GetIAMPolicy-    (-    -- * REST Resource-      ProjectsLocationsInstancesGetIAMPolicyResource--    -- * Creating a Request-    , projectsLocationsInstancesGetIAMPolicy-    , ProjectsLocationsInstancesGetIAMPolicy--    -- * Request Lenses-    , pligipXgafv-    , pligipUploadProtocol-    , pligipAccessToken-    , pligipUploadType-    , pligipResource-    , pligipCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.instances.getIamPolicy@ method which the--- 'ProjectsLocationsInstancesGetIAMPolicy' request conforms to.-type ProjectsLocationsInstancesGetIAMPolicyResource =-     "v1beta1" :>-       CaptureMode "resource" "getIamPolicy" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Policy---- | Gets the access control policy for a resource. Returns an empty policy--- if the resource exists and does not have a policy set.------ /See:/ 'projectsLocationsInstancesGetIAMPolicy' smart constructor.-data ProjectsLocationsInstancesGetIAMPolicy =-  ProjectsLocationsInstancesGetIAMPolicy'-    { _pligipXgafv          :: !(Maybe Xgafv)-    , _pligipUploadProtocol :: !(Maybe Text)-    , _pligipAccessToken    :: !(Maybe Text)-    , _pligipUploadType     :: !(Maybe Text)-    , _pligipResource       :: !Text-    , _pligipCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsInstancesGetIAMPolicy' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pligipXgafv'------ * 'pligipUploadProtocol'------ * 'pligipAccessToken'------ * 'pligipUploadType'------ * 'pligipResource'------ * 'pligipCallback'-projectsLocationsInstancesGetIAMPolicy-    :: Text -- ^ 'pligipResource'-    -> ProjectsLocationsInstancesGetIAMPolicy-projectsLocationsInstancesGetIAMPolicy pPligipResource_ =-  ProjectsLocationsInstancesGetIAMPolicy'-    { _pligipXgafv = Nothing-    , _pligipUploadProtocol = Nothing-    , _pligipAccessToken = Nothing-    , _pligipUploadType = Nothing-    , _pligipResource = pPligipResource_-    , _pligipCallback = Nothing-    }----- | V1 error format.-pligipXgafv :: Lens' ProjectsLocationsInstancesGetIAMPolicy (Maybe Xgafv)-pligipXgafv-  = lens _pligipXgafv (\ s a -> s{_pligipXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pligipUploadProtocol :: Lens' ProjectsLocationsInstancesGetIAMPolicy (Maybe Text)-pligipUploadProtocol-  = lens _pligipUploadProtocol-      (\ s a -> s{_pligipUploadProtocol = a})---- | OAuth access token.-pligipAccessToken :: Lens' ProjectsLocationsInstancesGetIAMPolicy (Maybe Text)-pligipAccessToken-  = lens _pligipAccessToken-      (\ s a -> s{_pligipAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pligipUploadType :: Lens' ProjectsLocationsInstancesGetIAMPolicy (Maybe Text)-pligipUploadType-  = lens _pligipUploadType-      (\ s a -> s{_pligipUploadType = a})---- | REQUIRED: The resource for which the policy is being requested. See the--- operation documentation for the appropriate value for this field.-pligipResource :: Lens' ProjectsLocationsInstancesGetIAMPolicy Text-pligipResource-  = lens _pligipResource-      (\ s a -> s{_pligipResource = a})---- | JSONP-pligipCallback :: Lens' ProjectsLocationsInstancesGetIAMPolicy (Maybe Text)-pligipCallback-  = lens _pligipCallback-      (\ s a -> s{_pligipCallback = a})--instance GoogleRequest-           ProjectsLocationsInstancesGetIAMPolicy-         where-        type Rs ProjectsLocationsInstancesGetIAMPolicy =-             Policy-        type Scopes ProjectsLocationsInstancesGetIAMPolicy =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient-          ProjectsLocationsInstancesGetIAMPolicy'{..}-          = go _pligipResource _pligipXgafv-              _pligipUploadProtocol-              _pligipAccessToken-              _pligipUploadType-              _pligipCallback-              (Just AltJSON)-              dataFusionService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsInstancesGetIAMPolicyResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Instances/List.hs 
@@ -1,210 +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.DataFusion.Projects.Locations.Instances.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 Data Fusion instances in the specified project and location.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.list@.-module Network.Google.Resource.DataFusion.Projects.Locations.Instances.List-    (-    -- * REST Resource-      ProjectsLocationsInstancesListResource--    -- * Creating a Request-    , projectsLocationsInstancesList-    , ProjectsLocationsInstancesList--    -- * Request Lenses-    , plilParent-    , plilXgafv-    , plilUploadProtocol-    , plilOrderBy-    , plilAccessToken-    , plilUploadType-    , plilFilter-    , plilPageToken-    , plilPageSize-    , plilCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.instances.list@ method which the--- 'ProjectsLocationsInstancesList' request conforms to.-type ProjectsLocationsInstancesListResource =-     "v1beta1" :>-       Capture "parent" Text :>-         "instances" :>-           QueryParam "$.xgafv" Xgafv :>-             QueryParam "upload_protocol" Text :>-               QueryParam "orderBy" 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] ListInstancesResponse---- | Lists Data Fusion instances in the specified project and location.------ /See:/ 'projectsLocationsInstancesList' smart constructor.-data ProjectsLocationsInstancesList =-  ProjectsLocationsInstancesList'-    { _plilParent         :: !Text-    , _plilXgafv          :: !(Maybe Xgafv)-    , _plilUploadProtocol :: !(Maybe Text)-    , _plilOrderBy        :: !(Maybe Text)-    , _plilAccessToken    :: !(Maybe Text)-    , _plilUploadType     :: !(Maybe Text)-    , _plilFilter         :: !(Maybe Text)-    , _plilPageToken      :: !(Maybe Text)-    , _plilPageSize       :: !(Maybe (Textual Int32))-    , _plilCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsInstancesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plilParent'------ * 'plilXgafv'------ * 'plilUploadProtocol'------ * 'plilOrderBy'------ * 'plilAccessToken'------ * 'plilUploadType'------ * 'plilFilter'------ * 'plilPageToken'------ * 'plilPageSize'------ * 'plilCallback'-projectsLocationsInstancesList-    :: Text -- ^ 'plilParent'-    -> ProjectsLocationsInstancesList-projectsLocationsInstancesList pPlilParent_ =-  ProjectsLocationsInstancesList'-    { _plilParent = pPlilParent_-    , _plilXgafv = Nothing-    , _plilUploadProtocol = Nothing-    , _plilOrderBy = Nothing-    , _plilAccessToken = Nothing-    , _plilUploadType = Nothing-    , _plilFilter = Nothing-    , _plilPageToken = Nothing-    , _plilPageSize = Nothing-    , _plilCallback = Nothing-    }----- | The project and location for which to retrieve instance information in--- the format projects\/{project}\/locations\/{location}. If the location--- is specified as \'-\' (wildcard), then all regions available to the--- project are queried, and the results are aggregated.-plilParent :: Lens' ProjectsLocationsInstancesList Text-plilParent-  = lens _plilParent (\ s a -> s{_plilParent = a})---- | V1 error format.-plilXgafv :: Lens' ProjectsLocationsInstancesList (Maybe Xgafv)-plilXgafv-  = lens _plilXgafv (\ s a -> s{_plilXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-plilUploadProtocol :: Lens' ProjectsLocationsInstancesList (Maybe Text)-plilUploadProtocol-  = lens _plilUploadProtocol-      (\ s a -> s{_plilUploadProtocol = a})---- | Sort results. Supported values are \"name\", \"name desc\", or \"\"--- (unsorted).-plilOrderBy :: Lens' ProjectsLocationsInstancesList (Maybe Text)-plilOrderBy-  = lens _plilOrderBy (\ s a -> s{_plilOrderBy = a})---- | OAuth access token.-plilAccessToken :: Lens' ProjectsLocationsInstancesList (Maybe Text)-plilAccessToken-  = lens _plilAccessToken-      (\ s a -> s{_plilAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-plilUploadType :: Lens' ProjectsLocationsInstancesList (Maybe Text)-plilUploadType-  = lens _plilUploadType-      (\ s a -> s{_plilUploadType = a})---- | List filter.-plilFilter :: Lens' ProjectsLocationsInstancesList (Maybe Text)-plilFilter-  = lens _plilFilter (\ s a -> s{_plilFilter = a})---- | The next_page_token value to use if there are additional results to--- retrieve for this list request.-plilPageToken :: Lens' ProjectsLocationsInstancesList (Maybe Text)-plilPageToken-  = lens _plilPageToken-      (\ s a -> s{_plilPageToken = a})---- | The maximum number of items to return.-plilPageSize :: Lens' ProjectsLocationsInstancesList (Maybe Int32)-plilPageSize-  = lens _plilPageSize (\ s a -> s{_plilPageSize = a})-      . mapping _Coerce---- | JSONP-plilCallback :: Lens' ProjectsLocationsInstancesList (Maybe Text)-plilCallback-  = lens _plilCallback (\ s a -> s{_plilCallback = a})--instance GoogleRequest ProjectsLocationsInstancesList-         where-        type Rs ProjectsLocationsInstancesList =-             ListInstancesResponse-        type Scopes ProjectsLocationsInstancesList =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsLocationsInstancesList'{..}-          = go _plilParent _plilXgafv _plilUploadProtocol-              _plilOrderBy-              _plilAccessToken-              _plilUploadType-              _plilFilter-              _plilPageToken-              _plilPageSize-              _plilCallback-              (Just AltJSON)-              dataFusionService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsInstancesListResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Instances/Patch.hs 
@@ -1,184 +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.DataFusion.Projects.Locations.Instances.Patch--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Updates a single Data Fusion instance.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.patch@.-module Network.Google.Resource.DataFusion.Projects.Locations.Instances.Patch-    (-    -- * REST Resource-      ProjectsLocationsInstancesPatchResource--    -- * Creating a Request-    , projectsLocationsInstancesPatch-    , ProjectsLocationsInstancesPatch--    -- * Request Lenses-    , plipXgafv-    , plipUploadProtocol-    , plipUpdateMask-    , plipAccessToken-    , plipUploadType-    , plipPayload-    , plipName-    , plipCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.instances.patch@ method which the--- 'ProjectsLocationsInstancesPatch' request conforms to.-type ProjectsLocationsInstancesPatchResource =-     "v1beta1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "updateMask" GFieldMask :>-               QueryParam "access_token" Text :>-                 QueryParam "uploadType" Text :>-                   QueryParam "callback" Text :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] Instance :> Patch '[JSON] Operation---- | Updates a single Data Fusion instance.------ /See:/ 'projectsLocationsInstancesPatch' smart constructor.-data ProjectsLocationsInstancesPatch =-  ProjectsLocationsInstancesPatch'-    { _plipXgafv          :: !(Maybe Xgafv)-    , _plipUploadProtocol :: !(Maybe Text)-    , _plipUpdateMask     :: !(Maybe GFieldMask)-    , _plipAccessToken    :: !(Maybe Text)-    , _plipUploadType     :: !(Maybe Text)-    , _plipPayload        :: !Instance-    , _plipName           :: !Text-    , _plipCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsInstancesPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plipXgafv'------ * 'plipUploadProtocol'------ * 'plipUpdateMask'------ * 'plipAccessToken'------ * 'plipUploadType'------ * 'plipPayload'------ * 'plipName'------ * 'plipCallback'-projectsLocationsInstancesPatch-    :: Instance -- ^ 'plipPayload'-    -> Text -- ^ 'plipName'-    -> ProjectsLocationsInstancesPatch-projectsLocationsInstancesPatch pPlipPayload_ pPlipName_ =-  ProjectsLocationsInstancesPatch'-    { _plipXgafv = Nothing-    , _plipUploadProtocol = Nothing-    , _plipUpdateMask = Nothing-    , _plipAccessToken = Nothing-    , _plipUploadType = Nothing-    , _plipPayload = pPlipPayload_-    , _plipName = pPlipName_-    , _plipCallback = Nothing-    }----- | V1 error format.-plipXgafv :: Lens' ProjectsLocationsInstancesPatch (Maybe Xgafv)-plipXgafv-  = lens _plipXgafv (\ s a -> s{_plipXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-plipUploadProtocol :: Lens' ProjectsLocationsInstancesPatch (Maybe Text)-plipUploadProtocol-  = lens _plipUploadProtocol-      (\ s a -> s{_plipUploadProtocol = a})---- | Field mask is used to specify the fields that the update will overwrite--- in an instance resource. The fields specified in the update_mask are--- relative to the resource, not the full request. A field will be--- overwritten if it is in the mask. If the user does not provide a mask,--- all the supported fields (labels and options currently) will be--- overwritten.-plipUpdateMask :: Lens' ProjectsLocationsInstancesPatch (Maybe GFieldMask)-plipUpdateMask-  = lens _plipUpdateMask-      (\ s a -> s{_plipUpdateMask = a})---- | OAuth access token.-plipAccessToken :: Lens' ProjectsLocationsInstancesPatch (Maybe Text)-plipAccessToken-  = lens _plipAccessToken-      (\ s a -> s{_plipAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-plipUploadType :: Lens' ProjectsLocationsInstancesPatch (Maybe Text)-plipUploadType-  = lens _plipUploadType-      (\ s a -> s{_plipUploadType = a})---- | Multipart request metadata.-plipPayload :: Lens' ProjectsLocationsInstancesPatch Instance-plipPayload-  = lens _plipPayload (\ s a -> s{_plipPayload = a})---- | Output only. The name of this instance is in the form of--- projects\/{project}\/locations\/{location}\/instances\/{instance}.-plipName :: Lens' ProjectsLocationsInstancesPatch Text-plipName = lens _plipName (\ s a -> s{_plipName = a})---- | JSONP-plipCallback :: Lens' ProjectsLocationsInstancesPatch (Maybe Text)-plipCallback-  = lens _plipCallback (\ s a -> s{_plipCallback = a})--instance GoogleRequest-           ProjectsLocationsInstancesPatch-         where-        type Rs ProjectsLocationsInstancesPatch = Operation-        type Scopes ProjectsLocationsInstancesPatch =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsLocationsInstancesPatch'{..}-          = go _plipName _plipXgafv _plipUploadProtocol-              _plipUpdateMask-              _plipAccessToken-              _plipUploadType-              _plipCallback-              (Just AltJSON)-              _plipPayload-              dataFusionService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsInstancesPatchResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Instances/Restart.hs 
@@ -1,169 +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.DataFusion.Projects.Locations.Instances.Restart--- 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)------ Restart a single Data Fusion instance. At the end of an operation--- instance is fully restarted.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.restart@.-module Network.Google.Resource.DataFusion.Projects.Locations.Instances.Restart-    (-    -- * REST Resource-      ProjectsLocationsInstancesRestartResource--    -- * Creating a Request-    , projectsLocationsInstancesRestart-    , ProjectsLocationsInstancesRestart--    -- * Request Lenses-    , plirXgafv-    , plirUploadProtocol-    , plirAccessToken-    , plirUploadType-    , plirPayload-    , plirName-    , plirCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.instances.restart@ method which the--- 'ProjectsLocationsInstancesRestart' request conforms to.-type ProjectsLocationsInstancesRestartResource =-     "v1beta1" :>-       CaptureMode "name" "restart" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] RestartInstanceRequest :>-                       Post '[JSON] Operation---- | Restart a single Data Fusion instance. At the end of an operation--- instance is fully restarted.------ /See:/ 'projectsLocationsInstancesRestart' smart constructor.-data ProjectsLocationsInstancesRestart =-  ProjectsLocationsInstancesRestart'-    { _plirXgafv          :: !(Maybe Xgafv)-    , _plirUploadProtocol :: !(Maybe Text)-    , _plirAccessToken    :: !(Maybe Text)-    , _plirUploadType     :: !(Maybe Text)-    , _plirPayload        :: !RestartInstanceRequest-    , _plirName           :: !Text-    , _plirCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsInstancesRestart' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plirXgafv'------ * 'plirUploadProtocol'------ * 'plirAccessToken'------ * 'plirUploadType'------ * 'plirPayload'------ * 'plirName'------ * 'plirCallback'-projectsLocationsInstancesRestart-    :: RestartInstanceRequest -- ^ 'plirPayload'-    -> Text -- ^ 'plirName'-    -> ProjectsLocationsInstancesRestart-projectsLocationsInstancesRestart pPlirPayload_ pPlirName_ =-  ProjectsLocationsInstancesRestart'-    { _plirXgafv = Nothing-    , _plirUploadProtocol = Nothing-    , _plirAccessToken = Nothing-    , _plirUploadType = Nothing-    , _plirPayload = pPlirPayload_-    , _plirName = pPlirName_-    , _plirCallback = Nothing-    }----- | V1 error format.-plirXgafv :: Lens' ProjectsLocationsInstancesRestart (Maybe Xgafv)-plirXgafv-  = lens _plirXgafv (\ s a -> s{_plirXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-plirUploadProtocol :: Lens' ProjectsLocationsInstancesRestart (Maybe Text)-plirUploadProtocol-  = lens _plirUploadProtocol-      (\ s a -> s{_plirUploadProtocol = a})---- | OAuth access token.-plirAccessToken :: Lens' ProjectsLocationsInstancesRestart (Maybe Text)-plirAccessToken-  = lens _plirAccessToken-      (\ s a -> s{_plirAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-plirUploadType :: Lens' ProjectsLocationsInstancesRestart (Maybe Text)-plirUploadType-  = lens _plirUploadType-      (\ s a -> s{_plirUploadType = a})---- | Multipart request metadata.-plirPayload :: Lens' ProjectsLocationsInstancesRestart RestartInstanceRequest-plirPayload-  = lens _plirPayload (\ s a -> s{_plirPayload = a})---- | Name of the Data Fusion instance which need to be restarted in the form--- of projects\/{project}\/locations\/{location}\/instances\/{instance}-plirName :: Lens' ProjectsLocationsInstancesRestart Text-plirName = lens _plirName (\ s a -> s{_plirName = a})---- | JSONP-plirCallback :: Lens' ProjectsLocationsInstancesRestart (Maybe Text)-plirCallback-  = lens _plirCallback (\ s a -> s{_plirCallback = a})--instance GoogleRequest-           ProjectsLocationsInstancesRestart-         where-        type Rs ProjectsLocationsInstancesRestart = Operation-        type Scopes ProjectsLocationsInstancesRestart =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsLocationsInstancesRestart'{..}-          = go _plirName _plirXgafv _plirUploadProtocol-              _plirAccessToken-              _plirUploadType-              _plirCallback-              (Just AltJSON)-              _plirPayload-              dataFusionService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsInstancesRestartResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Instances/SetIAMPolicy.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.DataFusion.Projects.Locations.Instances.SetIAMPolicy--- 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)------ Sets the access control policy on the specified resource. Replaces any--- existing policy.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.setIamPolicy@.-module Network.Google.Resource.DataFusion.Projects.Locations.Instances.SetIAMPolicy-    (-    -- * REST Resource-      ProjectsLocationsInstancesSetIAMPolicyResource--    -- * Creating a Request-    , projectsLocationsInstancesSetIAMPolicy-    , ProjectsLocationsInstancesSetIAMPolicy--    -- * Request Lenses-    , plisipXgafv-    , plisipUploadProtocol-    , plisipAccessToken-    , plisipUploadType-    , plisipPayload-    , plisipResource-    , plisipCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.instances.setIamPolicy@ method which the--- 'ProjectsLocationsInstancesSetIAMPolicy' request conforms to.-type ProjectsLocationsInstancesSetIAMPolicyResource =-     "v1beta1" :>-       CaptureMode "resource" "setIamPolicy" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] SetIAMPolicyRequest :>-                       Post '[JSON] Policy---- | Sets the access control policy on the specified resource. Replaces any--- existing policy.------ /See:/ 'projectsLocationsInstancesSetIAMPolicy' smart constructor.-data ProjectsLocationsInstancesSetIAMPolicy =-  ProjectsLocationsInstancesSetIAMPolicy'-    { _plisipXgafv          :: !(Maybe Xgafv)-    , _plisipUploadProtocol :: !(Maybe Text)-    , _plisipAccessToken    :: !(Maybe Text)-    , _plisipUploadType     :: !(Maybe Text)-    , _plisipPayload        :: !SetIAMPolicyRequest-    , _plisipResource       :: !Text-    , _plisipCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsInstancesSetIAMPolicy' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plisipXgafv'------ * 'plisipUploadProtocol'------ * 'plisipAccessToken'------ * 'plisipUploadType'------ * 'plisipPayload'------ * 'plisipResource'------ * 'plisipCallback'-projectsLocationsInstancesSetIAMPolicy-    :: SetIAMPolicyRequest -- ^ 'plisipPayload'-    -> Text -- ^ 'plisipResource'-    -> ProjectsLocationsInstancesSetIAMPolicy-projectsLocationsInstancesSetIAMPolicy pPlisipPayload_ pPlisipResource_ =-  ProjectsLocationsInstancesSetIAMPolicy'-    { _plisipXgafv = Nothing-    , _plisipUploadProtocol = Nothing-    , _plisipAccessToken = Nothing-    , _plisipUploadType = Nothing-    , _plisipPayload = pPlisipPayload_-    , _plisipResource = pPlisipResource_-    , _plisipCallback = Nothing-    }----- | V1 error format.-plisipXgafv :: Lens' ProjectsLocationsInstancesSetIAMPolicy (Maybe Xgafv)-plisipXgafv-  = lens _plisipXgafv (\ s a -> s{_plisipXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-plisipUploadProtocol :: Lens' ProjectsLocationsInstancesSetIAMPolicy (Maybe Text)-plisipUploadProtocol-  = lens _plisipUploadProtocol-      (\ s a -> s{_plisipUploadProtocol = a})---- | OAuth access token.-plisipAccessToken :: Lens' ProjectsLocationsInstancesSetIAMPolicy (Maybe Text)-plisipAccessToken-  = lens _plisipAccessToken-      (\ s a -> s{_plisipAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-plisipUploadType :: Lens' ProjectsLocationsInstancesSetIAMPolicy (Maybe Text)-plisipUploadType-  = lens _plisipUploadType-      (\ s a -> s{_plisipUploadType = a})---- | Multipart request metadata.-plisipPayload :: Lens' ProjectsLocationsInstancesSetIAMPolicy SetIAMPolicyRequest-plisipPayload-  = lens _plisipPayload-      (\ s a -> s{_plisipPayload = a})---- | REQUIRED: The resource for which the policy is being specified. See the--- operation documentation for the appropriate value for this field.-plisipResource :: Lens' ProjectsLocationsInstancesSetIAMPolicy Text-plisipResource-  = lens _plisipResource-      (\ s a -> s{_plisipResource = a})---- | JSONP-plisipCallback :: Lens' ProjectsLocationsInstancesSetIAMPolicy (Maybe Text)-plisipCallback-  = lens _plisipCallback-      (\ s a -> s{_plisipCallback = a})--instance GoogleRequest-           ProjectsLocationsInstancesSetIAMPolicy-         where-        type Rs ProjectsLocationsInstancesSetIAMPolicy =-             Policy-        type Scopes ProjectsLocationsInstancesSetIAMPolicy =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient-          ProjectsLocationsInstancesSetIAMPolicy'{..}-          = go _plisipResource _plisipXgafv-              _plisipUploadProtocol-              _plisipAccessToken-              _plisipUploadType-              _plisipCallback-              (Just AltJSON)-              _plisipPayload-              dataFusionService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsInstancesSetIAMPolicyResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Instances/TestIAMPermissions.hs 
@@ -1,188 +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.DataFusion.Projects.Locations.Instances.TestIAMPermissions--- 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)------ Returns permissions that a caller has on the specified resource. If the--- resource does not exist, this will return an empty set of permissions,--- not a NOT_FOUND error. Note: This operation is designed to be used for--- building permission-aware UIs and command-line tools, not for--- authorization checking. This operation may \"fail open\" without--- warning.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.testIamPermissions@.-module Network.Google.Resource.DataFusion.Projects.Locations.Instances.TestIAMPermissions-    (-    -- * REST Resource-      ProjectsLocationsInstancesTestIAMPermissionsResource--    -- * Creating a Request-    , projectsLocationsInstancesTestIAMPermissions-    , ProjectsLocationsInstancesTestIAMPermissions--    -- * Request Lenses-    , plitipXgafv-    , plitipUploadProtocol-    , plitipAccessToken-    , plitipUploadType-    , plitipPayload-    , plitipResource-    , plitipCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.instances.testIamPermissions@ method which the--- 'ProjectsLocationsInstancesTestIAMPermissions' request conforms to.-type ProjectsLocationsInstancesTestIAMPermissionsResource-     =-     "v1beta1" :>-       CaptureMode "resource" "testIamPermissions" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] TestIAMPermissionsRequest :>-                       Post '[JSON] TestIAMPermissionsResponse---- | Returns permissions that a caller has on the specified resource. If the--- resource does not exist, this will return an empty set of permissions,--- not a NOT_FOUND error. Note: This operation is designed to be used for--- building permission-aware UIs and command-line tools, not for--- authorization checking. This operation may \"fail open\" without--- warning.------ /See:/ 'projectsLocationsInstancesTestIAMPermissions' smart constructor.-data ProjectsLocationsInstancesTestIAMPermissions =-  ProjectsLocationsInstancesTestIAMPermissions'-    { _plitipXgafv          :: !(Maybe Xgafv)-    , _plitipUploadProtocol :: !(Maybe Text)-    , _plitipAccessToken    :: !(Maybe Text)-    , _plitipUploadType     :: !(Maybe Text)-    , _plitipPayload        :: !TestIAMPermissionsRequest-    , _plitipResource       :: !Text-    , _plitipCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsInstancesTestIAMPermissions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plitipXgafv'------ * 'plitipUploadProtocol'------ * 'plitipAccessToken'------ * 'plitipUploadType'------ * 'plitipPayload'------ * 'plitipResource'------ * 'plitipCallback'-projectsLocationsInstancesTestIAMPermissions-    :: TestIAMPermissionsRequest -- ^ 'plitipPayload'-    -> Text -- ^ 'plitipResource'-    -> ProjectsLocationsInstancesTestIAMPermissions-projectsLocationsInstancesTestIAMPermissions pPlitipPayload_ pPlitipResource_ =-  ProjectsLocationsInstancesTestIAMPermissions'-    { _plitipXgafv = Nothing-    , _plitipUploadProtocol = Nothing-    , _plitipAccessToken = Nothing-    , _plitipUploadType = Nothing-    , _plitipPayload = pPlitipPayload_-    , _plitipResource = pPlitipResource_-    , _plitipCallback = Nothing-    }----- | V1 error format.-plitipXgafv :: Lens' ProjectsLocationsInstancesTestIAMPermissions (Maybe Xgafv)-plitipXgafv-  = lens _plitipXgafv (\ s a -> s{_plitipXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-plitipUploadProtocol :: Lens' ProjectsLocationsInstancesTestIAMPermissions (Maybe Text)-plitipUploadProtocol-  = lens _plitipUploadProtocol-      (\ s a -> s{_plitipUploadProtocol = a})---- | OAuth access token.-plitipAccessToken :: Lens' ProjectsLocationsInstancesTestIAMPermissions (Maybe Text)-plitipAccessToken-  = lens _plitipAccessToken-      (\ s a -> s{_plitipAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-plitipUploadType :: Lens' ProjectsLocationsInstancesTestIAMPermissions (Maybe Text)-plitipUploadType-  = lens _plitipUploadType-      (\ s a -> s{_plitipUploadType = a})---- | Multipart request metadata.-plitipPayload :: Lens' ProjectsLocationsInstancesTestIAMPermissions TestIAMPermissionsRequest-plitipPayload-  = lens _plitipPayload-      (\ s a -> s{_plitipPayload = a})---- | REQUIRED: The resource for which the policy detail is being requested.--- See the operation documentation for the appropriate value for this--- field.-plitipResource :: Lens' ProjectsLocationsInstancesTestIAMPermissions Text-plitipResource-  = lens _plitipResource-      (\ s a -> s{_plitipResource = a})---- | JSONP-plitipCallback :: Lens' ProjectsLocationsInstancesTestIAMPermissions (Maybe Text)-plitipCallback-  = lens _plitipCallback-      (\ s a -> s{_plitipCallback = a})--instance GoogleRequest-           ProjectsLocationsInstancesTestIAMPermissions-         where-        type Rs ProjectsLocationsInstancesTestIAMPermissions-             = TestIAMPermissionsResponse-        type Scopes-               ProjectsLocationsInstancesTestIAMPermissions-             = '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient-          ProjectsLocationsInstancesTestIAMPermissions'{..}-          = go _plitipResource _plitipXgafv-              _plitipUploadProtocol-              _plitipAccessToken-              _plitipUploadType-              _plitipCallback-              (Just AltJSON)-              _plitipPayload-              dataFusionService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy-                           ProjectsLocationsInstancesTestIAMPermissionsResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Instances/Upgrade.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.DataFusion.Projects.Locations.Instances.Upgrade--- 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)------ Upgrade a single Data Fusion instance. At the end of an operation--- instance is fully upgraded.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.instances.upgrade@.-module Network.Google.Resource.DataFusion.Projects.Locations.Instances.Upgrade-    (-    -- * REST Resource-      ProjectsLocationsInstancesUpgradeResource--    -- * Creating a Request-    , projectsLocationsInstancesUpgrade-    , ProjectsLocationsInstancesUpgrade--    -- * Request Lenses-    , pliuXgafv-    , pliuUploadProtocol-    , pliuAccessToken-    , pliuUploadType-    , pliuPayload-    , pliuName-    , pliuCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.instances.upgrade@ method which the--- 'ProjectsLocationsInstancesUpgrade' request conforms to.-type ProjectsLocationsInstancesUpgradeResource =-     "v1beta1" :>-       CaptureMode "name" "upgrade" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] UpgradeInstanceRequest :>-                       Post '[JSON] Operation---- | Upgrade a single Data Fusion instance. At the end of an operation--- instance is fully upgraded.------ /See:/ 'projectsLocationsInstancesUpgrade' smart constructor.-data ProjectsLocationsInstancesUpgrade =-  ProjectsLocationsInstancesUpgrade'-    { _pliuXgafv          :: !(Maybe Xgafv)-    , _pliuUploadProtocol :: !(Maybe Text)-    , _pliuAccessToken    :: !(Maybe Text)-    , _pliuUploadType     :: !(Maybe Text)-    , _pliuPayload        :: !UpgradeInstanceRequest-    , _pliuName           :: !Text-    , _pliuCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsInstancesUpgrade' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pliuXgafv'------ * 'pliuUploadProtocol'------ * 'pliuAccessToken'------ * 'pliuUploadType'------ * 'pliuPayload'------ * 'pliuName'------ * 'pliuCallback'-projectsLocationsInstancesUpgrade-    :: UpgradeInstanceRequest -- ^ 'pliuPayload'-    -> Text -- ^ 'pliuName'-    -> ProjectsLocationsInstancesUpgrade-projectsLocationsInstancesUpgrade pPliuPayload_ pPliuName_ =-  ProjectsLocationsInstancesUpgrade'-    { _pliuXgafv = Nothing-    , _pliuUploadProtocol = Nothing-    , _pliuAccessToken = Nothing-    , _pliuUploadType = Nothing-    , _pliuPayload = pPliuPayload_-    , _pliuName = pPliuName_-    , _pliuCallback = Nothing-    }----- | V1 error format.-pliuXgafv :: Lens' ProjectsLocationsInstancesUpgrade (Maybe Xgafv)-pliuXgafv-  = lens _pliuXgafv (\ s a -> s{_pliuXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pliuUploadProtocol :: Lens' ProjectsLocationsInstancesUpgrade (Maybe Text)-pliuUploadProtocol-  = lens _pliuUploadProtocol-      (\ s a -> s{_pliuUploadProtocol = a})---- | OAuth access token.-pliuAccessToken :: Lens' ProjectsLocationsInstancesUpgrade (Maybe Text)-pliuAccessToken-  = lens _pliuAccessToken-      (\ s a -> s{_pliuAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pliuUploadType :: Lens' ProjectsLocationsInstancesUpgrade (Maybe Text)-pliuUploadType-  = lens _pliuUploadType-      (\ s a -> s{_pliuUploadType = a})---- | Multipart request metadata.-pliuPayload :: Lens' ProjectsLocationsInstancesUpgrade UpgradeInstanceRequest-pliuPayload-  = lens _pliuPayload (\ s a -> s{_pliuPayload = a})---- | Name of the Data Fusion instance which need to be upgraded in the form--- of projects\/{project}\/locations\/{location}\/instances\/{instance}--- Instance will be upgraded with the latest stable version of the Data--- Fusion.-pliuName :: Lens' ProjectsLocationsInstancesUpgrade Text-pliuName = lens _pliuName (\ s a -> s{_pliuName = a})---- | JSONP-pliuCallback :: Lens' ProjectsLocationsInstancesUpgrade (Maybe Text)-pliuCallback-  = lens _pliuCallback (\ s a -> s{_pliuCallback = a})--instance GoogleRequest-           ProjectsLocationsInstancesUpgrade-         where-        type Rs ProjectsLocationsInstancesUpgrade = Operation-        type Scopes ProjectsLocationsInstancesUpgrade =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsLocationsInstancesUpgrade'{..}-          = go _pliuName _pliuXgafv _pliuUploadProtocol-              _pliuAccessToken-              _pliuUploadType-              _pliuCallback-              (Just AltJSON)-              _pliuPayload-              dataFusionService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsInstancesUpgradeResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/List.hs 
@@ -1,187 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.DataFusion.Projects.Locations.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 information about the supported locations for this service.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.list@.-module Network.Google.Resource.DataFusion.Projects.Locations.List-    (-    -- * REST Resource-      ProjectsLocationsListResource--    -- * Creating a Request-    , projectsLocationsList-    , ProjectsLocationsList--    -- * Request Lenses-    , pllXgafv-    , pllUploadProtocol-    , pllAccessToken-    , pllUploadType-    , pllName-    , pllFilter-    , pllPageToken-    , pllPageSize-    , pllCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.list@ method which the--- 'ProjectsLocationsList' request conforms to.-type ProjectsLocationsListResource =-     "v1beta1" :>-       Capture "name" Text :>-         "locations" :>-           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] ListLocationsResponse---- | Lists information about the supported locations for this service.------ /See:/ 'projectsLocationsList' smart constructor.-data ProjectsLocationsList =-  ProjectsLocationsList'-    { _pllXgafv          :: !(Maybe Xgafv)-    , _pllUploadProtocol :: !(Maybe Text)-    , _pllAccessToken    :: !(Maybe Text)-    , _pllUploadType     :: !(Maybe Text)-    , _pllName           :: !Text-    , _pllFilter         :: !(Maybe Text)-    , _pllPageToken      :: !(Maybe Text)-    , _pllPageSize       :: !(Maybe (Textual Int32))-    , _pllCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pllXgafv'------ * 'pllUploadProtocol'------ * 'pllAccessToken'------ * 'pllUploadType'------ * 'pllName'------ * 'pllFilter'------ * 'pllPageToken'------ * 'pllPageSize'------ * 'pllCallback'-projectsLocationsList-    :: Text -- ^ 'pllName'-    -> ProjectsLocationsList-projectsLocationsList pPllName_ =-  ProjectsLocationsList'-    { _pllXgafv = Nothing-    , _pllUploadProtocol = Nothing-    , _pllAccessToken = Nothing-    , _pllUploadType = Nothing-    , _pllName = pPllName_-    , _pllFilter = Nothing-    , _pllPageToken = Nothing-    , _pllPageSize = Nothing-    , _pllCallback = Nothing-    }----- | V1 error format.-pllXgafv :: Lens' ProjectsLocationsList (Maybe Xgafv)-pllXgafv = lens _pllXgafv (\ s a -> s{_pllXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pllUploadProtocol :: Lens' ProjectsLocationsList (Maybe Text)-pllUploadProtocol-  = lens _pllUploadProtocol-      (\ s a -> s{_pllUploadProtocol = a})---- | OAuth access token.-pllAccessToken :: Lens' ProjectsLocationsList (Maybe Text)-pllAccessToken-  = lens _pllAccessToken-      (\ s a -> s{_pllAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pllUploadType :: Lens' ProjectsLocationsList (Maybe Text)-pllUploadType-  = lens _pllUploadType-      (\ s a -> s{_pllUploadType = a})---- | The resource that owns the locations collection, if applicable.-pllName :: Lens' ProjectsLocationsList Text-pllName = lens _pllName (\ s a -> s{_pllName = a})---- | The standard list filter.-pllFilter :: Lens' ProjectsLocationsList (Maybe Text)-pllFilter-  = lens _pllFilter (\ s a -> s{_pllFilter = a})---- | The standard list page token.-pllPageToken :: Lens' ProjectsLocationsList (Maybe Text)-pllPageToken-  = lens _pllPageToken (\ s a -> s{_pllPageToken = a})---- | The standard list page size.-pllPageSize :: Lens' ProjectsLocationsList (Maybe Int32)-pllPageSize-  = lens _pllPageSize (\ s a -> s{_pllPageSize = a}) .-      mapping _Coerce---- | JSONP-pllCallback :: Lens' ProjectsLocationsList (Maybe Text)-pllCallback-  = lens _pllCallback (\ s a -> s{_pllCallback = a})--instance GoogleRequest ProjectsLocationsList where-        type Rs ProjectsLocationsList = ListLocationsResponse-        type Scopes ProjectsLocationsList =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsLocationsList'{..}-          = go _pllName _pllXgafv _pllUploadProtocol-              _pllAccessToken-              _pllUploadType-              _pllFilter-              _pllPageToken-              _pllPageSize-              _pllCallback-              (Just AltJSON)-              dataFusionService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsLocationsListResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Operations/Cancel.hs 
@@ -1,182 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.DataFusion.Projects.Locations.Operations.Cancel--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Starts asynchronous cancellation on a long-running operation. The server--- makes a best effort to cancel the operation, but success is not--- guaranteed. If the server doesn\'t support this method, it returns--- \`google.rpc.Code.UNIMPLEMENTED\`. Clients can use--- Operations.GetOperation or other methods to check whether the--- cancellation succeeded or whether the operation completed despite--- cancellation. On successful cancellation, the operation is not deleted;--- instead, it becomes an operation with an Operation.error value with a--- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.operations.cancel@.-module Network.Google.Resource.DataFusion.Projects.Locations.Operations.Cancel-    (-    -- * REST Resource-      ProjectsLocationsOperationsCancelResource--    -- * Creating a Request-    , projectsLocationsOperationsCancel-    , ProjectsLocationsOperationsCancel--    -- * Request Lenses-    , plocXgafv-    , plocUploadProtocol-    , plocAccessToken-    , plocUploadType-    , plocPayload-    , plocName-    , plocCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.operations.cancel@ method which the--- 'ProjectsLocationsOperationsCancel' request conforms to.-type ProjectsLocationsOperationsCancelResource =-     "v1beta1" :>-       CaptureMode "name" "cancel" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] CancelOperationRequest :>-                       Post '[JSON] Empty---- | Starts asynchronous cancellation on a long-running operation. The server--- makes a best effort to cancel the operation, but success is not--- guaranteed. If the server doesn\'t support this method, it returns--- \`google.rpc.Code.UNIMPLEMENTED\`. Clients can use--- Operations.GetOperation or other methods to check whether the--- cancellation succeeded or whether the operation completed despite--- cancellation. On successful cancellation, the operation is not deleted;--- instead, it becomes an operation with an Operation.error value with a--- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`.------ /See:/ 'projectsLocationsOperationsCancel' smart constructor.-data ProjectsLocationsOperationsCancel =-  ProjectsLocationsOperationsCancel'-    { _plocXgafv          :: !(Maybe Xgafv)-    , _plocUploadProtocol :: !(Maybe Text)-    , _plocAccessToken    :: !(Maybe Text)-    , _plocUploadType     :: !(Maybe Text)-    , _plocPayload        :: !CancelOperationRequest-    , _plocName           :: !Text-    , _plocCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsOperationsCancel' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plocXgafv'------ * 'plocUploadProtocol'------ * 'plocAccessToken'------ * 'plocUploadType'------ * 'plocPayload'------ * 'plocName'------ * 'plocCallback'-projectsLocationsOperationsCancel-    :: CancelOperationRequest -- ^ 'plocPayload'-    -> Text -- ^ 'plocName'-    -> ProjectsLocationsOperationsCancel-projectsLocationsOperationsCancel pPlocPayload_ pPlocName_ =-  ProjectsLocationsOperationsCancel'-    { _plocXgafv = Nothing-    , _plocUploadProtocol = Nothing-    , _plocAccessToken = Nothing-    , _plocUploadType = Nothing-    , _plocPayload = pPlocPayload_-    , _plocName = pPlocName_-    , _plocCallback = Nothing-    }----- | V1 error format.-plocXgafv :: Lens' ProjectsLocationsOperationsCancel (Maybe Xgafv)-plocXgafv-  = lens _plocXgafv (\ s a -> s{_plocXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-plocUploadProtocol :: Lens' ProjectsLocationsOperationsCancel (Maybe Text)-plocUploadProtocol-  = lens _plocUploadProtocol-      (\ s a -> s{_plocUploadProtocol = a})---- | OAuth access token.-plocAccessToken :: Lens' ProjectsLocationsOperationsCancel (Maybe Text)-plocAccessToken-  = lens _plocAccessToken-      (\ s a -> s{_plocAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-plocUploadType :: Lens' ProjectsLocationsOperationsCancel (Maybe Text)-plocUploadType-  = lens _plocUploadType-      (\ s a -> s{_plocUploadType = a})---- | Multipart request metadata.-plocPayload :: Lens' ProjectsLocationsOperationsCancel CancelOperationRequest-plocPayload-  = lens _plocPayload (\ s a -> s{_plocPayload = a})---- | The name of the operation resource to be cancelled.-plocName :: Lens' ProjectsLocationsOperationsCancel Text-plocName = lens _plocName (\ s a -> s{_plocName = a})---- | JSONP-plocCallback :: Lens' ProjectsLocationsOperationsCancel (Maybe Text)-plocCallback-  = lens _plocCallback (\ s a -> s{_plocCallback = a})--instance GoogleRequest-           ProjectsLocationsOperationsCancel-         where-        type Rs ProjectsLocationsOperationsCancel = Empty-        type Scopes ProjectsLocationsOperationsCancel =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsLocationsOperationsCancel'{..}-          = go _plocName _plocXgafv _plocUploadProtocol-              _plocAccessToken-              _plocUploadType-              _plocCallback-              (Just AltJSON)-              _plocPayload-              dataFusionService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsOperationsCancelResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Operations/Delete.hs 
@@ -1,158 +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.DataFusion.Projects.Locations.Operations.Delete--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes a long-running operation. This method indicates that the client--- is no longer interested in the operation result. It does not cancel the--- operation. If the server doesn\'t support this method, it returns--- \`google.rpc.Code.UNIMPLEMENTED\`.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.operations.delete@.-module Network.Google.Resource.DataFusion.Projects.Locations.Operations.Delete-    (-    -- * REST Resource-      ProjectsLocationsOperationsDeleteResource--    -- * Creating a Request-    , projectsLocationsOperationsDelete-    , ProjectsLocationsOperationsDelete--    -- * Request Lenses-    , plodXgafv-    , plodUploadProtocol-    , plodAccessToken-    , plodUploadType-    , plodName-    , plodCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.operations.delete@ method which the--- 'ProjectsLocationsOperationsDelete' request conforms to.-type ProjectsLocationsOperationsDeleteResource =-     "v1beta1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] Empty---- | Deletes a long-running operation. This method indicates that the client--- is no longer interested in the operation result. It does not cancel the--- operation. If the server doesn\'t support this method, it returns--- \`google.rpc.Code.UNIMPLEMENTED\`.------ /See:/ 'projectsLocationsOperationsDelete' smart constructor.-data ProjectsLocationsOperationsDelete =-  ProjectsLocationsOperationsDelete'-    { _plodXgafv          :: !(Maybe Xgafv)-    , _plodUploadProtocol :: !(Maybe Text)-    , _plodAccessToken    :: !(Maybe Text)-    , _plodUploadType     :: !(Maybe Text)-    , _plodName           :: !Text-    , _plodCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsOperationsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plodXgafv'------ * 'plodUploadProtocol'------ * 'plodAccessToken'------ * 'plodUploadType'------ * 'plodName'------ * 'plodCallback'-projectsLocationsOperationsDelete-    :: Text -- ^ 'plodName'-    -> ProjectsLocationsOperationsDelete-projectsLocationsOperationsDelete pPlodName_ =-  ProjectsLocationsOperationsDelete'-    { _plodXgafv = Nothing-    , _plodUploadProtocol = Nothing-    , _plodAccessToken = Nothing-    , _plodUploadType = Nothing-    , _plodName = pPlodName_-    , _plodCallback = Nothing-    }----- | V1 error format.-plodXgafv :: Lens' ProjectsLocationsOperationsDelete (Maybe Xgafv)-plodXgafv-  = lens _plodXgafv (\ s a -> s{_plodXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-plodUploadProtocol :: Lens' ProjectsLocationsOperationsDelete (Maybe Text)-plodUploadProtocol-  = lens _plodUploadProtocol-      (\ s a -> s{_plodUploadProtocol = a})---- | OAuth access token.-plodAccessToken :: Lens' ProjectsLocationsOperationsDelete (Maybe Text)-plodAccessToken-  = lens _plodAccessToken-      (\ s a -> s{_plodAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-plodUploadType :: Lens' ProjectsLocationsOperationsDelete (Maybe Text)-plodUploadType-  = lens _plodUploadType-      (\ s a -> s{_plodUploadType = a})---- | The name of the operation resource to be deleted.-plodName :: Lens' ProjectsLocationsOperationsDelete Text-plodName = lens _plodName (\ s a -> s{_plodName = a})---- | JSONP-plodCallback :: Lens' ProjectsLocationsOperationsDelete (Maybe Text)-plodCallback-  = lens _plodCallback (\ s a -> s{_plodCallback = a})--instance GoogleRequest-           ProjectsLocationsOperationsDelete-         where-        type Rs ProjectsLocationsOperationsDelete = Empty-        type Scopes ProjectsLocationsOperationsDelete =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsLocationsOperationsDelete'{..}-          = go _plodName _plodXgafv _plodUploadProtocol-              _plodAccessToken-              _plodUploadType-              _plodCallback-              (Just AltJSON)-              dataFusionService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsOperationsDeleteResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Operations/Get.hs 
@@ -1,155 +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.DataFusion.Projects.Locations.Operations.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the latest state of a long-running operation. Clients can use this--- method to poll the operation result at intervals as recommended by the--- API service.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.operations.get@.-module Network.Google.Resource.DataFusion.Projects.Locations.Operations.Get-    (-    -- * REST Resource-      ProjectsLocationsOperationsGetResource--    -- * Creating a Request-    , projectsLocationsOperationsGet-    , ProjectsLocationsOperationsGet--    -- * Request Lenses-    , plogXgafv-    , plogUploadProtocol-    , plogAccessToken-    , plogUploadType-    , plogName-    , plogCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.operations.get@ method which the--- 'ProjectsLocationsOperationsGet' request conforms to.-type ProjectsLocationsOperationsGetResource =-     "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] Operation---- | Gets the latest state of a long-running operation. Clients can use this--- method to poll the operation result at intervals as recommended by the--- API service.------ /See:/ 'projectsLocationsOperationsGet' smart constructor.-data ProjectsLocationsOperationsGet =-  ProjectsLocationsOperationsGet'-    { _plogXgafv          :: !(Maybe Xgafv)-    , _plogUploadProtocol :: !(Maybe Text)-    , _plogAccessToken    :: !(Maybe Text)-    , _plogUploadType     :: !(Maybe Text)-    , _plogName           :: !Text-    , _plogCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsOperationsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plogXgafv'------ * 'plogUploadProtocol'------ * 'plogAccessToken'------ * 'plogUploadType'------ * 'plogName'------ * 'plogCallback'-projectsLocationsOperationsGet-    :: Text -- ^ 'plogName'-    -> ProjectsLocationsOperationsGet-projectsLocationsOperationsGet pPlogName_ =-  ProjectsLocationsOperationsGet'-    { _plogXgafv = Nothing-    , _plogUploadProtocol = Nothing-    , _plogAccessToken = Nothing-    , _plogUploadType = Nothing-    , _plogName = pPlogName_-    , _plogCallback = Nothing-    }----- | V1 error format.-plogXgafv :: Lens' ProjectsLocationsOperationsGet (Maybe Xgafv)-plogXgafv-  = lens _plogXgafv (\ s a -> s{_plogXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-plogUploadProtocol :: Lens' ProjectsLocationsOperationsGet (Maybe Text)-plogUploadProtocol-  = lens _plogUploadProtocol-      (\ s a -> s{_plogUploadProtocol = a})---- | OAuth access token.-plogAccessToken :: Lens' ProjectsLocationsOperationsGet (Maybe Text)-plogAccessToken-  = lens _plogAccessToken-      (\ s a -> s{_plogAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-plogUploadType :: Lens' ProjectsLocationsOperationsGet (Maybe Text)-plogUploadType-  = lens _plogUploadType-      (\ s a -> s{_plogUploadType = a})---- | The name of the operation resource.-plogName :: Lens' ProjectsLocationsOperationsGet Text-plogName = lens _plogName (\ s a -> s{_plogName = a})---- | JSONP-plogCallback :: Lens' ProjectsLocationsOperationsGet (Maybe Text)-plogCallback-  = lens _plogCallback (\ s a -> s{_plogCallback = a})--instance GoogleRequest ProjectsLocationsOperationsGet-         where-        type Rs ProjectsLocationsOperationsGet = Operation-        type Scopes ProjectsLocationsOperationsGet =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsLocationsOperationsGet'{..}-          = go _plogName _plogXgafv _plogUploadProtocol-              _plogAccessToken-              _plogUploadType-              _plogCallback-              (Just AltJSON)-              dataFusionService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsOperationsGetResource)-                      mempty
− gen/Network/Google/Resource/DataFusion/Projects/Locations/Operations/List.hs 
@@ -1,211 +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.DataFusion.Projects.Locations.Operations.List--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Lists operations that match the specified filter in the request. If the--- server doesn\'t support this method, it returns \`UNIMPLEMENTED\`. NOTE:--- the \`name\` binding allows API services to override the binding to use--- different resource name schemes, such as \`users\/*\/operations\`. To--- override the binding, API services can add a binding such as--- \`\"\/v1\/{name=users\/*}\/operations\"\` to their service--- configuration. For backwards compatibility, the default name includes--- the operations collection id, however overriding users must ensure the--- name binding is the parent resource, without the operations collection--- id.------ /See:/ <https://cloud.google.com/data-fusion/docs Cloud Data Fusion API Reference> for @datafusion.projects.locations.operations.list@.-module Network.Google.Resource.DataFusion.Projects.Locations.Operations.List-    (-    -- * REST Resource-      ProjectsLocationsOperationsListResource--    -- * Creating a Request-    , projectsLocationsOperationsList-    , ProjectsLocationsOperationsList--    -- * Request Lenses-    , plolXgafv-    , plolUploadProtocol-    , plolAccessToken-    , plolUploadType-    , plolName-    , plolFilter-    , plolPageToken-    , plolPageSize-    , plolCallback-    ) where--import           Network.Google.DataFusion.Types-import           Network.Google.Prelude---- | A resource alias for @datafusion.projects.locations.operations.list@ method which the--- 'ProjectsLocationsOperationsList' request conforms to.-type ProjectsLocationsOperationsListResource =-     "v1beta1" :>-       Capture "name" Text :>-         "operations" :>-           QueryParam "$.xgafv" Xgafv :>-             QueryParam "upload_protocol" Text :>-               QueryParam "access_token" Text :>-                 QueryParam "uploadType" Text :>-                   QueryParam "filter" Text :>-                     QueryParam "pageToken" Text :>-                       QueryParam "pageSize" (Textual Int32) :>-                         QueryParam "callback" Text :>-                           QueryParam "alt" AltJSON :>-                             Get '[JSON] ListOperationsResponse---- | Lists operations that match the specified filter in the request. If the--- server doesn\'t support this method, it returns \`UNIMPLEMENTED\`. NOTE:--- the \`name\` binding allows API services to override the binding to use--- different resource name schemes, such as \`users\/*\/operations\`. To--- override the binding, API services can add a binding such as--- \`\"\/v1\/{name=users\/*}\/operations\"\` to their service--- configuration. For backwards compatibility, the default name includes--- the operations collection id, however overriding users must ensure the--- name binding is the parent resource, without the operations collection--- id.------ /See:/ 'projectsLocationsOperationsList' smart constructor.-data ProjectsLocationsOperationsList =-  ProjectsLocationsOperationsList'-    { _plolXgafv          :: !(Maybe Xgafv)-    , _plolUploadProtocol :: !(Maybe Text)-    , _plolAccessToken    :: !(Maybe Text)-    , _plolUploadType     :: !(Maybe Text)-    , _plolName           :: !Text-    , _plolFilter         :: !(Maybe Text)-    , _plolPageToken      :: !(Maybe Text)-    , _plolPageSize       :: !(Maybe (Textual Int32))-    , _plolCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsOperationsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plolXgafv'------ * 'plolUploadProtocol'------ * 'plolAccessToken'------ * 'plolUploadType'------ * 'plolName'------ * 'plolFilter'------ * 'plolPageToken'------ * 'plolPageSize'------ * 'plolCallback'-projectsLocationsOperationsList-    :: Text -- ^ 'plolName'-    -> ProjectsLocationsOperationsList-projectsLocationsOperationsList pPlolName_ =-  ProjectsLocationsOperationsList'-    { _plolXgafv = Nothing-    , _plolUploadProtocol = Nothing-    , _plolAccessToken = Nothing-    , _plolUploadType = Nothing-    , _plolName = pPlolName_-    , _plolFilter = Nothing-    , _plolPageToken = Nothing-    , _plolPageSize = Nothing-    , _plolCallback = Nothing-    }----- | V1 error format.-plolXgafv :: Lens' ProjectsLocationsOperationsList (Maybe Xgafv)-plolXgafv-  = lens _plolXgafv (\ s a -> s{_plolXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-plolUploadProtocol :: Lens' ProjectsLocationsOperationsList (Maybe Text)-plolUploadProtocol-  = lens _plolUploadProtocol-      (\ s a -> s{_plolUploadProtocol = a})---- | OAuth access token.-plolAccessToken :: Lens' ProjectsLocationsOperationsList (Maybe Text)-plolAccessToken-  = lens _plolAccessToken-      (\ s a -> s{_plolAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-plolUploadType :: Lens' ProjectsLocationsOperationsList (Maybe Text)-plolUploadType-  = lens _plolUploadType-      (\ s a -> s{_plolUploadType = a})---- | The name of the operation\'s parent resource.-plolName :: Lens' ProjectsLocationsOperationsList Text-plolName = lens _plolName (\ s a -> s{_plolName = a})---- | The standard list filter.-plolFilter :: Lens' ProjectsLocationsOperationsList (Maybe Text)-plolFilter-  = lens _plolFilter (\ s a -> s{_plolFilter = a})---- | The standard list page token.-plolPageToken :: Lens' ProjectsLocationsOperationsList (Maybe Text)-plolPageToken-  = lens _plolPageToken-      (\ s a -> s{_plolPageToken = a})---- | The standard list page size.-plolPageSize :: Lens' ProjectsLocationsOperationsList (Maybe Int32)-plolPageSize-  = lens _plolPageSize (\ s a -> s{_plolPageSize = a})-      . mapping _Coerce---- | JSONP-plolCallback :: Lens' ProjectsLocationsOperationsList (Maybe Text)-plolCallback-  = lens _plolCallback (\ s a -> s{_plolCallback = a})--instance GoogleRequest-           ProjectsLocationsOperationsList-         where-        type Rs ProjectsLocationsOperationsList =-             ListOperationsResponse-        type Scopes ProjectsLocationsOperationsList =-             '["https://www.googleapis.com/auth/cloud-platform"]-        requestClient ProjectsLocationsOperationsList'{..}-          = go _plolName _plolXgafv _plolUploadProtocol-              _plolAccessToken-              _plolUploadType-              _plolFilter-              _plolPageToken-              _plolPageSize-              _plolCallback-              (Just AltJSON)-              dataFusionService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsOperationsListResource)-                      mempty
gogol-datafusion.cabal view
@@ -1,67 +1,79 @@-name:                  gogol-datafusion-version:               0.5.0-synopsis:              Google Cloud Data Fusion 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-datafusion+version:            1.0.0+synopsis:           Google Cloud Data Fusion 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:-    Cloud Data Fusion is a fully-managed, cloud native, enterprise data-    integration service for quickly building and managing data pipelines. It-    provides a graphical interface to increase time efficiency and reduce-    complexity, and allows business users, developers, and data scientists-    to easily and reliably build scalable data integration solutions to-    cleanse, prepare, blend, transfer and transform data without having to-    wrestle with infrastructure.-    .-    /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.+  Cloud Data Fusion is a fully-managed, cloud native, enterprise data integration service for quickly building and managing data pipelines. It provides a graphical interface to increase time efficiency and reduce complexity, and allows business users, developers, and data scientists to easily and reliably build scalable data integration solutions to cleanse, prepare, blend, transfer and transform data without having to wrestle with infrastructure.+  .+  /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-datafusion +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.DataFusion-        , Network.Google.DataFusion.Types-        , Network.Google.Resource.DataFusion.Projects.Locations.Get-        , Network.Google.Resource.DataFusion.Projects.Locations.Instances.Create-        , Network.Google.Resource.DataFusion.Projects.Locations.Instances.Delete-        , Network.Google.Resource.DataFusion.Projects.Locations.Instances.Get-        , Network.Google.Resource.DataFusion.Projects.Locations.Instances.GetIAMPolicy-        , Network.Google.Resource.DataFusion.Projects.Locations.Instances.List-        , Network.Google.Resource.DataFusion.Projects.Locations.Instances.Patch-        , Network.Google.Resource.DataFusion.Projects.Locations.Instances.Restart-        , Network.Google.Resource.DataFusion.Projects.Locations.Instances.SetIAMPolicy-        , Network.Google.Resource.DataFusion.Projects.Locations.Instances.TestIAMPermissions-        , Network.Google.Resource.DataFusion.Projects.Locations.Instances.Upgrade-        , Network.Google.Resource.DataFusion.Projects.Locations.List-        , Network.Google.Resource.DataFusion.Projects.Locations.Operations.Cancel-        , Network.Google.Resource.DataFusion.Projects.Locations.Operations.Delete-        , Network.Google.Resource.DataFusion.Projects.Locations.Operations.Get-        , Network.Google.Resource.DataFusion.Projects.Locations.Operations.List+  exposed-modules:+    Gogol.DataFusion+    Gogol.DataFusion.Projects.Locations.Get+    Gogol.DataFusion.Projects.Locations.Instances.Create+    Gogol.DataFusion.Projects.Locations.Instances.Delete+    Gogol.DataFusion.Projects.Locations.Instances.DnsPeerings.Create+    Gogol.DataFusion.Projects.Locations.Instances.DnsPeerings.Delete+    Gogol.DataFusion.Projects.Locations.Instances.DnsPeerings.List+    Gogol.DataFusion.Projects.Locations.Instances.Get+    Gogol.DataFusion.Projects.Locations.Instances.GetIamPolicy+    Gogol.DataFusion.Projects.Locations.Instances.List+    Gogol.DataFusion.Projects.Locations.Instances.Patch+    Gogol.DataFusion.Projects.Locations.Instances.Restart+    Gogol.DataFusion.Projects.Locations.Instances.SetIamPolicy+    Gogol.DataFusion.Projects.Locations.Instances.TestIamPermissions+    Gogol.DataFusion.Projects.Locations.List+    Gogol.DataFusion.Projects.Locations.Operations.Cancel+    Gogol.DataFusion.Projects.Locations.Operations.Delete+    Gogol.DataFusion.Projects.Locations.Operations.Get+    Gogol.DataFusion.Projects.Locations.Operations.List+    Gogol.DataFusion.Projects.Locations.Versions.List+    Gogol.DataFusion.Types -    other-modules:-          Network.Google.DataFusion.Types.Product-        , Network.Google.DataFusion.Types.Sum+  other-modules:+    Gogol.DataFusion.Internal.Product+    Gogol.DataFusion.Internal.Sum -    build-depends:-          gogol-core == 0.5.0.*-        , base       >= 4.7 && < 5+  build-depends:    gogol-core ^>=1.0.0