packages feed

gogol-drive 0.5.0 → 1.0.0

raw patch · 115 files changed

+13924/−13361 lines, 115 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/Drive.hs view
@@ -0,0 +1,701 @@+{-# 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.Drive+-- 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 Google Drive API allows clients to access resources from Google Drive.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference>+module Gogol.Drive+  ( -- * Configuration+    driveService,++    -- * OAuth Scopes+    Drive'FullControl,+    Drive'Appdata,+    Drive'Apps'Readonly,+    Drive'File,+    Drive'Meet'Readonly,+    Drive'Metadata,+    Drive'Metadata'Readonly,+    Drive'Photos'Readonly,+    Drive'Readonly,+    Drive'Scripts,++    -- * Resources++    -- ** drive.about.get+    DriveAboutGetResource,+    DriveAboutGet (..),+    newDriveAboutGet,++    -- ** drive.accessproposals.get+    DriveAccessproposalsGetResource,+    DriveAccessproposalsGet (..),+    newDriveAccessproposalsGet,++    -- ** drive.accessproposals.list+    DriveAccessproposalsListResource,+    DriveAccessproposalsList (..),+    newDriveAccessproposalsList,++    -- ** drive.accessproposals.resolve+    DriveAccessproposalsResolveResource,+    DriveAccessproposalsResolve (..),+    newDriveAccessproposalsResolve,++    -- ** drive.apps.get+    DriveAppsGetResource,+    DriveAppsGet (..),+    newDriveAppsGet,++    -- ** drive.apps.list+    DriveAppsListResource,+    DriveAppsList (..),+    newDriveAppsList,++    -- ** drive.changes.getStartPageToken+    DriveChangesGetStartPageTokenResource,+    DriveChangesGetStartPageToken (..),+    newDriveChangesGetStartPageToken,++    -- ** drive.changes.list+    DriveChangesListResource,+    DriveChangesList (..),+    newDriveChangesList,++    -- ** drive.changes.watch+    DriveChangesWatchResource,+    DriveChangesWatch (..),+    newDriveChangesWatch,++    -- ** drive.channels.stop+    DriveChannelsStopResource,+    DriveChannelsStop (..),+    newDriveChannelsStop,++    -- ** drive.comments.create+    DriveCommentsCreateResource,+    DriveCommentsCreate (..),+    newDriveCommentsCreate,++    -- ** drive.comments.delete+    DriveCommentsDeleteResource,+    DriveCommentsDelete (..),+    newDriveCommentsDelete,++    -- ** drive.comments.get+    DriveCommentsGetResource,+    DriveCommentsGet (..),+    newDriveCommentsGet,++    -- ** drive.comments.list+    DriveCommentsListResource,+    DriveCommentsList (..),+    newDriveCommentsList,++    -- ** drive.comments.update+    DriveCommentsUpdateResource,+    DriveCommentsUpdate (..),+    newDriveCommentsUpdate,++    -- ** drive.drives.create+    DriveDrivesCreateResource,+    DriveDrivesCreate (..),+    newDriveDrivesCreate,++    -- ** drive.drives.delete+    DriveDrivesDeleteResource,+    DriveDrivesDelete (..),+    newDriveDrivesDelete,++    -- ** drive.drives.get+    DriveDrivesGetResource,+    DriveDrivesGet (..),+    newDriveDrivesGet,++    -- ** drive.drives.hide+    DriveDrivesHideResource,+    DriveDrivesHide (..),+    newDriveDrivesHide,++    -- ** drive.drives.list+    DriveDrivesListResource,+    DriveDrivesList (..),+    newDriveDrivesList,++    -- ** drive.drives.unhide+    DriveDrivesUnhideResource,+    DriveDrivesUnhide (..),+    newDriveDrivesUnhide,++    -- ** drive.drives.update+    DriveDrivesUpdateResource,+    DriveDrivesUpdate (..),+    newDriveDrivesUpdate,++    -- ** drive.files.copy+    DriveFilesCopyResource,+    DriveFilesCopy (..),+    newDriveFilesCopy,++    -- ** drive.files.create+    DriveFilesCreateResource,+    DriveFilesCreate (..),+    newDriveFilesCreate,++    -- ** drive.files.delete+    DriveFilesDeleteResource,+    DriveFilesDelete (..),+    newDriveFilesDelete,++    -- ** drive.files.download+    DriveFilesDownloadResource,+    DriveFilesDownload (..),+    newDriveFilesDownload,++    -- ** drive.files.emptyTrash+    DriveFilesEmptyTrashResource,+    DriveFilesEmptyTrash (..),+    newDriveFilesEmptyTrash,++    -- ** drive.files.export+    DriveFilesExportResource,+    DriveFilesExport (..),+    newDriveFilesExport,++    -- ** drive.files.generateIds+    DriveFilesGenerateIdsResource,+    DriveFilesGenerateIds (..),+    newDriveFilesGenerateIds,++    -- ** drive.files.get+    DriveFilesGetResource,+    DriveFilesGet (..),+    newDriveFilesGet,++    -- ** drive.files.list+    DriveFilesListResource,+    DriveFilesList (..),+    newDriveFilesList,++    -- ** drive.files.listLabels+    DriveFilesListLabelsResource,+    DriveFilesListLabels (..),+    newDriveFilesListLabels,++    -- ** drive.files.modifyLabels+    DriveFilesModifyLabelsResource,+    DriveFilesModifyLabels (..),+    newDriveFilesModifyLabels,++    -- ** drive.files.update+    DriveFilesUpdateResource,+    DriveFilesUpdate (..),+    newDriveFilesUpdate,++    -- ** drive.files.watch+    DriveFilesWatchResource,+    DriveFilesWatch (..),+    newDriveFilesWatch,++    -- ** drive.operations.cancel+    DriveOperationsCancelResource,+    DriveOperationsCancel (..),+    newDriveOperationsCancel,++    -- ** drive.operations.delete+    DriveOperationsDeleteResource,+    DriveOperationsDelete (..),+    newDriveOperationsDelete,++    -- ** drive.operations.get+    DriveOperationsGetResource,+    DriveOperationsGet (..),+    newDriveOperationsGet,++    -- ** drive.operations.list+    DriveOperationsListResource,+    DriveOperationsList (..),+    newDriveOperationsList,++    -- ** drive.permissions.create+    DrivePermissionsCreateResource,+    DrivePermissionsCreate (..),+    newDrivePermissionsCreate,++    -- ** drive.permissions.delete+    DrivePermissionsDeleteResource,+    DrivePermissionsDelete (..),+    newDrivePermissionsDelete,++    -- ** drive.permissions.get+    DrivePermissionsGetResource,+    DrivePermissionsGet (..),+    newDrivePermissionsGet,++    -- ** drive.permissions.list+    DrivePermissionsListResource,+    DrivePermissionsList (..),+    newDrivePermissionsList,++    -- ** drive.permissions.update+    DrivePermissionsUpdateResource,+    DrivePermissionsUpdate (..),+    newDrivePermissionsUpdate,++    -- ** drive.replies.create+    DriveRepliesCreateResource,+    DriveRepliesCreate (..),+    newDriveRepliesCreate,++    -- ** drive.replies.delete+    DriveRepliesDeleteResource,+    DriveRepliesDelete (..),+    newDriveRepliesDelete,++    -- ** drive.replies.get+    DriveRepliesGetResource,+    DriveRepliesGet (..),+    newDriveRepliesGet,++    -- ** drive.replies.list+    DriveRepliesListResource,+    DriveRepliesList (..),+    newDriveRepliesList,++    -- ** drive.replies.update+    DriveRepliesUpdateResource,+    DriveRepliesUpdate (..),+    newDriveRepliesUpdate,++    -- ** drive.revisions.delete+    DriveRevisionsDeleteResource,+    DriveRevisionsDelete (..),+    newDriveRevisionsDelete,++    -- ** drive.revisions.get+    DriveRevisionsGetResource,+    DriveRevisionsGet (..),+    newDriveRevisionsGet,++    -- ** drive.revisions.list+    DriveRevisionsListResource,+    DriveRevisionsList (..),+    newDriveRevisionsList,++    -- ** drive.revisions.update+    DriveRevisionsUpdateResource,+    DriveRevisionsUpdate (..),+    newDriveRevisionsUpdate,++    -- ** drive.teamdrives.create+    DriveTeamdrivesCreateResource,+    DriveTeamdrivesCreate (..),+    newDriveTeamdrivesCreate,++    -- ** drive.teamdrives.delete+    DriveTeamdrivesDeleteResource,+    DriveTeamdrivesDelete (..),+    newDriveTeamdrivesDelete,++    -- ** drive.teamdrives.get+    DriveTeamdrivesGetResource,+    DriveTeamdrivesGet (..),+    newDriveTeamdrivesGet,++    -- ** drive.teamdrives.list+    DriveTeamdrivesListResource,+    DriveTeamdrivesList (..),+    newDriveTeamdrivesList,++    -- ** drive.teamdrives.update+    DriveTeamdrivesUpdateResource,+    DriveTeamdrivesUpdate (..),+    newDriveTeamdrivesUpdate,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** About+    About (..),+    newAbout,++    -- ** About_DriveThemesItem+    About_DriveThemesItem (..),+    newAbout_DriveThemesItem,++    -- ** About_ExportFormats+    About_ExportFormats (..),+    newAbout_ExportFormats,++    -- ** About_ImportFormats+    About_ImportFormats (..),+    newAbout_ImportFormats,++    -- ** About_MaxImportSizes+    About_MaxImportSizes (..),+    newAbout_MaxImportSizes,++    -- ** About_StorageQuota+    About_StorageQuota (..),+    newAbout_StorageQuota,++    -- ** About_TeamDriveThemesItem+    About_TeamDriveThemesItem (..),+    newAbout_TeamDriveThemesItem,++    -- ** AccessProposal+    AccessProposal (..),+    newAccessProposal,++    -- ** AccessProposalRoleAndView+    AccessProposalRoleAndView (..),+    newAccessProposalRoleAndView,++    -- ** App+    App (..),+    newApp,++    -- ** AppIcons+    AppIcons (..),+    newAppIcons,++    -- ** AppList+    AppList (..),+    newAppList,++    -- ** Change+    Change (..),+    newChange,++    -- ** ChangeList+    ChangeList (..),+    newChangeList,++    -- ** Channel+    Channel (..),+    newChannel,++    -- ** Channel_Params+    Channel_Params (..),+    newChannel_Params,++    -- ** Comment+    Comment (..),+    newComment,++    -- ** Comment_QuotedFileContent+    Comment_QuotedFileContent (..),+    newComment_QuotedFileContent,++    -- ** CommentList+    CommentList (..),+    newCommentList,++    -- ** ContentRestriction+    ContentRestriction (..),+    newContentRestriction,++    -- ** DownloadRestriction+    DownloadRestriction (..),+    newDownloadRestriction,++    -- ** Drive+    Drive (..),+    newDrive,++    -- ** Drive_BackgroundImageFile+    Drive_BackgroundImageFile (..),+    newDrive_BackgroundImageFile,++    -- ** Drive_Capabilities+    Drive_Capabilities (..),+    newDrive_Capabilities,++    -- ** Drive_Restrictions+    Drive_Restrictions (..),+    newDrive_Restrictions,++    -- ** DriveList+    DriveList (..),+    newDriveList,++    -- ** File+    File (..),+    newFile,++    -- ** File_AppProperties+    File_AppProperties (..),+    newFile_AppProperties,++    -- ** File_Capabilities+    File_Capabilities (..),+    newFile_Capabilities,++    -- ** File_ContentHints+    File_ContentHints (..),+    newFile_ContentHints,++    -- ** File_ContentHints_Thumbnail+    File_ContentHints_Thumbnail (..),+    newFile_ContentHints_Thumbnail,++    -- ** File_ExportLinks+    File_ExportLinks (..),+    newFile_ExportLinks,++    -- ** File_ImageMediaMetadata+    File_ImageMediaMetadata (..),+    newFile_ImageMediaMetadata,++    -- ** File_ImageMediaMetadata_Location+    File_ImageMediaMetadata_Location (..),+    newFile_ImageMediaMetadata_Location,++    -- ** File_LabelInfo+    File_LabelInfo (..),+    newFile_LabelInfo,++    -- ** File_LinkShareMetadata+    File_LinkShareMetadata (..),+    newFile_LinkShareMetadata,++    -- ** File_Properties+    File_Properties (..),+    newFile_Properties,++    -- ** File_ShortcutDetails+    File_ShortcutDetails (..),+    newFile_ShortcutDetails,++    -- ** File_VideoMediaMetadata+    File_VideoMediaMetadata (..),+    newFile_VideoMediaMetadata,++    -- ** FileList+    FileList (..),+    newFileList,++    -- ** GeneratedIds+    GeneratedIds (..),+    newGeneratedIds,++    -- ** Label+    Label (..),+    newLabel,++    -- ** Label_Fields+    Label_Fields (..),+    newLabel_Fields,++    -- ** LabelField+    LabelField (..),+    newLabelField,++    -- ** LabelFieldModification+    LabelFieldModification (..),+    newLabelFieldModification,++    -- ** LabelList+    LabelList (..),+    newLabelList,++    -- ** LabelModification+    LabelModification (..),+    newLabelModification,++    -- ** ListAccessProposalsResponse+    ListAccessProposalsResponse (..),+    newListAccessProposalsResponse,++    -- ** ListOperationsResponse+    ListOperationsResponse (..),+    newListOperationsResponse,++    -- ** ModifyLabelsRequest+    ModifyLabelsRequest (..),+    newModifyLabelsRequest,++    -- ** ModifyLabelsResponse+    ModifyLabelsResponse (..),+    newModifyLabelsResponse,++    -- ** Operation+    Operation (..),+    newOperation,++    -- ** Operation_Metadata+    Operation_Metadata (..),+    newOperation_Metadata,++    -- ** Operation_Response+    Operation_Response (..),+    newOperation_Response,++    -- ** Permission+    Permission (..),+    newPermission,++    -- ** Permission_PermissionDetailsItem+    Permission_PermissionDetailsItem (..),+    newPermission_PermissionDetailsItem,++    -- ** Permission_TeamDrivePermissionDetailsItem+    Permission_TeamDrivePermissionDetailsItem (..),+    newPermission_TeamDrivePermissionDetailsItem,++    -- ** PermissionList+    PermissionList (..),+    newPermissionList,++    -- ** Reply+    Reply (..),+    newReply,++    -- ** ReplyList+    ReplyList (..),+    newReplyList,++    -- ** ResolveAccessProposalRequest+    ResolveAccessProposalRequest (..),+    newResolveAccessProposalRequest,++    -- ** ResolveAccessProposalRequest_Action+    ResolveAccessProposalRequest_Action (..),++    -- ** Revision+    Revision (..),+    newRevision,++    -- ** Revision_ExportLinks+    Revision_ExportLinks (..),+    newRevision_ExportLinks,++    -- ** RevisionList+    RevisionList (..),+    newRevisionList,++    -- ** StartPageToken+    StartPageToken (..),+    newStartPageToken,++    -- ** Status+    Status (..),+    newStatus,++    -- ** Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- ** TeamDrive+    TeamDrive (..),+    newTeamDrive,++    -- ** TeamDrive_BackgroundImageFile+    TeamDrive_BackgroundImageFile (..),+    newTeamDrive_BackgroundImageFile,++    -- ** TeamDrive_Capabilities+    TeamDrive_Capabilities (..),+    newTeamDrive_Capabilities,++    -- ** TeamDrive_Restrictions+    TeamDrive_Restrictions (..),+    newTeamDrive_Restrictions,++    -- ** TeamDriveList+    TeamDriveList (..),+    newTeamDriveList,++    -- ** User+    User (..),+    newUser,++    -- ** FilesListCorpus+    FilesListCorpus (..),+  )+where++import Gogol.Drive.About.Get+import Gogol.Drive.Accessproposals.Get+import Gogol.Drive.Accessproposals.List+import Gogol.Drive.Accessproposals.Resolve+import Gogol.Drive.Apps.Get+import Gogol.Drive.Apps.List+import Gogol.Drive.Changes.GetStartPageToken+import Gogol.Drive.Changes.List+import Gogol.Drive.Changes.Watch+import Gogol.Drive.Channels.Stop+import Gogol.Drive.Comments.Create+import Gogol.Drive.Comments.Delete+import Gogol.Drive.Comments.Get+import Gogol.Drive.Comments.List+import Gogol.Drive.Comments.Update+import Gogol.Drive.Drives.Create+import Gogol.Drive.Drives.Delete+import Gogol.Drive.Drives.Get+import Gogol.Drive.Drives.Hide+import Gogol.Drive.Drives.List+import Gogol.Drive.Drives.Unhide+import Gogol.Drive.Drives.Update+import Gogol.Drive.Files.Copy+import Gogol.Drive.Files.Create+import Gogol.Drive.Files.Delete+import Gogol.Drive.Files.Download+import Gogol.Drive.Files.EmptyTrash+import Gogol.Drive.Files.Export+import Gogol.Drive.Files.GenerateIds+import Gogol.Drive.Files.Get+import Gogol.Drive.Files.List+import Gogol.Drive.Files.ListLabels+import Gogol.Drive.Files.ModifyLabels+import Gogol.Drive.Files.Update+import Gogol.Drive.Files.Watch+import Gogol.Drive.Operations.Cancel+import Gogol.Drive.Operations.Delete+import Gogol.Drive.Operations.Get+import Gogol.Drive.Operations.List+import Gogol.Drive.Permissions.Create+import Gogol.Drive.Permissions.Delete+import Gogol.Drive.Permissions.Get+import Gogol.Drive.Permissions.List+import Gogol.Drive.Permissions.Update+import Gogol.Drive.Replies.Create+import Gogol.Drive.Replies.Delete+import Gogol.Drive.Replies.Get+import Gogol.Drive.Replies.List+import Gogol.Drive.Replies.Update+import Gogol.Drive.Revisions.Delete+import Gogol.Drive.Revisions.Get+import Gogol.Drive.Revisions.List+import Gogol.Drive.Revisions.Update+import Gogol.Drive.Teamdrives.Create+import Gogol.Drive.Teamdrives.Delete+import Gogol.Drive.Teamdrives.Get+import Gogol.Drive.Teamdrives.List+import Gogol.Drive.Teamdrives.Update+import Gogol.Drive.Types
+ gen/Gogol/Drive/About/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.Drive.About.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 the user, the user\'s Drive, and system capabilities. For more information, see <https://developers.google.com/drive/api/guides/user-info Return user info>. Required: The @fields@ parameter must be set. To return the exact fields you need, see <https://developers.google.com/drive/api/guides/fields-parameter Return specific fields>.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.about.get@.+module Gogol.Drive.About.Get+  ( -- * Resource+    DriveAboutGetResource,++    -- ** Constructing a Request+    DriveAboutGet (..),+    newDriveAboutGet,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.about.get@ method which the+-- 'DriveAboutGet' request conforms to.+type DriveAboutGetResource =+  "drive"+    Core.:> "v3"+    Core.:> "about"+    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] About++-- | Gets information about the user, the user\'s Drive, and system capabilities. For more information, see <https://developers.google.com/drive/api/guides/user-info Return user info>. Required: The @fields@ parameter must be set. To return the exact fields you need, see <https://developers.google.com/drive/api/guides/fields-parameter Return specific fields>.+--+-- /See:/ 'newDriveAboutGet' smart constructor.+data DriveAboutGet = DriveAboutGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | 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 'DriveAboutGet' with the minimum fields required to make a request.+newDriveAboutGet ::+  DriveAboutGet+newDriveAboutGet =+  DriveAboutGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveAboutGet where+  type Rs DriveAboutGet = About+  type+    Scopes DriveAboutGet =+      '[ Drive'FullControl,+         Drive'Appdata,+         Drive'File,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Photos'Readonly,+         Drive'Readonly+       ]+  requestClient DriveAboutGet {..} =+    go+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveAboutGetResource)+          Core.mempty
+ gen/Gogol/Drive/Accessproposals/Get.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.Drive.Accessproposals.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 an AccessProposal by ID.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.accessproposals.get@.+module Gogol.Drive.Accessproposals.Get+  ( -- * Resource+    DriveAccessproposalsGetResource,++    -- ** Constructing a Request+    DriveAccessproposalsGet (..),+    newDriveAccessproposalsGet,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.accessproposals.get@ method which the+-- 'DriveAccessproposalsGet' request conforms to.+type DriveAccessproposalsGetResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "accessproposals"+    Core.:> Core.Capture "proposalId" 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] AccessProposal++-- | Retrieves an AccessProposal by ID.+--+-- /See:/ 'newDriveAccessproposalsGet' smart constructor.+data DriveAccessproposalsGet = DriveAccessproposalsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The id of the item the request is on.+    fileId :: Core.Text,+    -- | Required. The id of the access proposal to resolve.+    proposalId :: 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 'DriveAccessproposalsGet' with the minimum fields required to make a request.+newDriveAccessproposalsGet ::+  -- |  Required. The id of the item the request is on. See 'fileId'.+  Core.Text ->+  -- |  Required. The id of the access proposal to resolve. See 'proposalId'.+  Core.Text ->+  DriveAccessproposalsGet+newDriveAccessproposalsGet fileId proposalId =+  DriveAccessproposalsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      fileId = fileId,+      proposalId = proposalId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveAccessproposalsGet where+  type Rs DriveAccessproposalsGet = AccessProposal+  type+    Scopes DriveAccessproposalsGet =+      '[ Drive'FullControl,+         Drive'File,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Readonly+       ]+  requestClient DriveAccessproposalsGet {..} =+    go+      fileId+      proposalId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveAccessproposalsGetResource)+          Core.mempty
+ gen/Gogol/Drive/Accessproposals/List.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.Drive.Accessproposals.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)+--+-- List the AccessProposals on a file. Note: Only approvers are able to list AccessProposals on a file. If the user is not an approver, returns a 403.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.accessproposals.list@.+module Gogol.Drive.Accessproposals.List+  ( -- * Resource+    DriveAccessproposalsListResource,++    -- ** Constructing a Request+    DriveAccessproposalsList (..),+    newDriveAccessproposalsList,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.accessproposals.list@ method which the+-- 'DriveAccessproposalsList' request conforms to.+type DriveAccessproposalsListResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "accessproposals"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListAccessProposalsResponse++-- | List the AccessProposals on a file. Note: Only approvers are able to list AccessProposals on a file. If the user is not an approver, returns a 403.+--+-- /See:/ 'newDriveAccessproposalsList' smart constructor.+data DriveAccessproposalsList = DriveAccessproposalsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The id of the item the request is on.+    fileId :: Core.Text,+    -- | Optional. The number of results per page+    pageSize :: (Core.Maybe Core.Int32),+    -- | Optional. The continuation token on the list of access requests.+    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 'DriveAccessproposalsList' with the minimum fields required to make a request.+newDriveAccessproposalsList ::+  -- |  Required. The id of the item the request is on. See 'fileId'.+  Core.Text ->+  DriveAccessproposalsList+newDriveAccessproposalsList fileId =+  DriveAccessproposalsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      fileId = fileId,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveAccessproposalsList where+  type Rs DriveAccessproposalsList = ListAccessProposalsResponse+  type+    Scopes DriveAccessproposalsList =+      '[ Drive'FullControl,+         Drive'File,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Readonly+       ]+  requestClient DriveAccessproposalsList {..} =+    go+      fileId+      xgafv+      accessToken+      callback+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveAccessproposalsListResource)+          Core.mempty
+ gen/Gogol/Drive/Accessproposals/Resolve.hs view
@@ -0,0 +1,126 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Accessproposals.Resolve+-- 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)+--+-- Used to approve or deny an Access Proposal.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.accessproposals.resolve@.+module Gogol.Drive.Accessproposals.Resolve+  ( -- * Resource+    DriveAccessproposalsResolveResource,++    -- ** Constructing a Request+    DriveAccessproposalsResolve (..),+    newDriveAccessproposalsResolve,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.accessproposals.resolve@ method which the+-- 'DriveAccessproposalsResolve' request conforms to.+type DriveAccessproposalsResolveResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "accessproposals"+    Core.:> Core.CaptureMode "proposalId" "resolve" 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] ResolveAccessProposalRequest+    Core.:> Core.Post '[Core.JSON] ()++-- | Used to approve or deny an Access Proposal.+--+-- /See:/ 'newDriveAccessproposalsResolve' smart constructor.+data DriveAccessproposalsResolve = DriveAccessproposalsResolve+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The id of the item the request is on.+    fileId :: Core.Text,+    -- | Multipart request metadata.+    payload :: ResolveAccessProposalRequest,+    -- | Required. The id of the access proposal to resolve.+    proposalId :: 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 'DriveAccessproposalsResolve' with the minimum fields required to make a request.+newDriveAccessproposalsResolve ::+  -- |  Required. The id of the item the request is on. See 'fileId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ResolveAccessProposalRequest ->+  -- |  Required. The id of the access proposal to resolve. See 'proposalId'.+  Core.Text ->+  DriveAccessproposalsResolve+newDriveAccessproposalsResolve fileId payload proposalId =+  DriveAccessproposalsResolve+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      fileId = fileId,+      payload = payload,+      proposalId = proposalId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveAccessproposalsResolve where+  type Rs DriveAccessproposalsResolve = ()+  type+    Scopes DriveAccessproposalsResolve =+      '[Drive'FullControl, Drive'File]+  requestClient DriveAccessproposalsResolve {..} =+    go+      fileId+      proposalId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveAccessproposalsResolveResource)+          Core.mempty
+ gen/Gogol/Drive/Apps/Get.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.Drive.Apps.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a specific app. For more information, see <https://developers.google.com/drive/api/guides/user-info Return user info>.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.apps.get@.+module Gogol.Drive.Apps.Get+  ( -- * Resource+    DriveAppsGetResource,++    -- ** Constructing a Request+    DriveAppsGet (..),+    newDriveAppsGet,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.apps.get@ method which the+-- 'DriveAppsGet' request conforms to.+type DriveAppsGetResource =+  "drive"+    Core.:> "v3"+    Core.:> "apps"+    Core.:> Core.Capture "appId" 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] App++-- | Gets a specific app. For more information, see <https://developers.google.com/drive/api/guides/user-info Return user info>.+--+-- /See:/ 'newDriveAppsGet' smart constructor.+data DriveAppsGet = DriveAppsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The ID of the app.+    appId :: Core.Text,+    -- | 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 'DriveAppsGet' with the minimum fields required to make a request.+newDriveAppsGet ::+  -- |  The ID of the app. See 'appId'.+  Core.Text ->+  DriveAppsGet+newDriveAppsGet appId =+  DriveAppsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      appId = appId,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveAppsGet where+  type Rs DriveAppsGet = App+  type+    Scopes DriveAppsGet =+      '[ Drive'FullControl,+         Drive'Appdata,+         Drive'Apps'Readonly,+         Drive'File,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Readonly+       ]+  requestClient DriveAppsGet {..} =+    go+      appId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveAppsGetResource)+          Core.mempty
+ gen/Gogol/Drive/Apps/List.hs view
@@ -0,0 +1,117 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Apps.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 a user\'s installed apps. For more information, see <https://developers.google.com/drive/api/guides/user-info Return user info>.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.apps.list@.+module Gogol.Drive.Apps.List+  ( -- * Resource+    DriveAppsListResource,++    -- ** Constructing a Request+    DriveAppsList (..),+    newDriveAppsList,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.apps.list@ method which the+-- 'DriveAppsList' request conforms to.+type DriveAppsListResource =+  "drive"+    Core.:> "v3"+    Core.:> "apps"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "appFilterExtensions" Core.Text+    Core.:> Core.QueryParam "appFilterMimeTypes" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "languageCode" 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] AppList++-- | Lists a user\'s installed apps. For more information, see <https://developers.google.com/drive/api/guides/user-info Return user info>.+--+-- /See:/ 'newDriveAppsList' smart constructor.+data DriveAppsList = DriveAppsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | A comma-separated list of file extensions to limit returned results. All results within the given app query scope which can open any of the given file extensions are included in the response. If @appFilterMimeTypes@ are provided as well, the result is a union of the two resulting app lists.+    appFilterExtensions :: Core.Text,+    -- | A comma-separated list of file extensions to limit returned results. All results within the given app query scope which can open any of the given MIME types will be included in the response. If @appFilterExtensions@ are provided as well, the result is a union of the two resulting app lists.+    appFilterMimeTypes :: Core.Text,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | A language or locale code, as defined by BCP 47, with some extensions from Unicode\'s LDML format (http:\/\/www.unicode.org\/reports\/tr35\/).+    languageCode :: (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 'DriveAppsList' with the minimum fields required to make a request.+newDriveAppsList ::+  DriveAppsList+newDriveAppsList =+  DriveAppsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      appFilterExtensions = "",+      appFilterMimeTypes = "",+      callback = Core.Nothing,+      languageCode = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveAppsList where+  type Rs DriveAppsList = AppList+  type Scopes DriveAppsList = '[Drive'Apps'Readonly]+  requestClient DriveAppsList {..} =+    go+      xgafv+      accessToken+      (Core.Just appFilterExtensions)+      (Core.Just appFilterMimeTypes)+      callback+      languageCode+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveAppsListResource)+          Core.mempty
+ gen/Gogol/Drive/Changes/GetStartPageToken.hs view
@@ -0,0 +1,133 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Changes.GetStartPageToken+-- 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 starting pageToken for listing future changes. For more information, see <https://developers.google.com/drive/api/guides/manage-changes Retrieve changes>.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.changes.getStartPageToken@.+module Gogol.Drive.Changes.GetStartPageToken+  ( -- * Resource+    DriveChangesGetStartPageTokenResource,++    -- ** Constructing a Request+    DriveChangesGetStartPageToken (..),+    newDriveChangesGetStartPageToken,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.changes.getStartPageToken@ method which the+-- 'DriveChangesGetStartPageToken' request conforms to.+type DriveChangesGetStartPageTokenResource =+  "drive"+    Core.:> "v3"+    Core.:> "changes"+    Core.:> "startPageToken"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "driveId" Core.Text+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "teamDriveId" 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] StartPageToken++-- | Gets the starting pageToken for listing future changes. For more information, see <https://developers.google.com/drive/api/guides/manage-changes Retrieve changes>.+--+-- /See:/ 'newDriveChangesGetStartPageToken' smart constructor.+data DriveChangesGetStartPageToken = DriveChangesGetStartPageToken+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the shared drive for which the starting pageToken for listing future changes from that shared drive will be returned.+    driveId :: (Core.Maybe Core.Text),+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: Core.Bool,+    -- | Deprecated: Use @driveId@ instead.+    teamDriveId :: (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 'DriveChangesGetStartPageToken' with the minimum fields required to make a request.+newDriveChangesGetStartPageToken ::+  DriveChangesGetStartPageToken+newDriveChangesGetStartPageToken =+  DriveChangesGetStartPageToken+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      driveId = Core.Nothing,+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      teamDriveId = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveChangesGetStartPageToken where+  type Rs DriveChangesGetStartPageToken = StartPageToken+  type+    Scopes DriveChangesGetStartPageToken =+      '[ Drive'FullControl,+         Drive'Appdata,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Photos'Readonly,+         Drive'Readonly+       ]+  requestClient DriveChangesGetStartPageToken {..} =+    go+      xgafv+      accessToken+      callback+      driveId+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      teamDriveId+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveChangesGetStartPageTokenResource)+          Core.mempty
+ gen/Gogol/Drive/Changes/List.hs view
@@ -0,0 +1,184 @@+{-# 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.Drive.Changes.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 changes for a user or shared drive. For more information, see <https://developers.google.com/drive/api/guides/manage-changes Retrieve changes>.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.changes.list@.+module Gogol.Drive.Changes.List+  ( -- * Resource+    DriveChangesListResource,++    -- ** Constructing a Request+    DriveChangesList (..),+    newDriveChangesList,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.changes.list@ method which the+-- 'DriveChangesList' request conforms to.+type DriveChangesListResource =+  "drive"+    Core.:> "v3"+    Core.:> "changes"+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "driveId" Core.Text+    Core.:> Core.QueryParam "includeCorpusRemovals" Core.Bool+    Core.:> Core.QueryParam "includeItemsFromAllDrives" Core.Bool+    Core.:> Core.QueryParam "includeLabels" Core.Text+    Core.:> Core.QueryParam "includePermissionsForView" Core.Text+    Core.:> Core.QueryParam "includeRemoved" Core.Bool+    Core.:> Core.QueryParam "includeTeamDriveItems" Core.Bool+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "restrictToMyDrive" Core.Bool+    Core.:> Core.QueryParam "spaces" Core.Text+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "teamDriveId" 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] ChangeList++-- | Lists the changes for a user or shared drive. For more information, see <https://developers.google.com/drive/api/guides/manage-changes Retrieve changes>.+--+-- /See:/ 'newDriveChangesList' smart constructor.+data DriveChangesList = DriveChangesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The shared drive from which changes will be returned. If specified the change IDs will be reflective of the shared drive; use the combined drive ID and change ID as an identifier.+    driveId :: (Core.Maybe Core.Text),+    -- | Whether changes should include the file resource if the file is still accessible by the user at the time of the request, even when a file was removed from the list of changes and there will be no further change entries for this file.+    includeCorpusRemovals :: Core.Bool,+    -- | Whether both My Drive and shared drive items should be included in results.+    includeItemsFromAllDrives :: Core.Bool,+    -- | A comma-separated list of IDs of labels to include in the @labelInfo@ part of the response.+    includeLabels :: (Core.Maybe Core.Text),+    -- | Specifies which additional view\'s permissions to include in the response. Only \'published\' is supported.+    includePermissionsForView :: (Core.Maybe Core.Text),+    -- | Whether to include changes indicating that items have been removed from the list of changes, for example by deletion or loss of access.+    includeRemoved :: Core.Bool,+    -- | Deprecated: Use @includeItemsFromAllDrives@ instead.+    includeTeamDriveItems :: Core.Bool,+    -- | The maximum number of changes to return per page.+    pageSize :: Core.Int32,+    -- | The token for continuing a previous list request on the next page. This should be set to the value of \'nextPageToken\' from the previous response or to the response from the getStartPageToken method.+    pageToken :: Core.Text,+    -- | Whether to restrict the results to changes inside the My Drive hierarchy. This omits changes to files such as those in the Application Data folder or shared files which have not been added to My Drive.+    restrictToMyDrive :: Core.Bool,+    -- | A comma-separated list of spaces to query within the corpora. Supported values are \'drive\' and \'appDataFolder\'.+    spaces :: Core.Text,+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: Core.Bool,+    -- | Deprecated: Use @driveId@ instead.+    teamDriveId :: (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 'DriveChangesList' with the minimum fields required to make a request.+newDriveChangesList ::+  -- |  The token for continuing a previous list request on the next page. This should be set to the value of \'nextPageToken\' from the previous response or to the response from the getStartPageToken method. See 'pageToken'.+  Core.Text ->+  DriveChangesList+newDriveChangesList pageToken =+  DriveChangesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      driveId = Core.Nothing,+      includeCorpusRemovals = Core.False,+      includeItemsFromAllDrives = Core.False,+      includeLabels = Core.Nothing,+      includePermissionsForView = Core.Nothing,+      includeRemoved = Core.True,+      includeTeamDriveItems = Core.False,+      pageSize = 100,+      pageToken = pageToken,+      restrictToMyDrive = Core.False,+      spaces = "drive",+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      teamDriveId = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveChangesList where+  type Rs DriveChangesList = ChangeList+  type+    Scopes DriveChangesList =+      '[ Drive'FullControl,+         Drive'Appdata,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Photos'Readonly,+         Drive'Readonly+       ]+  requestClient DriveChangesList {..} =+    go+      (Core.Just pageToken)+      xgafv+      accessToken+      callback+      driveId+      (Core.Just includeCorpusRemovals)+      (Core.Just includeItemsFromAllDrives)+      includeLabels+      includePermissionsForView+      (Core.Just includeRemoved)+      (Core.Just includeTeamDriveItems)+      (Core.Just pageSize)+      (Core.Just restrictToMyDrive)+      (Core.Just spaces)+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      teamDriveId+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveChangesListResource)+          Core.mempty
+ gen/Gogol/Drive/Changes/Watch.hs view
@@ -0,0 +1,192 @@+{-# 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.Drive.Changes.Watch+-- 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)+--+-- Subscribes to changes for a user. For more information, see <https://developers.google.com/drive/api/guides/push Notifications for resource changes>.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.changes.watch@.+module Gogol.Drive.Changes.Watch+  ( -- * Resource+    DriveChangesWatchResource,++    -- ** Constructing a Request+    DriveChangesWatch (..),+    newDriveChangesWatch,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.changes.watch@ method which the+-- 'DriveChangesWatch' request conforms to.+type DriveChangesWatchResource =+  "drive"+    Core.:> "v3"+    Core.:> "changes"+    Core.:> "watch"+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "driveId" Core.Text+    Core.:> Core.QueryParam "includeCorpusRemovals" Core.Bool+    Core.:> Core.QueryParam "includeItemsFromAllDrives" Core.Bool+    Core.:> Core.QueryParam "includeLabels" Core.Text+    Core.:> Core.QueryParam "includePermissionsForView" Core.Text+    Core.:> Core.QueryParam "includeRemoved" Core.Bool+    Core.:> Core.QueryParam "includeTeamDriveItems" Core.Bool+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "restrictToMyDrive" Core.Bool+    Core.:> Core.QueryParam "spaces" Core.Text+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "teamDriveId" 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] Channel+    Core.:> Core.Post '[Core.JSON] Channel++-- | Subscribes to changes for a user. For more information, see <https://developers.google.com/drive/api/guides/push Notifications for resource changes>.+--+-- /See:/ 'newDriveChangesWatch' smart constructor.+data DriveChangesWatch = DriveChangesWatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The shared drive from which changes will be returned. If specified the change IDs will be reflective of the shared drive; use the combined drive ID and change ID as an identifier.+    driveId :: (Core.Maybe Core.Text),+    -- | Whether changes should include the file resource if the file is still accessible by the user at the time of the request, even when a file was removed from the list of changes and there will be no further change entries for this file.+    includeCorpusRemovals :: Core.Bool,+    -- | Whether both My Drive and shared drive items should be included in results.+    includeItemsFromAllDrives :: Core.Bool,+    -- | A comma-separated list of IDs of labels to include in the @labelInfo@ part of the response.+    includeLabels :: (Core.Maybe Core.Text),+    -- | Specifies which additional view\'s permissions to include in the response. Only \'published\' is supported.+    includePermissionsForView :: (Core.Maybe Core.Text),+    -- | Whether to include changes indicating that items have been removed from the list of changes, for example by deletion or loss of access.+    includeRemoved :: Core.Bool,+    -- | Deprecated: Use @includeItemsFromAllDrives@ instead.+    includeTeamDriveItems :: Core.Bool,+    -- | The maximum number of changes to return per page.+    pageSize :: Core.Int32,+    -- | The token for continuing a previous list request on the next page. This should be set to the value of \'nextPageToken\' from the previous response or to the response from the getStartPageToken method.+    pageToken :: Core.Text,+    -- | Multipart request metadata.+    payload :: Channel,+    -- | Whether to restrict the results to changes inside the My Drive hierarchy. This omits changes to files such as those in the Application Data folder or shared files which have not been added to My Drive.+    restrictToMyDrive :: Core.Bool,+    -- | A comma-separated list of spaces to query within the corpora. Supported values are \'drive\' and \'appDataFolder\'.+    spaces :: Core.Text,+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: Core.Bool,+    -- | Deprecated: Use @driveId@ instead.+    teamDriveId :: (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 'DriveChangesWatch' with the minimum fields required to make a request.+newDriveChangesWatch ::+  -- |  The token for continuing a previous list request on the next page. This should be set to the value of \'nextPageToken\' from the previous response or to the response from the getStartPageToken method. See 'pageToken'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Channel ->+  DriveChangesWatch+newDriveChangesWatch pageToken payload =+  DriveChangesWatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      driveId = Core.Nothing,+      includeCorpusRemovals = Core.False,+      includeItemsFromAllDrives = Core.False,+      includeLabels = Core.Nothing,+      includePermissionsForView = Core.Nothing,+      includeRemoved = Core.True,+      includeTeamDriveItems = Core.False,+      pageSize = 100,+      pageToken = pageToken,+      payload = payload,+      restrictToMyDrive = Core.False,+      spaces = "drive",+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      teamDriveId = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveChangesWatch where+  type Rs DriveChangesWatch = Channel+  type+    Scopes DriveChangesWatch =+      '[ Drive'FullControl,+         Drive'Appdata,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Photos'Readonly,+         Drive'Readonly+       ]+  requestClient DriveChangesWatch {..} =+    go+      (Core.Just pageToken)+      xgafv+      accessToken+      callback+      driveId+      (Core.Just includeCorpusRemovals)+      (Core.Just includeItemsFromAllDrives)+      includeLabels+      includePermissionsForView+      (Core.Just includeRemoved)+      (Core.Just includeTeamDriveItems)+      (Core.Just pageSize)+      (Core.Just restrictToMyDrive)+      (Core.Just spaces)+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      teamDriveId+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveChangesWatchResource)+          Core.mempty
+ gen/Gogol/Drive/Channels/Stop.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.Drive.Channels.Stop+-- 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)+--+-- Stops watching resources through this channel. For more information, see <https://developers.google.com/drive/api/guides/push Notifications for resource changes>.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.channels.stop@.+module Gogol.Drive.Channels.Stop+  ( -- * Resource+    DriveChannelsStopResource,++    -- ** Constructing a Request+    DriveChannelsStop (..),+    newDriveChannelsStop,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.channels.stop@ method which the+-- 'DriveChannelsStop' request conforms to.+type DriveChannelsStopResource =+  "drive"+    Core.:> "v3"+    Core.:> "channels"+    Core.:> "stop"+    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] Channel+    Core.:> Core.Post '[Core.JSON] ()++-- | Stops watching resources through this channel. For more information, see <https://developers.google.com/drive/api/guides/push Notifications for resource changes>.+--+-- /See:/ 'newDriveChannelsStop' smart constructor.+data DriveChannelsStop = DriveChannelsStop+  { -- | 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 :: Channel,+    -- | 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 'DriveChannelsStop' with the minimum fields required to make a request.+newDriveChannelsStop ::+  -- |  Multipart request metadata. See 'payload'.+  Channel ->+  DriveChannelsStop+newDriveChannelsStop payload =+  DriveChannelsStop+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveChannelsStop where+  type Rs DriveChannelsStop = ()+  type+    Scopes DriveChannelsStop =+      '[ Drive'FullControl,+         Drive'Appdata,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Photos'Readonly,+         Drive'Readonly+       ]+  requestClient DriveChannelsStop {..} =+    go+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveChannelsStopResource)+          Core.mempty
+ gen/Gogol/Drive/Comments/Create.hs view
@@ -0,0 +1,117 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Comments.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 comment on a file. For more information, see <https://developers.google.com/drive/api/guides/manage-comments Manage comments and replies>. Required: The @fields@ parameter must be set. To return the exact fields you need, see <https://developers.google.com/drive/api/guides/fields-parameter Return specific fields>.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.comments.create@.+module Gogol.Drive.Comments.Create+  ( -- * Resource+    DriveCommentsCreateResource,++    -- ** Constructing a Request+    DriveCommentsCreate (..),+    newDriveCommentsCreate,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.comments.create@ method which the+-- 'DriveCommentsCreate' request conforms to.+type DriveCommentsCreateResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "comments"+    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] Comment+    Core.:> Core.Post '[Core.JSON] Comment++-- | Creates a comment on a file. For more information, see <https://developers.google.com/drive/api/guides/manage-comments Manage comments and replies>. Required: The @fields@ parameter must be set. To return the exact fields you need, see <https://developers.google.com/drive/api/guides/fields-parameter Return specific fields>.+--+-- /See:/ 'newDriveCommentsCreate' smart constructor.+data DriveCommentsCreate = DriveCommentsCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Comment,+    -- | 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 'DriveCommentsCreate' with the minimum fields required to make a request.+newDriveCommentsCreate ::+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Comment ->+  DriveCommentsCreate+newDriveCommentsCreate fileId payload =+  DriveCommentsCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      fileId = fileId,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveCommentsCreate where+  type Rs DriveCommentsCreate = Comment+  type Scopes DriveCommentsCreate = '[Drive'FullControl, Drive'File]+  requestClient DriveCommentsCreate {..} =+    go+      fileId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveCommentsCreateResource)+          Core.mempty
+ gen/Gogol/Drive/Comments/Delete.hs view
@@ -0,0 +1,117 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Comments.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 comment. For more information, see <https://developers.google.com/drive/api/guides/manage-comments Manage comments and replies>. Required: The @fields@ parameter must be set. To return the exact fields you need, see <https://developers.google.com/drive/api/guides/fields-parameter Return specific fields>.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.comments.delete@.+module Gogol.Drive.Comments.Delete+  ( -- * Resource+    DriveCommentsDeleteResource,++    -- ** Constructing a Request+    DriveCommentsDelete (..),+    newDriveCommentsDelete,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.comments.delete@ method which the+-- 'DriveCommentsDelete' request conforms to.+type DriveCommentsDeleteResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "comments"+    Core.:> Core.Capture "commentId" 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] ()++-- | Deletes a comment. For more information, see <https://developers.google.com/drive/api/guides/manage-comments Manage comments and replies>. Required: The @fields@ parameter must be set. To return the exact fields you need, see <https://developers.google.com/drive/api/guides/fields-parameter Return specific fields>.+--+-- /See:/ 'newDriveCommentsDelete' smart constructor.+data DriveCommentsDelete = DriveCommentsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the comment.+    commentId :: Core.Text,+    -- | The ID of the file.+    fileId :: 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 'DriveCommentsDelete' with the minimum fields required to make a request.+newDriveCommentsDelete ::+  -- |  The ID of the comment. See 'commentId'.+  Core.Text ->+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  DriveCommentsDelete+newDriveCommentsDelete commentId fileId =+  DriveCommentsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      commentId = commentId,+      fileId = fileId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveCommentsDelete where+  type Rs DriveCommentsDelete = ()+  type Scopes DriveCommentsDelete = '[Drive'FullControl, Drive'File]+  requestClient DriveCommentsDelete {..} =+    go+      fileId+      commentId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveCommentsDeleteResource)+          Core.mempty
+ gen/Gogol/Drive/Comments/Get.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.Drive.Comments.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a comment by ID. For more information, see <https://developers.google.com/drive/api/guides/manage-comments Manage comments and replies>. Required: The @fields@ parameter must be set. To return the exact fields you need, see <https://developers.google.com/drive/api/guides/fields-parameter Return specific fields>.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.comments.get@.+module Gogol.Drive.Comments.Get+  ( -- * Resource+    DriveCommentsGetResource,++    -- ** Constructing a Request+    DriveCommentsGet (..),+    newDriveCommentsGet,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.comments.get@ method which the+-- 'DriveCommentsGet' request conforms to.+type DriveCommentsGetResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "comments"+    Core.:> Core.Capture "commentId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "includeDeleted" 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] Comment++-- | Gets a comment by ID. For more information, see <https://developers.google.com/drive/api/guides/manage-comments Manage comments and replies>. Required: The @fields@ parameter must be set. To return the exact fields you need, see <https://developers.google.com/drive/api/guides/fields-parameter Return specific fields>.+--+-- /See:/ 'newDriveCommentsGet' smart constructor.+data DriveCommentsGet = DriveCommentsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the comment.+    commentId :: Core.Text,+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | Whether to return deleted comments. Deleted comments will not include their original content.+    includeDeleted :: 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 'DriveCommentsGet' with the minimum fields required to make a request.+newDriveCommentsGet ::+  -- |  The ID of the comment. See 'commentId'.+  Core.Text ->+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  DriveCommentsGet+newDriveCommentsGet commentId fileId =+  DriveCommentsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      commentId = commentId,+      fileId = fileId,+      includeDeleted = Core.False,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveCommentsGet where+  type Rs DriveCommentsGet = Comment+  type+    Scopes DriveCommentsGet =+      '[ Drive'FullControl,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Readonly+       ]+  requestClient DriveCommentsGet {..} =+    go+      fileId+      commentId+      xgafv+      accessToken+      callback+      (Core.Just includeDeleted)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveCommentsGetResource)+          Core.mempty
+ gen/Gogol/Drive/Comments/List.hs view
@@ -0,0 +1,136 @@+{-# 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.Drive.Comments.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 a file\'s comments. For more information, see <https://developers.google.com/drive/api/guides/manage-comments Manage comments and replies>. Required: The @fields@ parameter must be set. To return the exact fields you need, see <https://developers.google.com/drive/api/guides/fields-parameter Return specific fields>.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.comments.list@.+module Gogol.Drive.Comments.List+  ( -- * Resource+    DriveCommentsListResource,++    -- ** Constructing a Request+    DriveCommentsList (..),+    newDriveCommentsList,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.comments.list@ method which the+-- 'DriveCommentsList' request conforms to.+type DriveCommentsListResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "comments"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "includeDeleted" Core.Bool+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "startModifiedTime" 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] CommentList++-- | Lists a file\'s comments. For more information, see <https://developers.google.com/drive/api/guides/manage-comments Manage comments and replies>. Required: The @fields@ parameter must be set. To return the exact fields you need, see <https://developers.google.com/drive/api/guides/fields-parameter Return specific fields>.+--+-- /See:/ 'newDriveCommentsList' smart constructor.+data DriveCommentsList = DriveCommentsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | Whether to include deleted comments. Deleted comments will not include their original content.+    includeDeleted :: Core.Bool,+    -- | The maximum number of comments to return per page.+    pageSize :: Core.Int32,+    -- | The token for continuing a previous list request on the next page. This should be set to the value of \'nextPageToken\' from the previous response.+    pageToken :: (Core.Maybe Core.Text),+    -- | The minimum value of \'modifiedTime\' for the result comments (RFC 3339 date-time).+    startModifiedTime :: (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 'DriveCommentsList' with the minimum fields required to make a request.+newDriveCommentsList ::+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  DriveCommentsList+newDriveCommentsList fileId =+  DriveCommentsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      fileId = fileId,+      includeDeleted = Core.False,+      pageSize = 20,+      pageToken = Core.Nothing,+      startModifiedTime = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveCommentsList where+  type Rs DriveCommentsList = CommentList+  type+    Scopes DriveCommentsList =+      '[ Drive'FullControl,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Readonly+       ]+  requestClient DriveCommentsList {..} =+    go+      fileId+      xgafv+      accessToken+      callback+      (Core.Just includeDeleted)+      (Core.Just pageSize)+      pageToken+      startModifiedTime+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveCommentsListResource)+          Core.mempty
+ gen/Gogol/Drive/Comments/Update.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.Drive.Comments.Update+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a comment with patch semantics. For more information, see <https://developers.google.com/drive/api/guides/manage-comments Manage comments and replies>. Required: The @fields@ parameter must be set. To return the exact fields you need, see <https://developers.google.com/drive/api/guides/fields-parameter Return specific fields>.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.comments.update@.+module Gogol.Drive.Comments.Update+  ( -- * Resource+    DriveCommentsUpdateResource,++    -- ** Constructing a Request+    DriveCommentsUpdate (..),+    newDriveCommentsUpdate,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.comments.update@ method which the+-- 'DriveCommentsUpdate' request conforms to.+type DriveCommentsUpdateResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "comments"+    Core.:> Core.Capture "commentId" 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] Comment+    Core.:> Core.Patch '[Core.JSON] Comment++-- | Updates a comment with patch semantics. For more information, see <https://developers.google.com/drive/api/guides/manage-comments Manage comments and replies>. Required: The @fields@ parameter must be set. To return the exact fields you need, see <https://developers.google.com/drive/api/guides/fields-parameter Return specific fields>.+--+-- /See:/ 'newDriveCommentsUpdate' smart constructor.+data DriveCommentsUpdate = DriveCommentsUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the comment.+    commentId :: Core.Text,+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Comment,+    -- | 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 'DriveCommentsUpdate' with the minimum fields required to make a request.+newDriveCommentsUpdate ::+  -- |  The ID of the comment. See 'commentId'.+  Core.Text ->+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Comment ->+  DriveCommentsUpdate+newDriveCommentsUpdate commentId fileId payload =+  DriveCommentsUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      commentId = commentId,+      fileId = fileId,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveCommentsUpdate where+  type Rs DriveCommentsUpdate = Comment+  type Scopes DriveCommentsUpdate = '[Drive'FullControl, Drive'File]+  requestClient DriveCommentsUpdate {..} =+    go+      fileId+      commentId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveCommentsUpdateResource)+          Core.mempty
+ gen/Gogol/Drive/Drives/Create.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.Drive.Drives.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 shared drive.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.drives.create@.+module Gogol.Drive.Drives.Create+  ( -- * Resource+    DriveDrivesCreateResource,++    -- ** Constructing a Request+    DriveDrivesCreate (..),+    newDriveDrivesCreate,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.drives.create@ method which the+-- 'DriveDrivesCreate' request conforms to.+type DriveDrivesCreateResource =+  "drive"+    Core.:> "v3"+    Core.:> "drives"+    Core.:> Core.QueryParam "requestId" 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] Drive+    Core.:> Core.Post '[Core.JSON] Drive++-- | Creates a shared drive.+--+-- /See:/ 'newDriveDrivesCreate' smart constructor.+data DriveDrivesCreate = DriveDrivesCreate+  { -- | 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 :: Drive,+    -- | Required. An ID, such as a random UUID, which uniquely identifies this user\'s request for idempotent creation of a shared drive. A repeated request by the same user and with the same request ID will avoid creating duplicates by attempting to create the same shared drive. If the shared drive already exists a 409 error will be returned.+    requestId :: 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 'DriveDrivesCreate' with the minimum fields required to make a request.+newDriveDrivesCreate ::+  -- |  Multipart request metadata. See 'payload'.+  Drive ->+  -- |  Required. An ID, such as a random UUID, which uniquely identifies this user\'s request for idempotent creation of a shared drive. A repeated request by the same user and with the same request ID will avoid creating duplicates by attempting to create the same shared drive. If the shared drive already exists a 409 error will be returned. See 'requestId'.+  Core.Text ->+  DriveDrivesCreate+newDriveDrivesCreate payload requestId =+  DriveDrivesCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      requestId = requestId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveDrivesCreate where+  type Rs DriveDrivesCreate = Drive+  type Scopes DriveDrivesCreate = '[Drive'FullControl]+  requestClient DriveDrivesCreate {..} =+    go+      (Core.Just requestId)+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveDrivesCreateResource)+          Core.mempty
+ gen/Gogol/Drive/Drives/Delete.hs view
@@ -0,0 +1,119 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Drives.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)+--+-- Permanently deletes a shared drive for which the user is an @organizer@. The shared drive cannot contain any untrashed items.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.drives.delete@.+module Gogol.Drive.Drives.Delete+  ( -- * Resource+    DriveDrivesDeleteResource,++    -- ** Constructing a Request+    DriveDrivesDelete (..),+    newDriveDrivesDelete,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.drives.delete@ method which the+-- 'DriveDrivesDelete' request conforms to.+type DriveDrivesDeleteResource =+  "drive"+    Core.:> "v3"+    Core.:> "drives"+    Core.:> Core.Capture "driveId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "allowItemDeletion" Core.Bool+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "useDomainAdminAccess" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] ()++-- | Permanently deletes a shared drive for which the user is an @organizer@. The shared drive cannot contain any untrashed items.+--+-- /See:/ 'newDriveDrivesDelete' smart constructor.+data DriveDrivesDelete = DriveDrivesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | Whether any items inside the shared drive should also be deleted. This option is only supported when @useDomainAdminAccess@ is also set to @true@.+    allowItemDeletion :: Core.Bool,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the shared drive.+    driveId :: 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),+    -- | Issue the request as a domain administrator; if set to true, then the requester will be granted access if they are an administrator of the domain to which the shared drive belongs.+    useDomainAdminAccess :: Core.Bool+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DriveDrivesDelete' with the minimum fields required to make a request.+newDriveDrivesDelete ::+  -- |  The ID of the shared drive. See 'driveId'.+  Core.Text ->+  DriveDrivesDelete+newDriveDrivesDelete driveId =+  DriveDrivesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      allowItemDeletion = Core.False,+      callback = Core.Nothing,+      driveId = driveId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      useDomainAdminAccess = Core.False+    }++instance Core.GoogleRequest DriveDrivesDelete where+  type Rs DriveDrivesDelete = ()+  type Scopes DriveDrivesDelete = '[Drive'FullControl]+  requestClient DriveDrivesDelete {..} =+    go+      driveId+      xgafv+      accessToken+      (Core.Just allowItemDeletion)+      callback+      uploadType+      uploadProtocol+      (Core.Just useDomainAdminAccess)+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveDrivesDeleteResource)+          Core.mempty
+ gen/Gogol/Drive/Drives/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.Drive.Drives.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a shared drive\'s metadata by ID.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.drives.get@.+module Gogol.Drive.Drives.Get+  ( -- * Resource+    DriveDrivesGetResource,++    -- ** Constructing a Request+    DriveDrivesGet (..),+    newDriveDrivesGet,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.drives.get@ method which the+-- 'DriveDrivesGet' request conforms to.+type DriveDrivesGetResource =+  "drive"+    Core.:> "v3"+    Core.:> "drives"+    Core.:> Core.Capture "driveId" 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 "useDomainAdminAccess" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Drive++-- | Gets a shared drive\'s metadata by ID.+--+-- /See:/ 'newDriveDrivesGet' smart constructor.+data DriveDrivesGet = DriveDrivesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the shared drive.+    driveId :: 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),+    -- | Issue the request as a domain administrator; if set to true, then the requester will be granted access if they are an administrator of the domain to which the shared drive belongs.+    useDomainAdminAccess :: Core.Bool+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DriveDrivesGet' with the minimum fields required to make a request.+newDriveDrivesGet ::+  -- |  The ID of the shared drive. See 'driveId'.+  Core.Text ->+  DriveDrivesGet+newDriveDrivesGet driveId =+  DriveDrivesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      driveId = driveId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      useDomainAdminAccess = Core.False+    }++instance Core.GoogleRequest DriveDrivesGet where+  type Rs DriveDrivesGet = Drive+  type Scopes DriveDrivesGet = '[Drive'FullControl, Drive'Readonly]+  requestClient DriveDrivesGet {..} =+    go+      driveId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just useDomainAdminAccess)+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveDrivesGetResource)+          Core.mempty
+ gen/Gogol/Drive/Drives/Hide.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.Drive.Drives.Hide+-- 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)+--+-- Hides a shared drive from the default view.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.drives.hide@.+module Gogol.Drive.Drives.Hide+  ( -- * Resource+    DriveDrivesHideResource,++    -- ** Constructing a Request+    DriveDrivesHide (..),+    newDriveDrivesHide,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.drives.hide@ method which the+-- 'DriveDrivesHide' request conforms to.+type DriveDrivesHideResource =+  "drive"+    Core.:> "v3"+    Core.:> "drives"+    Core.:> Core.Capture "driveId" Core.Text+    Core.:> "hide"+    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.Post '[Core.JSON] Drive++-- | Hides a shared drive from the default view.+--+-- /See:/ 'newDriveDrivesHide' smart constructor.+data DriveDrivesHide = DriveDrivesHide+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the shared drive.+    driveId :: 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 'DriveDrivesHide' with the minimum fields required to make a request.+newDriveDrivesHide ::+  -- |  The ID of the shared drive. See 'driveId'.+  Core.Text ->+  DriveDrivesHide+newDriveDrivesHide driveId =+  DriveDrivesHide+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      driveId = driveId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveDrivesHide where+  type Rs DriveDrivesHide = Drive+  type Scopes DriveDrivesHide = '[Drive'FullControl]+  requestClient DriveDrivesHide {..} =+    go+      driveId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveDrivesHideResource)+          Core.mempty
+ gen/Gogol/Drive/Drives/List.hs view
@@ -0,0 +1,122 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Drives.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 user\'s shared drives. This method accepts the @q@ parameter, which is a search query combining one or more search terms. For more information, see the </drive/api/guides/search-shareddrives Search for shared drives> guide.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.drives.list@.+module Gogol.Drive.Drives.List+  ( -- * Resource+    DriveDrivesListResource,++    -- ** Constructing a Request+    DriveDrivesList (..),+    newDriveDrivesList,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.drives.list@ method which the+-- 'DriveDrivesList' request conforms to.+type DriveDrivesListResource =+  "drive"+    Core.:> "v3"+    Core.:> "drives"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "q" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "useDomainAdminAccess" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] DriveList++-- | Lists the user\'s shared drives. This method accepts the @q@ parameter, which is a search query combining one or more search terms. For more information, see the </drive/api/guides/search-shareddrives Search for shared drives> guide.+--+-- /See:/ 'newDriveDrivesList' smart constructor.+data DriveDrivesList = DriveDrivesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Maximum number of shared drives to return per page.+    pageSize :: Core.Int32,+    -- | Page token for shared drives.+    pageToken :: (Core.Maybe Core.Text),+    -- | Query string for searching shared drives.+    q :: (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),+    -- | Issue the request as a domain administrator; if set to true, then all shared drives of the domain in which the requester is an administrator are returned.+    useDomainAdminAccess :: Core.Bool+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DriveDrivesList' with the minimum fields required to make a request.+newDriveDrivesList ::+  DriveDrivesList+newDriveDrivesList =+  DriveDrivesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      pageSize = 10,+      pageToken = Core.Nothing,+      q = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      useDomainAdminAccess = Core.False+    }++instance Core.GoogleRequest DriveDrivesList where+  type Rs DriveDrivesList = DriveList+  type Scopes DriveDrivesList = '[Drive'FullControl, Drive'Readonly]+  requestClient DriveDrivesList {..} =+    go+      xgafv+      accessToken+      callback+      (Core.Just pageSize)+      pageToken+      q+      uploadType+      uploadProtocol+      (Core.Just useDomainAdminAccess)+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveDrivesListResource)+          Core.mempty
+ gen/Gogol/Drive/Drives/Unhide.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.Drive.Drives.Unhide+-- 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 a shared drive to the default view.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.drives.unhide@.+module Gogol.Drive.Drives.Unhide+  ( -- * Resource+    DriveDrivesUnhideResource,++    -- ** Constructing a Request+    DriveDrivesUnhide (..),+    newDriveDrivesUnhide,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.drives.unhide@ method which the+-- 'DriveDrivesUnhide' request conforms to.+type DriveDrivesUnhideResource =+  "drive"+    Core.:> "v3"+    Core.:> "drives"+    Core.:> Core.Capture "driveId" Core.Text+    Core.:> "unhide"+    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.Post '[Core.JSON] Drive++-- | Restores a shared drive to the default view.+--+-- /See:/ 'newDriveDrivesUnhide' smart constructor.+data DriveDrivesUnhide = DriveDrivesUnhide+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the shared drive.+    driveId :: 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 'DriveDrivesUnhide' with the minimum fields required to make a request.+newDriveDrivesUnhide ::+  -- |  The ID of the shared drive. See 'driveId'.+  Core.Text ->+  DriveDrivesUnhide+newDriveDrivesUnhide driveId =+  DriveDrivesUnhide+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      driveId = driveId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveDrivesUnhide where+  type Rs DriveDrivesUnhide = Drive+  type Scopes DriveDrivesUnhide = '[Drive'FullControl]+  requestClient DriveDrivesUnhide {..} =+    go+      driveId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveDrivesUnhideResource)+          Core.mempty
+ gen/Gogol/Drive/Drives/Update.hs view
@@ -0,0 +1,121 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Drives.Update+-- 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 metadata for a shared drive.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.drives.update@.+module Gogol.Drive.Drives.Update+  ( -- * Resource+    DriveDrivesUpdateResource,++    -- ** Constructing a Request+    DriveDrivesUpdate (..),+    newDriveDrivesUpdate,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.drives.update@ method which the+-- 'DriveDrivesUpdate' request conforms to.+type DriveDrivesUpdateResource =+  "drive"+    Core.:> "v3"+    Core.:> "drives"+    Core.:> Core.Capture "driveId" 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 "useDomainAdminAccess" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Drive+    Core.:> Core.Patch '[Core.JSON] Drive++-- | Updates the metadata for a shared drive.+--+-- /See:/ 'newDriveDrivesUpdate' smart constructor.+data DriveDrivesUpdate = DriveDrivesUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the shared drive.+    driveId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Drive,+    -- | 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),+    -- | Issue the request as a domain administrator; if set to true, then the requester will be granted access if they are an administrator of the domain to which the shared drive belongs.+    useDomainAdminAccess :: Core.Bool+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DriveDrivesUpdate' with the minimum fields required to make a request.+newDriveDrivesUpdate ::+  -- |  The ID of the shared drive. See 'driveId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Drive ->+  DriveDrivesUpdate+newDriveDrivesUpdate driveId payload =+  DriveDrivesUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      driveId = driveId,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      useDomainAdminAccess = Core.False+    }++instance Core.GoogleRequest DriveDrivesUpdate where+  type Rs DriveDrivesUpdate = Drive+  type Scopes DriveDrivesUpdate = '[Drive'FullControl]+  requestClient DriveDrivesUpdate {..} =+    go+      driveId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just useDomainAdminAccess)+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveDrivesUpdateResource)+          Core.mempty
+ gen/Gogol/Drive/Files/Copy.hs view
@@ -0,0 +1,163 @@+{-# 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.Drive.Files.Copy+-- 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 copy of a file and applies any requested updates with patch semantics.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.files.copy@.+module Gogol.Drive.Files.Copy+  ( -- * Resource+    DriveFilesCopyResource,++    -- ** Constructing a Request+    DriveFilesCopy (..),+    newDriveFilesCopy,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.files.copy@ method which the+-- 'DriveFilesCopy' request conforms to.+type DriveFilesCopyResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "copy"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "enforceSingleParent" Core.Bool+    Core.:> Core.QueryParam "ignoreDefaultVisibility" Core.Bool+    Core.:> Core.QueryParam "includeLabels" Core.Text+    Core.:> Core.QueryParam "includePermissionsForView" Core.Text+    Core.:> Core.QueryParam "keepRevisionForever" Core.Bool+    Core.:> Core.QueryParam "ocrLanguage" Core.Text+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] File+    Core.:> Core.Post '[Core.JSON] File++-- | Creates a copy of a file and applies any requested updates with patch semantics.+--+-- /See:/ 'newDriveFilesCopy' smart constructor.+data DriveFilesCopy = DriveFilesCopy+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Deprecated. Copying files into multiple folders is no longer supported. Use shortcuts instead.+    enforceSingleParent :: Core.Bool,+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | Whether to ignore the domain\'s default visibility settings for the created file. Domain administrators can choose to make all uploaded files visible to the domain by default; this parameter bypasses that behavior for the request. Permissions are still inherited from parent folders.+    ignoreDefaultVisibility :: Core.Bool,+    -- | A comma-separated list of IDs of labels to include in the @labelInfo@ part of the response.+    includeLabels :: (Core.Maybe Core.Text),+    -- | Specifies which additional view\'s permissions to include in the response. Only \'published\' is supported.+    includePermissionsForView :: (Core.Maybe Core.Text),+    -- | Whether to set the \'keepForever\' field in the new head revision. This is only applicable to files with binary content in Google Drive. Only 200 revisions for the file can be kept forever. If the limit is reached, try deleting pinned revisions.+    keepRevisionForever :: Core.Bool,+    -- | A language hint for OCR processing during image import (ISO 639-1 code).+    ocrLanguage :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: File,+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: 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 'DriveFilesCopy' with the minimum fields required to make a request.+newDriveFilesCopy ::+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  File ->+  DriveFilesCopy+newDriveFilesCopy fileId payload =+  DriveFilesCopy+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      enforceSingleParent = Core.False,+      fileId = fileId,+      ignoreDefaultVisibility = Core.False,+      includeLabels = Core.Nothing,+      includePermissionsForView = Core.Nothing,+      keepRevisionForever = Core.False,+      ocrLanguage = Core.Nothing,+      payload = payload,+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveFilesCopy where+  type Rs DriveFilesCopy = File+  type+    Scopes DriveFilesCopy =+      '[ Drive'FullControl,+         Drive'Appdata,+         Drive'File,+         Drive'Photos'Readonly+       ]+  requestClient DriveFilesCopy {..} =+    go+      fileId+      xgafv+      accessToken+      callback+      (Core.Just enforceSingleParent)+      (Core.Just ignoreDefaultVisibility)+      includeLabels+      includePermissionsForView+      (Core.Just keepRevisionForever)+      ocrLanguage+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesCopyResource)+          Core.mempty
+ gen/Gogol/Drive/Files/Create.hs view
@@ -0,0 +1,212 @@+{-# 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.Drive.Files.Create+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new file. This method supports an /\/upload/ URI and accepts uploaded media with the following characteristics: - /Maximum file size:/ 5,120 GB - /Accepted Media MIME types:/@*\/*@ Note: Specify a valid MIME type, rather than the literal @*\/*@ value. The literal @*\/*@ is only used to indicate that any valid MIME type can be uploaded. For more information on uploading files, see </drive/api/guides/manage-uploads Upload file data>. Apps creating shortcuts with @files.create@ must specify the MIME type @application\/vnd.google-apps.shortcut@. Apps should specify a file extension in the @name@ property when inserting files with the API. For example, an operation to insert a JPEG file should specify something like @\"name\": \"cat.jpg\"@ in the metadata. Subsequent @GET@ requests include the read-only @fileExtension@ property populated with the extension originally specified in the @title@ property. When a Google Drive user requests to download a file, or when the file is downloaded through the sync+-- client, Drive builds a full filename (with extension) based on the title. In cases where the extension is missing, Drive attempts to determine the extension based on the file\'s MIME type.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.files.create@.+module Gogol.Drive.Files.Create+  ( -- * Resource+    DriveFilesCreateResource,++    -- ** Constructing a Request+    DriveFilesCreate (..),+    newDriveFilesCreate,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.files.create@ method which the+-- 'DriveFilesCreate' request conforms to.+type DriveFilesCreateResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "enforceSingleParent" Core.Bool+    Core.:> Core.QueryParam "ignoreDefaultVisibility" Core.Bool+    Core.:> Core.QueryParam "includeLabels" Core.Text+    Core.:> Core.QueryParam "includePermissionsForView" Core.Text+    Core.:> Core.QueryParam "keepRevisionForever" Core.Bool+    Core.:> Core.QueryParam "ocrLanguage" Core.Text+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "useContentAsIndexableText" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] File+    Core.:> Core.Post '[Core.JSON] File+    Core.:<|> "upload"+    Core.:> "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "enforceSingleParent" Core.Bool+    Core.:> Core.QueryParam "ignoreDefaultVisibility" Core.Bool+    Core.:> Core.QueryParam "includeLabels" Core.Text+    Core.:> Core.QueryParam "includePermissionsForView" Core.Text+    Core.:> Core.QueryParam "keepRevisionForever" Core.Bool+    Core.:> Core.QueryParam "ocrLanguage" Core.Text+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "useContentAsIndexableText" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.QueryParam "uploadType" Core.Multipart+    Core.:> Core.MultipartRelated '[Core.JSON] File+    Core.:> Core.Post '[Core.JSON] File++-- | Creates a new file. This method supports an /\/upload/ URI and accepts uploaded media with the following characteristics: - /Maximum file size:/ 5,120 GB - /Accepted Media MIME types:/@*\/*@ Note: Specify a valid MIME type, rather than the literal @*\/*@ value. The literal @*\/*@ is only used to indicate that any valid MIME type can be uploaded. For more information on uploading files, see </drive/api/guides/manage-uploads Upload file data>. Apps creating shortcuts with @files.create@ must specify the MIME type @application\/vnd.google-apps.shortcut@. Apps should specify a file extension in the @name@ property when inserting files with the API. For example, an operation to insert a JPEG file should specify something like @\"name\": \"cat.jpg\"@ in the metadata. Subsequent @GET@ requests include the read-only @fileExtension@ property populated with the extension originally specified in the @title@ property. When a Google Drive user requests to download a file, or when the file is downloaded through the sync+-- client, Drive builds a full filename (with extension) based on the title. In cases where the extension is missing, Drive attempts to determine the extension based on the file\'s MIME type.+--+-- /See:/ 'newDriveFilesCreate' smart constructor.+data DriveFilesCreate = DriveFilesCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Deprecated. Creating files in multiple folders is no longer supported.+    enforceSingleParent :: Core.Bool,+    -- | Whether to ignore the domain\'s default visibility settings for the created file. Domain administrators can choose to make all uploaded files visible to the domain by default; this parameter bypasses that behavior for the request. Permissions are still inherited from parent folders.+    ignoreDefaultVisibility :: Core.Bool,+    -- | A comma-separated list of IDs of labels to include in the @labelInfo@ part of the response.+    includeLabels :: (Core.Maybe Core.Text),+    -- | Specifies which additional view\'s permissions to include in the response. Only \'published\' is supported.+    includePermissionsForView :: (Core.Maybe Core.Text),+    -- | Whether to set the \'keepForever\' field in the new head revision. This is only applicable to files with binary content in Google Drive. Only 200 revisions for the file can be kept forever. If the limit is reached, try deleting pinned revisions.+    keepRevisionForever :: Core.Bool,+    -- | A language hint for OCR processing during image import (ISO 639-1 code).+    ocrLanguage :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: File,+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: 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),+    -- | Whether to use the uploaded content as indexable text.+    useContentAsIndexableText :: Core.Bool+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DriveFilesCreate' with the minimum fields required to make a request.+newDriveFilesCreate ::+  -- |  Multipart request metadata. See 'payload'.+  File ->+  DriveFilesCreate+newDriveFilesCreate payload =+  DriveFilesCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      enforceSingleParent = Core.False,+      ignoreDefaultVisibility = Core.False,+      includeLabels = Core.Nothing,+      includePermissionsForView = Core.Nothing,+      keepRevisionForever = Core.False,+      ocrLanguage = Core.Nothing,+      payload = payload,+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      useContentAsIndexableText = Core.False+    }++instance Core.GoogleRequest DriveFilesCreate where+  type Rs DriveFilesCreate = File+  type+    Scopes DriveFilesCreate =+      '[Drive'FullControl, Drive'Appdata, Drive'File]+  requestClient DriveFilesCreate {..} =+    go+      xgafv+      accessToken+      callback+      (Core.Just enforceSingleParent)+      (Core.Just ignoreDefaultVisibility)+      includeLabels+      includePermissionsForView+      (Core.Just keepRevisionForever)+      ocrLanguage+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      uploadType+      uploadProtocol+      (Core.Just useContentAsIndexableText)+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go Core.:<|> _ =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesCreateResource)+          Core.mempty++instance Core.GoogleRequest (Core.MediaUpload DriveFilesCreate) where+  type Rs (Core.MediaUpload DriveFilesCreate) = File+  type+    Scopes (Core.MediaUpload DriveFilesCreate) =+      Core.Scopes DriveFilesCreate+  requestClient (Core.MediaUpload DriveFilesCreate {..} body) =+    go+      xgafv+      accessToken+      callback+      (Core.Just enforceSingleParent)+      (Core.Just ignoreDefaultVisibility)+      includeLabels+      includePermissionsForView+      (Core.Just keepRevisionForever)+      ocrLanguage+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      uploadType+      uploadProtocol+      (Core.Just useContentAsIndexableText)+      (Core.Just Core.AltJSON)+      (Core.Just Core.Multipart)+      payload+      body+      driveService+    where+      _ Core.:<|> go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesCreateResource)+          Core.mempty
+ gen/Gogol/Drive/Files/Delete.hs view
@@ -0,0 +1,126 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Files.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)+--+-- Permanently deletes a file owned by the user without moving it to the trash. If the file belongs to a shared drive, the user must be an @organizer@ on the parent folder. If the target is a folder, all descendants owned by the user are also deleted.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.files.delete@.+module Gogol.Drive.Files.Delete+  ( -- * Resource+    DriveFilesDeleteResource,++    -- ** Constructing a Request+    DriveFilesDelete (..),+    newDriveFilesDelete,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.files.delete@ method which the+-- 'DriveFilesDelete' request conforms to.+type DriveFilesDeleteResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "enforceSingleParent" Core.Bool+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" 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] ()++-- | Permanently deletes a file owned by the user without moving it to the trash. If the file belongs to a shared drive, the user must be an @organizer@ on the parent folder. If the target is a folder, all descendants owned by the user are also deleted.+--+-- /See:/ 'newDriveFilesDelete' smart constructor.+data DriveFilesDelete = DriveFilesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Deprecated: If an item is not in a shared drive and its last parent is deleted but the item itself is not, the item will be placed under its owner\'s root.+    enforceSingleParent :: Core.Bool,+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: 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 'DriveFilesDelete' with the minimum fields required to make a request.+newDriveFilesDelete ::+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  DriveFilesDelete+newDriveFilesDelete fileId =+  DriveFilesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      enforceSingleParent = Core.False,+      fileId = fileId,+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveFilesDelete where+  type Rs DriveFilesDelete = ()+  type+    Scopes DriveFilesDelete =+      '[Drive'FullControl, Drive'Appdata, Drive'File]+  requestClient DriveFilesDelete {..} =+    go+      fileId+      xgafv+      accessToken+      callback+      (Core.Just enforceSingleParent)+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesDeleteResource)+          Core.mempty
+ gen/Gogol/Drive/Files/Download.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.Drive.Files.Download+-- 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)+--+-- Downloads content of a file. Operations are valid for 24 hours from the time of creation.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.files.download@.+module Gogol.Drive.Files.Download+  ( -- * Resource+    DriveFilesDownloadResource,++    -- ** Constructing a Request+    DriveFilesDownload (..),+    newDriveFilesDownload,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.files.download@ method which the+-- 'DriveFilesDownload' request conforms to.+type DriveFilesDownloadResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "download"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "mimeType" Core.Text+    Core.:> Core.QueryParam "revisionId" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Post '[Core.JSON] Operation++-- | Downloads content of a file. Operations are valid for 24 hours from the time of creation.+--+-- /See:/ 'newDriveFilesDownload' smart constructor.+data DriveFilesDownload = DriveFilesDownload+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The ID of the file to download.+    fileId :: Core.Text,+    -- | Optional. The MIME type the file should be downloaded as. This field can only be set when downloading Google Workspace documents. See </drive/api/guides/ref-export-formats Export MIME types for Google Workspace documents> for the list of supported MIME types. If not set, a Google Workspace document is downloaded with a default MIME type. The default MIME type might change in the future.+    mimeType :: (Core.Maybe Core.Text),+    -- | Optional. The revision ID of the file to download. This field can only be set when downloading blob files, Google Docs, and Google Sheets. Returns @INVALID_ARGUMENT@ if downloading a specific revision on the file is unsupported.+    revisionId :: (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 'DriveFilesDownload' with the minimum fields required to make a request.+newDriveFilesDownload ::+  -- |  Required. The ID of the file to download. See 'fileId'.+  Core.Text ->+  DriveFilesDownload+newDriveFilesDownload fileId =+  DriveFilesDownload+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      fileId = fileId,+      mimeType = Core.Nothing,+      revisionId = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveFilesDownload where+  type Rs DriveFilesDownload = Operation+  type+    Scopes DriveFilesDownload =+      '[Drive'FullControl, Drive'File, Drive'Readonly]+  requestClient DriveFilesDownload {..} =+    go+      fileId+      xgafv+      accessToken+      callback+      mimeType+      revisionId+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesDownloadResource)+          Core.mempty
+ gen/Gogol/Drive/Files/EmptyTrash.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Files.EmptyTrash+-- 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)+--+-- Permanently deletes all of the user\'s trashed files.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.files.emptyTrash@.+module Gogol.Drive.Files.EmptyTrash+  ( -- * Resource+    DriveFilesEmptyTrashResource,++    -- ** Constructing a Request+    DriveFilesEmptyTrash (..),+    newDriveFilesEmptyTrash,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.files.emptyTrash@ method which the+-- 'DriveFilesEmptyTrash' request conforms to.+type DriveFilesEmptyTrashResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> "trash"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "driveId" Core.Text+    Core.:> Core.QueryParam "enforceSingleParent" 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] ()++-- | Permanently deletes all of the user\'s trashed files.+--+-- /See:/ 'newDriveFilesEmptyTrash' smart constructor.+data DriveFilesEmptyTrash = DriveFilesEmptyTrash+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | If set, empties the trash of the provided shared drive.+    driveId :: (Core.Maybe Core.Text),+    -- | Deprecated: If an item is not in a shared drive and its last parent is deleted but the item itself is not, the item will be placed under its owner\'s root.+    enforceSingleParent :: 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 'DriveFilesEmptyTrash' with the minimum fields required to make a request.+newDriveFilesEmptyTrash ::+  DriveFilesEmptyTrash+newDriveFilesEmptyTrash =+  DriveFilesEmptyTrash+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      driveId = Core.Nothing,+      enforceSingleParent = Core.False,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveFilesEmptyTrash where+  type Rs DriveFilesEmptyTrash = ()+  type Scopes DriveFilesEmptyTrash = '[Drive'FullControl]+  requestClient DriveFilesEmptyTrash {..} =+    go+      xgafv+      accessToken+      callback+      driveId+      (Core.Just enforceSingleParent)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesEmptyTrashResource)+          Core.mempty
+ gen/Gogol/Drive/Files/Export.hs view
@@ -0,0 +1,158 @@+{-# 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.Drive.Files.Export+-- 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)+--+-- Exports a Google Workspace document to the requested MIME type and returns exported byte content. Note that the exported content is limited to 10MB.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.files.export@.+module Gogol.Drive.Files.Export+  ( -- * Resource+    DriveFilesExportResource,++    -- ** Constructing a Request+    DriveFilesExport (..),+    newDriveFilesExport,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.files.export@ method which the+-- 'DriveFilesExport' request conforms to.+type DriveFilesExportResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "export"+    Core.:> Core.QueryParam "mimeType" 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] ()+    Core.:<|> "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "export"+    Core.:> Core.QueryParam "mimeType" 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.AltMedia+    Core.:> Core.Get '[Core.OctetStream] Core.Stream++-- | Exports a Google Workspace document to the requested MIME type and returns exported byte content. Note that the exported content is limited to 10MB.+--+-- /See:/ 'newDriveFilesExport' smart constructor.+data DriveFilesExport = DriveFilesExport+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | Required. The MIME type of the format requested for this export.+    mimeType :: 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 'DriveFilesExport' with the minimum fields required to make a request.+newDriveFilesExport ::+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  -- |  Required. The MIME type of the format requested for this export. See 'mimeType'.+  Core.Text ->+  DriveFilesExport+newDriveFilesExport fileId mimeType =+  DriveFilesExport+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      fileId = fileId,+      mimeType = mimeType,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveFilesExport where+  type Rs DriveFilesExport = ()+  type+    Scopes DriveFilesExport =+      '[ Drive'FullControl,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Readonly+       ]+  requestClient DriveFilesExport {..} =+    go+      fileId+      (Core.Just mimeType)+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go Core.:<|> _ =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesExportResource)+          Core.mempty++instance Core.GoogleRequest (Core.MediaDownload DriveFilesExport) where+  type Rs (Core.MediaDownload DriveFilesExport) = Core.Stream+  type+    Scopes (Core.MediaDownload DriveFilesExport) =+      Core.Scopes DriveFilesExport+  requestClient (Core.MediaDownload DriveFilesExport {..}) =+    go+      fileId+      (Core.Just mimeType)+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltMedia)+      driveService+    where+      _ Core.:<|> go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesExportResource)+          Core.mempty
+ gen/Gogol/Drive/Files/GenerateIds.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.Drive.Files.GenerateIds+-- 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)+--+-- Generates a set of file IDs which can be provided in create or copy requests.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.files.generateIds@.+module Gogol.Drive.Files.GenerateIds+  ( -- * Resource+    DriveFilesGenerateIdsResource,++    -- ** Constructing a Request+    DriveFilesGenerateIds (..),+    newDriveFilesGenerateIds,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.files.generateIds@ method which the+-- 'DriveFilesGenerateIds' request conforms to.+type DriveFilesGenerateIdsResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> "generateIds"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "count" Core.Int32+    Core.:> Core.QueryParam "space" Core.Text+    Core.:> Core.QueryParam "type" 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] GeneratedIds++-- | Generates a set of file IDs which can be provided in create or copy requests.+--+-- /See:/ 'newDriveFilesGenerateIds' smart constructor.+data DriveFilesGenerateIds = DriveFilesGenerateIds+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The number of IDs to return.+    count :: Core.Int32,+    -- | The space in which the IDs can be used to create new files. Supported values are \'drive\' and \'appDataFolder\'. (Default: \'drive\')+    space :: Core.Text,+    -- | The type of items which the IDs can be used for. Supported values are \'files\' and \'shortcuts\'. Note that \'shortcuts\' are only supported in the @drive@ \'space\'. (Default: \'files\')+    type' :: 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 'DriveFilesGenerateIds' with the minimum fields required to make a request.+newDriveFilesGenerateIds ::+  DriveFilesGenerateIds+newDriveFilesGenerateIds =+  DriveFilesGenerateIds+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      count = 10,+      space = "drive",+      type' = "files",+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveFilesGenerateIds where+  type Rs DriveFilesGenerateIds = GeneratedIds+  type+    Scopes DriveFilesGenerateIds =+      '[Drive'FullControl, Drive'Appdata, Drive'File]+  requestClient DriveFilesGenerateIds {..} =+    go+      xgafv+      accessToken+      callback+      (Core.Just count)+      (Core.Just space)+      (Core.Just type')+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesGenerateIdsResource)+          Core.mempty
+ gen/Gogol/Drive/Files/Get.hs view
@@ -0,0 +1,186 @@+{-# 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.Drive.Files.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a file\'s metadata or content by ID. If you provide the URL parameter @alt=media@, then the response includes the file contents in the response body. Downloading content with @alt=media@ only works if the file is stored in Drive. To download Google Docs, Sheets, and Slides use </drive/api/reference/rest/v3/files/export files.export> instead. For more information, see </drive/api/guides/manage-downloads Download & export files>.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.files.get@.+module Gogol.Drive.Files.Get+  ( -- * Resource+    DriveFilesGetResource,++    -- ** Constructing a Request+    DriveFilesGet (..),+    newDriveFilesGet,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.files.get@ method which the+-- 'DriveFilesGet' request conforms to.+type DriveFilesGetResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "acknowledgeAbuse" Core.Bool+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "includeLabels" Core.Text+    Core.:> Core.QueryParam "includePermissionsForView" Core.Text+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" 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] File+    Core.:<|> "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "acknowledgeAbuse" Core.Bool+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "includeLabels" Core.Text+    Core.:> Core.QueryParam "includePermissionsForView" Core.Text+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltMedia+    Core.:> Core.Get '[Core.OctetStream] Core.Stream++-- | Gets a file\'s metadata or content by ID. If you provide the URL parameter @alt=media@, then the response includes the file contents in the response body. Downloading content with @alt=media@ only works if the file is stored in Drive. To download Google Docs, Sheets, and Slides use </drive/api/reference/rest/v3/files/export files.export> instead. For more information, see </drive/api/guides/manage-downloads Download & export files>.+--+-- /See:/ 'newDriveFilesGet' smart constructor.+data DriveFilesGet = DriveFilesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | Whether the user is acknowledging the risk of downloading known malware or other abusive files. This is only applicable when the @alt@ parameter is set to @media@ and the user is the owner of the file or an organizer of the shared drive in which the file resides.+    acknowledgeAbuse :: Core.Bool,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | A comma-separated list of IDs of labels to include in the @labelInfo@ part of the response.+    includeLabels :: (Core.Maybe Core.Text),+    -- | Specifies which additional view\'s permissions to include in the response. Only \'published\' is supported.+    includePermissionsForView :: (Core.Maybe Core.Text),+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: 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 'DriveFilesGet' with the minimum fields required to make a request.+newDriveFilesGet ::+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  DriveFilesGet+newDriveFilesGet fileId =+  DriveFilesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      acknowledgeAbuse = Core.False,+      callback = Core.Nothing,+      fileId = fileId,+      includeLabels = Core.Nothing,+      includePermissionsForView = Core.Nothing,+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveFilesGet where+  type Rs DriveFilesGet = File+  type+    Scopes DriveFilesGet =+      '[ Drive'FullControl,+         Drive'Appdata,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Photos'Readonly,+         Drive'Readonly+       ]+  requestClient DriveFilesGet {..} =+    go+      fileId+      xgafv+      accessToken+      (Core.Just acknowledgeAbuse)+      callback+      includeLabels+      includePermissionsForView+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go Core.:<|> _ =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesGetResource)+          Core.mempty++instance Core.GoogleRequest (Core.MediaDownload DriveFilesGet) where+  type Rs (Core.MediaDownload DriveFilesGet) = Core.Stream+  type+    Scopes (Core.MediaDownload DriveFilesGet) =+      Core.Scopes DriveFilesGet+  requestClient (Core.MediaDownload DriveFilesGet {..}) =+    go+      fileId+      xgafv+      accessToken+      (Core.Just acknowledgeAbuse)+      callback+      includeLabels+      includePermissionsForView+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      uploadType+      uploadProtocol+      (Core.Just Core.AltMedia)+      driveService+    where+      _ Core.:<|> go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesGetResource)+          Core.mempty
+ gen/Gogol/Drive/Files/List.hs view
@@ -0,0 +1,187 @@+{-# 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.Drive.Files.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 user\'s files. This method accepts the @q@ parameter, which is a search query combining one or more search terms. For more information, see the </drive/api/guides/search-files Search for files & folders> guide. /Note:/ This method returns /all/ files by default, including trashed files. If you don\'t want trashed files to appear in the list, use the @trashed=false@ query parameter to remove trashed files from the results.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.files.list@.+module Gogol.Drive.Files.List+  ( -- * Resource+    DriveFilesListResource,++    -- ** Constructing a Request+    DriveFilesList (..),+    newDriveFilesList,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.files.list@ method which the+-- 'DriveFilesList' request conforms to.+type DriveFilesListResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "corpora" Core.Text+    Core.:> Core.QueryParam "corpus" FilesListCorpus+    Core.:> Core.QueryParam "driveId" Core.Text+    Core.:> Core.QueryParam "includeItemsFromAllDrives" Core.Bool+    Core.:> Core.QueryParam "includeLabels" Core.Text+    Core.:> Core.QueryParam "includePermissionsForView" Core.Text+    Core.:> Core.QueryParam "includeTeamDriveItems" Core.Bool+    Core.:> Core.QueryParam "orderBy" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "q" Core.Text+    Core.:> Core.QueryParam "spaces" Core.Text+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "teamDriveId" 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] FileList++-- | Lists the user\'s files. This method accepts the @q@ parameter, which is a search query combining one or more search terms. For more information, see the </drive/api/guides/search-files Search for files & folders> guide. /Note:/ This method returns /all/ files by default, including trashed files. If you don\'t want trashed files to appear in the list, use the @trashed=false@ query parameter to remove trashed files from the results.+--+-- /See:/ 'newDriveFilesList' smart constructor.+data DriveFilesList = DriveFilesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Bodies of items (files\/documents) to which the query applies. Supported bodies are \'user\', \'domain\', \'drive\', and \'allDrives\'. Prefer \'user\' or \'drive\' to \'allDrives\' for efficiency. By default, corpora is set to \'user\'. However, this can change depending on the filter set through the \'q\' parameter.+    corpora :: (Core.Maybe Core.Text),+    -- | Deprecated: The source of files to list. Use \'corpora\' instead.+    corpus :: (Core.Maybe FilesListCorpus),+    -- | ID of the shared drive to search.+    driveId :: (Core.Maybe Core.Text),+    -- | Whether both My Drive and shared drive items should be included in results.+    includeItemsFromAllDrives :: Core.Bool,+    -- | A comma-separated list of IDs of labels to include in the @labelInfo@ part of the response.+    includeLabels :: (Core.Maybe Core.Text),+    -- | Specifies which additional view\'s permissions to include in the response. Only \'published\' is supported.+    includePermissionsForView :: (Core.Maybe Core.Text),+    -- | Deprecated: Use @includeItemsFromAllDrives@ instead.+    includeTeamDriveItems :: Core.Bool,+    -- | A comma-separated list of sort keys. Valid keys are: * @createdTime@: When the file was created. * @folder@: The folder ID. This field is sorted using alphabetical ordering. * @modifiedByMeTime@: The last time the file was modified by the user. * @modifiedTime@: The last time the file was modified by anyone. * @name@: The name of the file. This field is sorted using alphabetical ordering, so 1, 12, 2, 22. * @name_natural@: The name of the file. This field is sorted using natural sort ordering, so 1, 2, 12, 22. * @quotaBytesUsed@: The number of storage quota bytes used by the file. * @recency@: The most recent timestamp from the file\'s date-time fields. * @sharedWithMeTime@: When the file was shared with the user, if applicable. * @starred@: Whether the user has starred the file. * @viewedByMeTime@: The last time the file was viewed by the user. Each key sorts ascending by default, but can be reversed with the \'desc\' modifier. Example usage: @?orderBy=folder,modifiedTime desc,name@.+    orderBy :: (Core.Maybe Core.Text),+    -- | The maximum number of files to return per page. Partial or empty result pages are possible even before the end of the files list has been reached.+    pageSize :: Core.Int32,+    -- | The token for continuing a previous list request on the next page. This should be set to the value of \'nextPageToken\' from the previous response.+    pageToken :: (Core.Maybe Core.Text),+    -- | A query for filtering the file results. See the \"Search for files & folders\" guide for supported syntax.+    q :: (Core.Maybe Core.Text),+    -- | A comma-separated list of spaces to query within the corpora. Supported values are \'drive\' and \'appDataFolder\'.+    spaces :: Core.Text,+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: Core.Bool,+    -- | Deprecated: Use @driveId@ instead.+    teamDriveId :: (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 'DriveFilesList' with the minimum fields required to make a request.+newDriveFilesList ::+  DriveFilesList+newDriveFilesList =+  DriveFilesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      corpora = Core.Nothing,+      corpus = Core.Nothing,+      driveId = Core.Nothing,+      includeItemsFromAllDrives = Core.False,+      includeLabels = Core.Nothing,+      includePermissionsForView = Core.Nothing,+      includeTeamDriveItems = Core.False,+      orderBy = Core.Nothing,+      pageSize = 100,+      pageToken = Core.Nothing,+      q = Core.Nothing,+      spaces = "drive",+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      teamDriveId = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveFilesList where+  type Rs DriveFilesList = FileList+  type+    Scopes DriveFilesList =+      '[ Drive'FullControl,+         Drive'Appdata,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Photos'Readonly,+         Drive'Readonly+       ]+  requestClient DriveFilesList {..} =+    go+      xgafv+      accessToken+      callback+      corpora+      corpus+      driveId+      (Core.Just includeItemsFromAllDrives)+      includeLabels+      includePermissionsForView+      (Core.Just includeTeamDriveItems)+      orderBy+      (Core.Just pageSize)+      pageToken+      q+      (Core.Just spaces)+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      teamDriveId+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesListResource)+          Core.mempty
+ gen/Gogol/Drive/Files/ListLabels.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.Drive.Files.ListLabels+-- 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 labels on a file.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.files.listLabels@.+module Gogol.Drive.Files.ListLabels+  ( -- * Resource+    DriveFilesListLabelsResource,++    -- ** Constructing a Request+    DriveFilesListLabels (..),+    newDriveFilesListLabels,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.files.listLabels@ method which the+-- 'DriveFilesListLabels' request conforms to.+type DriveFilesListLabelsResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "listLabels"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" 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] LabelList++-- | Lists the labels on a file.+--+-- /See:/ 'newDriveFilesListLabels' smart constructor.+data DriveFilesListLabels = DriveFilesListLabels+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID for the file.+    fileId :: Core.Text,+    -- | The maximum number of labels to return per page. When not set, defaults to 100.+    maxResults :: Core.Int32,+    -- | The token for continuing a previous list request on the next page. This should be set to the value of \'nextPageToken\' from the previous response.+    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 'DriveFilesListLabels' with the minimum fields required to make a request.+newDriveFilesListLabels ::+  -- |  The ID for the file. See 'fileId'.+  Core.Text ->+  DriveFilesListLabels+newDriveFilesListLabels fileId =+  DriveFilesListLabels+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      fileId = fileId,+      maxResults = 100,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveFilesListLabels where+  type Rs DriveFilesListLabels = LabelList+  type+    Scopes DriveFilesListLabels =+      '[ Drive'FullControl,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Readonly+       ]+  requestClient DriveFilesListLabels {..} =+    go+      fileId+      xgafv+      accessToken+      callback+      (Core.Just maxResults)+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesListLabelsResource)+          Core.mempty
+ gen/Gogol/Drive/Files/ModifyLabels.hs view
@@ -0,0 +1,119 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Files.ModifyLabels+-- 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)+--+-- Modifies the set of labels applied to a file. Returns a list of the labels that were added or modified.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.files.modifyLabels@.+module Gogol.Drive.Files.ModifyLabels+  ( -- * Resource+    DriveFilesModifyLabelsResource,++    -- ** Constructing a Request+    DriveFilesModifyLabels (..),+    newDriveFilesModifyLabels,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.files.modifyLabels@ method which the+-- 'DriveFilesModifyLabels' request conforms to.+type DriveFilesModifyLabelsResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "modifyLabels"+    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] ModifyLabelsRequest+    Core.:> Core.Post '[Core.JSON] ModifyLabelsResponse++-- | Modifies the set of labels applied to a file. Returns a list of the labels that were added or modified.+--+-- /See:/ 'newDriveFilesModifyLabels' smart constructor.+data DriveFilesModifyLabels = DriveFilesModifyLabels+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the file to which the labels belong.+    fileId :: Core.Text,+    -- | Multipart request metadata.+    payload :: ModifyLabelsRequest,+    -- | 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 'DriveFilesModifyLabels' with the minimum fields required to make a request.+newDriveFilesModifyLabels ::+  -- |  The ID of the file to which the labels belong. See 'fileId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ModifyLabelsRequest ->+  DriveFilesModifyLabels+newDriveFilesModifyLabels fileId payload =+  DriveFilesModifyLabels+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      fileId = fileId,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveFilesModifyLabels where+  type Rs DriveFilesModifyLabels = ModifyLabelsResponse+  type+    Scopes DriveFilesModifyLabels =+      '[Drive'FullControl, Drive'File, Drive'Metadata]+  requestClient DriveFilesModifyLabels {..} =+    go+      fileId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesModifyLabelsResource)+          Core.mempty
+ gen/Gogol/Drive/Files/Update.hs view
@@ -0,0 +1,231 @@+{-# 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.Drive.Files.Update+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a file\'s metadata and\/or content. When calling this method, only populate fields in the request that you want to modify. When updating fields, some fields might be changed automatically, such as @modifiedDate@. This method supports patch semantics. This method supports an /\/upload/ URI and accepts uploaded media with the following characteristics: - /Maximum file size:/ 5,120 GB - /Accepted Media MIME types:/@*\/*@ Note: Specify a valid MIME type, rather than the literal @*\/*@ value. The literal @*\/*@ is only used to indicate that any valid MIME type can be uploaded. For more information on uploading files, see </drive/api/guides/manage-uploads Upload file data>.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.files.update@.+module Gogol.Drive.Files.Update+  ( -- * Resource+    DriveFilesUpdateResource,++    -- ** Constructing a Request+    DriveFilesUpdate (..),+    newDriveFilesUpdate,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.files.update@ method which the+-- 'DriveFilesUpdate' request conforms to.+type DriveFilesUpdateResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "addParents" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "enforceSingleParent" Core.Bool+    Core.:> Core.QueryParam "includeLabels" Core.Text+    Core.:> Core.QueryParam "includePermissionsForView" Core.Text+    Core.:> Core.QueryParam "keepRevisionForever" Core.Bool+    Core.:> Core.QueryParam "ocrLanguage" Core.Text+    Core.:> Core.QueryParam "removeParents" Core.Text+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "useContentAsIndexableText" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] File+    Core.:> Core.Patch '[Core.JSON] File+    Core.:<|> "upload"+    Core.:> "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "addParents" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "enforceSingleParent" Core.Bool+    Core.:> Core.QueryParam "includeLabels" Core.Text+    Core.:> Core.QueryParam "includePermissionsForView" Core.Text+    Core.:> Core.QueryParam "keepRevisionForever" Core.Bool+    Core.:> Core.QueryParam "ocrLanguage" Core.Text+    Core.:> Core.QueryParam "removeParents" Core.Text+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "useContentAsIndexableText" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.QueryParam "uploadType" Core.Multipart+    Core.:> Core.MultipartRelated '[Core.JSON] File+    Core.:> Core.Patch '[Core.JSON] File++-- | Updates a file\'s metadata and\/or content. When calling this method, only populate fields in the request that you want to modify. When updating fields, some fields might be changed automatically, such as @modifiedDate@. This method supports patch semantics. This method supports an /\/upload/ URI and accepts uploaded media with the following characteristics: - /Maximum file size:/ 5,120 GB - /Accepted Media MIME types:/@*\/*@ Note: Specify a valid MIME type, rather than the literal @*\/*@ value. The literal @*\/*@ is only used to indicate that any valid MIME type can be uploaded. For more information on uploading files, see </drive/api/guides/manage-uploads Upload file data>.+--+-- /See:/ 'newDriveFilesUpdate' smart constructor.+data DriveFilesUpdate = DriveFilesUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | A comma-separated list of parent IDs to add.+    addParents :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Deprecated: Adding files to multiple folders is no longer supported. Use shortcuts instead.+    enforceSingleParent :: Core.Bool,+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | A comma-separated list of IDs of labels to include in the @labelInfo@ part of the response.+    includeLabels :: (Core.Maybe Core.Text),+    -- | Specifies which additional view\'s permissions to include in the response. Only \'published\' is supported.+    includePermissionsForView :: (Core.Maybe Core.Text),+    -- | Whether to set the \'keepForever\' field in the new head revision. This is only applicable to files with binary content in Google Drive. Only 200 revisions for the file can be kept forever. If the limit is reached, try deleting pinned revisions.+    keepRevisionForever :: Core.Bool,+    -- | A language hint for OCR processing during image import (ISO 639-1 code).+    ocrLanguage :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: File,+    -- | A comma-separated list of parent IDs to remove.+    removeParents :: (Core.Maybe Core.Text),+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: 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),+    -- | Whether to use the uploaded content as indexable text.+    useContentAsIndexableText :: Core.Bool+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DriveFilesUpdate' with the minimum fields required to make a request.+newDriveFilesUpdate ::+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  File ->+  DriveFilesUpdate+newDriveFilesUpdate fileId payload =+  DriveFilesUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      addParents = Core.Nothing,+      callback = Core.Nothing,+      enforceSingleParent = Core.False,+      fileId = fileId,+      includeLabels = Core.Nothing,+      includePermissionsForView = Core.Nothing,+      keepRevisionForever = Core.False,+      ocrLanguage = Core.Nothing,+      payload = payload,+      removeParents = Core.Nothing,+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      useContentAsIndexableText = Core.False+    }++instance Core.GoogleRequest DriveFilesUpdate where+  type Rs DriveFilesUpdate = File+  type+    Scopes DriveFilesUpdate =+      '[ Drive'FullControl,+         Drive'Appdata,+         Drive'File,+         Drive'Metadata,+         Drive'Scripts+       ]+  requestClient DriveFilesUpdate {..} =+    go+      fileId+      xgafv+      accessToken+      addParents+      callback+      (Core.Just enforceSingleParent)+      includeLabels+      includePermissionsForView+      (Core.Just keepRevisionForever)+      ocrLanguage+      removeParents+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      uploadType+      uploadProtocol+      (Core.Just useContentAsIndexableText)+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go Core.:<|> _ =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesUpdateResource)+          Core.mempty++instance Core.GoogleRequest (Core.MediaUpload DriveFilesUpdate) where+  type Rs (Core.MediaUpload DriveFilesUpdate) = File+  type+    Scopes (Core.MediaUpload DriveFilesUpdate) =+      Core.Scopes DriveFilesUpdate+  requestClient (Core.MediaUpload DriveFilesUpdate {..} body) =+    go+      fileId+      xgafv+      accessToken+      addParents+      callback+      (Core.Just enforceSingleParent)+      includeLabels+      includePermissionsForView+      (Core.Just keepRevisionForever)+      ocrLanguage+      removeParents+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      uploadType+      uploadProtocol+      (Core.Just useContentAsIndexableText)+      (Core.Just Core.AltJSON)+      (Core.Just Core.Multipart)+      payload+      body+      driveService+    where+      _ Core.:<|> go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesUpdateResource)+          Core.mempty
+ gen/Gogol/Drive/Files/Watch.hs view
@@ -0,0 +1,152 @@+{-# 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.Drive.Files.Watch+-- 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)+--+-- Subscribes to changes to a file.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.files.watch@.+module Gogol.Drive.Files.Watch+  ( -- * Resource+    DriveFilesWatchResource,++    -- ** Constructing a Request+    DriveFilesWatch (..),+    newDriveFilesWatch,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.files.watch@ method which the+-- 'DriveFilesWatch' request conforms to.+type DriveFilesWatchResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "watch"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "acknowledgeAbuse" Core.Bool+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "includeLabels" Core.Text+    Core.:> Core.QueryParam "includePermissionsForView" Core.Text+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Channel+    Core.:> Core.Post '[Core.JSON] Channel++-- | Subscribes to changes to a file.+--+-- /See:/ 'newDriveFilesWatch' smart constructor.+data DriveFilesWatch = DriveFilesWatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | Whether the user is acknowledging the risk of downloading known malware or other abusive files. This is only applicable when the @alt@ parameter is set to @media@ and the user is the owner of the file or an organizer of the shared drive in which the file resides.+    acknowledgeAbuse :: Core.Bool,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | A comma-separated list of IDs of labels to include in the @labelInfo@ part of the response.+    includeLabels :: (Core.Maybe Core.Text),+    -- | Specifies which additional view\'s permissions to include in the response. Only \'published\' is supported.+    includePermissionsForView :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: Channel,+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: 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 'DriveFilesWatch' with the minimum fields required to make a request.+newDriveFilesWatch ::+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Channel ->+  DriveFilesWatch+newDriveFilesWatch fileId payload =+  DriveFilesWatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      acknowledgeAbuse = Core.False,+      callback = Core.Nothing,+      fileId = fileId,+      includeLabels = Core.Nothing,+      includePermissionsForView = Core.Nothing,+      payload = payload,+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveFilesWatch where+  type Rs DriveFilesWatch = Channel+  type+    Scopes DriveFilesWatch =+      '[ Drive'FullControl,+         Drive'Appdata,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Photos'Readonly,+         Drive'Readonly+       ]+  requestClient DriveFilesWatch {..} =+    go+      fileId+      xgafv+      accessToken+      (Core.Just acknowledgeAbuse)+      callback+      includeLabels+      includePermissionsForView+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveFilesWatchResource)+          Core.mempty
+ gen/Gogol/Drive/Internal/Product.hs view
@@ -0,0 +1,4774 @@+{-# 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.Drive.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.Drive.Internal.Product+  ( -- * About+    About (..),+    newAbout,++    -- * About_DriveThemesItem+    About_DriveThemesItem (..),+    newAbout_DriveThemesItem,++    -- * About_ExportFormats+    About_ExportFormats (..),+    newAbout_ExportFormats,++    -- * About_ImportFormats+    About_ImportFormats (..),+    newAbout_ImportFormats,++    -- * About_MaxImportSizes+    About_MaxImportSizes (..),+    newAbout_MaxImportSizes,++    -- * About_StorageQuota+    About_StorageQuota (..),+    newAbout_StorageQuota,++    -- * About_TeamDriveThemesItem+    About_TeamDriveThemesItem (..),+    newAbout_TeamDriveThemesItem,++    -- * AccessProposal+    AccessProposal (..),+    newAccessProposal,++    -- * AccessProposalRoleAndView+    AccessProposalRoleAndView (..),+    newAccessProposalRoleAndView,++    -- * App+    App (..),+    newApp,++    -- * AppIcons+    AppIcons (..),+    newAppIcons,++    -- * AppList+    AppList (..),+    newAppList,++    -- * Change+    Change (..),+    newChange,++    -- * ChangeList+    ChangeList (..),+    newChangeList,++    -- * Channel+    Channel (..),+    newChannel,++    -- * Channel_Params+    Channel_Params (..),+    newChannel_Params,++    -- * Comment+    Comment (..),+    newComment,++    -- * Comment_QuotedFileContent+    Comment_QuotedFileContent (..),+    newComment_QuotedFileContent,++    -- * CommentList+    CommentList (..),+    newCommentList,++    -- * ContentRestriction+    ContentRestriction (..),+    newContentRestriction,++    -- * DownloadRestriction+    DownloadRestriction (..),+    newDownloadRestriction,++    -- * Drive+    Drive (..),+    newDrive,++    -- * Drive_BackgroundImageFile+    Drive_BackgroundImageFile (..),+    newDrive_BackgroundImageFile,++    -- * Drive_Capabilities+    Drive_Capabilities (..),+    newDrive_Capabilities,++    -- * Drive_Restrictions+    Drive_Restrictions (..),+    newDrive_Restrictions,++    -- * DriveList+    DriveList (..),+    newDriveList,++    -- * File+    File (..),+    newFile,++    -- * File_AppProperties+    File_AppProperties (..),+    newFile_AppProperties,++    -- * File_Capabilities+    File_Capabilities (..),+    newFile_Capabilities,++    -- * File_ContentHints+    File_ContentHints (..),+    newFile_ContentHints,++    -- * File_ContentHints_Thumbnail+    File_ContentHints_Thumbnail (..),+    newFile_ContentHints_Thumbnail,++    -- * File_ExportLinks+    File_ExportLinks (..),+    newFile_ExportLinks,++    -- * File_ImageMediaMetadata+    File_ImageMediaMetadata (..),+    newFile_ImageMediaMetadata,++    -- * File_ImageMediaMetadata_Location+    File_ImageMediaMetadata_Location (..),+    newFile_ImageMediaMetadata_Location,++    -- * File_LabelInfo+    File_LabelInfo (..),+    newFile_LabelInfo,++    -- * File_LinkShareMetadata+    File_LinkShareMetadata (..),+    newFile_LinkShareMetadata,++    -- * File_Properties+    File_Properties (..),+    newFile_Properties,++    -- * File_ShortcutDetails+    File_ShortcutDetails (..),+    newFile_ShortcutDetails,++    -- * File_VideoMediaMetadata+    File_VideoMediaMetadata (..),+    newFile_VideoMediaMetadata,++    -- * FileList+    FileList (..),+    newFileList,++    -- * GeneratedIds+    GeneratedIds (..),+    newGeneratedIds,++    -- * Label+    Label (..),+    newLabel,++    -- * Label_Fields+    Label_Fields (..),+    newLabel_Fields,++    -- * LabelField+    LabelField (..),+    newLabelField,++    -- * LabelFieldModification+    LabelFieldModification (..),+    newLabelFieldModification,++    -- * LabelList+    LabelList (..),+    newLabelList,++    -- * LabelModification+    LabelModification (..),+    newLabelModification,++    -- * ListAccessProposalsResponse+    ListAccessProposalsResponse (..),+    newListAccessProposalsResponse,++    -- * ListOperationsResponse+    ListOperationsResponse (..),+    newListOperationsResponse,++    -- * ModifyLabelsRequest+    ModifyLabelsRequest (..),+    newModifyLabelsRequest,++    -- * ModifyLabelsResponse+    ModifyLabelsResponse (..),+    newModifyLabelsResponse,++    -- * Operation+    Operation (..),+    newOperation,++    -- * Operation_Metadata+    Operation_Metadata (..),+    newOperation_Metadata,++    -- * Operation_Response+    Operation_Response (..),+    newOperation_Response,++    -- * Permission+    Permission (..),+    newPermission,++    -- * Permission_PermissionDetailsItem+    Permission_PermissionDetailsItem (..),+    newPermission_PermissionDetailsItem,++    -- * Permission_TeamDrivePermissionDetailsItem+    Permission_TeamDrivePermissionDetailsItem (..),+    newPermission_TeamDrivePermissionDetailsItem,++    -- * PermissionList+    PermissionList (..),+    newPermissionList,++    -- * Reply+    Reply (..),+    newReply,++    -- * ReplyList+    ReplyList (..),+    newReplyList,++    -- * ResolveAccessProposalRequest+    ResolveAccessProposalRequest (..),+    newResolveAccessProposalRequest,++    -- * Revision+    Revision (..),+    newRevision,++    -- * Revision_ExportLinks+    Revision_ExportLinks (..),+    newRevision_ExportLinks,++    -- * RevisionList+    RevisionList (..),+    newRevisionList,++    -- * StartPageToken+    StartPageToken (..),+    newStartPageToken,++    -- * Status+    Status (..),+    newStatus,++    -- * Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- * TeamDrive+    TeamDrive (..),+    newTeamDrive,++    -- * TeamDrive_BackgroundImageFile+    TeamDrive_BackgroundImageFile (..),+    newTeamDrive_BackgroundImageFile,++    -- * TeamDrive_Capabilities+    TeamDrive_Capabilities (..),+    newTeamDrive_Capabilities,++    -- * TeamDrive_Restrictions+    TeamDrive_Restrictions (..),+    newTeamDrive_Restrictions,++    -- * TeamDriveList+    TeamDriveList (..),+    newTeamDriveList,++    -- * User+    User (..),+    newUser,+  )+where++import Gogol.Drive.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Information about the user, the user\'s Drive, and system capabilities.+--+-- /See:/ 'newAbout' smart constructor.+data About = About+  { -- | Whether the user has installed the requesting app.+    appInstalled :: (Core.Maybe Core.Bool),+    -- | Whether the user can create shared drives.+    canCreateDrives :: (Core.Maybe Core.Bool),+    -- | Deprecated: Use @canCreateDrives@ instead.+    canCreateTeamDrives :: (Core.Maybe Core.Bool),+    -- | A list of themes that are supported for shared drives.+    driveThemes :: (Core.Maybe [About_DriveThemesItem]),+    -- | A map of source MIME type to possible targets for all supported exports.+    exportFormats :: (Core.Maybe About_ExportFormats),+    -- | The currently supported folder colors as RGB hex strings.+    folderColorPalette :: (Core.Maybe [Core.Text]),+    -- | A map of source MIME type to possible targets for all supported imports.+    importFormats :: (Core.Maybe About_ImportFormats),+    -- | Identifies what kind of resource this is. Value: the fixed string @\"drive#about\"@.+    kind :: Core.Text,+    -- | A map of maximum import sizes by MIME type, in bytes.+    maxImportSizes :: (Core.Maybe About_MaxImportSizes),+    -- | The maximum upload size in bytes.+    maxUploadSize :: (Core.Maybe Core.Int64),+    -- | The user\'s storage quota limits and usage. For users that are part of an organization with pooled storage, information about the limit and usage across all services is for the organization, rather than the individual user. All fields are measured in bytes.+    storageQuota :: (Core.Maybe About_StorageQuota),+    -- | Deprecated: Use @driveThemes@ instead.+    teamDriveThemes :: (Core.Maybe [About_TeamDriveThemesItem]),+    -- | The authenticated user.+    user :: (Core.Maybe User)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'About' with the minimum fields required to make a request.+newAbout ::+  About+newAbout =+  About+    { appInstalled = Core.Nothing,+      canCreateDrives = Core.Nothing,+      canCreateTeamDrives = Core.Nothing,+      driveThemes = Core.Nothing,+      exportFormats = Core.Nothing,+      folderColorPalette = Core.Nothing,+      importFormats = Core.Nothing,+      kind = "drive#about",+      maxImportSizes = Core.Nothing,+      maxUploadSize = Core.Nothing,+      storageQuota = Core.Nothing,+      teamDriveThemes = Core.Nothing,+      user = Core.Nothing+    }++instance Core.FromJSON About where+  parseJSON =+    Core.withObject+      "About"+      ( \o ->+          About+            Core.<$> (o Core..:? "appInstalled")+            Core.<*> (o Core..:? "canCreateDrives")+            Core.<*> (o Core..:? "canCreateTeamDrives")+            Core.<*> (o Core..:? "driveThemes")+            Core.<*> (o Core..:? "exportFormats")+            Core.<*> (o Core..:? "folderColorPalette")+            Core.<*> (o Core..:? "importFormats")+            Core.<*> (o Core..:? "kind" Core..!= "drive#about")+            Core.<*> (o Core..:? "maxImportSizes")+            Core.<*> (o Core..:? "maxUploadSize" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "storageQuota")+            Core.<*> (o Core..:? "teamDriveThemes")+            Core.<*> (o Core..:? "user")+      )++instance Core.ToJSON About where+  toJSON About {..} =+    Core.object+      ( Core.catMaybes+          [ ("appInstalled" Core..=) Core.<$> appInstalled,+            ("canCreateDrives" Core..=) Core.<$> canCreateDrives,+            ("canCreateTeamDrives" Core..=) Core.<$> canCreateTeamDrives,+            ("driveThemes" Core..=) Core.<$> driveThemes,+            ("exportFormats" Core..=) Core.<$> exportFormats,+            ("folderColorPalette" Core..=) Core.<$> folderColorPalette,+            ("importFormats" Core..=) Core.<$> importFormats,+            Core.Just ("kind" Core..= kind),+            ("maxImportSizes" Core..=) Core.<$> maxImportSizes,+            ("maxUploadSize" Core..=)+              Core.. Core.AsText+              Core.<$> maxUploadSize,+            ("storageQuota" Core..=) Core.<$> storageQuota,+            ("teamDriveThemes" Core..=) Core.<$> teamDriveThemes,+            ("user" Core..=) Core.<$> user+          ]+      )++--+-- /See:/ 'newAbout_DriveThemesItem' smart constructor.+data About_DriveThemesItem = About_DriveThemesItem+  { -- | A link to this theme\'s background image.+    backgroundImageLink :: (Core.Maybe Core.Text),+    -- | The color of this theme as an RGB hex string.+    colorRgb :: (Core.Maybe Core.Text),+    -- | The ID of the theme.+    id :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'About_DriveThemesItem' with the minimum fields required to make a request.+newAbout_DriveThemesItem ::+  About_DriveThemesItem+newAbout_DriveThemesItem =+  About_DriveThemesItem+    { backgroundImageLink = Core.Nothing,+      colorRgb = Core.Nothing,+      id = Core.Nothing+    }++instance Core.FromJSON About_DriveThemesItem where+  parseJSON =+    Core.withObject+      "About_DriveThemesItem"+      ( \o ->+          About_DriveThemesItem+            Core.<$> (o Core..:? "backgroundImageLink")+            Core.<*> (o Core..:? "colorRgb")+            Core.<*> (o Core..:? "id")+      )++instance Core.ToJSON About_DriveThemesItem where+  toJSON About_DriveThemesItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("backgroundImageLink" Core..=) Core.<$> backgroundImageLink,+            ("colorRgb" Core..=) Core.<$> colorRgb,+            ("id" Core..=) Core.<$> id+          ]+      )++-- | A map of source MIME type to possible targets for all supported exports.+--+-- /See:/ 'newAbout_ExportFormats' smart constructor.+newtype About_ExportFormats = About_ExportFormats+  { additional :: (Core.HashMap Core.Text [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'About_ExportFormats' with the minimum fields required to make a request.+newAbout_ExportFormats ::+  -- |  See 'additional'.+  Core.HashMap Core.Text [Core.Text] ->+  About_ExportFormats+newAbout_ExportFormats additional =+  About_ExportFormats {additional = additional}++instance Core.FromJSON About_ExportFormats where+  parseJSON =+    Core.withObject+      "About_ExportFormats"+      (\o -> About_ExportFormats Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON About_ExportFormats where+  toJSON About_ExportFormats {..} = Core.toJSON additional++-- | A map of source MIME type to possible targets for all supported imports.+--+-- /See:/ 'newAbout_ImportFormats' smart constructor.+newtype About_ImportFormats = About_ImportFormats+  { additional :: (Core.HashMap Core.Text [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'About_ImportFormats' with the minimum fields required to make a request.+newAbout_ImportFormats ::+  -- |  See 'additional'.+  Core.HashMap Core.Text [Core.Text] ->+  About_ImportFormats+newAbout_ImportFormats additional =+  About_ImportFormats {additional = additional}++instance Core.FromJSON About_ImportFormats where+  parseJSON =+    Core.withObject+      "About_ImportFormats"+      (\o -> About_ImportFormats Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON About_ImportFormats where+  toJSON About_ImportFormats {..} = Core.toJSON additional++-- | A map of maximum import sizes by MIME type, in bytes.+--+-- /See:/ 'newAbout_MaxImportSizes' smart constructor.+newtype About_MaxImportSizes = About_MaxImportSizes+  { additional :: (Core.HashMap Core.Text Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'About_MaxImportSizes' with the minimum fields required to make a request.+newAbout_MaxImportSizes ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Int64 ->+  About_MaxImportSizes+newAbout_MaxImportSizes additional =+  About_MaxImportSizes {additional = additional}++instance Core.FromJSON About_MaxImportSizes where+  parseJSON =+    Core.withObject+      "About_MaxImportSizes"+      (\o -> About_MaxImportSizes Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON About_MaxImportSizes where+  toJSON About_MaxImportSizes {..} = Core.toJSON additional++-- | The user\'s storage quota limits and usage. For users that are part of an organization with pooled storage, information about the limit and usage across all services is for the organization, rather than the individual user. All fields are measured in bytes.+--+-- /See:/ 'newAbout_StorageQuota' smart constructor.+data About_StorageQuota = About_StorageQuota+  { -- | The usage limit, if applicable. This will not be present if the user has unlimited storage. For users that are part of an organization with pooled storage, this is the limit for the organization, rather than the individual user.+    limit :: (Core.Maybe Core.Int64),+    -- | The total usage across all services. For users that are part of an organization with pooled storage, this is the usage across all services for the organization, rather than the individual user.+    usage :: (Core.Maybe Core.Int64),+    -- | The usage by all files in Google Drive.+    usageInDrive :: (Core.Maybe Core.Int64),+    -- | The usage by trashed files in Google Drive.+    usageInDriveTrash :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'About_StorageQuota' with the minimum fields required to make a request.+newAbout_StorageQuota ::+  About_StorageQuota+newAbout_StorageQuota =+  About_StorageQuota+    { limit = Core.Nothing,+      usage = Core.Nothing,+      usageInDrive = Core.Nothing,+      usageInDriveTrash = Core.Nothing+    }++instance Core.FromJSON About_StorageQuota where+  parseJSON =+    Core.withObject+      "About_StorageQuota"+      ( \o ->+          About_StorageQuota+            Core.<$> (o Core..:? "limit" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "usage" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "usageInDrive" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> ( o+                         Core..:? "usageInDriveTrash"+                         Core.<&> Core.fmap Core.fromAsText+                     )+      )++instance Core.ToJSON About_StorageQuota where+  toJSON About_StorageQuota {..} =+    Core.object+      ( Core.catMaybes+          [ ("limit" Core..=) Core.. Core.AsText Core.<$> limit,+            ("usage" Core..=) Core.. Core.AsText Core.<$> usage,+            ("usageInDrive" Core..=) Core.. Core.AsText Core.<$> usageInDrive,+            ("usageInDriveTrash" Core..=)+              Core.. Core.AsText+              Core.<$> usageInDriveTrash+          ]+      )++--+-- /See:/ 'newAbout_TeamDriveThemesItem' smart constructor.+data About_TeamDriveThemesItem = About_TeamDriveThemesItem+  { -- | Deprecated: Use @driveThemes\/backgroundImageLink@ instead.+    backgroundImageLink :: (Core.Maybe Core.Text),+    -- | Deprecated: Use @driveThemes\/colorRgb@ instead.+    colorRgb :: (Core.Maybe Core.Text),+    -- | Deprecated: Use @driveThemes\/id@ instead.+    id :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'About_TeamDriveThemesItem' with the minimum fields required to make a request.+newAbout_TeamDriveThemesItem ::+  About_TeamDriveThemesItem+newAbout_TeamDriveThemesItem =+  About_TeamDriveThemesItem+    { backgroundImageLink = Core.Nothing,+      colorRgb = Core.Nothing,+      id = Core.Nothing+    }++instance Core.FromJSON About_TeamDriveThemesItem where+  parseJSON =+    Core.withObject+      "About_TeamDriveThemesItem"+      ( \o ->+          About_TeamDriveThemesItem+            Core.<$> (o Core..:? "backgroundImageLink")+            Core.<*> (o Core..:? "colorRgb")+            Core.<*> (o Core..:? "id")+      )++instance Core.ToJSON About_TeamDriveThemesItem where+  toJSON About_TeamDriveThemesItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("backgroundImageLink" Core..=) Core.<$> backgroundImageLink,+            ("colorRgb" Core..=) Core.<$> colorRgb,+            ("id" Core..=) Core.<$> id+          ]+      )++-- | The Access Proposal resource for outstanding access proposals on a file+--+-- /See:/ 'newAccessProposal' smart constructor.+data AccessProposal = AccessProposal+  { -- | The creation time+    createTime :: (Core.Maybe Core.DateTime),+    -- | The file id that the proposal for access is on+    fileId :: (Core.Maybe Core.Text),+    -- | The id of the access proposal+    proposalId :: (Core.Maybe Core.Text),+    -- | The email address of the user that will receive permissions if accepted+    recipientEmailAddress :: (Core.Maybe Core.Text),+    -- | The message that the requester added to the proposal+    requestMessage :: (Core.Maybe Core.Text),+    -- | The email address of the requesting user+    requesterEmailAddress :: (Core.Maybe Core.Text),+    -- | A wrapper for the role and view of an access proposal.+    rolesAndViews :: (Core.Maybe [AccessProposalRoleAndView])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessProposal' with the minimum fields required to make a request.+newAccessProposal ::+  AccessProposal+newAccessProposal =+  AccessProposal+    { createTime = Core.Nothing,+      fileId = Core.Nothing,+      proposalId = Core.Nothing,+      recipientEmailAddress = Core.Nothing,+      requestMessage = Core.Nothing,+      requesterEmailAddress = Core.Nothing,+      rolesAndViews = Core.Nothing+    }++instance Core.FromJSON AccessProposal where+  parseJSON =+    Core.withObject+      "AccessProposal"+      ( \o ->+          AccessProposal+            Core.<$> (o Core..:? "createTime")+            Core.<*> (o Core..:? "fileId")+            Core.<*> (o Core..:? "proposalId")+            Core.<*> (o Core..:? "recipientEmailAddress")+            Core.<*> (o Core..:? "requestMessage")+            Core.<*> (o Core..:? "requesterEmailAddress")+            Core.<*> (o Core..:? "rolesAndViews")+      )++instance Core.ToJSON AccessProposal where+  toJSON AccessProposal {..} =+    Core.object+      ( Core.catMaybes+          [ ("createTime" Core..=) Core.<$> createTime,+            ("fileId" Core..=) Core.<$> fileId,+            ("proposalId" Core..=) Core.<$> proposalId,+            ("recipientEmailAddress" Core..=) Core.<$> recipientEmailAddress,+            ("requestMessage" Core..=) Core.<$> requestMessage,+            ("requesterEmailAddress" Core..=) Core.<$> requesterEmailAddress,+            ("rolesAndViews" Core..=) Core.<$> rolesAndViews+          ]+      )++-- | A wrapper for the role and view of an access proposal.+--+-- /See:/ 'newAccessProposalRoleAndView' smart constructor.+data AccessProposalRoleAndView = AccessProposalRoleAndView+  { -- | The role that was proposed by the requester New values may be added in the future, but the following are currently possible: * @writer@ * @commenter@ * @reader@+    role' :: (Core.Maybe Core.Text),+    -- | Indicates the view for this access proposal. Only populated for proposals that belong to a view. @published@ is the only supported value.+    view :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AccessProposalRoleAndView' with the minimum fields required to make a request.+newAccessProposalRoleAndView ::+  AccessProposalRoleAndView+newAccessProposalRoleAndView =+  AccessProposalRoleAndView+    { role' = Core.Nothing,+      view = Core.Nothing+    }++instance Core.FromJSON AccessProposalRoleAndView where+  parseJSON =+    Core.withObject+      "AccessProposalRoleAndView"+      ( \o ->+          AccessProposalRoleAndView+            Core.<$> (o Core..:? "role")+            Core.<*> (o Core..:? "view")+      )++instance Core.ToJSON AccessProposalRoleAndView where+  toJSON AccessProposalRoleAndView {..} =+    Core.object+      ( Core.catMaybes+          [("role" Core..=) Core.<$> role', ("view" Core..=) Core.<$> view]+      )++-- | The @apps@ resource provides a list of apps that a user has installed, with information about each app\'s supported MIME types, file extensions, and other details. Some resource methods (such as @apps.get@) require an @appId@. Use the @apps.list@ method to retrieve the ID for an installed application.+--+-- /See:/ 'newApp' smart constructor.+data App = App+  { -- | Whether the app is authorized to access data on the user\'s Drive.+    authorized :: (Core.Maybe Core.Bool),+    -- | The template URL to create a file with this app in a given folder. The template contains the {folderId} to be replaced by the folder ID house the new file.+    createInFolderTemplate :: (Core.Maybe Core.Text),+    -- | The URL to create a file with this app.+    createUrl :: (Core.Maybe Core.Text),+    -- | Whether the app has Drive-wide scope. An app with Drive-wide scope can access all files in the user\'s Drive.+    hasDriveWideScope :: (Core.Maybe Core.Bool),+    -- | The various icons for the app.+    icons :: (Core.Maybe [AppIcons]),+    -- | The ID of the app.+    id :: (Core.Maybe Core.Text),+    -- | Whether the app is installed.+    installed :: (Core.Maybe Core.Bool),+    -- | Output only. Identifies what kind of resource this is. Value: the fixed string \"drive#app\".+    kind :: Core.Text,+    -- | A long description of the app.+    longDescription :: (Core.Maybe Core.Text),+    -- | The name of the app.+    name :: (Core.Maybe Core.Text),+    -- | The type of object this app creates such as a Chart. If empty, the app name should be used instead.+    objectType :: (Core.Maybe Core.Text),+    -- | The template URL for opening files with this app. The template contains {ids} or {exportIds} to be replaced by the actual file IDs. For more information, see Open Files for the full documentation.+    openUrlTemplate :: (Core.Maybe Core.Text),+    -- | The list of primary file extensions.+    primaryFileExtensions :: (Core.Maybe [Core.Text]),+    -- | The list of primary MIME types.+    primaryMimeTypes :: (Core.Maybe [Core.Text]),+    -- | The ID of the product listing for this app.+    productId :: (Core.Maybe Core.Text),+    -- | A link to the product listing for this app.+    productUrl :: (Core.Maybe Core.Text),+    -- | The list of secondary file extensions.+    secondaryFileExtensions :: (Core.Maybe [Core.Text]),+    -- | The list of secondary MIME types.+    secondaryMimeTypes :: (Core.Maybe [Core.Text]),+    -- | A short description of the app.+    shortDescription :: (Core.Maybe Core.Text),+    -- | Whether this app supports creating objects.+    supportsCreate :: (Core.Maybe Core.Bool),+    -- | Whether this app supports importing from Google Docs.+    supportsImport :: (Core.Maybe Core.Bool),+    -- | Whether this app supports opening more than one file.+    supportsMultiOpen :: (Core.Maybe Core.Bool),+    -- | Whether this app supports creating files when offline.+    supportsOfflineCreate :: (Core.Maybe Core.Bool),+    -- | Whether the app is selected as the default handler for the types it supports.+    useByDefault :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'App' with the minimum fields required to make a request.+newApp ::+  App+newApp =+  App+    { authorized = Core.Nothing,+      createInFolderTemplate = Core.Nothing,+      createUrl = Core.Nothing,+      hasDriveWideScope = Core.Nothing,+      icons = Core.Nothing,+      id = Core.Nothing,+      installed = Core.Nothing,+      kind = "drive#app",+      longDescription = Core.Nothing,+      name = Core.Nothing,+      objectType = Core.Nothing,+      openUrlTemplate = Core.Nothing,+      primaryFileExtensions = Core.Nothing,+      primaryMimeTypes = Core.Nothing,+      productId = Core.Nothing,+      productUrl = Core.Nothing,+      secondaryFileExtensions = Core.Nothing,+      secondaryMimeTypes = Core.Nothing,+      shortDescription = Core.Nothing,+      supportsCreate = Core.Nothing,+      supportsImport = Core.Nothing,+      supportsMultiOpen = Core.Nothing,+      supportsOfflineCreate = Core.Nothing,+      useByDefault = Core.Nothing+    }++instance Core.FromJSON App where+  parseJSON =+    Core.withObject+      "App"+      ( \o ->+          App+            Core.<$> (o Core..:? "authorized")+            Core.<*> (o Core..:? "createInFolderTemplate")+            Core.<*> (o Core..:? "createUrl")+            Core.<*> (o Core..:? "hasDriveWideScope")+            Core.<*> (o Core..:? "icons")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "installed")+            Core.<*> (o Core..:? "kind" Core..!= "drive#app")+            Core.<*> (o Core..:? "longDescription")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "objectType")+            Core.<*> (o Core..:? "openUrlTemplate")+            Core.<*> (o Core..:? "primaryFileExtensions")+            Core.<*> (o Core..:? "primaryMimeTypes")+            Core.<*> (o Core..:? "productId")+            Core.<*> (o Core..:? "productUrl")+            Core.<*> (o Core..:? "secondaryFileExtensions")+            Core.<*> (o Core..:? "secondaryMimeTypes")+            Core.<*> (o Core..:? "shortDescription")+            Core.<*> (o Core..:? "supportsCreate")+            Core.<*> (o Core..:? "supportsImport")+            Core.<*> (o Core..:? "supportsMultiOpen")+            Core.<*> (o Core..:? "supportsOfflineCreate")+            Core.<*> (o Core..:? "useByDefault")+      )++instance Core.ToJSON App where+  toJSON App {..} =+    Core.object+      ( Core.catMaybes+          [ ("authorized" Core..=) Core.<$> authorized,+            ("createInFolderTemplate" Core..=) Core.<$> createInFolderTemplate,+            ("createUrl" Core..=) Core.<$> createUrl,+            ("hasDriveWideScope" Core..=) Core.<$> hasDriveWideScope,+            ("icons" Core..=) Core.<$> icons,+            ("id" Core..=) Core.<$> id,+            ("installed" Core..=) Core.<$> installed,+            Core.Just ("kind" Core..= kind),+            ("longDescription" Core..=) Core.<$> longDescription,+            ("name" Core..=) Core.<$> name,+            ("objectType" Core..=) Core.<$> objectType,+            ("openUrlTemplate" Core..=) Core.<$> openUrlTemplate,+            ("primaryFileExtensions" Core..=) Core.<$> primaryFileExtensions,+            ("primaryMimeTypes" Core..=) Core.<$> primaryMimeTypes,+            ("productId" Core..=) Core.<$> productId,+            ("productUrl" Core..=) Core.<$> productUrl,+            ("secondaryFileExtensions" Core..=)+              Core.<$> secondaryFileExtensions,+            ("secondaryMimeTypes" Core..=) Core.<$> secondaryMimeTypes,+            ("shortDescription" Core..=) Core.<$> shortDescription,+            ("supportsCreate" Core..=) Core.<$> supportsCreate,+            ("supportsImport" Core..=) Core.<$> supportsImport,+            ("supportsMultiOpen" Core..=) Core.<$> supportsMultiOpen,+            ("supportsOfflineCreate" Core..=) Core.<$> supportsOfflineCreate,+            ("useByDefault" Core..=) Core.<$> useByDefault+          ]+      )++--+-- /See:/ 'newAppIcons' smart constructor.+data AppIcons = AppIcons+  { -- | Category of the icon. Allowed values are: * @application@ - The icon for the application. * @document@ - The icon for a file associated with the app. * @documentShared@ - The icon for a shared file associated with the app.+    category :: (Core.Maybe Core.Text),+    -- | URL for the icon.+    iconUrl :: (Core.Maybe Core.Text),+    -- | Size of the icon. Represented as the maximum of the width and height.+    size :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AppIcons' with the minimum fields required to make a request.+newAppIcons ::+  AppIcons+newAppIcons =+  AppIcons+    { category = Core.Nothing,+      iconUrl = Core.Nothing,+      size = Core.Nothing+    }++instance Core.FromJSON AppIcons where+  parseJSON =+    Core.withObject+      "AppIcons"+      ( \o ->+          AppIcons+            Core.<$> (o Core..:? "category")+            Core.<*> (o Core..:? "iconUrl")+            Core.<*> (o Core..:? "size")+      )++instance Core.ToJSON AppIcons where+  toJSON AppIcons {..} =+    Core.object+      ( Core.catMaybes+          [ ("category" Core..=) Core.<$> category,+            ("iconUrl" Core..=) Core.<$> iconUrl,+            ("size" Core..=) Core.<$> size+          ]+      )++-- | A list of third-party applications which the user has installed or given access to Google Drive.+--+-- /See:/ 'newAppList' smart constructor.+data AppList = AppList+  { -- | The list of app IDs that the user has specified to use by default. The list is in reverse-priority order (lowest to highest).+    defaultAppIds :: (Core.Maybe [Core.Text]),+    -- | The list of apps.+    items :: (Core.Maybe [App]),+    -- | Output only. Identifies what kind of resource this is. Value: the fixed string \"drive#appList\".+    kind :: Core.Text,+    -- | A link back to this list.+    selfLink :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AppList' with the minimum fields required to make a request.+newAppList ::+  AppList+newAppList =+  AppList+    { defaultAppIds = Core.Nothing,+      items = Core.Nothing,+      kind = "drive#appList",+      selfLink = Core.Nothing+    }++instance Core.FromJSON AppList where+  parseJSON =+    Core.withObject+      "AppList"+      ( \o ->+          AppList+            Core.<$> (o Core..:? "defaultAppIds")+            Core.<*> (o Core..:? "items")+            Core.<*> (o Core..:? "kind" Core..!= "drive#appList")+            Core.<*> (o Core..:? "selfLink")+      )++instance Core.ToJSON AppList where+  toJSON AppList {..} =+    Core.object+      ( Core.catMaybes+          [ ("defaultAppIds" Core..=) Core.<$> defaultAppIds,+            ("items" Core..=) Core.<$> items,+            Core.Just ("kind" Core..= kind),+            ("selfLink" Core..=) Core.<$> selfLink+          ]+      )++-- | A change to a file or shared drive.+--+-- /See:/ 'newChange' smart constructor.+data Change = Change+  { -- | The type of the change. Possible values are @file@ and @drive@.+    changeType :: (Core.Maybe Core.Text),+    -- | The updated state of the shared drive. Present if the changeType is drive, the user is still a member of the shared drive, and the shared drive has not been deleted.+    drive :: (Core.Maybe Drive),+    -- | The ID of the shared drive associated with this change.+    driveId :: (Core.Maybe Core.Text),+    -- | The updated state of the file. Present if the type is file and the file has not been removed from this list of changes.+    file :: (Core.Maybe File),+    -- | The ID of the file which has changed.+    fileId :: (Core.Maybe Core.Text),+    -- | Identifies what kind of resource this is. Value: the fixed string @\"drive#change\"@.+    kind :: Core.Text,+    -- | Whether the file or shared drive has been removed from this list of changes, for example by deletion or loss of access.+    removed :: (Core.Maybe Core.Bool),+    -- | Deprecated: Use @drive@ instead.+    teamDrive :: (Core.Maybe TeamDrive),+    -- | Deprecated: Use @driveId@ instead.+    teamDriveId :: (Core.Maybe Core.Text),+    -- | The time of this change (RFC 3339 date-time).+    time :: (Core.Maybe Core.DateTime),+    -- | Deprecated: Use @changeType@ instead.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Change' with the minimum fields required to make a request.+newChange ::+  Change+newChange =+  Change+    { changeType = Core.Nothing,+      drive = Core.Nothing,+      driveId = Core.Nothing,+      file = Core.Nothing,+      fileId = Core.Nothing,+      kind = "drive#change",+      removed = Core.Nothing,+      teamDrive = Core.Nothing,+      teamDriveId = Core.Nothing,+      time = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON Change where+  parseJSON =+    Core.withObject+      "Change"+      ( \o ->+          Change+            Core.<$> (o Core..:? "changeType")+            Core.<*> (o Core..:? "drive")+            Core.<*> (o Core..:? "driveId")+            Core.<*> (o Core..:? "file")+            Core.<*> (o Core..:? "fileId")+            Core.<*> (o Core..:? "kind" Core..!= "drive#change")+            Core.<*> (o Core..:? "removed")+            Core.<*> (o Core..:? "teamDrive")+            Core.<*> (o Core..:? "teamDriveId")+            Core.<*> (o Core..:? "time")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON Change where+  toJSON Change {..} =+    Core.object+      ( Core.catMaybes+          [ ("changeType" Core..=) Core.<$> changeType,+            ("drive" Core..=) Core.<$> drive,+            ("driveId" Core..=) Core.<$> driveId,+            ("file" Core..=) Core.<$> file,+            ("fileId" Core..=) Core.<$> fileId,+            Core.Just ("kind" Core..= kind),+            ("removed" Core..=) Core.<$> removed,+            ("teamDrive" Core..=) Core.<$> teamDrive,+            ("teamDriveId" Core..=) Core.<$> teamDriveId,+            ("time" Core..=) Core.<$> time,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | A list of changes for a user.+--+-- /See:/ 'newChangeList' smart constructor.+data ChangeList = ChangeList+  { -- | The list of changes. If nextPageToken is populated, then this list may be incomplete and an additional page of results should be fetched.+    changes :: (Core.Maybe [Change]),+    -- | Identifies what kind of resource this is. Value: the fixed string @\"drive#changeList\"@.+    kind :: Core.Text,+    -- | The starting page token for future changes. This will be present only if the end of the current changes list has been reached. The page token doesn\'t expire.+    newStartPageToken' :: (Core.Maybe Core.Text),+    -- | The page token for the next page of changes. This will be absent if the end of the changes list has been reached. The page token doesn\'t expire.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChangeList' with the minimum fields required to make a request.+newChangeList ::+  ChangeList+newChangeList =+  ChangeList+    { changes = Core.Nothing,+      kind = "drive#changeList",+      newStartPageToken' = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ChangeList where+  parseJSON =+    Core.withObject+      "ChangeList"+      ( \o ->+          ChangeList+            Core.<$> (o Core..:? "changes")+            Core.<*> (o Core..:? "kind" Core..!= "drive#changeList")+            Core.<*> (o Core..:? "newStartPageToken")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ChangeList where+  toJSON ChangeList {..} =+    Core.object+      ( Core.catMaybes+          [ ("changes" Core..=) Core.<$> changes,+            Core.Just ("kind" Core..= kind),+            ("newStartPageToken" Core..=) Core.<$> newStartPageToken',+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | A notification channel used to watch for resource changes.+--+-- /See:/ 'newChannel' smart constructor.+data Channel = Channel+  { -- | The address where notifications are delivered for this channel.+    address :: (Core.Maybe Core.Text),+    -- | Date and time of notification channel expiration, expressed as a Unix timestamp, in milliseconds. Optional.+    expiration :: (Core.Maybe Core.Int64),+    -- | A UUID or similar unique string that identifies this channel.+    id :: (Core.Maybe Core.Text),+    -- | Identifies this as a notification channel used to watch for changes to a resource, which is @api#channel@.+    kind :: Core.Text,+    -- | Additional parameters controlling delivery channel behavior. Optional.+    params :: (Core.Maybe Channel_Params),+    -- | A Boolean value to indicate whether payload is wanted. Optional.+    payload :: (Core.Maybe Core.Bool),+    -- | An opaque ID that identifies the resource being watched on this channel. Stable across different API versions.+    resourceId :: (Core.Maybe Core.Text),+    -- | A version-specific identifier for the watched resource.+    resourceUri :: (Core.Maybe Core.Text),+    -- | An arbitrary string delivered to the target address with each notification delivered over this channel. Optional.+    token :: (Core.Maybe Core.Text),+    -- | The type of delivery mechanism used for this channel. Valid values are \"web_hook\" or \"webhook\".+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Channel' with the minimum fields required to make a request.+newChannel ::+  Channel+newChannel =+  Channel+    { address = Core.Nothing,+      expiration = Core.Nothing,+      id = Core.Nothing,+      kind = "api#channel",+      params = Core.Nothing,+      payload = Core.Nothing,+      resourceId = Core.Nothing,+      resourceUri = Core.Nothing,+      token = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON Channel where+  parseJSON =+    Core.withObject+      "Channel"+      ( \o ->+          Channel+            Core.<$> (o Core..:? "address")+            Core.<*> (o Core..:? "expiration" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "api#channel")+            Core.<*> (o Core..:? "params")+            Core.<*> (o Core..:? "payload")+            Core.<*> (o Core..:? "resourceId")+            Core.<*> (o Core..:? "resourceUri")+            Core.<*> (o Core..:? "token")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON Channel where+  toJSON Channel {..} =+    Core.object+      ( Core.catMaybes+          [ ("address" Core..=) Core.<$> address,+            ("expiration" Core..=) Core.. Core.AsText Core.<$> expiration,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("params" Core..=) Core.<$> params,+            ("payload" Core..=) Core.<$> payload,+            ("resourceId" Core..=) Core.<$> resourceId,+            ("resourceUri" Core..=) Core.<$> resourceUri,+            ("token" Core..=) Core.<$> token,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | Additional parameters controlling delivery channel behavior. Optional.+--+-- /See:/ 'newChannel_Params' smart constructor.+newtype Channel_Params = Channel_Params+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Channel_Params' with the minimum fields required to make a request.+newChannel_Params ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  Channel_Params+newChannel_Params additional =+  Channel_Params {additional = additional}++instance Core.FromJSON Channel_Params where+  parseJSON =+    Core.withObject+      "Channel_Params"+      (\o -> Channel_Params Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Channel_Params where+  toJSON Channel_Params {..} = Core.toJSON additional++-- | A comment on a file. Some resource methods (such as @comments.update@) require a @commentId@. Use the @comments.list@ method to retrieve the ID for a comment in a file.+--+-- /See:/ 'newComment' smart constructor.+data Comment = Comment+  { -- | A region of the document represented as a JSON string. For details on defining anchor properties, refer to <https://developers.google.com/drive/api/v3/manage-comments Manage comments and replies>.+    anchor :: (Core.Maybe Core.Text),+    -- | Output only. The author of the comment. The author\'s email address and permission ID will not be populated.+    author :: (Core.Maybe User),+    -- | The plain text content of the comment. This field is used for setting the content, while @htmlContent@ should be displayed.+    content :: (Core.Maybe Core.Text),+    -- | The time at which the comment was created (RFC 3339 date-time).+    createdTime :: (Core.Maybe Core.DateTime),+    -- | Output only. Whether the comment has been deleted. A deleted comment has no content.+    deleted :: (Core.Maybe Core.Bool),+    -- | Output only. The content of the comment with HTML formatting.+    htmlContent :: (Core.Maybe Core.Text),+    -- | Output only. The ID of the comment.+    id :: (Core.Maybe Core.Text),+    -- | Output only. Identifies what kind of resource this is. Value: the fixed string @\"drive#comment\"@.+    kind :: Core.Text,+    -- | The last time the comment or any of its replies was modified (RFC 3339 date-time).+    modifiedTime :: (Core.Maybe Core.DateTime),+    -- | The file content to which the comment refers, typically within the anchor region. For a text file, for example, this would be the text at the location of the comment.+    quotedFileContent :: (Core.Maybe Comment_QuotedFileContent),+    -- | Output only. The full list of replies to the comment in chronological order.+    replies :: (Core.Maybe [Reply]),+    -- | Output only. Whether the comment has been resolved by one of its replies.+    resolved :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Comment' with the minimum fields required to make a request.+newComment ::+  Comment+newComment =+  Comment+    { anchor = Core.Nothing,+      author = Core.Nothing,+      content = Core.Nothing,+      createdTime = Core.Nothing,+      deleted = Core.Nothing,+      htmlContent = Core.Nothing,+      id = Core.Nothing,+      kind = "drive#comment",+      modifiedTime = Core.Nothing,+      quotedFileContent = Core.Nothing,+      replies = Core.Nothing,+      resolved = Core.Nothing+    }++instance Core.FromJSON Comment where+  parseJSON =+    Core.withObject+      "Comment"+      ( \o ->+          Comment+            Core.<$> (o Core..:? "anchor")+            Core.<*> (o Core..:? "author")+            Core.<*> (o Core..:? "content")+            Core.<*> (o Core..:? "createdTime")+            Core.<*> (o Core..:? "deleted")+            Core.<*> (o Core..:? "htmlContent")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "drive#comment")+            Core.<*> (o Core..:? "modifiedTime")+            Core.<*> (o Core..:? "quotedFileContent")+            Core.<*> (o Core..:? "replies")+            Core.<*> (o Core..:? "resolved")+      )++instance Core.ToJSON Comment where+  toJSON Comment {..} =+    Core.object+      ( Core.catMaybes+          [ ("anchor" Core..=) Core.<$> anchor,+            ("author" Core..=) Core.<$> author,+            ("content" Core..=) Core.<$> content,+            ("createdTime" Core..=) Core.<$> createdTime,+            ("deleted" Core..=) Core.<$> deleted,+            ("htmlContent" Core..=) Core.<$> htmlContent,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("modifiedTime" Core..=) Core.<$> modifiedTime,+            ("quotedFileContent" Core..=) Core.<$> quotedFileContent,+            ("replies" Core..=) Core.<$> replies,+            ("resolved" Core..=) Core.<$> resolved+          ]+      )++-- | The file content to which the comment refers, typically within the anchor region. For a text file, for example, this would be the text at the location of the comment.+--+-- /See:/ 'newComment_QuotedFileContent' smart constructor.+data Comment_QuotedFileContent = Comment_QuotedFileContent+  { -- | The MIME type of the quoted content.+    mimeType :: (Core.Maybe Core.Text),+    -- | The quoted content itself. This is interpreted as plain text if set through the API.+    value :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Comment_QuotedFileContent' with the minimum fields required to make a request.+newComment_QuotedFileContent ::+  Comment_QuotedFileContent+newComment_QuotedFileContent =+  Comment_QuotedFileContent+    { mimeType = Core.Nothing,+      value = Core.Nothing+    }++instance Core.FromJSON Comment_QuotedFileContent where+  parseJSON =+    Core.withObject+      "Comment_QuotedFileContent"+      ( \o ->+          Comment_QuotedFileContent+            Core.<$> (o Core..:? "mimeType")+            Core.<*> (o Core..:? "value")+      )++instance Core.ToJSON Comment_QuotedFileContent where+  toJSON Comment_QuotedFileContent {..} =+    Core.object+      ( Core.catMaybes+          [ ("mimeType" Core..=) Core.<$> mimeType,+            ("value" Core..=) Core.<$> value+          ]+      )++-- | A list of comments on a file.+--+-- /See:/ 'newCommentList' smart constructor.+data CommentList = CommentList+  { -- | The list of comments. If nextPageToken is populated, then this list may be incomplete and an additional page of results should be fetched.+    comments :: (Core.Maybe [Comment]),+    -- | Identifies what kind of resource this is. Value: the fixed string @\"drive#commentList\"@.+    kind :: Core.Text,+    -- | The page token for the next page of comments. This will be absent if the end of the comments list has been reached. If the token is rejected for any reason, it should be discarded, and pagination should be restarted from the first page of results. The page token is typically valid for several hours. However, if new items are added or removed, your expected results might differ.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CommentList' with the minimum fields required to make a request.+newCommentList ::+  CommentList+newCommentList =+  CommentList+    { comments = Core.Nothing,+      kind = "drive#commentList",+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON CommentList where+  parseJSON =+    Core.withObject+      "CommentList"+      ( \o ->+          CommentList+            Core.<$> (o Core..:? "comments")+            Core.<*> (o Core..:? "kind" Core..!= "drive#commentList")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON CommentList where+  toJSON CommentList {..} =+    Core.object+      ( Core.catMaybes+          [ ("comments" Core..=) Core.<$> comments,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | A restriction for accessing the content of the file.+--+-- /See:/ 'newContentRestriction' smart constructor.+data ContentRestriction = ContentRestriction+  { -- | Whether the content restriction can only be modified or removed by a user who owns the file. For files in shared drives, any user with @organizer@ capabilities can modify or remove this content restriction.+    ownerRestricted :: (Core.Maybe Core.Bool),+    -- | Whether the content of the file is read-only. If a file is read-only, a new revision of the file may not be added, comments may not be added or modified, and the title of the file may not be modified.+    readOnly :: (Core.Maybe Core.Bool),+    -- | Reason for why the content of the file is restricted. This is only mutable on requests that also set @readOnly=true@.+    reason :: (Core.Maybe Core.Text),+    -- | Output only. The user who set the content restriction. Only populated if @readOnly@ is true.+    restrictingUser :: (Core.Maybe User),+    -- | The time at which the content restriction was set (formatted RFC 3339 timestamp). Only populated if readOnly is true.+    restrictionTime :: (Core.Maybe Core.DateTime),+    -- | Output only. Whether the content restriction was applied by the system, for example due to an esignature. Users cannot modify or remove system restricted content restrictions.+    systemRestricted :: (Core.Maybe Core.Bool),+    -- | Output only. The type of the content restriction. Currently the only possible value is @globalContentRestriction@.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ContentRestriction' with the minimum fields required to make a request.+newContentRestriction ::+  ContentRestriction+newContentRestriction =+  ContentRestriction+    { ownerRestricted = Core.Nothing,+      readOnly = Core.Nothing,+      reason = Core.Nothing,+      restrictingUser = Core.Nothing,+      restrictionTime = Core.Nothing,+      systemRestricted = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON ContentRestriction where+  parseJSON =+    Core.withObject+      "ContentRestriction"+      ( \o ->+          ContentRestriction+            Core.<$> (o Core..:? "ownerRestricted")+            Core.<*> (o Core..:? "readOnly")+            Core.<*> (o Core..:? "reason")+            Core.<*> (o Core..:? "restrictingUser")+            Core.<*> (o Core..:? "restrictionTime")+            Core.<*> (o Core..:? "systemRestricted")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON ContentRestriction where+  toJSON ContentRestriction {..} =+    Core.object+      ( Core.catMaybes+          [ ("ownerRestricted" Core..=) Core.<$> ownerRestricted,+            ("readOnly" Core..=) Core.<$> readOnly,+            ("reason" Core..=) Core.<$> reason,+            ("restrictingUser" Core..=) Core.<$> restrictingUser,+            ("restrictionTime" Core..=) Core.<$> restrictionTime,+            ("systemRestricted" Core..=) Core.<$> systemRestricted,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | A restriction for copy and download of the file.+--+-- /See:/ 'newDownloadRestriction' smart constructor.+data DownloadRestriction = DownloadRestriction+  { -- | Whether download and copy is restricted for readers.+    restrictedForReaders :: (Core.Maybe Core.Bool),+    -- | Whether download and copy is restricted for writers. If true, download is also restricted for readers.+    restrictedForWriters :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DownloadRestriction' with the minimum fields required to make a request.+newDownloadRestriction ::+  DownloadRestriction+newDownloadRestriction =+  DownloadRestriction+    { restrictedForReaders = Core.Nothing,+      restrictedForWriters = Core.Nothing+    }++instance Core.FromJSON DownloadRestriction where+  parseJSON =+    Core.withObject+      "DownloadRestriction"+      ( \o ->+          DownloadRestriction+            Core.<$> (o Core..:? "restrictedForReaders")+            Core.<*> (o Core..:? "restrictedForWriters")+      )++instance Core.ToJSON DownloadRestriction where+  toJSON DownloadRestriction {..} =+    Core.object+      ( Core.catMaybes+          [ ("restrictedForReaders" Core..=) Core.<$> restrictedForReaders,+            ("restrictedForWriters" Core..=) Core.<$> restrictedForWriters+          ]+      )++-- | Representation of a shared drive. Some resource methods (such as @drives.update@) require a @driveId@. Use the @drives.list@ method to retrieve the ID for a shared drive.+--+-- /See:/ 'newDrive' smart constructor.+data Drive = Drive+  { -- | An image file and cropping parameters from which a background image for this shared drive is set. This is a write only field; it can only be set on @drive.drives.update@ requests that don\'t set @themeId@. When specified, all fields of the @backgroundImageFile@ must be set.+    backgroundImageFile :: (Core.Maybe Drive_BackgroundImageFile),+    -- | Output only. A short-lived link to this shared drive\'s background image.+    backgroundImageLink :: (Core.Maybe Core.Text),+    -- | Output only. Capabilities the current user has on this shared drive.+    capabilities :: (Core.Maybe Drive_Capabilities),+    -- | The color of this shared drive as an RGB hex string. It can only be set on a @drive.drives.update@ request that does not set @themeId@.+    colorRgb :: (Core.Maybe Core.Text),+    -- | The time at which the shared drive was created (RFC 3339 date-time).+    createdTime :: (Core.Maybe Core.DateTime),+    -- | Whether the shared drive is hidden from default view.+    hidden :: (Core.Maybe Core.Bool),+    -- | Output only. The ID of this shared drive which is also the ID of the top level folder of this shared drive.+    id :: (Core.Maybe Core.Text),+    -- | Output only. Identifies what kind of resource this is. Value: the fixed string @\"drive#drive\"@.+    kind :: Core.Text,+    -- | The name of this shared drive.+    name :: (Core.Maybe Core.Text),+    -- | Output only. The organizational unit of this shared drive. This field is only populated on @drives.list@ responses when the @useDomainAdminAccess@ parameter is set to @true@.+    orgUnitId :: (Core.Maybe Core.Text),+    -- | A set of restrictions that apply to this shared drive or items inside this shared drive. Note that restrictions can\'t be set when creating a shared drive. To add a restriction, first create a shared drive and then use @drives.update@ to add restrictions.+    restrictions :: (Core.Maybe Drive_Restrictions),+    -- | The ID of the theme from which the background image and color will be set. The set of possible @driveThemes@ can be retrieved from a @drive.about.get@ response. When not specified on a @drive.drives.create@ request, a random theme is chosen from which the background image and color are set. This is a write-only field; it can only be set on requests that don\'t set @colorRgb@ or @backgroundImageFile@.+    themeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Drive' with the minimum fields required to make a request.+newDrive ::+  Drive+newDrive =+  Drive+    { backgroundImageFile = Core.Nothing,+      backgroundImageLink = Core.Nothing,+      capabilities = Core.Nothing,+      colorRgb = Core.Nothing,+      createdTime = Core.Nothing,+      hidden = Core.Nothing,+      id = Core.Nothing,+      kind = "drive#drive",+      name = Core.Nothing,+      orgUnitId = Core.Nothing,+      restrictions = Core.Nothing,+      themeId = Core.Nothing+    }++instance Core.FromJSON Drive where+  parseJSON =+    Core.withObject+      "Drive"+      ( \o ->+          Drive+            Core.<$> (o Core..:? "backgroundImageFile")+            Core.<*> (o Core..:? "backgroundImageLink")+            Core.<*> (o Core..:? "capabilities")+            Core.<*> (o Core..:? "colorRgb")+            Core.<*> (o Core..:? "createdTime")+            Core.<*> (o Core..:? "hidden")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "drive#drive")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "orgUnitId")+            Core.<*> (o Core..:? "restrictions")+            Core.<*> (o Core..:? "themeId")+      )++instance Core.ToJSON Drive where+  toJSON Drive {..} =+    Core.object+      ( Core.catMaybes+          [ ("backgroundImageFile" Core..=) Core.<$> backgroundImageFile,+            ("backgroundImageLink" Core..=) Core.<$> backgroundImageLink,+            ("capabilities" Core..=) Core.<$> capabilities,+            ("colorRgb" Core..=) Core.<$> colorRgb,+            ("createdTime" Core..=) Core.<$> createdTime,+            ("hidden" Core..=) Core.<$> hidden,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("orgUnitId" Core..=) Core.<$> orgUnitId,+            ("restrictions" Core..=) Core.<$> restrictions,+            ("themeId" Core..=) Core.<$> themeId+          ]+      )++-- | An image file and cropping parameters from which a background image for this shared drive is set. This is a write only field; it can only be set on @drive.drives.update@ requests that don\'t set @themeId@. When specified, all fields of the @backgroundImageFile@ must be set.+--+-- /See:/ 'newDrive_BackgroundImageFile' smart constructor.+data Drive_BackgroundImageFile = Drive_BackgroundImageFile+  { -- | The ID of an image file in Google Drive to use for the background image.+    id :: (Core.Maybe Core.Text),+    -- | The width of the cropped image in the closed range of 0 to 1. This value represents the width of the cropped image divided by the width of the entire image. The height is computed by applying a width to height aspect ratio of 80 to 9. The resulting image must be at least 1280 pixels wide and 144 pixels high.+    width :: (Core.Maybe Core.Double),+    -- | The X coordinate of the upper left corner of the cropping area in the background image. This is a value in the closed range of 0 to 1. This value represents the horizontal distance from the left side of the entire image to the left side of the cropping area divided by the width of the entire image.+    xCoordinate :: (Core.Maybe Core.Double),+    -- | The Y coordinate of the upper left corner of the cropping area in the background image. This is a value in the closed range of 0 to 1. This value represents the vertical distance from the top side of the entire image to the top side of the cropping area divided by the height of the entire image.+    yCoordinate :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Drive_BackgroundImageFile' with the minimum fields required to make a request.+newDrive_BackgroundImageFile ::+  Drive_BackgroundImageFile+newDrive_BackgroundImageFile =+  Drive_BackgroundImageFile+    { id = Core.Nothing,+      width = Core.Nothing,+      xCoordinate = Core.Nothing,+      yCoordinate = Core.Nothing+    }++instance Core.FromJSON Drive_BackgroundImageFile where+  parseJSON =+    Core.withObject+      "Drive_BackgroundImageFile"+      ( \o ->+          Drive_BackgroundImageFile+            Core.<$> (o Core..:? "id")+            Core.<*> (o Core..:? "width")+            Core.<*> (o Core..:? "xCoordinate")+            Core.<*> (o Core..:? "yCoordinate")+      )++instance Core.ToJSON Drive_BackgroundImageFile where+  toJSON Drive_BackgroundImageFile {..} =+    Core.object+      ( Core.catMaybes+          [ ("id" Core..=) Core.<$> id,+            ("width" Core..=) Core.<$> width,+            ("xCoordinate" Core..=) Core.<$> xCoordinate,+            ("yCoordinate" Core..=) Core.<$> yCoordinate+          ]+      )++-- | Output only. Capabilities the current user has on this shared drive.+--+-- /See:/ 'newDrive_Capabilities' smart constructor.+data Drive_Capabilities = Drive_Capabilities+  { -- | Output only. Whether the current user can add children to folders in this shared drive.+    canAddChildren :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can change the @copyRequiresWriterPermission@ restriction of this shared drive.+    canChangeCopyRequiresWriterPermissionRestriction :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can change the @domainUsersOnly@ restriction of this shared drive.+    canChangeDomainUsersOnlyRestriction :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can change the background of this shared drive.+    canChangeDriveBackground :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can change the @driveMembersOnly@ restriction of this shared drive.+    canChangeDriveMembersOnlyRestriction :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can change the @sharingFoldersRequiresOrganizerPermission@ restriction of this shared drive.+    canChangeSharingFoldersRequiresOrganizerPermissionRestriction :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can comment on files in this shared drive.+    canComment :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can copy files in this shared drive.+    canCopy :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can delete children from folders in this shared drive.+    canDeleteChildren :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can delete this shared drive. Attempting to delete the shared drive may still fail if there are untrashed items inside the shared drive.+    canDeleteDrive :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can download files in this shared drive.+    canDownload :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can edit files in this shared drive+    canEdit :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can list the children of folders in this shared drive.+    canListChildren :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can add members to this shared drive or remove them or change their role.+    canManageMembers :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can read the revisions resource of files in this shared drive.+    canReadRevisions :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can rename files or folders in this shared drive.+    canRename :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can rename this shared drive.+    canRenameDrive :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can reset the shared drive restrictions to defaults.+    canResetDriveRestrictions :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can share files or folders in this shared drive.+    canShare :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can trash children from folders in this shared drive.+    canTrashChildren :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Drive_Capabilities' with the minimum fields required to make a request.+newDrive_Capabilities ::+  Drive_Capabilities+newDrive_Capabilities =+  Drive_Capabilities+    { canAddChildren = Core.Nothing,+      canChangeCopyRequiresWriterPermissionRestriction = Core.Nothing,+      canChangeDomainUsersOnlyRestriction = Core.Nothing,+      canChangeDriveBackground = Core.Nothing,+      canChangeDriveMembersOnlyRestriction = Core.Nothing,+      canChangeSharingFoldersRequiresOrganizerPermissionRestriction =+        Core.Nothing,+      canComment = Core.Nothing,+      canCopy = Core.Nothing,+      canDeleteChildren = Core.Nothing,+      canDeleteDrive = Core.Nothing,+      canDownload = Core.Nothing,+      canEdit = Core.Nothing,+      canListChildren = Core.Nothing,+      canManageMembers = Core.Nothing,+      canReadRevisions = Core.Nothing,+      canRename = Core.Nothing,+      canRenameDrive = Core.Nothing,+      canResetDriveRestrictions = Core.Nothing,+      canShare = Core.Nothing,+      canTrashChildren = Core.Nothing+    }++instance Core.FromJSON Drive_Capabilities where+  parseJSON =+    Core.withObject+      "Drive_Capabilities"+      ( \o ->+          Drive_Capabilities+            Core.<$> (o Core..:? "canAddChildren")+            Core.<*> (o Core..:? "canChangeCopyRequiresWriterPermissionRestriction")+            Core.<*> (o Core..:? "canChangeDomainUsersOnlyRestriction")+            Core.<*> (o Core..:? "canChangeDriveBackground")+            Core.<*> (o Core..:? "canChangeDriveMembersOnlyRestriction")+            Core.<*> ( o+                         Core..:? "canChangeSharingFoldersRequiresOrganizerPermissionRestriction"+                     )+            Core.<*> (o Core..:? "canComment")+            Core.<*> (o Core..:? "canCopy")+            Core.<*> (o Core..:? "canDeleteChildren")+            Core.<*> (o Core..:? "canDeleteDrive")+            Core.<*> (o Core..:? "canDownload")+            Core.<*> (o Core..:? "canEdit")+            Core.<*> (o Core..:? "canListChildren")+            Core.<*> (o Core..:? "canManageMembers")+            Core.<*> (o Core..:? "canReadRevisions")+            Core.<*> (o Core..:? "canRename")+            Core.<*> (o Core..:? "canRenameDrive")+            Core.<*> (o Core..:? "canResetDriveRestrictions")+            Core.<*> (o Core..:? "canShare")+            Core.<*> (o Core..:? "canTrashChildren")+      )++instance Core.ToJSON Drive_Capabilities where+  toJSON Drive_Capabilities {..} =+    Core.object+      ( Core.catMaybes+          [ ("canAddChildren" Core..=) Core.<$> canAddChildren,+            ("canChangeCopyRequiresWriterPermissionRestriction" Core..=)+              Core.<$> canChangeCopyRequiresWriterPermissionRestriction,+            ("canChangeDomainUsersOnlyRestriction" Core..=)+              Core.<$> canChangeDomainUsersOnlyRestriction,+            ("canChangeDriveBackground" Core..=)+              Core.<$> canChangeDriveBackground,+            ("canChangeDriveMembersOnlyRestriction" Core..=)+              Core.<$> canChangeDriveMembersOnlyRestriction,+            ( "canChangeSharingFoldersRequiresOrganizerPermissionRestriction"+                Core..=+            )+              Core.<$> canChangeSharingFoldersRequiresOrganizerPermissionRestriction,+            ("canComment" Core..=) Core.<$> canComment,+            ("canCopy" Core..=) Core.<$> canCopy,+            ("canDeleteChildren" Core..=) Core.<$> canDeleteChildren,+            ("canDeleteDrive" Core..=) Core.<$> canDeleteDrive,+            ("canDownload" Core..=) Core.<$> canDownload,+            ("canEdit" Core..=) Core.<$> canEdit,+            ("canListChildren" Core..=) Core.<$> canListChildren,+            ("canManageMembers" Core..=) Core.<$> canManageMembers,+            ("canReadRevisions" Core..=) Core.<$> canReadRevisions,+            ("canRename" Core..=) Core.<$> canRename,+            ("canRenameDrive" Core..=) Core.<$> canRenameDrive,+            ("canResetDriveRestrictions" Core..=)+              Core.<$> canResetDriveRestrictions,+            ("canShare" Core..=) Core.<$> canShare,+            ("canTrashChildren" Core..=) Core.<$> canTrashChildren+          ]+      )++-- | A set of restrictions that apply to this shared drive or items inside this shared drive. Note that restrictions can\'t be set when creating a shared drive. To add a restriction, first create a shared drive and then use @drives.update@ to add restrictions.+--+-- /See:/ 'newDrive_Restrictions' smart constructor.+data Drive_Restrictions = Drive_Restrictions+  { -- | Whether administrative privileges on this shared drive are required to modify restrictions.+    adminManagedRestrictions :: (Core.Maybe Core.Bool),+    -- | Whether the options to copy, print, or download files inside this shared drive, should be disabled for readers and commenters. When this restriction is set to @true@, it will override the similarly named field to @true@ for any file inside this shared drive.+    copyRequiresWriterPermission :: (Core.Maybe Core.Bool),+    -- | Whether access to this shared drive and items inside this shared drive is restricted to users of the domain to which this shared drive belongs. This restriction may be overridden by other sharing policies controlled outside of this shared drive.+    domainUsersOnly :: (Core.Maybe Core.Bool),+    -- | Download restrictions applied by shared drive managers.+    downloadRestriction :: (Core.Maybe DownloadRestriction),+    -- | Whether access to items inside this shared drive is restricted to its members.+    driveMembersOnly :: (Core.Maybe Core.Bool),+    -- | If true, only users with the organizer role can share folders. If false, users with either the organizer role or the file organizer role can share folders.+    sharingFoldersRequiresOrganizerPermission :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Drive_Restrictions' with the minimum fields required to make a request.+newDrive_Restrictions ::+  Drive_Restrictions+newDrive_Restrictions =+  Drive_Restrictions+    { adminManagedRestrictions = Core.Nothing,+      copyRequiresWriterPermission = Core.Nothing,+      domainUsersOnly = Core.Nothing,+      downloadRestriction = Core.Nothing,+      driveMembersOnly = Core.Nothing,+      sharingFoldersRequiresOrganizerPermission = Core.Nothing+    }++instance Core.FromJSON Drive_Restrictions where+  parseJSON =+    Core.withObject+      "Drive_Restrictions"+      ( \o ->+          Drive_Restrictions+            Core.<$> (o Core..:? "adminManagedRestrictions")+            Core.<*> (o Core..:? "copyRequiresWriterPermission")+            Core.<*> (o Core..:? "domainUsersOnly")+            Core.<*> (o Core..:? "downloadRestriction")+            Core.<*> (o Core..:? "driveMembersOnly")+            Core.<*> (o Core..:? "sharingFoldersRequiresOrganizerPermission")+      )++instance Core.ToJSON Drive_Restrictions where+  toJSON Drive_Restrictions {..} =+    Core.object+      ( Core.catMaybes+          [ ("adminManagedRestrictions" Core..=)+              Core.<$> adminManagedRestrictions,+            ("copyRequiresWriterPermission" Core..=)+              Core.<$> copyRequiresWriterPermission,+            ("domainUsersOnly" Core..=) Core.<$> domainUsersOnly,+            ("downloadRestriction" Core..=) Core.<$> downloadRestriction,+            ("driveMembersOnly" Core..=) Core.<$> driveMembersOnly,+            ("sharingFoldersRequiresOrganizerPermission" Core..=)+              Core.<$> sharingFoldersRequiresOrganizerPermission+          ]+      )++-- | A list of shared drives.+--+-- /See:/ 'newDriveList' smart constructor.+data DriveList = DriveList+  { -- | The list of shared drives. If nextPageToken is populated, then this list may be incomplete and an additional page of results should be fetched.+    drives :: (Core.Maybe [Drive]),+    -- | Identifies what kind of resource this is. Value: the fixed string @\"drive#driveList\"@.+    kind :: Core.Text,+    -- | The page token for the next page of shared drives. This will be absent if the end of the list has been reached. If the token is rejected for any reason, it should be discarded, and pagination should be restarted from the first page of results. The page token is typically valid for several hours. However, if new items are added or removed, your expected results might differ.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DriveList' with the minimum fields required to make a request.+newDriveList ::+  DriveList+newDriveList =+  DriveList+    { drives = Core.Nothing,+      kind = "drive#driveList",+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON DriveList where+  parseJSON =+    Core.withObject+      "DriveList"+      ( \o ->+          DriveList+            Core.<$> (o Core..:? "drives")+            Core.<*> (o Core..:? "kind" Core..!= "drive#driveList")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON DriveList where+  toJSON DriveList {..} =+    Core.object+      ( Core.catMaybes+          [ ("drives" Core..=) Core.<$> drives,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | The metadata for a file. Some resource methods (such as @files.update@) require a @fileId@. Use the @files.list@ method to retrieve the ID for a file.+--+-- /See:/ 'newFile' smart constructor.+data File = File+  { -- | A collection of arbitrary key-value pairs which are private to the requesting app. Entries with null values are cleared in update and copy requests. These properties can only be retrieved using an authenticated request. An authenticated request uses an access token obtained with a OAuth 2 client ID. You cannot use an API key to retrieve private properties.+    appProperties :: (Core.Maybe File_AppProperties),+    -- | Output only. Capabilities the current user has on this file. Each capability corresponds to a fine-grained action that a user may take.+    capabilities :: (Core.Maybe File_Capabilities),+    -- | Additional information about the content of the file. These fields are never populated in responses.+    contentHints :: (Core.Maybe File_ContentHints),+    -- | Restrictions for accessing the content of the file. Only populated if such a restriction exists.+    contentRestrictions :: (Core.Maybe [ContentRestriction]),+    -- | Whether the options to copy, print, or download this file, should be disabled for readers and commenters.+    copyRequiresWriterPermission :: (Core.Maybe Core.Bool),+    -- | The time at which the file was created (RFC 3339 date-time).+    createdTime :: (Core.Maybe Core.DateTime),+    -- | A short description of the file.+    description :: (Core.Maybe Core.Text),+    -- | Output only. ID of the shared drive the file resides in. Only populated for items in shared drives.+    driveId :: (Core.Maybe Core.Text),+    -- | Output only. Whether the file has been explicitly trashed, as opposed to recursively trashed from a parent folder.+    explicitlyTrashed :: (Core.Maybe Core.Bool),+    -- | Output only. Links for exporting Docs Editors files to specific formats.+    exportLinks :: (Core.Maybe File_ExportLinks),+    -- | Output only. The final component of @fullFileExtension@. This is only available for files with binary content in Google Drive.+    fileExtension :: (Core.Maybe Core.Text),+    -- | The color for a folder or a shortcut to a folder as an RGB hex string. The supported colors are published in the @folderColorPalette@ field of the About resource. If an unsupported color is specified, the closest color in the palette is used instead.+    folderColorRgb :: (Core.Maybe Core.Text),+    -- | Output only. The full file extension extracted from the @name@ field. May contain multiple concatenated extensions, such as \"tar.gz\". This is only available for files with binary content in Google Drive. This is automatically updated when the @name@ field changes, however it is not cleared if the new name does not contain a valid extension.+    fullFileExtension :: (Core.Maybe Core.Text),+    -- | Output only. Whether there are permissions directly on this file. This field is only populated for items in shared drives.+    hasAugmentedPermissions :: (Core.Maybe Core.Bool),+    -- | Output only. Whether this file has a thumbnail. This does not indicate whether the requesting app has access to the thumbnail. To check access, look for the presence of the thumbnailLink field.+    hasThumbnail :: (Core.Maybe Core.Bool),+    -- | Output only. The ID of the file\'s head revision. This is currently only available for files with binary content in Google Drive.+    headRevisionId :: (Core.Maybe Core.Text),+    -- | Output only. A static, unauthenticated link to the file\'s icon.+    iconLink :: (Core.Maybe Core.Text),+    -- | The ID of the file.+    id :: (Core.Maybe Core.Text),+    -- | Output only. Additional metadata about image media, if available.+    imageMediaMetadata :: (Core.Maybe File_ImageMediaMetadata),+    -- | Whether this file has inherited permissions disabled. Inherited permissions are enabled by default.+    inheritedPermissionsDisabled :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the file was created or opened by the requesting app.+    isAppAuthorized :: (Core.Maybe Core.Bool),+    -- | Output only. Identifies what kind of resource this is. Value: the fixed string @\"drive#file\"@.+    kind :: Core.Text,+    -- | Output only. An overview of the labels on the file.+    labelInfo :: (Core.Maybe File_LabelInfo),+    -- | Output only. The last user to modify the file. This field is only populated when the last modification was performed by a signed-in user.+    lastModifyingUser :: (Core.Maybe User),+    -- | Contains details about the link URLs that clients are using to refer to this item.+    linkShareMetadata :: (Core.Maybe File_LinkShareMetadata),+    -- | Output only. The MD5 checksum for the content of the file. This is only applicable to files with binary content in Google Drive.+    md5Checksum :: (Core.Maybe Core.Text),+    -- | The MIME type of the file. Google Drive attempts to automatically detect an appropriate value from uploaded content, if no value is provided. The value cannot be changed unless a new revision is uploaded. If a file is created with a Google Doc MIME type, the uploaded content is imported, if possible. The supported import formats are published in the About resource.+    mimeType :: (Core.Maybe Core.Text),+    -- | Output only. Whether the file has been modified by this user.+    modifiedByMe :: (Core.Maybe Core.Bool),+    -- | The last time the file was modified by the user (RFC 3339 date-time).+    modifiedByMeTime :: (Core.Maybe Core.DateTime),+    -- | he last time the file was modified by anyone (RFC 3339 date-time). Note that setting modifiedTime will also update modifiedByMeTime for the user.+    modifiedTime :: (Core.Maybe Core.DateTime),+    -- | The name of the file. This is not necessarily unique within a folder. Note that for immutable items such as the top level folders of shared drives, My Drive root folder, and Application Data folder the name is constant.+    name :: (Core.Maybe Core.Text),+    -- | The original filename of the uploaded content if available, or else the original value of the @name@ field. This is only available for files with binary content in Google Drive.+    originalFilename :: (Core.Maybe Core.Text),+    -- | Output only. Whether the user owns the file. Not populated for items in shared drives.+    ownedByMe :: (Core.Maybe Core.Bool),+    -- | Output only. The owner of this file. Only certain legacy files may have more than one owner. This field isn\'t populated for items in shared drives.+    owners :: (Core.Maybe [User]),+    -- | The ID of the parent folder containing the file. A file can only have one parent folder; specifying multiple parents isn\'t supported. If not specified as part of a create request, the file is placed directly in the user\'s My Drive folder. If not specified as part of a copy request, the file inherits any discoverable parent of the source file. Update requests must use the @addParents@ and @removeParents@ parameters to modify the parents list.+    parents :: (Core.Maybe [Core.Text]),+    -- | Output only. List of permission IDs for users with access to this file.+    permissionIds :: (Core.Maybe [Core.Text]),+    -- | Output only. The full list of permissions for the file. This is only available if the requesting user can share the file. Not populated for items in shared drives.+    permissions :: (Core.Maybe [Permission]),+    -- | A collection of arbitrary key-value pairs which are visible to all apps. Entries with null values are cleared in update and copy requests.+    properties :: (Core.Maybe File_Properties),+    -- | Output only. The number of storage quota bytes used by the file. This includes the head revision as well as previous revisions with @keepForever@ enabled.+    quotaBytesUsed :: (Core.Maybe Core.Int64),+    -- | Output only. A key needed to access the item via a shared link.+    resourceKey :: (Core.Maybe Core.Text),+    -- | Output only. The SHA1 checksum associated with this file, if available. This field is only populated for files with content stored in Google Drive; it is not populated for Docs Editors or shortcut files.+    sha1Checksum :: (Core.Maybe Core.Text),+    -- | Output only. The SHA256 checksum associated with this file, if available. This field is only populated for files with content stored in Google Drive; it is not populated for Docs Editors or shortcut files.+    sha256Checksum :: (Core.Maybe Core.Text),+    -- | Output only. Whether the file has been shared. Not populated for items in shared drives.+    shared :: (Core.Maybe Core.Bool),+    -- | The time at which the file was shared with the user, if applicable (RFC 3339 date-time).+    sharedWithMeTime :: (Core.Maybe Core.DateTime),+    -- | Output only. The user who shared the file with the requesting user, if applicable.+    sharingUser :: (Core.Maybe User),+    -- | Shortcut file details. Only populated for shortcut files, which have the mimeType field set to @application\/vnd.google-apps.shortcut@. Can only be set on @files.create@ requests.+    shortcutDetails :: (Core.Maybe File_ShortcutDetails),+    -- | Output only. Size in bytes of blobs and first party editor files. Won\'t be populated for files that have no size, like shortcuts and folders.+    size :: (Core.Maybe Core.Int64),+    -- | Output only. The list of spaces which contain the file. The currently supported values are \'drive\', \'appDataFolder\' and \'photos\'.+    spaces :: (Core.Maybe [Core.Text]),+    -- | Whether the user has starred the file.+    starred :: (Core.Maybe Core.Bool),+    -- | Deprecated: Output only. Use @driveId@ instead.+    teamDriveId :: (Core.Maybe Core.Text),+    -- | Output only. A short-lived link to the file\'s thumbnail, if available. Typically lasts on the order of hours. Not intended for direct usage on web applications due to <https://developer.mozilla.org/en-US/docs/Web/HTTP/CORS Cross-Origin Resource Sharing (CORS)> policies, consider using a proxy server. Only populated when the requesting app can access the file\'s content. If the file isn\'t shared publicly, the URL returned in @Files.thumbnailLink@ must be fetched using a credentialed request.+    thumbnailLink :: (Core.Maybe Core.Text),+    -- | Output only. The thumbnail version for use in thumbnail cache invalidation.+    thumbnailVersion :: (Core.Maybe Core.Int64),+    -- | Whether the file has been trashed, either explicitly or from a trashed parent folder. Only the owner may trash a file, and other users cannot see files in the owner\'s trash.+    trashed :: (Core.Maybe Core.Bool),+    -- | The time that the item was trashed (RFC 3339 date-time). Only populated for items in shared drives.+    trashedTime :: (Core.Maybe Core.DateTime),+    -- | Output only. If the file has been explicitly trashed, the user who trashed it. Only populated for items in shared drives.+    trashingUser :: (Core.Maybe User),+    -- | Output only. A monotonically increasing version number for the file. This reflects every change made to the file on the server, even those not visible to the user.+    version :: (Core.Maybe Core.Int64),+    -- | Output only. Additional metadata about video media. This may not be available immediately upon upload.+    videoMediaMetadata :: (Core.Maybe File_VideoMediaMetadata),+    -- | Output only. Whether the file has been viewed by this user.+    viewedByMe :: (Core.Maybe Core.Bool),+    -- | The last time the file was viewed by the user (RFC 3339 date-time).+    viewedByMeTime :: (Core.Maybe Core.DateTime),+    -- | Deprecated: Use @copyRequiresWriterPermission@ instead.+    viewersCanCopyContent :: (Core.Maybe Core.Bool),+    -- | Output only. A link for downloading the content of the file in a browser. This is only available for files with binary content in Google Drive.+    webContentLink :: (Core.Maybe Core.Text),+    -- | Output only. A link for opening the file in a relevant Google editor or viewer in a browser.+    webViewLink :: (Core.Maybe Core.Text),+    -- | Whether users with only @writer@ permission can modify the file\'s permissions. Not populated for items in shared drives.+    writersCanShare :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'File' with the minimum fields required to make a request.+newFile ::+  File+newFile =+  File+    { appProperties = Core.Nothing,+      capabilities = Core.Nothing,+      contentHints = Core.Nothing,+      contentRestrictions = Core.Nothing,+      copyRequiresWriterPermission = Core.Nothing,+      createdTime = Core.Nothing,+      description = Core.Nothing,+      driveId = Core.Nothing,+      explicitlyTrashed = Core.Nothing,+      exportLinks = Core.Nothing,+      fileExtension = Core.Nothing,+      folderColorRgb = Core.Nothing,+      fullFileExtension = Core.Nothing,+      hasAugmentedPermissions = Core.Nothing,+      hasThumbnail = Core.Nothing,+      headRevisionId = Core.Nothing,+      iconLink = Core.Nothing,+      id = Core.Nothing,+      imageMediaMetadata = Core.Nothing,+      inheritedPermissionsDisabled = Core.Nothing,+      isAppAuthorized = Core.Nothing,+      kind = "drive#file",+      labelInfo = Core.Nothing,+      lastModifyingUser = Core.Nothing,+      linkShareMetadata = Core.Nothing,+      md5Checksum = Core.Nothing,+      mimeType = Core.Nothing,+      modifiedByMe = Core.Nothing,+      modifiedByMeTime = Core.Nothing,+      modifiedTime = Core.Nothing,+      name = Core.Nothing,+      originalFilename = Core.Nothing,+      ownedByMe = Core.Nothing,+      owners = Core.Nothing,+      parents = Core.Nothing,+      permissionIds = Core.Nothing,+      permissions = Core.Nothing,+      properties = Core.Nothing,+      quotaBytesUsed = Core.Nothing,+      resourceKey = Core.Nothing,+      sha1Checksum = Core.Nothing,+      sha256Checksum = Core.Nothing,+      shared = Core.Nothing,+      sharedWithMeTime = Core.Nothing,+      sharingUser = Core.Nothing,+      shortcutDetails = Core.Nothing,+      size = Core.Nothing,+      spaces = Core.Nothing,+      starred = Core.Nothing,+      teamDriveId = Core.Nothing,+      thumbnailLink = Core.Nothing,+      thumbnailVersion = Core.Nothing,+      trashed = Core.Nothing,+      trashedTime = Core.Nothing,+      trashingUser = Core.Nothing,+      version = Core.Nothing,+      videoMediaMetadata = Core.Nothing,+      viewedByMe = Core.Nothing,+      viewedByMeTime = Core.Nothing,+      viewersCanCopyContent = Core.Nothing,+      webContentLink = Core.Nothing,+      webViewLink = Core.Nothing,+      writersCanShare = Core.Nothing+    }++instance Core.FromJSON File where+  parseJSON =+    Core.withObject+      "File"+      ( \o ->+          File+            Core.<$> (o Core..:? "appProperties")+            Core.<*> (o Core..:? "capabilities")+            Core.<*> (o Core..:? "contentHints")+            Core.<*> (o Core..:? "contentRestrictions")+            Core.<*> (o Core..:? "copyRequiresWriterPermission")+            Core.<*> (o Core..:? "createdTime")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "driveId")+            Core.<*> (o Core..:? "explicitlyTrashed")+            Core.<*> (o Core..:? "exportLinks")+            Core.<*> (o Core..:? "fileExtension")+            Core.<*> (o Core..:? "folderColorRgb")+            Core.<*> (o Core..:? "fullFileExtension")+            Core.<*> (o Core..:? "hasAugmentedPermissions")+            Core.<*> (o Core..:? "hasThumbnail")+            Core.<*> (o Core..:? "headRevisionId")+            Core.<*> (o Core..:? "iconLink")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "imageMediaMetadata")+            Core.<*> (o Core..:? "inheritedPermissionsDisabled")+            Core.<*> (o Core..:? "isAppAuthorized")+            Core.<*> (o Core..:? "kind" Core..!= "drive#file")+            Core.<*> (o Core..:? "labelInfo")+            Core.<*> (o Core..:? "lastModifyingUser")+            Core.<*> (o Core..:? "linkShareMetadata")+            Core.<*> (o Core..:? "md5Checksum")+            Core.<*> (o Core..:? "mimeType")+            Core.<*> (o Core..:? "modifiedByMe")+            Core.<*> (o Core..:? "modifiedByMeTime")+            Core.<*> (o Core..:? "modifiedTime")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "originalFilename")+            Core.<*> (o Core..:? "ownedByMe")+            Core.<*> (o Core..:? "owners")+            Core.<*> (o Core..:? "parents")+            Core.<*> (o Core..:? "permissionIds")+            Core.<*> (o Core..:? "permissions")+            Core.<*> (o Core..:? "properties")+            Core.<*> (o Core..:? "quotaBytesUsed" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "resourceKey")+            Core.<*> (o Core..:? "sha1Checksum")+            Core.<*> (o Core..:? "sha256Checksum")+            Core.<*> (o Core..:? "shared")+            Core.<*> (o Core..:? "sharedWithMeTime")+            Core.<*> (o Core..:? "sharingUser")+            Core.<*> (o Core..:? "shortcutDetails")+            Core.<*> (o Core..:? "size" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "spaces")+            Core.<*> (o Core..:? "starred")+            Core.<*> (o Core..:? "teamDriveId")+            Core.<*> (o Core..:? "thumbnailLink")+            Core.<*> (o Core..:? "thumbnailVersion" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "trashed")+            Core.<*> (o Core..:? "trashedTime")+            Core.<*> (o Core..:? "trashingUser")+            Core.<*> (o Core..:? "version" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "videoMediaMetadata")+            Core.<*> (o Core..:? "viewedByMe")+            Core.<*> (o Core..:? "viewedByMeTime")+            Core.<*> (o Core..:? "viewersCanCopyContent")+            Core.<*> (o Core..:? "webContentLink")+            Core.<*> (o Core..:? "webViewLink")+            Core.<*> (o Core..:? "writersCanShare")+      )++instance Core.ToJSON File where+  toJSON File {..} =+    Core.object+      ( Core.catMaybes+          [ ("appProperties" Core..=) Core.<$> appProperties,+            ("capabilities" Core..=) Core.<$> capabilities,+            ("contentHints" Core..=) Core.<$> contentHints,+            ("contentRestrictions" Core..=) Core.<$> contentRestrictions,+            ("copyRequiresWriterPermission" Core..=)+              Core.<$> copyRequiresWriterPermission,+            ("createdTime" Core..=) Core.<$> createdTime,+            ("description" Core..=) Core.<$> description,+            ("driveId" Core..=) Core.<$> driveId,+            ("explicitlyTrashed" Core..=) Core.<$> explicitlyTrashed,+            ("exportLinks" Core..=) Core.<$> exportLinks,+            ("fileExtension" Core..=) Core.<$> fileExtension,+            ("folderColorRgb" Core..=) Core.<$> folderColorRgb,+            ("fullFileExtension" Core..=) Core.<$> fullFileExtension,+            ("hasAugmentedPermissions" Core..=)+              Core.<$> hasAugmentedPermissions,+            ("hasThumbnail" Core..=) Core.<$> hasThumbnail,+            ("headRevisionId" Core..=) Core.<$> headRevisionId,+            ("iconLink" Core..=) Core.<$> iconLink,+            ("id" Core..=) Core.<$> id,+            ("imageMediaMetadata" Core..=) Core.<$> imageMediaMetadata,+            ("inheritedPermissionsDisabled" Core..=)+              Core.<$> inheritedPermissionsDisabled,+            ("isAppAuthorized" Core..=) Core.<$> isAppAuthorized,+            Core.Just ("kind" Core..= kind),+            ("labelInfo" Core..=) Core.<$> labelInfo,+            ("lastModifyingUser" Core..=) Core.<$> lastModifyingUser,+            ("linkShareMetadata" Core..=) Core.<$> linkShareMetadata,+            ("md5Checksum" Core..=) Core.<$> md5Checksum,+            ("mimeType" Core..=) Core.<$> mimeType,+            ("modifiedByMe" Core..=) Core.<$> modifiedByMe,+            ("modifiedByMeTime" Core..=) Core.<$> modifiedByMeTime,+            ("modifiedTime" Core..=) Core.<$> modifiedTime,+            ("name" Core..=) Core.<$> name,+            ("originalFilename" Core..=) Core.<$> originalFilename,+            ("ownedByMe" Core..=) Core.<$> ownedByMe,+            ("owners" Core..=) Core.<$> owners,+            ("parents" Core..=) Core.<$> parents,+            ("permissionIds" Core..=) Core.<$> permissionIds,+            ("permissions" Core..=) Core.<$> permissions,+            ("properties" Core..=) Core.<$> properties,+            ("quotaBytesUsed" Core..=)+              Core.. Core.AsText+              Core.<$> quotaBytesUsed,+            ("resourceKey" Core..=) Core.<$> resourceKey,+            ("sha1Checksum" Core..=) Core.<$> sha1Checksum,+            ("sha256Checksum" Core..=) Core.<$> sha256Checksum,+            ("shared" Core..=) Core.<$> shared,+            ("sharedWithMeTime" Core..=) Core.<$> sharedWithMeTime,+            ("sharingUser" Core..=) Core.<$> sharingUser,+            ("shortcutDetails" Core..=) Core.<$> shortcutDetails,+            ("size" Core..=) Core.. Core.AsText Core.<$> size,+            ("spaces" Core..=) Core.<$> spaces,+            ("starred" Core..=) Core.<$> starred,+            ("teamDriveId" Core..=) Core.<$> teamDriveId,+            ("thumbnailLink" Core..=) Core.<$> thumbnailLink,+            ("thumbnailVersion" Core..=)+              Core.. Core.AsText+              Core.<$> thumbnailVersion,+            ("trashed" Core..=) Core.<$> trashed,+            ("trashedTime" Core..=) Core.<$> trashedTime,+            ("trashingUser" Core..=) Core.<$> trashingUser,+            ("version" Core..=) Core.. Core.AsText Core.<$> version,+            ("videoMediaMetadata" Core..=) Core.<$> videoMediaMetadata,+            ("viewedByMe" Core..=) Core.<$> viewedByMe,+            ("viewedByMeTime" Core..=) Core.<$> viewedByMeTime,+            ("viewersCanCopyContent" Core..=) Core.<$> viewersCanCopyContent,+            ("webContentLink" Core..=) Core.<$> webContentLink,+            ("webViewLink" Core..=) Core.<$> webViewLink,+            ("writersCanShare" Core..=) Core.<$> writersCanShare+          ]+      )++-- | A collection of arbitrary key-value pairs which are private to the requesting app. Entries with null values are cleared in update and copy requests. These properties can only be retrieved using an authenticated request. An authenticated request uses an access token obtained with a OAuth 2 client ID. You cannot use an API key to retrieve private properties.+--+-- /See:/ 'newFile_AppProperties' smart constructor.+newtype File_AppProperties = File_AppProperties+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'File_AppProperties' with the minimum fields required to make a request.+newFile_AppProperties ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  File_AppProperties+newFile_AppProperties additional =+  File_AppProperties {additional = additional}++instance Core.FromJSON File_AppProperties where+  parseJSON =+    Core.withObject+      "File_AppProperties"+      (\o -> File_AppProperties Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON File_AppProperties where+  toJSON File_AppProperties {..} = Core.toJSON additional++-- | Output only. Capabilities the current user has on this file. Each capability corresponds to a fine-grained action that a user may take.+--+-- /See:/ 'newFile_Capabilities' smart constructor.+data File_Capabilities = File_Capabilities+  { -- | Output only. Whether the current user is the pending owner of the file. Not populated for shared drive files.+    canAcceptOwnership :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can add children to this folder. This is always false when the item is not a folder.+    canAddChildren :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can add a folder from another drive (different shared drive or My Drive) to this folder. This is false when the item is not a folder. Only populated for items in shared drives.+    canAddFolderFromAnotherDrive :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can add a parent for the item without removing an existing parent in the same request. Not populated for shared drive files.+    canAddMyDriveParent :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can change the @copyRequiresWriterPermission@ restriction of this file.+    canChangeCopyRequiresWriterPermission :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can change the securityUpdateEnabled field on link share metadata.+    canChangeSecurityUpdateEnabled :: (Core.Maybe Core.Bool),+    -- | Deprecated: Output only.+    canChangeViewersCanCopyContent :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can comment on this file.+    canComment :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can copy this file. For an item in a shared drive, whether the current user can copy non-folder descendants of this item, or this item itself if it is not a folder.+    canCopy :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can delete this file.+    canDelete :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can delete children of this folder. This is false when the item is not a folder. Only populated for items in shared drives.+    canDeleteChildren :: (Core.Maybe Core.Bool),+    -- | Whether a user can disable inherited permissions.+    canDisableInheritedPermissions :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can download this file.+    canDownload :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can edit this file. Other factors may limit the type of changes a user can make to a file. For example, see @canChangeCopyRequiresWriterPermission@ or @canModifyContent@.+    canEdit :: (Core.Maybe Core.Bool),+    -- | Whether a user can re-enable inherited permissions.+    canEnableInheritedPermissions :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can list the children of this folder. This is always false when the item is not a folder.+    canListChildren :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can modify the content of this file.+    canModifyContent :: (Core.Maybe Core.Bool),+    -- | Deprecated: Output only. Use one of @canModifyEditorContentRestriction@, @canModifyOwnerContentRestriction@ or @canRemoveContentRestriction@.+    canModifyContentRestriction :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can add or modify content restrictions on the file which are editor restricted.+    canModifyEditorContentRestriction :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can modify the labels on the file.+    canModifyLabels :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can add or modify content restrictions which are owner restricted.+    canModifyOwnerContentRestriction :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can move children of this folder outside of the shared drive. This is false when the item is not a folder. Only populated for items in shared drives.+    canMoveChildrenOutOfDrive :: (Core.Maybe Core.Bool),+    -- | Deprecated: Output only. Use @canMoveChildrenOutOfDrive@ instead.+    canMoveChildrenOutOfTeamDrive :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can move children of this folder within this drive. This is false when the item is not a folder. Note that a request to move the child may still fail depending on the current user\'s access to the child and to the destination folder.+    canMoveChildrenWithinDrive :: (Core.Maybe Core.Bool),+    -- | Deprecated: Output only. Use @canMoveChildrenWithinDrive@ instead.+    canMoveChildrenWithinTeamDrive :: (Core.Maybe Core.Bool),+    -- | Deprecated: Output only. Use @canMoveItemOutOfDrive@ instead.+    canMoveItemIntoTeamDrive :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can move this item outside of this drive by changing its parent. Note that a request to change the parent of the item may still fail depending on the new parent that is being added.+    canMoveItemOutOfDrive :: (Core.Maybe Core.Bool),+    -- | Deprecated: Output only. Use @canMoveItemOutOfDrive@ instead.+    canMoveItemOutOfTeamDrive :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can move this item within this drive. Note that a request to change the parent of the item may still fail depending on the new parent that is being added and the parent that is being removed.+    canMoveItemWithinDrive :: (Core.Maybe Core.Bool),+    -- | Deprecated: Output only. Use @canMoveItemWithinDrive@ instead.+    canMoveItemWithinTeamDrive :: (Core.Maybe Core.Bool),+    -- | Deprecated: Output only. Use @canMoveItemWithinDrive@ or @canMoveItemOutOfDrive@ instead.+    canMoveTeamDriveItem :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can read the shared drive to which this file belongs. Only populated for items in shared drives.+    canReadDrive :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can read the labels on the file.+    canReadLabels :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can read the revisions resource of this file. For a shared drive item, whether revisions of non-folder descendants of this item, or this item itself if it is not a folder, can be read.+    canReadRevisions :: (Core.Maybe Core.Bool),+    -- | Deprecated: Output only. Use @canReadDrive@ instead.+    canReadTeamDrive :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can remove children from this folder. This is always false when the item is not a folder. For a folder in a shared drive, use @canDeleteChildren@ or @canTrashChildren@ instead.+    canRemoveChildren :: (Core.Maybe Core.Bool),+    -- | Output only. Whether there is a content restriction on the file that can be removed by the current user.+    canRemoveContentRestriction :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can remove a parent from the item without adding another parent in the same request. Not populated for shared drive files.+    canRemoveMyDriveParent :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can rename this file.+    canRename :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can modify the sharing settings for this file.+    canShare :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can move this file to trash.+    canTrash :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can trash children of this folder. This is false when the item is not a folder. Only populated for items in shared drives.+    canTrashChildren :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the current user can restore this file from trash.+    canUntrash :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'File_Capabilities' with the minimum fields required to make a request.+newFile_Capabilities ::+  File_Capabilities+newFile_Capabilities =+  File_Capabilities+    { canAcceptOwnership = Core.Nothing,+      canAddChildren = Core.Nothing,+      canAddFolderFromAnotherDrive = Core.Nothing,+      canAddMyDriveParent = Core.Nothing,+      canChangeCopyRequiresWriterPermission = Core.Nothing,+      canChangeSecurityUpdateEnabled = Core.Nothing,+      canChangeViewersCanCopyContent = Core.Nothing,+      canComment = Core.Nothing,+      canCopy = Core.Nothing,+      canDelete = Core.Nothing,+      canDeleteChildren = Core.Nothing,+      canDisableInheritedPermissions = Core.Nothing,+      canDownload = Core.Nothing,+      canEdit = Core.Nothing,+      canEnableInheritedPermissions = Core.Nothing,+      canListChildren = Core.Nothing,+      canModifyContent = Core.Nothing,+      canModifyContentRestriction = Core.Nothing,+      canModifyEditorContentRestriction = Core.Nothing,+      canModifyLabels = Core.Nothing,+      canModifyOwnerContentRestriction = Core.Nothing,+      canMoveChildrenOutOfDrive = Core.Nothing,+      canMoveChildrenOutOfTeamDrive = Core.Nothing,+      canMoveChildrenWithinDrive = Core.Nothing,+      canMoveChildrenWithinTeamDrive = Core.Nothing,+      canMoveItemIntoTeamDrive = Core.Nothing,+      canMoveItemOutOfDrive = Core.Nothing,+      canMoveItemOutOfTeamDrive = Core.Nothing,+      canMoveItemWithinDrive = Core.Nothing,+      canMoveItemWithinTeamDrive = Core.Nothing,+      canMoveTeamDriveItem = Core.Nothing,+      canReadDrive = Core.Nothing,+      canReadLabels = Core.Nothing,+      canReadRevisions = Core.Nothing,+      canReadTeamDrive = Core.Nothing,+      canRemoveChildren = Core.Nothing,+      canRemoveContentRestriction = Core.Nothing,+      canRemoveMyDriveParent = Core.Nothing,+      canRename = Core.Nothing,+      canShare = Core.Nothing,+      canTrash = Core.Nothing,+      canTrashChildren = Core.Nothing,+      canUntrash = Core.Nothing+    }++instance Core.FromJSON File_Capabilities where+  parseJSON =+    Core.withObject+      "File_Capabilities"+      ( \o ->+          File_Capabilities+            Core.<$> (o Core..:? "canAcceptOwnership")+            Core.<*> (o Core..:? "canAddChildren")+            Core.<*> (o Core..:? "canAddFolderFromAnotherDrive")+            Core.<*> (o Core..:? "canAddMyDriveParent")+            Core.<*> (o Core..:? "canChangeCopyRequiresWriterPermission")+            Core.<*> (o Core..:? "canChangeSecurityUpdateEnabled")+            Core.<*> (o Core..:? "canChangeViewersCanCopyContent")+            Core.<*> (o Core..:? "canComment")+            Core.<*> (o Core..:? "canCopy")+            Core.<*> (o Core..:? "canDelete")+            Core.<*> (o Core..:? "canDeleteChildren")+            Core.<*> (o Core..:? "canDisableInheritedPermissions")+            Core.<*> (o Core..:? "canDownload")+            Core.<*> (o Core..:? "canEdit")+            Core.<*> (o Core..:? "canEnableInheritedPermissions")+            Core.<*> (o Core..:? "canListChildren")+            Core.<*> (o Core..:? "canModifyContent")+            Core.<*> (o Core..:? "canModifyContentRestriction")+            Core.<*> (o Core..:? "canModifyEditorContentRestriction")+            Core.<*> (o Core..:? "canModifyLabels")+            Core.<*> (o Core..:? "canModifyOwnerContentRestriction")+            Core.<*> (o Core..:? "canMoveChildrenOutOfDrive")+            Core.<*> (o Core..:? "canMoveChildrenOutOfTeamDrive")+            Core.<*> (o Core..:? "canMoveChildrenWithinDrive")+            Core.<*> (o Core..:? "canMoveChildrenWithinTeamDrive")+            Core.<*> (o Core..:? "canMoveItemIntoTeamDrive")+            Core.<*> (o Core..:? "canMoveItemOutOfDrive")+            Core.<*> (o Core..:? "canMoveItemOutOfTeamDrive")+            Core.<*> (o Core..:? "canMoveItemWithinDrive")+            Core.<*> (o Core..:? "canMoveItemWithinTeamDrive")+            Core.<*> (o Core..:? "canMoveTeamDriveItem")+            Core.<*> (o Core..:? "canReadDrive")+            Core.<*> (o Core..:? "canReadLabels")+            Core.<*> (o Core..:? "canReadRevisions")+            Core.<*> (o Core..:? "canReadTeamDrive")+            Core.<*> (o Core..:? "canRemoveChildren")+            Core.<*> (o Core..:? "canRemoveContentRestriction")+            Core.<*> (o Core..:? "canRemoveMyDriveParent")+            Core.<*> (o Core..:? "canRename")+            Core.<*> (o Core..:? "canShare")+            Core.<*> (o Core..:? "canTrash")+            Core.<*> (o Core..:? "canTrashChildren")+            Core.<*> (o Core..:? "canUntrash")+      )++instance Core.ToJSON File_Capabilities where+  toJSON File_Capabilities {..} =+    Core.object+      ( Core.catMaybes+          [ ("canAcceptOwnership" Core..=) Core.<$> canAcceptOwnership,+            ("canAddChildren" Core..=) Core.<$> canAddChildren,+            ("canAddFolderFromAnotherDrive" Core..=)+              Core.<$> canAddFolderFromAnotherDrive,+            ("canAddMyDriveParent" Core..=) Core.<$> canAddMyDriveParent,+            ("canChangeCopyRequiresWriterPermission" Core..=)+              Core.<$> canChangeCopyRequiresWriterPermission,+            ("canChangeSecurityUpdateEnabled" Core..=)+              Core.<$> canChangeSecurityUpdateEnabled,+            ("canChangeViewersCanCopyContent" Core..=)+              Core.<$> canChangeViewersCanCopyContent,+            ("canComment" Core..=) Core.<$> canComment,+            ("canCopy" Core..=) Core.<$> canCopy,+            ("canDelete" Core..=) Core.<$> canDelete,+            ("canDeleteChildren" Core..=) Core.<$> canDeleteChildren,+            ("canDisableInheritedPermissions" Core..=)+              Core.<$> canDisableInheritedPermissions,+            ("canDownload" Core..=) Core.<$> canDownload,+            ("canEdit" Core..=) Core.<$> canEdit,+            ("canEnableInheritedPermissions" Core..=)+              Core.<$> canEnableInheritedPermissions,+            ("canListChildren" Core..=) Core.<$> canListChildren,+            ("canModifyContent" Core..=) Core.<$> canModifyContent,+            ("canModifyContentRestriction" Core..=)+              Core.<$> canModifyContentRestriction,+            ("canModifyEditorContentRestriction" Core..=)+              Core.<$> canModifyEditorContentRestriction,+            ("canModifyLabels" Core..=) Core.<$> canModifyLabels,+            ("canModifyOwnerContentRestriction" Core..=)+              Core.<$> canModifyOwnerContentRestriction,+            ("canMoveChildrenOutOfDrive" Core..=)+              Core.<$> canMoveChildrenOutOfDrive,+            ("canMoveChildrenOutOfTeamDrive" Core..=)+              Core.<$> canMoveChildrenOutOfTeamDrive,+            ("canMoveChildrenWithinDrive" Core..=)+              Core.<$> canMoveChildrenWithinDrive,+            ("canMoveChildrenWithinTeamDrive" Core..=)+              Core.<$> canMoveChildrenWithinTeamDrive,+            ("canMoveItemIntoTeamDrive" Core..=)+              Core.<$> canMoveItemIntoTeamDrive,+            ("canMoveItemOutOfDrive" Core..=) Core.<$> canMoveItemOutOfDrive,+            ("canMoveItemOutOfTeamDrive" Core..=)+              Core.<$> canMoveItemOutOfTeamDrive,+            ("canMoveItemWithinDrive" Core..=) Core.<$> canMoveItemWithinDrive,+            ("canMoveItemWithinTeamDrive" Core..=)+              Core.<$> canMoveItemWithinTeamDrive,+            ("canMoveTeamDriveItem" Core..=) Core.<$> canMoveTeamDriveItem,+            ("canReadDrive" Core..=) Core.<$> canReadDrive,+            ("canReadLabels" Core..=) Core.<$> canReadLabels,+            ("canReadRevisions" Core..=) Core.<$> canReadRevisions,+            ("canReadTeamDrive" Core..=) Core.<$> canReadTeamDrive,+            ("canRemoveChildren" Core..=) Core.<$> canRemoveChildren,+            ("canRemoveContentRestriction" Core..=)+              Core.<$> canRemoveContentRestriction,+            ("canRemoveMyDriveParent" Core..=) Core.<$> canRemoveMyDriveParent,+            ("canRename" Core..=) Core.<$> canRename,+            ("canShare" Core..=) Core.<$> canShare,+            ("canTrash" Core..=) Core.<$> canTrash,+            ("canTrashChildren" Core..=) Core.<$> canTrashChildren,+            ("canUntrash" Core..=) Core.<$> canUntrash+          ]+      )++-- | Additional information about the content of the file. These fields are never populated in responses.+--+-- /See:/ 'newFile_ContentHints' smart constructor.+data File_ContentHints = File_ContentHints+  { -- | Text to be indexed for the file to improve fullText queries. This is limited to 128KB in length and may contain HTML elements.+    indexableText :: (Core.Maybe Core.Text),+    -- | A thumbnail for the file. This will only be used if Google Drive cannot generate a standard thumbnail.+    thumbnail :: (Core.Maybe File_ContentHints_Thumbnail)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'File_ContentHints' with the minimum fields required to make a request.+newFile_ContentHints ::+  File_ContentHints+newFile_ContentHints =+  File_ContentHints+    { indexableText = Core.Nothing,+      thumbnail = Core.Nothing+    }++instance Core.FromJSON File_ContentHints where+  parseJSON =+    Core.withObject+      "File_ContentHints"+      ( \o ->+          File_ContentHints+            Core.<$> (o Core..:? "indexableText")+            Core.<*> (o Core..:? "thumbnail")+      )++instance Core.ToJSON File_ContentHints where+  toJSON File_ContentHints {..} =+    Core.object+      ( Core.catMaybes+          [ ("indexableText" Core..=) Core.<$> indexableText,+            ("thumbnail" Core..=) Core.<$> thumbnail+          ]+      )++-- | A thumbnail for the file. This will only be used if Google Drive cannot generate a standard thumbnail.+--+-- /See:/ 'newFile_ContentHints_Thumbnail' smart constructor.+data File_ContentHints_Thumbnail = File_ContentHints_Thumbnail+  { -- | The thumbnail data encoded with URL-safe Base64 (RFC 4648 section 5).+    image :: (Core.Maybe Core.Base64),+    -- | The MIME type of the thumbnail.+    mimeType :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'File_ContentHints_Thumbnail' with the minimum fields required to make a request.+newFile_ContentHints_Thumbnail ::+  File_ContentHints_Thumbnail+newFile_ContentHints_Thumbnail =+  File_ContentHints_Thumbnail+    { image = Core.Nothing,+      mimeType = Core.Nothing+    }++instance Core.FromJSON File_ContentHints_Thumbnail where+  parseJSON =+    Core.withObject+      "File_ContentHints_Thumbnail"+      ( \o ->+          File_ContentHints_Thumbnail+            Core.<$> (o Core..:? "image")+            Core.<*> (o Core..:? "mimeType")+      )++instance Core.ToJSON File_ContentHints_Thumbnail where+  toJSON File_ContentHints_Thumbnail {..} =+    Core.object+      ( Core.catMaybes+          [ ("image" Core..=) Core.<$> image,+            ("mimeType" Core..=) Core.<$> mimeType+          ]+      )++-- | Output only. Links for exporting Docs Editors files to specific formats.+--+-- /See:/ 'newFile_ExportLinks' smart constructor.+newtype File_ExportLinks = File_ExportLinks+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'File_ExportLinks' with the minimum fields required to make a request.+newFile_ExportLinks ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  File_ExportLinks+newFile_ExportLinks additional =+  File_ExportLinks {additional = additional}++instance Core.FromJSON File_ExportLinks where+  parseJSON =+    Core.withObject+      "File_ExportLinks"+      (\o -> File_ExportLinks Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON File_ExportLinks where+  toJSON File_ExportLinks {..} = Core.toJSON additional++-- | Output only. Additional metadata about image media, if available.+--+-- /See:/ 'newFile_ImageMediaMetadata' smart constructor.+data File_ImageMediaMetadata = File_ImageMediaMetadata+  { -- | Output only. The aperture used to create the photo (f-number).+    aperture :: (Core.Maybe Core.Double),+    -- | Output only. The make of the camera used to create the photo.+    cameraMake :: (Core.Maybe Core.Text),+    -- | Output only. The model of the camera used to create the photo.+    cameraModel :: (Core.Maybe Core.Text),+    -- | Output only. The color space of the photo.+    colorSpace :: (Core.Maybe Core.Text),+    -- | Output only. The exposure bias of the photo (APEX value).+    exposureBias :: (Core.Maybe Core.Double),+    -- | Output only. The exposure mode used to create the photo.+    exposureMode :: (Core.Maybe Core.Text),+    -- | Output only. The length of the exposure, in seconds.+    exposureTime :: (Core.Maybe Core.Double),+    -- | Output only. Whether a flash was used to create the photo.+    flashUsed :: (Core.Maybe Core.Bool),+    -- | Output only. The focal length used to create the photo, in millimeters.+    focalLength :: (Core.Maybe Core.Double),+    -- | Output only. The height of the image in pixels.+    height :: (Core.Maybe Core.Int32),+    -- | Output only. The ISO speed used to create the photo.+    isoSpeed :: (Core.Maybe Core.Int32),+    -- | Output only. The lens used to create the photo.+    lens :: (Core.Maybe Core.Text),+    -- | Output only. Geographic location information stored in the image.+    location :: (Core.Maybe File_ImageMediaMetadata_Location),+    -- | Output only. The smallest f-number of the lens at the focal length used to create the photo (APEX value).+    maxApertureValue :: (Core.Maybe Core.Double),+    -- | Output only. The metering mode used to create the photo.+    meteringMode :: (Core.Maybe Core.Text),+    -- | Output only. The number of clockwise 90 degree rotations applied from the image\'s original orientation.+    rotation :: (Core.Maybe Core.Int32),+    -- | Output only. The type of sensor used to create the photo.+    sensor :: (Core.Maybe Core.Text),+    -- | Output only. The distance to the subject of the photo, in meters.+    subjectDistance :: (Core.Maybe Core.Int32),+    -- | Output only. The date and time the photo was taken (EXIF DateTime).+    time :: (Core.Maybe Core.Text),+    -- | Output only. The white balance mode used to create the photo.+    whiteBalance :: (Core.Maybe Core.Text),+    -- | Output only. The width of the image in pixels.+    width :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'File_ImageMediaMetadata' with the minimum fields required to make a request.+newFile_ImageMediaMetadata ::+  File_ImageMediaMetadata+newFile_ImageMediaMetadata =+  File_ImageMediaMetadata+    { aperture = Core.Nothing,+      cameraMake = Core.Nothing,+      cameraModel = Core.Nothing,+      colorSpace = Core.Nothing,+      exposureBias = Core.Nothing,+      exposureMode = Core.Nothing,+      exposureTime = Core.Nothing,+      flashUsed = Core.Nothing,+      focalLength = Core.Nothing,+      height = Core.Nothing,+      isoSpeed = Core.Nothing,+      lens = Core.Nothing,+      location = Core.Nothing,+      maxApertureValue = Core.Nothing,+      meteringMode = Core.Nothing,+      rotation = Core.Nothing,+      sensor = Core.Nothing,+      subjectDistance = Core.Nothing,+      time = Core.Nothing,+      whiteBalance = Core.Nothing,+      width = Core.Nothing+    }++instance Core.FromJSON File_ImageMediaMetadata where+  parseJSON =+    Core.withObject+      "File_ImageMediaMetadata"+      ( \o ->+          File_ImageMediaMetadata+            Core.<$> (o Core..:? "aperture")+            Core.<*> (o Core..:? "cameraMake")+            Core.<*> (o Core..:? "cameraModel")+            Core.<*> (o Core..:? "colorSpace")+            Core.<*> (o Core..:? "exposureBias")+            Core.<*> (o Core..:? "exposureMode")+            Core.<*> (o Core..:? "exposureTime")+            Core.<*> (o Core..:? "flashUsed")+            Core.<*> (o Core..:? "focalLength")+            Core.<*> (o Core..:? "height")+            Core.<*> (o Core..:? "isoSpeed")+            Core.<*> (o Core..:? "lens")+            Core.<*> (o Core..:? "location")+            Core.<*> (o Core..:? "maxApertureValue")+            Core.<*> (o Core..:? "meteringMode")+            Core.<*> (o Core..:? "rotation")+            Core.<*> (o Core..:? "sensor")+            Core.<*> (o Core..:? "subjectDistance")+            Core.<*> (o Core..:? "time")+            Core.<*> (o Core..:? "whiteBalance")+            Core.<*> (o Core..:? "width")+      )++instance Core.ToJSON File_ImageMediaMetadata where+  toJSON File_ImageMediaMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("aperture" Core..=) Core.<$> aperture,+            ("cameraMake" Core..=) Core.<$> cameraMake,+            ("cameraModel" Core..=) Core.<$> cameraModel,+            ("colorSpace" Core..=) Core.<$> colorSpace,+            ("exposureBias" Core..=) Core.<$> exposureBias,+            ("exposureMode" Core..=) Core.<$> exposureMode,+            ("exposureTime" Core..=) Core.<$> exposureTime,+            ("flashUsed" Core..=) Core.<$> flashUsed,+            ("focalLength" Core..=) Core.<$> focalLength,+            ("height" Core..=) Core.<$> height,+            ("isoSpeed" Core..=) Core.<$> isoSpeed,+            ("lens" Core..=) Core.<$> lens,+            ("location" Core..=) Core.<$> location,+            ("maxApertureValue" Core..=) Core.<$> maxApertureValue,+            ("meteringMode" Core..=) Core.<$> meteringMode,+            ("rotation" Core..=) Core.<$> rotation,+            ("sensor" Core..=) Core.<$> sensor,+            ("subjectDistance" Core..=) Core.<$> subjectDistance,+            ("time" Core..=) Core.<$> time,+            ("whiteBalance" Core..=) Core.<$> whiteBalance,+            ("width" Core..=) Core.<$> width+          ]+      )++-- | Output only. Geographic location information stored in the image.+--+-- /See:/ 'newFile_ImageMediaMetadata_Location' smart constructor.+data File_ImageMediaMetadata_Location = File_ImageMediaMetadata_Location+  { -- | Output only. The altitude stored in the image.+    altitude :: (Core.Maybe Core.Double),+    -- | Output only. The latitude stored in the image.+    latitude :: (Core.Maybe Core.Double),+    -- | Output only. The longitude stored in the image.+    longitude :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'File_ImageMediaMetadata_Location' with the minimum fields required to make a request.+newFile_ImageMediaMetadata_Location ::+  File_ImageMediaMetadata_Location+newFile_ImageMediaMetadata_Location =+  File_ImageMediaMetadata_Location+    { altitude = Core.Nothing,+      latitude = Core.Nothing,+      longitude = Core.Nothing+    }++instance Core.FromJSON File_ImageMediaMetadata_Location where+  parseJSON =+    Core.withObject+      "File_ImageMediaMetadata_Location"+      ( \o ->+          File_ImageMediaMetadata_Location+            Core.<$> (o Core..:? "altitude")+            Core.<*> (o Core..:? "latitude")+            Core.<*> (o Core..:? "longitude")+      )++instance Core.ToJSON File_ImageMediaMetadata_Location where+  toJSON File_ImageMediaMetadata_Location {..} =+    Core.object+      ( Core.catMaybes+          [ ("altitude" Core..=) Core.<$> altitude,+            ("latitude" Core..=) Core.<$> latitude,+            ("longitude" Core..=) Core.<$> longitude+          ]+      )++-- | Output only. An overview of the labels on the file.+--+-- /See:/ 'newFile_LabelInfo' smart constructor.+newtype File_LabelInfo = File_LabelInfo+  { -- | Output only. The set of labels on the file as requested by the label IDs in the @includeLabels@ parameter. By default, no labels are returned.+    labels :: (Core.Maybe [Label])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'File_LabelInfo' with the minimum fields required to make a request.+newFile_LabelInfo ::+  File_LabelInfo+newFile_LabelInfo = File_LabelInfo {labels = Core.Nothing}++instance Core.FromJSON File_LabelInfo where+  parseJSON =+    Core.withObject+      "File_LabelInfo"+      (\o -> File_LabelInfo Core.<$> (o Core..:? "labels"))++instance Core.ToJSON File_LabelInfo where+  toJSON File_LabelInfo {..} =+    Core.object (Core.catMaybes [("labels" Core..=) Core.<$> labels])++-- | Contains details about the link URLs that clients are using to refer to this item.+--+-- /See:/ 'newFile_LinkShareMetadata' smart constructor.+data File_LinkShareMetadata = File_LinkShareMetadata+  { -- | Output only. Whether the file is eligible for security update.+    securityUpdateEligible :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the security update is enabled for this file.+    securityUpdateEnabled :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'File_LinkShareMetadata' with the minimum fields required to make a request.+newFile_LinkShareMetadata ::+  File_LinkShareMetadata+newFile_LinkShareMetadata =+  File_LinkShareMetadata+    { securityUpdateEligible = Core.Nothing,+      securityUpdateEnabled = Core.Nothing+    }++instance Core.FromJSON File_LinkShareMetadata where+  parseJSON =+    Core.withObject+      "File_LinkShareMetadata"+      ( \o ->+          File_LinkShareMetadata+            Core.<$> (o Core..:? "securityUpdateEligible")+            Core.<*> (o Core..:? "securityUpdateEnabled")+      )++instance Core.ToJSON File_LinkShareMetadata where+  toJSON File_LinkShareMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("securityUpdateEligible" Core..=)+              Core.<$> securityUpdateEligible,+            ("securityUpdateEnabled" Core..=) Core.<$> securityUpdateEnabled+          ]+      )++-- | A collection of arbitrary key-value pairs which are visible to all apps. Entries with null values are cleared in update and copy requests.+--+-- /See:/ 'newFile_Properties' smart constructor.+newtype File_Properties = File_Properties+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'File_Properties' with the minimum fields required to make a request.+newFile_Properties ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  File_Properties+newFile_Properties additional =+  File_Properties {additional = additional}++instance Core.FromJSON File_Properties where+  parseJSON =+    Core.withObject+      "File_Properties"+      (\o -> File_Properties Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON File_Properties where+  toJSON File_Properties {..} = Core.toJSON additional++-- | Shortcut file details. Only populated for shortcut files, which have the mimeType field set to @application\/vnd.google-apps.shortcut@. Can only be set on @files.create@ requests.+--+-- /See:/ 'newFile_ShortcutDetails' smart constructor.+data File_ShortcutDetails = File_ShortcutDetails+  { -- | The ID of the file that this shortcut points to. Can only be set on @files.create@ requests.+    targetId :: (Core.Maybe Core.Text),+    -- | Output only. The MIME type of the file that this shortcut points to. The value of this field is a snapshot of the target\'s MIME type, captured when the shortcut is created.+    targetMimeType :: (Core.Maybe Core.Text),+    -- | Output only. The ResourceKey for the target file.+    targetResourceKey :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'File_ShortcutDetails' with the minimum fields required to make a request.+newFile_ShortcutDetails ::+  File_ShortcutDetails+newFile_ShortcutDetails =+  File_ShortcutDetails+    { targetId = Core.Nothing,+      targetMimeType = Core.Nothing,+      targetResourceKey = Core.Nothing+    }++instance Core.FromJSON File_ShortcutDetails where+  parseJSON =+    Core.withObject+      "File_ShortcutDetails"+      ( \o ->+          File_ShortcutDetails+            Core.<$> (o Core..:? "targetId")+            Core.<*> (o Core..:? "targetMimeType")+            Core.<*> (o Core..:? "targetResourceKey")+      )++instance Core.ToJSON File_ShortcutDetails where+  toJSON File_ShortcutDetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("targetId" Core..=) Core.<$> targetId,+            ("targetMimeType" Core..=) Core.<$> targetMimeType,+            ("targetResourceKey" Core..=) Core.<$> targetResourceKey+          ]+      )++-- | Output only. Additional metadata about video media. This may not be available immediately upon upload.+--+-- /See:/ 'newFile_VideoMediaMetadata' smart constructor.+data File_VideoMediaMetadata = File_VideoMediaMetadata+  { -- | Output only. The duration of the video in milliseconds.+    durationMillis :: (Core.Maybe Core.Int64),+    -- | Output only. The height of the video in pixels.+    height :: (Core.Maybe Core.Int32),+    -- | Output only. The width of the video in pixels.+    width :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'File_VideoMediaMetadata' with the minimum fields required to make a request.+newFile_VideoMediaMetadata ::+  File_VideoMediaMetadata+newFile_VideoMediaMetadata =+  File_VideoMediaMetadata+    { durationMillis = Core.Nothing,+      height = Core.Nothing,+      width = Core.Nothing+    }++instance Core.FromJSON File_VideoMediaMetadata where+  parseJSON =+    Core.withObject+      "File_VideoMediaMetadata"+      ( \o ->+          File_VideoMediaMetadata+            Core.<$> (o Core..:? "durationMillis" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "height")+            Core.<*> (o Core..:? "width")+      )++instance Core.ToJSON File_VideoMediaMetadata where+  toJSON File_VideoMediaMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("durationMillis" Core..=)+              Core.. Core.AsText+              Core.<$> durationMillis,+            ("height" Core..=) Core.<$> height,+            ("width" Core..=) Core.<$> width+          ]+      )++-- | A list of files.+--+-- /See:/ 'newFileList' smart constructor.+data FileList = FileList+  { -- | The list of files. If nextPageToken is populated, then this list may be incomplete and an additional page of results should be fetched.+    files :: (Core.Maybe [File]),+    -- | Whether the search process was incomplete. If true, then some search results might be missing, since all documents were not searched. This can occur when searching multiple drives with the \'allDrives\' corpora, but all corpora couldn\'t be searched. When this happens, it\'s suggested that clients narrow their query by choosing a different corpus such as \'user\' or \'drive\'.+    incompleteSearch :: (Core.Maybe Core.Bool),+    -- | Identifies what kind of resource this is. Value: the fixed string @\"drive#fileList\"@.+    kind :: Core.Text,+    -- | The page token for the next page of files. This will be absent if the end of the files list has been reached. If the token is rejected for any reason, it should be discarded, and pagination should be restarted from the first page of results. The page token is typically valid for several hours. However, if new items are added or removed, your expected results might differ.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FileList' with the minimum fields required to make a request.+newFileList ::+  FileList+newFileList =+  FileList+    { files = Core.Nothing,+      incompleteSearch = Core.Nothing,+      kind = "drive#fileList",+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON FileList where+  parseJSON =+    Core.withObject+      "FileList"+      ( \o ->+          FileList+            Core.<$> (o Core..:? "files")+            Core.<*> (o Core..:? "incompleteSearch")+            Core.<*> (o Core..:? "kind" Core..!= "drive#fileList")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON FileList where+  toJSON FileList {..} =+    Core.object+      ( Core.catMaybes+          [ ("files" Core..=) Core.<$> files,+            ("incompleteSearch" Core..=) Core.<$> incompleteSearch,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | A list of generated file IDs which can be provided in create requests.+--+-- /See:/ 'newGeneratedIds' smart constructor.+data GeneratedIds = GeneratedIds+  { -- | The IDs generated for the requesting user in the specified space.+    ids :: (Core.Maybe [Core.Text]),+    -- | Identifies what kind of resource this is. Value: the fixed string @\"drive#generatedIds\"@.+    kind :: Core.Text,+    -- | The type of file that can be created with these IDs.+    space :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GeneratedIds' with the minimum fields required to make a request.+newGeneratedIds ::+  GeneratedIds+newGeneratedIds =+  GeneratedIds+    { ids = Core.Nothing,+      kind = "drive#generatedIds",+      space = Core.Nothing+    }++instance Core.FromJSON GeneratedIds where+  parseJSON =+    Core.withObject+      "GeneratedIds"+      ( \o ->+          GeneratedIds+            Core.<$> (o Core..:? "ids")+            Core.<*> (o Core..:? "kind" Core..!= "drive#generatedIds")+            Core.<*> (o Core..:? "space")+      )++instance Core.ToJSON GeneratedIds where+  toJSON GeneratedIds {..} =+    Core.object+      ( Core.catMaybes+          [ ("ids" Core..=) Core.<$> ids,+            Core.Just ("kind" Core..= kind),+            ("space" Core..=) Core.<$> space+          ]+      )++-- | Representation of label and label fields.+--+-- /See:/ 'newLabel' smart constructor.+data Label = Label+  { -- | A map of the fields on the label, keyed by the field\'s ID.+    fields :: (Core.Maybe Label_Fields),+    -- | The ID of the label.+    id :: (Core.Maybe Core.Text),+    -- | This is always drive#label+    kind :: (Core.Maybe Core.Text),+    -- | The revision ID of the label.+    revisionId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Label' with the minimum fields required to make a request.+newLabel ::+  Label+newLabel =+  Label+    { fields = Core.Nothing,+      id = Core.Nothing,+      kind = Core.Nothing,+      revisionId = Core.Nothing+    }++instance Core.FromJSON Label where+  parseJSON =+    Core.withObject+      "Label"+      ( \o ->+          Label+            Core.<$> (o Core..:? "fields")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "revisionId")+      )++instance Core.ToJSON Label where+  toJSON Label {..} =+    Core.object+      ( Core.catMaybes+          [ ("fields" Core..=) Core.<$> fields,+            ("id" Core..=) Core.<$> id,+            ("kind" Core..=) Core.<$> kind,+            ("revisionId" Core..=) Core.<$> revisionId+          ]+      )++-- | A map of the fields on the label, keyed by the field\'s ID.+--+-- /See:/ 'newLabel_Fields' smart constructor.+newtype Label_Fields = Label_Fields+  { additional :: (Core.HashMap Core.Text LabelField)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Label_Fields' with the minimum fields required to make a request.+newLabel_Fields ::+  -- |  See 'additional'.+  Core.HashMap Core.Text LabelField ->+  Label_Fields+newLabel_Fields additional = Label_Fields {additional = additional}++instance Core.FromJSON Label_Fields where+  parseJSON =+    Core.withObject+      "Label_Fields"+      (\o -> Label_Fields Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Label_Fields where+  toJSON Label_Fields {..} = Core.toJSON additional++-- | Representation of field, which is a typed key-value pair.+--+-- /See:/ 'newLabelField' smart constructor.+data LabelField = LabelField+  { -- | Only present if valueType is dateString. RFC 3339 formatted date: YYYY-MM-DD.+    dateString :: (Core.Maybe [Core.Date]),+    -- | The identifier of this label field.+    id :: (Core.Maybe Core.Text),+    -- | Only present if @valueType@ is @integer@.+    integer :: (Core.Maybe [Core.Int64]),+    -- | This is always drive#labelField.+    kind :: (Core.Maybe Core.Text),+    -- | Only present if @valueType@ is @selection@+    selection :: (Core.Maybe [Core.Text]),+    -- | Only present if @valueType@ is @text@.+    text :: (Core.Maybe [Core.Text]),+    -- | Only present if @valueType@ is @user@.+    user :: (Core.Maybe [User]),+    -- | The field type. While new values may be supported in the future, the following are currently allowed: * @dateString@ * @integer@ * @selection@ * @text@ * @user@+    valueType :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LabelField' with the minimum fields required to make a request.+newLabelField ::+  LabelField+newLabelField =+  LabelField+    { dateString = Core.Nothing,+      id = Core.Nothing,+      integer = Core.Nothing,+      kind = Core.Nothing,+      selection = Core.Nothing,+      text = Core.Nothing,+      user = Core.Nothing,+      valueType = Core.Nothing+    }++instance Core.FromJSON LabelField where+  parseJSON =+    Core.withObject+      "LabelField"+      ( \o ->+          LabelField+            Core.<$> (o Core..:? "dateString")+            Core.<*> (o Core..:? "id")+            Core.<*> ( o+                         Core..:? "integer"+                         Core.<&> Core.fmap (Core.fmap Core.fromAsText)+                     )+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "selection")+            Core.<*> (o Core..:? "text")+            Core.<*> (o Core..:? "user")+            Core.<*> (o Core..:? "valueType")+      )++instance Core.ToJSON LabelField where+  toJSON LabelField {..} =+    Core.object+      ( Core.catMaybes+          [ ("dateString" Core..=) Core.<$> dateString,+            ("id" Core..=) Core.<$> id,+            ("integer" Core..=) Core.. Core.fmap Core.AsText Core.<$> integer,+            ("kind" Core..=) Core.<$> kind,+            ("selection" Core..=) Core.<$> selection,+            ("text" Core..=) Core.<$> text,+            ("user" Core..=) Core.<$> user,+            ("valueType" Core..=) Core.<$> valueType+          ]+      )++-- | A modification to a label\'s field.+--+-- /See:/ 'newLabelFieldModification' smart constructor.+data LabelFieldModification = LabelFieldModification+  { -- | The ID of the field to be modified.+    fieldId :: (Core.Maybe Core.Text),+    -- | This is always drive#labelFieldModification.+    kind :: (Core.Maybe Core.Text),+    -- | Replaces the value of a dateString Field with these new values. The string must be in the RFC 3339 full-date format: YYYY-MM-DD.+    setDateValues :: (Core.Maybe [Core.Date]),+    -- | Replaces the value of an @integer@ field with these new values.+    setIntegerValues :: (Core.Maybe [Core.Int64]),+    -- | Replaces a @selection@ field with these new values.+    setSelectionValues :: (Core.Maybe [Core.Text]),+    -- | Sets the value of a @text@ field.+    setTextValues :: (Core.Maybe [Core.Text]),+    -- | Replaces a @user@ field with these new values. The values must be valid email addresses.+    setUserValues :: (Core.Maybe [Core.Text]),+    -- | Unsets the values for this field.+    unsetValues :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LabelFieldModification' with the minimum fields required to make a request.+newLabelFieldModification ::+  LabelFieldModification+newLabelFieldModification =+  LabelFieldModification+    { fieldId = Core.Nothing,+      kind = Core.Nothing,+      setDateValues = Core.Nothing,+      setIntegerValues = Core.Nothing,+      setSelectionValues = Core.Nothing,+      setTextValues = Core.Nothing,+      setUserValues = Core.Nothing,+      unsetValues = Core.Nothing+    }++instance Core.FromJSON LabelFieldModification where+  parseJSON =+    Core.withObject+      "LabelFieldModification"+      ( \o ->+          LabelFieldModification+            Core.<$> (o Core..:? "fieldId")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "setDateValues")+            Core.<*> ( o+                         Core..:? "setIntegerValues"+                         Core.<&> Core.fmap (Core.fmap Core.fromAsText)+                     )+            Core.<*> (o Core..:? "setSelectionValues")+            Core.<*> (o Core..:? "setTextValues")+            Core.<*> (o Core..:? "setUserValues")+            Core.<*> (o Core..:? "unsetValues")+      )++instance Core.ToJSON LabelFieldModification where+  toJSON LabelFieldModification {..} =+    Core.object+      ( Core.catMaybes+          [ ("fieldId" Core..=) Core.<$> fieldId,+            ("kind" Core..=) Core.<$> kind,+            ("setDateValues" Core..=) Core.<$> setDateValues,+            ("setIntegerValues" Core..=)+              Core.. Core.fmap Core.AsText+              Core.<$> setIntegerValues,+            ("setSelectionValues" Core..=) Core.<$> setSelectionValues,+            ("setTextValues" Core..=) Core.<$> setTextValues,+            ("setUserValues" Core..=) Core.<$> setUserValues,+            ("unsetValues" Core..=) Core.<$> unsetValues+          ]+      )++-- | A list of labels applied to a file.+--+-- /See:/ 'newLabelList' smart constructor.+data LabelList = LabelList+  { -- | This is always drive#labelList+    kind :: (Core.Maybe Core.Text),+    -- | The list of labels.+    labels :: (Core.Maybe [Label]),+    -- | The page token for the next page of labels. This field will be absent if the end of the list has been reached. If the token is rejected for any reason, it should be discarded, and pagination should be restarted from the first page of results. The page token is typically valid for several hours. However, if new items are added or removed, your expected results might differ.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LabelList' with the minimum fields required to make a request.+newLabelList ::+  LabelList+newLabelList =+  LabelList+    { kind = Core.Nothing,+      labels = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON LabelList where+  parseJSON =+    Core.withObject+      "LabelList"+      ( \o ->+          LabelList+            Core.<$> (o Core..:? "kind")+            Core.<*> (o Core..:? "labels")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON LabelList where+  toJSON LabelList {..} =+    Core.object+      ( Core.catMaybes+          [ ("kind" Core..=) Core.<$> kind,+            ("labels" Core..=) Core.<$> labels,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | A modification to a label on a file. A LabelModification can be used to apply a label to a file, update an existing label on a file, or remove a label from a file.+--+-- /See:/ 'newLabelModification' smart constructor.+data LabelModification = LabelModification+  { -- | The list of modifications to this label\'s fields.+    fieldModifications :: (Core.Maybe [LabelFieldModification]),+    -- | This is always drive#labelModification.+    kind :: (Core.Maybe Core.Text),+    -- | The ID of the label to modify.+    labelId :: (Core.Maybe Core.Text),+    -- | If true, the label will be removed from the file.+    removeLabel :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LabelModification' with the minimum fields required to make a request.+newLabelModification ::+  LabelModification+newLabelModification =+  LabelModification+    { fieldModifications = Core.Nothing,+      kind = Core.Nothing,+      labelId = Core.Nothing,+      removeLabel = Core.Nothing+    }++instance Core.FromJSON LabelModification where+  parseJSON =+    Core.withObject+      "LabelModification"+      ( \o ->+          LabelModification+            Core.<$> (o Core..:? "fieldModifications")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "labelId")+            Core.<*> (o Core..:? "removeLabel")+      )++instance Core.ToJSON LabelModification where+  toJSON LabelModification {..} =+    Core.object+      ( Core.catMaybes+          [ ("fieldModifications" Core..=) Core.<$> fieldModifications,+            ("kind" Core..=) Core.<$> kind,+            ("labelId" Core..=) Core.<$> labelId,+            ("removeLabel" Core..=) Core.<$> removeLabel+          ]+      )++-- | The response to an Access Proposal list request.+--+-- /See:/ 'newListAccessProposalsResponse' smart constructor.+data ListAccessProposalsResponse = ListAccessProposalsResponse+  { -- | The list of Access Proposals. This field is only populated in v3 and v3beta.+    accessProposals :: (Core.Maybe [AccessProposal]),+    -- | The continuation token for the next page of results. This will be absent if the end of the results list has been reached. If the token is rejected for any reason, it should be discarded, and pagination should be restarted from the first page of results.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListAccessProposalsResponse' with the minimum fields required to make a request.+newListAccessProposalsResponse ::+  ListAccessProposalsResponse+newListAccessProposalsResponse =+  ListAccessProposalsResponse+    { accessProposals = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ListAccessProposalsResponse where+  parseJSON =+    Core.withObject+      "ListAccessProposalsResponse"+      ( \o ->+          ListAccessProposalsResponse+            Core.<$> (o Core..:? "accessProposals")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ListAccessProposalsResponse where+  toJSON ListAccessProposalsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("accessProposals" Core..=) Core.<$> accessProposals,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | The response message for Operations.ListOperations.+--+-- /See:/ 'newListOperationsResponse' smart constructor.+data ListOperationsResponse = ListOperationsResponse+  { -- | The standard List next-page token.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | A list of operations that matches the specified filter in the request.+    operations :: (Core.Maybe [Operation])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListOperationsResponse' with the minimum fields required to make a request.+newListOperationsResponse ::+  ListOperationsResponse+newListOperationsResponse =+  ListOperationsResponse+    { nextPageToken = Core.Nothing,+      operations = Core.Nothing+    }++instance Core.FromJSON ListOperationsResponse where+  parseJSON =+    Core.withObject+      "ListOperationsResponse"+      ( \o ->+          ListOperationsResponse+            Core.<$> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "operations")+      )++instance Core.ToJSON ListOperationsResponse where+  toJSON ListOperationsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("operations" Core..=) Core.<$> operations+          ]+      )++-- | A request to modify the set of labels on a file. This request may contain many modifications that will either all succeed or all fail atomically.+--+-- /See:/ 'newModifyLabelsRequest' smart constructor.+data ModifyLabelsRequest = ModifyLabelsRequest+  { -- | This is always drive#modifyLabelsRequest.+    kind :: (Core.Maybe Core.Text),+    -- | The list of modifications to apply to the labels on the file.+    labelModifications :: (Core.Maybe [LabelModification])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ModifyLabelsRequest' with the minimum fields required to make a request.+newModifyLabelsRequest ::+  ModifyLabelsRequest+newModifyLabelsRequest =+  ModifyLabelsRequest+    { kind = Core.Nothing,+      labelModifications = Core.Nothing+    }++instance Core.FromJSON ModifyLabelsRequest where+  parseJSON =+    Core.withObject+      "ModifyLabelsRequest"+      ( \o ->+          ModifyLabelsRequest+            Core.<$> (o Core..:? "kind")+            Core.<*> (o Core..:? "labelModifications")+      )++instance Core.ToJSON ModifyLabelsRequest where+  toJSON ModifyLabelsRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("kind" Core..=) Core.<$> kind,+            ("labelModifications" Core..=) Core.<$> labelModifications+          ]+      )++-- | Response to a ModifyLabels request. This contains only those labels which were added or updated by the request.+--+-- /See:/ 'newModifyLabelsResponse' smart constructor.+data ModifyLabelsResponse = ModifyLabelsResponse+  { -- | This is always drive#modifyLabelsResponse+    kind :: (Core.Maybe Core.Text),+    -- | The list of labels which were added or updated by the request.+    modifiedLabels :: (Core.Maybe [Label])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ModifyLabelsResponse' with the minimum fields required to make a request.+newModifyLabelsResponse ::+  ModifyLabelsResponse+newModifyLabelsResponse =+  ModifyLabelsResponse+    { kind = Core.Nothing,+      modifiedLabels = Core.Nothing+    }++instance Core.FromJSON ModifyLabelsResponse where+  parseJSON =+    Core.withObject+      "ModifyLabelsResponse"+      ( \o ->+          ModifyLabelsResponse+            Core.<$> (o Core..:? "kind")+            Core.<*> (o Core..:? "modifiedLabels")+      )++instance Core.ToJSON ModifyLabelsResponse where+  toJSON ModifyLabelsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("kind" Core..=) Core.<$> kind,+            ("modifiedLabels" Core..=) Core.<$> modifiedLabels+          ]+      )++-- | This resource represents a long-running operation that is the result of a network API call.+--+-- /See:/ 'newOperation' smart constructor.+data Operation = Operation+  { -- | If the value is @false@, it means the operation is still in progress. If @true@, the operation is completed, and either @error@ or @response@ is available.+    done :: (Core.Maybe Core.Bool),+    -- | The error result of the operation in case of failure or cancellation.+    error :: (Core.Maybe Status),+    -- | Service-specific metadata associated with the operation. It typically contains progress information and common metadata such as create time. Some services might not provide such metadata. Any method that returns a long-running operation should document the metadata type, if any.+    metadata :: (Core.Maybe Operation_Metadata),+    -- | The server-assigned name, which is only unique within the same service that originally returns it. If you use the default HTTP mapping, the @name@ should be a resource name ending with @operations\/{unique_id}@.+    name :: (Core.Maybe Core.Text),+    -- | The normal, successful response of the operation. If the original method returns no data on success, such as @Delete@, the response is @google.protobuf.Empty@. If the original method is standard @Get@\/@Create@\/@Update@, the response should be the resource. For other methods, the response should have the type @XxxResponse@, where @Xxx@ is the original method name. For example, if the original method name is @TakeSnapshot()@, the inferred response type is @TakeSnapshotResponse@.+    response :: (Core.Maybe Operation_Response)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Operation' with the minimum fields required to make a request.+newOperation ::+  Operation+newOperation =+  Operation+    { done = Core.Nothing,+      error = Core.Nothing,+      metadata = Core.Nothing,+      name = Core.Nothing,+      response = Core.Nothing+    }++instance Core.FromJSON Operation where+  parseJSON =+    Core.withObject+      "Operation"+      ( \o ->+          Operation+            Core.<$> (o Core..:? "done")+            Core.<*> (o Core..:? "error")+            Core.<*> (o Core..:? "metadata")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "response")+      )++instance Core.ToJSON Operation where+  toJSON Operation {..} =+    Core.object+      ( Core.catMaybes+          [ ("done" Core..=) Core.<$> done,+            ("error" Core..=) Core.<$> error,+            ("metadata" Core..=) Core.<$> metadata,+            ("name" Core..=) Core.<$> name,+            ("response" Core..=) Core.<$> response+          ]+      )++-- | Service-specific metadata associated with the operation. It typically contains progress information and common metadata such as create time. Some services might not provide such metadata. Any method that returns a long-running operation should document the metadata type, if any.+--+-- /See:/ 'newOperation_Metadata' smart constructor.+newtype Operation_Metadata = Operation_Metadata+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Operation_Metadata' with the minimum fields required to make a request.+newOperation_Metadata ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Operation_Metadata+newOperation_Metadata additional =+  Operation_Metadata {additional = additional}++instance Core.FromJSON Operation_Metadata where+  parseJSON =+    Core.withObject+      "Operation_Metadata"+      (\o -> Operation_Metadata Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Operation_Metadata where+  toJSON Operation_Metadata {..} = Core.toJSON additional++-- | The normal, successful response of the operation. If the original method returns no data on success, such as @Delete@, the response is @google.protobuf.Empty@. If the original method is standard @Get@\/@Create@\/@Update@, the response should be the resource. For other methods, the response should have the type @XxxResponse@, where @Xxx@ is the original method name. For example, if the original method name is @TakeSnapshot()@, the inferred response type is @TakeSnapshotResponse@.+--+-- /See:/ 'newOperation_Response' smart constructor.+newtype Operation_Response = Operation_Response+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Operation_Response' with the minimum fields required to make a request.+newOperation_Response ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Operation_Response+newOperation_Response additional =+  Operation_Response {additional = additional}++instance Core.FromJSON Operation_Response where+  parseJSON =+    Core.withObject+      "Operation_Response"+      (\o -> Operation_Response Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Operation_Response where+  toJSON Operation_Response {..} = Core.toJSON additional++-- | A permission for a file. A permission grants a user, group, domain, or the world access to a file or a folder hierarchy. By default, permissions requests only return a subset of fields. Permission kind, ID, type, and role are always returned. To retrieve specific fields, see https:\/\/developers.google.com\/drive\/api\/guides\/fields-parameter. Some resource methods (such as @permissions.update@) require a @permissionId@. Use the @permissions.list@ method to retrieve the ID for a file, folder, or shared drive.+--+-- /See:/ 'newPermission' smart constructor.+data Permission = Permission+  { -- | Whether the permission allows the file to be discovered through search. This is only applicable for permissions of type @domain@ or @anyone@.+    allowFileDiscovery :: (Core.Maybe Core.Bool),+    -- | Output only. Whether the account associated with this permission has been deleted. This field only pertains to user and group permissions.+    deleted :: (Core.Maybe Core.Bool),+    -- | Output only. The \"pretty\" name of the value of the permission. The following is a list of examples for each type of permission: * @user@ - User\'s full name, as defined for their Google account, such as \"Joe Smith.\" * @group@ - Name of the Google Group, such as \"The Company Administrators.\" * @domain@ - String domain name, such as \"thecompany.com.\" * @anyone@ - No @displayName@ is present.+    displayName :: (Core.Maybe Core.Text),+    -- | The domain to which this permission refers.+    domain :: (Core.Maybe Core.Text),+    -- | The email address of the user or group to which this permission refers.+    emailAddress :: (Core.Maybe Core.Text),+    -- | The time at which this permission will expire (RFC 3339 date-time). Expiration times have the following restrictions: - They can only be set on user and group permissions - The time must be in the future - The time cannot be more than a year in the future+    expirationTime :: (Core.Maybe Core.DateTime),+    -- | Output only. The ID of this permission. This is a unique identifier for the grantee, and is published in User resources as @permissionId@. IDs should be treated as opaque values.+    id :: (Core.Maybe Core.Text),+    -- | When true, only organizers, owners, and users with permissions added directly on the item can access it.+    inheritedPermissionsDisabled :: (Core.Maybe Core.Bool),+    -- | Output only. Identifies what kind of resource this is. Value: the fixed string @\"drive#permission\"@.+    kind :: Core.Text,+    -- | Whether the account associated with this permission is a pending owner. Only populated for @user@ type permissions for files that are not in a shared drive.+    pendingOwner :: (Core.Maybe Core.Bool),+    -- | Output only. Details of whether the permissions on this item are inherited or directly on this item.+    permissionDetails :: (Core.Maybe [Permission_PermissionDetailsItem]),+    -- | Output only. A link to the user\'s profile photo, if available.+    photoLink :: (Core.Maybe Core.Text),+    -- | The role granted by this permission. While new values may be supported in the future, the following are currently allowed: * @owner@ * @organizer@ * @fileOrganizer@ * @writer@ * @commenter@ * @reader@+    role' :: (Core.Maybe Core.Text),+    -- | Output only. Deprecated: Output only. Use @permissionDetails@ instead.+    teamDrivePermissionDetails :: (Core.Maybe [Permission_TeamDrivePermissionDetailsItem]),+    -- | The type of the grantee. Valid values are: * @user@ * @group@ * @domain@ * @anyone@ When creating a permission, if @type@ is @user@ or @group@, you must provide an @emailAddress@ for the user or group. When @type@ is @domain@, you must provide a @domain@. There isn\'t extra information required for an @anyone@ type.+    type' :: (Core.Maybe Core.Text),+    -- | Indicates the view for this permission. Only populated for permissions that belong to a view. published and metadata are the only supported values. - published: The permission\'s role is published_reader. - metadata: The item is only visible to the metadata view because the item has limited access and the scope has at least read access to the parent. Note: The metadata view is currently only supported on folders.+    view :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Permission' with the minimum fields required to make a request.+newPermission ::+  Permission+newPermission =+  Permission+    { allowFileDiscovery = Core.Nothing,+      deleted = Core.Nothing,+      displayName = Core.Nothing,+      domain = Core.Nothing,+      emailAddress = Core.Nothing,+      expirationTime = Core.Nothing,+      id = Core.Nothing,+      inheritedPermissionsDisabled = Core.Nothing,+      kind = "drive#permission",+      pendingOwner = Core.Nothing,+      permissionDetails = Core.Nothing,+      photoLink = Core.Nothing,+      role' = Core.Nothing,+      teamDrivePermissionDetails = Core.Nothing,+      type' = Core.Nothing,+      view = Core.Nothing+    }++instance Core.FromJSON Permission where+  parseJSON =+    Core.withObject+      "Permission"+      ( \o ->+          Permission+            Core.<$> (o Core..:? "allowFileDiscovery")+            Core.<*> (o Core..:? "deleted")+            Core.<*> (o Core..:? "displayName")+            Core.<*> (o Core..:? "domain")+            Core.<*> (o Core..:? "emailAddress")+            Core.<*> (o Core..:? "expirationTime")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "inheritedPermissionsDisabled")+            Core.<*> (o Core..:? "kind" Core..!= "drive#permission")+            Core.<*> (o Core..:? "pendingOwner")+            Core.<*> (o Core..:? "permissionDetails")+            Core.<*> (o Core..:? "photoLink")+            Core.<*> (o Core..:? "role")+            Core.<*> (o Core..:? "teamDrivePermissionDetails")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "view")+      )++instance Core.ToJSON Permission where+  toJSON Permission {..} =+    Core.object+      ( Core.catMaybes+          [ ("allowFileDiscovery" Core..=) Core.<$> allowFileDiscovery,+            ("deleted" Core..=) Core.<$> deleted,+            ("displayName" Core..=) Core.<$> displayName,+            ("domain" Core..=) Core.<$> domain,+            ("emailAddress" Core..=) Core.<$> emailAddress,+            ("expirationTime" Core..=) Core.<$> expirationTime,+            ("id" Core..=) Core.<$> id,+            ("inheritedPermissionsDisabled" Core..=)+              Core.<$> inheritedPermissionsDisabled,+            Core.Just ("kind" Core..= kind),+            ("pendingOwner" Core..=) Core.<$> pendingOwner,+            ("permissionDetails" Core..=) Core.<$> permissionDetails,+            ("photoLink" Core..=) Core.<$> photoLink,+            ("role" Core..=) Core.<$> role',+            ("teamDrivePermissionDetails" Core..=)+              Core.<$> teamDrivePermissionDetails,+            ("type" Core..=) Core.<$> type',+            ("view" Core..=) Core.<$> view+          ]+      )++--+-- /See:/ 'newPermission_PermissionDetailsItem' smart constructor.+data Permission_PermissionDetailsItem = Permission_PermissionDetailsItem+  { -- | Output only. Whether this permission is inherited. This field is always populated. This is an output-only field.+    inherited :: (Core.Maybe Core.Bool),+    -- | Output only. The ID of the item from which this permission is inherited. This is only populated for items in shared drives.+    inheritedFrom :: (Core.Maybe Core.Text),+    -- | Output only. The permission type for this user. While new values may be added in future, the following are currently possible: * @file@ * @member@+    permissionType :: (Core.Maybe Core.Text),+    -- | Output only. The primary role for this user. While new values may be added in the future, the following are currently possible: * @owner@ * @organizer@ * @fileOrganizer@ * @writer@ * @commenter@ * @reader@+    role' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Permission_PermissionDetailsItem' with the minimum fields required to make a request.+newPermission_PermissionDetailsItem ::+  Permission_PermissionDetailsItem+newPermission_PermissionDetailsItem =+  Permission_PermissionDetailsItem+    { inherited = Core.Nothing,+      inheritedFrom = Core.Nothing,+      permissionType = Core.Nothing,+      role' = Core.Nothing+    }++instance Core.FromJSON Permission_PermissionDetailsItem where+  parseJSON =+    Core.withObject+      "Permission_PermissionDetailsItem"+      ( \o ->+          Permission_PermissionDetailsItem+            Core.<$> (o Core..:? "inherited")+            Core.<*> (o Core..:? "inheritedFrom")+            Core.<*> (o Core..:? "permissionType")+            Core.<*> (o Core..:? "role")+      )++instance Core.ToJSON Permission_PermissionDetailsItem where+  toJSON Permission_PermissionDetailsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("inherited" Core..=) Core.<$> inherited,+            ("inheritedFrom" Core..=) Core.<$> inheritedFrom,+            ("permissionType" Core..=) Core.<$> permissionType,+            ("role" Core..=) Core.<$> role'+          ]+      )++--+-- /See:/ 'newPermission_TeamDrivePermissionDetailsItem' smart constructor.+data Permission_TeamDrivePermissionDetailsItem = Permission_TeamDrivePermissionDetailsItem+  { -- | Deprecated: Output only. Use @permissionDetails\/inherited@ instead.+    inherited :: (Core.Maybe Core.Bool),+    -- | Deprecated: Output only. Use @permissionDetails\/inheritedFrom@ instead.+    inheritedFrom :: (Core.Maybe Core.Text),+    -- | Deprecated: Output only. Use @permissionDetails\/role@ instead.+    role' :: (Core.Maybe Core.Text),+    -- | Deprecated: Output only. Use @permissionDetails\/permissionType@ instead.+    teamDrivePermissionType :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Permission_TeamDrivePermissionDetailsItem' with the minimum fields required to make a request.+newPermission_TeamDrivePermissionDetailsItem ::+  Permission_TeamDrivePermissionDetailsItem+newPermission_TeamDrivePermissionDetailsItem =+  Permission_TeamDrivePermissionDetailsItem+    { inherited =+        Core.Nothing,+      inheritedFrom = Core.Nothing,+      role' = Core.Nothing,+      teamDrivePermissionType = Core.Nothing+    }++instance Core.FromJSON Permission_TeamDrivePermissionDetailsItem where+  parseJSON =+    Core.withObject+      "Permission_TeamDrivePermissionDetailsItem"+      ( \o ->+          Permission_TeamDrivePermissionDetailsItem+            Core.<$> (o Core..:? "inherited")+            Core.<*> (o Core..:? "inheritedFrom")+            Core.<*> (o Core..:? "role")+            Core.<*> (o Core..:? "teamDrivePermissionType")+      )++instance Core.ToJSON Permission_TeamDrivePermissionDetailsItem where+  toJSON Permission_TeamDrivePermissionDetailsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("inherited" Core..=) Core.<$> inherited,+            ("inheritedFrom" Core..=) Core.<$> inheritedFrom,+            ("role" Core..=) Core.<$> role',+            ("teamDrivePermissionType" Core..=)+              Core.<$> teamDrivePermissionType+          ]+      )++-- | A list of permissions for a file.+--+-- /See:/ 'newPermissionList' smart constructor.+data PermissionList = PermissionList+  { -- | Identifies what kind of resource this is. Value: the fixed string @\"drive#permissionList\"@.+    kind :: Core.Text,+    -- | The page token for the next page of permissions. This field will be absent if the end of the permissions list has been reached. If the token is rejected for any reason, it should be discarded, and pagination should be restarted from the first page of results. The page token is typically valid for several hours. However, if new items are added or removed, your expected results might differ.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | The list of permissions. If nextPageToken is populated, then this list may be incomplete and an additional page of results should be fetched.+    permissions :: (Core.Maybe [Permission])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PermissionList' with the minimum fields required to make a request.+newPermissionList ::+  PermissionList+newPermissionList =+  PermissionList+    { kind = "drive#permissionList",+      nextPageToken = Core.Nothing,+      permissions = Core.Nothing+    }++instance Core.FromJSON PermissionList where+  parseJSON =+    Core.withObject+      "PermissionList"+      ( \o ->+          PermissionList+            Core.<$> (o Core..:? "kind" Core..!= "drive#permissionList")+            Core.<*> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "permissions")+      )++instance Core.ToJSON PermissionList where+  toJSON PermissionList {..} =+    Core.object+      ( Core.catMaybes+          [ Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("permissions" Core..=) Core.<$> permissions+          ]+      )++-- | A reply to a comment on a file. Some resource methods (such as @replies.update@) require a @replyId@. Use the @replies.list@ method to retrieve the ID for a reply.+--+-- /See:/ 'newReply' smart constructor.+data Reply = Reply+  { -- | The action the reply performed to the parent comment. Valid values are: * @resolve@ * @reopen@+    action :: (Core.Maybe Core.Text),+    -- | Output only. The author of the reply. The author\'s email address and permission ID will not be populated.+    author :: (Core.Maybe User),+    -- | The plain text content of the reply. This field is used for setting the content, while @htmlContent@ should be displayed. This is required on creates if no @action@ is specified.+    content :: (Core.Maybe Core.Text),+    -- | The time at which the reply was created (RFC 3339 date-time).+    createdTime :: (Core.Maybe Core.DateTime),+    -- | Output only. Whether the reply has been deleted. A deleted reply has no content.+    deleted :: (Core.Maybe Core.Bool),+    -- | Output only. The content of the reply with HTML formatting.+    htmlContent :: (Core.Maybe Core.Text),+    -- | Output only. The ID of the reply.+    id :: (Core.Maybe Core.Text),+    -- | Output only. Identifies what kind of resource this is. Value: the fixed string @\"drive#reply\"@.+    kind :: Core.Text,+    -- | The last time the reply was modified (RFC 3339 date-time).+    modifiedTime :: (Core.Maybe Core.DateTime)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Reply' with the minimum fields required to make a request.+newReply ::+  Reply+newReply =+  Reply+    { action = Core.Nothing,+      author = Core.Nothing,+      content = Core.Nothing,+      createdTime = Core.Nothing,+      deleted = Core.Nothing,+      htmlContent = Core.Nothing,+      id = Core.Nothing,+      kind = "drive#reply",+      modifiedTime = Core.Nothing+    }++instance Core.FromJSON Reply where+  parseJSON =+    Core.withObject+      "Reply"+      ( \o ->+          Reply+            Core.<$> (o Core..:? "action")+            Core.<*> (o Core..:? "author")+            Core.<*> (o Core..:? "content")+            Core.<*> (o Core..:? "createdTime")+            Core.<*> (o Core..:? "deleted")+            Core.<*> (o Core..:? "htmlContent")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "drive#reply")+            Core.<*> (o Core..:? "modifiedTime")+      )++instance Core.ToJSON Reply where+  toJSON Reply {..} =+    Core.object+      ( Core.catMaybes+          [ ("action" Core..=) Core.<$> action,+            ("author" Core..=) Core.<$> author,+            ("content" Core..=) Core.<$> content,+            ("createdTime" Core..=) Core.<$> createdTime,+            ("deleted" Core..=) Core.<$> deleted,+            ("htmlContent" Core..=) Core.<$> htmlContent,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("modifiedTime" Core..=) Core.<$> modifiedTime+          ]+      )++-- | A list of replies to a comment on a file.+--+-- /See:/ 'newReplyList' smart constructor.+data ReplyList = ReplyList+  { -- | Identifies what kind of resource this is. Value: the fixed string @\"drive#replyList\"@.+    kind :: Core.Text,+    -- | The page token for the next page of replies. This will be absent if the end of the replies list has been reached. If the token is rejected for any reason, it should be discarded, and pagination should be restarted from the first page of results. The page token is typically valid for several hours. However, if new items are added or removed, your expected results might differ.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | The list of replies. If nextPageToken is populated, then this list may be incomplete and an additional page of results should be fetched.+    replies :: (Core.Maybe [Reply])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ReplyList' with the minimum fields required to make a request.+newReplyList ::+  ReplyList+newReplyList =+  ReplyList+    { kind = "drive#replyList",+      nextPageToken = Core.Nothing,+      replies = Core.Nothing+    }++instance Core.FromJSON ReplyList where+  parseJSON =+    Core.withObject+      "ReplyList"+      ( \o ->+          ReplyList+            Core.<$> (o Core..:? "kind" Core..!= "drive#replyList")+            Core.<*> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "replies")+      )++instance Core.ToJSON ReplyList where+  toJSON ReplyList {..} =+    Core.object+      ( Core.catMaybes+          [ Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("replies" Core..=) Core.<$> replies+          ]+      )++-- | Request message for resolving an AccessProposal on a file.+--+-- /See:/ 'newResolveAccessProposalRequest' smart constructor.+data ResolveAccessProposalRequest = ResolveAccessProposalRequest+  { -- | Required. The action to take on the AccessProposal.+    action :: (Core.Maybe ResolveAccessProposalRequest_Action),+    -- | Optional. The roles the approver has allowed, if any. Note: This field is required for the @ACCEPT@ action.+    role' :: (Core.Maybe [Core.Text]),+    -- | Optional. Whether to send an email to the requester when the AccessProposal is denied or accepted.+    sendNotification :: (Core.Maybe Core.Bool),+    -- | Optional. Indicates the view for this access proposal. This should only be set when the proposal belongs to a view. @published@ is the only supported value.+    view :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ResolveAccessProposalRequest' with the minimum fields required to make a request.+newResolveAccessProposalRequest ::+  ResolveAccessProposalRequest+newResolveAccessProposalRequest =+  ResolveAccessProposalRequest+    { action = Core.Nothing,+      role' = Core.Nothing,+      sendNotification = Core.Nothing,+      view = Core.Nothing+    }++instance Core.FromJSON ResolveAccessProposalRequest where+  parseJSON =+    Core.withObject+      "ResolveAccessProposalRequest"+      ( \o ->+          ResolveAccessProposalRequest+            Core.<$> (o Core..:? "action")+            Core.<*> (o Core..:? "role")+            Core.<*> (o Core..:? "sendNotification")+            Core.<*> (o Core..:? "view")+      )++instance Core.ToJSON ResolveAccessProposalRequest where+  toJSON ResolveAccessProposalRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("action" Core..=) Core.<$> action,+            ("role" Core..=) Core.<$> role',+            ("sendNotification" Core..=) Core.<$> sendNotification,+            ("view" Core..=) Core.<$> view+          ]+      )++-- | The metadata for a revision to a file. Some resource methods (such as @revisions.update@) require a @revisionId@. Use the @revisions.list@ method to retrieve the ID for a revision.+--+-- /See:/ 'newRevision' smart constructor.+data Revision = Revision+  { -- | Output only. Links for exporting Docs Editors files to specific formats.+    exportLinks :: (Core.Maybe Revision_ExportLinks),+    -- | Output only. The ID of the revision.+    id :: (Core.Maybe Core.Text),+    -- | Whether to keep this revision forever, even if it is no longer the head revision. If not set, the revision will be automatically purged 30 days after newer content is uploaded. This can be set on a maximum of 200 revisions for a file. This field is only applicable to files with binary content in Drive.+    keepForever :: (Core.Maybe Core.Bool),+    -- | Output only. Identifies what kind of resource this is. Value: the fixed string @\"drive#revision\"@.+    kind :: Core.Text,+    -- | Output only. The last user to modify this revision. This field is only populated when the last modification was performed by a signed-in user.+    lastModifyingUser :: (Core.Maybe User),+    -- | Output only. The MD5 checksum of the revision\'s content. This is only applicable to files with binary content in Drive.+    md5Checksum :: (Core.Maybe Core.Text),+    -- | Output only. The MIME type of the revision.+    mimeType :: (Core.Maybe Core.Text),+    -- | The last time the revision was modified (RFC 3339 date-time).+    modifiedTime :: (Core.Maybe Core.DateTime),+    -- | Output only. The original filename used to create this revision. This is only applicable to files with binary content in Drive.+    originalFilename :: (Core.Maybe Core.Text),+    -- | Whether subsequent revisions will be automatically republished. This is only applicable to Docs Editors files.+    publishAuto :: (Core.Maybe Core.Bool),+    -- | Whether this revision is published. This is only applicable to Docs Editors files.+    published :: (Core.Maybe Core.Bool),+    -- | Output only. A link to the published revision. This is only populated for Docs Editors files.+    publishedLink :: (Core.Maybe Core.Text),+    -- | Whether this revision is published outside the domain. This is only applicable to Docs Editors files.+    publishedOutsideDomain :: (Core.Maybe Core.Bool),+    -- | Output only. The size of the revision\'s content in bytes. This is only applicable to files with binary content in Drive.+    size :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Revision' with the minimum fields required to make a request.+newRevision ::+  Revision+newRevision =+  Revision+    { exportLinks = Core.Nothing,+      id = Core.Nothing,+      keepForever = Core.Nothing,+      kind = "drive#revision",+      lastModifyingUser = Core.Nothing,+      md5Checksum = Core.Nothing,+      mimeType = Core.Nothing,+      modifiedTime = Core.Nothing,+      originalFilename = Core.Nothing,+      publishAuto = Core.Nothing,+      published = Core.Nothing,+      publishedLink = Core.Nothing,+      publishedOutsideDomain = Core.Nothing,+      size = Core.Nothing+    }++instance Core.FromJSON Revision where+  parseJSON =+    Core.withObject+      "Revision"+      ( \o ->+          Revision+            Core.<$> (o Core..:? "exportLinks")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "keepForever")+            Core.<*> (o Core..:? "kind" Core..!= "drive#revision")+            Core.<*> (o Core..:? "lastModifyingUser")+            Core.<*> (o Core..:? "md5Checksum")+            Core.<*> (o Core..:? "mimeType")+            Core.<*> (o Core..:? "modifiedTime")+            Core.<*> (o Core..:? "originalFilename")+            Core.<*> (o Core..:? "publishAuto")+            Core.<*> (o Core..:? "published")+            Core.<*> (o Core..:? "publishedLink")+            Core.<*> (o Core..:? "publishedOutsideDomain")+            Core.<*> (o Core..:? "size" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON Revision where+  toJSON Revision {..} =+    Core.object+      ( Core.catMaybes+          [ ("exportLinks" Core..=) Core.<$> exportLinks,+            ("id" Core..=) Core.<$> id,+            ("keepForever" Core..=) Core.<$> keepForever,+            Core.Just ("kind" Core..= kind),+            ("lastModifyingUser" Core..=) Core.<$> lastModifyingUser,+            ("md5Checksum" Core..=) Core.<$> md5Checksum,+            ("mimeType" Core..=) Core.<$> mimeType,+            ("modifiedTime" Core..=) Core.<$> modifiedTime,+            ("originalFilename" Core..=) Core.<$> originalFilename,+            ("publishAuto" Core..=) Core.<$> publishAuto,+            ("published" Core..=) Core.<$> published,+            ("publishedLink" Core..=) Core.<$> publishedLink,+            ("publishedOutsideDomain" Core..=) Core.<$> publishedOutsideDomain,+            ("size" Core..=) Core.. Core.AsText Core.<$> size+          ]+      )++-- | Output only. Links for exporting Docs Editors files to specific formats.+--+-- /See:/ 'newRevision_ExportLinks' smart constructor.+newtype Revision_ExportLinks = Revision_ExportLinks+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Revision_ExportLinks' with the minimum fields required to make a request.+newRevision_ExportLinks ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  Revision_ExportLinks+newRevision_ExportLinks additional =+  Revision_ExportLinks {additional = additional}++instance Core.FromJSON Revision_ExportLinks where+  parseJSON =+    Core.withObject+      "Revision_ExportLinks"+      (\o -> Revision_ExportLinks Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Revision_ExportLinks where+  toJSON Revision_ExportLinks {..} = Core.toJSON additional++-- | A list of revisions of a file.+--+-- /See:/ 'newRevisionList' smart constructor.+data RevisionList = RevisionList+  { -- | Identifies what kind of resource this is. Value: the fixed string @\"drive#revisionList\"@.+    kind :: Core.Text,+    -- | The page token for the next page of revisions. This will be absent if the end of the revisions list has been reached. If the token is rejected for any reason, it should be discarded, and pagination should be restarted from the first page of results. The page token is typically valid for several hours. However, if new items are added or removed, your expected results might differ.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | The list of revisions. If nextPageToken is populated, then this list may be incomplete and an additional page of results should be fetched.+    revisions :: (Core.Maybe [Revision])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RevisionList' with the minimum fields required to make a request.+newRevisionList ::+  RevisionList+newRevisionList =+  RevisionList+    { kind = "drive#revisionList",+      nextPageToken = Core.Nothing,+      revisions = Core.Nothing+    }++instance Core.FromJSON RevisionList where+  parseJSON =+    Core.withObject+      "RevisionList"+      ( \o ->+          RevisionList+            Core.<$> (o Core..:? "kind" Core..!= "drive#revisionList")+            Core.<*> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "revisions")+      )++instance Core.ToJSON RevisionList where+  toJSON RevisionList {..} =+    Core.object+      ( Core.catMaybes+          [ Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("revisions" Core..=) Core.<$> revisions+          ]+      )++--+-- /See:/ 'newStartPageToken' smart constructor.+data StartPageToken = StartPageToken+  { -- | Identifies what kind of resource this is. Value: the fixed string @\"drive#startPageToken\"@.+    kind :: Core.Text,+    -- | The starting page token for listing future changes. The page token doesn\'t expire.+    startPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StartPageToken' with the minimum fields required to make a request.+newStartPageToken ::+  StartPageToken+newStartPageToken =+  StartPageToken+    { kind = "drive#startPageToken",+      startPageToken = Core.Nothing+    }++instance Core.FromJSON StartPageToken where+  parseJSON =+    Core.withObject+      "StartPageToken"+      ( \o ->+          StartPageToken+            Core.<$> (o Core..:? "kind" Core..!= "drive#startPageToken")+            Core.<*> (o Core..:? "startPageToken")+      )++instance Core.ToJSON StartPageToken where+  toJSON StartPageToken {..} =+    Core.object+      ( Core.catMaybes+          [ Core.Just ("kind" Core..= kind),+            ("startPageToken" Core..=) Core.<$> startPageToken+          ]+      )++-- | 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++-- | Deprecated: use the drive collection instead.+--+-- /See:/ 'newTeamDrive' smart constructor.+data TeamDrive = TeamDrive+  { -- | An image file and cropping parameters from which a background image for this Team Drive is set. This is a write only field; it can only be set on @drive.teamdrives.update@ requests that don\'t set @themeId@. When specified, all fields of the @backgroundImageFile@ must be set.+    backgroundImageFile :: (Core.Maybe TeamDrive_BackgroundImageFile),+    -- | A short-lived link to this Team Drive\'s background image.+    backgroundImageLink :: (Core.Maybe Core.Text),+    -- | Capabilities the current user has on this Team Drive.+    capabilities :: (Core.Maybe TeamDrive_Capabilities),+    -- | The color of this Team Drive as an RGB hex string. It can only be set on a @drive.teamdrives.update@ request that does not set @themeId@.+    colorRgb :: (Core.Maybe Core.Text),+    -- | The time at which the Team Drive was created (RFC 3339 date-time).+    createdTime :: (Core.Maybe Core.DateTime),+    -- | The ID of this Team Drive which is also the ID of the top level folder of this Team Drive.+    id :: (Core.Maybe Core.Text),+    -- | Identifies what kind of resource this is. Value: the fixed string @\"drive#teamDrive\"@.+    kind :: Core.Text,+    -- | The name of this Team Drive.+    name :: (Core.Maybe Core.Text),+    -- | The organizational unit of this shared drive. This field is only populated on @drives.list@ responses when the @useDomainAdminAccess@ parameter is set to @true@.+    orgUnitId :: (Core.Maybe Core.Text),+    -- | A set of restrictions that apply to this Team Drive or items inside this Team Drive.+    restrictions :: (Core.Maybe TeamDrive_Restrictions),+    -- | The ID of the theme from which the background image and color will be set. The set of possible @teamDriveThemes@ can be retrieved from a @drive.about.get@ response. When not specified on a @drive.teamdrives.create@ request, a random theme is chosen from which the background image and color are set. This is a write-only field; it can only be set on requests that don\'t set @colorRgb@ or @backgroundImageFile@.+    themeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TeamDrive' with the minimum fields required to make a request.+newTeamDrive ::+  TeamDrive+newTeamDrive =+  TeamDrive+    { backgroundImageFile = Core.Nothing,+      backgroundImageLink = Core.Nothing,+      capabilities = Core.Nothing,+      colorRgb = Core.Nothing,+      createdTime = Core.Nothing,+      id = Core.Nothing,+      kind = "drive#teamDrive",+      name = Core.Nothing,+      orgUnitId = Core.Nothing,+      restrictions = Core.Nothing,+      themeId = Core.Nothing+    }++instance Core.FromJSON TeamDrive where+  parseJSON =+    Core.withObject+      "TeamDrive"+      ( \o ->+          TeamDrive+            Core.<$> (o Core..:? "backgroundImageFile")+            Core.<*> (o Core..:? "backgroundImageLink")+            Core.<*> (o Core..:? "capabilities")+            Core.<*> (o Core..:? "colorRgb")+            Core.<*> (o Core..:? "createdTime")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "drive#teamDrive")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "orgUnitId")+            Core.<*> (o Core..:? "restrictions")+            Core.<*> (o Core..:? "themeId")+      )++instance Core.ToJSON TeamDrive where+  toJSON TeamDrive {..} =+    Core.object+      ( Core.catMaybes+          [ ("backgroundImageFile" Core..=) Core.<$> backgroundImageFile,+            ("backgroundImageLink" Core..=) Core.<$> backgroundImageLink,+            ("capabilities" Core..=) Core.<$> capabilities,+            ("colorRgb" Core..=) Core.<$> colorRgb,+            ("createdTime" Core..=) Core.<$> createdTime,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("orgUnitId" Core..=) Core.<$> orgUnitId,+            ("restrictions" Core..=) Core.<$> restrictions,+            ("themeId" Core..=) Core.<$> themeId+          ]+      )++-- | An image file and cropping parameters from which a background image for this Team Drive is set. This is a write only field; it can only be set on @drive.teamdrives.update@ requests that don\'t set @themeId@. When specified, all fields of the @backgroundImageFile@ must be set.+--+-- /See:/ 'newTeamDrive_BackgroundImageFile' smart constructor.+data TeamDrive_BackgroundImageFile = TeamDrive_BackgroundImageFile+  { -- | The ID of an image file in Drive to use for the background image.+    id :: (Core.Maybe Core.Text),+    -- | The width of the cropped image in the closed range of 0 to 1. This value represents the width of the cropped image divided by the width of the entire image. The height is computed by applying a width to height aspect ratio of 80 to 9. The resulting image must be at least 1280 pixels wide and 144 pixels high.+    width :: (Core.Maybe Core.Double),+    -- | The X coordinate of the upper left corner of the cropping area in the background image. This is a value in the closed range of 0 to 1. This value represents the horizontal distance from the left side of the entire image to the left side of the cropping area divided by the width of the entire image.+    xCoordinate :: (Core.Maybe Core.Double),+    -- | The Y coordinate of the upper left corner of the cropping area in the background image. This is a value in the closed range of 0 to 1. This value represents the vertical distance from the top side of the entire image to the top side of the cropping area divided by the height of the entire image.+    yCoordinate :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TeamDrive_BackgroundImageFile' with the minimum fields required to make a request.+newTeamDrive_BackgroundImageFile ::+  TeamDrive_BackgroundImageFile+newTeamDrive_BackgroundImageFile =+  TeamDrive_BackgroundImageFile+    { id = Core.Nothing,+      width = Core.Nothing,+      xCoordinate = Core.Nothing,+      yCoordinate = Core.Nothing+    }++instance Core.FromJSON TeamDrive_BackgroundImageFile where+  parseJSON =+    Core.withObject+      "TeamDrive_BackgroundImageFile"+      ( \o ->+          TeamDrive_BackgroundImageFile+            Core.<$> (o Core..:? "id")+            Core.<*> (o Core..:? "width")+            Core.<*> (o Core..:? "xCoordinate")+            Core.<*> (o Core..:? "yCoordinate")+      )++instance Core.ToJSON TeamDrive_BackgroundImageFile where+  toJSON TeamDrive_BackgroundImageFile {..} =+    Core.object+      ( Core.catMaybes+          [ ("id" Core..=) Core.<$> id,+            ("width" Core..=) Core.<$> width,+            ("xCoordinate" Core..=) Core.<$> xCoordinate,+            ("yCoordinate" Core..=) Core.<$> yCoordinate+          ]+      )++-- | Capabilities the current user has on this Team Drive.+--+-- /See:/ 'newTeamDrive_Capabilities' smart constructor.+data TeamDrive_Capabilities = TeamDrive_Capabilities+  { -- | Whether the current user can add children to folders in this Team Drive.+    canAddChildren :: (Core.Maybe Core.Bool),+    -- | Whether the current user can change the @copyRequiresWriterPermission@ restriction of this Team Drive.+    canChangeCopyRequiresWriterPermissionRestriction :: (Core.Maybe Core.Bool),+    -- | Whether the current user can change the @domainUsersOnly@ restriction of this Team Drive.+    canChangeDomainUsersOnlyRestriction :: (Core.Maybe Core.Bool),+    -- | Whether the current user can change the @sharingFoldersRequiresOrganizerPermission@ restriction of this Team Drive.+    canChangeSharingFoldersRequiresOrganizerPermissionRestriction :: (Core.Maybe Core.Bool),+    -- | Whether the current user can change the background of this Team Drive.+    canChangeTeamDriveBackground :: (Core.Maybe Core.Bool),+    -- | Whether the current user can change the @teamMembersOnly@ restriction of this Team Drive.+    canChangeTeamMembersOnlyRestriction :: (Core.Maybe Core.Bool),+    -- | Whether the current user can comment on files in this Team Drive.+    canComment :: (Core.Maybe Core.Bool),+    -- | Whether the current user can copy files in this Team Drive.+    canCopy :: (Core.Maybe Core.Bool),+    -- | Whether the current user can delete children from folders in this Team Drive.+    canDeleteChildren :: (Core.Maybe Core.Bool),+    -- | Whether the current user can delete this Team Drive. Attempting to delete the Team Drive may still fail if there are untrashed items inside the Team Drive.+    canDeleteTeamDrive :: (Core.Maybe Core.Bool),+    -- | Whether the current user can download files in this Team Drive.+    canDownload :: (Core.Maybe Core.Bool),+    -- | Whether the current user can edit files in this Team Drive+    canEdit :: (Core.Maybe Core.Bool),+    -- | Whether the current user can list the children of folders in this Team Drive.+    canListChildren :: (Core.Maybe Core.Bool),+    -- | Whether the current user can add members to this Team Drive or remove them or change their role.+    canManageMembers :: (Core.Maybe Core.Bool),+    -- | Whether the current user can read the revisions resource of files in this Team Drive.+    canReadRevisions :: (Core.Maybe Core.Bool),+    -- | Deprecated: Use @canDeleteChildren@ or @canTrashChildren@ instead.+    canRemoveChildren :: (Core.Maybe Core.Bool),+    -- | Whether the current user can rename files or folders in this Team Drive.+    canRename :: (Core.Maybe Core.Bool),+    -- | Whether the current user can rename this Team Drive.+    canRenameTeamDrive :: (Core.Maybe Core.Bool),+    -- | Whether the current user can reset the Team Drive restrictions to defaults.+    canResetTeamDriveRestrictions :: (Core.Maybe Core.Bool),+    -- | Whether the current user can share files or folders in this Team Drive.+    canShare :: (Core.Maybe Core.Bool),+    -- | Whether the current user can trash children from folders in this Team Drive.+    canTrashChildren :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TeamDrive_Capabilities' with the minimum fields required to make a request.+newTeamDrive_Capabilities ::+  TeamDrive_Capabilities+newTeamDrive_Capabilities =+  TeamDrive_Capabilities+    { canAddChildren = Core.Nothing,+      canChangeCopyRequiresWriterPermissionRestriction = Core.Nothing,+      canChangeDomainUsersOnlyRestriction = Core.Nothing,+      canChangeSharingFoldersRequiresOrganizerPermissionRestriction =+        Core.Nothing,+      canChangeTeamDriveBackground = Core.Nothing,+      canChangeTeamMembersOnlyRestriction = Core.Nothing,+      canComment = Core.Nothing,+      canCopy = Core.Nothing,+      canDeleteChildren = Core.Nothing,+      canDeleteTeamDrive = Core.Nothing,+      canDownload = Core.Nothing,+      canEdit = Core.Nothing,+      canListChildren = Core.Nothing,+      canManageMembers = Core.Nothing,+      canReadRevisions = Core.Nothing,+      canRemoveChildren = Core.Nothing,+      canRename = Core.Nothing,+      canRenameTeamDrive = Core.Nothing,+      canResetTeamDriveRestrictions = Core.Nothing,+      canShare = Core.Nothing,+      canTrashChildren = Core.Nothing+    }++instance Core.FromJSON TeamDrive_Capabilities where+  parseJSON =+    Core.withObject+      "TeamDrive_Capabilities"+      ( \o ->+          TeamDrive_Capabilities+            Core.<$> (o Core..:? "canAddChildren")+            Core.<*> (o Core..:? "canChangeCopyRequiresWriterPermissionRestriction")+            Core.<*> (o Core..:? "canChangeDomainUsersOnlyRestriction")+            Core.<*> ( o+                         Core..:? "canChangeSharingFoldersRequiresOrganizerPermissionRestriction"+                     )+            Core.<*> (o Core..:? "canChangeTeamDriveBackground")+            Core.<*> (o Core..:? "canChangeTeamMembersOnlyRestriction")+            Core.<*> (o Core..:? "canComment")+            Core.<*> (o Core..:? "canCopy")+            Core.<*> (o Core..:? "canDeleteChildren")+            Core.<*> (o Core..:? "canDeleteTeamDrive")+            Core.<*> (o Core..:? "canDownload")+            Core.<*> (o Core..:? "canEdit")+            Core.<*> (o Core..:? "canListChildren")+            Core.<*> (o Core..:? "canManageMembers")+            Core.<*> (o Core..:? "canReadRevisions")+            Core.<*> (o Core..:? "canRemoveChildren")+            Core.<*> (o Core..:? "canRename")+            Core.<*> (o Core..:? "canRenameTeamDrive")+            Core.<*> (o Core..:? "canResetTeamDriveRestrictions")+            Core.<*> (o Core..:? "canShare")+            Core.<*> (o Core..:? "canTrashChildren")+      )++instance Core.ToJSON TeamDrive_Capabilities where+  toJSON TeamDrive_Capabilities {..} =+    Core.object+      ( Core.catMaybes+          [ ("canAddChildren" Core..=) Core.<$> canAddChildren,+            ("canChangeCopyRequiresWriterPermissionRestriction" Core..=)+              Core.<$> canChangeCopyRequiresWriterPermissionRestriction,+            ("canChangeDomainUsersOnlyRestriction" Core..=)+              Core.<$> canChangeDomainUsersOnlyRestriction,+            ( "canChangeSharingFoldersRequiresOrganizerPermissionRestriction"+                Core..=+            )+              Core.<$> canChangeSharingFoldersRequiresOrganizerPermissionRestriction,+            ("canChangeTeamDriveBackground" Core..=)+              Core.<$> canChangeTeamDriveBackground,+            ("canChangeTeamMembersOnlyRestriction" Core..=)+              Core.<$> canChangeTeamMembersOnlyRestriction,+            ("canComment" Core..=) Core.<$> canComment,+            ("canCopy" Core..=) Core.<$> canCopy,+            ("canDeleteChildren" Core..=) Core.<$> canDeleteChildren,+            ("canDeleteTeamDrive" Core..=) Core.<$> canDeleteTeamDrive,+            ("canDownload" Core..=) Core.<$> canDownload,+            ("canEdit" Core..=) Core.<$> canEdit,+            ("canListChildren" Core..=) Core.<$> canListChildren,+            ("canManageMembers" Core..=) Core.<$> canManageMembers,+            ("canReadRevisions" Core..=) Core.<$> canReadRevisions,+            ("canRemoveChildren" Core..=) Core.<$> canRemoveChildren,+            ("canRename" Core..=) Core.<$> canRename,+            ("canRenameTeamDrive" Core..=) Core.<$> canRenameTeamDrive,+            ("canResetTeamDriveRestrictions" Core..=)+              Core.<$> canResetTeamDriveRestrictions,+            ("canShare" Core..=) Core.<$> canShare,+            ("canTrashChildren" Core..=) Core.<$> canTrashChildren+          ]+      )++-- | A set of restrictions that apply to this Team Drive or items inside this Team Drive.+--+-- /See:/ 'newTeamDrive_Restrictions' smart constructor.+data TeamDrive_Restrictions = TeamDrive_Restrictions+  { -- | Whether administrative privileges on this Team Drive are required to modify restrictions.+    adminManagedRestrictions :: (Core.Maybe Core.Bool),+    -- | Whether the options to copy, print, or download files inside this Team Drive, should be disabled for readers and commenters. When this restriction is set to @true@, it will override the similarly named field to @true@ for any file inside this Team Drive.+    copyRequiresWriterPermission :: (Core.Maybe Core.Bool),+    -- | Whether access to this Team Drive and items inside this Team Drive is restricted to users of the domain to which this Team Drive belongs. This restriction may be overridden by other sharing policies controlled outside of this Team Drive.+    domainUsersOnly :: (Core.Maybe Core.Bool),+    -- | Download restrictions applied by shared drive managers.+    downloadRestriction :: (Core.Maybe DownloadRestriction),+    -- | If true, only users with the organizer role can share folders. If false, users with either the organizer role or the file organizer role can share folders.+    sharingFoldersRequiresOrganizerPermission :: (Core.Maybe Core.Bool),+    -- | Whether access to items inside this Team Drive is restricted to members of this Team Drive.+    teamMembersOnly :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TeamDrive_Restrictions' with the minimum fields required to make a request.+newTeamDrive_Restrictions ::+  TeamDrive_Restrictions+newTeamDrive_Restrictions =+  TeamDrive_Restrictions+    { adminManagedRestrictions = Core.Nothing,+      copyRequiresWriterPermission = Core.Nothing,+      domainUsersOnly = Core.Nothing,+      downloadRestriction = Core.Nothing,+      sharingFoldersRequiresOrganizerPermission = Core.Nothing,+      teamMembersOnly = Core.Nothing+    }++instance Core.FromJSON TeamDrive_Restrictions where+  parseJSON =+    Core.withObject+      "TeamDrive_Restrictions"+      ( \o ->+          TeamDrive_Restrictions+            Core.<$> (o Core..:? "adminManagedRestrictions")+            Core.<*> (o Core..:? "copyRequiresWriterPermission")+            Core.<*> (o Core..:? "domainUsersOnly")+            Core.<*> (o Core..:? "downloadRestriction")+            Core.<*> (o Core..:? "sharingFoldersRequiresOrganizerPermission")+            Core.<*> (o Core..:? "teamMembersOnly")+      )++instance Core.ToJSON TeamDrive_Restrictions where+  toJSON TeamDrive_Restrictions {..} =+    Core.object+      ( Core.catMaybes+          [ ("adminManagedRestrictions" Core..=)+              Core.<$> adminManagedRestrictions,+            ("copyRequiresWriterPermission" Core..=)+              Core.<$> copyRequiresWriterPermission,+            ("domainUsersOnly" Core..=) Core.<$> domainUsersOnly,+            ("downloadRestriction" Core..=) Core.<$> downloadRestriction,+            ("sharingFoldersRequiresOrganizerPermission" Core..=)+              Core.<$> sharingFoldersRequiresOrganizerPermission,+            ("teamMembersOnly" Core..=) Core.<$> teamMembersOnly+          ]+      )++-- | A list of Team Drives.+--+-- /See:/ 'newTeamDriveList' smart constructor.+data TeamDriveList = TeamDriveList+  { -- | Identifies what kind of resource this is. Value: the fixed string @\"drive#teamDriveList\"@.+    kind :: Core.Text,+    -- | The page token for the next page of Team Drives. This will be absent if the end of the Team Drives list has been reached. If the token is rejected for any reason, it should be discarded, and pagination should be restarted from the first page of results. The page token is typically valid for several hours. However, if new items are added or removed, your expected results might differ.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | The list of Team Drives. If nextPageToken is populated, then this list may be incomplete and an additional page of results should be fetched.+    teamDrives :: (Core.Maybe [TeamDrive])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TeamDriveList' with the minimum fields required to make a request.+newTeamDriveList ::+  TeamDriveList+newTeamDriveList =+  TeamDriveList+    { kind = "drive#teamDriveList",+      nextPageToken = Core.Nothing,+      teamDrives = Core.Nothing+    }++instance Core.FromJSON TeamDriveList where+  parseJSON =+    Core.withObject+      "TeamDriveList"+      ( \o ->+          TeamDriveList+            Core.<$> (o Core..:? "kind" Core..!= "drive#teamDriveList")+            Core.<*> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "teamDrives")+      )++instance Core.ToJSON TeamDriveList where+  toJSON TeamDriveList {..} =+    Core.object+      ( Core.catMaybes+          [ Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("teamDrives" Core..=) Core.<$> teamDrives+          ]+      )++-- | Information about a Drive user.+--+-- /See:/ 'newUser' smart constructor.+data User = User+  { -- | Output only. A plain text displayable name for this user.+    displayName :: (Core.Maybe Core.Text),+    -- | Output only. The email address of the user. This may not be present in certain contexts if the user has not made their email address visible to the requester.+    emailAddress :: (Core.Maybe Core.Text),+    -- | Output only. Identifies what kind of resource this is. Value: the fixed string @\"drive#user\"@.+    kind :: Core.Text,+    -- | Output only. Whether this user is the requesting user.+    me :: (Core.Maybe Core.Bool),+    -- | Output only. The user\'s ID as visible in Permission resources.+    permissionId :: (Core.Maybe Core.Text),+    -- | Output only. A link to the user\'s profile photo, if available.+    photoLink :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'User' with the minimum fields required to make a request.+newUser ::+  User+newUser =+  User+    { displayName = Core.Nothing,+      emailAddress = Core.Nothing,+      kind = "drive#user",+      me = Core.Nothing,+      permissionId = Core.Nothing,+      photoLink = Core.Nothing+    }++instance Core.FromJSON User where+  parseJSON =+    Core.withObject+      "User"+      ( \o ->+          User+            Core.<$> (o Core..:? "displayName")+            Core.<*> (o Core..:? "emailAddress")+            Core.<*> (o Core..:? "kind" Core..!= "drive#user")+            Core.<*> (o Core..:? "me")+            Core.<*> (o Core..:? "permissionId")+            Core.<*> (o Core..:? "photoLink")+      )++instance Core.ToJSON User where+  toJSON User {..} =+    Core.object+      ( Core.catMaybes+          [ ("displayName" Core..=) Core.<$> displayName,+            ("emailAddress" Core..=) Core.<$> emailAddress,+            Core.Just ("kind" Core..= kind),+            ("me" Core..=) Core.<$> me,+            ("permissionId" Core..=) Core.<$> permissionId,+            ("photoLink" Core..=) Core.<$> photoLink+          ]+      )
+ gen/Gogol/Drive/Internal/Sum.hs view
@@ -0,0 +1,137 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.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.Drive.Internal.Sum+  ( -- * Xgafv+    Xgafv+      ( Xgafv_1,+        Xgafv_2,+        ..+      ),++    -- * ResolveAccessProposalRequest_Action+    ResolveAccessProposalRequest_Action+      ( ResolveAccessProposalRequest_Action_ACTIONUNSPECIFIED,+        ResolveAccessProposalRequest_Action_Accept,+        ResolveAccessProposalRequest_Action_Deny,+        ..+      ),++    -- * FilesListCorpus+    FilesListCorpus+      ( FilesListCorpus_Domain,+        FilesListCorpus_User,+        ..+      ),+  )+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+  #-}++-- | Required. The action to take on the AccessProposal.+newtype ResolveAccessProposalRequest_Action = ResolveAccessProposalRequest_Action {fromResolveAccessProposalRequest_Action :: 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 action+pattern ResolveAccessProposalRequest_Action_ACTIONUNSPECIFIED :: ResolveAccessProposalRequest_Action+pattern ResolveAccessProposalRequest_Action_ACTIONUNSPECIFIED = ResolveAccessProposalRequest_Action "ACTION_UNSPECIFIED"++-- | The user accepts the proposal. Note: If this action is used, the @role@ field must have at least one value.+pattern ResolveAccessProposalRequest_Action_Accept :: ResolveAccessProposalRequest_Action+pattern ResolveAccessProposalRequest_Action_Accept = ResolveAccessProposalRequest_Action "ACCEPT"++-- | The user denies the proposal+pattern ResolveAccessProposalRequest_Action_Deny :: ResolveAccessProposalRequest_Action+pattern ResolveAccessProposalRequest_Action_Deny = ResolveAccessProposalRequest_Action "DENY"++{-# COMPLETE+  ResolveAccessProposalRequest_Action_ACTIONUNSPECIFIED,+  ResolveAccessProposalRequest_Action_Accept,+  ResolveAccessProposalRequest_Action_Deny,+  ResolveAccessProposalRequest_Action+  #-}++-- | Deprecated: The source of files to list. Use \'corpora\' instead.+newtype FilesListCorpus = FilesListCorpus {fromFilesListCorpus :: 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+    )++-- | Files shared to the user\'s domain.+pattern FilesListCorpus_Domain :: FilesListCorpus+pattern FilesListCorpus_Domain = FilesListCorpus "domain"++-- | Files owned by or shared to the user.+pattern FilesListCorpus_User :: FilesListCorpus+pattern FilesListCorpus_User = FilesListCorpus "user"++{-# COMPLETE+  FilesListCorpus_Domain,+  FilesListCorpus_User,+  FilesListCorpus+  #-}
+ gen/Gogol/Drive/Operations/Cancel.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.Drive.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://developers.google.com/drive/ Google Drive API Reference> for @drive.operations.cancel@.+module Gogol.Drive.Operations.Cancel+  ( -- * Resource+    DriveOperationsCancelResource,++    -- ** Constructing a Request+    DriveOperationsCancel (..),+    newDriveOperationsCancel,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.operations.cancel@ method which the+-- 'DriveOperationsCancel' request conforms to.+type DriveOperationsCancelResource =+  "drive"+    Core.:> "v3"+    Core.:> "operations"+    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.Post '[Core.JSON] ()++-- | 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:/ 'newDriveOperationsCancel' smart constructor.+data DriveOperationsCancel = DriveOperationsCancel+  { -- | 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,+    -- | 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 'DriveOperationsCancel' with the minimum fields required to make a request.+newDriveOperationsCancel ::+  -- |  The name of the operation resource to be cancelled. See 'name'.+  Core.Text ->+  DriveOperationsCancel+newDriveOperationsCancel name =+  DriveOperationsCancel+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveOperationsCancel where+  type Rs DriveOperationsCancel = ()+  type+    Scopes DriveOperationsCancel =+      '[ Drive'FullControl,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Readonly+       ]+  requestClient DriveOperationsCancel {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveOperationsCancelResource)+          Core.mempty
+ gen/Gogol/Drive/Operations/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.Drive.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://developers.google.com/drive/ Google Drive API Reference> for @drive.operations.delete@.+module Gogol.Drive.Operations.Delete+  ( -- * Resource+    DriveOperationsDeleteResource,++    -- ** Constructing a Request+    DriveOperationsDelete (..),+    newDriveOperationsDelete,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.operations.delete@ method which the+-- 'DriveOperationsDelete' request conforms to.+type DriveOperationsDeleteResource =+  "drive"+    Core.:> "v3"+    Core.:> "operations"+    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] ()++-- | 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:/ 'newDriveOperationsDelete' smart constructor.+data DriveOperationsDelete = DriveOperationsDelete+  { -- | 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 'DriveOperationsDelete' with the minimum fields required to make a request.+newDriveOperationsDelete ::+  -- |  The name of the operation resource to be deleted. See 'name'.+  Core.Text ->+  DriveOperationsDelete+newDriveOperationsDelete name =+  DriveOperationsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveOperationsDelete where+  type Rs DriveOperationsDelete = ()+  type+    Scopes DriveOperationsDelete =+      '[ Drive'FullControl,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Readonly+       ]+  requestClient DriveOperationsDelete {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveOperationsDeleteResource)+          Core.mempty
+ gen/Gogol/Drive/Operations/Get.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.Drive.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://developers.google.com/drive/ Google Drive API Reference> for @drive.operations.get@.+module Gogol.Drive.Operations.Get+  ( -- * Resource+    DriveOperationsGetResource,++    -- ** Constructing a Request+    DriveOperationsGet (..),+    newDriveOperationsGet,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.operations.get@ method which the+-- 'DriveOperationsGet' request conforms to.+type DriveOperationsGetResource =+  "drive"+    Core.:> "v3"+    Core.:> "operations"+    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:/ 'newDriveOperationsGet' smart constructor.+data DriveOperationsGet = DriveOperationsGet+  { -- | 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 'DriveOperationsGet' with the minimum fields required to make a request.+newDriveOperationsGet ::+  -- |  The name of the operation resource. See 'name'.+  Core.Text ->+  DriveOperationsGet+newDriveOperationsGet name =+  DriveOperationsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveOperationsGet where+  type Rs DriveOperationsGet = Operation+  type+    Scopes DriveOperationsGet =+      '[ Drive'FullControl,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Readonly+       ]+  requestClient DriveOperationsGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveOperationsGetResource)+          Core.mempty
+ gen/Gogol/Drive/Operations/List.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.Drive.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://developers.google.com/drive/ Google Drive API Reference> for @drive.operations.list@.+module Gogol.Drive.Operations.List+  ( -- * Resource+    DriveOperationsListResource,++    -- ** Constructing a Request+    DriveOperationsList (..),+    newDriveOperationsList,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.operations.list@ method which the+-- 'DriveOperationsList' request conforms to.+type DriveOperationsListResource =+  "drive"+    Core.:> "v3"+    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 "name" 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:/ 'newDriveOperationsList' smart constructor.+data DriveOperationsList = DriveOperationsList+  { -- | 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.Maybe 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 'DriveOperationsList' with the minimum fields required to make a request.+newDriveOperationsList ::+  DriveOperationsList+newDriveOperationsList =+  DriveOperationsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      name = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveOperationsList where+  type Rs DriveOperationsList = ListOperationsResponse+  type+    Scopes DriveOperationsList =+      '[ Drive'FullControl,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Readonly+       ]+  requestClient DriveOperationsList {..} =+    go+      xgafv+      accessToken+      callback+      filter+      name+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveOperationsListResource)+          Core.mempty
+ gen/Gogol/Drive/Permissions/Create.hs view
@@ -0,0 +1,159 @@+{-# 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.Drive.Permissions.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 permission for a file or shared drive. __Warning:__ Concurrent permissions operations on the same file are not supported; only the last update is applied.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.permissions.create@.+module Gogol.Drive.Permissions.Create+  ( -- * Resource+    DrivePermissionsCreateResource,++    -- ** Constructing a Request+    DrivePermissionsCreate (..),+    newDrivePermissionsCreate,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.permissions.create@ method which the+-- 'DrivePermissionsCreate' request conforms to.+type DrivePermissionsCreateResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "permissions"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "emailMessage" Core.Text+    Core.:> Core.QueryParam "enforceSingleParent" Core.Bool+    Core.:> Core.QueryParam "moveToNewOwnersRoot" Core.Bool+    Core.:> Core.QueryParam "sendNotificationEmail" Core.Bool+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "transferOwnership" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "useDomainAdminAccess" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Permission+    Core.:> Core.Post '[Core.JSON] Permission++-- | Creates a permission for a file or shared drive. __Warning:__ Concurrent permissions operations on the same file are not supported; only the last update is applied.+--+-- /See:/ 'newDrivePermissionsCreate' smart constructor.+data DrivePermissionsCreate = DrivePermissionsCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | A plain text custom message to include in the notification email.+    emailMessage :: (Core.Maybe Core.Text),+    -- | Deprecated: See @moveToNewOwnersRoot@ for details.+    enforceSingleParent :: Core.Bool,+    -- | The ID of the file or shared drive.+    fileId :: Core.Text,+    -- | This parameter will only take effect if the item is not in a shared drive and the request is attempting to transfer the ownership of the item. If set to @true@, the item will be moved to the new owner\'s My Drive root folder and all prior parents removed. If set to @false@, parents are not changed.+    moveToNewOwnersRoot :: Core.Bool,+    -- | Multipart request metadata.+    payload :: Permission,+    -- | Whether to send a notification email when sharing to users or groups. This defaults to true for users and groups, and is not allowed for other requests. It must not be disabled for ownership transfers.+    sendNotificationEmail :: (Core.Maybe Core.Bool),+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: Core.Bool,+    -- | Whether to transfer ownership to the specified user and downgrade the current owner to a writer. This parameter is required as an acknowledgement of the side effect.+    transferOwnership :: 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),+    -- | Issue the request as a domain administrator; if set to true, then the requester will be granted access if the file ID parameter refers to a shared drive and the requester is an administrator of the domain to which the shared drive belongs.+    useDomainAdminAccess :: Core.Bool+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DrivePermissionsCreate' with the minimum fields required to make a request.+newDrivePermissionsCreate ::+  -- |  The ID of the file or shared drive. See 'fileId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Permission ->+  DrivePermissionsCreate+newDrivePermissionsCreate fileId payload =+  DrivePermissionsCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      emailMessage = Core.Nothing,+      enforceSingleParent = Core.False,+      fileId = fileId,+      moveToNewOwnersRoot = Core.False,+      payload = payload,+      sendNotificationEmail = Core.Nothing,+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      transferOwnership = Core.False,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      useDomainAdminAccess = Core.False+    }++instance Core.GoogleRequest DrivePermissionsCreate where+  type Rs DrivePermissionsCreate = Permission+  type+    Scopes DrivePermissionsCreate =+      '[Drive'FullControl, Drive'File]+  requestClient DrivePermissionsCreate {..} =+    go+      fileId+      xgafv+      accessToken+      callback+      emailMessage+      (Core.Just enforceSingleParent)+      (Core.Just moveToNewOwnersRoot)+      sendNotificationEmail+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      (Core.Just transferOwnership)+      uploadType+      uploadProtocol+      (Core.Just useDomainAdminAccess)+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DrivePermissionsCreateResource)+          Core.mempty
+ gen/Gogol/Drive/Permissions/Delete.hs view
@@ -0,0 +1,139 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Permissions.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 permission. __Warning:__ Concurrent permissions operations on the same file are not supported; only the last update is applied.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.permissions.delete@.+module Gogol.Drive.Permissions.Delete+  ( -- * Resource+    DrivePermissionsDeleteResource,++    -- ** Constructing a Request+    DrivePermissionsDelete (..),+    newDrivePermissionsDelete,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.permissions.delete@ method which the+-- 'DrivePermissionsDelete' request conforms to.+type DrivePermissionsDeleteResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "permissions"+    Core.:> Core.Capture "permissionId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "enforceExpansiveAccess" Core.Bool+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "useDomainAdminAccess" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] ()++-- | Deletes a permission. __Warning:__ Concurrent permissions operations on the same file are not supported; only the last update is applied.+--+-- /See:/ 'newDrivePermissionsDelete' smart constructor.+data DrivePermissionsDelete = DrivePermissionsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Whether the request should enforce expansive access rules.+    enforceExpansiveAccess :: Core.Bool,+    -- | The ID of the file or shared drive.+    fileId :: Core.Text,+    -- | The ID of the permission.+    permissionId :: Core.Text,+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: 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),+    -- | Issue the request as a domain administrator; if set to true, then the requester will be granted access if the file ID parameter refers to a shared drive and the requester is an administrator of the domain to which the shared drive belongs.+    useDomainAdminAccess :: Core.Bool+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DrivePermissionsDelete' with the minimum fields required to make a request.+newDrivePermissionsDelete ::+  -- |  The ID of the file or shared drive. See 'fileId'.+  Core.Text ->+  -- |  The ID of the permission. See 'permissionId'.+  Core.Text ->+  DrivePermissionsDelete+newDrivePermissionsDelete fileId permissionId =+  DrivePermissionsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      enforceExpansiveAccess = Core.False,+      fileId = fileId,+      permissionId = permissionId,+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      useDomainAdminAccess = Core.False+    }++instance Core.GoogleRequest DrivePermissionsDelete where+  type Rs DrivePermissionsDelete = ()+  type+    Scopes DrivePermissionsDelete =+      '[Drive'FullControl, Drive'File]+  requestClient DrivePermissionsDelete {..} =+    go+      fileId+      permissionId+      xgafv+      accessToken+      callback+      (Core.Just enforceExpansiveAccess)+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      uploadType+      uploadProtocol+      (Core.Just useDomainAdminAccess)+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DrivePermissionsDeleteResource)+          Core.mempty
+ gen/Gogol/Drive/Permissions/Get.hs view
@@ -0,0 +1,141 @@+{-# 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.Drive.Permissions.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a permission by ID.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.permissions.get@.+module Gogol.Drive.Permissions.Get+  ( -- * Resource+    DrivePermissionsGetResource,++    -- ** Constructing a Request+    DrivePermissionsGet (..),+    newDrivePermissionsGet,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.permissions.get@ method which the+-- 'DrivePermissionsGet' request conforms to.+type DrivePermissionsGetResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "permissions"+    Core.:> Core.Capture "permissionId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "useDomainAdminAccess" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Permission++-- | Gets a permission by ID.+--+-- /See:/ 'newDrivePermissionsGet' smart constructor.+data DrivePermissionsGet = DrivePermissionsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | The ID of the permission.+    permissionId :: Core.Text,+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: 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),+    -- | Issue the request as a domain administrator; if set to true, then the requester will be granted access if the file ID parameter refers to a shared drive and the requester is an administrator of the domain to which the shared drive belongs.+    useDomainAdminAccess :: Core.Bool+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DrivePermissionsGet' with the minimum fields required to make a request.+newDrivePermissionsGet ::+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  -- |  The ID of the permission. See 'permissionId'.+  Core.Text ->+  DrivePermissionsGet+newDrivePermissionsGet fileId permissionId =+  DrivePermissionsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      fileId = fileId,+      permissionId = permissionId,+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      useDomainAdminAccess = Core.False+    }++instance Core.GoogleRequest DrivePermissionsGet where+  type Rs DrivePermissionsGet = Permission+  type+    Scopes DrivePermissionsGet =+      '[ Drive'FullControl,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Photos'Readonly,+         Drive'Readonly+       ]+  requestClient DrivePermissionsGet {..} =+    go+      fileId+      permissionId+      xgafv+      accessToken+      callback+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      uploadType+      uploadProtocol+      (Core.Just useDomainAdminAccess)+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DrivePermissionsGetResource)+          Core.mempty
+ gen/Gogol/Drive/Permissions/List.hs view
@@ -0,0 +1,149 @@+{-# 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.Drive.Permissions.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 a file\'s or shared drive\'s permissions.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.permissions.list@.+module Gogol.Drive.Permissions.List+  ( -- * Resource+    DrivePermissionsListResource,++    -- ** Constructing a Request+    DrivePermissionsList (..),+    newDrivePermissionsList,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.permissions.list@ method which the+-- 'DrivePermissionsList' request conforms to.+type DrivePermissionsListResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "permissions"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "includePermissionsForView" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "useDomainAdminAccess" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] PermissionList++-- | Lists a file\'s or shared drive\'s permissions.+--+-- /See:/ 'newDrivePermissionsList' smart constructor.+data DrivePermissionsList = DrivePermissionsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the file or shared drive.+    fileId :: Core.Text,+    -- | Specifies which additional view\'s permissions to include in the response. Only \'published\' is supported.+    includePermissionsForView :: (Core.Maybe Core.Text),+    -- | The maximum number of permissions to return per page. When not set for files in a shared drive, at most 100 results will be returned. When not set for files that are not in a shared drive, the entire list will be returned.+    pageSize :: (Core.Maybe Core.Int32),+    -- | The token for continuing a previous list request on the next page. This should be set to the value of \'nextPageToken\' from the previous response.+    pageToken :: (Core.Maybe Core.Text),+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: 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),+    -- | Issue the request as a domain administrator; if set to true, then the requester will be granted access if the file ID parameter refers to a shared drive and the requester is an administrator of the domain to which the shared drive belongs.+    useDomainAdminAccess :: Core.Bool+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DrivePermissionsList' with the minimum fields required to make a request.+newDrivePermissionsList ::+  -- |  The ID of the file or shared drive. See 'fileId'.+  Core.Text ->+  DrivePermissionsList+newDrivePermissionsList fileId =+  DrivePermissionsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      fileId = fileId,+      includePermissionsForView = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      useDomainAdminAccess = Core.False+    }++instance Core.GoogleRequest DrivePermissionsList where+  type Rs DrivePermissionsList = PermissionList+  type+    Scopes DrivePermissionsList =+      '[ Drive'FullControl,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Photos'Readonly,+         Drive'Readonly+       ]+  requestClient DrivePermissionsList {..} =+    go+      fileId+      xgafv+      accessToken+      callback+      includePermissionsForView+      pageSize+      pageToken+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      uploadType+      uploadProtocol+      (Core.Just useDomainAdminAccess)+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DrivePermissionsListResource)+          Core.mempty
+ gen/Gogol/Drive/Permissions/Update.hs view
@@ -0,0 +1,156 @@+{-# 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.Drive.Permissions.Update+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a permission with patch semantics. __Warning:__ Concurrent permissions operations on the same file are not supported; only the last update is applied.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.permissions.update@.+module Gogol.Drive.Permissions.Update+  ( -- * Resource+    DrivePermissionsUpdateResource,++    -- ** Constructing a Request+    DrivePermissionsUpdate (..),+    newDrivePermissionsUpdate,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.permissions.update@ method which the+-- 'DrivePermissionsUpdate' request conforms to.+type DrivePermissionsUpdateResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "permissions"+    Core.:> Core.Capture "permissionId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "enforceExpansiveAccess" Core.Bool+    Core.:> Core.QueryParam "removeExpiration" Core.Bool+    Core.:> Core.QueryParam "supportsAllDrives" Core.Bool+    Core.:> Core.QueryParam "supportsTeamDrives" Core.Bool+    Core.:> Core.QueryParam "transferOwnership" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "useDomainAdminAccess" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Permission+    Core.:> Core.Patch '[Core.JSON] Permission++-- | Updates a permission with patch semantics. __Warning:__ Concurrent permissions operations on the same file are not supported; only the last update is applied.+--+-- /See:/ 'newDrivePermissionsUpdate' smart constructor.+data DrivePermissionsUpdate = DrivePermissionsUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Whether the request should enforce expansive access rules.+    enforceExpansiveAccess :: Core.Bool,+    -- | The ID of the file or shared drive.+    fileId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Permission,+    -- | The ID of the permission.+    permissionId :: Core.Text,+    -- | Whether to remove the expiration date.+    removeExpiration :: Core.Bool,+    -- | Whether the requesting application supports both My Drives and shared drives.+    supportsAllDrives :: Core.Bool,+    -- | Deprecated: Use @supportsAllDrives@ instead.+    supportsTeamDrives :: Core.Bool,+    -- | Whether to transfer ownership to the specified user and downgrade the current owner to a writer. This parameter is required as an acknowledgement of the side effect.+    transferOwnership :: 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),+    -- | Issue the request as a domain administrator; if set to true, then the requester will be granted access if the file ID parameter refers to a shared drive and the requester is an administrator of the domain to which the shared drive belongs.+    useDomainAdminAccess :: Core.Bool+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DrivePermissionsUpdate' with the minimum fields required to make a request.+newDrivePermissionsUpdate ::+  -- |  The ID of the file or shared drive. See 'fileId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Permission ->+  -- |  The ID of the permission. See 'permissionId'.+  Core.Text ->+  DrivePermissionsUpdate+newDrivePermissionsUpdate fileId payload permissionId =+  DrivePermissionsUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      enforceExpansiveAccess = Core.False,+      fileId = fileId,+      payload = payload,+      permissionId = permissionId,+      removeExpiration = Core.False,+      supportsAllDrives = Core.False,+      supportsTeamDrives = Core.False,+      transferOwnership = Core.False,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      useDomainAdminAccess = Core.False+    }++instance Core.GoogleRequest DrivePermissionsUpdate where+  type Rs DrivePermissionsUpdate = Permission+  type+    Scopes DrivePermissionsUpdate =+      '[Drive'FullControl, Drive'File]+  requestClient DrivePermissionsUpdate {..} =+    go+      fileId+      permissionId+      xgafv+      accessToken+      callback+      (Core.Just enforceExpansiveAccess)+      (Core.Just removeExpiration)+      (Core.Just supportsAllDrives)+      (Core.Just supportsTeamDrives)+      (Core.Just transferOwnership)+      uploadType+      uploadProtocol+      (Core.Just useDomainAdminAccess)+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DrivePermissionsUpdateResource)+          Core.mempty
+ gen/Gogol/Drive/Replies/Create.hs view
@@ -0,0 +1,125 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Replies.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 reply to a comment.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.replies.create@.+module Gogol.Drive.Replies.Create+  ( -- * Resource+    DriveRepliesCreateResource,++    -- ** Constructing a Request+    DriveRepliesCreate (..),+    newDriveRepliesCreate,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.replies.create@ method which the+-- 'DriveRepliesCreate' request conforms to.+type DriveRepliesCreateResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "comments"+    Core.:> Core.Capture "commentId" Core.Text+    Core.:> "replies"+    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] Reply+    Core.:> Core.Post '[Core.JSON] Reply++-- | Creates a reply to a comment.+--+-- /See:/ 'newDriveRepliesCreate' smart constructor.+data DriveRepliesCreate = DriveRepliesCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the comment.+    commentId :: Core.Text,+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Reply,+    -- | 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 'DriveRepliesCreate' with the minimum fields required to make a request.+newDriveRepliesCreate ::+  -- |  The ID of the comment. See 'commentId'.+  Core.Text ->+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Reply ->+  DriveRepliesCreate+newDriveRepliesCreate commentId fileId payload =+  DriveRepliesCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      commentId = commentId,+      fileId = fileId,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveRepliesCreate where+  type Rs DriveRepliesCreate = Reply+  type Scopes DriveRepliesCreate = '[Drive'FullControl, Drive'File]+  requestClient DriveRepliesCreate {..} =+    go+      fileId+      commentId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveRepliesCreateResource)+          Core.mempty
+ gen/Gogol/Drive/Replies/Delete.hs view
@@ -0,0 +1,125 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Replies.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 reply.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.replies.delete@.+module Gogol.Drive.Replies.Delete+  ( -- * Resource+    DriveRepliesDeleteResource,++    -- ** Constructing a Request+    DriveRepliesDelete (..),+    newDriveRepliesDelete,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.replies.delete@ method which the+-- 'DriveRepliesDelete' request conforms to.+type DriveRepliesDeleteResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "comments"+    Core.:> Core.Capture "commentId" Core.Text+    Core.:> "replies"+    Core.:> Core.Capture "replyId" 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] ()++-- | Deletes a reply.+--+-- /See:/ 'newDriveRepliesDelete' smart constructor.+data DriveRepliesDelete = DriveRepliesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the comment.+    commentId :: Core.Text,+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | The ID of the reply.+    replyId :: 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 'DriveRepliesDelete' with the minimum fields required to make a request.+newDriveRepliesDelete ::+  -- |  The ID of the comment. See 'commentId'.+  Core.Text ->+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  -- |  The ID of the reply. See 'replyId'.+  Core.Text ->+  DriveRepliesDelete+newDriveRepliesDelete commentId fileId replyId =+  DriveRepliesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      commentId = commentId,+      fileId = fileId,+      replyId = replyId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveRepliesDelete where+  type Rs DriveRepliesDelete = ()+  type Scopes DriveRepliesDelete = '[Drive'FullControl, Drive'File]+  requestClient DriveRepliesDelete {..} =+    go+      fileId+      commentId+      replyId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveRepliesDeleteResource)+          Core.mempty
+ gen/Gogol/Drive/Replies/Get.hs view
@@ -0,0 +1,136 @@+{-# 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.Drive.Replies.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a reply by ID.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.replies.get@.+module Gogol.Drive.Replies.Get+  ( -- * Resource+    DriveRepliesGetResource,++    -- ** Constructing a Request+    DriveRepliesGet (..),+    newDriveRepliesGet,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.replies.get@ method which the+-- 'DriveRepliesGet' request conforms to.+type DriveRepliesGetResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "comments"+    Core.:> Core.Capture "commentId" Core.Text+    Core.:> "replies"+    Core.:> Core.Capture "replyId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "includeDeleted" 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] Reply++-- | Gets a reply by ID.+--+-- /See:/ 'newDriveRepliesGet' smart constructor.+data DriveRepliesGet = DriveRepliesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the comment.+    commentId :: Core.Text,+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | Whether to return deleted replies. Deleted replies will not include their original content.+    includeDeleted :: Core.Bool,+    -- | The ID of the reply.+    replyId :: 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 'DriveRepliesGet' with the minimum fields required to make a request.+newDriveRepliesGet ::+  -- |  The ID of the comment. See 'commentId'.+  Core.Text ->+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  -- |  The ID of the reply. See 'replyId'.+  Core.Text ->+  DriveRepliesGet+newDriveRepliesGet commentId fileId replyId =+  DriveRepliesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      commentId = commentId,+      fileId = fileId,+      includeDeleted = Core.False,+      replyId = replyId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveRepliesGet where+  type Rs DriveRepliesGet = Reply+  type+    Scopes DriveRepliesGet =+      '[ Drive'FullControl,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Readonly+       ]+  requestClient DriveRepliesGet {..} =+    go+      fileId+      commentId+      replyId+      xgafv+      accessToken+      callback+      (Core.Just includeDeleted)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveRepliesGetResource)+          Core.mempty
+ gen/Gogol/Drive/Replies/List.hs view
@@ -0,0 +1,139 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Replies.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 a comment\'s replies.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.replies.list@.+module Gogol.Drive.Replies.List+  ( -- * Resource+    DriveRepliesListResource,++    -- ** Constructing a Request+    DriveRepliesList (..),+    newDriveRepliesList,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.replies.list@ method which the+-- 'DriveRepliesList' request conforms to.+type DriveRepliesListResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "comments"+    Core.:> Core.Capture "commentId" Core.Text+    Core.:> "replies"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "includeDeleted" 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] ReplyList++-- | Lists a comment\'s replies.+--+-- /See:/ 'newDriveRepliesList' smart constructor.+data DriveRepliesList = DriveRepliesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the comment.+    commentId :: Core.Text,+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | Whether to include deleted replies. Deleted replies will not include their original content.+    includeDeleted :: Core.Bool,+    -- | The maximum number of replies to return per page.+    pageSize :: Core.Int32,+    -- | The token for continuing a previous list request on the next page. This should be set to the value of \'nextPageToken\' from the previous response.+    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 'DriveRepliesList' with the minimum fields required to make a request.+newDriveRepliesList ::+  -- |  The ID of the comment. See 'commentId'.+  Core.Text ->+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  DriveRepliesList+newDriveRepliesList commentId fileId =+  DriveRepliesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      commentId = commentId,+      fileId = fileId,+      includeDeleted = Core.False,+      pageSize = 20,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveRepliesList where+  type Rs DriveRepliesList = ReplyList+  type+    Scopes DriveRepliesList =+      '[ Drive'FullControl,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Readonly+       ]+  requestClient DriveRepliesList {..} =+    go+      fileId+      commentId+      xgafv+      accessToken+      callback+      (Core.Just includeDeleted)+      (Core.Just pageSize)+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveRepliesListResource)+          Core.mempty
+ gen/Gogol/Drive/Replies/Update.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.Drive.Replies.Update+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a reply with patch semantics.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.replies.update@.+module Gogol.Drive.Replies.Update+  ( -- * Resource+    DriveRepliesUpdateResource,++    -- ** Constructing a Request+    DriveRepliesUpdate (..),+    newDriveRepliesUpdate,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.replies.update@ method which the+-- 'DriveRepliesUpdate' request conforms to.+type DriveRepliesUpdateResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "comments"+    Core.:> Core.Capture "commentId" Core.Text+    Core.:> "replies"+    Core.:> Core.Capture "replyId" 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] Reply+    Core.:> Core.Patch '[Core.JSON] Reply++-- | Updates a reply with patch semantics.+--+-- /See:/ 'newDriveRepliesUpdate' smart constructor.+data DriveRepliesUpdate = DriveRepliesUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the comment.+    commentId :: Core.Text,+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Reply,+    -- | The ID of the reply.+    replyId :: 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 'DriveRepliesUpdate' with the minimum fields required to make a request.+newDriveRepliesUpdate ::+  -- |  The ID of the comment. See 'commentId'.+  Core.Text ->+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Reply ->+  -- |  The ID of the reply. See 'replyId'.+  Core.Text ->+  DriveRepliesUpdate+newDriveRepliesUpdate commentId fileId payload replyId =+  DriveRepliesUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      commentId = commentId,+      fileId = fileId,+      payload = payload,+      replyId = replyId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveRepliesUpdate where+  type Rs DriveRepliesUpdate = Reply+  type Scopes DriveRepliesUpdate = '[Drive'FullControl, Drive'File]+  requestClient DriveRepliesUpdate {..} =+    go+      fileId+      commentId+      replyId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveRepliesUpdateResource)+          Core.mempty
+ gen/Gogol/Drive/Revisions/Delete.hs view
@@ -0,0 +1,119 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Revisions.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)+--+-- Permanently deletes a file version. You can only delete revisions for files with binary content in Google Drive, like images or videos. Revisions for other files, like Google Docs or Sheets, and the last remaining file version can\'t be deleted.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.revisions.delete@.+module Gogol.Drive.Revisions.Delete+  ( -- * Resource+    DriveRevisionsDeleteResource,++    -- ** Constructing a Request+    DriveRevisionsDelete (..),+    newDriveRevisionsDelete,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.revisions.delete@ method which the+-- 'DriveRevisionsDelete' request conforms to.+type DriveRevisionsDeleteResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "revisions"+    Core.:> Core.Capture "revisionId" 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] ()++-- | Permanently deletes a file version. You can only delete revisions for files with binary content in Google Drive, like images or videos. Revisions for other files, like Google Docs or Sheets, and the last remaining file version can\'t be deleted.+--+-- /See:/ 'newDriveRevisionsDelete' smart constructor.+data DriveRevisionsDelete = DriveRevisionsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | The ID of the revision.+    revisionId :: 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 'DriveRevisionsDelete' with the minimum fields required to make a request.+newDriveRevisionsDelete ::+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  -- |  The ID of the revision. See 'revisionId'.+  Core.Text ->+  DriveRevisionsDelete+newDriveRevisionsDelete fileId revisionId =+  DriveRevisionsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      fileId = fileId,+      revisionId = revisionId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveRevisionsDelete where+  type Rs DriveRevisionsDelete = ()+  type+    Scopes DriveRevisionsDelete =+      '[Drive'FullControl, Drive'Appdata, Drive'File]+  requestClient DriveRevisionsDelete {..} =+    go+      fileId+      revisionId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveRevisionsDeleteResource)+          Core.mempty
+ gen/Gogol/Drive/Revisions/Get.hs view
@@ -0,0 +1,169 @@+{-# 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.Drive.Revisions.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a revision\'s metadata or content by ID.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.revisions.get@.+module Gogol.Drive.Revisions.Get+  ( -- * Resource+    DriveRevisionsGetResource,++    -- ** Constructing a Request+    DriveRevisionsGet (..),+    newDriveRevisionsGet,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.revisions.get@ method which the+-- 'DriveRevisionsGet' request conforms to.+type DriveRevisionsGetResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "revisions"+    Core.:> Core.Capture "revisionId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "acknowledgeAbuse" Core.Bool+    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] Revision+    Core.:<|> "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "revisions"+    Core.:> Core.Capture "revisionId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "acknowledgeAbuse" Core.Bool+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltMedia+    Core.:> Core.Get '[Core.OctetStream] Core.Stream++-- | Gets a revision\'s metadata or content by ID.+--+-- /See:/ 'newDriveRevisionsGet' smart constructor.+data DriveRevisionsGet = DriveRevisionsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | Whether the user is acknowledging the risk of downloading known malware or other abusive files. This is only applicable when the @alt@ parameter is set to @media@ and the user is the owner of the file or an organizer of the shared drive in which the file resides.+    acknowledgeAbuse :: Core.Bool,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | The ID of the revision.+    revisionId :: 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 'DriveRevisionsGet' with the minimum fields required to make a request.+newDriveRevisionsGet ::+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  -- |  The ID of the revision. See 'revisionId'.+  Core.Text ->+  DriveRevisionsGet+newDriveRevisionsGet fileId revisionId =+  DriveRevisionsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      acknowledgeAbuse = Core.False,+      callback = Core.Nothing,+      fileId = fileId,+      revisionId = revisionId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveRevisionsGet where+  type Rs DriveRevisionsGet = Revision+  type+    Scopes DriveRevisionsGet =+      '[ Drive'FullControl,+         Drive'Appdata,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Photos'Readonly,+         Drive'Readonly+       ]+  requestClient DriveRevisionsGet {..} =+    go+      fileId+      revisionId+      xgafv+      accessToken+      (Core.Just acknowledgeAbuse)+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go Core.:<|> _ =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveRevisionsGetResource)+          Core.mempty++instance Core.GoogleRequest (Core.MediaDownload DriveRevisionsGet) where+  type Rs (Core.MediaDownload DriveRevisionsGet) = Core.Stream+  type+    Scopes (Core.MediaDownload DriveRevisionsGet) =+      Core.Scopes DriveRevisionsGet+  requestClient (Core.MediaDownload DriveRevisionsGet {..}) =+    go+      fileId+      revisionId+      xgafv+      accessToken+      (Core.Just acknowledgeAbuse)+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltMedia)+      driveService+    where+      _ Core.:<|> go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveRevisionsGetResource)+          Core.mempty
+ gen/Gogol/Drive/Revisions/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.Drive.Revisions.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 a file\'s revisions.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.revisions.list@.+module Gogol.Drive.Revisions.List+  ( -- * Resource+    DriveRevisionsListResource,++    -- ** Constructing a Request+    DriveRevisionsList (..),+    newDriveRevisionsList,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.revisions.list@ method which the+-- 'DriveRevisionsList' request conforms to.+type DriveRevisionsListResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "revisions"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] RevisionList++-- | Lists a file\'s revisions.+--+-- /See:/ 'newDriveRevisionsList' smart constructor.+data DriveRevisionsList = DriveRevisionsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | The maximum number of revisions to return per page.+    pageSize :: Core.Int32,+    -- | The token for continuing a previous list request on the next page. This should be set to the value of \'nextPageToken\' from the previous response.+    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 'DriveRevisionsList' with the minimum fields required to make a request.+newDriveRevisionsList ::+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  DriveRevisionsList+newDriveRevisionsList fileId =+  DriveRevisionsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      fileId = fileId,+      pageSize = 200,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveRevisionsList where+  type Rs DriveRevisionsList = RevisionList+  type+    Scopes DriveRevisionsList =+      '[ Drive'FullControl,+         Drive'Appdata,+         Drive'File,+         Drive'Meet'Readonly,+         Drive'Metadata,+         Drive'Metadata'Readonly,+         Drive'Photos'Readonly,+         Drive'Readonly+       ]+  requestClient DriveRevisionsList {..} =+    go+      fileId+      xgafv+      accessToken+      callback+      (Core.Just pageSize)+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveRevisionsListResource)+          Core.mempty
+ gen/Gogol/Drive/Revisions/Update.hs view
@@ -0,0 +1,126 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Revisions.Update+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a revision with patch semantics.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.revisions.update@.+module Gogol.Drive.Revisions.Update+  ( -- * Resource+    DriveRevisionsUpdateResource,++    -- ** Constructing a Request+    DriveRevisionsUpdate (..),+    newDriveRevisionsUpdate,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.revisions.update@ method which the+-- 'DriveRevisionsUpdate' request conforms to.+type DriveRevisionsUpdateResource =+  "drive"+    Core.:> "v3"+    Core.:> "files"+    Core.:> Core.Capture "fileId" Core.Text+    Core.:> "revisions"+    Core.:> Core.Capture "revisionId" 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] Revision+    Core.:> Core.Patch '[Core.JSON] Revision++-- | Updates a revision with patch semantics.+--+-- /See:/ 'newDriveRevisionsUpdate' smart constructor.+data DriveRevisionsUpdate = DriveRevisionsUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the file.+    fileId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Revision,+    -- | The ID of the revision.+    revisionId :: 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 'DriveRevisionsUpdate' with the minimum fields required to make a request.+newDriveRevisionsUpdate ::+  -- |  The ID of the file. See 'fileId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Revision ->+  -- |  The ID of the revision. See 'revisionId'.+  Core.Text ->+  DriveRevisionsUpdate+newDriveRevisionsUpdate fileId payload revisionId =+  DriveRevisionsUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      fileId = fileId,+      payload = payload,+      revisionId = revisionId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveRevisionsUpdate where+  type Rs DriveRevisionsUpdate = Revision+  type+    Scopes DriveRevisionsUpdate =+      '[Drive'FullControl, Drive'Appdata, Drive'File]+  requestClient DriveRevisionsUpdate {..} =+    go+      fileId+      revisionId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveRevisionsUpdateResource)+          Core.mempty
+ gen/Gogol/Drive/Teamdrives/Create.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.Drive.Teamdrives.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)+--+-- Deprecated: Use @drives.create@ instead.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.teamdrives.create@.+module Gogol.Drive.Teamdrives.Create+  ( -- * Resource+    DriveTeamdrivesCreateResource,++    -- ** Constructing a Request+    DriveTeamdrivesCreate (..),+    newDriveTeamdrivesCreate,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.teamdrives.create@ method which the+-- 'DriveTeamdrivesCreate' request conforms to.+type DriveTeamdrivesCreateResource =+  "drive"+    Core.:> "v3"+    Core.:> "teamdrives"+    Core.:> Core.QueryParam "requestId" 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] TeamDrive+    Core.:> Core.Post '[Core.JSON] TeamDrive++-- | Deprecated: Use @drives.create@ instead.+--+-- /See:/ 'newDriveTeamdrivesCreate' smart constructor.+data DriveTeamdrivesCreate = DriveTeamdrivesCreate+  { -- | 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 :: TeamDrive,+    -- | Required. An ID, such as a random UUID, which uniquely identifies this user\'s request for idempotent creation of a Team Drive. A repeated request by the same user and with the same request ID will avoid creating duplicates by attempting to create the same Team Drive. If the Team Drive already exists a 409 error will be returned.+    requestId :: 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 'DriveTeamdrivesCreate' with the minimum fields required to make a request.+newDriveTeamdrivesCreate ::+  -- |  Multipart request metadata. See 'payload'.+  TeamDrive ->+  -- |  Required. An ID, such as a random UUID, which uniquely identifies this user\'s request for idempotent creation of a Team Drive. A repeated request by the same user and with the same request ID will avoid creating duplicates by attempting to create the same Team Drive. If the Team Drive already exists a 409 error will be returned. See 'requestId'.+  Core.Text ->+  DriveTeamdrivesCreate+newDriveTeamdrivesCreate payload requestId =+  DriveTeamdrivesCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      requestId = requestId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveTeamdrivesCreate where+  type Rs DriveTeamdrivesCreate = TeamDrive+  type Scopes DriveTeamdrivesCreate = '[Drive'FullControl]+  requestClient DriveTeamdrivesCreate {..} =+    go+      (Core.Just requestId)+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveTeamdrivesCreateResource)+          Core.mempty
+ gen/Gogol/Drive/Teamdrives/Delete.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.Drive.Teamdrives.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)+--+-- Deprecated: Use @drives.delete@ instead.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.teamdrives.delete@.+module Gogol.Drive.Teamdrives.Delete+  ( -- * Resource+    DriveTeamdrivesDeleteResource,++    -- ** Constructing a Request+    DriveTeamdrivesDelete (..),+    newDriveTeamdrivesDelete,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.teamdrives.delete@ method which the+-- 'DriveTeamdrivesDelete' request conforms to.+type DriveTeamdrivesDeleteResource =+  "drive"+    Core.:> "v3"+    Core.:> "teamdrives"+    Core.:> Core.Capture "teamDriveId" 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] ()++-- | Deprecated: Use @drives.delete@ instead.+--+-- /See:/ 'newDriveTeamdrivesDelete' smart constructor.+data DriveTeamdrivesDelete = DriveTeamdrivesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the Team Drive+    teamDriveId :: 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 'DriveTeamdrivesDelete' with the minimum fields required to make a request.+newDriveTeamdrivesDelete ::+  -- |  The ID of the Team Drive See 'teamDriveId'.+  Core.Text ->+  DriveTeamdrivesDelete+newDriveTeamdrivesDelete teamDriveId =+  DriveTeamdrivesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      teamDriveId = teamDriveId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DriveTeamdrivesDelete where+  type Rs DriveTeamdrivesDelete = ()+  type Scopes DriveTeamdrivesDelete = '[Drive'FullControl]+  requestClient DriveTeamdrivesDelete {..} =+    go+      teamDriveId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveTeamdrivesDeleteResource)+          Core.mempty
+ gen/Gogol/Drive/Teamdrives/Get.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.Drive.Teamdrives.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)+--+-- Deprecated: Use @drives.get@ instead.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.teamdrives.get@.+module Gogol.Drive.Teamdrives.Get+  ( -- * Resource+    DriveTeamdrivesGetResource,++    -- ** Constructing a Request+    DriveTeamdrivesGet (..),+    newDriveTeamdrivesGet,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.teamdrives.get@ method which the+-- 'DriveTeamdrivesGet' request conforms to.+type DriveTeamdrivesGetResource =+  "drive"+    Core.:> "v3"+    Core.:> "teamdrives"+    Core.:> Core.Capture "teamDriveId" 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 "useDomainAdminAccess" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] TeamDrive++-- | Deprecated: Use @drives.get@ instead.+--+-- /See:/ 'newDriveTeamdrivesGet' smart constructor.+data DriveTeamdrivesGet = DriveTeamdrivesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID of the Team Drive+    teamDriveId :: 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),+    -- | Issue the request as a domain administrator; if set to true, then the requester will be granted access if they are an administrator of the domain to which the Team Drive belongs.+    useDomainAdminAccess :: Core.Bool+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DriveTeamdrivesGet' with the minimum fields required to make a request.+newDriveTeamdrivesGet ::+  -- |  The ID of the Team Drive See 'teamDriveId'.+  Core.Text ->+  DriveTeamdrivesGet+newDriveTeamdrivesGet teamDriveId =+  DriveTeamdrivesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      teamDriveId = teamDriveId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      useDomainAdminAccess = Core.False+    }++instance Core.GoogleRequest DriveTeamdrivesGet where+  type Rs DriveTeamdrivesGet = TeamDrive+  type+    Scopes DriveTeamdrivesGet =+      '[Drive'FullControl, Drive'Readonly]+  requestClient DriveTeamdrivesGet {..} =+    go+      teamDriveId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just useDomainAdminAccess)+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveTeamdrivesGetResource)+          Core.mempty
+ gen/Gogol/Drive/Teamdrives/List.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.Drive.Teamdrives.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)+--+-- Deprecated: Use @drives.list@ instead.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.teamdrives.list@.+module Gogol.Drive.Teamdrives.List+  ( -- * Resource+    DriveTeamdrivesListResource,++    -- ** Constructing a Request+    DriveTeamdrivesList (..),+    newDriveTeamdrivesList,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.teamdrives.list@ method which the+-- 'DriveTeamdrivesList' request conforms to.+type DriveTeamdrivesListResource =+  "drive"+    Core.:> "v3"+    Core.:> "teamdrives"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "q" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "useDomainAdminAccess" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] TeamDriveList++-- | Deprecated: Use @drives.list@ instead.+--+-- /See:/ 'newDriveTeamdrivesList' smart constructor.+data DriveTeamdrivesList = DriveTeamdrivesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Maximum number of Team Drives to return.+    pageSize :: Core.Int32,+    -- | Page token for Team Drives.+    pageToken :: (Core.Maybe Core.Text),+    -- | Query string for searching Team Drives.+    q :: (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),+    -- | Issue the request as a domain administrator; if set to true, then all Team Drives of the domain in which the requester is an administrator are returned.+    useDomainAdminAccess :: Core.Bool+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DriveTeamdrivesList' with the minimum fields required to make a request.+newDriveTeamdrivesList ::+  DriveTeamdrivesList+newDriveTeamdrivesList =+  DriveTeamdrivesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      pageSize = 10,+      pageToken = Core.Nothing,+      q = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      useDomainAdminAccess = Core.False+    }++instance Core.GoogleRequest DriveTeamdrivesList where+  type Rs DriveTeamdrivesList = TeamDriveList+  type+    Scopes DriveTeamdrivesList =+      '[Drive'FullControl, Drive'Readonly]+  requestClient DriveTeamdrivesList {..} =+    go+      xgafv+      accessToken+      callback+      (Core.Just pageSize)+      pageToken+      q+      uploadType+      uploadProtocol+      (Core.Just useDomainAdminAccess)+      (Core.Just Core.AltJSON)+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveTeamdrivesListResource)+          Core.mempty
+ gen/Gogol/Drive/Teamdrives/Update.hs view
@@ -0,0 +1,121 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Drive.Teamdrives.Update+-- 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)+--+-- Deprecated: Use @drives.update@ instead.+--+-- /See:/ <https://developers.google.com/drive/ Google Drive API Reference> for @drive.teamdrives.update@.+module Gogol.Drive.Teamdrives.Update+  ( -- * Resource+    DriveTeamdrivesUpdateResource,++    -- ** Constructing a Request+    DriveTeamdrivesUpdate (..),+    newDriveTeamdrivesUpdate,+  )+where++import Gogol.Drive.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @drive.teamdrives.update@ method which the+-- 'DriveTeamdrivesUpdate' request conforms to.+type DriveTeamdrivesUpdateResource =+  "drive"+    Core.:> "v3"+    Core.:> "teamdrives"+    Core.:> Core.Capture "teamDriveId" 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 "useDomainAdminAccess" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] TeamDrive+    Core.:> Core.Patch '[Core.JSON] TeamDrive++-- | Deprecated: Use @drives.update@ instead.+--+-- /See:/ 'newDriveTeamdrivesUpdate' smart constructor.+data DriveTeamdrivesUpdate = DriveTeamdrivesUpdate+  { -- | 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 :: TeamDrive,+    -- | The ID of the Team Drive+    teamDriveId :: 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),+    -- | Issue the request as a domain administrator; if set to true, then the requester will be granted access if they are an administrator of the domain to which the Team Drive belongs.+    useDomainAdminAccess :: Core.Bool+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DriveTeamdrivesUpdate' with the minimum fields required to make a request.+newDriveTeamdrivesUpdate ::+  -- |  Multipart request metadata. See 'payload'.+  TeamDrive ->+  -- |  The ID of the Team Drive See 'teamDriveId'.+  Core.Text ->+  DriveTeamdrivesUpdate+newDriveTeamdrivesUpdate payload teamDriveId =+  DriveTeamdrivesUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      teamDriveId = teamDriveId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      useDomainAdminAccess = Core.False+    }++instance Core.GoogleRequest DriveTeamdrivesUpdate where+  type Rs DriveTeamdrivesUpdate = TeamDrive+  type Scopes DriveTeamdrivesUpdate = '[Drive'FullControl]+  requestClient DriveTeamdrivesUpdate {..} =+    go+      teamDriveId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just useDomainAdminAccess)+      (Core.Just Core.AltJSON)+      payload+      driveService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DriveTeamdrivesUpdateResource)+          Core.mempty
+ gen/Gogol/Drive/Types.hs view
@@ -0,0 +1,394 @@+{-# 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.Drive.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.Drive.Types+  ( -- * Configuration+    driveService,++    -- * OAuth Scopes+    Drive'FullControl,+    Drive'Appdata,+    Drive'Apps'Readonly,+    Drive'File,+    Drive'Meet'Readonly,+    Drive'Metadata,+    Drive'Metadata'Readonly,+    Drive'Photos'Readonly,+    Drive'Readonly,+    Drive'Scripts,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** About+    About (..),+    newAbout,++    -- ** About_DriveThemesItem+    About_DriveThemesItem (..),+    newAbout_DriveThemesItem,++    -- ** About_ExportFormats+    About_ExportFormats (..),+    newAbout_ExportFormats,++    -- ** About_ImportFormats+    About_ImportFormats (..),+    newAbout_ImportFormats,++    -- ** About_MaxImportSizes+    About_MaxImportSizes (..),+    newAbout_MaxImportSizes,++    -- ** About_StorageQuota+    About_StorageQuota (..),+    newAbout_StorageQuota,++    -- ** About_TeamDriveThemesItem+    About_TeamDriveThemesItem (..),+    newAbout_TeamDriveThemesItem,++    -- ** AccessProposal+    AccessProposal (..),+    newAccessProposal,++    -- ** AccessProposalRoleAndView+    AccessProposalRoleAndView (..),+    newAccessProposalRoleAndView,++    -- ** App+    App (..),+    newApp,++    -- ** AppIcons+    AppIcons (..),+    newAppIcons,++    -- ** AppList+    AppList (..),+    newAppList,++    -- ** Change+    Change (..),+    newChange,++    -- ** ChangeList+    ChangeList (..),+    newChangeList,++    -- ** Channel+    Channel (..),+    newChannel,++    -- ** Channel_Params+    Channel_Params (..),+    newChannel_Params,++    -- ** Comment+    Comment (..),+    newComment,++    -- ** Comment_QuotedFileContent+    Comment_QuotedFileContent (..),+    newComment_QuotedFileContent,++    -- ** CommentList+    CommentList (..),+    newCommentList,++    -- ** ContentRestriction+    ContentRestriction (..),+    newContentRestriction,++    -- ** DownloadRestriction+    DownloadRestriction (..),+    newDownloadRestriction,++    -- ** Drive+    Drive (..),+    newDrive,++    -- ** Drive_BackgroundImageFile+    Drive_BackgroundImageFile (..),+    newDrive_BackgroundImageFile,++    -- ** Drive_Capabilities+    Drive_Capabilities (..),+    newDrive_Capabilities,++    -- ** Drive_Restrictions+    Drive_Restrictions (..),+    newDrive_Restrictions,++    -- ** DriveList+    DriveList (..),+    newDriveList,++    -- ** File+    File (..),+    newFile,++    -- ** File_AppProperties+    File_AppProperties (..),+    newFile_AppProperties,++    -- ** File_Capabilities+    File_Capabilities (..),+    newFile_Capabilities,++    -- ** File_ContentHints+    File_ContentHints (..),+    newFile_ContentHints,++    -- ** File_ContentHints_Thumbnail+    File_ContentHints_Thumbnail (..),+    newFile_ContentHints_Thumbnail,++    -- ** File_ExportLinks+    File_ExportLinks (..),+    newFile_ExportLinks,++    -- ** File_ImageMediaMetadata+    File_ImageMediaMetadata (..),+    newFile_ImageMediaMetadata,++    -- ** File_ImageMediaMetadata_Location+    File_ImageMediaMetadata_Location (..),+    newFile_ImageMediaMetadata_Location,++    -- ** File_LabelInfo+    File_LabelInfo (..),+    newFile_LabelInfo,++    -- ** File_LinkShareMetadata+    File_LinkShareMetadata (..),+    newFile_LinkShareMetadata,++    -- ** File_Properties+    File_Properties (..),+    newFile_Properties,++    -- ** File_ShortcutDetails+    File_ShortcutDetails (..),+    newFile_ShortcutDetails,++    -- ** File_VideoMediaMetadata+    File_VideoMediaMetadata (..),+    newFile_VideoMediaMetadata,++    -- ** FileList+    FileList (..),+    newFileList,++    -- ** GeneratedIds+    GeneratedIds (..),+    newGeneratedIds,++    -- ** Label+    Label (..),+    newLabel,++    -- ** Label_Fields+    Label_Fields (..),+    newLabel_Fields,++    -- ** LabelField+    LabelField (..),+    newLabelField,++    -- ** LabelFieldModification+    LabelFieldModification (..),+    newLabelFieldModification,++    -- ** LabelList+    LabelList (..),+    newLabelList,++    -- ** LabelModification+    LabelModification (..),+    newLabelModification,++    -- ** ListAccessProposalsResponse+    ListAccessProposalsResponse (..),+    newListAccessProposalsResponse,++    -- ** ListOperationsResponse+    ListOperationsResponse (..),+    newListOperationsResponse,++    -- ** ModifyLabelsRequest+    ModifyLabelsRequest (..),+    newModifyLabelsRequest,++    -- ** ModifyLabelsResponse+    ModifyLabelsResponse (..),+    newModifyLabelsResponse,++    -- ** Operation+    Operation (..),+    newOperation,++    -- ** Operation_Metadata+    Operation_Metadata (..),+    newOperation_Metadata,++    -- ** Operation_Response+    Operation_Response (..),+    newOperation_Response,++    -- ** Permission+    Permission (..),+    newPermission,++    -- ** Permission_PermissionDetailsItem+    Permission_PermissionDetailsItem (..),+    newPermission_PermissionDetailsItem,++    -- ** Permission_TeamDrivePermissionDetailsItem+    Permission_TeamDrivePermissionDetailsItem (..),+    newPermission_TeamDrivePermissionDetailsItem,++    -- ** PermissionList+    PermissionList (..),+    newPermissionList,++    -- ** Reply+    Reply (..),+    newReply,++    -- ** ReplyList+    ReplyList (..),+    newReplyList,++    -- ** ResolveAccessProposalRequest+    ResolveAccessProposalRequest (..),+    newResolveAccessProposalRequest,++    -- ** ResolveAccessProposalRequest_Action+    ResolveAccessProposalRequest_Action (..),++    -- ** Revision+    Revision (..),+    newRevision,++    -- ** Revision_ExportLinks+    Revision_ExportLinks (..),+    newRevision_ExportLinks,++    -- ** RevisionList+    RevisionList (..),+    newRevisionList,++    -- ** StartPageToken+    StartPageToken (..),+    newStartPageToken,++    -- ** Status+    Status (..),+    newStatus,++    -- ** Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- ** TeamDrive+    TeamDrive (..),+    newTeamDrive,++    -- ** TeamDrive_BackgroundImageFile+    TeamDrive_BackgroundImageFile (..),+    newTeamDrive_BackgroundImageFile,++    -- ** TeamDrive_Capabilities+    TeamDrive_Capabilities (..),+    newTeamDrive_Capabilities,++    -- ** TeamDrive_Restrictions+    TeamDrive_Restrictions (..),+    newTeamDrive_Restrictions,++    -- ** TeamDriveList+    TeamDriveList (..),+    newTeamDriveList,++    -- ** User+    User (..),+    newUser,++    -- ** FilesListCorpus+    FilesListCorpus (..),+  )+where++import Gogol.Drive.Internal.Product+import Gogol.Drive.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Default request referring to version @v3@ of the Google Drive API. This contains the host and root path used as a starting point for constructing service requests.+driveService :: Core.ServiceConfig+driveService =+  Core.defaultService+    (Core.ServiceId "drive:v3")+    "www.googleapis.com"++-- | See, edit, create, and delete all of your Google Drive files+type Drive'FullControl = "https://www.googleapis.com/auth/drive"++-- | See, create, and delete its own configuration data in your Google Drive+type Drive'Appdata =+  "https://www.googleapis.com/auth/drive.appdata"++-- | View your Google Drive apps+type Drive'Apps'Readonly =+  "https://www.googleapis.com/auth/drive.apps.readonly"++-- | See, edit, create, and delete only the specific Google Drive files you use with this app+type Drive'File = "https://www.googleapis.com/auth/drive.file"++-- | See and download your Google Drive files that were created or edited by Google Meet.+type Drive'Meet'Readonly =+  "https://www.googleapis.com/auth/drive.meet.readonly"++-- | View and manage metadata of files in your Google Drive+type Drive'Metadata =+  "https://www.googleapis.com/auth/drive.metadata"++-- | See information about your Google Drive files+type Drive'Metadata'Readonly =+  "https://www.googleapis.com/auth/drive.metadata.readonly"++-- | View the photos, videos and albums in your Google Photos+type Drive'Photos'Readonly =+  "https://www.googleapis.com/auth/drive.photos.readonly"++-- | See and download all your Google Drive files+type Drive'Readonly =+  "https://www.googleapis.com/auth/drive.readonly"++-- | Modify your Google Apps Script scripts\' behavior+type Drive'Scripts =+  "https://www.googleapis.com/auth/drive.scripts"
− gen/Network/Google/Drive.hs 
@@ -1,806 +0,0 @@-{-# LANGUAGE DataKinds         #-}-{-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE TypeOperators     #-}--{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- |--- Module      : Network.Google.Drive--- 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)------ Manages files in Drive including uploading, downloading, searching,--- detecting changes, and updating sharing permissions.------ /See:/ <https://developers.google.com/drive/ Drive API Reference>-module Network.Google.Drive-    (-    -- * Service Configuration-      driveService--    -- * OAuth Scopes-    , driveMetadataReadOnlyScope-    , drivePhotosReadOnlyScope-    , driveAppDataScope-    , driveReadOnlyScope-    , driveScope-    , driveFileScope-    , driveMetadataScope-    , driveScriptsScope--    -- * API Declaration-    , DriveAPI--    -- * Resources--    -- ** drive.about.get-    , module Network.Google.Resource.Drive.About.Get--    -- ** drive.changes.getStartPageToken-    , module Network.Google.Resource.Drive.Changes.GetStartPageToken--    -- ** drive.changes.list-    , module Network.Google.Resource.Drive.Changes.List--    -- ** drive.changes.watch-    , module Network.Google.Resource.Drive.Changes.Watch--    -- ** drive.channels.stop-    , module Network.Google.Resource.Drive.Channels.Stop--    -- ** drive.comments.create-    , module Network.Google.Resource.Drive.Comments.Create--    -- ** drive.comments.delete-    , module Network.Google.Resource.Drive.Comments.Delete--    -- ** drive.comments.get-    , module Network.Google.Resource.Drive.Comments.Get--    -- ** drive.comments.list-    , module Network.Google.Resource.Drive.Comments.List--    -- ** drive.comments.update-    , module Network.Google.Resource.Drive.Comments.Update--    -- ** drive.drives.create-    , module Network.Google.Resource.Drive.Drives.Create--    -- ** drive.drives.delete-    , module Network.Google.Resource.Drive.Drives.Delete--    -- ** drive.drives.get-    , module Network.Google.Resource.Drive.Drives.Get--    -- ** drive.drives.hide-    , module Network.Google.Resource.Drive.Drives.Hide--    -- ** drive.drives.list-    , module Network.Google.Resource.Drive.Drives.List--    -- ** drive.drives.unhide-    , module Network.Google.Resource.Drive.Drives.Unhide--    -- ** drive.drives.update-    , module Network.Google.Resource.Drive.Drives.Update--    -- ** drive.files.copy-    , module Network.Google.Resource.Drive.Files.Copy--    -- ** drive.files.create-    , module Network.Google.Resource.Drive.Files.Create--    -- ** drive.files.delete-    , module Network.Google.Resource.Drive.Files.Delete--    -- ** drive.files.emptyTrash-    , module Network.Google.Resource.Drive.Files.EmptyTrash--    -- ** drive.files.export-    , module Network.Google.Resource.Drive.Files.Export--    -- ** drive.files.generateIds-    , module Network.Google.Resource.Drive.Files.GenerateIds--    -- ** drive.files.get-    , module Network.Google.Resource.Drive.Files.Get--    -- ** drive.files.list-    , module Network.Google.Resource.Drive.Files.List--    -- ** drive.files.update-    , module Network.Google.Resource.Drive.Files.Update--    -- ** drive.files.watch-    , module Network.Google.Resource.Drive.Files.Watch--    -- ** drive.permissions.create-    , module Network.Google.Resource.Drive.Permissions.Create--    -- ** drive.permissions.delete-    , module Network.Google.Resource.Drive.Permissions.Delete--    -- ** drive.permissions.get-    , module Network.Google.Resource.Drive.Permissions.Get--    -- ** drive.permissions.list-    , module Network.Google.Resource.Drive.Permissions.List--    -- ** drive.permissions.update-    , module Network.Google.Resource.Drive.Permissions.Update--    -- ** drive.replies.create-    , module Network.Google.Resource.Drive.Replies.Create--    -- ** drive.replies.delete-    , module Network.Google.Resource.Drive.Replies.Delete--    -- ** drive.replies.get-    , module Network.Google.Resource.Drive.Replies.Get--    -- ** drive.replies.list-    , module Network.Google.Resource.Drive.Replies.List--    -- ** drive.replies.update-    , module Network.Google.Resource.Drive.Replies.Update--    -- ** drive.revisions.delete-    , module Network.Google.Resource.Drive.Revisions.Delete--    -- ** drive.revisions.get-    , module Network.Google.Resource.Drive.Revisions.Get--    -- ** drive.revisions.list-    , module Network.Google.Resource.Drive.Revisions.List--    -- ** drive.revisions.update-    , module Network.Google.Resource.Drive.Revisions.Update--    -- ** drive.teamdrives.create-    , module Network.Google.Resource.Drive.Teamdrives.Create--    -- ** drive.teamdrives.delete-    , module Network.Google.Resource.Drive.Teamdrives.Delete--    -- ** drive.teamdrives.get-    , module Network.Google.Resource.Drive.Teamdrives.Get--    -- ** drive.teamdrives.list-    , module Network.Google.Resource.Drive.Teamdrives.List--    -- ** drive.teamdrives.update-    , module Network.Google.Resource.Drive.Teamdrives.Update--    -- * Types--    -- ** FileList-    , FileList-    , fileList-    , flNextPageToken-    , flIncompleteSearch-    , flKind-    , flFiles--    -- ** Drive-    , Drive-    , drive-    , dThemeId-    , dBackgRoundImageFile-    , dColorRgb-    , dCreatedTime-    , dKind-    , dBackgRoundImageLink-    , dName-    , dRestrictions-    , dHidden-    , dId-    , dCapabilities--    -- ** TeamDriveCapabilities-    , TeamDriveCapabilities-    , teamDriveCapabilities-    , tdcCanRename-    , tdcCanChangeTeamMembersOnlyRestriction-    , tdcCanComment-    , tdcCanRenameTeamDrive-    , tdcCanChangeTeamDriveBackgRound-    , tdcCanDownload-    , tdcCanChangeDomainUsersOnlyRestriction-    , tdcCanTrashChildren-    , tdcCanAddChildren-    , tdcCanRemoveChildren-    , tdcCanChangeCopyRequiresWriterPermissionRestriction-    , tdcCanDeleteTeamDrive-    , tdcCanListChildren-    , tdcCanEdit-    , tdcCanManageMembers-    , tdcCanReadRevisions-    , tdcCanDeleteChildren-    , tdcCanCopy-    , tdcCanShare--    -- ** PermissionPermissionDetailsItem-    , PermissionPermissionDetailsItem-    , permissionPermissionDetailsItem-    , ppdiInherited-    , ppdiPermissionType-    , ppdiRole-    , ppdiInheritedFrom--    -- ** FilesListCorpus-    , FilesListCorpus (..)--    -- ** CommentQuotedFileContent-    , CommentQuotedFileContent-    , commentQuotedFileContent-    , cqfcValue-    , cqfcMimeType--    -- ** DriveCapabilities-    , DriveCapabilities-    , driveCapabilities-    , dcCanRename-    , dcCanComment-    , dcCanChangeDriveBackgRound-    , dcCanRenameDrive-    , dcCanDownload-    , dcCanChangeDomainUsersOnlyRestriction-    , dcCanTrashChildren-    , dcCanAddChildren-    , dcCanChangeCopyRequiresWriterPermissionRestriction-    , dcCanChangeDriveMembersOnlyRestriction-    , dcCanListChildren-    , dcCanEdit-    , dcCanManageMembers-    , dcCanReadRevisions-    , dcCanDeleteChildren-    , dcCanCopy-    , dcCanDeleteDrive-    , dcCanShare--    -- ** AboutStorageQuota-    , AboutStorageQuota-    , aboutStorageQuota-    , asqUsageInDriveTrash-    , asqLimit-    , asqUsage-    , asqUsageInDrive--    -- ** Reply-    , Reply-    , reply-    , rHTMLContent-    , rModifiedTime-    , rCreatedTime-    , rKind-    , rAction-    , rContent-    , rAuthor-    , rId-    , rDeleted--    -- ** AboutImportFormats-    , AboutImportFormats-    , aboutImportFormats-    , aifAddtional--    -- ** FileCapabilities-    , FileCapabilities-    , fileCapabilities-    , fcCanRename-    , fcCanComment-    , fcCanMoveChildrenWithinDrive-    , fcCanMoveChildrenWithinTeamDrive-    , fcCanDelete-    , fcCanMoveItemIntoTeamDrive-    , fcCanDownload-    , fcCanTrash-    , fcCanUntrash-    , fcCanTrashChildren-    , fcCanMoveItemOutOfDrive-    , fcCanAddChildren-    , fcCanRemoveChildren-    , fcCanMoveTeamDriveItem-    , fcCanMoveItemWithinTeamDrive-    , fcCanReadTeamDrive-    , fcCanReadDrive-    , fcCanChangeCopyRequiresWriterPermission-    , fcCanMoveChildrenOutOfDrive-    , fcCanListChildren-    , fcCanMoveChildrenOutOfTeamDrive-    , fcCanEdit-    , fcCanChangeViewersCanCopyContent-    , fcCanReadRevisions-    , fcCanDeleteChildren-    , fcCanMoveItemOutOfTeamDrive-    , fcCanCopy-    , fcCanMoveItemWithinDrive-    , fcCanShare--    -- ** ReplyList-    , ReplyList-    , replyList-    , rlNextPageToken-    , rlKind-    , rlReplies--    -- ** DriveBackgRoundImageFile-    , DriveBackgRoundImageFile-    , driveBackgRoundImageFile-    , dbrifXCoordinate-    , dbrifYCoordinate-    , dbrifWidth-    , dbrifId--    -- ** FileContentHintsThumbnail-    , FileContentHintsThumbnail-    , fileContentHintsThumbnail-    , fchtImage-    , fchtMimeType--    -- ** TeamDriveList-    , TeamDriveList-    , teamDriveList-    , tdlNextPageToken-    , tdlTeamDrives-    , tdlKind--    -- ** Channel-    , Channel-    , channel-    , cResourceURI-    , cResourceId-    , cKind-    , cExpiration-    , cToken-    , cAddress-    , cPayload-    , cParams-    , cId-    , cType--    -- ** AboutTeamDriveThemesItem-    , AboutTeamDriveThemesItem-    , aboutTeamDriveThemesItem-    , atdtiColorRgb-    , atdtiBackgRoundImageLink-    , atdtiId--    -- ** TeamDriveRestrictions-    , TeamDriveRestrictions-    , teamDriveRestrictions-    , tdrTeamMembersOnly-    , tdrAdminManagedRestrictions-    , tdrCopyRequiresWriterPermission-    , tdrDomainUsersOnly--    -- ** TeamDriveBackgRoundImageFile-    , TeamDriveBackgRoundImageFile-    , teamDriveBackgRoundImageFile-    , tdbrifXCoordinate-    , tdbrifYCoordinate-    , tdbrifWidth-    , tdbrifId--    -- ** FileVideoMediaMetadata-    , FileVideoMediaMetadata-    , fileVideoMediaMetadata-    , fvmmHeight-    , fvmmWidth-    , fvmmDurationMillis--    -- ** FileAppProperties-    , FileAppProperties-    , fileAppProperties-    , fapAddtional--    -- ** Change-    , Change-    , change-    , chaDrive-    , chaRemoved-    , chaTime-    , chaKind-    , chaTeamDrive-    , chaTeamDriveId-    , chaType-    , chaFileId-    , chaFile-    , chaChangeType-    , chaDriveId--    -- ** TeamDrive-    , TeamDrive-    , teamDrive-    , tdThemeId-    , tdBackgRoundImageFile-    , tdColorRgb-    , tdCreatedTime-    , tdKind-    , tdBackgRoundImageLink-    , tdName-    , tdRestrictions-    , tdId-    , tdCapabilities--    -- ** AboutExportFormats-    , AboutExportFormats-    , aboutExportFormats-    , aefAddtional--    -- ** User-    , User-    , user-    , uPhotoLink-    , uMe-    , uKind-    , uEmailAddress-    , uDisplayName-    , uPermissionId--    -- ** ChangeList-    , ChangeList-    , changeList-    , clNewStartPageToken-    , clNextPageToken-    , clChanges-    , clKind--    -- ** RevisionExportLinks-    , RevisionExportLinks-    , revisionExportLinks-    , relAddtional--    -- ** FileContentHints-    , FileContentHints-    , fileContentHints-    , fchThumbnail-    , fchIndexableText--    -- ** ChannelParams-    , ChannelParams-    , channelParams-    , cpAddtional--    -- ** FileProperties-    , FileProperties-    , fileProperties-    , fpAddtional--    -- ** AboutMaxImportSizes-    , AboutMaxImportSizes-    , aboutMaxImportSizes-    , amisAddtional--    -- ** About-    , About-    , about-    , aExportFormats-    , aMaxImportSizes-    , aCanCreateTeamDrives-    , aImportFormats-    , aKind-    , aDriveThemes-    , aAppInstalled-    , aUser-    , aStorageQuota-    , aCanCreateDrives-    , aMaxUploadSize-    , aTeamDriveThemes-    , aFolderColorPalette--    -- ** FileImageMediaMetadataLocation-    , FileImageMediaMetadataLocation-    , fileImageMediaMetadataLocation-    , fimmlLatitude-    , fimmlAltitude-    , fimmlLongitude--    -- ** StartPageToken-    , StartPageToken-    , startPageToken-    , sptKind-    , sptStartPageToken--    -- ** FileImageMediaMetadata-    , FileImageMediaMetadata-    , fileImageMediaMetadata-    , fimmRotation-    , fimmHeight-    , fimmSubjectDistance-    , fimmMaxApertureValue-    , fimmIsoSpeed-    , fimmTime-    , fimmLocation-    , fimmAperture-    , fimmFocalLength-    , fimmCameraMake-    , fimmWidth-    , fimmExposureTime-    , fimmCameraModel-    , fimmWhiteBalance-    , fimmLens-    , fimmFlashUsed-    , fimmExposureBias-    , fimmMeteringMode-    , fimmExposureMode-    , fimmSensor-    , fimmColorSpace--    -- ** Comment-    , Comment-    , comment-    , comHTMLContent-    , comModifiedTime-    , comCreatedTime-    , comKind-    , comResolved-    , comQuotedFileContent-    , comAnchor-    , comContent-    , comReplies-    , comAuthor-    , comId-    , comDeleted--    -- ** Revision-    , Revision-    , revision-    , revModifiedTime-    , revSize-    , revOriginalFilename-    , revKind-    , revPublished-    , revLastModifyingUser-    , revPublishAuto-    , revMD5Checksum-    , revKeepForever-    , revMimeType-    , revExportLinks-    , revPublishedOutsideDomain-    , revId--    -- ** Permission-    , Permission-    , permission-    , pPhotoLink-    , pTeamDrivePermissionDetails-    , pKind-    , pDomain-    , pRole-    , pEmailAddress-    , pAllowFileDiscovery-    , pDisplayName-    , pId-    , pDeleted-    , pType-    , pExpirationTime-    , pPermissionDetails--    -- ** DriveRestrictions-    , DriveRestrictions-    , driveRestrictions-    , drAdminManagedRestrictions-    , drDriveMembersOnly-    , drCopyRequiresWriterPermission-    , drDomainUsersOnly--    -- ** File-    , File-    , file-    , fOwnedByMe-    , fThumbnailLink-    , fFullFileExtension-    , fModifiedTime-    , fModifiedByMeTime-    , fFileExtension-    , fViewedByMe-    , fOwners-    , fViewedByMeTime-    , fModifiedByMe-    , fSize-    , fTrashed-    , fWebViewLink-    , fCreatedTime-    , fTrashedTime-    , fOriginalFilename-    , fKind-    , fLastModifyingUser-    , fIconLink-    , fHasThumbnail-    , fThumbnailVersion-    , fImageMediaMetadata-    , fExplicitlyTrashed-    , fShared-    , fMD5Checksum-    , fTeamDriveId-    , fFolderColorRgb-    , fMimeType-    , fIsAppAuthorized-    , fCopyRequiresWriterPermission-    , fName-    , fExportLinks-    , fParents-    , fStarred-    , fSpaces-    , fVersion-    , fHasAugmentedPermissions-    , fWritersCanShare-    , fTrashingUser-    , fId-    , fPermissionIds-    , fPermissions-    , fQuotaBytesUsed-    , fAppProperties-    , fVideoMediaMetadata-    , fSharedWithMeTime-    , fHeadRevisionId-    , fCapabilities-    , fDescription-    , fViewersCanCopyContent-    , fDriveId-    , fSharingUser-    , fWebContentLink-    , fContentHints-    , fProperties--    -- ** AboutDriveThemesItem-    , AboutDriveThemesItem-    , aboutDriveThemesItem-    , adtiColorRgb-    , adtiBackgRoundImageLink-    , adtiId--    -- ** PermissionTeamDrivePermissionDetailsItem-    , PermissionTeamDrivePermissionDetailsItem-    , permissionTeamDrivePermissionDetailsItem-    , ptdpdiInherited-    , ptdpdiTeamDrivePermissionType-    , ptdpdiRole-    , ptdpdiInheritedFrom--    -- ** DriveList-    , DriveList-    , driveList-    , dlNextPageToken-    , dlKind-    , dlDrives--    -- ** GeneratedIds-    , GeneratedIds-    , generatedIds-    , giSpace-    , giKind-    , giIds--    -- ** FileExportLinks-    , FileExportLinks-    , fileExportLinks-    , felAddtional--    -- ** CommentList-    , CommentList-    , commentList-    , cllNextPageToken-    , cllKind-    , cllComments--    -- ** RevisionList-    , RevisionList-    , revisionList-    , rllNextPageToken-    , rllKind-    , rllRevisions--    -- ** PermissionList-    , PermissionList-    , permissionList-    , plNextPageToken-    , plKind-    , plPermissions-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude-import           Network.Google.Resource.Drive.About.Get-import           Network.Google.Resource.Drive.Changes.GetStartPageToken-import           Network.Google.Resource.Drive.Changes.List-import           Network.Google.Resource.Drive.Changes.Watch-import           Network.Google.Resource.Drive.Channels.Stop-import           Network.Google.Resource.Drive.Comments.Create-import           Network.Google.Resource.Drive.Comments.Delete-import           Network.Google.Resource.Drive.Comments.Get-import           Network.Google.Resource.Drive.Comments.List-import           Network.Google.Resource.Drive.Comments.Update-import           Network.Google.Resource.Drive.Drives.Create-import           Network.Google.Resource.Drive.Drives.Delete-import           Network.Google.Resource.Drive.Drives.Get-import           Network.Google.Resource.Drive.Drives.Hide-import           Network.Google.Resource.Drive.Drives.List-import           Network.Google.Resource.Drive.Drives.Unhide-import           Network.Google.Resource.Drive.Drives.Update-import           Network.Google.Resource.Drive.Files.Copy-import           Network.Google.Resource.Drive.Files.Create-import           Network.Google.Resource.Drive.Files.Delete-import           Network.Google.Resource.Drive.Files.EmptyTrash-import           Network.Google.Resource.Drive.Files.Export-import           Network.Google.Resource.Drive.Files.GenerateIds-import           Network.Google.Resource.Drive.Files.Get-import           Network.Google.Resource.Drive.Files.List-import           Network.Google.Resource.Drive.Files.Update-import           Network.Google.Resource.Drive.Files.Watch-import           Network.Google.Resource.Drive.Permissions.Create-import           Network.Google.Resource.Drive.Permissions.Delete-import           Network.Google.Resource.Drive.Permissions.Get-import           Network.Google.Resource.Drive.Permissions.List-import           Network.Google.Resource.Drive.Permissions.Update-import           Network.Google.Resource.Drive.Replies.Create-import           Network.Google.Resource.Drive.Replies.Delete-import           Network.Google.Resource.Drive.Replies.Get-import           Network.Google.Resource.Drive.Replies.List-import           Network.Google.Resource.Drive.Replies.Update-import           Network.Google.Resource.Drive.Revisions.Delete-import           Network.Google.Resource.Drive.Revisions.Get-import           Network.Google.Resource.Drive.Revisions.List-import           Network.Google.Resource.Drive.Revisions.Update-import           Network.Google.Resource.Drive.Teamdrives.Create-import           Network.Google.Resource.Drive.Teamdrives.Delete-import           Network.Google.Resource.Drive.Teamdrives.Get-import           Network.Google.Resource.Drive.Teamdrives.List-import           Network.Google.Resource.Drive.Teamdrives.Update--{- $resources-TODO--}---- | Represents the entirety of the methods and resources available for the Drive API service.-type DriveAPI =-     TeamdrivesListResource :<|> TeamdrivesGetResource-       :<|> TeamdrivesCreateResource-       :<|> TeamdrivesDeleteResource-       :<|> TeamdrivesUpdateResource-       :<|> ChangesListResource-       :<|> ChangesGetStartPageTokenResource-       :<|> ChangesWatchResource-       :<|> ChannelsStopResource-       :<|> RepliesListResource-       :<|> RepliesGetResource-       :<|> RepliesCreateResource-       :<|> RepliesDeleteResource-       :<|> RepliesUpdateResource-       :<|> DrivesListResource-       :<|> DrivesHideResource-       :<|> DrivesGetResource-       :<|> DrivesCreateResource-       :<|> DrivesUnhideResource-       :<|> DrivesDeleteResource-       :<|> DrivesUpdateResource-       :<|> AboutGetResource-       :<|> FilesExportResource-       :<|> FilesListResource-       :<|> FilesCopyResource-       :<|> FilesGetResource-       :<|> FilesEmptyTrashResource-       :<|> FilesCreateResource-       :<|> FilesGenerateIdsResource-       :<|> FilesDeleteResource-       :<|> FilesUpdateResource-       :<|> FilesWatchResource-       :<|> PermissionsListResource-       :<|> PermissionsGetResource-       :<|> PermissionsCreateResource-       :<|> PermissionsDeleteResource-       :<|> PermissionsUpdateResource-       :<|> CommentsListResource-       :<|> CommentsGetResource-       :<|> CommentsCreateResource-       :<|> CommentsDeleteResource-       :<|> CommentsUpdateResource-       :<|> RevisionsListResource-       :<|> RevisionsGetResource-       :<|> RevisionsDeleteResource-       :<|> RevisionsUpdateResource
− gen/Network/Google/Drive/Types.hs 
@@ -1,600 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.Drive.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.Drive.Types-    (-    -- * Service Configuration-      driveService--    -- * OAuth Scopes-    , driveMetadataReadOnlyScope-    , drivePhotosReadOnlyScope-    , driveAppDataScope-    , driveReadOnlyScope-    , driveScope-    , driveFileScope-    , driveMetadataScope-    , driveScriptsScope--    -- * FileList-    , FileList-    , fileList-    , flNextPageToken-    , flIncompleteSearch-    , flKind-    , flFiles--    -- * Drive-    , Drive-    , drive-    , dThemeId-    , dBackgRoundImageFile-    , dColorRgb-    , dCreatedTime-    , dKind-    , dBackgRoundImageLink-    , dName-    , dRestrictions-    , dHidden-    , dId-    , dCapabilities--    -- * TeamDriveCapabilities-    , TeamDriveCapabilities-    , teamDriveCapabilities-    , tdcCanRename-    , tdcCanChangeTeamMembersOnlyRestriction-    , tdcCanComment-    , tdcCanRenameTeamDrive-    , tdcCanChangeTeamDriveBackgRound-    , tdcCanDownload-    , tdcCanChangeDomainUsersOnlyRestriction-    , tdcCanTrashChildren-    , tdcCanAddChildren-    , tdcCanRemoveChildren-    , tdcCanChangeCopyRequiresWriterPermissionRestriction-    , tdcCanDeleteTeamDrive-    , tdcCanListChildren-    , tdcCanEdit-    , tdcCanManageMembers-    , tdcCanReadRevisions-    , tdcCanDeleteChildren-    , tdcCanCopy-    , tdcCanShare--    -- * PermissionPermissionDetailsItem-    , PermissionPermissionDetailsItem-    , permissionPermissionDetailsItem-    , ppdiInherited-    , ppdiPermissionType-    , ppdiRole-    , ppdiInheritedFrom--    -- * FilesListCorpus-    , FilesListCorpus (..)--    -- * CommentQuotedFileContent-    , CommentQuotedFileContent-    , commentQuotedFileContent-    , cqfcValue-    , cqfcMimeType--    -- * DriveCapabilities-    , DriveCapabilities-    , driveCapabilities-    , dcCanRename-    , dcCanComment-    , dcCanChangeDriveBackgRound-    , dcCanRenameDrive-    , dcCanDownload-    , dcCanChangeDomainUsersOnlyRestriction-    , dcCanTrashChildren-    , dcCanAddChildren-    , dcCanChangeCopyRequiresWriterPermissionRestriction-    , dcCanChangeDriveMembersOnlyRestriction-    , dcCanListChildren-    , dcCanEdit-    , dcCanManageMembers-    , dcCanReadRevisions-    , dcCanDeleteChildren-    , dcCanCopy-    , dcCanDeleteDrive-    , dcCanShare--    -- * AboutStorageQuota-    , AboutStorageQuota-    , aboutStorageQuota-    , asqUsageInDriveTrash-    , asqLimit-    , asqUsage-    , asqUsageInDrive--    -- * Reply-    , Reply-    , reply-    , rHTMLContent-    , rModifiedTime-    , rCreatedTime-    , rKind-    , rAction-    , rContent-    , rAuthor-    , rId-    , rDeleted--    -- * AboutImportFormats-    , AboutImportFormats-    , aboutImportFormats-    , aifAddtional--    -- * FileCapabilities-    , FileCapabilities-    , fileCapabilities-    , fcCanRename-    , fcCanComment-    , fcCanMoveChildrenWithinDrive-    , fcCanMoveChildrenWithinTeamDrive-    , fcCanDelete-    , fcCanMoveItemIntoTeamDrive-    , fcCanDownload-    , fcCanTrash-    , fcCanUntrash-    , fcCanTrashChildren-    , fcCanMoveItemOutOfDrive-    , fcCanAddChildren-    , fcCanRemoveChildren-    , fcCanMoveTeamDriveItem-    , fcCanMoveItemWithinTeamDrive-    , fcCanReadTeamDrive-    , fcCanReadDrive-    , fcCanChangeCopyRequiresWriterPermission-    , fcCanMoveChildrenOutOfDrive-    , fcCanListChildren-    , fcCanMoveChildrenOutOfTeamDrive-    , fcCanEdit-    , fcCanChangeViewersCanCopyContent-    , fcCanReadRevisions-    , fcCanDeleteChildren-    , fcCanMoveItemOutOfTeamDrive-    , fcCanCopy-    , fcCanMoveItemWithinDrive-    , fcCanShare--    -- * ReplyList-    , ReplyList-    , replyList-    , rlNextPageToken-    , rlKind-    , rlReplies--    -- * DriveBackgRoundImageFile-    , DriveBackgRoundImageFile-    , driveBackgRoundImageFile-    , dbrifXCoordinate-    , dbrifYCoordinate-    , dbrifWidth-    , dbrifId--    -- * FileContentHintsThumbnail-    , FileContentHintsThumbnail-    , fileContentHintsThumbnail-    , fchtImage-    , fchtMimeType--    -- * TeamDriveList-    , TeamDriveList-    , teamDriveList-    , tdlNextPageToken-    , tdlTeamDrives-    , tdlKind--    -- * Channel-    , Channel-    , channel-    , cResourceURI-    , cResourceId-    , cKind-    , cExpiration-    , cToken-    , cAddress-    , cPayload-    , cParams-    , cId-    , cType--    -- * AboutTeamDriveThemesItem-    , AboutTeamDriveThemesItem-    , aboutTeamDriveThemesItem-    , atdtiColorRgb-    , atdtiBackgRoundImageLink-    , atdtiId--    -- * TeamDriveRestrictions-    , TeamDriveRestrictions-    , teamDriveRestrictions-    , tdrTeamMembersOnly-    , tdrAdminManagedRestrictions-    , tdrCopyRequiresWriterPermission-    , tdrDomainUsersOnly--    -- * TeamDriveBackgRoundImageFile-    , TeamDriveBackgRoundImageFile-    , teamDriveBackgRoundImageFile-    , tdbrifXCoordinate-    , tdbrifYCoordinate-    , tdbrifWidth-    , tdbrifId--    -- * FileVideoMediaMetadata-    , FileVideoMediaMetadata-    , fileVideoMediaMetadata-    , fvmmHeight-    , fvmmWidth-    , fvmmDurationMillis--    -- * FileAppProperties-    , FileAppProperties-    , fileAppProperties-    , fapAddtional--    -- * Change-    , Change-    , change-    , chaDrive-    , chaRemoved-    , chaTime-    , chaKind-    , chaTeamDrive-    , chaTeamDriveId-    , chaType-    , chaFileId-    , chaFile-    , chaChangeType-    , chaDriveId--    -- * TeamDrive-    , TeamDrive-    , teamDrive-    , tdThemeId-    , tdBackgRoundImageFile-    , tdColorRgb-    , tdCreatedTime-    , tdKind-    , tdBackgRoundImageLink-    , tdName-    , tdRestrictions-    , tdId-    , tdCapabilities--    -- * AboutExportFormats-    , AboutExportFormats-    , aboutExportFormats-    , aefAddtional--    -- * User-    , User-    , user-    , uPhotoLink-    , uMe-    , uKind-    , uEmailAddress-    , uDisplayName-    , uPermissionId--    -- * ChangeList-    , ChangeList-    , changeList-    , clNewStartPageToken-    , clNextPageToken-    , clChanges-    , clKind--    -- * RevisionExportLinks-    , RevisionExportLinks-    , revisionExportLinks-    , relAddtional--    -- * FileContentHints-    , FileContentHints-    , fileContentHints-    , fchThumbnail-    , fchIndexableText--    -- * ChannelParams-    , ChannelParams-    , channelParams-    , cpAddtional--    -- * FileProperties-    , FileProperties-    , fileProperties-    , fpAddtional--    -- * AboutMaxImportSizes-    , AboutMaxImportSizes-    , aboutMaxImportSizes-    , amisAddtional--    -- * About-    , About-    , about-    , aExportFormats-    , aMaxImportSizes-    , aCanCreateTeamDrives-    , aImportFormats-    , aKind-    , aDriveThemes-    , aAppInstalled-    , aUser-    , aStorageQuota-    , aCanCreateDrives-    , aMaxUploadSize-    , aTeamDriveThemes-    , aFolderColorPalette--    -- * FileImageMediaMetadataLocation-    , FileImageMediaMetadataLocation-    , fileImageMediaMetadataLocation-    , fimmlLatitude-    , fimmlAltitude-    , fimmlLongitude--    -- * StartPageToken-    , StartPageToken-    , startPageToken-    , sptKind-    , sptStartPageToken--    -- * FileImageMediaMetadata-    , FileImageMediaMetadata-    , fileImageMediaMetadata-    , fimmRotation-    , fimmHeight-    , fimmSubjectDistance-    , fimmMaxApertureValue-    , fimmIsoSpeed-    , fimmTime-    , fimmLocation-    , fimmAperture-    , fimmFocalLength-    , fimmCameraMake-    , fimmWidth-    , fimmExposureTime-    , fimmCameraModel-    , fimmWhiteBalance-    , fimmLens-    , fimmFlashUsed-    , fimmExposureBias-    , fimmMeteringMode-    , fimmExposureMode-    , fimmSensor-    , fimmColorSpace--    -- * Comment-    , Comment-    , comment-    , comHTMLContent-    , comModifiedTime-    , comCreatedTime-    , comKind-    , comResolved-    , comQuotedFileContent-    , comAnchor-    , comContent-    , comReplies-    , comAuthor-    , comId-    , comDeleted--    -- * Revision-    , Revision-    , revision-    , revModifiedTime-    , revSize-    , revOriginalFilename-    , revKind-    , revPublished-    , revLastModifyingUser-    , revPublishAuto-    , revMD5Checksum-    , revKeepForever-    , revMimeType-    , revExportLinks-    , revPublishedOutsideDomain-    , revId--    -- * Permission-    , Permission-    , permission-    , pPhotoLink-    , pTeamDrivePermissionDetails-    , pKind-    , pDomain-    , pRole-    , pEmailAddress-    , pAllowFileDiscovery-    , pDisplayName-    , pId-    , pDeleted-    , pType-    , pExpirationTime-    , pPermissionDetails--    -- * DriveRestrictions-    , DriveRestrictions-    , driveRestrictions-    , drAdminManagedRestrictions-    , drDriveMembersOnly-    , drCopyRequiresWriterPermission-    , drDomainUsersOnly--    -- * File-    , File-    , file-    , fOwnedByMe-    , fThumbnailLink-    , fFullFileExtension-    , fModifiedTime-    , fModifiedByMeTime-    , fFileExtension-    , fViewedByMe-    , fOwners-    , fViewedByMeTime-    , fModifiedByMe-    , fSize-    , fTrashed-    , fWebViewLink-    , fCreatedTime-    , fTrashedTime-    , fOriginalFilename-    , fKind-    , fLastModifyingUser-    , fIconLink-    , fHasThumbnail-    , fThumbnailVersion-    , fImageMediaMetadata-    , fExplicitlyTrashed-    , fShared-    , fMD5Checksum-    , fTeamDriveId-    , fFolderColorRgb-    , fMimeType-    , fIsAppAuthorized-    , fCopyRequiresWriterPermission-    , fName-    , fExportLinks-    , fParents-    , fStarred-    , fSpaces-    , fVersion-    , fHasAugmentedPermissions-    , fWritersCanShare-    , fTrashingUser-    , fId-    , fPermissionIds-    , fPermissions-    , fQuotaBytesUsed-    , fAppProperties-    , fVideoMediaMetadata-    , fSharedWithMeTime-    , fHeadRevisionId-    , fCapabilities-    , fDescription-    , fViewersCanCopyContent-    , fDriveId-    , fSharingUser-    , fWebContentLink-    , fContentHints-    , fProperties--    -- * AboutDriveThemesItem-    , AboutDriveThemesItem-    , aboutDriveThemesItem-    , adtiColorRgb-    , adtiBackgRoundImageLink-    , adtiId--    -- * PermissionTeamDrivePermissionDetailsItem-    , PermissionTeamDrivePermissionDetailsItem-    , permissionTeamDrivePermissionDetailsItem-    , ptdpdiInherited-    , ptdpdiTeamDrivePermissionType-    , ptdpdiRole-    , ptdpdiInheritedFrom--    -- * DriveList-    , DriveList-    , driveList-    , dlNextPageToken-    , dlKind-    , dlDrives--    -- * GeneratedIds-    , GeneratedIds-    , generatedIds-    , giSpace-    , giKind-    , giIds--    -- * FileExportLinks-    , FileExportLinks-    , fileExportLinks-    , felAddtional--    -- * CommentList-    , CommentList-    , commentList-    , cllNextPageToken-    , cllKind-    , cllComments--    -- * RevisionList-    , RevisionList-    , revisionList-    , rllNextPageToken-    , rllKind-    , rllRevisions--    -- * PermissionList-    , PermissionList-    , permissionList-    , plNextPageToken-    , plKind-    , plPermissions-    ) where--import           Network.Google.Drive.Types.Product-import           Network.Google.Drive.Types.Sum-import           Network.Google.Prelude---- | Default request referring to version 'v3' of the Drive API. This contains the host and root path used as a starting point for constructing service requests.-driveService :: ServiceConfig-driveService-  = defaultService (ServiceId "drive:v3")-      "www.googleapis.com"---- | View metadata for files in your Google Drive-driveMetadataReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/drive.metadata.readonly"]-driveMetadataReadOnlyScope = Proxy---- | View the photos, videos and albums in your Google Photos-drivePhotosReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/drive.photos.readonly"]-drivePhotosReadOnlyScope = Proxy---- | View and manage its own configuration data in your Google Drive-driveAppDataScope :: Proxy '["https://www.googleapis.com/auth/drive.appdata"]-driveAppDataScope = Proxy---- | See and download all your Google Drive files-driveReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/drive.readonly"]-driveReadOnlyScope = Proxy---- | See, edit, create, and delete all of your Google Drive files-driveScope :: Proxy '["https://www.googleapis.com/auth/drive"]-driveScope = Proxy---- | View and manage Google Drive files and folders that you have opened or--- created with this app-driveFileScope :: Proxy '["https://www.googleapis.com/auth/drive.file"]-driveFileScope = Proxy---- | View and manage metadata of files in your Google Drive-driveMetadataScope :: Proxy '["https://www.googleapis.com/auth/drive.metadata"]-driveMetadataScope = Proxy---- | Modify your Google Apps Script scripts\' behavior-driveScriptsScope :: Proxy '["https://www.googleapis.com/auth/drive.scripts"]-driveScriptsScope = Proxy
− gen/Network/Google/Drive/Types/Product.hs 
@@ -1,5569 +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.Drive.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.Drive.Types.Product where--import           Network.Google.Drive.Types.Sum-import           Network.Google.Prelude---- | A list of files.------ /See:/ 'fileList' smart constructor.-data FileList =-  FileList'-    { _flNextPageToken    :: !(Maybe Text)-    , _flIncompleteSearch :: !(Maybe Bool)-    , _flKind             :: !Text-    , _flFiles            :: !(Maybe [File])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FileList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'flNextPageToken'------ * 'flIncompleteSearch'------ * 'flKind'------ * 'flFiles'-fileList-    :: FileList-fileList =-  FileList'-    { _flNextPageToken = Nothing-    , _flIncompleteSearch = Nothing-    , _flKind = "drive#fileList"-    , _flFiles = Nothing-    }----- | The page token for the next page of files. This will be absent if the--- end of the files list has been reached. If the token is rejected for any--- reason, it should be discarded, and pagination should be restarted from--- the first page of results.-flNextPageToken :: Lens' FileList (Maybe Text)-flNextPageToken-  = lens _flNextPageToken-      (\ s a -> s{_flNextPageToken = a})---- | Whether the search process was incomplete. If true, then some search--- results may be missing, since all documents were not searched. This may--- occur when searching multiple drives with the \"allDrives\" corpora, but--- all corpora could not be searched. When this happens, it is suggested--- that clients narrow their query by choosing a different corpus such as--- \"user\" or \"drive\".-flIncompleteSearch :: Lens' FileList (Maybe Bool)-flIncompleteSearch-  = lens _flIncompleteSearch-      (\ s a -> s{_flIncompleteSearch = a})---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#fileList\".-flKind :: Lens' FileList Text-flKind = lens _flKind (\ s a -> s{_flKind = a})---- | The list of files. If nextPageToken is populated, then this list may be--- incomplete and an additional page of results should be fetched.-flFiles :: Lens' FileList [File]-flFiles-  = lens _flFiles (\ s a -> s{_flFiles = a}) . _Default-      . _Coerce--instance FromJSON FileList where-        parseJSON-          = withObject "FileList"-              (\ o ->-                 FileList' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "incompleteSearch")-                     <*> (o .:? "kind" .!= "drive#fileList")-                     <*> (o .:? "files" .!= mempty))--instance ToJSON FileList where-        toJSON FileList'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _flNextPageToken,-                  ("incompleteSearch" .=) <$> _flIncompleteSearch,-                  Just ("kind" .= _flKind), ("files" .=) <$> _flFiles])---- | Representation of a shared drive.------ /See:/ 'drive' smart constructor.-data Drive =-  Drive'-    { _dThemeId             :: !(Maybe Text)-    , _dBackgRoundImageFile :: !(Maybe DriveBackgRoundImageFile)-    , _dColorRgb            :: !(Maybe Text)-    , _dCreatedTime         :: !(Maybe DateTime')-    , _dKind                :: !Text-    , _dBackgRoundImageLink :: !(Maybe Text)-    , _dName                :: !(Maybe Text)-    , _dRestrictions        :: !(Maybe DriveRestrictions)-    , _dHidden              :: !(Maybe Bool)-    , _dId                  :: !(Maybe Text)-    , _dCapabilities        :: !(Maybe DriveCapabilities)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Drive' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dThemeId'------ * 'dBackgRoundImageFile'------ * 'dColorRgb'------ * 'dCreatedTime'------ * 'dKind'------ * 'dBackgRoundImageLink'------ * 'dName'------ * 'dRestrictions'------ * 'dHidden'------ * 'dId'------ * 'dCapabilities'-drive-    :: Drive-drive =-  Drive'-    { _dThemeId = Nothing-    , _dBackgRoundImageFile = Nothing-    , _dColorRgb = Nothing-    , _dCreatedTime = Nothing-    , _dKind = "drive#drive"-    , _dBackgRoundImageLink = Nothing-    , _dName = Nothing-    , _dRestrictions = Nothing-    , _dHidden = Nothing-    , _dId = Nothing-    , _dCapabilities = Nothing-    }----- | The ID of the theme from which the background image and color will be--- set. The set of possible driveThemes can be retrieved from a--- drive.about.get response. When not specified on a drive.drives.create--- request, a random theme is chosen from which the background image and--- color are set. This is a write-only field; it can only be set on--- requests that don\'t set colorRgb or backgroundImageFile.-dThemeId :: Lens' Drive (Maybe Text)-dThemeId = lens _dThemeId (\ s a -> s{_dThemeId = a})---- | An image file and cropping parameters from which a background image for--- this shared drive is set. This is a write only field; it can only be set--- on drive.drives.update requests that don\'t set themeId. When specified,--- all fields of the backgroundImageFile must be set.-dBackgRoundImageFile :: Lens' Drive (Maybe DriveBackgRoundImageFile)-dBackgRoundImageFile-  = lens _dBackgRoundImageFile-      (\ s a -> s{_dBackgRoundImageFile = a})---- | The color of this shared drive as an RGB hex string. It can only be set--- on a drive.drives.update request that does not set themeId.-dColorRgb :: Lens' Drive (Maybe Text)-dColorRgb-  = lens _dColorRgb (\ s a -> s{_dColorRgb = a})---- | The time at which the shared drive was created (RFC 3339 date-time).-dCreatedTime :: Lens' Drive (Maybe UTCTime)-dCreatedTime-  = lens _dCreatedTime (\ s a -> s{_dCreatedTime = a})-      . mapping _DateTime---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#drive\".-dKind :: Lens' Drive Text-dKind = lens _dKind (\ s a -> s{_dKind = a})---- | A short-lived link to this shared drive\'s background image.-dBackgRoundImageLink :: Lens' Drive (Maybe Text)-dBackgRoundImageLink-  = lens _dBackgRoundImageLink-      (\ s a -> s{_dBackgRoundImageLink = a})---- | The name of this shared drive.-dName :: Lens' Drive (Maybe Text)-dName = lens _dName (\ s a -> s{_dName = a})---- | A set of restrictions that apply to this shared drive or items inside--- this shared drive.-dRestrictions :: Lens' Drive (Maybe DriveRestrictions)-dRestrictions-  = lens _dRestrictions-      (\ s a -> s{_dRestrictions = a})---- | Whether the shared drive is hidden from default view.-dHidden :: Lens' Drive (Maybe Bool)-dHidden = lens _dHidden (\ s a -> s{_dHidden = a})---- | The ID of this shared drive which is also the ID of the top level folder--- of this shared drive.-dId :: Lens' Drive (Maybe Text)-dId = lens _dId (\ s a -> s{_dId = a})---- | Capabilities the current user has on this shared drive.-dCapabilities :: Lens' Drive (Maybe DriveCapabilities)-dCapabilities-  = lens _dCapabilities-      (\ s a -> s{_dCapabilities = a})--instance FromJSON Drive where-        parseJSON-          = withObject "Drive"-              (\ o ->-                 Drive' <$>-                   (o .:? "themeId") <*> (o .:? "backgroundImageFile")-                     <*> (o .:? "colorRgb")-                     <*> (o .:? "createdTime")-                     <*> (o .:? "kind" .!= "drive#drive")-                     <*> (o .:? "backgroundImageLink")-                     <*> (o .:? "name")-                     <*> (o .:? "restrictions")-                     <*> (o .:? "hidden")-                     <*> (o .:? "id")-                     <*> (o .:? "capabilities"))--instance ToJSON Drive where-        toJSON Drive'{..}-          = object-              (catMaybes-                 [("themeId" .=) <$> _dThemeId,-                  ("backgroundImageFile" .=) <$> _dBackgRoundImageFile,-                  ("colorRgb" .=) <$> _dColorRgb,-                  ("createdTime" .=) <$> _dCreatedTime,-                  Just ("kind" .= _dKind),-                  ("backgroundImageLink" .=) <$> _dBackgRoundImageLink,-                  ("name" .=) <$> _dName,-                  ("restrictions" .=) <$> _dRestrictions,-                  ("hidden" .=) <$> _dHidden, ("id" .=) <$> _dId,-                  ("capabilities" .=) <$> _dCapabilities])---- | Capabilities the current user has on this Team Drive.------ /See:/ 'teamDriveCapabilities' smart constructor.-data TeamDriveCapabilities =-  TeamDriveCapabilities'-    { _tdcCanRename                                        :: !(Maybe Bool)-    , _tdcCanChangeTeamMembersOnlyRestriction              :: !(Maybe Bool)-    , _tdcCanComment                                       :: !(Maybe Bool)-    , _tdcCanRenameTeamDrive                               :: !(Maybe Bool)-    , _tdcCanChangeTeamDriveBackgRound                     :: !(Maybe Bool)-    , _tdcCanDownload                                      :: !(Maybe Bool)-    , _tdcCanChangeDomainUsersOnlyRestriction              :: !(Maybe Bool)-    , _tdcCanTrashChildren                                 :: !(Maybe Bool)-    , _tdcCanAddChildren                                   :: !(Maybe Bool)-    , _tdcCanRemoveChildren                                :: !(Maybe Bool)-    , _tdcCanChangeCopyRequiresWriterPermissionRestriction :: !(Maybe Bool)-    , _tdcCanDeleteTeamDrive                               :: !(Maybe Bool)-    , _tdcCanListChildren                                  :: !(Maybe Bool)-    , _tdcCanEdit                                          :: !(Maybe Bool)-    , _tdcCanManageMembers                                 :: !(Maybe Bool)-    , _tdcCanReadRevisions                                 :: !(Maybe Bool)-    , _tdcCanDeleteChildren                                :: !(Maybe Bool)-    , _tdcCanCopy                                          :: !(Maybe Bool)-    , _tdcCanShare                                         :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TeamDriveCapabilities' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tdcCanRename'------ * 'tdcCanChangeTeamMembersOnlyRestriction'------ * 'tdcCanComment'------ * 'tdcCanRenameTeamDrive'------ * 'tdcCanChangeTeamDriveBackgRound'------ * 'tdcCanDownload'------ * 'tdcCanChangeDomainUsersOnlyRestriction'------ * 'tdcCanTrashChildren'------ * 'tdcCanAddChildren'------ * 'tdcCanRemoveChildren'------ * 'tdcCanChangeCopyRequiresWriterPermissionRestriction'------ * 'tdcCanDeleteTeamDrive'------ * 'tdcCanListChildren'------ * 'tdcCanEdit'------ * 'tdcCanManageMembers'------ * 'tdcCanReadRevisions'------ * 'tdcCanDeleteChildren'------ * 'tdcCanCopy'------ * 'tdcCanShare'-teamDriveCapabilities-    :: TeamDriveCapabilities-teamDriveCapabilities =-  TeamDriveCapabilities'-    { _tdcCanRename = Nothing-    , _tdcCanChangeTeamMembersOnlyRestriction = Nothing-    , _tdcCanComment = Nothing-    , _tdcCanRenameTeamDrive = Nothing-    , _tdcCanChangeTeamDriveBackgRound = Nothing-    , _tdcCanDownload = Nothing-    , _tdcCanChangeDomainUsersOnlyRestriction = Nothing-    , _tdcCanTrashChildren = Nothing-    , _tdcCanAddChildren = Nothing-    , _tdcCanRemoveChildren = Nothing-    , _tdcCanChangeCopyRequiresWriterPermissionRestriction = Nothing-    , _tdcCanDeleteTeamDrive = Nothing-    , _tdcCanListChildren = Nothing-    , _tdcCanEdit = Nothing-    , _tdcCanManageMembers = Nothing-    , _tdcCanReadRevisions = Nothing-    , _tdcCanDeleteChildren = Nothing-    , _tdcCanCopy = Nothing-    , _tdcCanShare = Nothing-    }----- | Whether the current user can rename files or folders in this Team Drive.-tdcCanRename :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanRename-  = lens _tdcCanRename (\ s a -> s{_tdcCanRename = a})---- | Whether the current user can change the teamMembersOnly restriction of--- this Team Drive.-tdcCanChangeTeamMembersOnlyRestriction :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanChangeTeamMembersOnlyRestriction-  = lens _tdcCanChangeTeamMembersOnlyRestriction-      (\ s a ->-         s{_tdcCanChangeTeamMembersOnlyRestriction = a})---- | Whether the current user can comment on files in this Team Drive.-tdcCanComment :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanComment-  = lens _tdcCanComment-      (\ s a -> s{_tdcCanComment = a})---- | Whether the current user can rename this Team Drive.-tdcCanRenameTeamDrive :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanRenameTeamDrive-  = lens _tdcCanRenameTeamDrive-      (\ s a -> s{_tdcCanRenameTeamDrive = a})---- | Whether the current user can change the background of this Team Drive.-tdcCanChangeTeamDriveBackgRound :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanChangeTeamDriveBackgRound-  = lens _tdcCanChangeTeamDriveBackgRound-      (\ s a -> s{_tdcCanChangeTeamDriveBackgRound = a})---- | Whether the current user can download files in this Team Drive.-tdcCanDownload :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanDownload-  = lens _tdcCanDownload-      (\ s a -> s{_tdcCanDownload = a})---- | Whether the current user can change the domainUsersOnly restriction of--- this Team Drive.-tdcCanChangeDomainUsersOnlyRestriction :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanChangeDomainUsersOnlyRestriction-  = lens _tdcCanChangeDomainUsersOnlyRestriction-      (\ s a ->-         s{_tdcCanChangeDomainUsersOnlyRestriction = a})---- | Whether the current user can trash children from folders in this Team--- Drive.-tdcCanTrashChildren :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanTrashChildren-  = lens _tdcCanTrashChildren-      (\ s a -> s{_tdcCanTrashChildren = a})---- | Whether the current user can add children to folders in this Team Drive.-tdcCanAddChildren :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanAddChildren-  = lens _tdcCanAddChildren-      (\ s a -> s{_tdcCanAddChildren = a})---- | Deprecated - use canDeleteChildren or canTrashChildren instead.-tdcCanRemoveChildren :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanRemoveChildren-  = lens _tdcCanRemoveChildren-      (\ s a -> s{_tdcCanRemoveChildren = a})---- | Whether the current user can change the copyRequiresWriterPermission--- restriction of this Team Drive.-tdcCanChangeCopyRequiresWriterPermissionRestriction :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanChangeCopyRequiresWriterPermissionRestriction-  = lens-      _tdcCanChangeCopyRequiresWriterPermissionRestriction-      (\ s a ->-         s{_tdcCanChangeCopyRequiresWriterPermissionRestriction-             = a})---- | Whether the current user can delete this Team Drive. Attempting to--- delete the Team Drive may still fail if there are untrashed items inside--- the Team Drive.-tdcCanDeleteTeamDrive :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanDeleteTeamDrive-  = lens _tdcCanDeleteTeamDrive-      (\ s a -> s{_tdcCanDeleteTeamDrive = a})---- | Whether the current user can list the children of folders in this Team--- Drive.-tdcCanListChildren :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanListChildren-  = lens _tdcCanListChildren-      (\ s a -> s{_tdcCanListChildren = a})---- | Whether the current user can edit files in this Team Drive-tdcCanEdit :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanEdit-  = lens _tdcCanEdit (\ s a -> s{_tdcCanEdit = a})---- | Whether the current user can add members to this Team Drive or remove--- them or change their role.-tdcCanManageMembers :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanManageMembers-  = lens _tdcCanManageMembers-      (\ s a -> s{_tdcCanManageMembers = a})---- | Whether the current user can read the revisions resource of files in--- this Team Drive.-tdcCanReadRevisions :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanReadRevisions-  = lens _tdcCanReadRevisions-      (\ s a -> s{_tdcCanReadRevisions = a})---- | Whether the current user can delete children from folders in this Team--- Drive.-tdcCanDeleteChildren :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanDeleteChildren-  = lens _tdcCanDeleteChildren-      (\ s a -> s{_tdcCanDeleteChildren = a})---- | Whether the current user can copy files in this Team Drive.-tdcCanCopy :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanCopy-  = lens _tdcCanCopy (\ s a -> s{_tdcCanCopy = a})---- | Whether the current user can share files or folders in this Team Drive.-tdcCanShare :: Lens' TeamDriveCapabilities (Maybe Bool)-tdcCanShare-  = lens _tdcCanShare (\ s a -> s{_tdcCanShare = a})--instance FromJSON TeamDriveCapabilities where-        parseJSON-          = withObject "TeamDriveCapabilities"-              (\ o ->-                 TeamDriveCapabilities' <$>-                   (o .:? "canRename") <*>-                     (o .:? "canChangeTeamMembersOnlyRestriction")-                     <*> (o .:? "canComment")-                     <*> (o .:? "canRenameTeamDrive")-                     <*> (o .:? "canChangeTeamDriveBackground")-                     <*> (o .:? "canDownload")-                     <*> (o .:? "canChangeDomainUsersOnlyRestriction")-                     <*> (o .:? "canTrashChildren")-                     <*> (o .:? "canAddChildren")-                     <*> (o .:? "canRemoveChildren")-                     <*>-                     (o .:?-                        "canChangeCopyRequiresWriterPermissionRestriction")-                     <*> (o .:? "canDeleteTeamDrive")-                     <*> (o .:? "canListChildren")-                     <*> (o .:? "canEdit")-                     <*> (o .:? "canManageMembers")-                     <*> (o .:? "canReadRevisions")-                     <*> (o .:? "canDeleteChildren")-                     <*> (o .:? "canCopy")-                     <*> (o .:? "canShare"))--instance ToJSON TeamDriveCapabilities where-        toJSON TeamDriveCapabilities'{..}-          = object-              (catMaybes-                 [("canRename" .=) <$> _tdcCanRename,-                  ("canChangeTeamMembersOnlyRestriction" .=) <$>-                    _tdcCanChangeTeamMembersOnlyRestriction,-                  ("canComment" .=) <$> _tdcCanComment,-                  ("canRenameTeamDrive" .=) <$> _tdcCanRenameTeamDrive,-                  ("canChangeTeamDriveBackground" .=) <$>-                    _tdcCanChangeTeamDriveBackgRound,-                  ("canDownload" .=) <$> _tdcCanDownload,-                  ("canChangeDomainUsersOnlyRestriction" .=) <$>-                    _tdcCanChangeDomainUsersOnlyRestriction,-                  ("canTrashChildren" .=) <$> _tdcCanTrashChildren,-                  ("canAddChildren" .=) <$> _tdcCanAddChildren,-                  ("canRemoveChildren" .=) <$> _tdcCanRemoveChildren,-                  ("canChangeCopyRequiresWriterPermissionRestriction"-                     .=)-                    <$>-                    _tdcCanChangeCopyRequiresWriterPermissionRestriction,-                  ("canDeleteTeamDrive" .=) <$> _tdcCanDeleteTeamDrive,-                  ("canListChildren" .=) <$> _tdcCanListChildren,-                  ("canEdit" .=) <$> _tdcCanEdit,-                  ("canManageMembers" .=) <$> _tdcCanManageMembers,-                  ("canReadRevisions" .=) <$> _tdcCanReadRevisions,-                  ("canDeleteChildren" .=) <$> _tdcCanDeleteChildren,-                  ("canCopy" .=) <$> _tdcCanCopy,-                  ("canShare" .=) <$> _tdcCanShare])------- /See:/ 'permissionPermissionDetailsItem' smart constructor.-data PermissionPermissionDetailsItem =-  PermissionPermissionDetailsItem'-    { _ppdiInherited      :: !(Maybe Bool)-    , _ppdiPermissionType :: !(Maybe Text)-    , _ppdiRole           :: !(Maybe Text)-    , _ppdiInheritedFrom  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PermissionPermissionDetailsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ppdiInherited'------ * 'ppdiPermissionType'------ * 'ppdiRole'------ * 'ppdiInheritedFrom'-permissionPermissionDetailsItem-    :: PermissionPermissionDetailsItem-permissionPermissionDetailsItem =-  PermissionPermissionDetailsItem'-    { _ppdiInherited = Nothing-    , _ppdiPermissionType = Nothing-    , _ppdiRole = Nothing-    , _ppdiInheritedFrom = Nothing-    }----- | Whether this permission is inherited. This field is always populated.--- This is an output-only field.-ppdiInherited :: Lens' PermissionPermissionDetailsItem (Maybe Bool)-ppdiInherited-  = lens _ppdiInherited-      (\ s a -> s{_ppdiInherited = a})---- | The permission type for this user. While new values may be added in--- future, the following are currently possible: - file - member-ppdiPermissionType :: Lens' PermissionPermissionDetailsItem (Maybe Text)-ppdiPermissionType-  = lens _ppdiPermissionType-      (\ s a -> s{_ppdiPermissionType = a})---- | The primary role for this user. While new values may be added in the--- future, the following are currently possible: - organizer ---- fileOrganizer - writer - commenter - reader-ppdiRole :: Lens' PermissionPermissionDetailsItem (Maybe Text)-ppdiRole = lens _ppdiRole (\ s a -> s{_ppdiRole = a})---- | The ID of the item from which this permission is inherited. This is an--- output-only field and is only populated for members of the shared drive.-ppdiInheritedFrom :: Lens' PermissionPermissionDetailsItem (Maybe Text)-ppdiInheritedFrom-  = lens _ppdiInheritedFrom-      (\ s a -> s{_ppdiInheritedFrom = a})--instance FromJSON PermissionPermissionDetailsItem-         where-        parseJSON-          = withObject "PermissionPermissionDetailsItem"-              (\ o ->-                 PermissionPermissionDetailsItem' <$>-                   (o .:? "inherited") <*> (o .:? "permissionType") <*>-                     (o .:? "role")-                     <*> (o .:? "inheritedFrom"))--instance ToJSON PermissionPermissionDetailsItem where-        toJSON PermissionPermissionDetailsItem'{..}-          = object-              (catMaybes-                 [("inherited" .=) <$> _ppdiInherited,-                  ("permissionType" .=) <$> _ppdiPermissionType,-                  ("role" .=) <$> _ppdiRole,-                  ("inheritedFrom" .=) <$> _ppdiInheritedFrom])---- | The file content to which the comment refers, typically within the--- anchor region. For a text file, for example, this would be the text at--- the location of the comment.------ /See:/ 'commentQuotedFileContent' smart constructor.-data CommentQuotedFileContent =-  CommentQuotedFileContent'-    { _cqfcValue    :: !(Maybe Text)-    , _cqfcMimeType :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CommentQuotedFileContent' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cqfcValue'------ * 'cqfcMimeType'-commentQuotedFileContent-    :: CommentQuotedFileContent-commentQuotedFileContent =-  CommentQuotedFileContent' {_cqfcValue = Nothing, _cqfcMimeType = Nothing}----- | The quoted content itself. This is interpreted as plain text if set--- through the API.-cqfcValue :: Lens' CommentQuotedFileContent (Maybe Text)-cqfcValue-  = lens _cqfcValue (\ s a -> s{_cqfcValue = a})---- | The MIME type of the quoted content.-cqfcMimeType :: Lens' CommentQuotedFileContent (Maybe Text)-cqfcMimeType-  = lens _cqfcMimeType (\ s a -> s{_cqfcMimeType = a})--instance FromJSON CommentQuotedFileContent where-        parseJSON-          = withObject "CommentQuotedFileContent"-              (\ o ->-                 CommentQuotedFileContent' <$>-                   (o .:? "value") <*> (o .:? "mimeType"))--instance ToJSON CommentQuotedFileContent where-        toJSON CommentQuotedFileContent'{..}-          = object-              (catMaybes-                 [("value" .=) <$> _cqfcValue,-                  ("mimeType" .=) <$> _cqfcMimeType])---- | Capabilities the current user has on this shared drive.------ /See:/ 'driveCapabilities' smart constructor.-data DriveCapabilities =-  DriveCapabilities'-    { _dcCanRename                                        :: !(Maybe Bool)-    , _dcCanComment                                       :: !(Maybe Bool)-    , _dcCanChangeDriveBackgRound                         :: !(Maybe Bool)-    , _dcCanRenameDrive                                   :: !(Maybe Bool)-    , _dcCanDownload                                      :: !(Maybe Bool)-    , _dcCanChangeDomainUsersOnlyRestriction              :: !(Maybe Bool)-    , _dcCanTrashChildren                                 :: !(Maybe Bool)-    , _dcCanAddChildren                                   :: !(Maybe Bool)-    , _dcCanChangeCopyRequiresWriterPermissionRestriction :: !(Maybe Bool)-    , _dcCanChangeDriveMembersOnlyRestriction             :: !(Maybe Bool)-    , _dcCanListChildren                                  :: !(Maybe Bool)-    , _dcCanEdit                                          :: !(Maybe Bool)-    , _dcCanManageMembers                                 :: !(Maybe Bool)-    , _dcCanReadRevisions                                 :: !(Maybe Bool)-    , _dcCanDeleteChildren                                :: !(Maybe Bool)-    , _dcCanCopy                                          :: !(Maybe Bool)-    , _dcCanDeleteDrive                                   :: !(Maybe Bool)-    , _dcCanShare                                         :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DriveCapabilities' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcCanRename'------ * 'dcCanComment'------ * 'dcCanChangeDriveBackgRound'------ * 'dcCanRenameDrive'------ * 'dcCanDownload'------ * 'dcCanChangeDomainUsersOnlyRestriction'------ * 'dcCanTrashChildren'------ * 'dcCanAddChildren'------ * 'dcCanChangeCopyRequiresWriterPermissionRestriction'------ * 'dcCanChangeDriveMembersOnlyRestriction'------ * 'dcCanListChildren'------ * 'dcCanEdit'------ * 'dcCanManageMembers'------ * 'dcCanReadRevisions'------ * 'dcCanDeleteChildren'------ * 'dcCanCopy'------ * 'dcCanDeleteDrive'------ * 'dcCanShare'-driveCapabilities-    :: DriveCapabilities-driveCapabilities =-  DriveCapabilities'-    { _dcCanRename = Nothing-    , _dcCanComment = Nothing-    , _dcCanChangeDriveBackgRound = Nothing-    , _dcCanRenameDrive = Nothing-    , _dcCanDownload = Nothing-    , _dcCanChangeDomainUsersOnlyRestriction = Nothing-    , _dcCanTrashChildren = Nothing-    , _dcCanAddChildren = Nothing-    , _dcCanChangeCopyRequiresWriterPermissionRestriction = Nothing-    , _dcCanChangeDriveMembersOnlyRestriction = Nothing-    , _dcCanListChildren = Nothing-    , _dcCanEdit = Nothing-    , _dcCanManageMembers = Nothing-    , _dcCanReadRevisions = Nothing-    , _dcCanDeleteChildren = Nothing-    , _dcCanCopy = Nothing-    , _dcCanDeleteDrive = Nothing-    , _dcCanShare = Nothing-    }----- | Whether the current user can rename files or folders in this shared--- drive.-dcCanRename :: Lens' DriveCapabilities (Maybe Bool)-dcCanRename-  = lens _dcCanRename (\ s a -> s{_dcCanRename = a})---- | Whether the current user can comment on files in this shared drive.-dcCanComment :: Lens' DriveCapabilities (Maybe Bool)-dcCanComment-  = lens _dcCanComment (\ s a -> s{_dcCanComment = a})---- | Whether the current user can change the background of this shared drive.-dcCanChangeDriveBackgRound :: Lens' DriveCapabilities (Maybe Bool)-dcCanChangeDriveBackgRound-  = lens _dcCanChangeDriveBackgRound-      (\ s a -> s{_dcCanChangeDriveBackgRound = a})---- | Whether the current user can rename this shared drive.-dcCanRenameDrive :: Lens' DriveCapabilities (Maybe Bool)-dcCanRenameDrive-  = lens _dcCanRenameDrive-      (\ s a -> s{_dcCanRenameDrive = a})---- | Whether the current user can download files in this shared drive.-dcCanDownload :: Lens' DriveCapabilities (Maybe Bool)-dcCanDownload-  = lens _dcCanDownload-      (\ s a -> s{_dcCanDownload = a})---- | Whether the current user can change the domainUsersOnly restriction of--- this shared drive.-dcCanChangeDomainUsersOnlyRestriction :: Lens' DriveCapabilities (Maybe Bool)-dcCanChangeDomainUsersOnlyRestriction-  = lens _dcCanChangeDomainUsersOnlyRestriction-      (\ s a ->-         s{_dcCanChangeDomainUsersOnlyRestriction = a})---- | Whether the current user can trash children from folders in this shared--- drive.-dcCanTrashChildren :: Lens' DriveCapabilities (Maybe Bool)-dcCanTrashChildren-  = lens _dcCanTrashChildren-      (\ s a -> s{_dcCanTrashChildren = a})---- | Whether the current user can add children to folders in this shared--- drive.-dcCanAddChildren :: Lens' DriveCapabilities (Maybe Bool)-dcCanAddChildren-  = lens _dcCanAddChildren-      (\ s a -> s{_dcCanAddChildren = a})---- | Whether the current user can change the copyRequiresWriterPermission--- restriction of this shared drive.-dcCanChangeCopyRequiresWriterPermissionRestriction :: Lens' DriveCapabilities (Maybe Bool)-dcCanChangeCopyRequiresWriterPermissionRestriction-  = lens-      _dcCanChangeCopyRequiresWriterPermissionRestriction-      (\ s a ->-         s{_dcCanChangeCopyRequiresWriterPermissionRestriction-             = a})---- | Whether the current user can change the driveMembersOnly restriction of--- this shared drive.-dcCanChangeDriveMembersOnlyRestriction :: Lens' DriveCapabilities (Maybe Bool)-dcCanChangeDriveMembersOnlyRestriction-  = lens _dcCanChangeDriveMembersOnlyRestriction-      (\ s a ->-         s{_dcCanChangeDriveMembersOnlyRestriction = a})---- | Whether the current user can list the children of folders in this shared--- drive.-dcCanListChildren :: Lens' DriveCapabilities (Maybe Bool)-dcCanListChildren-  = lens _dcCanListChildren-      (\ s a -> s{_dcCanListChildren = a})---- | Whether the current user can edit files in this shared drive-dcCanEdit :: Lens' DriveCapabilities (Maybe Bool)-dcCanEdit-  = lens _dcCanEdit (\ s a -> s{_dcCanEdit = a})---- | Whether the current user can add members to this shared drive or remove--- them or change their role.-dcCanManageMembers :: Lens' DriveCapabilities (Maybe Bool)-dcCanManageMembers-  = lens _dcCanManageMembers-      (\ s a -> s{_dcCanManageMembers = a})---- | Whether the current user can read the revisions resource of files in--- this shared drive.-dcCanReadRevisions :: Lens' DriveCapabilities (Maybe Bool)-dcCanReadRevisions-  = lens _dcCanReadRevisions-      (\ s a -> s{_dcCanReadRevisions = a})---- | Whether the current user can delete children from folders in this shared--- drive.-dcCanDeleteChildren :: Lens' DriveCapabilities (Maybe Bool)-dcCanDeleteChildren-  = lens _dcCanDeleteChildren-      (\ s a -> s{_dcCanDeleteChildren = a})---- | Whether the current user can copy files in this shared drive.-dcCanCopy :: Lens' DriveCapabilities (Maybe Bool)-dcCanCopy-  = lens _dcCanCopy (\ s a -> s{_dcCanCopy = a})---- | Whether the current user can delete this shared drive. Attempting to--- delete the shared drive may still fail if there are untrashed items--- inside the shared drive.-dcCanDeleteDrive :: Lens' DriveCapabilities (Maybe Bool)-dcCanDeleteDrive-  = lens _dcCanDeleteDrive-      (\ s a -> s{_dcCanDeleteDrive = a})---- | Whether the current user can share files or folders in this shared--- drive.-dcCanShare :: Lens' DriveCapabilities (Maybe Bool)-dcCanShare-  = lens _dcCanShare (\ s a -> s{_dcCanShare = a})--instance FromJSON DriveCapabilities where-        parseJSON-          = withObject "DriveCapabilities"-              (\ o ->-                 DriveCapabilities' <$>-                   (o .:? "canRename") <*> (o .:? "canComment") <*>-                     (o .:? "canChangeDriveBackground")-                     <*> (o .:? "canRenameDrive")-                     <*> (o .:? "canDownload")-                     <*> (o .:? "canChangeDomainUsersOnlyRestriction")-                     <*> (o .:? "canTrashChildren")-                     <*> (o .:? "canAddChildren")-                     <*>-                     (o .:?-                        "canChangeCopyRequiresWriterPermissionRestriction")-                     <*> (o .:? "canChangeDriveMembersOnlyRestriction")-                     <*> (o .:? "canListChildren")-                     <*> (o .:? "canEdit")-                     <*> (o .:? "canManageMembers")-                     <*> (o .:? "canReadRevisions")-                     <*> (o .:? "canDeleteChildren")-                     <*> (o .:? "canCopy")-                     <*> (o .:? "canDeleteDrive")-                     <*> (o .:? "canShare"))--instance ToJSON DriveCapabilities where-        toJSON DriveCapabilities'{..}-          = object-              (catMaybes-                 [("canRename" .=) <$> _dcCanRename,-                  ("canComment" .=) <$> _dcCanComment,-                  ("canChangeDriveBackground" .=) <$>-                    _dcCanChangeDriveBackgRound,-                  ("canRenameDrive" .=) <$> _dcCanRenameDrive,-                  ("canDownload" .=) <$> _dcCanDownload,-                  ("canChangeDomainUsersOnlyRestriction" .=) <$>-                    _dcCanChangeDomainUsersOnlyRestriction,-                  ("canTrashChildren" .=) <$> _dcCanTrashChildren,-                  ("canAddChildren" .=) <$> _dcCanAddChildren,-                  ("canChangeCopyRequiresWriterPermissionRestriction"-                     .=)-                    <$>-                    _dcCanChangeCopyRequiresWriterPermissionRestriction,-                  ("canChangeDriveMembersOnlyRestriction" .=) <$>-                    _dcCanChangeDriveMembersOnlyRestriction,-                  ("canListChildren" .=) <$> _dcCanListChildren,-                  ("canEdit" .=) <$> _dcCanEdit,-                  ("canManageMembers" .=) <$> _dcCanManageMembers,-                  ("canReadRevisions" .=) <$> _dcCanReadRevisions,-                  ("canDeleteChildren" .=) <$> _dcCanDeleteChildren,-                  ("canCopy" .=) <$> _dcCanCopy,-                  ("canDeleteDrive" .=) <$> _dcCanDeleteDrive,-                  ("canShare" .=) <$> _dcCanShare])---- | The user\'s storage quota limits and usage. All fields are measured in--- bytes.------ /See:/ 'aboutStorageQuota' smart constructor.-data AboutStorageQuota =-  AboutStorageQuota'-    { _asqUsageInDriveTrash :: !(Maybe (Textual Int64))-    , _asqLimit             :: !(Maybe (Textual Int64))-    , _asqUsage             :: !(Maybe (Textual Int64))-    , _asqUsageInDrive      :: !(Maybe (Textual Int64))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AboutStorageQuota' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'asqUsageInDriveTrash'------ * 'asqLimit'------ * 'asqUsage'------ * 'asqUsageInDrive'-aboutStorageQuota-    :: AboutStorageQuota-aboutStorageQuota =-  AboutStorageQuota'-    { _asqUsageInDriveTrash = Nothing-    , _asqLimit = Nothing-    , _asqUsage = Nothing-    , _asqUsageInDrive = Nothing-    }----- | The usage by trashed files in Google Drive.-asqUsageInDriveTrash :: Lens' AboutStorageQuota (Maybe Int64)-asqUsageInDriveTrash-  = lens _asqUsageInDriveTrash-      (\ s a -> s{_asqUsageInDriveTrash = a})-      . mapping _Coerce---- | The usage limit, if applicable. This will not be present if the user has--- unlimited storage.-asqLimit :: Lens' AboutStorageQuota (Maybe Int64)-asqLimit-  = lens _asqLimit (\ s a -> s{_asqLimit = a}) .-      mapping _Coerce---- | The total usage across all services.-asqUsage :: Lens' AboutStorageQuota (Maybe Int64)-asqUsage-  = lens _asqUsage (\ s a -> s{_asqUsage = a}) .-      mapping _Coerce---- | The usage by all files in Google Drive.-asqUsageInDrive :: Lens' AboutStorageQuota (Maybe Int64)-asqUsageInDrive-  = lens _asqUsageInDrive-      (\ s a -> s{_asqUsageInDrive = a})-      . mapping _Coerce--instance FromJSON AboutStorageQuota where-        parseJSON-          = withObject "AboutStorageQuota"-              (\ o ->-                 AboutStorageQuota' <$>-                   (o .:? "usageInDriveTrash") <*> (o .:? "limit") <*>-                     (o .:? "usage")-                     <*> (o .:? "usageInDrive"))--instance ToJSON AboutStorageQuota where-        toJSON AboutStorageQuota'{..}-          = object-              (catMaybes-                 [("usageInDriveTrash" .=) <$> _asqUsageInDriveTrash,-                  ("limit" .=) <$> _asqLimit,-                  ("usage" .=) <$> _asqUsage,-                  ("usageInDrive" .=) <$> _asqUsageInDrive])---- | A reply to a comment on a file.------ /See:/ 'reply' smart constructor.-data Reply =-  Reply'-    { _rHTMLContent  :: !(Maybe Text)-    , _rModifiedTime :: !(Maybe DateTime')-    , _rCreatedTime  :: !(Maybe DateTime')-    , _rKind         :: !Text-    , _rAction       :: !(Maybe Text)-    , _rContent      :: !(Maybe Text)-    , _rAuthor       :: !(Maybe User)-    , _rId           :: !(Maybe Text)-    , _rDeleted      :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Reply' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rHTMLContent'------ * 'rModifiedTime'------ * 'rCreatedTime'------ * 'rKind'------ * 'rAction'------ * 'rContent'------ * 'rAuthor'------ * 'rId'------ * 'rDeleted'-reply-    :: Reply-reply =-  Reply'-    { _rHTMLContent = Nothing-    , _rModifiedTime = Nothing-    , _rCreatedTime = Nothing-    , _rKind = "drive#reply"-    , _rAction = Nothing-    , _rContent = Nothing-    , _rAuthor = Nothing-    , _rId = Nothing-    , _rDeleted = Nothing-    }----- | The content of the reply with HTML formatting.-rHTMLContent :: Lens' Reply (Maybe Text)-rHTMLContent-  = lens _rHTMLContent (\ s a -> s{_rHTMLContent = a})---- | The last time the reply was modified (RFC 3339 date-time).-rModifiedTime :: Lens' Reply (Maybe UTCTime)-rModifiedTime-  = lens _rModifiedTime-      (\ s a -> s{_rModifiedTime = a})-      . mapping _DateTime---- | The time at which the reply was created (RFC 3339 date-time).-rCreatedTime :: Lens' Reply (Maybe UTCTime)-rCreatedTime-  = lens _rCreatedTime (\ s a -> s{_rCreatedTime = a})-      . mapping _DateTime---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#reply\".-rKind :: Lens' Reply Text-rKind = lens _rKind (\ s a -> s{_rKind = a})---- | The action the reply performed to the parent comment. Valid values are:--- - resolve - reopen-rAction :: Lens' Reply (Maybe Text)-rAction = lens _rAction (\ s a -> s{_rAction = a})---- | The plain text content of the reply. This field is used for setting the--- content, while htmlContent should be displayed. This is required on--- creates if no action is specified.-rContent :: Lens' Reply (Maybe Text)-rContent = lens _rContent (\ s a -> s{_rContent = a})---- | The user who created the reply.-rAuthor :: Lens' Reply (Maybe User)-rAuthor = lens _rAuthor (\ s a -> s{_rAuthor = a})---- | The ID of the reply.-rId :: Lens' Reply (Maybe Text)-rId = lens _rId (\ s a -> s{_rId = a})---- | Whether the reply has been deleted. A deleted reply has no content.-rDeleted :: Lens' Reply (Maybe Bool)-rDeleted = lens _rDeleted (\ s a -> s{_rDeleted = a})--instance FromJSON Reply where-        parseJSON-          = withObject "Reply"-              (\ o ->-                 Reply' <$>-                   (o .:? "htmlContent") <*> (o .:? "modifiedTime") <*>-                     (o .:? "createdTime")-                     <*> (o .:? "kind" .!= "drive#reply")-                     <*> (o .:? "action")-                     <*> (o .:? "content")-                     <*> (o .:? "author")-                     <*> (o .:? "id")-                     <*> (o .:? "deleted"))--instance ToJSON Reply where-        toJSON Reply'{..}-          = object-              (catMaybes-                 [("htmlContent" .=) <$> _rHTMLContent,-                  ("modifiedTime" .=) <$> _rModifiedTime,-                  ("createdTime" .=) <$> _rCreatedTime,-                  Just ("kind" .= _rKind), ("action" .=) <$> _rAction,-                  ("content" .=) <$> _rContent,-                  ("author" .=) <$> _rAuthor, ("id" .=) <$> _rId,-                  ("deleted" .=) <$> _rDeleted])---- | A map of source MIME type to possible targets for all supported imports.------ /See:/ 'aboutImportFormats' smart constructor.-newtype AboutImportFormats =-  AboutImportFormats'-    { _aifAddtional :: HashMap Text [Text]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AboutImportFormats' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aifAddtional'-aboutImportFormats-    :: HashMap Text [Text] -- ^ 'aifAddtional'-    -> AboutImportFormats-aboutImportFormats pAifAddtional_ =-  AboutImportFormats' {_aifAddtional = _Coerce # pAifAddtional_}---aifAddtional :: Lens' AboutImportFormats (HashMap Text [Text])-aifAddtional-  = lens _aifAddtional (\ s a -> s{_aifAddtional = a})-      . _Coerce--instance FromJSON AboutImportFormats where-        parseJSON-          = withObject "AboutImportFormats"-              (\ o -> AboutImportFormats' <$> (parseJSONObject o))--instance ToJSON AboutImportFormats where-        toJSON = toJSON . _aifAddtional---- | Capabilities the current user has on this file. Each capability--- corresponds to a fine-grained action that a user may take.------ /See:/ 'fileCapabilities' smart constructor.-data FileCapabilities =-  FileCapabilities'-    { _fcCanRename                             :: !(Maybe Bool)-    , _fcCanComment                            :: !(Maybe Bool)-    , _fcCanMoveChildrenWithinDrive            :: !(Maybe Bool)-    , _fcCanMoveChildrenWithinTeamDrive        :: !(Maybe Bool)-    , _fcCanDelete                             :: !(Maybe Bool)-    , _fcCanMoveItemIntoTeamDrive              :: !(Maybe Bool)-    , _fcCanDownload                           :: !(Maybe Bool)-    , _fcCanTrash                              :: !(Maybe Bool)-    , _fcCanUntrash                            :: !(Maybe Bool)-    , _fcCanTrashChildren                      :: !(Maybe Bool)-    , _fcCanMoveItemOutOfDrive                 :: !(Maybe Bool)-    , _fcCanAddChildren                        :: !(Maybe Bool)-    , _fcCanRemoveChildren                     :: !(Maybe Bool)-    , _fcCanMoveTeamDriveItem                  :: !(Maybe Bool)-    , _fcCanMoveItemWithinTeamDrive            :: !(Maybe Bool)-    , _fcCanReadTeamDrive                      :: !(Maybe Bool)-    , _fcCanReadDrive                          :: !(Maybe Bool)-    , _fcCanChangeCopyRequiresWriterPermission :: !(Maybe Bool)-    , _fcCanMoveChildrenOutOfDrive             :: !(Maybe Bool)-    , _fcCanListChildren                       :: !(Maybe Bool)-    , _fcCanMoveChildrenOutOfTeamDrive         :: !(Maybe Bool)-    , _fcCanEdit                               :: !(Maybe Bool)-    , _fcCanChangeViewersCanCopyContent        :: !(Maybe Bool)-    , _fcCanReadRevisions                      :: !(Maybe Bool)-    , _fcCanDeleteChildren                     :: !(Maybe Bool)-    , _fcCanMoveItemOutOfTeamDrive             :: !(Maybe Bool)-    , _fcCanCopy                               :: !(Maybe Bool)-    , _fcCanMoveItemWithinDrive                :: !(Maybe Bool)-    , _fcCanShare                              :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FileCapabilities' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fcCanRename'------ * 'fcCanComment'------ * 'fcCanMoveChildrenWithinDrive'------ * 'fcCanMoveChildrenWithinTeamDrive'------ * 'fcCanDelete'------ * 'fcCanMoveItemIntoTeamDrive'------ * 'fcCanDownload'------ * 'fcCanTrash'------ * 'fcCanUntrash'------ * 'fcCanTrashChildren'------ * 'fcCanMoveItemOutOfDrive'------ * 'fcCanAddChildren'------ * 'fcCanRemoveChildren'------ * 'fcCanMoveTeamDriveItem'------ * 'fcCanMoveItemWithinTeamDrive'------ * 'fcCanReadTeamDrive'------ * 'fcCanReadDrive'------ * 'fcCanChangeCopyRequiresWriterPermission'------ * 'fcCanMoveChildrenOutOfDrive'------ * 'fcCanListChildren'------ * 'fcCanMoveChildrenOutOfTeamDrive'------ * 'fcCanEdit'------ * 'fcCanChangeViewersCanCopyContent'------ * 'fcCanReadRevisions'------ * 'fcCanDeleteChildren'------ * 'fcCanMoveItemOutOfTeamDrive'------ * 'fcCanCopy'------ * 'fcCanMoveItemWithinDrive'------ * 'fcCanShare'-fileCapabilities-    :: FileCapabilities-fileCapabilities =-  FileCapabilities'-    { _fcCanRename = Nothing-    , _fcCanComment = Nothing-    , _fcCanMoveChildrenWithinDrive = Nothing-    , _fcCanMoveChildrenWithinTeamDrive = Nothing-    , _fcCanDelete = Nothing-    , _fcCanMoveItemIntoTeamDrive = Nothing-    , _fcCanDownload = Nothing-    , _fcCanTrash = Nothing-    , _fcCanUntrash = Nothing-    , _fcCanTrashChildren = Nothing-    , _fcCanMoveItemOutOfDrive = Nothing-    , _fcCanAddChildren = Nothing-    , _fcCanRemoveChildren = Nothing-    , _fcCanMoveTeamDriveItem = Nothing-    , _fcCanMoveItemWithinTeamDrive = Nothing-    , _fcCanReadTeamDrive = Nothing-    , _fcCanReadDrive = Nothing-    , _fcCanChangeCopyRequiresWriterPermission = Nothing-    , _fcCanMoveChildrenOutOfDrive = Nothing-    , _fcCanListChildren = Nothing-    , _fcCanMoveChildrenOutOfTeamDrive = Nothing-    , _fcCanEdit = Nothing-    , _fcCanChangeViewersCanCopyContent = Nothing-    , _fcCanReadRevisions = Nothing-    , _fcCanDeleteChildren = Nothing-    , _fcCanMoveItemOutOfTeamDrive = Nothing-    , _fcCanCopy = Nothing-    , _fcCanMoveItemWithinDrive = Nothing-    , _fcCanShare = Nothing-    }----- | Whether the current user can rename this file.-fcCanRename :: Lens' FileCapabilities (Maybe Bool)-fcCanRename-  = lens _fcCanRename (\ s a -> s{_fcCanRename = a})---- | Whether the current user can comment on this file.-fcCanComment :: Lens' FileCapabilities (Maybe Bool)-fcCanComment-  = lens _fcCanComment (\ s a -> s{_fcCanComment = a})---- | Whether the current user can move children of this folder within the--- shared drive. This is false when the item is not a folder. Only--- populated for items in shared drives.-fcCanMoveChildrenWithinDrive :: Lens' FileCapabilities (Maybe Bool)-fcCanMoveChildrenWithinDrive-  = lens _fcCanMoveChildrenWithinDrive-      (\ s a -> s{_fcCanMoveChildrenWithinDrive = a})---- | Deprecated - use canMoveChildrenWithinDrive instead.-fcCanMoveChildrenWithinTeamDrive :: Lens' FileCapabilities (Maybe Bool)-fcCanMoveChildrenWithinTeamDrive-  = lens _fcCanMoveChildrenWithinTeamDrive-      (\ s a -> s{_fcCanMoveChildrenWithinTeamDrive = a})---- | Whether the current user can delete this file.-fcCanDelete :: Lens' FileCapabilities (Maybe Bool)-fcCanDelete-  = lens _fcCanDelete (\ s a -> s{_fcCanDelete = a})---- | Deprecated - use canMoveItemOutOfDrive instead.-fcCanMoveItemIntoTeamDrive :: Lens' FileCapabilities (Maybe Bool)-fcCanMoveItemIntoTeamDrive-  = lens _fcCanMoveItemIntoTeamDrive-      (\ s a -> s{_fcCanMoveItemIntoTeamDrive = a})---- | Whether the current user can download this file.-fcCanDownload :: Lens' FileCapabilities (Maybe Bool)-fcCanDownload-  = lens _fcCanDownload-      (\ s a -> s{_fcCanDownload = a})---- | Whether the current user can move this file to trash.-fcCanTrash :: Lens' FileCapabilities (Maybe Bool)-fcCanTrash-  = lens _fcCanTrash (\ s a -> s{_fcCanTrash = a})---- | Whether the current user can restore this file from trash.-fcCanUntrash :: Lens' FileCapabilities (Maybe Bool)-fcCanUntrash-  = lens _fcCanUntrash (\ s a -> s{_fcCanUntrash = a})---- | Whether the current user can trash children of this folder. This is--- false when the item is not a folder. Only populated for items in shared--- drives.-fcCanTrashChildren :: Lens' FileCapabilities (Maybe Bool)-fcCanTrashChildren-  = lens _fcCanTrashChildren-      (\ s a -> s{_fcCanTrashChildren = a})---- | Whether the current user can move this item outside of this drive by--- changing its parent. Note that a request to change the parent of the--- item may still fail depending on the new parent that is being added.-fcCanMoveItemOutOfDrive :: Lens' FileCapabilities (Maybe Bool)-fcCanMoveItemOutOfDrive-  = lens _fcCanMoveItemOutOfDrive-      (\ s a -> s{_fcCanMoveItemOutOfDrive = a})---- | Whether the current user can add children to this folder. This is always--- false when the item is not a folder.-fcCanAddChildren :: Lens' FileCapabilities (Maybe Bool)-fcCanAddChildren-  = lens _fcCanAddChildren-      (\ s a -> s{_fcCanAddChildren = a})---- | Whether the current user can remove children from this folder. This is--- always false when the item is not a folder. For a folder in a shared--- drive, use canDeleteChildren or canTrashChildren instead.-fcCanRemoveChildren :: Lens' FileCapabilities (Maybe Bool)-fcCanRemoveChildren-  = lens _fcCanRemoveChildren-      (\ s a -> s{_fcCanRemoveChildren = a})---- | Deprecated - use canMoveItemWithinDrive or canMoveItemOutOfDrive--- instead.-fcCanMoveTeamDriveItem :: Lens' FileCapabilities (Maybe Bool)-fcCanMoveTeamDriveItem-  = lens _fcCanMoveTeamDriveItem-      (\ s a -> s{_fcCanMoveTeamDriveItem = a})---- | Deprecated - use canMoveItemWithinDrive instead.-fcCanMoveItemWithinTeamDrive :: Lens' FileCapabilities (Maybe Bool)-fcCanMoveItemWithinTeamDrive-  = lens _fcCanMoveItemWithinTeamDrive-      (\ s a -> s{_fcCanMoveItemWithinTeamDrive = a})---- | Deprecated - use canReadDrive instead.-fcCanReadTeamDrive :: Lens' FileCapabilities (Maybe Bool)-fcCanReadTeamDrive-  = lens _fcCanReadTeamDrive-      (\ s a -> s{_fcCanReadTeamDrive = a})---- | Whether the current user can read the shared drive to which this file--- belongs. Only populated for items in shared drives.-fcCanReadDrive :: Lens' FileCapabilities (Maybe Bool)-fcCanReadDrive-  = lens _fcCanReadDrive-      (\ s a -> s{_fcCanReadDrive = a})---- | Whether the current user can change the copyRequiresWriterPermission--- restriction of this file.-fcCanChangeCopyRequiresWriterPermission :: Lens' FileCapabilities (Maybe Bool)-fcCanChangeCopyRequiresWriterPermission-  = lens _fcCanChangeCopyRequiresWriterPermission-      (\ s a ->-         s{_fcCanChangeCopyRequiresWriterPermission = a})---- | Whether the current user can move children of this folder outside of the--- shared drive. This is false when the item is not a folder. Only--- populated for items in shared drives.-fcCanMoveChildrenOutOfDrive :: Lens' FileCapabilities (Maybe Bool)-fcCanMoveChildrenOutOfDrive-  = lens _fcCanMoveChildrenOutOfDrive-      (\ s a -> s{_fcCanMoveChildrenOutOfDrive = a})---- | Whether the current user can list the children of this folder. This is--- always false when the item is not a folder.-fcCanListChildren :: Lens' FileCapabilities (Maybe Bool)-fcCanListChildren-  = lens _fcCanListChildren-      (\ s a -> s{_fcCanListChildren = a})---- | Deprecated - use canMoveChildrenOutOfDrive instead.-fcCanMoveChildrenOutOfTeamDrive :: Lens' FileCapabilities (Maybe Bool)-fcCanMoveChildrenOutOfTeamDrive-  = lens _fcCanMoveChildrenOutOfTeamDrive-      (\ s a -> s{_fcCanMoveChildrenOutOfTeamDrive = a})---- | Whether the current user can edit this file.-fcCanEdit :: Lens' FileCapabilities (Maybe Bool)-fcCanEdit-  = lens _fcCanEdit (\ s a -> s{_fcCanEdit = a})---- | Deprecated-fcCanChangeViewersCanCopyContent :: Lens' FileCapabilities (Maybe Bool)-fcCanChangeViewersCanCopyContent-  = lens _fcCanChangeViewersCanCopyContent-      (\ s a -> s{_fcCanChangeViewersCanCopyContent = a})---- | Whether the current user can read the revisions resource of this file.--- For a shared drive item, whether revisions of non-folder descendants of--- this item, or this item itself if it is not a folder, can be read.-fcCanReadRevisions :: Lens' FileCapabilities (Maybe Bool)-fcCanReadRevisions-  = lens _fcCanReadRevisions-      (\ s a -> s{_fcCanReadRevisions = a})---- | Whether the current user can delete children of this folder. This is--- false when the item is not a folder. Only populated for items in shared--- drives.-fcCanDeleteChildren :: Lens' FileCapabilities (Maybe Bool)-fcCanDeleteChildren-  = lens _fcCanDeleteChildren-      (\ s a -> s{_fcCanDeleteChildren = a})---- | Deprecated - use canMoveItemOutOfDrive instead.-fcCanMoveItemOutOfTeamDrive :: Lens' FileCapabilities (Maybe Bool)-fcCanMoveItemOutOfTeamDrive-  = lens _fcCanMoveItemOutOfTeamDrive-      (\ s a -> s{_fcCanMoveItemOutOfTeamDrive = a})---- | Whether the current user can copy this file. For an item in a shared--- drive, whether the current user can copy non-folder descendants of this--- item, or this item itself if it is not a folder.-fcCanCopy :: Lens' FileCapabilities (Maybe Bool)-fcCanCopy-  = lens _fcCanCopy (\ s a -> s{_fcCanCopy = a})---- | Whether the current user can move this item within this shared drive.--- Note that a request to change the parent of the item may still fail--- depending on the new parent that is being added. Only populated for--- items in shared drives.-fcCanMoveItemWithinDrive :: Lens' FileCapabilities (Maybe Bool)-fcCanMoveItemWithinDrive-  = lens _fcCanMoveItemWithinDrive-      (\ s a -> s{_fcCanMoveItemWithinDrive = a})---- | Whether the current user can modify the sharing settings for this file.-fcCanShare :: Lens' FileCapabilities (Maybe Bool)-fcCanShare-  = lens _fcCanShare (\ s a -> s{_fcCanShare = a})--instance FromJSON FileCapabilities where-        parseJSON-          = withObject "FileCapabilities"-              (\ o ->-                 FileCapabilities' <$>-                   (o .:? "canRename") <*> (o .:? "canComment") <*>-                     (o .:? "canMoveChildrenWithinDrive")-                     <*> (o .:? "canMoveChildrenWithinTeamDrive")-                     <*> (o .:? "canDelete")-                     <*> (o .:? "canMoveItemIntoTeamDrive")-                     <*> (o .:? "canDownload")-                     <*> (o .:? "canTrash")-                     <*> (o .:? "canUntrash")-                     <*> (o .:? "canTrashChildren")-                     <*> (o .:? "canMoveItemOutOfDrive")-                     <*> (o .:? "canAddChildren")-                     <*> (o .:? "canRemoveChildren")-                     <*> (o .:? "canMoveTeamDriveItem")-                     <*> (o .:? "canMoveItemWithinTeamDrive")-                     <*> (o .:? "canReadTeamDrive")-                     <*> (o .:? "canReadDrive")-                     <*> (o .:? "canChangeCopyRequiresWriterPermission")-                     <*> (o .:? "canMoveChildrenOutOfDrive")-                     <*> (o .:? "canListChildren")-                     <*> (o .:? "canMoveChildrenOutOfTeamDrive")-                     <*> (o .:? "canEdit")-                     <*> (o .:? "canChangeViewersCanCopyContent")-                     <*> (o .:? "canReadRevisions")-                     <*> (o .:? "canDeleteChildren")-                     <*> (o .:? "canMoveItemOutOfTeamDrive")-                     <*> (o .:? "canCopy")-                     <*> (o .:? "canMoveItemWithinDrive")-                     <*> (o .:? "canShare"))--instance ToJSON FileCapabilities where-        toJSON FileCapabilities'{..}-          = object-              (catMaybes-                 [("canRename" .=) <$> _fcCanRename,-                  ("canComment" .=) <$> _fcCanComment,-                  ("canMoveChildrenWithinDrive" .=) <$>-                    _fcCanMoveChildrenWithinDrive,-                  ("canMoveChildrenWithinTeamDrive" .=) <$>-                    _fcCanMoveChildrenWithinTeamDrive,-                  ("canDelete" .=) <$> _fcCanDelete,-                  ("canMoveItemIntoTeamDrive" .=) <$>-                    _fcCanMoveItemIntoTeamDrive,-                  ("canDownload" .=) <$> _fcCanDownload,-                  ("canTrash" .=) <$> _fcCanTrash,-                  ("canUntrash" .=) <$> _fcCanUntrash,-                  ("canTrashChildren" .=) <$> _fcCanTrashChildren,-                  ("canMoveItemOutOfDrive" .=) <$>-                    _fcCanMoveItemOutOfDrive,-                  ("canAddChildren" .=) <$> _fcCanAddChildren,-                  ("canRemoveChildren" .=) <$> _fcCanRemoveChildren,-                  ("canMoveTeamDriveItem" .=) <$>-                    _fcCanMoveTeamDriveItem,-                  ("canMoveItemWithinTeamDrive" .=) <$>-                    _fcCanMoveItemWithinTeamDrive,-                  ("canReadTeamDrive" .=) <$> _fcCanReadTeamDrive,-                  ("canReadDrive" .=) <$> _fcCanReadDrive,-                  ("canChangeCopyRequiresWriterPermission" .=) <$>-                    _fcCanChangeCopyRequiresWriterPermission,-                  ("canMoveChildrenOutOfDrive" .=) <$>-                    _fcCanMoveChildrenOutOfDrive,-                  ("canListChildren" .=) <$> _fcCanListChildren,-                  ("canMoveChildrenOutOfTeamDrive" .=) <$>-                    _fcCanMoveChildrenOutOfTeamDrive,-                  ("canEdit" .=) <$> _fcCanEdit,-                  ("canChangeViewersCanCopyContent" .=) <$>-                    _fcCanChangeViewersCanCopyContent,-                  ("canReadRevisions" .=) <$> _fcCanReadRevisions,-                  ("canDeleteChildren" .=) <$> _fcCanDeleteChildren,-                  ("canMoveItemOutOfTeamDrive" .=) <$>-                    _fcCanMoveItemOutOfTeamDrive,-                  ("canCopy" .=) <$> _fcCanCopy,-                  ("canMoveItemWithinDrive" .=) <$>-                    _fcCanMoveItemWithinDrive,-                  ("canShare" .=) <$> _fcCanShare])---- | A list of replies to a comment on a file.------ /See:/ 'replyList' smart constructor.-data ReplyList =-  ReplyList'-    { _rlNextPageToken :: !(Maybe Text)-    , _rlKind          :: !Text-    , _rlReplies       :: !(Maybe [Reply])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ReplyList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rlNextPageToken'------ * 'rlKind'------ * 'rlReplies'-replyList-    :: ReplyList-replyList =-  ReplyList'-    { _rlNextPageToken = Nothing-    , _rlKind = "drive#replyList"-    , _rlReplies = Nothing-    }----- | The page token for the next page of replies. This will be absent if the--- end of the replies list has been reached. If the token is rejected for--- any reason, it should be discarded, and pagination should be restarted--- from the first page of results.-rlNextPageToken :: Lens' ReplyList (Maybe Text)-rlNextPageToken-  = lens _rlNextPageToken-      (\ s a -> s{_rlNextPageToken = a})---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#replyList\".-rlKind :: Lens' ReplyList Text-rlKind = lens _rlKind (\ s a -> s{_rlKind = a})---- | The list of replies. If nextPageToken is populated, then this list may--- be incomplete and an additional page of results should be fetched.-rlReplies :: Lens' ReplyList [Reply]-rlReplies-  = lens _rlReplies (\ s a -> s{_rlReplies = a}) .-      _Default-      . _Coerce--instance FromJSON ReplyList where-        parseJSON-          = withObject "ReplyList"-              (\ o ->-                 ReplyList' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "drive#replyList")-                     <*> (o .:? "replies" .!= mempty))--instance ToJSON ReplyList where-        toJSON ReplyList'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _rlNextPageToken,-                  Just ("kind" .= _rlKind),-                  ("replies" .=) <$> _rlReplies])---- | An image file and cropping parameters from which a background image for--- this shared drive is set. This is a write only field; it can only be set--- on drive.drives.update requests that don\'t set themeId. When specified,--- all fields of the backgroundImageFile must be set.------ /See:/ 'driveBackgRoundImageFile' smart constructor.-data DriveBackgRoundImageFile =-  DriveBackgRoundImageFile'-    { _dbrifXCoordinate :: !(Maybe (Textual Double))-    , _dbrifYCoordinate :: !(Maybe (Textual Double))-    , _dbrifWidth       :: !(Maybe (Textual Double))-    , _dbrifId          :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DriveBackgRoundImageFile' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dbrifXCoordinate'------ * 'dbrifYCoordinate'------ * 'dbrifWidth'------ * 'dbrifId'-driveBackgRoundImageFile-    :: DriveBackgRoundImageFile-driveBackgRoundImageFile =-  DriveBackgRoundImageFile'-    { _dbrifXCoordinate = Nothing-    , _dbrifYCoordinate = Nothing-    , _dbrifWidth = Nothing-    , _dbrifId = Nothing-    }----- | The X coordinate of the upper left corner of the cropping area in the--- background image. This is a value in the closed range of 0 to 1. This--- value represents the horizontal distance from the left side of the--- entire image to the left side of the cropping area divided by the width--- of the entire image.-dbrifXCoordinate :: Lens' DriveBackgRoundImageFile (Maybe Double)-dbrifXCoordinate-  = lens _dbrifXCoordinate-      (\ s a -> s{_dbrifXCoordinate = a})-      . mapping _Coerce---- | The Y coordinate of the upper left corner of the cropping area in the--- background image. This is a value in the closed range of 0 to 1. This--- value represents the vertical distance from the top side of the entire--- image to the top side of the cropping area divided by the height of the--- entire image.-dbrifYCoordinate :: Lens' DriveBackgRoundImageFile (Maybe Double)-dbrifYCoordinate-  = lens _dbrifYCoordinate-      (\ s a -> s{_dbrifYCoordinate = a})-      . mapping _Coerce---- | The width of the cropped image in the closed range of 0 to 1. This value--- represents the width of the cropped image divided by the width of the--- entire image. The height is computed by applying a width to height--- aspect ratio of 80 to 9. The resulting image must be at least 1280--- pixels wide and 144 pixels high.-dbrifWidth :: Lens' DriveBackgRoundImageFile (Maybe Double)-dbrifWidth-  = lens _dbrifWidth (\ s a -> s{_dbrifWidth = a}) .-      mapping _Coerce---- | The ID of an image file in Google Drive to use for the background image.-dbrifId :: Lens' DriveBackgRoundImageFile (Maybe Text)-dbrifId = lens _dbrifId (\ s a -> s{_dbrifId = a})--instance FromJSON DriveBackgRoundImageFile where-        parseJSON-          = withObject "DriveBackgRoundImageFile"-              (\ o ->-                 DriveBackgRoundImageFile' <$>-                   (o .:? "xCoordinate") <*> (o .:? "yCoordinate") <*>-                     (o .:? "width")-                     <*> (o .:? "id"))--instance ToJSON DriveBackgRoundImageFile where-        toJSON DriveBackgRoundImageFile'{..}-          = object-              (catMaybes-                 [("xCoordinate" .=) <$> _dbrifXCoordinate,-                  ("yCoordinate" .=) <$> _dbrifYCoordinate,-                  ("width" .=) <$> _dbrifWidth,-                  ("id" .=) <$> _dbrifId])---- | A thumbnail for the file. This will only be used if Google Drive cannot--- generate a standard thumbnail.------ /See:/ 'fileContentHintsThumbnail' smart constructor.-data FileContentHintsThumbnail =-  FileContentHintsThumbnail'-    { _fchtImage    :: !(Maybe Bytes)-    , _fchtMimeType :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FileContentHintsThumbnail' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fchtImage'------ * 'fchtMimeType'-fileContentHintsThumbnail-    :: FileContentHintsThumbnail-fileContentHintsThumbnail =-  FileContentHintsThumbnail' {_fchtImage = Nothing, _fchtMimeType = Nothing}----- | The thumbnail data encoded with URL-safe Base64 (RFC 4648 section 5).-fchtImage :: Lens' FileContentHintsThumbnail (Maybe ByteString)-fchtImage-  = lens _fchtImage (\ s a -> s{_fchtImage = a}) .-      mapping _Bytes---- | The MIME type of the thumbnail.-fchtMimeType :: Lens' FileContentHintsThumbnail (Maybe Text)-fchtMimeType-  = lens _fchtMimeType (\ s a -> s{_fchtMimeType = a})--instance FromJSON FileContentHintsThumbnail where-        parseJSON-          = withObject "FileContentHintsThumbnail"-              (\ o ->-                 FileContentHintsThumbnail' <$>-                   (o .:? "image") <*> (o .:? "mimeType"))--instance ToJSON FileContentHintsThumbnail where-        toJSON FileContentHintsThumbnail'{..}-          = object-              (catMaybes-                 [("image" .=) <$> _fchtImage,-                  ("mimeType" .=) <$> _fchtMimeType])---- | A list of Team Drives.------ /See:/ 'teamDriveList' smart constructor.-data TeamDriveList =-  TeamDriveList'-    { _tdlNextPageToken :: !(Maybe Text)-    , _tdlTeamDrives    :: !(Maybe [TeamDrive])-    , _tdlKind          :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TeamDriveList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tdlNextPageToken'------ * 'tdlTeamDrives'------ * 'tdlKind'-teamDriveList-    :: TeamDriveList-teamDriveList =-  TeamDriveList'-    { _tdlNextPageToken = Nothing-    , _tdlTeamDrives = Nothing-    , _tdlKind = "drive#teamDriveList"-    }----- | The page token for the next page of Team Drives. This will be absent if--- the end of the Team Drives list has been reached. If the token is--- rejected for any reason, it should be discarded, and pagination should--- be restarted from the first page of results.-tdlNextPageToken :: Lens' TeamDriveList (Maybe Text)-tdlNextPageToken-  = lens _tdlNextPageToken-      (\ s a -> s{_tdlNextPageToken = a})---- | The list of Team Drives. If nextPageToken is populated, then this list--- may be incomplete and an additional page of results should be fetched.-tdlTeamDrives :: Lens' TeamDriveList [TeamDrive]-tdlTeamDrives-  = lens _tdlTeamDrives-      (\ s a -> s{_tdlTeamDrives = a})-      . _Default-      . _Coerce---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#teamDriveList\".-tdlKind :: Lens' TeamDriveList Text-tdlKind = lens _tdlKind (\ s a -> s{_tdlKind = a})--instance FromJSON TeamDriveList where-        parseJSON-          = withObject "TeamDriveList"-              (\ o ->-                 TeamDriveList' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "teamDrives" .!= mempty)-                     <*> (o .:? "kind" .!= "drive#teamDriveList"))--instance ToJSON TeamDriveList where-        toJSON TeamDriveList'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _tdlNextPageToken,-                  ("teamDrives" .=) <$> _tdlTeamDrives,-                  Just ("kind" .= _tdlKind)])---- | An notification channel used to watch for resource changes.------ /See:/ 'channel' smart constructor.-data Channel =-  Channel'-    { _cResourceURI :: !(Maybe Text)-    , _cResourceId  :: !(Maybe Text)-    , _cKind        :: !Text-    , _cExpiration  :: !(Maybe (Textual Int64))-    , _cToken       :: !(Maybe Text)-    , _cAddress     :: !(Maybe Text)-    , _cPayload     :: !(Maybe Bool)-    , _cParams      :: !(Maybe ChannelParams)-    , _cId          :: !(Maybe Text)-    , _cType        :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Channel' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cResourceURI'------ * 'cResourceId'------ * 'cKind'------ * 'cExpiration'------ * 'cToken'------ * 'cAddress'------ * 'cPayload'------ * 'cParams'------ * 'cId'------ * 'cType'-channel-    :: Channel-channel =-  Channel'-    { _cResourceURI = Nothing-    , _cResourceId = Nothing-    , _cKind = "api#channel"-    , _cExpiration = Nothing-    , _cToken = Nothing-    , _cAddress = Nothing-    , _cPayload = Nothing-    , _cParams = Nothing-    , _cId = Nothing-    , _cType = Nothing-    }----- | A version-specific identifier for the watched resource.-cResourceURI :: Lens' Channel (Maybe Text)-cResourceURI-  = lens _cResourceURI (\ s a -> s{_cResourceURI = a})---- | An opaque ID that identifies the resource being watched on this channel.--- Stable across different API versions.-cResourceId :: Lens' Channel (Maybe Text)-cResourceId-  = lens _cResourceId (\ s a -> s{_cResourceId = a})---- | Identifies this as a notification channel used to watch for changes to a--- resource. Value: the fixed string \"api#channel\".-cKind :: Lens' Channel Text-cKind = lens _cKind (\ s a -> s{_cKind = a})---- | Date and time of notification channel expiration, expressed as a Unix--- timestamp, in milliseconds. Optional.-cExpiration :: Lens' Channel (Maybe Int64)-cExpiration-  = lens _cExpiration (\ s a -> s{_cExpiration = a}) .-      mapping _Coerce---- | An arbitrary string delivered to the target address with each--- notification delivered over this channel. Optional.-cToken :: Lens' Channel (Maybe Text)-cToken = lens _cToken (\ s a -> s{_cToken = a})---- | The address where notifications are delivered for this channel.-cAddress :: Lens' Channel (Maybe Text)-cAddress = lens _cAddress (\ s a -> s{_cAddress = a})---- | A Boolean value to indicate whether payload is wanted. Optional.-cPayload :: Lens' Channel (Maybe Bool)-cPayload = lens _cPayload (\ s a -> s{_cPayload = a})---- | Additional parameters controlling delivery channel behavior. Optional.-cParams :: Lens' Channel (Maybe ChannelParams)-cParams = lens _cParams (\ s a -> s{_cParams = a})---- | A UUID or similar unique string that identifies this channel.-cId :: Lens' Channel (Maybe Text)-cId = lens _cId (\ s a -> s{_cId = a})---- | The type of delivery mechanism used for this channel.-cType :: Lens' Channel (Maybe Text)-cType = lens _cType (\ s a -> s{_cType = a})--instance FromJSON Channel where-        parseJSON-          = withObject "Channel"-              (\ o ->-                 Channel' <$>-                   (o .:? "resourceUri") <*> (o .:? "resourceId") <*>-                     (o .:? "kind" .!= "api#channel")-                     <*> (o .:? "expiration")-                     <*> (o .:? "token")-                     <*> (o .:? "address")-                     <*> (o .:? "payload")-                     <*> (o .:? "params")-                     <*> (o .:? "id")-                     <*> (o .:? "type"))--instance ToJSON Channel where-        toJSON Channel'{..}-          = object-              (catMaybes-                 [("resourceUri" .=) <$> _cResourceURI,-                  ("resourceId" .=) <$> _cResourceId,-                  Just ("kind" .= _cKind),-                  ("expiration" .=) <$> _cExpiration,-                  ("token" .=) <$> _cToken,-                  ("address" .=) <$> _cAddress,-                  ("payload" .=) <$> _cPayload,-                  ("params" .=) <$> _cParams, ("id" .=) <$> _cId,-                  ("type" .=) <$> _cType])------- /See:/ 'aboutTeamDriveThemesItem' smart constructor.-data AboutTeamDriveThemesItem =-  AboutTeamDriveThemesItem'-    { _atdtiColorRgb            :: !(Maybe Text)-    , _atdtiBackgRoundImageLink :: !(Maybe Text)-    , _atdtiId                  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AboutTeamDriveThemesItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'atdtiColorRgb'------ * 'atdtiBackgRoundImageLink'------ * 'atdtiId'-aboutTeamDriveThemesItem-    :: AboutTeamDriveThemesItem-aboutTeamDriveThemesItem =-  AboutTeamDriveThemesItem'-    { _atdtiColorRgb = Nothing-    , _atdtiBackgRoundImageLink = Nothing-    , _atdtiId = Nothing-    }----- | The color of this Team Drive theme as an RGB hex string.-atdtiColorRgb :: Lens' AboutTeamDriveThemesItem (Maybe Text)-atdtiColorRgb-  = lens _atdtiColorRgb-      (\ s a -> s{_atdtiColorRgb = a})---- | A link to this Team Drive theme\'s background image.-atdtiBackgRoundImageLink :: Lens' AboutTeamDriveThemesItem (Maybe Text)-atdtiBackgRoundImageLink-  = lens _atdtiBackgRoundImageLink-      (\ s a -> s{_atdtiBackgRoundImageLink = a})---- | The ID of the theme.-atdtiId :: Lens' AboutTeamDriveThemesItem (Maybe Text)-atdtiId = lens _atdtiId (\ s a -> s{_atdtiId = a})--instance FromJSON AboutTeamDriveThemesItem where-        parseJSON-          = withObject "AboutTeamDriveThemesItem"-              (\ o ->-                 AboutTeamDriveThemesItem' <$>-                   (o .:? "colorRgb") <*> (o .:? "backgroundImageLink")-                     <*> (o .:? "id"))--instance ToJSON AboutTeamDriveThemesItem where-        toJSON AboutTeamDriveThemesItem'{..}-          = object-              (catMaybes-                 [("colorRgb" .=) <$> _atdtiColorRgb,-                  ("backgroundImageLink" .=) <$>-                    _atdtiBackgRoundImageLink,-                  ("id" .=) <$> _atdtiId])---- | A set of restrictions that apply to this Team Drive or items inside this--- Team Drive.------ /See:/ 'teamDriveRestrictions' smart constructor.-data TeamDriveRestrictions =-  TeamDriveRestrictions'-    { _tdrTeamMembersOnly              :: !(Maybe Bool)-    , _tdrAdminManagedRestrictions     :: !(Maybe Bool)-    , _tdrCopyRequiresWriterPermission :: !(Maybe Bool)-    , _tdrDomainUsersOnly              :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TeamDriveRestrictions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tdrTeamMembersOnly'------ * 'tdrAdminManagedRestrictions'------ * 'tdrCopyRequiresWriterPermission'------ * 'tdrDomainUsersOnly'-teamDriveRestrictions-    :: TeamDriveRestrictions-teamDriveRestrictions =-  TeamDriveRestrictions'-    { _tdrTeamMembersOnly = Nothing-    , _tdrAdminManagedRestrictions = Nothing-    , _tdrCopyRequiresWriterPermission = Nothing-    , _tdrDomainUsersOnly = Nothing-    }----- | Whether access to items inside this Team Drive is restricted to members--- of this Team Drive.-tdrTeamMembersOnly :: Lens' TeamDriveRestrictions (Maybe Bool)-tdrTeamMembersOnly-  = lens _tdrTeamMembersOnly-      (\ s a -> s{_tdrTeamMembersOnly = a})---- | Whether administrative privileges on this Team Drive are required to--- modify restrictions.-tdrAdminManagedRestrictions :: Lens' TeamDriveRestrictions (Maybe Bool)-tdrAdminManagedRestrictions-  = lens _tdrAdminManagedRestrictions-      (\ s a -> s{_tdrAdminManagedRestrictions = a})---- | Whether the options to copy, print, or download files inside this Team--- Drive, should be disabled for readers and commenters. When this--- restriction is set to true, it will override the similarly named field--- to true for any file inside this Team Drive.-tdrCopyRequiresWriterPermission :: Lens' TeamDriveRestrictions (Maybe Bool)-tdrCopyRequiresWriterPermission-  = lens _tdrCopyRequiresWriterPermission-      (\ s a -> s{_tdrCopyRequiresWriterPermission = a})---- | Whether access to this Team Drive and items inside this Team Drive is--- restricted to users of the domain to which this Team Drive belongs. This--- restriction may be overridden by other sharing policies controlled--- outside of this Team Drive.-tdrDomainUsersOnly :: Lens' TeamDriveRestrictions (Maybe Bool)-tdrDomainUsersOnly-  = lens _tdrDomainUsersOnly-      (\ s a -> s{_tdrDomainUsersOnly = a})--instance FromJSON TeamDriveRestrictions where-        parseJSON-          = withObject "TeamDriveRestrictions"-              (\ o ->-                 TeamDriveRestrictions' <$>-                   (o .:? "teamMembersOnly") <*>-                     (o .:? "adminManagedRestrictions")-                     <*> (o .:? "copyRequiresWriterPermission")-                     <*> (o .:? "domainUsersOnly"))--instance ToJSON TeamDriveRestrictions where-        toJSON TeamDriveRestrictions'{..}-          = object-              (catMaybes-                 [("teamMembersOnly" .=) <$> _tdrTeamMembersOnly,-                  ("adminManagedRestrictions" .=) <$>-                    _tdrAdminManagedRestrictions,-                  ("copyRequiresWriterPermission" .=) <$>-                    _tdrCopyRequiresWriterPermission,-                  ("domainUsersOnly" .=) <$> _tdrDomainUsersOnly])---- | An image file and cropping parameters from which a background image for--- this Team Drive is set. This is a write only field; it can only be set--- on drive.teamdrives.update requests that don\'t set themeId. When--- specified, all fields of the backgroundImageFile must be set.------ /See:/ 'teamDriveBackgRoundImageFile' smart constructor.-data TeamDriveBackgRoundImageFile =-  TeamDriveBackgRoundImageFile'-    { _tdbrifXCoordinate :: !(Maybe (Textual Double))-    , _tdbrifYCoordinate :: !(Maybe (Textual Double))-    , _tdbrifWidth       :: !(Maybe (Textual Double))-    , _tdbrifId          :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TeamDriveBackgRoundImageFile' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tdbrifXCoordinate'------ * 'tdbrifYCoordinate'------ * 'tdbrifWidth'------ * 'tdbrifId'-teamDriveBackgRoundImageFile-    :: TeamDriveBackgRoundImageFile-teamDriveBackgRoundImageFile =-  TeamDriveBackgRoundImageFile'-    { _tdbrifXCoordinate = Nothing-    , _tdbrifYCoordinate = Nothing-    , _tdbrifWidth = Nothing-    , _tdbrifId = Nothing-    }----- | The X coordinate of the upper left corner of the cropping area in the--- background image. This is a value in the closed range of 0 to 1. This--- value represents the horizontal distance from the left side of the--- entire image to the left side of the cropping area divided by the width--- of the entire image.-tdbrifXCoordinate :: Lens' TeamDriveBackgRoundImageFile (Maybe Double)-tdbrifXCoordinate-  = lens _tdbrifXCoordinate-      (\ s a -> s{_tdbrifXCoordinate = a})-      . mapping _Coerce---- | The Y coordinate of the upper left corner of the cropping area in the--- background image. This is a value in the closed range of 0 to 1. This--- value represents the vertical distance from the top side of the entire--- image to the top side of the cropping area divided by the height of the--- entire image.-tdbrifYCoordinate :: Lens' TeamDriveBackgRoundImageFile (Maybe Double)-tdbrifYCoordinate-  = lens _tdbrifYCoordinate-      (\ s a -> s{_tdbrifYCoordinate = a})-      . mapping _Coerce---- | The width of the cropped image in the closed range of 0 to 1. This value--- represents the width of the cropped image divided by the width of the--- entire image. The height is computed by applying a width to height--- aspect ratio of 80 to 9. The resulting image must be at least 1280--- pixels wide and 144 pixels high.-tdbrifWidth :: Lens' TeamDriveBackgRoundImageFile (Maybe Double)-tdbrifWidth-  = lens _tdbrifWidth (\ s a -> s{_tdbrifWidth = a}) .-      mapping _Coerce---- | The ID of an image file in Drive to use for the background image.-tdbrifId :: Lens' TeamDriveBackgRoundImageFile (Maybe Text)-tdbrifId = lens _tdbrifId (\ s a -> s{_tdbrifId = a})--instance FromJSON TeamDriveBackgRoundImageFile where-        parseJSON-          = withObject "TeamDriveBackgRoundImageFile"-              (\ o ->-                 TeamDriveBackgRoundImageFile' <$>-                   (o .:? "xCoordinate") <*> (o .:? "yCoordinate") <*>-                     (o .:? "width")-                     <*> (o .:? "id"))--instance ToJSON TeamDriveBackgRoundImageFile where-        toJSON TeamDriveBackgRoundImageFile'{..}-          = object-              (catMaybes-                 [("xCoordinate" .=) <$> _tdbrifXCoordinate,-                  ("yCoordinate" .=) <$> _tdbrifYCoordinate,-                  ("width" .=) <$> _tdbrifWidth,-                  ("id" .=) <$> _tdbrifId])---- | Additional metadata about video media. This may not be available--- immediately upon upload.------ /See:/ 'fileVideoMediaMetadata' smart constructor.-data FileVideoMediaMetadata =-  FileVideoMediaMetadata'-    { _fvmmHeight         :: !(Maybe (Textual Int32))-    , _fvmmWidth          :: !(Maybe (Textual Int32))-    , _fvmmDurationMillis :: !(Maybe (Textual Int64))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FileVideoMediaMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fvmmHeight'------ * 'fvmmWidth'------ * 'fvmmDurationMillis'-fileVideoMediaMetadata-    :: FileVideoMediaMetadata-fileVideoMediaMetadata =-  FileVideoMediaMetadata'-    {_fvmmHeight = Nothing, _fvmmWidth = Nothing, _fvmmDurationMillis = Nothing}----- | The height of the video in pixels.-fvmmHeight :: Lens' FileVideoMediaMetadata (Maybe Int32)-fvmmHeight-  = lens _fvmmHeight (\ s a -> s{_fvmmHeight = a}) .-      mapping _Coerce---- | The width of the video in pixels.-fvmmWidth :: Lens' FileVideoMediaMetadata (Maybe Int32)-fvmmWidth-  = lens _fvmmWidth (\ s a -> s{_fvmmWidth = a}) .-      mapping _Coerce---- | The duration of the video in milliseconds.-fvmmDurationMillis :: Lens' FileVideoMediaMetadata (Maybe Int64)-fvmmDurationMillis-  = lens _fvmmDurationMillis-      (\ s a -> s{_fvmmDurationMillis = a})-      . mapping _Coerce--instance FromJSON FileVideoMediaMetadata where-        parseJSON-          = withObject "FileVideoMediaMetadata"-              (\ o ->-                 FileVideoMediaMetadata' <$>-                   (o .:? "height") <*> (o .:? "width") <*>-                     (o .:? "durationMillis"))--instance ToJSON FileVideoMediaMetadata where-        toJSON FileVideoMediaMetadata'{..}-          = object-              (catMaybes-                 [("height" .=) <$> _fvmmHeight,-                  ("width" .=) <$> _fvmmWidth,-                  ("durationMillis" .=) <$> _fvmmDurationMillis])---- | A collection of arbitrary key-value pairs which are private to the--- requesting app. Entries with null values are cleared in update and copy--- requests.------ /See:/ 'fileAppProperties' smart constructor.-newtype FileAppProperties =-  FileAppProperties'-    { _fapAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FileAppProperties' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fapAddtional'-fileAppProperties-    :: HashMap Text Text -- ^ 'fapAddtional'-    -> FileAppProperties-fileAppProperties pFapAddtional_ =-  FileAppProperties' {_fapAddtional = _Coerce # pFapAddtional_}---fapAddtional :: Lens' FileAppProperties (HashMap Text Text)-fapAddtional-  = lens _fapAddtional (\ s a -> s{_fapAddtional = a})-      . _Coerce--instance FromJSON FileAppProperties where-        parseJSON-          = withObject "FileAppProperties"-              (\ o -> FileAppProperties' <$> (parseJSONObject o))--instance ToJSON FileAppProperties where-        toJSON = toJSON . _fapAddtional---- | A change to a file or shared drive.------ /See:/ 'change' smart constructor.-data Change =-  Change'-    { _chaDrive       :: !(Maybe Drive)-    , _chaRemoved     :: !(Maybe Bool)-    , _chaTime        :: !(Maybe DateTime')-    , _chaKind        :: !Text-    , _chaTeamDrive   :: !(Maybe TeamDrive)-    , _chaTeamDriveId :: !(Maybe Text)-    , _chaType        :: !(Maybe Text)-    , _chaFileId      :: !(Maybe Text)-    , _chaFile        :: !(Maybe File)-    , _chaChangeType  :: !(Maybe Text)-    , _chaDriveId     :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Change' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'chaDrive'------ * 'chaRemoved'------ * 'chaTime'------ * 'chaKind'------ * 'chaTeamDrive'------ * 'chaTeamDriveId'------ * 'chaType'------ * 'chaFileId'------ * 'chaFile'------ * 'chaChangeType'------ * 'chaDriveId'-change-    :: Change-change =-  Change'-    { _chaDrive = Nothing-    , _chaRemoved = Nothing-    , _chaTime = Nothing-    , _chaKind = "drive#change"-    , _chaTeamDrive = Nothing-    , _chaTeamDriveId = Nothing-    , _chaType = Nothing-    , _chaFileId = Nothing-    , _chaFile = Nothing-    , _chaChangeType = Nothing-    , _chaDriveId = Nothing-    }----- | The updated state of the shared drive. Present if the changeType is--- drive, the user is still a member of the shared drive, and the shared--- drive has not been deleted.-chaDrive :: Lens' Change (Maybe Drive)-chaDrive = lens _chaDrive (\ s a -> s{_chaDrive = a})---- | Whether the file or shared drive has been removed from this list of--- changes, for example by deletion or loss of access.-chaRemoved :: Lens' Change (Maybe Bool)-chaRemoved-  = lens _chaRemoved (\ s a -> s{_chaRemoved = a})---- | The time of this change (RFC 3339 date-time).-chaTime :: Lens' Change (Maybe UTCTime)-chaTime-  = lens _chaTime (\ s a -> s{_chaTime = a}) .-      mapping _DateTime---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#change\".-chaKind :: Lens' Change Text-chaKind = lens _chaKind (\ s a -> s{_chaKind = a})---- | Deprecated - use drive instead.-chaTeamDrive :: Lens' Change (Maybe TeamDrive)-chaTeamDrive-  = lens _chaTeamDrive (\ s a -> s{_chaTeamDrive = a})---- | Deprecated - use driveId instead.-chaTeamDriveId :: Lens' Change (Maybe Text)-chaTeamDriveId-  = lens _chaTeamDriveId-      (\ s a -> s{_chaTeamDriveId = a})---- | Deprecated - use changeType instead.-chaType :: Lens' Change (Maybe Text)-chaType = lens _chaType (\ s a -> s{_chaType = a})---- | The ID of the file which has changed.-chaFileId :: Lens' Change (Maybe Text)-chaFileId-  = lens _chaFileId (\ s a -> s{_chaFileId = a})---- | The updated state of the file. Present if the type is file and the file--- has not been removed from this list of changes.-chaFile :: Lens' Change (Maybe File)-chaFile = lens _chaFile (\ s a -> s{_chaFile = a})---- | The type of the change. Possible values are file and drive.-chaChangeType :: Lens' Change (Maybe Text)-chaChangeType-  = lens _chaChangeType-      (\ s a -> s{_chaChangeType = a})---- | The ID of the shared drive associated with this change.-chaDriveId :: Lens' Change (Maybe Text)-chaDriveId-  = lens _chaDriveId (\ s a -> s{_chaDriveId = a})--instance FromJSON Change where-        parseJSON-          = withObject "Change"-              (\ o ->-                 Change' <$>-                   (o .:? "drive") <*> (o .:? "removed") <*>-                     (o .:? "time")-                     <*> (o .:? "kind" .!= "drive#change")-                     <*> (o .:? "teamDrive")-                     <*> (o .:? "teamDriveId")-                     <*> (o .:? "type")-                     <*> (o .:? "fileId")-                     <*> (o .:? "file")-                     <*> (o .:? "changeType")-                     <*> (o .:? "driveId"))--instance ToJSON Change where-        toJSON Change'{..}-          = object-              (catMaybes-                 [("drive" .=) <$> _chaDrive,-                  ("removed" .=) <$> _chaRemoved,-                  ("time" .=) <$> _chaTime, Just ("kind" .= _chaKind),-                  ("teamDrive" .=) <$> _chaTeamDrive,-                  ("teamDriveId" .=) <$> _chaTeamDriveId,-                  ("type" .=) <$> _chaType,-                  ("fileId" .=) <$> _chaFileId,-                  ("file" .=) <$> _chaFile,-                  ("changeType" .=) <$> _chaChangeType,-                  ("driveId" .=) <$> _chaDriveId])---- | Representation of a Team Drive.------ /See:/ 'teamDrive' smart constructor.-data TeamDrive =-  TeamDrive'-    { _tdThemeId             :: !(Maybe Text)-    , _tdBackgRoundImageFile :: !(Maybe TeamDriveBackgRoundImageFile)-    , _tdColorRgb            :: !(Maybe Text)-    , _tdCreatedTime         :: !(Maybe DateTime')-    , _tdKind                :: !Text-    , _tdBackgRoundImageLink :: !(Maybe Text)-    , _tdName                :: !(Maybe Text)-    , _tdRestrictions        :: !(Maybe TeamDriveRestrictions)-    , _tdId                  :: !(Maybe Text)-    , _tdCapabilities        :: !(Maybe TeamDriveCapabilities)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TeamDrive' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tdThemeId'------ * 'tdBackgRoundImageFile'------ * 'tdColorRgb'------ * 'tdCreatedTime'------ * 'tdKind'------ * 'tdBackgRoundImageLink'------ * 'tdName'------ * 'tdRestrictions'------ * 'tdId'------ * 'tdCapabilities'-teamDrive-    :: TeamDrive-teamDrive =-  TeamDrive'-    { _tdThemeId = Nothing-    , _tdBackgRoundImageFile = Nothing-    , _tdColorRgb = Nothing-    , _tdCreatedTime = Nothing-    , _tdKind = "drive#teamDrive"-    , _tdBackgRoundImageLink = Nothing-    , _tdName = Nothing-    , _tdRestrictions = Nothing-    , _tdId = Nothing-    , _tdCapabilities = Nothing-    }----- | The ID of the theme from which the background image and color will be--- set. The set of possible teamDriveThemes can be retrieved from a--- drive.about.get response. When not specified on a--- drive.teamdrives.create request, a random theme is chosen from which the--- background image and color are set. This is a write-only field; it can--- only be set on requests that don\'t set colorRgb or backgroundImageFile.-tdThemeId :: Lens' TeamDrive (Maybe Text)-tdThemeId-  = lens _tdThemeId (\ s a -> s{_tdThemeId = a})---- | An image file and cropping parameters from which a background image for--- this Team Drive is set. This is a write only field; it can only be set--- on drive.teamdrives.update requests that don\'t set themeId. When--- specified, all fields of the backgroundImageFile must be set.-tdBackgRoundImageFile :: Lens' TeamDrive (Maybe TeamDriveBackgRoundImageFile)-tdBackgRoundImageFile-  = lens _tdBackgRoundImageFile-      (\ s a -> s{_tdBackgRoundImageFile = a})---- | The color of this Team Drive as an RGB hex string. It can only be set on--- a drive.teamdrives.update request that does not set themeId.-tdColorRgb :: Lens' TeamDrive (Maybe Text)-tdColorRgb-  = lens _tdColorRgb (\ s a -> s{_tdColorRgb = a})---- | The time at which the Team Drive was created (RFC 3339 date-time).-tdCreatedTime :: Lens' TeamDrive (Maybe UTCTime)-tdCreatedTime-  = lens _tdCreatedTime-      (\ s a -> s{_tdCreatedTime = a})-      . mapping _DateTime---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#teamDrive\".-tdKind :: Lens' TeamDrive Text-tdKind = lens _tdKind (\ s a -> s{_tdKind = a})---- | A short-lived link to this Team Drive\'s background image.-tdBackgRoundImageLink :: Lens' TeamDrive (Maybe Text)-tdBackgRoundImageLink-  = lens _tdBackgRoundImageLink-      (\ s a -> s{_tdBackgRoundImageLink = a})---- | The name of this Team Drive.-tdName :: Lens' TeamDrive (Maybe Text)-tdName = lens _tdName (\ s a -> s{_tdName = a})---- | A set of restrictions that apply to this Team Drive or items inside this--- Team Drive.-tdRestrictions :: Lens' TeamDrive (Maybe TeamDriveRestrictions)-tdRestrictions-  = lens _tdRestrictions-      (\ s a -> s{_tdRestrictions = a})---- | The ID of this Team Drive which is also the ID of the top level folder--- of this Team Drive.-tdId :: Lens' TeamDrive (Maybe Text)-tdId = lens _tdId (\ s a -> s{_tdId = a})---- | Capabilities the current user has on this Team Drive.-tdCapabilities :: Lens' TeamDrive (Maybe TeamDriveCapabilities)-tdCapabilities-  = lens _tdCapabilities-      (\ s a -> s{_tdCapabilities = a})--instance FromJSON TeamDrive where-        parseJSON-          = withObject "TeamDrive"-              (\ o ->-                 TeamDrive' <$>-                   (o .:? "themeId") <*> (o .:? "backgroundImageFile")-                     <*> (o .:? "colorRgb")-                     <*> (o .:? "createdTime")-                     <*> (o .:? "kind" .!= "drive#teamDrive")-                     <*> (o .:? "backgroundImageLink")-                     <*> (o .:? "name")-                     <*> (o .:? "restrictions")-                     <*> (o .:? "id")-                     <*> (o .:? "capabilities"))--instance ToJSON TeamDrive where-        toJSON TeamDrive'{..}-          = object-              (catMaybes-                 [("themeId" .=) <$> _tdThemeId,-                  ("backgroundImageFile" .=) <$>-                    _tdBackgRoundImageFile,-                  ("colorRgb" .=) <$> _tdColorRgb,-                  ("createdTime" .=) <$> _tdCreatedTime,-                  Just ("kind" .= _tdKind),-                  ("backgroundImageLink" .=) <$>-                    _tdBackgRoundImageLink,-                  ("name" .=) <$> _tdName,-                  ("restrictions" .=) <$> _tdRestrictions,-                  ("id" .=) <$> _tdId,-                  ("capabilities" .=) <$> _tdCapabilities])---- | A map of source MIME type to possible targets for all supported exports.------ /See:/ 'aboutExportFormats' smart constructor.-newtype AboutExportFormats =-  AboutExportFormats'-    { _aefAddtional :: HashMap Text [Text]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AboutExportFormats' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aefAddtional'-aboutExportFormats-    :: HashMap Text [Text] -- ^ 'aefAddtional'-    -> AboutExportFormats-aboutExportFormats pAefAddtional_ =-  AboutExportFormats' {_aefAddtional = _Coerce # pAefAddtional_}---aefAddtional :: Lens' AboutExportFormats (HashMap Text [Text])-aefAddtional-  = lens _aefAddtional (\ s a -> s{_aefAddtional = a})-      . _Coerce--instance FromJSON AboutExportFormats where-        parseJSON-          = withObject "AboutExportFormats"-              (\ o -> AboutExportFormats' <$> (parseJSONObject o))--instance ToJSON AboutExportFormats where-        toJSON = toJSON . _aefAddtional---- | Information about a Drive user.------ /See:/ 'user' smart constructor.-data User =-  User'-    { _uPhotoLink    :: !(Maybe Text)-    , _uMe           :: !(Maybe Bool)-    , _uKind         :: !Text-    , _uEmailAddress :: !(Maybe Text)-    , _uDisplayName  :: !(Maybe Text)-    , _uPermissionId :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'User' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uPhotoLink'------ * 'uMe'------ * 'uKind'------ * 'uEmailAddress'------ * 'uDisplayName'------ * 'uPermissionId'-user-    :: User-user =-  User'-    { _uPhotoLink = Nothing-    , _uMe = Nothing-    , _uKind = "drive#user"-    , _uEmailAddress = Nothing-    , _uDisplayName = Nothing-    , _uPermissionId = Nothing-    }----- | A link to the user\'s profile photo, if available.-uPhotoLink :: Lens' User (Maybe Text)-uPhotoLink-  = lens _uPhotoLink (\ s a -> s{_uPhotoLink = a})---- | Whether this user is the requesting user.-uMe :: Lens' User (Maybe Bool)-uMe = lens _uMe (\ s a -> s{_uMe = a})---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#user\".-uKind :: Lens' User Text-uKind = lens _uKind (\ s a -> s{_uKind = a})---- | The email address of the user. This may not be present in certain--- contexts if the user has not made their email address visible to the--- requester.-uEmailAddress :: Lens' User (Maybe Text)-uEmailAddress-  = lens _uEmailAddress-      (\ s a -> s{_uEmailAddress = a})---- | A plain text displayable name for this user.-uDisplayName :: Lens' User (Maybe Text)-uDisplayName-  = lens _uDisplayName (\ s a -> s{_uDisplayName = a})---- | The user\'s ID as visible in Permission resources.-uPermissionId :: Lens' User (Maybe Text)-uPermissionId-  = lens _uPermissionId-      (\ s a -> s{_uPermissionId = a})--instance FromJSON User where-        parseJSON-          = withObject "User"-              (\ o ->-                 User' <$>-                   (o .:? "photoLink") <*> (o .:? "me") <*>-                     (o .:? "kind" .!= "drive#user")-                     <*> (o .:? "emailAddress")-                     <*> (o .:? "displayName")-                     <*> (o .:? "permissionId"))--instance ToJSON User where-        toJSON User'{..}-          = object-              (catMaybes-                 [("photoLink" .=) <$> _uPhotoLink,-                  ("me" .=) <$> _uMe, Just ("kind" .= _uKind),-                  ("emailAddress" .=) <$> _uEmailAddress,-                  ("displayName" .=) <$> _uDisplayName,-                  ("permissionId" .=) <$> _uPermissionId])---- | A list of changes for a user.------ /See:/ 'changeList' smart constructor.-data ChangeList =-  ChangeList'-    { _clNewStartPageToken :: !(Maybe Text)-    , _clNextPageToken     :: !(Maybe Text)-    , _clChanges           :: !(Maybe [Change])-    , _clKind              :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChangeList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'clNewStartPageToken'------ * 'clNextPageToken'------ * 'clChanges'------ * 'clKind'-changeList-    :: ChangeList-changeList =-  ChangeList'-    { _clNewStartPageToken = Nothing-    , _clNextPageToken = Nothing-    , _clChanges = Nothing-    , _clKind = "drive#changeList"-    }----- | The starting page token for future changes. This will be present only if--- the end of the current changes list has been reached.-clNewStartPageToken :: Lens' ChangeList (Maybe Text)-clNewStartPageToken-  = lens _clNewStartPageToken-      (\ s a -> s{_clNewStartPageToken = a})---- | The page token for the next page of changes. This will be absent if the--- end of the changes list has been reached. If the token is rejected for--- any reason, it should be discarded, and pagination should be restarted--- from the first page of results.-clNextPageToken :: Lens' ChangeList (Maybe Text)-clNextPageToken-  = lens _clNextPageToken-      (\ s a -> s{_clNextPageToken = a})---- | The list of changes. If nextPageToken is populated, then this list may--- be incomplete and an additional page of results should be fetched.-clChanges :: Lens' ChangeList [Change]-clChanges-  = lens _clChanges (\ s a -> s{_clChanges = a}) .-      _Default-      . _Coerce---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#changeList\".-clKind :: Lens' ChangeList Text-clKind = lens _clKind (\ s a -> s{_clKind = a})--instance FromJSON ChangeList where-        parseJSON-          = withObject "ChangeList"-              (\ o ->-                 ChangeList' <$>-                   (o .:? "newStartPageToken") <*>-                     (o .:? "nextPageToken")-                     <*> (o .:? "changes" .!= mempty)-                     <*> (o .:? "kind" .!= "drive#changeList"))--instance ToJSON ChangeList where-        toJSON ChangeList'{..}-          = object-              (catMaybes-                 [("newStartPageToken" .=) <$> _clNewStartPageToken,-                  ("nextPageToken" .=) <$> _clNextPageToken,-                  ("changes" .=) <$> _clChanges,-                  Just ("kind" .= _clKind)])---- | Links for exporting Google Docs to specific formats.------ /See:/ 'revisionExportLinks' smart constructor.-newtype RevisionExportLinks =-  RevisionExportLinks'-    { _relAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RevisionExportLinks' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'relAddtional'-revisionExportLinks-    :: HashMap Text Text -- ^ 'relAddtional'-    -> RevisionExportLinks-revisionExportLinks pRelAddtional_ =-  RevisionExportLinks' {_relAddtional = _Coerce # pRelAddtional_}----- | A mapping from export format to URL-relAddtional :: Lens' RevisionExportLinks (HashMap Text Text)-relAddtional-  = lens _relAddtional (\ s a -> s{_relAddtional = a})-      . _Coerce--instance FromJSON RevisionExportLinks where-        parseJSON-          = withObject "RevisionExportLinks"-              (\ o -> RevisionExportLinks' <$> (parseJSONObject o))--instance ToJSON RevisionExportLinks where-        toJSON = toJSON . _relAddtional---- | Additional information about the content of the file. These fields are--- never populated in responses.------ /See:/ 'fileContentHints' smart constructor.-data FileContentHints =-  FileContentHints'-    { _fchThumbnail     :: !(Maybe FileContentHintsThumbnail)-    , _fchIndexableText :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FileContentHints' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fchThumbnail'------ * 'fchIndexableText'-fileContentHints-    :: FileContentHints-fileContentHints =-  FileContentHints' {_fchThumbnail = Nothing, _fchIndexableText = Nothing}----- | A thumbnail for the file. This will only be used if Google Drive cannot--- generate a standard thumbnail.-fchThumbnail :: Lens' FileContentHints (Maybe FileContentHintsThumbnail)-fchThumbnail-  = lens _fchThumbnail (\ s a -> s{_fchThumbnail = a})---- | Text to be indexed for the file to improve fullText queries. This is--- limited to 128KB in length and may contain HTML elements.-fchIndexableText :: Lens' FileContentHints (Maybe Text)-fchIndexableText-  = lens _fchIndexableText-      (\ s a -> s{_fchIndexableText = a})--instance FromJSON FileContentHints where-        parseJSON-          = withObject "FileContentHints"-              (\ o ->-                 FileContentHints' <$>-                   (o .:? "thumbnail") <*> (o .:? "indexableText"))--instance ToJSON FileContentHints where-        toJSON FileContentHints'{..}-          = object-              (catMaybes-                 [("thumbnail" .=) <$> _fchThumbnail,-                  ("indexableText" .=) <$> _fchIndexableText])---- | Additional parameters controlling delivery channel behavior. Optional.------ /See:/ 'channelParams' smart constructor.-newtype ChannelParams =-  ChannelParams'-    { _cpAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChannelParams' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpAddtional'-channelParams-    :: HashMap Text Text -- ^ 'cpAddtional'-    -> ChannelParams-channelParams pCpAddtional_ =-  ChannelParams' {_cpAddtional = _Coerce # pCpAddtional_}----- | Declares a new parameter by name.-cpAddtional :: Lens' ChannelParams (HashMap Text Text)-cpAddtional-  = lens _cpAddtional (\ s a -> s{_cpAddtional = a}) .-      _Coerce--instance FromJSON ChannelParams where-        parseJSON-          = withObject "ChannelParams"-              (\ o -> ChannelParams' <$> (parseJSONObject o))--instance ToJSON ChannelParams where-        toJSON = toJSON . _cpAddtional---- | A collection of arbitrary key-value pairs which are visible to all apps.--- Entries with null values are cleared in update and copy requests.------ /See:/ 'fileProperties' smart constructor.-newtype FileProperties =-  FileProperties'-    { _fpAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FileProperties' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fpAddtional'-fileProperties-    :: HashMap Text Text -- ^ 'fpAddtional'-    -> FileProperties-fileProperties pFpAddtional_ =-  FileProperties' {_fpAddtional = _Coerce # pFpAddtional_}---fpAddtional :: Lens' FileProperties (HashMap Text Text)-fpAddtional-  = lens _fpAddtional (\ s a -> s{_fpAddtional = a}) .-      _Coerce--instance FromJSON FileProperties where-        parseJSON-          = withObject "FileProperties"-              (\ o -> FileProperties' <$> (parseJSONObject o))--instance ToJSON FileProperties where-        toJSON = toJSON . _fpAddtional---- | A map of maximum import sizes by MIME type, in bytes.------ /See:/ 'aboutMaxImportSizes' smart constructor.-newtype AboutMaxImportSizes =-  AboutMaxImportSizes'-    { _amisAddtional :: HashMap Text (Textual Int64)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AboutMaxImportSizes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'amisAddtional'-aboutMaxImportSizes-    :: HashMap Text Int64 -- ^ 'amisAddtional'-    -> AboutMaxImportSizes-aboutMaxImportSizes pAmisAddtional_ =-  AboutMaxImportSizes' {_amisAddtional = _Coerce # pAmisAddtional_}---amisAddtional :: Lens' AboutMaxImportSizes (HashMap Text Int64)-amisAddtional-  = lens _amisAddtional-      (\ s a -> s{_amisAddtional = a})-      . _Coerce--instance FromJSON AboutMaxImportSizes where-        parseJSON-          = withObject "AboutMaxImportSizes"-              (\ o -> AboutMaxImportSizes' <$> (parseJSONObject o))--instance ToJSON AboutMaxImportSizes where-        toJSON = toJSON . _amisAddtional---- | Information about the user, the user\'s Drive, and system capabilities.------ /See:/ 'about' smart constructor.-data About =-  About'-    { _aExportFormats       :: !(Maybe AboutExportFormats)-    , _aMaxImportSizes      :: !(Maybe AboutMaxImportSizes)-    , _aCanCreateTeamDrives :: !(Maybe Bool)-    , _aImportFormats       :: !(Maybe AboutImportFormats)-    , _aKind                :: !Text-    , _aDriveThemes         :: !(Maybe [AboutDriveThemesItem])-    , _aAppInstalled        :: !(Maybe Bool)-    , _aUser                :: !(Maybe User)-    , _aStorageQuota        :: !(Maybe AboutStorageQuota)-    , _aCanCreateDrives     :: !(Maybe Bool)-    , _aMaxUploadSize       :: !(Maybe (Textual Int64))-    , _aTeamDriveThemes     :: !(Maybe [AboutTeamDriveThemesItem])-    , _aFolderColorPalette  :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'About' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aExportFormats'------ * 'aMaxImportSizes'------ * 'aCanCreateTeamDrives'------ * 'aImportFormats'------ * 'aKind'------ * 'aDriveThemes'------ * 'aAppInstalled'------ * 'aUser'------ * 'aStorageQuota'------ * 'aCanCreateDrives'------ * 'aMaxUploadSize'------ * 'aTeamDriveThemes'------ * 'aFolderColorPalette'-about-    :: About-about =-  About'-    { _aExportFormats = Nothing-    , _aMaxImportSizes = Nothing-    , _aCanCreateTeamDrives = Nothing-    , _aImportFormats = Nothing-    , _aKind = "drive#about"-    , _aDriveThemes = Nothing-    , _aAppInstalled = Nothing-    , _aUser = Nothing-    , _aStorageQuota = Nothing-    , _aCanCreateDrives = Nothing-    , _aMaxUploadSize = Nothing-    , _aTeamDriveThemes = Nothing-    , _aFolderColorPalette = Nothing-    }----- | A map of source MIME type to possible targets for all supported exports.-aExportFormats :: Lens' About (Maybe AboutExportFormats)-aExportFormats-  = lens _aExportFormats-      (\ s a -> s{_aExportFormats = a})---- | A map of maximum import sizes by MIME type, in bytes.-aMaxImportSizes :: Lens' About (Maybe AboutMaxImportSizes)-aMaxImportSizes-  = lens _aMaxImportSizes-      (\ s a -> s{_aMaxImportSizes = a})---- | Deprecated - use canCreateDrives instead.-aCanCreateTeamDrives :: Lens' About (Maybe Bool)-aCanCreateTeamDrives-  = lens _aCanCreateTeamDrives-      (\ s a -> s{_aCanCreateTeamDrives = a})---- | A map of source MIME type to possible targets for all supported imports.-aImportFormats :: Lens' About (Maybe AboutImportFormats)-aImportFormats-  = lens _aImportFormats-      (\ s a -> s{_aImportFormats = a})---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#about\".-aKind :: Lens' About Text-aKind = lens _aKind (\ s a -> s{_aKind = a})---- | A list of themes that are supported for shared drives.-aDriveThemes :: Lens' About [AboutDriveThemesItem]-aDriveThemes-  = lens _aDriveThemes (\ s a -> s{_aDriveThemes = a})-      . _Default-      . _Coerce---- | Whether the user has installed the requesting app.-aAppInstalled :: Lens' About (Maybe Bool)-aAppInstalled-  = lens _aAppInstalled-      (\ s a -> s{_aAppInstalled = a})---- | The authenticated user.-aUser :: Lens' About (Maybe User)-aUser = lens _aUser (\ s a -> s{_aUser = a})---- | The user\'s storage quota limits and usage. All fields are measured in--- bytes.-aStorageQuota :: Lens' About (Maybe AboutStorageQuota)-aStorageQuota-  = lens _aStorageQuota-      (\ s a -> s{_aStorageQuota = a})---- | Whether the user can create shared drives.-aCanCreateDrives :: Lens' About (Maybe Bool)-aCanCreateDrives-  = lens _aCanCreateDrives-      (\ s a -> s{_aCanCreateDrives = a})---- | The maximum upload size in bytes.-aMaxUploadSize :: Lens' About (Maybe Int64)-aMaxUploadSize-  = lens _aMaxUploadSize-      (\ s a -> s{_aMaxUploadSize = a})-      . mapping _Coerce---- | Deprecated - use driveThemes instead.-aTeamDriveThemes :: Lens' About [AboutTeamDriveThemesItem]-aTeamDriveThemes-  = lens _aTeamDriveThemes-      (\ s a -> s{_aTeamDriveThemes = a})-      . _Default-      . _Coerce---- | The currently supported folder colors as RGB hex strings.-aFolderColorPalette :: Lens' About [Text]-aFolderColorPalette-  = lens _aFolderColorPalette-      (\ s a -> s{_aFolderColorPalette = a})-      . _Default-      . _Coerce--instance FromJSON About where-        parseJSON-          = withObject "About"-              (\ o ->-                 About' <$>-                   (o .:? "exportFormats") <*> (o .:? "maxImportSizes")-                     <*> (o .:? "canCreateTeamDrives")-                     <*> (o .:? "importFormats")-                     <*> (o .:? "kind" .!= "drive#about")-                     <*> (o .:? "driveThemes" .!= mempty)-                     <*> (o .:? "appInstalled")-                     <*> (o .:? "user")-                     <*> (o .:? "storageQuota")-                     <*> (o .:? "canCreateDrives")-                     <*> (o .:? "maxUploadSize")-                     <*> (o .:? "teamDriveThemes" .!= mempty)-                     <*> (o .:? "folderColorPalette" .!= mempty))--instance ToJSON About where-        toJSON About'{..}-          = object-              (catMaybes-                 [("exportFormats" .=) <$> _aExportFormats,-                  ("maxImportSizes" .=) <$> _aMaxImportSizes,-                  ("canCreateTeamDrives" .=) <$> _aCanCreateTeamDrives,-                  ("importFormats" .=) <$> _aImportFormats,-                  Just ("kind" .= _aKind),-                  ("driveThemes" .=) <$> _aDriveThemes,-                  ("appInstalled" .=) <$> _aAppInstalled,-                  ("user" .=) <$> _aUser,-                  ("storageQuota" .=) <$> _aStorageQuota,-                  ("canCreateDrives" .=) <$> _aCanCreateDrives,-                  ("maxUploadSize" .=) <$> _aMaxUploadSize,-                  ("teamDriveThemes" .=) <$> _aTeamDriveThemes,-                  ("folderColorPalette" .=) <$> _aFolderColorPalette])---- | Geographic location information stored in the image.------ /See:/ 'fileImageMediaMetadataLocation' smart constructor.-data FileImageMediaMetadataLocation =-  FileImageMediaMetadataLocation'-    { _fimmlLatitude  :: !(Maybe (Textual Double))-    , _fimmlAltitude  :: !(Maybe (Textual Double))-    , _fimmlLongitude :: !(Maybe (Textual Double))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FileImageMediaMetadataLocation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fimmlLatitude'------ * 'fimmlAltitude'------ * 'fimmlLongitude'-fileImageMediaMetadataLocation-    :: FileImageMediaMetadataLocation-fileImageMediaMetadataLocation =-  FileImageMediaMetadataLocation'-    { _fimmlLatitude = Nothing-    , _fimmlAltitude = Nothing-    , _fimmlLongitude = Nothing-    }----- | The latitude stored in the image.-fimmlLatitude :: Lens' FileImageMediaMetadataLocation (Maybe Double)-fimmlLatitude-  = lens _fimmlLatitude-      (\ s a -> s{_fimmlLatitude = a})-      . mapping _Coerce---- | The altitude stored in the image.-fimmlAltitude :: Lens' FileImageMediaMetadataLocation (Maybe Double)-fimmlAltitude-  = lens _fimmlAltitude-      (\ s a -> s{_fimmlAltitude = a})-      . mapping _Coerce---- | The longitude stored in the image.-fimmlLongitude :: Lens' FileImageMediaMetadataLocation (Maybe Double)-fimmlLongitude-  = lens _fimmlLongitude-      (\ s a -> s{_fimmlLongitude = a})-      . mapping _Coerce--instance FromJSON FileImageMediaMetadataLocation-         where-        parseJSON-          = withObject "FileImageMediaMetadataLocation"-              (\ o ->-                 FileImageMediaMetadataLocation' <$>-                   (o .:? "latitude") <*> (o .:? "altitude") <*>-                     (o .:? "longitude"))--instance ToJSON FileImageMediaMetadataLocation where-        toJSON FileImageMediaMetadataLocation'{..}-          = object-              (catMaybes-                 [("latitude" .=) <$> _fimmlLatitude,-                  ("altitude" .=) <$> _fimmlAltitude,-                  ("longitude" .=) <$> _fimmlLongitude])------- /See:/ 'startPageToken' smart constructor.-data StartPageToken =-  StartPageToken'-    { _sptKind           :: !Text-    , _sptStartPageToken :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StartPageToken' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sptKind'------ * 'sptStartPageToken'-startPageToken-    :: StartPageToken-startPageToken =-  StartPageToken'-    {_sptKind = "drive#startPageToken", _sptStartPageToken = Nothing}----- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#startPageToken\".-sptKind :: Lens' StartPageToken Text-sptKind = lens _sptKind (\ s a -> s{_sptKind = a})---- | The starting page token for listing changes.-sptStartPageToken :: Lens' StartPageToken (Maybe Text)-sptStartPageToken-  = lens _sptStartPageToken-      (\ s a -> s{_sptStartPageToken = a})--instance FromJSON StartPageToken where-        parseJSON-          = withObject "StartPageToken"-              (\ o ->-                 StartPageToken' <$>-                   (o .:? "kind" .!= "drive#startPageToken") <*>-                     (o .:? "startPageToken"))--instance ToJSON StartPageToken where-        toJSON StartPageToken'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _sptKind),-                  ("startPageToken" .=) <$> _sptStartPageToken])---- | Additional metadata about image media, if available.------ /See:/ 'fileImageMediaMetadata' smart constructor.-data FileImageMediaMetadata =-  FileImageMediaMetadata'-    { _fimmRotation         :: !(Maybe (Textual Int32))-    , _fimmHeight           :: !(Maybe (Textual Int32))-    , _fimmSubjectDistance  :: !(Maybe (Textual Int32))-    , _fimmMaxApertureValue :: !(Maybe (Textual Double))-    , _fimmIsoSpeed         :: !(Maybe (Textual Int32))-    , _fimmTime             :: !(Maybe Text)-    , _fimmLocation         :: !(Maybe FileImageMediaMetadataLocation)-    , _fimmAperture         :: !(Maybe (Textual Double))-    , _fimmFocalLength      :: !(Maybe (Textual Double))-    , _fimmCameraMake       :: !(Maybe Text)-    , _fimmWidth            :: !(Maybe (Textual Int32))-    , _fimmExposureTime     :: !(Maybe (Textual Double))-    , _fimmCameraModel      :: !(Maybe Text)-    , _fimmWhiteBalance     :: !(Maybe Text)-    , _fimmLens             :: !(Maybe Text)-    , _fimmFlashUsed        :: !(Maybe Bool)-    , _fimmExposureBias     :: !(Maybe (Textual Double))-    , _fimmMeteringMode     :: !(Maybe Text)-    , _fimmExposureMode     :: !(Maybe Text)-    , _fimmSensor           :: !(Maybe Text)-    , _fimmColorSpace       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FileImageMediaMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fimmRotation'------ * 'fimmHeight'------ * 'fimmSubjectDistance'------ * 'fimmMaxApertureValue'------ * 'fimmIsoSpeed'------ * 'fimmTime'------ * 'fimmLocation'------ * 'fimmAperture'------ * 'fimmFocalLength'------ * 'fimmCameraMake'------ * 'fimmWidth'------ * 'fimmExposureTime'------ * 'fimmCameraModel'------ * 'fimmWhiteBalance'------ * 'fimmLens'------ * 'fimmFlashUsed'------ * 'fimmExposureBias'------ * 'fimmMeteringMode'------ * 'fimmExposureMode'------ * 'fimmSensor'------ * 'fimmColorSpace'-fileImageMediaMetadata-    :: FileImageMediaMetadata-fileImageMediaMetadata =-  FileImageMediaMetadata'-    { _fimmRotation = Nothing-    , _fimmHeight = Nothing-    , _fimmSubjectDistance = Nothing-    , _fimmMaxApertureValue = Nothing-    , _fimmIsoSpeed = Nothing-    , _fimmTime = Nothing-    , _fimmLocation = Nothing-    , _fimmAperture = Nothing-    , _fimmFocalLength = Nothing-    , _fimmCameraMake = Nothing-    , _fimmWidth = Nothing-    , _fimmExposureTime = Nothing-    , _fimmCameraModel = Nothing-    , _fimmWhiteBalance = Nothing-    , _fimmLens = Nothing-    , _fimmFlashUsed = Nothing-    , _fimmExposureBias = Nothing-    , _fimmMeteringMode = Nothing-    , _fimmExposureMode = Nothing-    , _fimmSensor = Nothing-    , _fimmColorSpace = Nothing-    }----- | The rotation in clockwise degrees from the image\'s original--- orientation.-fimmRotation :: Lens' FileImageMediaMetadata (Maybe Int32)-fimmRotation-  = lens _fimmRotation (\ s a -> s{_fimmRotation = a})-      . mapping _Coerce---- | The height of the image in pixels.-fimmHeight :: Lens' FileImageMediaMetadata (Maybe Int32)-fimmHeight-  = lens _fimmHeight (\ s a -> s{_fimmHeight = a}) .-      mapping _Coerce---- | The distance to the subject of the photo, in meters.-fimmSubjectDistance :: Lens' FileImageMediaMetadata (Maybe Int32)-fimmSubjectDistance-  = lens _fimmSubjectDistance-      (\ s a -> s{_fimmSubjectDistance = a})-      . mapping _Coerce---- | The smallest f-number of the lens at the focal length used to create the--- photo (APEX value).-fimmMaxApertureValue :: Lens' FileImageMediaMetadata (Maybe Double)-fimmMaxApertureValue-  = lens _fimmMaxApertureValue-      (\ s a -> s{_fimmMaxApertureValue = a})-      . mapping _Coerce---- | The ISO speed used to create the photo.-fimmIsoSpeed :: Lens' FileImageMediaMetadata (Maybe Int32)-fimmIsoSpeed-  = lens _fimmIsoSpeed (\ s a -> s{_fimmIsoSpeed = a})-      . mapping _Coerce---- | The date and time the photo was taken (EXIF DateTime).-fimmTime :: Lens' FileImageMediaMetadata (Maybe Text)-fimmTime = lens _fimmTime (\ s a -> s{_fimmTime = a})---- | Geographic location information stored in the image.-fimmLocation :: Lens' FileImageMediaMetadata (Maybe FileImageMediaMetadataLocation)-fimmLocation-  = lens _fimmLocation (\ s a -> s{_fimmLocation = a})---- | The aperture used to create the photo (f-number).-fimmAperture :: Lens' FileImageMediaMetadata (Maybe Double)-fimmAperture-  = lens _fimmAperture (\ s a -> s{_fimmAperture = a})-      . mapping _Coerce---- | The focal length used to create the photo, in millimeters.-fimmFocalLength :: Lens' FileImageMediaMetadata (Maybe Double)-fimmFocalLength-  = lens _fimmFocalLength-      (\ s a -> s{_fimmFocalLength = a})-      . mapping _Coerce---- | The make of the camera used to create the photo.-fimmCameraMake :: Lens' FileImageMediaMetadata (Maybe Text)-fimmCameraMake-  = lens _fimmCameraMake-      (\ s a -> s{_fimmCameraMake = a})---- | The width of the image in pixels.-fimmWidth :: Lens' FileImageMediaMetadata (Maybe Int32)-fimmWidth-  = lens _fimmWidth (\ s a -> s{_fimmWidth = a}) .-      mapping _Coerce---- | The length of the exposure, in seconds.-fimmExposureTime :: Lens' FileImageMediaMetadata (Maybe Double)-fimmExposureTime-  = lens _fimmExposureTime-      (\ s a -> s{_fimmExposureTime = a})-      . mapping _Coerce---- | The model of the camera used to create the photo.-fimmCameraModel :: Lens' FileImageMediaMetadata (Maybe Text)-fimmCameraModel-  = lens _fimmCameraModel-      (\ s a -> s{_fimmCameraModel = a})---- | The white balance mode used to create the photo.-fimmWhiteBalance :: Lens' FileImageMediaMetadata (Maybe Text)-fimmWhiteBalance-  = lens _fimmWhiteBalance-      (\ s a -> s{_fimmWhiteBalance = a})---- | The lens used to create the photo.-fimmLens :: Lens' FileImageMediaMetadata (Maybe Text)-fimmLens = lens _fimmLens (\ s a -> s{_fimmLens = a})---- | Whether a flash was used to create the photo.-fimmFlashUsed :: Lens' FileImageMediaMetadata (Maybe Bool)-fimmFlashUsed-  = lens _fimmFlashUsed-      (\ s a -> s{_fimmFlashUsed = a})---- | The exposure bias of the photo (APEX value).-fimmExposureBias :: Lens' FileImageMediaMetadata (Maybe Double)-fimmExposureBias-  = lens _fimmExposureBias-      (\ s a -> s{_fimmExposureBias = a})-      . mapping _Coerce---- | The metering mode used to create the photo.-fimmMeteringMode :: Lens' FileImageMediaMetadata (Maybe Text)-fimmMeteringMode-  = lens _fimmMeteringMode-      (\ s a -> s{_fimmMeteringMode = a})---- | The exposure mode used to create the photo.-fimmExposureMode :: Lens' FileImageMediaMetadata (Maybe Text)-fimmExposureMode-  = lens _fimmExposureMode-      (\ s a -> s{_fimmExposureMode = a})---- | The type of sensor used to create the photo.-fimmSensor :: Lens' FileImageMediaMetadata (Maybe Text)-fimmSensor-  = lens _fimmSensor (\ s a -> s{_fimmSensor = a})---- | The color space of the photo.-fimmColorSpace :: Lens' FileImageMediaMetadata (Maybe Text)-fimmColorSpace-  = lens _fimmColorSpace-      (\ s a -> s{_fimmColorSpace = a})--instance FromJSON FileImageMediaMetadata where-        parseJSON-          = withObject "FileImageMediaMetadata"-              (\ o ->-                 FileImageMediaMetadata' <$>-                   (o .:? "rotation") <*> (o .:? "height") <*>-                     (o .:? "subjectDistance")-                     <*> (o .:? "maxApertureValue")-                     <*> (o .:? "isoSpeed")-                     <*> (o .:? "time")-                     <*> (o .:? "location")-                     <*> (o .:? "aperture")-                     <*> (o .:? "focalLength")-                     <*> (o .:? "cameraMake")-                     <*> (o .:? "width")-                     <*> (o .:? "exposureTime")-                     <*> (o .:? "cameraModel")-                     <*> (o .:? "whiteBalance")-                     <*> (o .:? "lens")-                     <*> (o .:? "flashUsed")-                     <*> (o .:? "exposureBias")-                     <*> (o .:? "meteringMode")-                     <*> (o .:? "exposureMode")-                     <*> (o .:? "sensor")-                     <*> (o .:? "colorSpace"))--instance ToJSON FileImageMediaMetadata where-        toJSON FileImageMediaMetadata'{..}-          = object-              (catMaybes-                 [("rotation" .=) <$> _fimmRotation,-                  ("height" .=) <$> _fimmHeight,-                  ("subjectDistance" .=) <$> _fimmSubjectDistance,-                  ("maxApertureValue" .=) <$> _fimmMaxApertureValue,-                  ("isoSpeed" .=) <$> _fimmIsoSpeed,-                  ("time" .=) <$> _fimmTime,-                  ("location" .=) <$> _fimmLocation,-                  ("aperture" .=) <$> _fimmAperture,-                  ("focalLength" .=) <$> _fimmFocalLength,-                  ("cameraMake" .=) <$> _fimmCameraMake,-                  ("width" .=) <$> _fimmWidth,-                  ("exposureTime" .=) <$> _fimmExposureTime,-                  ("cameraModel" .=) <$> _fimmCameraModel,-                  ("whiteBalance" .=) <$> _fimmWhiteBalance,-                  ("lens" .=) <$> _fimmLens,-                  ("flashUsed" .=) <$> _fimmFlashUsed,-                  ("exposureBias" .=) <$> _fimmExposureBias,-                  ("meteringMode" .=) <$> _fimmMeteringMode,-                  ("exposureMode" .=) <$> _fimmExposureMode,-                  ("sensor" .=) <$> _fimmSensor,-                  ("colorSpace" .=) <$> _fimmColorSpace])---- | A comment on a file.------ /See:/ 'comment' smart constructor.-data Comment =-  Comment'-    { _comHTMLContent       :: !(Maybe Text)-    , _comModifiedTime      :: !(Maybe DateTime')-    , _comCreatedTime       :: !(Maybe DateTime')-    , _comKind              :: !Text-    , _comResolved          :: !(Maybe Bool)-    , _comQuotedFileContent :: !(Maybe CommentQuotedFileContent)-    , _comAnchor            :: !(Maybe Text)-    , _comContent           :: !(Maybe Text)-    , _comReplies           :: !(Maybe [Reply])-    , _comAuthor            :: !(Maybe User)-    , _comId                :: !(Maybe Text)-    , _comDeleted           :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Comment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'comHTMLContent'------ * 'comModifiedTime'------ * 'comCreatedTime'------ * 'comKind'------ * 'comResolved'------ * 'comQuotedFileContent'------ * 'comAnchor'------ * 'comContent'------ * 'comReplies'------ * 'comAuthor'------ * 'comId'------ * 'comDeleted'-comment-    :: Comment-comment =-  Comment'-    { _comHTMLContent = Nothing-    , _comModifiedTime = Nothing-    , _comCreatedTime = Nothing-    , _comKind = "drive#comment"-    , _comResolved = Nothing-    , _comQuotedFileContent = Nothing-    , _comAnchor = Nothing-    , _comContent = Nothing-    , _comReplies = Nothing-    , _comAuthor = Nothing-    , _comId = Nothing-    , _comDeleted = Nothing-    }----- | The content of the comment with HTML formatting.-comHTMLContent :: Lens' Comment (Maybe Text)-comHTMLContent-  = lens _comHTMLContent-      (\ s a -> s{_comHTMLContent = a})---- | The last time the comment or any of its replies was modified (RFC 3339--- date-time).-comModifiedTime :: Lens' Comment (Maybe UTCTime)-comModifiedTime-  = lens _comModifiedTime-      (\ s a -> s{_comModifiedTime = a})-      . mapping _DateTime---- | The time at which the comment was created (RFC 3339 date-time).-comCreatedTime :: Lens' Comment (Maybe UTCTime)-comCreatedTime-  = lens _comCreatedTime-      (\ s a -> s{_comCreatedTime = a})-      . mapping _DateTime---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#comment\".-comKind :: Lens' Comment Text-comKind = lens _comKind (\ s a -> s{_comKind = a})---- | Whether the comment has been resolved by one of its replies.-comResolved :: Lens' Comment (Maybe Bool)-comResolved-  = lens _comResolved (\ s a -> s{_comResolved = a})---- | The file content to which the comment refers, typically within the--- anchor region. For a text file, for example, this would be the text at--- the location of the comment.-comQuotedFileContent :: Lens' Comment (Maybe CommentQuotedFileContent)-comQuotedFileContent-  = lens _comQuotedFileContent-      (\ s a -> s{_comQuotedFileContent = a})---- | A region of the document represented as a JSON string. See anchor--- documentation for details on how to define and interpret anchor--- properties.-comAnchor :: Lens' Comment (Maybe Text)-comAnchor-  = lens _comAnchor (\ s a -> s{_comAnchor = a})---- | The plain text content of the comment. This field is used for setting--- the content, while htmlContent should be displayed.-comContent :: Lens' Comment (Maybe Text)-comContent-  = lens _comContent (\ s a -> s{_comContent = a})---- | The full list of replies to the comment in chronological order.-comReplies :: Lens' Comment [Reply]-comReplies-  = lens _comReplies (\ s a -> s{_comReplies = a}) .-      _Default-      . _Coerce---- | The user who created the comment.-comAuthor :: Lens' Comment (Maybe User)-comAuthor-  = lens _comAuthor (\ s a -> s{_comAuthor = a})---- | The ID of the comment.-comId :: Lens' Comment (Maybe Text)-comId = lens _comId (\ s a -> s{_comId = a})---- | Whether the comment has been deleted. A deleted comment has no content.-comDeleted :: Lens' Comment (Maybe Bool)-comDeleted-  = lens _comDeleted (\ s a -> s{_comDeleted = a})--instance FromJSON Comment where-        parseJSON-          = withObject "Comment"-              (\ o ->-                 Comment' <$>-                   (o .:? "htmlContent") <*> (o .:? "modifiedTime") <*>-                     (o .:? "createdTime")-                     <*> (o .:? "kind" .!= "drive#comment")-                     <*> (o .:? "resolved")-                     <*> (o .:? "quotedFileContent")-                     <*> (o .:? "anchor")-                     <*> (o .:? "content")-                     <*> (o .:? "replies" .!= mempty)-                     <*> (o .:? "author")-                     <*> (o .:? "id")-                     <*> (o .:? "deleted"))--instance ToJSON Comment where-        toJSON Comment'{..}-          = object-              (catMaybes-                 [("htmlContent" .=) <$> _comHTMLContent,-                  ("modifiedTime" .=) <$> _comModifiedTime,-                  ("createdTime" .=) <$> _comCreatedTime,-                  Just ("kind" .= _comKind),-                  ("resolved" .=) <$> _comResolved,-                  ("quotedFileContent" .=) <$> _comQuotedFileContent,-                  ("anchor" .=) <$> _comAnchor,-                  ("content" .=) <$> _comContent,-                  ("replies" .=) <$> _comReplies,-                  ("author" .=) <$> _comAuthor, ("id" .=) <$> _comId,-                  ("deleted" .=) <$> _comDeleted])---- | The metadata for a revision to a file.------ /See:/ 'revision' smart constructor.-data Revision =-  Revision'-    { _revModifiedTime           :: !(Maybe DateTime')-    , _revSize                   :: !(Maybe (Textual Int64))-    , _revOriginalFilename       :: !(Maybe Text)-    , _revKind                   :: !Text-    , _revPublished              :: !(Maybe Bool)-    , _revLastModifyingUser      :: !(Maybe User)-    , _revPublishAuto            :: !(Maybe Bool)-    , _revMD5Checksum            :: !(Maybe Text)-    , _revKeepForever            :: !(Maybe Bool)-    , _revMimeType               :: !(Maybe Text)-    , _revExportLinks            :: !(Maybe RevisionExportLinks)-    , _revPublishedOutsideDomain :: !(Maybe Bool)-    , _revId                     :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Revision' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'revModifiedTime'------ * 'revSize'------ * 'revOriginalFilename'------ * 'revKind'------ * 'revPublished'------ * 'revLastModifyingUser'------ * 'revPublishAuto'------ * 'revMD5Checksum'------ * 'revKeepForever'------ * 'revMimeType'------ * 'revExportLinks'------ * 'revPublishedOutsideDomain'------ * 'revId'-revision-    :: Revision-revision =-  Revision'-    { _revModifiedTime = Nothing-    , _revSize = Nothing-    , _revOriginalFilename = Nothing-    , _revKind = "drive#revision"-    , _revPublished = Nothing-    , _revLastModifyingUser = Nothing-    , _revPublishAuto = Nothing-    , _revMD5Checksum = Nothing-    , _revKeepForever = Nothing-    , _revMimeType = Nothing-    , _revExportLinks = Nothing-    , _revPublishedOutsideDomain = Nothing-    , _revId = Nothing-    }----- | The last time the revision was modified (RFC 3339 date-time).-revModifiedTime :: Lens' Revision (Maybe UTCTime)-revModifiedTime-  = lens _revModifiedTime-      (\ s a -> s{_revModifiedTime = a})-      . mapping _DateTime---- | The size of the revision\'s content in bytes. This is only applicable to--- files with binary content in Drive.-revSize :: Lens' Revision (Maybe Int64)-revSize-  = lens _revSize (\ s a -> s{_revSize = a}) .-      mapping _Coerce---- | The original filename used to create this revision. This is only--- applicable to files with binary content in Drive.-revOriginalFilename :: Lens' Revision (Maybe Text)-revOriginalFilename-  = lens _revOriginalFilename-      (\ s a -> s{_revOriginalFilename = a})---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#revision\".-revKind :: Lens' Revision Text-revKind = lens _revKind (\ s a -> s{_revKind = a})---- | Whether this revision is published. This is only applicable to Google--- Docs.-revPublished :: Lens' Revision (Maybe Bool)-revPublished-  = lens _revPublished (\ s a -> s{_revPublished = a})---- | The last user to modify this revision.-revLastModifyingUser :: Lens' Revision (Maybe User)-revLastModifyingUser-  = lens _revLastModifyingUser-      (\ s a -> s{_revLastModifyingUser = a})---- | Whether subsequent revisions will be automatically republished. This is--- only applicable to Google Docs.-revPublishAuto :: Lens' Revision (Maybe Bool)-revPublishAuto-  = lens _revPublishAuto-      (\ s a -> s{_revPublishAuto = a})---- | The MD5 checksum of the revision\'s content. This is only applicable to--- files with binary content in Drive.-revMD5Checksum :: Lens' Revision (Maybe Text)-revMD5Checksum-  = lens _revMD5Checksum-      (\ s a -> s{_revMD5Checksum = a})---- | Whether to keep this revision forever, even if it is no longer the head--- revision. If not set, the revision will be automatically purged 30 days--- after newer content is uploaded. This can be set on a maximum of 200--- revisions for a file. This field is only applicable to files with binary--- content in Drive.-revKeepForever :: Lens' Revision (Maybe Bool)-revKeepForever-  = lens _revKeepForever-      (\ s a -> s{_revKeepForever = a})---- | The MIME type of the revision.-revMimeType :: Lens' Revision (Maybe Text)-revMimeType-  = lens _revMimeType (\ s a -> s{_revMimeType = a})---- | Links for exporting Google Docs to specific formats.-revExportLinks :: Lens' Revision (Maybe RevisionExportLinks)-revExportLinks-  = lens _revExportLinks-      (\ s a -> s{_revExportLinks = a})---- | Whether this revision is published outside the domain. This is only--- applicable to Google Docs.-revPublishedOutsideDomain :: Lens' Revision (Maybe Bool)-revPublishedOutsideDomain-  = lens _revPublishedOutsideDomain-      (\ s a -> s{_revPublishedOutsideDomain = a})---- | The ID of the revision.-revId :: Lens' Revision (Maybe Text)-revId = lens _revId (\ s a -> s{_revId = a})--instance FromJSON Revision where-        parseJSON-          = withObject "Revision"-              (\ o ->-                 Revision' <$>-                   (o .:? "modifiedTime") <*> (o .:? "size") <*>-                     (o .:? "originalFilename")-                     <*> (o .:? "kind" .!= "drive#revision")-                     <*> (o .:? "published")-                     <*> (o .:? "lastModifyingUser")-                     <*> (o .:? "publishAuto")-                     <*> (o .:? "md5Checksum")-                     <*> (o .:? "keepForever")-                     <*> (o .:? "mimeType")-                     <*> (o .:? "exportLinks")-                     <*> (o .:? "publishedOutsideDomain")-                     <*> (o .:? "id"))--instance ToJSON Revision where-        toJSON Revision'{..}-          = object-              (catMaybes-                 [("modifiedTime" .=) <$> _revModifiedTime,-                  ("size" .=) <$> _revSize,-                  ("originalFilename" .=) <$> _revOriginalFilename,-                  Just ("kind" .= _revKind),-                  ("published" .=) <$> _revPublished,-                  ("lastModifyingUser" .=) <$> _revLastModifyingUser,-                  ("publishAuto" .=) <$> _revPublishAuto,-                  ("md5Checksum" .=) <$> _revMD5Checksum,-                  ("keepForever" .=) <$> _revKeepForever,-                  ("mimeType" .=) <$> _revMimeType,-                  ("exportLinks" .=) <$> _revExportLinks,-                  ("publishedOutsideDomain" .=) <$>-                    _revPublishedOutsideDomain,-                  ("id" .=) <$> _revId])---- | A permission for a file. A permission grants a user, group, domain or--- the world access to a file or a folder hierarchy.------ /See:/ 'permission' smart constructor.-data Permission =-  Permission'-    { _pPhotoLink                  :: !(Maybe Text)-    , _pTeamDrivePermissionDetails :: !(Maybe [PermissionTeamDrivePermissionDetailsItem])-    , _pKind                       :: !Text-    , _pDomain                     :: !(Maybe Text)-    , _pRole                       :: !(Maybe Text)-    , _pEmailAddress               :: !(Maybe Text)-    , _pAllowFileDiscovery         :: !(Maybe Bool)-    , _pDisplayName                :: !(Maybe Text)-    , _pId                         :: !(Maybe Text)-    , _pDeleted                    :: !(Maybe Bool)-    , _pType                       :: !(Maybe Text)-    , _pExpirationTime             :: !(Maybe DateTime')-    , _pPermissionDetails          :: !(Maybe [PermissionPermissionDetailsItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Permission' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pPhotoLink'------ * 'pTeamDrivePermissionDetails'------ * 'pKind'------ * 'pDomain'------ * 'pRole'------ * 'pEmailAddress'------ * 'pAllowFileDiscovery'------ * 'pDisplayName'------ * 'pId'------ * 'pDeleted'------ * 'pType'------ * 'pExpirationTime'------ * 'pPermissionDetails'-permission-    :: Permission-permission =-  Permission'-    { _pPhotoLink = Nothing-    , _pTeamDrivePermissionDetails = Nothing-    , _pKind = "drive#permission"-    , _pDomain = Nothing-    , _pRole = Nothing-    , _pEmailAddress = Nothing-    , _pAllowFileDiscovery = Nothing-    , _pDisplayName = Nothing-    , _pId = Nothing-    , _pDeleted = Nothing-    , _pType = Nothing-    , _pExpirationTime = Nothing-    , _pPermissionDetails = Nothing-    }----- | A link to the user\'s profile photo, if available.-pPhotoLink :: Lens' Permission (Maybe Text)-pPhotoLink-  = lens _pPhotoLink (\ s a -> s{_pPhotoLink = a})---- | Deprecated - use permissionDetails instead.-pTeamDrivePermissionDetails :: Lens' Permission [PermissionTeamDrivePermissionDetailsItem]-pTeamDrivePermissionDetails-  = lens _pTeamDrivePermissionDetails-      (\ s a -> s{_pTeamDrivePermissionDetails = a})-      . _Default-      . _Coerce---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#permission\".-pKind :: Lens' Permission Text-pKind = lens _pKind (\ s a -> s{_pKind = a})---- | The domain to which this permission refers.-pDomain :: Lens' Permission (Maybe Text)-pDomain = lens _pDomain (\ s a -> s{_pDomain = a})---- | The role granted by this permission. While new values may be supported--- in the future, the following are currently allowed: - owner - organizer--- - fileOrganizer - writer - commenter - reader-pRole :: Lens' Permission (Maybe Text)-pRole = lens _pRole (\ s a -> s{_pRole = a})---- | The email address of the user or group to which this permission refers.-pEmailAddress :: Lens' Permission (Maybe Text)-pEmailAddress-  = lens _pEmailAddress-      (\ s a -> s{_pEmailAddress = a})---- | Whether the permission allows the file to be discovered through search.--- This is only applicable for permissions of type domain or anyone.-pAllowFileDiscovery :: Lens' Permission (Maybe Bool)-pAllowFileDiscovery-  = lens _pAllowFileDiscovery-      (\ s a -> s{_pAllowFileDiscovery = a})---- | A displayable name for users, groups or domains.-pDisplayName :: Lens' Permission (Maybe Text)-pDisplayName-  = lens _pDisplayName (\ s a -> s{_pDisplayName = a})---- | The ID of this permission. This is a unique identifier for the grantee,--- and is published in User resources as permissionId.-pId :: Lens' Permission (Maybe Text)-pId = lens _pId (\ s a -> s{_pId = a})---- | Whether the account associated with this permission has been deleted.--- This field only pertains to user and group permissions.-pDeleted :: Lens' Permission (Maybe Bool)-pDeleted = lens _pDeleted (\ s a -> s{_pDeleted = a})---- | The type of the grantee. Valid values are: - user - group - domain ---- anyone-pType :: Lens' Permission (Maybe Text)-pType = lens _pType (\ s a -> s{_pType = a})---- | The time at which this permission will expire (RFC 3339 date-time).--- Expiration times have the following restrictions: - They can only be set--- on user and group permissions - The time must be in the future - The--- time cannot be more than a year in the future-pExpirationTime :: Lens' Permission (Maybe UTCTime)-pExpirationTime-  = lens _pExpirationTime-      (\ s a -> s{_pExpirationTime = a})-      . mapping _DateTime---- | Details of whether the permissions on this shared drive item are--- inherited or directly on this item. This is an output-only field which--- is present only for shared drive items.-pPermissionDetails :: Lens' Permission [PermissionPermissionDetailsItem]-pPermissionDetails-  = lens _pPermissionDetails-      (\ s a -> s{_pPermissionDetails = a})-      . _Default-      . _Coerce--instance FromJSON Permission where-        parseJSON-          = withObject "Permission"-              (\ o ->-                 Permission' <$>-                   (o .:? "photoLink") <*>-                     (o .:? "teamDrivePermissionDetails" .!= mempty)-                     <*> (o .:? "kind" .!= "drive#permission")-                     <*> (o .:? "domain")-                     <*> (o .:? "role")-                     <*> (o .:? "emailAddress")-                     <*> (o .:? "allowFileDiscovery")-                     <*> (o .:? "displayName")-                     <*> (o .:? "id")-                     <*> (o .:? "deleted")-                     <*> (o .:? "type")-                     <*> (o .:? "expirationTime")-                     <*> (o .:? "permissionDetails" .!= mempty))--instance ToJSON Permission where-        toJSON Permission'{..}-          = object-              (catMaybes-                 [("photoLink" .=) <$> _pPhotoLink,-                  ("teamDrivePermissionDetails" .=) <$>-                    _pTeamDrivePermissionDetails,-                  Just ("kind" .= _pKind), ("domain" .=) <$> _pDomain,-                  ("role" .=) <$> _pRole,-                  ("emailAddress" .=) <$> _pEmailAddress,-                  ("allowFileDiscovery" .=) <$> _pAllowFileDiscovery,-                  ("displayName" .=) <$> _pDisplayName,-                  ("id" .=) <$> _pId, ("deleted" .=) <$> _pDeleted,-                  ("type" .=) <$> _pType,-                  ("expirationTime" .=) <$> _pExpirationTime,-                  ("permissionDetails" .=) <$> _pPermissionDetails])---- | A set of restrictions that apply to this shared drive or items inside--- this shared drive.------ /See:/ 'driveRestrictions' smart constructor.-data DriveRestrictions =-  DriveRestrictions'-    { _drAdminManagedRestrictions     :: !(Maybe Bool)-    , _drDriveMembersOnly             :: !(Maybe Bool)-    , _drCopyRequiresWriterPermission :: !(Maybe Bool)-    , _drDomainUsersOnly              :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DriveRestrictions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drAdminManagedRestrictions'------ * 'drDriveMembersOnly'------ * 'drCopyRequiresWriterPermission'------ * 'drDomainUsersOnly'-driveRestrictions-    :: DriveRestrictions-driveRestrictions =-  DriveRestrictions'-    { _drAdminManagedRestrictions = Nothing-    , _drDriveMembersOnly = Nothing-    , _drCopyRequiresWriterPermission = Nothing-    , _drDomainUsersOnly = Nothing-    }----- | Whether administrative privileges on this shared drive are required to--- modify restrictions.-drAdminManagedRestrictions :: Lens' DriveRestrictions (Maybe Bool)-drAdminManagedRestrictions-  = lens _drAdminManagedRestrictions-      (\ s a -> s{_drAdminManagedRestrictions = a})---- | Whether access to items inside this shared drive is restricted to its--- members.-drDriveMembersOnly :: Lens' DriveRestrictions (Maybe Bool)-drDriveMembersOnly-  = lens _drDriveMembersOnly-      (\ s a -> s{_drDriveMembersOnly = a})---- | Whether the options to copy, print, or download files inside this shared--- drive, should be disabled for readers and commenters. When this--- restriction is set to true, it will override the similarly named field--- to true for any file inside this shared drive.-drCopyRequiresWriterPermission :: Lens' DriveRestrictions (Maybe Bool)-drCopyRequiresWriterPermission-  = lens _drCopyRequiresWriterPermission-      (\ s a -> s{_drCopyRequiresWriterPermission = a})---- | Whether access to this shared drive and items inside this shared drive--- is restricted to users of the domain to which this shared drive belongs.--- This restriction may be overridden by other sharing policies controlled--- outside of this shared drive.-drDomainUsersOnly :: Lens' DriveRestrictions (Maybe Bool)-drDomainUsersOnly-  = lens _drDomainUsersOnly-      (\ s a -> s{_drDomainUsersOnly = a})--instance FromJSON DriveRestrictions where-        parseJSON-          = withObject "DriveRestrictions"-              (\ o ->-                 DriveRestrictions' <$>-                   (o .:? "adminManagedRestrictions") <*>-                     (o .:? "driveMembersOnly")-                     <*> (o .:? "copyRequiresWriterPermission")-                     <*> (o .:? "domainUsersOnly"))--instance ToJSON DriveRestrictions where-        toJSON DriveRestrictions'{..}-          = object-              (catMaybes-                 [("adminManagedRestrictions" .=) <$>-                    _drAdminManagedRestrictions,-                  ("driveMembersOnly" .=) <$> _drDriveMembersOnly,-                  ("copyRequiresWriterPermission" .=) <$>-                    _drCopyRequiresWriterPermission,-                  ("domainUsersOnly" .=) <$> _drDomainUsersOnly])---- | The metadata for a file.------ /See:/ 'file' smart constructor.-data File =-  File'-    { _fOwnedByMe                    :: !(Maybe Bool)-    , _fThumbnailLink                :: !(Maybe Text)-    , _fFullFileExtension            :: !(Maybe Text)-    , _fModifiedTime                 :: !(Maybe DateTime')-    , _fModifiedByMeTime             :: !(Maybe DateTime')-    , _fFileExtension                :: !(Maybe Text)-    , _fViewedByMe                   :: !(Maybe Bool)-    , _fOwners                       :: !(Maybe [User])-    , _fViewedByMeTime               :: !(Maybe DateTime')-    , _fModifiedByMe                 :: !(Maybe Bool)-    , _fSize                         :: !(Maybe (Textual Int64))-    , _fTrashed                      :: !(Maybe Bool)-    , _fWebViewLink                  :: !(Maybe Text)-    , _fCreatedTime                  :: !(Maybe DateTime')-    , _fTrashedTime                  :: !(Maybe DateTime')-    , _fOriginalFilename             :: !(Maybe Text)-    , _fKind                         :: !Text-    , _fLastModifyingUser            :: !(Maybe User)-    , _fIconLink                     :: !(Maybe Text)-    , _fHasThumbnail                 :: !(Maybe Bool)-    , _fThumbnailVersion             :: !(Maybe (Textual Int64))-    , _fImageMediaMetadata           :: !(Maybe FileImageMediaMetadata)-    , _fExplicitlyTrashed            :: !(Maybe Bool)-    , _fShared                       :: !(Maybe Bool)-    , _fMD5Checksum                  :: !(Maybe Text)-    , _fTeamDriveId                  :: !(Maybe Text)-    , _fFolderColorRgb               :: !(Maybe Text)-    , _fMimeType                     :: !(Maybe Text)-    , _fIsAppAuthorized              :: !(Maybe Bool)-    , _fCopyRequiresWriterPermission :: !(Maybe Bool)-    , _fName                         :: !(Maybe Text)-    , _fExportLinks                  :: !(Maybe FileExportLinks)-    , _fParents                      :: !(Maybe [Text])-    , _fStarred                      :: !(Maybe Bool)-    , _fSpaces                       :: !(Maybe [Text])-    , _fVersion                      :: !(Maybe (Textual Int64))-    , _fHasAugmentedPermissions      :: !(Maybe Bool)-    , _fWritersCanShare              :: !(Maybe Bool)-    , _fTrashingUser                 :: !(Maybe User)-    , _fId                           :: !(Maybe Text)-    , _fPermissionIds                :: !(Maybe [Text])-    , _fPermissions                  :: !(Maybe [Permission])-    , _fQuotaBytesUsed               :: !(Maybe (Textual Int64))-    , _fAppProperties                :: !(Maybe FileAppProperties)-    , _fVideoMediaMetadata           :: !(Maybe FileVideoMediaMetadata)-    , _fSharedWithMeTime             :: !(Maybe DateTime')-    , _fHeadRevisionId               :: !(Maybe Text)-    , _fCapabilities                 :: !(Maybe FileCapabilities)-    , _fDescription                  :: !(Maybe Text)-    , _fViewersCanCopyContent        :: !(Maybe Bool)-    , _fDriveId                      :: !(Maybe Text)-    , _fSharingUser                  :: !(Maybe User)-    , _fWebContentLink               :: !(Maybe Text)-    , _fContentHints                 :: !(Maybe FileContentHints)-    , _fProperties                   :: !(Maybe FileProperties)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'File' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fOwnedByMe'------ * 'fThumbnailLink'------ * 'fFullFileExtension'------ * 'fModifiedTime'------ * 'fModifiedByMeTime'------ * 'fFileExtension'------ * 'fViewedByMe'------ * 'fOwners'------ * 'fViewedByMeTime'------ * 'fModifiedByMe'------ * 'fSize'------ * 'fTrashed'------ * 'fWebViewLink'------ * 'fCreatedTime'------ * 'fTrashedTime'------ * 'fOriginalFilename'------ * 'fKind'------ * 'fLastModifyingUser'------ * 'fIconLink'------ * 'fHasThumbnail'------ * 'fThumbnailVersion'------ * 'fImageMediaMetadata'------ * 'fExplicitlyTrashed'------ * 'fShared'------ * 'fMD5Checksum'------ * 'fTeamDriveId'------ * 'fFolderColorRgb'------ * 'fMimeType'------ * 'fIsAppAuthorized'------ * 'fCopyRequiresWriterPermission'------ * 'fName'------ * 'fExportLinks'------ * 'fParents'------ * 'fStarred'------ * 'fSpaces'------ * 'fVersion'------ * 'fHasAugmentedPermissions'------ * 'fWritersCanShare'------ * 'fTrashingUser'------ * 'fId'------ * 'fPermissionIds'------ * 'fPermissions'------ * 'fQuotaBytesUsed'------ * 'fAppProperties'------ * 'fVideoMediaMetadata'------ * 'fSharedWithMeTime'------ * 'fHeadRevisionId'------ * 'fCapabilities'------ * 'fDescription'------ * 'fViewersCanCopyContent'------ * 'fDriveId'------ * 'fSharingUser'------ * 'fWebContentLink'------ * 'fContentHints'------ * 'fProperties'-file-    :: File-file =-  File'-    { _fOwnedByMe = Nothing-    , _fThumbnailLink = Nothing-    , _fFullFileExtension = Nothing-    , _fModifiedTime = Nothing-    , _fModifiedByMeTime = Nothing-    , _fFileExtension = Nothing-    , _fViewedByMe = Nothing-    , _fOwners = Nothing-    , _fViewedByMeTime = Nothing-    , _fModifiedByMe = Nothing-    , _fSize = Nothing-    , _fTrashed = Nothing-    , _fWebViewLink = Nothing-    , _fCreatedTime = Nothing-    , _fTrashedTime = Nothing-    , _fOriginalFilename = Nothing-    , _fKind = "drive#file"-    , _fLastModifyingUser = Nothing-    , _fIconLink = Nothing-    , _fHasThumbnail = Nothing-    , _fThumbnailVersion = Nothing-    , _fImageMediaMetadata = Nothing-    , _fExplicitlyTrashed = Nothing-    , _fShared = Nothing-    , _fMD5Checksum = Nothing-    , _fTeamDriveId = Nothing-    , _fFolderColorRgb = Nothing-    , _fMimeType = Nothing-    , _fIsAppAuthorized = Nothing-    , _fCopyRequiresWriterPermission = Nothing-    , _fName = Nothing-    , _fExportLinks = Nothing-    , _fParents = Nothing-    , _fStarred = Nothing-    , _fSpaces = Nothing-    , _fVersion = Nothing-    , _fHasAugmentedPermissions = Nothing-    , _fWritersCanShare = Nothing-    , _fTrashingUser = Nothing-    , _fId = Nothing-    , _fPermissionIds = Nothing-    , _fPermissions = Nothing-    , _fQuotaBytesUsed = Nothing-    , _fAppProperties = Nothing-    , _fVideoMediaMetadata = Nothing-    , _fSharedWithMeTime = Nothing-    , _fHeadRevisionId = Nothing-    , _fCapabilities = Nothing-    , _fDescription = Nothing-    , _fViewersCanCopyContent = Nothing-    , _fDriveId = Nothing-    , _fSharingUser = Nothing-    , _fWebContentLink = Nothing-    , _fContentHints = Nothing-    , _fProperties = Nothing-    }----- | Whether the user owns the file. Not populated for items in shared--- drives.-fOwnedByMe :: Lens' File (Maybe Bool)-fOwnedByMe-  = lens _fOwnedByMe (\ s a -> s{_fOwnedByMe = a})---- | A short-lived link to the file\'s thumbnail, if available. Typically--- lasts on the order of hours. Only populated when the requesting app can--- access the file\'s content.-fThumbnailLink :: Lens' File (Maybe Text)-fThumbnailLink-  = lens _fThumbnailLink-      (\ s a -> s{_fThumbnailLink = a})---- | The full file extension extracted from the name field. May contain--- multiple concatenated extensions, such as \"tar.gz\". This is only--- available for files with binary content in Google Drive. This is--- automatically updated when the name field changes, however it is not--- cleared if the new name does not contain a valid extension.-fFullFileExtension :: Lens' File (Maybe Text)-fFullFileExtension-  = lens _fFullFileExtension-      (\ s a -> s{_fFullFileExtension = a})---- | The last time the file was modified by anyone (RFC 3339 date-time). Note--- that setting modifiedTime will also update modifiedByMeTime for the--- user.-fModifiedTime :: Lens' File (Maybe UTCTime)-fModifiedTime-  = lens _fModifiedTime-      (\ s a -> s{_fModifiedTime = a})-      . mapping _DateTime---- | The last time the file was modified by the user (RFC 3339 date-time).-fModifiedByMeTime :: Lens' File (Maybe UTCTime)-fModifiedByMeTime-  = lens _fModifiedByMeTime-      (\ s a -> s{_fModifiedByMeTime = a})-      . mapping _DateTime---- | The final component of fullFileExtension. This is only available for--- files with binary content in Google Drive.-fFileExtension :: Lens' File (Maybe Text)-fFileExtension-  = lens _fFileExtension-      (\ s a -> s{_fFileExtension = a})---- | Whether the file has been viewed by this user.-fViewedByMe :: Lens' File (Maybe Bool)-fViewedByMe-  = lens _fViewedByMe (\ s a -> s{_fViewedByMe = a})---- | The owners of the file. Currently, only certain legacy files may have--- more than one owner. Not populated for items in shared drives.-fOwners :: Lens' File [User]-fOwners-  = lens _fOwners (\ s a -> s{_fOwners = a}) . _Default-      . _Coerce---- | The last time the file was viewed by the user (RFC 3339 date-time).-fViewedByMeTime :: Lens' File (Maybe UTCTime)-fViewedByMeTime-  = lens _fViewedByMeTime-      (\ s a -> s{_fViewedByMeTime = a})-      . mapping _DateTime---- | Whether the file has been modified by this user.-fModifiedByMe :: Lens' File (Maybe Bool)-fModifiedByMe-  = lens _fModifiedByMe-      (\ s a -> s{_fModifiedByMe = a})---- | The size of the file\'s content in bytes. This is only applicable to--- files with binary content in Google Drive.-fSize :: Lens' File (Maybe Int64)-fSize-  = lens _fSize (\ s a -> s{_fSize = a}) .-      mapping _Coerce---- | Whether the file has been trashed, either explicitly or from a trashed--- parent folder. Only the owner may trash a file, and other users cannot--- see files in the owner\'s trash.-fTrashed :: Lens' File (Maybe Bool)-fTrashed = lens _fTrashed (\ s a -> s{_fTrashed = a})---- | A link for opening the file in a relevant Google editor or viewer in a--- browser.-fWebViewLink :: Lens' File (Maybe Text)-fWebViewLink-  = lens _fWebViewLink (\ s a -> s{_fWebViewLink = a})---- | The time at which the file was created (RFC 3339 date-time).-fCreatedTime :: Lens' File (Maybe UTCTime)-fCreatedTime-  = lens _fCreatedTime (\ s a -> s{_fCreatedTime = a})-      . mapping _DateTime---- | The time that the item was trashed (RFC 3339 date-time). Only populated--- for items in shared drives.-fTrashedTime :: Lens' File (Maybe UTCTime)-fTrashedTime-  = lens _fTrashedTime (\ s a -> s{_fTrashedTime = a})-      . mapping _DateTime---- | The original filename of the uploaded content if available, or else the--- original value of the name field. This is only available for files with--- binary content in Google Drive.-fOriginalFilename :: Lens' File (Maybe Text)-fOriginalFilename-  = lens _fOriginalFilename-      (\ s a -> s{_fOriginalFilename = a})---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#file\".-fKind :: Lens' File Text-fKind = lens _fKind (\ s a -> s{_fKind = a})---- | The last user to modify the file.-fLastModifyingUser :: Lens' File (Maybe User)-fLastModifyingUser-  = lens _fLastModifyingUser-      (\ s a -> s{_fLastModifyingUser = a})---- | A static, unauthenticated link to the file\'s icon.-fIconLink :: Lens' File (Maybe Text)-fIconLink-  = lens _fIconLink (\ s a -> s{_fIconLink = a})---- | Whether this file has a thumbnail. This does not indicate whether the--- requesting app has access to the thumbnail. To check access, look for--- the presence of the thumbnailLink field.-fHasThumbnail :: Lens' File (Maybe Bool)-fHasThumbnail-  = lens _fHasThumbnail-      (\ s a -> s{_fHasThumbnail = a})---- | The thumbnail version for use in thumbnail cache invalidation.-fThumbnailVersion :: Lens' File (Maybe Int64)-fThumbnailVersion-  = lens _fThumbnailVersion-      (\ s a -> s{_fThumbnailVersion = a})-      . mapping _Coerce---- | Additional metadata about image media, if available.-fImageMediaMetadata :: Lens' File (Maybe FileImageMediaMetadata)-fImageMediaMetadata-  = lens _fImageMediaMetadata-      (\ s a -> s{_fImageMediaMetadata = a})---- | Whether the file has been explicitly trashed, as opposed to recursively--- trashed from a parent folder.-fExplicitlyTrashed :: Lens' File (Maybe Bool)-fExplicitlyTrashed-  = lens _fExplicitlyTrashed-      (\ s a -> s{_fExplicitlyTrashed = a})---- | Whether the file has been shared. Not populated for items in shared--- drives.-fShared :: Lens' File (Maybe Bool)-fShared = lens _fShared (\ s a -> s{_fShared = a})---- | The MD5 checksum for the content of the file. This is only applicable to--- files with binary content in Google Drive.-fMD5Checksum :: Lens' File (Maybe Text)-fMD5Checksum-  = lens _fMD5Checksum (\ s a -> s{_fMD5Checksum = a})---- | Deprecated - use driveId instead.-fTeamDriveId :: Lens' File (Maybe Text)-fTeamDriveId-  = lens _fTeamDriveId (\ s a -> s{_fTeamDriveId = a})---- | The color for a folder as an RGB hex string. The supported colors are--- published in the folderColorPalette field of the About resource. If an--- unsupported color is specified, the closest color in the palette will be--- used instead.-fFolderColorRgb :: Lens' File (Maybe Text)-fFolderColorRgb-  = lens _fFolderColorRgb-      (\ s a -> s{_fFolderColorRgb = a})---- | The MIME type of the file. Google Drive will attempt to automatically--- detect an appropriate value from uploaded content if no value is--- provided. The value cannot be changed unless a new revision is uploaded.--- If a file is created with a Google Doc MIME type, the uploaded content--- will be imported if possible. The supported import formats are published--- in the About resource.-fMimeType :: Lens' File (Maybe Text)-fMimeType-  = lens _fMimeType (\ s a -> s{_fMimeType = a})---- | Whether the file was created or opened by the requesting app.-fIsAppAuthorized :: Lens' File (Maybe Bool)-fIsAppAuthorized-  = lens _fIsAppAuthorized-      (\ s a -> s{_fIsAppAuthorized = a})---- | Whether the options to copy, print, or download this file, should be--- disabled for readers and commenters.-fCopyRequiresWriterPermission :: Lens' File (Maybe Bool)-fCopyRequiresWriterPermission-  = lens _fCopyRequiresWriterPermission-      (\ s a -> s{_fCopyRequiresWriterPermission = a})---- | The name of the file. This is not necessarily unique within a folder.--- Note that for immutable items such as the top level folders of shared--- drives, My Drive root folder, and Application Data folder the name is--- constant.-fName :: Lens' File (Maybe Text)-fName = lens _fName (\ s a -> s{_fName = a})---- | Links for exporting Google Docs to specific formats.-fExportLinks :: Lens' File (Maybe FileExportLinks)-fExportLinks-  = lens _fExportLinks (\ s a -> s{_fExportLinks = a})---- | The IDs of the parent folders which contain the file. If not specified--- as part of a create request, the file will be placed directly in the--- user\'s My Drive folder. If not specified as part of a copy request, the--- file will inherit any discoverable parents of the source file. Update--- requests must use the addParents and removeParents parameters to modify--- the parents list.-fParents :: Lens' File [Text]-fParents-  = lens _fParents (\ s a -> s{_fParents = a}) .-      _Default-      . _Coerce---- | Whether the user has starred the file.-fStarred :: Lens' File (Maybe Bool)-fStarred = lens _fStarred (\ s a -> s{_fStarred = a})---- | The list of spaces which contain the file. The currently supported--- values are \'drive\', \'appDataFolder\' and \'photos\'.-fSpaces :: Lens' File [Text]-fSpaces-  = lens _fSpaces (\ s a -> s{_fSpaces = a}) . _Default-      . _Coerce---- | A monotonically increasing version number for the file. This reflects--- every change made to the file on the server, even those not visible to--- the user.-fVersion :: Lens' File (Maybe Int64)-fVersion-  = lens _fVersion (\ s a -> s{_fVersion = a}) .-      mapping _Coerce---- | Whether any users are granted file access directly on this file. This--- field is only populated for shared drive files.-fHasAugmentedPermissions :: Lens' File (Maybe Bool)-fHasAugmentedPermissions-  = lens _fHasAugmentedPermissions-      (\ s a -> s{_fHasAugmentedPermissions = a})---- | Whether users with only writer permission can modify the file\'s--- permissions. Not populated for items in shared drives.-fWritersCanShare :: Lens' File (Maybe Bool)-fWritersCanShare-  = lens _fWritersCanShare-      (\ s a -> s{_fWritersCanShare = a})---- | If the file has been explicitly trashed, the user who trashed it. Only--- populated for items in shared drives.-fTrashingUser :: Lens' File (Maybe User)-fTrashingUser-  = lens _fTrashingUser-      (\ s a -> s{_fTrashingUser = a})---- | The ID of the file.-fId :: Lens' File (Maybe Text)-fId = lens _fId (\ s a -> s{_fId = a})---- | List of permission IDs for users with access to this file.-fPermissionIds :: Lens' File [Text]-fPermissionIds-  = lens _fPermissionIds-      (\ s a -> s{_fPermissionIds = a})-      . _Default-      . _Coerce---- | The full list of permissions for the file. This is only available if the--- requesting user can share the file. Not populated for items in shared--- drives.-fPermissions :: Lens' File [Permission]-fPermissions-  = lens _fPermissions (\ s a -> s{_fPermissions = a})-      . _Default-      . _Coerce---- | The number of storage quota bytes used by the file. This includes the--- head revision as well as previous revisions with keepForever enabled.-fQuotaBytesUsed :: Lens' File (Maybe Int64)-fQuotaBytesUsed-  = lens _fQuotaBytesUsed-      (\ s a -> s{_fQuotaBytesUsed = a})-      . mapping _Coerce---- | A collection of arbitrary key-value pairs which are private to the--- requesting app. Entries with null values are cleared in update and copy--- requests.-fAppProperties :: Lens' File (Maybe FileAppProperties)-fAppProperties-  = lens _fAppProperties-      (\ s a -> s{_fAppProperties = a})---- | Additional metadata about video media. This may not be available--- immediately upon upload.-fVideoMediaMetadata :: Lens' File (Maybe FileVideoMediaMetadata)-fVideoMediaMetadata-  = lens _fVideoMediaMetadata-      (\ s a -> s{_fVideoMediaMetadata = a})---- | The time at which the file was shared with the user, if applicable (RFC--- 3339 date-time).-fSharedWithMeTime :: Lens' File (Maybe UTCTime)-fSharedWithMeTime-  = lens _fSharedWithMeTime-      (\ s a -> s{_fSharedWithMeTime = a})-      . mapping _DateTime---- | The ID of the file\'s head revision. This is currently only available--- for files with binary content in Google Drive.-fHeadRevisionId :: Lens' File (Maybe Text)-fHeadRevisionId-  = lens _fHeadRevisionId-      (\ s a -> s{_fHeadRevisionId = a})---- | Capabilities the current user has on this file. Each capability--- corresponds to a fine-grained action that a user may take.-fCapabilities :: Lens' File (Maybe FileCapabilities)-fCapabilities-  = lens _fCapabilities-      (\ s a -> s{_fCapabilities = a})---- | A short description of the file.-fDescription :: Lens' File (Maybe Text)-fDescription-  = lens _fDescription (\ s a -> s{_fDescription = a})---- | Deprecated - use copyRequiresWriterPermission instead.-fViewersCanCopyContent :: Lens' File (Maybe Bool)-fViewersCanCopyContent-  = lens _fViewersCanCopyContent-      (\ s a -> s{_fViewersCanCopyContent = a})---- | ID of the shared drive the file resides in. Only populated for items in--- shared drives.-fDriveId :: Lens' File (Maybe Text)-fDriveId = lens _fDriveId (\ s a -> s{_fDriveId = a})---- | The user who shared the file with the requesting user, if applicable.-fSharingUser :: Lens' File (Maybe User)-fSharingUser-  = lens _fSharingUser (\ s a -> s{_fSharingUser = a})---- | A link for downloading the content of the file in a browser. This is--- only available for files with binary content in Google Drive.-fWebContentLink :: Lens' File (Maybe Text)-fWebContentLink-  = lens _fWebContentLink-      (\ s a -> s{_fWebContentLink = a})---- | Additional information about the content of the file. These fields are--- never populated in responses.-fContentHints :: Lens' File (Maybe FileContentHints)-fContentHints-  = lens _fContentHints-      (\ s a -> s{_fContentHints = a})---- | A collection of arbitrary key-value pairs which are visible to all apps.--- Entries with null values are cleared in update and copy requests.-fProperties :: Lens' File (Maybe FileProperties)-fProperties-  = lens _fProperties (\ s a -> s{_fProperties = a})--instance FromJSON File where-        parseJSON-          = withObject "File"-              (\ o ->-                 File' <$>-                   (o .:? "ownedByMe") <*> (o .:? "thumbnailLink") <*>-                     (o .:? "fullFileExtension")-                     <*> (o .:? "modifiedTime")-                     <*> (o .:? "modifiedByMeTime")-                     <*> (o .:? "fileExtension")-                     <*> (o .:? "viewedByMe")-                     <*> (o .:? "owners" .!= mempty)-                     <*> (o .:? "viewedByMeTime")-                     <*> (o .:? "modifiedByMe")-                     <*> (o .:? "size")-                     <*> (o .:? "trashed")-                     <*> (o .:? "webViewLink")-                     <*> (o .:? "createdTime")-                     <*> (o .:? "trashedTime")-                     <*> (o .:? "originalFilename")-                     <*> (o .:? "kind" .!= "drive#file")-                     <*> (o .:? "lastModifyingUser")-                     <*> (o .:? "iconLink")-                     <*> (o .:? "hasThumbnail")-                     <*> (o .:? "thumbnailVersion")-                     <*> (o .:? "imageMediaMetadata")-                     <*> (o .:? "explicitlyTrashed")-                     <*> (o .:? "shared")-                     <*> (o .:? "md5Checksum")-                     <*> (o .:? "teamDriveId")-                     <*> (o .:? "folderColorRgb")-                     <*> (o .:? "mimeType")-                     <*> (o .:? "isAppAuthorized")-                     <*> (o .:? "copyRequiresWriterPermission")-                     <*> (o .:? "name")-                     <*> (o .:? "exportLinks")-                     <*> (o .:? "parents" .!= mempty)-                     <*> (o .:? "starred")-                     <*> (o .:? "spaces" .!= mempty)-                     <*> (o .:? "version")-                     <*> (o .:? "hasAugmentedPermissions")-                     <*> (o .:? "writersCanShare")-                     <*> (o .:? "trashingUser")-                     <*> (o .:? "id")-                     <*> (o .:? "permissionIds" .!= mempty)-                     <*> (o .:? "permissions" .!= mempty)-                     <*> (o .:? "quotaBytesUsed")-                     <*> (o .:? "appProperties")-                     <*> (o .:? "videoMediaMetadata")-                     <*> (o .:? "sharedWithMeTime")-                     <*> (o .:? "headRevisionId")-                     <*> (o .:? "capabilities")-                     <*> (o .:? "description")-                     <*> (o .:? "viewersCanCopyContent")-                     <*> (o .:? "driveId")-                     <*> (o .:? "sharingUser")-                     <*> (o .:? "webContentLink")-                     <*> (o .:? "contentHints")-                     <*> (o .:? "properties"))--instance ToJSON File where-        toJSON File'{..}-          = object-              (catMaybes-                 [("ownedByMe" .=) <$> _fOwnedByMe,-                  ("thumbnailLink" .=) <$> _fThumbnailLink,-                  ("fullFileExtension" .=) <$> _fFullFileExtension,-                  ("modifiedTime" .=) <$> _fModifiedTime,-                  ("modifiedByMeTime" .=) <$> _fModifiedByMeTime,-                  ("fileExtension" .=) <$> _fFileExtension,-                  ("viewedByMe" .=) <$> _fViewedByMe,-                  ("owners" .=) <$> _fOwners,-                  ("viewedByMeTime" .=) <$> _fViewedByMeTime,-                  ("modifiedByMe" .=) <$> _fModifiedByMe,-                  ("size" .=) <$> _fSize, ("trashed" .=) <$> _fTrashed,-                  ("webViewLink" .=) <$> _fWebViewLink,-                  ("createdTime" .=) <$> _fCreatedTime,-                  ("trashedTime" .=) <$> _fTrashedTime,-                  ("originalFilename" .=) <$> _fOriginalFilename,-                  Just ("kind" .= _fKind),-                  ("lastModifyingUser" .=) <$> _fLastModifyingUser,-                  ("iconLink" .=) <$> _fIconLink,-                  ("hasThumbnail" .=) <$> _fHasThumbnail,-                  ("thumbnailVersion" .=) <$> _fThumbnailVersion,-                  ("imageMediaMetadata" .=) <$> _fImageMediaMetadata,-                  ("explicitlyTrashed" .=) <$> _fExplicitlyTrashed,-                  ("shared" .=) <$> _fShared,-                  ("md5Checksum" .=) <$> _fMD5Checksum,-                  ("teamDriveId" .=) <$> _fTeamDriveId,-                  ("folderColorRgb" .=) <$> _fFolderColorRgb,-                  ("mimeType" .=) <$> _fMimeType,-                  ("isAppAuthorized" .=) <$> _fIsAppAuthorized,-                  ("copyRequiresWriterPermission" .=) <$>-                    _fCopyRequiresWriterPermission,-                  ("name" .=) <$> _fName,-                  ("exportLinks" .=) <$> _fExportLinks,-                  ("parents" .=) <$> _fParents,-                  ("starred" .=) <$> _fStarred,-                  ("spaces" .=) <$> _fSpaces,-                  ("version" .=) <$> _fVersion,-                  ("hasAugmentedPermissions" .=) <$>-                    _fHasAugmentedPermissions,-                  ("writersCanShare" .=) <$> _fWritersCanShare,-                  ("trashingUser" .=) <$> _fTrashingUser,-                  ("id" .=) <$> _fId,-                  ("permissionIds" .=) <$> _fPermissionIds,-                  ("permissions" .=) <$> _fPermissions,-                  ("quotaBytesUsed" .=) <$> _fQuotaBytesUsed,-                  ("appProperties" .=) <$> _fAppProperties,-                  ("videoMediaMetadata" .=) <$> _fVideoMediaMetadata,-                  ("sharedWithMeTime" .=) <$> _fSharedWithMeTime,-                  ("headRevisionId" .=) <$> _fHeadRevisionId,-                  ("capabilities" .=) <$> _fCapabilities,-                  ("description" .=) <$> _fDescription,-                  ("viewersCanCopyContent" .=) <$>-                    _fViewersCanCopyContent,-                  ("driveId" .=) <$> _fDriveId,-                  ("sharingUser" .=) <$> _fSharingUser,-                  ("webContentLink" .=) <$> _fWebContentLink,-                  ("contentHints" .=) <$> _fContentHints,-                  ("properties" .=) <$> _fProperties])------- /See:/ 'aboutDriveThemesItem' smart constructor.-data AboutDriveThemesItem =-  AboutDriveThemesItem'-    { _adtiColorRgb            :: !(Maybe Text)-    , _adtiBackgRoundImageLink :: !(Maybe Text)-    , _adtiId                  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AboutDriveThemesItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'adtiColorRgb'------ * 'adtiBackgRoundImageLink'------ * 'adtiId'-aboutDriveThemesItem-    :: AboutDriveThemesItem-aboutDriveThemesItem =-  AboutDriveThemesItem'-    { _adtiColorRgb = Nothing-    , _adtiBackgRoundImageLink = Nothing-    , _adtiId = Nothing-    }----- | The color of this theme as an RGB hex string.-adtiColorRgb :: Lens' AboutDriveThemesItem (Maybe Text)-adtiColorRgb-  = lens _adtiColorRgb (\ s a -> s{_adtiColorRgb = a})---- | A link to this theme\'s background image.-adtiBackgRoundImageLink :: Lens' AboutDriveThemesItem (Maybe Text)-adtiBackgRoundImageLink-  = lens _adtiBackgRoundImageLink-      (\ s a -> s{_adtiBackgRoundImageLink = a})---- | The ID of the theme.-adtiId :: Lens' AboutDriveThemesItem (Maybe Text)-adtiId = lens _adtiId (\ s a -> s{_adtiId = a})--instance FromJSON AboutDriveThemesItem where-        parseJSON-          = withObject "AboutDriveThemesItem"-              (\ o ->-                 AboutDriveThemesItem' <$>-                   (o .:? "colorRgb") <*> (o .:? "backgroundImageLink")-                     <*> (o .:? "id"))--instance ToJSON AboutDriveThemesItem where-        toJSON AboutDriveThemesItem'{..}-          = object-              (catMaybes-                 [("colorRgb" .=) <$> _adtiColorRgb,-                  ("backgroundImageLink" .=) <$>-                    _adtiBackgRoundImageLink,-                  ("id" .=) <$> _adtiId])------- /See:/ 'permissionTeamDrivePermissionDetailsItem' smart constructor.-data PermissionTeamDrivePermissionDetailsItem =-  PermissionTeamDrivePermissionDetailsItem'-    { _ptdpdiInherited               :: !(Maybe Bool)-    , _ptdpdiTeamDrivePermissionType :: !(Maybe Text)-    , _ptdpdiRole                    :: !(Maybe Text)-    , _ptdpdiInheritedFrom           :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PermissionTeamDrivePermissionDetailsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ptdpdiInherited'------ * 'ptdpdiTeamDrivePermissionType'------ * 'ptdpdiRole'------ * 'ptdpdiInheritedFrom'-permissionTeamDrivePermissionDetailsItem-    :: PermissionTeamDrivePermissionDetailsItem-permissionTeamDrivePermissionDetailsItem =-  PermissionTeamDrivePermissionDetailsItem'-    { _ptdpdiInherited = Nothing-    , _ptdpdiTeamDrivePermissionType = Nothing-    , _ptdpdiRole = Nothing-    , _ptdpdiInheritedFrom = Nothing-    }----- | Whether this permission is inherited. This field is always populated.--- This is an output-only field.-ptdpdiInherited :: Lens' PermissionTeamDrivePermissionDetailsItem (Maybe Bool)-ptdpdiInherited-  = lens _ptdpdiInherited-      (\ s a -> s{_ptdpdiInherited = a})---- | The Team Drive permission type for this user. While new values may be--- added in future, the following are currently possible: - file - member-ptdpdiTeamDrivePermissionType :: Lens' PermissionTeamDrivePermissionDetailsItem (Maybe Text)-ptdpdiTeamDrivePermissionType-  = lens _ptdpdiTeamDrivePermissionType-      (\ s a -> s{_ptdpdiTeamDrivePermissionType = a})---- | The primary role for this user. While new values may be added in the--- future, the following are currently possible: - organizer ---- fileOrganizer - writer - commenter - reader-ptdpdiRole :: Lens' PermissionTeamDrivePermissionDetailsItem (Maybe Text)-ptdpdiRole-  = lens _ptdpdiRole (\ s a -> s{_ptdpdiRole = a})---- | The ID of the item from which this permission is inherited. This is an--- output-only field and is only populated for members of the Team Drive.-ptdpdiInheritedFrom :: Lens' PermissionTeamDrivePermissionDetailsItem (Maybe Text)-ptdpdiInheritedFrom-  = lens _ptdpdiInheritedFrom-      (\ s a -> s{_ptdpdiInheritedFrom = a})--instance FromJSON-           PermissionTeamDrivePermissionDetailsItem-         where-        parseJSON-          = withObject-              "PermissionTeamDrivePermissionDetailsItem"-              (\ o ->-                 PermissionTeamDrivePermissionDetailsItem' <$>-                   (o .:? "inherited") <*>-                     (o .:? "teamDrivePermissionType")-                     <*> (o .:? "role")-                     <*> (o .:? "inheritedFrom"))--instance ToJSON-           PermissionTeamDrivePermissionDetailsItem-         where-        toJSON PermissionTeamDrivePermissionDetailsItem'{..}-          = object-              (catMaybes-                 [("inherited" .=) <$> _ptdpdiInherited,-                  ("teamDrivePermissionType" .=) <$>-                    _ptdpdiTeamDrivePermissionType,-                  ("role" .=) <$> _ptdpdiRole,-                  ("inheritedFrom" .=) <$> _ptdpdiInheritedFrom])---- | A list of shared drives.------ /See:/ 'driveList' smart constructor.-data DriveList =-  DriveList'-    { _dlNextPageToken :: !(Maybe Text)-    , _dlKind          :: !Text-    , _dlDrives        :: !(Maybe [Drive])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DriveList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dlNextPageToken'------ * 'dlKind'------ * 'dlDrives'-driveList-    :: DriveList-driveList =-  DriveList'-    { _dlNextPageToken = Nothing-    , _dlKind = "drive#driveList"-    , _dlDrives = Nothing-    }----- | The page token for the next page of shared drives. This will be absent--- if the end of the list has been reached. If the token is rejected for--- any reason, it should be discarded, and pagination should be restarted--- from the first page of results.-dlNextPageToken :: Lens' DriveList (Maybe Text)-dlNextPageToken-  = lens _dlNextPageToken-      (\ s a -> s{_dlNextPageToken = a})---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#driveList\".-dlKind :: Lens' DriveList Text-dlKind = lens _dlKind (\ s a -> s{_dlKind = a})---- | The list of shared drives. If nextPageToken is populated, then this list--- may be incomplete and an additional page of results should be fetched.-dlDrives :: Lens' DriveList [Drive]-dlDrives-  = lens _dlDrives (\ s a -> s{_dlDrives = a}) .-      _Default-      . _Coerce--instance FromJSON DriveList where-        parseJSON-          = withObject "DriveList"-              (\ o ->-                 DriveList' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "drive#driveList")-                     <*> (o .:? "drives" .!= mempty))--instance ToJSON DriveList where-        toJSON DriveList'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _dlNextPageToken,-                  Just ("kind" .= _dlKind),-                  ("drives" .=) <$> _dlDrives])---- | A list of generated file IDs which can be provided in create requests.------ /See:/ 'generatedIds' smart constructor.-data GeneratedIds =-  GeneratedIds'-    { _giSpace :: !(Maybe Text)-    , _giKind  :: !Text-    , _giIds   :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GeneratedIds' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'giSpace'------ * 'giKind'------ * 'giIds'-generatedIds-    :: GeneratedIds-generatedIds =-  GeneratedIds'-    {_giSpace = Nothing, _giKind = "drive#generatedIds", _giIds = Nothing}----- | The type of file that can be created with these IDs.-giSpace :: Lens' GeneratedIds (Maybe Text)-giSpace = lens _giSpace (\ s a -> s{_giSpace = a})---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#generatedIds\".-giKind :: Lens' GeneratedIds Text-giKind = lens _giKind (\ s a -> s{_giKind = a})---- | The IDs generated for the requesting user in the specified space.-giIds :: Lens' GeneratedIds [Text]-giIds-  = lens _giIds (\ s a -> s{_giIds = a}) . _Default .-      _Coerce--instance FromJSON GeneratedIds where-        parseJSON-          = withObject "GeneratedIds"-              (\ o ->-                 GeneratedIds' <$>-                   (o .:? "space") <*>-                     (o .:? "kind" .!= "drive#generatedIds")-                     <*> (o .:? "ids" .!= mempty))--instance ToJSON GeneratedIds where-        toJSON GeneratedIds'{..}-          = object-              (catMaybes-                 [("space" .=) <$> _giSpace, Just ("kind" .= _giKind),-                  ("ids" .=) <$> _giIds])---- | Links for exporting Google Docs to specific formats.------ /See:/ 'fileExportLinks' smart constructor.-newtype FileExportLinks =-  FileExportLinks'-    { _felAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FileExportLinks' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'felAddtional'-fileExportLinks-    :: HashMap Text Text -- ^ 'felAddtional'-    -> FileExportLinks-fileExportLinks pFelAddtional_ =-  FileExportLinks' {_felAddtional = _Coerce # pFelAddtional_}----- | A mapping from export format to URL-felAddtional :: Lens' FileExportLinks (HashMap Text Text)-felAddtional-  = lens _felAddtional (\ s a -> s{_felAddtional = a})-      . _Coerce--instance FromJSON FileExportLinks where-        parseJSON-          = withObject "FileExportLinks"-              (\ o -> FileExportLinks' <$> (parseJSONObject o))--instance ToJSON FileExportLinks where-        toJSON = toJSON . _felAddtional---- | A list of comments on a file.------ /See:/ 'commentList' smart constructor.-data CommentList =-  CommentList'-    { _cllNextPageToken :: !(Maybe Text)-    , _cllKind          :: !Text-    , _cllComments      :: !(Maybe [Comment])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CommentList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cllNextPageToken'------ * 'cllKind'------ * 'cllComments'-commentList-    :: CommentList-commentList =-  CommentList'-    { _cllNextPageToken = Nothing-    , _cllKind = "drive#commentList"-    , _cllComments = Nothing-    }----- | The page token for the next page of comments. This will be absent if the--- end of the comments list has been reached. If the token is rejected for--- any reason, it should be discarded, and pagination should be restarted--- from the first page of results.-cllNextPageToken :: Lens' CommentList (Maybe Text)-cllNextPageToken-  = lens _cllNextPageToken-      (\ s a -> s{_cllNextPageToken = a})---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#commentList\".-cllKind :: Lens' CommentList Text-cllKind = lens _cllKind (\ s a -> s{_cllKind = a})---- | The list of comments. If nextPageToken is populated, then this list may--- be incomplete and an additional page of results should be fetched.-cllComments :: Lens' CommentList [Comment]-cllComments-  = lens _cllComments (\ s a -> s{_cllComments = a}) .-      _Default-      . _Coerce--instance FromJSON CommentList where-        parseJSON-          = withObject "CommentList"-              (\ o ->-                 CommentList' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "drive#commentList")-                     <*> (o .:? "comments" .!= mempty))--instance ToJSON CommentList where-        toJSON CommentList'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _cllNextPageToken,-                  Just ("kind" .= _cllKind),-                  ("comments" .=) <$> _cllComments])---- | A list of revisions of a file.------ /See:/ 'revisionList' smart constructor.-data RevisionList =-  RevisionList'-    { _rllNextPageToken :: !(Maybe Text)-    , _rllKind          :: !Text-    , _rllRevisions     :: !(Maybe [Revision])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RevisionList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rllNextPageToken'------ * 'rllKind'------ * 'rllRevisions'-revisionList-    :: RevisionList-revisionList =-  RevisionList'-    { _rllNextPageToken = Nothing-    , _rllKind = "drive#revisionList"-    , _rllRevisions = Nothing-    }----- | The page token for the next page of revisions. This will be absent if--- the end of the revisions list has been reached. If the token is rejected--- for any reason, it should be discarded, and pagination should be--- restarted from the first page of results.-rllNextPageToken :: Lens' RevisionList (Maybe Text)-rllNextPageToken-  = lens _rllNextPageToken-      (\ s a -> s{_rllNextPageToken = a})---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#revisionList\".-rllKind :: Lens' RevisionList Text-rllKind = lens _rllKind (\ s a -> s{_rllKind = a})---- | The list of revisions. If nextPageToken is populated, then this list may--- be incomplete and an additional page of results should be fetched.-rllRevisions :: Lens' RevisionList [Revision]-rllRevisions-  = lens _rllRevisions (\ s a -> s{_rllRevisions = a})-      . _Default-      . _Coerce--instance FromJSON RevisionList where-        parseJSON-          = withObject "RevisionList"-              (\ o ->-                 RevisionList' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "drive#revisionList")-                     <*> (o .:? "revisions" .!= mempty))--instance ToJSON RevisionList where-        toJSON RevisionList'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _rllNextPageToken,-                  Just ("kind" .= _rllKind),-                  ("revisions" .=) <$> _rllRevisions])---- | A list of permissions for a file.------ /See:/ 'permissionList' smart constructor.-data PermissionList =-  PermissionList'-    { _plNextPageToken :: !(Maybe Text)-    , _plKind          :: !Text-    , _plPermissions   :: !(Maybe [Permission])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PermissionList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plNextPageToken'------ * 'plKind'------ * 'plPermissions'-permissionList-    :: PermissionList-permissionList =-  PermissionList'-    { _plNextPageToken = Nothing-    , _plKind = "drive#permissionList"-    , _plPermissions = Nothing-    }----- | The page token for the next page of permissions. This field will be--- absent if the end of the permissions list has been reached. If the token--- is rejected for any reason, it should be discarded, and pagination--- should be restarted from the first page of results.-plNextPageToken :: Lens' PermissionList (Maybe Text)-plNextPageToken-  = lens _plNextPageToken-      (\ s a -> s{_plNextPageToken = a})---- | Identifies what kind of resource this is. Value: the fixed string--- \"drive#permissionList\".-plKind :: Lens' PermissionList Text-plKind = lens _plKind (\ s a -> s{_plKind = a})---- | The list of permissions. If nextPageToken is populated, then this list--- may be incomplete and an additional page of results should be fetched.-plPermissions :: Lens' PermissionList [Permission]-plPermissions-  = lens _plPermissions-      (\ s a -> s{_plPermissions = a})-      . _Default-      . _Coerce--instance FromJSON PermissionList where-        parseJSON-          = withObject "PermissionList"-              (\ o ->-                 PermissionList' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "drive#permissionList")-                     <*> (o .:? "permissions" .!= mempty))--instance ToJSON PermissionList where-        toJSON PermissionList'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _plNextPageToken,-                  Just ("kind" .= _plKind),-                  ("permissions" .=) <$> _plPermissions])
− gen/Network/Google/Drive/Types/Sum.hs 
@@ -1,48 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.Drive.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.Drive.Types.Sum where--import           Network.Google.Prelude hiding (Bytes)---- | The source of files to list. Deprecated: use \'corpora\' instead.-data FilesListCorpus-    = FLCDomain-      -- ^ @domain@-      -- Files shared to the user\'s domain.-    | FLCUser-      -- ^ @user@-      -- Files owned by or shared to the user.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable FilesListCorpus--instance FromHttpApiData FilesListCorpus where-    parseQueryParam = \case-        "domain" -> Right FLCDomain-        "user" -> Right FLCUser-        x -> Left ("Unable to parse FilesListCorpus from: " <> x)--instance ToHttpApiData FilesListCorpus where-    toQueryParam = \case-        FLCDomain -> "domain"-        FLCUser -> "user"--instance FromJSON FilesListCorpus where-    parseJSON = parseJSONText "FilesListCorpus"--instance ToJSON FilesListCorpus where-    toJSON = toJSONText
− gen/Network/Google/Resource/Drive/About/Get.hs 
@@ -1,79 +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.Drive.About.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 the user, the user\'s Drive, and system--- capabilities.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.about.get@.-module Network.Google.Resource.Drive.About.Get-    (-    -- * REST Resource-      AboutGetResource--    -- * Creating a Request-    , aboutGet-    , AboutGet--    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.about.get@ method which the--- 'AboutGet' request conforms to.-type AboutGetResource =-     "drive" :>-       "v3" :>-         "about" :>-           QueryParam "alt" AltJSON :> Get '[JSON] About---- | Gets information about the user, the user\'s Drive, and system--- capabilities.------ /See:/ 'aboutGet' smart constructor.-data AboutGet =-  AboutGet'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AboutGet' with the minimum fields required to make a request.----aboutGet-    :: AboutGet-aboutGet = AboutGet'---instance GoogleRequest AboutGet where-        type Rs AboutGet = About-        type Scopes AboutGet =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.metadata",-               "https://www.googleapis.com/auth/drive.metadata.readonly",-               "https://www.googleapis.com/auth/drive.photos.readonly",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient AboutGet'{}-          = go (Just AltJSON) driveService-          where go-                  = buildClient (Proxy :: Proxy AboutGetResource)-                      mempty
− gen/Network/Google/Resource/Drive/Changes/GetStartPageToken.hs 
@@ -1,138 +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.Drive.Changes.GetStartPageToken--- 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 starting pageToken for listing future changes.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.changes.getStartPageToken@.-module Network.Google.Resource.Drive.Changes.GetStartPageToken-    (-    -- * REST Resource-      ChangesGetStartPageTokenResource--    -- * Creating a Request-    , changesGetStartPageToken-    , ChangesGetStartPageToken--    -- * Request Lenses-    , cgsptTeamDriveId-    , cgsptSupportsAllDrives-    , cgsptSupportsTeamDrives-    , cgsptDriveId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.changes.getStartPageToken@ method which the--- 'ChangesGetStartPageToken' request conforms to.-type ChangesGetStartPageTokenResource =-     "drive" :>-       "v3" :>-         "changes" :>-           "startPageToken" :>-             QueryParam "teamDriveId" Text :>-               QueryParam "supportsAllDrives" Bool :>-                 QueryParam "supportsTeamDrives" Bool :>-                   QueryParam "driveId" Text :>-                     QueryParam "alt" AltJSON :>-                       Get '[JSON] StartPageToken---- | Gets the starting pageToken for listing future changes.------ /See:/ 'changesGetStartPageToken' smart constructor.-data ChangesGetStartPageToken =-  ChangesGetStartPageToken'-    { _cgsptTeamDriveId        :: !(Maybe Text)-    , _cgsptSupportsAllDrives  :: !Bool-    , _cgsptSupportsTeamDrives :: !Bool-    , _cgsptDriveId            :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChangesGetStartPageToken' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cgsptTeamDriveId'------ * 'cgsptSupportsAllDrives'------ * 'cgsptSupportsTeamDrives'------ * 'cgsptDriveId'-changesGetStartPageToken-    :: ChangesGetStartPageToken-changesGetStartPageToken =-  ChangesGetStartPageToken'-    { _cgsptTeamDriveId = Nothing-    , _cgsptSupportsAllDrives = False-    , _cgsptSupportsTeamDrives = False-    , _cgsptDriveId = Nothing-    }----- | Deprecated use driveId instead.-cgsptTeamDriveId :: Lens' ChangesGetStartPageToken (Maybe Text)-cgsptTeamDriveId-  = lens _cgsptTeamDriveId-      (\ s a -> s{_cgsptTeamDriveId = a})---- | Whether the requesting application supports both My Drives and shared--- drives.-cgsptSupportsAllDrives :: Lens' ChangesGetStartPageToken Bool-cgsptSupportsAllDrives-  = lens _cgsptSupportsAllDrives-      (\ s a -> s{_cgsptSupportsAllDrives = a})---- | Deprecated use supportsAllDrives instead.-cgsptSupportsTeamDrives :: Lens' ChangesGetStartPageToken Bool-cgsptSupportsTeamDrives-  = lens _cgsptSupportsTeamDrives-      (\ s a -> s{_cgsptSupportsTeamDrives = a})---- | The ID of the shared drive for which the starting pageToken for listing--- future changes from that shared drive will be returned.-cgsptDriveId :: Lens' ChangesGetStartPageToken (Maybe Text)-cgsptDriveId-  = lens _cgsptDriveId (\ s a -> s{_cgsptDriveId = a})--instance GoogleRequest ChangesGetStartPageToken where-        type Rs ChangesGetStartPageToken = StartPageToken-        type Scopes ChangesGetStartPageToken =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.metadata",-               "https://www.googleapis.com/auth/drive.metadata.readonly",-               "https://www.googleapis.com/auth/drive.photos.readonly",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient ChangesGetStartPageToken'{..}-          = go _cgsptTeamDriveId (Just _cgsptSupportsAllDrives)-              (Just _cgsptSupportsTeamDrives)-              _cgsptDriveId-              (Just AltJSON)-              driveService-          where go-                  = buildClient-                      (Proxy :: Proxy ChangesGetStartPageTokenResource)-                      mempty
− gen/Network/Google/Resource/Drive/Changes/List.hs 
@@ -1,250 +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.Drive.Changes.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 changes for a user or shared drive.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.changes.list@.-module Network.Google.Resource.Drive.Changes.List-    (-    -- * REST Resource-      ChangesListResource--    -- * Creating a Request-    , changesList-    , ChangesList--    -- * Request Lenses-    , clIncludeTeamDriveItems-    , clIncludeCorpusRemovals-    , clTeamDriveId-    , clRestrictToMyDrive-    , clSpaces-    , clIncludeItemsFromAllDrives-    , clSupportsAllDrives-    , clPageToken-    , clPageSize-    , clIncludeRemoved-    , clSupportsTeamDrives-    , clDriveId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.changes.list@ method which the--- 'ChangesList' request conforms to.-type ChangesListResource =-     "drive" :>-       "v3" :>-         "changes" :>-           QueryParam "pageToken" Text :>-             QueryParam "includeTeamDriveItems" Bool :>-               QueryParam "includeCorpusRemovals" Bool :>-                 QueryParam "teamDriveId" Text :>-                   QueryParam "restrictToMyDrive" Bool :>-                     QueryParam "spaces" Text :>-                       QueryParam "includeItemsFromAllDrives" Bool :>-                         QueryParam "supportsAllDrives" Bool :>-                           QueryParam "pageSize" (Textual Int32) :>-                             QueryParam "includeRemoved" Bool :>-                               QueryParam "supportsTeamDrives" Bool :>-                                 QueryParam "driveId" Text :>-                                   QueryParam "alt" AltJSON :>-                                     Get '[JSON] ChangeList---- | Lists the changes for a user or shared drive.------ /See:/ 'changesList' smart constructor.-data ChangesList =-  ChangesList'-    { _clIncludeTeamDriveItems     :: !Bool-    , _clIncludeCorpusRemovals     :: !Bool-    , _clTeamDriveId               :: !(Maybe Text)-    , _clRestrictToMyDrive         :: !Bool-    , _clSpaces                    :: !Text-    , _clIncludeItemsFromAllDrives :: !Bool-    , _clSupportsAllDrives         :: !Bool-    , _clPageToken                 :: !Text-    , _clPageSize                  :: !(Textual Int32)-    , _clIncludeRemoved            :: !Bool-    , _clSupportsTeamDrives        :: !Bool-    , _clDriveId                   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChangesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'clIncludeTeamDriveItems'------ * 'clIncludeCorpusRemovals'------ * 'clTeamDriveId'------ * 'clRestrictToMyDrive'------ * 'clSpaces'------ * 'clIncludeItemsFromAllDrives'------ * 'clSupportsAllDrives'------ * 'clPageToken'------ * 'clPageSize'------ * 'clIncludeRemoved'------ * 'clSupportsTeamDrives'------ * 'clDriveId'-changesList-    :: Text -- ^ 'clPageToken'-    -> ChangesList-changesList pClPageToken_ =-  ChangesList'-    { _clIncludeTeamDriveItems = False-    , _clIncludeCorpusRemovals = False-    , _clTeamDriveId = Nothing-    , _clRestrictToMyDrive = False-    , _clSpaces = "drive"-    , _clIncludeItemsFromAllDrives = False-    , _clSupportsAllDrives = False-    , _clPageToken = pClPageToken_-    , _clPageSize = 100-    , _clIncludeRemoved = True-    , _clSupportsTeamDrives = False-    , _clDriveId = Nothing-    }----- | Deprecated use includeItemsFromAllDrives instead.-clIncludeTeamDriveItems :: Lens' ChangesList Bool-clIncludeTeamDriveItems-  = lens _clIncludeTeamDriveItems-      (\ s a -> s{_clIncludeTeamDriveItems = a})---- | Whether changes should include the file resource if the file is still--- accessible by the user at the time of the request, even when a file was--- removed from the list of changes and there will be no further change--- entries for this file.-clIncludeCorpusRemovals :: Lens' ChangesList Bool-clIncludeCorpusRemovals-  = lens _clIncludeCorpusRemovals-      (\ s a -> s{_clIncludeCorpusRemovals = a})---- | Deprecated use driveId instead.-clTeamDriveId :: Lens' ChangesList (Maybe Text)-clTeamDriveId-  = lens _clTeamDriveId-      (\ s a -> s{_clTeamDriveId = a})---- | Whether to restrict the results to changes inside the My Drive--- hierarchy. This omits changes to files such as those in the Application--- Data folder or shared files which have not been added to My Drive.-clRestrictToMyDrive :: Lens' ChangesList Bool-clRestrictToMyDrive-  = lens _clRestrictToMyDrive-      (\ s a -> s{_clRestrictToMyDrive = a})---- | A comma-separated list of spaces to query within the user corpus.--- Supported values are \'drive\', \'appDataFolder\' and \'photos\'.-clSpaces :: Lens' ChangesList Text-clSpaces = lens _clSpaces (\ s a -> s{_clSpaces = a})---- | Whether both My Drive and shared drive items should be included in--- results.-clIncludeItemsFromAllDrives :: Lens' ChangesList Bool-clIncludeItemsFromAllDrives-  = lens _clIncludeItemsFromAllDrives-      (\ s a -> s{_clIncludeItemsFromAllDrives = a})---- | Whether the requesting application supports both My Drives and shared--- drives.-clSupportsAllDrives :: Lens' ChangesList Bool-clSupportsAllDrives-  = lens _clSupportsAllDrives-      (\ s a -> s{_clSupportsAllDrives = a})---- | The token for continuing a previous list request on the next page. This--- should be set to the value of \'nextPageToken\' from the previous--- response or to the response from the getStartPageToken method.-clPageToken :: Lens' ChangesList Text-clPageToken-  = lens _clPageToken (\ s a -> s{_clPageToken = a})---- | The maximum number of changes to return per page.-clPageSize :: Lens' ChangesList Int32-clPageSize-  = lens _clPageSize (\ s a -> s{_clPageSize = a}) .-      _Coerce---- | Whether to include changes indicating that items have been removed from--- the list of changes, for example by deletion or loss of access.-clIncludeRemoved :: Lens' ChangesList Bool-clIncludeRemoved-  = lens _clIncludeRemoved-      (\ s a -> s{_clIncludeRemoved = a})---- | Deprecated use supportsAllDrives instead.-clSupportsTeamDrives :: Lens' ChangesList Bool-clSupportsTeamDrives-  = lens _clSupportsTeamDrives-      (\ s a -> s{_clSupportsTeamDrives = a})---- | The shared drive from which changes will be returned. If specified the--- change IDs will be reflective of the shared drive; use the combined--- drive ID and change ID as an identifier.-clDriveId :: Lens' ChangesList (Maybe Text)-clDriveId-  = lens _clDriveId (\ s a -> s{_clDriveId = a})--instance GoogleRequest ChangesList where-        type Rs ChangesList = ChangeList-        type Scopes ChangesList =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.metadata",-               "https://www.googleapis.com/auth/drive.metadata.readonly",-               "https://www.googleapis.com/auth/drive.photos.readonly",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient ChangesList'{..}-          = go (Just _clPageToken)-              (Just _clIncludeTeamDriveItems)-              (Just _clIncludeCorpusRemovals)-              _clTeamDriveId-              (Just _clRestrictToMyDrive)-              (Just _clSpaces)-              (Just _clIncludeItemsFromAllDrives)-              (Just _clSupportsAllDrives)-              (Just _clPageSize)-              (Just _clIncludeRemoved)-              (Just _clSupportsTeamDrives)-              _clDriveId-              (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy ChangesListResource)-                      mempty
− gen/Network/Google/Resource/Drive/Changes/Watch.hs 
@@ -1,264 +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.Drive.Changes.Watch--- 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)------ Subscribes to changes for a user.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.changes.watch@.-module Network.Google.Resource.Drive.Changes.Watch-    (-    -- * REST Resource-      ChangesWatchResource--    -- * Creating a Request-    , changesWatch-    , ChangesWatch--    -- * Request Lenses-    , cwIncludeTeamDriveItems-    , cwPayload-    , cwIncludeCorpusRemovals-    , cwTeamDriveId-    , cwRestrictToMyDrive-    , cwSpaces-    , cwIncludeItemsFromAllDrives-    , cwSupportsAllDrives-    , cwPageToken-    , cwPageSize-    , cwIncludeRemoved-    , cwSupportsTeamDrives-    , cwDriveId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.changes.watch@ method which the--- 'ChangesWatch' request conforms to.-type ChangesWatchResource =-     "drive" :>-       "v3" :>-         "changes" :>-           "watch" :>-             QueryParam "pageToken" Text :>-               QueryParam "includeTeamDriveItems" Bool :>-                 QueryParam "includeCorpusRemovals" Bool :>-                   QueryParam "teamDriveId" Text :>-                     QueryParam "restrictToMyDrive" Bool :>-                       QueryParam "spaces" Text :>-                         QueryParam "includeItemsFromAllDrives" Bool :>-                           QueryParam "supportsAllDrives" Bool :>-                             QueryParam "pageSize" (Textual Int32) :>-                               QueryParam "includeRemoved" Bool :>-                                 QueryParam "supportsTeamDrives" Bool :>-                                   QueryParam "driveId" Text :>-                                     QueryParam "alt" AltJSON :>-                                       ReqBody '[JSON] Channel :>-                                         Post '[JSON] Channel---- | Subscribes to changes for a user.------ /See:/ 'changesWatch' smart constructor.-data ChangesWatch =-  ChangesWatch'-    { _cwIncludeTeamDriveItems     :: !Bool-    , _cwPayload                   :: !Channel-    , _cwIncludeCorpusRemovals     :: !Bool-    , _cwTeamDriveId               :: !(Maybe Text)-    , _cwRestrictToMyDrive         :: !Bool-    , _cwSpaces                    :: !Text-    , _cwIncludeItemsFromAllDrives :: !Bool-    , _cwSupportsAllDrives         :: !Bool-    , _cwPageToken                 :: !Text-    , _cwPageSize                  :: !(Textual Int32)-    , _cwIncludeRemoved            :: !Bool-    , _cwSupportsTeamDrives        :: !Bool-    , _cwDriveId                   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChangesWatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cwIncludeTeamDriveItems'------ * 'cwPayload'------ * 'cwIncludeCorpusRemovals'------ * 'cwTeamDriveId'------ * 'cwRestrictToMyDrive'------ * 'cwSpaces'------ * 'cwIncludeItemsFromAllDrives'------ * 'cwSupportsAllDrives'------ * 'cwPageToken'------ * 'cwPageSize'------ * 'cwIncludeRemoved'------ * 'cwSupportsTeamDrives'------ * 'cwDriveId'-changesWatch-    :: Channel -- ^ 'cwPayload'-    -> Text -- ^ 'cwPageToken'-    -> ChangesWatch-changesWatch pCwPayload_ pCwPageToken_ =-  ChangesWatch'-    { _cwIncludeTeamDriveItems = False-    , _cwPayload = pCwPayload_-    , _cwIncludeCorpusRemovals = False-    , _cwTeamDriveId = Nothing-    , _cwRestrictToMyDrive = False-    , _cwSpaces = "drive"-    , _cwIncludeItemsFromAllDrives = False-    , _cwSupportsAllDrives = False-    , _cwPageToken = pCwPageToken_-    , _cwPageSize = 100-    , _cwIncludeRemoved = True-    , _cwSupportsTeamDrives = False-    , _cwDriveId = Nothing-    }----- | Deprecated use includeItemsFromAllDrives instead.-cwIncludeTeamDriveItems :: Lens' ChangesWatch Bool-cwIncludeTeamDriveItems-  = lens _cwIncludeTeamDriveItems-      (\ s a -> s{_cwIncludeTeamDriveItems = a})---- | Multipart request metadata.-cwPayload :: Lens' ChangesWatch Channel-cwPayload-  = lens _cwPayload (\ s a -> s{_cwPayload = a})---- | Whether changes should include the file resource if the file is still--- accessible by the user at the time of the request, even when a file was--- removed from the list of changes and there will be no further change--- entries for this file.-cwIncludeCorpusRemovals :: Lens' ChangesWatch Bool-cwIncludeCorpusRemovals-  = lens _cwIncludeCorpusRemovals-      (\ s a -> s{_cwIncludeCorpusRemovals = a})---- | Deprecated use driveId instead.-cwTeamDriveId :: Lens' ChangesWatch (Maybe Text)-cwTeamDriveId-  = lens _cwTeamDriveId-      (\ s a -> s{_cwTeamDriveId = a})---- | Whether to restrict the results to changes inside the My Drive--- hierarchy. This omits changes to files such as those in the Application--- Data folder or shared files which have not been added to My Drive.-cwRestrictToMyDrive :: Lens' ChangesWatch Bool-cwRestrictToMyDrive-  = lens _cwRestrictToMyDrive-      (\ s a -> s{_cwRestrictToMyDrive = a})---- | A comma-separated list of spaces to query within the user corpus.--- Supported values are \'drive\', \'appDataFolder\' and \'photos\'.-cwSpaces :: Lens' ChangesWatch Text-cwSpaces = lens _cwSpaces (\ s a -> s{_cwSpaces = a})---- | Whether both My Drive and shared drive items should be included in--- results.-cwIncludeItemsFromAllDrives :: Lens' ChangesWatch Bool-cwIncludeItemsFromAllDrives-  = lens _cwIncludeItemsFromAllDrives-      (\ s a -> s{_cwIncludeItemsFromAllDrives = a})---- | Whether the requesting application supports both My Drives and shared--- drives.-cwSupportsAllDrives :: Lens' ChangesWatch Bool-cwSupportsAllDrives-  = lens _cwSupportsAllDrives-      (\ s a -> s{_cwSupportsAllDrives = a})---- | The token for continuing a previous list request on the next page. This--- should be set to the value of \'nextPageToken\' from the previous--- response or to the response from the getStartPageToken method.-cwPageToken :: Lens' ChangesWatch Text-cwPageToken-  = lens _cwPageToken (\ s a -> s{_cwPageToken = a})---- | The maximum number of changes to return per page.-cwPageSize :: Lens' ChangesWatch Int32-cwPageSize-  = lens _cwPageSize (\ s a -> s{_cwPageSize = a}) .-      _Coerce---- | Whether to include changes indicating that items have been removed from--- the list of changes, for example by deletion or loss of access.-cwIncludeRemoved :: Lens' ChangesWatch Bool-cwIncludeRemoved-  = lens _cwIncludeRemoved-      (\ s a -> s{_cwIncludeRemoved = a})---- | Deprecated use supportsAllDrives instead.-cwSupportsTeamDrives :: Lens' ChangesWatch Bool-cwSupportsTeamDrives-  = lens _cwSupportsTeamDrives-      (\ s a -> s{_cwSupportsTeamDrives = a})---- | The shared drive from which changes will be returned. If specified the--- change IDs will be reflective of the shared drive; use the combined--- drive ID and change ID as an identifier.-cwDriveId :: Lens' ChangesWatch (Maybe Text)-cwDriveId-  = lens _cwDriveId (\ s a -> s{_cwDriveId = a})--instance GoogleRequest ChangesWatch where-        type Rs ChangesWatch = Channel-        type Scopes ChangesWatch =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.metadata",-               "https://www.googleapis.com/auth/drive.metadata.readonly",-               "https://www.googleapis.com/auth/drive.photos.readonly",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient ChangesWatch'{..}-          = go (Just _cwPageToken)-              (Just _cwIncludeTeamDriveItems)-              (Just _cwIncludeCorpusRemovals)-              _cwTeamDriveId-              (Just _cwRestrictToMyDrive)-              (Just _cwSpaces)-              (Just _cwIncludeItemsFromAllDrives)-              (Just _cwSupportsAllDrives)-              (Just _cwPageSize)-              (Just _cwIncludeRemoved)-              (Just _cwSupportsTeamDrives)-              _cwDriveId-              (Just AltJSON)-              _cwPayload-              driveService-          where go-                  = buildClient (Proxy :: Proxy ChangesWatchResource)-                      mempty
− gen/Network/Google/Resource/Drive/Channels/Stop.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.Drive.Channels.Stop--- 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)------ Stop watching resources through this channel------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.channels.stop@.-module Network.Google.Resource.Drive.Channels.Stop-    (-    -- * REST Resource-      ChannelsStopResource--    -- * Creating a Request-    , channelsStop-    , ChannelsStop--    -- * Request Lenses-    , csPayload-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.channels.stop@ method which the--- 'ChannelsStop' request conforms to.-type ChannelsStopResource =-     "drive" :>-       "v3" :>-         "channels" :>-           "stop" :>-             QueryParam "alt" AltJSON :>-               ReqBody '[JSON] Channel :> Post '[JSON] ()---- | Stop watching resources through this channel------ /See:/ 'channelsStop' smart constructor.-newtype ChannelsStop =-  ChannelsStop'-    { _csPayload :: Channel-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChannelsStop' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csPayload'-channelsStop-    :: Channel -- ^ 'csPayload'-    -> ChannelsStop-channelsStop pCsPayload_ = ChannelsStop' {_csPayload = pCsPayload_}----- | Multipart request metadata.-csPayload :: Lens' ChannelsStop Channel-csPayload-  = lens _csPayload (\ s a -> s{_csPayload = a})--instance GoogleRequest ChannelsStop where-        type Rs ChannelsStop = ()-        type Scopes ChannelsStop =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.metadata",-               "https://www.googleapis.com/auth/drive.metadata.readonly",-               "https://www.googleapis.com/auth/drive.photos.readonly",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient ChannelsStop'{..}-          = go (Just AltJSON) _csPayload driveService-          where go-                  = buildClient (Proxy :: Proxy ChannelsStopResource)-                      mempty
− gen/Network/Google/Resource/Drive/Comments/Create.hs 
@@ -1,98 +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.Drive.Comments.Create--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a new comment on a file.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.comments.create@.-module Network.Google.Resource.Drive.Comments.Create-    (-    -- * REST Resource-      CommentsCreateResource--    -- * Creating a Request-    , commentsCreate-    , CommentsCreate--    -- * Request Lenses-    , ccPayload-    , ccFileId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.comments.create@ method which the--- 'CommentsCreate' request conforms to.-type CommentsCreateResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "comments" :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] Comment :> Post '[JSON] Comment---- | Creates a new comment on a file.------ /See:/ 'commentsCreate' smart constructor.-data CommentsCreate =-  CommentsCreate'-    { _ccPayload :: !Comment-    , _ccFileId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CommentsCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccPayload'------ * 'ccFileId'-commentsCreate-    :: Comment -- ^ 'ccPayload'-    -> Text -- ^ 'ccFileId'-    -> CommentsCreate-commentsCreate pCcPayload_ pCcFileId_ =-  CommentsCreate' {_ccPayload = pCcPayload_, _ccFileId = pCcFileId_}----- | Multipart request metadata.-ccPayload :: Lens' CommentsCreate Comment-ccPayload-  = lens _ccPayload (\ s a -> s{_ccPayload = a})---- | The ID of the file.-ccFileId :: Lens' CommentsCreate Text-ccFileId = lens _ccFileId (\ s a -> s{_ccFileId = a})--instance GoogleRequest CommentsCreate where-        type Rs CommentsCreate = Comment-        type Scopes CommentsCreate =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file"]-        requestClient CommentsCreate'{..}-          = go _ccFileId (Just AltJSON) _ccPayload driveService-          where go-                  = buildClient (Proxy :: Proxy CommentsCreateResource)-                      mempty
− gen/Network/Google/Resource/Drive/Comments/Delete.hs 
@@ -1,99 +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.Drive.Comments.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 comment.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.comments.delete@.-module Network.Google.Resource.Drive.Comments.Delete-    (-    -- * REST Resource-      CommentsDeleteResource--    -- * Creating a Request-    , commentsDelete-    , CommentsDelete--    -- * Request Lenses-    , cdFileId-    , cdCommentId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.comments.delete@ method which the--- 'CommentsDelete' request conforms to.-type CommentsDeleteResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "comments" :>-               Capture "commentId" Text :>-                 QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes a comment.------ /See:/ 'commentsDelete' smart constructor.-data CommentsDelete =-  CommentsDelete'-    { _cdFileId    :: !Text-    , _cdCommentId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CommentsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdFileId'------ * 'cdCommentId'-commentsDelete-    :: Text -- ^ 'cdFileId'-    -> Text -- ^ 'cdCommentId'-    -> CommentsDelete-commentsDelete pCdFileId_ pCdCommentId_ =-  CommentsDelete' {_cdFileId = pCdFileId_, _cdCommentId = pCdCommentId_}----- | The ID of the file.-cdFileId :: Lens' CommentsDelete Text-cdFileId = lens _cdFileId (\ s a -> s{_cdFileId = a})---- | The ID of the comment.-cdCommentId :: Lens' CommentsDelete Text-cdCommentId-  = lens _cdCommentId (\ s a -> s{_cdCommentId = a})--instance GoogleRequest CommentsDelete where-        type Rs CommentsDelete = ()-        type Scopes CommentsDelete =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file"]-        requestClient CommentsDelete'{..}-          = go _cdFileId _cdCommentId (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy CommentsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Drive/Comments/Get.hs 
@@ -1,117 +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.Drive.Comments.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 a comment by ID.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.comments.get@.-module Network.Google.Resource.Drive.Comments.Get-    (-    -- * REST Resource-      CommentsGetResource--    -- * Creating a Request-    , commentsGet-    , CommentsGet--    -- * Request Lenses-    , cgFileId-    , cgCommentId-    , cgIncludeDeleted-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.comments.get@ method which the--- 'CommentsGet' request conforms to.-type CommentsGetResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "comments" :>-               Capture "commentId" Text :>-                 QueryParam "includeDeleted" Bool :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Comment---- | Gets a comment by ID.------ /See:/ 'commentsGet' smart constructor.-data CommentsGet =-  CommentsGet'-    { _cgFileId         :: !Text-    , _cgCommentId      :: !Text-    , _cgIncludeDeleted :: !Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CommentsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cgFileId'------ * 'cgCommentId'------ * 'cgIncludeDeleted'-commentsGet-    :: Text -- ^ 'cgFileId'-    -> Text -- ^ 'cgCommentId'-    -> CommentsGet-commentsGet pCgFileId_ pCgCommentId_ =-  CommentsGet'-    { _cgFileId = pCgFileId_-    , _cgCommentId = pCgCommentId_-    , _cgIncludeDeleted = False-    }----- | The ID of the file.-cgFileId :: Lens' CommentsGet Text-cgFileId = lens _cgFileId (\ s a -> s{_cgFileId = a})---- | The ID of the comment.-cgCommentId :: Lens' CommentsGet Text-cgCommentId-  = lens _cgCommentId (\ s a -> s{_cgCommentId = a})---- | Whether to return deleted comments. Deleted comments will not include--- their original content.-cgIncludeDeleted :: Lens' CommentsGet Bool-cgIncludeDeleted-  = lens _cgIncludeDeleted-      (\ s a -> s{_cgIncludeDeleted = a})--instance GoogleRequest CommentsGet where-        type Rs CommentsGet = Comment-        type Scopes CommentsGet =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient CommentsGet'{..}-          = go _cgFileId _cgCommentId (Just _cgIncludeDeleted)-              (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy CommentsGetResource)-                      mempty
− gen/Network/Google/Resource/Drive/Comments/List.hs 
@@ -1,145 +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.Drive.Comments.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 a file\'s comments.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.comments.list@.-module Network.Google.Resource.Drive.Comments.List-    (-    -- * REST Resource-      CommentsListResource--    -- * Creating a Request-    , commentsList-    , CommentsList--    -- * Request Lenses-    , cStartModifiedTime-    , cPageToken-    , cFileId-    , cPageSize-    , cIncludeDeleted-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.comments.list@ method which the--- 'CommentsList' request conforms to.-type CommentsListResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "comments" :>-               QueryParam "startModifiedTime" Text :>-                 QueryParam "pageToken" Text :>-                   QueryParam "pageSize" (Textual Int32) :>-                     QueryParam "includeDeleted" Bool :>-                       QueryParam "alt" AltJSON :> Get '[JSON] CommentList---- | Lists a file\'s comments.------ /See:/ 'commentsList' smart constructor.-data CommentsList =-  CommentsList'-    { _cStartModifiedTime :: !(Maybe Text)-    , _cPageToken         :: !(Maybe Text)-    , _cFileId            :: !Text-    , _cPageSize          :: !(Textual Int32)-    , _cIncludeDeleted    :: !Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CommentsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cStartModifiedTime'------ * 'cPageToken'------ * 'cFileId'------ * 'cPageSize'------ * 'cIncludeDeleted'-commentsList-    :: Text -- ^ 'cFileId'-    -> CommentsList-commentsList pCFileId_ =-  CommentsList'-    { _cStartModifiedTime = Nothing-    , _cPageToken = Nothing-    , _cFileId = pCFileId_-    , _cPageSize = 20-    , _cIncludeDeleted = False-    }----- | The minimum value of \'modifiedTime\' for the result comments (RFC 3339--- date-time).-cStartModifiedTime :: Lens' CommentsList (Maybe Text)-cStartModifiedTime-  = lens _cStartModifiedTime-      (\ s a -> s{_cStartModifiedTime = a})---- | The token for continuing a previous list request on the next page. This--- should be set to the value of \'nextPageToken\' from the previous--- response.-cPageToken :: Lens' CommentsList (Maybe Text)-cPageToken-  = lens _cPageToken (\ s a -> s{_cPageToken = a})---- | The ID of the file.-cFileId :: Lens' CommentsList Text-cFileId = lens _cFileId (\ s a -> s{_cFileId = a})---- | The maximum number of comments to return per page.-cPageSize :: Lens' CommentsList Int32-cPageSize-  = lens _cPageSize (\ s a -> s{_cPageSize = a}) .-      _Coerce---- | Whether to include deleted comments. Deleted comments will not include--- their original content.-cIncludeDeleted :: Lens' CommentsList Bool-cIncludeDeleted-  = lens _cIncludeDeleted-      (\ s a -> s{_cIncludeDeleted = a})--instance GoogleRequest CommentsList where-        type Rs CommentsList = CommentList-        type Scopes CommentsList =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient CommentsList'{..}-          = go _cFileId _cStartModifiedTime _cPageToken-              (Just _cPageSize)-              (Just _cIncludeDeleted)-              (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy CommentsListResource)-                      mempty
− gen/Network/Google/Resource/Drive/Comments/Update.hs 
@@ -1,114 +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.Drive.Comments.Update--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Updates a comment with patch semantics.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.comments.update@.-module Network.Google.Resource.Drive.Comments.Update-    (-    -- * REST Resource-      CommentsUpdateResource--    -- * Creating a Request-    , commentsUpdate-    , CommentsUpdate--    -- * Request Lenses-    , cuPayload-    , cuFileId-    , cuCommentId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.comments.update@ method which the--- 'CommentsUpdate' request conforms to.-type CommentsUpdateResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "comments" :>-               Capture "commentId" Text :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Comment :> Patch '[JSON] Comment---- | Updates a comment with patch semantics.------ /See:/ 'commentsUpdate' smart constructor.-data CommentsUpdate =-  CommentsUpdate'-    { _cuPayload   :: !Comment-    , _cuFileId    :: !Text-    , _cuCommentId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CommentsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cuPayload'------ * 'cuFileId'------ * 'cuCommentId'-commentsUpdate-    :: Comment -- ^ 'cuPayload'-    -> Text -- ^ 'cuFileId'-    -> Text -- ^ 'cuCommentId'-    -> CommentsUpdate-commentsUpdate pCuPayload_ pCuFileId_ pCuCommentId_ =-  CommentsUpdate'-    { _cuPayload = pCuPayload_-    , _cuFileId = pCuFileId_-    , _cuCommentId = pCuCommentId_-    }----- | Multipart request metadata.-cuPayload :: Lens' CommentsUpdate Comment-cuPayload-  = lens _cuPayload (\ s a -> s{_cuPayload = a})---- | The ID of the file.-cuFileId :: Lens' CommentsUpdate Text-cuFileId = lens _cuFileId (\ s a -> s{_cuFileId = a})---- | The ID of the comment.-cuCommentId :: Lens' CommentsUpdate Text-cuCommentId-  = lens _cuCommentId (\ s a -> s{_cuCommentId = a})--instance GoogleRequest CommentsUpdate where-        type Rs CommentsUpdate = Comment-        type Scopes CommentsUpdate =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file"]-        requestClient CommentsUpdate'{..}-          = go _cuFileId _cuCommentId (Just AltJSON) _cuPayload-              driveService-          where go-                  = buildClient (Proxy :: Proxy CommentsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Drive/Drives/Create.hs 
@@ -1,102 +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.Drive.Drives.Create--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a new shared drive.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.drives.create@.-module Network.Google.Resource.Drive.Drives.Create-    (-    -- * REST Resource-      DrivesCreateResource--    -- * Creating a Request-    , drivesCreate-    , DrivesCreate--    -- * Request Lenses-    , dcRequestId-    , dcPayload-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.drives.create@ method which the--- 'DrivesCreate' request conforms to.-type DrivesCreateResource =-     "drive" :>-       "v3" :>-         "drives" :>-           QueryParam "requestId" Text :>-             QueryParam "alt" AltJSON :>-               ReqBody '[JSON] Drive :> Post '[JSON] Drive---- | Creates a new shared drive.------ /See:/ 'drivesCreate' smart constructor.-data DrivesCreate =-  DrivesCreate'-    { _dcRequestId :: !Text-    , _dcPayload   :: !Drive-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DrivesCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcRequestId'------ * 'dcPayload'-drivesCreate-    :: Text -- ^ 'dcRequestId'-    -> Drive -- ^ 'dcPayload'-    -> DrivesCreate-drivesCreate pDcRequestId_ pDcPayload_ =-  DrivesCreate' {_dcRequestId = pDcRequestId_, _dcPayload = pDcPayload_}----- | An ID, such as a random UUID, which uniquely identifies this user\'s--- request for idempotent creation of a shared drive. A repeated request by--- the same user and with the same request ID will avoid creating--- duplicates by attempting to create the same shared drive. If the shared--- drive already exists a 409 error will be returned.-dcRequestId :: Lens' DrivesCreate Text-dcRequestId-  = lens _dcRequestId (\ s a -> s{_dcRequestId = a})---- | Multipart request metadata.-dcPayload :: Lens' DrivesCreate Drive-dcPayload-  = lens _dcPayload (\ s a -> s{_dcPayload = a})--instance GoogleRequest DrivesCreate where-        type Rs DrivesCreate = Drive-        type Scopes DrivesCreate =-             '["https://www.googleapis.com/auth/drive"]-        requestClient DrivesCreate'{..}-          = go (Just _dcRequestId) (Just AltJSON) _dcPayload-              driveService-          where go-                  = buildClient (Proxy :: Proxy DrivesCreateResource)-                      mempty
− gen/Network/Google/Resource/Drive/Drives/Delete.hs 
@@ -1,87 +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.Drive.Drives.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)------ Permanently deletes a shared drive for which the user is an organizer.--- The shared drive cannot contain any untrashed items.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.drives.delete@.-module Network.Google.Resource.Drive.Drives.Delete-    (-    -- * REST Resource-      DrivesDeleteResource--    -- * Creating a Request-    , drivesDelete-    , DrivesDelete--    -- * Request Lenses-    , ddDriveId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.drives.delete@ method which the--- 'DrivesDelete' request conforms to.-type DrivesDeleteResource =-     "drive" :>-       "v3" :>-         "drives" :>-           Capture "driveId" Text :>-             QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Permanently deletes a shared drive for which the user is an organizer.--- The shared drive cannot contain any untrashed items.------ /See:/ 'drivesDelete' smart constructor.-newtype DrivesDelete =-  DrivesDelete'-    { _ddDriveId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DrivesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddDriveId'-drivesDelete-    :: Text -- ^ 'ddDriveId'-    -> DrivesDelete-drivesDelete pDdDriveId_ = DrivesDelete' {_ddDriveId = pDdDriveId_}----- | The ID of the shared drive.-ddDriveId :: Lens' DrivesDelete Text-ddDriveId-  = lens _ddDriveId (\ s a -> s{_ddDriveId = a})--instance GoogleRequest DrivesDelete where-        type Rs DrivesDelete = ()-        type Scopes DrivesDelete =-             '["https://www.googleapis.com/auth/drive"]-        requestClient DrivesDelete'{..}-          = go _ddDriveId (Just AltJSON) driveService-          where go-                  = buildClient (Proxy :: Proxy DrivesDeleteResource)-                      mempty
− gen/Network/Google/Resource/Drive/Drives/Get.hs 
@@ -1,102 +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.Drive.Drives.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 a shared drive\'s metadata by ID.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.drives.get@.-module Network.Google.Resource.Drive.Drives.Get-    (-    -- * REST Resource-      DrivesGetResource--    -- * Creating a Request-    , drivesGet-    , DrivesGet--    -- * Request Lenses-    , dgUseDomainAdminAccess-    , dgDriveId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.drives.get@ method which the--- 'DrivesGet' request conforms to.-type DrivesGetResource =-     "drive" :>-       "v3" :>-         "drives" :>-           Capture "driveId" Text :>-             QueryParam "useDomainAdminAccess" Bool :>-               QueryParam "alt" AltJSON :> Get '[JSON] Drive---- | Gets a shared drive\'s metadata by ID.------ /See:/ 'drivesGet' smart constructor.-data DrivesGet =-  DrivesGet'-    { _dgUseDomainAdminAccess :: !Bool-    , _dgDriveId              :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DrivesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dgUseDomainAdminAccess'------ * 'dgDriveId'-drivesGet-    :: Text -- ^ 'dgDriveId'-    -> DrivesGet-drivesGet pDgDriveId_ =-  DrivesGet' {_dgUseDomainAdminAccess = False, _dgDriveId = pDgDriveId_}----- | Issue the request as a domain administrator; if set to true, then the--- requester will be granted access if they are an administrator of the--- domain to which the shared drive belongs.-dgUseDomainAdminAccess :: Lens' DrivesGet Bool-dgUseDomainAdminAccess-  = lens _dgUseDomainAdminAccess-      (\ s a -> s{_dgUseDomainAdminAccess = a})---- | The ID of the shared drive.-dgDriveId :: Lens' DrivesGet Text-dgDriveId-  = lens _dgDriveId (\ s a -> s{_dgDriveId = a})--instance GoogleRequest DrivesGet where-        type Rs DrivesGet = Drive-        type Scopes DrivesGet =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient DrivesGet'{..}-          = go _dgDriveId (Just _dgUseDomainAdminAccess)-              (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy DrivesGetResource)-                      mempty
− gen/Network/Google/Resource/Drive/Drives/Hide.hs 
@@ -1,86 +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.Drive.Drives.Hide--- 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)------ Hides a shared drive from the default view.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.drives.hide@.-module Network.Google.Resource.Drive.Drives.Hide-    (-    -- * REST Resource-      DrivesHideResource--    -- * Creating a Request-    , drivesHide-    , DrivesHide--    -- * Request Lenses-    , dhDriveId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.drives.hide@ method which the--- 'DrivesHide' request conforms to.-type DrivesHideResource =-     "drive" :>-       "v3" :>-         "drives" :>-           Capture "driveId" Text :>-             "hide" :>-               QueryParam "alt" AltJSON :> Post '[JSON] Drive---- | Hides a shared drive from the default view.------ /See:/ 'drivesHide' smart constructor.-newtype DrivesHide =-  DrivesHide'-    { _dhDriveId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DrivesHide' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dhDriveId'-drivesHide-    :: Text -- ^ 'dhDriveId'-    -> DrivesHide-drivesHide pDhDriveId_ = DrivesHide' {_dhDriveId = pDhDriveId_}----- | The ID of the shared drive.-dhDriveId :: Lens' DrivesHide Text-dhDriveId-  = lens _dhDriveId (\ s a -> s{_dhDriveId = a})--instance GoogleRequest DrivesHide where-        type Rs DrivesHide = Drive-        type Scopes DrivesHide =-             '["https://www.googleapis.com/auth/drive"]-        requestClient DrivesHide'{..}-          = go _dhDriveId (Just AltJSON) driveService-          where go-                  = buildClient (Proxy :: Proxy DrivesHideResource)-                      mempty
− gen/Network/Google/Resource/Drive/Drives/List.hs 
@@ -1,127 +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.Drive.Drives.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 user\'s shared drives.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.drives.list@.-module Network.Google.Resource.Drive.Drives.List-    (-    -- * REST Resource-      DrivesListResource--    -- * Creating a Request-    , drivesList-    , DrivesList--    -- * Request Lenses-    , dlQ-    , dlPageToken-    , dlUseDomainAdminAccess-    , dlPageSize-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.drives.list@ method which the--- 'DrivesList' request conforms to.-type DrivesListResource =-     "drive" :>-       "v3" :>-         "drives" :>-           QueryParam "q" Text :>-             QueryParam "pageToken" Text :>-               QueryParam "useDomainAdminAccess" Bool :>-                 QueryParam "pageSize" (Textual Int32) :>-                   QueryParam "alt" AltJSON :> Get '[JSON] DriveList---- | Lists the user\'s shared drives.------ /See:/ 'drivesList' smart constructor.-data DrivesList =-  DrivesList'-    { _dlQ                    :: !(Maybe Text)-    , _dlPageToken            :: !(Maybe Text)-    , _dlUseDomainAdminAccess :: !Bool-    , _dlPageSize             :: !(Textual Int32)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DrivesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dlQ'------ * 'dlPageToken'------ * 'dlUseDomainAdminAccess'------ * 'dlPageSize'-drivesList-    :: DrivesList-drivesList =-  DrivesList'-    { _dlQ = Nothing-    , _dlPageToken = Nothing-    , _dlUseDomainAdminAccess = False-    , _dlPageSize = 10-    }----- | Query string for searching shared drives.-dlQ :: Lens' DrivesList (Maybe Text)-dlQ = lens _dlQ (\ s a -> s{_dlQ = a})---- | Page token for shared drives.-dlPageToken :: Lens' DrivesList (Maybe Text)-dlPageToken-  = lens _dlPageToken (\ s a -> s{_dlPageToken = a})---- | Issue the request as a domain administrator; if set to true, then all--- shared drives of the domain in which the requester is an administrator--- are returned.-dlUseDomainAdminAccess :: Lens' DrivesList Bool-dlUseDomainAdminAccess-  = lens _dlUseDomainAdminAccess-      (\ s a -> s{_dlUseDomainAdminAccess = a})---- | Maximum number of shared drives to return.-dlPageSize :: Lens' DrivesList Int32-dlPageSize-  = lens _dlPageSize (\ s a -> s{_dlPageSize = a}) .-      _Coerce--instance GoogleRequest DrivesList where-        type Rs DrivesList = DriveList-        type Scopes DrivesList =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient DrivesList'{..}-          = go _dlQ _dlPageToken (Just _dlUseDomainAdminAccess)-              (Just _dlPageSize)-              (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy DrivesListResource)-                      mempty
− gen/Network/Google/Resource/Drive/Drives/Unhide.hs 
@@ -1,86 +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.Drive.Drives.Unhide--- 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)------ Restores a shared drive to the default view.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.drives.unhide@.-module Network.Google.Resource.Drive.Drives.Unhide-    (-    -- * REST Resource-      DrivesUnhideResource--    -- * Creating a Request-    , drivesUnhide-    , DrivesUnhide--    -- * Request Lenses-    , duDriveId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.drives.unhide@ method which the--- 'DrivesUnhide' request conforms to.-type DrivesUnhideResource =-     "drive" :>-       "v3" :>-         "drives" :>-           Capture "driveId" Text :>-             "unhide" :>-               QueryParam "alt" AltJSON :> Post '[JSON] Drive---- | Restores a shared drive to the default view.------ /See:/ 'drivesUnhide' smart constructor.-newtype DrivesUnhide =-  DrivesUnhide'-    { _duDriveId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DrivesUnhide' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'duDriveId'-drivesUnhide-    :: Text -- ^ 'duDriveId'-    -> DrivesUnhide-drivesUnhide pDuDriveId_ = DrivesUnhide' {_duDriveId = pDuDriveId_}----- | The ID of the shared drive.-duDriveId :: Lens' DrivesUnhide Text-duDriveId-  = lens _duDriveId (\ s a -> s{_duDriveId = a})--instance GoogleRequest DrivesUnhide where-        type Rs DrivesUnhide = Drive-        type Scopes DrivesUnhide =-             '["https://www.googleapis.com/auth/drive"]-        requestClient DrivesUnhide'{..}-          = go _duDriveId (Just AltJSON) driveService-          where go-                  = buildClient (Proxy :: Proxy DrivesUnhideResource)-                      mempty
− gen/Network/Google/Resource/Drive/Drives/Update.hs 
@@ -1,115 +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.Drive.Drives.Update--- 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 metadate for a shared drive.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.drives.update@.-module Network.Google.Resource.Drive.Drives.Update-    (-    -- * REST Resource-      DrivesUpdateResource--    -- * Creating a Request-    , drivesUpdate-    , DrivesUpdate--    -- * Request Lenses-    , dPayload-    , dUseDomainAdminAccess-    , dDriveId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.drives.update@ method which the--- 'DrivesUpdate' request conforms to.-type DrivesUpdateResource =-     "drive" :>-       "v3" :>-         "drives" :>-           Capture "driveId" Text :>-             QueryParam "useDomainAdminAccess" Bool :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] Drive :> Patch '[JSON] Drive---- | Updates the metadate for a shared drive.------ /See:/ 'drivesUpdate' smart constructor.-data DrivesUpdate =-  DrivesUpdate'-    { _dPayload              :: !Drive-    , _dUseDomainAdminAccess :: !Bool-    , _dDriveId              :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DrivesUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dPayload'------ * 'dUseDomainAdminAccess'------ * 'dDriveId'-drivesUpdate-    :: Drive -- ^ 'dPayload'-    -> Text -- ^ 'dDriveId'-    -> DrivesUpdate-drivesUpdate pDPayload_ pDDriveId_ =-  DrivesUpdate'-    { _dPayload = pDPayload_-    , _dUseDomainAdminAccess = False-    , _dDriveId = pDDriveId_-    }----- | Multipart request metadata.-dPayload :: Lens' DrivesUpdate Drive-dPayload = lens _dPayload (\ s a -> s{_dPayload = a})---- | Issue the request as a domain administrator; if set to true, then the--- requester will be granted access if they are an administrator of the--- domain to which the shared drive belongs.-dUseDomainAdminAccess :: Lens' DrivesUpdate Bool-dUseDomainAdminAccess-  = lens _dUseDomainAdminAccess-      (\ s a -> s{_dUseDomainAdminAccess = a})---- | The ID of the shared drive.-dDriveId :: Lens' DrivesUpdate Text-dDriveId = lens _dDriveId (\ s a -> s{_dDriveId = a})--instance GoogleRequest DrivesUpdate where-        type Rs DrivesUpdate = Drive-        type Scopes DrivesUpdate =-             '["https://www.googleapis.com/auth/drive"]-        requestClient DrivesUpdate'{..}-          = go _dDriveId (Just _dUseDomainAdminAccess)-              (Just AltJSON)-              _dPayload-              driveService-          where go-                  = buildClient (Proxy :: Proxy DrivesUpdateResource)-                      mempty
− gen/Network/Google/Resource/Drive/Files/Copy.hs 
@@ -1,176 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Drive.Files.Copy--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a copy of a file and applies any requested updates with patch--- semantics.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.files.copy@.-module Network.Google.Resource.Drive.Files.Copy-    (-    -- * REST Resource-      FilesCopyResource--    -- * Creating a Request-    , filesCopy-    , FilesCopy--    -- * Request Lenses-    , fPayload-    , fOCRLanguage-    , fKeepRevisionForever-    , fSupportsAllDrives-    , fIgnoreDefaultVisibility-    , fFileId-    , fSupportsTeamDrives-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.files.copy@ method which the--- 'FilesCopy' request conforms to.-type FilesCopyResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "copy" :>-               QueryParam "ocrLanguage" Text :>-                 QueryParam "keepRevisionForever" Bool :>-                   QueryParam "supportsAllDrives" Bool :>-                     QueryParam "ignoreDefaultVisibility" Bool :>-                       QueryParam "supportsTeamDrives" Bool :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON] File :> Post '[JSON] File---- | Creates a copy of a file and applies any requested updates with patch--- semantics.------ /See:/ 'filesCopy' smart constructor.-data FilesCopy =-  FilesCopy'-    { _fPayload                 :: !File-    , _fOCRLanguage             :: !(Maybe Text)-    , _fKeepRevisionForever     :: !Bool-    , _fSupportsAllDrives       :: !Bool-    , _fIgnoreDefaultVisibility :: !Bool-    , _fFileId                  :: !Text-    , _fSupportsTeamDrives      :: !Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilesCopy' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fPayload'------ * 'fOCRLanguage'------ * 'fKeepRevisionForever'------ * 'fSupportsAllDrives'------ * 'fIgnoreDefaultVisibility'------ * 'fFileId'------ * 'fSupportsTeamDrives'-filesCopy-    :: File -- ^ 'fPayload'-    -> Text -- ^ 'fFileId'-    -> FilesCopy-filesCopy pFPayload_ pFFileId_ =-  FilesCopy'-    { _fPayload = pFPayload_-    , _fOCRLanguage = Nothing-    , _fKeepRevisionForever = False-    , _fSupportsAllDrives = False-    , _fIgnoreDefaultVisibility = False-    , _fFileId = pFFileId_-    , _fSupportsTeamDrives = False-    }----- | Multipart request metadata.-fPayload :: Lens' FilesCopy File-fPayload = lens _fPayload (\ s a -> s{_fPayload = a})---- | A language hint for OCR processing during image import (ISO 639-1 code).-fOCRLanguage :: Lens' FilesCopy (Maybe Text)-fOCRLanguage-  = lens _fOCRLanguage (\ s a -> s{_fOCRLanguage = a})---- | Whether to set the \'keepForever\' field in the new head revision. This--- is only applicable to files with binary content in Google Drive.-fKeepRevisionForever :: Lens' FilesCopy Bool-fKeepRevisionForever-  = lens _fKeepRevisionForever-      (\ s a -> s{_fKeepRevisionForever = a})---- | Whether the requesting application supports both My Drives and shared--- drives.-fSupportsAllDrives :: Lens' FilesCopy Bool-fSupportsAllDrives-  = lens _fSupportsAllDrives-      (\ s a -> s{_fSupportsAllDrives = a})---- | Whether to ignore the domain\'s default visibility settings for the--- created file. Domain administrators can choose to make all uploaded--- files visible to the domain by default; this parameter bypasses that--- behavior for the request. Permissions are still inherited from parent--- folders.-fIgnoreDefaultVisibility :: Lens' FilesCopy Bool-fIgnoreDefaultVisibility-  = lens _fIgnoreDefaultVisibility-      (\ s a -> s{_fIgnoreDefaultVisibility = a})---- | The ID of the file.-fFileId :: Lens' FilesCopy Text-fFileId = lens _fFileId (\ s a -> s{_fFileId = a})---- | Deprecated use supportsAllDrives instead.-fSupportsTeamDrives :: Lens' FilesCopy Bool-fSupportsTeamDrives-  = lens _fSupportsTeamDrives-      (\ s a -> s{_fSupportsTeamDrives = a})--instance GoogleRequest FilesCopy where-        type Rs FilesCopy = File-        type Scopes FilesCopy =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.photos.readonly"]-        requestClient FilesCopy'{..}-          = go _fFileId _fOCRLanguage-              (Just _fKeepRevisionForever)-              (Just _fSupportsAllDrives)-              (Just _fIgnoreDefaultVisibility)-              (Just _fSupportsTeamDrives)-              (Just AltJSON)-              _fPayload-              driveService-          where go-                  = buildClient (Proxy :: Proxy FilesCopyResource)-                      mempty
− gen/Network/Google/Resource/Drive/Files/Create.hs 
@@ -1,212 +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.Drive.Files.Create--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a new file.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.files.create@.-module Network.Google.Resource.Drive.Files.Create-    (-    -- * REST Resource-      FilesCreateResource--    -- * Creating a Request-    , filesCreate-    , FilesCreate--    -- * Request Lenses-    , fcPayload-    , fcUseContentAsIndexableText-    , fcOCRLanguage-    , fcKeepRevisionForever-    , fcSupportsAllDrives-    , fcIgnoreDefaultVisibility-    , fcSupportsTeamDrives-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.files.create@ method which the--- 'FilesCreate' request conforms to.-type FilesCreateResource =-     "drive" :>-       "v3" :>-         "files" :>-           QueryParam "useContentAsIndexableText" Bool :>-             QueryParam "ocrLanguage" Text :>-               QueryParam "keepRevisionForever" Bool :>-                 QueryParam "supportsAllDrives" Bool :>-                   QueryParam "ignoreDefaultVisibility" Bool :>-                     QueryParam "supportsTeamDrives" Bool :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] File :> Post '[JSON] File-       :<|>-       "upload" :>-         "drive" :>-           "v3" :>-             "files" :>-               QueryParam "useContentAsIndexableText" Bool :>-                 QueryParam "ocrLanguage" Text :>-                   QueryParam "keepRevisionForever" Bool :>-                     QueryParam "supportsAllDrives" Bool :>-                       QueryParam "ignoreDefaultVisibility" Bool :>-                         QueryParam "supportsTeamDrives" Bool :>-                           QueryParam "alt" AltJSON :>-                             QueryParam "uploadType" Multipart :>-                               MultipartRelated '[JSON] File :>-                                 Post '[JSON] File---- | Creates a new file.------ /See:/ 'filesCreate' smart constructor.-data FilesCreate =-  FilesCreate'-    { _fcPayload                   :: !File-    , _fcUseContentAsIndexableText :: !Bool-    , _fcOCRLanguage               :: !(Maybe Text)-    , _fcKeepRevisionForever       :: !Bool-    , _fcSupportsAllDrives         :: !Bool-    , _fcIgnoreDefaultVisibility   :: !Bool-    , _fcSupportsTeamDrives        :: !Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilesCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fcPayload'------ * 'fcUseContentAsIndexableText'------ * 'fcOCRLanguage'------ * 'fcKeepRevisionForever'------ * 'fcSupportsAllDrives'------ * 'fcIgnoreDefaultVisibility'------ * 'fcSupportsTeamDrives'-filesCreate-    :: File -- ^ 'fcPayload'-    -> FilesCreate-filesCreate pFcPayload_ =-  FilesCreate'-    { _fcPayload = pFcPayload_-    , _fcUseContentAsIndexableText = False-    , _fcOCRLanguage = Nothing-    , _fcKeepRevisionForever = False-    , _fcSupportsAllDrives = False-    , _fcIgnoreDefaultVisibility = False-    , _fcSupportsTeamDrives = False-    }----- | Multipart request metadata.-fcPayload :: Lens' FilesCreate File-fcPayload-  = lens _fcPayload (\ s a -> s{_fcPayload = a})---- | Whether to use the uploaded content as indexable text.-fcUseContentAsIndexableText :: Lens' FilesCreate Bool-fcUseContentAsIndexableText-  = lens _fcUseContentAsIndexableText-      (\ s a -> s{_fcUseContentAsIndexableText = a})---- | A language hint for OCR processing during image import (ISO 639-1 code).-fcOCRLanguage :: Lens' FilesCreate (Maybe Text)-fcOCRLanguage-  = lens _fcOCRLanguage-      (\ s a -> s{_fcOCRLanguage = a})---- | Whether to set the \'keepForever\' field in the new head revision. This--- is only applicable to files with binary content in Google Drive.-fcKeepRevisionForever :: Lens' FilesCreate Bool-fcKeepRevisionForever-  = lens _fcKeepRevisionForever-      (\ s a -> s{_fcKeepRevisionForever = a})---- | Whether the requesting application supports both My Drives and shared--- drives.-fcSupportsAllDrives :: Lens' FilesCreate Bool-fcSupportsAllDrives-  = lens _fcSupportsAllDrives-      (\ s a -> s{_fcSupportsAllDrives = a})---- | Whether to ignore the domain\'s default visibility settings for the--- created file. Domain administrators can choose to make all uploaded--- files visible to the domain by default; this parameter bypasses that--- behavior for the request. Permissions are still inherited from parent--- folders.-fcIgnoreDefaultVisibility :: Lens' FilesCreate Bool-fcIgnoreDefaultVisibility-  = lens _fcIgnoreDefaultVisibility-      (\ s a -> s{_fcIgnoreDefaultVisibility = a})---- | Deprecated use supportsAllDrives instead.-fcSupportsTeamDrives :: Lens' FilesCreate Bool-fcSupportsTeamDrives-  = lens _fcSupportsTeamDrives-      (\ s a -> s{_fcSupportsTeamDrives = a})--instance GoogleRequest FilesCreate where-        type Rs FilesCreate = File-        type Scopes FilesCreate =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file"]-        requestClient FilesCreate'{..}-          = go (Just _fcUseContentAsIndexableText)-              _fcOCRLanguage-              (Just _fcKeepRevisionForever)-              (Just _fcSupportsAllDrives)-              (Just _fcIgnoreDefaultVisibility)-              (Just _fcSupportsTeamDrives)-              (Just AltJSON)-              _fcPayload-              driveService-          where go :<|> _-                  = buildClient (Proxy :: Proxy FilesCreateResource)-                      mempty--instance GoogleRequest (MediaUpload FilesCreate)-         where-        type Rs (MediaUpload FilesCreate) = File-        type Scopes (MediaUpload FilesCreate) =-             Scopes FilesCreate-        requestClient (MediaUpload FilesCreate'{..} body)-          = go (Just _fcUseContentAsIndexableText)-              _fcOCRLanguage-              (Just _fcKeepRevisionForever)-              (Just _fcSupportsAllDrives)-              (Just _fcIgnoreDefaultVisibility)-              (Just _fcSupportsTeamDrives)-              (Just AltJSON)-              (Just Multipart)-              _fcPayload-              body-              driveService-          where _ :<|> go-                  = buildClient (Proxy :: Proxy FilesCreateResource)-                      mempty
− gen/Network/Google/Resource/Drive/Files/Delete.hs 
@@ -1,123 +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.Drive.Files.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)------ Permanently deletes a file owned by the user without moving it to the--- trash. If the file belongs to a shared drive the user must be an--- organizer on the parent. If the target is a folder, all descendants--- owned by the user are also deleted.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.files.delete@.-module Network.Google.Resource.Drive.Files.Delete-    (-    -- * REST Resource-      FilesDeleteResource--    -- * Creating a Request-    , filesDelete-    , FilesDelete--    -- * Request Lenses-    , fdSupportsAllDrives-    , fdFileId-    , fdSupportsTeamDrives-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.files.delete@ method which the--- 'FilesDelete' request conforms to.-type FilesDeleteResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             QueryParam "supportsAllDrives" Bool :>-               QueryParam "supportsTeamDrives" Bool :>-                 QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Permanently deletes a file owned by the user without moving it to the--- trash. If the file belongs to a shared drive the user must be an--- organizer on the parent. If the target is a folder, all descendants--- owned by the user are also deleted.------ /See:/ 'filesDelete' smart constructor.-data FilesDelete =-  FilesDelete'-    { _fdSupportsAllDrives  :: !Bool-    , _fdFileId             :: !Text-    , _fdSupportsTeamDrives :: !Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fdSupportsAllDrives'------ * 'fdFileId'------ * 'fdSupportsTeamDrives'-filesDelete-    :: Text -- ^ 'fdFileId'-    -> FilesDelete-filesDelete pFdFileId_ =-  FilesDelete'-    { _fdSupportsAllDrives = False-    , _fdFileId = pFdFileId_-    , _fdSupportsTeamDrives = False-    }----- | Whether the requesting application supports both My Drives and shared--- drives.-fdSupportsAllDrives :: Lens' FilesDelete Bool-fdSupportsAllDrives-  = lens _fdSupportsAllDrives-      (\ s a -> s{_fdSupportsAllDrives = a})---- | The ID of the file.-fdFileId :: Lens' FilesDelete Text-fdFileId = lens _fdFileId (\ s a -> s{_fdFileId = a})---- | Deprecated use supportsAllDrives instead.-fdSupportsTeamDrives :: Lens' FilesDelete Bool-fdSupportsTeamDrives-  = lens _fdSupportsTeamDrives-      (\ s a -> s{_fdSupportsTeamDrives = a})--instance GoogleRequest FilesDelete where-        type Rs FilesDelete = ()-        type Scopes FilesDelete =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file"]-        requestClient FilesDelete'{..}-          = go _fdFileId (Just _fdSupportsAllDrives)-              (Just _fdSupportsTeamDrives)-              (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy FilesDeleteResource)-                      mempty
− gen/Network/Google/Resource/Drive/Files/EmptyTrash.hs 
@@ -1,73 +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.Drive.Files.EmptyTrash--- 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)------ Permanently deletes all of the user\'s trashed files.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.files.emptyTrash@.-module Network.Google.Resource.Drive.Files.EmptyTrash-    (-    -- * REST Resource-      FilesEmptyTrashResource--    -- * Creating a Request-    , filesEmptyTrash-    , FilesEmptyTrash--    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.files.emptyTrash@ method which the--- 'FilesEmptyTrash' request conforms to.-type FilesEmptyTrashResource =-     "drive" :>-       "v3" :>-         "files" :>-           "trash" :>-             QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Permanently deletes all of the user\'s trashed files.------ /See:/ 'filesEmptyTrash' smart constructor.-data FilesEmptyTrash =-  FilesEmptyTrash'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilesEmptyTrash' with the minimum fields required to make a request.----filesEmptyTrash-    :: FilesEmptyTrash-filesEmptyTrash = FilesEmptyTrash'---instance GoogleRequest FilesEmptyTrash where-        type Rs FilesEmptyTrash = ()-        type Scopes FilesEmptyTrash =-             '["https://www.googleapis.com/auth/drive"]-        requestClient FilesEmptyTrash'{}-          = go (Just AltJSON) driveService-          where go-                  = buildClient-                      (Proxy :: Proxy FilesEmptyTrashResource)-                      mempty
− gen/Network/Google/Resource/Drive/Files/Export.hs 
@@ -1,123 +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.Drive.Files.Export--- 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)------ Exports a Google Doc to the requested MIME type and returns the exported--- content. Please note that the exported content is limited to 10MB.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.files.export@.-module Network.Google.Resource.Drive.Files.Export-    (-    -- * REST Resource-      FilesExportResource--    -- * Creating a Request-    , filesExport-    , FilesExport--    -- * Request Lenses-    , feMimeType-    , feFileId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.files.export@ method which the--- 'FilesExport' request conforms to.-type FilesExportResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "export" :>-               QueryParam "mimeType" Text :>-                 QueryParam "alt" AltJSON :> Get '[JSON] ()-       :<|>-       "drive" :>-         "v3" :>-           "files" :>-             Capture "fileId" Text :>-               "export" :>-                 QueryParam "mimeType" Text :>-                   QueryParam "alt" AltMedia :>-                     Get '[OctetStream] Stream---- | Exports a Google Doc to the requested MIME type and returns the exported--- content. Please note that the exported content is limited to 10MB.------ /See:/ 'filesExport' smart constructor.-data FilesExport =-  FilesExport'-    { _feMimeType :: !Text-    , _feFileId   :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilesExport' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'feMimeType'------ * 'feFileId'-filesExport-    :: Text -- ^ 'feMimeType'-    -> Text -- ^ 'feFileId'-    -> FilesExport-filesExport pFeMimeType_ pFeFileId_ =-  FilesExport' {_feMimeType = pFeMimeType_, _feFileId = pFeFileId_}----- | The MIME type of the format requested for this export.-feMimeType :: Lens' FilesExport Text-feMimeType-  = lens _feMimeType (\ s a -> s{_feMimeType = a})---- | The ID of the file.-feFileId :: Lens' FilesExport Text-feFileId = lens _feFileId (\ s a -> s{_feFileId = a})--instance GoogleRequest FilesExport where-        type Rs FilesExport = ()-        type Scopes FilesExport =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient FilesExport'{..}-          = go _feFileId (Just _feMimeType) (Just AltJSON)-              driveService-          where go :<|> _-                  = buildClient (Proxy :: Proxy FilesExportResource)-                      mempty--instance GoogleRequest (MediaDownload FilesExport)-         where-        type Rs (MediaDownload FilesExport) = Stream-        type Scopes (MediaDownload FilesExport) =-             Scopes FilesExport-        requestClient (MediaDownload FilesExport'{..})-          = go _feFileId (Just _feMimeType) (Just AltMedia)-              driveService-          where _ :<|> go-                  = buildClient (Proxy :: Proxy FilesExportResource)-                      mempty
− gen/Network/Google/Resource/Drive/Files/GenerateIds.hs 
@@ -1,100 +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.Drive.Files.GenerateIds--- 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)------ Generates a set of file IDs which can be provided in create requests.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.files.generateIds@.-module Network.Google.Resource.Drive.Files.GenerateIds-    (-    -- * REST Resource-      FilesGenerateIdsResource--    -- * Creating a Request-    , filesGenerateIds-    , FilesGenerateIds--    -- * Request Lenses-    , fgiSpace-    , fgiCount-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.files.generateIds@ method which the--- 'FilesGenerateIds' request conforms to.-type FilesGenerateIdsResource =-     "drive" :>-       "v3" :>-         "files" :>-           "generateIds" :>-             QueryParam "space" Text :>-               QueryParam "count" (Textual Int32) :>-                 QueryParam "alt" AltJSON :> Get '[JSON] GeneratedIds---- | Generates a set of file IDs which can be provided in create requests.------ /See:/ 'filesGenerateIds' smart constructor.-data FilesGenerateIds =-  FilesGenerateIds'-    { _fgiSpace :: !Text-    , _fgiCount :: !(Textual Int32)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilesGenerateIds' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fgiSpace'------ * 'fgiCount'-filesGenerateIds-    :: FilesGenerateIds-filesGenerateIds = FilesGenerateIds' {_fgiSpace = "drive", _fgiCount = 10}----- | The space in which the IDs can be used to create new files. Supported--- values are \'drive\' and \'appDataFolder\'.-fgiSpace :: Lens' FilesGenerateIds Text-fgiSpace = lens _fgiSpace (\ s a -> s{_fgiSpace = a})---- | The number of IDs to return.-fgiCount :: Lens' FilesGenerateIds Int32-fgiCount-  = lens _fgiCount (\ s a -> s{_fgiCount = a}) .-      _Coerce--instance GoogleRequest FilesGenerateIds where-        type Rs FilesGenerateIds = GeneratedIds-        type Scopes FilesGenerateIds =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file"]-        requestClient FilesGenerateIds'{..}-          = go (Just _fgiSpace) (Just _fgiCount) (Just AltJSON)-              driveService-          where go-                  = buildClient-                      (Proxy :: Proxy FilesGenerateIdsResource)-                      mempty
− gen/Network/Google/Resource/Drive/Files/Get.hs 
@@ -1,159 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Drive.Files.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 a file\'s metadata or content by ID.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.files.get@.-module Network.Google.Resource.Drive.Files.Get-    (-    -- * REST Resource-      FilesGetResource--    -- * Creating a Request-    , filesGet-    , FilesGet--    -- * Request Lenses-    , fgSupportsAllDrives-    , fgAcknowledgeAbuse-    , fgFileId-    , fgSupportsTeamDrives-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.files.get@ method which the--- 'FilesGet' request conforms to.-type FilesGetResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             QueryParam "supportsAllDrives" Bool :>-               QueryParam "acknowledgeAbuse" Bool :>-                 QueryParam "supportsTeamDrives" Bool :>-                   QueryParam "alt" AltJSON :> Get '[JSON] File-       :<|>-       "drive" :>-         "v3" :>-           "files" :>-             Capture "fileId" Text :>-               QueryParam "supportsAllDrives" Bool :>-                 QueryParam "acknowledgeAbuse" Bool :>-                   QueryParam "supportsTeamDrives" Bool :>-                     QueryParam "alt" AltMedia :>-                       Get '[OctetStream] Stream---- | Gets a file\'s metadata or content by ID.------ /See:/ 'filesGet' smart constructor.-data FilesGet =-  FilesGet'-    { _fgSupportsAllDrives  :: !Bool-    , _fgAcknowledgeAbuse   :: !Bool-    , _fgFileId             :: !Text-    , _fgSupportsTeamDrives :: !Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fgSupportsAllDrives'------ * 'fgAcknowledgeAbuse'------ * 'fgFileId'------ * 'fgSupportsTeamDrives'-filesGet-    :: Text -- ^ 'fgFileId'-    -> FilesGet-filesGet pFgFileId_ =-  FilesGet'-    { _fgSupportsAllDrives = False-    , _fgAcknowledgeAbuse = False-    , _fgFileId = pFgFileId_-    , _fgSupportsTeamDrives = False-    }----- | Whether the requesting application supports both My Drives and shared--- drives.-fgSupportsAllDrives :: Lens' FilesGet Bool-fgSupportsAllDrives-  = lens _fgSupportsAllDrives-      (\ s a -> s{_fgSupportsAllDrives = a})---- | Whether the user is acknowledging the risk of downloading known malware--- or other abusive files. This is only applicable when alt=media.-fgAcknowledgeAbuse :: Lens' FilesGet Bool-fgAcknowledgeAbuse-  = lens _fgAcknowledgeAbuse-      (\ s a -> s{_fgAcknowledgeAbuse = a})---- | The ID of the file.-fgFileId :: Lens' FilesGet Text-fgFileId = lens _fgFileId (\ s a -> s{_fgFileId = a})---- | Deprecated use supportsAllDrives instead.-fgSupportsTeamDrives :: Lens' FilesGet Bool-fgSupportsTeamDrives-  = lens _fgSupportsTeamDrives-      (\ s a -> s{_fgSupportsTeamDrives = a})--instance GoogleRequest FilesGet where-        type Rs FilesGet = File-        type Scopes FilesGet =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.metadata",-               "https://www.googleapis.com/auth/drive.metadata.readonly",-               "https://www.googleapis.com/auth/drive.photos.readonly",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient FilesGet'{..}-          = go _fgFileId (Just _fgSupportsAllDrives)-              (Just _fgAcknowledgeAbuse)-              (Just _fgSupportsTeamDrives)-              (Just AltJSON)-              driveService-          where go :<|> _-                  = buildClient (Proxy :: Proxy FilesGetResource)-                      mempty--instance GoogleRequest (MediaDownload FilesGet) where-        type Rs (MediaDownload FilesGet) = Stream-        type Scopes (MediaDownload FilesGet) =-             Scopes FilesGet-        requestClient (MediaDownload FilesGet'{..})-          = go _fgFileId (Just _fgSupportsAllDrives)-              (Just _fgAcknowledgeAbuse)-              (Just _fgSupportsTeamDrives)-              (Just AltMedia)-              driveService-          where _ :<|> go-                  = buildClient (Proxy :: Proxy FilesGetResource)-                      mempty
− gen/Network/Google/Resource/Drive/Files/List.hs 
@@ -1,259 +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.Drive.Files.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 or searches files.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.files.list@.-module Network.Google.Resource.Drive.Files.List-    (-    -- * REST Resource-      FilesListResource--    -- * Creating a Request-    , filesList-    , FilesList--    -- * Request Lenses-    , flCorpora-    , flOrderBy-    , flIncludeTeamDriveItems-    , flQ-    , flTeamDriveId-    , flSpaces-    , flIncludeItemsFromAllDrives-    , flSupportsAllDrives-    , flCorpus-    , flPageToken-    , flPageSize-    , flSupportsTeamDrives-    , flDriveId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.files.list@ method which the--- 'FilesList' request conforms to.-type FilesListResource =-     "drive" :>-       "v3" :>-         "files" :>-           QueryParam "corpora" Text :>-             QueryParam "orderBy" Text :>-               QueryParam "includeTeamDriveItems" Bool :>-                 QueryParam "q" Text :>-                   QueryParam "teamDriveId" Text :>-                     QueryParam "spaces" Text :>-                       QueryParam "includeItemsFromAllDrives" Bool :>-                         QueryParam "supportsAllDrives" Bool :>-                           QueryParam "corpus" FilesListCorpus :>-                             QueryParam "pageToken" Text :>-                               QueryParam "pageSize" (Textual Int32) :>-                                 QueryParam "supportsTeamDrives" Bool :>-                                   QueryParam "driveId" Text :>-                                     QueryParam "alt" AltJSON :>-                                       Get '[JSON] FileList---- | Lists or searches files.------ /See:/ 'filesList' smart constructor.-data FilesList =-  FilesList'-    { _flCorpora                   :: !(Maybe Text)-    , _flOrderBy                   :: !(Maybe Text)-    , _flIncludeTeamDriveItems     :: !Bool-    , _flQ                         :: !(Maybe Text)-    , _flTeamDriveId               :: !(Maybe Text)-    , _flSpaces                    :: !Text-    , _flIncludeItemsFromAllDrives :: !Bool-    , _flSupportsAllDrives         :: !Bool-    , _flCorpus                    :: !(Maybe FilesListCorpus)-    , _flPageToken                 :: !(Maybe Text)-    , _flPageSize                  :: !(Textual Int32)-    , _flSupportsTeamDrives        :: !Bool-    , _flDriveId                   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'flCorpora'------ * 'flOrderBy'------ * 'flIncludeTeamDriveItems'------ * 'flQ'------ * 'flTeamDriveId'------ * 'flSpaces'------ * 'flIncludeItemsFromAllDrives'------ * 'flSupportsAllDrives'------ * 'flCorpus'------ * 'flPageToken'------ * 'flPageSize'------ * 'flSupportsTeamDrives'------ * 'flDriveId'-filesList-    :: FilesList-filesList =-  FilesList'-    { _flCorpora = Nothing-    , _flOrderBy = Nothing-    , _flIncludeTeamDriveItems = False-    , _flQ = Nothing-    , _flTeamDriveId = Nothing-    , _flSpaces = "drive"-    , _flIncludeItemsFromAllDrives = False-    , _flSupportsAllDrives = False-    , _flCorpus = Nothing-    , _flPageToken = Nothing-    , _flPageSize = 100-    , _flSupportsTeamDrives = False-    , _flDriveId = Nothing-    }----- | Bodies of items (files\/documents) to which the query applies. Supported--- bodies are \'user\', \'domain\', \'drive\' and \'allDrives\'. Prefer--- \'user\' or \'drive\' to \'allDrives\' for efficiency.-flCorpora :: Lens' FilesList (Maybe Text)-flCorpora-  = lens _flCorpora (\ s a -> s{_flCorpora = a})---- | A comma-separated list of sort keys. Valid keys are \'createdTime\',--- \'folder\', \'modifiedByMeTime\', \'modifiedTime\', \'name\',--- \'name_natural\', \'quotaBytesUsed\', \'recency\', \'sharedWithMeTime\',--- \'starred\', and \'viewedByMeTime\'. Each key sorts ascending by--- default, but may be reversed with the \'desc\' modifier. Example usage:--- ?orderBy=folder,modifiedTime desc,name. Please note that there is a--- current limitation for users with approximately one million files in--- which the requested sort order is ignored.-flOrderBy :: Lens' FilesList (Maybe Text)-flOrderBy-  = lens _flOrderBy (\ s a -> s{_flOrderBy = a})---- | Deprecated use includeItemsFromAllDrives instead.-flIncludeTeamDriveItems :: Lens' FilesList Bool-flIncludeTeamDriveItems-  = lens _flIncludeTeamDriveItems-      (\ s a -> s{_flIncludeTeamDriveItems = a})---- | A query for filtering the file results. See the \"Search for Files\"--- guide for supported syntax.-flQ :: Lens' FilesList (Maybe Text)-flQ = lens _flQ (\ s a -> s{_flQ = a})---- | Deprecated use driveId instead.-flTeamDriveId :: Lens' FilesList (Maybe Text)-flTeamDriveId-  = lens _flTeamDriveId-      (\ s a -> s{_flTeamDriveId = a})---- | A comma-separated list of spaces to query within the corpus. Supported--- values are \'drive\', \'appDataFolder\' and \'photos\'.-flSpaces :: Lens' FilesList Text-flSpaces = lens _flSpaces (\ s a -> s{_flSpaces = a})---- | Whether both My Drive and shared drive items should be included in--- results.-flIncludeItemsFromAllDrives :: Lens' FilesList Bool-flIncludeItemsFromAllDrives-  = lens _flIncludeItemsFromAllDrives-      (\ s a -> s{_flIncludeItemsFromAllDrives = a})---- | Whether the requesting application supports both My Drives and shared--- drives.-flSupportsAllDrives :: Lens' FilesList Bool-flSupportsAllDrives-  = lens _flSupportsAllDrives-      (\ s a -> s{_flSupportsAllDrives = a})---- | The source of files to list. Deprecated: use \'corpora\' instead.-flCorpus :: Lens' FilesList (Maybe FilesListCorpus)-flCorpus = lens _flCorpus (\ s a -> s{_flCorpus = a})---- | The token for continuing a previous list request on the next page. This--- should be set to the value of \'nextPageToken\' from the previous--- response.-flPageToken :: Lens' FilesList (Maybe Text)-flPageToken-  = lens _flPageToken (\ s a -> s{_flPageToken = a})---- | The maximum number of files to return per page. Partial or empty result--- pages are possible even before the end of the files list has been--- reached.-flPageSize :: Lens' FilesList Int32-flPageSize-  = lens _flPageSize (\ s a -> s{_flPageSize = a}) .-      _Coerce---- | Deprecated use supportsAllDrives instead.-flSupportsTeamDrives :: Lens' FilesList Bool-flSupportsTeamDrives-  = lens _flSupportsTeamDrives-      (\ s a -> s{_flSupportsTeamDrives = a})---- | ID of the shared drive to search.-flDriveId :: Lens' FilesList (Maybe Text)-flDriveId-  = lens _flDriveId (\ s a -> s{_flDriveId = a})--instance GoogleRequest FilesList where-        type Rs FilesList = FileList-        type Scopes FilesList =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.metadata",-               "https://www.googleapis.com/auth/drive.metadata.readonly",-               "https://www.googleapis.com/auth/drive.photos.readonly",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient FilesList'{..}-          = go _flCorpora _flOrderBy-              (Just _flIncludeTeamDriveItems)-              _flQ-              _flTeamDriveId-              (Just _flSpaces)-              (Just _flIncludeItemsFromAllDrives)-              (Just _flSupportsAllDrives)-              _flCorpus-              _flPageToken-              (Just _flPageSize)-              (Just _flSupportsTeamDrives)-              _flDriveId-              (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy FilesListResource)-                      mempty
− gen/Network/Google/Resource/Drive/Files/Update.hs 
@@ -1,236 +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.Drive.Files.Update--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Updates a file\'s metadata and\/or content with patch semantics.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.files.update@.-module Network.Google.Resource.Drive.Files.Update-    (-    -- * REST Resource-      FilesUpdateResource--    -- * Creating a Request-    , filesUpdate-    , FilesUpdate--    -- * Request Lenses-    , fuPayload-    , fuRemoveParents-    , fuUseContentAsIndexableText-    , fuOCRLanguage-    , fuKeepRevisionForever-    , fuSupportsAllDrives-    , fuFileId-    , fuAddParents-    , fuSupportsTeamDrives-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.files.update@ method which the--- 'FilesUpdate' request conforms to.-type FilesUpdateResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             QueryParam "removeParents" Text :>-               QueryParam "useContentAsIndexableText" Bool :>-                 QueryParam "ocrLanguage" Text :>-                   QueryParam "keepRevisionForever" Bool :>-                     QueryParam "supportsAllDrives" Bool :>-                       QueryParam "addParents" Text :>-                         QueryParam "supportsTeamDrives" Bool :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] File :> Patch '[JSON] File-       :<|>-       "upload" :>-         "drive" :>-           "v3" :>-             "files" :>-               Capture "fileId" Text :>-                 QueryParam "removeParents" Text :>-                   QueryParam "useContentAsIndexableText" Bool :>-                     QueryParam "ocrLanguage" Text :>-                       QueryParam "keepRevisionForever" Bool :>-                         QueryParam "supportsAllDrives" Bool :>-                           QueryParam "addParents" Text :>-                             QueryParam "supportsTeamDrives" Bool :>-                               QueryParam "alt" AltJSON :>-                                 QueryParam "uploadType" Multipart :>-                                   MultipartRelated '[JSON] File :>-                                     Patch '[JSON] File---- | Updates a file\'s metadata and\/or content with patch semantics.------ /See:/ 'filesUpdate' smart constructor.-data FilesUpdate =-  FilesUpdate'-    { _fuPayload                   :: !File-    , _fuRemoveParents             :: !(Maybe Text)-    , _fuUseContentAsIndexableText :: !Bool-    , _fuOCRLanguage               :: !(Maybe Text)-    , _fuKeepRevisionForever       :: !Bool-    , _fuSupportsAllDrives         :: !Bool-    , _fuFileId                    :: !Text-    , _fuAddParents                :: !(Maybe Text)-    , _fuSupportsTeamDrives        :: !Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilesUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fuPayload'------ * 'fuRemoveParents'------ * 'fuUseContentAsIndexableText'------ * 'fuOCRLanguage'------ * 'fuKeepRevisionForever'------ * 'fuSupportsAllDrives'------ * 'fuFileId'------ * 'fuAddParents'------ * 'fuSupportsTeamDrives'-filesUpdate-    :: File -- ^ 'fuPayload'-    -> Text -- ^ 'fuFileId'-    -> FilesUpdate-filesUpdate pFuPayload_ pFuFileId_ =-  FilesUpdate'-    { _fuPayload = pFuPayload_-    , _fuRemoveParents = Nothing-    , _fuUseContentAsIndexableText = False-    , _fuOCRLanguage = Nothing-    , _fuKeepRevisionForever = False-    , _fuSupportsAllDrives = False-    , _fuFileId = pFuFileId_-    , _fuAddParents = Nothing-    , _fuSupportsTeamDrives = False-    }----- | Multipart request metadata.-fuPayload :: Lens' FilesUpdate File-fuPayload-  = lens _fuPayload (\ s a -> s{_fuPayload = a})---- | A comma-separated list of parent IDs to remove.-fuRemoveParents :: Lens' FilesUpdate (Maybe Text)-fuRemoveParents-  = lens _fuRemoveParents-      (\ s a -> s{_fuRemoveParents = a})---- | Whether to use the uploaded content as indexable text.-fuUseContentAsIndexableText :: Lens' FilesUpdate Bool-fuUseContentAsIndexableText-  = lens _fuUseContentAsIndexableText-      (\ s a -> s{_fuUseContentAsIndexableText = a})---- | A language hint for OCR processing during image import (ISO 639-1 code).-fuOCRLanguage :: Lens' FilesUpdate (Maybe Text)-fuOCRLanguage-  = lens _fuOCRLanguage-      (\ s a -> s{_fuOCRLanguage = a})---- | Whether to set the \'keepForever\' field in the new head revision. This--- is only applicable to files with binary content in Google Drive.-fuKeepRevisionForever :: Lens' FilesUpdate Bool-fuKeepRevisionForever-  = lens _fuKeepRevisionForever-      (\ s a -> s{_fuKeepRevisionForever = a})---- | Whether the requesting application supports both My Drives and shared--- drives.-fuSupportsAllDrives :: Lens' FilesUpdate Bool-fuSupportsAllDrives-  = lens _fuSupportsAllDrives-      (\ s a -> s{_fuSupportsAllDrives = a})---- | The ID of the file.-fuFileId :: Lens' FilesUpdate Text-fuFileId = lens _fuFileId (\ s a -> s{_fuFileId = a})---- | A comma-separated list of parent IDs to add.-fuAddParents :: Lens' FilesUpdate (Maybe Text)-fuAddParents-  = lens _fuAddParents (\ s a -> s{_fuAddParents = a})---- | Deprecated use supportsAllDrives instead.-fuSupportsTeamDrives :: Lens' FilesUpdate Bool-fuSupportsTeamDrives-  = lens _fuSupportsTeamDrives-      (\ s a -> s{_fuSupportsTeamDrives = a})--instance GoogleRequest FilesUpdate where-        type Rs FilesUpdate = File-        type Scopes FilesUpdate =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.metadata",-               "https://www.googleapis.com/auth/drive.scripts"]-        requestClient FilesUpdate'{..}-          = go _fuFileId _fuRemoveParents-              (Just _fuUseContentAsIndexableText)-              _fuOCRLanguage-              (Just _fuKeepRevisionForever)-              (Just _fuSupportsAllDrives)-              _fuAddParents-              (Just _fuSupportsTeamDrives)-              (Just AltJSON)-              _fuPayload-              driveService-          where go :<|> _-                  = buildClient (Proxy :: Proxy FilesUpdateResource)-                      mempty--instance GoogleRequest (MediaUpload FilesUpdate)-         where-        type Rs (MediaUpload FilesUpdate) = File-        type Scopes (MediaUpload FilesUpdate) =-             Scopes FilesUpdate-        requestClient (MediaUpload FilesUpdate'{..} body)-          = go _fuFileId _fuRemoveParents-              (Just _fuUseContentAsIndexableText)-              _fuOCRLanguage-              (Just _fuKeepRevisionForever)-              (Just _fuSupportsAllDrives)-              _fuAddParents-              (Just _fuSupportsTeamDrives)-              (Just AltJSON)-              (Just Multipart)-              _fuPayload-              body-              driveService-          where _ :<|> go-                  = buildClient (Proxy :: Proxy FilesUpdateResource)-                      mempty
− gen/Network/Google/Resource/Drive/Files/Watch.hs 
@@ -1,175 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Drive.Files.Watch--- 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)------ Subscribes to changes to a file------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.files.watch@.-module Network.Google.Resource.Drive.Files.Watch-    (-    -- * REST Resource-      FilesWatchResource--    -- * Creating a Request-    , filesWatch-    , FilesWatch--    -- * Request Lenses-    , fwPayload-    , fwSupportsAllDrives-    , fwAcknowledgeAbuse-    , fwFileId-    , fwSupportsTeamDrives-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.files.watch@ method which the--- 'FilesWatch' request conforms to.-type FilesWatchResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "watch" :>-               QueryParam "supportsAllDrives" Bool :>-                 QueryParam "acknowledgeAbuse" Bool :>-                   QueryParam "supportsTeamDrives" Bool :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] Channel :> Post '[JSON] Channel-       :<|>-       "drive" :>-         "v3" :>-           "files" :>-             Capture "fileId" Text :>-               "watch" :>-                 QueryParam "supportsAllDrives" Bool :>-                   QueryParam "acknowledgeAbuse" Bool :>-                     QueryParam "supportsTeamDrives" Bool :>-                       QueryParam "alt" AltMedia :>-                         Post '[OctetStream] Stream---- | Subscribes to changes to a file------ /See:/ 'filesWatch' smart constructor.-data FilesWatch =-  FilesWatch'-    { _fwPayload            :: !Channel-    , _fwSupportsAllDrives  :: !Bool-    , _fwAcknowledgeAbuse   :: !Bool-    , _fwFileId             :: !Text-    , _fwSupportsTeamDrives :: !Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilesWatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fwPayload'------ * 'fwSupportsAllDrives'------ * 'fwAcknowledgeAbuse'------ * 'fwFileId'------ * 'fwSupportsTeamDrives'-filesWatch-    :: Channel -- ^ 'fwPayload'-    -> Text -- ^ 'fwFileId'-    -> FilesWatch-filesWatch pFwPayload_ pFwFileId_ =-  FilesWatch'-    { _fwPayload = pFwPayload_-    , _fwSupportsAllDrives = False-    , _fwAcknowledgeAbuse = False-    , _fwFileId = pFwFileId_-    , _fwSupportsTeamDrives = False-    }----- | Multipart request metadata.-fwPayload :: Lens' FilesWatch Channel-fwPayload-  = lens _fwPayload (\ s a -> s{_fwPayload = a})---- | Whether the requesting application supports both My Drives and shared--- drives.-fwSupportsAllDrives :: Lens' FilesWatch Bool-fwSupportsAllDrives-  = lens _fwSupportsAllDrives-      (\ s a -> s{_fwSupportsAllDrives = a})---- | Whether the user is acknowledging the risk of downloading known malware--- or other abusive files. This is only applicable when alt=media.-fwAcknowledgeAbuse :: Lens' FilesWatch Bool-fwAcknowledgeAbuse-  = lens _fwAcknowledgeAbuse-      (\ s a -> s{_fwAcknowledgeAbuse = a})---- | The ID of the file.-fwFileId :: Lens' FilesWatch Text-fwFileId = lens _fwFileId (\ s a -> s{_fwFileId = a})---- | Deprecated use supportsAllDrives instead.-fwSupportsTeamDrives :: Lens' FilesWatch Bool-fwSupportsTeamDrives-  = lens _fwSupportsTeamDrives-      (\ s a -> s{_fwSupportsTeamDrives = a})--instance GoogleRequest FilesWatch where-        type Rs FilesWatch = Channel-        type Scopes FilesWatch =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.metadata",-               "https://www.googleapis.com/auth/drive.metadata.readonly",-               "https://www.googleapis.com/auth/drive.photos.readonly",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient FilesWatch'{..}-          = go _fwFileId (Just _fwSupportsAllDrives)-              (Just _fwAcknowledgeAbuse)-              (Just _fwSupportsTeamDrives)-              (Just AltJSON)-              _fwPayload-              driveService-          where go :<|> _-                  = buildClient (Proxy :: Proxy FilesWatchResource)-                      mempty--instance GoogleRequest (MediaDownload FilesWatch)-         where-        type Rs (MediaDownload FilesWatch) = Stream-        type Scopes (MediaDownload FilesWatch) =-             Scopes FilesWatch-        requestClient (MediaDownload FilesWatch'{..})-          = go _fwFileId (Just _fwSupportsAllDrives)-              (Just _fwAcknowledgeAbuse)-              (Just _fwSupportsTeamDrives)-              (Just AltMedia)-              driveService-          where _ :<|> go-                  = buildClient (Proxy :: Proxy FilesWatchResource)-                      mempty
− gen/Network/Google/Resource/Drive/Permissions/Create.hs 
@@ -1,191 +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.Drive.Permissions.Create--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a permission for a file or shared drive.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.permissions.create@.-module Network.Google.Resource.Drive.Permissions.Create-    (-    -- * REST Resource-      PermissionsCreateResource--    -- * Creating a Request-    , permissionsCreate-    , PermissionsCreate--    -- * Request Lenses-    , pcSendNotificationEmail-    , pcPayload-    , pcEmailMessage-    , pcSupportsAllDrives-    , pcUseDomainAdminAccess-    , pcTransferOwnership-    , pcFileId-    , pcSupportsTeamDrives-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.permissions.create@ method which the--- 'PermissionsCreate' request conforms to.-type PermissionsCreateResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "permissions" :>-               QueryParam "sendNotificationEmail" Bool :>-                 QueryParam "emailMessage" Text :>-                   QueryParam "supportsAllDrives" Bool :>-                     QueryParam "useDomainAdminAccess" Bool :>-                       QueryParam "transferOwnership" Bool :>-                         QueryParam "supportsTeamDrives" Bool :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] Permission :>-                               Post '[JSON] Permission---- | Creates a permission for a file or shared drive.------ /See:/ 'permissionsCreate' smart constructor.-data PermissionsCreate =-  PermissionsCreate'-    { _pcSendNotificationEmail :: !(Maybe Bool)-    , _pcPayload               :: !Permission-    , _pcEmailMessage          :: !(Maybe Text)-    , _pcSupportsAllDrives     :: !Bool-    , _pcUseDomainAdminAccess  :: !Bool-    , _pcTransferOwnership     :: !Bool-    , _pcFileId                :: !Text-    , _pcSupportsTeamDrives    :: !Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PermissionsCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pcSendNotificationEmail'------ * 'pcPayload'------ * 'pcEmailMessage'------ * 'pcSupportsAllDrives'------ * 'pcUseDomainAdminAccess'------ * 'pcTransferOwnership'------ * 'pcFileId'------ * 'pcSupportsTeamDrives'-permissionsCreate-    :: Permission -- ^ 'pcPayload'-    -> Text -- ^ 'pcFileId'-    -> PermissionsCreate-permissionsCreate pPcPayload_ pPcFileId_ =-  PermissionsCreate'-    { _pcSendNotificationEmail = Nothing-    , _pcPayload = pPcPayload_-    , _pcEmailMessage = Nothing-    , _pcSupportsAllDrives = False-    , _pcUseDomainAdminAccess = False-    , _pcTransferOwnership = False-    , _pcFileId = pPcFileId_-    , _pcSupportsTeamDrives = False-    }----- | Whether to send a notification email when sharing to users or groups.--- This defaults to true for users and groups, and is not allowed for other--- requests. It must not be disabled for ownership transfers.-pcSendNotificationEmail :: Lens' PermissionsCreate (Maybe Bool)-pcSendNotificationEmail-  = lens _pcSendNotificationEmail-      (\ s a -> s{_pcSendNotificationEmail = a})---- | Multipart request metadata.-pcPayload :: Lens' PermissionsCreate Permission-pcPayload-  = lens _pcPayload (\ s a -> s{_pcPayload = a})---- | A plain text custom message to include in the notification email.-pcEmailMessage :: Lens' PermissionsCreate (Maybe Text)-pcEmailMessage-  = lens _pcEmailMessage-      (\ s a -> s{_pcEmailMessage = a})---- | Whether the requesting application supports both My Drives and shared--- drives.-pcSupportsAllDrives :: Lens' PermissionsCreate Bool-pcSupportsAllDrives-  = lens _pcSupportsAllDrives-      (\ s a -> s{_pcSupportsAllDrives = a})---- | Issue the request as a domain administrator; if set to true, then the--- requester will be granted access if the file ID parameter refers to a--- shared drive and the requester is an administrator of the domain to--- which the shared drive belongs.-pcUseDomainAdminAccess :: Lens' PermissionsCreate Bool-pcUseDomainAdminAccess-  = lens _pcUseDomainAdminAccess-      (\ s a -> s{_pcUseDomainAdminAccess = a})---- | Whether to transfer ownership to the specified user and downgrade the--- current owner to a writer. This parameter is required as an--- acknowledgement of the side effect.-pcTransferOwnership :: Lens' PermissionsCreate Bool-pcTransferOwnership-  = lens _pcTransferOwnership-      (\ s a -> s{_pcTransferOwnership = a})---- | The ID of the file or shared drive.-pcFileId :: Lens' PermissionsCreate Text-pcFileId = lens _pcFileId (\ s a -> s{_pcFileId = a})---- | Deprecated use supportsAllDrives instead.-pcSupportsTeamDrives :: Lens' PermissionsCreate Bool-pcSupportsTeamDrives-  = lens _pcSupportsTeamDrives-      (\ s a -> s{_pcSupportsTeamDrives = a})--instance GoogleRequest PermissionsCreate where-        type Rs PermissionsCreate = Permission-        type Scopes PermissionsCreate =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file"]-        requestClient PermissionsCreate'{..}-          = go _pcFileId _pcSendNotificationEmail-              _pcEmailMessage-              (Just _pcSupportsAllDrives)-              (Just _pcUseDomainAdminAccess)-              (Just _pcTransferOwnership)-              (Just _pcSupportsTeamDrives)-              (Just AltJSON)-              _pcPayload-              driveService-          where go-                  = buildClient-                      (Proxy :: Proxy PermissionsCreateResource)-                      mempty
− gen/Network/Google/Resource/Drive/Permissions/Delete.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.Drive.Permissions.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 permission.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.permissions.delete@.-module Network.Google.Resource.Drive.Permissions.Delete-    (-    -- * REST Resource-      PermissionsDeleteResource--    -- * Creating a Request-    , permissionsDelete-    , PermissionsDelete--    -- * Request Lenses-    , pdSupportsAllDrives-    , pdUseDomainAdminAccess-    , pdFileId-    , pdSupportsTeamDrives-    , pdPermissionId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.permissions.delete@ method which the--- 'PermissionsDelete' request conforms to.-type PermissionsDeleteResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "permissions" :>-               Capture "permissionId" Text :>-                 QueryParam "supportsAllDrives" Bool :>-                   QueryParam "useDomainAdminAccess" Bool :>-                     QueryParam "supportsTeamDrives" Bool :>-                       QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes a permission.------ /See:/ 'permissionsDelete' smart constructor.-data PermissionsDelete =-  PermissionsDelete'-    { _pdSupportsAllDrives    :: !Bool-    , _pdUseDomainAdminAccess :: !Bool-    , _pdFileId               :: !Text-    , _pdSupportsTeamDrives   :: !Bool-    , _pdPermissionId         :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PermissionsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pdSupportsAllDrives'------ * 'pdUseDomainAdminAccess'------ * 'pdFileId'------ * 'pdSupportsTeamDrives'------ * 'pdPermissionId'-permissionsDelete-    :: Text -- ^ 'pdFileId'-    -> Text -- ^ 'pdPermissionId'-    -> PermissionsDelete-permissionsDelete pPdFileId_ pPdPermissionId_ =-  PermissionsDelete'-    { _pdSupportsAllDrives = False-    , _pdUseDomainAdminAccess = False-    , _pdFileId = pPdFileId_-    , _pdSupportsTeamDrives = False-    , _pdPermissionId = pPdPermissionId_-    }----- | Whether the requesting application supports both My Drives and shared--- drives.-pdSupportsAllDrives :: Lens' PermissionsDelete Bool-pdSupportsAllDrives-  = lens _pdSupportsAllDrives-      (\ s a -> s{_pdSupportsAllDrives = a})---- | Issue the request as a domain administrator; if set to true, then the--- requester will be granted access if the file ID parameter refers to a--- shared drive and the requester is an administrator of the domain to--- which the shared drive belongs.-pdUseDomainAdminAccess :: Lens' PermissionsDelete Bool-pdUseDomainAdminAccess-  = lens _pdUseDomainAdminAccess-      (\ s a -> s{_pdUseDomainAdminAccess = a})---- | The ID of the file or shared drive.-pdFileId :: Lens' PermissionsDelete Text-pdFileId = lens _pdFileId (\ s a -> s{_pdFileId = a})---- | Deprecated use supportsAllDrives instead.-pdSupportsTeamDrives :: Lens' PermissionsDelete Bool-pdSupportsTeamDrives-  = lens _pdSupportsTeamDrives-      (\ s a -> s{_pdSupportsTeamDrives = a})---- | The ID of the permission.-pdPermissionId :: Lens' PermissionsDelete Text-pdPermissionId-  = lens _pdPermissionId-      (\ s a -> s{_pdPermissionId = a})--instance GoogleRequest PermissionsDelete where-        type Rs PermissionsDelete = ()-        type Scopes PermissionsDelete =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file"]-        requestClient PermissionsDelete'{..}-          = go _pdFileId _pdPermissionId-              (Just _pdSupportsAllDrives)-              (Just _pdUseDomainAdminAccess)-              (Just _pdSupportsTeamDrives)-              (Just AltJSON)-              driveService-          where go-                  = buildClient-                      (Proxy :: Proxy PermissionsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Drive/Permissions/Get.hs 
@@ -1,151 +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.Drive.Permissions.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 a permission by ID.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.permissions.get@.-module Network.Google.Resource.Drive.Permissions.Get-    (-    -- * REST Resource-      PermissionsGetResource--    -- * Creating a Request-    , permissionsGet-    , PermissionsGet--    -- * Request Lenses-    , pgSupportsAllDrives-    , pgUseDomainAdminAccess-    , pgFileId-    , pgSupportsTeamDrives-    , pgPermissionId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.permissions.get@ method which the--- 'PermissionsGet' request conforms to.-type PermissionsGetResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "permissions" :>-               Capture "permissionId" Text :>-                 QueryParam "supportsAllDrives" Bool :>-                   QueryParam "useDomainAdminAccess" Bool :>-                     QueryParam "supportsTeamDrives" Bool :>-                       QueryParam "alt" AltJSON :> Get '[JSON] Permission---- | Gets a permission by ID.------ /See:/ 'permissionsGet' smart constructor.-data PermissionsGet =-  PermissionsGet'-    { _pgSupportsAllDrives    :: !Bool-    , _pgUseDomainAdminAccess :: !Bool-    , _pgFileId               :: !Text-    , _pgSupportsTeamDrives   :: !Bool-    , _pgPermissionId         :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PermissionsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pgSupportsAllDrives'------ * 'pgUseDomainAdminAccess'------ * 'pgFileId'------ * 'pgSupportsTeamDrives'------ * 'pgPermissionId'-permissionsGet-    :: Text -- ^ 'pgFileId'-    -> Text -- ^ 'pgPermissionId'-    -> PermissionsGet-permissionsGet pPgFileId_ pPgPermissionId_ =-  PermissionsGet'-    { _pgSupportsAllDrives = False-    , _pgUseDomainAdminAccess = False-    , _pgFileId = pPgFileId_-    , _pgSupportsTeamDrives = False-    , _pgPermissionId = pPgPermissionId_-    }----- | Whether the requesting application supports both My Drives and shared--- drives.-pgSupportsAllDrives :: Lens' PermissionsGet Bool-pgSupportsAllDrives-  = lens _pgSupportsAllDrives-      (\ s a -> s{_pgSupportsAllDrives = a})---- | Issue the request as a domain administrator; if set to true, then the--- requester will be granted access if the file ID parameter refers to a--- shared drive and the requester is an administrator of the domain to--- which the shared drive belongs.-pgUseDomainAdminAccess :: Lens' PermissionsGet Bool-pgUseDomainAdminAccess-  = lens _pgUseDomainAdminAccess-      (\ s a -> s{_pgUseDomainAdminAccess = a})---- | The ID of the file.-pgFileId :: Lens' PermissionsGet Text-pgFileId = lens _pgFileId (\ s a -> s{_pgFileId = a})---- | Deprecated use supportsAllDrives instead.-pgSupportsTeamDrives :: Lens' PermissionsGet Bool-pgSupportsTeamDrives-  = lens _pgSupportsTeamDrives-      (\ s a -> s{_pgSupportsTeamDrives = a})---- | The ID of the permission.-pgPermissionId :: Lens' PermissionsGet Text-pgPermissionId-  = lens _pgPermissionId-      (\ s a -> s{_pgPermissionId = a})--instance GoogleRequest PermissionsGet where-        type Rs PermissionsGet = Permission-        type Scopes PermissionsGet =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.metadata",-               "https://www.googleapis.com/auth/drive.metadata.readonly",-               "https://www.googleapis.com/auth/drive.photos.readonly",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient PermissionsGet'{..}-          = go _pgFileId _pgPermissionId-              (Just _pgSupportsAllDrives)-              (Just _pgUseDomainAdminAccess)-              (Just _pgSupportsTeamDrives)-              (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy PermissionsGetResource)-                      mempty
− gen/Network/Google/Resource/Drive/Permissions/List.hs 
@@ -1,169 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Drive.Permissions.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 a file\'s or shared drive\'s permissions.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.permissions.list@.-module Network.Google.Resource.Drive.Permissions.List-    (-    -- * REST Resource-      PermissionsListResource--    -- * Creating a Request-    , permissionsList-    , PermissionsList--    -- * Request Lenses-    , plSupportsAllDrives-    , plPageToken-    , plUseDomainAdminAccess-    , plFileId-    , plPageSize-    , plSupportsTeamDrives-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.permissions.list@ method which the--- 'PermissionsList' request conforms to.-type PermissionsListResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "permissions" :>-               QueryParam "supportsAllDrives" Bool :>-                 QueryParam "pageToken" Text :>-                   QueryParam "useDomainAdminAccess" Bool :>-                     QueryParam "pageSize" (Textual Int32) :>-                       QueryParam "supportsTeamDrives" Bool :>-                         QueryParam "alt" AltJSON :>-                           Get '[JSON] PermissionList---- | Lists a file\'s or shared drive\'s permissions.------ /See:/ 'permissionsList' smart constructor.-data PermissionsList =-  PermissionsList'-    { _plSupportsAllDrives    :: !Bool-    , _plPageToken            :: !(Maybe Text)-    , _plUseDomainAdminAccess :: !Bool-    , _plFileId               :: !Text-    , _plPageSize             :: !(Maybe (Textual Int32))-    , _plSupportsTeamDrives   :: !Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PermissionsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plSupportsAllDrives'------ * 'plPageToken'------ * 'plUseDomainAdminAccess'------ * 'plFileId'------ * 'plPageSize'------ * 'plSupportsTeamDrives'-permissionsList-    :: Text -- ^ 'plFileId'-    -> PermissionsList-permissionsList pPlFileId_ =-  PermissionsList'-    { _plSupportsAllDrives = False-    , _plPageToken = Nothing-    , _plUseDomainAdminAccess = False-    , _plFileId = pPlFileId_-    , _plPageSize = Nothing-    , _plSupportsTeamDrives = False-    }----- | Whether the requesting application supports both My Drives and shared--- drives.-plSupportsAllDrives :: Lens' PermissionsList Bool-plSupportsAllDrives-  = lens _plSupportsAllDrives-      (\ s a -> s{_plSupportsAllDrives = a})---- | The token for continuing a previous list request on the next page. This--- should be set to the value of \'nextPageToken\' from the previous--- response.-plPageToken :: Lens' PermissionsList (Maybe Text)-plPageToken-  = lens _plPageToken (\ s a -> s{_plPageToken = a})---- | Issue the request as a domain administrator; if set to true, then the--- requester will be granted access if the file ID parameter refers to a--- shared drive and the requester is an administrator of the domain to--- which the shared drive belongs.-plUseDomainAdminAccess :: Lens' PermissionsList Bool-plUseDomainAdminAccess-  = lens _plUseDomainAdminAccess-      (\ s a -> s{_plUseDomainAdminAccess = a})---- | The ID of the file or shared drive.-plFileId :: Lens' PermissionsList Text-plFileId = lens _plFileId (\ s a -> s{_plFileId = a})---- | The maximum number of permissions to return per page. When not set for--- files in a shared drive, at most 100 results will be returned. When not--- set for files that are not in a shared drive, the entire list will be--- returned.-plPageSize :: Lens' PermissionsList (Maybe Int32)-plPageSize-  = lens _plPageSize (\ s a -> s{_plPageSize = a}) .-      mapping _Coerce---- | Deprecated use supportsAllDrives instead.-plSupportsTeamDrives :: Lens' PermissionsList Bool-plSupportsTeamDrives-  = lens _plSupportsTeamDrives-      (\ s a -> s{_plSupportsTeamDrives = a})--instance GoogleRequest PermissionsList where-        type Rs PermissionsList = PermissionList-        type Scopes PermissionsList =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.metadata",-               "https://www.googleapis.com/auth/drive.metadata.readonly",-               "https://www.googleapis.com/auth/drive.photos.readonly",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient PermissionsList'{..}-          = go _plFileId (Just _plSupportsAllDrives)-              _plPageToken-              (Just _plUseDomainAdminAccess)-              _plPageSize-              (Just _plSupportsTeamDrives)-              (Just AltJSON)-              driveService-          where go-                  = buildClient-                      (Proxy :: Proxy PermissionsListResource)-                      mempty
− gen/Network/Google/Resource/Drive/Permissions/Update.hs 
@@ -1,190 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Drive.Permissions.Update--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Updates a permission with patch semantics.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.permissions.update@.-module Network.Google.Resource.Drive.Permissions.Update-    (-    -- * REST Resource-      PermissionsUpdateResource--    -- * Creating a Request-    , permissionsUpdate-    , PermissionsUpdate--    -- * Request Lenses-    , puPayload-    , puSupportsAllDrives-    , puRemoveExpiration-    , puUseDomainAdminAccess-    , puTransferOwnership-    , puFileId-    , puSupportsTeamDrives-    , puPermissionId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.permissions.update@ method which the--- 'PermissionsUpdate' request conforms to.-type PermissionsUpdateResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "permissions" :>-               Capture "permissionId" Text :>-                 QueryParam "supportsAllDrives" Bool :>-                   QueryParam "removeExpiration" Bool :>-                     QueryParam "useDomainAdminAccess" Bool :>-                       QueryParam "transferOwnership" Bool :>-                         QueryParam "supportsTeamDrives" Bool :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] Permission :>-                               Patch '[JSON] Permission---- | Updates a permission with patch semantics.------ /See:/ 'permissionsUpdate' smart constructor.-data PermissionsUpdate =-  PermissionsUpdate'-    { _puPayload              :: !Permission-    , _puSupportsAllDrives    :: !Bool-    , _puRemoveExpiration     :: !Bool-    , _puUseDomainAdminAccess :: !Bool-    , _puTransferOwnership    :: !Bool-    , _puFileId               :: !Text-    , _puSupportsTeamDrives   :: !Bool-    , _puPermissionId         :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PermissionsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'puPayload'------ * 'puSupportsAllDrives'------ * 'puRemoveExpiration'------ * 'puUseDomainAdminAccess'------ * 'puTransferOwnership'------ * 'puFileId'------ * 'puSupportsTeamDrives'------ * 'puPermissionId'-permissionsUpdate-    :: Permission -- ^ 'puPayload'-    -> Text -- ^ 'puFileId'-    -> Text -- ^ 'puPermissionId'-    -> PermissionsUpdate-permissionsUpdate pPuPayload_ pPuFileId_ pPuPermissionId_ =-  PermissionsUpdate'-    { _puPayload = pPuPayload_-    , _puSupportsAllDrives = False-    , _puRemoveExpiration = False-    , _puUseDomainAdminAccess = False-    , _puTransferOwnership = False-    , _puFileId = pPuFileId_-    , _puSupportsTeamDrives = False-    , _puPermissionId = pPuPermissionId_-    }----- | Multipart request metadata.-puPayload :: Lens' PermissionsUpdate Permission-puPayload-  = lens _puPayload (\ s a -> s{_puPayload = a})---- | Whether the requesting application supports both My Drives and shared--- drives.-puSupportsAllDrives :: Lens' PermissionsUpdate Bool-puSupportsAllDrives-  = lens _puSupportsAllDrives-      (\ s a -> s{_puSupportsAllDrives = a})---- | Whether to remove the expiration date.-puRemoveExpiration :: Lens' PermissionsUpdate Bool-puRemoveExpiration-  = lens _puRemoveExpiration-      (\ s a -> s{_puRemoveExpiration = a})---- | Issue the request as a domain administrator; if set to true, then the--- requester will be granted access if the file ID parameter refers to a--- shared drive and the requester is an administrator of the domain to--- which the shared drive belongs.-puUseDomainAdminAccess :: Lens' PermissionsUpdate Bool-puUseDomainAdminAccess-  = lens _puUseDomainAdminAccess-      (\ s a -> s{_puUseDomainAdminAccess = a})---- | Whether to transfer ownership to the specified user and downgrade the--- current owner to a writer. This parameter is required as an--- acknowledgement of the side effect.-puTransferOwnership :: Lens' PermissionsUpdate Bool-puTransferOwnership-  = lens _puTransferOwnership-      (\ s a -> s{_puTransferOwnership = a})---- | The ID of the file or shared drive.-puFileId :: Lens' PermissionsUpdate Text-puFileId = lens _puFileId (\ s a -> s{_puFileId = a})---- | Deprecated use supportsAllDrives instead.-puSupportsTeamDrives :: Lens' PermissionsUpdate Bool-puSupportsTeamDrives-  = lens _puSupportsTeamDrives-      (\ s a -> s{_puSupportsTeamDrives = a})---- | The ID of the permission.-puPermissionId :: Lens' PermissionsUpdate Text-puPermissionId-  = lens _puPermissionId-      (\ s a -> s{_puPermissionId = a})--instance GoogleRequest PermissionsUpdate where-        type Rs PermissionsUpdate = Permission-        type Scopes PermissionsUpdate =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file"]-        requestClient PermissionsUpdate'{..}-          = go _puFileId _puPermissionId-              (Just _puSupportsAllDrives)-              (Just _puRemoveExpiration)-              (Just _puUseDomainAdminAccess)-              (Just _puTransferOwnership)-              (Just _puSupportsTeamDrives)-              (Just AltJSON)-              _puPayload-              driveService-          where go-                  = buildClient-                      (Proxy :: Proxy PermissionsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Drive/Replies/Create.hs 
@@ -1,115 +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.Drive.Replies.Create--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a new reply to a comment.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.replies.create@.-module Network.Google.Resource.Drive.Replies.Create-    (-    -- * REST Resource-      RepliesCreateResource--    -- * Creating a Request-    , repliesCreate-    , RepliesCreate--    -- * Request Lenses-    , rcPayload-    , rcFileId-    , rcCommentId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.replies.create@ method which the--- 'RepliesCreate' request conforms to.-type RepliesCreateResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "comments" :>-               Capture "commentId" Text :>-                 "replies" :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Reply :> Post '[JSON] Reply---- | Creates a new reply to a comment.------ /See:/ 'repliesCreate' smart constructor.-data RepliesCreate =-  RepliesCreate'-    { _rcPayload   :: !Reply-    , _rcFileId    :: !Text-    , _rcCommentId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RepliesCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcPayload'------ * 'rcFileId'------ * 'rcCommentId'-repliesCreate-    :: Reply -- ^ 'rcPayload'-    -> Text -- ^ 'rcFileId'-    -> Text -- ^ 'rcCommentId'-    -> RepliesCreate-repliesCreate pRcPayload_ pRcFileId_ pRcCommentId_ =-  RepliesCreate'-    { _rcPayload = pRcPayload_-    , _rcFileId = pRcFileId_-    , _rcCommentId = pRcCommentId_-    }----- | Multipart request metadata.-rcPayload :: Lens' RepliesCreate Reply-rcPayload-  = lens _rcPayload (\ s a -> s{_rcPayload = a})---- | The ID of the file.-rcFileId :: Lens' RepliesCreate Text-rcFileId = lens _rcFileId (\ s a -> s{_rcFileId = a})---- | The ID of the comment.-rcCommentId :: Lens' RepliesCreate Text-rcCommentId-  = lens _rcCommentId (\ s a -> s{_rcCommentId = a})--instance GoogleRequest RepliesCreate where-        type Rs RepliesCreate = Reply-        type Scopes RepliesCreate =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file"]-        requestClient RepliesCreate'{..}-          = go _rcFileId _rcCommentId (Just AltJSON) _rcPayload-              driveService-          where go-                  = buildClient (Proxy :: Proxy RepliesCreateResource)-                      mempty
− gen/Network/Google/Resource/Drive/Replies/Delete.hs 
@@ -1,115 +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.Drive.Replies.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 reply.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.replies.delete@.-module Network.Google.Resource.Drive.Replies.Delete-    (-    -- * REST Resource-      RepliesDeleteResource--    -- * Creating a Request-    , repliesDelete-    , RepliesDelete--    -- * Request Lenses-    , rdReplyId-    , rdFileId-    , rdCommentId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.replies.delete@ method which the--- 'RepliesDelete' request conforms to.-type RepliesDeleteResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "comments" :>-               Capture "commentId" Text :>-                 "replies" :>-                   Capture "replyId" Text :>-                     QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes a reply.------ /See:/ 'repliesDelete' smart constructor.-data RepliesDelete =-  RepliesDelete'-    { _rdReplyId   :: !Text-    , _rdFileId    :: !Text-    , _rdCommentId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RepliesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rdReplyId'------ * 'rdFileId'------ * 'rdCommentId'-repliesDelete-    :: Text -- ^ 'rdReplyId'-    -> Text -- ^ 'rdFileId'-    -> Text -- ^ 'rdCommentId'-    -> RepliesDelete-repliesDelete pRdReplyId_ pRdFileId_ pRdCommentId_ =-  RepliesDelete'-    { _rdReplyId = pRdReplyId_-    , _rdFileId = pRdFileId_-    , _rdCommentId = pRdCommentId_-    }----- | The ID of the reply.-rdReplyId :: Lens' RepliesDelete Text-rdReplyId-  = lens _rdReplyId (\ s a -> s{_rdReplyId = a})---- | The ID of the file.-rdFileId :: Lens' RepliesDelete Text-rdFileId = lens _rdFileId (\ s a -> s{_rdFileId = a})---- | The ID of the comment.-rdCommentId :: Lens' RepliesDelete Text-rdCommentId-  = lens _rdCommentId (\ s a -> s{_rdCommentId = a})--instance GoogleRequest RepliesDelete where-        type Rs RepliesDelete = ()-        type Scopes RepliesDelete =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file"]-        requestClient RepliesDelete'{..}-          = go _rdFileId _rdCommentId _rdReplyId (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy RepliesDeleteResource)-                      mempty
− gen/Network/Google/Resource/Drive/Replies/Get.hs 
@@ -1,131 +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.Drive.Replies.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 a reply by ID.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.replies.get@.-module Network.Google.Resource.Drive.Replies.Get-    (-    -- * REST Resource-      RepliesGetResource--    -- * Creating a Request-    , repliesGet-    , RepliesGet--    -- * Request Lenses-    , rgReplyId-    , rgFileId-    , rgCommentId-    , rgIncludeDeleted-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.replies.get@ method which the--- 'RepliesGet' request conforms to.-type RepliesGetResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "comments" :>-               Capture "commentId" Text :>-                 "replies" :>-                   Capture "replyId" Text :>-                     QueryParam "includeDeleted" Bool :>-                       QueryParam "alt" AltJSON :> Get '[JSON] Reply---- | Gets a reply by ID.------ /See:/ 'repliesGet' smart constructor.-data RepliesGet =-  RepliesGet'-    { _rgReplyId        :: !Text-    , _rgFileId         :: !Text-    , _rgCommentId      :: !Text-    , _rgIncludeDeleted :: !Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RepliesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rgReplyId'------ * 'rgFileId'------ * 'rgCommentId'------ * 'rgIncludeDeleted'-repliesGet-    :: Text -- ^ 'rgReplyId'-    -> Text -- ^ 'rgFileId'-    -> Text -- ^ 'rgCommentId'-    -> RepliesGet-repliesGet pRgReplyId_ pRgFileId_ pRgCommentId_ =-  RepliesGet'-    { _rgReplyId = pRgReplyId_-    , _rgFileId = pRgFileId_-    , _rgCommentId = pRgCommentId_-    , _rgIncludeDeleted = False-    }----- | The ID of the reply.-rgReplyId :: Lens' RepliesGet Text-rgReplyId-  = lens _rgReplyId (\ s a -> s{_rgReplyId = a})---- | The ID of the file.-rgFileId :: Lens' RepliesGet Text-rgFileId = lens _rgFileId (\ s a -> s{_rgFileId = a})---- | The ID of the comment.-rgCommentId :: Lens' RepliesGet Text-rgCommentId-  = lens _rgCommentId (\ s a -> s{_rgCommentId = a})---- | Whether to return deleted replies. Deleted replies will not include--- their original content.-rgIncludeDeleted :: Lens' RepliesGet Bool-rgIncludeDeleted-  = lens _rgIncludeDeleted-      (\ s a -> s{_rgIncludeDeleted = a})--instance GoogleRequest RepliesGet where-        type Rs RepliesGet = Reply-        type Scopes RepliesGet =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient RepliesGet'{..}-          = go _rgFileId _rgCommentId _rgReplyId-              (Just _rgIncludeDeleted)-              (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy RepliesGetResource)-                      mempty
− gen/Network/Google/Resource/Drive/Replies/List.hs 
@@ -1,145 +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.Drive.Replies.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 a comment\'s replies.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.replies.list@.-module Network.Google.Resource.Drive.Replies.List-    (-    -- * REST Resource-      RepliesListResource--    -- * Creating a Request-    , repliesList-    , RepliesList--    -- * Request Lenses-    , rlPageToken-    , rlFileId-    , rlCommentId-    , rlPageSize-    , rlIncludeDeleted-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.replies.list@ method which the--- 'RepliesList' request conforms to.-type RepliesListResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "comments" :>-               Capture "commentId" Text :>-                 "replies" :>-                   QueryParam "pageToken" Text :>-                     QueryParam "pageSize" (Textual Int32) :>-                       QueryParam "includeDeleted" Bool :>-                         QueryParam "alt" AltJSON :> Get '[JSON] ReplyList---- | Lists a comment\'s replies.------ /See:/ 'repliesList' smart constructor.-data RepliesList =-  RepliesList'-    { _rlPageToken      :: !(Maybe Text)-    , _rlFileId         :: !Text-    , _rlCommentId      :: !Text-    , _rlPageSize       :: !(Textual Int32)-    , _rlIncludeDeleted :: !Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RepliesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rlPageToken'------ * 'rlFileId'------ * 'rlCommentId'------ * 'rlPageSize'------ * 'rlIncludeDeleted'-repliesList-    :: Text -- ^ 'rlFileId'-    -> Text -- ^ 'rlCommentId'-    -> RepliesList-repliesList pRlFileId_ pRlCommentId_ =-  RepliesList'-    { _rlPageToken = Nothing-    , _rlFileId = pRlFileId_-    , _rlCommentId = pRlCommentId_-    , _rlPageSize = 20-    , _rlIncludeDeleted = False-    }----- | The token for continuing a previous list request on the next page. This--- should be set to the value of \'nextPageToken\' from the previous--- response.-rlPageToken :: Lens' RepliesList (Maybe Text)-rlPageToken-  = lens _rlPageToken (\ s a -> s{_rlPageToken = a})---- | The ID of the file.-rlFileId :: Lens' RepliesList Text-rlFileId = lens _rlFileId (\ s a -> s{_rlFileId = a})---- | The ID of the comment.-rlCommentId :: Lens' RepliesList Text-rlCommentId-  = lens _rlCommentId (\ s a -> s{_rlCommentId = a})---- | The maximum number of replies to return per page.-rlPageSize :: Lens' RepliesList Int32-rlPageSize-  = lens _rlPageSize (\ s a -> s{_rlPageSize = a}) .-      _Coerce---- | Whether to include deleted replies. Deleted replies will not include--- their original content.-rlIncludeDeleted :: Lens' RepliesList Bool-rlIncludeDeleted-  = lens _rlIncludeDeleted-      (\ s a -> s{_rlIncludeDeleted = a})--instance GoogleRequest RepliesList where-        type Rs RepliesList = ReplyList-        type Scopes RepliesList =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient RepliesList'{..}-          = go _rlFileId _rlCommentId _rlPageToken-              (Just _rlPageSize)-              (Just _rlIncludeDeleted)-              (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy RepliesListResource)-                      mempty
− gen/Network/Google/Resource/Drive/Replies/Update.hs 
@@ -1,128 +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.Drive.Replies.Update--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Updates a reply with patch semantics.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.replies.update@.-module Network.Google.Resource.Drive.Replies.Update-    (-    -- * REST Resource-      RepliesUpdateResource--    -- * Creating a Request-    , repliesUpdate-    , RepliesUpdate--    -- * Request Lenses-    , ruPayload-    , ruReplyId-    , ruFileId-    , ruCommentId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.replies.update@ method which the--- 'RepliesUpdate' request conforms to.-type RepliesUpdateResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "comments" :>-               Capture "commentId" Text :>-                 "replies" :>-                   Capture "replyId" Text :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] Reply :> Patch '[JSON] Reply---- | Updates a reply with patch semantics.------ /See:/ 'repliesUpdate' smart constructor.-data RepliesUpdate =-  RepliesUpdate'-    { _ruPayload   :: !Reply-    , _ruReplyId   :: !Text-    , _ruFileId    :: !Text-    , _ruCommentId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RepliesUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ruPayload'------ * 'ruReplyId'------ * 'ruFileId'------ * 'ruCommentId'-repliesUpdate-    :: Reply -- ^ 'ruPayload'-    -> Text -- ^ 'ruReplyId'-    -> Text -- ^ 'ruFileId'-    -> Text -- ^ 'ruCommentId'-    -> RepliesUpdate-repliesUpdate pRuPayload_ pRuReplyId_ pRuFileId_ pRuCommentId_ =-  RepliesUpdate'-    { _ruPayload = pRuPayload_-    , _ruReplyId = pRuReplyId_-    , _ruFileId = pRuFileId_-    , _ruCommentId = pRuCommentId_-    }----- | Multipart request metadata.-ruPayload :: Lens' RepliesUpdate Reply-ruPayload-  = lens _ruPayload (\ s a -> s{_ruPayload = a})---- | The ID of the reply.-ruReplyId :: Lens' RepliesUpdate Text-ruReplyId-  = lens _ruReplyId (\ s a -> s{_ruReplyId = a})---- | The ID of the file.-ruFileId :: Lens' RepliesUpdate Text-ruFileId = lens _ruFileId (\ s a -> s{_ruFileId = a})---- | The ID of the comment.-ruCommentId :: Lens' RepliesUpdate Text-ruCommentId-  = lens _ruCommentId (\ s a -> s{_ruCommentId = a})--instance GoogleRequest RepliesUpdate where-        type Rs RepliesUpdate = Reply-        type Scopes RepliesUpdate =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.file"]-        requestClient RepliesUpdate'{..}-          = go _ruFileId _ruCommentId _ruReplyId (Just AltJSON)-              _ruPayload-              driveService-          where go-                  = buildClient (Proxy :: Proxy RepliesUpdateResource)-                      mempty
− gen/Network/Google/Resource/Drive/Revisions/Delete.hs 
@@ -1,107 +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.Drive.Revisions.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)------ Permanently deletes a file version. You can only delete revisions for--- files with binary content in Google Drive, like images or videos.--- Revisions for other files, like Google Docs or Sheets, and the last--- remaining file version can\'t be deleted.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.revisions.delete@.-module Network.Google.Resource.Drive.Revisions.Delete-    (-    -- * REST Resource-      RevisionsDeleteResource--    -- * Creating a Request-    , revisionsDelete-    , RevisionsDelete--    -- * Request Lenses-    , rFileId-    , rRevisionId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.revisions.delete@ method which the--- 'RevisionsDelete' request conforms to.-type RevisionsDeleteResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "revisions" :>-               Capture "revisionId" Text :>-                 QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Permanently deletes a file version. You can only delete revisions for--- files with binary content in Google Drive, like images or videos.--- Revisions for other files, like Google Docs or Sheets, and the last--- remaining file version can\'t be deleted.------ /See:/ 'revisionsDelete' smart constructor.-data RevisionsDelete =-  RevisionsDelete'-    { _rFileId     :: !Text-    , _rRevisionId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RevisionsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rFileId'------ * 'rRevisionId'-revisionsDelete-    :: Text -- ^ 'rFileId'-    -> Text -- ^ 'rRevisionId'-    -> RevisionsDelete-revisionsDelete pRFileId_ pRRevisionId_ =-  RevisionsDelete' {_rFileId = pRFileId_, _rRevisionId = pRRevisionId_}----- | The ID of the file.-rFileId :: Lens' RevisionsDelete Text-rFileId = lens _rFileId (\ s a -> s{_rFileId = a})---- | The ID of the revision.-rRevisionId :: Lens' RevisionsDelete Text-rRevisionId-  = lens _rRevisionId (\ s a -> s{_rRevisionId = a})--instance GoogleRequest RevisionsDelete where-        type Rs RevisionsDelete = ()-        type Scopes RevisionsDelete =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file"]-        requestClient RevisionsDelete'{..}-          = go _rFileId _rRevisionId (Just AltJSON)-              driveService-          where go-                  = buildClient-                      (Proxy :: Proxy RevisionsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Drive/Revisions/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.Drive.Revisions.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 a revision\'s metadata or content by ID.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.revisions.get@.-module Network.Google.Resource.Drive.Revisions.Get-    (-    -- * REST Resource-      RevisionsGetResource--    -- * Creating a Request-    , revisionsGet-    , RevisionsGet--    -- * Request Lenses-    , rggAcknowledgeAbuse-    , rggFileId-    , rggRevisionId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.revisions.get@ method which the--- 'RevisionsGet' request conforms to.-type RevisionsGetResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "revisions" :>-               Capture "revisionId" Text :>-                 QueryParam "acknowledgeAbuse" Bool :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Revision-       :<|>-       "drive" :>-         "v3" :>-           "files" :>-             Capture "fileId" Text :>-               "revisions" :>-                 Capture "revisionId" Text :>-                   QueryParam "acknowledgeAbuse" Bool :>-                     QueryParam "alt" AltMedia :>-                       Get '[OctetStream] Stream---- | Gets a revision\'s metadata or content by ID.------ /See:/ 'revisionsGet' smart constructor.-data RevisionsGet =-  RevisionsGet'-    { _rggAcknowledgeAbuse :: !Bool-    , _rggFileId           :: !Text-    , _rggRevisionId       :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RevisionsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rggAcknowledgeAbuse'------ * 'rggFileId'------ * 'rggRevisionId'-revisionsGet-    :: Text -- ^ 'rggFileId'-    -> Text -- ^ 'rggRevisionId'-    -> RevisionsGet-revisionsGet pRggFileId_ pRggRevisionId_ =-  RevisionsGet'-    { _rggAcknowledgeAbuse = False-    , _rggFileId = pRggFileId_-    , _rggRevisionId = pRggRevisionId_-    }----- | Whether the user is acknowledging the risk of downloading known malware--- or other abusive files. This is only applicable when alt=media.-rggAcknowledgeAbuse :: Lens' RevisionsGet Bool-rggAcknowledgeAbuse-  = lens _rggAcknowledgeAbuse-      (\ s a -> s{_rggAcknowledgeAbuse = a})---- | The ID of the file.-rggFileId :: Lens' RevisionsGet Text-rggFileId-  = lens _rggFileId (\ s a -> s{_rggFileId = a})---- | The ID of the revision.-rggRevisionId :: Lens' RevisionsGet Text-rggRevisionId-  = lens _rggRevisionId-      (\ s a -> s{_rggRevisionId = a})--instance GoogleRequest RevisionsGet where-        type Rs RevisionsGet = Revision-        type Scopes RevisionsGet =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.metadata",-               "https://www.googleapis.com/auth/drive.metadata.readonly",-               "https://www.googleapis.com/auth/drive.photos.readonly",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient RevisionsGet'{..}-          = go _rggFileId _rggRevisionId-              (Just _rggAcknowledgeAbuse)-              (Just AltJSON)-              driveService-          where go :<|> _-                  = buildClient (Proxy :: Proxy RevisionsGetResource)-                      mempty--instance GoogleRequest (MediaDownload RevisionsGet)-         where-        type Rs (MediaDownload RevisionsGet) = Stream-        type Scopes (MediaDownload RevisionsGet) =-             Scopes RevisionsGet-        requestClient (MediaDownload RevisionsGet'{..})-          = go _rggFileId _rggRevisionId-              (Just _rggAcknowledgeAbuse)-              (Just AltMedia)-              driveService-          where _ :<|> go-                  = buildClient (Proxy :: Proxy RevisionsGetResource)-                      mempty
− gen/Network/Google/Resource/Drive/Revisions/List.hs 
@@ -1,119 +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.Drive.Revisions.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 a file\'s revisions.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.revisions.list@.-module Network.Google.Resource.Drive.Revisions.List-    (-    -- * REST Resource-      RevisionsListResource--    -- * Creating a Request-    , revisionsList-    , RevisionsList--    -- * Request Lenses-    , rllPageToken-    , rllFileId-    , rllPageSize-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.revisions.list@ method which the--- 'RevisionsList' request conforms to.-type RevisionsListResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "revisions" :>-               QueryParam "pageToken" Text :>-                 QueryParam "pageSize" (Textual Int32) :>-                   QueryParam "alt" AltJSON :> Get '[JSON] RevisionList---- | Lists a file\'s revisions.------ /See:/ 'revisionsList' smart constructor.-data RevisionsList =-  RevisionsList'-    { _rllPageToken :: !(Maybe Text)-    , _rllFileId    :: !Text-    , _rllPageSize  :: !(Textual Int32)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RevisionsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rllPageToken'------ * 'rllFileId'------ * 'rllPageSize'-revisionsList-    :: Text -- ^ 'rllFileId'-    -> RevisionsList-revisionsList pRllFileId_ =-  RevisionsList'-    {_rllPageToken = Nothing, _rllFileId = pRllFileId_, _rllPageSize = 200}----- | The token for continuing a previous list request on the next page. This--- should be set to the value of \'nextPageToken\' from the previous--- response.-rllPageToken :: Lens' RevisionsList (Maybe Text)-rllPageToken-  = lens _rllPageToken (\ s a -> s{_rllPageToken = a})---- | The ID of the file.-rllFileId :: Lens' RevisionsList Text-rllFileId-  = lens _rllFileId (\ s a -> s{_rllFileId = a})---- | The maximum number of revisions to return per page.-rllPageSize :: Lens' RevisionsList Int32-rllPageSize-  = lens _rllPageSize (\ s a -> s{_rllPageSize = a}) .-      _Coerce--instance GoogleRequest RevisionsList where-        type Rs RevisionsList = RevisionList-        type Scopes RevisionsList =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file",-               "https://www.googleapis.com/auth/drive.metadata",-               "https://www.googleapis.com/auth/drive.metadata.readonly",-               "https://www.googleapis.com/auth/drive.photos.readonly",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient RevisionsList'{..}-          = go _rllFileId _rllPageToken (Just _rllPageSize)-              (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy RevisionsListResource)-                      mempty
− gen/Network/Google/Resource/Drive/Revisions/Update.hs 
@@ -1,119 +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.Drive.Revisions.Update--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Updates a revision with patch semantics.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.revisions.update@.-module Network.Google.Resource.Drive.Revisions.Update-    (-    -- * REST Resource-      RevisionsUpdateResource--    -- * Creating a Request-    , revisionsUpdate-    , RevisionsUpdate--    -- * Request Lenses-    , revPayload-    , revFileId-    , revRevisionId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.revisions.update@ method which the--- 'RevisionsUpdate' request conforms to.-type RevisionsUpdateResource =-     "drive" :>-       "v3" :>-         "files" :>-           Capture "fileId" Text :>-             "revisions" :>-               Capture "revisionId" Text :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Revision :> Patch '[JSON] Revision---- | Updates a revision with patch semantics.------ /See:/ 'revisionsUpdate' smart constructor.-data RevisionsUpdate =-  RevisionsUpdate'-    { _revPayload    :: !Revision-    , _revFileId     :: !Text-    , _revRevisionId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RevisionsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'revPayload'------ * 'revFileId'------ * 'revRevisionId'-revisionsUpdate-    :: Revision -- ^ 'revPayload'-    -> Text -- ^ 'revFileId'-    -> Text -- ^ 'revRevisionId'-    -> RevisionsUpdate-revisionsUpdate pRevPayload_ pRevFileId_ pRevRevisionId_ =-  RevisionsUpdate'-    { _revPayload = pRevPayload_-    , _revFileId = pRevFileId_-    , _revRevisionId = pRevRevisionId_-    }----- | Multipart request metadata.-revPayload :: Lens' RevisionsUpdate Revision-revPayload-  = lens _revPayload (\ s a -> s{_revPayload = a})---- | The ID of the file.-revFileId :: Lens' RevisionsUpdate Text-revFileId-  = lens _revFileId (\ s a -> s{_revFileId = a})---- | The ID of the revision.-revRevisionId :: Lens' RevisionsUpdate Text-revRevisionId-  = lens _revRevisionId-      (\ s a -> s{_revRevisionId = a})--instance GoogleRequest RevisionsUpdate where-        type Rs RevisionsUpdate = Revision-        type Scopes RevisionsUpdate =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.appdata",-               "https://www.googleapis.com/auth/drive.file"]-        requestClient RevisionsUpdate'{..}-          = go _revFileId _revRevisionId (Just AltJSON)-              _revPayload-              driveService-          where go-                  = buildClient-                      (Proxy :: Proxy RevisionsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Drive/Teamdrives/Create.hs 
@@ -1,103 +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.Drive.Teamdrives.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)------ Deprecated use drives.create instead.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.teamdrives.create@.-module Network.Google.Resource.Drive.Teamdrives.Create-    (-    -- * REST Resource-      TeamdrivesCreateResource--    -- * Creating a Request-    , teamdrivesCreate-    , TeamdrivesCreate--    -- * Request Lenses-    , tcRequestId-    , tcPayload-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.teamdrives.create@ method which the--- 'TeamdrivesCreate' request conforms to.-type TeamdrivesCreateResource =-     "drive" :>-       "v3" :>-         "teamdrives" :>-           QueryParam "requestId" Text :>-             QueryParam "alt" AltJSON :>-               ReqBody '[JSON] TeamDrive :> Post '[JSON] TeamDrive---- | Deprecated use drives.create instead.------ /See:/ 'teamdrivesCreate' smart constructor.-data TeamdrivesCreate =-  TeamdrivesCreate'-    { _tcRequestId :: !Text-    , _tcPayload   :: !TeamDrive-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TeamdrivesCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tcRequestId'------ * 'tcPayload'-teamdrivesCreate-    :: Text -- ^ 'tcRequestId'-    -> TeamDrive -- ^ 'tcPayload'-    -> TeamdrivesCreate-teamdrivesCreate pTcRequestId_ pTcPayload_ =-  TeamdrivesCreate' {_tcRequestId = pTcRequestId_, _tcPayload = pTcPayload_}----- | An ID, such as a random UUID, which uniquely identifies this user\'s--- request for idempotent creation of a Team Drive. A repeated request by--- the same user and with the same request ID will avoid creating--- duplicates by attempting to create the same Team Drive. If the Team--- Drive already exists a 409 error will be returned.-tcRequestId :: Lens' TeamdrivesCreate Text-tcRequestId-  = lens _tcRequestId (\ s a -> s{_tcRequestId = a})---- | Multipart request metadata.-tcPayload :: Lens' TeamdrivesCreate TeamDrive-tcPayload-  = lens _tcPayload (\ s a -> s{_tcPayload = a})--instance GoogleRequest TeamdrivesCreate where-        type Rs TeamdrivesCreate = TeamDrive-        type Scopes TeamdrivesCreate =-             '["https://www.googleapis.com/auth/drive"]-        requestClient TeamdrivesCreate'{..}-          = go (Just _tcRequestId) (Just AltJSON) _tcPayload-              driveService-          where go-                  = buildClient-                      (Proxy :: Proxy TeamdrivesCreateResource)-                      mempty
− gen/Network/Google/Resource/Drive/Teamdrives/Delete.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.Drive.Teamdrives.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)------ Deprecated use drives.delete instead.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.teamdrives.delete@.-module Network.Google.Resource.Drive.Teamdrives.Delete-    (-    -- * REST Resource-      TeamdrivesDeleteResource--    -- * Creating a Request-    , teamdrivesDelete-    , TeamdrivesDelete--    -- * Request Lenses-    , tdTeamDriveId-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.teamdrives.delete@ method which the--- 'TeamdrivesDelete' request conforms to.-type TeamdrivesDeleteResource =-     "drive" :>-       "v3" :>-         "teamdrives" :>-           Capture "teamDriveId" Text :>-             QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deprecated use drives.delete instead.------ /See:/ 'teamdrivesDelete' smart constructor.-newtype TeamdrivesDelete =-  TeamdrivesDelete'-    { _tdTeamDriveId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TeamdrivesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tdTeamDriveId'-teamdrivesDelete-    :: Text -- ^ 'tdTeamDriveId'-    -> TeamdrivesDelete-teamdrivesDelete pTdTeamDriveId_ =-  TeamdrivesDelete' {_tdTeamDriveId = pTdTeamDriveId_}----- | The ID of the Team Drive-tdTeamDriveId :: Lens' TeamdrivesDelete Text-tdTeamDriveId-  = lens _tdTeamDriveId-      (\ s a -> s{_tdTeamDriveId = a})--instance GoogleRequest TeamdrivesDelete where-        type Rs TeamdrivesDelete = ()-        type Scopes TeamdrivesDelete =-             '["https://www.googleapis.com/auth/drive"]-        requestClient TeamdrivesDelete'{..}-          = go _tdTeamDriveId (Just AltJSON) driveService-          where go-                  = buildClient-                      (Proxy :: Proxy TeamdrivesDeleteResource)-                      mempty
− gen/Network/Google/Resource/Drive/Teamdrives/Get.hs 
@@ -1,104 +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.Drive.Teamdrives.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)------ Deprecated use drives.get instead.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.teamdrives.get@.-module Network.Google.Resource.Drive.Teamdrives.Get-    (-    -- * REST Resource-      TeamdrivesGetResource--    -- * Creating a Request-    , teamdrivesGet-    , TeamdrivesGet--    -- * Request Lenses-    , tgTeamDriveId-    , tgUseDomainAdminAccess-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.teamdrives.get@ method which the--- 'TeamdrivesGet' request conforms to.-type TeamdrivesGetResource =-     "drive" :>-       "v3" :>-         "teamdrives" :>-           Capture "teamDriveId" Text :>-             QueryParam "useDomainAdminAccess" Bool :>-               QueryParam "alt" AltJSON :> Get '[JSON] TeamDrive---- | Deprecated use drives.get instead.------ /See:/ 'teamdrivesGet' smart constructor.-data TeamdrivesGet =-  TeamdrivesGet'-    { _tgTeamDriveId          :: !Text-    , _tgUseDomainAdminAccess :: !Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TeamdrivesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tgTeamDriveId'------ * 'tgUseDomainAdminAccess'-teamdrivesGet-    :: Text -- ^ 'tgTeamDriveId'-    -> TeamdrivesGet-teamdrivesGet pTgTeamDriveId_ =-  TeamdrivesGet'-    {_tgTeamDriveId = pTgTeamDriveId_, _tgUseDomainAdminAccess = False}----- | The ID of the Team Drive-tgTeamDriveId :: Lens' TeamdrivesGet Text-tgTeamDriveId-  = lens _tgTeamDriveId-      (\ s a -> s{_tgTeamDriveId = a})---- | Issue the request as a domain administrator; if set to true, then the--- requester will be granted access if they are an administrator of the--- domain to which the Team Drive belongs.-tgUseDomainAdminAccess :: Lens' TeamdrivesGet Bool-tgUseDomainAdminAccess-  = lens _tgUseDomainAdminAccess-      (\ s a -> s{_tgUseDomainAdminAccess = a})--instance GoogleRequest TeamdrivesGet where-        type Rs TeamdrivesGet = TeamDrive-        type Scopes TeamdrivesGet =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient TeamdrivesGet'{..}-          = go _tgTeamDriveId (Just _tgUseDomainAdminAccess)-              (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy TeamdrivesGetResource)-                      mempty
− gen/Network/Google/Resource/Drive/Teamdrives/List.hs 
@@ -1,127 +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.Drive.Teamdrives.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)------ Deprecated use drives.list instead.------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.teamdrives.list@.-module Network.Google.Resource.Drive.Teamdrives.List-    (-    -- * REST Resource-      TeamdrivesListResource--    -- * Creating a Request-    , teamdrivesList-    , TeamdrivesList--    -- * Request Lenses-    , tlQ-    , tlPageToken-    , tlUseDomainAdminAccess-    , tlPageSize-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.teamdrives.list@ method which the--- 'TeamdrivesList' request conforms to.-type TeamdrivesListResource =-     "drive" :>-       "v3" :>-         "teamdrives" :>-           QueryParam "q" Text :>-             QueryParam "pageToken" Text :>-               QueryParam "useDomainAdminAccess" Bool :>-                 QueryParam "pageSize" (Textual Int32) :>-                   QueryParam "alt" AltJSON :> Get '[JSON] TeamDriveList---- | Deprecated use drives.list instead.------ /See:/ 'teamdrivesList' smart constructor.-data TeamdrivesList =-  TeamdrivesList'-    { _tlQ                    :: !(Maybe Text)-    , _tlPageToken            :: !(Maybe Text)-    , _tlUseDomainAdminAccess :: !Bool-    , _tlPageSize             :: !(Textual Int32)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TeamdrivesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tlQ'------ * 'tlPageToken'------ * 'tlUseDomainAdminAccess'------ * 'tlPageSize'-teamdrivesList-    :: TeamdrivesList-teamdrivesList =-  TeamdrivesList'-    { _tlQ = Nothing-    , _tlPageToken = Nothing-    , _tlUseDomainAdminAccess = False-    , _tlPageSize = 10-    }----- | Query string for searching Team Drives.-tlQ :: Lens' TeamdrivesList (Maybe Text)-tlQ = lens _tlQ (\ s a -> s{_tlQ = a})---- | Page token for Team Drives.-tlPageToken :: Lens' TeamdrivesList (Maybe Text)-tlPageToken-  = lens _tlPageToken (\ s a -> s{_tlPageToken = a})---- | Issue the request as a domain administrator; if set to true, then all--- Team Drives of the domain in which the requester is an administrator are--- returned.-tlUseDomainAdminAccess :: Lens' TeamdrivesList Bool-tlUseDomainAdminAccess-  = lens _tlUseDomainAdminAccess-      (\ s a -> s{_tlUseDomainAdminAccess = a})---- | Maximum number of Team Drives to return.-tlPageSize :: Lens' TeamdrivesList Int32-tlPageSize-  = lens _tlPageSize (\ s a -> s{_tlPageSize = a}) .-      _Coerce--instance GoogleRequest TeamdrivesList where-        type Rs TeamdrivesList = TeamDriveList-        type Scopes TeamdrivesList =-             '["https://www.googleapis.com/auth/drive",-               "https://www.googleapis.com/auth/drive.readonly"]-        requestClient TeamdrivesList'{..}-          = go _tlQ _tlPageToken (Just _tlUseDomainAdminAccess)-              (Just _tlPageSize)-              (Just AltJSON)-              driveService-          where go-                  = buildClient (Proxy :: Proxy TeamdrivesListResource)-                      mempty
− gen/Network/Google/Resource/Drive/Teamdrives/Update.hs 
@@ -1,119 +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.Drive.Teamdrives.Update--- 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)------ Deprecated use drives.update instead------ /See:/ <https://developers.google.com/drive/ Drive API Reference> for @drive.teamdrives.update@.-module Network.Google.Resource.Drive.Teamdrives.Update-    (-    -- * REST Resource-      TeamdrivesUpdateResource--    -- * Creating a Request-    , teamdrivesUpdate-    , TeamdrivesUpdate--    -- * Request Lenses-    , tuPayload-    , tuTeamDriveId-    , tuUseDomainAdminAccess-    ) where--import           Network.Google.Drive.Types-import           Network.Google.Prelude---- | A resource alias for @drive.teamdrives.update@ method which the--- 'TeamdrivesUpdate' request conforms to.-type TeamdrivesUpdateResource =-     "drive" :>-       "v3" :>-         "teamdrives" :>-           Capture "teamDriveId" Text :>-             QueryParam "useDomainAdminAccess" Bool :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] TeamDrive :> Patch '[JSON] TeamDrive---- | Deprecated use drives.update instead------ /See:/ 'teamdrivesUpdate' smart constructor.-data TeamdrivesUpdate =-  TeamdrivesUpdate'-    { _tuPayload              :: !TeamDrive-    , _tuTeamDriveId          :: !Text-    , _tuUseDomainAdminAccess :: !Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TeamdrivesUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tuPayload'------ * 'tuTeamDriveId'------ * 'tuUseDomainAdminAccess'-teamdrivesUpdate-    :: TeamDrive -- ^ 'tuPayload'-    -> Text -- ^ 'tuTeamDriveId'-    -> TeamdrivesUpdate-teamdrivesUpdate pTuPayload_ pTuTeamDriveId_ =-  TeamdrivesUpdate'-    { _tuPayload = pTuPayload_-    , _tuTeamDriveId = pTuTeamDriveId_-    , _tuUseDomainAdminAccess = False-    }----- | Multipart request metadata.-tuPayload :: Lens' TeamdrivesUpdate TeamDrive-tuPayload-  = lens _tuPayload (\ s a -> s{_tuPayload = a})---- | The ID of the Team Drive-tuTeamDriveId :: Lens' TeamdrivesUpdate Text-tuTeamDriveId-  = lens _tuTeamDriveId-      (\ s a -> s{_tuTeamDriveId = a})---- | Issue the request as a domain administrator; if set to true, then the--- requester will be granted access if they are an administrator of the--- domain to which the Team Drive belongs.-tuUseDomainAdminAccess :: Lens' TeamdrivesUpdate Bool-tuUseDomainAdminAccess-  = lens _tuUseDomainAdminAccess-      (\ s a -> s{_tuUseDomainAdminAccess = a})--instance GoogleRequest TeamdrivesUpdate where-        type Rs TeamdrivesUpdate = TeamDrive-        type Scopes TeamdrivesUpdate =-             '["https://www.googleapis.com/auth/drive"]-        requestClient TeamdrivesUpdate'{..}-          = go _tuTeamDriveId (Just _tuUseDomainAdminAccess)-              (Just AltJSON)-              _tuPayload-              driveService-          where go-                  = buildClient-                      (Proxy :: Proxy TeamdrivesUpdateResource)-                      mempty
gogol-drive.cabal view
@@ -1,92 +1,118 @@-name:                  gogol-drive-version:               0.5.0-synopsis:              Google Drive 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-drive+version:            1.0.0+synopsis:           Google Drive 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:-    Manages files in Drive including uploading, downloading, searching,-    detecting changes, and updating sharing permissions.-    .-    /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 @v3@-    of the API.+  The Google Drive API allows clients to access resources from Google Drive.+  .+  /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 @v3@+  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-drive +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.Drive-        , Network.Google.Drive.Types-        , Network.Google.Resource.Drive.About.Get-        , Network.Google.Resource.Drive.Changes.GetStartPageToken-        , Network.Google.Resource.Drive.Changes.List-        , Network.Google.Resource.Drive.Changes.Watch-        , Network.Google.Resource.Drive.Channels.Stop-        , Network.Google.Resource.Drive.Comments.Create-        , Network.Google.Resource.Drive.Comments.Delete-        , Network.Google.Resource.Drive.Comments.Get-        , Network.Google.Resource.Drive.Comments.List-        , Network.Google.Resource.Drive.Comments.Update-        , Network.Google.Resource.Drive.Drives.Create-        , Network.Google.Resource.Drive.Drives.Delete-        , Network.Google.Resource.Drive.Drives.Get-        , Network.Google.Resource.Drive.Drives.Hide-        , Network.Google.Resource.Drive.Drives.List-        , Network.Google.Resource.Drive.Drives.Unhide-        , Network.Google.Resource.Drive.Drives.Update-        , Network.Google.Resource.Drive.Files.Copy-        , Network.Google.Resource.Drive.Files.Create-        , Network.Google.Resource.Drive.Files.Delete-        , Network.Google.Resource.Drive.Files.EmptyTrash-        , Network.Google.Resource.Drive.Files.Export-        , Network.Google.Resource.Drive.Files.GenerateIds-        , Network.Google.Resource.Drive.Files.Get-        , Network.Google.Resource.Drive.Files.List-        , Network.Google.Resource.Drive.Files.Update-        , Network.Google.Resource.Drive.Files.Watch-        , Network.Google.Resource.Drive.Permissions.Create-        , Network.Google.Resource.Drive.Permissions.Delete-        , Network.Google.Resource.Drive.Permissions.Get-        , Network.Google.Resource.Drive.Permissions.List-        , Network.Google.Resource.Drive.Permissions.Update-        , Network.Google.Resource.Drive.Replies.Create-        , Network.Google.Resource.Drive.Replies.Delete-        , Network.Google.Resource.Drive.Replies.Get-        , Network.Google.Resource.Drive.Replies.List-        , Network.Google.Resource.Drive.Replies.Update-        , Network.Google.Resource.Drive.Revisions.Delete-        , Network.Google.Resource.Drive.Revisions.Get-        , Network.Google.Resource.Drive.Revisions.List-        , Network.Google.Resource.Drive.Revisions.Update-        , Network.Google.Resource.Drive.Teamdrives.Create-        , Network.Google.Resource.Drive.Teamdrives.Delete-        , Network.Google.Resource.Drive.Teamdrives.Get-        , Network.Google.Resource.Drive.Teamdrives.List-        , Network.Google.Resource.Drive.Teamdrives.Update+  exposed-modules:+    Gogol.Drive+    Gogol.Drive.About.Get+    Gogol.Drive.Accessproposals.Get+    Gogol.Drive.Accessproposals.List+    Gogol.Drive.Accessproposals.Resolve+    Gogol.Drive.Apps.Get+    Gogol.Drive.Apps.List+    Gogol.Drive.Changes.GetStartPageToken+    Gogol.Drive.Changes.List+    Gogol.Drive.Changes.Watch+    Gogol.Drive.Channels.Stop+    Gogol.Drive.Comments.Create+    Gogol.Drive.Comments.Delete+    Gogol.Drive.Comments.Get+    Gogol.Drive.Comments.List+    Gogol.Drive.Comments.Update+    Gogol.Drive.Drives.Create+    Gogol.Drive.Drives.Delete+    Gogol.Drive.Drives.Get+    Gogol.Drive.Drives.Hide+    Gogol.Drive.Drives.List+    Gogol.Drive.Drives.Unhide+    Gogol.Drive.Drives.Update+    Gogol.Drive.Files.Copy+    Gogol.Drive.Files.Create+    Gogol.Drive.Files.Delete+    Gogol.Drive.Files.Download+    Gogol.Drive.Files.EmptyTrash+    Gogol.Drive.Files.Export+    Gogol.Drive.Files.GenerateIds+    Gogol.Drive.Files.Get+    Gogol.Drive.Files.List+    Gogol.Drive.Files.ListLabels+    Gogol.Drive.Files.ModifyLabels+    Gogol.Drive.Files.Update+    Gogol.Drive.Files.Watch+    Gogol.Drive.Operations.Cancel+    Gogol.Drive.Operations.Delete+    Gogol.Drive.Operations.Get+    Gogol.Drive.Operations.List+    Gogol.Drive.Permissions.Create+    Gogol.Drive.Permissions.Delete+    Gogol.Drive.Permissions.Get+    Gogol.Drive.Permissions.List+    Gogol.Drive.Permissions.Update+    Gogol.Drive.Replies.Create+    Gogol.Drive.Replies.Delete+    Gogol.Drive.Replies.Get+    Gogol.Drive.Replies.List+    Gogol.Drive.Replies.Update+    Gogol.Drive.Revisions.Delete+    Gogol.Drive.Revisions.Get+    Gogol.Drive.Revisions.List+    Gogol.Drive.Revisions.Update+    Gogol.Drive.Teamdrives.Create+    Gogol.Drive.Teamdrives.Delete+    Gogol.Drive.Teamdrives.Get+    Gogol.Drive.Teamdrives.List+    Gogol.Drive.Teamdrives.Update+    Gogol.Drive.Types -    other-modules:-          Network.Google.Drive.Types.Product-        , Network.Google.Drive.Types.Sum+  other-modules:+    Gogol.Drive.Internal.Product+    Gogol.Drive.Internal.Sum -    build-depends:-          gogol-core == 0.5.0.*-        , base       >= 4.7 && < 5+  build-depends:    gogol-core ^>=1.0.0