gogol-admin-datatransfer 0.5.0 → 1.0.0
raw patch · 21 files changed
+1259/−1322 lines, 21 filesdep −basedep ~gogol-coresetup-changed
Dependencies removed: base
Dependency ranges changed: gogol-core
Files
- README.md +2/−2
- Setup.hs +2/−1
- gen/Gogol/Admin/DataTransfer.hs +101/−0
- gen/Gogol/Admin/DataTransfer/Applications/Get.hs +112/−0
- gen/Gogol/Admin/DataTransfer/Applications/List.hs +120/−0
- gen/Gogol/Admin/DataTransfer/Internal/Product.hs +365/−0
- gen/Gogol/Admin/DataTransfer/Internal/Sum.hs +63/−0
- gen/Gogol/Admin/DataTransfer/Transfers/Get.hs +112/−0
- gen/Gogol/Admin/DataTransfer/Transfers/Insert.hs +110/−0
- gen/Gogol/Admin/DataTransfer/Transfers/List.hs +135/−0
- gen/Gogol/Admin/DataTransfer/Types.hs +82/−0
- gen/Network/Google/DataTransfer.hs +0/−118
- gen/Network/Google/DataTransfer/Types.hs +0/−93
- gen/Network/Google/DataTransfer/Types/Product.hs +0/−511
- gen/Network/Google/DataTransfer/Types/Sum.hs +0/−19
- gen/Network/Google/Resource/DataTransfer/Applications/Get.hs +0/−92
- gen/Network/Google/Resource/DataTransfer/Applications/List.hs +0/−113
- gen/Network/Google/Resource/DataTransfer/Transfers/Get.hs +0/−91
- gen/Network/Google/Resource/DataTransfer/Transfers/Insert.hs +0/−88
- gen/Network/Google/Resource/DataTransfer/Transfers/List.hs +0/−154
- gogol-admin-datatransfer.cabal +55/−40
README.md view
@@ -8,12 +8,12 @@ ## Version -`0.5.0`+`1.0.0` ## Description -A client library for the Google Admin Data Transfer.+A client library for the Google Admin SDK. ## Contribute
Setup.hs view
@@ -1,2 +1,3 @@-import Distribution.Simple+import Distribution.Simple+ main = defaultMain
+ gen/Gogol/Admin/DataTransfer.hs view
@@ -0,0 +1,101 @@+{-# 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.Admin.DataTransfer+-- 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)+--+-- Admin SDK lets administrators of enterprise domains to view and manage resources like user, groups etc. It also provides audit and usage reports of domain.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference>+module Gogol.Admin.DataTransfer+ ( -- * Configuration+ adminDataTransferService,++ -- * OAuth Scopes+ Admin'Datatransfer,+ Admin'Datatransfer'Readonly,++ -- * Resources++ -- ** datatransfer.applications.get+ DatatransferApplicationsGetResource,+ DatatransferApplicationsGet (..),+ newDatatransferApplicationsGet,++ -- ** datatransfer.applications.list+ DatatransferApplicationsListResource,+ DatatransferApplicationsList (..),+ newDatatransferApplicationsList,++ -- ** datatransfer.transfers.get+ DatatransferTransfersGetResource,+ DatatransferTransfersGet (..),+ newDatatransferTransfersGet,++ -- ** datatransfer.transfers.insert+ DatatransferTransfersInsertResource,+ DatatransferTransfersInsert (..),+ newDatatransferTransfersInsert,++ -- ** datatransfer.transfers.list+ DatatransferTransfersListResource,+ DatatransferTransfersList (..),+ newDatatransferTransfersList,++ -- * Types++ -- ** Xgafv+ Xgafv (..),++ -- ** Application+ Application (..),+ newApplication,++ -- ** ApplicationDataTransfer+ ApplicationDataTransfer (..),+ newApplicationDataTransfer,++ -- ** ApplicationTransferParam+ ApplicationTransferParam (..),+ newApplicationTransferParam,++ -- ** ApplicationsListResponse+ ApplicationsListResponse (..),+ newApplicationsListResponse,++ -- ** DataTransfer+ DataTransfer (..),+ newDataTransfer,++ -- ** DataTransfersListResponse+ DataTransfersListResponse (..),+ newDataTransfersListResponse,+ )+where++import Gogol.Admin.DataTransfer.Applications.Get+import Gogol.Admin.DataTransfer.Applications.List+import Gogol.Admin.DataTransfer.Transfers.Get+import Gogol.Admin.DataTransfer.Transfers.Insert+import Gogol.Admin.DataTransfer.Transfers.List+import Gogol.Admin.DataTransfer.Types
+ gen/Gogol/Admin/DataTransfer/Applications/Get.hs view
@@ -0,0 +1,112 @@+{-# 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.Admin.DataTransfer.Applications.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)+--+-- Retrieves information about an application for the given application ID.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @datatransfer.applications.get@.+module Gogol.Admin.DataTransfer.Applications.Get+ ( -- * Resource+ DatatransferApplicationsGetResource,++ -- ** Constructing a Request+ DatatransferApplicationsGet (..),+ newDatatransferApplicationsGet,+ )+where++import Gogol.Admin.DataTransfer.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datatransfer.applications.get@ method which the+-- 'DatatransferApplicationsGet' request conforms to.+type DatatransferApplicationsGetResource =+ "admin"+ Core.:> "datatransfer"+ Core.:> "v1"+ Core.:> "applications"+ Core.:> Core.Capture "applicationId" Core.Int64+ 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] Application++-- | Retrieves information about an application for the given application ID.+--+-- /See:/ 'newDatatransferApplicationsGet' smart constructor.+data DatatransferApplicationsGet = DatatransferApplicationsGet+ { -- | V1 error format.+ xgafv :: (Core.Maybe Xgafv),+ -- | OAuth access token.+ accessToken :: (Core.Maybe Core.Text),+ -- | ID of the application resource to be retrieved.+ applicationId :: Core.Int64,+ -- | JSONP+ callback :: (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 'DatatransferApplicationsGet' with the minimum fields required to make a request.+newDatatransferApplicationsGet ::+ -- | ID of the application resource to be retrieved. See 'applicationId'.+ Core.Int64 ->+ DatatransferApplicationsGet+newDatatransferApplicationsGet applicationId =+ DatatransferApplicationsGet+ { xgafv = Core.Nothing,+ accessToken = Core.Nothing,+ applicationId = applicationId,+ callback = Core.Nothing,+ uploadType = Core.Nothing,+ uploadProtocol = Core.Nothing+ }++instance Core.GoogleRequest DatatransferApplicationsGet where+ type Rs DatatransferApplicationsGet = Application+ type+ Scopes DatatransferApplicationsGet =+ '[Admin'Datatransfer, Admin'Datatransfer'Readonly]+ requestClient DatatransferApplicationsGet {..} =+ go+ applicationId+ xgafv+ accessToken+ callback+ uploadType+ uploadProtocol+ (Core.Just Core.AltJSON)+ adminDataTransferService+ where+ go =+ Core.buildClient+ (Core.Proxy :: Core.Proxy DatatransferApplicationsGetResource)+ Core.mempty
+ gen/Gogol/Admin/DataTransfer/Applications/List.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module : Gogol.Admin.DataTransfer.Applications.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 the applications available for data transfer for a customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @datatransfer.applications.list@.+module Gogol.Admin.DataTransfer.Applications.List+ ( -- * Resource+ DatatransferApplicationsListResource,++ -- ** Constructing a Request+ DatatransferApplicationsList (..),+ newDatatransferApplicationsList,+ )+where++import Gogol.Admin.DataTransfer.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datatransfer.applications.list@ method which the+-- 'DatatransferApplicationsList' request conforms to.+type DatatransferApplicationsListResource =+ "admin"+ Core.:> "datatransfer"+ Core.:> "v1"+ Core.:> "applications"+ Core.:> Core.QueryParam "$.xgafv" Xgafv+ Core.:> Core.QueryParam "access_token" Core.Text+ Core.:> Core.QueryParam "callback" Core.Text+ Core.:> Core.QueryParam "customerId" Core.Text+ Core.:> Core.QueryParam "maxResults" 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] ApplicationsListResponse++-- | Lists the applications available for data transfer for a customer.+--+-- /See:/ 'newDatatransferApplicationsList' smart constructor.+data DatatransferApplicationsList = DatatransferApplicationsList+ { -- | V1 error format.+ xgafv :: (Core.Maybe Xgafv),+ -- | OAuth access token.+ accessToken :: (Core.Maybe Core.Text),+ -- | JSONP+ callback :: (Core.Maybe Core.Text),+ -- | Immutable ID of the Google Workspace account.+ customerId :: (Core.Maybe Core.Text),+ -- | Maximum number of results to return. Default is 100.+ maxResults :: (Core.Maybe Core.Int32),+ -- | Token to specify next page in the list.+ 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 'DatatransferApplicationsList' with the minimum fields required to make a request.+newDatatransferApplicationsList ::+ DatatransferApplicationsList+newDatatransferApplicationsList =+ DatatransferApplicationsList+ { xgafv = Core.Nothing,+ accessToken = Core.Nothing,+ callback = Core.Nothing,+ customerId = Core.Nothing,+ maxResults = Core.Nothing,+ pageToken = Core.Nothing,+ uploadType = Core.Nothing,+ uploadProtocol = Core.Nothing+ }++instance Core.GoogleRequest DatatransferApplicationsList where+ type Rs DatatransferApplicationsList = ApplicationsListResponse+ type+ Scopes DatatransferApplicationsList =+ '[Admin'Datatransfer, Admin'Datatransfer'Readonly]+ requestClient DatatransferApplicationsList {..} =+ go+ xgafv+ accessToken+ callback+ customerId+ maxResults+ pageToken+ uploadType+ uploadProtocol+ (Core.Just Core.AltJSON)+ adminDataTransferService+ where+ go =+ Core.buildClient+ (Core.Proxy :: Core.Proxy DatatransferApplicationsListResource)+ Core.mempty
+ gen/Gogol/Admin/DataTransfer/Internal/Product.hs view
@@ -0,0 +1,365 @@+{-# 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.Admin.DataTransfer.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.Admin.DataTransfer.Internal.Product+ ( -- * Application+ Application (..),+ newApplication,++ -- * ApplicationDataTransfer+ ApplicationDataTransfer (..),+ newApplicationDataTransfer,++ -- * ApplicationTransferParam+ ApplicationTransferParam (..),+ newApplicationTransferParam,++ -- * ApplicationsListResponse+ ApplicationsListResponse (..),+ newApplicationsListResponse,++ -- * DataTransfer+ DataTransfer (..),+ newDataTransfer,++ -- * DataTransfersListResponse+ DataTransfersListResponse (..),+ newDataTransfersListResponse,+ )+where++import Gogol.Admin.DataTransfer.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Application resources represent applications installed on the domain that support transferring ownership of user data.+--+-- /See:/ 'newApplication' smart constructor.+data Application = Application+ { -- | Etag of the resource.+ etag :: (Core.Maybe Core.Text),+ -- | The application\'s ID. Retrievable by using the </admin-sdk/data-transfer/reference/rest/v1/applications/list applications.list()> method.+ id :: (Core.Maybe Core.Int64),+ -- | Identifies the resource as a DataTransfer Application Resource.+ kind :: Core.Text,+ -- | The application\'s name.+ name :: (Core.Maybe Core.Text),+ -- | The list of all possible transfer parameters for this application. These parameters select which categories of the user\'s data to transfer.+ transferParams :: (Core.Maybe [ApplicationTransferParam])+ }+ deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Application' with the minimum fields required to make a request.+newApplication ::+ Application+newApplication =+ Application+ { etag = Core.Nothing,+ id = Core.Nothing,+ kind = "admin#datatransfer#ApplicationResource",+ name = Core.Nothing,+ transferParams = Core.Nothing+ }++instance Core.FromJSON Application where+ parseJSON =+ Core.withObject+ "Application"+ ( \o ->+ Application+ Core.<$> (o Core..:? "etag")+ Core.<*> (o Core..:? "id" Core.<&> Core.fmap Core.fromAsText)+ Core.<*> ( o+ Core..:? "kind"+ Core..!= "admin#datatransfer#ApplicationResource"+ )+ Core.<*> (o Core..:? "name")+ Core.<*> (o Core..:? "transferParams")+ )++instance Core.ToJSON Application where+ toJSON Application {..} =+ Core.object+ ( Core.catMaybes+ [ ("etag" Core..=) Core.<$> etag,+ ("id" Core..=) Core.. Core.AsText Core.<$> id,+ Core.Just ("kind" Core..= kind),+ ("name" Core..=) Core.<$> name,+ ("transferParams" Core..=) Core.<$> transferParams+ ]+ )++-- | Template to map fields of ApplicationDataTransfer resource.+--+-- /See:/ 'newApplicationDataTransfer' smart constructor.+data ApplicationDataTransfer = ApplicationDataTransfer+ { -- | The application\'s ID.+ applicationId :: (Core.Maybe Core.Int64),+ -- | The transfer parameters for the application. These parameters are used to select the data which will get transferred in context of this application. For more information about the specific values available for each application, see the </admin-sdk/data-transfer/v1/parameters Transfer parameters> reference.+ applicationTransferParams :: (Core.Maybe [ApplicationTransferParam]),+ -- | Read-only. Current status of transfer for this application.+ applicationTransferStatus :: (Core.Maybe Core.Text)+ }+ deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ApplicationDataTransfer' with the minimum fields required to make a request.+newApplicationDataTransfer ::+ ApplicationDataTransfer+newApplicationDataTransfer =+ ApplicationDataTransfer+ { applicationId = Core.Nothing,+ applicationTransferParams = Core.Nothing,+ applicationTransferStatus = Core.Nothing+ }++instance Core.FromJSON ApplicationDataTransfer where+ parseJSON =+ Core.withObject+ "ApplicationDataTransfer"+ ( \o ->+ ApplicationDataTransfer+ Core.<$> (o Core..:? "applicationId" Core.<&> Core.fmap Core.fromAsText)+ Core.<*> (o Core..:? "applicationTransferParams")+ Core.<*> (o Core..:? "applicationTransferStatus")+ )++instance Core.ToJSON ApplicationDataTransfer where+ toJSON ApplicationDataTransfer {..} =+ Core.object+ ( Core.catMaybes+ [ ("applicationId" Core..=)+ Core.. Core.AsText+ Core.<$> applicationId,+ ("applicationTransferParams" Core..=)+ Core.<$> applicationTransferParams,+ ("applicationTransferStatus" Core..=)+ Core.<$> applicationTransferStatus+ ]+ )++-- | Template for application transfer parameters.+--+-- /See:/ 'newApplicationTransferParam' smart constructor.+data ApplicationTransferParam = ApplicationTransferParam+ { -- | The type of the transfer parameter, such as @PRIVACY_LEVEL@.+ key :: (Core.Maybe Core.Text),+ -- | The value of the transfer parameter, such as @PRIVATE@ or @SHARED@.+ value :: (Core.Maybe [Core.Text])+ }+ deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ApplicationTransferParam' with the minimum fields required to make a request.+newApplicationTransferParam ::+ ApplicationTransferParam+newApplicationTransferParam =+ ApplicationTransferParam+ { key = Core.Nothing,+ value = Core.Nothing+ }++instance Core.FromJSON ApplicationTransferParam where+ parseJSON =+ Core.withObject+ "ApplicationTransferParam"+ ( \o ->+ ApplicationTransferParam+ Core.<$> (o Core..:? "key")+ Core.<*> (o Core..:? "value")+ )++instance Core.ToJSON ApplicationTransferParam where+ toJSON ApplicationTransferParam {..} =+ Core.object+ ( Core.catMaybes+ [("key" Core..=) Core.<$> key, ("value" Core..=) Core.<$> value]+ )++-- | Template for a collection of Applications.+--+-- /See:/ 'newApplicationsListResponse' smart constructor.+data ApplicationsListResponse = ApplicationsListResponse+ { -- | The list of applications that support data transfer and are also installed for the customer.+ applications :: (Core.Maybe [Application]),+ -- | ETag of the resource.+ etag :: (Core.Maybe Core.Text),+ -- | Identifies the resource as a collection of Applications.+ kind :: Core.Text,+ -- | Token to specify the next page in the list.+ nextPageToken :: (Core.Maybe Core.Text)+ }+ deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ApplicationsListResponse' with the minimum fields required to make a request.+newApplicationsListResponse ::+ ApplicationsListResponse+newApplicationsListResponse =+ ApplicationsListResponse+ { applications = Core.Nothing,+ etag = Core.Nothing,+ kind = "admin#datatransfer#applicationsList",+ nextPageToken = Core.Nothing+ }++instance Core.FromJSON ApplicationsListResponse where+ parseJSON =+ Core.withObject+ "ApplicationsListResponse"+ ( \o ->+ ApplicationsListResponse+ Core.<$> (o Core..:? "applications")+ Core.<*> (o Core..:? "etag")+ Core.<*> (o Core..:? "kind" Core..!= "admin#datatransfer#applicationsList")+ Core.<*> (o Core..:? "nextPageToken")+ )++instance Core.ToJSON ApplicationsListResponse where+ toJSON ApplicationsListResponse {..} =+ Core.object+ ( Core.catMaybes+ [ ("applications" Core..=) Core.<$> applications,+ ("etag" Core..=) Core.<$> etag,+ Core.Just ("kind" Core..= kind),+ ("nextPageToken" Core..=) Core.<$> nextPageToken+ ]+ )++-- | A Transfer resource represents the transfer of the ownership of user data between users.+--+-- /See:/ 'newDataTransfer' smart constructor.+data DataTransfer = DataTransfer+ { -- | The list of per-application data transfer resources. It contains details of the applications associated with this transfer resource, and also specifies the applications for which data transfer has to be done at the time of the transfer resource creation.+ applicationDataTransfers :: (Core.Maybe [ApplicationDataTransfer]),+ -- | ETag of the resource.+ etag :: (Core.Maybe Core.Text),+ -- | Read-only. The transfer\'s ID.+ id :: (Core.Maybe Core.Text),+ -- | Identifies the resource as a DataTransfer request.+ kind :: Core.Text,+ -- | ID of the user to whom the data is being transferred.+ newOwnerUserId' :: (Core.Maybe Core.Text),+ -- | ID of the user whose data is being transferred.+ oldOwnerUserId :: (Core.Maybe Core.Text),+ -- | Read-only. Overall transfer status.+ overallTransferStatusCode :: (Core.Maybe Core.Text),+ -- | Read-only. The time at which the data transfer was requested.+ requestTime :: (Core.Maybe Core.DateTime)+ }+ deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataTransfer' with the minimum fields required to make a request.+newDataTransfer ::+ DataTransfer+newDataTransfer =+ DataTransfer+ { applicationDataTransfers = Core.Nothing,+ etag = Core.Nothing,+ id = Core.Nothing,+ kind = "admin#datatransfer#DataTransfer",+ newOwnerUserId' = Core.Nothing,+ oldOwnerUserId = Core.Nothing,+ overallTransferStatusCode = Core.Nothing,+ requestTime = Core.Nothing+ }++instance Core.FromJSON DataTransfer where+ parseJSON =+ Core.withObject+ "DataTransfer"+ ( \o ->+ DataTransfer+ Core.<$> (o Core..:? "applicationDataTransfers")+ Core.<*> (o Core..:? "etag")+ Core.<*> (o Core..:? "id")+ Core.<*> (o Core..:? "kind" Core..!= "admin#datatransfer#DataTransfer")+ Core.<*> (o Core..:? "newOwnerUserId")+ Core.<*> (o Core..:? "oldOwnerUserId")+ Core.<*> (o Core..:? "overallTransferStatusCode")+ Core.<*> (o Core..:? "requestTime")+ )++instance Core.ToJSON DataTransfer where+ toJSON DataTransfer {..} =+ Core.object+ ( Core.catMaybes+ [ ("applicationDataTransfers" Core..=)+ Core.<$> applicationDataTransfers,+ ("etag" Core..=) Core.<$> etag,+ ("id" Core..=) Core.<$> id,+ Core.Just ("kind" Core..= kind),+ ("newOwnerUserId" Core..=) Core.<$> newOwnerUserId',+ ("oldOwnerUserId" Core..=) Core.<$> oldOwnerUserId,+ ("overallTransferStatusCode" Core..=)+ Core.<$> overallTransferStatusCode,+ ("requestTime" Core..=) Core.<$> requestTime+ ]+ )++-- | Template for a collection of DataTransfer resources.+--+-- /See:/ 'newDataTransfersListResponse' smart constructor.+data DataTransfersListResponse = DataTransfersListResponse+ { -- | List of data transfer requests.+ dataTransfers :: (Core.Maybe [DataTransfer]),+ -- | ETag of the resource.+ etag :: (Core.Maybe Core.Text),+ -- | Identifies the resource as a collection of data transfer requests.+ kind :: Core.Text,+ -- | Token to specify the next page in the list.+ nextPageToken :: (Core.Maybe Core.Text)+ }+ deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataTransfersListResponse' with the minimum fields required to make a request.+newDataTransfersListResponse ::+ DataTransfersListResponse+newDataTransfersListResponse =+ DataTransfersListResponse+ { dataTransfers = Core.Nothing,+ etag = Core.Nothing,+ kind = "admin#datatransfer#dataTransfersList",+ nextPageToken = Core.Nothing+ }++instance Core.FromJSON DataTransfersListResponse where+ parseJSON =+ Core.withObject+ "DataTransfersListResponse"+ ( \o ->+ DataTransfersListResponse+ Core.<$> (o Core..:? "dataTransfers")+ Core.<*> (o Core..:? "etag")+ Core.<*> (o Core..:? "kind" Core..!= "admin#datatransfer#dataTransfersList")+ Core.<*> (o Core..:? "nextPageToken")+ )++instance Core.ToJSON DataTransfersListResponse where+ toJSON DataTransfersListResponse {..} =+ Core.object+ ( Core.catMaybes+ [ ("dataTransfers" Core..=) Core.<$> dataTransfers,+ ("etag" Core..=) Core.<$> etag,+ Core.Just ("kind" Core..= kind),+ ("nextPageToken" Core..=) Core.<$> nextPageToken+ ]+ )
+ gen/Gogol/Admin/DataTransfer/Internal/Sum.hs view
@@ -0,0 +1,63 @@+{-# 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.Admin.DataTransfer.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.Admin.DataTransfer.Internal.Sum+ ( -- * Xgafv+ Xgafv+ ( Xgafv_1,+ Xgafv_2,+ ..+ ),+ )+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+ #-}
+ gen/Gogol/Admin/DataTransfer/Transfers/Get.hs view
@@ -0,0 +1,112 @@+{-# 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.Admin.DataTransfer.Transfers.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)+--+-- Retrieves a data transfer request by its resource ID.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @datatransfer.transfers.get@.+module Gogol.Admin.DataTransfer.Transfers.Get+ ( -- * Resource+ DatatransferTransfersGetResource,++ -- ** Constructing a Request+ DatatransferTransfersGet (..),+ newDatatransferTransfersGet,+ )+where++import Gogol.Admin.DataTransfer.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datatransfer.transfers.get@ method which the+-- 'DatatransferTransfersGet' request conforms to.+type DatatransferTransfersGetResource =+ "admin"+ Core.:> "datatransfer"+ Core.:> "v1"+ Core.:> "transfers"+ Core.:> Core.Capture "dataTransferId" 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] DataTransfer++-- | Retrieves a data transfer request by its resource ID.+--+-- /See:/ 'newDatatransferTransfersGet' smart constructor.+data DatatransferTransfersGet = DatatransferTransfersGet+ { -- | V1 error format.+ xgafv :: (Core.Maybe Xgafv),+ -- | OAuth access token.+ accessToken :: (Core.Maybe Core.Text),+ -- | JSONP+ callback :: (Core.Maybe Core.Text),+ -- | ID of the resource to be retrieved. This is returned in the response from the insert method.+ dataTransferId :: 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 'DatatransferTransfersGet' with the minimum fields required to make a request.+newDatatransferTransfersGet ::+ -- | ID of the resource to be retrieved. This is returned in the response from the insert method. See 'dataTransferId'.+ Core.Text ->+ DatatransferTransfersGet+newDatatransferTransfersGet dataTransferId =+ DatatransferTransfersGet+ { xgafv = Core.Nothing,+ accessToken = Core.Nothing,+ callback = Core.Nothing,+ dataTransferId = dataTransferId,+ uploadType = Core.Nothing,+ uploadProtocol = Core.Nothing+ }++instance Core.GoogleRequest DatatransferTransfersGet where+ type Rs DatatransferTransfersGet = DataTransfer+ type+ Scopes DatatransferTransfersGet =+ '[Admin'Datatransfer, Admin'Datatransfer'Readonly]+ requestClient DatatransferTransfersGet {..} =+ go+ dataTransferId+ xgafv+ accessToken+ callback+ uploadType+ uploadProtocol+ (Core.Just Core.AltJSON)+ adminDataTransferService+ where+ go =+ Core.buildClient+ (Core.Proxy :: Core.Proxy DatatransferTransfersGetResource)+ Core.mempty
+ gen/Gogol/Admin/DataTransfer/Transfers/Insert.hs view
@@ -0,0 +1,110 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module : Gogol.Admin.DataTransfer.Transfers.Insert+-- 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)+--+-- Inserts a data transfer request. See the </admin-sdk/data-transfer/v1/parameters Transfer parameters> reference for specific application requirements.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @datatransfer.transfers.insert@.+module Gogol.Admin.DataTransfer.Transfers.Insert+ ( -- * Resource+ DatatransferTransfersInsertResource,++ -- ** Constructing a Request+ DatatransferTransfersInsert (..),+ newDatatransferTransfersInsert,+ )+where++import Gogol.Admin.DataTransfer.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datatransfer.transfers.insert@ method which the+-- 'DatatransferTransfersInsert' request conforms to.+type DatatransferTransfersInsertResource =+ "admin"+ Core.:> "datatransfer"+ Core.:> "v1"+ Core.:> "transfers"+ 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] DataTransfer+ Core.:> Core.Post '[Core.JSON] DataTransfer++-- | Inserts a data transfer request. See the </admin-sdk/data-transfer/v1/parameters Transfer parameters> reference for specific application requirements.+--+-- /See:/ 'newDatatransferTransfersInsert' smart constructor.+data DatatransferTransfersInsert = DatatransferTransfersInsert+ { -- | V1 error format.+ xgafv :: (Core.Maybe Xgafv),+ -- | OAuth access token.+ accessToken :: (Core.Maybe Core.Text),+ -- | JSONP+ callback :: (Core.Maybe Core.Text),+ -- | Multipart request metadata.+ payload :: DataTransfer,+ -- | 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 'DatatransferTransfersInsert' with the minimum fields required to make a request.+newDatatransferTransfersInsert ::+ -- | Multipart request metadata. See 'payload'.+ DataTransfer ->+ DatatransferTransfersInsert+newDatatransferTransfersInsert payload =+ DatatransferTransfersInsert+ { xgafv = Core.Nothing,+ accessToken = Core.Nothing,+ callback = Core.Nothing,+ payload = payload,+ uploadType = Core.Nothing,+ uploadProtocol = Core.Nothing+ }++instance Core.GoogleRequest DatatransferTransfersInsert where+ type Rs DatatransferTransfersInsert = DataTransfer+ type Scopes DatatransferTransfersInsert = '[Admin'Datatransfer]+ requestClient DatatransferTransfersInsert {..} =+ go+ xgafv+ accessToken+ callback+ uploadType+ uploadProtocol+ (Core.Just Core.AltJSON)+ payload+ adminDataTransferService+ where+ go =+ Core.buildClient+ (Core.Proxy :: Core.Proxy DatatransferTransfersInsertResource)+ Core.mempty
+ gen/Gogol/Admin/DataTransfer/Transfers/List.hs view
@@ -0,0 +1,135 @@+{-# 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.Admin.DataTransfer.Transfers.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 the transfers for a customer by source user, destination user, or status.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @datatransfer.transfers.list@.+module Gogol.Admin.DataTransfer.Transfers.List+ ( -- * Resource+ DatatransferTransfersListResource,++ -- ** Constructing a Request+ DatatransferTransfersList (..),+ newDatatransferTransfersList,+ )+where++import Gogol.Admin.DataTransfer.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @datatransfer.transfers.list@ method which the+-- 'DatatransferTransfersList' request conforms to.+type DatatransferTransfersListResource =+ "admin"+ Core.:> "datatransfer"+ Core.:> "v1"+ Core.:> "transfers"+ Core.:> Core.QueryParam "$.xgafv" Xgafv+ Core.:> Core.QueryParam "access_token" Core.Text+ Core.:> Core.QueryParam "callback" Core.Text+ Core.:> Core.QueryParam "customerId" Core.Text+ Core.:> Core.QueryParam "maxResults" Core.Int32+ Core.:> Core.QueryParam "newOwnerUserId" Core.Text+ Core.:> Core.QueryParam "oldOwnerUserId" Core.Text+ Core.:> Core.QueryParam "pageToken" Core.Text+ Core.:> Core.QueryParam "status" 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] DataTransfersListResponse++-- | Lists the transfers for a customer by source user, destination user, or status.+--+-- /See:/ 'newDatatransferTransfersList' smart constructor.+data DatatransferTransfersList = DatatransferTransfersList+ { -- | V1 error format.+ xgafv :: (Core.Maybe Xgafv),+ -- | OAuth access token.+ accessToken :: (Core.Maybe Core.Text),+ -- | JSONP+ callback :: (Core.Maybe Core.Text),+ -- | Immutable ID of the Google Workspace account.+ customerId :: (Core.Maybe Core.Text),+ -- | Maximum number of results to return. Default is 100.+ maxResults :: (Core.Maybe Core.Int32),+ -- | Destination user\'s profile ID.+ newOwnerUserId' :: (Core.Maybe Core.Text),+ -- | Source user\'s profile ID.+ oldOwnerUserId :: (Core.Maybe Core.Text),+ -- | Token to specify the next page in the list.+ pageToken :: (Core.Maybe Core.Text),+ -- | Status of the transfer.+ status :: (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 'DatatransferTransfersList' with the minimum fields required to make a request.+newDatatransferTransfersList ::+ DatatransferTransfersList+newDatatransferTransfersList =+ DatatransferTransfersList+ { xgafv = Core.Nothing,+ accessToken = Core.Nothing,+ callback = Core.Nothing,+ customerId = Core.Nothing,+ maxResults = Core.Nothing,+ newOwnerUserId' = Core.Nothing,+ oldOwnerUserId = Core.Nothing,+ pageToken = Core.Nothing,+ status = Core.Nothing,+ uploadType = Core.Nothing,+ uploadProtocol = Core.Nothing+ }++instance Core.GoogleRequest DatatransferTransfersList where+ type Rs DatatransferTransfersList = DataTransfersListResponse+ type+ Scopes DatatransferTransfersList =+ '[Admin'Datatransfer, Admin'Datatransfer'Readonly]+ requestClient DatatransferTransfersList {..} =+ go+ xgafv+ accessToken+ callback+ customerId+ maxResults+ newOwnerUserId'+ oldOwnerUserId+ pageToken+ status+ uploadType+ uploadProtocol+ (Core.Just Core.AltJSON)+ adminDataTransferService+ where+ go =+ Core.buildClient+ (Core.Proxy :: Core.Proxy DatatransferTransfersListResource)+ Core.mempty
+ gen/Gogol/Admin/DataTransfer/Types.hs view
@@ -0,0 +1,82 @@+{-# 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.Admin.DataTransfer.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.Admin.DataTransfer.Types+ ( -- * Configuration+ adminDataTransferService,++ -- * OAuth Scopes+ Admin'Datatransfer,+ Admin'Datatransfer'Readonly,++ -- * Types++ -- ** Xgafv+ Xgafv (..),++ -- ** Application+ Application (..),+ newApplication,++ -- ** ApplicationDataTransfer+ ApplicationDataTransfer (..),+ newApplicationDataTransfer,++ -- ** ApplicationTransferParam+ ApplicationTransferParam (..),+ newApplicationTransferParam,++ -- ** ApplicationsListResponse+ ApplicationsListResponse (..),+ newApplicationsListResponse,++ -- ** DataTransfer+ DataTransfer (..),+ newDataTransfer,++ -- ** DataTransfersListResponse+ DataTransfersListResponse (..),+ newDataTransfersListResponse,+ )+where++import Gogol.Admin.DataTransfer.Internal.Product+import Gogol.Admin.DataTransfer.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Default request referring to version @datatransfer_v1@ of the Admin SDK API. This contains the host and root path used as a starting point for constructing service requests.+adminDataTransferService :: Core.ServiceConfig+adminDataTransferService =+ Core.defaultService+ (Core.ServiceId "admin:datatransfer_v1")+ "admin.googleapis.com"++-- | View and manage data transfers between users in your organization+type Admin'Datatransfer =+ "https://www.googleapis.com/auth/admin.datatransfer"++-- | View data transfers between users in your organization+type Admin'Datatransfer'Readonly =+ "https://www.googleapis.com/auth/admin.datatransfer.readonly"
− gen/Network/Google/DataTransfer.hs
@@ -1,118 +0,0 @@-{-# LANGUAGE DataKinds #-}-{-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE TypeOperators #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- |--- Module : Network.Google.DataTransfer--- 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)------ Transfers user data from one user to another.------ /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference>-module Network.Google.DataTransfer- (- -- * Service Configuration- dataTransferService-- -- * OAuth Scopes- , adminDataTransferReadOnlyScope- , adminDataTransferScope-- -- * API Declaration- , DataTransferAPI-- -- * Resources-- -- ** datatransfer.applications.get- , module Network.Google.Resource.DataTransfer.Applications.Get-- -- ** datatransfer.applications.list- , module Network.Google.Resource.DataTransfer.Applications.List-- -- ** datatransfer.transfers.get- , module Network.Google.Resource.DataTransfer.Transfers.Get-- -- ** datatransfer.transfers.insert- , module Network.Google.Resource.DataTransfer.Transfers.Insert-- -- ** datatransfer.transfers.list- , module Network.Google.Resource.DataTransfer.Transfers.List-- -- * Types-- -- ** Application- , Application- , application- , aTransferParams- , aEtag- , aKind- , aName- , aId-- -- ** ApplicationTransferParam- , ApplicationTransferParam- , applicationTransferParam- , atpValue- , atpKey-- -- ** ApplicationsListResponse- , ApplicationsListResponse- , applicationsListResponse- , alrEtag- , alrNextPageToken- , alrKind- , alrApplications-- -- ** DataTransfer- , DataTransfer- , dataTransfer- , dtEtag- , dtOldOwnerUserId- , dtKind- , dtNewOwnerUserId- , dtRequestTime- , dtApplicationDataTransfers- , dtId- , dtOverallTransferStatusCode-- -- ** DataTransfersListResponse- , DataTransfersListResponse- , dataTransfersListResponse- , dtlrEtag- , dtlrNextPageToken- , dtlrKind- , dtlrDataTransfers-- -- ** ApplicationDataTransfer- , ApplicationDataTransfer- , applicationDataTransfer- , adtApplicationTransferParams- , adtApplicationId- , adtApplicationTransferStatus- ) where--import Network.Google.DataTransfer.Types-import Network.Google.Prelude-import Network.Google.Resource.DataTransfer.Applications.Get-import Network.Google.Resource.DataTransfer.Applications.List-import Network.Google.Resource.DataTransfer.Transfers.Get-import Network.Google.Resource.DataTransfer.Transfers.Insert-import Network.Google.Resource.DataTransfer.Transfers.List--{- $resources-TODO--}---- | Represents the entirety of the methods and resources available for the Admin Data Transfer API service.-type DataTransferAPI =- TransfersInsertResource :<|> TransfersListResource- :<|> TransfersGetResource- :<|> ApplicationsListResource- :<|> ApplicationsGetResource
− gen/Network/Google/DataTransfer/Types.hs
@@ -1,93 +0,0 @@-{-# LANGUAGE DataKinds #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE OverloadedStrings #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module : Network.Google.DataTransfer.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.DataTransfer.Types- (- -- * Service Configuration- dataTransferService-- -- * OAuth Scopes- , adminDataTransferReadOnlyScope- , adminDataTransferScope-- -- * Application- , Application- , application- , aTransferParams- , aEtag- , aKind- , aName- , aId-- -- * ApplicationTransferParam- , ApplicationTransferParam- , applicationTransferParam- , atpValue- , atpKey-- -- * ApplicationsListResponse- , ApplicationsListResponse- , applicationsListResponse- , alrEtag- , alrNextPageToken- , alrKind- , alrApplications-- -- * DataTransfer- , DataTransfer- , dataTransfer- , dtEtag- , dtOldOwnerUserId- , dtKind- , dtNewOwnerUserId- , dtRequestTime- , dtApplicationDataTransfers- , dtId- , dtOverallTransferStatusCode-- -- * DataTransfersListResponse- , DataTransfersListResponse- , dataTransfersListResponse- , dtlrEtag- , dtlrNextPageToken- , dtlrKind- , dtlrDataTransfers-- -- * ApplicationDataTransfer- , ApplicationDataTransfer- , applicationDataTransfer- , adtApplicationTransferParams- , adtApplicationId- , adtApplicationTransferStatus- ) where--import Network.Google.DataTransfer.Types.Product-import Network.Google.DataTransfer.Types.Sum-import Network.Google.Prelude---- | Default request referring to version 'datatransfer_v1' of the Admin Data Transfer API. This contains the host and root path used as a starting point for constructing service requests.-dataTransferService :: ServiceConfig-dataTransferService- = defaultService (ServiceId "admin:datatransfer_v1")- "www.googleapis.com"---- | View data transfers between users in your organization-adminDataTransferReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.datatransfer.readonly"]-adminDataTransferReadOnlyScope = Proxy---- | View and manage data transfers between users in your organization-adminDataTransferScope :: Proxy '["https://www.googleapis.com/auth/admin.datatransfer"]-adminDataTransferScope = Proxy
− gen/Network/Google/DataTransfer/Types/Product.hs
@@ -1,511 +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.DataTransfer.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.DataTransfer.Types.Product where--import Network.Google.DataTransfer.Types.Sum-import Network.Google.Prelude---- | The JSON template for an Application resource.------ /See:/ 'application' smart constructor.-data Application =- Application'- { _aTransferParams :: !(Maybe [ApplicationTransferParam])- , _aEtag :: !(Maybe Text)- , _aKind :: !Text- , _aName :: !(Maybe Text)- , _aId :: !(Maybe (Textual Int64))- }- deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Application' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aTransferParams'------ * 'aEtag'------ * 'aKind'------ * 'aName'------ * 'aId'-application- :: Application-application =- Application'- { _aTransferParams = Nothing- , _aEtag = Nothing- , _aKind = "admin#datatransfer#ApplicationResource"- , _aName = Nothing- , _aId = Nothing- }----- | The list of all possible transfer parameters for this application. These--- parameters can be used to select the data of the user in this--- application to be transfered.-aTransferParams :: Lens' Application [ApplicationTransferParam]-aTransferParams- = lens _aTransferParams- (\ s a -> s{_aTransferParams = a})- . _Default- . _Coerce---- | Etag of the resource.-aEtag :: Lens' Application (Maybe Text)-aEtag = lens _aEtag (\ s a -> s{_aEtag = a})---- | Identifies the resource as a DataTransfer Application Resource.-aKind :: Lens' Application Text-aKind = lens _aKind (\ s a -> s{_aKind = a})---- | The application\'s name.-aName :: Lens' Application (Maybe Text)-aName = lens _aName (\ s a -> s{_aName = a})---- | The application\'s ID.-aId :: Lens' Application (Maybe Int64)-aId- = lens _aId (\ s a -> s{_aId = a}) . mapping _Coerce--instance FromJSON Application where- parseJSON- = withObject "Application"- (\ o ->- Application' <$>- (o .:? "transferParams" .!= mempty) <*>- (o .:? "etag")- <*>- (o .:? "kind" .!=- "admin#datatransfer#ApplicationResource")- <*> (o .:? "name")- <*> (o .:? "id"))--instance ToJSON Application where- toJSON Application'{..}- = object- (catMaybes- [("transferParams" .=) <$> _aTransferParams,- ("etag" .=) <$> _aEtag, Just ("kind" .= _aKind),- ("name" .=) <$> _aName, ("id" .=) <$> _aId])---- | Template for application transfer parameters.------ /See:/ 'applicationTransferParam' smart constructor.-data ApplicationTransferParam =- ApplicationTransferParam'- { _atpValue :: !(Maybe [Text])- , _atpKey :: !(Maybe Text)- }- deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ApplicationTransferParam' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'atpValue'------ * 'atpKey'-applicationTransferParam- :: ApplicationTransferParam-applicationTransferParam =- ApplicationTransferParam' {_atpValue = Nothing, _atpKey = Nothing}----- | The value of the coressponding transfer parameter. eg: \'PRIVATE\' or--- \'SHARED\'-atpValue :: Lens' ApplicationTransferParam [Text]-atpValue- = lens _atpValue (\ s a -> s{_atpValue = a}) .- _Default- . _Coerce---- | The type of the transfer parameter. eg: \'PRIVACY_LEVEL\'-atpKey :: Lens' ApplicationTransferParam (Maybe Text)-atpKey = lens _atpKey (\ s a -> s{_atpKey = a})--instance FromJSON ApplicationTransferParam where- parseJSON- = withObject "ApplicationTransferParam"- (\ o ->- ApplicationTransferParam' <$>- (o .:? "value" .!= mempty) <*> (o .:? "key"))--instance ToJSON ApplicationTransferParam where- toJSON ApplicationTransferParam'{..}- = object- (catMaybes- [("value" .=) <$> _atpValue, ("key" .=) <$> _atpKey])---- | Template for a collection of Applications.------ /See:/ 'applicationsListResponse' smart constructor.-data ApplicationsListResponse =- ApplicationsListResponse'- { _alrEtag :: !(Maybe Text)- , _alrNextPageToken :: !(Maybe Text)- , _alrKind :: !Text- , _alrApplications :: !(Maybe [Application])- }- deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ApplicationsListResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'alrEtag'------ * 'alrNextPageToken'------ * 'alrKind'------ * 'alrApplications'-applicationsListResponse- :: ApplicationsListResponse-applicationsListResponse =- ApplicationsListResponse'- { _alrEtag = Nothing- , _alrNextPageToken = Nothing- , _alrKind = "admin#datatransfer#applicationsList"- , _alrApplications = Nothing- }----- | ETag of the resource.-alrEtag :: Lens' ApplicationsListResponse (Maybe Text)-alrEtag = lens _alrEtag (\ s a -> s{_alrEtag = a})---- | Continuation token which will be used to specify next page in list API.-alrNextPageToken :: Lens' ApplicationsListResponse (Maybe Text)-alrNextPageToken- = lens _alrNextPageToken- (\ s a -> s{_alrNextPageToken = a})---- | Identifies the resource as a collection of Applications.-alrKind :: Lens' ApplicationsListResponse Text-alrKind = lens _alrKind (\ s a -> s{_alrKind = a})---- | List of applications that support data transfer and are also installed--- for the customer.-alrApplications :: Lens' ApplicationsListResponse [Application]-alrApplications- = lens _alrApplications- (\ s a -> s{_alrApplications = a})- . _Default- . _Coerce--instance FromJSON ApplicationsListResponse where- parseJSON- = withObject "ApplicationsListResponse"- (\ o ->- ApplicationsListResponse' <$>- (o .:? "etag") <*> (o .:? "nextPageToken") <*>- (o .:? "kind" .!=- "admin#datatransfer#applicationsList")- <*> (o .:? "applications" .!= mempty))--instance ToJSON ApplicationsListResponse where- toJSON ApplicationsListResponse'{..}- = object- (catMaybes- [("etag" .=) <$> _alrEtag,- ("nextPageToken" .=) <$> _alrNextPageToken,- Just ("kind" .= _alrKind),- ("applications" .=) <$> _alrApplications])---- | The JSON template for a DataTransfer resource.------ /See:/ 'dataTransfer' smart constructor.-data DataTransfer =- DataTransfer'- { _dtEtag :: !(Maybe Text)- , _dtOldOwnerUserId :: !(Maybe Text)- , _dtKind :: !Text- , _dtNewOwnerUserId :: !(Maybe Text)- , _dtRequestTime :: !(Maybe DateTime')- , _dtApplicationDataTransfers :: !(Maybe [ApplicationDataTransfer])- , _dtId :: !(Maybe Text)- , _dtOverallTransferStatusCode :: !(Maybe Text)- }- deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DataTransfer' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dtEtag'------ * 'dtOldOwnerUserId'------ * 'dtKind'------ * 'dtNewOwnerUserId'------ * 'dtRequestTime'------ * 'dtApplicationDataTransfers'------ * 'dtId'------ * 'dtOverallTransferStatusCode'-dataTransfer- :: DataTransfer-dataTransfer =- DataTransfer'- { _dtEtag = Nothing- , _dtOldOwnerUserId = Nothing- , _dtKind = "admin#datatransfer#DataTransfer"- , _dtNewOwnerUserId = Nothing- , _dtRequestTime = Nothing- , _dtApplicationDataTransfers = Nothing- , _dtId = Nothing- , _dtOverallTransferStatusCode = Nothing- }----- | ETag of the resource.-dtEtag :: Lens' DataTransfer (Maybe Text)-dtEtag = lens _dtEtag (\ s a -> s{_dtEtag = a})---- | ID of the user whose data is being transfered.-dtOldOwnerUserId :: Lens' DataTransfer (Maybe Text)-dtOldOwnerUserId- = lens _dtOldOwnerUserId- (\ s a -> s{_dtOldOwnerUserId = a})---- | Identifies the resource as a DataTransfer request.-dtKind :: Lens' DataTransfer Text-dtKind = lens _dtKind (\ s a -> s{_dtKind = a})---- | ID of the user to whom the data is being transfered.-dtNewOwnerUserId :: Lens' DataTransfer (Maybe Text)-dtNewOwnerUserId- = lens _dtNewOwnerUserId- (\ s a -> s{_dtNewOwnerUserId = a})---- | The time at which the data transfer was requested (Read-only).-dtRequestTime :: Lens' DataTransfer (Maybe UTCTime)-dtRequestTime- = lens _dtRequestTime- (\ s a -> s{_dtRequestTime = a})- . mapping _DateTime---- | List of per application data transfer resources. It contains data--- transfer details of the applications associated with this transfer--- resource. Note that this list is also used to specify the applications--- for which data transfer has to be done at the time of the transfer--- resource creation.-dtApplicationDataTransfers :: Lens' DataTransfer [ApplicationDataTransfer]-dtApplicationDataTransfers- = lens _dtApplicationDataTransfers- (\ s a -> s{_dtApplicationDataTransfers = a})- . _Default- . _Coerce---- | The transfer\'s ID (Read-only).-dtId :: Lens' DataTransfer (Maybe Text)-dtId = lens _dtId (\ s a -> s{_dtId = a})---- | Overall transfer status (Read-only).-dtOverallTransferStatusCode :: Lens' DataTransfer (Maybe Text)-dtOverallTransferStatusCode- = lens _dtOverallTransferStatusCode- (\ s a -> s{_dtOverallTransferStatusCode = a})--instance FromJSON DataTransfer where- parseJSON- = withObject "DataTransfer"- (\ o ->- DataTransfer' <$>- (o .:? "etag") <*> (o .:? "oldOwnerUserId") <*>- (o .:? "kind" .!= "admin#datatransfer#DataTransfer")- <*> (o .:? "newOwnerUserId")- <*> (o .:? "requestTime")- <*> (o .:? "applicationDataTransfers" .!= mempty)- <*> (o .:? "id")- <*> (o .:? "overallTransferStatusCode"))--instance ToJSON DataTransfer where- toJSON DataTransfer'{..}- = object- (catMaybes- [("etag" .=) <$> _dtEtag,- ("oldOwnerUserId" .=) <$> _dtOldOwnerUserId,- Just ("kind" .= _dtKind),- ("newOwnerUserId" .=) <$> _dtNewOwnerUserId,- ("requestTime" .=) <$> _dtRequestTime,- ("applicationDataTransfers" .=) <$>- _dtApplicationDataTransfers,- ("id" .=) <$> _dtId,- ("overallTransferStatusCode" .=) <$>- _dtOverallTransferStatusCode])---- | Template for a collection of DataTransfer resources.------ /See:/ 'dataTransfersListResponse' smart constructor.-data DataTransfersListResponse =- DataTransfersListResponse'- { _dtlrEtag :: !(Maybe Text)- , _dtlrNextPageToken :: !(Maybe Text)- , _dtlrKind :: !Text- , _dtlrDataTransfers :: !(Maybe [DataTransfer])- }- deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DataTransfersListResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dtlrEtag'------ * 'dtlrNextPageToken'------ * 'dtlrKind'------ * 'dtlrDataTransfers'-dataTransfersListResponse- :: DataTransfersListResponse-dataTransfersListResponse =- DataTransfersListResponse'- { _dtlrEtag = Nothing- , _dtlrNextPageToken = Nothing- , _dtlrKind = "admin#datatransfer#dataTransfersList"- , _dtlrDataTransfers = Nothing- }----- | ETag of the resource.-dtlrEtag :: Lens' DataTransfersListResponse (Maybe Text)-dtlrEtag = lens _dtlrEtag (\ s a -> s{_dtlrEtag = a})---- | Continuation token which will be used to specify next page in list API.-dtlrNextPageToken :: Lens' DataTransfersListResponse (Maybe Text)-dtlrNextPageToken- = lens _dtlrNextPageToken- (\ s a -> s{_dtlrNextPageToken = a})---- | Identifies the resource as a collection of data transfer requests.-dtlrKind :: Lens' DataTransfersListResponse Text-dtlrKind = lens _dtlrKind (\ s a -> s{_dtlrKind = a})---- | List of data transfer requests.-dtlrDataTransfers :: Lens' DataTransfersListResponse [DataTransfer]-dtlrDataTransfers- = lens _dtlrDataTransfers- (\ s a -> s{_dtlrDataTransfers = a})- . _Default- . _Coerce--instance FromJSON DataTransfersListResponse where- parseJSON- = withObject "DataTransfersListResponse"- (\ o ->- DataTransfersListResponse' <$>- (o .:? "etag") <*> (o .:? "nextPageToken") <*>- (o .:? "kind" .!=- "admin#datatransfer#dataTransfersList")- <*> (o .:? "dataTransfers" .!= mempty))--instance ToJSON DataTransfersListResponse where- toJSON DataTransfersListResponse'{..}- = object- (catMaybes- [("etag" .=) <$> _dtlrEtag,- ("nextPageToken" .=) <$> _dtlrNextPageToken,- Just ("kind" .= _dtlrKind),- ("dataTransfers" .=) <$> _dtlrDataTransfers])---- | Template to map fields of ApplicationDataTransfer resource.------ /See:/ 'applicationDataTransfer' smart constructor.-data ApplicationDataTransfer =- ApplicationDataTransfer'- { _adtApplicationTransferParams :: !(Maybe [ApplicationTransferParam])- , _adtApplicationId :: !(Maybe (Textual Int64))- , _adtApplicationTransferStatus :: !(Maybe Text)- }- deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ApplicationDataTransfer' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'adtApplicationTransferParams'------ * 'adtApplicationId'------ * 'adtApplicationTransferStatus'-applicationDataTransfer- :: ApplicationDataTransfer-applicationDataTransfer =- ApplicationDataTransfer'- { _adtApplicationTransferParams = Nothing- , _adtApplicationId = Nothing- , _adtApplicationTransferStatus = Nothing- }----- | The transfer parameters for the application. These parameters are used--- to select the data which will get transfered in context of this--- application.-adtApplicationTransferParams :: Lens' ApplicationDataTransfer [ApplicationTransferParam]-adtApplicationTransferParams- = lens _adtApplicationTransferParams- (\ s a -> s{_adtApplicationTransferParams = a})- . _Default- . _Coerce---- | The application\'s ID.-adtApplicationId :: Lens' ApplicationDataTransfer (Maybe Int64)-adtApplicationId- = lens _adtApplicationId- (\ s a -> s{_adtApplicationId = a})- . mapping _Coerce---- | Current status of transfer for this application. (Read-only)-adtApplicationTransferStatus :: Lens' ApplicationDataTransfer (Maybe Text)-adtApplicationTransferStatus- = lens _adtApplicationTransferStatus- (\ s a -> s{_adtApplicationTransferStatus = a})--instance FromJSON ApplicationDataTransfer where- parseJSON- = withObject "ApplicationDataTransfer"- (\ o ->- ApplicationDataTransfer' <$>- (o .:? "applicationTransferParams" .!= mempty) <*>- (o .:? "applicationId")- <*> (o .:? "applicationTransferStatus"))--instance ToJSON ApplicationDataTransfer where- toJSON ApplicationDataTransfer'{..}- = object- (catMaybes- [("applicationTransferParams" .=) <$>- _adtApplicationTransferParams,- ("applicationId" .=) <$> _adtApplicationId,- ("applicationTransferStatus" .=) <$>- _adtApplicationTransferStatus])
− gen/Network/Google/DataTransfer/Types/Sum.hs
@@ -1,19 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE LambdaCase #-}-{-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE OverloadedStrings #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module : Network.Google.DataTransfer.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.DataTransfer.Types.Sum where--import Network.Google.Prelude hiding (Bytes)
− gen/Network/Google/Resource/DataTransfer/Applications/Get.hs
@@ -1,92 +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.DataTransfer.Applications.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)------ Retrieves information about an application for the given application ID.------ /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @datatransfer.applications.get@.-module Network.Google.Resource.DataTransfer.Applications.Get- (- -- * REST Resource- ApplicationsGetResource-- -- * Creating a Request- , applicationsGet- , ApplicationsGet-- -- * Request Lenses- , agApplicationId- ) where--import Network.Google.DataTransfer.Types-import Network.Google.Prelude---- | A resource alias for @datatransfer.applications.get@ method which the--- 'ApplicationsGet' request conforms to.-type ApplicationsGetResource =- "admin" :>- "datatransfer" :>- "v1" :>- "applications" :>- Capture "applicationId" (Textual Int64) :>- QueryParam "alt" AltJSON :> Get '[JSON] Application---- | Retrieves information about an application for the given application ID.------ /See:/ 'applicationsGet' smart constructor.-newtype ApplicationsGet =- ApplicationsGet'- { _agApplicationId :: Textual Int64- }- deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ApplicationsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'agApplicationId'-applicationsGet- :: Int64 -- ^ 'agApplicationId'- -> ApplicationsGet-applicationsGet pAgApplicationId_ =- ApplicationsGet' {_agApplicationId = _Coerce # pAgApplicationId_}----- | ID of the application resource to be retrieved.-agApplicationId :: Lens' ApplicationsGet Int64-agApplicationId- = lens _agApplicationId- (\ s a -> s{_agApplicationId = a})- . _Coerce--instance GoogleRequest ApplicationsGet where- type Rs ApplicationsGet = Application- type Scopes ApplicationsGet =- '["https://www.googleapis.com/auth/admin.datatransfer",- "https://www.googleapis.com/auth/admin.datatransfer.readonly"]- requestClient ApplicationsGet'{..}- = go _agApplicationId (Just AltJSON)- dataTransferService- where go- = buildClient- (Proxy :: Proxy ApplicationsGetResource)- mempty
− gen/Network/Google/Resource/DataTransfer/Applications/List.hs
@@ -1,113 +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.DataTransfer.Applications.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 the applications available for data transfer for a customer.------ /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @datatransfer.applications.list@.-module Network.Google.Resource.DataTransfer.Applications.List- (- -- * REST Resource- ApplicationsListResource-- -- * Creating a Request- , applicationsList- , ApplicationsList-- -- * Request Lenses- , alCustomerId- , alPageToken- , alMaxResults- ) where--import Network.Google.DataTransfer.Types-import Network.Google.Prelude---- | A resource alias for @datatransfer.applications.list@ method which the--- 'ApplicationsList' request conforms to.-type ApplicationsListResource =- "admin" :>- "datatransfer" :>- "v1" :>- "applications" :>- QueryParam "customerId" Text :>- QueryParam "pageToken" Text :>- QueryParam "maxResults" (Textual Int32) :>- QueryParam "alt" AltJSON :>- Get '[JSON] ApplicationsListResponse---- | Lists the applications available for data transfer for a customer.------ /See:/ 'applicationsList' smart constructor.-data ApplicationsList =- ApplicationsList'- { _alCustomerId :: !(Maybe Text)- , _alPageToken :: !(Maybe Text)- , _alMaxResults :: !(Maybe (Textual Int32))- }- deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ApplicationsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'alCustomerId'------ * 'alPageToken'------ * 'alMaxResults'-applicationsList- :: ApplicationsList-applicationsList =- ApplicationsList'- {_alCustomerId = Nothing, _alPageToken = Nothing, _alMaxResults = Nothing}----- | Immutable ID of the Google Apps account.-alCustomerId :: Lens' ApplicationsList (Maybe Text)-alCustomerId- = lens _alCustomerId (\ s a -> s{_alCustomerId = a})---- | Token to specify next page in the list.-alPageToken :: Lens' ApplicationsList (Maybe Text)-alPageToken- = lens _alPageToken (\ s a -> s{_alPageToken = a})---- | Maximum number of results to return. Default is 100.-alMaxResults :: Lens' ApplicationsList (Maybe Int32)-alMaxResults- = lens _alMaxResults (\ s a -> s{_alMaxResults = a})- . mapping _Coerce--instance GoogleRequest ApplicationsList where- type Rs ApplicationsList = ApplicationsListResponse- type Scopes ApplicationsList =- '["https://www.googleapis.com/auth/admin.datatransfer",- "https://www.googleapis.com/auth/admin.datatransfer.readonly"]- requestClient ApplicationsList'{..}- = go _alCustomerId _alPageToken _alMaxResults- (Just AltJSON)- dataTransferService- where go- = buildClient- (Proxy :: Proxy ApplicationsListResource)- mempty
− gen/Network/Google/Resource/DataTransfer/Transfers/Get.hs
@@ -1,91 +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.DataTransfer.Transfers.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)------ Retrieves a data transfer request by its resource ID.------ /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @datatransfer.transfers.get@.-module Network.Google.Resource.DataTransfer.Transfers.Get- (- -- * REST Resource- TransfersGetResource-- -- * Creating a Request- , transfersGet- , TransfersGet-- -- * Request Lenses- , tgDataTransferId- ) where--import Network.Google.DataTransfer.Types-import Network.Google.Prelude---- | A resource alias for @datatransfer.transfers.get@ method which the--- 'TransfersGet' request conforms to.-type TransfersGetResource =- "admin" :>- "datatransfer" :>- "v1" :>- "transfers" :>- Capture "dataTransferId" Text :>- QueryParam "alt" AltJSON :> Get '[JSON] DataTransfer---- | Retrieves a data transfer request by its resource ID.------ /See:/ 'transfersGet' smart constructor.-newtype TransfersGet =- TransfersGet'- { _tgDataTransferId :: Text- }- deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TransfersGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tgDataTransferId'-transfersGet- :: Text -- ^ 'tgDataTransferId'- -> TransfersGet-transfersGet pTgDataTransferId_ =- TransfersGet' {_tgDataTransferId = pTgDataTransferId_}----- | ID of the resource to be retrieved. This is returned in the response--- from the insert method.-tgDataTransferId :: Lens' TransfersGet Text-tgDataTransferId- = lens _tgDataTransferId- (\ s a -> s{_tgDataTransferId = a})--instance GoogleRequest TransfersGet where- type Rs TransfersGet = DataTransfer- type Scopes TransfersGet =- '["https://www.googleapis.com/auth/admin.datatransfer",- "https://www.googleapis.com/auth/admin.datatransfer.readonly"]- requestClient TransfersGet'{..}- = go _tgDataTransferId (Just AltJSON)- dataTransferService- where go- = buildClient (Proxy :: Proxy TransfersGetResource)- mempty
− gen/Network/Google/Resource/DataTransfer/Transfers/Insert.hs
@@ -1,88 +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.DataTransfer.Transfers.Insert--- 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)------ Inserts a data transfer request.------ /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @datatransfer.transfers.insert@.-module Network.Google.Resource.DataTransfer.Transfers.Insert- (- -- * REST Resource- TransfersInsertResource-- -- * Creating a Request- , transfersInsert- , TransfersInsert-- -- * Request Lenses- , tiPayload- ) where--import Network.Google.DataTransfer.Types-import Network.Google.Prelude---- | A resource alias for @datatransfer.transfers.insert@ method which the--- 'TransfersInsert' request conforms to.-type TransfersInsertResource =- "admin" :>- "datatransfer" :>- "v1" :>- "transfers" :>- QueryParam "alt" AltJSON :>- ReqBody '[JSON] DataTransfer :>- Post '[JSON] DataTransfer---- | Inserts a data transfer request.------ /See:/ 'transfersInsert' smart constructor.-newtype TransfersInsert =- TransfersInsert'- { _tiPayload :: DataTransfer- }- deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TransfersInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tiPayload'-transfersInsert- :: DataTransfer -- ^ 'tiPayload'- -> TransfersInsert-transfersInsert pTiPayload_ = TransfersInsert' {_tiPayload = pTiPayload_}----- | Multipart request metadata.-tiPayload :: Lens' TransfersInsert DataTransfer-tiPayload- = lens _tiPayload (\ s a -> s{_tiPayload = a})--instance GoogleRequest TransfersInsert where- type Rs TransfersInsert = DataTransfer- type Scopes TransfersInsert =- '["https://www.googleapis.com/auth/admin.datatransfer"]- requestClient TransfersInsert'{..}- = go (Just AltJSON) _tiPayload dataTransferService- where go- = buildClient- (Proxy :: Proxy TransfersInsertResource)- mempty
− gen/Network/Google/Resource/DataTransfer/Transfers/List.hs
@@ -1,154 +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.DataTransfer.Transfers.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 the transfers for a customer by source user, destination user, or--- status.------ /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @datatransfer.transfers.list@.-module Network.Google.Resource.DataTransfer.Transfers.List- (- -- * REST Resource- TransfersListResource-- -- * Creating a Request- , transfersList- , TransfersList-- -- * Request Lenses- , tlStatus- , tlOldOwnerUserId- , tlNewOwnerUserId- , tlCustomerId- , tlPageToken- , tlMaxResults- ) where--import Network.Google.DataTransfer.Types-import Network.Google.Prelude---- | A resource alias for @datatransfer.transfers.list@ method which the--- 'TransfersList' request conforms to.-type TransfersListResource =- "admin" :>- "datatransfer" :>- "v1" :>- "transfers" :>- QueryParam "status" Text :>- QueryParam "oldOwnerUserId" Text :>- QueryParam "newOwnerUserId" Text :>- QueryParam "customerId" Text :>- QueryParam "pageToken" Text :>- QueryParam "maxResults" (Textual Int32) :>- QueryParam "alt" AltJSON :>- Get '[JSON] DataTransfersListResponse---- | Lists the transfers for a customer by source user, destination user, or--- status.------ /See:/ 'transfersList' smart constructor.-data TransfersList =- TransfersList'- { _tlStatus :: !(Maybe Text)- , _tlOldOwnerUserId :: !(Maybe Text)- , _tlNewOwnerUserId :: !(Maybe Text)- , _tlCustomerId :: !(Maybe Text)- , _tlPageToken :: !(Maybe Text)- , _tlMaxResults :: !(Maybe (Textual Int32))- }- deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TransfersList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tlStatus'------ * 'tlOldOwnerUserId'------ * 'tlNewOwnerUserId'------ * 'tlCustomerId'------ * 'tlPageToken'------ * 'tlMaxResults'-transfersList- :: TransfersList-transfersList =- TransfersList'- { _tlStatus = Nothing- , _tlOldOwnerUserId = Nothing- , _tlNewOwnerUserId = Nothing- , _tlCustomerId = Nothing- , _tlPageToken = Nothing- , _tlMaxResults = Nothing- }----- | Status of the transfer.-tlStatus :: Lens' TransfersList (Maybe Text)-tlStatus = lens _tlStatus (\ s a -> s{_tlStatus = a})---- | Source user\'s profile ID.-tlOldOwnerUserId :: Lens' TransfersList (Maybe Text)-tlOldOwnerUserId- = lens _tlOldOwnerUserId- (\ s a -> s{_tlOldOwnerUserId = a})---- | Destination user\'s profile ID.-tlNewOwnerUserId :: Lens' TransfersList (Maybe Text)-tlNewOwnerUserId- = lens _tlNewOwnerUserId- (\ s a -> s{_tlNewOwnerUserId = a})---- | Immutable ID of the Google Apps account.-tlCustomerId :: Lens' TransfersList (Maybe Text)-tlCustomerId- = lens _tlCustomerId (\ s a -> s{_tlCustomerId = a})---- | Token to specify the next page in the list.-tlPageToken :: Lens' TransfersList (Maybe Text)-tlPageToken- = lens _tlPageToken (\ s a -> s{_tlPageToken = a})---- | Maximum number of results to return. Default is 100.-tlMaxResults :: Lens' TransfersList (Maybe Int32)-tlMaxResults- = lens _tlMaxResults (\ s a -> s{_tlMaxResults = a})- . mapping _Coerce--instance GoogleRequest TransfersList where- type Rs TransfersList = DataTransfersListResponse- type Scopes TransfersList =- '["https://www.googleapis.com/auth/admin.datatransfer",- "https://www.googleapis.com/auth/admin.datatransfer.readonly"]- requestClient TransfersList'{..}- = go _tlStatus _tlOldOwnerUserId _tlNewOwnerUserId- _tlCustomerId- _tlPageToken- _tlMaxResults- (Just AltJSON)- dataTransferService- where go- = buildClient (Proxy :: Proxy TransfersListResource)- mempty
gogol-admin-datatransfer.cabal view
@@ -1,50 +1,65 @@-name: gogol-admin-datatransfer-version: 0.5.0-synopsis: Google Admin Data Transfer 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-admin-datatransfer+version: 1.0.0+synopsis: Google Admin 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:- Transfers user data from one user to another.- .- /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 @datatransfer_v1@- of the API.+ Admin SDK lets administrators of enterprise domains to view and manage resources like user, groups etc. It also provides audit and usage reports of domain.+ .+ /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 @datatransfer_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-admin-datatransfer +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.DataTransfer- , Network.Google.DataTransfer.Types- , Network.Google.Resource.DataTransfer.Applications.Get- , Network.Google.Resource.DataTransfer.Applications.List- , Network.Google.Resource.DataTransfer.Transfers.Get- , Network.Google.Resource.DataTransfer.Transfers.Insert- , Network.Google.Resource.DataTransfer.Transfers.List+ exposed-modules:+ Gogol.Admin.DataTransfer+ Gogol.Admin.DataTransfer.Applications.Get+ Gogol.Admin.DataTransfer.Applications.List+ Gogol.Admin.DataTransfer.Transfers.Get+ Gogol.Admin.DataTransfer.Transfers.Insert+ Gogol.Admin.DataTransfer.Transfers.List+ Gogol.Admin.DataTransfer.Types - other-modules:- Network.Google.DataTransfer.Types.Product- , Network.Google.DataTransfer.Types.Sum+ other-modules:+ Gogol.Admin.DataTransfer.Internal.Product+ Gogol.Admin.DataTransfer.Internal.Sum - build-depends:- gogol-core == 0.5.0.*- , base >= 4.7 && < 5+ build-depends: gogol-core ^>=1.0.0