packages feed

gogol-file 0.5.0 → 1.0.0

raw patch · 46 files changed

+8053/−4718 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/File.hs view
@@ -0,0 +1,503 @@+{-# 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.File+-- 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)+--+-- The Cloud Filestore API is used for creating and managing cloud file servers.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference>+module Gogol.File+  ( -- * Configuration+    fileService,++    -- * OAuth Scopes+    CloudPlatform'FullControl,++    -- * Resources++    -- ** file.projects.locations.backups.create+    FileProjectsLocationsBackupsCreateResource,+    FileProjectsLocationsBackupsCreate (..),+    newFileProjectsLocationsBackupsCreate,++    -- ** file.projects.locations.backups.delete+    FileProjectsLocationsBackupsDeleteResource,+    FileProjectsLocationsBackupsDelete (..),+    newFileProjectsLocationsBackupsDelete,++    -- ** file.projects.locations.backups.get+    FileProjectsLocationsBackupsGetResource,+    FileProjectsLocationsBackupsGet (..),+    newFileProjectsLocationsBackupsGet,++    -- ** file.projects.locations.backups.list+    FileProjectsLocationsBackupsListResource,+    FileProjectsLocationsBackupsList (..),+    newFileProjectsLocationsBackupsList,++    -- ** file.projects.locations.backups.patch+    FileProjectsLocationsBackupsPatchResource,+    FileProjectsLocationsBackupsPatch (..),+    newFileProjectsLocationsBackupsPatch,++    -- ** file.projects.locations.get+    FileProjectsLocationsGetResource,+    FileProjectsLocationsGet (..),+    newFileProjectsLocationsGet,++    -- ** file.projects.locations.instances.create+    FileProjectsLocationsInstancesCreateResource,+    FileProjectsLocationsInstancesCreate (..),+    newFileProjectsLocationsInstancesCreate,++    -- ** file.projects.locations.instances.delete+    FileProjectsLocationsInstancesDeleteResource,+    FileProjectsLocationsInstancesDelete (..),+    newFileProjectsLocationsInstancesDelete,++    -- ** file.projects.locations.instances.get+    FileProjectsLocationsInstancesGetResource,+    FileProjectsLocationsInstancesGet (..),+    newFileProjectsLocationsInstancesGet,++    -- ** file.projects.locations.instances.list+    FileProjectsLocationsInstancesListResource,+    FileProjectsLocationsInstancesList (..),+    newFileProjectsLocationsInstancesList,++    -- ** file.projects.locations.instances.patch+    FileProjectsLocationsInstancesPatchResource,+    FileProjectsLocationsInstancesPatch (..),+    newFileProjectsLocationsInstancesPatch,++    -- ** file.projects.locations.instances.promoteReplica+    FileProjectsLocationsInstancesPromoteReplicaResource,+    FileProjectsLocationsInstancesPromoteReplica (..),+    newFileProjectsLocationsInstancesPromoteReplica,++    -- ** file.projects.locations.instances.restore+    FileProjectsLocationsInstancesRestoreResource,+    FileProjectsLocationsInstancesRestore (..),+    newFileProjectsLocationsInstancesRestore,++    -- ** file.projects.locations.instances.revert+    FileProjectsLocationsInstancesRevertResource,+    FileProjectsLocationsInstancesRevert (..),+    newFileProjectsLocationsInstancesRevert,++    -- ** file.projects.locations.instances.snapshots.create+    FileProjectsLocationsInstancesSnapshotsCreateResource,+    FileProjectsLocationsInstancesSnapshotsCreate (..),+    newFileProjectsLocationsInstancesSnapshotsCreate,++    -- ** file.projects.locations.instances.snapshots.delete+    FileProjectsLocationsInstancesSnapshotsDeleteResource,+    FileProjectsLocationsInstancesSnapshotsDelete (..),+    newFileProjectsLocationsInstancesSnapshotsDelete,++    -- ** file.projects.locations.instances.snapshots.get+    FileProjectsLocationsInstancesSnapshotsGetResource,+    FileProjectsLocationsInstancesSnapshotsGet (..),+    newFileProjectsLocationsInstancesSnapshotsGet,++    -- ** file.projects.locations.instances.snapshots.list+    FileProjectsLocationsInstancesSnapshotsListResource,+    FileProjectsLocationsInstancesSnapshotsList (..),+    newFileProjectsLocationsInstancesSnapshotsList,++    -- ** file.projects.locations.instances.snapshots.patch+    FileProjectsLocationsInstancesSnapshotsPatchResource,+    FileProjectsLocationsInstancesSnapshotsPatch (..),+    newFileProjectsLocationsInstancesSnapshotsPatch,++    -- ** file.projects.locations.list+    FileProjectsLocationsListResource,+    FileProjectsLocationsList (..),+    newFileProjectsLocationsList,++    -- ** file.projects.locations.operations.cancel+    FileProjectsLocationsOperationsCancelResource,+    FileProjectsLocationsOperationsCancel (..),+    newFileProjectsLocationsOperationsCancel,++    -- ** file.projects.locations.operations.delete+    FileProjectsLocationsOperationsDeleteResource,+    FileProjectsLocationsOperationsDelete (..),+    newFileProjectsLocationsOperationsDelete,++    -- ** file.projects.locations.operations.get+    FileProjectsLocationsOperationsGetResource,+    FileProjectsLocationsOperationsGet (..),+    newFileProjectsLocationsOperationsGet,++    -- ** file.projects.locations.operations.list+    FileProjectsLocationsOperationsListResource,+    FileProjectsLocationsOperationsList (..),+    newFileProjectsLocationsOperationsList,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** Backup+    Backup (..),+    newBackup,++    -- ** Backup_FileSystemProtocol+    Backup_FileSystemProtocol (..),++    -- ** Backup_Labels+    Backup_Labels (..),+    newBackup_Labels,++    -- ** Backup_SourceInstanceTier+    Backup_SourceInstanceTier (..),++    -- ** Backup_State+    Backup_State (..),++    -- ** Backup_Tags+    Backup_Tags (..),+    newBackup_Tags,++    -- ** CancelOperationRequest+    CancelOperationRequest (..),+    newCancelOperationRequest,++    -- ** DailyCycle+    DailyCycle (..),+    newDailyCycle,++    -- ** Date+    Date (..),+    newDate,++    -- ** DenyMaintenancePeriod+    DenyMaintenancePeriod (..),+    newDenyMaintenancePeriod,++    -- ** Empty+    Empty (..),+    newEmpty,++    -- ** FileShareConfig+    FileShareConfig (..),+    newFileShareConfig,++    -- ** FixedIOPS+    FixedIOPS (..),+    newFixedIOPS,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance+    GoogleCloudSaasacceleratorManagementProvidersV1Instance (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance_State+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_State (..),++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata+    GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter+    GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility+    GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities+    GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+    GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility+    GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1SloEligibility,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+    GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1SloMetadata,++    -- ** IOPSPerTB+    IOPSPerTB (..),+    newIOPSPerTB,++    -- ** Instance+    Instance (..),+    newInstance,++    -- ** Instance_Labels+    Instance_Labels (..),+    newInstance_Labels,++    -- ** Instance_Protocol+    Instance_Protocol (..),++    -- ** Instance_State+    Instance_State (..),++    -- ** Instance_SuspensionReasonsItem+    Instance_SuspensionReasonsItem (..),++    -- ** Instance_Tags+    Instance_Tags (..),+    newInstance_Tags,++    -- ** Instance_Tier+    Instance_Tier (..),++    -- ** ListBackupsResponse+    ListBackupsResponse (..),+    newListBackupsResponse,++    -- ** ListInstancesResponse+    ListInstancesResponse (..),+    newListInstancesResponse,++    -- ** ListLocationsResponse+    ListLocationsResponse (..),+    newListLocationsResponse,++    -- ** ListOperationsResponse+    ListOperationsResponse (..),+    newListOperationsResponse,++    -- ** ListSnapshotsResponse+    ListSnapshotsResponse (..),+    newListSnapshotsResponse,++    -- ** Location+    Location (..),+    newLocation,++    -- ** Location_Labels+    Location_Labels (..),+    newLocation_Labels,++    -- ** Location_Metadata+    Location_Metadata (..),+    newLocation_Metadata,++    -- ** MaintenancePolicy+    MaintenancePolicy (..),+    newMaintenancePolicy,++    -- ** MaintenancePolicy_Labels+    MaintenancePolicy_Labels (..),+    newMaintenancePolicy_Labels,++    -- ** MaintenancePolicy_State+    MaintenancePolicy_State (..),++    -- ** MaintenanceWindow+    MaintenanceWindow (..),+    newMaintenanceWindow,++    -- ** NetworkConfig+    NetworkConfig (..),+    newNetworkConfig,++    -- ** NetworkConfig_ConnectMode+    NetworkConfig_ConnectMode (..),++    -- ** NetworkConfig_ModesItem+    NetworkConfig_ModesItem (..),++    -- ** NfsExportOptions+    NfsExportOptions (..),+    newNfsExportOptions,++    -- ** NfsExportOptions_AccessMode+    NfsExportOptions_AccessMode (..),++    -- ** NfsExportOptions_SquashMode+    NfsExportOptions_SquashMode (..),++    -- ** Operation+    Operation (..),+    newOperation,++    -- ** Operation_Metadata+    Operation_Metadata (..),+    newOperation_Metadata,++    -- ** Operation_Response+    Operation_Response (..),+    newOperation_Response,++    -- ** OperationMetadata+    OperationMetadata (..),+    newOperationMetadata,++    -- ** PerformanceConfig+    PerformanceConfig (..),+    newPerformanceConfig,++    -- ** PerformanceLimits+    PerformanceLimits (..),+    newPerformanceLimits,++    -- ** PromoteReplicaRequest+    PromoteReplicaRequest (..),+    newPromoteReplicaRequest,++    -- ** ReplicaConfig+    ReplicaConfig (..),+    newReplicaConfig,++    -- ** ReplicaConfig_State+    ReplicaConfig_State (..),++    -- ** ReplicaConfig_StateReasonsItem+    ReplicaConfig_StateReasonsItem (..),++    -- ** Replication+    Replication (..),+    newReplication,++    -- ** Replication_Role+    Replication_Role (..),++    -- ** RestoreInstanceRequest+    RestoreInstanceRequest (..),+    newRestoreInstanceRequest,++    -- ** RevertInstanceRequest+    RevertInstanceRequest (..),+    newRevertInstanceRequest,++    -- ** Schedule+    Schedule (..),+    newSchedule,++    -- ** Schedule_Day+    Schedule_Day (..),++    -- ** Snapshot+    Snapshot (..),+    newSnapshot,++    -- ** Snapshot_Labels+    Snapshot_Labels (..),+    newSnapshot_Labels,++    -- ** Snapshot_State+    Snapshot_State (..),++    -- ** Snapshot_Tags+    Snapshot_Tags (..),+    newSnapshot_Tags,++    -- ** Status+    Status (..),+    newStatus,++    -- ** Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- ** TimeOfDay'+    TimeOfDay' (..),+    newTimeOfDay,++    -- ** UpdatePolicy+    UpdatePolicy (..),+    newUpdatePolicy,++    -- ** UpdatePolicy_Channel+    UpdatePolicy_Channel (..),++    -- ** WeeklyCycle+    WeeklyCycle (..),+    newWeeklyCycle,+  )+where++import Gogol.File.Projects.Locations.Backups.Create+import Gogol.File.Projects.Locations.Backups.Delete+import Gogol.File.Projects.Locations.Backups.Get+import Gogol.File.Projects.Locations.Backups.List+import Gogol.File.Projects.Locations.Backups.Patch+import Gogol.File.Projects.Locations.Get+import Gogol.File.Projects.Locations.Instances.Create+import Gogol.File.Projects.Locations.Instances.Delete+import Gogol.File.Projects.Locations.Instances.Get+import Gogol.File.Projects.Locations.Instances.List+import Gogol.File.Projects.Locations.Instances.Patch+import Gogol.File.Projects.Locations.Instances.PromoteReplica+import Gogol.File.Projects.Locations.Instances.Restore+import Gogol.File.Projects.Locations.Instances.Revert+import Gogol.File.Projects.Locations.Instances.Snapshots.Create+import Gogol.File.Projects.Locations.Instances.Snapshots.Delete+import Gogol.File.Projects.Locations.Instances.Snapshots.Get+import Gogol.File.Projects.Locations.Instances.Snapshots.List+import Gogol.File.Projects.Locations.Instances.Snapshots.Patch+import Gogol.File.Projects.Locations.List+import Gogol.File.Projects.Locations.Operations.Cancel+import Gogol.File.Projects.Locations.Operations.Delete+import Gogol.File.Projects.Locations.Operations.Get+import Gogol.File.Projects.Locations.Operations.List+import Gogol.File.Types
+ gen/Gogol/File/Internal/Product.hs view
@@ -0,0 +1,3172 @@+{-# 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.File.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.File.Internal.Product+  ( -- * Backup+    Backup (..),+    newBackup,++    -- * Backup_Labels+    Backup_Labels (..),+    newBackup_Labels,++    -- * Backup_Tags+    Backup_Tags (..),+    newBackup_Tags,++    -- * CancelOperationRequest+    CancelOperationRequest (..),+    newCancelOperationRequest,++    -- * DailyCycle+    DailyCycle (..),+    newDailyCycle,++    -- * Date+    Date (..),+    newDate,++    -- * DenyMaintenancePeriod+    DenyMaintenancePeriod (..),+    newDenyMaintenancePeriod,++    -- * Empty+    Empty (..),+    newEmpty,++    -- * FileShareConfig+    FileShareConfig (..),+    newFileShareConfig,++    -- * FixedIOPS+    FixedIOPS (..),+    newFixedIOPS,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1Instance+    GoogleCloudSaasacceleratorManagementProvidersV1Instance (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata+    GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter+    GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility+    GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities+    GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+    GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility+    GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1SloEligibility,++    -- * GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+    GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1SloMetadata,++    -- * IOPSPerTB+    IOPSPerTB (..),+    newIOPSPerTB,++    -- * Instance+    Instance (..),+    newInstance,++    -- * Instance_Labels+    Instance_Labels (..),+    newInstance_Labels,++    -- * Instance_Tags+    Instance_Tags (..),+    newInstance_Tags,++    -- * ListBackupsResponse+    ListBackupsResponse (..),+    newListBackupsResponse,++    -- * ListInstancesResponse+    ListInstancesResponse (..),+    newListInstancesResponse,++    -- * ListLocationsResponse+    ListLocationsResponse (..),+    newListLocationsResponse,++    -- * ListOperationsResponse+    ListOperationsResponse (..),+    newListOperationsResponse,++    -- * ListSnapshotsResponse+    ListSnapshotsResponse (..),+    newListSnapshotsResponse,++    -- * Location+    Location (..),+    newLocation,++    -- * Location_Labels+    Location_Labels (..),+    newLocation_Labels,++    -- * Location_Metadata+    Location_Metadata (..),+    newLocation_Metadata,++    -- * MaintenancePolicy+    MaintenancePolicy (..),+    newMaintenancePolicy,++    -- * MaintenancePolicy_Labels+    MaintenancePolicy_Labels (..),+    newMaintenancePolicy_Labels,++    -- * MaintenanceWindow+    MaintenanceWindow (..),+    newMaintenanceWindow,++    -- * NetworkConfig+    NetworkConfig (..),+    newNetworkConfig,++    -- * NfsExportOptions+    NfsExportOptions (..),+    newNfsExportOptions,++    -- * Operation+    Operation (..),+    newOperation,++    -- * Operation_Metadata+    Operation_Metadata (..),+    newOperation_Metadata,++    -- * Operation_Response+    Operation_Response (..),+    newOperation_Response,++    -- * OperationMetadata+    OperationMetadata (..),+    newOperationMetadata,++    -- * PerformanceConfig+    PerformanceConfig (..),+    newPerformanceConfig,++    -- * PerformanceLimits+    PerformanceLimits (..),+    newPerformanceLimits,++    -- * PromoteReplicaRequest+    PromoteReplicaRequest (..),+    newPromoteReplicaRequest,++    -- * ReplicaConfig+    ReplicaConfig (..),+    newReplicaConfig,++    -- * Replication+    Replication (..),+    newReplication,++    -- * RestoreInstanceRequest+    RestoreInstanceRequest (..),+    newRestoreInstanceRequest,++    -- * RevertInstanceRequest+    RevertInstanceRequest (..),+    newRevertInstanceRequest,++    -- * Schedule+    Schedule (..),+    newSchedule,++    -- * Snapshot+    Snapshot (..),+    newSnapshot,++    -- * Snapshot_Labels+    Snapshot_Labels (..),+    newSnapshot_Labels,++    -- * Snapshot_Tags+    Snapshot_Tags (..),+    newSnapshot_Tags,++    -- * Status+    Status (..),+    newStatus,++    -- * Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- * TimeOfDay'+    TimeOfDay' (..),+    newTimeOfDay,++    -- * UpdatePolicy+    UpdatePolicy (..),+    newUpdatePolicy,++    -- * WeeklyCycle+    WeeklyCycle (..),+    newWeeklyCycle,+  )+where++import Gogol.File.Internal.Sum+import Gogol.Prelude qualified as Core++-- | A Filestore backup.+--+-- /See:/ 'newBackup' smart constructor.+data Backup = Backup+  { -- | Output only. Capacity of the source file share when the backup was created.+    capacityGb :: (Core.Maybe Core.Int64),+    -- | Output only. The time when the backup was created.+    createTime :: (Core.Maybe Core.DateTime),+    -- | A description of the backup with 2048 characters or less. Requests with longer descriptions will be rejected.+    description :: (Core.Maybe Core.Text),+    -- | Output only. Amount of bytes that will be downloaded if the backup is restored. This may be different than storage bytes, since sequential backups of the same disk will share storage.+    downloadBytes :: (Core.Maybe Core.Int64),+    -- | Output only. The file system protocol of the source Filestore instance that this backup is created from.+    fileSystemProtocol :: (Core.Maybe Backup_FileSystemProtocol),+    -- | Immutable. KMS key name used for data encryption.+    kmsKey :: (Core.Maybe Core.Text),+    -- | Resource labels to represent user provided metadata.+    labels :: (Core.Maybe Backup_Labels),+    -- | Output only. The resource name of the backup, in the format @projects\/{project_number}\/locations\/{location_id}\/backups\/{backup_id}@.+    name :: (Core.Maybe Core.Text),+    -- | Output only. Reserved for future use.+    satisfiesPzi :: (Core.Maybe Core.Bool),+    -- | Output only. Reserved for future use.+    satisfiesPzs :: (Core.Maybe Core.Bool),+    -- | Name of the file share in the source Filestore instance that the backup is created from.+    sourceFileShare :: (Core.Maybe Core.Text),+    -- | The resource name of the source Filestore instance, in the format @projects\/{project_number}\/locations\/{location_id}\/instances\/{instance_id}@, used to create this backup.+    sourceInstance :: (Core.Maybe Core.Text),+    -- | Output only. The service tier of the source Filestore instance that this backup is created from.+    sourceInstanceTier :: (Core.Maybe Backup_SourceInstanceTier),+    -- | Output only. The backup state.+    state :: (Core.Maybe Backup_State),+    -- | Output only. The size of the storage used by the backup. As backups share storage, this number is expected to change with backup creation\/deletion.+    storageBytes :: (Core.Maybe Core.Int64),+    -- | Optional. Input only. Immutable. Tag key-value pairs bound to this resource. Each key must be a namespaced name and each value a short name. Example: \"123456789012\/environment\" : \"production\", \"123456789013\/costCenter\" : \"marketing\" See the documentation for more information: - Namespaced name: https:\/\/cloud.google.com\/resource-manager\/docs\/tags\/tags-creating-and-managing#retrieving/tag/key - Short name: https:\/\/cloud.google.com\/resource-manager\/docs\/tags\/tags-creating-and-managing#retrieving/tag/value+    tags :: (Core.Maybe Backup_Tags)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Backup' with the minimum fields required to make a request.+newBackup ::+  Backup+newBackup =+  Backup+    { capacityGb = Core.Nothing,+      createTime = Core.Nothing,+      description = Core.Nothing,+      downloadBytes = Core.Nothing,+      fileSystemProtocol = Core.Nothing,+      kmsKey = Core.Nothing,+      labels = Core.Nothing,+      name = Core.Nothing,+      satisfiesPzi = Core.Nothing,+      satisfiesPzs = Core.Nothing,+      sourceFileShare = Core.Nothing,+      sourceInstance = Core.Nothing,+      sourceInstanceTier = Core.Nothing,+      state = Core.Nothing,+      storageBytes = Core.Nothing,+      tags = Core.Nothing+    }++instance Core.FromJSON Backup where+  parseJSON =+    Core.withObject+      "Backup"+      ( \o ->+          Backup+            Core.<$> (o Core..:? "capacityGb" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "createTime")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "downloadBytes" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "fileSystemProtocol")+            Core.<*> (o Core..:? "kmsKey")+            Core.<*> (o Core..:? "labels")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "satisfiesPzi")+            Core.<*> (o Core..:? "satisfiesPzs")+            Core.<*> (o Core..:? "sourceFileShare")+            Core.<*> (o Core..:? "sourceInstance")+            Core.<*> (o Core..:? "sourceInstanceTier")+            Core.<*> (o Core..:? "state")+            Core.<*> (o Core..:? "storageBytes" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "tags")+      )++instance Core.ToJSON Backup where+  toJSON Backup {..} =+    Core.object+      ( Core.catMaybes+          [ ("capacityGb" Core..=) Core.. Core.AsText Core.<$> capacityGb,+            ("createTime" Core..=) Core.<$> createTime,+            ("description" Core..=) Core.<$> description,+            ("downloadBytes" Core..=)+              Core.. Core.AsText+              Core.<$> downloadBytes,+            ("fileSystemProtocol" Core..=) Core.<$> fileSystemProtocol,+            ("kmsKey" Core..=) Core.<$> kmsKey,+            ("labels" Core..=) Core.<$> labels,+            ("name" Core..=) Core.<$> name,+            ("satisfiesPzi" Core..=) Core.<$> satisfiesPzi,+            ("satisfiesPzs" Core..=) Core.<$> satisfiesPzs,+            ("sourceFileShare" Core..=) Core.<$> sourceFileShare,+            ("sourceInstance" Core..=) Core.<$> sourceInstance,+            ("sourceInstanceTier" Core..=) Core.<$> sourceInstanceTier,+            ("state" Core..=) Core.<$> state,+            ("storageBytes" Core..=) Core.. Core.AsText Core.<$> storageBytes,+            ("tags" Core..=) Core.<$> tags+          ]+      )++-- | Resource labels to represent user provided metadata.+--+-- /See:/ 'newBackup_Labels' smart constructor.+newtype Backup_Labels = Backup_Labels+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Backup_Labels' with the minimum fields required to make a request.+newBackup_Labels ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  Backup_Labels+newBackup_Labels additional =+  Backup_Labels {additional = additional}++instance Core.FromJSON Backup_Labels where+  parseJSON =+    Core.withObject+      "Backup_Labels"+      (\o -> Backup_Labels Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Backup_Labels where+  toJSON Backup_Labels {..} = Core.toJSON additional++-- | Optional. Input only. Immutable. Tag key-value pairs bound to this resource. Each key must be a namespaced name and each value a short name. Example: \"123456789012\/environment\" : \"production\", \"123456789013\/costCenter\" : \"marketing\" See the documentation for more information: - Namespaced name: https:\/\/cloud.google.com\/resource-manager\/docs\/tags\/tags-creating-and-managing#retrieving/tag/key - Short name: https:\/\/cloud.google.com\/resource-manager\/docs\/tags\/tags-creating-and-managing#retrieving/tag/value+--+-- /See:/ 'newBackup_Tags' smart constructor.+newtype Backup_Tags = Backup_Tags+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Backup_Tags' with the minimum fields required to make a request.+newBackup_Tags ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  Backup_Tags+newBackup_Tags additional = Backup_Tags {additional = additional}++instance Core.FromJSON Backup_Tags where+  parseJSON =+    Core.withObject+      "Backup_Tags"+      (\o -> Backup_Tags Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Backup_Tags where+  toJSON Backup_Tags {..} = Core.toJSON additional++-- | 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++-- | Time window specified for daily operations.+--+-- /See:/ 'newDailyCycle' smart constructor.+data DailyCycle = DailyCycle+  { -- | Output only. Duration of the time window, set by service producer.+    duration :: (Core.Maybe Core.Duration),+    -- | Time within the day to start the operations.+    startTime :: (Core.Maybe TimeOfDay')+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DailyCycle' with the minimum fields required to make a request.+newDailyCycle ::+  DailyCycle+newDailyCycle =+  DailyCycle {duration = Core.Nothing, startTime = Core.Nothing}++instance Core.FromJSON DailyCycle where+  parseJSON =+    Core.withObject+      "DailyCycle"+      ( \o ->+          DailyCycle+            Core.<$> (o Core..:? "duration")+            Core.<*> (o Core..:? "startTime")+      )++instance Core.ToJSON DailyCycle where+  toJSON DailyCycle {..} =+    Core.object+      ( Core.catMaybes+          [ ("duration" Core..=) Core.<$> duration,+            ("startTime" Core..=) Core.<$> startTime+          ]+      )++-- | Represents a whole or partial calendar date, such as a birthday. The time of day and time zone are either specified elsewhere or are insignificant. The date is relative to the Gregorian Calendar. This can represent one of the following: * A full date, with non-zero year, month, and day values. * A month and day, with a zero year (for example, an anniversary). * A year on its own, with a zero month and a zero day. * A year and month, with a zero day (for example, a credit card expiration date). Related types: * google.type.TimeOfDay * google.type.DateTime * google.protobuf.Timestamp+--+-- /See:/ 'newDate' smart constructor.+data Date = Date+  { -- | Day of a month. Must be from 1 to 31 and valid for the year and month, or 0 to specify a year by itself or a year and month where the day isn\'t significant.+    day :: (Core.Maybe Core.Int32),+    -- | Month of a year. Must be from 1 to 12, or 0 to specify a year without a month and day.+    month :: (Core.Maybe Core.Int32),+    -- | Year of the date. Must be from 1 to 9999, or 0 to specify a date without a year.+    year :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Date' with the minimum fields required to make a request.+newDate ::+  Date+newDate =+  Date+    { day = Core.Nothing,+      month = Core.Nothing,+      year = Core.Nothing+    }++instance Core.FromJSON Date where+  parseJSON =+    Core.withObject+      "Date"+      ( \o ->+          Date+            Core.<$> (o Core..:? "day")+            Core.<*> (o Core..:? "month")+            Core.<*> (o Core..:? "year")+      )++instance Core.ToJSON Date where+  toJSON Date {..} =+    Core.object+      ( Core.catMaybes+          [ ("day" Core..=) Core.<$> day,+            ("month" Core..=) Core.<$> month,+            ("year" Core..=) Core.<$> year+          ]+      )++-- | DenyMaintenancePeriod definition. Maintenance is forbidden within the deny period. The start/date must be less than the end/date.+--+-- /See:/ 'newDenyMaintenancePeriod' smart constructor.+data DenyMaintenancePeriod = DenyMaintenancePeriod+  { -- | Deny period end date. This can be: * A full date, with non-zero year, month and day values. * A month and day value, with a zero year. Allows recurring deny periods each year. Date matching this period will have to be before the end.+    endDate :: (Core.Maybe Date),+    -- | Deny period start date. This can be: * A full date, with non-zero year, month and day values. * A month and day value, with a zero year. Allows recurring deny periods each year. Date matching this period will have to be the same or after the start.+    startDate :: (Core.Maybe Date),+    -- | Time in UTC when the Blackout period starts on start/date and ends on end/date. This can be: * Full time. * All zeros for 00:00:00 UTC+    time :: (Core.Maybe TimeOfDay')+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DenyMaintenancePeriod' with the minimum fields required to make a request.+newDenyMaintenancePeriod ::+  DenyMaintenancePeriod+newDenyMaintenancePeriod =+  DenyMaintenancePeriod+    { endDate = Core.Nothing,+      startDate = Core.Nothing,+      time = Core.Nothing+    }++instance Core.FromJSON DenyMaintenancePeriod where+  parseJSON =+    Core.withObject+      "DenyMaintenancePeriod"+      ( \o ->+          DenyMaintenancePeriod+            Core.<$> (o Core..:? "endDate")+            Core.<*> (o Core..:? "startDate")+            Core.<*> (o Core..:? "time")+      )++instance Core.ToJSON DenyMaintenancePeriod where+  toJSON DenyMaintenancePeriod {..} =+    Core.object+      ( Core.catMaybes+          [ ("endDate" Core..=) Core.<$> endDate,+            ("startDate" Core..=) Core.<$> startDate,+            ("time" Core..=) Core.<$> time+          ]+      )++-- | 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++-- | File share configuration for the instance.+--+-- /See:/ 'newFileShareConfig' smart constructor.+data FileShareConfig = FileShareConfig+  { -- | File share capacity in gigabytes (GB). Filestore defines 1 GB as 1024^3 bytes.+    capacityGb :: (Core.Maybe Core.Int64),+    -- | Required. The name of the file share. Must use 1-16 characters for the basic service tier and 1-63 characters for all other service tiers. Must use lowercase letters, numbers, or underscores @[a-z0-9_]@. Must start with a letter. Immutable.+    name :: (Core.Maybe Core.Text),+    -- | Nfs Export Options. There is a limit of 10 export options per file share.+    nfsExportOptions :: (Core.Maybe [NfsExportOptions]),+    -- | The resource name of the backup, in the format @projects\/{project_number}\/locations\/{location_id}\/backups\/{backup_id}@, that this file share has been restored from.+    sourceBackup :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FileShareConfig' with the minimum fields required to make a request.+newFileShareConfig ::+  FileShareConfig+newFileShareConfig =+  FileShareConfig+    { capacityGb = Core.Nothing,+      name = Core.Nothing,+      nfsExportOptions = Core.Nothing,+      sourceBackup = Core.Nothing+    }++instance Core.FromJSON FileShareConfig where+  parseJSON =+    Core.withObject+      "FileShareConfig"+      ( \o ->+          FileShareConfig+            Core.<$> (o Core..:? "capacityGb" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "nfsExportOptions")+            Core.<*> (o Core..:? "sourceBackup")+      )++instance Core.ToJSON FileShareConfig where+  toJSON FileShareConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("capacityGb" Core..=) Core.. Core.AsText Core.<$> capacityGb,+            ("name" Core..=) Core.<$> name,+            ("nfsExportOptions" Core..=) Core.<$> nfsExportOptions,+            ("sourceBackup" Core..=) Core.<$> sourceBackup+          ]+      )++-- | Fixed IOPS (input\/output operations per second) parameters.+--+-- /See:/ 'newFixedIOPS' smart constructor.+newtype FixedIOPS = FixedIOPS+  { -- | Required. Maximum IOPS.+    maxIops :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FixedIOPS' with the minimum fields required to make a request.+newFixedIOPS ::+  FixedIOPS+newFixedIOPS = FixedIOPS {maxIops = Core.Nothing}++instance Core.FromJSON FixedIOPS where+  parseJSON =+    Core.withObject+      "FixedIOPS"+      ( \o ->+          FixedIOPS+            Core.<$> (o Core..:? "maxIops" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON FixedIOPS where+  toJSON FixedIOPS {..} =+    Core.object+      ( Core.catMaybes+          [("maxIops" Core..=) Core.. Core.AsText Core.<$> maxIops]+      )++-- | Instance represents the interface for SLM services to actuate the state of control plane resources. Example Instance in JSON, where consumer-project-number=123456, producer-project-id=cloud-sql:+-- @json Instance: { \"name\": \"projects\/123456\/locations\/us-east1\/instances\/prod-instance\", \"create_time\": { \"seconds\": 1526406431, }, \"labels\": { \"env\": \"prod\", \"foo\": \"bar\" }, \"state\": READY, \"software_versions\": { \"software_update\": \"cloud-sql-09-28-2018\", }, \"maintenance_policy_names\": { \"UpdatePolicy\": \"projects\/123456\/locations\/us-east1\/maintenancePolicies\/prod-update-policy\", } \"tenant_project_id\": \"cloud-sql-test-tenant\", \"producer_metadata\": { \"cloud-sql-tier\": \"basic\", \"cloud-sql-instance-size\": \"1G\", }, \"provisioned_resources\": [ { \"resource-type\": \"compute-instance\", \"resource-url\": \"https:\/\/www.googleapis.com\/compute\/v1\/projects\/cloud-sql\/zones\/us-east1-b\/instances\/vm-1\", } ], \"maintenance_schedules\": { \"csa_rollout\": { \"start_time\": { \"seconds\": 1526406431, }, \"end_time\": { \"seconds\": 1535406431, }, }, \"ncsa_rollout\": { \"start_time\": { \"seconds\": 1526406431, }, \"end_time\": { \"seconds\": 1535406431, }, } }, \"consumer_defined_name\": \"my-sql-instance1\", }@+-- LINT.IfChange+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1Instance' smart constructor.+data GoogleCloudSaasacceleratorManagementProvidersV1Instance = GoogleCloudSaasacceleratorManagementProvidersV1Instance+  { -- | consumer/defined/name is the name of the instance set by the service consumers. Generally this is different from the @name@ field which reperesents the system-assigned id of the instance which the service consumers do not recognize. This is a required field for tenants onboarding to Maintenance Window notifications (go\/slm-rollout-maintenance-policies#prerequisites).+    consumerDefinedName :: (Core.Maybe Core.Text),+    -- | Output only. Timestamp when the resource was created.+    createTime :: (Core.Maybe Core.DateTime),+    -- | Optional. The instance/type of this instance of format: projects\/{project/number}\/locations\/{location/id}\/instanceTypes\/{instance/type/id}. Instance Type represents a high-level tier or SKU of the service that this instance belong to. When enabled(eg: Maintenance Rollout), Rollout uses \'instance/type\' along with \'software_versions\' to determine whether instance needs an update or not.+    instanceType :: (Core.Maybe Core.Text),+    -- | Optional. Resource labels to represent user provided metadata. Each label is a key-value pair, where both the key and the value are arbitrary strings provided by the user.+    labels ::+      ( Core.Maybe+          GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels+      ),+    -- | Optional. The MaintenancePolicies that have been attached to the instance. The key must be of the type name of the oneof policy name defined in MaintenancePolicy, and the referenced policy must define the same policy type. For details, please refer to go\/mr-user-guide. Should not be set if maintenance/settings.maintenance/policies is set.+    maintenancePolicyNames ::+      ( Core.Maybe+          GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames+      ),+    -- | The MaintenanceSchedule contains the scheduling information of published maintenance schedule with same key as software_versions.+    maintenanceSchedules ::+      ( Core.Maybe+          GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules+      ),+    -- | Optional. The MaintenanceSettings associated with instance.+    maintenanceSettings ::+      ( Core.Maybe+          GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings+      ),+    -- | Unique name of the resource. It uses the form: @projects\/{project_number}\/locations\/{location_id}\/instances\/{instance_id}@ Note: This name is passed, stored and logged across the rollout system. So use of consumer project/id or any other consumer PII in the name is strongly discouraged for wipeout (go\/wipeout) compliance. See go\/elysium\/project/ids#storage-guidance for more details.+    name :: (Core.Maybe Core.Text),+    -- | Optional. notification_parameter are information that service producers may like to include that is not relevant to Rollout. This parameter will only be passed to Gamma and Cloud Logging for notification\/logging purpose.+    notificationParameters ::+      ( Core.Maybe+          GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters+      ),+    -- | Output only. Custom string attributes used primarily to expose producer-specific information in monitoring dashboards. See go\/get-instance-metadata.+    producerMetadata ::+      ( Core.Maybe+          GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata+      ),+    -- | Output only. The list of data plane resources provisioned for this instance, e.g. compute VMs. See go\/get-instance-metadata.+    provisionedResources ::+      ( Core.Maybe+          [GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource]+      ),+    -- | Link to the SLM instance template. Only populated when updating SLM instances via SSA\'s Actuation service adaptor. Service producers with custom control plane (e.g. Cloud SQL) doesn\'t need to populate this field. Instead they should use software_versions.+    slmInstanceTemplate :: (Core.Maybe Core.Text),+    -- | Output only. SLO metadata for instance classification in the Standardized dataplane SLO platform. See go\/cloud-ssa-standard-slo for feature description.+    sloMetadata ::+      ( Core.Maybe+          GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+      ),+    -- | Software versions that are used to deploy this instance. This can be mutated by rollout services.+    softwareVersions ::+      ( Core.Maybe+          GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions+      ),+    -- | Output only. Current lifecycle state of the resource (e.g. if it\'s being created or ready to use).+    state ::+      ( Core.Maybe+          GoogleCloudSaasacceleratorManagementProvidersV1Instance_State+      ),+    -- | Output only. ID of the associated GCP tenant project. See go\/get-instance-metadata.+    tenantProjectId :: (Core.Maybe Core.Text),+    -- | Output only. Timestamp when the resource was last modified.+    updateTime :: (Core.Maybe Core.DateTime)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1Instance' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1Instance ::+  GoogleCloudSaasacceleratorManagementProvidersV1Instance+newGoogleCloudSaasacceleratorManagementProvidersV1Instance =+  GoogleCloudSaasacceleratorManagementProvidersV1Instance+    { consumerDefinedName =+        Core.Nothing,+      createTime = Core.Nothing,+      instanceType = Core.Nothing,+      labels = Core.Nothing,+      maintenancePolicyNames = Core.Nothing,+      maintenanceSchedules = Core.Nothing,+      maintenanceSettings = Core.Nothing,+      name = Core.Nothing,+      notificationParameters = Core.Nothing,+      producerMetadata = Core.Nothing,+      provisionedResources = Core.Nothing,+      slmInstanceTemplate = Core.Nothing,+      sloMetadata = Core.Nothing,+      softwareVersions = Core.Nothing,+      state = Core.Nothing,+      tenantProjectId = Core.Nothing,+      updateTime = Core.Nothing+    }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1Instance"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1Instance+            Core.<$> (o Core..:? "consumerDefinedName")+            Core.<*> (o Core..:? "createTime")+            Core.<*> (o Core..:? "instanceType")+            Core.<*> (o Core..:? "labels")+            Core.<*> (o Core..:? "maintenancePolicyNames")+            Core.<*> (o Core..:? "maintenanceSchedules")+            Core.<*> (o Core..:? "maintenanceSettings")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "notificationParameters")+            Core.<*> (o Core..:? "producerMetadata")+            Core.<*> (o Core..:? "provisionedResources")+            Core.<*> (o Core..:? "slmInstanceTemplate")+            Core.<*> (o Core..:? "sloMetadata")+            Core.<*> (o Core..:? "softwareVersions")+            Core.<*> (o Core..:? "state")+            Core.<*> (o Core..:? "tenantProjectId")+            Core.<*> (o Core..:? "updateTime")+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance+  where+  toJSON GoogleCloudSaasacceleratorManagementProvidersV1Instance {..} =+    Core.object+      ( Core.catMaybes+          [ ("consumerDefinedName" Core..=) Core.<$> consumerDefinedName,+            ("createTime" Core..=) Core.<$> createTime,+            ("instanceType" Core..=) Core.<$> instanceType,+            ("labels" Core..=) Core.<$> labels,+            ("maintenancePolicyNames" Core..=) Core.<$> maintenancePolicyNames,+            ("maintenanceSchedules" Core..=) Core.<$> maintenanceSchedules,+            ("maintenanceSettings" Core..=) Core.<$> maintenanceSettings,+            ("name" Core..=) Core.<$> name,+            ("notificationParameters" Core..=) Core.<$> notificationParameters,+            ("producerMetadata" Core..=) Core.<$> producerMetadata,+            ("provisionedResources" Core..=) Core.<$> provisionedResources,+            ("slmInstanceTemplate" Core..=) Core.<$> slmInstanceTemplate,+            ("sloMetadata" Core..=) Core.<$> sloMetadata,+            ("softwareVersions" Core..=) Core.<$> softwareVersions,+            ("state" Core..=) Core.<$> state,+            ("tenantProjectId" Core..=) Core.<$> tenantProjectId,+            ("updateTime" Core..=) Core.<$> updateTime+          ]+      )++-- | Optional. Resource labels to represent user provided metadata. Each label is a key-value pair, where both the key and the value are arbitrary strings provided by the user.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels = GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels+newGoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels+  additional =+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels+      { additional =+          additional+      }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels+            Core.<$> (Core.parseJSONObject o)+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels {..} =+      Core.toJSON additional++-- | Optional. The MaintenancePolicies that have been attached to the instance. The key must be of the type name of the oneof policy name defined in MaintenancePolicy, and the referenced policy must define the same policy type. For details, please refer to go\/mr-user-guide. Should not be set if maintenance/settings.maintenance/policies is set.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames = GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames ::+  -- |  See 'additional'.+  Core.HashMap+    Core.Text+    Core.Text ->+  GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames+newGoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames+  additional =+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames+      { additional =+          additional+      }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames+            Core.<$> (Core.parseJSONObject o)+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames {..} =+      Core.toJSON additional++-- | The MaintenanceSchedule contains the scheduling information of published maintenance schedule with same key as software_versions.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules = GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules+  { additional ::+      ( Core.HashMap+          Core.Text+          GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule+      )+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules ::+  -- |  See 'additional'.+  Core.HashMap+    Core.Text+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule ->+  GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules+newGoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules+  additional =+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules+      { additional =+          additional+      }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules+            Core.<$> (Core.parseJSONObject o)+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules {..} =+      Core.toJSON additional++-- | Optional. notification_parameter are information that service producers may like to include that is not relevant to Rollout. This parameter will only be passed to Gamma and Cloud Logging for notification\/logging purpose.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters = GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters+  { additional ::+      ( Core.HashMap+          Core.Text+          GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter+      )+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters ::+  -- |  See 'additional'.+  Core.HashMap+    Core.Text+    GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter ->+  GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters+newGoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters+  additional =+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters+      { additional =+          additional+      }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters+            Core.<$> (Core.parseJSONObject o)+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters {..} =+      Core.toJSON additional++-- | Output only. Custom string attributes used primarily to expose producer-specific information in monitoring dashboards. See go\/get-instance-metadata.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata = GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata ::+  -- |  See 'additional'.+  Core.HashMap+    Core.Text+    Core.Text ->+  GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata+newGoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata+  additional =+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata+      { additional =+          additional+      }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata+            Core.<$> (Core.parseJSONObject o)+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata {..} =+      Core.toJSON additional++-- | Software versions that are used to deploy this instance. This can be mutated by rollout services.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions = GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions ::+  -- |  See 'additional'.+  Core.HashMap+    Core.Text+    Core.Text ->+  GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions+newGoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions+  additional =+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions+      { additional =+          additional+      }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions+            Core.<$> (Core.parseJSONObject o)+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions {..} =+      Core.toJSON additional++-- | Maintenance schedule which is exposed to customer and potentially end user, indicating published upcoming future maintenance schedule+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule' smart constructor.+data GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule = GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule+  { -- | This field is deprecated, and will be always set to true since reschedule can happen multiple times now. This field should not be removed until all service producers remove this for their customers.+    canReschedule :: (Core.Maybe Core.Bool),+    -- | The scheduled end time for the maintenance.+    endTime :: (Core.Maybe Core.DateTime),+    -- | The rollout management policy this maintenance schedule is associated with. When doing reschedule update request, the reschedule should be against this given policy.+    rolloutManagementPolicy :: (Core.Maybe Core.Text),+    -- | schedule/deadline/time is the time deadline any schedule start time cannot go beyond, including reschedule. It\'s normally the initial schedule start time plus maintenance window length (1 day or 1 week). Maintenance cannot be scheduled to start beyond this deadline.+    scheduleDeadlineTime :: (Core.Maybe Core.DateTime),+    -- | The scheduled start time for the maintenance.+    startTime :: (Core.Maybe Core.DateTime)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule ::+  GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule+newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule =+  GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule+    { canReschedule =+        Core.Nothing,+      endTime = Core.Nothing,+      rolloutManagementPolicy =+        Core.Nothing,+      scheduleDeadlineTime =+        Core.Nothing,+      startTime = Core.Nothing+    }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule+            Core.<$> (o Core..:? "canReschedule")+            Core.<*> (o Core..:? "endTime")+            Core.<*> (o Core..:? "rolloutManagementPolicy")+            Core.<*> (o Core..:? "scheduleDeadlineTime")+            Core.<*> (o Core..:? "startTime")+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule {..} =+      Core.object+        ( Core.catMaybes+            [ ("canReschedule" Core..=) Core.<$> canReschedule,+              ("endTime" Core..=) Core.<$> endTime,+              ("rolloutManagementPolicy" Core..=)+                Core.<$> rolloutManagementPolicy,+              ("scheduleDeadlineTime" Core..=) Core.<$> scheduleDeadlineTime,+              ("startTime" Core..=) Core.<$> startTime+            ]+        )++-- | Maintenance settings associated with instance. Allows service producers and end users to assign settings that controls maintenance on this instance.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings' smart constructor.+data GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings = GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings+  { -- | Optional. Exclude instance from maintenance. When true, rollout service will not attempt maintenance on the instance. Rollout service will include the instance in reported rollout progress as not attempted.+    exclude :: (Core.Maybe Core.Bool),+    -- | Optional. If the update call is triggered from rollback, set the value as true.+    isRollback :: (Core.Maybe Core.Bool),+    -- | Optional. The MaintenancePolicies that have been attached to the instance. The key must be of the type name of the oneof policy name defined in MaintenancePolicy, and the embedded policy must define the same policy type. For details, please refer to go\/mr-user-guide. Should not be set if maintenance/policy/names is set. If only the name is needed, then only populate MaintenancePolicy.name.+    maintenancePolicies ::+      ( Core.Maybe+          GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies+      )+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings ::+  GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings+newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings =+  GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings+    { exclude =+        Core.Nothing,+      isRollback = Core.Nothing,+      maintenancePolicies =+        Core.Nothing+    }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings+            Core.<$> (o Core..:? "exclude")+            Core.<*> (o Core..:? "isRollback")+            Core.<*> (o Core..:? "maintenancePolicies")+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings {..} =+      Core.object+        ( Core.catMaybes+            [ ("exclude" Core..=) Core.<$> exclude,+              ("isRollback" Core..=) Core.<$> isRollback,+              ("maintenancePolicies" Core..=) Core.<$> maintenancePolicies+            ]+        )++-- | Optional. The MaintenancePolicies that have been attached to the instance. The key must be of the type name of the oneof policy name defined in MaintenancePolicy, and the embedded policy must define the same policy type. For details, please refer to go\/mr-user-guide. Should not be set if maintenance/policy/names is set. If only the name is needed, then only populate MaintenancePolicy.name.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies = GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies+  { additional :: (Core.HashMap Core.Text MaintenancePolicy)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies ::+  -- |  See 'additional'.+  Core.HashMap+    Core.Text+    MaintenancePolicy ->+  GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies+newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies+  additional =+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies+      { additional =+          additional+      }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies+            Core.<$> (Core.parseJSONObject o)+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies {..} =+      Core.toJSON additional++-- | Node information for custom per-node SLO implementations. SSA does not support per-node SLO, but producers can populate per-node information in SloMetadata for custom precomputations. SSA Eligibility Exporter will emit per-node metric based on this information.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata' smart constructor.+data GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata = GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata+  { -- | The location of the node, if different from instance location.+    location :: (Core.Maybe Core.Text),+    -- | The id of the node. This should be equal to SaasInstanceNode.node_id.+    nodeId :: (Core.Maybe Core.Text),+    -- | If present, this will override eligibility for the node coming from instance or exclusions for specified SLIs.+    perSliEligibility ::+      ( Core.Maybe+          GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility+      )+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata ::+  GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata+newGoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata =+  GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata+    { location =+        Core.Nothing,+      nodeId = Core.Nothing,+      perSliEligibility = Core.Nothing+    }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata+            Core.<$> (o Core..:? "location")+            Core.<*> (o Core..:? "nodeId")+            Core.<*> (o Core..:? "perSliEligibility")+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata {..} =+      Core.object+        ( Core.catMaybes+            [ ("location" Core..=) Core.<$> location,+              ("nodeId" Core..=) Core.<$> nodeId,+              ("perSliEligibility" Core..=) Core.<$> perSliEligibility+            ]+        )++-- | Contains notification related data.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter = GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter+  { -- | Optional. Array of string values. e.g. instance\'s replica information.+    values :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter ::+  GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter+newGoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter =+  GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter+    { values =+        Core.Nothing+    }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter+            Core.<$> (o Core..:? "values")+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter {..} =+      Core.object (Core.catMaybes [("values" Core..=) Core.<$> values])++-- | PerSliSloEligibility is a mapping from an SLI name to eligibility.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility = GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility+  { -- | An entry in the eligibilities map specifies an eligibility for a particular SLI for the given instance. The SLI key in the name must be a valid SLI name specified in the Eligibility Exporter binary flags otherwise an error will be emitted by Eligibility Exporter and the oncaller will be alerted. If an SLI has been defined in the binary flags but the eligibilities map does not contain it, the corresponding SLI time series will not be emitted by the Eligibility Exporter. This ensures a smooth rollout and compatibility between the data produced by different versions of the Eligibility Exporters. If eligibilities map contains a key for an SLI which has not been declared in the binary flags, there will be an error message emitted in the Eligibility Exporter log and the metric for the SLI in question will not be emitted.+    eligibilities ::+      ( Core.Maybe+          GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities+      )+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility ::+  GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility+newGoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility =+  GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility+    { eligibilities =+        Core.Nothing+    }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility+            Core.<$> (o Core..:? "eligibilities")+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility {..} =+      Core.object+        (Core.catMaybes [("eligibilities" Core..=) Core.<$> eligibilities])++-- | An entry in the eligibilities map specifies an eligibility for a particular SLI for the given instance. The SLI key in the name must be a valid SLI name specified in the Eligibility Exporter binary flags otherwise an error will be emitted by Eligibility Exporter and the oncaller will be alerted. If an SLI has been defined in the binary flags but the eligibilities map does not contain it, the corresponding SLI time series will not be emitted by the Eligibility Exporter. This ensures a smooth rollout and compatibility between the data produced by different versions of the Eligibility Exporters. If eligibilities map contains a key for an SLI which has not been declared in the binary flags, there will be an error message emitted in the Eligibility Exporter log and the metric for the SLI in question will not be emitted.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities = GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities+  { additional ::+      ( Core.HashMap+          Core.Text+          GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility+      )+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities ::+  -- |  See 'additional'.+  Core.HashMap+    Core.Text+    GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility ->+  GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities+newGoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities+  additional =+    GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities+      { additional =+          additional+      }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities+            Core.<$> (Core.parseJSONObject o)+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities {..} =+      Core.toJSON additional++-- | Describes provisioned dataplane resources.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource' smart constructor.+data GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource = GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+  { -- | Type of the resource. This can be either a GCP resource or a custom one (e.g. another cloud provider\'s VM). For GCP compute resources use singular form of the names listed in GCP compute API documentation (https:\/\/cloud.google.com\/compute\/docs\/reference\/rest\/v1\/), prefixed with \'compute-\', for example: \'compute-instance\', \'compute-disk\', \'compute-autoscaler\'.+    resourceType :: (Core.Maybe Core.Text),+    -- | URL identifying the resource, e.g. \"https:\/\/www.googleapis.com\/compute\/v1\/projects\/...)\".+    resourceUrl :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource ::+  GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+newGoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource =+  GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+    { resourceType =+        Core.Nothing,+      resourceUrl = Core.Nothing+    }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+            Core.<$> (o Core..:? "resourceType")+            Core.<*> (o Core..:? "resourceUrl")+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource {..} =+      Core.object+        ( Core.catMaybes+            [ ("resourceType" Core..=) Core.<$> resourceType,+              ("resourceUrl" Core..=) Core.<$> resourceUrl+            ]+        )++-- | SloEligibility is a tuple containing eligibility value: true if an instance is eligible for SLO calculation or false if it should be excluded from all SLO-related calculations along with a user-defined reason.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1SloEligibility' smart constructor.+data GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility = GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility+  { -- | Whether an instance is eligible or ineligible.+    eligible :: (Core.Maybe Core.Bool),+    -- | User-defined reason for the current value of instance eligibility. Usually, this can be directly mapped to the internal state. An empty reason is allowed.+    reason :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1SloEligibility ::+  GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility+newGoogleCloudSaasacceleratorManagementProvidersV1SloEligibility =+  GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility+    { eligible =+        Core.Nothing,+      reason = Core.Nothing+    }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility+            Core.<$> (o Core..:? "eligible")+            Core.<*> (o Core..:? "reason")+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility {..} =+      Core.object+        ( Core.catMaybes+            [ ("eligible" Core..=) Core.<$> eligible,+              ("reason" Core..=) Core.<$> reason+            ]+        )++-- | SloMetadata contains resources required for proper SLO classification of the instance.+--+-- /See:/ 'newGoogleCloudSaasacceleratorManagementProvidersV1SloMetadata' smart constructor.+data GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata = GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+  { -- | Optional. List of nodes. Some producers need to use per-node metadata to calculate SLO. This field allows such producers to publish per-node SLO meta data, which will be consumed by SSA Eligibility Exporter and published in the form of per node metric to Monarch.+    nodes ::+      ( Core.Maybe+          [GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata]+      ),+    -- | Optional. Multiple per-instance SLI eligibilities which apply for individual SLIs.+    perSliEligibility ::+      ( Core.Maybe+          GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility+      ),+    -- | Name of the SLO tier the Instance belongs to. This name will be expected to match the tiers specified in the service SLO configuration. Field is mandatory and must not be empty.+    tier :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata' with the minimum fields required to make a request.+newGoogleCloudSaasacceleratorManagementProvidersV1SloMetadata ::+  GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+newGoogleCloudSaasacceleratorManagementProvidersV1SloMetadata =+  GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+    { nodes =+        Core.Nothing,+      perSliEligibility = Core.Nothing,+      tier = Core.Nothing+    }++instance+  Core.FromJSON+    GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+  where+  parseJSON =+    Core.withObject+      "GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata"+      ( \o ->+          GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+            Core.<$> (o Core..:? "nodes")+            Core.<*> (o Core..:? "perSliEligibility")+            Core.<*> (o Core..:? "tier")+      )++instance+  Core.ToJSON+    GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+  where+  toJSON+    GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata {..} =+      Core.object+        ( Core.catMaybes+            [ ("nodes" Core..=) Core.<$> nodes,+              ("perSliEligibility" Core..=) Core.<$> perSliEligibility,+              ("tier" Core..=) Core.<$> tier+            ]+        )++-- | IOPS per TB. Filestore defines TB as 1024^4 bytes (TiB).+--+-- /See:/ 'newIOPSPerTB' smart constructor.+newtype IOPSPerTB = IOPSPerTB+  { -- | Required. Maximum IOPS per TiB.+    maxIopsPerTb :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'IOPSPerTB' with the minimum fields required to make a request.+newIOPSPerTB ::+  IOPSPerTB+newIOPSPerTB = IOPSPerTB {maxIopsPerTb = Core.Nothing}++instance Core.FromJSON IOPSPerTB where+  parseJSON =+    Core.withObject+      "IOPSPerTB"+      ( \o ->+          IOPSPerTB+            Core.<$> (o Core..:? "maxIopsPerTb" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON IOPSPerTB where+  toJSON IOPSPerTB {..} =+    Core.object+      ( Core.catMaybes+          [ ("maxIopsPerTb" Core..=)+              Core.. Core.AsText+              Core.<$> maxIopsPerTb+          ]+      )++-- | A Filestore instance.+--+-- /See:/ 'newInstance' smart constructor.+data Instance = Instance+  { -- | Output only. The time when the instance was created.+    createTime :: (Core.Maybe Core.DateTime),+    -- | Output only. Indicates whether this instance supports configuring its performance. If true, the user can configure the instance\'s performance by using the \'performance_config\' field.+    customPerformanceSupported :: (Core.Maybe Core.Bool),+    -- | Optional. Indicates whether the instance is protected against deletion.+    deletionProtectionEnabled :: (Core.Maybe Core.Bool),+    -- | Optional. The reason for enabling deletion protection.+    deletionProtectionReason :: (Core.Maybe Core.Text),+    -- | The description of the instance (2048 characters or less).+    description :: (Core.Maybe Core.Text),+    -- | Server-specified ETag for the instance resource to prevent simultaneous updates from overwriting each other.+    etag :: (Core.Maybe Core.Text),+    -- | File system shares on the instance. For this version, only a single file share is supported.+    fileShares :: (Core.Maybe [FileShareConfig]),+    -- | KMS key name used for data encryption.+    kmsKeyName :: (Core.Maybe Core.Text),+    -- | Resource labels to represent user provided metadata.+    labels :: (Core.Maybe Instance_Labels),+    -- | Output only. The resource name of the instance, in the format @projects\/{project}\/locations\/{location}\/instances\/{instance}@.+    name :: (Core.Maybe Core.Text),+    -- | VPC networks to which the instance is connected. For this version, only a single network is supported.+    networks :: (Core.Maybe [NetworkConfig]),+    -- | Optional. Used to configure performance.+    performanceConfig :: (Core.Maybe PerformanceConfig),+    -- | Output only. Used for getting performance limits.+    performanceLimits :: (Core.Maybe PerformanceLimits),+    -- | Immutable. The protocol indicates the access protocol for all shares in the instance. This field is immutable and it cannot be changed after the instance has been created. Default value: @NFS_V3@.+    protocol :: (Core.Maybe Instance_Protocol),+    -- | Optional. Replication configuration.+    replication :: (Core.Maybe Replication),+    -- | Output only. Reserved for future use.+    satisfiesPzi :: (Core.Maybe Core.Bool),+    -- | Output only. Reserved for future use.+    satisfiesPzs :: (Core.Maybe Core.Bool),+    -- | Output only. The instance state.+    state :: (Core.Maybe Instance_State),+    -- | Output only. Additional information about the instance state, if available.+    statusMessage :: (Core.Maybe Core.Text),+    -- | Output only. Field indicates all the reasons the instance is in \"SUSPENDED\" state.+    suspensionReasons :: (Core.Maybe [Instance_SuspensionReasonsItem]),+    -- | Optional. Input only. Immutable. Tag key-value pairs bound to this resource. Each key must be a namespaced name and each value a short name. Example: \"123456789012\/environment\" : \"production\", \"123456789013\/costCenter\" : \"marketing\" See the documentation for more information: - Namespaced name: https:\/\/cloud.google.com\/resource-manager\/docs\/tags\/tags-creating-and-managing#retrieving/tag/key - Short name: https:\/\/cloud.google.com\/resource-manager\/docs\/tags\/tags-creating-and-managing#retrieving/tag/value+    tags :: (Core.Maybe Instance_Tags),+    -- | The service tier of the instance.+    tier :: (Core.Maybe Instance_Tier)+  }+  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+    { createTime = Core.Nothing,+      customPerformanceSupported = Core.Nothing,+      deletionProtectionEnabled = Core.Nothing,+      deletionProtectionReason = Core.Nothing,+      description = Core.Nothing,+      etag = Core.Nothing,+      fileShares = Core.Nothing,+      kmsKeyName = Core.Nothing,+      labels = Core.Nothing,+      name = Core.Nothing,+      networks = Core.Nothing,+      performanceConfig = Core.Nothing,+      performanceLimits = Core.Nothing,+      protocol = Core.Nothing,+      replication = Core.Nothing,+      satisfiesPzi = Core.Nothing,+      satisfiesPzs = Core.Nothing,+      state = Core.Nothing,+      statusMessage = Core.Nothing,+      suspensionReasons = Core.Nothing,+      tags = Core.Nothing,+      tier = Core.Nothing+    }++instance Core.FromJSON Instance where+  parseJSON =+    Core.withObject+      "Instance"+      ( \o ->+          Instance+            Core.<$> (o Core..:? "createTime")+            Core.<*> (o Core..:? "customPerformanceSupported")+            Core.<*> (o Core..:? "deletionProtectionEnabled")+            Core.<*> (o Core..:? "deletionProtectionReason")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "fileShares")+            Core.<*> (o Core..:? "kmsKeyName")+            Core.<*> (o Core..:? "labels")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "networks")+            Core.<*> (o Core..:? "performanceConfig")+            Core.<*> (o Core..:? "performanceLimits")+            Core.<*> (o Core..:? "protocol")+            Core.<*> (o Core..:? "replication")+            Core.<*> (o Core..:? "satisfiesPzi")+            Core.<*> (o Core..:? "satisfiesPzs")+            Core.<*> (o Core..:? "state")+            Core.<*> (o Core..:? "statusMessage")+            Core.<*> (o Core..:? "suspensionReasons")+            Core.<*> (o Core..:? "tags")+            Core.<*> (o Core..:? "tier")+      )++instance Core.ToJSON Instance where+  toJSON Instance {..} =+    Core.object+      ( Core.catMaybes+          [ ("createTime" Core..=) Core.<$> createTime,+            ("customPerformanceSupported" Core..=)+              Core.<$> customPerformanceSupported,+            ("deletionProtectionEnabled" Core..=)+              Core.<$> deletionProtectionEnabled,+            ("deletionProtectionReason" Core..=)+              Core.<$> deletionProtectionReason,+            ("description" Core..=) Core.<$> description,+            ("etag" Core..=) Core.<$> etag,+            ("fileShares" Core..=) Core.<$> fileShares,+            ("kmsKeyName" Core..=) Core.<$> kmsKeyName,+            ("labels" Core..=) Core.<$> labels,+            ("name" Core..=) Core.<$> name,+            ("networks" Core..=) Core.<$> networks,+            ("performanceConfig" Core..=) Core.<$> performanceConfig,+            ("performanceLimits" Core..=) Core.<$> performanceLimits,+            ("protocol" Core..=) Core.<$> protocol,+            ("replication" Core..=) Core.<$> replication,+            ("satisfiesPzi" Core..=) Core.<$> satisfiesPzi,+            ("satisfiesPzs" Core..=) Core.<$> satisfiesPzs,+            ("state" Core..=) Core.<$> state,+            ("statusMessage" Core..=) Core.<$> statusMessage,+            ("suspensionReasons" Core..=) Core.<$> suspensionReasons,+            ("tags" Core..=) Core.<$> tags,+            ("tier" Core..=) Core.<$> tier+          ]+      )++-- | Resource labels to represent user provided metadata.+--+-- /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. Input only. Immutable. Tag key-value pairs bound to this resource. Each key must be a namespaced name and each value a short name. Example: \"123456789012\/environment\" : \"production\", \"123456789013\/costCenter\" : \"marketing\" See the documentation for more information: - Namespaced name: https:\/\/cloud.google.com\/resource-manager\/docs\/tags\/tags-creating-and-managing#retrieving/tag/key - Short name: https:\/\/cloud.google.com\/resource-manager\/docs\/tags\/tags-creating-and-managing#retrieving/tag/value+--+-- /See:/ 'newInstance_Tags' smart constructor.+newtype Instance_Tags = Instance_Tags+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Instance_Tags' with the minimum fields required to make a request.+newInstance_Tags ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  Instance_Tags+newInstance_Tags additional =+  Instance_Tags {additional = additional}++instance Core.FromJSON Instance_Tags where+  parseJSON =+    Core.withObject+      "Instance_Tags"+      (\o -> Instance_Tags Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Instance_Tags where+  toJSON Instance_Tags {..} = Core.toJSON additional++-- | ListBackupsResponse is the result of ListBackupsRequest.+--+-- /See:/ 'newListBackupsResponse' smart constructor.+data ListBackupsResponse = ListBackupsResponse+  { -- | A list of backups in the project for the specified location. If the @{location}@ value in the request is \"-\", the response contains a list of backups from all locations. If any location is unreachable, the response will only return backups in reachable locations and the \"unreachable\" field will be populated with a list of unreachable locations.+    backups :: (Core.Maybe [Backup]),+    -- | The token you can use to retrieve the next page of results. Not returned if there are no more results in the list.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | Unordered list. Locations that could not be reached.+    unreachable :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListBackupsResponse' with the minimum fields required to make a request.+newListBackupsResponse ::+  ListBackupsResponse+newListBackupsResponse =+  ListBackupsResponse+    { backups = Core.Nothing,+      nextPageToken = Core.Nothing,+      unreachable = Core.Nothing+    }++instance Core.FromJSON ListBackupsResponse where+  parseJSON =+    Core.withObject+      "ListBackupsResponse"+      ( \o ->+          ListBackupsResponse+            Core.<$> (o Core..:? "backups")+            Core.<*> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "unreachable")+      )++instance Core.ToJSON ListBackupsResponse where+  toJSON ListBackupsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("backups" Core..=) Core.<$> backups,+            ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("unreachable" Core..=) Core.<$> unreachable+          ]+      )++-- | ListInstancesResponse is the result of ListInstancesRequest.+--+-- /See:/ 'newListInstancesResponse' smart constructor.+data ListInstancesResponse = ListInstancesResponse+  { -- | A list of instances in the project for the specified location. If the @{location}@ value in the request is \"-\", the response contains a list of instances from all locations. If any location is unreachable, the response will only return instances in reachable locations and the \"unreachable\" field will be populated with a list of unreachable locations.+    instances :: (Core.Maybe [Instance]),+    -- | The token you can use to retrieve the next page of results. Not returned if there are no more results in the list.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | Unordered list. 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+          ]+      )++-- | ListSnapshotsResponse is the result of ListSnapshotsRequest.+--+-- /See:/ 'newListSnapshotsResponse' smart constructor.+data ListSnapshotsResponse = ListSnapshotsResponse+  { -- | The token you can use to retrieve the next page of results. Not returned if there are no more results in the list.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | A list of snapshots in the project for the specified instance.+    snapshots :: (Core.Maybe [Snapshot]),+    -- | Unordered list. Locations that could not be reached.+    unreachable :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListSnapshotsResponse' with the minimum fields required to make a request.+newListSnapshotsResponse ::+  ListSnapshotsResponse+newListSnapshotsResponse =+  ListSnapshotsResponse+    { nextPageToken = Core.Nothing,+      snapshots = Core.Nothing,+      unreachable = Core.Nothing+    }++instance Core.FromJSON ListSnapshotsResponse where+  parseJSON =+    Core.withObject+      "ListSnapshotsResponse"+      ( \o ->+          ListSnapshotsResponse+            Core.<$> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "snapshots")+            Core.<*> (o Core..:? "unreachable")+      )++instance Core.ToJSON ListSnapshotsResponse where+  toJSON ListSnapshotsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("snapshots" Core..=) Core.<$> snapshots,+            ("unreachable" Core..=) Core.<$> unreachable+          ]+      )++-- | 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++-- | Defines policies to service maintenance events.+--+-- /See:/ 'newMaintenancePolicy' smart constructor.+data MaintenancePolicy = MaintenancePolicy+  { -- | Output only. The time when the resource was created.+    createTime :: (Core.Maybe Core.DateTime),+    -- | Optional. Description of what this policy is for. Create\/Update methods return INVALID_ARGUMENT if the length is greater than 512.+    description :: (Core.Maybe Core.Text),+    -- | Optional. Resource labels to represent user provided metadata. Each label is a key-value pair, where both the key and the value are arbitrary strings provided by the user.+    labels :: (Core.Maybe MaintenancePolicy_Labels),+    -- | Required. MaintenancePolicy name using the form: @projects\/{project_id}\/locations\/{location_id}\/maintenancePolicies\/{maintenance_policy_id}@ where {project/id} refers to a GCP consumer project ID, {location/id} refers to a GCP region\/zone, {maintenance/policy/id} must be 1-63 characters long and match the regular expression @[a-z0-9]([-a-z0-9]*[a-z0-9])?@.+    name :: (Core.Maybe Core.Text),+    -- | Optional. The state of the policy.+    state :: (Core.Maybe MaintenancePolicy_State),+    -- | Maintenance policy applicable to instance update.+    updatePolicy :: (Core.Maybe UpdatePolicy),+    -- | Output only. The time when the resource was updated.+    updateTime :: (Core.Maybe Core.DateTime)+  }+  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+    { createTime = Core.Nothing,+      description = Core.Nothing,+      labels = Core.Nothing,+      name = Core.Nothing,+      state = Core.Nothing,+      updatePolicy = Core.Nothing,+      updateTime = Core.Nothing+    }++instance Core.FromJSON MaintenancePolicy where+  parseJSON =+    Core.withObject+      "MaintenancePolicy"+      ( \o ->+          MaintenancePolicy+            Core.<$> (o Core..:? "createTime")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "labels")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "state")+            Core.<*> (o Core..:? "updatePolicy")+            Core.<*> (o Core..:? "updateTime")+      )++instance Core.ToJSON MaintenancePolicy where+  toJSON MaintenancePolicy {..} =+    Core.object+      ( Core.catMaybes+          [ ("createTime" Core..=) Core.<$> createTime,+            ("description" Core..=) Core.<$> description,+            ("labels" Core..=) Core.<$> labels,+            ("name" Core..=) Core.<$> name,+            ("state" Core..=) Core.<$> state,+            ("updatePolicy" Core..=) Core.<$> updatePolicy,+            ("updateTime" Core..=) Core.<$> updateTime+          ]+      )++-- | Optional. Resource labels to represent user provided metadata. Each label is a key-value pair, where both the key and the value are arbitrary strings provided by the user.+--+-- /See:/ 'newMaintenancePolicy_Labels' smart constructor.+newtype MaintenancePolicy_Labels = MaintenancePolicy_Labels+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MaintenancePolicy_Labels' with the minimum fields required to make a request.+newMaintenancePolicy_Labels ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  MaintenancePolicy_Labels+newMaintenancePolicy_Labels additional =+  MaintenancePolicy_Labels {additional = additional}++instance Core.FromJSON MaintenancePolicy_Labels where+  parseJSON =+    Core.withObject+      "MaintenancePolicy_Labels"+      (\o -> MaintenancePolicy_Labels Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON MaintenancePolicy_Labels where+  toJSON MaintenancePolicy_Labels {..} = Core.toJSON additional++-- | MaintenanceWindow definition.+--+-- /See:/ 'newMaintenanceWindow' smart constructor.+data MaintenanceWindow = MaintenanceWindow+  { -- | Daily cycle.+    dailyCycle :: (Core.Maybe DailyCycle),+    -- | Weekly cycle.+    weeklyCycle :: (Core.Maybe WeeklyCycle)+  }+  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+    { dailyCycle = Core.Nothing,+      weeklyCycle = Core.Nothing+    }++instance Core.FromJSON MaintenanceWindow where+  parseJSON =+    Core.withObject+      "MaintenanceWindow"+      ( \o ->+          MaintenanceWindow+            Core.<$> (o Core..:? "dailyCycle")+            Core.<*> (o Core..:? "weeklyCycle")+      )++instance Core.ToJSON MaintenanceWindow where+  toJSON MaintenanceWindow {..} =+    Core.object+      ( Core.catMaybes+          [ ("dailyCycle" Core..=) Core.<$> dailyCycle,+            ("weeklyCycle" Core..=) Core.<$> weeklyCycle+          ]+      )++-- | Network configuration for the instance.+--+-- /See:/ 'newNetworkConfig' smart constructor.+data NetworkConfig = NetworkConfig+  { -- | The network connect mode of the Filestore instance. If not provided, the connect mode defaults to DIRECT_PEERING.+    connectMode :: (Core.Maybe NetworkConfig_ConnectMode),+    -- | Output only. IPv4 addresses in the format @{octet1}.{octet2}.{octet3}.{octet4}@ or IPv6 addresses in the format @{block1}:{block2}:{block3}:{block4}:{block5}:{block6}:{block7}:{block8}@.+    ipAddresses :: (Core.Maybe [Core.Text]),+    -- | Internet protocol versions for which the instance has IP addresses assigned. For this version, only MODE_IPV4 is supported.+    modes :: (Core.Maybe [NetworkConfig_ModesItem]),+    -- | The name of the Google Compute Engine <https://cloud.google.com/vpc/docs/vpc VPC network> to which the instance is connected.+    network :: (Core.Maybe Core.Text),+    -- | Optional, reserved/ip/range can have one of the following two types of values. * CIDR range value when using DIRECT/PEERING connect mode. * <https://cloud.google.com/compute/docs/ip-addresses/reserve-static-internal-ip-address Allocated IP address range> when using PRIVATE/SERVICE_ACCESS connect mode. When the name of an allocated IP address range is specified, it must be one of the ranges associated with the private service access connection. When specified as a direct CIDR value, it must be a \/29 CIDR block for Basic tier, a \/24 CIDR block for High Scale tier, or a \/26 CIDR block for Enterprise tier in one of the <https://www.arin.net/reference/research/statistics/address_filters/ internal IP address ranges> that identifies the range of IP addresses reserved for this instance. For example, 10.0.0.0\/29, 192.168.0.0\/24 or 192.168.0.0\/26, respectively. The range you specify can\'t overlap with either existing subnets or assigned IP address ranges for other Filestore instances in the selected VPC network.+    reservedIpRange :: (Core.Maybe Core.Text)+  }+  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+    { connectMode = Core.Nothing,+      ipAddresses = Core.Nothing,+      modes = Core.Nothing,+      network = Core.Nothing,+      reservedIpRange = Core.Nothing+    }++instance Core.FromJSON NetworkConfig where+  parseJSON =+    Core.withObject+      "NetworkConfig"+      ( \o ->+          NetworkConfig+            Core.<$> (o Core..:? "connectMode")+            Core.<*> (o Core..:? "ipAddresses")+            Core.<*> (o Core..:? "modes")+            Core.<*> (o Core..:? "network")+            Core.<*> (o Core..:? "reservedIpRange")+      )++instance Core.ToJSON NetworkConfig where+  toJSON NetworkConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("connectMode" Core..=) Core.<$> connectMode,+            ("ipAddresses" Core..=) Core.<$> ipAddresses,+            ("modes" Core..=) Core.<$> modes,+            ("network" Core..=) Core.<$> network,+            ("reservedIpRange" Core..=) Core.<$> reservedIpRange+          ]+      )++-- | NFS export options specifications.+--+-- /See:/ 'newNfsExportOptions' smart constructor.+data NfsExportOptions = NfsExportOptions+  { -- | Either READ/ONLY, for allowing only read requests on the exported directory, or READ/WRITE, for allowing both read and write requests. The default is READ_WRITE.+    accessMode :: (Core.Maybe NfsExportOptions_AccessMode),+    -- | An integer representing the anonymous group id with a default value of 65534. Anon/gid may only be set with squash/mode of ROOT/SQUASH. An error will be returned if this field is specified for other squash/mode settings.+    anonGid :: (Core.Maybe Core.Int64),+    -- | An integer representing the anonymous user id with a default value of 65534. Anon/uid may only be set with squash/mode of ROOT/SQUASH. An error will be returned if this field is specified for other squash/mode settings.+    anonUid :: (Core.Maybe Core.Int64),+    -- | List of either an IPv4 addresses in the format @{octet1}.{octet2}.{octet3}.{octet4}@ or CIDR ranges in the format @{octet1}.{octet2}.{octet3}.{octet4}\/{mask size}@ which may mount the file share. Overlapping IP ranges are not allowed, both within and across NfsExportOptions. An error will be returned. The limit is 64 IP ranges\/addresses for each FileShareConfig among all NfsExportOptions.+    ipRanges :: (Core.Maybe [Core.Text]),+    -- | Either NO/ROOT/SQUASH, for allowing root access on the exported directory, or ROOT/SQUASH, for not allowing root access. The default is NO/ROOT_SQUASH.+    squashMode :: (Core.Maybe NfsExportOptions_SquashMode)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'NfsExportOptions' with the minimum fields required to make a request.+newNfsExportOptions ::+  NfsExportOptions+newNfsExportOptions =+  NfsExportOptions+    { accessMode = Core.Nothing,+      anonGid = Core.Nothing,+      anonUid = Core.Nothing,+      ipRanges = Core.Nothing,+      squashMode = Core.Nothing+    }++instance Core.FromJSON NfsExportOptions where+  parseJSON =+    Core.withObject+      "NfsExportOptions"+      ( \o ->+          NfsExportOptions+            Core.<$> (o Core..:? "accessMode")+            Core.<*> (o Core..:? "anonGid" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "anonUid" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "ipRanges")+            Core.<*> (o Core..:? "squashMode")+      )++instance Core.ToJSON NfsExportOptions where+  toJSON NfsExportOptions {..} =+    Core.object+      ( Core.catMaybes+          [ ("accessMode" Core..=) Core.<$> accessMode,+            ("anonGid" Core..=) Core.. Core.AsText Core.<$> anonGid,+            ("anonUid" Core..=) Core.. Core.AsText Core.<$> anonUid,+            ("ipRanges" Core..=) Core.<$> ipRanges,+            ("squashMode" Core..=) Core.<$> squashMode+          ]+      )++-- | 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 the long-running operation.+--+-- /See:/ 'newOperationMetadata' smart constructor.+data OperationMetadata = OperationMetadata+  { -- | Output only. API version used to start the operation.+    apiVersion :: (Core.Maybe Core.Text),+    -- | Output only. Identifies whether the user has requested cancellation of the operation. Operations that have been cancelled successfully have google.longrunning.Operation.error value with a google.rpc.Status.code of @1@, corresponding to @Code.CANCELLED@.+    cancelRequested :: (Core.Maybe Core.Bool),+    -- | Output only. The time the operation was created.+    createTime :: (Core.Maybe Core.DateTime),+    -- | Output only. The time the operation finished running.+    endTime :: (Core.Maybe Core.DateTime),+    -- | Output only. Human-readable status of the operation, if any.+    statusDetail :: (Core.Maybe Core.Text),+    -- | Output only. Server-defined resource path for the target of the operation.+    target :: (Core.Maybe Core.Text),+    -- | Output only. 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+    { apiVersion = Core.Nothing,+      cancelRequested = Core.Nothing,+      createTime = Core.Nothing,+      endTime = 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..:? "apiVersion")+            Core.<*> (o Core..:? "cancelRequested")+            Core.<*> (o Core..:? "createTime")+            Core.<*> (o Core..:? "endTime")+            Core.<*> (o Core..:? "statusDetail")+            Core.<*> (o Core..:? "target")+            Core.<*> (o Core..:? "verb")+      )++instance Core.ToJSON OperationMetadata where+  toJSON OperationMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("apiVersion" Core..=) Core.<$> apiVersion,+            ("cancelRequested" Core..=) Core.<$> cancelRequested,+            ("createTime" Core..=) Core.<$> createTime,+            ("endTime" Core..=) Core.<$> endTime,+            ("statusDetail" Core..=) Core.<$> statusDetail,+            ("target" Core..=) Core.<$> target,+            ("verb" Core..=) Core.<$> verb+          ]+      )++-- | Used for setting the performance configuration. If the user doesn\'t specify PerformanceConfig, automatically provision the default performance settings as described in https:\/\/cloud.google.com\/filestore\/docs\/performance. Larger instances will be linearly set to more IOPS. If the instance\'s capacity is increased or decreased, its performance will be automatically adjusted upwards or downwards accordingly (respectively).+--+-- /See:/ 'newPerformanceConfig' smart constructor.+data PerformanceConfig = PerformanceConfig+  { -- | Choose a fixed provisioned IOPS value for the instance, which will remain constant regardless of instance capacity. Value must be a multiple of 1000. If the chosen value is outside the supported range for the instance\'s capacity during instance creation, instance creation will fail with an @InvalidArgument@ error. Similarly, if an instance capacity update would result in a value outside the supported range, the update will fail with an @InvalidArgument@ error.+    fixedIops :: (Core.Maybe FixedIOPS),+    -- | Provision IOPS dynamically based on the capacity of the instance. Provisioned IOPS will be calculated by multiplying the capacity of the instance in TiB by the @iops_per_tb@ value. For example, for a 2 TiB instance with an @iops_per_tb@ value of 17000 the provisioned IOPS will be 34000. If the calculated value is outside the supported range for the instance\'s capacity during instance creation, instance creation will fail with an @InvalidArgument@ error. Similarly, if an instance capacity update would result in a value outside the supported range, the update will fail with an @InvalidArgument@ error.+    iopsPerTb :: (Core.Maybe IOPSPerTB)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PerformanceConfig' with the minimum fields required to make a request.+newPerformanceConfig ::+  PerformanceConfig+newPerformanceConfig =+  PerformanceConfig+    { fixedIops = Core.Nothing,+      iopsPerTb = Core.Nothing+    }++instance Core.FromJSON PerformanceConfig where+  parseJSON =+    Core.withObject+      "PerformanceConfig"+      ( \o ->+          PerformanceConfig+            Core.<$> (o Core..:? "fixedIops")+            Core.<*> (o Core..:? "iopsPerTb")+      )++instance Core.ToJSON PerformanceConfig where+  toJSON PerformanceConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("fixedIops" Core..=) Core.<$> fixedIops,+            ("iopsPerTb" Core..=) Core.<$> iopsPerTb+          ]+      )++-- | The enforced performance limits, calculated from the instance\'s performance configuration.+--+-- /See:/ 'newPerformanceLimits' smart constructor.+data PerformanceLimits = PerformanceLimits+  { -- | Output only. The max IOPS.+    maxIops :: (Core.Maybe Core.Int64),+    -- | Output only. The max read IOPS.+    maxReadIops :: (Core.Maybe Core.Int64),+    -- | Output only. The max read throughput in bytes per second.+    maxReadThroughputBps :: (Core.Maybe Core.Int64),+    -- | Output only. The max write IOPS.+    maxWriteIops :: (Core.Maybe Core.Int64),+    -- | Output only. The max write throughput in bytes per second.+    maxWriteThroughputBps :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PerformanceLimits' with the minimum fields required to make a request.+newPerformanceLimits ::+  PerformanceLimits+newPerformanceLimits =+  PerformanceLimits+    { maxIops = Core.Nothing,+      maxReadIops = Core.Nothing,+      maxReadThroughputBps = Core.Nothing,+      maxWriteIops = Core.Nothing,+      maxWriteThroughputBps = Core.Nothing+    }++instance Core.FromJSON PerformanceLimits where+  parseJSON =+    Core.withObject+      "PerformanceLimits"+      ( \o ->+          PerformanceLimits+            Core.<$> (o Core..:? "maxIops" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "maxReadIops" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> ( o+                         Core..:? "maxReadThroughputBps"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> (o Core..:? "maxWriteIops" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> ( o+                         Core..:? "maxWriteThroughputBps"+                         Core.<&> Core.fmap Core.fromAsText+                     )+      )++instance Core.ToJSON PerformanceLimits where+  toJSON PerformanceLimits {..} =+    Core.object+      ( Core.catMaybes+          [ ("maxIops" Core..=) Core.. Core.AsText Core.<$> maxIops,+            ("maxReadIops" Core..=) Core.. Core.AsText Core.<$> maxReadIops,+            ("maxReadThroughputBps" Core..=)+              Core.. Core.AsText+              Core.<$> maxReadThroughputBps,+            ("maxWriteIops" Core..=) Core.. Core.AsText Core.<$> maxWriteIops,+            ("maxWriteThroughputBps" Core..=)+              Core.. Core.AsText+              Core.<$> maxWriteThroughputBps+          ]+      )++-- | PromoteReplicaRequest promotes a Filestore standby instance (replica).+--+-- /See:/ 'newPromoteReplicaRequest' smart constructor.+newtype PromoteReplicaRequest = PromoteReplicaRequest+  { -- | Optional. The resource name of the peer instance to promote, in the format @projects\/{project_id}\/locations\/{location_id}\/instances\/{instance_id}@. The peer instance is required if the operation is called on an active instance.+    peerInstance :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PromoteReplicaRequest' with the minimum fields required to make a request.+newPromoteReplicaRequest ::+  PromoteReplicaRequest+newPromoteReplicaRequest =+  PromoteReplicaRequest {peerInstance = Core.Nothing}++instance Core.FromJSON PromoteReplicaRequest where+  parseJSON =+    Core.withObject+      "PromoteReplicaRequest"+      (\o -> PromoteReplicaRequest Core.<$> (o Core..:? "peerInstance"))++instance Core.ToJSON PromoteReplicaRequest where+  toJSON PromoteReplicaRequest {..} =+    Core.object+      (Core.catMaybes [("peerInstance" Core..=) Core.<$> peerInstance])++-- | Replica configuration for the instance.+--+-- /See:/ 'newReplicaConfig' smart constructor.+data ReplicaConfig = ReplicaConfig+  { -- | Output only. The timestamp of the latest replication snapshot taken on the active instance and is already replicated safely.+    lastActiveSyncTime :: (Core.Maybe Core.DateTime),+    -- | Optional. The peer instance.+    peerInstance :: (Core.Maybe Core.Text),+    -- | Output only. The replica state.+    state :: (Core.Maybe ReplicaConfig_State),+    -- | Output only. Additional information about the replication state, if available.+    stateReasons :: (Core.Maybe [ReplicaConfig_StateReasonsItem])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ReplicaConfig' with the minimum fields required to make a request.+newReplicaConfig ::+  ReplicaConfig+newReplicaConfig =+  ReplicaConfig+    { lastActiveSyncTime = Core.Nothing,+      peerInstance = Core.Nothing,+      state = Core.Nothing,+      stateReasons = Core.Nothing+    }++instance Core.FromJSON ReplicaConfig where+  parseJSON =+    Core.withObject+      "ReplicaConfig"+      ( \o ->+          ReplicaConfig+            Core.<$> (o Core..:? "lastActiveSyncTime")+            Core.<*> (o Core..:? "peerInstance")+            Core.<*> (o Core..:? "state")+            Core.<*> (o Core..:? "stateReasons")+      )++instance Core.ToJSON ReplicaConfig where+  toJSON ReplicaConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("lastActiveSyncTime" Core..=) Core.<$> lastActiveSyncTime,+            ("peerInstance" Core..=) Core.<$> peerInstance,+            ("state" Core..=) Core.<$> state,+            ("stateReasons" Core..=) Core.<$> stateReasons+          ]+      )++-- | Replication specifications.+--+-- /See:/ 'newReplication' smart constructor.+data Replication = Replication+  { -- | Optional. Replication configuration for the replica instance associated with this instance. Only a single replica is supported.+    replicas :: (Core.Maybe [ReplicaConfig]),+    -- | Optional. The replication role.+    role' :: (Core.Maybe Replication_Role)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Replication' with the minimum fields required to make a request.+newReplication ::+  Replication+newReplication =+  Replication {replicas = Core.Nothing, role' = Core.Nothing}++instance Core.FromJSON Replication where+  parseJSON =+    Core.withObject+      "Replication"+      ( \o ->+          Replication+            Core.<$> (o Core..:? "replicas")+            Core.<*> (o Core..:? "role")+      )++instance Core.ToJSON Replication where+  toJSON Replication {..} =+    Core.object+      ( Core.catMaybes+          [ ("replicas" Core..=) Core.<$> replicas,+            ("role" Core..=) Core.<$> role'+          ]+      )++-- | RestoreInstanceRequest restores an existing instance\'s file share from a backup.+--+-- /See:/ 'newRestoreInstanceRequest' smart constructor.+data RestoreInstanceRequest = RestoreInstanceRequest+  { -- | Required. Name of the file share in the Filestore instance that the backup is being restored to.+    fileShare :: (Core.Maybe Core.Text),+    -- | The resource name of the backup, in the format @projects\/{project_number}\/locations\/{location_id}\/backups\/{backup_id}@.+    sourceBackup :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RestoreInstanceRequest' with the minimum fields required to make a request.+newRestoreInstanceRequest ::+  RestoreInstanceRequest+newRestoreInstanceRequest =+  RestoreInstanceRequest+    { fileShare = Core.Nothing,+      sourceBackup = Core.Nothing+    }++instance Core.FromJSON RestoreInstanceRequest where+  parseJSON =+    Core.withObject+      "RestoreInstanceRequest"+      ( \o ->+          RestoreInstanceRequest+            Core.<$> (o Core..:? "fileShare")+            Core.<*> (o Core..:? "sourceBackup")+      )++instance Core.ToJSON RestoreInstanceRequest where+  toJSON RestoreInstanceRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("fileShare" Core..=) Core.<$> fileShare,+            ("sourceBackup" Core..=) Core.<$> sourceBackup+          ]+      )++-- | RevertInstanceRequest reverts the given instance\'s file share to the specified snapshot.+--+-- /See:/ 'newRevertInstanceRequest' smart constructor.+newtype RevertInstanceRequest = RevertInstanceRequest+  { -- | Required. The snapshot resource ID, in the format \'my-snapshot\', where the specified ID is the {snapshot_id} of the fully qualified name like @projects\/{project_id}\/locations\/{location_id}\/instances\/{instance_id}\/snapshots\/{snapshot_id}@+    targetSnapshotId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RevertInstanceRequest' with the minimum fields required to make a request.+newRevertInstanceRequest ::+  RevertInstanceRequest+newRevertInstanceRequest =+  RevertInstanceRequest {targetSnapshotId = Core.Nothing}++instance Core.FromJSON RevertInstanceRequest where+  parseJSON =+    Core.withObject+      "RevertInstanceRequest"+      ( \o ->+          RevertInstanceRequest Core.<$> (o Core..:? "targetSnapshotId")+      )++instance Core.ToJSON RevertInstanceRequest where+  toJSON RevertInstanceRequest {..} =+    Core.object+      ( Core.catMaybes+          [("targetSnapshotId" Core..=) Core.<$> targetSnapshotId]+      )++-- | Configure the schedule.+--+-- /See:/ 'newSchedule' smart constructor.+data Schedule = Schedule+  { -- | Allows to define schedule that runs specified day of the week.+    day :: (Core.Maybe Schedule_Day),+    -- | Output only. Duration of the time window, set by service producer.+    duration :: (Core.Maybe Core.Duration),+    -- | Time within the window to start the operations.+    startTime :: (Core.Maybe TimeOfDay')+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Schedule' with the minimum fields required to make a request.+newSchedule ::+  Schedule+newSchedule =+  Schedule+    { day = Core.Nothing,+      duration = Core.Nothing,+      startTime = Core.Nothing+    }++instance Core.FromJSON Schedule where+  parseJSON =+    Core.withObject+      "Schedule"+      ( \o ->+          Schedule+            Core.<$> (o Core..:? "day")+            Core.<*> (o Core..:? "duration")+            Core.<*> (o Core..:? "startTime")+      )++instance Core.ToJSON Schedule where+  toJSON Schedule {..} =+    Core.object+      ( Core.catMaybes+          [ ("day" Core..=) Core.<$> day,+            ("duration" Core..=) Core.<$> duration,+            ("startTime" Core..=) Core.<$> startTime+          ]+      )++-- | A Filestore snapshot.+--+-- /See:/ 'newSnapshot' smart constructor.+data Snapshot = Snapshot+  { -- | Output only. The time when the snapshot was created.+    createTime :: (Core.Maybe Core.DateTime),+    -- | A description of the snapshot with 2048 characters or less. Requests with longer descriptions will be rejected.+    description :: (Core.Maybe Core.Text),+    -- | Output only. The amount of bytes needed to allocate a full copy of the snapshot content+    filesystemUsedBytes :: (Core.Maybe Core.Int64),+    -- | Resource labels to represent user provided metadata.+    labels :: (Core.Maybe Snapshot_Labels),+    -- | Output only. The resource name of the snapshot, in the format @projects\/{project_id}\/locations\/{location_id}\/instances\/{instance_id}\/snapshots\/{snapshot_id}@.+    name :: (Core.Maybe Core.Text),+    -- | Output only. The snapshot state.+    state :: (Core.Maybe Snapshot_State),+    -- | Optional. Input only. Immutable. Tag key-value pairs bound to this resource. Each key must be a namespaced name and each value a short name. Example: \"123456789012\/environment\" : \"production\", \"123456789013\/costCenter\" : \"marketing\" See the documentation for more information: - Namespaced name: https:\/\/cloud.google.com\/resource-manager\/docs\/tags\/tags-creating-and-managing#retrieving/tag/key - Short name: https:\/\/cloud.google.com\/resource-manager\/docs\/tags\/tags-creating-and-managing#retrieving/tag/value+    tags :: (Core.Maybe Snapshot_Tags)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Snapshot' with the minimum fields required to make a request.+newSnapshot ::+  Snapshot+newSnapshot =+  Snapshot+    { createTime = Core.Nothing,+      description = Core.Nothing,+      filesystemUsedBytes = Core.Nothing,+      labels = Core.Nothing,+      name = Core.Nothing,+      state = Core.Nothing,+      tags = Core.Nothing+    }++instance Core.FromJSON Snapshot where+  parseJSON =+    Core.withObject+      "Snapshot"+      ( \o ->+          Snapshot+            Core.<$> (o Core..:? "createTime")+            Core.<*> (o Core..:? "description")+            Core.<*> ( o+                         Core..:? "filesystemUsedBytes"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> (o Core..:? "labels")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "state")+            Core.<*> (o Core..:? "tags")+      )++instance Core.ToJSON Snapshot where+  toJSON Snapshot {..} =+    Core.object+      ( Core.catMaybes+          [ ("createTime" Core..=) Core.<$> createTime,+            ("description" Core..=) Core.<$> description,+            ("filesystemUsedBytes" Core..=)+              Core.. Core.AsText+              Core.<$> filesystemUsedBytes,+            ("labels" Core..=) Core.<$> labels,+            ("name" Core..=) Core.<$> name,+            ("state" Core..=) Core.<$> state,+            ("tags" Core..=) Core.<$> tags+          ]+      )++-- | Resource labels to represent user provided metadata.+--+-- /See:/ 'newSnapshot_Labels' smart constructor.+newtype Snapshot_Labels = Snapshot_Labels+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Snapshot_Labels' with the minimum fields required to make a request.+newSnapshot_Labels ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  Snapshot_Labels+newSnapshot_Labels additional =+  Snapshot_Labels {additional = additional}++instance Core.FromJSON Snapshot_Labels where+  parseJSON =+    Core.withObject+      "Snapshot_Labels"+      (\o -> Snapshot_Labels Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Snapshot_Labels where+  toJSON Snapshot_Labels {..} = Core.toJSON additional++-- | Optional. Input only. Immutable. Tag key-value pairs bound to this resource. Each key must be a namespaced name and each value a short name. Example: \"123456789012\/environment\" : \"production\", \"123456789013\/costCenter\" : \"marketing\" See the documentation for more information: - Namespaced name: https:\/\/cloud.google.com\/resource-manager\/docs\/tags\/tags-creating-and-managing#retrieving/tag/key - Short name: https:\/\/cloud.google.com\/resource-manager\/docs\/tags\/tags-creating-and-managing#retrieving/tag/value+--+-- /See:/ 'newSnapshot_Tags' smart constructor.+newtype Snapshot_Tags = Snapshot_Tags+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Snapshot_Tags' with the minimum fields required to make a request.+newSnapshot_Tags ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  Snapshot_Tags+newSnapshot_Tags additional =+  Snapshot_Tags {additional = additional}++instance Core.FromJSON Snapshot_Tags where+  parseJSON =+    Core.withObject+      "Snapshot_Tags"+      (\o -> Snapshot_Tags Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Snapshot_Tags where+  toJSON Snapshot_Tags {..} = Core.toJSON additional++-- | 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++-- | Represents a time of day. The date and time zone are either not significant or are specified elsewhere. An API may choose to allow leap seconds. Related types are google.type.Date and @google.protobuf.Timestamp@.+--+-- /See:/ 'newTimeOfDay' smart constructor.+data TimeOfDay' = TimeOfDay'+  { -- | Hours of a day in 24 hour format. Must be greater than or equal to 0 and typically must be less than or equal to 23. An API may choose to allow the value \"24:00:00\" for scenarios like business closing time.+    hours :: (Core.Maybe Core.Int32),+    -- | Minutes of an hour. Must be greater than or equal to 0 and less than or equal to 59.+    minutes :: (Core.Maybe Core.Int32),+    -- | Fractions of seconds, in nanoseconds. Must be greater than or equal to 0 and less than or equal to 999,999,999.+    nanos :: (Core.Maybe Core.Int32),+    -- | Seconds of a minute. Must be greater than or equal to 0 and typically must be less than or equal to 59. An API may allow the value 60 if it allows leap-seconds.+    seconds :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TimeOfDay' with the minimum fields required to make a request.+newTimeOfDay ::+  TimeOfDay'+newTimeOfDay =+  TimeOfDay'+    { hours = Core.Nothing,+      minutes = Core.Nothing,+      nanos = Core.Nothing,+      seconds = Core.Nothing+    }++instance Core.FromJSON TimeOfDay' where+  parseJSON =+    Core.withObject+      "TimeOfDay'"+      ( \o ->+          TimeOfDay'+            Core.<$> (o Core..:? "hours")+            Core.<*> (o Core..:? "minutes")+            Core.<*> (o Core..:? "nanos")+            Core.<*> (o Core..:? "seconds")+      )++instance Core.ToJSON TimeOfDay' where+  toJSON TimeOfDay' {..} =+    Core.object+      ( Core.catMaybes+          [ ("hours" Core..=) Core.<$> hours,+            ("minutes" Core..=) Core.<$> minutes,+            ("nanos" Core..=) Core.<$> nanos,+            ("seconds" Core..=) Core.<$> seconds+          ]+      )++-- | Maintenance policy applicable to instance updates.+--+-- /See:/ 'newUpdatePolicy' smart constructor.+data UpdatePolicy = UpdatePolicy+  { -- | Optional. Relative scheduling channel applied to resource.+    channel :: (Core.Maybe UpdatePolicy_Channel),+    -- | Deny Maintenance Period that is applied to resource to indicate when maintenance is forbidden. The protocol supports zero-to-many such periods, but the current SLM Rollout implementation only supports zero-to-one.+    denyMaintenancePeriods :: (Core.Maybe [DenyMaintenancePeriod]),+    -- | Optional. Maintenance window that is applied to resources covered by this policy.+    window :: (Core.Maybe MaintenanceWindow)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UpdatePolicy' with the minimum fields required to make a request.+newUpdatePolicy ::+  UpdatePolicy+newUpdatePolicy =+  UpdatePolicy+    { channel = Core.Nothing,+      denyMaintenancePeriods = Core.Nothing,+      window = Core.Nothing+    }++instance Core.FromJSON UpdatePolicy where+  parseJSON =+    Core.withObject+      "UpdatePolicy"+      ( \o ->+          UpdatePolicy+            Core.<$> (o Core..:? "channel")+            Core.<*> (o Core..:? "denyMaintenancePeriods")+            Core.<*> (o Core..:? "window")+      )++instance Core.ToJSON UpdatePolicy where+  toJSON UpdatePolicy {..} =+    Core.object+      ( Core.catMaybes+          [ ("channel" Core..=) Core.<$> channel,+            ("denyMaintenancePeriods" Core..=) Core.<$> denyMaintenancePeriods,+            ("window" Core..=) Core.<$> window+          ]+      )++-- | Time window specified for weekly operations.+--+-- /See:/ 'newWeeklyCycle' smart constructor.+newtype WeeklyCycle = WeeklyCycle+  { -- | User can specify multiple windows in a week. Minimum of 1 window.+    schedule :: (Core.Maybe [Schedule])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WeeklyCycle' with the minimum fields required to make a request.+newWeeklyCycle ::+  WeeklyCycle+newWeeklyCycle = WeeklyCycle {schedule = Core.Nothing}++instance Core.FromJSON WeeklyCycle where+  parseJSON =+    Core.withObject+      "WeeklyCycle"+      (\o -> WeeklyCycle Core.<$> (o Core..:? "schedule"))++instance Core.ToJSON WeeklyCycle where+  toJSON WeeklyCycle {..} =+    Core.object+      (Core.catMaybes [("schedule" Core..=) Core.<$> schedule])
+ gen/Gogol/File/Internal/Sum.hs view
@@ -0,0 +1,1042 @@+{-# 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.File.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.File.Internal.Sum+  ( -- * Xgafv+    Xgafv+      ( Xgafv_1,+        Xgafv_2,+        ..+      ),++    -- * Backup_FileSystemProtocol+    Backup_FileSystemProtocol+      ( Backup_FileSystemProtocol_FILEPROTOCOLUNSPECIFIED,+        Backup_FileSystemProtocol_NFS_V3,+        Backup_FileSystemProtocol_NFS_V4_1,+        ..+      ),++    -- * Backup_SourceInstanceTier+    Backup_SourceInstanceTier+      ( Backup_SourceInstanceTier_TIERUNSPECIFIED,+        Backup_SourceInstanceTier_Standard,+        Backup_SourceInstanceTier_Premium,+        Backup_SourceInstanceTier_BASICHDD,+        Backup_SourceInstanceTier_BASICSSD,+        Backup_SourceInstanceTier_HIGHSCALESSD,+        Backup_SourceInstanceTier_Enterprise,+        Backup_SourceInstanceTier_Zonal,+        Backup_SourceInstanceTier_Regional,+        ..+      ),++    -- * Backup_State+    Backup_State+      ( Backup_State_STATEUNSPECIFIED,+        Backup_State_Creating,+        Backup_State_Finalizing,+        Backup_State_Ready,+        Backup_State_Deleting,+        Backup_State_Invalid,+        ..+      ),++    -- * GoogleCloudSaasacceleratorManagementProvidersV1Instance_State+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_State+      ( GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_STATEUNSPECIFIED,+        GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Creating,+        GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Ready,+        GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Updating,+        GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Repairing,+        GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Deleting,+        GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Error',+        ..+      ),++    -- * Instance_Protocol+    Instance_Protocol+      ( Instance_Protocol_FILEPROTOCOLUNSPECIFIED,+        Instance_Protocol_NFS_V3,+        Instance_Protocol_NFS_V4_1,+        ..+      ),++    -- * Instance_State+    Instance_State+      ( Instance_State_STATEUNSPECIFIED,+        Instance_State_Creating,+        Instance_State_Ready,+        Instance_State_Repairing,+        Instance_State_Deleting,+        Instance_State_Error',+        Instance_State_Restoring,+        Instance_State_Suspended,+        Instance_State_Suspending,+        Instance_State_Resuming,+        Instance_State_Reverting,+        Instance_State_Promoting,+        ..+      ),++    -- * Instance_SuspensionReasonsItem+    Instance_SuspensionReasonsItem+      ( Instance_SuspensionReasonsItem_SUSPENSIONREASONUNSPECIFIED,+        Instance_SuspensionReasonsItem_KMSKEYISSUE,+        ..+      ),++    -- * Instance_Tier+    Instance_Tier+      ( Instance_Tier_TIERUNSPECIFIED,+        Instance_Tier_Standard,+        Instance_Tier_Premium,+        Instance_Tier_BASICHDD,+        Instance_Tier_BASICSSD,+        Instance_Tier_HIGHSCALESSD,+        Instance_Tier_Enterprise,+        Instance_Tier_Zonal,+        Instance_Tier_Regional,+        ..+      ),++    -- * MaintenancePolicy_State+    MaintenancePolicy_State+      ( MaintenancePolicy_State_STATEUNSPECIFIED,+        MaintenancePolicy_State_Ready,+        MaintenancePolicy_State_Deleting,+        ..+      ),++    -- * NetworkConfig_ConnectMode+    NetworkConfig_ConnectMode+      ( NetworkConfig_ConnectMode_CONNECTMODEUNSPECIFIED,+        NetworkConfig_ConnectMode_DIRECTPEERING,+        NetworkConfig_ConnectMode_PRIVATESERVICEACCESS,+        ..+      ),++    -- * NetworkConfig_ModesItem+    NetworkConfig_ModesItem+      ( NetworkConfig_ModesItem_ADDRESSMODEUNSPECIFIED,+        NetworkConfig_ModesItem_MODE_IPV4,+        ..+      ),++    -- * NfsExportOptions_AccessMode+    NfsExportOptions_AccessMode+      ( NfsExportOptions_AccessMode_ACCESSMODEUNSPECIFIED,+        NfsExportOptions_AccessMode_READONLY,+        NfsExportOptions_AccessMode_READWRITE,+        ..+      ),++    -- * NfsExportOptions_SquashMode+    NfsExportOptions_SquashMode+      ( NfsExportOptions_SquashMode_SQUASHMODEUNSPECIFIED,+        NfsExportOptions_SquashMode_NOROOTSQUASH,+        NfsExportOptions_SquashMode_ROOTSQUASH,+        ..+      ),++    -- * ReplicaConfig_State+    ReplicaConfig_State+      ( ReplicaConfig_State_STATEUNSPECIFIED,+        ReplicaConfig_State_Creating,+        ReplicaConfig_State_Ready,+        ReplicaConfig_State_Removing,+        ReplicaConfig_State_Failed,+        ..+      ),++    -- * ReplicaConfig_StateReasonsItem+    ReplicaConfig_StateReasonsItem+      ( ReplicaConfig_StateReasonsItem_STATEREASONUNSPECIFIED,+        ReplicaConfig_StateReasonsItem_PEERINSTANCEUNREACHABLE,+        ReplicaConfig_StateReasonsItem_REMOVEFAILED,+        ..+      ),++    -- * Replication_Role+    Replication_Role+      ( Replication_Role_ROLEUNSPECIFIED,+        Replication_Role_Active,+        Replication_Role_Standby,+        ..+      ),++    -- * Schedule_Day+    Schedule_Day+      ( Schedule_Day_DAYOFWEEKUNSPECIFIED,+        Schedule_Day_Monday,+        Schedule_Day_Tuesday,+        Schedule_Day_Wednesday,+        Schedule_Day_Thursday,+        Schedule_Day_Friday,+        Schedule_Day_Saturday,+        Schedule_Day_Sunday,+        ..+      ),++    -- * Snapshot_State+    Snapshot_State+      ( Snapshot_State_STATEUNSPECIFIED,+        Snapshot_State_Creating,+        Snapshot_State_Ready,+        Snapshot_State_Deleting,+        ..+      ),++    -- * UpdatePolicy_Channel+    UpdatePolicy_Channel+      ( UpdatePolicy_Channel_UPDATECHANNELUNSPECIFIED,+        UpdatePolicy_Channel_Earlier,+        UpdatePolicy_Channel_Later,+        UpdatePolicy_Channel_WEEK1,+        UpdatePolicy_Channel_WEEK2,+        UpdatePolicy_Channel_WEEK5,+        ..+      ),+  )+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+  #-}++-- | Output only. The file system protocol of the source Filestore instance that this backup is created from.+newtype Backup_FileSystemProtocol = Backup_FileSystemProtocol {fromBackup_FileSystemProtocol :: 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+    )++-- | FILE/PROTOCOL/UNSPECIFIED serves a \"not set\" default value when a FileProtocol is a separate field in a message.+pattern Backup_FileSystemProtocol_FILEPROTOCOLUNSPECIFIED :: Backup_FileSystemProtocol+pattern Backup_FileSystemProtocol_FILEPROTOCOLUNSPECIFIED = Backup_FileSystemProtocol "FILE_PROTOCOL_UNSPECIFIED"++-- | NFS 3.0.+pattern Backup_FileSystemProtocol_NFS_V3 :: Backup_FileSystemProtocol+pattern Backup_FileSystemProtocol_NFS_V3 = Backup_FileSystemProtocol "NFS_V3"++-- | NFS 4.1.+pattern Backup_FileSystemProtocol_NFS_V4_1 :: Backup_FileSystemProtocol+pattern Backup_FileSystemProtocol_NFS_V4_1 = Backup_FileSystemProtocol "NFS_V4_1"++{-# COMPLETE+  Backup_FileSystemProtocol_FILEPROTOCOLUNSPECIFIED,+  Backup_FileSystemProtocol_NFS_V3,+  Backup_FileSystemProtocol_NFS_V4_1,+  Backup_FileSystemProtocol+  #-}++-- | Output only. The service tier of the source Filestore instance that this backup is created from.+newtype Backup_SourceInstanceTier = Backup_SourceInstanceTier {fromBackup_SourceInstanceTier :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Not set.+pattern Backup_SourceInstanceTier_TIERUNSPECIFIED :: Backup_SourceInstanceTier+pattern Backup_SourceInstanceTier_TIERUNSPECIFIED = Backup_SourceInstanceTier "TIER_UNSPECIFIED"++-- | STANDARD tier. BASIC_HDD is the preferred term for this tier.+pattern Backup_SourceInstanceTier_Standard :: Backup_SourceInstanceTier+pattern Backup_SourceInstanceTier_Standard = Backup_SourceInstanceTier "STANDARD"++-- | PREMIUM tier. BASIC_SSD is the preferred term for this tier.+pattern Backup_SourceInstanceTier_Premium :: Backup_SourceInstanceTier+pattern Backup_SourceInstanceTier_Premium = Backup_SourceInstanceTier "PREMIUM"++-- | BASIC instances offer a maximum capacity of 63.9 TB. BASIC_HDD is an alias for STANDARD Tier, offering economical performance backed by HDD.+pattern Backup_SourceInstanceTier_BASICHDD :: Backup_SourceInstanceTier+pattern Backup_SourceInstanceTier_BASICHDD = Backup_SourceInstanceTier "BASIC_HDD"++-- | BASIC instances offer a maximum capacity of 63.9 TB. BASIC_SSD is an alias for PREMIUM Tier, and offers improved performance backed by SSD.+pattern Backup_SourceInstanceTier_BASICSSD :: Backup_SourceInstanceTier+pattern Backup_SourceInstanceTier_BASICSSD = Backup_SourceInstanceTier "BASIC_SSD"++-- | HIGH_SCALE instances offer expanded capacity and performance scaling capabilities.+pattern Backup_SourceInstanceTier_HIGHSCALESSD :: Backup_SourceInstanceTier+pattern Backup_SourceInstanceTier_HIGHSCALESSD = Backup_SourceInstanceTier "HIGH_SCALE_SSD"++-- | ENTERPRISE instances offer the features and availability needed for mission-critical workloads.+pattern Backup_SourceInstanceTier_Enterprise :: Backup_SourceInstanceTier+pattern Backup_SourceInstanceTier_Enterprise = Backup_SourceInstanceTier "ENTERPRISE"++-- | ZONAL instances offer expanded capacity and performance scaling capabilities.+pattern Backup_SourceInstanceTier_Zonal :: Backup_SourceInstanceTier+pattern Backup_SourceInstanceTier_Zonal = Backup_SourceInstanceTier "ZONAL"++-- | REGIONAL instances offer the features and availability needed for mission-critical workloads.+pattern Backup_SourceInstanceTier_Regional :: Backup_SourceInstanceTier+pattern Backup_SourceInstanceTier_Regional = Backup_SourceInstanceTier "REGIONAL"++{-# COMPLETE+  Backup_SourceInstanceTier_TIERUNSPECIFIED,+  Backup_SourceInstanceTier_Standard,+  Backup_SourceInstanceTier_Premium,+  Backup_SourceInstanceTier_BASICHDD,+  Backup_SourceInstanceTier_BASICSSD,+  Backup_SourceInstanceTier_HIGHSCALESSD,+  Backup_SourceInstanceTier_Enterprise,+  Backup_SourceInstanceTier_Zonal,+  Backup_SourceInstanceTier_Regional,+  Backup_SourceInstanceTier+  #-}++-- | Output only. The backup state.+newtype Backup_State = Backup_State {fromBackup_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+    )++-- | State not set.+pattern Backup_State_STATEUNSPECIFIED :: Backup_State+pattern Backup_State_STATEUNSPECIFIED = Backup_State "STATE_UNSPECIFIED"++-- | Backup is being created.+pattern Backup_State_Creating :: Backup_State+pattern Backup_State_Creating = Backup_State "CREATING"++-- | Backup has been taken and the operation is being finalized. At this point, changes to the file share will not be reflected in the backup.+pattern Backup_State_Finalizing :: Backup_State+pattern Backup_State_Finalizing = Backup_State "FINALIZING"++-- | Backup is available for use.+pattern Backup_State_Ready :: Backup_State+pattern Backup_State_Ready = Backup_State "READY"++-- | Backup is being deleted.+pattern Backup_State_Deleting :: Backup_State+pattern Backup_State_Deleting = Backup_State "DELETING"++-- | Backup is not valid and cannot be used for creating new instances or restoring existing instances.+pattern Backup_State_Invalid :: Backup_State+pattern Backup_State_Invalid = Backup_State "INVALID"++{-# COMPLETE+  Backup_State_STATEUNSPECIFIED,+  Backup_State_Creating,+  Backup_State_Finalizing,+  Backup_State_Ready,+  Backup_State_Deleting,+  Backup_State_Invalid,+  Backup_State+  #-}++-- | Output only. Current lifecycle state of the resource (e.g. if it\'s being created or ready to use).+newtype GoogleCloudSaasacceleratorManagementProvidersV1Instance_State = GoogleCloudSaasacceleratorManagementProvidersV1Instance_State {fromGoogleCloudSaasacceleratorManagementProvidersV1Instance_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+    )++-- | Unspecified state.+pattern GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_STATEUNSPECIFIED :: GoogleCloudSaasacceleratorManagementProvidersV1Instance_State+pattern GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_STATEUNSPECIFIED = GoogleCloudSaasacceleratorManagementProvidersV1Instance_State "STATE_UNSPECIFIED"++-- | Instance is being created.+pattern GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Creating :: GoogleCloudSaasacceleratorManagementProvidersV1Instance_State+pattern GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Creating = GoogleCloudSaasacceleratorManagementProvidersV1Instance_State "CREATING"++-- | Instance has been created and is ready to use.+pattern GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Ready :: GoogleCloudSaasacceleratorManagementProvidersV1Instance_State+pattern GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Ready = GoogleCloudSaasacceleratorManagementProvidersV1Instance_State "READY"++-- | Instance is being updated.+pattern GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Updating :: GoogleCloudSaasacceleratorManagementProvidersV1Instance_State+pattern GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Updating = GoogleCloudSaasacceleratorManagementProvidersV1Instance_State "UPDATING"++-- | Instance is unheathy and under repair.+pattern GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Repairing :: GoogleCloudSaasacceleratorManagementProvidersV1Instance_State+pattern GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Repairing = GoogleCloudSaasacceleratorManagementProvidersV1Instance_State "REPAIRING"++-- | Instance is being deleted.+pattern GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Deleting :: GoogleCloudSaasacceleratorManagementProvidersV1Instance_State+pattern GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Deleting = GoogleCloudSaasacceleratorManagementProvidersV1Instance_State "DELETING"++-- | Instance encountered an error and is in indeterministic state.+pattern GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Error' :: GoogleCloudSaasacceleratorManagementProvidersV1Instance_State+pattern GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Error' = GoogleCloudSaasacceleratorManagementProvidersV1Instance_State "ERROR"++{-# COMPLETE+  GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_STATEUNSPECIFIED,+  GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Creating,+  GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Ready,+  GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Updating,+  GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Repairing,+  GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Deleting,+  GoogleCloudSaasacceleratorManagementProvidersV1Instance_State_Error',+  GoogleCloudSaasacceleratorManagementProvidersV1Instance_State+  #-}++-- | Immutable. The protocol indicates the access protocol for all shares in the instance. This field is immutable and it cannot be changed after the instance has been created. Default value: @NFS_V3@.+newtype Instance_Protocol = Instance_Protocol {fromInstance_Protocol :: 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+    )++-- | FILE/PROTOCOL/UNSPECIFIED serves a \"not set\" default value when a FileProtocol is a separate field in a message.+pattern Instance_Protocol_FILEPROTOCOLUNSPECIFIED :: Instance_Protocol+pattern Instance_Protocol_FILEPROTOCOLUNSPECIFIED = Instance_Protocol "FILE_PROTOCOL_UNSPECIFIED"++-- | NFS 3.0.+pattern Instance_Protocol_NFS_V3 :: Instance_Protocol+pattern Instance_Protocol_NFS_V3 = Instance_Protocol "NFS_V3"++-- | NFS 4.1.+pattern Instance_Protocol_NFS_V4_1 :: Instance_Protocol+pattern Instance_Protocol_NFS_V4_1 = Instance_Protocol "NFS_V4_1"++{-# COMPLETE+  Instance_Protocol_FILEPROTOCOLUNSPECIFIED,+  Instance_Protocol_NFS_V3,+  Instance_Protocol_NFS_V4_1,+  Instance_Protocol+  #-}++-- | Output only. The instance state.+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+    )++-- | State not set.+pattern Instance_State_STATEUNSPECIFIED :: Instance_State+pattern Instance_State_STATEUNSPECIFIED = Instance_State "STATE_UNSPECIFIED"++-- | The instance is being created.+pattern Instance_State_Creating :: Instance_State+pattern Instance_State_Creating = Instance_State "CREATING"++-- | The instance is available for use.+pattern Instance_State_Ready :: Instance_State+pattern Instance_State_Ready = Instance_State "READY"++-- | Work is being done on the instance. You can get further details from the @statusMessage@ field of the @Instance@ resource.+pattern Instance_State_Repairing :: Instance_State+pattern Instance_State_Repairing = Instance_State "REPAIRING"++-- | The instance is shutting down.+pattern Instance_State_Deleting :: Instance_State+pattern Instance_State_Deleting = Instance_State "DELETING"++-- | The instance is experiencing an issue and might be unusable. You can get further details from the @statusMessage@ field of the @Instance@ resource.+pattern Instance_State_Error' :: Instance_State+pattern Instance_State_Error' = Instance_State "ERROR"++-- | The instance is restoring a backup to an existing file share and may be unusable during this time.+pattern Instance_State_Restoring :: Instance_State+pattern Instance_State_Restoring = Instance_State "RESTORING"++-- | The instance is suspended. You can get further details from the @suspension_reasons@ field of the @Instance@ resource.+pattern Instance_State_Suspended :: Instance_State+pattern Instance_State_Suspended = Instance_State "SUSPENDED"++-- | The instance is in the process of becoming suspended.+pattern Instance_State_Suspending :: Instance_State+pattern Instance_State_Suspending = Instance_State "SUSPENDING"++-- | The instance is in the process of becoming active.+pattern Instance_State_Resuming :: Instance_State+pattern Instance_State_Resuming = Instance_State "RESUMING"++-- | The instance is reverting to a snapshot.+pattern Instance_State_Reverting :: Instance_State+pattern Instance_State_Reverting = Instance_State "REVERTING"++-- | The replica instance is being promoted.+pattern Instance_State_Promoting :: Instance_State+pattern Instance_State_Promoting = Instance_State "PROMOTING"++{-# COMPLETE+  Instance_State_STATEUNSPECIFIED,+  Instance_State_Creating,+  Instance_State_Ready,+  Instance_State_Repairing,+  Instance_State_Deleting,+  Instance_State_Error',+  Instance_State_Restoring,+  Instance_State_Suspended,+  Instance_State_Suspending,+  Instance_State_Resuming,+  Instance_State_Reverting,+  Instance_State_Promoting,+  Instance_State+  #-}++newtype Instance_SuspensionReasonsItem = Instance_SuspensionReasonsItem {fromInstance_SuspensionReasonsItem :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Not set.+pattern Instance_SuspensionReasonsItem_SUSPENSIONREASONUNSPECIFIED :: Instance_SuspensionReasonsItem+pattern Instance_SuspensionReasonsItem_SUSPENSIONREASONUNSPECIFIED = Instance_SuspensionReasonsItem "SUSPENSION_REASON_UNSPECIFIED"++-- | The KMS key used by the instance is either revoked or denied access to.+pattern Instance_SuspensionReasonsItem_KMSKEYISSUE :: Instance_SuspensionReasonsItem+pattern Instance_SuspensionReasonsItem_KMSKEYISSUE = Instance_SuspensionReasonsItem "KMS_KEY_ISSUE"++{-# COMPLETE+  Instance_SuspensionReasonsItem_SUSPENSIONREASONUNSPECIFIED,+  Instance_SuspensionReasonsItem_KMSKEYISSUE,+  Instance_SuspensionReasonsItem+  #-}++-- | The service tier of the instance.+newtype Instance_Tier = Instance_Tier {fromInstance_Tier :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Not set.+pattern Instance_Tier_TIERUNSPECIFIED :: Instance_Tier+pattern Instance_Tier_TIERUNSPECIFIED = Instance_Tier "TIER_UNSPECIFIED"++-- | STANDARD tier. BASIC_HDD is the preferred term for this tier.+pattern Instance_Tier_Standard :: Instance_Tier+pattern Instance_Tier_Standard = Instance_Tier "STANDARD"++-- | PREMIUM tier. BASIC_SSD is the preferred term for this tier.+pattern Instance_Tier_Premium :: Instance_Tier+pattern Instance_Tier_Premium = Instance_Tier "PREMIUM"++-- | BASIC instances offer a maximum capacity of 63.9 TB. BASIC_HDD is an alias for STANDARD Tier, offering economical performance backed by HDD.+pattern Instance_Tier_BASICHDD :: Instance_Tier+pattern Instance_Tier_BASICHDD = Instance_Tier "BASIC_HDD"++-- | BASIC instances offer a maximum capacity of 63.9 TB. BASIC_SSD is an alias for PREMIUM Tier, and offers improved performance backed by SSD.+pattern Instance_Tier_BASICSSD :: Instance_Tier+pattern Instance_Tier_BASICSSD = Instance_Tier "BASIC_SSD"++-- | HIGH_SCALE instances offer expanded capacity and performance scaling capabilities.+pattern Instance_Tier_HIGHSCALESSD :: Instance_Tier+pattern Instance_Tier_HIGHSCALESSD = Instance_Tier "HIGH_SCALE_SSD"++-- | ENTERPRISE instances offer the features and availability needed for mission-critical workloads.+pattern Instance_Tier_Enterprise :: Instance_Tier+pattern Instance_Tier_Enterprise = Instance_Tier "ENTERPRISE"++-- | ZONAL instances offer expanded capacity and performance scaling capabilities.+pattern Instance_Tier_Zonal :: Instance_Tier+pattern Instance_Tier_Zonal = Instance_Tier "ZONAL"++-- | REGIONAL instances offer the features and availability needed for mission-critical workloads.+pattern Instance_Tier_Regional :: Instance_Tier+pattern Instance_Tier_Regional = Instance_Tier "REGIONAL"++{-# COMPLETE+  Instance_Tier_TIERUNSPECIFIED,+  Instance_Tier_Standard,+  Instance_Tier_Premium,+  Instance_Tier_BASICHDD,+  Instance_Tier_BASICSSD,+  Instance_Tier_HIGHSCALESSD,+  Instance_Tier_Enterprise,+  Instance_Tier_Zonal,+  Instance_Tier_Regional,+  Instance_Tier+  #-}++-- | Optional. The state of the policy.+newtype MaintenancePolicy_State = MaintenancePolicy_State {fromMaintenancePolicy_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+    )++-- | Unspecified state.+pattern MaintenancePolicy_State_STATEUNSPECIFIED :: MaintenancePolicy_State+pattern MaintenancePolicy_State_STATEUNSPECIFIED = MaintenancePolicy_State "STATE_UNSPECIFIED"++-- | Resource is ready to be used.+pattern MaintenancePolicy_State_Ready :: MaintenancePolicy_State+pattern MaintenancePolicy_State_Ready = MaintenancePolicy_State "READY"++-- | Resource is being deleted. It can no longer be attached to instances.+pattern MaintenancePolicy_State_Deleting :: MaintenancePolicy_State+pattern MaintenancePolicy_State_Deleting = MaintenancePolicy_State "DELETING"++{-# COMPLETE+  MaintenancePolicy_State_STATEUNSPECIFIED,+  MaintenancePolicy_State_Ready,+  MaintenancePolicy_State_Deleting,+  MaintenancePolicy_State+  #-}++-- | The network connect mode of the Filestore instance. If not provided, the connect mode defaults to DIRECT_PEERING.+newtype NetworkConfig_ConnectMode = NetworkConfig_ConnectMode {fromNetworkConfig_ConnectMode :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Not set.+pattern NetworkConfig_ConnectMode_CONNECTMODEUNSPECIFIED :: NetworkConfig_ConnectMode+pattern NetworkConfig_ConnectMode_CONNECTMODEUNSPECIFIED = NetworkConfig_ConnectMode "CONNECT_MODE_UNSPECIFIED"++-- | Connect via direct peering to the Filestore service.+pattern NetworkConfig_ConnectMode_DIRECTPEERING :: NetworkConfig_ConnectMode+pattern NetworkConfig_ConnectMode_DIRECTPEERING = NetworkConfig_ConnectMode "DIRECT_PEERING"++-- | Connect to your Filestore instance using Private Service Access. Private services access provides an IP address range for multiple Google Cloud services, including Filestore.+pattern NetworkConfig_ConnectMode_PRIVATESERVICEACCESS :: NetworkConfig_ConnectMode+pattern NetworkConfig_ConnectMode_PRIVATESERVICEACCESS = NetworkConfig_ConnectMode "PRIVATE_SERVICE_ACCESS"++{-# COMPLETE+  NetworkConfig_ConnectMode_CONNECTMODEUNSPECIFIED,+  NetworkConfig_ConnectMode_DIRECTPEERING,+  NetworkConfig_ConnectMode_PRIVATESERVICEACCESS,+  NetworkConfig_ConnectMode+  #-}++newtype NetworkConfig_ModesItem = NetworkConfig_ModesItem {fromNetworkConfig_ModesItem :: 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+    )++-- | Internet protocol not set.+pattern NetworkConfig_ModesItem_ADDRESSMODEUNSPECIFIED :: NetworkConfig_ModesItem+pattern NetworkConfig_ModesItem_ADDRESSMODEUNSPECIFIED = NetworkConfig_ModesItem "ADDRESS_MODE_UNSPECIFIED"++-- | Use the IPv4 internet protocol.+pattern NetworkConfig_ModesItem_MODE_IPV4 :: NetworkConfig_ModesItem+pattern NetworkConfig_ModesItem_MODE_IPV4 = NetworkConfig_ModesItem "MODE_IPV4"++{-# COMPLETE+  NetworkConfig_ModesItem_ADDRESSMODEUNSPECIFIED,+  NetworkConfig_ModesItem_MODE_IPV4,+  NetworkConfig_ModesItem+  #-}++-- | Either READ/ONLY, for allowing only read requests on the exported directory, or READ/WRITE, for allowing both read and write requests. The default is READ_WRITE.+newtype NfsExportOptions_AccessMode = NfsExportOptions_AccessMode {fromNfsExportOptions_AccessMode :: 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+    )++-- | AccessMode not set.+pattern NfsExportOptions_AccessMode_ACCESSMODEUNSPECIFIED :: NfsExportOptions_AccessMode+pattern NfsExportOptions_AccessMode_ACCESSMODEUNSPECIFIED = NfsExportOptions_AccessMode "ACCESS_MODE_UNSPECIFIED"++-- | The client can only read the file share.+pattern NfsExportOptions_AccessMode_READONLY :: NfsExportOptions_AccessMode+pattern NfsExportOptions_AccessMode_READONLY = NfsExportOptions_AccessMode "READ_ONLY"++-- | The client can read and write the file share (default).+pattern NfsExportOptions_AccessMode_READWRITE :: NfsExportOptions_AccessMode+pattern NfsExportOptions_AccessMode_READWRITE = NfsExportOptions_AccessMode "READ_WRITE"++{-# COMPLETE+  NfsExportOptions_AccessMode_ACCESSMODEUNSPECIFIED,+  NfsExportOptions_AccessMode_READONLY,+  NfsExportOptions_AccessMode_READWRITE,+  NfsExportOptions_AccessMode+  #-}++-- | Either NO/ROOT/SQUASH, for allowing root access on the exported directory, or ROOT/SQUASH, for not allowing root access. The default is NO/ROOT_SQUASH.+newtype NfsExportOptions_SquashMode = NfsExportOptions_SquashMode {fromNfsExportOptions_SquashMode :: 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+    )++-- | SquashMode not set.+pattern NfsExportOptions_SquashMode_SQUASHMODEUNSPECIFIED :: NfsExportOptions_SquashMode+pattern NfsExportOptions_SquashMode_SQUASHMODEUNSPECIFIED = NfsExportOptions_SquashMode "SQUASH_MODE_UNSPECIFIED"++-- | The Root user has root access to the file share (default).+pattern NfsExportOptions_SquashMode_NOROOTSQUASH :: NfsExportOptions_SquashMode+pattern NfsExportOptions_SquashMode_NOROOTSQUASH = NfsExportOptions_SquashMode "NO_ROOT_SQUASH"++-- | The Root user has squashed access to the anonymous uid\/gid.+pattern NfsExportOptions_SquashMode_ROOTSQUASH :: NfsExportOptions_SquashMode+pattern NfsExportOptions_SquashMode_ROOTSQUASH = NfsExportOptions_SquashMode "ROOT_SQUASH"++{-# COMPLETE+  NfsExportOptions_SquashMode_SQUASHMODEUNSPECIFIED,+  NfsExportOptions_SquashMode_NOROOTSQUASH,+  NfsExportOptions_SquashMode_ROOTSQUASH,+  NfsExportOptions_SquashMode+  #-}++-- | Output only. The replica state.+newtype ReplicaConfig_State = ReplicaConfig_State {fromReplicaConfig_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+    )++-- | State not set.+pattern ReplicaConfig_State_STATEUNSPECIFIED :: ReplicaConfig_State+pattern ReplicaConfig_State_STATEUNSPECIFIED = ReplicaConfig_State "STATE_UNSPECIFIED"++-- | The replica is being created.+pattern ReplicaConfig_State_Creating :: ReplicaConfig_State+pattern ReplicaConfig_State_Creating = ReplicaConfig_State "CREATING"++-- | The replica is ready.+pattern ReplicaConfig_State_Ready :: ReplicaConfig_State+pattern ReplicaConfig_State_Ready = ReplicaConfig_State "READY"++-- | The replica is being removed.+pattern ReplicaConfig_State_Removing :: ReplicaConfig_State+pattern ReplicaConfig_State_Removing = ReplicaConfig_State "REMOVING"++-- | The replica is experiencing an issue and might be unusable. You can get further details from the @stateReasons@ field of the @ReplicaConfig@ object.+pattern ReplicaConfig_State_Failed :: ReplicaConfig_State+pattern ReplicaConfig_State_Failed = ReplicaConfig_State "FAILED"++{-# COMPLETE+  ReplicaConfig_State_STATEUNSPECIFIED,+  ReplicaConfig_State_Creating,+  ReplicaConfig_State_Ready,+  ReplicaConfig_State_Removing,+  ReplicaConfig_State_Failed,+  ReplicaConfig_State+  #-}++newtype ReplicaConfig_StateReasonsItem = ReplicaConfig_StateReasonsItem {fromReplicaConfig_StateReasonsItem :: 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+    )++-- | Reason not specified.+pattern ReplicaConfig_StateReasonsItem_STATEREASONUNSPECIFIED :: ReplicaConfig_StateReasonsItem+pattern ReplicaConfig_StateReasonsItem_STATEREASONUNSPECIFIED = ReplicaConfig_StateReasonsItem "STATE_REASON_UNSPECIFIED"++-- | The peer instance is unreachable.+pattern ReplicaConfig_StateReasonsItem_PEERINSTANCEUNREACHABLE :: ReplicaConfig_StateReasonsItem+pattern ReplicaConfig_StateReasonsItem_PEERINSTANCEUNREACHABLE = ReplicaConfig_StateReasonsItem "PEER_INSTANCE_UNREACHABLE"++-- | The remove replica peer instance operation failed.+pattern ReplicaConfig_StateReasonsItem_REMOVEFAILED :: ReplicaConfig_StateReasonsItem+pattern ReplicaConfig_StateReasonsItem_REMOVEFAILED = ReplicaConfig_StateReasonsItem "REMOVE_FAILED"++{-# COMPLETE+  ReplicaConfig_StateReasonsItem_STATEREASONUNSPECIFIED,+  ReplicaConfig_StateReasonsItem_PEERINSTANCEUNREACHABLE,+  ReplicaConfig_StateReasonsItem_REMOVEFAILED,+  ReplicaConfig_StateReasonsItem+  #-}++-- | Optional. The replication role.+newtype Replication_Role = Replication_Role {fromReplication_Role :: 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+    )++-- | Role not set.+pattern Replication_Role_ROLEUNSPECIFIED :: Replication_Role+pattern Replication_Role_ROLEUNSPECIFIED = Replication_Role "ROLE_UNSPECIFIED"++-- | The instance is the @ACTIVE@ replication member, functions as the replication source instance.+pattern Replication_Role_Active :: Replication_Role+pattern Replication_Role_Active = Replication_Role "ACTIVE"++-- | The instance is the @STANDBY@ replication member, functions as the replication destination instance.+pattern Replication_Role_Standby :: Replication_Role+pattern Replication_Role_Standby = Replication_Role "STANDBY"++{-# COMPLETE+  Replication_Role_ROLEUNSPECIFIED,+  Replication_Role_Active,+  Replication_Role_Standby,+  Replication_Role+  #-}++-- | Allows to define schedule that runs specified day of the week.+newtype Schedule_Day = Schedule_Day {fromSchedule_Day :: 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 day of the week is unspecified.+pattern Schedule_Day_DAYOFWEEKUNSPECIFIED :: Schedule_Day+pattern Schedule_Day_DAYOFWEEKUNSPECIFIED = Schedule_Day "DAY_OF_WEEK_UNSPECIFIED"++-- | Monday+pattern Schedule_Day_Monday :: Schedule_Day+pattern Schedule_Day_Monday = Schedule_Day "MONDAY"++-- | Tuesday+pattern Schedule_Day_Tuesday :: Schedule_Day+pattern Schedule_Day_Tuesday = Schedule_Day "TUESDAY"++-- | Wednesday+pattern Schedule_Day_Wednesday :: Schedule_Day+pattern Schedule_Day_Wednesday = Schedule_Day "WEDNESDAY"++-- | Thursday+pattern Schedule_Day_Thursday :: Schedule_Day+pattern Schedule_Day_Thursday = Schedule_Day "THURSDAY"++-- | Friday+pattern Schedule_Day_Friday :: Schedule_Day+pattern Schedule_Day_Friday = Schedule_Day "FRIDAY"++-- | Saturday+pattern Schedule_Day_Saturday :: Schedule_Day+pattern Schedule_Day_Saturday = Schedule_Day "SATURDAY"++-- | Sunday+pattern Schedule_Day_Sunday :: Schedule_Day+pattern Schedule_Day_Sunday = Schedule_Day "SUNDAY"++{-# COMPLETE+  Schedule_Day_DAYOFWEEKUNSPECIFIED,+  Schedule_Day_Monday,+  Schedule_Day_Tuesday,+  Schedule_Day_Wednesday,+  Schedule_Day_Thursday,+  Schedule_Day_Friday,+  Schedule_Day_Saturday,+  Schedule_Day_Sunday,+  Schedule_Day+  #-}++-- | Output only. The snapshot state.+newtype Snapshot_State = Snapshot_State {fromSnapshot_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+    )++-- | State not set.+pattern Snapshot_State_STATEUNSPECIFIED :: Snapshot_State+pattern Snapshot_State_STATEUNSPECIFIED = Snapshot_State "STATE_UNSPECIFIED"++-- | Snapshot is being created.+pattern Snapshot_State_Creating :: Snapshot_State+pattern Snapshot_State_Creating = Snapshot_State "CREATING"++-- | Snapshot is available for use.+pattern Snapshot_State_Ready :: Snapshot_State+pattern Snapshot_State_Ready = Snapshot_State "READY"++-- | Snapshot is being deleted.+pattern Snapshot_State_Deleting :: Snapshot_State+pattern Snapshot_State_Deleting = Snapshot_State "DELETING"++{-# COMPLETE+  Snapshot_State_STATEUNSPECIFIED,+  Snapshot_State_Creating,+  Snapshot_State_Ready,+  Snapshot_State_Deleting,+  Snapshot_State+  #-}++-- | Optional. Relative scheduling channel applied to resource.+newtype UpdatePolicy_Channel = UpdatePolicy_Channel {fromUpdatePolicy_Channel :: 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+    )++-- | Unspecified channel.+pattern UpdatePolicy_Channel_UPDATECHANNELUNSPECIFIED :: UpdatePolicy_Channel+pattern UpdatePolicy_Channel_UPDATECHANNELUNSPECIFIED = UpdatePolicy_Channel "UPDATE_CHANNEL_UNSPECIFIED"++-- | Early channel within a customer project.+pattern UpdatePolicy_Channel_Earlier :: UpdatePolicy_Channel+pattern UpdatePolicy_Channel_Earlier = UpdatePolicy_Channel "EARLIER"++-- | Later channel within a customer project.+pattern UpdatePolicy_Channel_Later :: UpdatePolicy_Channel+pattern UpdatePolicy_Channel_Later = UpdatePolicy_Channel "LATER"++-- | ! ! The follow channels can ONLY be used if you adopt the new MW system! ! ! NOTE: all WEEK channels are assumed to be under a weekly window. ! There is currently no dedicated channel definitions for Daily windows. ! If you use Daily window, the system will assume a 1d (24Hours) advanced ! notification period b\/w EARLY and LATER. ! We may consider support more flexible daily channel specifications in ! the future. WEEK1 == EARLIER with minimum 7d advanced notification. {7d, 14d} The system will treat them equally and will use WEEK1 whenever it can. New customers are encouraged to use this channel annotation.+pattern UpdatePolicy_Channel_WEEK1 :: UpdatePolicy_Channel+pattern UpdatePolicy_Channel_WEEK1 = UpdatePolicy_Channel "WEEK1"++-- | WEEK2 == LATER with minimum 14d advanced notification {14d, 21d}.+pattern UpdatePolicy_Channel_WEEK2 :: UpdatePolicy_Channel+pattern UpdatePolicy_Channel_WEEK2 = UpdatePolicy_Channel "WEEK2"++-- | WEEK5 == 40d support. minimum 35d advanced notification {35d, 42d}.+pattern UpdatePolicy_Channel_WEEK5 :: UpdatePolicy_Channel+pattern UpdatePolicy_Channel_WEEK5 = UpdatePolicy_Channel "WEEK5"++{-# COMPLETE+  UpdatePolicy_Channel_UPDATECHANNELUNSPECIFIED,+  UpdatePolicy_Channel_Earlier,+  UpdatePolicy_Channel_Later,+  UpdatePolicy_Channel_WEEK1,+  UpdatePolicy_Channel_WEEK2,+  UpdatePolicy_Channel_WEEK5,+  UpdatePolicy_Channel+  #-}
+ gen/Gogol/File/Projects/Locations/Backups/Create.hs view
@@ -0,0 +1,124 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.File.Projects.Locations.Backups.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 backup.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.backups.create@.+module Gogol.File.Projects.Locations.Backups.Create+  ( -- * Resource+    FileProjectsLocationsBackupsCreateResource,++    -- ** Constructing a Request+    FileProjectsLocationsBackupsCreate (..),+    newFileProjectsLocationsBackupsCreate,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.backups.create@ method which the+-- 'FileProjectsLocationsBackupsCreate' request conforms to.+type FileProjectsLocationsBackupsCreateResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "backups"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "backupId" 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] Backup+    Core.:> Core.Post '[Core.JSON] Operation++-- | Creates a backup.+--+-- /See:/ 'newFileProjectsLocationsBackupsCreate' smart constructor.+data FileProjectsLocationsBackupsCreate = FileProjectsLocationsBackupsCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | Required. The ID to use for the backup. The ID must be unique within the specified project and location. This value must start with a lowercase letter followed by up to 62 lowercase letters, numbers, or hyphens, and cannot end with a hyphen. Values that do not match this pattern will trigger an INVALID_ARGUMENT error.+    backupId :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The backup\'s project and location, in the format @projects\/{project_number}\/locations\/{location}@. In Filestore, backup locations map to Google Cloud regions, for example __us-west1__.+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: Backup,+    -- | 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 'FileProjectsLocationsBackupsCreate' with the minimum fields required to make a request.+newFileProjectsLocationsBackupsCreate ::+  -- |  Required. The backup\'s project and location, in the format @projects\/{project_number}\/locations\/{location}@. In Filestore, backup locations map to Google Cloud regions, for example __us-west1__. See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Backup ->+  FileProjectsLocationsBackupsCreate+newFileProjectsLocationsBackupsCreate parent payload =+  FileProjectsLocationsBackupsCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      backupId = Core.Nothing,+      callback = Core.Nothing,+      parent = parent,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FileProjectsLocationsBackupsCreate where+  type Rs FileProjectsLocationsBackupsCreate = Operation+  type+    Scopes FileProjectsLocationsBackupsCreate =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsBackupsCreate {..} =+    go+      parent+      xgafv+      accessToken+      backupId+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsBackupsCreateResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Backups/Delete.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.File.Projects.Locations.Backups.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 backup.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.backups.delete@.+module Gogol.File.Projects.Locations.Backups.Delete+  ( -- * Resource+    FileProjectsLocationsBackupsDeleteResource,++    -- ** Constructing a Request+    FileProjectsLocationsBackupsDelete (..),+    newFileProjectsLocationsBackupsDelete,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.backups.delete@ method which the+-- 'FileProjectsLocationsBackupsDelete' request conforms to.+type FileProjectsLocationsBackupsDeleteResource =+  "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 backup.+--+-- /See:/ 'newFileProjectsLocationsBackupsDelete' smart constructor.+data FileProjectsLocationsBackupsDelete = FileProjectsLocationsBackupsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The backup resource name, in the format @projects\/{project_number}\/locations\/{location}\/backups\/{backup_id}@+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FileProjectsLocationsBackupsDelete' with the minimum fields required to make a request.+newFileProjectsLocationsBackupsDelete ::+  -- |  Required. The backup resource name, in the format @projects\/{project_number}\/locations\/{location}\/backups\/{backup_id}@ See 'name'.+  Core.Text ->+  FileProjectsLocationsBackupsDelete+newFileProjectsLocationsBackupsDelete name =+  FileProjectsLocationsBackupsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FileProjectsLocationsBackupsDelete where+  type Rs FileProjectsLocationsBackupsDelete = Operation+  type+    Scopes FileProjectsLocationsBackupsDelete =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsBackupsDelete {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsBackupsDeleteResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Backups/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.File.Projects.Locations.Backups.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 details of a specific backup.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.backups.get@.+module Gogol.File.Projects.Locations.Backups.Get+  ( -- * Resource+    FileProjectsLocationsBackupsGetResource,++    -- ** Constructing a Request+    FileProjectsLocationsBackupsGet (..),+    newFileProjectsLocationsBackupsGet,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.backups.get@ method which the+-- 'FileProjectsLocationsBackupsGet' request conforms to.+type FileProjectsLocationsBackupsGetResource =+  "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] Backup++-- | Gets the details of a specific backup.+--+-- /See:/ 'newFileProjectsLocationsBackupsGet' smart constructor.+data FileProjectsLocationsBackupsGet = FileProjectsLocationsBackupsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The backup resource name, in the format @projects\/{project_number}\/locations\/{location}\/backups\/{backup_id}@.+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FileProjectsLocationsBackupsGet' with the minimum fields required to make a request.+newFileProjectsLocationsBackupsGet ::+  -- |  Required. The backup resource name, in the format @projects\/{project_number}\/locations\/{location}\/backups\/{backup_id}@. See 'name'.+  Core.Text ->+  FileProjectsLocationsBackupsGet+newFileProjectsLocationsBackupsGet name =+  FileProjectsLocationsBackupsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FileProjectsLocationsBackupsGet where+  type Rs FileProjectsLocationsBackupsGet = Backup+  type+    Scopes FileProjectsLocationsBackupsGet =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsBackupsGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      fileService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy FileProjectsLocationsBackupsGetResource)+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Backups/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.File.Projects.Locations.Backups.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all backups in a project for either a specified location or for all locations.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.backups.list@.+module Gogol.File.Projects.Locations.Backups.List+  ( -- * Resource+    FileProjectsLocationsBackupsListResource,++    -- ** Constructing a Request+    FileProjectsLocationsBackupsList (..),+    newFileProjectsLocationsBackupsList,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.backups.list@ method which the+-- 'FileProjectsLocationsBackupsList' request conforms to.+type FileProjectsLocationsBackupsListResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "backups"+    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] ListBackupsResponse++-- | Lists all backups in a project for either a specified location or for all locations.+--+-- /See:/ 'newFileProjectsLocationsBackupsList' smart constructor.+data FileProjectsLocationsBackupsList = FileProjectsLocationsBackupsList+  { -- | 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 backup information, in the format @projects\/{project_number}\/locations\/{location}@. In Filestore, backup locations map to Google Cloud regions, for example __us-west1__. To retrieve backup information for all locations, use \"-\" for the @{location}@ value.+    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 'FileProjectsLocationsBackupsList' with the minimum fields required to make a request.+newFileProjectsLocationsBackupsList ::+  -- |  Required. The project and location for which to retrieve backup information, in the format @projects\/{project_number}\/locations\/{location}@. In Filestore, backup locations map to Google Cloud regions, for example __us-west1__. To retrieve backup information for all locations, use \"-\" for the @{location}@ value. See 'parent'.+  Core.Text ->+  FileProjectsLocationsBackupsList+newFileProjectsLocationsBackupsList parent =+  FileProjectsLocationsBackupsList+    { 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 FileProjectsLocationsBackupsList where+  type Rs FileProjectsLocationsBackupsList = ListBackupsResponse+  type+    Scopes FileProjectsLocationsBackupsList =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsBackupsList {..} =+    go+      parent+      xgafv+      accessToken+      callback+      filter+      orderBy+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      fileService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy FileProjectsLocationsBackupsListResource)+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Backups/Patch.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.File.Projects.Locations.Backups.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 the settings of a specific backup.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.backups.patch@.+module Gogol.File.Projects.Locations.Backups.Patch+  ( -- * Resource+    FileProjectsLocationsBackupsPatchResource,++    -- ** Constructing a Request+    FileProjectsLocationsBackupsPatch (..),+    newFileProjectsLocationsBackupsPatch,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.backups.patch@ method which the+-- 'FileProjectsLocationsBackupsPatch' request conforms to.+type FileProjectsLocationsBackupsPatchResource =+  "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] Backup+    Core.:> Core.Patch '[Core.JSON] Operation++-- | Updates the settings of a specific backup.+--+-- /See:/ 'newFileProjectsLocationsBackupsPatch' smart constructor.+data FileProjectsLocationsBackupsPatch = FileProjectsLocationsBackupsPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Output only. The resource name of the backup, in the format @projects\/{project_number}\/locations\/{location_id}\/backups\/{backup_id}@.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: Backup,+    -- | Required. Mask of fields to update. At least one path must be supplied in this field.+    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 'FileProjectsLocationsBackupsPatch' with the minimum fields required to make a request.+newFileProjectsLocationsBackupsPatch ::+  -- |  Output only. The resource name of the backup, in the format @projects\/{project_number}\/locations\/{location_id}\/backups\/{backup_id}@. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Backup ->+  FileProjectsLocationsBackupsPatch+newFileProjectsLocationsBackupsPatch name payload =+  FileProjectsLocationsBackupsPatch+    { 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 FileProjectsLocationsBackupsPatch where+  type Rs FileProjectsLocationsBackupsPatch = Operation+  type+    Scopes FileProjectsLocationsBackupsPatch =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsBackupsPatch {..} =+    go+      name+      xgafv+      accessToken+      callback+      updateMask+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsBackupsPatchResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Get.hs view
@@ -0,0 +1,107 @@+{-# 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.File.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/filestore/ Cloud Filestore API Reference> for @file.projects.locations.get@.+module Gogol.File.Projects.Locations.Get+  ( -- * Resource+    FileProjectsLocationsGetResource,++    -- ** Constructing a Request+    FileProjectsLocationsGet (..),+    newFileProjectsLocationsGet,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.get@ method which the+-- 'FileProjectsLocationsGet' request conforms to.+type FileProjectsLocationsGetResource =+  "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:/ 'newFileProjectsLocationsGet' smart constructor.+data FileProjectsLocationsGet = FileProjectsLocationsGet+  { -- | 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 'FileProjectsLocationsGet' with the minimum fields required to make a request.+newFileProjectsLocationsGet ::+  -- |  Resource name for the location. See 'name'.+  Core.Text ->+  FileProjectsLocationsGet+newFileProjectsLocationsGet name =+  FileProjectsLocationsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FileProjectsLocationsGet where+  type Rs FileProjectsLocationsGet = Location+  type Scopes FileProjectsLocationsGet = '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      fileService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy FileProjectsLocationsGetResource)+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Instances/Create.hs view
@@ -0,0 +1,124 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.File.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 an instance. When creating from a backup, the capacity of the new instance needs to be equal to or larger than the capacity of the backup (and also equal to or larger than the minimum capacity of the tier).+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.create@.+module Gogol.File.Projects.Locations.Instances.Create+  ( -- * Resource+    FileProjectsLocationsInstancesCreateResource,++    -- ** Constructing a Request+    FileProjectsLocationsInstancesCreate (..),+    newFileProjectsLocationsInstancesCreate,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.instances.create@ method which the+-- 'FileProjectsLocationsInstancesCreate' request conforms to.+type FileProjectsLocationsInstancesCreateResource =+  "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 an instance. When creating from a backup, the capacity of the new instance needs to be equal to or larger than the capacity of the backup (and also equal to or larger than the minimum capacity of the tier).+--+-- /See:/ 'newFileProjectsLocationsInstancesCreate' smart constructor.+data FileProjectsLocationsInstancesCreate = FileProjectsLocationsInstancesCreate+  { -- | 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. The name must be unique for the specified project and location.+    instanceId :: (Core.Maybe Core.Text),+    -- | Required. The instance\'s project and location, in the format @projects\/{project_id}\/locations\/{location}@. In Filestore, locations map to Google Cloud zones, for example __us-west1-b__.+    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 'FileProjectsLocationsInstancesCreate' with the minimum fields required to make a request.+newFileProjectsLocationsInstancesCreate ::+  -- |  Required. The instance\'s project and location, in the format @projects\/{project_id}\/locations\/{location}@. In Filestore, locations map to Google Cloud zones, for example __us-west1-b__. See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Instance ->+  FileProjectsLocationsInstancesCreate+newFileProjectsLocationsInstancesCreate parent payload =+  FileProjectsLocationsInstancesCreate+    { 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 FileProjectsLocationsInstancesCreate where+  type Rs FileProjectsLocationsInstancesCreate = Operation+  type+    Scopes FileProjectsLocationsInstancesCreate =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsInstancesCreate {..} =+    go+      parent+      xgafv+      accessToken+      callback+      instanceId+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsInstancesCreateResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Instances/Delete.hs view
@@ -0,0 +1,116 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.File.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 an instance.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.delete@.+module Gogol.File.Projects.Locations.Instances.Delete+  ( -- * Resource+    FileProjectsLocationsInstancesDeleteResource,++    -- ** Constructing a Request+    FileProjectsLocationsInstancesDelete (..),+    newFileProjectsLocationsInstancesDelete,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.instances.delete@ method which the+-- 'FileProjectsLocationsInstancesDelete' request conforms to.+type FileProjectsLocationsInstancesDeleteResource =+  "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 "force" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] Operation++-- | Deletes an instance.+--+-- /See:/ 'newFileProjectsLocationsInstancesDelete' smart constructor.+data FileProjectsLocationsInstancesDelete = FileProjectsLocationsInstancesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | If set to true, all snapshots of the instance will also be deleted. (Otherwise, the request will only work if the instance has no snapshots.)+    force :: (Core.Maybe Core.Bool),+    -- | Required. The instance resource name, in the format @projects\/{project_id}\/locations\/{location}\/instances\/{instance_id}@+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FileProjectsLocationsInstancesDelete' with the minimum fields required to make a request.+newFileProjectsLocationsInstancesDelete ::+  -- |  Required. The instance resource name, in the format @projects\/{project_id}\/locations\/{location}\/instances\/{instance_id}@ See 'name'.+  Core.Text ->+  FileProjectsLocationsInstancesDelete+newFileProjectsLocationsInstancesDelete name =+  FileProjectsLocationsInstancesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      force = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FileProjectsLocationsInstancesDelete where+  type Rs FileProjectsLocationsInstancesDelete = Operation+  type+    Scopes FileProjectsLocationsInstancesDelete =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsInstancesDelete {..} =+    go+      name+      xgafv+      accessToken+      callback+      force+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsInstancesDeleteResource+          )+          Core.mempty
+ gen/Gogol/File/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.File.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 the details of a specific instance.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.get@.+module Gogol.File.Projects.Locations.Instances.Get+  ( -- * Resource+    FileProjectsLocationsInstancesGetResource,++    -- ** Constructing a Request+    FileProjectsLocationsInstancesGet (..),+    newFileProjectsLocationsInstancesGet,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.instances.get@ method which the+-- 'FileProjectsLocationsInstancesGet' request conforms to.+type FileProjectsLocationsInstancesGetResource =+  "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 the details of a specific instance.+--+-- /See:/ 'newFileProjectsLocationsInstancesGet' smart constructor.+data FileProjectsLocationsInstancesGet = FileProjectsLocationsInstancesGet+  { -- | 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_id}\/locations\/{location}\/instances\/{instance_id}@.+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FileProjectsLocationsInstancesGet' with the minimum fields required to make a request.+newFileProjectsLocationsInstancesGet ::+  -- |  Required. The instance resource name, in the format @projects\/{project_id}\/locations\/{location}\/instances\/{instance_id}@. See 'name'.+  Core.Text ->+  FileProjectsLocationsInstancesGet+newFileProjectsLocationsInstancesGet name =+  FileProjectsLocationsInstancesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FileProjectsLocationsInstancesGet where+  type Rs FileProjectsLocationsInstancesGet = Instance+  type+    Scopes FileProjectsLocationsInstancesGet =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsInstancesGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsInstancesGetResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Instances/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.File.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 all instances in a project for either a specified location or for all locations.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.list@.+module Gogol.File.Projects.Locations.Instances.List+  ( -- * Resource+    FileProjectsLocationsInstancesListResource,++    -- ** Constructing a Request+    FileProjectsLocationsInstancesList (..),+    newFileProjectsLocationsInstancesList,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.instances.list@ method which the+-- 'FileProjectsLocationsInstancesList' request conforms to.+type FileProjectsLocationsInstancesListResource =+  "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 all instances in a project for either a specified location or for all locations.+--+-- /See:/ 'newFileProjectsLocationsInstancesList' smart constructor.+data FileProjectsLocationsInstancesList = FileProjectsLocationsInstancesList+  { -- | 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_id}\/locations\/{location}@. In Cloud Filestore, locations map to Google Cloud zones, for example __us-west1-b__. To retrieve instance information for all locations, use \"-\" for the @{location}@ value.+    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 'FileProjectsLocationsInstancesList' with the minimum fields required to make a request.+newFileProjectsLocationsInstancesList ::+  -- |  Required. The project and location for which to retrieve instance information, in the format @projects\/{project_id}\/locations\/{location}@. In Cloud Filestore, locations map to Google Cloud zones, for example __us-west1-b__. To retrieve instance information for all locations, use \"-\" for the @{location}@ value. See 'parent'.+  Core.Text ->+  FileProjectsLocationsInstancesList+newFileProjectsLocationsInstancesList parent =+  FileProjectsLocationsInstancesList+    { 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 FileProjectsLocationsInstancesList where+  type Rs FileProjectsLocationsInstancesList = ListInstancesResponse+  type+    Scopes FileProjectsLocationsInstancesList =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsInstancesList {..} =+    go+      parent+      xgafv+      accessToken+      callback+      filter+      orderBy+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsInstancesListResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Instances/Patch.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.File.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 the settings of a specific instance.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.patch@.+module Gogol.File.Projects.Locations.Instances.Patch+  ( -- * Resource+    FileProjectsLocationsInstancesPatchResource,++    -- ** Constructing a Request+    FileProjectsLocationsInstancesPatch (..),+    newFileProjectsLocationsInstancesPatch,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.instances.patch@ method which the+-- 'FileProjectsLocationsInstancesPatch' request conforms to.+type FileProjectsLocationsInstancesPatchResource =+  "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 the settings of a specific instance.+--+-- /See:/ 'newFileProjectsLocationsInstancesPatch' smart constructor.+data FileProjectsLocationsInstancesPatch = FileProjectsLocationsInstancesPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Output only. The resource name of the instance, in the format @projects\/{project}\/locations\/{location}\/instances\/{instance}@.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: Instance,+    -- | Mask of fields to update. At least one path must be supplied in this field. The elements of the repeated paths field may only include these fields: * \"description\" * \"file/shares\" * \"labels\" * \"performance/config\" * \"deletion/protection/enabled\" * \"deletion/protection/reason\"+    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 'FileProjectsLocationsInstancesPatch' with the minimum fields required to make a request.+newFileProjectsLocationsInstancesPatch ::+  -- |  Output only. The resource name of the instance, in the format @projects\/{project}\/locations\/{location}\/instances\/{instance}@. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Instance ->+  FileProjectsLocationsInstancesPatch+newFileProjectsLocationsInstancesPatch name payload =+  FileProjectsLocationsInstancesPatch+    { 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 FileProjectsLocationsInstancesPatch where+  type Rs FileProjectsLocationsInstancesPatch = Operation+  type+    Scopes FileProjectsLocationsInstancesPatch =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsInstancesPatch {..} =+    go+      name+      xgafv+      accessToken+      callback+      updateMask+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsInstancesPatchResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Instances/PromoteReplica.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.File.Projects.Locations.Instances.PromoteReplica+-- 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)+--+-- Promote the standby instance (replica).+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.promoteReplica@.+module Gogol.File.Projects.Locations.Instances.PromoteReplica+  ( -- * Resource+    FileProjectsLocationsInstancesPromoteReplicaResource,++    -- ** Constructing a Request+    FileProjectsLocationsInstancesPromoteReplica (..),+    newFileProjectsLocationsInstancesPromoteReplica,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.instances.promoteReplica@ method which the+-- 'FileProjectsLocationsInstancesPromoteReplica' request conforms to.+type FileProjectsLocationsInstancesPromoteReplicaResource =+  "v1"+    Core.:> Core.CaptureMode "name" "promoteReplica" 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] PromoteReplicaRequest+    Core.:> Core.Post '[Core.JSON] Operation++-- | Promote the standby instance (replica).+--+-- /See:/ 'newFileProjectsLocationsInstancesPromoteReplica' smart constructor.+data FileProjectsLocationsInstancesPromoteReplica = FileProjectsLocationsInstancesPromoteReplica+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The resource name of the instance, in the format @projects\/{project_id}\/locations\/{location_id}\/instances\/{instance_id}@.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: PromoteReplicaRequest,+    -- | 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 'FileProjectsLocationsInstancesPromoteReplica' with the minimum fields required to make a request.+newFileProjectsLocationsInstancesPromoteReplica ::+  -- |  Required. The resource name of the instance, in the format @projects\/{project_id}\/locations\/{location_id}\/instances\/{instance_id}@. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  PromoteReplicaRequest ->+  FileProjectsLocationsInstancesPromoteReplica+newFileProjectsLocationsInstancesPromoteReplica name payload =+  FileProjectsLocationsInstancesPromoteReplica+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    FileProjectsLocationsInstancesPromoteReplica+  where+  type Rs FileProjectsLocationsInstancesPromoteReplica = Operation+  type+    Scopes FileProjectsLocationsInstancesPromoteReplica =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsInstancesPromoteReplica {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsInstancesPromoteReplicaResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Instances/Restore.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.File.Projects.Locations.Instances.Restore+-- 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)+--+-- Restores an existing instance\'s file share from a backup. The capacity of the instance needs to be equal to or larger than the capacity of the backup (and also equal to or larger than the minimum capacity of the tier).+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.restore@.+module Gogol.File.Projects.Locations.Instances.Restore+  ( -- * Resource+    FileProjectsLocationsInstancesRestoreResource,++    -- ** Constructing a Request+    FileProjectsLocationsInstancesRestore (..),+    newFileProjectsLocationsInstancesRestore,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.instances.restore@ method which the+-- 'FileProjectsLocationsInstancesRestore' request conforms to.+type FileProjectsLocationsInstancesRestoreResource =+  "v1"+    Core.:> Core.CaptureMode "name" "restore" 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] RestoreInstanceRequest+    Core.:> Core.Post '[Core.JSON] Operation++-- | Restores an existing instance\'s file share from a backup. The capacity of the instance needs to be equal to or larger than the capacity of the backup (and also equal to or larger than the minimum capacity of the tier).+--+-- /See:/ 'newFileProjectsLocationsInstancesRestore' smart constructor.+data FileProjectsLocationsInstancesRestore = FileProjectsLocationsInstancesRestore+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The resource name of the instance, in the format @projects\/{project_number}\/locations\/{location_id}\/instances\/{instance_id}@.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: RestoreInstanceRequest,+    -- | 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 'FileProjectsLocationsInstancesRestore' with the minimum fields required to make a request.+newFileProjectsLocationsInstancesRestore ::+  -- |  Required. The resource name of the instance, in the format @projects\/{project_number}\/locations\/{location_id}\/instances\/{instance_id}@. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  RestoreInstanceRequest ->+  FileProjectsLocationsInstancesRestore+newFileProjectsLocationsInstancesRestore name payload =+  FileProjectsLocationsInstancesRestore+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FileProjectsLocationsInstancesRestore where+  type Rs FileProjectsLocationsInstancesRestore = Operation+  type+    Scopes FileProjectsLocationsInstancesRestore =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsInstancesRestore {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsInstancesRestoreResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Instances/Revert.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.File.Projects.Locations.Instances.Revert+-- 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)+--+-- Revert an existing instance\'s file system to a specified snapshot.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.revert@.+module Gogol.File.Projects.Locations.Instances.Revert+  ( -- * Resource+    FileProjectsLocationsInstancesRevertResource,++    -- ** Constructing a Request+    FileProjectsLocationsInstancesRevert (..),+    newFileProjectsLocationsInstancesRevert,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.instances.revert@ method which the+-- 'FileProjectsLocationsInstancesRevert' request conforms to.+type FileProjectsLocationsInstancesRevertResource =+  "v1"+    Core.:> Core.CaptureMode "name" "revert" 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] RevertInstanceRequest+    Core.:> Core.Post '[Core.JSON] Operation++-- | Revert an existing instance\'s file system to a specified snapshot.+--+-- /See:/ 'newFileProjectsLocationsInstancesRevert' smart constructor.+data FileProjectsLocationsInstancesRevert = FileProjectsLocationsInstancesRevert+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The resource name of the instance, in the format @projects\/{project_id}\/locations\/{location_id}\/instances\/{instance_id}@.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: RevertInstanceRequest,+    -- | 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 'FileProjectsLocationsInstancesRevert' with the minimum fields required to make a request.+newFileProjectsLocationsInstancesRevert ::+  -- |  Required. The resource name of the instance, in the format @projects\/{project_id}\/locations\/{location_id}\/instances\/{instance_id}@. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  RevertInstanceRequest ->+  FileProjectsLocationsInstancesRevert+newFileProjectsLocationsInstancesRevert name payload =+  FileProjectsLocationsInstancesRevert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FileProjectsLocationsInstancesRevert where+  type Rs FileProjectsLocationsInstancesRevert = Operation+  type+    Scopes FileProjectsLocationsInstancesRevert =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsInstancesRevert {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsInstancesRevertResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Instances/Snapshots/Create.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.File.Projects.Locations.Instances.Snapshots.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 snapshot.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.snapshots.create@.+module Gogol.File.Projects.Locations.Instances.Snapshots.Create+  ( -- * Resource+    FileProjectsLocationsInstancesSnapshotsCreateResource,++    -- ** Constructing a Request+    FileProjectsLocationsInstancesSnapshotsCreate (..),+    newFileProjectsLocationsInstancesSnapshotsCreate,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.instances.snapshots.create@ method which the+-- 'FileProjectsLocationsInstancesSnapshotsCreate' request conforms to.+type FileProjectsLocationsInstancesSnapshotsCreateResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "snapshots"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "snapshotId" 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] Snapshot+    Core.:> Core.Post '[Core.JSON] Operation++-- | Creates a snapshot.+--+-- /See:/ 'newFileProjectsLocationsInstancesSnapshotsCreate' smart constructor.+data FileProjectsLocationsInstancesSnapshotsCreate = FileProjectsLocationsInstancesSnapshotsCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The Filestore Instance to create the snapshots of, in the format @projects\/{project_id}\/locations\/{location}\/instances\/{instance_id}@+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: Snapshot,+    -- | Required. The ID to use for the snapshot. The ID must be unique within the specified instance. This value must start with a lowercase letter followed by up to 62 lowercase letters, numbers, or hyphens, and cannot end with a hyphen.+    snapshotId :: (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 'FileProjectsLocationsInstancesSnapshotsCreate' with the minimum fields required to make a request.+newFileProjectsLocationsInstancesSnapshotsCreate ::+  -- |  Required. The Filestore Instance to create the snapshots of, in the format @projects\/{project_id}\/locations\/{location}\/instances\/{instance_id}@ See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Snapshot ->+  FileProjectsLocationsInstancesSnapshotsCreate+newFileProjectsLocationsInstancesSnapshotsCreate parent payload =+  FileProjectsLocationsInstancesSnapshotsCreate+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      parent = parent,+      payload = payload,+      snapshotId = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    FileProjectsLocationsInstancesSnapshotsCreate+  where+  type Rs FileProjectsLocationsInstancesSnapshotsCreate = Operation+  type+    Scopes FileProjectsLocationsInstancesSnapshotsCreate =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsInstancesSnapshotsCreate {..} =+    go+      parent+      xgafv+      accessToken+      callback+      snapshotId+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsInstancesSnapshotsCreateResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Instances/Snapshots/Delete.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.File.Projects.Locations.Instances.Snapshots.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 snapshot.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.snapshots.delete@.+module Gogol.File.Projects.Locations.Instances.Snapshots.Delete+  ( -- * Resource+    FileProjectsLocationsInstancesSnapshotsDeleteResource,++    -- ** Constructing a Request+    FileProjectsLocationsInstancesSnapshotsDelete (..),+    newFileProjectsLocationsInstancesSnapshotsDelete,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.instances.snapshots.delete@ method which the+-- 'FileProjectsLocationsInstancesSnapshotsDelete' request conforms to.+type FileProjectsLocationsInstancesSnapshotsDeleteResource =+  "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 snapshot.+--+-- /See:/ 'newFileProjectsLocationsInstancesSnapshotsDelete' smart constructor.+data FileProjectsLocationsInstancesSnapshotsDelete = FileProjectsLocationsInstancesSnapshotsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The snapshot resource name, in the format @projects\/{project_id}\/locations\/{location}\/instances\/{instance_id}\/snapshots\/{snapshot_id}@+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FileProjectsLocationsInstancesSnapshotsDelete' with the minimum fields required to make a request.+newFileProjectsLocationsInstancesSnapshotsDelete ::+  -- |  Required. The snapshot resource name, in the format @projects\/{project_id}\/locations\/{location}\/instances\/{instance_id}\/snapshots\/{snapshot_id}@ See 'name'.+  Core.Text ->+  FileProjectsLocationsInstancesSnapshotsDelete+newFileProjectsLocationsInstancesSnapshotsDelete name =+  FileProjectsLocationsInstancesSnapshotsDelete+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    FileProjectsLocationsInstancesSnapshotsDelete+  where+  type Rs FileProjectsLocationsInstancesSnapshotsDelete = Operation+  type+    Scopes FileProjectsLocationsInstancesSnapshotsDelete =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsInstancesSnapshotsDelete {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsInstancesSnapshotsDeleteResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Instances/Snapshots/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.File.Projects.Locations.Instances.Snapshots.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 details of a specific snapshot.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.snapshots.get@.+module Gogol.File.Projects.Locations.Instances.Snapshots.Get+  ( -- * Resource+    FileProjectsLocationsInstancesSnapshotsGetResource,++    -- ** Constructing a Request+    FileProjectsLocationsInstancesSnapshotsGet (..),+    newFileProjectsLocationsInstancesSnapshotsGet,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.instances.snapshots.get@ method which the+-- 'FileProjectsLocationsInstancesSnapshotsGet' request conforms to.+type FileProjectsLocationsInstancesSnapshotsGetResource =+  "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] Snapshot++-- | Gets the details of a specific snapshot.+--+-- /See:/ 'newFileProjectsLocationsInstancesSnapshotsGet' smart constructor.+data FileProjectsLocationsInstancesSnapshotsGet = FileProjectsLocationsInstancesSnapshotsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The snapshot resource name, in the format @projects\/{project_id}\/locations\/{location}\/instances\/{instance_id}\/snapshots\/{snapshot_id}@+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FileProjectsLocationsInstancesSnapshotsGet' with the minimum fields required to make a request.+newFileProjectsLocationsInstancesSnapshotsGet ::+  -- |  Required. The snapshot resource name, in the format @projects\/{project_id}\/locations\/{location}\/instances\/{instance_id}\/snapshots\/{snapshot_id}@ See 'name'.+  Core.Text ->+  FileProjectsLocationsInstancesSnapshotsGet+newFileProjectsLocationsInstancesSnapshotsGet name =+  FileProjectsLocationsInstancesSnapshotsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    FileProjectsLocationsInstancesSnapshotsGet+  where+  type Rs FileProjectsLocationsInstancesSnapshotsGet = Snapshot+  type+    Scopes FileProjectsLocationsInstancesSnapshotsGet =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsInstancesSnapshotsGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsInstancesSnapshotsGetResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Instances/Snapshots/List.hs view
@@ -0,0 +1,142 @@+{-# 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.File.Projects.Locations.Instances.Snapshots.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all snapshots in a project for either a specified location or for all locations.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.snapshots.list@.+module Gogol.File.Projects.Locations.Instances.Snapshots.List+  ( -- * Resource+    FileProjectsLocationsInstancesSnapshotsListResource,++    -- ** Constructing a Request+    FileProjectsLocationsInstancesSnapshotsList (..),+    newFileProjectsLocationsInstancesSnapshotsList,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.instances.snapshots.list@ method which the+-- 'FileProjectsLocationsInstancesSnapshotsList' request conforms to.+type FileProjectsLocationsInstancesSnapshotsListResource =+  "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "snapshots"+    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 "returnPartialSuccess" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListSnapshotsResponse++-- | Lists all snapshots in a project for either a specified location or for all locations.+--+-- /See:/ 'newFileProjectsLocationsInstancesSnapshotsList' smart constructor.+data FileProjectsLocationsInstancesSnapshotsList = FileProjectsLocationsInstancesSnapshotsList+  { -- | 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 instance for which to retrieve snapshot information, in the format @projects\/{project_id}\/locations\/{location}\/instances\/{instance_id}@.+    parent :: Core.Text,+    -- | Optional. If true, allow partial responses for multi-regional Aggregated List requests.+    returnPartialSuccess :: (Core.Maybe Core.Bool),+    -- | 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 'FileProjectsLocationsInstancesSnapshotsList' with the minimum fields required to make a request.+newFileProjectsLocationsInstancesSnapshotsList ::+  -- |  Required. The instance for which to retrieve snapshot information, in the format @projects\/{project_id}\/locations\/{location}\/instances\/{instance_id}@. See 'parent'.+  Core.Text ->+  FileProjectsLocationsInstancesSnapshotsList+newFileProjectsLocationsInstancesSnapshotsList parent =+  FileProjectsLocationsInstancesSnapshotsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      orderBy = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      parent = parent,+      returnPartialSuccess = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    FileProjectsLocationsInstancesSnapshotsList+  where+  type+    Rs FileProjectsLocationsInstancesSnapshotsList =+      ListSnapshotsResponse+  type+    Scopes FileProjectsLocationsInstancesSnapshotsList =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsInstancesSnapshotsList {..} =+    go+      parent+      xgafv+      accessToken+      callback+      filter+      orderBy+      pageSize+      pageToken+      returnPartialSuccess+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsInstancesSnapshotsListResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Instances/Snapshots/Patch.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.File.Projects.Locations.Instances.Snapshots.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 the settings of a specific snapshot.+--+-- /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.snapshots.patch@.+module Gogol.File.Projects.Locations.Instances.Snapshots.Patch+  ( -- * Resource+    FileProjectsLocationsInstancesSnapshotsPatchResource,++    -- ** Constructing a Request+    FileProjectsLocationsInstancesSnapshotsPatch (..),+    newFileProjectsLocationsInstancesSnapshotsPatch,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.instances.snapshots.patch@ method which the+-- 'FileProjectsLocationsInstancesSnapshotsPatch' request conforms to.+type FileProjectsLocationsInstancesSnapshotsPatchResource =+  "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] Snapshot+    Core.:> Core.Patch '[Core.JSON] Operation++-- | Updates the settings of a specific snapshot.+--+-- /See:/ 'newFileProjectsLocationsInstancesSnapshotsPatch' smart constructor.+data FileProjectsLocationsInstancesSnapshotsPatch = FileProjectsLocationsInstancesSnapshotsPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Output only. The resource name of the snapshot, in the format @projects\/{project_id}\/locations\/{location_id}\/instances\/{instance_id}\/snapshots\/{snapshot_id}@.+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: Snapshot,+    -- | Required. Mask of fields to update. At least one path must be supplied in this field.+    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 'FileProjectsLocationsInstancesSnapshotsPatch' with the minimum fields required to make a request.+newFileProjectsLocationsInstancesSnapshotsPatch ::+  -- |  Output only. The resource name of the snapshot, in the format @projects\/{project_id}\/locations\/{location_id}\/instances\/{instance_id}\/snapshots\/{snapshot_id}@. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Snapshot ->+  FileProjectsLocationsInstancesSnapshotsPatch+newFileProjectsLocationsInstancesSnapshotsPatch name payload =+  FileProjectsLocationsInstancesSnapshotsPatch+    { 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+    FileProjectsLocationsInstancesSnapshotsPatch+  where+  type Rs FileProjectsLocationsInstancesSnapshotsPatch = Operation+  type+    Scopes FileProjectsLocationsInstancesSnapshotsPatch =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsInstancesSnapshotsPatch {..} =+    go+      name+      xgafv+      accessToken+      callback+      updateMask+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsInstancesSnapshotsPatchResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/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.File.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/filestore/ Cloud Filestore API Reference> for @file.projects.locations.list@.+module Gogol.File.Projects.Locations.List+  ( -- * Resource+    FileProjectsLocationsListResource,++    -- ** Constructing a Request+    FileProjectsLocationsList (..),+    newFileProjectsLocationsList,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.list@ method which the+-- 'FileProjectsLocationsList' request conforms to.+type FileProjectsLocationsListResource =+  "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 "includeUnrevealedLocations" 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] ListLocationsResponse++-- | Lists information about the supported locations for this service.+--+-- /See:/ 'newFileProjectsLocationsList' smart constructor.+data FileProjectsLocationsList = FileProjectsLocationsList+  { -- | 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),+    -- | If true, the returned list will include locations which are not yet revealed.+    includeUnrevealedLocations :: (Core.Maybe Core.Bool),+    -- | 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 'FileProjectsLocationsList' with the minimum fields required to make a request.+newFileProjectsLocationsList ::+  -- |  The resource that owns the locations collection, if applicable. See 'name'.+  Core.Text ->+  FileProjectsLocationsList+newFileProjectsLocationsList name =+  FileProjectsLocationsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      includeUnrevealedLocations = Core.Nothing,+      name = name,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FileProjectsLocationsList where+  type Rs FileProjectsLocationsList = ListLocationsResponse+  type+    Scopes FileProjectsLocationsList =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsList {..} =+    go+      name+      xgafv+      accessToken+      callback+      filter+      includeUnrevealedLocations+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      fileService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy FileProjectsLocationsListResource)+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Operations/Cancel.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.File.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/filestore/ Cloud Filestore API Reference> for @file.projects.locations.operations.cancel@.+module Gogol.File.Projects.Locations.Operations.Cancel+  ( -- * Resource+    FileProjectsLocationsOperationsCancelResource,++    -- ** Constructing a Request+    FileProjectsLocationsOperationsCancel (..),+    newFileProjectsLocationsOperationsCancel,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.operations.cancel@ method which the+-- 'FileProjectsLocationsOperationsCancel' request conforms to.+type FileProjectsLocationsOperationsCancelResource =+  "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:/ 'newFileProjectsLocationsOperationsCancel' smart constructor.+data FileProjectsLocationsOperationsCancel = FileProjectsLocationsOperationsCancel+  { -- | 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 'FileProjectsLocationsOperationsCancel' with the minimum fields required to make a request.+newFileProjectsLocationsOperationsCancel ::+  -- |  The name of the operation resource to be cancelled. See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CancelOperationRequest ->+  FileProjectsLocationsOperationsCancel+newFileProjectsLocationsOperationsCancel name payload =+  FileProjectsLocationsOperationsCancel+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FileProjectsLocationsOperationsCancel where+  type Rs FileProjectsLocationsOperationsCancel = Empty+  type+    Scopes FileProjectsLocationsOperationsCancel =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsOperationsCancel {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsOperationsCancelResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Operations/Delete.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.File.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/filestore/ Cloud Filestore API Reference> for @file.projects.locations.operations.delete@.+module Gogol.File.Projects.Locations.Operations.Delete+  ( -- * Resource+    FileProjectsLocationsOperationsDeleteResource,++    -- ** Constructing a Request+    FileProjectsLocationsOperationsDelete (..),+    newFileProjectsLocationsOperationsDelete,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.operations.delete@ method which the+-- 'FileProjectsLocationsOperationsDelete' request conforms to.+type FileProjectsLocationsOperationsDeleteResource =+  "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:/ 'newFileProjectsLocationsOperationsDelete' smart constructor.+data FileProjectsLocationsOperationsDelete = FileProjectsLocationsOperationsDelete+  { -- | 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 'FileProjectsLocationsOperationsDelete' with the minimum fields required to make a request.+newFileProjectsLocationsOperationsDelete ::+  -- |  The name of the operation resource to be deleted. See 'name'.+  Core.Text ->+  FileProjectsLocationsOperationsDelete+newFileProjectsLocationsOperationsDelete name =+  FileProjectsLocationsOperationsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FileProjectsLocationsOperationsDelete where+  type Rs FileProjectsLocationsOperationsDelete = Empty+  type+    Scopes FileProjectsLocationsOperationsDelete =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsOperationsDelete {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsOperationsDeleteResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Operations/Get.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.File.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/filestore/ Cloud Filestore API Reference> for @file.projects.locations.operations.get@.+module Gogol.File.Projects.Locations.Operations.Get+  ( -- * Resource+    FileProjectsLocationsOperationsGetResource,++    -- ** Constructing a Request+    FileProjectsLocationsOperationsGet (..),+    newFileProjectsLocationsOperationsGet,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.operations.get@ method which the+-- 'FileProjectsLocationsOperationsGet' request conforms to.+type FileProjectsLocationsOperationsGetResource =+  "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:/ 'newFileProjectsLocationsOperationsGet' smart constructor.+data FileProjectsLocationsOperationsGet = FileProjectsLocationsOperationsGet+  { -- | 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 'FileProjectsLocationsOperationsGet' with the minimum fields required to make a request.+newFileProjectsLocationsOperationsGet ::+  -- |  The name of the operation resource. See 'name'.+  Core.Text ->+  FileProjectsLocationsOperationsGet+newFileProjectsLocationsOperationsGet name =+  FileProjectsLocationsOperationsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest FileProjectsLocationsOperationsGet where+  type Rs FileProjectsLocationsOperationsGet = Operation+  type+    Scopes FileProjectsLocationsOperationsGet =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsOperationsGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsOperationsGetResource+          )+          Core.mempty
+ gen/Gogol/File/Projects/Locations/Operations/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.File.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/filestore/ Cloud Filestore API Reference> for @file.projects.locations.operations.list@.+module Gogol.File.Projects.Locations.Operations.List+  ( -- * Resource+    FileProjectsLocationsOperationsListResource,++    -- ** Constructing a Request+    FileProjectsLocationsOperationsList (..),+    newFileProjectsLocationsOperationsList,+  )+where++import Gogol.File.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @file.projects.locations.operations.list@ method which the+-- 'FileProjectsLocationsOperationsList' request conforms to.+type FileProjectsLocationsOperationsListResource =+  "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:/ 'newFileProjectsLocationsOperationsList' smart constructor.+data FileProjectsLocationsOperationsList = FileProjectsLocationsOperationsList+  { -- | 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 'FileProjectsLocationsOperationsList' with the minimum fields required to make a request.+newFileProjectsLocationsOperationsList ::+  -- |  The name of the operation\'s parent resource. See 'name'.+  Core.Text ->+  FileProjectsLocationsOperationsList+newFileProjectsLocationsOperationsList name =+  FileProjectsLocationsOperationsList+    { 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 FileProjectsLocationsOperationsList where+  type+    Rs FileProjectsLocationsOperationsList =+      ListOperationsResponse+  type+    Scopes FileProjectsLocationsOperationsList =+      '[CloudPlatform'FullControl]+  requestClient FileProjectsLocationsOperationsList {..} =+    go+      name+      xgafv+      accessToken+      callback+      filter+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      fileService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy FileProjectsLocationsOperationsListResource+          )+          Core.mempty
+ gen/Gogol/File/Types.hs view
@@ -0,0 +1,366 @@+{-# 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.File.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.File.Types+  ( -- * Configuration+    fileService,++    -- * OAuth Scopes+    CloudPlatform'FullControl,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** Backup+    Backup (..),+    newBackup,++    -- ** Backup_FileSystemProtocol+    Backup_FileSystemProtocol (..),++    -- ** Backup_Labels+    Backup_Labels (..),+    newBackup_Labels,++    -- ** Backup_SourceInstanceTier+    Backup_SourceInstanceTier (..),++    -- ** Backup_State+    Backup_State (..),++    -- ** Backup_Tags+    Backup_Tags (..),+    newBackup_Tags,++    -- ** CancelOperationRequest+    CancelOperationRequest (..),+    newCancelOperationRequest,++    -- ** DailyCycle+    DailyCycle (..),+    newDailyCycle,++    -- ** Date+    Date (..),+    newDate,++    -- ** DenyMaintenancePeriod+    DenyMaintenancePeriod (..),+    newDenyMaintenancePeriod,++    -- ** Empty+    Empty (..),+    newEmpty,++    -- ** FileShareConfig+    FileShareConfig (..),+    newFileShareConfig,++    -- ** FixedIOPS+    FixedIOPS (..),+    newFixedIOPS,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance+    GoogleCloudSaasacceleratorManagementProvidersV1Instance (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_Labels,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenancePolicyNames,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_MaintenanceSchedules,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_NotificationParameters,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_ProducerMetadata,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1Instance_SoftwareVersions,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance_State+    GoogleCloudSaasacceleratorManagementProvidersV1Instance_State (..),++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSchedule,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies+    GoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1MaintenanceSettings_MaintenancePolicies,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata+    GoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1NodeSloMetadata,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter+    GoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1NotificationParameter,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility+    GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities+    GoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1PerSliSloEligibility_Eligibilities,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+    GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility+    GoogleCloudSaasacceleratorManagementProvidersV1SloEligibility (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1SloEligibility,++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+    GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata (..),+    newGoogleCloudSaasacceleratorManagementProvidersV1SloMetadata,++    -- ** IOPSPerTB+    IOPSPerTB (..),+    newIOPSPerTB,++    -- ** Instance+    Instance (..),+    newInstance,++    -- ** Instance_Labels+    Instance_Labels (..),+    newInstance_Labels,++    -- ** Instance_Protocol+    Instance_Protocol (..),++    -- ** Instance_State+    Instance_State (..),++    -- ** Instance_SuspensionReasonsItem+    Instance_SuspensionReasonsItem (..),++    -- ** Instance_Tags+    Instance_Tags (..),+    newInstance_Tags,++    -- ** Instance_Tier+    Instance_Tier (..),++    -- ** ListBackupsResponse+    ListBackupsResponse (..),+    newListBackupsResponse,++    -- ** ListInstancesResponse+    ListInstancesResponse (..),+    newListInstancesResponse,++    -- ** ListLocationsResponse+    ListLocationsResponse (..),+    newListLocationsResponse,++    -- ** ListOperationsResponse+    ListOperationsResponse (..),+    newListOperationsResponse,++    -- ** ListSnapshotsResponse+    ListSnapshotsResponse (..),+    newListSnapshotsResponse,++    -- ** Location+    Location (..),+    newLocation,++    -- ** Location_Labels+    Location_Labels (..),+    newLocation_Labels,++    -- ** Location_Metadata+    Location_Metadata (..),+    newLocation_Metadata,++    -- ** MaintenancePolicy+    MaintenancePolicy (..),+    newMaintenancePolicy,++    -- ** MaintenancePolicy_Labels+    MaintenancePolicy_Labels (..),+    newMaintenancePolicy_Labels,++    -- ** MaintenancePolicy_State+    MaintenancePolicy_State (..),++    -- ** MaintenanceWindow+    MaintenanceWindow (..),+    newMaintenanceWindow,++    -- ** NetworkConfig+    NetworkConfig (..),+    newNetworkConfig,++    -- ** NetworkConfig_ConnectMode+    NetworkConfig_ConnectMode (..),++    -- ** NetworkConfig_ModesItem+    NetworkConfig_ModesItem (..),++    -- ** NfsExportOptions+    NfsExportOptions (..),+    newNfsExportOptions,++    -- ** NfsExportOptions_AccessMode+    NfsExportOptions_AccessMode (..),++    -- ** NfsExportOptions_SquashMode+    NfsExportOptions_SquashMode (..),++    -- ** Operation+    Operation (..),+    newOperation,++    -- ** Operation_Metadata+    Operation_Metadata (..),+    newOperation_Metadata,++    -- ** Operation_Response+    Operation_Response (..),+    newOperation_Response,++    -- ** OperationMetadata+    OperationMetadata (..),+    newOperationMetadata,++    -- ** PerformanceConfig+    PerformanceConfig (..),+    newPerformanceConfig,++    -- ** PerformanceLimits+    PerformanceLimits (..),+    newPerformanceLimits,++    -- ** PromoteReplicaRequest+    PromoteReplicaRequest (..),+    newPromoteReplicaRequest,++    -- ** ReplicaConfig+    ReplicaConfig (..),+    newReplicaConfig,++    -- ** ReplicaConfig_State+    ReplicaConfig_State (..),++    -- ** ReplicaConfig_StateReasonsItem+    ReplicaConfig_StateReasonsItem (..),++    -- ** Replication+    Replication (..),+    newReplication,++    -- ** Replication_Role+    Replication_Role (..),++    -- ** RestoreInstanceRequest+    RestoreInstanceRequest (..),+    newRestoreInstanceRequest,++    -- ** RevertInstanceRequest+    RevertInstanceRequest (..),+    newRevertInstanceRequest,++    -- ** Schedule+    Schedule (..),+    newSchedule,++    -- ** Schedule_Day+    Schedule_Day (..),++    -- ** Snapshot+    Snapshot (..),+    newSnapshot,++    -- ** Snapshot_Labels+    Snapshot_Labels (..),+    newSnapshot_Labels,++    -- ** Snapshot_State+    Snapshot_State (..),++    -- ** Snapshot_Tags+    Snapshot_Tags (..),+    newSnapshot_Tags,++    -- ** Status+    Status (..),+    newStatus,++    -- ** Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- ** TimeOfDay'+    TimeOfDay' (..),+    newTimeOfDay,++    -- ** UpdatePolicy+    UpdatePolicy (..),+    newUpdatePolicy,++    -- ** UpdatePolicy_Channel+    UpdatePolicy_Channel (..),++    -- ** WeeklyCycle+    WeeklyCycle (..),+    newWeeklyCycle,+  )+where++import Gogol.File.Internal.Product+import Gogol.File.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Default request referring to version @v1@ of the Cloud Filestore API. This contains the host and root path used as a starting point for constructing service requests.+fileService :: Core.ServiceConfig+fileService =+  Core.defaultService+    (Core.ServiceId "file:v1")+    "file.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/File.hs 
@@ -1,308 +0,0 @@-{-# LANGUAGE DataKinds         #-}-{-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE TypeOperators     #-}--{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- |--- Module      : Network.Google.File--- 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)------ The Cloud Filestore API is used for creating and managing cloud file--- servers.------ /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference>-module Network.Google.File-    (-    -- * Service Configuration-      fileService--    -- * OAuth Scopes-    , cloudPlatformScope--    -- * API Declaration-    , FileAPI--    -- * Resources--    -- ** file.projects.locations.get-    , module Network.Google.Resource.File.Projects.Locations.Get--    -- ** file.projects.locations.instances.create-    , module Network.Google.Resource.File.Projects.Locations.Instances.Create--    -- ** file.projects.locations.instances.delete-    , module Network.Google.Resource.File.Projects.Locations.Instances.Delete--    -- ** file.projects.locations.instances.get-    , module Network.Google.Resource.File.Projects.Locations.Instances.Get--    -- ** file.projects.locations.instances.list-    , module Network.Google.Resource.File.Projects.Locations.Instances.List--    -- ** file.projects.locations.instances.patch-    , module Network.Google.Resource.File.Projects.Locations.Instances.Patch--    -- ** file.projects.locations.list-    , module Network.Google.Resource.File.Projects.Locations.List--    -- ** file.projects.locations.operations.cancel-    , module Network.Google.Resource.File.Projects.Locations.Operations.Cancel--    -- ** file.projects.locations.operations.delete-    , module Network.Google.Resource.File.Projects.Locations.Operations.Delete--    -- ** file.projects.locations.operations.get-    , module Network.Google.Resource.File.Projects.Locations.Operations.Get--    -- ** file.projects.locations.operations.list-    , module Network.Google.Resource.File.Projects.Locations.Operations.List--    -- * Types--    -- ** InstanceLabels-    , InstanceLabels-    , instanceLabels-    , ilAddtional--    -- ** Status-    , Status-    , status-    , sDetails-    , sCode-    , sMessage--    -- ** OperationSchema-    , OperationSchema-    , operationSchema-    , osAddtional--    -- ** GoogleCloudSaasacceleratorManagementProvidersV1InstanceState-    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceState (..)--    -- ** GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata-    , GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata-    , googleCloudSaasacceleratorManagementProvidersV1RolloutMetadata-    , gcsmpvrmRolloutName-    , gcsmpvrmNotification-    , gcsmpvrmReleaseName--    -- ** ListLocationsResponse-    , ListLocationsResponse-    , listLocationsResponse-    , llrNextPageToken-    , llrLocations--    -- ** ListOperationsResponse-    , ListOperationsResponse-    , listOperationsResponse-    , lorNextPageToken-    , lorOperations--    -- ** CancelOperationRequest-    , CancelOperationRequest-    , cancelOperationRequest--    -- ** Location-    , Location-    , location-    , lName-    , lMetadata-    , lDisplayName-    , lLabels-    , lLocationId--    -- ** Operation-    , Operation-    , operation-    , oDone-    , oError-    , oResponse-    , oName-    , oMetadata--    -- ** Empty-    , Empty-    , empty--    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance-    , GoogleCloudSaasacceleratorManagementProvidersV1Instance-    , googleCloudSaasacceleratorManagementProvidersV1Instance-    , gcsmpviTenantProjectId-    , gcsmpviState-    , gcsmpviSoftwareVersions-    , gcsmpviProvisionedResources-    , gcsmpviUpdateTime-    , gcsmpviName-    , gcsmpviLabels-    , gcsmpviSloMetadata-    , gcsmpviProducerMetadata-    , gcsmpviRolloutMetadata-    , gcsmpviCreateTime-    , gcsmpviMaintenancePolicyNames--    -- ** InstanceTier-    , InstanceTier (..)--    -- ** StatusDetailsItem-    , StatusDetailsItem-    , statusDetailsItem-    , sdiAddtional--    -- ** GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions-    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions-    , googleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions-    , gcsmpvisvAddtional--    -- ** GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata-    , GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata-    , googleCloudSaasacceleratorManagementProvidersV1NotificationMetadata-    , gcsmpvnmTargetRelease-    , gcsmpvnmScheduledEndTime-    , gcsmpvnmRescheduled-    , gcsmpvnmScheduledStartTime--    -- ** FileShareConfig-    , FileShareConfig-    , fileShareConfig-    , fscName-    , fscCapacityGb--    -- ** NetworkConfig-    , NetworkConfig-    , networkConfig-    , ncModes-    , ncNetwork-    , ncReservedIPRange-    , ncIPAddresses--    -- ** GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata-    , GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata-    , googleCloudSaasacceleratorManagementProvidersV1SloMetadata-    , gcsmpvsmExclusions-    , gcsmpvsmTier--    -- ** Xgafv-    , Xgafv (..)--    -- ** GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata-    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata-    , googleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata-    , gcsmpvipmAddtional--    -- ** GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels-    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels-    , googleCloudSaasacceleratorManagementProvidersV1InstanceLabels-    , gcsmpvilAddtional--    -- ** GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion-    , GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion-    , googleCloudSaasacceleratorManagementProvidersV1SloExclusion-    , gcsmpvseExclusionDuration-    , gcsmpvseExclusionStartTime-    , gcsmpvseReason-    , gcsmpvseSloName--    -- ** LocationLabels-    , LocationLabels-    , locationLabels-    , llAddtional--    -- ** LocationMetadata-    , LocationMetadata-    , locationMetadata-    , lmAddtional--    -- ** OperationMetadata-    , OperationMetadata-    , operationMetadata-    , omAPIVersion-    , omEndTime-    , omStatusDetail-    , omVerb-    , omCancelRequested-    , omTarget-    , omCreateTime--    -- ** GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource-    , GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource-    , googleCloudSaasacceleratorManagementProvidersV1ProvisionedResource-    , gcsmpvprResourceType-    , gcsmpvprResourceURL--    -- ** ListInstancesResponse-    , ListInstancesResponse-    , listInstancesResponse-    , lirNextPageToken-    , lirUnreachable-    , lirInstances--    -- ** InstanceState-    , InstanceState (..)--    -- ** OperationResponse-    , OperationResponse-    , operationResponse-    , orAddtional--    -- ** GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata-    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata-    , googleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata-    , gcsmpvirmAddtional--    -- ** GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames-    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames-    , googleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames-    , gcsmpvimpnAddtional--    -- ** Instance-    , Instance-    , instance'-    , iEtag-    , iState-    , iNetworks-    , iFileShares-    , iName-    , iStatusMessage-    , iTier-    , iLabels-    , iDescription-    , iCreateTime-    ) where--import           Network.Google.File.Types-import           Network.Google.Prelude-import           Network.Google.Resource.File.Projects.Locations.Get-import           Network.Google.Resource.File.Projects.Locations.Instances.Create-import           Network.Google.Resource.File.Projects.Locations.Instances.Delete-import           Network.Google.Resource.File.Projects.Locations.Instances.Get-import           Network.Google.Resource.File.Projects.Locations.Instances.List-import           Network.Google.Resource.File.Projects.Locations.Instances.Patch-import           Network.Google.Resource.File.Projects.Locations.List-import           Network.Google.Resource.File.Projects.Locations.Operations.Cancel-import           Network.Google.Resource.File.Projects.Locations.Operations.Delete-import           Network.Google.Resource.File.Projects.Locations.Operations.Get-import           Network.Google.Resource.File.Projects.Locations.Operations.List--{- $resources-TODO--}---- | Represents the entirety of the methods and resources available for the Cloud Filestore API service.-type FileAPI =-     ProjectsLocationsInstancesListResource :<|>-       ProjectsLocationsInstancesPatchResource-       :<|> ProjectsLocationsInstancesGetResource-       :<|> ProjectsLocationsInstancesCreateResource-       :<|> ProjectsLocationsInstancesDeleteResource-       :<|> ProjectsLocationsOperationsListResource-       :<|> ProjectsLocationsOperationsGetResource-       :<|> ProjectsLocationsOperationsCancelResource-       :<|> ProjectsLocationsOperationsDeleteResource-       :<|> ProjectsLocationsListResource-       :<|> ProjectsLocationsGetResource
− gen/Network/Google/File/Types.hs 
@@ -1,247 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.File.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.File.Types-    (-    -- * Service Configuration-      fileService--    -- * OAuth Scopes-    , cloudPlatformScope--    -- * InstanceLabels-    , InstanceLabels-    , instanceLabels-    , ilAddtional--    -- * Status-    , Status-    , status-    , sDetails-    , sCode-    , sMessage--    -- * OperationSchema-    , OperationSchema-    , operationSchema-    , osAddtional--    -- * GoogleCloudSaasacceleratorManagementProvidersV1InstanceState-    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceState (..)--    -- * GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata-    , GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata-    , googleCloudSaasacceleratorManagementProvidersV1RolloutMetadata-    , gcsmpvrmRolloutName-    , gcsmpvrmNotification-    , gcsmpvrmReleaseName--    -- * ListLocationsResponse-    , ListLocationsResponse-    , listLocationsResponse-    , llrNextPageToken-    , llrLocations--    -- * ListOperationsResponse-    , ListOperationsResponse-    , listOperationsResponse-    , lorNextPageToken-    , lorOperations--    -- * CancelOperationRequest-    , CancelOperationRequest-    , cancelOperationRequest--    -- * Location-    , Location-    , location-    , lName-    , lMetadata-    , lDisplayName-    , lLabels-    , lLocationId--    -- * Operation-    , Operation-    , operation-    , oDone-    , oError-    , oResponse-    , oName-    , oMetadata--    -- * Empty-    , Empty-    , empty--    -- * GoogleCloudSaasacceleratorManagementProvidersV1Instance-    , GoogleCloudSaasacceleratorManagementProvidersV1Instance-    , googleCloudSaasacceleratorManagementProvidersV1Instance-    , gcsmpviTenantProjectId-    , gcsmpviState-    , gcsmpviSoftwareVersions-    , gcsmpviProvisionedResources-    , gcsmpviUpdateTime-    , gcsmpviName-    , gcsmpviLabels-    , gcsmpviSloMetadata-    , gcsmpviProducerMetadata-    , gcsmpviRolloutMetadata-    , gcsmpviCreateTime-    , gcsmpviMaintenancePolicyNames--    -- * InstanceTier-    , InstanceTier (..)--    -- * StatusDetailsItem-    , StatusDetailsItem-    , statusDetailsItem-    , sdiAddtional--    -- * GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions-    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions-    , googleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions-    , gcsmpvisvAddtional--    -- * GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata-    , GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata-    , googleCloudSaasacceleratorManagementProvidersV1NotificationMetadata-    , gcsmpvnmTargetRelease-    , gcsmpvnmScheduledEndTime-    , gcsmpvnmRescheduled-    , gcsmpvnmScheduledStartTime--    -- * FileShareConfig-    , FileShareConfig-    , fileShareConfig-    , fscName-    , fscCapacityGb--    -- * NetworkConfig-    , NetworkConfig-    , networkConfig-    , ncModes-    , ncNetwork-    , ncReservedIPRange-    , ncIPAddresses--    -- * GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata-    , GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata-    , googleCloudSaasacceleratorManagementProvidersV1SloMetadata-    , gcsmpvsmExclusions-    , gcsmpvsmTier--    -- * Xgafv-    , Xgafv (..)--    -- * GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata-    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata-    , googleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata-    , gcsmpvipmAddtional--    -- * GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels-    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels-    , googleCloudSaasacceleratorManagementProvidersV1InstanceLabels-    , gcsmpvilAddtional--    -- * GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion-    , GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion-    , googleCloudSaasacceleratorManagementProvidersV1SloExclusion-    , gcsmpvseExclusionDuration-    , gcsmpvseExclusionStartTime-    , gcsmpvseReason-    , gcsmpvseSloName--    -- * LocationLabels-    , LocationLabels-    , locationLabels-    , llAddtional--    -- * LocationMetadata-    , LocationMetadata-    , locationMetadata-    , lmAddtional--    -- * OperationMetadata-    , OperationMetadata-    , operationMetadata-    , omAPIVersion-    , omEndTime-    , omStatusDetail-    , omVerb-    , omCancelRequested-    , omTarget-    , omCreateTime--    -- * GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource-    , GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource-    , googleCloudSaasacceleratorManagementProvidersV1ProvisionedResource-    , gcsmpvprResourceType-    , gcsmpvprResourceURL--    -- * ListInstancesResponse-    , ListInstancesResponse-    , listInstancesResponse-    , lirNextPageToken-    , lirUnreachable-    , lirInstances--    -- * InstanceState-    , InstanceState (..)--    -- * OperationResponse-    , OperationResponse-    , operationResponse-    , orAddtional--    -- * GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata-    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata-    , googleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata-    , gcsmpvirmAddtional--    -- * GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames-    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames-    , googleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames-    , gcsmpvimpnAddtional--    -- * Instance-    , Instance-    , instance'-    , iEtag-    , iState-    , iNetworks-    , iFileShares-    , iName-    , iStatusMessage-    , iTier-    , iLabels-    , iDescription-    , iCreateTime-    ) where--import           Network.Google.File.Types.Product-import           Network.Google.File.Types.Sum-import           Network.Google.Prelude---- | Default request referring to version 'v1' of the Cloud Filestore API. This contains the host and root path used as a starting point for constructing service requests.-fileService :: ServiceConfig-fileService-  = defaultService (ServiceId "file:v1")-      "file.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/File/Types/Product.hs 
@@ -1,2007 +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.File.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.File.Types.Product where--import           Network.Google.File.Types.Sum-import           Network.Google.Prelude---- | Resource labels to represent user provided metadata.------ /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---- | RolloutMetadata for an actuation instance. It maps to a single--- RolloutType.------ /See:/ 'googleCloudSaasacceleratorManagementProvidersV1RolloutMetadata' smart constructor.-data GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata =-  GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata'-    { _gcsmpvrmRolloutName  :: !(Maybe Text)-    , _gcsmpvrmNotification :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata)-    , _gcsmpvrmReleaseName  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gcsmpvrmRolloutName'------ * 'gcsmpvrmNotification'------ * 'gcsmpvrmReleaseName'-googleCloudSaasacceleratorManagementProvidersV1RolloutMetadata-    :: GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata-googleCloudSaasacceleratorManagementProvidersV1RolloutMetadata =-  GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata'-    { _gcsmpvrmRolloutName = Nothing-    , _gcsmpvrmNotification = Nothing-    , _gcsmpvrmReleaseName = Nothing-    }----- | The last rollout that has been applied to the instance.-gcsmpvrmRolloutName :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata (Maybe Text)-gcsmpvrmRolloutName-  = lens _gcsmpvrmRolloutName-      (\ s a -> s{_gcsmpvrmRolloutName = a})---- | Instance level notification metadata.-gcsmpvrmNotification :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata (Maybe GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata)-gcsmpvrmNotification-  = lens _gcsmpvrmNotification-      (\ s a -> s{_gcsmpvrmNotification = a})---- | The last Release that has been applied to the instance.-gcsmpvrmReleaseName :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata (Maybe Text)-gcsmpvrmReleaseName-  = lens _gcsmpvrmReleaseName-      (\ s a -> s{_gcsmpvrmReleaseName = a})--instance FromJSON-           GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata-         where-        parseJSON-          = withObject-              "GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata"-              (\ o ->-                 GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata'-                   <$>-                   (o .:? "rolloutName") <*> (o .:? "notification") <*>-                     (o .:? "releaseName"))--instance ToJSON-           GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata-         where-        toJSON-          GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata'{..}-          = object-              (catMaybes-                 [("rolloutName" .=) <$> _gcsmpvrmRolloutName,-                  ("notification" .=) <$> _gcsmpvrmNotification,-                  ("releaseName" .=) <$> _gcsmpvrmReleaseName])---- | 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---- | Instance represents the interface for SLM services to actuate the state--- of control plane resources. Example Instance in JSON, where--- consumer-project=snapchat, producer-project=cloud-sql: \`\`\`json--- Instance: { \"name\":--- \"projects\/snapchat\/locations\/us-east1\/instances\/prod-instance\",--- \"create_time\": { \"seconds\": 1526406431, }, \"labels\": { \"env\":--- \"prod\", \"foo\": \"bar\" }, \"state\": READY, \"software_version\":--- \"cloud-sql-09-28-2018\", \"maintenance_policy_names\": {--- \"UpdatePolicy\":--- \"projects\/snapchat\/locations\/us-east1\/maintenancePolicies\/prod-update-policy\",--- } \"rollout_metadata\": {--- \"projects\/cloud-sql\/locations\/global\/rolloutTypes\/software_update\":--- { \"release\":--- \"projects\/cloud-sql\/locations\/global\/releases\/cloud-sql-09-28-2018\",--- \"rollout\":--- \"projects\/cloud-sql\/locations\/us-east1\/rollouts\/cloud-sql-09-28-2018-canary\",--- }--- \"projects\/cloud-sql\/locations\/global\/rolloutTypes\/instance_restart\":--- { \"release\":--- \"projects\/cloud-sql\/locations\/global\/releases\/cloud-sql-09-20-repair\",--- \"rollout\":--- \"projects\/cloud-sql\/locations\/us-east1\/rollouts\/cloud-sql-09-20-repair-100-percent\",--- } } \"tenant_project_id\": \"cloud-sql-test-tenant\",--- \"producer_metadata\": { \"cloud-sql-tier\": \"basic\",--- \"cloud-sql-instance-size\": \"1G\", }, \"provisioned_resources\": [ {--- \"resource-type\": \"compute-instance\", \"resource-url\":--- \"https:\/\/www.googleapis.com\/compute\/v1\/projects\/cloud-sql\/zones\/us-east1-b\/instances\/vm-1\",--- } ], } \`\`\`------ /See:/ 'googleCloudSaasacceleratorManagementProvidersV1Instance' smart constructor.-data GoogleCloudSaasacceleratorManagementProvidersV1Instance =-  GoogleCloudSaasacceleratorManagementProvidersV1Instance'-    { _gcsmpviTenantProjectId        :: !(Maybe Text)-    , _gcsmpviState                  :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceState)-    , _gcsmpviSoftwareVersions       :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions)-    , _gcsmpviProvisionedResources   :: !(Maybe [GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource])-    , _gcsmpviUpdateTime             :: !(Maybe DateTime')-    , _gcsmpviName                   :: !(Maybe Text)-    , _gcsmpviLabels                 :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels)-    , _gcsmpviSloMetadata            :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata)-    , _gcsmpviProducerMetadata       :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata)-    , _gcsmpviRolloutMetadata        :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata)-    , _gcsmpviCreateTime             :: !(Maybe DateTime')-    , _gcsmpviMaintenancePolicyNames :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1Instance' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gcsmpviTenantProjectId'------ * 'gcsmpviState'------ * 'gcsmpviSoftwareVersions'------ * 'gcsmpviProvisionedResources'------ * 'gcsmpviUpdateTime'------ * 'gcsmpviName'------ * 'gcsmpviLabels'------ * 'gcsmpviSloMetadata'------ * 'gcsmpviProducerMetadata'------ * 'gcsmpviRolloutMetadata'------ * 'gcsmpviCreateTime'------ * 'gcsmpviMaintenancePolicyNames'-googleCloudSaasacceleratorManagementProvidersV1Instance-    :: GoogleCloudSaasacceleratorManagementProvidersV1Instance-googleCloudSaasacceleratorManagementProvidersV1Instance =-  GoogleCloudSaasacceleratorManagementProvidersV1Instance'-    { _gcsmpviTenantProjectId = Nothing-    , _gcsmpviState = Nothing-    , _gcsmpviSoftwareVersions = Nothing-    , _gcsmpviProvisionedResources = Nothing-    , _gcsmpviUpdateTime = Nothing-    , _gcsmpviName = Nothing-    , _gcsmpviLabels = Nothing-    , _gcsmpviSloMetadata = Nothing-    , _gcsmpviProducerMetadata = Nothing-    , _gcsmpviRolloutMetadata = Nothing-    , _gcsmpviCreateTime = Nothing-    , _gcsmpviMaintenancePolicyNames = Nothing-    }----- | Output only. ID of the associated GCP tenant project. See--- go\/get-instance-metadata.-gcsmpviTenantProjectId :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe Text)-gcsmpviTenantProjectId-  = lens _gcsmpviTenantProjectId-      (\ s a -> s{_gcsmpviTenantProjectId = a})---- | Output only. Current lifecycle state of the resource (e.g. if it\'s--- being created or ready to use).-gcsmpviState :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceState)-gcsmpviState-  = lens _gcsmpviState (\ s a -> s{_gcsmpviState = a})---- | Software versions that are used to deploy this instance. This can be--- mutated by rollout services.-gcsmpviSoftwareVersions :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions)-gcsmpviSoftwareVersions-  = lens _gcsmpviSoftwareVersions-      (\ s a -> s{_gcsmpviSoftwareVersions = a})---- | Output only. The list of data plane resources provisioned for this--- instance, e.g. compute VMs. See go\/get-instance-metadata.-gcsmpviProvisionedResources :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance [GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource]-gcsmpviProvisionedResources-  = lens _gcsmpviProvisionedResources-      (\ s a -> s{_gcsmpviProvisionedResources = a})-      . _Default-      . _Coerce---- | Output only. Timestamp when the resource was last modified.-gcsmpviUpdateTime :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe UTCTime)-gcsmpviUpdateTime-  = lens _gcsmpviUpdateTime-      (\ s a -> s{_gcsmpviUpdateTime = a})-      . mapping _DateTime---- | Unique name of the resource. It uses the form:--- \`projects\/{project_id}\/locations\/{location_id}\/instances\/{instance_id}\`-gcsmpviName :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe Text)-gcsmpviName-  = lens _gcsmpviName (\ s a -> s{_gcsmpviName = a})---- | Optional. Resource labels to represent user provided metadata. Each--- label is a key-value pair, where both the key and the value are--- arbitrary strings provided by the user.-gcsmpviLabels :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels)-gcsmpviLabels-  = lens _gcsmpviLabels-      (\ s a -> s{_gcsmpviLabels = a})---- | Output only. SLO metadata for instance classification in the--- Standardized dataplane SLO platform. See go\/cloud-ssa-standard-slo for--- feature description.-gcsmpviSloMetadata :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata)-gcsmpviSloMetadata-  = lens _gcsmpviSloMetadata-      (\ s a -> s{_gcsmpviSloMetadata = a})---- | Output only. Custom string attributes used primarily to expose--- producer-specific information in monitoring dashboards. See--- go\/get-instance-metadata.-gcsmpviProducerMetadata :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata)-gcsmpviProducerMetadata-  = lens _gcsmpviProducerMetadata-      (\ s a -> s{_gcsmpviProducerMetadata = a})---- | The map between RolloutType and the corresponding RolloutMetadata. This--- is only mutated by rollout service. For actuation implementation, this--- information is pass-through for Rollout management. Producer shall not--- modify by itself. For update of a single entry in this map, the update--- field mask shall follow this sementics: go\/advanced-field-masks-gcsmpviRolloutMetadata :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata)-gcsmpviRolloutMetadata-  = lens _gcsmpviRolloutMetadata-      (\ s a -> s{_gcsmpviRolloutMetadata = a})---- | Output only. Timestamp when the resource was created.-gcsmpviCreateTime :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe UTCTime)-gcsmpviCreateTime-  = lens _gcsmpviCreateTime-      (\ s a -> s{_gcsmpviCreateTime = a})-      . mapping _DateTime---- | The MaintenancePolicies that have been attached to the instance. The key--- must be of the type name of the oneof policy name defined in--- MaintenancePolicy, and the referenced policy must define the same policy--- type. For complete details of MaintenancePolicy, please refer to--- \/\/depot\/google3\/google\/cloud\/saasaccelerator\/maintenancepolicy\/api\/v1\/maintenance_policy_resources.proto-gcsmpviMaintenancePolicyNames :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames)-gcsmpviMaintenancePolicyNames-  = lens _gcsmpviMaintenancePolicyNames-      (\ s a -> s{_gcsmpviMaintenancePolicyNames = a})--instance FromJSON-           GoogleCloudSaasacceleratorManagementProvidersV1Instance-         where-        parseJSON-          = withObject-              "GoogleCloudSaasacceleratorManagementProvidersV1Instance"-              (\ o ->-                 GoogleCloudSaasacceleratorManagementProvidersV1Instance'-                   <$>-                   (o .:? "tenantProjectId") <*> (o .:? "state") <*>-                     (o .:? "softwareVersions")-                     <*> (o .:? "provisionedResources" .!= mempty)-                     <*> (o .:? "updateTime")-                     <*> (o .:? "name")-                     <*> (o .:? "labels")-                     <*> (o .:? "sloMetadata")-                     <*> (o .:? "producerMetadata")-                     <*> (o .:? "rolloutMetadata")-                     <*> (o .:? "createTime")-                     <*> (o .:? "maintenancePolicyNames"))--instance ToJSON-           GoogleCloudSaasacceleratorManagementProvidersV1Instance-         where-        toJSON-          GoogleCloudSaasacceleratorManagementProvidersV1Instance'{..}-          = object-              (catMaybes-                 [("tenantProjectId" .=) <$> _gcsmpviTenantProjectId,-                  ("state" .=) <$> _gcsmpviState,-                  ("softwareVersions" .=) <$> _gcsmpviSoftwareVersions,-                  ("provisionedResources" .=) <$>-                    _gcsmpviProvisionedResources,-                  ("updateTime" .=) <$> _gcsmpviUpdateTime,-                  ("name" .=) <$> _gcsmpviName,-                  ("labels" .=) <$> _gcsmpviLabels,-                  ("sloMetadata" .=) <$> _gcsmpviSloMetadata,-                  ("producerMetadata" .=) <$> _gcsmpviProducerMetadata,-                  ("rolloutMetadata" .=) <$> _gcsmpviRolloutMetadata,-                  ("createTime" .=) <$> _gcsmpviCreateTime,-                  ("maintenancePolicyNames" .=) <$>-                    _gcsmpviMaintenancePolicyNames])------- /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---- | Software versions that are used to deploy this instance. This can be--- mutated by rollout services.------ /See:/ 'googleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions' smart constructor.-newtype GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions =-  GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions'-    { _gcsmpvisvAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gcsmpvisvAddtional'-googleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions-    :: HashMap Text Text -- ^ 'gcsmpvisvAddtional'-    -> GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions-googleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions pGcsmpvisvAddtional_ =-  GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions'-    {_gcsmpvisvAddtional = _Coerce # pGcsmpvisvAddtional_}---gcsmpvisvAddtional :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions (HashMap Text Text)-gcsmpvisvAddtional-  = lens _gcsmpvisvAddtional-      (\ s a -> s{_gcsmpvisvAddtional = a})-      . _Coerce--instance FromJSON-           GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions-         where-        parseJSON-          = withObject-              "GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions"-              (\ o ->-                 GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions'-                   <$> (parseJSONObject o))--instance ToJSON-           GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions-         where-        toJSON = toJSON . _gcsmpvisvAddtional---- | NotificationMetadata is the notification state for an instance.------ /See:/ 'googleCloudSaasacceleratorManagementProvidersV1NotificationMetadata' smart constructor.-data GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata =-  GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata'-    { _gcsmpvnmTargetRelease      :: !(Maybe Text)-    , _gcsmpvnmScheduledEndTime   :: !(Maybe DateTime')-    , _gcsmpvnmRescheduled        :: !(Maybe Bool)-    , _gcsmpvnmScheduledStartTime :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gcsmpvnmTargetRelease'------ * 'gcsmpvnmScheduledEndTime'------ * 'gcsmpvnmRescheduled'------ * 'gcsmpvnmScheduledStartTime'-googleCloudSaasacceleratorManagementProvidersV1NotificationMetadata-    :: GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata-googleCloudSaasacceleratorManagementProvidersV1NotificationMetadata =-  GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata'-    { _gcsmpvnmTargetRelease = Nothing-    , _gcsmpvnmScheduledEndTime = Nothing-    , _gcsmpvnmRescheduled = Nothing-    , _gcsmpvnmScheduledStartTime = Nothing-    }----- | The target release to be applied to the instance.-gcsmpvnmTargetRelease :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata (Maybe Text)-gcsmpvnmTargetRelease-  = lens _gcsmpvnmTargetRelease-      (\ s a -> s{_gcsmpvnmTargetRelease = a})---- | The scheduled end time for the maintenance window during which update--- can be performed on the instance.-gcsmpvnmScheduledEndTime :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata (Maybe UTCTime)-gcsmpvnmScheduledEndTime-  = lens _gcsmpvnmScheduledEndTime-      (\ s a -> s{_gcsmpvnmScheduledEndTime = a})-      . mapping _DateTime---- | Whether the instance update has been rescheduled.-gcsmpvnmRescheduled :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata (Maybe Bool)-gcsmpvnmRescheduled-  = lens _gcsmpvnmRescheduled-      (\ s a -> s{_gcsmpvnmRescheduled = a})---- | The scheduled start time for the maintenance window during which update--- can be performed on the instance.-gcsmpvnmScheduledStartTime :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata (Maybe UTCTime)-gcsmpvnmScheduledStartTime-  = lens _gcsmpvnmScheduledStartTime-      (\ s a -> s{_gcsmpvnmScheduledStartTime = a})-      . mapping _DateTime--instance FromJSON-           GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata-         where-        parseJSON-          = withObject-              "GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata"-              (\ o ->-                 GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata'-                   <$>-                   (o .:? "targetRelease") <*>-                     (o .:? "scheduledEndTime")-                     <*> (o .:? "rescheduled")-                     <*> (o .:? "scheduledStartTime"))--instance ToJSON-           GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata-         where-        toJSON-          GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata'{..}-          = object-              (catMaybes-                 [("targetRelease" .=) <$> _gcsmpvnmTargetRelease,-                  ("scheduledEndTime" .=) <$>-                    _gcsmpvnmScheduledEndTime,-                  ("rescheduled" .=) <$> _gcsmpvnmRescheduled,-                  ("scheduledStartTime" .=) <$>-                    _gcsmpvnmScheduledStartTime])---- | File share configuration for the instance.------ /See:/ 'fileShareConfig' smart constructor.-data FileShareConfig =-  FileShareConfig'-    { _fscName       :: !(Maybe Text)-    , _fscCapacityGb :: !(Maybe (Textual Int64))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FileShareConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fscName'------ * 'fscCapacityGb'-fileShareConfig-    :: FileShareConfig-fileShareConfig =-  FileShareConfig' {_fscName = Nothing, _fscCapacityGb = Nothing}----- | The name of the file share (must be 16 characters or less).-fscName :: Lens' FileShareConfig (Maybe Text)-fscName = lens _fscName (\ s a -> s{_fscName = a})---- | File share capacity in gigabytes (GB). Cloud Filestore defines 1 GB as--- 1024^3 bytes.-fscCapacityGb :: Lens' FileShareConfig (Maybe Int64)-fscCapacityGb-  = lens _fscCapacityGb-      (\ s a -> s{_fscCapacityGb = a})-      . mapping _Coerce--instance FromJSON FileShareConfig where-        parseJSON-          = withObject "FileShareConfig"-              (\ o ->-                 FileShareConfig' <$>-                   (o .:? "name") <*> (o .:? "capacityGb"))--instance ToJSON FileShareConfig where-        toJSON FileShareConfig'{..}-          = object-              (catMaybes-                 [("name" .=) <$> _fscName,-                  ("capacityGb" .=) <$> _fscCapacityGb])---- | Network configuration for the instance.------ /See:/ 'networkConfig' smart constructor.-data NetworkConfig =-  NetworkConfig'-    { _ncModes           :: !(Maybe [Text])-    , _ncNetwork         :: !(Maybe Text)-    , _ncReservedIPRange :: !(Maybe Text)-    , _ncIPAddresses     :: !(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:------ * 'ncModes'------ * 'ncNetwork'------ * 'ncReservedIPRange'------ * 'ncIPAddresses'-networkConfig-    :: NetworkConfig-networkConfig =-  NetworkConfig'-    { _ncModes = Nothing-    , _ncNetwork = Nothing-    , _ncReservedIPRange = Nothing-    , _ncIPAddresses = Nothing-    }----- | Internet protocol versions for which the instance has IP addresses--- assigned. For this version, only MODE_IPV4 is supported.-ncModes :: Lens' NetworkConfig [Text]-ncModes-  = lens _ncModes (\ s a -> s{_ncModes = a}) . _Default-      . _Coerce---- | The name of the Google Compute Engine [VPC--- network](\/compute\/docs\/networks-and-firewalls#networks) to which the--- instance is connected.-ncNetwork :: Lens' NetworkConfig (Maybe Text)-ncNetwork-  = lens _ncNetwork (\ s a -> s{_ncNetwork = a})---- | A \/29 CIDR block in one of the [internal IP address--- ranges](https:\/\/www.arin.net\/knowledge\/address_filters.html) that--- identifies the range of IP addresses reserved for this instance. For--- example, 10.0.0.0\/29 or 192.168.0.0\/29. The range you specify can\'t--- overlap with either existing subnets or assigned IP address ranges for--- other Cloud Filestore instances in the selected VPC network.-ncReservedIPRange :: Lens' NetworkConfig (Maybe Text)-ncReservedIPRange-  = lens _ncReservedIPRange-      (\ s a -> s{_ncReservedIPRange = a})---- | Output only. IPv4 addresses in the format {octet 1}.{octet 2}.{octet--- 3}.{octet 4} or IPv6 addresses in the format {block 1}:{block 2}:{block--- 3}:{block 4}:{block 5}:{block 6}:{block 7}:{block 8}.-ncIPAddresses :: Lens' NetworkConfig [Text]-ncIPAddresses-  = lens _ncIPAddresses-      (\ s a -> s{_ncIPAddresses = a})-      . _Default-      . _Coerce--instance FromJSON NetworkConfig where-        parseJSON-          = withObject "NetworkConfig"-              (\ o ->-                 NetworkConfig' <$>-                   (o .:? "modes" .!= mempty) <*> (o .:? "network") <*>-                     (o .:? "reservedIpRange")-                     <*> (o .:? "ipAddresses" .!= mempty))--instance ToJSON NetworkConfig where-        toJSON NetworkConfig'{..}-          = object-              (catMaybes-                 [("modes" .=) <$> _ncModes,-                  ("network" .=) <$> _ncNetwork,-                  ("reservedIpRange" .=) <$> _ncReservedIPRange,-                  ("ipAddresses" .=) <$> _ncIPAddresses])---- | SloMetadata contains resources required for proper SLO classification of--- the instance.------ /See:/ 'googleCloudSaasacceleratorManagementProvidersV1SloMetadata' smart constructor.-data GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata =-  GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata'-    { _gcsmpvsmExclusions :: !(Maybe [GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion])-    , _gcsmpvsmTier       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gcsmpvsmExclusions'------ * 'gcsmpvsmTier'-googleCloudSaasacceleratorManagementProvidersV1SloMetadata-    :: GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata-googleCloudSaasacceleratorManagementProvidersV1SloMetadata =-  GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata'-    {_gcsmpvsmExclusions = Nothing, _gcsmpvsmTier = Nothing}----- | List of SLO exclusion windows. When multiple entries in the list match--- (matching the exclusion time-window against current time point) the--- exclusion reason used in the first matching entry will be published. It--- is not needed to include expired exclusion in this list, as only the--- currently applicable exclusions are taken into account by the--- eligibility exporting subsystem (the historical state of exclusions will--- be reflected in the historically produced timeseries regardless of the--- current state). This field can be used to mark the instance as temporary--- ineligible for the purpose of SLO calculation. For permanent instance--- SLO exclusion, a dedicated tier name can be used that does not have--- targets specified in the service SLO configuration.-gcsmpvsmExclusions :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata [GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion]-gcsmpvsmExclusions-  = lens _gcsmpvsmExclusions-      (\ s a -> s{_gcsmpvsmExclusions = a})-      . _Default-      . _Coerce---- | Name of the SLO tier the Instance belongs to. This name will be expected--- to match the tiers specified in the service SLO configuration. Field is--- mandatory and must not be empty.-gcsmpvsmTier :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata (Maybe Text)-gcsmpvsmTier-  = lens _gcsmpvsmTier (\ s a -> s{_gcsmpvsmTier = a})--instance FromJSON-           GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata-         where-        parseJSON-          = withObject-              "GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata"-              (\ o ->-                 GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata'-                   <$>-                   (o .:? "exclusions" .!= mempty) <*> (o .:? "tier"))--instance ToJSON-           GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata-         where-        toJSON-          GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata'{..}-          = object-              (catMaybes-                 [("exclusions" .=) <$> _gcsmpvsmExclusions,-                  ("tier" .=) <$> _gcsmpvsmTier])---- | Output only. Custom string attributes used primarily to expose--- producer-specific information in monitoring dashboards. See--- go\/get-instance-metadata.------ /See:/ 'googleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata' smart constructor.-newtype GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata =-  GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata'-    { _gcsmpvipmAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gcsmpvipmAddtional'-googleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata-    :: HashMap Text Text -- ^ 'gcsmpvipmAddtional'-    -> GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata-googleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata pGcsmpvipmAddtional_ =-  GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata'-    {_gcsmpvipmAddtional = _Coerce # pGcsmpvipmAddtional_}---gcsmpvipmAddtional :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata (HashMap Text Text)-gcsmpvipmAddtional-  = lens _gcsmpvipmAddtional-      (\ s a -> s{_gcsmpvipmAddtional = a})-      . _Coerce--instance FromJSON-           GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata-         where-        parseJSON-          = withObject-              "GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata"-              (\ o ->-                 GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata'-                   <$> (parseJSONObject o))--instance ToJSON-           GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata-         where-        toJSON = toJSON . _gcsmpvipmAddtional---- | Optional. Resource labels to represent user provided metadata. Each--- label is a key-value pair, where both the key and the value are--- arbitrary strings provided by the user.------ /See:/ 'googleCloudSaasacceleratorManagementProvidersV1InstanceLabels' smart constructor.-newtype GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels =-  GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels'-    { _gcsmpvilAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gcsmpvilAddtional'-googleCloudSaasacceleratorManagementProvidersV1InstanceLabels-    :: HashMap Text Text -- ^ 'gcsmpvilAddtional'-    -> GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels-googleCloudSaasacceleratorManagementProvidersV1InstanceLabels pGcsmpvilAddtional_ =-  GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels'-    {_gcsmpvilAddtional = _Coerce # pGcsmpvilAddtional_}---gcsmpvilAddtional :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels (HashMap Text Text)-gcsmpvilAddtional-  = lens _gcsmpvilAddtional-      (\ s a -> s{_gcsmpvilAddtional = a})-      . _Coerce--instance FromJSON-           GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels-         where-        parseJSON-          = withObject-              "GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels"-              (\ o ->-                 GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels'-                   <$> (parseJSONObject o))--instance ToJSON-           GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels-         where-        toJSON = toJSON . _gcsmpvilAddtional---- | A temporal SLO exclusion specification.------ /See:/ 'googleCloudSaasacceleratorManagementProvidersV1SloExclusion' smart constructor.-data GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion =-  GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion'-    { _gcsmpvseExclusionDuration  :: !(Maybe GDuration)-    , _gcsmpvseExclusionStartTime :: !(Maybe DateTime')-    , _gcsmpvseReason             :: !(Maybe Text)-    , _gcsmpvseSloName            :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gcsmpvseExclusionDuration'------ * 'gcsmpvseExclusionStartTime'------ * 'gcsmpvseReason'------ * 'gcsmpvseSloName'-googleCloudSaasacceleratorManagementProvidersV1SloExclusion-    :: GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion-googleCloudSaasacceleratorManagementProvidersV1SloExclusion =-  GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion'-    { _gcsmpvseExclusionDuration = Nothing-    , _gcsmpvseExclusionStartTime = Nothing-    , _gcsmpvseReason = Nothing-    , _gcsmpvseSloName = Nothing-    }----- | Exclusion duration. No restrictions on the possible values. When an--- ongoing operation is taking longer than initially expected, an existing--- entry in the exclusion list can be updated by extending the duration.--- This is supported by the subsystem exporting eligibility data as long as--- such extension is committed at least 10 minutes before the original--- exclusion expiration - otherwise it is possible that there will be--- \"gaps\" in the exclusion application in the exported timeseries.-gcsmpvseExclusionDuration :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion (Maybe Scientific)-gcsmpvseExclusionDuration-  = lens _gcsmpvseExclusionDuration-      (\ s a -> s{_gcsmpvseExclusionDuration = a})-      . mapping _GDuration---- | Start time of the exclusion. No alignment (e.g. to a full minute)--- needed.-gcsmpvseExclusionStartTime :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion (Maybe UTCTime)-gcsmpvseExclusionStartTime-  = lens _gcsmpvseExclusionStartTime-      (\ s a -> s{_gcsmpvseExclusionStartTime = a})-      . mapping _DateTime---- | Human-readable reason for the exclusion. This should be a static string--- (e.g. \"Disruptive update in progress\") and should not contain--- dynamically generated data (e.g. instance name). Can be left empty.-gcsmpvseReason :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion (Maybe Text)-gcsmpvseReason-  = lens _gcsmpvseReason-      (\ s a -> s{_gcsmpvseReason = a})---- | Name of an SLI\/SLO that this exclusion applies to. Can be left empty,--- signaling that the instance should be excluded from all SLI\/SLOs--- defined in the service SLO configuration.-gcsmpvseSloName :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion (Maybe Text)-gcsmpvseSloName-  = lens _gcsmpvseSloName-      (\ s a -> s{_gcsmpvseSloName = a})--instance FromJSON-           GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion-         where-        parseJSON-          = withObject-              "GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion"-              (\ o ->-                 GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion'-                   <$>-                   (o .:? "exclusionDuration") <*>-                     (o .:? "exclusionStartTime")-                     <*> (o .:? "reason")-                     <*> (o .:? "sloName"))--instance ToJSON-           GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion-         where-        toJSON-          GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion'{..}-          = object-              (catMaybes-                 [("exclusionDuration" .=) <$>-                    _gcsmpvseExclusionDuration,-                  ("exclusionStartTime" .=) <$>-                    _gcsmpvseExclusionStartTime,-                  ("reason" .=) <$> _gcsmpvseReason,-                  ("sloName" .=) <$> _gcsmpvseSloName])---- | 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 the long-running operation.------ /See:/ 'operationMetadata' smart constructor.-data OperationMetadata =-  OperationMetadata'-    { _omAPIVersion      :: !(Maybe Text)-    , _omEndTime         :: !(Maybe DateTime')-    , _omStatusDetail    :: !(Maybe Text)-    , _omVerb            :: !(Maybe Text)-    , _omCancelRequested :: !(Maybe Bool)-    , _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'------ * 'omEndTime'------ * 'omStatusDetail'------ * 'omVerb'------ * 'omCancelRequested'------ * 'omTarget'------ * 'omCreateTime'-operationMetadata-    :: OperationMetadata-operationMetadata =-  OperationMetadata'-    { _omAPIVersion = Nothing-    , _omEndTime = Nothing-    , _omStatusDetail = Nothing-    , _omVerb = Nothing-    , _omCancelRequested = Nothing-    , _omTarget = Nothing-    , _omCreateTime = Nothing-    }----- | [Output only] API version used to start the operation.-omAPIVersion :: Lens' OperationMetadata (Maybe Text)-omAPIVersion-  = lens _omAPIVersion (\ s a -> s{_omAPIVersion = a})---- | [Output only] The time the operation finished running.-omEndTime :: Lens' OperationMetadata (Maybe UTCTime)-omEndTime-  = lens _omEndTime (\ s a -> s{_omEndTime = a}) .-      mapping _DateTime---- | [Output only] Human-readable status of the operation, if any.-omStatusDetail :: Lens' OperationMetadata (Maybe Text)-omStatusDetail-  = lens _omStatusDetail-      (\ s a -> s{_omStatusDetail = a})---- | [Output only] Name of the verb executed by the operation.-omVerb :: Lens' OperationMetadata (Maybe Text)-omVerb = lens _omVerb (\ s a -> s{_omVerb = a})---- | [Output only] 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\`.-omCancelRequested :: Lens' OperationMetadata (Maybe Bool)-omCancelRequested-  = lens _omCancelRequested-      (\ s a -> s{_omCancelRequested = a})---- | [Output only] Server-defined resource path for the target of the--- operation.-omTarget :: Lens' OperationMetadata (Maybe Text)-omTarget = lens _omTarget (\ s a -> s{_omTarget = a})---- | [Output only] 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 .:? "endTime") <*>-                     (o .:? "statusDetail")-                     <*> (o .:? "verb")-                     <*> (o .:? "cancelRequested")-                     <*> (o .:? "target")-                     <*> (o .:? "createTime"))--instance ToJSON OperationMetadata where-        toJSON OperationMetadata'{..}-          = object-              (catMaybes-                 [("apiVersion" .=) <$> _omAPIVersion,-                  ("endTime" .=) <$> _omEndTime,-                  ("statusDetail" .=) <$> _omStatusDetail,-                  ("verb" .=) <$> _omVerb,-                  ("cancelRequested" .=) <$> _omCancelRequested,-                  ("target" .=) <$> _omTarget,-                  ("createTime" .=) <$> _omCreateTime])---- | Describes provisioned dataplane resources.------ /See:/ 'googleCloudSaasacceleratorManagementProvidersV1ProvisionedResource' smart constructor.-data GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource =-  GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource'-    { _gcsmpvprResourceType :: !(Maybe Text)-    , _gcsmpvprResourceURL  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gcsmpvprResourceType'------ * 'gcsmpvprResourceURL'-googleCloudSaasacceleratorManagementProvidersV1ProvisionedResource-    :: GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource-googleCloudSaasacceleratorManagementProvidersV1ProvisionedResource =-  GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource'-    {_gcsmpvprResourceType = Nothing, _gcsmpvprResourceURL = Nothing}----- | Type of the resource. This can be either a GCP resource or a custom one--- (e.g. another cloud provider\'s VM). For GCP compute resources use--- singular form of the names listed in GCP compute API documentation--- (https:\/\/cloud.google.com\/compute\/docs\/reference\/rest\/v1\/),--- prefixed with \'compute-\', for example: \'compute-instance\',--- \'compute-disk\', \'compute-autoscaler\'.-gcsmpvprResourceType :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource (Maybe Text)-gcsmpvprResourceType-  = lens _gcsmpvprResourceType-      (\ s a -> s{_gcsmpvprResourceType = a})---- | URL identifying the resource, e.g.--- \"https:\/\/www.googleapis.com\/compute\/v1\/projects\/...)\".-gcsmpvprResourceURL :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource (Maybe Text)-gcsmpvprResourceURL-  = lens _gcsmpvprResourceURL-      (\ s a -> s{_gcsmpvprResourceURL = a})--instance FromJSON-           GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource-         where-        parseJSON-          = withObject-              "GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource"-              (\ o ->-                 GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource'-                   <$> (o .:? "resourceType") <*> (o .:? "resourceUrl"))--instance ToJSON-           GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource-         where-        toJSON-          GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource'{..}-          = object-              (catMaybes-                 [("resourceType" .=) <$> _gcsmpvprResourceType,-                  ("resourceUrl" .=) <$> _gcsmpvprResourceURL])---- | ListInstancesResponse is the result of ListInstancesRequest.------ /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-    }----- | The token you can use to retrieve the next page of results. Not returned--- 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---- | A list of instances in the project for the specified location. If the--- {location} value in the request is \"-\", the response contains a list--- of instances from all locations. If any location is unreachable, the--- response will only return instances in reachable locations and the--- \"unreachable\" field will be populated with a list of unreachable--- locations.-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])---- | 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---- | The map between RolloutType and the corresponding RolloutMetadata. This--- is only mutated by rollout service. For actuation implementation, this--- information is pass-through for Rollout management. Producer shall not--- modify by itself. For update of a single entry in this map, the update--- field mask shall follow this sementics: go\/advanced-field-masks------ /See:/ 'googleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata' smart constructor.-newtype GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata =-  GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata'-    { _gcsmpvirmAddtional :: HashMap Text GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gcsmpvirmAddtional'-googleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata-    :: HashMap Text GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata -- ^ 'gcsmpvirmAddtional'-    -> GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata-googleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata pGcsmpvirmAddtional_ =-  GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata'-    {_gcsmpvirmAddtional = _Coerce # pGcsmpvirmAddtional_}---gcsmpvirmAddtional :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata (HashMap Text GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata)-gcsmpvirmAddtional-  = lens _gcsmpvirmAddtional-      (\ s a -> s{_gcsmpvirmAddtional = a})-      . _Coerce--instance FromJSON-           GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata-         where-        parseJSON-          = withObject-              "GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata"-              (\ o ->-                 GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata'-                   <$> (parseJSONObject o))--instance ToJSON-           GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata-         where-        toJSON = toJSON . _gcsmpvirmAddtional---- | The MaintenancePolicies that have been attached to the instance. The key--- must be of the type name of the oneof policy name defined in--- MaintenancePolicy, and the referenced policy must define the same policy--- type. For complete details of MaintenancePolicy, please refer to--- \/\/depot\/google3\/google\/cloud\/saasaccelerator\/maintenancepolicy\/api\/v1\/maintenance_policy_resources.proto------ /See:/ 'googleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames' smart constructor.-newtype GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames =-  GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames'-    { _gcsmpvimpnAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gcsmpvimpnAddtional'-googleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames-    :: HashMap Text Text -- ^ 'gcsmpvimpnAddtional'-    -> GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames-googleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames pGcsmpvimpnAddtional_ =-  GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames'-    {_gcsmpvimpnAddtional = _Coerce # pGcsmpvimpnAddtional_}---gcsmpvimpnAddtional :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames (HashMap Text Text)-gcsmpvimpnAddtional-  = lens _gcsmpvimpnAddtional-      (\ s a -> s{_gcsmpvimpnAddtional = a})-      . _Coerce--instance FromJSON-           GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames-         where-        parseJSON-          = withObject-              "GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames"-              (\ o ->-                 GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames'-                   <$> (parseJSONObject o))--instance ToJSON-           GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames-         where-        toJSON = toJSON . _gcsmpvimpnAddtional---- | A Cloud Filestore instance.------ /See:/ 'instance'' smart constructor.-data Instance =-  Instance'-    { _iEtag          :: !(Maybe Text)-    , _iState         :: !(Maybe InstanceState)-    , _iNetworks      :: !(Maybe [NetworkConfig])-    , _iFileShares    :: !(Maybe [FileShareConfig])-    , _iName          :: !(Maybe Text)-    , _iStatusMessage :: !(Maybe Text)-    , _iTier          :: !(Maybe InstanceTier)-    , _iLabels        :: !(Maybe InstanceLabels)-    , _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:------ * 'iEtag'------ * 'iState'------ * 'iNetworks'------ * 'iFileShares'------ * 'iName'------ * 'iStatusMessage'------ * 'iTier'------ * 'iLabels'------ * 'iDescription'------ * 'iCreateTime'-instance'-    :: Instance-instance' =-  Instance'-    { _iEtag = Nothing-    , _iState = Nothing-    , _iNetworks = Nothing-    , _iFileShares = Nothing-    , _iName = Nothing-    , _iStatusMessage = Nothing-    , _iTier = Nothing-    , _iLabels = Nothing-    , _iDescription = Nothing-    , _iCreateTime = Nothing-    }----- | Server-specified ETag for the instance resource to prevent simultaneous--- updates from overwriting each other.-iEtag :: Lens' Instance (Maybe Text)-iEtag = lens _iEtag (\ s a -> s{_iEtag = a})---- | Output only. The instance state.-iState :: Lens' Instance (Maybe InstanceState)-iState = lens _iState (\ s a -> s{_iState = a})---- | VPC networks to which the instance is connected. For this version, only--- a single network is supported.-iNetworks :: Lens' Instance [NetworkConfig]-iNetworks-  = lens _iNetworks (\ s a -> s{_iNetworks = a}) .-      _Default-      . _Coerce---- | File system shares on the instance. For this version, only a single file--- share is supported.-iFileShares :: Lens' Instance [FileShareConfig]-iFileShares-  = lens _iFileShares (\ s a -> s{_iFileShares = a}) .-      _Default-      . _Coerce---- | Output only. The resource name of the instance, in the format--- projects\/{project_id}\/locations\/{location_id}\/instances\/{instance_id}.-iName :: Lens' Instance (Maybe Text)-iName = lens _iName (\ s a -> s{_iName = a})---- | Output only. Additional information about the instance state, if--- available.-iStatusMessage :: Lens' Instance (Maybe Text)-iStatusMessage-  = lens _iStatusMessage-      (\ s a -> s{_iStatusMessage = a})---- | The service tier of the instance.-iTier :: Lens' Instance (Maybe InstanceTier)-iTier = lens _iTier (\ s a -> s{_iTier = a})---- | Resource labels to represent user provided metadata.-iLabels :: Lens' Instance (Maybe InstanceLabels)-iLabels = lens _iLabels (\ s a -> s{_iLabels = a})---- | Optional. A description of the instance (2048 characters or less).-iDescription :: Lens' Instance (Maybe Text)-iDescription-  = lens _iDescription (\ s a -> s{_iDescription = a})---- | Output only. The time when 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 .:? "etag") <*> (o .:? "state") <*>-                     (o .:? "networks" .!= mempty)-                     <*> (o .:? "fileShares" .!= mempty)-                     <*> (o .:? "name")-                     <*> (o .:? "statusMessage")-                     <*> (o .:? "tier")-                     <*> (o .:? "labels")-                     <*> (o .:? "description")-                     <*> (o .:? "createTime"))--instance ToJSON Instance where-        toJSON Instance'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _iEtag, ("state" .=) <$> _iState,-                  ("networks" .=) <$> _iNetworks,-                  ("fileShares" .=) <$> _iFileShares,-                  ("name" .=) <$> _iName,-                  ("statusMessage" .=) <$> _iStatusMessage,-                  ("tier" .=) <$> _iTier, ("labels" .=) <$> _iLabels,-                  ("description" .=) <$> _iDescription,-                  ("createTime" .=) <$> _iCreateTime])
− gen/Network/Google/File/Types/Sum.hs 
@@ -1,184 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.File.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.File.Types.Sum where--import           Network.Google.Prelude hiding (Bytes)---- | Output only. Current lifecycle state of the resource (e.g. if it\'s--- being created or ready to use).-data GoogleCloudSaasacceleratorManagementProvidersV1InstanceState-    = StateUnspecified-      -- ^ @STATE_UNSPECIFIED@-      -- Unspecified state.-    | Creating-      -- ^ @CREATING@-      -- Instance is being created.-    | Ready-      -- ^ @READY@-      -- Instance has been created and is ready to use.-    | Updating-      -- ^ @UPDATING@-      -- Instance is being updated.-    | Repairing-      -- ^ @REPAIRING@-      -- Instance is unheathy and under repair.-    | Deleting-      -- ^ @DELETING@-      -- Instance is being deleted.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable GoogleCloudSaasacceleratorManagementProvidersV1InstanceState--instance FromHttpApiData GoogleCloudSaasacceleratorManagementProvidersV1InstanceState where-    parseQueryParam = \case-        "STATE_UNSPECIFIED" -> Right StateUnspecified-        "CREATING" -> Right Creating-        "READY" -> Right Ready-        "UPDATING" -> Right Updating-        "REPAIRING" -> Right Repairing-        "DELETING" -> Right Deleting-        x -> Left ("Unable to parse GoogleCloudSaasacceleratorManagementProvidersV1InstanceState from: " <> x)--instance ToHttpApiData GoogleCloudSaasacceleratorManagementProvidersV1InstanceState where-    toQueryParam = \case-        StateUnspecified -> "STATE_UNSPECIFIED"-        Creating -> "CREATING"-        Ready -> "READY"-        Updating -> "UPDATING"-        Repairing -> "REPAIRING"-        Deleting -> "DELETING"--instance FromJSON GoogleCloudSaasacceleratorManagementProvidersV1InstanceState where-    parseJSON = parseJSONText "GoogleCloudSaasacceleratorManagementProvidersV1InstanceState"--instance ToJSON GoogleCloudSaasacceleratorManagementProvidersV1InstanceState where-    toJSON = toJSONText---- | The service tier of the instance.-data InstanceTier-    = TierUnspecified-      -- ^ @TIER_UNSPECIFIED@-      -- Not set.-    | Standard-      -- ^ @STANDARD@-      -- STANDARD tier.-    | Premium-      -- ^ @PREMIUM@-      -- PREMIUM tier.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable InstanceTier--instance FromHttpApiData InstanceTier where-    parseQueryParam = \case-        "TIER_UNSPECIFIED" -> Right TierUnspecified-        "STANDARD" -> Right Standard-        "PREMIUM" -> Right Premium-        x -> Left ("Unable to parse InstanceTier from: " <> x)--instance ToHttpApiData InstanceTier where-    toQueryParam = \case-        TierUnspecified -> "TIER_UNSPECIFIED"-        Standard -> "STANDARD"-        Premium -> "PREMIUM"--instance FromJSON InstanceTier where-    parseJSON = parseJSONText "InstanceTier"--instance ToJSON InstanceTier 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---- | Output only. The instance state.-data InstanceState-    = ISStateUnspecified-      -- ^ @STATE_UNSPECIFIED@-      -- State not set.-    | ISCreating-      -- ^ @CREATING@-      -- The instance is being created.-    | ISReady-      -- ^ @READY@-      -- The instance is available for use.-    | ISRepairing-      -- ^ @REPAIRING@-      -- Work is being done on the instance. You can get further details from the-      -- \`statusMessage\` field of the \`Instance\` resource.-    | ISDeleting-      -- ^ @DELETING@-      -- The instance is shutting down.-    | ISError'-      -- ^ @ERROR@-      -- The instance is experiencing an issue and might be unusable. You can get-      -- further details from the \`statusMessage\` field of the \`Instance\`-      -- resource.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable InstanceState--instance FromHttpApiData InstanceState where-    parseQueryParam = \case-        "STATE_UNSPECIFIED" -> Right ISStateUnspecified-        "CREATING" -> Right ISCreating-        "READY" -> Right ISReady-        "REPAIRING" -> Right ISRepairing-        "DELETING" -> Right ISDeleting-        "ERROR" -> Right ISError'-        x -> Left ("Unable to parse InstanceState from: " <> x)--instance ToHttpApiData InstanceState where-    toQueryParam = \case-        ISStateUnspecified -> "STATE_UNSPECIFIED"-        ISCreating -> "CREATING"-        ISReady -> "READY"-        ISRepairing -> "REPAIRING"-        ISDeleting -> "DELETING"-        ISError' -> "ERROR"--instance FromJSON InstanceState where-    parseJSON = parseJSONText "InstanceState"--instance ToJSON InstanceState where-    toJSON = toJSONText
− gen/Network/Google/Resource/File/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.File.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/filestore/ Cloud Filestore API Reference> for @file.projects.locations.get@.-module Network.Google.Resource.File.Projects.Locations.Get-    (-    -- * REST Resource-      ProjectsLocationsGetResource--    -- * Creating a Request-    , projectsLocationsGet-    , ProjectsLocationsGet--    -- * Request Lenses-    , plgXgafv-    , plgUploadProtocol-    , plgAccessToken-    , plgUploadType-    , plgName-    , plgCallback-    ) where--import           Network.Google.File.Types-import           Network.Google.Prelude---- | A resource alias for @file.projects.locations.get@ method which the--- 'ProjectsLocationsGet' request conforms to.-type ProjectsLocationsGetResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] 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)-              fileService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsLocationsGetResource)-                      mempty
− gen/Network/Google/Resource/File/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.File.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 an instance.------ /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.create@.-module Network.Google.Resource.File.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.File.Types-import           Network.Google.Prelude---- | A resource alias for @file.projects.locations.instances.create@ method which the--- 'ProjectsLocationsInstancesCreate' request conforms to.-type ProjectsLocationsInstancesCreateResource =-     "v1" :>-       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 an instance.------ /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_id}\/locations\/{location}. In Cloud Filestore,--- locations map to GCP zones, for example **us-west1-b**.-plicParent :: Lens' ProjectsLocationsInstancesCreate Text-plicParent-  = lens _plicParent (\ s a -> s{_plicParent = a})---- | The name of the instance to create. The name must be unique for the--- specified project and location.-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-              fileService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsInstancesCreateResource)-                      mempty
− gen/Network/Google/Resource/File/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.File.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 an instance.------ /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.delete@.-module Network.Google.Resource.File.Projects.Locations.Instances.Delete-    (-    -- * REST Resource-      ProjectsLocationsInstancesDeleteResource--    -- * Creating a Request-    , projectsLocationsInstancesDelete-    , ProjectsLocationsInstancesDelete--    -- * Request Lenses-    , plidXgafv-    , plidUploadProtocol-    , plidAccessToken-    , plidUploadType-    , plidName-    , plidCallback-    ) where--import           Network.Google.File.Types-import           Network.Google.Prelude---- | A resource alias for @file.projects.locations.instances.delete@ method which the--- 'ProjectsLocationsInstancesDelete' request conforms to.-type ProjectsLocationsInstancesDeleteResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] Operation---- | Deletes an 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_id}\/locations\/{location}\/instances\/{instance_id}-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)-              fileService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsInstancesDeleteResource)-                      mempty
− gen/Network/Google/Resource/File/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.File.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 the details of a specific instance.------ /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.get@.-module Network.Google.Resource.File.Projects.Locations.Instances.Get-    (-    -- * REST Resource-      ProjectsLocationsInstancesGetResource--    -- * Creating a Request-    , projectsLocationsInstancesGet-    , ProjectsLocationsInstancesGet--    -- * Request Lenses-    , pligXgafv-    , pligUploadProtocol-    , pligAccessToken-    , pligUploadType-    , pligName-    , pligCallback-    ) where--import           Network.Google.File.Types-import           Network.Google.Prelude---- | A resource alias for @file.projects.locations.instances.get@ method which the--- 'ProjectsLocationsInstancesGet' request conforms to.-type ProjectsLocationsInstancesGetResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Instance---- | Gets the details of a specific 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_id}\/locations\/{location}\/instances\/{instance_id}.-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)-              fileService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsInstancesGetResource)-                      mempty
− gen/Network/Google/Resource/File/Projects/Locations/Instances/List.hs 
@@ -1,213 +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.File.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 all instances in a project for either a specified location or for--- all locations.------ /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.list@.-module Network.Google.Resource.File.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.File.Types-import           Network.Google.Prelude---- | A resource alias for @file.projects.locations.instances.list@ method which the--- 'ProjectsLocationsInstancesList' request conforms to.-type ProjectsLocationsInstancesListResource =-     "v1" :>-       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 all instances in a project for either a specified location or for--- all locations.------ /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_id}\/locations\/{location}. In Cloud--- Filestore, locations map to GCP zones, for example **us-west1-b**. To--- retrieve instance information for all locations, use \"-\" for the--- {location} value.-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)-              fileService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsInstancesListResource)-                      mempty
− gen/Network/Google/Resource/File/Projects/Locations/Instances/Patch.hs 
@@ -1,181 +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.File.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 the settings of a specific instance.------ /See:/ <https://cloud.google.com/filestore/ Cloud Filestore API Reference> for @file.projects.locations.instances.patch@.-module Network.Google.Resource.File.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.File.Types-import           Network.Google.Prelude---- | A resource alias for @file.projects.locations.instances.patch@ method which the--- 'ProjectsLocationsInstancesPatch' request conforms to.-type ProjectsLocationsInstancesPatchResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "updateMask" GFieldMask :>-               QueryParam "access_token" Text :>-                 QueryParam "uploadType" Text :>-                   QueryParam "callback" Text :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] Instance :> Patch '[JSON] Operation---- | Updates the settings of a specific 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})---- | Mask of fields to update. At least one path must be supplied in this--- field. The elements of the repeated paths field may only include these--- fields: \"description\"-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 resource name of the instance, in the format--- projects\/{project_id}\/locations\/{location_id}\/instances\/{instance_id}.-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-              fileService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsInstancesPatchResource)-                      mempty
− gen/Network/Google/Resource/File/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.File.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/filestore/ Cloud Filestore API Reference> for @file.projects.locations.list@.-module Network.Google.Resource.File.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.File.Types-import           Network.Google.Prelude---- | A resource alias for @file.projects.locations.list@ method which the--- 'ProjectsLocationsList' request conforms to.-type ProjectsLocationsListResource =-     "v1" :>-       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)-              fileService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsLocationsListResource)-                      mempty
− gen/Network/Google/Resource/File/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.File.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/filestore/ Cloud Filestore API Reference> for @file.projects.locations.operations.cancel@.-module Network.Google.Resource.File.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.File.Types-import           Network.Google.Prelude---- | A resource alias for @file.projects.locations.operations.cancel@ method which the--- 'ProjectsLocationsOperationsCancel' request conforms to.-type ProjectsLocationsOperationsCancelResource =-     "v1" :>-       CaptureMode "name" "cancel" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] CancelOperationRequest :>-                       Post '[JSON] Empty---- | Starts asynchronous cancellation on a long-running operation. The server--- makes a best effort to cancel the operation, but success is not--- guaranteed. If the server doesn\'t support this method, it returns--- \`google.rpc.Code.UNIMPLEMENTED\`. Clients can use--- Operations.GetOperation or other methods to check whether the--- cancellation succeeded or whether the operation completed despite--- cancellation. On successful cancellation, the operation is not deleted;--- instead, it becomes an operation with an Operation.error value with a--- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`.------ /See:/ '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-              fileService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsOperationsCancelResource)-                      mempty
− gen/Network/Google/Resource/File/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.File.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/filestore/ Cloud Filestore API Reference> for @file.projects.locations.operations.delete@.-module Network.Google.Resource.File.Projects.Locations.Operations.Delete-    (-    -- * REST Resource-      ProjectsLocationsOperationsDeleteResource--    -- * Creating a Request-    , projectsLocationsOperationsDelete-    , ProjectsLocationsOperationsDelete--    -- * Request Lenses-    , plodXgafv-    , plodUploadProtocol-    , plodAccessToken-    , plodUploadType-    , plodName-    , plodCallback-    ) where--import           Network.Google.File.Types-import           Network.Google.Prelude---- | A resource alias for @file.projects.locations.operations.delete@ method which the--- 'ProjectsLocationsOperationsDelete' request conforms to.-type ProjectsLocationsOperationsDeleteResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] Empty---- | Deletes a long-running operation. This method indicates that the client--- is no longer interested in the operation result. It does not cancel the--- operation. If the server doesn\'t support this method, it returns--- \`google.rpc.Code.UNIMPLEMENTED\`.------ /See:/ '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)-              fileService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsOperationsDeleteResource)-                      mempty
− gen/Network/Google/Resource/File/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.File.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/filestore/ Cloud Filestore API Reference> for @file.projects.locations.operations.get@.-module Network.Google.Resource.File.Projects.Locations.Operations.Get-    (-    -- * REST Resource-      ProjectsLocationsOperationsGetResource--    -- * Creating a Request-    , projectsLocationsOperationsGet-    , ProjectsLocationsOperationsGet--    -- * Request Lenses-    , plogXgafv-    , plogUploadProtocol-    , plogAccessToken-    , plogUploadType-    , plogName-    , plogCallback-    ) where--import           Network.Google.File.Types-import           Network.Google.Prelude---- | A resource alias for @file.projects.locations.operations.get@ method which the--- 'ProjectsLocationsOperationsGet' request conforms to.-type ProjectsLocationsOperationsGetResource =-     "v1" :>-       Capture "name" Text :>-         QueryParam "$.xgafv" Xgafv :>-           QueryParam "upload_protocol" Text :>-             QueryParam "access_token" Text :>-               QueryParam "uploadType" Text :>-                 QueryParam "callback" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Operation---- | Gets the latest state of a long-running operation. Clients can use this--- method to poll the operation result at intervals as recommended by the--- API service.------ /See:/ '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)-              fileService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsOperationsGetResource)-                      mempty
− gen/Network/Google/Resource/File/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.File.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/filestore/ Cloud Filestore API Reference> for @file.projects.locations.operations.list@.-module Network.Google.Resource.File.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.File.Types-import           Network.Google.Prelude---- | A resource alias for @file.projects.locations.operations.list@ method which the--- 'ProjectsLocationsOperationsList' request conforms to.-type ProjectsLocationsOperationsListResource =-     "v1" :>-       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)-              fileService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsOperationsListResource)-                      mempty
gogol-file.cabal view
@@ -1,57 +1,84 @@-name:                  gogol-file-version:               0.5.0-synopsis:              Google Cloud Filestore 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-file+version:            1.0.0+synopsis:           Google Cloud Filestore 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:-    The Cloud Filestore API is used for creating and managing cloud file-    servers.-    .-    /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.+  The Cloud Filestore API is used for creating and managing cloud file servers.+  .+  /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-file +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.File-        , Network.Google.File.Types-        , Network.Google.Resource.File.Projects.Locations.Get-        , Network.Google.Resource.File.Projects.Locations.Instances.Create-        , Network.Google.Resource.File.Projects.Locations.Instances.Delete-        , Network.Google.Resource.File.Projects.Locations.Instances.Get-        , Network.Google.Resource.File.Projects.Locations.Instances.List-        , Network.Google.Resource.File.Projects.Locations.Instances.Patch-        , Network.Google.Resource.File.Projects.Locations.List-        , Network.Google.Resource.File.Projects.Locations.Operations.Cancel-        , Network.Google.Resource.File.Projects.Locations.Operations.Delete-        , Network.Google.Resource.File.Projects.Locations.Operations.Get-        , Network.Google.Resource.File.Projects.Locations.Operations.List+  exposed-modules:+    Gogol.File+    Gogol.File.Projects.Locations.Backups.Create+    Gogol.File.Projects.Locations.Backups.Delete+    Gogol.File.Projects.Locations.Backups.Get+    Gogol.File.Projects.Locations.Backups.List+    Gogol.File.Projects.Locations.Backups.Patch+    Gogol.File.Projects.Locations.Get+    Gogol.File.Projects.Locations.Instances.Create+    Gogol.File.Projects.Locations.Instances.Delete+    Gogol.File.Projects.Locations.Instances.Get+    Gogol.File.Projects.Locations.Instances.List+    Gogol.File.Projects.Locations.Instances.Patch+    Gogol.File.Projects.Locations.Instances.PromoteReplica+    Gogol.File.Projects.Locations.Instances.Restore+    Gogol.File.Projects.Locations.Instances.Revert+    Gogol.File.Projects.Locations.Instances.Snapshots.Create+    Gogol.File.Projects.Locations.Instances.Snapshots.Delete+    Gogol.File.Projects.Locations.Instances.Snapshots.Get+    Gogol.File.Projects.Locations.Instances.Snapshots.List+    Gogol.File.Projects.Locations.Instances.Snapshots.Patch+    Gogol.File.Projects.Locations.List+    Gogol.File.Projects.Locations.Operations.Cancel+    Gogol.File.Projects.Locations.Operations.Delete+    Gogol.File.Projects.Locations.Operations.Get+    Gogol.File.Projects.Locations.Operations.List+    Gogol.File.Types -    other-modules:-          Network.Google.File.Types.Product-        , Network.Google.File.Types.Sum+  other-modules:+    Gogol.File.Internal.Product+    Gogol.File.Internal.Sum -    build-depends:-          gogol-core == 0.5.0.*-        , base       >= 4.7 && < 5+  build-depends:    gogol-core ^>=1.0.0