packages feed

gogol-gmail 0.5.0 → 1.0.0

raw patch · 158 files changed

+14716/−12795 lines, 158 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/Gmail.hs view
@@ -0,0 +1,812 @@+{-# 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.Gmail+-- 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 Gmail API lets you view and manage Gmail mailbox data like threads, messages, and labels.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference>+module Gogol.Gmail+  ( -- * Configuration+    gmailService,++    -- * OAuth Scopes+    Gmail'FullControl,+    Gmail'Addons'Current'Action'Compose,+    Gmail'Addons'Current'Message'Action,+    Gmail'Addons'Current'Message'Metadata,+    Gmail'Addons'Current'Message'Readonly,+    Gmail'Compose,+    Gmail'Insert,+    Gmail'Labels,+    Gmail'Metadata,+    Gmail'Modify,+    Gmail'Readonly,+    Gmail'Send,+    Gmail'Settings'Basic,+    Gmail'Settings'Sharing,++    -- * Resources++    -- ** gmail.users.drafts.create+    GmailUsersDraftsCreateResource,+    GmailUsersDraftsCreate (..),+    newGmailUsersDraftsCreate,++    -- ** gmail.users.drafts.delete+    GmailUsersDraftsDeleteResource,+    GmailUsersDraftsDelete (..),+    newGmailUsersDraftsDelete,++    -- ** gmail.users.drafts.get+    GmailUsersDraftsGetResource,+    GmailUsersDraftsGet (..),+    newGmailUsersDraftsGet,++    -- ** gmail.users.drafts.list+    GmailUsersDraftsListResource,+    GmailUsersDraftsList (..),+    newGmailUsersDraftsList,++    -- ** gmail.users.drafts.send+    GmailUsersDraftsSendResource,+    GmailUsersDraftsSend (..),+    newGmailUsersDraftsSend,++    -- ** gmail.users.drafts.update+    GmailUsersDraftsUpdateResource,+    GmailUsersDraftsUpdate (..),+    newGmailUsersDraftsUpdate,++    -- ** gmail.users.getProfile+    GmailUsersGetProfileResource,+    GmailUsersGetProfile (..),+    newGmailUsersGetProfile,++    -- ** gmail.users.history.list+    GmailUsersHistoryListResource,+    GmailUsersHistoryList (..),+    newGmailUsersHistoryList,++    -- ** gmail.users.labels.create+    GmailUsersLabelsCreateResource,+    GmailUsersLabelsCreate (..),+    newGmailUsersLabelsCreate,++    -- ** gmail.users.labels.delete+    GmailUsersLabelsDeleteResource,+    GmailUsersLabelsDelete (..),+    newGmailUsersLabelsDelete,++    -- ** gmail.users.labels.get+    GmailUsersLabelsGetResource,+    GmailUsersLabelsGet (..),+    newGmailUsersLabelsGet,++    -- ** gmail.users.labels.list+    GmailUsersLabelsListResource,+    GmailUsersLabelsList (..),+    newGmailUsersLabelsList,++    -- ** gmail.users.labels.patch+    GmailUsersLabelsPatchResource,+    GmailUsersLabelsPatch (..),+    newGmailUsersLabelsPatch,++    -- ** gmail.users.labels.update+    GmailUsersLabelsUpdateResource,+    GmailUsersLabelsUpdate (..),+    newGmailUsersLabelsUpdate,++    -- ** gmail.users.messages.attachments.get+    GmailUsersMessagesAttachmentsGetResource,+    GmailUsersMessagesAttachmentsGet (..),+    newGmailUsersMessagesAttachmentsGet,++    -- ** gmail.users.messages.batchDelete+    GmailUsersMessagesBatchDeleteResource,+    GmailUsersMessagesBatchDelete (..),+    newGmailUsersMessagesBatchDelete,++    -- ** gmail.users.messages.batchModify+    GmailUsersMessagesBatchModifyResource,+    GmailUsersMessagesBatchModify (..),+    newGmailUsersMessagesBatchModify,++    -- ** gmail.users.messages.delete+    GmailUsersMessagesDeleteResource,+    GmailUsersMessagesDelete (..),+    newGmailUsersMessagesDelete,++    -- ** gmail.users.messages.get+    GmailUsersMessagesGetResource,+    GmailUsersMessagesGet (..),+    newGmailUsersMessagesGet,++    -- ** gmail.users.messages.import+    GmailUsersMessagesImportResource,+    GmailUsersMessagesImport (..),+    newGmailUsersMessagesImport,++    -- ** gmail.users.messages.insert+    GmailUsersMessagesInsertResource,+    GmailUsersMessagesInsert (..),+    newGmailUsersMessagesInsert,++    -- ** gmail.users.messages.list+    GmailUsersMessagesListResource,+    GmailUsersMessagesList (..),+    newGmailUsersMessagesList,++    -- ** gmail.users.messages.modify+    GmailUsersMessagesModifyResource,+    GmailUsersMessagesModify (..),+    newGmailUsersMessagesModify,++    -- ** gmail.users.messages.send+    GmailUsersMessagesSendResource,+    GmailUsersMessagesSend (..),+    newGmailUsersMessagesSend,++    -- ** gmail.users.messages.trash+    GmailUsersMessagesTrashResource,+    GmailUsersMessagesTrash (..),+    newGmailUsersMessagesTrash,++    -- ** gmail.users.messages.untrash+    GmailUsersMessagesUntrashResource,+    GmailUsersMessagesUntrash (..),+    newGmailUsersMessagesUntrash,++    -- ** gmail.users.settings.cse.identities.create+    GmailUsersSettingsCseIdentitiesCreateResource,+    GmailUsersSettingsCseIdentitiesCreate (..),+    newGmailUsersSettingsCseIdentitiesCreate,++    -- ** gmail.users.settings.cse.identities.delete+    GmailUsersSettingsCseIdentitiesDeleteResource,+    GmailUsersSettingsCseIdentitiesDelete (..),+    newGmailUsersSettingsCseIdentitiesDelete,++    -- ** gmail.users.settings.cse.identities.get+    GmailUsersSettingsCseIdentitiesGetResource,+    GmailUsersSettingsCseIdentitiesGet (..),+    newGmailUsersSettingsCseIdentitiesGet,++    -- ** gmail.users.settings.cse.identities.list+    GmailUsersSettingsCseIdentitiesListResource,+    GmailUsersSettingsCseIdentitiesList (..),+    newGmailUsersSettingsCseIdentitiesList,++    -- ** gmail.users.settings.cse.identities.patch+    GmailUsersSettingsCseIdentitiesPatchResource,+    GmailUsersSettingsCseIdentitiesPatch (..),+    newGmailUsersSettingsCseIdentitiesPatch,++    -- ** gmail.users.settings.cse.keypairs.create+    GmailUsersSettingsCseKeypairsCreateResource,+    GmailUsersSettingsCseKeypairsCreate (..),+    newGmailUsersSettingsCseKeypairsCreate,++    -- ** gmail.users.settings.cse.keypairs.disable+    GmailUsersSettingsCseKeypairsDisableResource,+    GmailUsersSettingsCseKeypairsDisable (..),+    newGmailUsersSettingsCseKeypairsDisable,++    -- ** gmail.users.settings.cse.keypairs.enable+    GmailUsersSettingsCseKeypairsEnableResource,+    GmailUsersSettingsCseKeypairsEnable (..),+    newGmailUsersSettingsCseKeypairsEnable,++    -- ** gmail.users.settings.cse.keypairs.get+    GmailUsersSettingsCseKeypairsGetResource,+    GmailUsersSettingsCseKeypairsGet (..),+    newGmailUsersSettingsCseKeypairsGet,++    -- ** gmail.users.settings.cse.keypairs.list+    GmailUsersSettingsCseKeypairsListResource,+    GmailUsersSettingsCseKeypairsList (..),+    newGmailUsersSettingsCseKeypairsList,++    -- ** gmail.users.settings.cse.keypairs.obliterate+    GmailUsersSettingsCseKeypairsObliterateResource,+    GmailUsersSettingsCseKeypairsObliterate (..),+    newGmailUsersSettingsCseKeypairsObliterate,++    -- ** gmail.users.settings.delegates.create+    GmailUsersSettingsDelegatesCreateResource,+    GmailUsersSettingsDelegatesCreate (..),+    newGmailUsersSettingsDelegatesCreate,++    -- ** gmail.users.settings.delegates.delete+    GmailUsersSettingsDelegatesDeleteResource,+    GmailUsersSettingsDelegatesDelete (..),+    newGmailUsersSettingsDelegatesDelete,++    -- ** gmail.users.settings.delegates.get+    GmailUsersSettingsDelegatesGetResource,+    GmailUsersSettingsDelegatesGet (..),+    newGmailUsersSettingsDelegatesGet,++    -- ** gmail.users.settings.delegates.list+    GmailUsersSettingsDelegatesListResource,+    GmailUsersSettingsDelegatesList (..),+    newGmailUsersSettingsDelegatesList,++    -- ** gmail.users.settings.filters.create+    GmailUsersSettingsFiltersCreateResource,+    GmailUsersSettingsFiltersCreate (..),+    newGmailUsersSettingsFiltersCreate,++    -- ** gmail.users.settings.filters.delete+    GmailUsersSettingsFiltersDeleteResource,+    GmailUsersSettingsFiltersDelete (..),+    newGmailUsersSettingsFiltersDelete,++    -- ** gmail.users.settings.filters.get+    GmailUsersSettingsFiltersGetResource,+    GmailUsersSettingsFiltersGet (..),+    newGmailUsersSettingsFiltersGet,++    -- ** gmail.users.settings.filters.list+    GmailUsersSettingsFiltersListResource,+    GmailUsersSettingsFiltersList (..),+    newGmailUsersSettingsFiltersList,++    -- ** gmail.users.settings.forwardingAddresses.create+    GmailUsersSettingsForwardingAddressesCreateResource,+    GmailUsersSettingsForwardingAddressesCreate (..),+    newGmailUsersSettingsForwardingAddressesCreate,++    -- ** gmail.users.settings.forwardingAddresses.delete+    GmailUsersSettingsForwardingAddressesDeleteResource,+    GmailUsersSettingsForwardingAddressesDelete (..),+    newGmailUsersSettingsForwardingAddressesDelete,++    -- ** gmail.users.settings.forwardingAddresses.get+    GmailUsersSettingsForwardingAddressesGetResource,+    GmailUsersSettingsForwardingAddressesGet (..),+    newGmailUsersSettingsForwardingAddressesGet,++    -- ** gmail.users.settings.forwardingAddresses.list+    GmailUsersSettingsForwardingAddressesListResource,+    GmailUsersSettingsForwardingAddressesList (..),+    newGmailUsersSettingsForwardingAddressesList,++    -- ** gmail.users.settings.getAutoForwarding+    GmailUsersSettingsGetAutoForwardingResource,+    GmailUsersSettingsGetAutoForwarding (..),+    newGmailUsersSettingsGetAutoForwarding,++    -- ** gmail.users.settings.getImap+    GmailUsersSettingsGetImapResource,+    GmailUsersSettingsGetImap (..),+    newGmailUsersSettingsGetImap,++    -- ** gmail.users.settings.getLanguage+    GmailUsersSettingsGetLanguageResource,+    GmailUsersSettingsGetLanguage (..),+    newGmailUsersSettingsGetLanguage,++    -- ** gmail.users.settings.getPop+    GmailUsersSettingsGetPopResource,+    GmailUsersSettingsGetPop (..),+    newGmailUsersSettingsGetPop,++    -- ** gmail.users.settings.getVacation+    GmailUsersSettingsGetVacationResource,+    GmailUsersSettingsGetVacation (..),+    newGmailUsersSettingsGetVacation,++    -- ** gmail.users.settings.sendAs.create+    GmailUsersSettingsSendAsCreateResource,+    GmailUsersSettingsSendAsCreate (..),+    newGmailUsersSettingsSendAsCreate,++    -- ** gmail.users.settings.sendAs.delete+    GmailUsersSettingsSendAsDeleteResource,+    GmailUsersSettingsSendAsDelete (..),+    newGmailUsersSettingsSendAsDelete,++    -- ** gmail.users.settings.sendAs.get+    GmailUsersSettingsSendAsGetResource,+    GmailUsersSettingsSendAsGet (..),+    newGmailUsersSettingsSendAsGet,++    -- ** gmail.users.settings.sendAs.list+    GmailUsersSettingsSendAsListResource,+    GmailUsersSettingsSendAsList (..),+    newGmailUsersSettingsSendAsList,++    -- ** gmail.users.settings.sendAs.patch+    GmailUsersSettingsSendAsPatchResource,+    GmailUsersSettingsSendAsPatch (..),+    newGmailUsersSettingsSendAsPatch,++    -- ** gmail.users.settings.sendAs.smimeInfo.delete+    GmailUsersSettingsSendAsSmimeInfoDeleteResource,+    GmailUsersSettingsSendAsSmimeInfoDelete (..),+    newGmailUsersSettingsSendAsSmimeInfoDelete,++    -- ** gmail.users.settings.sendAs.smimeInfo.get+    GmailUsersSettingsSendAsSmimeInfoGetResource,+    GmailUsersSettingsSendAsSmimeInfoGet (..),+    newGmailUsersSettingsSendAsSmimeInfoGet,++    -- ** gmail.users.settings.sendAs.smimeInfo.insert+    GmailUsersSettingsSendAsSmimeInfoInsertResource,+    GmailUsersSettingsSendAsSmimeInfoInsert (..),+    newGmailUsersSettingsSendAsSmimeInfoInsert,++    -- ** gmail.users.settings.sendAs.smimeInfo.list+    GmailUsersSettingsSendAsSmimeInfoListResource,+    GmailUsersSettingsSendAsSmimeInfoList (..),+    newGmailUsersSettingsSendAsSmimeInfoList,++    -- ** gmail.users.settings.sendAs.smimeInfo.setDefault+    GmailUsersSettingsSendAsSmimeInfoSetDefaultResource,+    GmailUsersSettingsSendAsSmimeInfoSetDefault (..),+    newGmailUsersSettingsSendAsSmimeInfoSetDefault,++    -- ** gmail.users.settings.sendAs.update+    GmailUsersSettingsSendAsUpdateResource,+    GmailUsersSettingsSendAsUpdate (..),+    newGmailUsersSettingsSendAsUpdate,++    -- ** gmail.users.settings.sendAs.verify+    GmailUsersSettingsSendAsVerifyResource,+    GmailUsersSettingsSendAsVerify (..),+    newGmailUsersSettingsSendAsVerify,++    -- ** gmail.users.settings.updateAutoForwarding+    GmailUsersSettingsUpdateAutoForwardingResource,+    GmailUsersSettingsUpdateAutoForwarding (..),+    newGmailUsersSettingsUpdateAutoForwarding,++    -- ** gmail.users.settings.updateImap+    GmailUsersSettingsUpdateImapResource,+    GmailUsersSettingsUpdateImap (..),+    newGmailUsersSettingsUpdateImap,++    -- ** gmail.users.settings.updateLanguage+    GmailUsersSettingsUpdateLanguageResource,+    GmailUsersSettingsUpdateLanguage (..),+    newGmailUsersSettingsUpdateLanguage,++    -- ** gmail.users.settings.updatePop+    GmailUsersSettingsUpdatePopResource,+    GmailUsersSettingsUpdatePop (..),+    newGmailUsersSettingsUpdatePop,++    -- ** gmail.users.settings.updateVacation+    GmailUsersSettingsUpdateVacationResource,+    GmailUsersSettingsUpdateVacation (..),+    newGmailUsersSettingsUpdateVacation,++    -- ** gmail.users.stop+    GmailUsersStopResource,+    GmailUsersStop (..),+    newGmailUsersStop,++    -- ** gmail.users.threads.delete+    GmailUsersThreadsDeleteResource,+    GmailUsersThreadsDelete (..),+    newGmailUsersThreadsDelete,++    -- ** gmail.users.threads.get+    GmailUsersThreadsGetResource,+    GmailUsersThreadsGet (..),+    newGmailUsersThreadsGet,++    -- ** gmail.users.threads.list+    GmailUsersThreadsListResource,+    GmailUsersThreadsList (..),+    newGmailUsersThreadsList,++    -- ** gmail.users.threads.modify+    GmailUsersThreadsModifyResource,+    GmailUsersThreadsModify (..),+    newGmailUsersThreadsModify,++    -- ** gmail.users.threads.trash+    GmailUsersThreadsTrashResource,+    GmailUsersThreadsTrash (..),+    newGmailUsersThreadsTrash,++    -- ** gmail.users.threads.untrash+    GmailUsersThreadsUntrashResource,+    GmailUsersThreadsUntrash (..),+    newGmailUsersThreadsUntrash,++    -- ** gmail.users.watch+    GmailUsersWatchResource,+    GmailUsersWatch (..),+    newGmailUsersWatch,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** AutoForwarding+    AutoForwarding (..),+    newAutoForwarding,++    -- ** AutoForwarding_Disposition+    AutoForwarding_Disposition (..),++    -- ** BatchDeleteMessagesRequest+    BatchDeleteMessagesRequest (..),+    newBatchDeleteMessagesRequest,++    -- ** BatchModifyMessagesRequest+    BatchModifyMessagesRequest (..),+    newBatchModifyMessagesRequest,++    -- ** CseIdentity+    CseIdentity (..),+    newCseIdentity,++    -- ** CseKeyPair+    CseKeyPair (..),+    newCseKeyPair,++    -- ** CseKeyPair_EnablementState+    CseKeyPair_EnablementState (..),++    -- ** CsePrivateKeyMetadata+    CsePrivateKeyMetadata (..),+    newCsePrivateKeyMetadata,++    -- ** Delegate+    Delegate (..),+    newDelegate,++    -- ** Delegate_VerificationStatus+    Delegate_VerificationStatus (..),++    -- ** DisableCseKeyPairRequest+    DisableCseKeyPairRequest (..),+    newDisableCseKeyPairRequest,++    -- ** Draft+    Draft (..),+    newDraft,++    -- ** EnableCseKeyPairRequest+    EnableCseKeyPairRequest (..),+    newEnableCseKeyPairRequest,++    -- ** Filter+    Filter (..),+    newFilter,++    -- ** FilterAction+    FilterAction (..),+    newFilterAction,++    -- ** FilterCriteria+    FilterCriteria (..),+    newFilterCriteria,++    -- ** FilterCriteria_SizeComparison+    FilterCriteria_SizeComparison (..),++    -- ** ForwardingAddress+    ForwardingAddress (..),+    newForwardingAddress,++    -- ** ForwardingAddress_VerificationStatus+    ForwardingAddress_VerificationStatus (..),++    -- ** HardwareKeyMetadata+    HardwareKeyMetadata (..),+    newHardwareKeyMetadata,++    -- ** History+    History (..),+    newHistory,++    -- ** HistoryLabelAdded+    HistoryLabelAdded (..),+    newHistoryLabelAdded,++    -- ** HistoryLabelRemoved+    HistoryLabelRemoved (..),+    newHistoryLabelRemoved,++    -- ** HistoryMessageAdded+    HistoryMessageAdded (..),+    newHistoryMessageAdded,++    -- ** HistoryMessageDeleted+    HistoryMessageDeleted (..),+    newHistoryMessageDeleted,++    -- ** ImapSettings+    ImapSettings (..),+    newImapSettings,++    -- ** ImapSettings_ExpungeBehavior+    ImapSettings_ExpungeBehavior (..),++    -- ** KaclsKeyMetadata+    KaclsKeyMetadata (..),+    newKaclsKeyMetadata,++    -- ** Label+    Label (..),+    newLabel,++    -- ** Label_LabelListVisibility+    Label_LabelListVisibility (..),++    -- ** Label_MessageListVisibility+    Label_MessageListVisibility (..),++    -- ** Label_Type+    Label_Type (..),++    -- ** LabelColor+    LabelColor (..),+    newLabelColor,++    -- ** LanguageSettings+    LanguageSettings (..),+    newLanguageSettings,++    -- ** ListCseIdentitiesResponse+    ListCseIdentitiesResponse (..),+    newListCseIdentitiesResponse,++    -- ** ListCseKeyPairsResponse+    ListCseKeyPairsResponse (..),+    newListCseKeyPairsResponse,++    -- ** ListDelegatesResponse+    ListDelegatesResponse (..),+    newListDelegatesResponse,++    -- ** ListDraftsResponse+    ListDraftsResponse (..),+    newListDraftsResponse,++    -- ** ListFiltersResponse+    ListFiltersResponse (..),+    newListFiltersResponse,++    -- ** ListForwardingAddressesResponse+    ListForwardingAddressesResponse (..),+    newListForwardingAddressesResponse,++    -- ** ListHistoryResponse+    ListHistoryResponse (..),+    newListHistoryResponse,++    -- ** ListLabelsResponse+    ListLabelsResponse (..),+    newListLabelsResponse,++    -- ** ListMessagesResponse+    ListMessagesResponse (..),+    newListMessagesResponse,++    -- ** ListSendAsResponse+    ListSendAsResponse (..),+    newListSendAsResponse,++    -- ** ListSmimeInfoResponse+    ListSmimeInfoResponse (..),+    newListSmimeInfoResponse,++    -- ** ListThreadsResponse+    ListThreadsResponse (..),+    newListThreadsResponse,++    -- ** Message+    Message (..),+    newMessage,++    -- ** MessagePart+    MessagePart (..),+    newMessagePart,++    -- ** MessagePartBody+    MessagePartBody (..),+    newMessagePartBody,++    -- ** MessagePartHeader+    MessagePartHeader (..),+    newMessagePartHeader,++    -- ** ModifyMessageRequest+    ModifyMessageRequest (..),+    newModifyMessageRequest,++    -- ** ModifyThreadRequest+    ModifyThreadRequest (..),+    newModifyThreadRequest,++    -- ** ObliterateCseKeyPairRequest+    ObliterateCseKeyPairRequest (..),+    newObliterateCseKeyPairRequest,++    -- ** PopSettings+    PopSettings (..),+    newPopSettings,++    -- ** PopSettings_AccessWindow+    PopSettings_AccessWindow (..),++    -- ** PopSettings_Disposition+    PopSettings_Disposition (..),++    -- ** Profile+    Profile (..),+    newProfile,++    -- ** SendAs+    SendAs (..),+    newSendAs,++    -- ** SendAs_VerificationStatus+    SendAs_VerificationStatus (..),++    -- ** SignAndEncryptKeyPairs+    SignAndEncryptKeyPairs (..),+    newSignAndEncryptKeyPairs,++    -- ** SmimeInfo+    SmimeInfo (..),+    newSmimeInfo,++    -- ** SmtpMsa+    SmtpMsa (..),+    newSmtpMsa,++    -- ** SmtpMsa_SecurityMode+    SmtpMsa_SecurityMode (..),++    -- ** Thread+    Thread (..),+    newThread,++    -- ** VacationSettings+    VacationSettings (..),+    newVacationSettings,++    -- ** WatchRequest+    WatchRequest (..),+    newWatchRequest,++    -- ** WatchRequest_LabelFilterAction+    WatchRequest_LabelFilterAction (..),++    -- ** WatchRequest_LabelFilterBehavior+    WatchRequest_LabelFilterBehavior (..),++    -- ** WatchResponse+    WatchResponse (..),+    newWatchResponse,++    -- ** UsersDraftsGetFormat+    UsersDraftsGetFormat (..),++    -- ** UsersHistoryListHistoryTypes+    UsersHistoryListHistoryTypes (..),++    -- ** UsersMessagesGetFormat+    UsersMessagesGetFormat (..),++    -- ** UsersMessagesImportInternalDateSource+    UsersMessagesImportInternalDateSource (..),++    -- ** UsersMessagesInsertInternalDateSource+    UsersMessagesInsertInternalDateSource (..),++    -- ** UsersThreadsGetFormat+    UsersThreadsGetFormat (..),+  )+where++import Gogol.Gmail.Types+import Gogol.Gmail.Users.Drafts.Create+import Gogol.Gmail.Users.Drafts.Delete+import Gogol.Gmail.Users.Drafts.Get+import Gogol.Gmail.Users.Drafts.List+import Gogol.Gmail.Users.Drafts.Send+import Gogol.Gmail.Users.Drafts.Update+import Gogol.Gmail.Users.GetProfile+import Gogol.Gmail.Users.History.List+import Gogol.Gmail.Users.Labels.Create+import Gogol.Gmail.Users.Labels.Delete+import Gogol.Gmail.Users.Labels.Get+import Gogol.Gmail.Users.Labels.List+import Gogol.Gmail.Users.Labels.Patch+import Gogol.Gmail.Users.Labels.Update+import Gogol.Gmail.Users.Messages.Attachments.Get+import Gogol.Gmail.Users.Messages.BatchDelete+import Gogol.Gmail.Users.Messages.BatchModify+import Gogol.Gmail.Users.Messages.Delete+import Gogol.Gmail.Users.Messages.Get+import Gogol.Gmail.Users.Messages.Import+import Gogol.Gmail.Users.Messages.Insert+import Gogol.Gmail.Users.Messages.List+import Gogol.Gmail.Users.Messages.Modify+import Gogol.Gmail.Users.Messages.Send+import Gogol.Gmail.Users.Messages.Trash+import Gogol.Gmail.Users.Messages.Untrash+import Gogol.Gmail.Users.Settings.Cse.Identities.Create+import Gogol.Gmail.Users.Settings.Cse.Identities.Delete+import Gogol.Gmail.Users.Settings.Cse.Identities.Get+import Gogol.Gmail.Users.Settings.Cse.Identities.List+import Gogol.Gmail.Users.Settings.Cse.Identities.Patch+import Gogol.Gmail.Users.Settings.Cse.Keypairs.Create+import Gogol.Gmail.Users.Settings.Cse.Keypairs.Disable+import Gogol.Gmail.Users.Settings.Cse.Keypairs.Enable+import Gogol.Gmail.Users.Settings.Cse.Keypairs.Get+import Gogol.Gmail.Users.Settings.Cse.Keypairs.List+import Gogol.Gmail.Users.Settings.Cse.Keypairs.Obliterate+import Gogol.Gmail.Users.Settings.Delegates.Create+import Gogol.Gmail.Users.Settings.Delegates.Delete+import Gogol.Gmail.Users.Settings.Delegates.Get+import Gogol.Gmail.Users.Settings.Delegates.List+import Gogol.Gmail.Users.Settings.Filters.Create+import Gogol.Gmail.Users.Settings.Filters.Delete+import Gogol.Gmail.Users.Settings.Filters.Get+import Gogol.Gmail.Users.Settings.Filters.List+import Gogol.Gmail.Users.Settings.ForwardingAddresses.Create+import Gogol.Gmail.Users.Settings.ForwardingAddresses.Delete+import Gogol.Gmail.Users.Settings.ForwardingAddresses.Get+import Gogol.Gmail.Users.Settings.ForwardingAddresses.List+import Gogol.Gmail.Users.Settings.GetAutoForwarding+import Gogol.Gmail.Users.Settings.GetImap+import Gogol.Gmail.Users.Settings.GetLanguage+import Gogol.Gmail.Users.Settings.GetPop+import Gogol.Gmail.Users.Settings.GetVacation+import Gogol.Gmail.Users.Settings.SendAs.Create+import Gogol.Gmail.Users.Settings.SendAs.Delete+import Gogol.Gmail.Users.Settings.SendAs.Get+import Gogol.Gmail.Users.Settings.SendAs.List+import Gogol.Gmail.Users.Settings.SendAs.Patch+import Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.Delete+import Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.Get+import Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.Insert+import Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.List+import Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.SetDefault+import Gogol.Gmail.Users.Settings.SendAs.Update+import Gogol.Gmail.Users.Settings.SendAs.Verify+import Gogol.Gmail.Users.Settings.UpdateAutoForwarding+import Gogol.Gmail.Users.Settings.UpdateImap+import Gogol.Gmail.Users.Settings.UpdateLanguage+import Gogol.Gmail.Users.Settings.UpdatePop+import Gogol.Gmail.Users.Settings.UpdateVacation+import Gogol.Gmail.Users.Stop+import Gogol.Gmail.Users.Threads.Delete+import Gogol.Gmail.Users.Threads.Get+import Gogol.Gmail.Users.Threads.List+import Gogol.Gmail.Users.Threads.Modify+import Gogol.Gmail.Users.Threads.Trash+import Gogol.Gmail.Users.Threads.Untrash+import Gogol.Gmail.Users.Watch
+ gen/Gogol/Gmail/Internal/Product.hs view
@@ -0,0 +1,2498 @@+{-# 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.Gmail.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.Gmail.Internal.Product+  ( -- * AutoForwarding+    AutoForwarding (..),+    newAutoForwarding,++    -- * BatchDeleteMessagesRequest+    BatchDeleteMessagesRequest (..),+    newBatchDeleteMessagesRequest,++    -- * BatchModifyMessagesRequest+    BatchModifyMessagesRequest (..),+    newBatchModifyMessagesRequest,++    -- * CseIdentity+    CseIdentity (..),+    newCseIdentity,++    -- * CseKeyPair+    CseKeyPair (..),+    newCseKeyPair,++    -- * CsePrivateKeyMetadata+    CsePrivateKeyMetadata (..),+    newCsePrivateKeyMetadata,++    -- * Delegate+    Delegate (..),+    newDelegate,++    -- * DisableCseKeyPairRequest+    DisableCseKeyPairRequest (..),+    newDisableCseKeyPairRequest,++    -- * Draft+    Draft (..),+    newDraft,++    -- * EnableCseKeyPairRequest+    EnableCseKeyPairRequest (..),+    newEnableCseKeyPairRequest,++    -- * Filter+    Filter (..),+    newFilter,++    -- * FilterAction+    FilterAction (..),+    newFilterAction,++    -- * FilterCriteria+    FilterCriteria (..),+    newFilterCriteria,++    -- * ForwardingAddress+    ForwardingAddress (..),+    newForwardingAddress,++    -- * HardwareKeyMetadata+    HardwareKeyMetadata (..),+    newHardwareKeyMetadata,++    -- * History+    History (..),+    newHistory,++    -- * HistoryLabelAdded+    HistoryLabelAdded (..),+    newHistoryLabelAdded,++    -- * HistoryLabelRemoved+    HistoryLabelRemoved (..),+    newHistoryLabelRemoved,++    -- * HistoryMessageAdded+    HistoryMessageAdded (..),+    newHistoryMessageAdded,++    -- * HistoryMessageDeleted+    HistoryMessageDeleted (..),+    newHistoryMessageDeleted,++    -- * ImapSettings+    ImapSettings (..),+    newImapSettings,++    -- * KaclsKeyMetadata+    KaclsKeyMetadata (..),+    newKaclsKeyMetadata,++    -- * Label+    Label (..),+    newLabel,++    -- * LabelColor+    LabelColor (..),+    newLabelColor,++    -- * LanguageSettings+    LanguageSettings (..),+    newLanguageSettings,++    -- * ListCseIdentitiesResponse+    ListCseIdentitiesResponse (..),+    newListCseIdentitiesResponse,++    -- * ListCseKeyPairsResponse+    ListCseKeyPairsResponse (..),+    newListCseKeyPairsResponse,++    -- * ListDelegatesResponse+    ListDelegatesResponse (..),+    newListDelegatesResponse,++    -- * ListDraftsResponse+    ListDraftsResponse (..),+    newListDraftsResponse,++    -- * ListFiltersResponse+    ListFiltersResponse (..),+    newListFiltersResponse,++    -- * ListForwardingAddressesResponse+    ListForwardingAddressesResponse (..),+    newListForwardingAddressesResponse,++    -- * ListHistoryResponse+    ListHistoryResponse (..),+    newListHistoryResponse,++    -- * ListLabelsResponse+    ListLabelsResponse (..),+    newListLabelsResponse,++    -- * ListMessagesResponse+    ListMessagesResponse (..),+    newListMessagesResponse,++    -- * ListSendAsResponse+    ListSendAsResponse (..),+    newListSendAsResponse,++    -- * ListSmimeInfoResponse+    ListSmimeInfoResponse (..),+    newListSmimeInfoResponse,++    -- * ListThreadsResponse+    ListThreadsResponse (..),+    newListThreadsResponse,++    -- * Message+    Message (..),+    newMessage,++    -- * MessagePart+    MessagePart (..),+    newMessagePart,++    -- * MessagePartBody+    MessagePartBody (..),+    newMessagePartBody,++    -- * MessagePartHeader+    MessagePartHeader (..),+    newMessagePartHeader,++    -- * ModifyMessageRequest+    ModifyMessageRequest (..),+    newModifyMessageRequest,++    -- * ModifyThreadRequest+    ModifyThreadRequest (..),+    newModifyThreadRequest,++    -- * ObliterateCseKeyPairRequest+    ObliterateCseKeyPairRequest (..),+    newObliterateCseKeyPairRequest,++    -- * PopSettings+    PopSettings (..),+    newPopSettings,++    -- * Profile+    Profile (..),+    newProfile,++    -- * SendAs+    SendAs (..),+    newSendAs,++    -- * SignAndEncryptKeyPairs+    SignAndEncryptKeyPairs (..),+    newSignAndEncryptKeyPairs,++    -- * SmimeInfo+    SmimeInfo (..),+    newSmimeInfo,++    -- * SmtpMsa+    SmtpMsa (..),+    newSmtpMsa,++    -- * Thread+    Thread (..),+    newThread,++    -- * VacationSettings+    VacationSettings (..),+    newVacationSettings,++    -- * WatchRequest+    WatchRequest (..),+    newWatchRequest,++    -- * WatchResponse+    WatchResponse (..),+    newWatchResponse,+  )+where++import Gogol.Gmail.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Auto-forwarding settings for an account.+--+-- /See:/ 'newAutoForwarding' smart constructor.+data AutoForwarding = AutoForwarding+  { -- | The state that a message should be left in after it has been forwarded.+    disposition :: (Core.Maybe AutoForwarding_Disposition),+    -- | Email address to which all incoming messages are forwarded. This email address must be a verified member of the forwarding addresses.+    emailAddress :: (Core.Maybe Core.Text),+    -- | Whether all incoming mail is automatically forwarded to another address.+    enabled :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AutoForwarding' with the minimum fields required to make a request.+newAutoForwarding ::+  AutoForwarding+newAutoForwarding =+  AutoForwarding+    { disposition = Core.Nothing,+      emailAddress = Core.Nothing,+      enabled = Core.Nothing+    }++instance Core.FromJSON AutoForwarding where+  parseJSON =+    Core.withObject+      "AutoForwarding"+      ( \o ->+          AutoForwarding+            Core.<$> (o Core..:? "disposition")+            Core.<*> (o Core..:? "emailAddress")+            Core.<*> (o Core..:? "enabled")+      )++instance Core.ToJSON AutoForwarding where+  toJSON AutoForwarding {..} =+    Core.object+      ( Core.catMaybes+          [ ("disposition" Core..=) Core.<$> disposition,+            ("emailAddress" Core..=) Core.<$> emailAddress,+            ("enabled" Core..=) Core.<$> enabled+          ]+      )++--+-- /See:/ 'newBatchDeleteMessagesRequest' smart constructor.+newtype BatchDeleteMessagesRequest = BatchDeleteMessagesRequest+  { -- | The IDs of the messages to delete.+    ids :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BatchDeleteMessagesRequest' with the minimum fields required to make a request.+newBatchDeleteMessagesRequest ::+  BatchDeleteMessagesRequest+newBatchDeleteMessagesRequest =+  BatchDeleteMessagesRequest {ids = Core.Nothing}++instance Core.FromJSON BatchDeleteMessagesRequest where+  parseJSON =+    Core.withObject+      "BatchDeleteMessagesRequest"+      (\o -> BatchDeleteMessagesRequest Core.<$> (o Core..:? "ids"))++instance Core.ToJSON BatchDeleteMessagesRequest where+  toJSON BatchDeleteMessagesRequest {..} =+    Core.object (Core.catMaybes [("ids" Core..=) Core.<$> ids])++--+-- /See:/ 'newBatchModifyMessagesRequest' smart constructor.+data BatchModifyMessagesRequest = BatchModifyMessagesRequest+  { -- | A list of label IDs to add to messages.+    addLabelIds :: (Core.Maybe [Core.Text]),+    -- | The IDs of the messages to modify. There is a limit of 1000 ids per request.+    ids :: (Core.Maybe [Core.Text]),+    -- | A list of label IDs to remove from messages.+    removeLabelIds :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BatchModifyMessagesRequest' with the minimum fields required to make a request.+newBatchModifyMessagesRequest ::+  BatchModifyMessagesRequest+newBatchModifyMessagesRequest =+  BatchModifyMessagesRequest+    { addLabelIds = Core.Nothing,+      ids = Core.Nothing,+      removeLabelIds = Core.Nothing+    }++instance Core.FromJSON BatchModifyMessagesRequest where+  parseJSON =+    Core.withObject+      "BatchModifyMessagesRequest"+      ( \o ->+          BatchModifyMessagesRequest+            Core.<$> (o Core..:? "addLabelIds")+            Core.<*> (o Core..:? "ids")+            Core.<*> (o Core..:? "removeLabelIds")+      )++instance Core.ToJSON BatchModifyMessagesRequest where+  toJSON BatchModifyMessagesRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("addLabelIds" Core..=) Core.<$> addLabelIds,+            ("ids" Core..=) Core.<$> ids,+            ("removeLabelIds" Core..=) Core.<$> removeLabelIds+          ]+      )++-- | The client-side encryption (CSE) configuration for the email address of an authenticated user. Gmail uses CSE configurations to save drafts of client-side encrypted email messages, and to sign and send encrypted email messages.+--+-- /See:/ 'newCseIdentity' smart constructor.+data CseIdentity = CseIdentity+  { -- | The email address for the sending identity. The email address must be the primary email address of the authenticated user.+    emailAddress :: (Core.Maybe Core.Text),+    -- | If a key pair is associated, the ID of the key pair, CseKeyPair.+    primaryKeyPairId :: (Core.Maybe Core.Text),+    -- | The configuration of a CSE identity that uses different key pairs for signing and encryption.+    signAndEncryptKeyPairs :: (Core.Maybe SignAndEncryptKeyPairs)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CseIdentity' with the minimum fields required to make a request.+newCseIdentity ::+  CseIdentity+newCseIdentity =+  CseIdentity+    { emailAddress = Core.Nothing,+      primaryKeyPairId = Core.Nothing,+      signAndEncryptKeyPairs = Core.Nothing+    }++instance Core.FromJSON CseIdentity where+  parseJSON =+    Core.withObject+      "CseIdentity"+      ( \o ->+          CseIdentity+            Core.<$> (o Core..:? "emailAddress")+            Core.<*> (o Core..:? "primaryKeyPairId")+            Core.<*> (o Core..:? "signAndEncryptKeyPairs")+      )++instance Core.ToJSON CseIdentity where+  toJSON CseIdentity {..} =+    Core.object+      ( Core.catMaybes+          [ ("emailAddress" Core..=) Core.<$> emailAddress,+            ("primaryKeyPairId" Core..=) Core.<$> primaryKeyPairId,+            ("signAndEncryptKeyPairs" Core..=)+              Core.<$> signAndEncryptKeyPairs+          ]+      )++-- | A client-side encryption S\/MIME key pair, which is comprised of a public key, its certificate chain, and metadata for its paired private key. Gmail uses the key pair to complete the following tasks: - Sign outgoing client-side encrypted messages. - Save and reopen drafts of client-side encrypted messages. - Save and reopen sent messages. - Decrypt incoming or archived S\/MIME messages.+--+-- /See:/ 'newCseKeyPair' smart constructor.+data CseKeyPair = CseKeyPair+  { -- | Output only. If a key pair is set to @DISABLED@, the time that the key pair\'s state changed from @ENABLED@ to @DISABLED@. This field is present only when the key pair is in state @DISABLED@.+    disableTime :: (Core.Maybe Core.DateTime),+    -- | Output only. The current state of the key pair.+    enablementState :: (Core.Maybe CseKeyPair_EnablementState),+    -- | Output only. The immutable ID for the client-side encryption S\/MIME key pair.+    keyPairId :: (Core.Maybe Core.Text),+    -- | Output only. The public key and its certificate chain, in <https://en.wikipedia.org/wiki/Privacy-Enhanced_Mail PEM> format.+    pem :: (Core.Maybe Core.Text),+    -- | Input only. The public key and its certificate chain. The chain must be in <https://en.wikipedia.org/wiki/PKCS_7 PKCS#7> format and use PEM encoding and ASCII armor.+    pkcs7 :: (Core.Maybe Core.Text),+    -- | Metadata for instances of this key pair\'s private key.+    privateKeyMetadata :: (Core.Maybe [CsePrivateKeyMetadata]),+    -- | Output only. The email address identities that are specified on the leaf certificate.+    subjectEmailAddresses :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CseKeyPair' with the minimum fields required to make a request.+newCseKeyPair ::+  CseKeyPair+newCseKeyPair =+  CseKeyPair+    { disableTime = Core.Nothing,+      enablementState = Core.Nothing,+      keyPairId = Core.Nothing,+      pem = Core.Nothing,+      pkcs7 = Core.Nothing,+      privateKeyMetadata = Core.Nothing,+      subjectEmailAddresses = Core.Nothing+    }++instance Core.FromJSON CseKeyPair where+  parseJSON =+    Core.withObject+      "CseKeyPair"+      ( \o ->+          CseKeyPair+            Core.<$> (o Core..:? "disableTime")+            Core.<*> (o Core..:? "enablementState")+            Core.<*> (o Core..:? "keyPairId")+            Core.<*> (o Core..:? "pem")+            Core.<*> (o Core..:? "pkcs7")+            Core.<*> (o Core..:? "privateKeyMetadata")+            Core.<*> (o Core..:? "subjectEmailAddresses")+      )++instance Core.ToJSON CseKeyPair where+  toJSON CseKeyPair {..} =+    Core.object+      ( Core.catMaybes+          [ ("disableTime" Core..=) Core.<$> disableTime,+            ("enablementState" Core..=) Core.<$> enablementState,+            ("keyPairId" Core..=) Core.<$> keyPairId,+            ("pem" Core..=) Core.<$> pem,+            ("pkcs7" Core..=) Core.<$> pkcs7,+            ("privateKeyMetadata" Core..=) Core.<$> privateKeyMetadata,+            ("subjectEmailAddresses" Core..=) Core.<$> subjectEmailAddresses+          ]+      )++-- | Metadata for a private key instance.+--+-- /See:/ 'newCsePrivateKeyMetadata' smart constructor.+data CsePrivateKeyMetadata = CsePrivateKeyMetadata+  { -- | Metadata for hardware keys.+    hardwareKeyMetadata :: (Core.Maybe HardwareKeyMetadata),+    -- | Metadata for a private key instance managed by an external key access control list service.+    kaclsKeyMetadata :: (Core.Maybe KaclsKeyMetadata),+    -- | Output only. The immutable ID for the private key metadata instance.+    privateKeyMetadataId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CsePrivateKeyMetadata' with the minimum fields required to make a request.+newCsePrivateKeyMetadata ::+  CsePrivateKeyMetadata+newCsePrivateKeyMetadata =+  CsePrivateKeyMetadata+    { hardwareKeyMetadata = Core.Nothing,+      kaclsKeyMetadata = Core.Nothing,+      privateKeyMetadataId = Core.Nothing+    }++instance Core.FromJSON CsePrivateKeyMetadata where+  parseJSON =+    Core.withObject+      "CsePrivateKeyMetadata"+      ( \o ->+          CsePrivateKeyMetadata+            Core.<$> (o Core..:? "hardwareKeyMetadata")+            Core.<*> (o Core..:? "kaclsKeyMetadata")+            Core.<*> (o Core..:? "privateKeyMetadataId")+      )++instance Core.ToJSON CsePrivateKeyMetadata where+  toJSON CsePrivateKeyMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("hardwareKeyMetadata" Core..=) Core.<$> hardwareKeyMetadata,+            ("kaclsKeyMetadata" Core..=) Core.<$> kaclsKeyMetadata,+            ("privateKeyMetadataId" Core..=) Core.<$> privateKeyMetadataId+          ]+      )++-- | Settings for a delegate. Delegates can read, send, and delete messages, as well as view and add contacts, for the delegator\'s account. See \"Set up mail delegation\" for more information about delegates.+--+-- /See:/ 'newDelegate' smart constructor.+data Delegate = Delegate+  { -- | The email address of the delegate.+    delegateEmail :: (Core.Maybe Core.Text),+    -- | Indicates whether this address has been verified and can act as a delegate for the account. Read-only.+    verificationStatus :: (Core.Maybe Delegate_VerificationStatus)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Delegate' with the minimum fields required to make a request.+newDelegate ::+  Delegate+newDelegate =+  Delegate+    { delegateEmail = Core.Nothing,+      verificationStatus = Core.Nothing+    }++instance Core.FromJSON Delegate where+  parseJSON =+    Core.withObject+      "Delegate"+      ( \o ->+          Delegate+            Core.<$> (o Core..:? "delegateEmail")+            Core.<*> (o Core..:? "verificationStatus")+      )++instance Core.ToJSON Delegate where+  toJSON Delegate {..} =+    Core.object+      ( Core.catMaybes+          [ ("delegateEmail" Core..=) Core.<$> delegateEmail,+            ("verificationStatus" Core..=) Core.<$> verificationStatus+          ]+      )++-- | Requests to turn off a client-side encryption key pair.+--+-- /See:/ 'newDisableCseKeyPairRequest' smart constructor.+data DisableCseKeyPairRequest = DisableCseKeyPairRequest+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DisableCseKeyPairRequest' with the minimum fields required to make a request.+newDisableCseKeyPairRequest ::+  DisableCseKeyPairRequest+newDisableCseKeyPairRequest = DisableCseKeyPairRequest++instance Core.FromJSON DisableCseKeyPairRequest where+  parseJSON =+    Core.withObject+      "DisableCseKeyPairRequest"+      (\o -> Core.pure DisableCseKeyPairRequest)++instance Core.ToJSON DisableCseKeyPairRequest where+  toJSON = Core.const Core.emptyObject++-- | A draft email in the user\'s mailbox.+--+-- /See:/ 'newDraft' smart constructor.+data Draft = Draft+  { -- | The immutable ID of the draft.+    id :: (Core.Maybe Core.Text),+    -- | The message content of the draft.+    message :: (Core.Maybe Message)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Draft' with the minimum fields required to make a request.+newDraft ::+  Draft+newDraft = Draft {id = Core.Nothing, message = Core.Nothing}++instance Core.FromJSON Draft where+  parseJSON =+    Core.withObject+      "Draft"+      ( \o ->+          Draft Core.<$> (o Core..:? "id") Core.<*> (o Core..:? "message")+      )++instance Core.ToJSON Draft where+  toJSON Draft {..} =+    Core.object+      ( Core.catMaybes+          [("id" Core..=) Core.<$> id, ("message" Core..=) Core.<$> message]+      )++-- | Requests to turn on a client-side encryption key pair.+--+-- /See:/ 'newEnableCseKeyPairRequest' smart constructor.+data EnableCseKeyPairRequest = EnableCseKeyPairRequest+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'EnableCseKeyPairRequest' with the minimum fields required to make a request.+newEnableCseKeyPairRequest ::+  EnableCseKeyPairRequest+newEnableCseKeyPairRequest = EnableCseKeyPairRequest++instance Core.FromJSON EnableCseKeyPairRequest where+  parseJSON =+    Core.withObject+      "EnableCseKeyPairRequest"+      (\o -> Core.pure EnableCseKeyPairRequest)++instance Core.ToJSON EnableCseKeyPairRequest where+  toJSON = Core.const Core.emptyObject++-- | Resource definition for Gmail filters. Filters apply to specific messages instead of an entire email thread.+--+-- /See:/ 'newFilter' smart constructor.+data Filter = Filter+  { -- | Action that the filter performs.+    action :: (Core.Maybe FilterAction),+    -- | Matching criteria for the filter.+    criteria :: (Core.Maybe FilterCriteria),+    -- | The server assigned ID of the filter.+    id :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Filter' with the minimum fields required to make a request.+newFilter ::+  Filter+newFilter =+  Filter+    { action = Core.Nothing,+      criteria = Core.Nothing,+      id = Core.Nothing+    }++instance Core.FromJSON Filter where+  parseJSON =+    Core.withObject+      "Filter"+      ( \o ->+          Filter+            Core.<$> (o Core..:? "action")+            Core.<*> (o Core..:? "criteria")+            Core.<*> (o Core..:? "id")+      )++instance Core.ToJSON Filter where+  toJSON Filter {..} =+    Core.object+      ( Core.catMaybes+          [ ("action" Core..=) Core.<$> action,+            ("criteria" Core..=) Core.<$> criteria,+            ("id" Core..=) Core.<$> id+          ]+      )++-- | A set of actions to perform on a message.+--+-- /See:/ 'newFilterAction' smart constructor.+data FilterAction = FilterAction+  { -- | List of labels to add to the message.+    addLabelIds :: (Core.Maybe [Core.Text]),+    -- | Email address that the message should be forwarded to.+    forward :: (Core.Maybe Core.Text),+    -- | List of labels to remove from the message.+    removeLabelIds :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FilterAction' with the minimum fields required to make a request.+newFilterAction ::+  FilterAction+newFilterAction =+  FilterAction+    { addLabelIds = Core.Nothing,+      forward = Core.Nothing,+      removeLabelIds = Core.Nothing+    }++instance Core.FromJSON FilterAction where+  parseJSON =+    Core.withObject+      "FilterAction"+      ( \o ->+          FilterAction+            Core.<$> (o Core..:? "addLabelIds")+            Core.<*> (o Core..:? "forward")+            Core.<*> (o Core..:? "removeLabelIds")+      )++instance Core.ToJSON FilterAction where+  toJSON FilterAction {..} =+    Core.object+      ( Core.catMaybes+          [ ("addLabelIds" Core..=) Core.<$> addLabelIds,+            ("forward" Core..=) Core.<$> forward,+            ("removeLabelIds" Core..=) Core.<$> removeLabelIds+          ]+      )++-- | Message matching criteria.+--+-- /See:/ 'newFilterCriteria' smart constructor.+data FilterCriteria = FilterCriteria+  { -- | Whether the response should exclude chats.+    excludeChats :: (Core.Maybe Core.Bool),+    -- | The sender\'s display name or email address.+    from :: (Core.Maybe Core.Text),+    -- | Whether the message has any attachment.+    hasAttachment :: (Core.Maybe Core.Bool),+    -- | Only return messages not matching the specified query. Supports the same query format as the Gmail search box. For example, @\"from:someuser\@example.com rfc822msgid: is:unread\"@.+    negatedQuery :: (Core.Maybe Core.Text),+    -- | Only return messages matching the specified query. Supports the same query format as the Gmail search box. For example, @\"from:someuser\@example.com rfc822msgid: is:unread\"@.+    query :: (Core.Maybe Core.Text),+    -- | The size of the entire RFC822 message in bytes, including all headers and attachments.+    size :: (Core.Maybe Core.Int32),+    -- | How the message size in bytes should be in relation to the size field.+    sizeComparison :: (Core.Maybe FilterCriteria_SizeComparison),+    -- | Case-insensitive phrase found in the message\'s subject. Trailing and leading whitespace are be trimmed and adjacent spaces are collapsed.+    subject :: (Core.Maybe Core.Text),+    -- | The recipient\'s display name or email address. Includes recipients in the \"to\", \"cc\", and \"bcc\" header fields. You can use simply the local part of the email address. For example, \"example\" and \"example\@\" both match \"example\@gmail.com\". This field is case-insensitive.+    to :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FilterCriteria' with the minimum fields required to make a request.+newFilterCriteria ::+  FilterCriteria+newFilterCriteria =+  FilterCriteria+    { excludeChats = Core.Nothing,+      from = Core.Nothing,+      hasAttachment = Core.Nothing,+      negatedQuery = Core.Nothing,+      query = Core.Nothing,+      size = Core.Nothing,+      sizeComparison = Core.Nothing,+      subject = Core.Nothing,+      to = Core.Nothing+    }++instance Core.FromJSON FilterCriteria where+  parseJSON =+    Core.withObject+      "FilterCriteria"+      ( \o ->+          FilterCriteria+            Core.<$> (o Core..:? "excludeChats")+            Core.<*> (o Core..:? "from")+            Core.<*> (o Core..:? "hasAttachment")+            Core.<*> (o Core..:? "negatedQuery")+            Core.<*> (o Core..:? "query")+            Core.<*> (o Core..:? "size")+            Core.<*> (o Core..:? "sizeComparison")+            Core.<*> (o Core..:? "subject")+            Core.<*> (o Core..:? "to")+      )++instance Core.ToJSON FilterCriteria where+  toJSON FilterCriteria {..} =+    Core.object+      ( Core.catMaybes+          [ ("excludeChats" Core..=) Core.<$> excludeChats,+            ("from" Core..=) Core.<$> from,+            ("hasAttachment" Core..=) Core.<$> hasAttachment,+            ("negatedQuery" Core..=) Core.<$> negatedQuery,+            ("query" Core..=) Core.<$> query,+            ("size" Core..=) Core.<$> size,+            ("sizeComparison" Core..=) Core.<$> sizeComparison,+            ("subject" Core..=) Core.<$> subject,+            ("to" Core..=) Core.<$> to+          ]+      )++-- | Settings for a forwarding address.+--+-- /See:/ 'newForwardingAddress' smart constructor.+data ForwardingAddress = ForwardingAddress+  { -- | An email address to which messages can be forwarded.+    forwardingEmail :: (Core.Maybe Core.Text),+    -- | Indicates whether this address has been verified and is usable for forwarding. Read-only.+    verificationStatus :: (Core.Maybe ForwardingAddress_VerificationStatus)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ForwardingAddress' with the minimum fields required to make a request.+newForwardingAddress ::+  ForwardingAddress+newForwardingAddress =+  ForwardingAddress+    { forwardingEmail = Core.Nothing,+      verificationStatus = Core.Nothing+    }++instance Core.FromJSON ForwardingAddress where+  parseJSON =+    Core.withObject+      "ForwardingAddress"+      ( \o ->+          ForwardingAddress+            Core.<$> (o Core..:? "forwardingEmail")+            Core.<*> (o Core..:? "verificationStatus")+      )++instance Core.ToJSON ForwardingAddress where+  toJSON ForwardingAddress {..} =+    Core.object+      ( Core.catMaybes+          [ ("forwardingEmail" Core..=) Core.<$> forwardingEmail,+            ("verificationStatus" Core..=) Core.<$> verificationStatus+          ]+      )++-- | Metadata for hardware keys.+--+-- /See:/ 'newHardwareKeyMetadata' smart constructor.+newtype HardwareKeyMetadata = HardwareKeyMetadata+  { -- | Description about the hardware key.+    description :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'HardwareKeyMetadata' with the minimum fields required to make a request.+newHardwareKeyMetadata ::+  HardwareKeyMetadata+newHardwareKeyMetadata =+  HardwareKeyMetadata {description = Core.Nothing}++instance Core.FromJSON HardwareKeyMetadata where+  parseJSON =+    Core.withObject+      "HardwareKeyMetadata"+      (\o -> HardwareKeyMetadata Core.<$> (o Core..:? "description"))++instance Core.ToJSON HardwareKeyMetadata where+  toJSON HardwareKeyMetadata {..} =+    Core.object+      (Core.catMaybes [("description" Core..=) Core.<$> description])++-- | A record of a change to the user\'s mailbox. Each history change may affect multiple messages in multiple ways.+--+-- /See:/ 'newHistory' smart constructor.+data History = History+  { -- | The mailbox sequence ID.+    id :: (Core.Maybe Core.Word64),+    -- | Labels added to messages in this history record.+    labelsAdded :: (Core.Maybe [HistoryLabelAdded]),+    -- | Labels removed from messages in this history record.+    labelsRemoved :: (Core.Maybe [HistoryLabelRemoved]),+    -- | List of messages changed in this history record. The fields for specific change types, such as @messagesAdded@ may duplicate messages in this field. We recommend using the specific change-type fields instead of this.+    messages :: (Core.Maybe [Message]),+    -- | Messages added to the mailbox in this history record.+    messagesAdded :: (Core.Maybe [HistoryMessageAdded]),+    -- | Messages deleted (not Trashed) from the mailbox in this history record.+    messagesDeleted :: (Core.Maybe [HistoryMessageDeleted])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'History' with the minimum fields required to make a request.+newHistory ::+  History+newHistory =+  History+    { id = Core.Nothing,+      labelsAdded = Core.Nothing,+      labelsRemoved = Core.Nothing,+      messages = Core.Nothing,+      messagesAdded = Core.Nothing,+      messagesDeleted = Core.Nothing+    }++instance Core.FromJSON History where+  parseJSON =+    Core.withObject+      "History"+      ( \o ->+          History+            Core.<$> (o Core..:? "id" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "labelsAdded")+            Core.<*> (o Core..:? "labelsRemoved")+            Core.<*> (o Core..:? "messages")+            Core.<*> (o Core..:? "messagesAdded")+            Core.<*> (o Core..:? "messagesDeleted")+      )++instance Core.ToJSON History where+  toJSON History {..} =+    Core.object+      ( Core.catMaybes+          [ ("id" Core..=) Core.. Core.AsText Core.<$> id,+            ("labelsAdded" Core..=) Core.<$> labelsAdded,+            ("labelsRemoved" Core..=) Core.<$> labelsRemoved,+            ("messages" Core..=) Core.<$> messages,+            ("messagesAdded" Core..=) Core.<$> messagesAdded,+            ("messagesDeleted" Core..=) Core.<$> messagesDeleted+          ]+      )++--+-- /See:/ 'newHistoryLabelAdded' smart constructor.+data HistoryLabelAdded = HistoryLabelAdded+  { -- | Label IDs added to the message.+    labelIds :: (Core.Maybe [Core.Text]),+    message :: (Core.Maybe Message)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'HistoryLabelAdded' with the minimum fields required to make a request.+newHistoryLabelAdded ::+  HistoryLabelAdded+newHistoryLabelAdded =+  HistoryLabelAdded+    { labelIds = Core.Nothing,+      message = Core.Nothing+    }++instance Core.FromJSON HistoryLabelAdded where+  parseJSON =+    Core.withObject+      "HistoryLabelAdded"+      ( \o ->+          HistoryLabelAdded+            Core.<$> (o Core..:? "labelIds")+            Core.<*> (o Core..:? "message")+      )++instance Core.ToJSON HistoryLabelAdded where+  toJSON HistoryLabelAdded {..} =+    Core.object+      ( Core.catMaybes+          [ ("labelIds" Core..=) Core.<$> labelIds,+            ("message" Core..=) Core.<$> message+          ]+      )++--+-- /See:/ 'newHistoryLabelRemoved' smart constructor.+data HistoryLabelRemoved = HistoryLabelRemoved+  { -- | Label IDs removed from the message.+    labelIds :: (Core.Maybe [Core.Text]),+    message :: (Core.Maybe Message)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'HistoryLabelRemoved' with the minimum fields required to make a request.+newHistoryLabelRemoved ::+  HistoryLabelRemoved+newHistoryLabelRemoved =+  HistoryLabelRemoved+    { labelIds = Core.Nothing,+      message = Core.Nothing+    }++instance Core.FromJSON HistoryLabelRemoved where+  parseJSON =+    Core.withObject+      "HistoryLabelRemoved"+      ( \o ->+          HistoryLabelRemoved+            Core.<$> (o Core..:? "labelIds")+            Core.<*> (o Core..:? "message")+      )++instance Core.ToJSON HistoryLabelRemoved where+  toJSON HistoryLabelRemoved {..} =+    Core.object+      ( Core.catMaybes+          [ ("labelIds" Core..=) Core.<$> labelIds,+            ("message" Core..=) Core.<$> message+          ]+      )++--+-- /See:/ 'newHistoryMessageAdded' smart constructor.+newtype HistoryMessageAdded = HistoryMessageAdded+  { message :: (Core.Maybe Message)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'HistoryMessageAdded' with the minimum fields required to make a request.+newHistoryMessageAdded ::+  HistoryMessageAdded+newHistoryMessageAdded =+  HistoryMessageAdded {message = Core.Nothing}++instance Core.FromJSON HistoryMessageAdded where+  parseJSON =+    Core.withObject+      "HistoryMessageAdded"+      (\o -> HistoryMessageAdded Core.<$> (o Core..:? "message"))++instance Core.ToJSON HistoryMessageAdded where+  toJSON HistoryMessageAdded {..} =+    Core.object+      (Core.catMaybes [("message" Core..=) Core.<$> message])++--+-- /See:/ 'newHistoryMessageDeleted' smart constructor.+newtype HistoryMessageDeleted = HistoryMessageDeleted+  { message :: (Core.Maybe Message)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'HistoryMessageDeleted' with the minimum fields required to make a request.+newHistoryMessageDeleted ::+  HistoryMessageDeleted+newHistoryMessageDeleted =+  HistoryMessageDeleted {message = Core.Nothing}++instance Core.FromJSON HistoryMessageDeleted where+  parseJSON =+    Core.withObject+      "HistoryMessageDeleted"+      (\o -> HistoryMessageDeleted Core.<$> (o Core..:? "message"))++instance Core.ToJSON HistoryMessageDeleted where+  toJSON HistoryMessageDeleted {..} =+    Core.object+      (Core.catMaybes [("message" Core..=) Core.<$> message])++-- | IMAP settings for an account.+--+-- /See:/ 'newImapSettings' smart constructor.+data ImapSettings = ImapSettings+  { -- | If this value is true, Gmail will immediately expunge a message when it is marked as deleted in IMAP. Otherwise, Gmail will wait for an update from the client before expunging messages marked as deleted.+    autoExpunge :: (Core.Maybe Core.Bool),+    -- | Whether IMAP is enabled for the account.+    enabled :: (Core.Maybe Core.Bool),+    -- | The action that will be executed on a message when it is marked as deleted and expunged from the last visible IMAP folder.+    expungeBehavior :: (Core.Maybe ImapSettings_ExpungeBehavior),+    -- | An optional limit on the number of messages that an IMAP folder may contain. Legal values are 0, 1000, 2000, 5000 or 10000. A value of zero is interpreted to mean that there is no limit.+    maxFolderSize :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ImapSettings' with the minimum fields required to make a request.+newImapSettings ::+  ImapSettings+newImapSettings =+  ImapSettings+    { autoExpunge = Core.Nothing,+      enabled = Core.Nothing,+      expungeBehavior = Core.Nothing,+      maxFolderSize = Core.Nothing+    }++instance Core.FromJSON ImapSettings where+  parseJSON =+    Core.withObject+      "ImapSettings"+      ( \o ->+          ImapSettings+            Core.<$> (o Core..:? "autoExpunge")+            Core.<*> (o Core..:? "enabled")+            Core.<*> (o Core..:? "expungeBehavior")+            Core.<*> (o Core..:? "maxFolderSize")+      )++instance Core.ToJSON ImapSettings where+  toJSON ImapSettings {..} =+    Core.object+      ( Core.catMaybes+          [ ("autoExpunge" Core..=) Core.<$> autoExpunge,+            ("enabled" Core..=) Core.<$> enabled,+            ("expungeBehavior" Core..=) Core.<$> expungeBehavior,+            ("maxFolderSize" Core..=) Core.<$> maxFolderSize+          ]+      )++-- | Metadata for private keys managed by an external key access control list service. For details about managing key access, see <https://developers.google.com/workspace/cse/reference Google Workspace CSE API Reference>.+--+-- /See:/ 'newKaclsKeyMetadata' smart constructor.+data KaclsKeyMetadata = KaclsKeyMetadata+  { -- | Opaque data generated and used by the key access control list service. Maximum size: 8 KiB.+    kaclsData :: (Core.Maybe Core.Text),+    -- | The URI of the key access control list service that manages the private key.+    kaclsUri :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'KaclsKeyMetadata' with the minimum fields required to make a request.+newKaclsKeyMetadata ::+  KaclsKeyMetadata+newKaclsKeyMetadata =+  KaclsKeyMetadata+    { kaclsData = Core.Nothing,+      kaclsUri = Core.Nothing+    }++instance Core.FromJSON KaclsKeyMetadata where+  parseJSON =+    Core.withObject+      "KaclsKeyMetadata"+      ( \o ->+          KaclsKeyMetadata+            Core.<$> (o Core..:? "kaclsData")+            Core.<*> (o Core..:? "kaclsUri")+      )++instance Core.ToJSON KaclsKeyMetadata where+  toJSON KaclsKeyMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("kaclsData" Core..=) Core.<$> kaclsData,+            ("kaclsUri" Core..=) Core.<$> kaclsUri+          ]+      )++-- | Labels are used to categorize messages and threads within the user\'s mailbox. The maximum number of labels supported for a user\'s mailbox is 10,000.+--+-- /See:/ 'newLabel' smart constructor.+data Label = Label+  { -- | The color to assign to the label. Color is only available for labels that have their @type@ set to @user@.+    color :: (Core.Maybe LabelColor),+    -- | The immutable ID of the label.+    id :: (Core.Maybe Core.Text),+    -- | The visibility of the label in the label list in the Gmail web interface.+    labelListVisibility :: (Core.Maybe Label_LabelListVisibility),+    -- | The visibility of messages with this label in the message list in the Gmail web interface.+    messageListVisibility :: (Core.Maybe Label_MessageListVisibility),+    -- | The total number of messages with the label.+    messagesTotal :: (Core.Maybe Core.Int32),+    -- | The number of unread messages with the label.+    messagesUnread :: (Core.Maybe Core.Int32),+    -- | The display name of the label.+    name :: (Core.Maybe Core.Text),+    -- | The total number of threads with the label.+    threadsTotal :: (Core.Maybe Core.Int32),+    -- | The number of unread threads with the label.+    threadsUnread :: (Core.Maybe Core.Int32),+    -- | The owner type for the label. User labels are created by the user and can be modified and deleted by the user and can be applied to any message or thread. System labels are internally created and cannot be added, modified, or deleted. System labels may be able to be applied to or removed from messages and threads under some circumstances but this is not guaranteed. For example, users can apply and remove the @INBOX@ and @UNREAD@ labels from messages and threads, but cannot apply or remove the @DRAFTS@ or @SENT@ labels from messages or threads.+    type' :: (Core.Maybe Label_Type)+  }+  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+    { color = Core.Nothing,+      id = Core.Nothing,+      labelListVisibility = Core.Nothing,+      messageListVisibility = Core.Nothing,+      messagesTotal = Core.Nothing,+      messagesUnread = Core.Nothing,+      name = Core.Nothing,+      threadsTotal = Core.Nothing,+      threadsUnread = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON Label where+  parseJSON =+    Core.withObject+      "Label"+      ( \o ->+          Label+            Core.<$> (o Core..:? "color")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "labelListVisibility")+            Core.<*> (o Core..:? "messageListVisibility")+            Core.<*> (o Core..:? "messagesTotal")+            Core.<*> (o Core..:? "messagesUnread")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "threadsTotal")+            Core.<*> (o Core..:? "threadsUnread")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON Label where+  toJSON Label {..} =+    Core.object+      ( Core.catMaybes+          [ ("color" Core..=) Core.<$> color,+            ("id" Core..=) Core.<$> id,+            ("labelListVisibility" Core..=) Core.<$> labelListVisibility,+            ("messageListVisibility" Core..=) Core.<$> messageListVisibility,+            ("messagesTotal" Core..=) Core.<$> messagesTotal,+            ("messagesUnread" Core..=) Core.<$> messagesUnread,+            ("name" Core..=) Core.<$> name,+            ("threadsTotal" Core..=) Core.<$> threadsTotal,+            ("threadsUnread" Core..=) Core.<$> threadsUnread,+            ("type" Core..=) Core.<$> type'+          ]+      )++--+-- /See:/ 'newLabelColor' smart constructor.+data LabelColor = LabelColor+  { -- | The background color represented as hex string #RRGGBB (ex #000000). This field is required in order to set the color of a label. Only the following predefined set of color values are allowed: #000000, #434343, #666666, #999999, #cccccc, #efefef, #f3f3f3, #ffffff, #fb4c2f, #ffad47, #fad165, #16a766, #43d692, #4a86e8, #a479e2, #f691b3, #f6c5be, #ffe6c7, #fef1d1, #b9e4d0, #c6f3de, #c9daf8, #e4d7f5, #fcdee8, #efa093, #ffd6a2, #fce8b3, #89d3b2, #a0eac9, #a4c2f4, #d0bcf1, #fbc8d9, #e66550, #ffbc6b, #fcda83, #44b984, #68dfa9, #6d9eeb, #b694e8, #f7a7c0, #cc3a21, #eaa041, #f2c960, #149e60, #3dc789, #3c78d8, #8e63ce, #e07798, #ac2b16, #cf8933, #d5ae49, #0b804b, #2a9c68, #285bac, #653e9b, #b65775, #822111, #a46a21, #aa8831, #076239, #1a764d, #1c4587, #41236d, #83334c #464646, #e7e7e7, #0d3472, #b6cff5, #0d3b44, #98d7e4, #3d188e, #e3d7ff, #711a36, #fbd3e0, #8a1c0a, #f2b2a8, #7a2e0b, #ffc8af, #7a4706, #ffdeb5, #594c05, #fbe983, #684e07, #fdedc1, #0b4f30, #b3efd3, #04502e, #a2dcc1, #c2c2c2, #4986e7, #2da2bb, #b99aff,+    -- #994a64, #f691b2, #ff7537, #ffad46, #662e37, #ebdbde, #cca6ac, #094228, #42d692, #16a765+    backgroundColor :: (Core.Maybe Core.Text),+    -- | The text color of the label, represented as hex string. This field is required in order to set the color of a label. Only the following predefined set of color values are allowed: #000000, #434343, #666666, #999999, #cccccc, #efefef, #f3f3f3, #ffffff, #fb4c2f, #ffad47, #fad165, #16a766, #43d692, #4a86e8, #a479e2, #f691b3, #f6c5be, #ffe6c7, #fef1d1, #b9e4d0, #c6f3de, #c9daf8, #e4d7f5, #fcdee8, #efa093, #ffd6a2, #fce8b3, #89d3b2, #a0eac9, #a4c2f4, #d0bcf1, #fbc8d9, #e66550, #ffbc6b, #fcda83, #44b984, #68dfa9, #6d9eeb, #b694e8, #f7a7c0, #cc3a21, #eaa041, #f2c960, #149e60, #3dc789, #3c78d8, #8e63ce, #e07798, #ac2b16, #cf8933, #d5ae49, #0b804b, #2a9c68, #285bac, #653e9b, #b65775, #822111, #a46a21, #aa8831, #076239, #1a764d, #1c4587, #41236d, #83334c #464646, #e7e7e7, #0d3472, #b6cff5, #0d3b44, #98d7e4, #3d188e, #e3d7ff, #711a36, #fbd3e0, #8a1c0a, #f2b2a8, #7a2e0b, #ffc8af, #7a4706, #ffdeb5, #594c05, #fbe983, #684e07, #fdedc1, #0b4f30, #b3efd3, #04502e, #a2dcc1, #c2c2c2, #4986e7, #2da2bb, #b99aff, #994a64, #f691b2,+    -- #ff7537, #ffad46, #662e37, #ebdbde, #cca6ac, #094228, #42d692, #16a765+    textColor :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LabelColor' with the minimum fields required to make a request.+newLabelColor ::+  LabelColor+newLabelColor =+  LabelColor+    { backgroundColor = Core.Nothing,+      textColor = Core.Nothing+    }++instance Core.FromJSON LabelColor where+  parseJSON =+    Core.withObject+      "LabelColor"+      ( \o ->+          LabelColor+            Core.<$> (o Core..:? "backgroundColor")+            Core.<*> (o Core..:? "textColor")+      )++instance Core.ToJSON LabelColor where+  toJSON LabelColor {..} =+    Core.object+      ( Core.catMaybes+          [ ("backgroundColor" Core..=) Core.<$> backgroundColor,+            ("textColor" Core..=) Core.<$> textColor+          ]+      )++-- | Language settings for an account. These settings correspond to the \"Language settings\" feature in the web interface.+--+-- /See:/ 'newLanguageSettings' smart constructor.+newtype LanguageSettings = LanguageSettings+  { -- | The language to display Gmail in, formatted as an RFC 3066 Language Tag (for example @en-GB@, @fr@ or @ja@ for British English, French, or Japanese respectively). The set of languages supported by Gmail evolves over time, so please refer to the \"Language\" dropdown in the Gmail settings for all available options, as described in the language settings help article. A table of sample values is also provided in the Managing Language Settings guide Not all Gmail clients can display the same set of languages. In the case that a user\'s display language is not available for use on a particular client, said client automatically chooses to display in the closest supported variant (or a reasonable default).+    displayLanguage :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LanguageSettings' with the minimum fields required to make a request.+newLanguageSettings ::+  LanguageSettings+newLanguageSettings =+  LanguageSettings {displayLanguage = Core.Nothing}++instance Core.FromJSON LanguageSettings where+  parseJSON =+    Core.withObject+      "LanguageSettings"+      (\o -> LanguageSettings Core.<$> (o Core..:? "displayLanguage"))++instance Core.ToJSON LanguageSettings where+  toJSON LanguageSettings {..} =+    Core.object+      ( Core.catMaybes+          [("displayLanguage" Core..=) Core.<$> displayLanguage]+      )++--+-- /See:/ 'newListCseIdentitiesResponse' smart constructor.+data ListCseIdentitiesResponse = ListCseIdentitiesResponse+  { -- | One page of the list of CSE identities configured for the user.+    cseIdentities :: (Core.Maybe [CseIdentity]),+    -- | Pagination token to be passed to a subsequent ListCseIdentities call in order to retrieve the next page of identities. If this value is not returned or is the empty string, then no further pages remain.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListCseIdentitiesResponse' with the minimum fields required to make a request.+newListCseIdentitiesResponse ::+  ListCseIdentitiesResponse+newListCseIdentitiesResponse =+  ListCseIdentitiesResponse+    { cseIdentities = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ListCseIdentitiesResponse where+  parseJSON =+    Core.withObject+      "ListCseIdentitiesResponse"+      ( \o ->+          ListCseIdentitiesResponse+            Core.<$> (o Core..:? "cseIdentities")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ListCseIdentitiesResponse where+  toJSON ListCseIdentitiesResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("cseIdentities" Core..=) Core.<$> cseIdentities,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++--+-- /See:/ 'newListCseKeyPairsResponse' smart constructor.+data ListCseKeyPairsResponse = ListCseKeyPairsResponse+  { -- | One page of the list of CSE key pairs installed for the user.+    cseKeyPairs :: (Core.Maybe [CseKeyPair]),+    -- | Pagination token to be passed to a subsequent ListCseKeyPairs call in order to retrieve the next page of key pairs. If this value is not returned, then no further pages remain.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListCseKeyPairsResponse' with the minimum fields required to make a request.+newListCseKeyPairsResponse ::+  ListCseKeyPairsResponse+newListCseKeyPairsResponse =+  ListCseKeyPairsResponse+    { cseKeyPairs = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ListCseKeyPairsResponse where+  parseJSON =+    Core.withObject+      "ListCseKeyPairsResponse"+      ( \o ->+          ListCseKeyPairsResponse+            Core.<$> (o Core..:? "cseKeyPairs")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ListCseKeyPairsResponse where+  toJSON ListCseKeyPairsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("cseKeyPairs" Core..=) Core.<$> cseKeyPairs,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | Response for the ListDelegates method.+--+-- /See:/ 'newListDelegatesResponse' smart constructor.+newtype ListDelegatesResponse = ListDelegatesResponse+  { -- | List of the user\'s delegates (with any verification status). If an account doesn\'t have delegates, this field doesn\'t appear.+    delegates :: (Core.Maybe [Delegate])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListDelegatesResponse' with the minimum fields required to make a request.+newListDelegatesResponse ::+  ListDelegatesResponse+newListDelegatesResponse =+  ListDelegatesResponse {delegates = Core.Nothing}++instance Core.FromJSON ListDelegatesResponse where+  parseJSON =+    Core.withObject+      "ListDelegatesResponse"+      (\o -> ListDelegatesResponse Core.<$> (o Core..:? "delegates"))++instance Core.ToJSON ListDelegatesResponse where+  toJSON ListDelegatesResponse {..} =+    Core.object+      (Core.catMaybes [("delegates" Core..=) Core.<$> delegates])++--+-- /See:/ 'newListDraftsResponse' smart constructor.+data ListDraftsResponse = ListDraftsResponse+  { -- | List of drafts. Note that the @Message@ property in each @Draft@ resource only contains an @id@ and a @threadId@. The messages.get method can fetch additional message details.+    drafts :: (Core.Maybe [Draft]),+    -- | Token to retrieve the next page of results in the list.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | Estimated total number of results.+    resultSizeEstimate :: (Core.Maybe Core.Word32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListDraftsResponse' with the minimum fields required to make a request.+newListDraftsResponse ::+  ListDraftsResponse+newListDraftsResponse =+  ListDraftsResponse+    { drafts = Core.Nothing,+      nextPageToken = Core.Nothing,+      resultSizeEstimate = Core.Nothing+    }++instance Core.FromJSON ListDraftsResponse where+  parseJSON =+    Core.withObject+      "ListDraftsResponse"+      ( \o ->+          ListDraftsResponse+            Core.<$> (o Core..:? "drafts")+            Core.<*> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "resultSizeEstimate")+      )++instance Core.ToJSON ListDraftsResponse where+  toJSON ListDraftsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("drafts" Core..=) Core.<$> drafts,+            ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("resultSizeEstimate" Core..=) Core.<$> resultSizeEstimate+          ]+      )++-- | Response for the ListFilters method.+--+-- /See:/ 'newListFiltersResponse' smart constructor.+newtype ListFiltersResponse = ListFiltersResponse+  { -- | List of a user\'s filters.+    filter :: (Core.Maybe [Filter])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListFiltersResponse' with the minimum fields required to make a request.+newListFiltersResponse ::+  ListFiltersResponse+newListFiltersResponse = ListFiltersResponse {filter = Core.Nothing}++instance Core.FromJSON ListFiltersResponse where+  parseJSON =+    Core.withObject+      "ListFiltersResponse"+      (\o -> ListFiltersResponse Core.<$> (o Core..:? "filter"))++instance Core.ToJSON ListFiltersResponse where+  toJSON ListFiltersResponse {..} =+    Core.object (Core.catMaybes [("filter" Core..=) Core.<$> filter])++-- | Response for the ListForwardingAddresses method.+--+-- /See:/ 'newListForwardingAddressesResponse' smart constructor.+newtype ListForwardingAddressesResponse = ListForwardingAddressesResponse+  { -- | List of addresses that may be used for forwarding.+    forwardingAddresses :: (Core.Maybe [ForwardingAddress])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListForwardingAddressesResponse' with the minimum fields required to make a request.+newListForwardingAddressesResponse ::+  ListForwardingAddressesResponse+newListForwardingAddressesResponse =+  ListForwardingAddressesResponse+    { forwardingAddresses =+        Core.Nothing+    }++instance Core.FromJSON ListForwardingAddressesResponse where+  parseJSON =+    Core.withObject+      "ListForwardingAddressesResponse"+      ( \o ->+          ListForwardingAddressesResponse+            Core.<$> (o Core..:? "forwardingAddresses")+      )++instance Core.ToJSON ListForwardingAddressesResponse where+  toJSON ListForwardingAddressesResponse {..} =+    Core.object+      ( Core.catMaybes+          [("forwardingAddresses" Core..=) Core.<$> forwardingAddresses]+      )++--+-- /See:/ 'newListHistoryResponse' smart constructor.+data ListHistoryResponse = ListHistoryResponse+  { -- | List of history records. Any @messages@ contained in the response will typically only have @id@ and @threadId@ fields populated.+    history :: (Core.Maybe [History]),+    -- | The ID of the mailbox\'s current history record.+    historyId :: (Core.Maybe Core.Word64),+    -- | Page token to retrieve the next page of results in the list.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListHistoryResponse' with the minimum fields required to make a request.+newListHistoryResponse ::+  ListHistoryResponse+newListHistoryResponse =+  ListHistoryResponse+    { history = Core.Nothing,+      historyId = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ListHistoryResponse where+  parseJSON =+    Core.withObject+      "ListHistoryResponse"+      ( \o ->+          ListHistoryResponse+            Core.<$> (o Core..:? "history")+            Core.<*> (o Core..:? "historyId" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ListHistoryResponse where+  toJSON ListHistoryResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("history" Core..=) Core.<$> history,+            ("historyId" Core..=) Core.. Core.AsText Core.<$> historyId,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++--+-- /See:/ 'newListLabelsResponse' smart constructor.+newtype ListLabelsResponse = ListLabelsResponse+  { -- | List of labels. Note that each label resource only contains an @id@, @name@, @messageListVisibility@, @labelListVisibility@, and @type@. The labels.get method can fetch additional label details.+    labels :: (Core.Maybe [Label])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListLabelsResponse' with the minimum fields required to make a request.+newListLabelsResponse ::+  ListLabelsResponse+newListLabelsResponse = ListLabelsResponse {labels = Core.Nothing}++instance Core.FromJSON ListLabelsResponse where+  parseJSON =+    Core.withObject+      "ListLabelsResponse"+      (\o -> ListLabelsResponse Core.<$> (o Core..:? "labels"))++instance Core.ToJSON ListLabelsResponse where+  toJSON ListLabelsResponse {..} =+    Core.object (Core.catMaybes [("labels" Core..=) Core.<$> labels])++--+-- /See:/ 'newListMessagesResponse' smart constructor.+data ListMessagesResponse = ListMessagesResponse+  { -- | List of messages. Note that each message resource contains only an @id@ and a @threadId@. Additional message details can be fetched using the messages.get method.+    messages :: (Core.Maybe [Message]),+    -- | Token to retrieve the next page of results in the list.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | Estimated total number of results.+    resultSizeEstimate :: (Core.Maybe Core.Word32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListMessagesResponse' with the minimum fields required to make a request.+newListMessagesResponse ::+  ListMessagesResponse+newListMessagesResponse =+  ListMessagesResponse+    { messages = Core.Nothing,+      nextPageToken = Core.Nothing,+      resultSizeEstimate = Core.Nothing+    }++instance Core.FromJSON ListMessagesResponse where+  parseJSON =+    Core.withObject+      "ListMessagesResponse"+      ( \o ->+          ListMessagesResponse+            Core.<$> (o Core..:? "messages")+            Core.<*> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "resultSizeEstimate")+      )++instance Core.ToJSON ListMessagesResponse where+  toJSON ListMessagesResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("messages" Core..=) Core.<$> messages,+            ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("resultSizeEstimate" Core..=) Core.<$> resultSizeEstimate+          ]+      )++-- | Response for the ListSendAs method.+--+-- /See:/ 'newListSendAsResponse' smart constructor.+newtype ListSendAsResponse = ListSendAsResponse+  { -- | List of send-as aliases.+    sendAs :: (Core.Maybe [SendAs])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListSendAsResponse' with the minimum fields required to make a request.+newListSendAsResponse ::+  ListSendAsResponse+newListSendAsResponse = ListSendAsResponse {sendAs = Core.Nothing}++instance Core.FromJSON ListSendAsResponse where+  parseJSON =+    Core.withObject+      "ListSendAsResponse"+      (\o -> ListSendAsResponse Core.<$> (o Core..:? "sendAs"))++instance Core.ToJSON ListSendAsResponse where+  toJSON ListSendAsResponse {..} =+    Core.object (Core.catMaybes [("sendAs" Core..=) Core.<$> sendAs])++--+-- /See:/ 'newListSmimeInfoResponse' smart constructor.+newtype ListSmimeInfoResponse = ListSmimeInfoResponse+  { -- | List of SmimeInfo.+    smimeInfo :: (Core.Maybe [SmimeInfo])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListSmimeInfoResponse' with the minimum fields required to make a request.+newListSmimeInfoResponse ::+  ListSmimeInfoResponse+newListSmimeInfoResponse =+  ListSmimeInfoResponse {smimeInfo = Core.Nothing}++instance Core.FromJSON ListSmimeInfoResponse where+  parseJSON =+    Core.withObject+      "ListSmimeInfoResponse"+      (\o -> ListSmimeInfoResponse Core.<$> (o Core..:? "smimeInfo"))++instance Core.ToJSON ListSmimeInfoResponse where+  toJSON ListSmimeInfoResponse {..} =+    Core.object+      (Core.catMaybes [("smimeInfo" Core..=) Core.<$> smimeInfo])++--+-- /See:/ 'newListThreadsResponse' smart constructor.+data ListThreadsResponse = ListThreadsResponse+  { -- | Page token to retrieve the next page of results in the list.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | Estimated total number of results.+    resultSizeEstimate :: (Core.Maybe Core.Word32),+    -- | List of threads. Note that each thread resource does not contain a list of @messages@. The list of @messages@ for a given thread can be fetched using the threads.get method.+    threads :: (Core.Maybe [Thread])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListThreadsResponse' with the minimum fields required to make a request.+newListThreadsResponse ::+  ListThreadsResponse+newListThreadsResponse =+  ListThreadsResponse+    { nextPageToken = Core.Nothing,+      resultSizeEstimate = Core.Nothing,+      threads = Core.Nothing+    }++instance Core.FromJSON ListThreadsResponse where+  parseJSON =+    Core.withObject+      "ListThreadsResponse"+      ( \o ->+          ListThreadsResponse+            Core.<$> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "resultSizeEstimate")+            Core.<*> (o Core..:? "threads")+      )++instance Core.ToJSON ListThreadsResponse where+  toJSON ListThreadsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("resultSizeEstimate" Core..=) Core.<$> resultSizeEstimate,+            ("threads" Core..=) Core.<$> threads+          ]+      )++-- | An email message.+--+-- /See:/ 'newMessage' smart constructor.+data Message = Message+  { -- | The ID of the last history record that modified this message.+    historyId :: (Core.Maybe Core.Word64),+    -- | The immutable ID of the message.+    id :: (Core.Maybe Core.Text),+    -- | The internal message creation timestamp (epoch ms), which determines ordering in the inbox. For normal SMTP-received email, this represents the time the message was originally accepted by Google, which is more reliable than the @Date@ header. However, for API-migrated mail, it can be configured by client to be based on the @Date@ header.+    internalDate :: (Core.Maybe Core.Int64),+    -- | List of IDs of labels applied to this message.+    labelIds :: (Core.Maybe [Core.Text]),+    -- | The parsed email structure in the message parts.+    payload :: (Core.Maybe MessagePart),+    -- | The entire email message in an RFC 2822 formatted and base64url encoded string. Returned in @messages.get@ and @drafts.get@ responses when the @format=RAW@ parameter is supplied.+    raw :: (Core.Maybe Core.Base64),+    -- | Estimated size in bytes of the message.+    sizeEstimate :: (Core.Maybe Core.Int32),+    -- | A short part of the message text.+    snippet :: (Core.Maybe Core.Text),+    -- | The ID of the thread the message belongs to. To add a message or draft to a thread, the following criteria must be met: 1. The requested @threadId@ must be specified on the @Message@ or @Draft.Message@ you supply with your request. 2. The @References@ and @In-Reply-To@ headers must be set in compliance with the <https://tools.ietf.org/html/rfc2822 RFC 2822> standard. 3. The @Subject@ headers must match.+    threadId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Message' with the minimum fields required to make a request.+newMessage ::+  Message+newMessage =+  Message+    { historyId = Core.Nothing,+      id = Core.Nothing,+      internalDate = Core.Nothing,+      labelIds = Core.Nothing,+      payload = Core.Nothing,+      raw = Core.Nothing,+      sizeEstimate = Core.Nothing,+      snippet = Core.Nothing,+      threadId = Core.Nothing+    }++instance Core.FromJSON Message where+  parseJSON =+    Core.withObject+      "Message"+      ( \o ->+          Message+            Core.<$> (o Core..:? "historyId" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "internalDate" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "labelIds")+            Core.<*> (o Core..:? "payload")+            Core.<*> (o Core..:? "raw")+            Core.<*> (o Core..:? "sizeEstimate")+            Core.<*> (o Core..:? "snippet")+            Core.<*> (o Core..:? "threadId")+      )++instance Core.ToJSON Message where+  toJSON Message {..} =+    Core.object+      ( Core.catMaybes+          [ ("historyId" Core..=) Core.. Core.AsText Core.<$> historyId,+            ("id" Core..=) Core.<$> id,+            ("internalDate" Core..=) Core.. Core.AsText Core.<$> internalDate,+            ("labelIds" Core..=) Core.<$> labelIds,+            ("payload" Core..=) Core.<$> payload,+            ("raw" Core..=) Core.<$> raw,+            ("sizeEstimate" Core..=) Core.<$> sizeEstimate,+            ("snippet" Core..=) Core.<$> snippet,+            ("threadId" Core..=) Core.<$> threadId+          ]+      )++-- | A single MIME message part.+--+-- /See:/ 'newMessagePart' smart constructor.+data MessagePart = MessagePart+  { -- | The message part body for this part, which may be empty for container MIME message parts.+    body :: (Core.Maybe MessagePartBody),+    -- | The filename of the attachment. Only present if this message part represents an attachment.+    filename :: (Core.Maybe Core.Text),+    -- | List of headers on this message part. For the top-level message part, representing the entire message payload, it will contain the standard RFC 2822 email headers such as @To@, @From@, and @Subject@.+    headers :: (Core.Maybe [MessagePartHeader]),+    -- | The MIME type of the message part.+    mimeType :: (Core.Maybe Core.Text),+    -- | The immutable ID of the message part.+    partId :: (Core.Maybe Core.Text),+    -- | The child MIME message parts of this part. This only applies to container MIME message parts, for example @multipart\/*@. For non- container MIME message part types, such as @text\/plain@, this field is empty. For more information, see RFC 1521.+    parts :: (Core.Maybe [MessagePart])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MessagePart' with the minimum fields required to make a request.+newMessagePart ::+  MessagePart+newMessagePart =+  MessagePart+    { body = Core.Nothing,+      filename = Core.Nothing,+      headers = Core.Nothing,+      mimeType = Core.Nothing,+      partId = Core.Nothing,+      parts = Core.Nothing+    }++instance Core.FromJSON MessagePart where+  parseJSON =+    Core.withObject+      "MessagePart"+      ( \o ->+          MessagePart+            Core.<$> (o Core..:? "body")+            Core.<*> (o Core..:? "filename")+            Core.<*> (o Core..:? "headers")+            Core.<*> (o Core..:? "mimeType")+            Core.<*> (o Core..:? "partId")+            Core.<*> (o Core..:? "parts")+      )++instance Core.ToJSON MessagePart where+  toJSON MessagePart {..} =+    Core.object+      ( Core.catMaybes+          [ ("body" Core..=) Core.<$> body,+            ("filename" Core..=) Core.<$> filename,+            ("headers" Core..=) Core.<$> headers,+            ("mimeType" Core..=) Core.<$> mimeType,+            ("partId" Core..=) Core.<$> partId,+            ("parts" Core..=) Core.<$> parts+          ]+      )++-- | The body of a single MIME message part.+--+-- /See:/ 'newMessagePartBody' smart constructor.+data MessagePartBody = MessagePartBody+  { -- | When present, contains the ID of an external attachment that can be retrieved in a separate @messages.attachments.get@ request. When not present, the entire content of the message part body is contained in the data field.+    attachmentId :: (Core.Maybe Core.Text),+    -- | The body data of a MIME message part as a base64url encoded string. May be empty for MIME container types that have no message body or when the body data is sent as a separate attachment. An attachment ID is present if the body data is contained in a separate attachment.+    data' :: (Core.Maybe Core.Base64),+    -- | Number of bytes for the message part data (encoding notwithstanding).+    size :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MessagePartBody' with the minimum fields required to make a request.+newMessagePartBody ::+  MessagePartBody+newMessagePartBody =+  MessagePartBody+    { attachmentId = Core.Nothing,+      data' = Core.Nothing,+      size = Core.Nothing+    }++instance Core.FromJSON MessagePartBody where+  parseJSON =+    Core.withObject+      "MessagePartBody"+      ( \o ->+          MessagePartBody+            Core.<$> (o Core..:? "attachmentId")+            Core.<*> (o Core..:? "data")+            Core.<*> (o Core..:? "size")+      )++instance Core.ToJSON MessagePartBody where+  toJSON MessagePartBody {..} =+    Core.object+      ( Core.catMaybes+          [ ("attachmentId" Core..=) Core.<$> attachmentId,+            ("data" Core..=) Core.<$> data',+            ("size" Core..=) Core.<$> size+          ]+      )++--+-- /See:/ 'newMessagePartHeader' smart constructor.+data MessagePartHeader = MessagePartHeader+  { -- | The name of the header before the @:@ separator. For example, @To@.+    name :: (Core.Maybe Core.Text),+    -- | The value of the header after the @:@ separator. For example, @someuser\@example.com@.+    value :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MessagePartHeader' with the minimum fields required to make a request.+newMessagePartHeader ::+  MessagePartHeader+newMessagePartHeader =+  MessagePartHeader {name = Core.Nothing, value = Core.Nothing}++instance Core.FromJSON MessagePartHeader where+  parseJSON =+    Core.withObject+      "MessagePartHeader"+      ( \o ->+          MessagePartHeader+            Core.<$> (o Core..:? "name")+            Core.<*> (o Core..:? "value")+      )++instance Core.ToJSON MessagePartHeader where+  toJSON MessagePartHeader {..} =+    Core.object+      ( Core.catMaybes+          [("name" Core..=) Core.<$> name, ("value" Core..=) Core.<$> value]+      )++--+-- /See:/ 'newModifyMessageRequest' smart constructor.+data ModifyMessageRequest = ModifyMessageRequest+  { -- | A list of IDs of labels to add to this message. You can add up to 100 labels with each update.+    addLabelIds :: (Core.Maybe [Core.Text]),+    -- | A list IDs of labels to remove from this message. You can remove up to 100 labels with each update.+    removeLabelIds :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ModifyMessageRequest' with the minimum fields required to make a request.+newModifyMessageRequest ::+  ModifyMessageRequest+newModifyMessageRequest =+  ModifyMessageRequest+    { addLabelIds = Core.Nothing,+      removeLabelIds = Core.Nothing+    }++instance Core.FromJSON ModifyMessageRequest where+  parseJSON =+    Core.withObject+      "ModifyMessageRequest"+      ( \o ->+          ModifyMessageRequest+            Core.<$> (o Core..:? "addLabelIds")+            Core.<*> (o Core..:? "removeLabelIds")+      )++instance Core.ToJSON ModifyMessageRequest where+  toJSON ModifyMessageRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("addLabelIds" Core..=) Core.<$> addLabelIds,+            ("removeLabelIds" Core..=) Core.<$> removeLabelIds+          ]+      )++--+-- /See:/ 'newModifyThreadRequest' smart constructor.+data ModifyThreadRequest = ModifyThreadRequest+  { -- | A list of IDs of labels to add to this thread. You can add up to 100 labels with each update.+    addLabelIds :: (Core.Maybe [Core.Text]),+    -- | A list of IDs of labels to remove from this thread. You can remove up to 100 labels with each update.+    removeLabelIds :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ModifyThreadRequest' with the minimum fields required to make a request.+newModifyThreadRequest ::+  ModifyThreadRequest+newModifyThreadRequest =+  ModifyThreadRequest+    { addLabelIds = Core.Nothing,+      removeLabelIds = Core.Nothing+    }++instance Core.FromJSON ModifyThreadRequest where+  parseJSON =+    Core.withObject+      "ModifyThreadRequest"+      ( \o ->+          ModifyThreadRequest+            Core.<$> (o Core..:? "addLabelIds")+            Core.<*> (o Core..:? "removeLabelIds")+      )++instance Core.ToJSON ModifyThreadRequest where+  toJSON ModifyThreadRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("addLabelIds" Core..=) Core.<$> addLabelIds,+            ("removeLabelIds" Core..=) Core.<$> removeLabelIds+          ]+      )++-- | Request to obliterate a CSE key pair.+--+-- /See:/ 'newObliterateCseKeyPairRequest' smart constructor.+data ObliterateCseKeyPairRequest = ObliterateCseKeyPairRequest+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ObliterateCseKeyPairRequest' with the minimum fields required to make a request.+newObliterateCseKeyPairRequest ::+  ObliterateCseKeyPairRequest+newObliterateCseKeyPairRequest = ObliterateCseKeyPairRequest++instance Core.FromJSON ObliterateCseKeyPairRequest where+  parseJSON =+    Core.withObject+      "ObliterateCseKeyPairRequest"+      (\o -> Core.pure ObliterateCseKeyPairRequest)++instance Core.ToJSON ObliterateCseKeyPairRequest where+  toJSON = Core.const Core.emptyObject++-- | POP settings for an account.+--+-- /See:/ 'newPopSettings' smart constructor.+data PopSettings = PopSettings+  { -- | The range of messages which are accessible via POP.+    accessWindow :: (Core.Maybe PopSettings_AccessWindow),+    -- | The action that will be executed on a message after it has been fetched via POP.+    disposition :: (Core.Maybe PopSettings_Disposition)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PopSettings' with the minimum fields required to make a request.+newPopSettings ::+  PopSettings+newPopSettings =+  PopSettings+    { accessWindow = Core.Nothing,+      disposition = Core.Nothing+    }++instance Core.FromJSON PopSettings where+  parseJSON =+    Core.withObject+      "PopSettings"+      ( \o ->+          PopSettings+            Core.<$> (o Core..:? "accessWindow")+            Core.<*> (o Core..:? "disposition")+      )++instance Core.ToJSON PopSettings where+  toJSON PopSettings {..} =+    Core.object+      ( Core.catMaybes+          [ ("accessWindow" Core..=) Core.<$> accessWindow,+            ("disposition" Core..=) Core.<$> disposition+          ]+      )++-- | Profile for a Gmail user.+--+-- /See:/ 'newProfile' smart constructor.+data Profile = Profile+  { -- | The user\'s email address.+    emailAddress :: (Core.Maybe Core.Text),+    -- | The ID of the mailbox\'s current history record.+    historyId :: (Core.Maybe Core.Word64),+    -- | The total number of messages in the mailbox.+    messagesTotal :: (Core.Maybe Core.Int32),+    -- | The total number of threads in the mailbox.+    threadsTotal :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Profile' with the minimum fields required to make a request.+newProfile ::+  Profile+newProfile =+  Profile+    { emailAddress = Core.Nothing,+      historyId = Core.Nothing,+      messagesTotal = Core.Nothing,+      threadsTotal = Core.Nothing+    }++instance Core.FromJSON Profile where+  parseJSON =+    Core.withObject+      "Profile"+      ( \o ->+          Profile+            Core.<$> (o Core..:? "emailAddress")+            Core.<*> (o Core..:? "historyId" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "messagesTotal")+            Core.<*> (o Core..:? "threadsTotal")+      )++instance Core.ToJSON Profile where+  toJSON Profile {..} =+    Core.object+      ( Core.catMaybes+          [ ("emailAddress" Core..=) Core.<$> emailAddress,+            ("historyId" Core..=) Core.. Core.AsText Core.<$> historyId,+            ("messagesTotal" Core..=) Core.<$> messagesTotal,+            ("threadsTotal" Core..=) Core.<$> threadsTotal+          ]+      )++-- | Settings associated with a send-as alias, which can be either the primary login address associated with the account or a custom \"from\" address. Send-as aliases correspond to the \"Send Mail As\" feature in the web interface.+--+-- /See:/ 'newSendAs' smart constructor.+data SendAs = SendAs+  { -- | A name that appears in the \"From:\" header for mail sent using this alias. For custom \"from\" addresses, when this is empty, Gmail will populate the \"From:\" header with the name that is used for the primary address associated with the account. If the admin has disabled the ability for users to update their name format, requests to update this field for the primary login will silently fail.+    displayName :: (Core.Maybe Core.Text),+    -- | Whether this address is selected as the default \"From:\" address in situations such as composing a new message or sending a vacation auto-reply. Every Gmail account has exactly one default send-as address, so the only legal value that clients may write to this field is @true@. Changing this from @false@ to @true@ for an address will result in this field becoming @false@ for the other previous default address.+    isDefault :: (Core.Maybe Core.Bool),+    -- | Whether this address is the primary address used to login to the account. Every Gmail account has exactly one primary address, and it cannot be deleted from the collection of send-as aliases. This field is read-only.+    isPrimary :: (Core.Maybe Core.Bool),+    -- | An optional email address that is included in a \"Reply-To:\" header for mail sent using this alias. If this is empty, Gmail will not generate a \"Reply-To:\" header.+    replyToAddress :: (Core.Maybe Core.Text),+    -- | The email address that appears in the \"From:\" header for mail sent using this alias. This is read-only for all operations except create.+    sendAsEmail :: (Core.Maybe Core.Text),+    -- | An optional HTML signature that is included in messages composed with this alias in the Gmail web UI. This signature is added to new emails only.+    signature :: (Core.Maybe Core.Text),+    -- | An optional SMTP service that will be used as an outbound relay for mail sent using this alias. If this is empty, outbound mail will be sent directly from Gmail\'s servers to the destination SMTP service. This setting only applies to custom \"from\" aliases.+    smtpMsa :: (Core.Maybe SmtpMsa),+    -- | Whether Gmail should treat this address as an alias for the user\'s primary email address. This setting only applies to custom \"from\" aliases.+    treatAsAlias :: (Core.Maybe Core.Bool),+    -- | Indicates whether this address has been verified for use as a send-as alias. Read-only. This setting only applies to custom \"from\" aliases.+    verificationStatus :: (Core.Maybe SendAs_VerificationStatus)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SendAs' with the minimum fields required to make a request.+newSendAs ::+  SendAs+newSendAs =+  SendAs+    { displayName = Core.Nothing,+      isDefault = Core.Nothing,+      isPrimary = Core.Nothing,+      replyToAddress = Core.Nothing,+      sendAsEmail = Core.Nothing,+      signature = Core.Nothing,+      smtpMsa = Core.Nothing,+      treatAsAlias = Core.Nothing,+      verificationStatus = Core.Nothing+    }++instance Core.FromJSON SendAs where+  parseJSON =+    Core.withObject+      "SendAs"+      ( \o ->+          SendAs+            Core.<$> (o Core..:? "displayName")+            Core.<*> (o Core..:? "isDefault")+            Core.<*> (o Core..:? "isPrimary")+            Core.<*> (o Core..:? "replyToAddress")+            Core.<*> (o Core..:? "sendAsEmail")+            Core.<*> (o Core..:? "signature")+            Core.<*> (o Core..:? "smtpMsa")+            Core.<*> (o Core..:? "treatAsAlias")+            Core.<*> (o Core..:? "verificationStatus")+      )++instance Core.ToJSON SendAs where+  toJSON SendAs {..} =+    Core.object+      ( Core.catMaybes+          [ ("displayName" Core..=) Core.<$> displayName,+            ("isDefault" Core..=) Core.<$> isDefault,+            ("isPrimary" Core..=) Core.<$> isPrimary,+            ("replyToAddress" Core..=) Core.<$> replyToAddress,+            ("sendAsEmail" Core..=) Core.<$> sendAsEmail,+            ("signature" Core..=) Core.<$> signature,+            ("smtpMsa" Core..=) Core.<$> smtpMsa,+            ("treatAsAlias" Core..=) Core.<$> treatAsAlias,+            ("verificationStatus" Core..=) Core.<$> verificationStatus+          ]+      )++-- | The configuration of a CSE identity that uses different key pairs for signing and encryption.+--+-- /See:/ 'newSignAndEncryptKeyPairs' smart constructor.+data SignAndEncryptKeyPairs = SignAndEncryptKeyPairs+  { -- | The ID of the CseKeyPair that encrypts signed outgoing mail.+    encryptionKeyPairId :: (Core.Maybe Core.Text),+    -- | The ID of the CseKeyPair that signs outgoing mail.+    signingKeyPairId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SignAndEncryptKeyPairs' with the minimum fields required to make a request.+newSignAndEncryptKeyPairs ::+  SignAndEncryptKeyPairs+newSignAndEncryptKeyPairs =+  SignAndEncryptKeyPairs+    { encryptionKeyPairId = Core.Nothing,+      signingKeyPairId = Core.Nothing+    }++instance Core.FromJSON SignAndEncryptKeyPairs where+  parseJSON =+    Core.withObject+      "SignAndEncryptKeyPairs"+      ( \o ->+          SignAndEncryptKeyPairs+            Core.<$> (o Core..:? "encryptionKeyPairId")+            Core.<*> (o Core..:? "signingKeyPairId")+      )++instance Core.ToJSON SignAndEncryptKeyPairs where+  toJSON SignAndEncryptKeyPairs {..} =+    Core.object+      ( Core.catMaybes+          [ ("encryptionKeyPairId" Core..=) Core.<$> encryptionKeyPairId,+            ("signingKeyPairId" Core..=) Core.<$> signingKeyPairId+          ]+      )++-- | An S\/MIME email config.+--+-- /See:/ 'newSmimeInfo' smart constructor.+data SmimeInfo = SmimeInfo+  { -- | Encrypted key password, when key is encrypted.+    encryptedKeyPassword :: (Core.Maybe Core.Text),+    -- | When the certificate expires (in milliseconds since epoch).+    expiration :: (Core.Maybe Core.Int64),+    -- | The immutable ID for the SmimeInfo.+    id :: (Core.Maybe Core.Text),+    -- | Whether this SmimeInfo is the default one for this user\'s send-as address.+    isDefault :: (Core.Maybe Core.Bool),+    -- | The S\/MIME certificate issuer\'s common name.+    issuerCn :: (Core.Maybe Core.Text),+    -- | PEM formatted X509 concatenated certificate string (standard base64 encoding). Format used for returning key, which includes public key as well as certificate chain (not private key).+    pem :: (Core.Maybe Core.Text),+    -- | PKCS#12 format containing a single private\/public key pair and certificate chain. This format is only accepted from client for creating a new SmimeInfo and is never returned, because the private key is not intended to be exported. PKCS#12 may be encrypted, in which case encryptedKeyPassword should be set appropriately.+    pkcs12 :: (Core.Maybe Core.Base64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SmimeInfo' with the minimum fields required to make a request.+newSmimeInfo ::+  SmimeInfo+newSmimeInfo =+  SmimeInfo+    { encryptedKeyPassword = Core.Nothing,+      expiration = Core.Nothing,+      id = Core.Nothing,+      isDefault = Core.Nothing,+      issuerCn = Core.Nothing,+      pem = Core.Nothing,+      pkcs12 = Core.Nothing+    }++instance Core.FromJSON SmimeInfo where+  parseJSON =+    Core.withObject+      "SmimeInfo"+      ( \o ->+          SmimeInfo+            Core.<$> (o Core..:? "encryptedKeyPassword")+            Core.<*> (o Core..:? "expiration" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "isDefault")+            Core.<*> (o Core..:? "issuerCn")+            Core.<*> (o Core..:? "pem")+            Core.<*> (o Core..:? "pkcs12")+      )++instance Core.ToJSON SmimeInfo where+  toJSON SmimeInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("encryptedKeyPassword" Core..=) Core.<$> encryptedKeyPassword,+            ("expiration" Core..=) Core.. Core.AsText Core.<$> expiration,+            ("id" Core..=) Core.<$> id,+            ("isDefault" Core..=) Core.<$> isDefault,+            ("issuerCn" Core..=) Core.<$> issuerCn,+            ("pem" Core..=) Core.<$> pem,+            ("pkcs12" Core..=) Core.<$> pkcs12+          ]+      )++-- | Configuration for communication with an SMTP service.+--+-- /See:/ 'newSmtpMsa' smart constructor.+data SmtpMsa = SmtpMsa+  { -- | The hostname of the SMTP service. Required.+    host :: (Core.Maybe Core.Text),+    -- | The password that will be used for authentication with the SMTP service. This is a write-only field that can be specified in requests to create or update SendAs settings; it is never populated in responses.+    password :: (Core.Maybe Core.Text),+    -- | The port of the SMTP service. Required.+    port :: (Core.Maybe Core.Int32),+    -- | The protocol that will be used to secure communication with the SMTP service. Required.+    securityMode :: (Core.Maybe SmtpMsa_SecurityMode),+    -- | The username that will be used for authentication with the SMTP service. This is a write-only field that can be specified in requests to create or update SendAs settings; it is never populated in responses.+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SmtpMsa' with the minimum fields required to make a request.+newSmtpMsa ::+  SmtpMsa+newSmtpMsa =+  SmtpMsa+    { host = Core.Nothing,+      password = Core.Nothing,+      port = Core.Nothing,+      securityMode = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON SmtpMsa where+  parseJSON =+    Core.withObject+      "SmtpMsa"+      ( \o ->+          SmtpMsa+            Core.<$> (o Core..:? "host")+            Core.<*> (o Core..:? "password")+            Core.<*> (o Core..:? "port")+            Core.<*> (o Core..:? "securityMode")+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON SmtpMsa where+  toJSON SmtpMsa {..} =+    Core.object+      ( Core.catMaybes+          [ ("host" Core..=) Core.<$> host,+            ("password" Core..=) Core.<$> password,+            ("port" Core..=) Core.<$> port,+            ("securityMode" Core..=) Core.<$> securityMode,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | A collection of messages representing a conversation.+--+-- /See:/ 'newThread' smart constructor.+data Thread = Thread+  { -- | The ID of the last history record that modified this thread.+    historyId :: (Core.Maybe Core.Word64),+    -- | The unique ID of the thread.+    id :: (Core.Maybe Core.Text),+    -- | The list of messages in the thread.+    messages :: (Core.Maybe [Message]),+    -- | A short part of the message text.+    snippet :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Thread' with the minimum fields required to make a request.+newThread ::+  Thread+newThread =+  Thread+    { historyId = Core.Nothing,+      id = Core.Nothing,+      messages = Core.Nothing,+      snippet = Core.Nothing+    }++instance Core.FromJSON Thread where+  parseJSON =+    Core.withObject+      "Thread"+      ( \o ->+          Thread+            Core.<$> (o Core..:? "historyId" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "messages")+            Core.<*> (o Core..:? "snippet")+      )++instance Core.ToJSON Thread where+  toJSON Thread {..} =+    Core.object+      ( Core.catMaybes+          [ ("historyId" Core..=) Core.. Core.AsText Core.<$> historyId,+            ("id" Core..=) Core.<$> id,+            ("messages" Core..=) Core.<$> messages,+            ("snippet" Core..=) Core.<$> snippet+          ]+      )++-- | Vacation auto-reply settings for an account. These settings correspond to the \"Vacation responder\" feature in the web interface.+--+-- /See:/ 'newVacationSettings' smart constructor.+data VacationSettings = VacationSettings+  { -- | Flag that controls whether Gmail automatically replies to messages.+    enableAutoReply :: (Core.Maybe Core.Bool),+    -- | An optional end time for sending auto-replies (epoch ms). When this is specified, Gmail will automatically reply only to messages that it receives before the end time. If both @startTime@ and @endTime@ are specified, @startTime@ must precede @endTime@.+    endTime :: (Core.Maybe Core.Int64),+    -- | Response body in HTML format. Gmail will sanitize the HTML before storing it. If both @response_body_plain_text@ and @response_body_html@ are specified, @response_body_html@ will be used.+    responseBodyHtml :: (Core.Maybe Core.Text),+    -- | Response body in plain text format. If both @response_body_plain_text@ and @response_body_html@ are specified, @response_body_html@ will be used.+    responseBodyPlainText :: (Core.Maybe Core.Text),+    -- | Optional text to prepend to the subject line in vacation responses. In order to enable auto-replies, either the response subject or the response body must be nonempty.+    responseSubject :: (Core.Maybe Core.Text),+    -- | Flag that determines whether responses are sent to recipients who are not in the user\'s list of contacts.+    restrictToContacts :: (Core.Maybe Core.Bool),+    -- | Flag that determines whether responses are sent to recipients who are outside of the user\'s domain. This feature is only available for Google Workspace users.+    restrictToDomain :: (Core.Maybe Core.Bool),+    -- | An optional start time for sending auto-replies (epoch ms). When this is specified, Gmail will automatically reply only to messages that it receives after the start time. If both @startTime@ and @endTime@ are specified, @startTime@ must precede @endTime@.+    startTime :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'VacationSettings' with the minimum fields required to make a request.+newVacationSettings ::+  VacationSettings+newVacationSettings =+  VacationSettings+    { enableAutoReply = Core.Nothing,+      endTime = Core.Nothing,+      responseBodyHtml = Core.Nothing,+      responseBodyPlainText = Core.Nothing,+      responseSubject = Core.Nothing,+      restrictToContacts = Core.Nothing,+      restrictToDomain = Core.Nothing,+      startTime = Core.Nothing+    }++instance Core.FromJSON VacationSettings where+  parseJSON =+    Core.withObject+      "VacationSettings"+      ( \o ->+          VacationSettings+            Core.<$> (o Core..:? "enableAutoReply")+            Core.<*> (o Core..:? "endTime" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "responseBodyHtml")+            Core.<*> (o Core..:? "responseBodyPlainText")+            Core.<*> (o Core..:? "responseSubject")+            Core.<*> (o Core..:? "restrictToContacts")+            Core.<*> (o Core..:? "restrictToDomain")+            Core.<*> (o Core..:? "startTime" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON VacationSettings where+  toJSON VacationSettings {..} =+    Core.object+      ( Core.catMaybes+          [ ("enableAutoReply" Core..=) Core.<$> enableAutoReply,+            ("endTime" Core..=) Core.. Core.AsText Core.<$> endTime,+            ("responseBodyHtml" Core..=) Core.<$> responseBodyHtml,+            ("responseBodyPlainText" Core..=) Core.<$> responseBodyPlainText,+            ("responseSubject" Core..=) Core.<$> responseSubject,+            ("restrictToContacts" Core..=) Core.<$> restrictToContacts,+            ("restrictToDomain" Core..=) Core.<$> restrictToDomain,+            ("startTime" Core..=) Core.. Core.AsText Core.<$> startTime+          ]+      )++-- | Set up or update a new push notification watch on this user\'s mailbox.+--+-- /See:/ 'newWatchRequest' smart constructor.+data WatchRequest = WatchRequest+  { -- | Filtering behavior of @labelIds list@ specified. This field is deprecated because it caused incorrect behavior in some cases; use @label_filter_behavior@ instead.+    labelFilterAction :: (Core.Maybe WatchRequest_LabelFilterAction),+    -- | Filtering behavior of @labelIds list@ specified. This field replaces @label_filter_action@; if set, @label_filter_action@ is ignored.+    labelFilterBehavior :: (Core.Maybe WatchRequest_LabelFilterBehavior),+    -- | List of label_ids to restrict notifications about. By default, if unspecified, all changes are pushed out. If specified then dictates which labels are required for a push notification to be generated.+    labelIds :: (Core.Maybe [Core.Text]),+    -- | A fully qualified Google Cloud Pub\/Sub API topic name to publish the events to. This topic name __must__ already exist in Cloud Pub\/Sub and you __must__ have already granted gmail \"publish\" permission on it. For example, \"projects\/my-project-identifier\/topics\/my-topic-name\" (using the Cloud Pub\/Sub \"v1\" topic naming format). Note that the \"my-project-identifier\" portion must exactly match your Google developer project id (the one executing this watch request).+    topicName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WatchRequest' with the minimum fields required to make a request.+newWatchRequest ::+  WatchRequest+newWatchRequest =+  WatchRequest+    { labelFilterAction = Core.Nothing,+      labelFilterBehavior = Core.Nothing,+      labelIds = Core.Nothing,+      topicName = Core.Nothing+    }++instance Core.FromJSON WatchRequest where+  parseJSON =+    Core.withObject+      "WatchRequest"+      ( \o ->+          WatchRequest+            Core.<$> (o Core..:? "labelFilterAction")+            Core.<*> (o Core..:? "labelFilterBehavior")+            Core.<*> (o Core..:? "labelIds")+            Core.<*> (o Core..:? "topicName")+      )++instance Core.ToJSON WatchRequest where+  toJSON WatchRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("labelFilterAction" Core..=) Core.<$> labelFilterAction,+            ("labelFilterBehavior" Core..=) Core.<$> labelFilterBehavior,+            ("labelIds" Core..=) Core.<$> labelIds,+            ("topicName" Core..=) Core.<$> topicName+          ]+      )++-- | Push notification watch response.+--+-- /See:/ 'newWatchResponse' smart constructor.+data WatchResponse = WatchResponse+  { -- | When Gmail will stop sending notifications for mailbox updates (epoch millis). Call @watch@ again before this time to renew the watch.+    expiration :: (Core.Maybe Core.Int64),+    -- | The ID of the mailbox\'s current history record.+    historyId :: (Core.Maybe Core.Word64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WatchResponse' with the minimum fields required to make a request.+newWatchResponse ::+  WatchResponse+newWatchResponse =+  WatchResponse+    { expiration = Core.Nothing,+      historyId = Core.Nothing+    }++instance Core.FromJSON WatchResponse where+  parseJSON =+    Core.withObject+      "WatchResponse"+      ( \o ->+          WatchResponse+            Core.<$> (o Core..:? "expiration" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "historyId" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON WatchResponse where+  toJSON WatchResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("expiration" Core..=) Core.. Core.AsText Core.<$> expiration,+            ("historyId" Core..=) Core.. Core.AsText Core.<$> historyId+          ]+      )
+ gen/Gogol/Gmail/Internal/Sum.hs view
@@ -0,0 +1,934 @@+{-# 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.Gmail.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.Gmail.Internal.Sum+  ( -- * Xgafv+    Xgafv+      ( Xgafv_1,+        Xgafv_2,+        ..+      ),++    -- * AutoForwarding_Disposition+    AutoForwarding_Disposition+      ( AutoForwarding_Disposition_DispositionUnspecified,+        AutoForwarding_Disposition_LeaveInInbox,+        AutoForwarding_Disposition_Archive,+        AutoForwarding_Disposition_Trash,+        AutoForwarding_Disposition_MarkRead,+        ..+      ),++    -- * CseKeyPair_EnablementState+    CseKeyPair_EnablementState+      ( CseKeyPair_EnablementState_StateUnspecified,+        CseKeyPair_EnablementState_Enabled,+        CseKeyPair_EnablementState_Disabled,+        ..+      ),++    -- * Delegate_VerificationStatus+    Delegate_VerificationStatus+      ( Delegate_VerificationStatus_VerificationStatusUnspecified,+        Delegate_VerificationStatus_Accepted,+        Delegate_VerificationStatus_Pending,+        Delegate_VerificationStatus_Rejected,+        Delegate_VerificationStatus_Expired,+        ..+      ),++    -- * FilterCriteria_SizeComparison+    FilterCriteria_SizeComparison+      ( FilterCriteria_SizeComparison_Unspecified,+        FilterCriteria_SizeComparison_Smaller,+        FilterCriteria_SizeComparison_Larger,+        ..+      ),++    -- * ForwardingAddress_VerificationStatus+    ForwardingAddress_VerificationStatus+      ( ForwardingAddress_VerificationStatus_VerificationStatusUnspecified,+        ForwardingAddress_VerificationStatus_Accepted,+        ForwardingAddress_VerificationStatus_Pending,+        ..+      ),++    -- * ImapSettings_ExpungeBehavior+    ImapSettings_ExpungeBehavior+      ( ImapSettings_ExpungeBehavior_ExpungeBehaviorUnspecified,+        ImapSettings_ExpungeBehavior_Archive,+        ImapSettings_ExpungeBehavior_Trash,+        ImapSettings_ExpungeBehavior_DeleteForever,+        ..+      ),++    -- * Label_LabelListVisibility+    Label_LabelListVisibility+      ( Label_LabelListVisibility_LabelShow,+        Label_LabelListVisibility_LabelShowIfUnread,+        Label_LabelListVisibility_LabelHide,+        ..+      ),++    -- * Label_MessageListVisibility+    Label_MessageListVisibility+      ( Label_MessageListVisibility_Show,+        Label_MessageListVisibility_Hide,+        ..+      ),++    -- * Label_Type+    Label_Type+      ( Label_Type_System,+        Label_Type_User,+        ..+      ),++    -- * PopSettings_AccessWindow+    PopSettings_AccessWindow+      ( PopSettings_AccessWindow_AccessWindowUnspecified,+        PopSettings_AccessWindow_Disabled,+        PopSettings_AccessWindow_FromNowOn,+        PopSettings_AccessWindow_AllMail,+        ..+      ),++    -- * PopSettings_Disposition+    PopSettings_Disposition+      ( PopSettings_Disposition_DispositionUnspecified,+        PopSettings_Disposition_LeaveInInbox,+        PopSettings_Disposition_Archive,+        PopSettings_Disposition_Trash,+        PopSettings_Disposition_MarkRead,+        ..+      ),++    -- * SendAs_VerificationStatus+    SendAs_VerificationStatus+      ( SendAs_VerificationStatus_VerificationStatusUnspecified,+        SendAs_VerificationStatus_Accepted,+        SendAs_VerificationStatus_Pending,+        ..+      ),++    -- * SmtpMsa_SecurityMode+    SmtpMsa_SecurityMode+      ( SmtpMsa_SecurityMode_SecurityModeUnspecified,+        SmtpMsa_SecurityMode_None,+        SmtpMsa_SecurityMode_Ssl,+        SmtpMsa_SecurityMode_Starttls,+        ..+      ),++    -- * WatchRequest_LabelFilterAction+    WatchRequest_LabelFilterAction+      ( WatchRequest_LabelFilterAction_Include,+        WatchRequest_LabelFilterAction_Exclude,+        ..+      ),++    -- * WatchRequest_LabelFilterBehavior+    WatchRequest_LabelFilterBehavior+      ( WatchRequest_LabelFilterBehavior_Include,+        WatchRequest_LabelFilterBehavior_Exclude,+        ..+      ),++    -- * UsersDraftsGetFormat+    UsersDraftsGetFormat+      ( UsersDraftsGetFormat_Minimal,+        UsersDraftsGetFormat_Full,+        UsersDraftsGetFormat_Raw,+        UsersDraftsGetFormat_Metadata,+        ..+      ),++    -- * UsersHistoryListHistoryTypes+    UsersHistoryListHistoryTypes+      ( UsersHistoryListHistoryTypes_MessageAdded,+        UsersHistoryListHistoryTypes_MessageDeleted,+        UsersHistoryListHistoryTypes_LabelAdded,+        UsersHistoryListHistoryTypes_LabelRemoved,+        ..+      ),++    -- * UsersMessagesGetFormat+    UsersMessagesGetFormat+      ( UsersMessagesGetFormat_Minimal,+        UsersMessagesGetFormat_Full,+        UsersMessagesGetFormat_Raw,+        UsersMessagesGetFormat_Metadata,+        ..+      ),++    -- * UsersMessagesImportInternalDateSource+    UsersMessagesImportInternalDateSource+      ( UsersMessagesImportInternalDateSource_ReceivedTime,+        UsersMessagesImportInternalDateSource_DateHeader,+        ..+      ),++    -- * UsersMessagesInsertInternalDateSource+    UsersMessagesInsertInternalDateSource+      ( UsersMessagesInsertInternalDateSource_ReceivedTime,+        UsersMessagesInsertInternalDateSource_DateHeader,+        ..+      ),++    -- * UsersThreadsGetFormat+    UsersThreadsGetFormat+      ( UsersThreadsGetFormat_Full,+        UsersThreadsGetFormat_Metadata,+        UsersThreadsGetFormat_Minimal,+        ..+      ),+  )+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+  #-}++-- | The state that a message should be left in after it has been forwarded.+newtype AutoForwarding_Disposition = AutoForwarding_Disposition {fromAutoForwarding_Disposition :: 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 disposition.+pattern AutoForwarding_Disposition_DispositionUnspecified :: AutoForwarding_Disposition+pattern AutoForwarding_Disposition_DispositionUnspecified = AutoForwarding_Disposition "dispositionUnspecified"++-- | Leave the message in the @INBOX@.+pattern AutoForwarding_Disposition_LeaveInInbox :: AutoForwarding_Disposition+pattern AutoForwarding_Disposition_LeaveInInbox = AutoForwarding_Disposition "leaveInInbox"++-- | Archive the message.+pattern AutoForwarding_Disposition_Archive :: AutoForwarding_Disposition+pattern AutoForwarding_Disposition_Archive = AutoForwarding_Disposition "archive"++-- | Move the message to the @TRASH@.+pattern AutoForwarding_Disposition_Trash :: AutoForwarding_Disposition+pattern AutoForwarding_Disposition_Trash = AutoForwarding_Disposition "trash"++-- | Leave the message in the @INBOX@ and mark it as read.+pattern AutoForwarding_Disposition_MarkRead :: AutoForwarding_Disposition+pattern AutoForwarding_Disposition_MarkRead = AutoForwarding_Disposition "markRead"++{-# COMPLETE+  AutoForwarding_Disposition_DispositionUnspecified,+  AutoForwarding_Disposition_LeaveInInbox,+  AutoForwarding_Disposition_Archive,+  AutoForwarding_Disposition_Trash,+  AutoForwarding_Disposition_MarkRead,+  AutoForwarding_Disposition+  #-}++-- | Output only. The current state of the key pair.+newtype CseKeyPair_EnablementState = CseKeyPair_EnablementState {fromCseKeyPair_EnablementState :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The current state of the key pair is not set. The key pair is neither turned on nor turned off.+pattern CseKeyPair_EnablementState_StateUnspecified :: CseKeyPair_EnablementState+pattern CseKeyPair_EnablementState_StateUnspecified = CseKeyPair_EnablementState "stateUnspecified"++-- | The key pair is turned on. For any email messages that this key pair encrypts, Gmail decrypts the messages and signs any outgoing mail with the private key. To turn on a key pair, use the EnableCseKeyPair method.+pattern CseKeyPair_EnablementState_Enabled :: CseKeyPair_EnablementState+pattern CseKeyPair_EnablementState_Enabled = CseKeyPair_EnablementState "enabled"++-- | The key pair is turned off. Authenticated users cannot decrypt email messages nor sign outgoing messages. If a key pair is turned off for more than 30 days, you can permanently delete it. To turn off a key pair, use the DisableCseKeyPair method.+pattern CseKeyPair_EnablementState_Disabled :: CseKeyPair_EnablementState+pattern CseKeyPair_EnablementState_Disabled = CseKeyPair_EnablementState "disabled"++{-# COMPLETE+  CseKeyPair_EnablementState_StateUnspecified,+  CseKeyPair_EnablementState_Enabled,+  CseKeyPair_EnablementState_Disabled,+  CseKeyPair_EnablementState+  #-}++-- | Indicates whether this address has been verified and can act as a delegate for the account. Read-only.+newtype Delegate_VerificationStatus = Delegate_VerificationStatus {fromDelegate_VerificationStatus :: 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 verification status.+pattern Delegate_VerificationStatus_VerificationStatusUnspecified :: Delegate_VerificationStatus+pattern Delegate_VerificationStatus_VerificationStatusUnspecified = Delegate_VerificationStatus "verificationStatusUnspecified"++-- | The address can act a delegate for the account.+pattern Delegate_VerificationStatus_Accepted :: Delegate_VerificationStatus+pattern Delegate_VerificationStatus_Accepted = Delegate_VerificationStatus "accepted"++-- | A verification request was mailed to the address, and the owner has not yet accepted it.+pattern Delegate_VerificationStatus_Pending :: Delegate_VerificationStatus+pattern Delegate_VerificationStatus_Pending = Delegate_VerificationStatus "pending"++-- | A verification request was mailed to the address, and the owner rejected it.+pattern Delegate_VerificationStatus_Rejected :: Delegate_VerificationStatus+pattern Delegate_VerificationStatus_Rejected = Delegate_VerificationStatus "rejected"++-- | A verification request was mailed to the address, and it expired without verification.+pattern Delegate_VerificationStatus_Expired :: Delegate_VerificationStatus+pattern Delegate_VerificationStatus_Expired = Delegate_VerificationStatus "expired"++{-# COMPLETE+  Delegate_VerificationStatus_VerificationStatusUnspecified,+  Delegate_VerificationStatus_Accepted,+  Delegate_VerificationStatus_Pending,+  Delegate_VerificationStatus_Rejected,+  Delegate_VerificationStatus_Expired,+  Delegate_VerificationStatus+  #-}++-- | How the message size in bytes should be in relation to the size field.+newtype FilterCriteria_SizeComparison = FilterCriteria_SizeComparison {fromFilterCriteria_SizeComparison :: 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+    )++pattern FilterCriteria_SizeComparison_Unspecified :: FilterCriteria_SizeComparison+pattern FilterCriteria_SizeComparison_Unspecified = FilterCriteria_SizeComparison "unspecified"++-- | Find messages smaller than the given size.+pattern FilterCriteria_SizeComparison_Smaller :: FilterCriteria_SizeComparison+pattern FilterCriteria_SizeComparison_Smaller = FilterCriteria_SizeComparison "smaller"++-- | Find messages larger than the given size.+pattern FilterCriteria_SizeComparison_Larger :: FilterCriteria_SizeComparison+pattern FilterCriteria_SizeComparison_Larger = FilterCriteria_SizeComparison "larger"++{-# COMPLETE+  FilterCriteria_SizeComparison_Unspecified,+  FilterCriteria_SizeComparison_Smaller,+  FilterCriteria_SizeComparison_Larger,+  FilterCriteria_SizeComparison+  #-}++-- | Indicates whether this address has been verified and is usable for forwarding. Read-only.+newtype ForwardingAddress_VerificationStatus = ForwardingAddress_VerificationStatus {fromForwardingAddress_VerificationStatus :: 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 verification status.+pattern ForwardingAddress_VerificationStatus_VerificationStatusUnspecified :: ForwardingAddress_VerificationStatus+pattern ForwardingAddress_VerificationStatus_VerificationStatusUnspecified = ForwardingAddress_VerificationStatus "verificationStatusUnspecified"++-- | The address is ready to use for forwarding.+pattern ForwardingAddress_VerificationStatus_Accepted :: ForwardingAddress_VerificationStatus+pattern ForwardingAddress_VerificationStatus_Accepted = ForwardingAddress_VerificationStatus "accepted"++-- | The address is awaiting verification by the owner.+pattern ForwardingAddress_VerificationStatus_Pending :: ForwardingAddress_VerificationStatus+pattern ForwardingAddress_VerificationStatus_Pending = ForwardingAddress_VerificationStatus "pending"++{-# COMPLETE+  ForwardingAddress_VerificationStatus_VerificationStatusUnspecified,+  ForwardingAddress_VerificationStatus_Accepted,+  ForwardingAddress_VerificationStatus_Pending,+  ForwardingAddress_VerificationStatus+  #-}++-- | The action that will be executed on a message when it is marked as deleted and expunged from the last visible IMAP folder.+newtype ImapSettings_ExpungeBehavior = ImapSettings_ExpungeBehavior {fromImapSettings_ExpungeBehavior :: 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 behavior.+pattern ImapSettings_ExpungeBehavior_ExpungeBehaviorUnspecified :: ImapSettings_ExpungeBehavior+pattern ImapSettings_ExpungeBehavior_ExpungeBehaviorUnspecified = ImapSettings_ExpungeBehavior "expungeBehaviorUnspecified"++-- | Archive messages marked as deleted.+pattern ImapSettings_ExpungeBehavior_Archive :: ImapSettings_ExpungeBehavior+pattern ImapSettings_ExpungeBehavior_Archive = ImapSettings_ExpungeBehavior "archive"++-- | Move messages marked as deleted to the trash.+pattern ImapSettings_ExpungeBehavior_Trash :: ImapSettings_ExpungeBehavior+pattern ImapSettings_ExpungeBehavior_Trash = ImapSettings_ExpungeBehavior "trash"++-- | Immediately and permanently delete messages marked as deleted. The expunged messages cannot be recovered.+pattern ImapSettings_ExpungeBehavior_DeleteForever :: ImapSettings_ExpungeBehavior+pattern ImapSettings_ExpungeBehavior_DeleteForever = ImapSettings_ExpungeBehavior "deleteForever"++{-# COMPLETE+  ImapSettings_ExpungeBehavior_ExpungeBehaviorUnspecified,+  ImapSettings_ExpungeBehavior_Archive,+  ImapSettings_ExpungeBehavior_Trash,+  ImapSettings_ExpungeBehavior_DeleteForever,+  ImapSettings_ExpungeBehavior+  #-}++-- | The visibility of the label in the label list in the Gmail web interface.+newtype Label_LabelListVisibility = Label_LabelListVisibility {fromLabel_LabelListVisibility :: 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+    )++-- | Show the label in the label list.+pattern Label_LabelListVisibility_LabelShow :: Label_LabelListVisibility+pattern Label_LabelListVisibility_LabelShow = Label_LabelListVisibility "labelShow"++-- | Show the label if there are any unread messages with that label.+pattern Label_LabelListVisibility_LabelShowIfUnread :: Label_LabelListVisibility+pattern Label_LabelListVisibility_LabelShowIfUnread = Label_LabelListVisibility "labelShowIfUnread"++-- | Do not show the label in the label list.+pattern Label_LabelListVisibility_LabelHide :: Label_LabelListVisibility+pattern Label_LabelListVisibility_LabelHide = Label_LabelListVisibility "labelHide"++{-# COMPLETE+  Label_LabelListVisibility_LabelShow,+  Label_LabelListVisibility_LabelShowIfUnread,+  Label_LabelListVisibility_LabelHide,+  Label_LabelListVisibility+  #-}++-- | The visibility of messages with this label in the message list in the Gmail web interface.+newtype Label_MessageListVisibility = Label_MessageListVisibility {fromLabel_MessageListVisibility :: 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+    )++-- | Show the label in the message list.+pattern Label_MessageListVisibility_Show :: Label_MessageListVisibility+pattern Label_MessageListVisibility_Show = Label_MessageListVisibility "show"++-- | Do not show the label in the message list.+pattern Label_MessageListVisibility_Hide :: Label_MessageListVisibility+pattern Label_MessageListVisibility_Hide = Label_MessageListVisibility "hide"++{-# COMPLETE+  Label_MessageListVisibility_Show,+  Label_MessageListVisibility_Hide,+  Label_MessageListVisibility+  #-}++-- | The owner type for the label. User labels are created by the user and can be modified and deleted by the user and can be applied to any message or thread. System labels are internally created and cannot be added, modified, or deleted. System labels may be able to be applied to or removed from messages and threads under some circumstances but this is not guaranteed. For example, users can apply and remove the @INBOX@ and @UNREAD@ labels from messages and threads, but cannot apply or remove the @DRAFTS@ or @SENT@ labels from messages or threads.+newtype Label_Type = Label_Type {fromLabel_Type :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Labels created by Gmail.+pattern Label_Type_System :: Label_Type+pattern Label_Type_System = Label_Type "system"++-- | Custom labels created by the user or application.+pattern Label_Type_User :: Label_Type+pattern Label_Type_User = Label_Type "user"++{-# COMPLETE+  Label_Type_System,+  Label_Type_User,+  Label_Type+  #-}++-- | The range of messages which are accessible via POP.+newtype PopSettings_AccessWindow = PopSettings_AccessWindow {fromPopSettings_AccessWindow :: 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 range.+pattern PopSettings_AccessWindow_AccessWindowUnspecified :: PopSettings_AccessWindow+pattern PopSettings_AccessWindow_AccessWindowUnspecified = PopSettings_AccessWindow "accessWindowUnspecified"++-- | Indicates that no messages are accessible via POP.+pattern PopSettings_AccessWindow_Disabled :: PopSettings_AccessWindow+pattern PopSettings_AccessWindow_Disabled = PopSettings_AccessWindow "disabled"++-- | Indicates that unfetched messages received after some past point in time are accessible via POP.+pattern PopSettings_AccessWindow_FromNowOn :: PopSettings_AccessWindow+pattern PopSettings_AccessWindow_FromNowOn = PopSettings_AccessWindow "fromNowOn"++-- | Indicates that all unfetched messages are accessible via POP.+pattern PopSettings_AccessWindow_AllMail :: PopSettings_AccessWindow+pattern PopSettings_AccessWindow_AllMail = PopSettings_AccessWindow "allMail"++{-# COMPLETE+  PopSettings_AccessWindow_AccessWindowUnspecified,+  PopSettings_AccessWindow_Disabled,+  PopSettings_AccessWindow_FromNowOn,+  PopSettings_AccessWindow_AllMail,+  PopSettings_AccessWindow+  #-}++-- | The action that will be executed on a message after it has been fetched via POP.+newtype PopSettings_Disposition = PopSettings_Disposition {fromPopSettings_Disposition :: 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 disposition.+pattern PopSettings_Disposition_DispositionUnspecified :: PopSettings_Disposition+pattern PopSettings_Disposition_DispositionUnspecified = PopSettings_Disposition "dispositionUnspecified"++-- | Leave the message in the @INBOX@.+pattern PopSettings_Disposition_LeaveInInbox :: PopSettings_Disposition+pattern PopSettings_Disposition_LeaveInInbox = PopSettings_Disposition "leaveInInbox"++-- | Archive the message.+pattern PopSettings_Disposition_Archive :: PopSettings_Disposition+pattern PopSettings_Disposition_Archive = PopSettings_Disposition "archive"++-- | Move the message to the @TRASH@.+pattern PopSettings_Disposition_Trash :: PopSettings_Disposition+pattern PopSettings_Disposition_Trash = PopSettings_Disposition "trash"++-- | Leave the message in the @INBOX@ and mark it as read.+pattern PopSettings_Disposition_MarkRead :: PopSettings_Disposition+pattern PopSettings_Disposition_MarkRead = PopSettings_Disposition "markRead"++{-# COMPLETE+  PopSettings_Disposition_DispositionUnspecified,+  PopSettings_Disposition_LeaveInInbox,+  PopSettings_Disposition_Archive,+  PopSettings_Disposition_Trash,+  PopSettings_Disposition_MarkRead,+  PopSettings_Disposition+  #-}++-- | Indicates whether this address has been verified for use as a send-as alias. Read-only. This setting only applies to custom \"from\" aliases.+newtype SendAs_VerificationStatus = SendAs_VerificationStatus {fromSendAs_VerificationStatus :: 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 verification status.+pattern SendAs_VerificationStatus_VerificationStatusUnspecified :: SendAs_VerificationStatus+pattern SendAs_VerificationStatus_VerificationStatusUnspecified = SendAs_VerificationStatus "verificationStatusUnspecified"++-- | The address is ready to use as a send-as alias.+pattern SendAs_VerificationStatus_Accepted :: SendAs_VerificationStatus+pattern SendAs_VerificationStatus_Accepted = SendAs_VerificationStatus "accepted"++-- | The address is awaiting verification by the owner.+pattern SendAs_VerificationStatus_Pending :: SendAs_VerificationStatus+pattern SendAs_VerificationStatus_Pending = SendAs_VerificationStatus "pending"++{-# COMPLETE+  SendAs_VerificationStatus_VerificationStatusUnspecified,+  SendAs_VerificationStatus_Accepted,+  SendAs_VerificationStatus_Pending,+  SendAs_VerificationStatus+  #-}++-- | The protocol that will be used to secure communication with the SMTP service. Required.+newtype SmtpMsa_SecurityMode = SmtpMsa_SecurityMode {fromSmtpMsa_SecurityMode :: 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 security mode.+pattern SmtpMsa_SecurityMode_SecurityModeUnspecified :: SmtpMsa_SecurityMode+pattern SmtpMsa_SecurityMode_SecurityModeUnspecified = SmtpMsa_SecurityMode "securityModeUnspecified"++-- | Communication with the remote SMTP service is unsecured. Requires port 25.+pattern SmtpMsa_SecurityMode_None :: SmtpMsa_SecurityMode+pattern SmtpMsa_SecurityMode_None = SmtpMsa_SecurityMode "none"++-- | Communication with the remote SMTP service is secured using SSL.+pattern SmtpMsa_SecurityMode_Ssl :: SmtpMsa_SecurityMode+pattern SmtpMsa_SecurityMode_Ssl = SmtpMsa_SecurityMode "ssl"++-- | Communication with the remote SMTP service is secured using STARTTLS.+pattern SmtpMsa_SecurityMode_Starttls :: SmtpMsa_SecurityMode+pattern SmtpMsa_SecurityMode_Starttls = SmtpMsa_SecurityMode "starttls"++{-# COMPLETE+  SmtpMsa_SecurityMode_SecurityModeUnspecified,+  SmtpMsa_SecurityMode_None,+  SmtpMsa_SecurityMode_Ssl,+  SmtpMsa_SecurityMode_Starttls,+  SmtpMsa_SecurityMode+  #-}++-- | Filtering behavior of @labelIds list@ specified. This field is deprecated because it caused incorrect behavior in some cases; use @label_filter_behavior@ instead.+newtype WatchRequest_LabelFilterAction = WatchRequest_LabelFilterAction {fromWatchRequest_LabelFilterAction :: 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+    )++-- | Only get push notifications for message changes relating to labelIds specified.+pattern WatchRequest_LabelFilterAction_Include :: WatchRequest_LabelFilterAction+pattern WatchRequest_LabelFilterAction_Include = WatchRequest_LabelFilterAction "include"++-- | Get push notifications for all message changes except those relating to labelIds specified.+pattern WatchRequest_LabelFilterAction_Exclude :: WatchRequest_LabelFilterAction+pattern WatchRequest_LabelFilterAction_Exclude = WatchRequest_LabelFilterAction "exclude"++{-# COMPLETE+  WatchRequest_LabelFilterAction_Include,+  WatchRequest_LabelFilterAction_Exclude,+  WatchRequest_LabelFilterAction+  #-}++-- | Filtering behavior of @labelIds list@ specified. This field replaces @label_filter_action@; if set, @label_filter_action@ is ignored.+newtype WatchRequest_LabelFilterBehavior = WatchRequest_LabelFilterBehavior {fromWatchRequest_LabelFilterBehavior :: 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+    )++-- | Only get push notifications for message changes relating to labelIds specified.+pattern WatchRequest_LabelFilterBehavior_Include :: WatchRequest_LabelFilterBehavior+pattern WatchRequest_LabelFilterBehavior_Include = WatchRequest_LabelFilterBehavior "include"++-- | Get push notifications for all message changes except those relating to labelIds specified.+pattern WatchRequest_LabelFilterBehavior_Exclude :: WatchRequest_LabelFilterBehavior+pattern WatchRequest_LabelFilterBehavior_Exclude = WatchRequest_LabelFilterBehavior "exclude"++{-# COMPLETE+  WatchRequest_LabelFilterBehavior_Include,+  WatchRequest_LabelFilterBehavior_Exclude,+  WatchRequest_LabelFilterBehavior+  #-}++-- | The format to return the draft in.+newtype UsersDraftsGetFormat = UsersDraftsGetFormat {fromUsersDraftsGetFormat :: 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+    )++-- | Returns only email message ID and labels; does not return the email headers, body, or payload.+pattern UsersDraftsGetFormat_Minimal :: UsersDraftsGetFormat+pattern UsersDraftsGetFormat_Minimal = UsersDraftsGetFormat "minimal"++-- | Returns the full email message data with body content parsed in the @payload@ field; the @raw@ field is not used. Format cannot be used when accessing the api using the gmail.metadata scope.+pattern UsersDraftsGetFormat_Full :: UsersDraftsGetFormat+pattern UsersDraftsGetFormat_Full = UsersDraftsGetFormat "full"++-- | Returns the full email message data with body content in the @raw@ field as a base64url encoded string; the @payload@ field is not used. Format cannot be used when accessing the api using the gmail.metadata scope.+pattern UsersDraftsGetFormat_Raw :: UsersDraftsGetFormat+pattern UsersDraftsGetFormat_Raw = UsersDraftsGetFormat "raw"++-- | Returns only email message ID, labels, and email headers.+pattern UsersDraftsGetFormat_Metadata :: UsersDraftsGetFormat+pattern UsersDraftsGetFormat_Metadata = UsersDraftsGetFormat "metadata"++{-# COMPLETE+  UsersDraftsGetFormat_Minimal,+  UsersDraftsGetFormat_Full,+  UsersDraftsGetFormat_Raw,+  UsersDraftsGetFormat_Metadata,+  UsersDraftsGetFormat+  #-}++-- | History types to be returned by the function+newtype UsersHistoryListHistoryTypes = UsersHistoryListHistoryTypes {fromUsersHistoryListHistoryTypes :: 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+    )++pattern UsersHistoryListHistoryTypes_MessageAdded :: UsersHistoryListHistoryTypes+pattern UsersHistoryListHistoryTypes_MessageAdded = UsersHistoryListHistoryTypes "messageAdded"++pattern UsersHistoryListHistoryTypes_MessageDeleted :: UsersHistoryListHistoryTypes+pattern UsersHistoryListHistoryTypes_MessageDeleted = UsersHistoryListHistoryTypes "messageDeleted"++pattern UsersHistoryListHistoryTypes_LabelAdded :: UsersHistoryListHistoryTypes+pattern UsersHistoryListHistoryTypes_LabelAdded = UsersHistoryListHistoryTypes "labelAdded"++pattern UsersHistoryListHistoryTypes_LabelRemoved :: UsersHistoryListHistoryTypes+pattern UsersHistoryListHistoryTypes_LabelRemoved = UsersHistoryListHistoryTypes "labelRemoved"++{-# COMPLETE+  UsersHistoryListHistoryTypes_MessageAdded,+  UsersHistoryListHistoryTypes_MessageDeleted,+  UsersHistoryListHistoryTypes_LabelAdded,+  UsersHistoryListHistoryTypes_LabelRemoved,+  UsersHistoryListHistoryTypes+  #-}++-- | The format to return the message in.+newtype UsersMessagesGetFormat = UsersMessagesGetFormat {fromUsersMessagesGetFormat :: 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+    )++-- | Returns only email message ID and labels; does not return the email headers, body, or payload.+pattern UsersMessagesGetFormat_Minimal :: UsersMessagesGetFormat+pattern UsersMessagesGetFormat_Minimal = UsersMessagesGetFormat "minimal"++-- | Returns the full email message data with body content parsed in the @payload@ field; the @raw@ field is not used. Format cannot be used when accessing the api using the gmail.metadata scope.+pattern UsersMessagesGetFormat_Full :: UsersMessagesGetFormat+pattern UsersMessagesGetFormat_Full = UsersMessagesGetFormat "full"++-- | Returns the full email message data with body content in the @raw@ field as a base64url encoded string; the @payload@ field is not used. Format cannot be used when accessing the api using the gmail.metadata scope.+pattern UsersMessagesGetFormat_Raw :: UsersMessagesGetFormat+pattern UsersMessagesGetFormat_Raw = UsersMessagesGetFormat "raw"++-- | Returns only email message ID, labels, and email headers.+pattern UsersMessagesGetFormat_Metadata :: UsersMessagesGetFormat+pattern UsersMessagesGetFormat_Metadata = UsersMessagesGetFormat "metadata"++{-# COMPLETE+  UsersMessagesGetFormat_Minimal,+  UsersMessagesGetFormat_Full,+  UsersMessagesGetFormat_Raw,+  UsersMessagesGetFormat_Metadata,+  UsersMessagesGetFormat+  #-}++-- | Source for Gmail\'s internal date of the message.+newtype UsersMessagesImportInternalDateSource = UsersMessagesImportInternalDateSource {fromUsersMessagesImportInternalDateSource :: 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+    )++-- | Internal message date set to current time when received by Gmail.+pattern UsersMessagesImportInternalDateSource_ReceivedTime :: UsersMessagesImportInternalDateSource+pattern UsersMessagesImportInternalDateSource_ReceivedTime = UsersMessagesImportInternalDateSource "receivedTime"++-- | Internal message time based on \'Date\' header in email, when valid.+pattern UsersMessagesImportInternalDateSource_DateHeader :: UsersMessagesImportInternalDateSource+pattern UsersMessagesImportInternalDateSource_DateHeader = UsersMessagesImportInternalDateSource "dateHeader"++{-# COMPLETE+  UsersMessagesImportInternalDateSource_ReceivedTime,+  UsersMessagesImportInternalDateSource_DateHeader,+  UsersMessagesImportInternalDateSource+  #-}++-- | Source for Gmail\'s internal date of the message.+newtype UsersMessagesInsertInternalDateSource = UsersMessagesInsertInternalDateSource {fromUsersMessagesInsertInternalDateSource :: 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+    )++-- | Internal message date set to current time when received by Gmail.+pattern UsersMessagesInsertInternalDateSource_ReceivedTime :: UsersMessagesInsertInternalDateSource+pattern UsersMessagesInsertInternalDateSource_ReceivedTime = UsersMessagesInsertInternalDateSource "receivedTime"++-- | Internal message time based on \'Date\' header in email, when valid.+pattern UsersMessagesInsertInternalDateSource_DateHeader :: UsersMessagesInsertInternalDateSource+pattern UsersMessagesInsertInternalDateSource_DateHeader = UsersMessagesInsertInternalDateSource "dateHeader"++{-# COMPLETE+  UsersMessagesInsertInternalDateSource_ReceivedTime,+  UsersMessagesInsertInternalDateSource_DateHeader,+  UsersMessagesInsertInternalDateSource+  #-}++-- | The format to return the messages in.+newtype UsersThreadsGetFormat = UsersThreadsGetFormat {fromUsersThreadsGetFormat :: 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+    )++-- | Returns the full email message data with body content parsed in the @payload@ field; the @raw@ field is not used. Format cannot be used when accessing the api using the gmail.metadata scope.+pattern UsersThreadsGetFormat_Full :: UsersThreadsGetFormat+pattern UsersThreadsGetFormat_Full = UsersThreadsGetFormat "full"++-- | Returns only email message IDs, labels, and email headers.+pattern UsersThreadsGetFormat_Metadata :: UsersThreadsGetFormat+pattern UsersThreadsGetFormat_Metadata = UsersThreadsGetFormat "metadata"++-- | Returns only email message IDs and labels; does not return the email headers, body, or payload.+pattern UsersThreadsGetFormat_Minimal :: UsersThreadsGetFormat+pattern UsersThreadsGetFormat_Minimal = UsersThreadsGetFormat "minimal"++{-# COMPLETE+  UsersThreadsGetFormat_Full,+  UsersThreadsGetFormat_Metadata,+  UsersThreadsGetFormat_Minimal,+  UsersThreadsGetFormat+  #-}
+ gen/Gogol/Gmail/Types.hs view
@@ -0,0 +1,392 @@+{-# 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.Gmail.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.Gmail.Types+  ( -- * Configuration+    gmailService,++    -- * OAuth Scopes+    Gmail'FullControl,+    Gmail'Addons'Current'Action'Compose,+    Gmail'Addons'Current'Message'Action,+    Gmail'Addons'Current'Message'Metadata,+    Gmail'Addons'Current'Message'Readonly,+    Gmail'Compose,+    Gmail'Insert,+    Gmail'Labels,+    Gmail'Metadata,+    Gmail'Modify,+    Gmail'Readonly,+    Gmail'Send,+    Gmail'Settings'Basic,+    Gmail'Settings'Sharing,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** AutoForwarding+    AutoForwarding (..),+    newAutoForwarding,++    -- ** AutoForwarding_Disposition+    AutoForwarding_Disposition (..),++    -- ** BatchDeleteMessagesRequest+    BatchDeleteMessagesRequest (..),+    newBatchDeleteMessagesRequest,++    -- ** BatchModifyMessagesRequest+    BatchModifyMessagesRequest (..),+    newBatchModifyMessagesRequest,++    -- ** CseIdentity+    CseIdentity (..),+    newCseIdentity,++    -- ** CseKeyPair+    CseKeyPair (..),+    newCseKeyPair,++    -- ** CseKeyPair_EnablementState+    CseKeyPair_EnablementState (..),++    -- ** CsePrivateKeyMetadata+    CsePrivateKeyMetadata (..),+    newCsePrivateKeyMetadata,++    -- ** Delegate+    Delegate (..),+    newDelegate,++    -- ** Delegate_VerificationStatus+    Delegate_VerificationStatus (..),++    -- ** DisableCseKeyPairRequest+    DisableCseKeyPairRequest (..),+    newDisableCseKeyPairRequest,++    -- ** Draft+    Draft (..),+    newDraft,++    -- ** EnableCseKeyPairRequest+    EnableCseKeyPairRequest (..),+    newEnableCseKeyPairRequest,++    -- ** Filter+    Filter (..),+    newFilter,++    -- ** FilterAction+    FilterAction (..),+    newFilterAction,++    -- ** FilterCriteria+    FilterCriteria (..),+    newFilterCriteria,++    -- ** FilterCriteria_SizeComparison+    FilterCriteria_SizeComparison (..),++    -- ** ForwardingAddress+    ForwardingAddress (..),+    newForwardingAddress,++    -- ** ForwardingAddress_VerificationStatus+    ForwardingAddress_VerificationStatus (..),++    -- ** HardwareKeyMetadata+    HardwareKeyMetadata (..),+    newHardwareKeyMetadata,++    -- ** History+    History (..),+    newHistory,++    -- ** HistoryLabelAdded+    HistoryLabelAdded (..),+    newHistoryLabelAdded,++    -- ** HistoryLabelRemoved+    HistoryLabelRemoved (..),+    newHistoryLabelRemoved,++    -- ** HistoryMessageAdded+    HistoryMessageAdded (..),+    newHistoryMessageAdded,++    -- ** HistoryMessageDeleted+    HistoryMessageDeleted (..),+    newHistoryMessageDeleted,++    -- ** ImapSettings+    ImapSettings (..),+    newImapSettings,++    -- ** ImapSettings_ExpungeBehavior+    ImapSettings_ExpungeBehavior (..),++    -- ** KaclsKeyMetadata+    KaclsKeyMetadata (..),+    newKaclsKeyMetadata,++    -- ** Label+    Label (..),+    newLabel,++    -- ** Label_LabelListVisibility+    Label_LabelListVisibility (..),++    -- ** Label_MessageListVisibility+    Label_MessageListVisibility (..),++    -- ** Label_Type+    Label_Type (..),++    -- ** LabelColor+    LabelColor (..),+    newLabelColor,++    -- ** LanguageSettings+    LanguageSettings (..),+    newLanguageSettings,++    -- ** ListCseIdentitiesResponse+    ListCseIdentitiesResponse (..),+    newListCseIdentitiesResponse,++    -- ** ListCseKeyPairsResponse+    ListCseKeyPairsResponse (..),+    newListCseKeyPairsResponse,++    -- ** ListDelegatesResponse+    ListDelegatesResponse (..),+    newListDelegatesResponse,++    -- ** ListDraftsResponse+    ListDraftsResponse (..),+    newListDraftsResponse,++    -- ** ListFiltersResponse+    ListFiltersResponse (..),+    newListFiltersResponse,++    -- ** ListForwardingAddressesResponse+    ListForwardingAddressesResponse (..),+    newListForwardingAddressesResponse,++    -- ** ListHistoryResponse+    ListHistoryResponse (..),+    newListHistoryResponse,++    -- ** ListLabelsResponse+    ListLabelsResponse (..),+    newListLabelsResponse,++    -- ** ListMessagesResponse+    ListMessagesResponse (..),+    newListMessagesResponse,++    -- ** ListSendAsResponse+    ListSendAsResponse (..),+    newListSendAsResponse,++    -- ** ListSmimeInfoResponse+    ListSmimeInfoResponse (..),+    newListSmimeInfoResponse,++    -- ** ListThreadsResponse+    ListThreadsResponse (..),+    newListThreadsResponse,++    -- ** Message+    Message (..),+    newMessage,++    -- ** MessagePart+    MessagePart (..),+    newMessagePart,++    -- ** MessagePartBody+    MessagePartBody (..),+    newMessagePartBody,++    -- ** MessagePartHeader+    MessagePartHeader (..),+    newMessagePartHeader,++    -- ** ModifyMessageRequest+    ModifyMessageRequest (..),+    newModifyMessageRequest,++    -- ** ModifyThreadRequest+    ModifyThreadRequest (..),+    newModifyThreadRequest,++    -- ** ObliterateCseKeyPairRequest+    ObliterateCseKeyPairRequest (..),+    newObliterateCseKeyPairRequest,++    -- ** PopSettings+    PopSettings (..),+    newPopSettings,++    -- ** PopSettings_AccessWindow+    PopSettings_AccessWindow (..),++    -- ** PopSettings_Disposition+    PopSettings_Disposition (..),++    -- ** Profile+    Profile (..),+    newProfile,++    -- ** SendAs+    SendAs (..),+    newSendAs,++    -- ** SendAs_VerificationStatus+    SendAs_VerificationStatus (..),++    -- ** SignAndEncryptKeyPairs+    SignAndEncryptKeyPairs (..),+    newSignAndEncryptKeyPairs,++    -- ** SmimeInfo+    SmimeInfo (..),+    newSmimeInfo,++    -- ** SmtpMsa+    SmtpMsa (..),+    newSmtpMsa,++    -- ** SmtpMsa_SecurityMode+    SmtpMsa_SecurityMode (..),++    -- ** Thread+    Thread (..),+    newThread,++    -- ** VacationSettings+    VacationSettings (..),+    newVacationSettings,++    -- ** WatchRequest+    WatchRequest (..),+    newWatchRequest,++    -- ** WatchRequest_LabelFilterAction+    WatchRequest_LabelFilterAction (..),++    -- ** WatchRequest_LabelFilterBehavior+    WatchRequest_LabelFilterBehavior (..),++    -- ** WatchResponse+    WatchResponse (..),+    newWatchResponse,++    -- ** UsersDraftsGetFormat+    UsersDraftsGetFormat (..),++    -- ** UsersHistoryListHistoryTypes+    UsersHistoryListHistoryTypes (..),++    -- ** UsersMessagesGetFormat+    UsersMessagesGetFormat (..),++    -- ** UsersMessagesImportInternalDateSource+    UsersMessagesImportInternalDateSource (..),++    -- ** UsersMessagesInsertInternalDateSource+    UsersMessagesInsertInternalDateSource (..),++    -- ** UsersThreadsGetFormat+    UsersThreadsGetFormat (..),+  )+where++import Gogol.Gmail.Internal.Product+import Gogol.Gmail.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Default request referring to version @v1@ of the Gmail API. This contains the host and root path used as a starting point for constructing service requests.+gmailService :: Core.ServiceConfig+gmailService =+  Core.defaultService+    (Core.ServiceId "gmail:v1")+    "gmail.googleapis.com"++-- | Read, compose, send, and permanently delete all your email from Gmail+type Gmail'FullControl = "https://mail.google.com/"++-- | Manage drafts and send emails when you interact with the add-on+type Gmail'Addons'Current'Action'Compose =+  "https://www.googleapis.com/auth/gmail.addons.current.action.compose"++-- | View your email messages when you interact with the add-on+type Gmail'Addons'Current'Message'Action =+  "https://www.googleapis.com/auth/gmail.addons.current.message.action"++-- | View your email message metadata when the add-on is running+type Gmail'Addons'Current'Message'Metadata =+  "https://www.googleapis.com/auth/gmail.addons.current.message.metadata"++-- | View your email messages when the add-on is running+type Gmail'Addons'Current'Message'Readonly =+  "https://www.googleapis.com/auth/gmail.addons.current.message.readonly"++-- | Manage drafts and send emails+type Gmail'Compose =+  "https://www.googleapis.com/auth/gmail.compose"++-- | Add emails into your Gmail mailbox+type Gmail'Insert = "https://www.googleapis.com/auth/gmail.insert"++-- | See and edit your email labels+type Gmail'Labels = "https://www.googleapis.com/auth/gmail.labels"++-- | View your email message metadata such as labels and headers, but not the email body+type Gmail'Metadata =+  "https://www.googleapis.com/auth/gmail.metadata"++-- | Read, compose, and send emails from your Gmail account+type Gmail'Modify = "https://www.googleapis.com/auth/gmail.modify"++-- | View your email messages and settings+type Gmail'Readonly =+  "https://www.googleapis.com/auth/gmail.readonly"++-- | Send email on your behalf+type Gmail'Send = "https://www.googleapis.com/auth/gmail.send"++-- | See, edit, create, or change your email settings and filters in Gmail+type Gmail'Settings'Basic =+  "https://www.googleapis.com/auth/gmail.settings.basic"++-- | Manage your sensitive mail settings, including who can manage your mail+type Gmail'Settings'Sharing =+  "https://www.googleapis.com/auth/gmail.settings.sharing"
+ gen/Gogol/Gmail/Users/Drafts/Create.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.Gmail.Users.Drafts.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 draft with the @DRAFT@ label.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.drafts.create@.+module Gogol.Gmail.Users.Drafts.Create+  ( -- * Resource+    GmailUsersDraftsCreateResource,++    -- ** Constructing a Request+    GmailUsersDraftsCreate (..),+    newGmailUsersDraftsCreate,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.drafts.create@ method which the+-- 'GmailUsersDraftsCreate' request conforms to.+type GmailUsersDraftsCreateResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "drafts"+    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] Draft+    Core.:> Core.Post '[Core.JSON] Draft+    Core.:<|> "upload"+    Core.:> "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "drafts"+    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.QueryParam "uploadType" Core.Multipart+    Core.:> Core.MultipartRelated '[Core.JSON] Draft+    Core.:> Core.Post '[Core.JSON] Draft++-- | Creates a new draft with the @DRAFT@ label.+--+-- /See:/ 'newGmailUsersDraftsCreate' smart constructor.+data GmailUsersDraftsCreate = GmailUsersDraftsCreate+  { -- | 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 :: Draft,+    -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersDraftsCreate' with the minimum fields required to make a request.+newGmailUsersDraftsCreate ::+  -- |  Multipart request metadata. See 'payload'.+  Draft ->+  GmailUsersDraftsCreate+newGmailUsersDraftsCreate payload =+  GmailUsersDraftsCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersDraftsCreate where+  type Rs GmailUsersDraftsCreate = Draft+  type+    Scopes GmailUsersDraftsCreate =+      '[ Gmail'FullControl,+         Gmail'Addons'Current'Action'Compose,+         Gmail'Compose,+         Gmail'Modify+       ]+  requestClient GmailUsersDraftsCreate {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go Core.:<|> _ =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersDraftsCreateResource)+          Core.mempty++instance+  Core.GoogleRequest+    (Core.MediaUpload GmailUsersDraftsCreate)+  where+  type Rs (Core.MediaUpload GmailUsersDraftsCreate) = Draft+  type+    Scopes (Core.MediaUpload GmailUsersDraftsCreate) =+      Core.Scopes GmailUsersDraftsCreate+  requestClient (Core.MediaUpload GmailUsersDraftsCreate {..} body) =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      (Core.Just Core.Multipart)+      payload+      body+      gmailService+    where+      _ Core.:<|> go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersDraftsCreateResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Drafts/Delete.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.Gmail.Users.Drafts.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)+--+-- Immediately and permanently deletes the specified draft. Does not simply trash it.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.drafts.delete@.+module Gogol.Gmail.Users.Drafts.Delete+  ( -- * Resource+    GmailUsersDraftsDeleteResource,++    -- ** Constructing a Request+    GmailUsersDraftsDelete (..),+    newGmailUsersDraftsDelete,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.drafts.delete@ method which the+-- 'GmailUsersDraftsDelete' request conforms to.+type GmailUsersDraftsDeleteResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "drafts"+    Core.:> Core.Capture "id" 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] ()++-- | Immediately and permanently deletes the specified draft. Does not simply trash it.+--+-- /See:/ 'newGmailUsersDraftsDelete' smart constructor.+data GmailUsersDraftsDelete = GmailUsersDraftsDelete+  { -- | 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 draft to delete.+    id :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersDraftsDelete' with the minimum fields required to make a request.+newGmailUsersDraftsDelete ::+  -- |  The ID of the draft to delete. See 'id'.+  Core.Text ->+  GmailUsersDraftsDelete+newGmailUsersDraftsDelete id =+  GmailUsersDraftsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersDraftsDelete where+  type Rs GmailUsersDraftsDelete = ()+  type+    Scopes GmailUsersDraftsDelete =+      '[ Gmail'FullControl,+         Gmail'Addons'Current'Action'Compose,+         Gmail'Compose,+         Gmail'Modify+       ]+  requestClient GmailUsersDraftsDelete {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersDraftsDeleteResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Drafts/Get.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.Gmail.Users.Drafts.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 specified draft.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.drafts.get@.+module Gogol.Gmail.Users.Drafts.Get+  ( -- * Resource+    GmailUsersDraftsGetResource,++    -- ** Constructing a Request+    GmailUsersDraftsGet (..),+    newGmailUsersDraftsGet,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.drafts.get@ method which the+-- 'GmailUsersDraftsGet' request conforms to.+type GmailUsersDraftsGetResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "drafts"+    Core.:> Core.Capture "id" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "format" UsersDraftsGetFormat+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Draft++-- | Gets the specified draft.+--+-- /See:/ 'newGmailUsersDraftsGet' smart constructor.+data GmailUsersDraftsGet = GmailUsersDraftsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The format to return the draft in.+    format :: UsersDraftsGetFormat,+    -- | The ID of the draft to retrieve.+    id :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersDraftsGet' with the minimum fields required to make a request.+newGmailUsersDraftsGet ::+  -- |  The ID of the draft to retrieve. See 'id'.+  Core.Text ->+  GmailUsersDraftsGet+newGmailUsersDraftsGet id =+  GmailUsersDraftsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      format = UsersDraftsGetFormat_Full,+      id = id,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersDraftsGet where+  type Rs GmailUsersDraftsGet = Draft+  type+    Scopes GmailUsersDraftsGet =+      '[Gmail'FullControl, Gmail'Compose, Gmail'Modify, Gmail'Readonly]+  requestClient GmailUsersDraftsGet {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      (Core.Just format)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersDraftsGetResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Drafts/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.Gmail.Users.Drafts.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 drafts in the user\'s mailbox.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.drafts.list@.+module Gogol.Gmail.Users.Drafts.List+  ( -- * Resource+    GmailUsersDraftsListResource,++    -- ** Constructing a Request+    GmailUsersDraftsList (..),+    newGmailUsersDraftsList,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.drafts.list@ method which the+-- 'GmailUsersDraftsList' request conforms to.+type GmailUsersDraftsListResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "drafts"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "includeSpamTrash" Core.Bool+    Core.:> Core.QueryParam "maxResults" Core.Word32+    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 "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListDraftsResponse++-- | Lists the drafts in the user\'s mailbox.+--+-- /See:/ 'newGmailUsersDraftsList' smart constructor.+data GmailUsersDraftsList = GmailUsersDraftsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Include drafts from @SPAM@ and @TRASH@ in the results.+    includeSpamTrash :: Core.Bool,+    -- | Maximum number of drafts to return. This field defaults to 100. The maximum allowed value for this field is 500.+    maxResults :: Core.Word32,+    -- | Page token to retrieve a specific page of results in the list.+    pageToken :: (Core.Maybe Core.Text),+    -- | Only return draft messages matching the specified query. Supports the same query format as the Gmail search box. For example, @\"from:someuser\@example.com rfc822msgid: is:unread\"@.+    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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersDraftsList' with the minimum fields required to make a request.+newGmailUsersDraftsList ::+  GmailUsersDraftsList+newGmailUsersDraftsList =+  GmailUsersDraftsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      includeSpamTrash = Core.False,+      maxResults = 100,+      pageToken = Core.Nothing,+      q = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersDraftsList where+  type Rs GmailUsersDraftsList = ListDraftsResponse+  type+    Scopes GmailUsersDraftsList =+      '[Gmail'FullControl, Gmail'Compose, Gmail'Modify, Gmail'Readonly]+  requestClient GmailUsersDraftsList {..} =+    go+      userId+      xgafv+      accessToken+      callback+      (Core.Just includeSpamTrash)+      (Core.Just maxResults)+      pageToken+      q+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersDraftsListResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Drafts/Send.hs view
@@ -0,0 +1,162 @@+{-# 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.Gmail.Users.Drafts.Send+-- 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)+--+-- Sends the specified, existing draft to the recipients in the @To@, @Cc@, and @Bcc@ headers.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.drafts.send@.+module Gogol.Gmail.Users.Drafts.Send+  ( -- * Resource+    GmailUsersDraftsSendResource,++    -- ** Constructing a Request+    GmailUsersDraftsSend (..),+    newGmailUsersDraftsSend,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.drafts.send@ method which the+-- 'GmailUsersDraftsSend' request conforms to.+type GmailUsersDraftsSendResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "drafts"+    Core.:> "send"+    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] Draft+    Core.:> Core.Post '[Core.JSON] Message+    Core.:<|> "upload"+    Core.:> "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "drafts"+    Core.:> "send"+    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.QueryParam "uploadType" Core.Multipart+    Core.:> Core.MultipartRelated '[Core.JSON] Draft+    Core.:> Core.Post '[Core.JSON] Message++-- | Sends the specified, existing draft to the recipients in the @To@, @Cc@, and @Bcc@ headers.+--+-- /See:/ 'newGmailUsersDraftsSend' smart constructor.+data GmailUsersDraftsSend = GmailUsersDraftsSend+  { -- | 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 :: Draft,+    -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersDraftsSend' with the minimum fields required to make a request.+newGmailUsersDraftsSend ::+  -- |  Multipart request metadata. See 'payload'.+  Draft ->+  GmailUsersDraftsSend+newGmailUsersDraftsSend payload =+  GmailUsersDraftsSend+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersDraftsSend where+  type Rs GmailUsersDraftsSend = Message+  type+    Scopes GmailUsersDraftsSend =+      '[ Gmail'FullControl,+         Gmail'Addons'Current'Action'Compose,+         Gmail'Compose,+         Gmail'Modify+       ]+  requestClient GmailUsersDraftsSend {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go Core.:<|> _ =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersDraftsSendResource)+          Core.mempty++instance Core.GoogleRequest (Core.MediaUpload GmailUsersDraftsSend) where+  type Rs (Core.MediaUpload GmailUsersDraftsSend) = Message+  type+    Scopes (Core.MediaUpload GmailUsersDraftsSend) =+      Core.Scopes GmailUsersDraftsSend+  requestClient (Core.MediaUpload GmailUsersDraftsSend {..} body) =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      (Core.Just Core.Multipart)+      payload+      body+      gmailService+    where+      _ Core.:<|> go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersDraftsSendResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Drafts/Update.hs view
@@ -0,0 +1,172 @@+{-# 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.Gmail.Users.Drafts.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)+--+-- Replaces a draft\'s content.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.drafts.update@.+module Gogol.Gmail.Users.Drafts.Update+  ( -- * Resource+    GmailUsersDraftsUpdateResource,++    -- ** Constructing a Request+    GmailUsersDraftsUpdate (..),+    newGmailUsersDraftsUpdate,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.drafts.update@ method which the+-- 'GmailUsersDraftsUpdate' request conforms to.+type GmailUsersDraftsUpdateResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "drafts"+    Core.:> Core.Capture "id" 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] Draft+    Core.:> Core.Put '[Core.JSON] Draft+    Core.:<|> "upload"+    Core.:> "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "drafts"+    Core.:> Core.Capture "id" 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.QueryParam "uploadType" Core.Multipart+    Core.:> Core.MultipartRelated '[Core.JSON] Draft+    Core.:> Core.Put '[Core.JSON] Draft++-- | Replaces a draft\'s content.+--+-- /See:/ 'newGmailUsersDraftsUpdate' smart constructor.+data GmailUsersDraftsUpdate = GmailUsersDraftsUpdate+  { -- | 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 draft to update.+    id :: Core.Text,+    -- | Multipart request metadata.+    payload :: Draft,+    -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersDraftsUpdate' with the minimum fields required to make a request.+newGmailUsersDraftsUpdate ::+  -- |  The ID of the draft to update. See 'id'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Draft ->+  GmailUsersDraftsUpdate+newGmailUsersDraftsUpdate id payload =+  GmailUsersDraftsUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersDraftsUpdate where+  type Rs GmailUsersDraftsUpdate = Draft+  type+    Scopes GmailUsersDraftsUpdate =+      '[ Gmail'FullControl,+         Gmail'Addons'Current'Action'Compose,+         Gmail'Compose,+         Gmail'Modify+       ]+  requestClient GmailUsersDraftsUpdate {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go Core.:<|> _ =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersDraftsUpdateResource)+          Core.mempty++instance+  Core.GoogleRequest+    (Core.MediaUpload GmailUsersDraftsUpdate)+  where+  type Rs (Core.MediaUpload GmailUsersDraftsUpdate) = Draft+  type+    Scopes (Core.MediaUpload GmailUsersDraftsUpdate) =+      Core.Scopes GmailUsersDraftsUpdate+  requestClient (Core.MediaUpload GmailUsersDraftsUpdate {..} body) =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      (Core.Just Core.Multipart)+      payload+      body+      gmailService+    where+      _ Core.:<|> go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersDraftsUpdateResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/GetProfile.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.Gmail.Users.GetProfile+-- 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 current user\'s Gmail profile.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.getProfile@.+module Gogol.Gmail.Users.GetProfile+  ( -- * Resource+    GmailUsersGetProfileResource,++    -- ** Constructing a Request+    GmailUsersGetProfile (..),+    newGmailUsersGetProfile,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.getProfile@ method which the+-- 'GmailUsersGetProfile' request conforms to.+type GmailUsersGetProfileResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "profile"+    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] Profile++-- | Gets the current user\'s Gmail profile.+--+-- /See:/ 'newGmailUsersGetProfile' smart constructor.+data GmailUsersGetProfile = GmailUsersGetProfile+  { -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersGetProfile' with the minimum fields required to make a request.+newGmailUsersGetProfile ::+  GmailUsersGetProfile+newGmailUsersGetProfile =+  GmailUsersGetProfile+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersGetProfile where+  type Rs GmailUsersGetProfile = Profile+  type+    Scopes GmailUsersGetProfile =+      '[ Gmail'FullControl,+         Gmail'Compose,+         Gmail'Metadata,+         Gmail'Modify,+         Gmail'Readonly+       ]+  requestClient GmailUsersGetProfile {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersGetProfileResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/History/List.hs view
@@ -0,0 +1,135 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Gmail.Users.History.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 history of all changes to the given mailbox. History results are returned in chronological order (increasing @historyId@).+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.history.list@.+module Gogol.Gmail.Users.History.List+  ( -- * Resource+    GmailUsersHistoryListResource,++    -- ** Constructing a Request+    GmailUsersHistoryList (..),+    newGmailUsersHistoryList,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.history.list@ method which the+-- 'GmailUsersHistoryList' request conforms to.+type GmailUsersHistoryListResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "history"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParams "historyTypes" UsersHistoryListHistoryTypes+    Core.:> Core.QueryParam "labelId" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "startHistoryId" Core.Word64+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListHistoryResponse++-- | Lists the history of all changes to the given mailbox. History results are returned in chronological order (increasing @historyId@).+--+-- /See:/ 'newGmailUsersHistoryList' smart constructor.+data GmailUsersHistoryList = GmailUsersHistoryList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | History types to be returned by the function+    historyTypes :: (Core.Maybe [UsersHistoryListHistoryTypes]),+    -- | Only return messages with a label matching the ID.+    labelId :: (Core.Maybe Core.Text),+    -- | Maximum number of history records to return. This field defaults to 100. The maximum allowed value for this field is 500.+    maxResults :: Core.Word32,+    -- | Page token to retrieve a specific page of results in the list.+    pageToken :: (Core.Maybe Core.Text),+    -- | Required. Returns history records after the specified @startHistoryId@. The supplied @startHistoryId@ should be obtained from the @historyId@ of a message, thread, or previous @list@ response. History IDs increase chronologically but are not contiguous with random gaps in between valid IDs. Supplying an invalid or out of date @startHistoryId@ typically returns an @HTTP 404@ error code. A @historyId@ is typically valid for at least a week, but in some rare circumstances may be valid for only a few hours. If you receive an @HTTP 404@ error response, your application should perform a full sync. If you receive no @nextPageToken@ in the response, there are no updates to retrieve and you can store the returned @historyId@ for a future request.+    startHistoryId :: (Core.Maybe Core.Word64),+    -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersHistoryList' with the minimum fields required to make a request.+newGmailUsersHistoryList ::+  GmailUsersHistoryList+newGmailUsersHistoryList =+  GmailUsersHistoryList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      historyTypes = Core.Nothing,+      labelId = Core.Nothing,+      maxResults = 100,+      pageToken = Core.Nothing,+      startHistoryId = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersHistoryList where+  type Rs GmailUsersHistoryList = ListHistoryResponse+  type+    Scopes GmailUsersHistoryList =+      '[Gmail'FullControl, Gmail'Metadata, Gmail'Modify, Gmail'Readonly]+  requestClient GmailUsersHistoryList {..} =+    go+      userId+      xgafv+      accessToken+      callback+      (historyTypes Core.^. Core._Default)+      labelId+      (Core.Just maxResults)+      pageToken+      startHistoryId+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersHistoryListResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Labels/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.Gmail.Users.Labels.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 label.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.labels.create@.+module Gogol.Gmail.Users.Labels.Create+  ( -- * Resource+    GmailUsersLabelsCreateResource,++    -- ** Constructing a Request+    GmailUsersLabelsCreate (..),+    newGmailUsersLabelsCreate,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.labels.create@ method which the+-- 'GmailUsersLabelsCreate' request conforms to.+type GmailUsersLabelsCreateResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "labels"+    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] Label+    Core.:> Core.Post '[Core.JSON] Label++-- | Creates a new label.+--+-- /See:/ 'newGmailUsersLabelsCreate' smart constructor.+data GmailUsersLabelsCreate = GmailUsersLabelsCreate+  { -- | 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 :: Label,+    -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersLabelsCreate' with the minimum fields required to make a request.+newGmailUsersLabelsCreate ::+  -- |  Multipart request metadata. See 'payload'.+  Label ->+  GmailUsersLabelsCreate+newGmailUsersLabelsCreate payload =+  GmailUsersLabelsCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersLabelsCreate where+  type Rs GmailUsersLabelsCreate = Label+  type+    Scopes GmailUsersLabelsCreate =+      '[Gmail'FullControl, Gmail'Labels, Gmail'Modify]+  requestClient GmailUsersLabelsCreate {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersLabelsCreateResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Labels/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.Gmail.Users.Labels.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)+--+-- Immediately and permanently deletes the specified label and removes it from any messages and threads that it is applied to.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.labels.delete@.+module Gogol.Gmail.Users.Labels.Delete+  ( -- * Resource+    GmailUsersLabelsDeleteResource,++    -- ** Constructing a Request+    GmailUsersLabelsDelete (..),+    newGmailUsersLabelsDelete,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.labels.delete@ method which the+-- 'GmailUsersLabelsDelete' request conforms to.+type GmailUsersLabelsDeleteResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "labels"+    Core.:> Core.Capture "id" 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] ()++-- | Immediately and permanently deletes the specified label and removes it from any messages and threads that it is applied to.+--+-- /See:/ 'newGmailUsersLabelsDelete' smart constructor.+data GmailUsersLabelsDelete = GmailUsersLabelsDelete+  { -- | 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 label to delete.+    id :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersLabelsDelete' with the minimum fields required to make a request.+newGmailUsersLabelsDelete ::+  -- |  The ID of the label to delete. See 'id'.+  Core.Text ->+  GmailUsersLabelsDelete+newGmailUsersLabelsDelete id =+  GmailUsersLabelsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersLabelsDelete where+  type Rs GmailUsersLabelsDelete = ()+  type+    Scopes GmailUsersLabelsDelete =+      '[Gmail'FullControl, Gmail'Labels, Gmail'Modify]+  requestClient GmailUsersLabelsDelete {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersLabelsDeleteResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Labels/Get.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.Gmail.Users.Labels.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 specified label.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.labels.get@.+module Gogol.Gmail.Users.Labels.Get+  ( -- * Resource+    GmailUsersLabelsGetResource,++    -- ** Constructing a Request+    GmailUsersLabelsGet (..),+    newGmailUsersLabelsGet,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.labels.get@ method which the+-- 'GmailUsersLabelsGet' request conforms to.+type GmailUsersLabelsGetResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "labels"+    Core.:> Core.Capture "id" 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] Label++-- | Gets the specified label.+--+-- /See:/ 'newGmailUsersLabelsGet' smart constructor.+data GmailUsersLabelsGet = GmailUsersLabelsGet+  { -- | 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 label to retrieve.+    id :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersLabelsGet' with the minimum fields required to make a request.+newGmailUsersLabelsGet ::+  -- |  The ID of the label to retrieve. See 'id'.+  Core.Text ->+  GmailUsersLabelsGet+newGmailUsersLabelsGet id =+  GmailUsersLabelsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersLabelsGet where+  type Rs GmailUsersLabelsGet = Label+  type+    Scopes GmailUsersLabelsGet =+      '[ Gmail'FullControl,+         Gmail'Labels,+         Gmail'Metadata,+         Gmail'Modify,+         Gmail'Readonly+       ]+  requestClient GmailUsersLabelsGet {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersLabelsGetResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Labels/List.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.Gmail.Users.Labels.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all labels in the user\'s mailbox.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.labels.list@.+module Gogol.Gmail.Users.Labels.List+  ( -- * Resource+    GmailUsersLabelsListResource,++    -- ** Constructing a Request+    GmailUsersLabelsList (..),+    newGmailUsersLabelsList,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.labels.list@ method which the+-- 'GmailUsersLabelsList' request conforms to.+type GmailUsersLabelsListResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "labels"+    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] ListLabelsResponse++-- | Lists all labels in the user\'s mailbox.+--+-- /See:/ 'newGmailUsersLabelsList' smart constructor.+data GmailUsersLabelsList = GmailUsersLabelsList+  { -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersLabelsList' with the minimum fields required to make a request.+newGmailUsersLabelsList ::+  GmailUsersLabelsList+newGmailUsersLabelsList =+  GmailUsersLabelsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersLabelsList where+  type Rs GmailUsersLabelsList = ListLabelsResponse+  type+    Scopes GmailUsersLabelsList =+      '[ Gmail'FullControl,+         Gmail'Labels,+         Gmail'Metadata,+         Gmail'Modify,+         Gmail'Readonly+       ]+  requestClient GmailUsersLabelsList {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersLabelsListResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Labels/Patch.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.Gmail.Users.Labels.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Patch the specified label.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.labels.patch@.+module Gogol.Gmail.Users.Labels.Patch+  ( -- * Resource+    GmailUsersLabelsPatchResource,++    -- ** Constructing a Request+    GmailUsersLabelsPatch (..),+    newGmailUsersLabelsPatch,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.labels.patch@ method which the+-- 'GmailUsersLabelsPatch' request conforms to.+type GmailUsersLabelsPatchResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "labels"+    Core.:> Core.Capture "id" 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] Label+    Core.:> Core.Patch '[Core.JSON] Label++-- | Patch the specified label.+--+-- /See:/ 'newGmailUsersLabelsPatch' smart constructor.+data GmailUsersLabelsPatch = GmailUsersLabelsPatch+  { -- | 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 label to update.+    id :: Core.Text,+    -- | Multipart request metadata.+    payload :: Label,+    -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersLabelsPatch' with the minimum fields required to make a request.+newGmailUsersLabelsPatch ::+  -- |  The ID of the label to update. See 'id'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Label ->+  GmailUsersLabelsPatch+newGmailUsersLabelsPatch id payload =+  GmailUsersLabelsPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersLabelsPatch where+  type Rs GmailUsersLabelsPatch = Label+  type+    Scopes GmailUsersLabelsPatch =+      '[Gmail'FullControl, Gmail'Labels, Gmail'Modify]+  requestClient GmailUsersLabelsPatch {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersLabelsPatchResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Labels/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.Gmail.Users.Labels.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 specified label.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.labels.update@.+module Gogol.Gmail.Users.Labels.Update+  ( -- * Resource+    GmailUsersLabelsUpdateResource,++    -- ** Constructing a Request+    GmailUsersLabelsUpdate (..),+    newGmailUsersLabelsUpdate,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.labels.update@ method which the+-- 'GmailUsersLabelsUpdate' request conforms to.+type GmailUsersLabelsUpdateResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "labels"+    Core.:> Core.Capture "id" 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] Label+    Core.:> Core.Put '[Core.JSON] Label++-- | Updates the specified label.+--+-- /See:/ 'newGmailUsersLabelsUpdate' smart constructor.+data GmailUsersLabelsUpdate = GmailUsersLabelsUpdate+  { -- | 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 label to update.+    id :: Core.Text,+    -- | Multipart request metadata.+    payload :: Label,+    -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersLabelsUpdate' with the minimum fields required to make a request.+newGmailUsersLabelsUpdate ::+  -- |  The ID of the label to update. See 'id'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Label ->+  GmailUsersLabelsUpdate+newGmailUsersLabelsUpdate id payload =+  GmailUsersLabelsUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersLabelsUpdate where+  type Rs GmailUsersLabelsUpdate = Label+  type+    Scopes GmailUsersLabelsUpdate =+      '[Gmail'FullControl, Gmail'Labels, Gmail'Modify]+  requestClient GmailUsersLabelsUpdate {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersLabelsUpdateResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Messages/Attachments/Get.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.Gmail.Users.Messages.Attachments.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 specified message attachment.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.attachments.get@.+module Gogol.Gmail.Users.Messages.Attachments.Get+  ( -- * Resource+    GmailUsersMessagesAttachmentsGetResource,++    -- ** Constructing a Request+    GmailUsersMessagesAttachmentsGet (..),+    newGmailUsersMessagesAttachmentsGet,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.messages.attachments.get@ method which the+-- 'GmailUsersMessagesAttachmentsGet' request conforms to.+type GmailUsersMessagesAttachmentsGetResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> Core.Capture "messageId" Core.Text+    Core.:> "attachments"+    Core.:> Core.Capture "id" 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] MessagePartBody++-- | Gets the specified message attachment.+--+-- /See:/ 'newGmailUsersMessagesAttachmentsGet' smart constructor.+data GmailUsersMessagesAttachmentsGet = GmailUsersMessagesAttachmentsGet+  { -- | 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 attachment.+    id :: Core.Text,+    -- | The ID of the message containing the attachment.+    messageId :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersMessagesAttachmentsGet' with the minimum fields required to make a request.+newGmailUsersMessagesAttachmentsGet ::+  -- |  The ID of the attachment. See 'id'.+  Core.Text ->+  -- |  The ID of the message containing the attachment. See 'messageId'.+  Core.Text ->+  GmailUsersMessagesAttachmentsGet+newGmailUsersMessagesAttachmentsGet id messageId =+  GmailUsersMessagesAttachmentsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      messageId = messageId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersMessagesAttachmentsGet where+  type Rs GmailUsersMessagesAttachmentsGet = MessagePartBody+  type+    Scopes GmailUsersMessagesAttachmentsGet =+      '[ Gmail'FullControl,+         Gmail'Addons'Current'Message'Action,+         Gmail'Addons'Current'Message'Readonly,+         Gmail'Modify,+         Gmail'Readonly+       ]+  requestClient GmailUsersMessagesAttachmentsGet {..} =+    go+      userId+      messageId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesAttachmentsGetResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Messages/BatchDelete.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.Gmail.Users.Messages.BatchDelete+-- 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 many messages by message ID. Provides no guarantees that messages were not already deleted or even existed at all.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.batchDelete@.+module Gogol.Gmail.Users.Messages.BatchDelete+  ( -- * Resource+    GmailUsersMessagesBatchDeleteResource,++    -- ** Constructing a Request+    GmailUsersMessagesBatchDelete (..),+    newGmailUsersMessagesBatchDelete,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.messages.batchDelete@ method which the+-- 'GmailUsersMessagesBatchDelete' request conforms to.+type GmailUsersMessagesBatchDeleteResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> "batchDelete"+    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] BatchDeleteMessagesRequest+    Core.:> Core.Post '[Core.JSON] ()++-- | Deletes many messages by message ID. Provides no guarantees that messages were not already deleted or even existed at all.+--+-- /See:/ 'newGmailUsersMessagesBatchDelete' smart constructor.+data GmailUsersMessagesBatchDelete = GmailUsersMessagesBatchDelete+  { -- | 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 :: BatchDeleteMessagesRequest,+    -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersMessagesBatchDelete' with the minimum fields required to make a request.+newGmailUsersMessagesBatchDelete ::+  -- |  Multipart request metadata. See 'payload'.+  BatchDeleteMessagesRequest ->+  GmailUsersMessagesBatchDelete+newGmailUsersMessagesBatchDelete payload =+  GmailUsersMessagesBatchDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersMessagesBatchDelete where+  type Rs GmailUsersMessagesBatchDelete = ()+  type Scopes GmailUsersMessagesBatchDelete = '[Gmail'FullControl]+  requestClient GmailUsersMessagesBatchDelete {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesBatchDeleteResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Messages/BatchModify.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.Gmail.Users.Messages.BatchModify+-- 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 labels on the specified messages.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.batchModify@.+module Gogol.Gmail.Users.Messages.BatchModify+  ( -- * Resource+    GmailUsersMessagesBatchModifyResource,++    -- ** Constructing a Request+    GmailUsersMessagesBatchModify (..),+    newGmailUsersMessagesBatchModify,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.messages.batchModify@ method which the+-- 'GmailUsersMessagesBatchModify' request conforms to.+type GmailUsersMessagesBatchModifyResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> "batchModify"+    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] BatchModifyMessagesRequest+    Core.:> Core.Post '[Core.JSON] ()++-- | Modifies the labels on the specified messages.+--+-- /See:/ 'newGmailUsersMessagesBatchModify' smart constructor.+data GmailUsersMessagesBatchModify = GmailUsersMessagesBatchModify+  { -- | 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 :: BatchModifyMessagesRequest,+    -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersMessagesBatchModify' with the minimum fields required to make a request.+newGmailUsersMessagesBatchModify ::+  -- |  Multipart request metadata. See 'payload'.+  BatchModifyMessagesRequest ->+  GmailUsersMessagesBatchModify+newGmailUsersMessagesBatchModify payload =+  GmailUsersMessagesBatchModify+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersMessagesBatchModify where+  type Rs GmailUsersMessagesBatchModify = ()+  type+    Scopes GmailUsersMessagesBatchModify =+      '[Gmail'FullControl, Gmail'Modify]+  requestClient GmailUsersMessagesBatchModify {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesBatchModifyResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Messages/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.Gmail.Users.Messages.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)+--+-- Immediately and permanently deletes the specified message. This operation cannot be undone. Prefer @messages.trash@ instead.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.delete@.+module Gogol.Gmail.Users.Messages.Delete+  ( -- * Resource+    GmailUsersMessagesDeleteResource,++    -- ** Constructing a Request+    GmailUsersMessagesDelete (..),+    newGmailUsersMessagesDelete,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.messages.delete@ method which the+-- 'GmailUsersMessagesDelete' request conforms to.+type GmailUsersMessagesDeleteResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> Core.Capture "id" 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] ()++-- | Immediately and permanently deletes the specified message. This operation cannot be undone. Prefer @messages.trash@ instead.+--+-- /See:/ 'newGmailUsersMessagesDelete' smart constructor.+data GmailUsersMessagesDelete = GmailUsersMessagesDelete+  { -- | 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 message to delete.+    id :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersMessagesDelete' with the minimum fields required to make a request.+newGmailUsersMessagesDelete ::+  -- |  The ID of the message to delete. See 'id'.+  Core.Text ->+  GmailUsersMessagesDelete+newGmailUsersMessagesDelete id =+  GmailUsersMessagesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersMessagesDelete where+  type Rs GmailUsersMessagesDelete = ()+  type Scopes GmailUsersMessagesDelete = '[Gmail'FullControl]+  requestClient GmailUsersMessagesDelete {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesDeleteResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Messages/Get.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Gmail.Users.Messages.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 specified message.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.get@.+module Gogol.Gmail.Users.Messages.Get+  ( -- * Resource+    GmailUsersMessagesGetResource,++    -- ** Constructing a Request+    GmailUsersMessagesGet (..),+    newGmailUsersMessagesGet,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.messages.get@ method which the+-- 'GmailUsersMessagesGet' request conforms to.+type GmailUsersMessagesGetResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> Core.Capture "id" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "format" UsersMessagesGetFormat+    Core.:> Core.QueryParams "metadataHeaders" 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] Message++-- | Gets the specified message.+--+-- /See:/ 'newGmailUsersMessagesGet' smart constructor.+data GmailUsersMessagesGet = GmailUsersMessagesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The format to return the message in.+    format :: UsersMessagesGetFormat,+    -- | The ID of the message to retrieve. This ID is usually retrieved using @messages.list@. The ID is also contained in the result when a message is inserted (@messages.insert@) or imported (@messages.import@).+    id :: Core.Text,+    -- | When given and format is @METADATA@, only include headers specified.+    metadataHeaders :: (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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersMessagesGet' with the minimum fields required to make a request.+newGmailUsersMessagesGet ::+  -- |  The ID of the message to retrieve. This ID is usually retrieved using @messages.list@. The ID is also contained in the result when a message is inserted (@messages.insert@) or imported (@messages.import@). See 'id'.+  Core.Text ->+  GmailUsersMessagesGet+newGmailUsersMessagesGet id =+  GmailUsersMessagesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      format = UsersMessagesGetFormat_Full,+      id = id,+      metadataHeaders = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersMessagesGet where+  type Rs GmailUsersMessagesGet = Message+  type+    Scopes GmailUsersMessagesGet =+      '[ Gmail'FullControl,+         Gmail'Addons'Current'Message'Action,+         Gmail'Addons'Current'Message'Metadata,+         Gmail'Addons'Current'Message'Readonly,+         Gmail'Metadata,+         Gmail'Modify,+         Gmail'Readonly+       ]+  requestClient GmailUsersMessagesGet {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      (Core.Just format)+      (metadataHeaders Core.^. Core._Default)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesGetResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Messages/Import.hs view
@@ -0,0 +1,194 @@+{-# 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.Gmail.Users.Messages.Import+-- 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)+--+-- Imports a message into only this user\'s mailbox, with standard email delivery scanning and classification similar to receiving via SMTP. This method doesn\'t perform SPF checks, so it might not work for some spam messages, such as those attempting to perform domain spoofing. This method does not send a message.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.import@.+module Gogol.Gmail.Users.Messages.Import+  ( -- * Resource+    GmailUsersMessagesImportResource,++    -- ** Constructing a Request+    GmailUsersMessagesImport (..),+    newGmailUsersMessagesImport,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.messages.import@ method which the+-- 'GmailUsersMessagesImport' request conforms to.+type GmailUsersMessagesImportResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> "import"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "deleted" Core.Bool+    Core.:> Core.QueryParam+              "internalDateSource"+              UsersMessagesImportInternalDateSource+    Core.:> Core.QueryParam "neverMarkSpam" Core.Bool+    Core.:> Core.QueryParam "processForCalendar" 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] Message+    Core.:> Core.Post '[Core.JSON] Message+    Core.:<|> "upload"+    Core.:> "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> "import"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "deleted" Core.Bool+    Core.:> Core.QueryParam+              "internalDateSource"+              UsersMessagesImportInternalDateSource+    Core.:> Core.QueryParam "neverMarkSpam" Core.Bool+    Core.:> Core.QueryParam "processForCalendar" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.QueryParam "uploadType" Core.Multipart+    Core.:> Core.MultipartRelated '[Core.JSON] Message+    Core.:> Core.Post '[Core.JSON] Message++-- | Imports a message into only this user\'s mailbox, with standard email delivery scanning and classification similar to receiving via SMTP. This method doesn\'t perform SPF checks, so it might not work for some spam messages, such as those attempting to perform domain spoofing. This method does not send a message.+--+-- /See:/ 'newGmailUsersMessagesImport' smart constructor.+data GmailUsersMessagesImport = GmailUsersMessagesImport+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Mark the email as permanently deleted (not TRASH) and only visible in Google Vault to a Vault administrator. Only used for Google Workspace accounts.+    deleted :: Core.Bool,+    -- | Source for Gmail\'s internal date of the message.+    internalDateSource :: UsersMessagesImportInternalDateSource,+    -- | Ignore the Gmail spam classifier decision and never mark this email as SPAM in the mailbox.+    neverMarkSpam :: Core.Bool,+    -- | Multipart request metadata.+    payload :: Message,+    -- | Process calendar invites in the email and add any extracted meetings to the Google Calendar for this user.+    processForCalendar :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersMessagesImport' with the minimum fields required to make a request.+newGmailUsersMessagesImport ::+  -- |  Multipart request metadata. See 'payload'.+  Message ->+  GmailUsersMessagesImport+newGmailUsersMessagesImport payload =+  GmailUsersMessagesImport+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      deleted = Core.False,+      internalDateSource =+        UsersMessagesImportInternalDateSource_DateHeader,+      neverMarkSpam = Core.False,+      payload = payload,+      processForCalendar = Core.False,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersMessagesImport where+  type Rs GmailUsersMessagesImport = Message+  type+    Scopes GmailUsersMessagesImport =+      '[Gmail'FullControl, Gmail'Insert, Gmail'Modify]+  requestClient GmailUsersMessagesImport {..} =+    go+      userId+      xgafv+      accessToken+      callback+      (Core.Just deleted)+      (Core.Just internalDateSource)+      (Core.Just neverMarkSpam)+      (Core.Just processForCalendar)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go Core.:<|> _ =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesImportResource)+          Core.mempty++instance+  Core.GoogleRequest+    (Core.MediaUpload GmailUsersMessagesImport)+  where+  type Rs (Core.MediaUpload GmailUsersMessagesImport) = Message+  type+    Scopes (Core.MediaUpload GmailUsersMessagesImport) =+      Core.Scopes GmailUsersMessagesImport+  requestClient (Core.MediaUpload GmailUsersMessagesImport {..} body) =+    go+      userId+      xgafv+      accessToken+      callback+      (Core.Just deleted)+      (Core.Just internalDateSource)+      (Core.Just neverMarkSpam)+      (Core.Just processForCalendar)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      (Core.Just Core.Multipart)+      payload+      body+      gmailService+    where+      _ Core.:<|> go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesImportResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Messages/Insert.hs view
@@ -0,0 +1,178 @@+{-# 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.Gmail.Users.Messages.Insert+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Directly inserts a message into only this user\'s mailbox similar to @IMAP APPEND@, bypassing most scanning and classification. Does not send a message.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.insert@.+module Gogol.Gmail.Users.Messages.Insert+  ( -- * Resource+    GmailUsersMessagesInsertResource,++    -- ** Constructing a Request+    GmailUsersMessagesInsert (..),+    newGmailUsersMessagesInsert,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.messages.insert@ method which the+-- 'GmailUsersMessagesInsert' request conforms to.+type GmailUsersMessagesInsertResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "deleted" Core.Bool+    Core.:> Core.QueryParam+              "internalDateSource"+              UsersMessagesInsertInternalDateSource+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Message+    Core.:> Core.Post '[Core.JSON] Message+    Core.:<|> "upload"+    Core.:> "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "deleted" Core.Bool+    Core.:> Core.QueryParam+              "internalDateSource"+              UsersMessagesInsertInternalDateSource+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.QueryParam "uploadType" Core.Multipart+    Core.:> Core.MultipartRelated '[Core.JSON] Message+    Core.:> Core.Post '[Core.JSON] Message++-- | Directly inserts a message into only this user\'s mailbox similar to @IMAP APPEND@, bypassing most scanning and classification. Does not send a message.+--+-- /See:/ 'newGmailUsersMessagesInsert' smart constructor.+data GmailUsersMessagesInsert = GmailUsersMessagesInsert+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Mark the email as permanently deleted (not TRASH) and only visible in Google Vault to a Vault administrator. Only used for Google Workspace accounts.+    deleted :: Core.Bool,+    -- | Source for Gmail\'s internal date of the message.+    internalDateSource :: UsersMessagesInsertInternalDateSource,+    -- | Multipart request metadata.+    payload :: Message,+    -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersMessagesInsert' with the minimum fields required to make a request.+newGmailUsersMessagesInsert ::+  -- |  Multipart request metadata. See 'payload'.+  Message ->+  GmailUsersMessagesInsert+newGmailUsersMessagesInsert payload =+  GmailUsersMessagesInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      deleted = Core.False,+      internalDateSource =+        UsersMessagesInsertInternalDateSource_ReceivedTime,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersMessagesInsert where+  type Rs GmailUsersMessagesInsert = Message+  type+    Scopes GmailUsersMessagesInsert =+      '[Gmail'FullControl, Gmail'Insert, Gmail'Modify]+  requestClient GmailUsersMessagesInsert {..} =+    go+      userId+      xgafv+      accessToken+      callback+      (Core.Just deleted)+      (Core.Just internalDateSource)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go Core.:<|> _ =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesInsertResource)+          Core.mempty++instance+  Core.GoogleRequest+    (Core.MediaUpload GmailUsersMessagesInsert)+  where+  type Rs (Core.MediaUpload GmailUsersMessagesInsert) = Message+  type+    Scopes (Core.MediaUpload GmailUsersMessagesInsert) =+      Core.Scopes GmailUsersMessagesInsert+  requestClient (Core.MediaUpload GmailUsersMessagesInsert {..} body) =+    go+      userId+      xgafv+      accessToken+      callback+      (Core.Just deleted)+      (Core.Just internalDateSource)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      (Core.Just Core.Multipart)+      payload+      body+      gmailService+    where+      _ Core.:<|> go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesInsertResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Messages/List.hs view
@@ -0,0 +1,135 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Gmail.Users.Messages.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 messages in the user\'s mailbox.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.list@.+module Gogol.Gmail.Users.Messages.List+  ( -- * Resource+    GmailUsersMessagesListResource,++    -- ** Constructing a Request+    GmailUsersMessagesList (..),+    newGmailUsersMessagesList,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.messages.list@ method which the+-- 'GmailUsersMessagesList' request conforms to.+type GmailUsersMessagesListResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "includeSpamTrash" Core.Bool+    Core.:> Core.QueryParams "labelIds" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Word32+    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 "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListMessagesResponse++-- | Lists the messages in the user\'s mailbox.+--+-- /See:/ 'newGmailUsersMessagesList' smart constructor.+data GmailUsersMessagesList = GmailUsersMessagesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Include messages from @SPAM@ and @TRASH@ in the results.+    includeSpamTrash :: Core.Bool,+    -- | Only return messages with labels that match all of the specified label IDs. Messages in a thread might have labels that other messages in the same thread don\'t have. To learn more, see <https://developers.google.com/gmail/api/guides/labels#manage_labels_on_messages_threads Manage labels on messages and threads>.+    labelIds :: (Core.Maybe [Core.Text]),+    -- | Maximum number of messages to return. This field defaults to 100. The maximum allowed value for this field is 500.+    maxResults :: Core.Word32,+    -- | Page token to retrieve a specific page of results in the list.+    pageToken :: (Core.Maybe Core.Text),+    -- | Only return messages matching the specified query. Supports the same query format as the Gmail search box. For example, @\"from:someuser\@example.com rfc822msgid: is:unread\"@. Parameter cannot be used when accessing the api using the gmail.metadata scope.+    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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersMessagesList' with the minimum fields required to make a request.+newGmailUsersMessagesList ::+  GmailUsersMessagesList+newGmailUsersMessagesList =+  GmailUsersMessagesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      includeSpamTrash = Core.False,+      labelIds = Core.Nothing,+      maxResults = 100,+      pageToken = Core.Nothing,+      q = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersMessagesList where+  type Rs GmailUsersMessagesList = ListMessagesResponse+  type+    Scopes GmailUsersMessagesList =+      '[Gmail'FullControl, Gmail'Metadata, Gmail'Modify, Gmail'Readonly]+  requestClient GmailUsersMessagesList {..} =+    go+      userId+      xgafv+      accessToken+      callback+      (Core.Just includeSpamTrash)+      (labelIds Core.^. Core._Default)+      (Core.Just maxResults)+      pageToken+      q+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesListResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Messages/Modify.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.Gmail.Users.Messages.Modify+-- 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 labels on the specified message.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.modify@.+module Gogol.Gmail.Users.Messages.Modify+  ( -- * Resource+    GmailUsersMessagesModifyResource,++    -- ** Constructing a Request+    GmailUsersMessagesModify (..),+    newGmailUsersMessagesModify,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.messages.modify@ method which the+-- 'GmailUsersMessagesModify' request conforms to.+type GmailUsersMessagesModifyResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> Core.Capture "id" Core.Text+    Core.:> "modify"+    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] ModifyMessageRequest+    Core.:> Core.Post '[Core.JSON] Message++-- | Modifies the labels on the specified message.+--+-- /See:/ 'newGmailUsersMessagesModify' smart constructor.+data GmailUsersMessagesModify = GmailUsersMessagesModify+  { -- | 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 message to modify.+    id :: Core.Text,+    -- | Multipart request metadata.+    payload :: ModifyMessageRequest,+    -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersMessagesModify' with the minimum fields required to make a request.+newGmailUsersMessagesModify ::+  -- |  The ID of the message to modify. See 'id'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ModifyMessageRequest ->+  GmailUsersMessagesModify+newGmailUsersMessagesModify id payload =+  GmailUsersMessagesModify+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersMessagesModify where+  type Rs GmailUsersMessagesModify = Message+  type+    Scopes GmailUsersMessagesModify =+      '[Gmail'FullControl, Gmail'Modify]+  requestClient GmailUsersMessagesModify {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesModifyResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Messages/Send.hs view
@@ -0,0 +1,166 @@+{-# 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.Gmail.Users.Messages.Send+-- 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)+--+-- Sends the specified message to the recipients in the @To@, @Cc@, and @Bcc@ headers. For example usage, see <https://developers.google.com/gmail/api/guides/sending Sending email>.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.send@.+module Gogol.Gmail.Users.Messages.Send+  ( -- * Resource+    GmailUsersMessagesSendResource,++    -- ** Constructing a Request+    GmailUsersMessagesSend (..),+    newGmailUsersMessagesSend,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.messages.send@ method which the+-- 'GmailUsersMessagesSend' request conforms to.+type GmailUsersMessagesSendResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> "send"+    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] Message+    Core.:> Core.Post '[Core.JSON] Message+    Core.:<|> "upload"+    Core.:> "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> "send"+    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.QueryParam "uploadType" Core.Multipart+    Core.:> Core.MultipartRelated '[Core.JSON] Message+    Core.:> Core.Post '[Core.JSON] Message++-- | Sends the specified message to the recipients in the @To@, @Cc@, and @Bcc@ headers. For example usage, see <https://developers.google.com/gmail/api/guides/sending Sending email>.+--+-- /See:/ 'newGmailUsersMessagesSend' smart constructor.+data GmailUsersMessagesSend = GmailUsersMessagesSend+  { -- | 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 :: Message,+    -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersMessagesSend' with the minimum fields required to make a request.+newGmailUsersMessagesSend ::+  -- |  Multipart request metadata. See 'payload'.+  Message ->+  GmailUsersMessagesSend+newGmailUsersMessagesSend payload =+  GmailUsersMessagesSend+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersMessagesSend where+  type Rs GmailUsersMessagesSend = Message+  type+    Scopes GmailUsersMessagesSend =+      '[ Gmail'FullControl,+         Gmail'Addons'Current'Action'Compose,+         Gmail'Compose,+         Gmail'Modify,+         Gmail'Send+       ]+  requestClient GmailUsersMessagesSend {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go Core.:<|> _ =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesSendResource)+          Core.mempty++instance+  Core.GoogleRequest+    (Core.MediaUpload GmailUsersMessagesSend)+  where+  type Rs (Core.MediaUpload GmailUsersMessagesSend) = Message+  type+    Scopes (Core.MediaUpload GmailUsersMessagesSend) =+      Core.Scopes GmailUsersMessagesSend+  requestClient (Core.MediaUpload GmailUsersMessagesSend {..} body) =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      (Core.Just Core.Multipart)+      payload+      body+      gmailService+    where+      _ Core.:<|> go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesSendResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Messages/Trash.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.Gmail.Users.Messages.Trash+-- 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)+--+-- Moves the specified message to the trash.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.trash@.+module Gogol.Gmail.Users.Messages.Trash+  ( -- * Resource+    GmailUsersMessagesTrashResource,++    -- ** Constructing a Request+    GmailUsersMessagesTrash (..),+    newGmailUsersMessagesTrash,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.messages.trash@ method which the+-- 'GmailUsersMessagesTrash' request conforms to.+type GmailUsersMessagesTrashResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> Core.Capture "id" Core.Text+    Core.:> "trash"+    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] Message++-- | Moves the specified message to the trash.+--+-- /See:/ 'newGmailUsersMessagesTrash' smart constructor.+data GmailUsersMessagesTrash = GmailUsersMessagesTrash+  { -- | 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 message to Trash.+    id :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersMessagesTrash' with the minimum fields required to make a request.+newGmailUsersMessagesTrash ::+  -- |  The ID of the message to Trash. See 'id'.+  Core.Text ->+  GmailUsersMessagesTrash+newGmailUsersMessagesTrash id =+  GmailUsersMessagesTrash+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersMessagesTrash where+  type Rs GmailUsersMessagesTrash = Message+  type+    Scopes GmailUsersMessagesTrash =+      '[Gmail'FullControl, Gmail'Modify]+  requestClient GmailUsersMessagesTrash {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesTrashResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Messages/Untrash.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.Gmail.Users.Messages.Untrash+-- 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)+--+-- Removes the specified message from the trash.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.untrash@.+module Gogol.Gmail.Users.Messages.Untrash+  ( -- * Resource+    GmailUsersMessagesUntrashResource,++    -- ** Constructing a Request+    GmailUsersMessagesUntrash (..),+    newGmailUsersMessagesUntrash,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.messages.untrash@ method which the+-- 'GmailUsersMessagesUntrash' request conforms to.+type GmailUsersMessagesUntrashResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "messages"+    Core.:> Core.Capture "id" Core.Text+    Core.:> "untrash"+    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] Message++-- | Removes the specified message from the trash.+--+-- /See:/ 'newGmailUsersMessagesUntrash' smart constructor.+data GmailUsersMessagesUntrash = GmailUsersMessagesUntrash+  { -- | 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 message to remove from Trash.+    id :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersMessagesUntrash' with the minimum fields required to make a request.+newGmailUsersMessagesUntrash ::+  -- |  The ID of the message to remove from Trash. See 'id'.+  Core.Text ->+  GmailUsersMessagesUntrash+newGmailUsersMessagesUntrash id =+  GmailUsersMessagesUntrash+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersMessagesUntrash where+  type Rs GmailUsersMessagesUntrash = Message+  type+    Scopes GmailUsersMessagesUntrash =+      '[Gmail'FullControl, Gmail'Modify]+  requestClient GmailUsersMessagesUntrash {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersMessagesUntrashResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Cse/Identities/Create.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.Gmail.Users.Settings.Cse.Identities.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 and configures a client-side encryption identity that\'s authorized to send mail from the user account. Google publishes the S\/MIME certificate to a shared domain-wide directory so that people within a Google Workspace organization can encrypt and send mail to the identity.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.cse.identities.create@.+module Gogol.Gmail.Users.Settings.Cse.Identities.Create+  ( -- * Resource+    GmailUsersSettingsCseIdentitiesCreateResource,++    -- ** Constructing a Request+    GmailUsersSettingsCseIdentitiesCreate (..),+    newGmailUsersSettingsCseIdentitiesCreate,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.cse.identities.create@ method which the+-- 'GmailUsersSettingsCseIdentitiesCreate' request conforms to.+type GmailUsersSettingsCseIdentitiesCreateResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "cse"+    Core.:> "identities"+    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] CseIdentity+    Core.:> Core.Post '[Core.JSON] CseIdentity++-- | Creates and configures a client-side encryption identity that\'s authorized to send mail from the user account. Google publishes the S\/MIME certificate to a shared domain-wide directory so that people within a Google Workspace organization can encrypt and send mail to the identity.+--+-- /See:/ 'newGmailUsersSettingsCseIdentitiesCreate' smart constructor.+data GmailUsersSettingsCseIdentitiesCreate = GmailUsersSettingsCseIdentitiesCreate+  { -- | 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 :: CseIdentity,+    -- | 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),+    -- | The requester\'s primary email address. To indicate the authenticated user, you can use the special value @me@.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsCseIdentitiesCreate' with the minimum fields required to make a request.+newGmailUsersSettingsCseIdentitiesCreate ::+  -- |  Multipart request metadata. See 'payload'.+  CseIdentity ->+  GmailUsersSettingsCseIdentitiesCreate+newGmailUsersSettingsCseIdentitiesCreate payload =+  GmailUsersSettingsCseIdentitiesCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsCseIdentitiesCreate where+  type Rs GmailUsersSettingsCseIdentitiesCreate = CseIdentity+  type+    Scopes GmailUsersSettingsCseIdentitiesCreate =+      '[Gmail'Settings'Basic, Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsCseIdentitiesCreate {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsCseIdentitiesCreateResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Cse/Identities/Delete.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.Gmail.Users.Settings.Cse.Identities.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 client-side encryption identity. The authenticated user can no longer use the identity to send encrypted messages. You cannot restore the identity after you delete it. Instead, use the CreateCseIdentity method to create another identity with the same configuration.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.cse.identities.delete@.+module Gogol.Gmail.Users.Settings.Cse.Identities.Delete+  ( -- * Resource+    GmailUsersSettingsCseIdentitiesDeleteResource,++    -- ** Constructing a Request+    GmailUsersSettingsCseIdentitiesDelete (..),+    newGmailUsersSettingsCseIdentitiesDelete,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.cse.identities.delete@ method which the+-- 'GmailUsersSettingsCseIdentitiesDelete' request conforms to.+type GmailUsersSettingsCseIdentitiesDeleteResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "cse"+    Core.:> "identities"+    Core.:> Core.Capture "cseEmailAddress" 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 client-side encryption identity. The authenticated user can no longer use the identity to send encrypted messages. You cannot restore the identity after you delete it. Instead, use the CreateCseIdentity method to create another identity with the same configuration.+--+-- /See:/ 'newGmailUsersSettingsCseIdentitiesDelete' smart constructor.+data GmailUsersSettingsCseIdentitiesDelete = GmailUsersSettingsCseIdentitiesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The primary email address associated with the client-side encryption identity configuration that\'s removed.+    cseEmailAddress :: 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),+    -- | The requester\'s primary email address. To indicate the authenticated user, you can use the special value @me@.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsCseIdentitiesDelete' with the minimum fields required to make a request.+newGmailUsersSettingsCseIdentitiesDelete ::+  -- |  The primary email address associated with the client-side encryption identity configuration that\'s removed. See 'cseEmailAddress'.+  Core.Text ->+  GmailUsersSettingsCseIdentitiesDelete+newGmailUsersSettingsCseIdentitiesDelete cseEmailAddress =+  GmailUsersSettingsCseIdentitiesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      cseEmailAddress = cseEmailAddress,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsCseIdentitiesDelete where+  type Rs GmailUsersSettingsCseIdentitiesDelete = ()+  type+    Scopes GmailUsersSettingsCseIdentitiesDelete =+      '[Gmail'Settings'Basic, Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsCseIdentitiesDelete {..} =+    go+      userId+      cseEmailAddress+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsCseIdentitiesDeleteResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Cse/Identities/Get.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.Gmail.Users.Settings.Cse.Identities.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves a client-side encryption identity configuration.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.cse.identities.get@.+module Gogol.Gmail.Users.Settings.Cse.Identities.Get+  ( -- * Resource+    GmailUsersSettingsCseIdentitiesGetResource,++    -- ** Constructing a Request+    GmailUsersSettingsCseIdentitiesGet (..),+    newGmailUsersSettingsCseIdentitiesGet,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.cse.identities.get@ method which the+-- 'GmailUsersSettingsCseIdentitiesGet' request conforms to.+type GmailUsersSettingsCseIdentitiesGetResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "cse"+    Core.:> "identities"+    Core.:> Core.Capture "cseEmailAddress" 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] CseIdentity++-- | Retrieves a client-side encryption identity configuration.+--+-- /See:/ 'newGmailUsersSettingsCseIdentitiesGet' smart constructor.+data GmailUsersSettingsCseIdentitiesGet = GmailUsersSettingsCseIdentitiesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The primary email address associated with the client-side encryption identity configuration that\'s retrieved.+    cseEmailAddress :: 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),+    -- | The requester\'s primary email address. To indicate the authenticated user, you can use the special value @me@.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsCseIdentitiesGet' with the minimum fields required to make a request.+newGmailUsersSettingsCseIdentitiesGet ::+  -- |  The primary email address associated with the client-side encryption identity configuration that\'s retrieved. See 'cseEmailAddress'.+  Core.Text ->+  GmailUsersSettingsCseIdentitiesGet+newGmailUsersSettingsCseIdentitiesGet cseEmailAddress =+  GmailUsersSettingsCseIdentitiesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      cseEmailAddress = cseEmailAddress,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsCseIdentitiesGet where+  type Rs GmailUsersSettingsCseIdentitiesGet = CseIdentity+  type+    Scopes GmailUsersSettingsCseIdentitiesGet =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic,+         Gmail'Settings'Sharing+       ]+  requestClient GmailUsersSettingsCseIdentitiesGet {..} =+    go+      userId+      cseEmailAddress+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsCseIdentitiesGetResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Cse/Identities/List.hs view
@@ -0,0 +1,131 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Gmail.Users.Settings.Cse.Identities.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 client-side encrypted identities for an authenticated user.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.cse.identities.list@.+module Gogol.Gmail.Users.Settings.Cse.Identities.List+  ( -- * Resource+    GmailUsersSettingsCseIdentitiesListResource,++    -- ** Constructing a Request+    GmailUsersSettingsCseIdentitiesList (..),+    newGmailUsersSettingsCseIdentitiesList,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.cse.identities.list@ method which the+-- 'GmailUsersSettingsCseIdentitiesList' request conforms to.+type GmailUsersSettingsCseIdentitiesListResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "cse"+    Core.:> "identities"+    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] ListCseIdentitiesResponse++-- | Lists the client-side encrypted identities for an authenticated user.+--+-- /See:/ 'newGmailUsersSettingsCseIdentitiesList' smart constructor.+data GmailUsersSettingsCseIdentitiesList = GmailUsersSettingsCseIdentitiesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The number of identities to return. If not provided, the page size will default to 20 entries.+    pageSize :: Core.Int32,+    -- | Pagination token indicating which page of identities to return. If the token is not supplied, then the API will return the first page of results.+    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),+    -- | The requester\'s primary email address. To indicate the authenticated user, you can use the special value @me@.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsCseIdentitiesList' with the minimum fields required to make a request.+newGmailUsersSettingsCseIdentitiesList ::+  GmailUsersSettingsCseIdentitiesList+newGmailUsersSettingsCseIdentitiesList =+  GmailUsersSettingsCseIdentitiesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      pageSize = 20,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsCseIdentitiesList where+  type+    Rs GmailUsersSettingsCseIdentitiesList =+      ListCseIdentitiesResponse+  type+    Scopes GmailUsersSettingsCseIdentitiesList =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic,+         Gmail'Settings'Sharing+       ]+  requestClient GmailUsersSettingsCseIdentitiesList {..} =+    go+      userId+      xgafv+      accessToken+      callback+      (Core.Just pageSize)+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsCseIdentitiesListResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Cse/Identities/Patch.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.Gmail.Users.Settings.Cse.Identities.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Associates a different key pair with an existing client-side encryption identity. The updated key pair must validate against Google\'s <https://support.google.com/a/answer/7300887 S\/MIME certificate profiles>.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.cse.identities.patch@.+module Gogol.Gmail.Users.Settings.Cse.Identities.Patch+  ( -- * Resource+    GmailUsersSettingsCseIdentitiesPatchResource,++    -- ** Constructing a Request+    GmailUsersSettingsCseIdentitiesPatch (..),+    newGmailUsersSettingsCseIdentitiesPatch,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.cse.identities.patch@ method which the+-- 'GmailUsersSettingsCseIdentitiesPatch' request conforms to.+type GmailUsersSettingsCseIdentitiesPatchResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "cse"+    Core.:> "identities"+    Core.:> Core.Capture "emailAddress" 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] CseIdentity+    Core.:> Core.Patch '[Core.JSON] CseIdentity++-- | Associates a different key pair with an existing client-side encryption identity. The updated key pair must validate against Google\'s <https://support.google.com/a/answer/7300887 S\/MIME certificate profiles>.+--+-- /See:/ 'newGmailUsersSettingsCseIdentitiesPatch' smart constructor.+data GmailUsersSettingsCseIdentitiesPatch = GmailUsersSettingsCseIdentitiesPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The email address of the client-side encryption identity to update.+    emailAddress :: Core.Text,+    -- | Multipart request metadata.+    payload :: CseIdentity,+    -- | 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),+    -- | The requester\'s primary email address. To indicate the authenticated user, you can use the special value @me@.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsCseIdentitiesPatch' with the minimum fields required to make a request.+newGmailUsersSettingsCseIdentitiesPatch ::+  -- |  The email address of the client-side encryption identity to update. See 'emailAddress'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CseIdentity ->+  GmailUsersSettingsCseIdentitiesPatch+newGmailUsersSettingsCseIdentitiesPatch emailAddress payload =+  GmailUsersSettingsCseIdentitiesPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      emailAddress = emailAddress,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsCseIdentitiesPatch where+  type Rs GmailUsersSettingsCseIdentitiesPatch = CseIdentity+  type+    Scopes GmailUsersSettingsCseIdentitiesPatch =+      '[Gmail'Settings'Basic, Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsCseIdentitiesPatch {..} =+    go+      userId+      emailAddress+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsCseIdentitiesPatchResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Cse/Keypairs/Create.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.Gmail.Users.Settings.Cse.Keypairs.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 and uploads a client-side encryption S\/MIME public key certificate chain and private key metadata for the authenticated user.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.cse.keypairs.create@.+module Gogol.Gmail.Users.Settings.Cse.Keypairs.Create+  ( -- * Resource+    GmailUsersSettingsCseKeypairsCreateResource,++    -- ** Constructing a Request+    GmailUsersSettingsCseKeypairsCreate (..),+    newGmailUsersSettingsCseKeypairsCreate,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.cse.keypairs.create@ method which the+-- 'GmailUsersSettingsCseKeypairsCreate' request conforms to.+type GmailUsersSettingsCseKeypairsCreateResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "cse"+    Core.:> "keypairs"+    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] CseKeyPair+    Core.:> Core.Post '[Core.JSON] CseKeyPair++-- | Creates and uploads a client-side encryption S\/MIME public key certificate chain and private key metadata for the authenticated user.+--+-- /See:/ 'newGmailUsersSettingsCseKeypairsCreate' smart constructor.+data GmailUsersSettingsCseKeypairsCreate = GmailUsersSettingsCseKeypairsCreate+  { -- | 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 :: CseKeyPair,+    -- | 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),+    -- | The requester\'s primary email address. To indicate the authenticated user, you can use the special value @me@.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsCseKeypairsCreate' with the minimum fields required to make a request.+newGmailUsersSettingsCseKeypairsCreate ::+  -- |  Multipart request metadata. See 'payload'.+  CseKeyPair ->+  GmailUsersSettingsCseKeypairsCreate+newGmailUsersSettingsCseKeypairsCreate payload =+  GmailUsersSettingsCseKeypairsCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsCseKeypairsCreate where+  type Rs GmailUsersSettingsCseKeypairsCreate = CseKeyPair+  type+    Scopes GmailUsersSettingsCseKeypairsCreate =+      '[Gmail'Settings'Basic, Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsCseKeypairsCreate {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsCseKeypairsCreateResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Cse/Keypairs/Disable.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.Gmail.Users.Settings.Cse.Keypairs.Disable+-- 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)+--+-- Turns off a client-side encryption key pair. The authenticated user can no longer use the key pair to decrypt incoming CSE message texts or sign outgoing CSE mail. To regain access, use the EnableCseKeyPair to turn on the key pair. After 30 days, you can permanently delete the key pair by using the ObliterateCseKeyPair method.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.cse.keypairs.disable@.+module Gogol.Gmail.Users.Settings.Cse.Keypairs.Disable+  ( -- * Resource+    GmailUsersSettingsCseKeypairsDisableResource,++    -- ** Constructing a Request+    GmailUsersSettingsCseKeypairsDisable (..),+    newGmailUsersSettingsCseKeypairsDisable,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.cse.keypairs.disable@ method which the+-- 'GmailUsersSettingsCseKeypairsDisable' request conforms to.+type GmailUsersSettingsCseKeypairsDisableResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "cse"+    Core.:> "keypairs"+    Core.:> Core.CaptureMode "keyPairId" "disable" 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] DisableCseKeyPairRequest+    Core.:> Core.Post '[Core.JSON] CseKeyPair++-- | Turns off a client-side encryption key pair. The authenticated user can no longer use the key pair to decrypt incoming CSE message texts or sign outgoing CSE mail. To regain access, use the EnableCseKeyPair to turn on the key pair. After 30 days, you can permanently delete the key pair by using the ObliterateCseKeyPair method.+--+-- /See:/ 'newGmailUsersSettingsCseKeypairsDisable' smart constructor.+data GmailUsersSettingsCseKeypairsDisable = GmailUsersSettingsCseKeypairsDisable+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The identifier of the key pair to turn off.+    keyPairId :: Core.Text,+    -- | Multipart request metadata.+    payload :: DisableCseKeyPairRequest,+    -- | 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),+    -- | The requester\'s primary email address. To indicate the authenticated user, you can use the special value @me@.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsCseKeypairsDisable' with the minimum fields required to make a request.+newGmailUsersSettingsCseKeypairsDisable ::+  -- |  The identifier of the key pair to turn off. See 'keyPairId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  DisableCseKeyPairRequest ->+  GmailUsersSettingsCseKeypairsDisable+newGmailUsersSettingsCseKeypairsDisable keyPairId payload =+  GmailUsersSettingsCseKeypairsDisable+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      keyPairId = keyPairId,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsCseKeypairsDisable where+  type Rs GmailUsersSettingsCseKeypairsDisable = CseKeyPair+  type+    Scopes GmailUsersSettingsCseKeypairsDisable =+      '[Gmail'Settings'Basic, Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsCseKeypairsDisable {..} =+    go+      userId+      keyPairId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsCseKeypairsDisableResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Cse/Keypairs/Enable.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.Gmail.Users.Settings.Cse.Keypairs.Enable+-- 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)+--+-- Turns on a client-side encryption key pair that was turned off. The key pair becomes active again for any associated client-side encryption identities.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.cse.keypairs.enable@.+module Gogol.Gmail.Users.Settings.Cse.Keypairs.Enable+  ( -- * Resource+    GmailUsersSettingsCseKeypairsEnableResource,++    -- ** Constructing a Request+    GmailUsersSettingsCseKeypairsEnable (..),+    newGmailUsersSettingsCseKeypairsEnable,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.cse.keypairs.enable@ method which the+-- 'GmailUsersSettingsCseKeypairsEnable' request conforms to.+type GmailUsersSettingsCseKeypairsEnableResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "cse"+    Core.:> "keypairs"+    Core.:> Core.CaptureMode "keyPairId" "enable" 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] EnableCseKeyPairRequest+    Core.:> Core.Post '[Core.JSON] CseKeyPair++-- | Turns on a client-side encryption key pair that was turned off. The key pair becomes active again for any associated client-side encryption identities.+--+-- /See:/ 'newGmailUsersSettingsCseKeypairsEnable' smart constructor.+data GmailUsersSettingsCseKeypairsEnable = GmailUsersSettingsCseKeypairsEnable+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The identifier of the key pair to turn on.+    keyPairId :: Core.Text,+    -- | Multipart request metadata.+    payload :: EnableCseKeyPairRequest,+    -- | 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),+    -- | The requester\'s primary email address. To indicate the authenticated user, you can use the special value @me@.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsCseKeypairsEnable' with the minimum fields required to make a request.+newGmailUsersSettingsCseKeypairsEnable ::+  -- |  The identifier of the key pair to turn on. See 'keyPairId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  EnableCseKeyPairRequest ->+  GmailUsersSettingsCseKeypairsEnable+newGmailUsersSettingsCseKeypairsEnable keyPairId payload =+  GmailUsersSettingsCseKeypairsEnable+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      keyPairId = keyPairId,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsCseKeypairsEnable where+  type Rs GmailUsersSettingsCseKeypairsEnable = CseKeyPair+  type+    Scopes GmailUsersSettingsCseKeypairsEnable =+      '[Gmail'Settings'Basic, Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsCseKeypairsEnable {..} =+    go+      userId+      keyPairId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsCseKeypairsEnableResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Cse/Keypairs/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.Gmail.Users.Settings.Cse.Keypairs.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 existing client-side encryption key pair.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.cse.keypairs.get@.+module Gogol.Gmail.Users.Settings.Cse.Keypairs.Get+  ( -- * Resource+    GmailUsersSettingsCseKeypairsGetResource,++    -- ** Constructing a Request+    GmailUsersSettingsCseKeypairsGet (..),+    newGmailUsersSettingsCseKeypairsGet,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.cse.keypairs.get@ method which the+-- 'GmailUsersSettingsCseKeypairsGet' request conforms to.+type GmailUsersSettingsCseKeypairsGetResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "cse"+    Core.:> "keypairs"+    Core.:> Core.Capture "keyPairId" 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] CseKeyPair++-- | Retrieves an existing client-side encryption key pair.+--+-- /See:/ 'newGmailUsersSettingsCseKeypairsGet' smart constructor.+data GmailUsersSettingsCseKeypairsGet = GmailUsersSettingsCseKeypairsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The identifier of the key pair to retrieve.+    keyPairId :: 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),+    -- | The requester\'s primary email address. To indicate the authenticated user, you can use the special value @me@.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsCseKeypairsGet' with the minimum fields required to make a request.+newGmailUsersSettingsCseKeypairsGet ::+  -- |  The identifier of the key pair to retrieve. See 'keyPairId'.+  Core.Text ->+  GmailUsersSettingsCseKeypairsGet+newGmailUsersSettingsCseKeypairsGet keyPairId =+  GmailUsersSettingsCseKeypairsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      keyPairId = keyPairId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsCseKeypairsGet where+  type Rs GmailUsersSettingsCseKeypairsGet = CseKeyPair+  type+    Scopes GmailUsersSettingsCseKeypairsGet =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic,+         Gmail'Settings'Sharing+       ]+  requestClient GmailUsersSettingsCseKeypairsGet {..} =+    go+      userId+      keyPairId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsCseKeypairsGetResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Cse/Keypairs/List.hs view
@@ -0,0 +1,129 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Gmail.Users.Settings.Cse.Keypairs.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 client-side encryption key pairs for an authenticated user.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.cse.keypairs.list@.+module Gogol.Gmail.Users.Settings.Cse.Keypairs.List+  ( -- * Resource+    GmailUsersSettingsCseKeypairsListResource,++    -- ** Constructing a Request+    GmailUsersSettingsCseKeypairsList (..),+    newGmailUsersSettingsCseKeypairsList,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.cse.keypairs.list@ method which the+-- 'GmailUsersSettingsCseKeypairsList' request conforms to.+type GmailUsersSettingsCseKeypairsListResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "cse"+    Core.:> "keypairs"+    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] ListCseKeyPairsResponse++-- | Lists client-side encryption key pairs for an authenticated user.+--+-- /See:/ 'newGmailUsersSettingsCseKeypairsList' smart constructor.+data GmailUsersSettingsCseKeypairsList = GmailUsersSettingsCseKeypairsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The number of key pairs to return. If not provided, the page size will default to 20 entries.+    pageSize :: Core.Int32,+    -- | Pagination token indicating which page of key pairs to return. If the token is not supplied, then the API will return the first page of results.+    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),+    -- | The requester\'s primary email address. To indicate the authenticated user, you can use the special value @me@.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsCseKeypairsList' with the minimum fields required to make a request.+newGmailUsersSettingsCseKeypairsList ::+  GmailUsersSettingsCseKeypairsList+newGmailUsersSettingsCseKeypairsList =+  GmailUsersSettingsCseKeypairsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      pageSize = 20,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsCseKeypairsList where+  type Rs GmailUsersSettingsCseKeypairsList = ListCseKeyPairsResponse+  type+    Scopes GmailUsersSettingsCseKeypairsList =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic,+         Gmail'Settings'Sharing+       ]+  requestClient GmailUsersSettingsCseKeypairsList {..} =+    go+      userId+      xgafv+      accessToken+      callback+      (Core.Just pageSize)+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsCseKeypairsListResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Cse/Keypairs/Obliterate.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.Gmail.Users.Settings.Cse.Keypairs.Obliterate+-- 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 client-side encryption key pair permanently and immediately. You can only permanently delete key pairs that have been turned off for more than 30 days. To turn off a key pair, use the DisableCseKeyPair method. Gmail can\'t restore or decrypt any messages that were encrypted by an obliterated key. Authenticated users and Google Workspace administrators lose access to reading the encrypted messages.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.cse.keypairs.obliterate@.+module Gogol.Gmail.Users.Settings.Cse.Keypairs.Obliterate+  ( -- * Resource+    GmailUsersSettingsCseKeypairsObliterateResource,++    -- ** Constructing a Request+    GmailUsersSettingsCseKeypairsObliterate (..),+    newGmailUsersSettingsCseKeypairsObliterate,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.cse.keypairs.obliterate@ method which the+-- 'GmailUsersSettingsCseKeypairsObliterate' request conforms to.+type GmailUsersSettingsCseKeypairsObliterateResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "cse"+    Core.:> "keypairs"+    Core.:> Core.CaptureMode "keyPairId" "obliterate" 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] ObliterateCseKeyPairRequest+    Core.:> Core.Post '[Core.JSON] ()++-- | Deletes a client-side encryption key pair permanently and immediately. You can only permanently delete key pairs that have been turned off for more than 30 days. To turn off a key pair, use the DisableCseKeyPair method. Gmail can\'t restore or decrypt any messages that were encrypted by an obliterated key. Authenticated users and Google Workspace administrators lose access to reading the encrypted messages.+--+-- /See:/ 'newGmailUsersSettingsCseKeypairsObliterate' smart constructor.+data GmailUsersSettingsCseKeypairsObliterate = GmailUsersSettingsCseKeypairsObliterate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The identifier of the key pair to obliterate.+    keyPairId :: Core.Text,+    -- | Multipart request metadata.+    payload :: ObliterateCseKeyPairRequest,+    -- | 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),+    -- | The requester\'s primary email address. To indicate the authenticated user, you can use the special value @me@.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsCseKeypairsObliterate' with the minimum fields required to make a request.+newGmailUsersSettingsCseKeypairsObliterate ::+  -- |  The identifier of the key pair to obliterate. See 'keyPairId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ObliterateCseKeyPairRequest ->+  GmailUsersSettingsCseKeypairsObliterate+newGmailUsersSettingsCseKeypairsObliterate keyPairId payload =+  GmailUsersSettingsCseKeypairsObliterate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      keyPairId = keyPairId,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsCseKeypairsObliterate where+  type Rs GmailUsersSettingsCseKeypairsObliterate = ()+  type+    Scopes GmailUsersSettingsCseKeypairsObliterate =+      '[Gmail'Settings'Basic, Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsCseKeypairsObliterate {..} =+    go+      userId+      keyPairId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsCseKeypairsObliterateResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Delegates/Create.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.Gmail.Users.Settings.Delegates.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)+--+-- Adds a delegate with its verification status set directly to @accepted@, without sending any verification email. The delegate user must be a member of the same Google Workspace organization as the delegator user. Gmail imposes limitations on the number of delegates and delegators each user in a Google Workspace organization can have. These limits depend on your organization, but in general each user can have up to 25 delegates and up to 10 delegators. Note that a delegate user must be referred to by their primary email address, and not an email alias. Also note that when a new delegate is created, there may be up to a one minute delay before the new delegate is available for use. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.delegates.create@.+module Gogol.Gmail.Users.Settings.Delegates.Create+  ( -- * Resource+    GmailUsersSettingsDelegatesCreateResource,++    -- ** Constructing a Request+    GmailUsersSettingsDelegatesCreate (..),+    newGmailUsersSettingsDelegatesCreate,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.delegates.create@ method which the+-- 'GmailUsersSettingsDelegatesCreate' request conforms to.+type GmailUsersSettingsDelegatesCreateResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "delegates"+    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] Delegate+    Core.:> Core.Post '[Core.JSON] Delegate++-- | Adds a delegate with its verification status set directly to @accepted@, without sending any verification email. The delegate user must be a member of the same Google Workspace organization as the delegator user. Gmail imposes limitations on the number of delegates and delegators each user in a Google Workspace organization can have. These limits depend on your organization, but in general each user can have up to 25 delegates and up to 10 delegators. Note that a delegate user must be referred to by their primary email address, and not an email alias. Also note that when a new delegate is created, there may be up to a one minute delay before the new delegate is available for use. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ 'newGmailUsersSettingsDelegatesCreate' smart constructor.+data GmailUsersSettingsDelegatesCreate = GmailUsersSettingsDelegatesCreate+  { -- | 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 :: Delegate,+    -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsDelegatesCreate' with the minimum fields required to make a request.+newGmailUsersSettingsDelegatesCreate ::+  -- |  Multipart request metadata. See 'payload'.+  Delegate ->+  GmailUsersSettingsDelegatesCreate+newGmailUsersSettingsDelegatesCreate payload =+  GmailUsersSettingsDelegatesCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsDelegatesCreate where+  type Rs GmailUsersSettingsDelegatesCreate = Delegate+  type+    Scopes GmailUsersSettingsDelegatesCreate =+      '[Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsDelegatesCreate {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsDelegatesCreateResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Delegates/Delete.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.Gmail.Users.Settings.Delegates.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)+--+-- Removes the specified delegate (which can be of any verification status), and revokes any verification that may have been required for using it. Note that a delegate user must be referred to by their primary email address, and not an email alias. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.delegates.delete@.+module Gogol.Gmail.Users.Settings.Delegates.Delete+  ( -- * Resource+    GmailUsersSettingsDelegatesDeleteResource,++    -- ** Constructing a Request+    GmailUsersSettingsDelegatesDelete (..),+    newGmailUsersSettingsDelegatesDelete,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.delegates.delete@ method which the+-- 'GmailUsersSettingsDelegatesDelete' request conforms to.+type GmailUsersSettingsDelegatesDeleteResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "delegates"+    Core.:> Core.Capture "delegateEmail" 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] ()++-- | Removes the specified delegate (which can be of any verification status), and revokes any verification that may have been required for using it. Note that a delegate user must be referred to by their primary email address, and not an email alias. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ 'newGmailUsersSettingsDelegatesDelete' smart constructor.+data GmailUsersSettingsDelegatesDelete = GmailUsersSettingsDelegatesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The email address of the user to be removed as a delegate.+    delegateEmail :: 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsDelegatesDelete' with the minimum fields required to make a request.+newGmailUsersSettingsDelegatesDelete ::+  -- |  The email address of the user to be removed as a delegate. See 'delegateEmail'.+  Core.Text ->+  GmailUsersSettingsDelegatesDelete+newGmailUsersSettingsDelegatesDelete delegateEmail =+  GmailUsersSettingsDelegatesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      delegateEmail = delegateEmail,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsDelegatesDelete where+  type Rs GmailUsersSettingsDelegatesDelete = ()+  type+    Scopes GmailUsersSettingsDelegatesDelete =+      '[Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsDelegatesDelete {..} =+    go+      userId+      delegateEmail+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsDelegatesDeleteResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Delegates/Get.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.Gmail.Users.Settings.Delegates.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 specified delegate. Note that a delegate user must be referred to by their primary email address, and not an email alias. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.delegates.get@.+module Gogol.Gmail.Users.Settings.Delegates.Get+  ( -- * Resource+    GmailUsersSettingsDelegatesGetResource,++    -- ** Constructing a Request+    GmailUsersSettingsDelegatesGet (..),+    newGmailUsersSettingsDelegatesGet,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.delegates.get@ method which the+-- 'GmailUsersSettingsDelegatesGet' request conforms to.+type GmailUsersSettingsDelegatesGetResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "delegates"+    Core.:> Core.Capture "delegateEmail" 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] Delegate++-- | Gets the specified delegate. Note that a delegate user must be referred to by their primary email address, and not an email alias. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ 'newGmailUsersSettingsDelegatesGet' smart constructor.+data GmailUsersSettingsDelegatesGet = GmailUsersSettingsDelegatesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The email address of the user whose delegate relationship is to be retrieved.+    delegateEmail :: 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsDelegatesGet' with the minimum fields required to make a request.+newGmailUsersSettingsDelegatesGet ::+  -- |  The email address of the user whose delegate relationship is to be retrieved. See 'delegateEmail'.+  Core.Text ->+  GmailUsersSettingsDelegatesGet+newGmailUsersSettingsDelegatesGet delegateEmail =+  GmailUsersSettingsDelegatesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      delegateEmail = delegateEmail,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsDelegatesGet where+  type Rs GmailUsersSettingsDelegatesGet = Delegate+  type+    Scopes GmailUsersSettingsDelegatesGet =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic+       ]+  requestClient GmailUsersSettingsDelegatesGet {..} =+    go+      userId+      delegateEmail+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsDelegatesGetResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Delegates/List.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.Gmail.Users.Settings.Delegates.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 delegates for the specified account. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.delegates.list@.+module Gogol.Gmail.Users.Settings.Delegates.List+  ( -- * Resource+    GmailUsersSettingsDelegatesListResource,++    -- ** Constructing a Request+    GmailUsersSettingsDelegatesList (..),+    newGmailUsersSettingsDelegatesList,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.delegates.list@ method which the+-- 'GmailUsersSettingsDelegatesList' request conforms to.+type GmailUsersSettingsDelegatesListResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "delegates"+    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] ListDelegatesResponse++-- | Lists the delegates for the specified account. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ 'newGmailUsersSettingsDelegatesList' smart constructor.+data GmailUsersSettingsDelegatesList = GmailUsersSettingsDelegatesList+  { -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsDelegatesList' with the minimum fields required to make a request.+newGmailUsersSettingsDelegatesList ::+  GmailUsersSettingsDelegatesList+newGmailUsersSettingsDelegatesList =+  GmailUsersSettingsDelegatesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsDelegatesList where+  type Rs GmailUsersSettingsDelegatesList = ListDelegatesResponse+  type+    Scopes GmailUsersSettingsDelegatesList =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic+       ]+  requestClient GmailUsersSettingsDelegatesList {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsDelegatesListResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Filters/Create.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.Gmail.Users.Settings.Filters.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 filter. Note: you can only create a maximum of 1,000 filters.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.filters.create@.+module Gogol.Gmail.Users.Settings.Filters.Create+  ( -- * Resource+    GmailUsersSettingsFiltersCreateResource,++    -- ** Constructing a Request+    GmailUsersSettingsFiltersCreate (..),+    newGmailUsersSettingsFiltersCreate,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.filters.create@ method which the+-- 'GmailUsersSettingsFiltersCreate' request conforms to.+type GmailUsersSettingsFiltersCreateResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "filters"+    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] Filter+    Core.:> Core.Post '[Core.JSON] Filter++-- | Creates a filter. Note: you can only create a maximum of 1,000 filters.+--+-- /See:/ 'newGmailUsersSettingsFiltersCreate' smart constructor.+data GmailUsersSettingsFiltersCreate = GmailUsersSettingsFiltersCreate+  { -- | 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 :: Filter,+    -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsFiltersCreate' with the minimum fields required to make a request.+newGmailUsersSettingsFiltersCreate ::+  -- |  Multipart request metadata. See 'payload'.+  Filter ->+  GmailUsersSettingsFiltersCreate+newGmailUsersSettingsFiltersCreate payload =+  GmailUsersSettingsFiltersCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsFiltersCreate where+  type Rs GmailUsersSettingsFiltersCreate = Filter+  type+    Scopes GmailUsersSettingsFiltersCreate =+      '[Gmail'Settings'Basic]+  requestClient GmailUsersSettingsFiltersCreate {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsFiltersCreateResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Filters/Delete.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.Gmail.Users.Settings.Filters.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)+--+-- Immediately and permanently deletes the specified filter.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.filters.delete@.+module Gogol.Gmail.Users.Settings.Filters.Delete+  ( -- * Resource+    GmailUsersSettingsFiltersDeleteResource,++    -- ** Constructing a Request+    GmailUsersSettingsFiltersDelete (..),+    newGmailUsersSettingsFiltersDelete,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.filters.delete@ method which the+-- 'GmailUsersSettingsFiltersDelete' request conforms to.+type GmailUsersSettingsFiltersDeleteResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "filters"+    Core.:> Core.Capture "id" 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] ()++-- | Immediately and permanently deletes the specified filter.+--+-- /See:/ 'newGmailUsersSettingsFiltersDelete' smart constructor.+data GmailUsersSettingsFiltersDelete = GmailUsersSettingsFiltersDelete+  { -- | 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 filter to be deleted.+    id :: 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsFiltersDelete' with the minimum fields required to make a request.+newGmailUsersSettingsFiltersDelete ::+  -- |  The ID of the filter to be deleted. See 'id'.+  Core.Text ->+  GmailUsersSettingsFiltersDelete+newGmailUsersSettingsFiltersDelete id =+  GmailUsersSettingsFiltersDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsFiltersDelete where+  type Rs GmailUsersSettingsFiltersDelete = ()+  type+    Scopes GmailUsersSettingsFiltersDelete =+      '[Gmail'Settings'Basic]+  requestClient GmailUsersSettingsFiltersDelete {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsFiltersDeleteResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Filters/Get.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.Gmail.Users.Settings.Filters.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 filter.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.filters.get@.+module Gogol.Gmail.Users.Settings.Filters.Get+  ( -- * Resource+    GmailUsersSettingsFiltersGetResource,++    -- ** Constructing a Request+    GmailUsersSettingsFiltersGet (..),+    newGmailUsersSettingsFiltersGet,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.filters.get@ method which the+-- 'GmailUsersSettingsFiltersGet' request conforms to.+type GmailUsersSettingsFiltersGetResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "filters"+    Core.:> Core.Capture "id" 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] Filter++-- | Gets a filter.+--+-- /See:/ 'newGmailUsersSettingsFiltersGet' smart constructor.+data GmailUsersSettingsFiltersGet = GmailUsersSettingsFiltersGet+  { -- | 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 filter to be fetched.+    id :: 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsFiltersGet' with the minimum fields required to make a request.+newGmailUsersSettingsFiltersGet ::+  -- |  The ID of the filter to be fetched. See 'id'.+  Core.Text ->+  GmailUsersSettingsFiltersGet+newGmailUsersSettingsFiltersGet id =+  GmailUsersSettingsFiltersGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsFiltersGet where+  type Rs GmailUsersSettingsFiltersGet = Filter+  type+    Scopes GmailUsersSettingsFiltersGet =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic+       ]+  requestClient GmailUsersSettingsFiltersGet {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsFiltersGetResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/Filters/List.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.Gmail.Users.Settings.Filters.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 message filters of a Gmail user.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.filters.list@.+module Gogol.Gmail.Users.Settings.Filters.List+  ( -- * Resource+    GmailUsersSettingsFiltersListResource,++    -- ** Constructing a Request+    GmailUsersSettingsFiltersList (..),+    newGmailUsersSettingsFiltersList,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.filters.list@ method which the+-- 'GmailUsersSettingsFiltersList' request conforms to.+type GmailUsersSettingsFiltersListResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "filters"+    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] ListFiltersResponse++-- | Lists the message filters of a Gmail user.+--+-- /See:/ 'newGmailUsersSettingsFiltersList' smart constructor.+data GmailUsersSettingsFiltersList = GmailUsersSettingsFiltersList+  { -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsFiltersList' with the minimum fields required to make a request.+newGmailUsersSettingsFiltersList ::+  GmailUsersSettingsFiltersList+newGmailUsersSettingsFiltersList =+  GmailUsersSettingsFiltersList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsFiltersList where+  type Rs GmailUsersSettingsFiltersList = ListFiltersResponse+  type+    Scopes GmailUsersSettingsFiltersList =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic+       ]+  requestClient GmailUsersSettingsFiltersList {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsFiltersListResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/ForwardingAddresses/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.Gmail.Users.Settings.ForwardingAddresses.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 forwarding address. If ownership verification is required, a message will be sent to the recipient and the resource\'s verification status will be set to @pending@; otherwise, the resource will be created with verification status set to @accepted@. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.forwardingAddresses.create@.+module Gogol.Gmail.Users.Settings.ForwardingAddresses.Create+  ( -- * Resource+    GmailUsersSettingsForwardingAddressesCreateResource,++    -- ** Constructing a Request+    GmailUsersSettingsForwardingAddressesCreate (..),+    newGmailUsersSettingsForwardingAddressesCreate,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.forwardingAddresses.create@ method which the+-- 'GmailUsersSettingsForwardingAddressesCreate' request conforms to.+type GmailUsersSettingsForwardingAddressesCreateResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "forwardingAddresses"+    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] ForwardingAddress+    Core.:> Core.Post '[Core.JSON] ForwardingAddress++-- | Creates a forwarding address. If ownership verification is required, a message will be sent to the recipient and the resource\'s verification status will be set to @pending@; otherwise, the resource will be created with verification status set to @accepted@. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ 'newGmailUsersSettingsForwardingAddressesCreate' smart constructor.+data GmailUsersSettingsForwardingAddressesCreate = GmailUsersSettingsForwardingAddressesCreate+  { -- | 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 :: ForwardingAddress,+    -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsForwardingAddressesCreate' with the minimum fields required to make a request.+newGmailUsersSettingsForwardingAddressesCreate ::+  -- |  Multipart request metadata. See 'payload'.+  ForwardingAddress ->+  GmailUsersSettingsForwardingAddressesCreate+newGmailUsersSettingsForwardingAddressesCreate payload =+  GmailUsersSettingsForwardingAddressesCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance+  Core.GoogleRequest+    GmailUsersSettingsForwardingAddressesCreate+  where+  type+    Rs GmailUsersSettingsForwardingAddressesCreate =+      ForwardingAddress+  type+    Scopes GmailUsersSettingsForwardingAddressesCreate =+      '[Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsForwardingAddressesCreate {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsForwardingAddressesCreateResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/ForwardingAddresses/Delete.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Gmail.Users.Settings.ForwardingAddresses.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 the specified forwarding address and revokes any verification that may have been required. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.forwardingAddresses.delete@.+module Gogol.Gmail.Users.Settings.ForwardingAddresses.Delete+  ( -- * Resource+    GmailUsersSettingsForwardingAddressesDeleteResource,++    -- ** Constructing a Request+    GmailUsersSettingsForwardingAddressesDelete (..),+    newGmailUsersSettingsForwardingAddressesDelete,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.forwardingAddresses.delete@ method which the+-- 'GmailUsersSettingsForwardingAddressesDelete' request conforms to.+type GmailUsersSettingsForwardingAddressesDeleteResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "forwardingAddresses"+    Core.:> Core.Capture "forwardingEmail" 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 the specified forwarding address and revokes any verification that may have been required. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ 'newGmailUsersSettingsForwardingAddressesDelete' smart constructor.+data GmailUsersSettingsForwardingAddressesDelete = GmailUsersSettingsForwardingAddressesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The forwarding address to be deleted.+    forwardingEmail :: 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsForwardingAddressesDelete' with the minimum fields required to make a request.+newGmailUsersSettingsForwardingAddressesDelete ::+  -- |  The forwarding address to be deleted. See 'forwardingEmail'.+  Core.Text ->+  GmailUsersSettingsForwardingAddressesDelete+newGmailUsersSettingsForwardingAddressesDelete forwardingEmail =+  GmailUsersSettingsForwardingAddressesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      forwardingEmail = forwardingEmail,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance+  Core.GoogleRequest+    GmailUsersSettingsForwardingAddressesDelete+  where+  type Rs GmailUsersSettingsForwardingAddressesDelete = ()+  type+    Scopes GmailUsersSettingsForwardingAddressesDelete =+      '[Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsForwardingAddressesDelete {..} =+    go+      userId+      forwardingEmail+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsForwardingAddressesDeleteResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/ForwardingAddresses/Get.hs view
@@ -0,0 +1,129 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Gmail.Users.Settings.ForwardingAddresses.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 specified forwarding address.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.forwardingAddresses.get@.+module Gogol.Gmail.Users.Settings.ForwardingAddresses.Get+  ( -- * Resource+    GmailUsersSettingsForwardingAddressesGetResource,++    -- ** Constructing a Request+    GmailUsersSettingsForwardingAddressesGet (..),+    newGmailUsersSettingsForwardingAddressesGet,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.forwardingAddresses.get@ method which the+-- 'GmailUsersSettingsForwardingAddressesGet' request conforms to.+type GmailUsersSettingsForwardingAddressesGetResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "forwardingAddresses"+    Core.:> Core.Capture "forwardingEmail" 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] ForwardingAddress++-- | Gets the specified forwarding address.+--+-- /See:/ 'newGmailUsersSettingsForwardingAddressesGet' smart constructor.+data GmailUsersSettingsForwardingAddressesGet = GmailUsersSettingsForwardingAddressesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The forwarding address to be retrieved.+    forwardingEmail :: 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsForwardingAddressesGet' with the minimum fields required to make a request.+newGmailUsersSettingsForwardingAddressesGet ::+  -- |  The forwarding address to be retrieved. See 'forwardingEmail'.+  Core.Text ->+  GmailUsersSettingsForwardingAddressesGet+newGmailUsersSettingsForwardingAddressesGet forwardingEmail =+  GmailUsersSettingsForwardingAddressesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      forwardingEmail = forwardingEmail,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance+  Core.GoogleRequest+    GmailUsersSettingsForwardingAddressesGet+  where+  type+    Rs GmailUsersSettingsForwardingAddressesGet =+      ForwardingAddress+  type+    Scopes GmailUsersSettingsForwardingAddressesGet =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic+       ]+  requestClient GmailUsersSettingsForwardingAddressesGet {..} =+    go+      userId+      forwardingEmail+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsForwardingAddressesGetResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/ForwardingAddresses/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.Gmail.Users.Settings.ForwardingAddresses.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 forwarding addresses for the specified account.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.forwardingAddresses.list@.+module Gogol.Gmail.Users.Settings.ForwardingAddresses.List+  ( -- * Resource+    GmailUsersSettingsForwardingAddressesListResource,++    -- ** Constructing a Request+    GmailUsersSettingsForwardingAddressesList (..),+    newGmailUsersSettingsForwardingAddressesList,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.forwardingAddresses.list@ method which the+-- 'GmailUsersSettingsForwardingAddressesList' request conforms to.+type GmailUsersSettingsForwardingAddressesListResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "forwardingAddresses"+    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] ListForwardingAddressesResponse++-- | Lists the forwarding addresses for the specified account.+--+-- /See:/ 'newGmailUsersSettingsForwardingAddressesList' smart constructor.+data GmailUsersSettingsForwardingAddressesList = GmailUsersSettingsForwardingAddressesList+  { -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsForwardingAddressesList' with the minimum fields required to make a request.+newGmailUsersSettingsForwardingAddressesList ::+  GmailUsersSettingsForwardingAddressesList+newGmailUsersSettingsForwardingAddressesList =+  GmailUsersSettingsForwardingAddressesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance+  Core.GoogleRequest+    GmailUsersSettingsForwardingAddressesList+  where+  type+    Rs GmailUsersSettingsForwardingAddressesList =+      ListForwardingAddressesResponse+  type+    Scopes GmailUsersSettingsForwardingAddressesList =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic+       ]+  requestClient GmailUsersSettingsForwardingAddressesList {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsForwardingAddressesListResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/GetAutoForwarding.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.Gmail.Users.Settings.GetAutoForwarding+-- 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 auto-forwarding setting for the specified account.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.getAutoForwarding@.+module Gogol.Gmail.Users.Settings.GetAutoForwarding+  ( -- * Resource+    GmailUsersSettingsGetAutoForwardingResource,++    -- ** Constructing a Request+    GmailUsersSettingsGetAutoForwarding (..),+    newGmailUsersSettingsGetAutoForwarding,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.getAutoForwarding@ method which the+-- 'GmailUsersSettingsGetAutoForwarding' request conforms to.+type GmailUsersSettingsGetAutoForwardingResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "autoForwarding"+    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] AutoForwarding++-- | Gets the auto-forwarding setting for the specified account.+--+-- /See:/ 'newGmailUsersSettingsGetAutoForwarding' smart constructor.+data GmailUsersSettingsGetAutoForwarding = GmailUsersSettingsGetAutoForwarding+  { -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsGetAutoForwarding' with the minimum fields required to make a request.+newGmailUsersSettingsGetAutoForwarding ::+  GmailUsersSettingsGetAutoForwarding+newGmailUsersSettingsGetAutoForwarding =+  GmailUsersSettingsGetAutoForwarding+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsGetAutoForwarding where+  type Rs GmailUsersSettingsGetAutoForwarding = AutoForwarding+  type+    Scopes GmailUsersSettingsGetAutoForwarding =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic+       ]+  requestClient GmailUsersSettingsGetAutoForwarding {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsGetAutoForwardingResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/GetImap.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.Gmail.Users.Settings.GetImap+-- 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 IMAP settings.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.getImap@.+module Gogol.Gmail.Users.Settings.GetImap+  ( -- * Resource+    GmailUsersSettingsGetImapResource,++    -- ** Constructing a Request+    GmailUsersSettingsGetImap (..),+    newGmailUsersSettingsGetImap,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.getImap@ method which the+-- 'GmailUsersSettingsGetImap' request conforms to.+type GmailUsersSettingsGetImapResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "imap"+    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] ImapSettings++-- | Gets IMAP settings.+--+-- /See:/ 'newGmailUsersSettingsGetImap' smart constructor.+data GmailUsersSettingsGetImap = GmailUsersSettingsGetImap+  { -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsGetImap' with the minimum fields required to make a request.+newGmailUsersSettingsGetImap ::+  GmailUsersSettingsGetImap+newGmailUsersSettingsGetImap =+  GmailUsersSettingsGetImap+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsGetImap where+  type Rs GmailUsersSettingsGetImap = ImapSettings+  type+    Scopes GmailUsersSettingsGetImap =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic+       ]+  requestClient GmailUsersSettingsGetImap {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsGetImapResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/GetLanguage.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.Gmail.Users.Settings.GetLanguage+-- 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 language settings.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.getLanguage@.+module Gogol.Gmail.Users.Settings.GetLanguage+  ( -- * Resource+    GmailUsersSettingsGetLanguageResource,++    -- ** Constructing a Request+    GmailUsersSettingsGetLanguage (..),+    newGmailUsersSettingsGetLanguage,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.getLanguage@ method which the+-- 'GmailUsersSettingsGetLanguage' request conforms to.+type GmailUsersSettingsGetLanguageResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "language"+    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] LanguageSettings++-- | Gets language settings.+--+-- /See:/ 'newGmailUsersSettingsGetLanguage' smart constructor.+data GmailUsersSettingsGetLanguage = GmailUsersSettingsGetLanguage+  { -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsGetLanguage' with the minimum fields required to make a request.+newGmailUsersSettingsGetLanguage ::+  GmailUsersSettingsGetLanguage+newGmailUsersSettingsGetLanguage =+  GmailUsersSettingsGetLanguage+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsGetLanguage where+  type Rs GmailUsersSettingsGetLanguage = LanguageSettings+  type+    Scopes GmailUsersSettingsGetLanguage =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic+       ]+  requestClient GmailUsersSettingsGetLanguage {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsGetLanguageResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/GetPop.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.Gmail.Users.Settings.GetPop+-- 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 POP settings.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.getPop@.+module Gogol.Gmail.Users.Settings.GetPop+  ( -- * Resource+    GmailUsersSettingsGetPopResource,++    -- ** Constructing a Request+    GmailUsersSettingsGetPop (..),+    newGmailUsersSettingsGetPop,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.getPop@ method which the+-- 'GmailUsersSettingsGetPop' request conforms to.+type GmailUsersSettingsGetPopResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "pop"+    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] PopSettings++-- | Gets POP settings.+--+-- /See:/ 'newGmailUsersSettingsGetPop' smart constructor.+data GmailUsersSettingsGetPop = GmailUsersSettingsGetPop+  { -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsGetPop' with the minimum fields required to make a request.+newGmailUsersSettingsGetPop ::+  GmailUsersSettingsGetPop+newGmailUsersSettingsGetPop =+  GmailUsersSettingsGetPop+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsGetPop where+  type Rs GmailUsersSettingsGetPop = PopSettings+  type+    Scopes GmailUsersSettingsGetPop =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic+       ]+  requestClient GmailUsersSettingsGetPop {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsGetPopResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/GetVacation.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.Gmail.Users.Settings.GetVacation+-- 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 vacation responder settings.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.getVacation@.+module Gogol.Gmail.Users.Settings.GetVacation+  ( -- * Resource+    GmailUsersSettingsGetVacationResource,++    -- ** Constructing a Request+    GmailUsersSettingsGetVacation (..),+    newGmailUsersSettingsGetVacation,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.getVacation@ method which the+-- 'GmailUsersSettingsGetVacation' request conforms to.+type GmailUsersSettingsGetVacationResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "vacation"+    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] VacationSettings++-- | Gets vacation responder settings.+--+-- /See:/ 'newGmailUsersSettingsGetVacation' smart constructor.+data GmailUsersSettingsGetVacation = GmailUsersSettingsGetVacation+  { -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsGetVacation' with the minimum fields required to make a request.+newGmailUsersSettingsGetVacation ::+  GmailUsersSettingsGetVacation+newGmailUsersSettingsGetVacation =+  GmailUsersSettingsGetVacation+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsGetVacation where+  type Rs GmailUsersSettingsGetVacation = VacationSettings+  type+    Scopes GmailUsersSettingsGetVacation =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic+       ]+  requestClient GmailUsersSettingsGetVacation {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsGetVacationResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/SendAs/Create.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.Gmail.Users.Settings.SendAs.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 custom \"from\" send-as alias. If an SMTP MSA is specified, Gmail will attempt to connect to the SMTP service to validate the configuration before creating the alias. If ownership verification is required for the alias, a message will be sent to the email address and the resource\'s verification status will be set to @pending@; otherwise, the resource will be created with verification status set to @accepted@. If a signature is provided, Gmail will sanitize the HTML before saving it with the alias. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.create@.+module Gogol.Gmail.Users.Settings.SendAs.Create+  ( -- * Resource+    GmailUsersSettingsSendAsCreateResource,++    -- ** Constructing a Request+    GmailUsersSettingsSendAsCreate (..),+    newGmailUsersSettingsSendAsCreate,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.sendAs.create@ method which the+-- 'GmailUsersSettingsSendAsCreate' request conforms to.+type GmailUsersSettingsSendAsCreateResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "sendAs"+    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] SendAs+    Core.:> Core.Post '[Core.JSON] SendAs++-- | Creates a custom \"from\" send-as alias. If an SMTP MSA is specified, Gmail will attempt to connect to the SMTP service to validate the configuration before creating the alias. If ownership verification is required for the alias, a message will be sent to the email address and the resource\'s verification status will be set to @pending@; otherwise, the resource will be created with verification status set to @accepted@. If a signature is provided, Gmail will sanitize the HTML before saving it with the alias. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ 'newGmailUsersSettingsSendAsCreate' smart constructor.+data GmailUsersSettingsSendAsCreate = GmailUsersSettingsSendAsCreate+  { -- | 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 :: SendAs,+    -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsSendAsCreate' with the minimum fields required to make a request.+newGmailUsersSettingsSendAsCreate ::+  -- |  Multipart request metadata. See 'payload'.+  SendAs ->+  GmailUsersSettingsSendAsCreate+newGmailUsersSettingsSendAsCreate payload =+  GmailUsersSettingsSendAsCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsSendAsCreate where+  type Rs GmailUsersSettingsSendAsCreate = SendAs+  type+    Scopes GmailUsersSettingsSendAsCreate =+      '[Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsSendAsCreate {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsSendAsCreateResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/SendAs/Delete.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.Gmail.Users.Settings.SendAs.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 the specified send-as alias. Revokes any verification that may have been required for using it. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.delete@.+module Gogol.Gmail.Users.Settings.SendAs.Delete+  ( -- * Resource+    GmailUsersSettingsSendAsDeleteResource,++    -- ** Constructing a Request+    GmailUsersSettingsSendAsDelete (..),+    newGmailUsersSettingsSendAsDelete,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.sendAs.delete@ method which the+-- 'GmailUsersSettingsSendAsDelete' request conforms to.+type GmailUsersSettingsSendAsDeleteResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "sendAs"+    Core.:> Core.Capture "sendAsEmail" 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 the specified send-as alias. Revokes any verification that may have been required for using it. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ 'newGmailUsersSettingsSendAsDelete' smart constructor.+data GmailUsersSettingsSendAsDelete = GmailUsersSettingsSendAsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The send-as alias to be deleted.+    sendAsEmail :: 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsSendAsDelete' with the minimum fields required to make a request.+newGmailUsersSettingsSendAsDelete ::+  -- |  The send-as alias to be deleted. See 'sendAsEmail'.+  Core.Text ->+  GmailUsersSettingsSendAsDelete+newGmailUsersSettingsSendAsDelete sendAsEmail =+  GmailUsersSettingsSendAsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      sendAsEmail = sendAsEmail,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsSendAsDelete where+  type Rs GmailUsersSettingsSendAsDelete = ()+  type+    Scopes GmailUsersSettingsSendAsDelete =+      '[Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsSendAsDelete {..} =+    go+      userId+      sendAsEmail+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsSendAsDeleteResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/SendAs/Get.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.Gmail.Users.Settings.SendAs.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 specified send-as alias. Fails with an HTTP 404 error if the specified address is not a member of the collection.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.get@.+module Gogol.Gmail.Users.Settings.SendAs.Get+  ( -- * Resource+    GmailUsersSettingsSendAsGetResource,++    -- ** Constructing a Request+    GmailUsersSettingsSendAsGet (..),+    newGmailUsersSettingsSendAsGet,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.sendAs.get@ method which the+-- 'GmailUsersSettingsSendAsGet' request conforms to.+type GmailUsersSettingsSendAsGetResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "sendAs"+    Core.:> Core.Capture "sendAsEmail" 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] SendAs++-- | Gets the specified send-as alias. Fails with an HTTP 404 error if the specified address is not a member of the collection.+--+-- /See:/ 'newGmailUsersSettingsSendAsGet' smart constructor.+data GmailUsersSettingsSendAsGet = GmailUsersSettingsSendAsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The send-as alias to be retrieved.+    sendAsEmail :: 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsSendAsGet' with the minimum fields required to make a request.+newGmailUsersSettingsSendAsGet ::+  -- |  The send-as alias to be retrieved. See 'sendAsEmail'.+  Core.Text ->+  GmailUsersSettingsSendAsGet+newGmailUsersSettingsSendAsGet sendAsEmail =+  GmailUsersSettingsSendAsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      sendAsEmail = sendAsEmail,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsSendAsGet where+  type Rs GmailUsersSettingsSendAsGet = SendAs+  type+    Scopes GmailUsersSettingsSendAsGet =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic+       ]+  requestClient GmailUsersSettingsSendAsGet {..} =+    go+      userId+      sendAsEmail+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsSendAsGetResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/SendAs/List.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.Gmail.Users.Settings.SendAs.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 send-as aliases for the specified account. The result includes the primary send-as address associated with the account as well as any custom \"from\" aliases.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.list@.+module Gogol.Gmail.Users.Settings.SendAs.List+  ( -- * Resource+    GmailUsersSettingsSendAsListResource,++    -- ** Constructing a Request+    GmailUsersSettingsSendAsList (..),+    newGmailUsersSettingsSendAsList,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.sendAs.list@ method which the+-- 'GmailUsersSettingsSendAsList' request conforms to.+type GmailUsersSettingsSendAsListResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "sendAs"+    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] ListSendAsResponse++-- | Lists the send-as aliases for the specified account. The result includes the primary send-as address associated with the account as well as any custom \"from\" aliases.+--+-- /See:/ 'newGmailUsersSettingsSendAsList' smart constructor.+data GmailUsersSettingsSendAsList = GmailUsersSettingsSendAsList+  { -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsSendAsList' with the minimum fields required to make a request.+newGmailUsersSettingsSendAsList ::+  GmailUsersSettingsSendAsList+newGmailUsersSettingsSendAsList =+  GmailUsersSettingsSendAsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsSendAsList where+  type Rs GmailUsersSettingsSendAsList = ListSendAsResponse+  type+    Scopes GmailUsersSettingsSendAsList =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic+       ]+  requestClient GmailUsersSettingsSendAsList {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsSendAsListResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/SendAs/Patch.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.Gmail.Users.Settings.SendAs.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Patch the specified send-as alias.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.patch@.+module Gogol.Gmail.Users.Settings.SendAs.Patch+  ( -- * Resource+    GmailUsersSettingsSendAsPatchResource,++    -- ** Constructing a Request+    GmailUsersSettingsSendAsPatch (..),+    newGmailUsersSettingsSendAsPatch,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.sendAs.patch@ method which the+-- 'GmailUsersSettingsSendAsPatch' request conforms to.+type GmailUsersSettingsSendAsPatchResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "sendAs"+    Core.:> Core.Capture "sendAsEmail" 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] SendAs+    Core.:> Core.Patch '[Core.JSON] SendAs++-- | Patch the specified send-as alias.+--+-- /See:/ 'newGmailUsersSettingsSendAsPatch' smart constructor.+data GmailUsersSettingsSendAsPatch = GmailUsersSettingsSendAsPatch+  { -- | 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 :: SendAs,+    -- | The send-as alias to be updated.+    sendAsEmail :: 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsSendAsPatch' with the minimum fields required to make a request.+newGmailUsersSettingsSendAsPatch ::+  -- |  Multipart request metadata. See 'payload'.+  SendAs ->+  -- |  The send-as alias to be updated. See 'sendAsEmail'.+  Core.Text ->+  GmailUsersSettingsSendAsPatch+newGmailUsersSettingsSendAsPatch payload sendAsEmail =+  GmailUsersSettingsSendAsPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      sendAsEmail = sendAsEmail,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsSendAsPatch where+  type Rs GmailUsersSettingsSendAsPatch = SendAs+  type+    Scopes GmailUsersSettingsSendAsPatch =+      '[Gmail'Settings'Basic, Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsSendAsPatch {..} =+    go+      userId+      sendAsEmail+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsSendAsPatchResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/SendAs/SmimeInfo/Delete.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.Gmail.Users.Settings.SendAs.SmimeInfo.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 the specified S\/MIME config for the specified send-as alias.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.delete@.+module Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.Delete+  ( -- * Resource+    GmailUsersSettingsSendAsSmimeInfoDeleteResource,++    -- ** Constructing a Request+    GmailUsersSettingsSendAsSmimeInfoDelete (..),+    newGmailUsersSettingsSendAsSmimeInfoDelete,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.delete@ method which the+-- 'GmailUsersSettingsSendAsSmimeInfoDelete' request conforms to.+type GmailUsersSettingsSendAsSmimeInfoDeleteResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "sendAs"+    Core.:> Core.Capture "sendAsEmail" Core.Text+    Core.:> "smimeInfo"+    Core.:> Core.Capture "id" 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 the specified S\/MIME config for the specified send-as alias.+--+-- /See:/ 'newGmailUsersSettingsSendAsSmimeInfoDelete' smart constructor.+data GmailUsersSettingsSendAsSmimeInfoDelete = GmailUsersSettingsSendAsSmimeInfoDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The immutable ID for the SmimeInfo.+    id :: Core.Text,+    -- | The email address that appears in the \"From:\" header for mail sent using this alias.+    sendAsEmail :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsSendAsSmimeInfoDelete' with the minimum fields required to make a request.+newGmailUsersSettingsSendAsSmimeInfoDelete ::+  -- |  The immutable ID for the SmimeInfo. See 'id'.+  Core.Text ->+  -- |  The email address that appears in the \"From:\" header for mail sent using this alias. See 'sendAsEmail'.+  Core.Text ->+  GmailUsersSettingsSendAsSmimeInfoDelete+newGmailUsersSettingsSendAsSmimeInfoDelete id sendAsEmail =+  GmailUsersSettingsSendAsSmimeInfoDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      sendAsEmail = sendAsEmail,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsSendAsSmimeInfoDelete where+  type Rs GmailUsersSettingsSendAsSmimeInfoDelete = ()+  type+    Scopes GmailUsersSettingsSendAsSmimeInfoDelete =+      '[Gmail'Settings'Basic, Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsSendAsSmimeInfoDelete {..} =+    go+      userId+      sendAsEmail+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsSendAsSmimeInfoDeleteResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/SendAs/SmimeInfo/Get.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.Gmail.Users.Settings.SendAs.SmimeInfo.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 specified S\/MIME config for the specified send-as alias.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.get@.+module Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.Get+  ( -- * Resource+    GmailUsersSettingsSendAsSmimeInfoGetResource,++    -- ** Constructing a Request+    GmailUsersSettingsSendAsSmimeInfoGet (..),+    newGmailUsersSettingsSendAsSmimeInfoGet,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.get@ method which the+-- 'GmailUsersSettingsSendAsSmimeInfoGet' request conforms to.+type GmailUsersSettingsSendAsSmimeInfoGetResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "sendAs"+    Core.:> Core.Capture "sendAsEmail" Core.Text+    Core.:> "smimeInfo"+    Core.:> Core.Capture "id" 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] SmimeInfo++-- | Gets the specified S\/MIME config for the specified send-as alias.+--+-- /See:/ 'newGmailUsersSettingsSendAsSmimeInfoGet' smart constructor.+data GmailUsersSettingsSendAsSmimeInfoGet = GmailUsersSettingsSendAsSmimeInfoGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The immutable ID for the SmimeInfo.+    id :: Core.Text,+    -- | The email address that appears in the \"From:\" header for mail sent using this alias.+    sendAsEmail :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsSendAsSmimeInfoGet' with the minimum fields required to make a request.+newGmailUsersSettingsSendAsSmimeInfoGet ::+  -- |  The immutable ID for the SmimeInfo. See 'id'.+  Core.Text ->+  -- |  The email address that appears in the \"From:\" header for mail sent using this alias. See 'sendAsEmail'.+  Core.Text ->+  GmailUsersSettingsSendAsSmimeInfoGet+newGmailUsersSettingsSendAsSmimeInfoGet id sendAsEmail =+  GmailUsersSettingsSendAsSmimeInfoGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      sendAsEmail = sendAsEmail,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsSendAsSmimeInfoGet where+  type Rs GmailUsersSettingsSendAsSmimeInfoGet = SmimeInfo+  type+    Scopes GmailUsersSettingsSendAsSmimeInfoGet =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic,+         Gmail'Settings'Sharing+       ]+  requestClient GmailUsersSettingsSendAsSmimeInfoGet {..} =+    go+      userId+      sendAsEmail+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsSendAsSmimeInfoGetResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/SendAs/SmimeInfo/Insert.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.Gmail.Users.Settings.SendAs.SmimeInfo.Insert+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Insert (upload) the given S\/MIME config for the specified send-as alias. Note that pkcs12 format is required for the key.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.insert@.+module Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.Insert+  ( -- * Resource+    GmailUsersSettingsSendAsSmimeInfoInsertResource,++    -- ** Constructing a Request+    GmailUsersSettingsSendAsSmimeInfoInsert (..),+    newGmailUsersSettingsSendAsSmimeInfoInsert,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.insert@ method which the+-- 'GmailUsersSettingsSendAsSmimeInfoInsert' request conforms to.+type GmailUsersSettingsSendAsSmimeInfoInsertResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "sendAs"+    Core.:> Core.Capture "sendAsEmail" Core.Text+    Core.:> "smimeInfo"+    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] SmimeInfo+    Core.:> Core.Post '[Core.JSON] SmimeInfo++-- | Insert (upload) the given S\/MIME config for the specified send-as alias. Note that pkcs12 format is required for the key.+--+-- /See:/ 'newGmailUsersSettingsSendAsSmimeInfoInsert' smart constructor.+data GmailUsersSettingsSendAsSmimeInfoInsert = GmailUsersSettingsSendAsSmimeInfoInsert+  { -- | 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 :: SmimeInfo,+    -- | The email address that appears in the \"From:\" header for mail sent using this alias.+    sendAsEmail :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsSendAsSmimeInfoInsert' with the minimum fields required to make a request.+newGmailUsersSettingsSendAsSmimeInfoInsert ::+  -- |  Multipart request metadata. See 'payload'.+  SmimeInfo ->+  -- |  The email address that appears in the \"From:\" header for mail sent using this alias. See 'sendAsEmail'.+  Core.Text ->+  GmailUsersSettingsSendAsSmimeInfoInsert+newGmailUsersSettingsSendAsSmimeInfoInsert payload sendAsEmail =+  GmailUsersSettingsSendAsSmimeInfoInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      sendAsEmail = sendAsEmail,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsSendAsSmimeInfoInsert where+  type Rs GmailUsersSettingsSendAsSmimeInfoInsert = SmimeInfo+  type+    Scopes GmailUsersSettingsSendAsSmimeInfoInsert =+      '[Gmail'Settings'Basic, Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsSendAsSmimeInfoInsert {..} =+    go+      userId+      sendAsEmail+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsSendAsSmimeInfoInsertResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/SendAs/SmimeInfo/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.Gmail.Users.Settings.SendAs.SmimeInfo.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 S\/MIME configs for the specified send-as alias.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.list@.+module Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.List+  ( -- * Resource+    GmailUsersSettingsSendAsSmimeInfoListResource,++    -- ** Constructing a Request+    GmailUsersSettingsSendAsSmimeInfoList (..),+    newGmailUsersSettingsSendAsSmimeInfoList,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.list@ method which the+-- 'GmailUsersSettingsSendAsSmimeInfoList' request conforms to.+type GmailUsersSettingsSendAsSmimeInfoListResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "sendAs"+    Core.:> Core.Capture "sendAsEmail" Core.Text+    Core.:> "smimeInfo"+    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] ListSmimeInfoResponse++-- | Lists S\/MIME configs for the specified send-as alias.+--+-- /See:/ 'newGmailUsersSettingsSendAsSmimeInfoList' smart constructor.+data GmailUsersSettingsSendAsSmimeInfoList = GmailUsersSettingsSendAsSmimeInfoList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The email address that appears in the \"From:\" header for mail sent using this alias.+    sendAsEmail :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsSendAsSmimeInfoList' with the minimum fields required to make a request.+newGmailUsersSettingsSendAsSmimeInfoList ::+  -- |  The email address that appears in the \"From:\" header for mail sent using this alias. See 'sendAsEmail'.+  Core.Text ->+  GmailUsersSettingsSendAsSmimeInfoList+newGmailUsersSettingsSendAsSmimeInfoList sendAsEmail =+  GmailUsersSettingsSendAsSmimeInfoList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      sendAsEmail = sendAsEmail,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsSendAsSmimeInfoList where+  type+    Rs GmailUsersSettingsSendAsSmimeInfoList =+      ListSmimeInfoResponse+  type+    Scopes GmailUsersSettingsSendAsSmimeInfoList =+      '[ Gmail'FullControl,+         Gmail'Modify,+         Gmail'Readonly,+         Gmail'Settings'Basic,+         Gmail'Settings'Sharing+       ]+  requestClient GmailUsersSettingsSendAsSmimeInfoList {..} =+    go+      userId+      sendAsEmail+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsSendAsSmimeInfoListResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/SendAs/SmimeInfo/SetDefault.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.Gmail.Users.Settings.SendAs.SmimeInfo.SetDefault+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Sets the default S\/MIME config for the specified send-as alias.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.setDefault@.+module Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.SetDefault+  ( -- * Resource+    GmailUsersSettingsSendAsSmimeInfoSetDefaultResource,++    -- ** Constructing a Request+    GmailUsersSettingsSendAsSmimeInfoSetDefault (..),+    newGmailUsersSettingsSendAsSmimeInfoSetDefault,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.setDefault@ method which the+-- 'GmailUsersSettingsSendAsSmimeInfoSetDefault' request conforms to.+type GmailUsersSettingsSendAsSmimeInfoSetDefaultResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "sendAs"+    Core.:> Core.Capture "sendAsEmail" Core.Text+    Core.:> "smimeInfo"+    Core.:> Core.Capture "id" Core.Text+    Core.:> "setDefault"+    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] ()++-- | Sets the default S\/MIME config for the specified send-as alias.+--+-- /See:/ 'newGmailUsersSettingsSendAsSmimeInfoSetDefault' smart constructor.+data GmailUsersSettingsSendAsSmimeInfoSetDefault = GmailUsersSettingsSendAsSmimeInfoSetDefault+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The immutable ID for the SmimeInfo.+    id :: Core.Text,+    -- | The email address that appears in the \"From:\" header for mail sent using this alias.+    sendAsEmail :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsSendAsSmimeInfoSetDefault' with the minimum fields required to make a request.+newGmailUsersSettingsSendAsSmimeInfoSetDefault ::+  -- |  The immutable ID for the SmimeInfo. See 'id'.+  Core.Text ->+  -- |  The email address that appears in the \"From:\" header for mail sent using this alias. See 'sendAsEmail'.+  Core.Text ->+  GmailUsersSettingsSendAsSmimeInfoSetDefault+newGmailUsersSettingsSendAsSmimeInfoSetDefault id sendAsEmail =+  GmailUsersSettingsSendAsSmimeInfoSetDefault+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      sendAsEmail = sendAsEmail,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance+  Core.GoogleRequest+    GmailUsersSettingsSendAsSmimeInfoSetDefault+  where+  type Rs GmailUsersSettingsSendAsSmimeInfoSetDefault = ()+  type+    Scopes GmailUsersSettingsSendAsSmimeInfoSetDefault =+      '[Gmail'Settings'Basic, Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsSendAsSmimeInfoSetDefault {..} =+    go+      userId+      sendAsEmail+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsSendAsSmimeInfoSetDefaultResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/SendAs/Update.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.Gmail.Users.Settings.SendAs.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 send-as alias. If a signature is provided, Gmail will sanitize the HTML before saving it with the alias. Addresses other than the primary address for the account can only be updated by service account clients that have been delegated domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.update@.+module Gogol.Gmail.Users.Settings.SendAs.Update+  ( -- * Resource+    GmailUsersSettingsSendAsUpdateResource,++    -- ** Constructing a Request+    GmailUsersSettingsSendAsUpdate (..),+    newGmailUsersSettingsSendAsUpdate,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.sendAs.update@ method which the+-- 'GmailUsersSettingsSendAsUpdate' request conforms to.+type GmailUsersSettingsSendAsUpdateResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "sendAs"+    Core.:> Core.Capture "sendAsEmail" 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] SendAs+    Core.:> Core.Put '[Core.JSON] SendAs++-- | Updates a send-as alias. If a signature is provided, Gmail will sanitize the HTML before saving it with the alias. Addresses other than the primary address for the account can only be updated by service account clients that have been delegated domain-wide authority.+--+-- /See:/ 'newGmailUsersSettingsSendAsUpdate' smart constructor.+data GmailUsersSettingsSendAsUpdate = GmailUsersSettingsSendAsUpdate+  { -- | 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 :: SendAs,+    -- | The send-as alias to be updated.+    sendAsEmail :: 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsSendAsUpdate' with the minimum fields required to make a request.+newGmailUsersSettingsSendAsUpdate ::+  -- |  Multipart request metadata. See 'payload'.+  SendAs ->+  -- |  The send-as alias to be updated. See 'sendAsEmail'.+  Core.Text ->+  GmailUsersSettingsSendAsUpdate+newGmailUsersSettingsSendAsUpdate payload sendAsEmail =+  GmailUsersSettingsSendAsUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      sendAsEmail = sendAsEmail,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsSendAsUpdate where+  type Rs GmailUsersSettingsSendAsUpdate = SendAs+  type+    Scopes GmailUsersSettingsSendAsUpdate =+      '[Gmail'Settings'Basic, Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsSendAsUpdate {..} =+    go+      userId+      sendAsEmail+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsSendAsUpdateResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/SendAs/Verify.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.Gmail.Users.Settings.SendAs.Verify+-- 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)+--+-- Sends a verification email to the specified send-as alias address. The verification status must be @pending@. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.verify@.+module Gogol.Gmail.Users.Settings.SendAs.Verify+  ( -- * Resource+    GmailUsersSettingsSendAsVerifyResource,++    -- ** Constructing a Request+    GmailUsersSettingsSendAsVerify (..),+    newGmailUsersSettingsSendAsVerify,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.sendAs.verify@ method which the+-- 'GmailUsersSettingsSendAsVerify' request conforms to.+type GmailUsersSettingsSendAsVerifyResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "sendAs"+    Core.:> Core.Capture "sendAsEmail" Core.Text+    Core.:> "verify"+    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] ()++-- | Sends a verification email to the specified send-as alias address. The verification status must be @pending@. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ 'newGmailUsersSettingsSendAsVerify' smart constructor.+data GmailUsersSettingsSendAsVerify = GmailUsersSettingsSendAsVerify+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The send-as alias to be verified.+    sendAsEmail :: 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsSendAsVerify' with the minimum fields required to make a request.+newGmailUsersSettingsSendAsVerify ::+  -- |  The send-as alias to be verified. See 'sendAsEmail'.+  Core.Text ->+  GmailUsersSettingsSendAsVerify+newGmailUsersSettingsSendAsVerify sendAsEmail =+  GmailUsersSettingsSendAsVerify+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      sendAsEmail = sendAsEmail,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsSendAsVerify where+  type Rs GmailUsersSettingsSendAsVerify = ()+  type+    Scopes GmailUsersSettingsSendAsVerify =+      '[Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsSendAsVerify {..} =+    go+      userId+      sendAsEmail+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsSendAsVerifyResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/UpdateAutoForwarding.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.Gmail.Users.Settings.UpdateAutoForwarding+-- 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 auto-forwarding setting for the specified account. A verified forwarding address must be specified when auto-forwarding is enabled. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.updateAutoForwarding@.+module Gogol.Gmail.Users.Settings.UpdateAutoForwarding+  ( -- * Resource+    GmailUsersSettingsUpdateAutoForwardingResource,++    -- ** Constructing a Request+    GmailUsersSettingsUpdateAutoForwarding (..),+    newGmailUsersSettingsUpdateAutoForwarding,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.updateAutoForwarding@ method which the+-- 'GmailUsersSettingsUpdateAutoForwarding' request conforms to.+type GmailUsersSettingsUpdateAutoForwardingResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "autoForwarding"+    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] AutoForwarding+    Core.:> Core.Put '[Core.JSON] AutoForwarding++-- | Updates the auto-forwarding setting for the specified account. A verified forwarding address must be specified when auto-forwarding is enabled. This method is only available to service account clients that have been delegated domain-wide authority.+--+-- /See:/ 'newGmailUsersSettingsUpdateAutoForwarding' smart constructor.+data GmailUsersSettingsUpdateAutoForwarding = GmailUsersSettingsUpdateAutoForwarding+  { -- | 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 :: AutoForwarding,+    -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsUpdateAutoForwarding' with the minimum fields required to make a request.+newGmailUsersSettingsUpdateAutoForwarding ::+  -- |  Multipart request metadata. See 'payload'.+  AutoForwarding ->+  GmailUsersSettingsUpdateAutoForwarding+newGmailUsersSettingsUpdateAutoForwarding payload =+  GmailUsersSettingsUpdateAutoForwarding+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsUpdateAutoForwarding where+  type Rs GmailUsersSettingsUpdateAutoForwarding = AutoForwarding+  type+    Scopes GmailUsersSettingsUpdateAutoForwarding =+      '[Gmail'Settings'Sharing]+  requestClient GmailUsersSettingsUpdateAutoForwarding {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy GmailUsersSettingsUpdateAutoForwardingResource+          )+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/UpdateImap.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.Gmail.Users.Settings.UpdateImap+-- 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 IMAP settings.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.updateImap@.+module Gogol.Gmail.Users.Settings.UpdateImap+  ( -- * Resource+    GmailUsersSettingsUpdateImapResource,++    -- ** Constructing a Request+    GmailUsersSettingsUpdateImap (..),+    newGmailUsersSettingsUpdateImap,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.updateImap@ method which the+-- 'GmailUsersSettingsUpdateImap' request conforms to.+type GmailUsersSettingsUpdateImapResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "imap"+    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] ImapSettings+    Core.:> Core.Put '[Core.JSON] ImapSettings++-- | Updates IMAP settings.+--+-- /See:/ 'newGmailUsersSettingsUpdateImap' smart constructor.+data GmailUsersSettingsUpdateImap = GmailUsersSettingsUpdateImap+  { -- | 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 :: ImapSettings,+    -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsUpdateImap' with the minimum fields required to make a request.+newGmailUsersSettingsUpdateImap ::+  -- |  Multipart request metadata. See 'payload'.+  ImapSettings ->+  GmailUsersSettingsUpdateImap+newGmailUsersSettingsUpdateImap payload =+  GmailUsersSettingsUpdateImap+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsUpdateImap where+  type Rs GmailUsersSettingsUpdateImap = ImapSettings+  type Scopes GmailUsersSettingsUpdateImap = '[Gmail'Settings'Basic]+  requestClient GmailUsersSettingsUpdateImap {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsUpdateImapResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/UpdateLanguage.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.Gmail.Users.Settings.UpdateLanguage+-- 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 language settings. If successful, the return object contains the @displayLanguage@ that was saved for the user, which may differ from the value passed into the request. This is because the requested @displayLanguage@ may not be directly supported by Gmail but have a close variant that is, and so the variant may be chosen and saved instead.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.updateLanguage@.+module Gogol.Gmail.Users.Settings.UpdateLanguage+  ( -- * Resource+    GmailUsersSettingsUpdateLanguageResource,++    -- ** Constructing a Request+    GmailUsersSettingsUpdateLanguage (..),+    newGmailUsersSettingsUpdateLanguage,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.updateLanguage@ method which the+-- 'GmailUsersSettingsUpdateLanguage' request conforms to.+type GmailUsersSettingsUpdateLanguageResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "language"+    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] LanguageSettings+    Core.:> Core.Put '[Core.JSON] LanguageSettings++-- | Updates language settings. If successful, the return object contains the @displayLanguage@ that was saved for the user, which may differ from the value passed into the request. This is because the requested @displayLanguage@ may not be directly supported by Gmail but have a close variant that is, and so the variant may be chosen and saved instead.+--+-- /See:/ 'newGmailUsersSettingsUpdateLanguage' smart constructor.+data GmailUsersSettingsUpdateLanguage = GmailUsersSettingsUpdateLanguage+  { -- | 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 :: LanguageSettings,+    -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsUpdateLanguage' with the minimum fields required to make a request.+newGmailUsersSettingsUpdateLanguage ::+  -- |  Multipart request metadata. See 'payload'.+  LanguageSettings ->+  GmailUsersSettingsUpdateLanguage+newGmailUsersSettingsUpdateLanguage payload =+  GmailUsersSettingsUpdateLanguage+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsUpdateLanguage where+  type Rs GmailUsersSettingsUpdateLanguage = LanguageSettings+  type+    Scopes GmailUsersSettingsUpdateLanguage =+      '[Gmail'Settings'Basic]+  requestClient GmailUsersSettingsUpdateLanguage {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsUpdateLanguageResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/UpdatePop.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.Gmail.Users.Settings.UpdatePop+-- 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 POP settings.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.updatePop@.+module Gogol.Gmail.Users.Settings.UpdatePop+  ( -- * Resource+    GmailUsersSettingsUpdatePopResource,++    -- ** Constructing a Request+    GmailUsersSettingsUpdatePop (..),+    newGmailUsersSettingsUpdatePop,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.updatePop@ method which the+-- 'GmailUsersSettingsUpdatePop' request conforms to.+type GmailUsersSettingsUpdatePopResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "pop"+    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] PopSettings+    Core.:> Core.Put '[Core.JSON] PopSettings++-- | Updates POP settings.+--+-- /See:/ 'newGmailUsersSettingsUpdatePop' smart constructor.+data GmailUsersSettingsUpdatePop = GmailUsersSettingsUpdatePop+  { -- | 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 :: PopSettings,+    -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsUpdatePop' with the minimum fields required to make a request.+newGmailUsersSettingsUpdatePop ::+  -- |  Multipart request metadata. See 'payload'.+  PopSettings ->+  GmailUsersSettingsUpdatePop+newGmailUsersSettingsUpdatePop payload =+  GmailUsersSettingsUpdatePop+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsUpdatePop where+  type Rs GmailUsersSettingsUpdatePop = PopSettings+  type Scopes GmailUsersSettingsUpdatePop = '[Gmail'Settings'Basic]+  requestClient GmailUsersSettingsUpdatePop {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsUpdatePopResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Settings/UpdateVacation.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.Gmail.Users.Settings.UpdateVacation+-- 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 vacation responder settings.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.updateVacation@.+module Gogol.Gmail.Users.Settings.UpdateVacation+  ( -- * Resource+    GmailUsersSettingsUpdateVacationResource,++    -- ** Constructing a Request+    GmailUsersSettingsUpdateVacation (..),+    newGmailUsersSettingsUpdateVacation,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.settings.updateVacation@ method which the+-- 'GmailUsersSettingsUpdateVacation' request conforms to.+type GmailUsersSettingsUpdateVacationResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "settings"+    Core.:> "vacation"+    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] VacationSettings+    Core.:> Core.Put '[Core.JSON] VacationSettings++-- | Updates vacation responder settings.+--+-- /See:/ 'newGmailUsersSettingsUpdateVacation' smart constructor.+data GmailUsersSettingsUpdateVacation = GmailUsersSettingsUpdateVacation+  { -- | 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 :: VacationSettings,+    -- | 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),+    -- | User\'s email address. The special value \"me\" can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersSettingsUpdateVacation' with the minimum fields required to make a request.+newGmailUsersSettingsUpdateVacation ::+  -- |  Multipart request metadata. See 'payload'.+  VacationSettings ->+  GmailUsersSettingsUpdateVacation+newGmailUsersSettingsUpdateVacation payload =+  GmailUsersSettingsUpdateVacation+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersSettingsUpdateVacation where+  type Rs GmailUsersSettingsUpdateVacation = VacationSettings+  type+    Scopes GmailUsersSettingsUpdateVacation =+      '[Gmail'Settings'Basic]+  requestClient GmailUsersSettingsUpdateVacation {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersSettingsUpdateVacationResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Stop.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.Gmail.Users.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)+--+-- Stop receiving push notifications for the given user mailbox.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.stop@.+module Gogol.Gmail.Users.Stop+  ( -- * Resource+    GmailUsersStopResource,++    -- ** Constructing a Request+    GmailUsersStop (..),+    newGmailUsersStop,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.stop@ method which the+-- 'GmailUsersStop' request conforms to.+type GmailUsersStopResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    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.Post '[Core.JSON] ()++-- | Stop receiving push notifications for the given user mailbox.+--+-- /See:/ 'newGmailUsersStop' smart constructor.+data GmailUsersStop = GmailUsersStop+  { -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersStop' with the minimum fields required to make a request.+newGmailUsersStop ::+  GmailUsersStop+newGmailUsersStop =+  GmailUsersStop+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersStop where+  type Rs GmailUsersStop = ()+  type+    Scopes GmailUsersStop =+      '[Gmail'FullControl, Gmail'Metadata, Gmail'Modify, Gmail'Readonly]+  requestClient GmailUsersStop {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersStopResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Threads/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.Gmail.Users.Threads.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)+--+-- Immediately and permanently deletes the specified thread. Any messages that belong to the thread are also deleted. This operation cannot be undone. Prefer @threads.trash@ instead.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.threads.delete@.+module Gogol.Gmail.Users.Threads.Delete+  ( -- * Resource+    GmailUsersThreadsDeleteResource,++    -- ** Constructing a Request+    GmailUsersThreadsDelete (..),+    newGmailUsersThreadsDelete,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.threads.delete@ method which the+-- 'GmailUsersThreadsDelete' request conforms to.+type GmailUsersThreadsDeleteResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "threads"+    Core.:> Core.Capture "id" 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] ()++-- | Immediately and permanently deletes the specified thread. Any messages that belong to the thread are also deleted. This operation cannot be undone. Prefer @threads.trash@ instead.+--+-- /See:/ 'newGmailUsersThreadsDelete' smart constructor.+data GmailUsersThreadsDelete = GmailUsersThreadsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ID of the Thread to delete.+    id :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersThreadsDelete' with the minimum fields required to make a request.+newGmailUsersThreadsDelete ::+  -- |  ID of the Thread to delete. See 'id'.+  Core.Text ->+  GmailUsersThreadsDelete+newGmailUsersThreadsDelete id =+  GmailUsersThreadsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersThreadsDelete where+  type Rs GmailUsersThreadsDelete = ()+  type Scopes GmailUsersThreadsDelete = '[Gmail'FullControl]+  requestClient GmailUsersThreadsDelete {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersThreadsDeleteResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Threads/Get.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Gmail.Users.Threads.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 specified thread.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.threads.get@.+module Gogol.Gmail.Users.Threads.Get+  ( -- * Resource+    GmailUsersThreadsGetResource,++    -- ** Constructing a Request+    GmailUsersThreadsGet (..),+    newGmailUsersThreadsGet,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.threads.get@ method which the+-- 'GmailUsersThreadsGet' request conforms to.+type GmailUsersThreadsGetResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "threads"+    Core.:> Core.Capture "id" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "format" UsersThreadsGetFormat+    Core.:> Core.QueryParams "metadataHeaders" 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] Thread++-- | Gets the specified thread.+--+-- /See:/ 'newGmailUsersThreadsGet' smart constructor.+data GmailUsersThreadsGet = GmailUsersThreadsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The format to return the messages in.+    format :: UsersThreadsGetFormat,+    -- | The ID of the thread to retrieve.+    id :: Core.Text,+    -- | When given and format is METADATA, only include headers specified.+    metadataHeaders :: (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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersThreadsGet' with the minimum fields required to make a request.+newGmailUsersThreadsGet ::+  -- |  The ID of the thread to retrieve. See 'id'.+  Core.Text ->+  GmailUsersThreadsGet+newGmailUsersThreadsGet id =+  GmailUsersThreadsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      format = UsersThreadsGetFormat_Full,+      id = id,+      metadataHeaders = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersThreadsGet where+  type Rs GmailUsersThreadsGet = Thread+  type+    Scopes GmailUsersThreadsGet =+      '[ Gmail'FullControl,+         Gmail'Addons'Current'Message'Action,+         Gmail'Addons'Current'Message'Metadata,+         Gmail'Addons'Current'Message'Readonly,+         Gmail'Metadata,+         Gmail'Modify,+         Gmail'Readonly+       ]+  requestClient GmailUsersThreadsGet {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      (Core.Just format)+      (metadataHeaders Core.^. Core._Default)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersThreadsGetResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Threads/List.hs view
@@ -0,0 +1,135 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Gmail.Users.Threads.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 threads in the user\'s mailbox.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.threads.list@.+module Gogol.Gmail.Users.Threads.List+  ( -- * Resource+    GmailUsersThreadsListResource,++    -- ** Constructing a Request+    GmailUsersThreadsList (..),+    newGmailUsersThreadsList,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.threads.list@ method which the+-- 'GmailUsersThreadsList' request conforms to.+type GmailUsersThreadsListResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "threads"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "includeSpamTrash" Core.Bool+    Core.:> Core.QueryParams "labelIds" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Word32+    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 "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListThreadsResponse++-- | Lists the threads in the user\'s mailbox.+--+-- /See:/ 'newGmailUsersThreadsList' smart constructor.+data GmailUsersThreadsList = GmailUsersThreadsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Include threads from @SPAM@ and @TRASH@ in the results.+    includeSpamTrash :: Core.Bool,+    -- | Only return threads with labels that match all of the specified label IDs.+    labelIds :: (Core.Maybe [Core.Text]),+    -- | Maximum number of threads to return. This field defaults to 100. The maximum allowed value for this field is 500.+    maxResults :: Core.Word32,+    -- | Page token to retrieve a specific page of results in the list.+    pageToken :: (Core.Maybe Core.Text),+    -- | Only return threads matching the specified query. Supports the same query format as the Gmail search box. For example, @\"from:someuser\@example.com rfc822msgid: is:unread\"@. Parameter cannot be used when accessing the api using the gmail.metadata scope.+    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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersThreadsList' with the minimum fields required to make a request.+newGmailUsersThreadsList ::+  GmailUsersThreadsList+newGmailUsersThreadsList =+  GmailUsersThreadsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      includeSpamTrash = Core.False,+      labelIds = Core.Nothing,+      maxResults = 100,+      pageToken = Core.Nothing,+      q = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersThreadsList where+  type Rs GmailUsersThreadsList = ListThreadsResponse+  type+    Scopes GmailUsersThreadsList =+      '[Gmail'FullControl, Gmail'Metadata, Gmail'Modify, Gmail'Readonly]+  requestClient GmailUsersThreadsList {..} =+    go+      userId+      xgafv+      accessToken+      callback+      (Core.Just includeSpamTrash)+      (labelIds Core.^. Core._Default)+      (Core.Just maxResults)+      pageToken+      q+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersThreadsListResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Threads/Modify.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.Gmail.Users.Threads.Modify+-- 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 labels applied to the thread. This applies to all messages in the thread.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.threads.modify@.+module Gogol.Gmail.Users.Threads.Modify+  ( -- * Resource+    GmailUsersThreadsModifyResource,++    -- ** Constructing a Request+    GmailUsersThreadsModify (..),+    newGmailUsersThreadsModify,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.threads.modify@ method which the+-- 'GmailUsersThreadsModify' request conforms to.+type GmailUsersThreadsModifyResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "threads"+    Core.:> Core.Capture "id" Core.Text+    Core.:> "modify"+    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] ModifyThreadRequest+    Core.:> Core.Post '[Core.JSON] Thread++-- | Modifies the labels applied to the thread. This applies to all messages in the thread.+--+-- /See:/ 'newGmailUsersThreadsModify' smart constructor.+data GmailUsersThreadsModify = GmailUsersThreadsModify+  { -- | 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 thread to modify.+    id :: Core.Text,+    -- | Multipart request metadata.+    payload :: ModifyThreadRequest,+    -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersThreadsModify' with the minimum fields required to make a request.+newGmailUsersThreadsModify ::+  -- |  The ID of the thread to modify. See 'id'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ModifyThreadRequest ->+  GmailUsersThreadsModify+newGmailUsersThreadsModify id payload =+  GmailUsersThreadsModify+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersThreadsModify where+  type Rs GmailUsersThreadsModify = Thread+  type+    Scopes GmailUsersThreadsModify =+      '[Gmail'FullControl, Gmail'Modify]+  requestClient GmailUsersThreadsModify {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersThreadsModifyResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Threads/Trash.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.Gmail.Users.Threads.Trash+-- 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)+--+-- Moves the specified thread to the trash. Any messages that belong to the thread are also moved to the trash.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.threads.trash@.+module Gogol.Gmail.Users.Threads.Trash+  ( -- * Resource+    GmailUsersThreadsTrashResource,++    -- ** Constructing a Request+    GmailUsersThreadsTrash (..),+    newGmailUsersThreadsTrash,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.threads.trash@ method which the+-- 'GmailUsersThreadsTrash' request conforms to.+type GmailUsersThreadsTrashResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "threads"+    Core.:> Core.Capture "id" Core.Text+    Core.:> "trash"+    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] Thread++-- | Moves the specified thread to the trash. Any messages that belong to the thread are also moved to the trash.+--+-- /See:/ 'newGmailUsersThreadsTrash' smart constructor.+data GmailUsersThreadsTrash = GmailUsersThreadsTrash+  { -- | 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 thread to Trash.+    id :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersThreadsTrash' with the minimum fields required to make a request.+newGmailUsersThreadsTrash ::+  -- |  The ID of the thread to Trash. See 'id'.+  Core.Text ->+  GmailUsersThreadsTrash+newGmailUsersThreadsTrash id =+  GmailUsersThreadsTrash+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersThreadsTrash where+  type Rs GmailUsersThreadsTrash = Thread+  type+    Scopes GmailUsersThreadsTrash =+      '[Gmail'FullControl, Gmail'Modify]+  requestClient GmailUsersThreadsTrash {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersThreadsTrashResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Threads/Untrash.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.Gmail.Users.Threads.Untrash+-- 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)+--+-- Removes the specified thread from the trash. Any messages that belong to the thread are also removed from the trash.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.threads.untrash@.+module Gogol.Gmail.Users.Threads.Untrash+  ( -- * Resource+    GmailUsersThreadsUntrashResource,++    -- ** Constructing a Request+    GmailUsersThreadsUntrash (..),+    newGmailUsersThreadsUntrash,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.threads.untrash@ method which the+-- 'GmailUsersThreadsUntrash' request conforms to.+type GmailUsersThreadsUntrashResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "threads"+    Core.:> Core.Capture "id" Core.Text+    Core.:> "untrash"+    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] Thread++-- | Removes the specified thread from the trash. Any messages that belong to the thread are also removed from the trash.+--+-- /See:/ 'newGmailUsersThreadsUntrash' smart constructor.+data GmailUsersThreadsUntrash = GmailUsersThreadsUntrash+  { -- | 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 thread to remove from Trash.+    id :: 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersThreadsUntrash' with the minimum fields required to make a request.+newGmailUsersThreadsUntrash ::+  -- |  The ID of the thread to remove from Trash. See 'id'.+  Core.Text ->+  GmailUsersThreadsUntrash+newGmailUsersThreadsUntrash id =+  GmailUsersThreadsUntrash+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      id = id,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersThreadsUntrash where+  type Rs GmailUsersThreadsUntrash = Thread+  type+    Scopes GmailUsersThreadsUntrash =+      '[Gmail'FullControl, Gmail'Modify]+  requestClient GmailUsersThreadsUntrash {..} =+    go+      userId+      id+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersThreadsUntrashResource)+          Core.mempty
+ gen/Gogol/Gmail/Users/Watch.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.Gmail.Users.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)+--+-- Set up or update a push notification watch on the given user mailbox.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.watch@.+module Gogol.Gmail.Users.Watch+  ( -- * Resource+    GmailUsersWatchResource,++    -- ** Constructing a Request+    GmailUsersWatch (..),+    newGmailUsersWatch,+  )+where++import Gogol.Gmail.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @gmail.users.watch@ method which the+-- 'GmailUsersWatch' request conforms to.+type GmailUsersWatchResource =+  "gmail"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "watch"+    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] WatchRequest+    Core.:> Core.Post '[Core.JSON] WatchResponse++-- | Set up or update a push notification watch on the given user mailbox.+--+-- /See:/ 'newGmailUsersWatch' smart constructor.+data GmailUsersWatch = GmailUsersWatch+  { -- | 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 :: WatchRequest,+    -- | 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),+    -- | The user\'s email address. The special value @me@ can be used to indicate the authenticated user.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GmailUsersWatch' with the minimum fields required to make a request.+newGmailUsersWatch ::+  -- |  Multipart request metadata. See 'payload'.+  WatchRequest ->+  GmailUsersWatch+newGmailUsersWatch payload =+  GmailUsersWatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = "me"+    }++instance Core.GoogleRequest GmailUsersWatch where+  type Rs GmailUsersWatch = WatchResponse+  type+    Scopes GmailUsersWatch =+      '[Gmail'FullControl, Gmail'Metadata, Gmail'Modify, Gmail'Readonly]+  requestClient GmailUsersWatch {..} =+    go+      userId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      gmailService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy GmailUsersWatchResource)+          Core.mempty
− gen/Network/Google/Gmail.hs 
@@ -1,764 +0,0 @@-{-# LANGUAGE DataKinds         #-}-{-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE TypeOperators     #-}--{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- |--- Module      : Network.Google.Gmail--- 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)------ Access Gmail mailboxes including sending user email.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference>-module Network.Google.Gmail-    (-    -- * Service Configuration-      gmailService--    -- * OAuth Scopes-    , gmailSettingsBasicScope-    , mailGoogleComScope-    , gmailModifyScope-    , gmailMetadataScope-    , gmailLabelsScope-    , gmailSettingsSharingScope-    , gmailSendScope-    , gmailInsertScope-    , gmailComposeScope-    , gmailReadOnlyScope--    -- * API Declaration-    , GmailAPI--    -- * Resources--    -- ** gmail.users.drafts.create-    , module Network.Google.Resource.Gmail.Users.Drafts.Create--    -- ** gmail.users.drafts.delete-    , module Network.Google.Resource.Gmail.Users.Drafts.Delete--    -- ** gmail.users.drafts.get-    , module Network.Google.Resource.Gmail.Users.Drafts.Get--    -- ** gmail.users.drafts.list-    , module Network.Google.Resource.Gmail.Users.Drafts.List--    -- ** gmail.users.drafts.send-    , module Network.Google.Resource.Gmail.Users.Drafts.Send--    -- ** gmail.users.drafts.update-    , module Network.Google.Resource.Gmail.Users.Drafts.Update--    -- ** gmail.users.getProfile-    , module Network.Google.Resource.Gmail.Users.GetProFile--    -- ** gmail.users.history.list-    , module Network.Google.Resource.Gmail.Users.History.List--    -- ** gmail.users.labels.create-    , module Network.Google.Resource.Gmail.Users.Labels.Create--    -- ** gmail.users.labels.delete-    , module Network.Google.Resource.Gmail.Users.Labels.Delete--    -- ** gmail.users.labels.get-    , module Network.Google.Resource.Gmail.Users.Labels.Get--    -- ** gmail.users.labels.list-    , module Network.Google.Resource.Gmail.Users.Labels.List--    -- ** gmail.users.labels.patch-    , module Network.Google.Resource.Gmail.Users.Labels.Patch--    -- ** gmail.users.labels.update-    , module Network.Google.Resource.Gmail.Users.Labels.Update--    -- ** gmail.users.messages.attachments.get-    , module Network.Google.Resource.Gmail.Users.Messages.Attachments.Get--    -- ** gmail.users.messages.batchDelete-    , module Network.Google.Resource.Gmail.Users.Messages.BatchDelete--    -- ** gmail.users.messages.batchModify-    , module Network.Google.Resource.Gmail.Users.Messages.BatchModify--    -- ** gmail.users.messages.delete-    , module Network.Google.Resource.Gmail.Users.Messages.Delete--    -- ** gmail.users.messages.get-    , module Network.Google.Resource.Gmail.Users.Messages.Get--    -- ** gmail.users.messages.import-    , module Network.Google.Resource.Gmail.Users.Messages.Import--    -- ** gmail.users.messages.insert-    , module Network.Google.Resource.Gmail.Users.Messages.Insert--    -- ** gmail.users.messages.list-    , module Network.Google.Resource.Gmail.Users.Messages.List--    -- ** gmail.users.messages.modify-    , module Network.Google.Resource.Gmail.Users.Messages.Modify--    -- ** gmail.users.messages.send-    , module Network.Google.Resource.Gmail.Users.Messages.Send--    -- ** gmail.users.messages.trash-    , module Network.Google.Resource.Gmail.Users.Messages.Trash--    -- ** gmail.users.messages.untrash-    , module Network.Google.Resource.Gmail.Users.Messages.Untrash--    -- ** gmail.users.settings.delegates.create-    , module Network.Google.Resource.Gmail.Users.Settings.Delegates.Create--    -- ** gmail.users.settings.delegates.delete-    , module Network.Google.Resource.Gmail.Users.Settings.Delegates.Delete--    -- ** gmail.users.settings.delegates.get-    , module Network.Google.Resource.Gmail.Users.Settings.Delegates.Get--    -- ** gmail.users.settings.delegates.list-    , module Network.Google.Resource.Gmail.Users.Settings.Delegates.List--    -- ** gmail.users.settings.filters.create-    , module Network.Google.Resource.Gmail.Users.Settings.Filters.Create--    -- ** gmail.users.settings.filters.delete-    , module Network.Google.Resource.Gmail.Users.Settings.Filters.Delete--    -- ** gmail.users.settings.filters.get-    , module Network.Google.Resource.Gmail.Users.Settings.Filters.Get--    -- ** gmail.users.settings.filters.list-    , module Network.Google.Resource.Gmail.Users.Settings.Filters.List--    -- ** gmail.users.settings.forwardingAddresses.create-    , module Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Create--    -- ** gmail.users.settings.forwardingAddresses.delete-    , module Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Delete--    -- ** gmail.users.settings.forwardingAddresses.get-    , module Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Get--    -- ** gmail.users.settings.forwardingAddresses.list-    , module Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.List--    -- ** gmail.users.settings.getAutoForwarding-    , module Network.Google.Resource.Gmail.Users.Settings.GetAutoForwarding--    -- ** gmail.users.settings.getImap-    , module Network.Google.Resource.Gmail.Users.Settings.GetImap--    -- ** gmail.users.settings.getLanguage-    , module Network.Google.Resource.Gmail.Users.Settings.GetLanguage--    -- ** gmail.users.settings.getPop-    , module Network.Google.Resource.Gmail.Users.Settings.GetPop--    -- ** gmail.users.settings.getVacation-    , module Network.Google.Resource.Gmail.Users.Settings.GetVacation--    -- ** gmail.users.settings.sendAs.create-    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.Create--    -- ** gmail.users.settings.sendAs.delete-    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.Delete--    -- ** gmail.users.settings.sendAs.get-    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.Get--    -- ** gmail.users.settings.sendAs.list-    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.List--    -- ** gmail.users.settings.sendAs.patch-    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.Patch--    -- ** gmail.users.settings.sendAs.smimeInfo.delete-    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Delete--    -- ** gmail.users.settings.sendAs.smimeInfo.get-    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Get--    -- ** gmail.users.settings.sendAs.smimeInfo.insert-    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Insert--    -- ** gmail.users.settings.sendAs.smimeInfo.list-    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.List--    -- ** gmail.users.settings.sendAs.smimeInfo.setDefault-    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.SetDefault--    -- ** gmail.users.settings.sendAs.update-    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.Update--    -- ** gmail.users.settings.sendAs.verify-    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.Verify--    -- ** gmail.users.settings.updateAutoForwarding-    , module Network.Google.Resource.Gmail.Users.Settings.UpdateAutoForwarding--    -- ** gmail.users.settings.updateImap-    , module Network.Google.Resource.Gmail.Users.Settings.UpdateImap--    -- ** gmail.users.settings.updateLanguage-    , module Network.Google.Resource.Gmail.Users.Settings.UpdateLanguage--    -- ** gmail.users.settings.updatePop-    , module Network.Google.Resource.Gmail.Users.Settings.UpdatePop--    -- ** gmail.users.settings.updateVacation-    , module Network.Google.Resource.Gmail.Users.Settings.UpdateVacation--    -- ** gmail.users.stop-    , module Network.Google.Resource.Gmail.Users.Stop--    -- ** gmail.users.threads.delete-    , module Network.Google.Resource.Gmail.Users.Threads.Delete--    -- ** gmail.users.threads.get-    , module Network.Google.Resource.Gmail.Users.Threads.Get--    -- ** gmail.users.threads.list-    , module Network.Google.Resource.Gmail.Users.Threads.List--    -- ** gmail.users.threads.modify-    , module Network.Google.Resource.Gmail.Users.Threads.Modify--    -- ** gmail.users.threads.trash-    , module Network.Google.Resource.Gmail.Users.Threads.Trash--    -- ** gmail.users.threads.untrash-    , module Network.Google.Resource.Gmail.Users.Threads.Untrash--    -- ** gmail.users.watch-    , module Network.Google.Resource.Gmail.Users.Watch--    -- * Types--    -- ** BatchDeleteMessagesRequest-    , BatchDeleteMessagesRequest-    , batchDeleteMessagesRequest-    , bdmrIds--    -- ** FilterCriteriaSizeComparison-    , FilterCriteriaSizeComparison (..)--    -- ** Delegate-    , Delegate-    , delegate-    , dVerificationStatus-    , dDelegateEmail--    -- ** UsersMessagesGetFormat-    , UsersMessagesGetFormat (..)--    -- ** ModifyThreadRequest-    , ModifyThreadRequest-    , modifyThreadRequest-    , mtrRemoveLabelIds-    , mtrAddLabelIds--    -- ** ListFiltersResponse-    , ListFiltersResponse-    , listFiltersResponse-    , lfrFilter--    -- ** ModifyMessageRequest-    , ModifyMessageRequest-    , modifyMessageRequest-    , mmrRemoveLabelIds-    , mmrAddLabelIds--    -- ** ListForwardingAddressesResponse-    , ListForwardingAddressesResponse-    , listForwardingAddressesResponse-    , lfarForwardingAddresses--    -- ** PopSettings-    , PopSettings-    , popSettings-    , psAccessWindow-    , psDisPosition--    -- ** PopSettingsAccessWindow-    , PopSettingsAccessWindow (..)--    -- ** History-    , History-    , history-    , hLabelsRemoved-    , hMessagesDeleted-    , hMessagesAdded-    , hLabelsAdded-    , hId-    , hMessages--    -- ** ListDelegatesResponse-    , ListDelegatesResponse-    , listDelegatesResponse-    , ldrDelegates--    -- ** ForwardingAddressVerificationStatus-    , ForwardingAddressVerificationStatus (..)--    -- ** LabelColor-    , LabelColor-    , labelColor-    , lcBackgRoundColor-    , lcTextColor--    -- ** FilterCriteria-    , FilterCriteria-    , filterCriteria-    , fcSizeComparison-    , fcSubject-    , fcSize-    , fcExcludeChats-    , fcTo-    , fcFrom-    , fcQuery-    , fcNegatedQuery-    , fcHasAttachment--    -- ** ProFile-    , ProFile-    , proFile-    , pfMessagesTotal-    , pfThreadsTotal-    , pfHistoryId-    , pfEmailAddress--    -- ** AutoForwardingDisPosition-    , AutoForwardingDisPosition (..)--    -- ** MessagePartHeader-    , MessagePartHeader-    , messagePartHeader-    , mphValue-    , mphName--    -- ** UsersHistoryListHistoryTypes-    , UsersHistoryListHistoryTypes (..)--    -- ** SendAsVerificationStatus-    , SendAsVerificationStatus (..)--    -- ** ListHistoryResponse-    , ListHistoryResponse-    , listHistoryResponse-    , lhrNextPageToken-    , lhrHistory-    , lhrHistoryId--    -- ** SendAs-    , SendAs-    , sendAs-    , saSignature-    , saReplyToAddress-    , saTreatAsAlias-    , saSendAsEmail-    , saDisplayName-    , saVerificationStatus-    , saSmtpMsa-    , saIsPrimary-    , saIsDefault--    -- ** LabelType-    , LabelType (..)--    -- ** UsersDraftsGetFormat-    , UsersDraftsGetFormat (..)--    -- ** UsersMessagesImportInternalDateSource-    , UsersMessagesImportInternalDateSource (..)--    -- ** LabelMessageListVisibility-    , LabelMessageListVisibility (..)--    -- ** ListThreadsResponse-    , ListThreadsResponse-    , listThreadsResponse-    , ltrNextPageToken-    , ltrResultSizeEstimate-    , ltrThreads--    -- ** MessagePart-    , MessagePart-    , messagePart-    , mpParts-    , mpBody-    , mpMimeType-    , mpHeaders-    , mpPartId-    , mpFilename--    -- ** HistoryLabelAdded-    , HistoryLabelAdded-    , historyLabelAdded-    , hlaLabelIds-    , hlaMessage--    -- ** ListLabelsResponse-    , ListLabelsResponse-    , listLabelsResponse-    , llrLabels--    -- ** VacationSettings-    , VacationSettings-    , vacationSettings-    , vsEnableAutoReply-    , vsResponseBodyPlainText-    , vsRestrictToDomain-    , vsStartTime-    , vsResponseBodyHTML-    , vsRestrictToContacts-    , vsResponseSubject-    , vsEndTime--    -- ** LabelLabelListVisibility-    , LabelLabelListVisibility (..)--    -- ** HistoryMessageDeleted-    , HistoryMessageDeleted-    , historyMessageDeleted-    , hmdMessage--    -- ** MessagePartBody-    , MessagePartBody-    , messagePartBody-    , mpbSize-    , mpbData-    , mpbAttachmentId--    -- ** AutoForwarding-    , AutoForwarding-    , autoForwarding-    , afEnabled-    , afDisPosition-    , afEmailAddress--    -- ** ListDraftsResponse-    , ListDraftsResponse-    , listDraftsResponse-    , ldrNextPageToken-    , ldrResultSizeEstimate-    , ldrDrafts--    -- ** ListSendAsResponse-    , ListSendAsResponse-    , listSendAsResponse-    , lsarSendAs--    -- ** LanguageSettings-    , LanguageSettings-    , languageSettings-    , lsDisplayLanguage--    -- ** WatchResponse-    , WatchResponse-    , watchResponse-    , wrExpiration-    , wrHistoryId--    -- ** DelegateVerificationStatus-    , DelegateVerificationStatus (..)--    -- ** UsersThreadsGetFormat-    , UsersThreadsGetFormat (..)--    -- ** BatchModifyMessagesRequest-    , BatchModifyMessagesRequest-    , batchModifyMessagesRequest-    , bmmrIds-    , bmmrRemoveLabelIds-    , bmmrAddLabelIds--    -- ** Draft-    , Draft-    , draft-    , dId-    , dMessage--    -- ** SmtpMsa-    , SmtpMsa-    , smtpMsa-    , smSecurityMode-    , smUsername-    , smPassword-    , smHost-    , smPort--    -- ** ForwardingAddress-    , ForwardingAddress-    , forwardingAddress-    , faForwardingEmail-    , faVerificationStatus--    -- ** PopSettingsDisPosition-    , PopSettingsDisPosition (..)--    -- ** Filter-    , Filter-    , filter'-    , fAction-    , fId-    , fCriteria--    -- ** WatchRequest-    , WatchRequest-    , watchRequest-    , wrLabelFilterAction-    , wrTopicName-    , wrLabelIds--    -- ** WatchRequestLabelFilterAction-    , WatchRequestLabelFilterAction (..)--    -- ** ImapSettings-    , ImapSettings-    , imapSettings-    , isEnabled-    , isExpungeBehavior-    , isAutoExpunge-    , isMaxFolderSize--    -- ** ImapSettingsExpungeBehavior-    , ImapSettingsExpungeBehavior (..)--    -- ** ListSmimeInfoResponse-    , ListSmimeInfoResponse-    , listSmimeInfoResponse-    , lsirSmimeInfo--    -- ** SmtpMsaSecurityMode-    , SmtpMsaSecurityMode (..)--    -- ** Message-    , Message-    , message-    , mRaw-    , mSnippet-    , mSizeEstimate-    , mPayload-    , mHistoryId-    , mId-    , mLabelIds-    , mThreadId-    , mInternalDate--    -- ** UsersMessagesInsertInternalDateSource-    , UsersMessagesInsertInternalDateSource (..)--    -- ** HistoryLabelRemoved-    , HistoryLabelRemoved-    , historyLabelRemoved-    , hlrLabelIds-    , hlrMessage--    -- ** Thread-    , Thread-    , thread-    , tSnippet-    , tHistoryId-    , tId-    , tMessages--    -- ** FilterAction-    , FilterAction-    , filterAction-    , faForward-    , faRemoveLabelIds-    , faAddLabelIds--    -- ** Label-    , Label-    , label-    , lThreadsUnread-    , lMessageListVisibility-    , lMessagesTotal-    , lColor-    , lMessagesUnread-    , lName-    , lThreadsTotal-    , lLabelListVisibility-    , lId-    , lType--    -- ** SmimeInfo-    , SmimeInfo-    , smimeInfo-    , siPem-    , siExpiration-    , siEncryptedKeyPassword-    , siId-    , siPkcs12-    , siIssuerCn-    , siIsDefault--    -- ** ListMessagesResponse-    , ListMessagesResponse-    , listMessagesResponse-    , lmrNextPageToken-    , lmrResultSizeEstimate-    , lmrMessages--    -- ** HistoryMessageAdded-    , HistoryMessageAdded-    , historyMessageAdded-    , hmaMessage-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude-import           Network.Google.Resource.Gmail.Users.Drafts.Create-import           Network.Google.Resource.Gmail.Users.Drafts.Delete-import           Network.Google.Resource.Gmail.Users.Drafts.Get-import           Network.Google.Resource.Gmail.Users.Drafts.List-import           Network.Google.Resource.Gmail.Users.Drafts.Send-import           Network.Google.Resource.Gmail.Users.Drafts.Update-import           Network.Google.Resource.Gmail.Users.GetProFile-import           Network.Google.Resource.Gmail.Users.History.List-import           Network.Google.Resource.Gmail.Users.Labels.Create-import           Network.Google.Resource.Gmail.Users.Labels.Delete-import           Network.Google.Resource.Gmail.Users.Labels.Get-import           Network.Google.Resource.Gmail.Users.Labels.List-import           Network.Google.Resource.Gmail.Users.Labels.Patch-import           Network.Google.Resource.Gmail.Users.Labels.Update-import           Network.Google.Resource.Gmail.Users.Messages.Attachments.Get-import           Network.Google.Resource.Gmail.Users.Messages.BatchDelete-import           Network.Google.Resource.Gmail.Users.Messages.BatchModify-import           Network.Google.Resource.Gmail.Users.Messages.Delete-import           Network.Google.Resource.Gmail.Users.Messages.Get-import           Network.Google.Resource.Gmail.Users.Messages.Import-import           Network.Google.Resource.Gmail.Users.Messages.Insert-import           Network.Google.Resource.Gmail.Users.Messages.List-import           Network.Google.Resource.Gmail.Users.Messages.Modify-import           Network.Google.Resource.Gmail.Users.Messages.Send-import           Network.Google.Resource.Gmail.Users.Messages.Trash-import           Network.Google.Resource.Gmail.Users.Messages.Untrash-import           Network.Google.Resource.Gmail.Users.Settings.Delegates.Create-import           Network.Google.Resource.Gmail.Users.Settings.Delegates.Delete-import           Network.Google.Resource.Gmail.Users.Settings.Delegates.Get-import           Network.Google.Resource.Gmail.Users.Settings.Delegates.List-import           Network.Google.Resource.Gmail.Users.Settings.Filters.Create-import           Network.Google.Resource.Gmail.Users.Settings.Filters.Delete-import           Network.Google.Resource.Gmail.Users.Settings.Filters.Get-import           Network.Google.Resource.Gmail.Users.Settings.Filters.List-import           Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Create-import           Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Delete-import           Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Get-import           Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.List-import           Network.Google.Resource.Gmail.Users.Settings.GetAutoForwarding-import           Network.Google.Resource.Gmail.Users.Settings.GetImap-import           Network.Google.Resource.Gmail.Users.Settings.GetLanguage-import           Network.Google.Resource.Gmail.Users.Settings.GetPop-import           Network.Google.Resource.Gmail.Users.Settings.GetVacation-import           Network.Google.Resource.Gmail.Users.Settings.SendAs.Create-import           Network.Google.Resource.Gmail.Users.Settings.SendAs.Delete-import           Network.Google.Resource.Gmail.Users.Settings.SendAs.Get-import           Network.Google.Resource.Gmail.Users.Settings.SendAs.List-import           Network.Google.Resource.Gmail.Users.Settings.SendAs.Patch-import           Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Delete-import           Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Get-import           Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Insert-import           Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.List-import           Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.SetDefault-import           Network.Google.Resource.Gmail.Users.Settings.SendAs.Update-import           Network.Google.Resource.Gmail.Users.Settings.SendAs.Verify-import           Network.Google.Resource.Gmail.Users.Settings.UpdateAutoForwarding-import           Network.Google.Resource.Gmail.Users.Settings.UpdateImap-import           Network.Google.Resource.Gmail.Users.Settings.UpdateLanguage-import           Network.Google.Resource.Gmail.Users.Settings.UpdatePop-import           Network.Google.Resource.Gmail.Users.Settings.UpdateVacation-import           Network.Google.Resource.Gmail.Users.Stop-import           Network.Google.Resource.Gmail.Users.Threads.Delete-import           Network.Google.Resource.Gmail.Users.Threads.Get-import           Network.Google.Resource.Gmail.Users.Threads.List-import           Network.Google.Resource.Gmail.Users.Threads.Modify-import           Network.Google.Resource.Gmail.Users.Threads.Trash-import           Network.Google.Resource.Gmail.Users.Threads.Untrash-import           Network.Google.Resource.Gmail.Users.Watch--{- $resources-TODO--}---- | Represents the entirety of the methods and resources available for the Gmail API service.-type GmailAPI =-     UsersHistoryListResource :<|>-       UsersSettingsDelegatesListResource-       :<|> UsersSettingsDelegatesGetResource-       :<|> UsersSettingsDelegatesCreateResource-       :<|> UsersSettingsDelegatesDeleteResource-       :<|> UsersSettingsForwardingAddressesListResource-       :<|> UsersSettingsForwardingAddressesGetResource-       :<|> UsersSettingsForwardingAddressesCreateResource-       :<|> UsersSettingsForwardingAddressesDeleteResource-       :<|> UsersSettingsFiltersListResource-       :<|> UsersSettingsFiltersGetResource-       :<|> UsersSettingsFiltersCreateResource-       :<|> UsersSettingsFiltersDeleteResource-       :<|> UsersSettingsSendAsSmimeInfoInsertResource-       :<|> UsersSettingsSendAsSmimeInfoListResource-       :<|> UsersSettingsSendAsSmimeInfoGetResource-       :<|> UsersSettingsSendAsSmimeInfoSetDefaultResource-       :<|> UsersSettingsSendAsSmimeInfoDeleteResource-       :<|> UsersSettingsSendAsVerifyResource-       :<|> UsersSettingsSendAsListResource-       :<|> UsersSettingsSendAsPatchResource-       :<|> UsersSettingsSendAsGetResource-       :<|> UsersSettingsSendAsCreateResource-       :<|> UsersSettingsSendAsDeleteResource-       :<|> UsersSettingsSendAsUpdateResource-       :<|> UsersSettingsUpdateImapResource-       :<|> UsersSettingsGetLanguageResource-       :<|> UsersSettingsGetVacationResource-       :<|> UsersSettingsGetAutoForwardingResource-       :<|> UsersSettingsUpdateAutoForwardingResource-       :<|> UsersSettingsUpdateVacationResource-       :<|> UsersSettingsUpdateLanguageResource-       :<|> UsersSettingsGetImapResource-       :<|> UsersSettingsUpdatePopResource-       :<|> UsersSettingsGetPopResource-       :<|> UsersDraftsListResource-       :<|> UsersDraftsGetResource-       :<|> UsersDraftsCreateResource-       :<|> UsersDraftsSendResource-       :<|> UsersDraftsDeleteResource-       :<|> UsersDraftsUpdateResource-       :<|> UsersLabelsListResource-       :<|> UsersLabelsPatchResource-       :<|> UsersLabelsGetResource-       :<|> UsersLabelsCreateResource-       :<|> UsersLabelsDeleteResource-       :<|> UsersLabelsUpdateResource-       :<|> UsersThreadsListResource-       :<|> UsersThreadsGetResource-       :<|> UsersThreadsTrashResource-       :<|> UsersThreadsUntrashResource-       :<|> UsersThreadsModifyResource-       :<|> UsersThreadsDeleteResource-       :<|> UsersMessagesAttachmentsGetResource-       :<|> UsersMessagesInsertResource-       :<|> UsersMessagesListResource-       :<|> UsersMessagesGetResource-       :<|> UsersMessagesTrashResource-       :<|> UsersMessagesSendResource-       :<|> UsersMessagesBatchModifyResource-       :<|> UsersMessagesUntrashResource-       :<|> UsersMessagesImportResource-       :<|> UsersMessagesBatchDeleteResource-       :<|> UsersMessagesModifyResource-       :<|> UsersMessagesDeleteResource-       :<|> UsersGetProFileResource-       :<|> UsersStopResource-       :<|> UsersWatchResource
− gen/Network/Google/Gmail/Types.hs 
@@ -1,456 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.Gmail.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.Gmail.Types-    (-    -- * Service Configuration-      gmailService--    -- * OAuth Scopes-    , gmailSettingsBasicScope-    , mailGoogleComScope-    , gmailModifyScope-    , gmailMetadataScope-    , gmailLabelsScope-    , gmailSettingsSharingScope-    , gmailSendScope-    , gmailInsertScope-    , gmailComposeScope-    , gmailReadOnlyScope--    -- * BatchDeleteMessagesRequest-    , BatchDeleteMessagesRequest-    , batchDeleteMessagesRequest-    , bdmrIds--    -- * FilterCriteriaSizeComparison-    , FilterCriteriaSizeComparison (..)--    -- * Delegate-    , Delegate-    , delegate-    , dVerificationStatus-    , dDelegateEmail--    -- * UsersMessagesGetFormat-    , UsersMessagesGetFormat (..)--    -- * ModifyThreadRequest-    , ModifyThreadRequest-    , modifyThreadRequest-    , mtrRemoveLabelIds-    , mtrAddLabelIds--    -- * ListFiltersResponse-    , ListFiltersResponse-    , listFiltersResponse-    , lfrFilter--    -- * ModifyMessageRequest-    , ModifyMessageRequest-    , modifyMessageRequest-    , mmrRemoveLabelIds-    , mmrAddLabelIds--    -- * ListForwardingAddressesResponse-    , ListForwardingAddressesResponse-    , listForwardingAddressesResponse-    , lfarForwardingAddresses--    -- * PopSettings-    , PopSettings-    , popSettings-    , psAccessWindow-    , psDisPosition--    -- * PopSettingsAccessWindow-    , PopSettingsAccessWindow (..)--    -- * History-    , History-    , history-    , hLabelsRemoved-    , hMessagesDeleted-    , hMessagesAdded-    , hLabelsAdded-    , hId-    , hMessages--    -- * ListDelegatesResponse-    , ListDelegatesResponse-    , listDelegatesResponse-    , ldrDelegates--    -- * ForwardingAddressVerificationStatus-    , ForwardingAddressVerificationStatus (..)--    -- * LabelColor-    , LabelColor-    , labelColor-    , lcBackgRoundColor-    , lcTextColor--    -- * FilterCriteria-    , FilterCriteria-    , filterCriteria-    , fcSizeComparison-    , fcSubject-    , fcSize-    , fcExcludeChats-    , fcTo-    , fcFrom-    , fcQuery-    , fcNegatedQuery-    , fcHasAttachment--    -- * ProFile-    , ProFile-    , proFile-    , pfMessagesTotal-    , pfThreadsTotal-    , pfHistoryId-    , pfEmailAddress--    -- * AutoForwardingDisPosition-    , AutoForwardingDisPosition (..)--    -- * MessagePartHeader-    , MessagePartHeader-    , messagePartHeader-    , mphValue-    , mphName--    -- * UsersHistoryListHistoryTypes-    , UsersHistoryListHistoryTypes (..)--    -- * SendAsVerificationStatus-    , SendAsVerificationStatus (..)--    -- * ListHistoryResponse-    , ListHistoryResponse-    , listHistoryResponse-    , lhrNextPageToken-    , lhrHistory-    , lhrHistoryId--    -- * SendAs-    , SendAs-    , sendAs-    , saSignature-    , saReplyToAddress-    , saTreatAsAlias-    , saSendAsEmail-    , saDisplayName-    , saVerificationStatus-    , saSmtpMsa-    , saIsPrimary-    , saIsDefault--    -- * LabelType-    , LabelType (..)--    -- * UsersDraftsGetFormat-    , UsersDraftsGetFormat (..)--    -- * UsersMessagesImportInternalDateSource-    , UsersMessagesImportInternalDateSource (..)--    -- * LabelMessageListVisibility-    , LabelMessageListVisibility (..)--    -- * ListThreadsResponse-    , ListThreadsResponse-    , listThreadsResponse-    , ltrNextPageToken-    , ltrResultSizeEstimate-    , ltrThreads--    -- * MessagePart-    , MessagePart-    , messagePart-    , mpParts-    , mpBody-    , mpMimeType-    , mpHeaders-    , mpPartId-    , mpFilename--    -- * HistoryLabelAdded-    , HistoryLabelAdded-    , historyLabelAdded-    , hlaLabelIds-    , hlaMessage--    -- * ListLabelsResponse-    , ListLabelsResponse-    , listLabelsResponse-    , llrLabels--    -- * VacationSettings-    , VacationSettings-    , vacationSettings-    , vsEnableAutoReply-    , vsResponseBodyPlainText-    , vsRestrictToDomain-    , vsStartTime-    , vsResponseBodyHTML-    , vsRestrictToContacts-    , vsResponseSubject-    , vsEndTime--    -- * LabelLabelListVisibility-    , LabelLabelListVisibility (..)--    -- * HistoryMessageDeleted-    , HistoryMessageDeleted-    , historyMessageDeleted-    , hmdMessage--    -- * MessagePartBody-    , MessagePartBody-    , messagePartBody-    , mpbSize-    , mpbData-    , mpbAttachmentId--    -- * AutoForwarding-    , AutoForwarding-    , autoForwarding-    , afEnabled-    , afDisPosition-    , afEmailAddress--    -- * ListDraftsResponse-    , ListDraftsResponse-    , listDraftsResponse-    , ldrNextPageToken-    , ldrResultSizeEstimate-    , ldrDrafts--    -- * ListSendAsResponse-    , ListSendAsResponse-    , listSendAsResponse-    , lsarSendAs--    -- * LanguageSettings-    , LanguageSettings-    , languageSettings-    , lsDisplayLanguage--    -- * WatchResponse-    , WatchResponse-    , watchResponse-    , wrExpiration-    , wrHistoryId--    -- * DelegateVerificationStatus-    , DelegateVerificationStatus (..)--    -- * UsersThreadsGetFormat-    , UsersThreadsGetFormat (..)--    -- * BatchModifyMessagesRequest-    , BatchModifyMessagesRequest-    , batchModifyMessagesRequest-    , bmmrIds-    , bmmrRemoveLabelIds-    , bmmrAddLabelIds--    -- * Draft-    , Draft-    , draft-    , dId-    , dMessage--    -- * SmtpMsa-    , SmtpMsa-    , smtpMsa-    , smSecurityMode-    , smUsername-    , smPassword-    , smHost-    , smPort--    -- * ForwardingAddress-    , ForwardingAddress-    , forwardingAddress-    , faForwardingEmail-    , faVerificationStatus--    -- * PopSettingsDisPosition-    , PopSettingsDisPosition (..)--    -- * Filter-    , Filter-    , filter'-    , fAction-    , fId-    , fCriteria--    -- * WatchRequest-    , WatchRequest-    , watchRequest-    , wrLabelFilterAction-    , wrTopicName-    , wrLabelIds--    -- * WatchRequestLabelFilterAction-    , WatchRequestLabelFilterAction (..)--    -- * ImapSettings-    , ImapSettings-    , imapSettings-    , isEnabled-    , isExpungeBehavior-    , isAutoExpunge-    , isMaxFolderSize--    -- * ImapSettingsExpungeBehavior-    , ImapSettingsExpungeBehavior (..)--    -- * ListSmimeInfoResponse-    , ListSmimeInfoResponse-    , listSmimeInfoResponse-    , lsirSmimeInfo--    -- * SmtpMsaSecurityMode-    , SmtpMsaSecurityMode (..)--    -- * Message-    , Message-    , message-    , mRaw-    , mSnippet-    , mSizeEstimate-    , mPayload-    , mHistoryId-    , mId-    , mLabelIds-    , mThreadId-    , mInternalDate--    -- * UsersMessagesInsertInternalDateSource-    , UsersMessagesInsertInternalDateSource (..)--    -- * HistoryLabelRemoved-    , HistoryLabelRemoved-    , historyLabelRemoved-    , hlrLabelIds-    , hlrMessage--    -- * Thread-    , Thread-    , thread-    , tSnippet-    , tHistoryId-    , tId-    , tMessages--    -- * FilterAction-    , FilterAction-    , filterAction-    , faForward-    , faRemoveLabelIds-    , faAddLabelIds--    -- * Label-    , Label-    , label-    , lThreadsUnread-    , lMessageListVisibility-    , lMessagesTotal-    , lColor-    , lMessagesUnread-    , lName-    , lThreadsTotal-    , lLabelListVisibility-    , lId-    , lType--    -- * SmimeInfo-    , SmimeInfo-    , smimeInfo-    , siPem-    , siExpiration-    , siEncryptedKeyPassword-    , siId-    , siPkcs12-    , siIssuerCn-    , siIsDefault--    -- * ListMessagesResponse-    , ListMessagesResponse-    , listMessagesResponse-    , lmrNextPageToken-    , lmrResultSizeEstimate-    , lmrMessages--    -- * HistoryMessageAdded-    , HistoryMessageAdded-    , historyMessageAdded-    , hmaMessage-    ) where--import           Network.Google.Gmail.Types.Product-import           Network.Google.Gmail.Types.Sum-import           Network.Google.Prelude---- | Default request referring to version 'v1' of the Gmail API. This contains the host and root path used as a starting point for constructing service requests.-gmailService :: ServiceConfig-gmailService-  = defaultService (ServiceId "gmail:v1")-      "www.googleapis.com"---- | Manage your basic mail settings-gmailSettingsBasicScope :: Proxy '["https://www.googleapis.com/auth/gmail.settings.basic"]-gmailSettingsBasicScope = Proxy---- | Read, compose, send, and permanently delete all your email from Gmail-mailGoogleComScope :: Proxy '["https://mail.google.com/"]-mailGoogleComScope = Proxy---- | View and modify but not delete your email-gmailModifyScope :: Proxy '["https://www.googleapis.com/auth/gmail.modify"]-gmailModifyScope = Proxy---- | View your email message metadata such as labels and headers, but not the--- email body-gmailMetadataScope :: Proxy '["https://www.googleapis.com/auth/gmail.metadata"]-gmailMetadataScope = Proxy---- | Manage mailbox labels-gmailLabelsScope :: Proxy '["https://www.googleapis.com/auth/gmail.labels"]-gmailLabelsScope = Proxy---- | Manage your sensitive mail settings, including who can manage your mail-gmailSettingsSharingScope :: Proxy '["https://www.googleapis.com/auth/gmail.settings.sharing"]-gmailSettingsSharingScope = Proxy---- | Send email on your behalf-gmailSendScope :: Proxy '["https://www.googleapis.com/auth/gmail.send"]-gmailSendScope = Proxy---- | Insert mail into your mailbox-gmailInsertScope :: Proxy '["https://www.googleapis.com/auth/gmail.insert"]-gmailInsertScope = Proxy---- | Manage drafts and send emails-gmailComposeScope :: Proxy '["https://www.googleapis.com/auth/gmail.compose"]-gmailComposeScope = Proxy---- | View your email messages and settings-gmailReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/gmail.readonly"]-gmailReadOnlyScope = Proxy
− gen/Network/Google/Gmail/Types/Product.hs 
@@ -1,3023 +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.Gmail.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.Gmail.Types.Product where--import           Network.Google.Gmail.Types.Sum-import           Network.Google.Prelude------- /See:/ 'batchDeleteMessagesRequest' smart constructor.-newtype BatchDeleteMessagesRequest =-  BatchDeleteMessagesRequest'-    { _bdmrIds :: Maybe [Text]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'BatchDeleteMessagesRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bdmrIds'-batchDeleteMessagesRequest-    :: BatchDeleteMessagesRequest-batchDeleteMessagesRequest = BatchDeleteMessagesRequest' {_bdmrIds = Nothing}----- | The IDs of the messages to delete.-bdmrIds :: Lens' BatchDeleteMessagesRequest [Text]-bdmrIds-  = lens _bdmrIds (\ s a -> s{_bdmrIds = a}) . _Default-      . _Coerce--instance FromJSON BatchDeleteMessagesRequest where-        parseJSON-          = withObject "BatchDeleteMessagesRequest"-              (\ o ->-                 BatchDeleteMessagesRequest' <$>-                   (o .:? "ids" .!= mempty))--instance ToJSON BatchDeleteMessagesRequest where-        toJSON BatchDeleteMessagesRequest'{..}-          = object (catMaybes [("ids" .=) <$> _bdmrIds])---- | Settings for a delegate. Delegates can read, send, and delete messages,--- as well as view and add contacts, for the delegator\'s account. See--- \"Set up mail delegation\" for more information about delegates.------ /See:/ 'delegate' smart constructor.-data Delegate =-  Delegate'-    { _dVerificationStatus :: !(Maybe DelegateVerificationStatus)-    , _dDelegateEmail      :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Delegate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dVerificationStatus'------ * 'dDelegateEmail'-delegate-    :: Delegate-delegate = Delegate' {_dVerificationStatus = Nothing, _dDelegateEmail = Nothing}----- | Indicates whether this address has been verified and can act as a--- delegate for the account. Read-only.-dVerificationStatus :: Lens' Delegate (Maybe DelegateVerificationStatus)-dVerificationStatus-  = lens _dVerificationStatus-      (\ s a -> s{_dVerificationStatus = a})---- | The email address of the delegate.-dDelegateEmail :: Lens' Delegate (Maybe Text)-dDelegateEmail-  = lens _dDelegateEmail-      (\ s a -> s{_dDelegateEmail = a})--instance FromJSON Delegate where-        parseJSON-          = withObject "Delegate"-              (\ o ->-                 Delegate' <$>-                   (o .:? "verificationStatus") <*>-                     (o .:? "delegateEmail"))--instance ToJSON Delegate where-        toJSON Delegate'{..}-          = object-              (catMaybes-                 [("verificationStatus" .=) <$> _dVerificationStatus,-                  ("delegateEmail" .=) <$> _dDelegateEmail])------- /See:/ 'modifyThreadRequest' smart constructor.-data ModifyThreadRequest =-  ModifyThreadRequest'-    { _mtrRemoveLabelIds :: !(Maybe [Text])-    , _mtrAddLabelIds    :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ModifyThreadRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mtrRemoveLabelIds'------ * 'mtrAddLabelIds'-modifyThreadRequest-    :: ModifyThreadRequest-modifyThreadRequest =-  ModifyThreadRequest' {_mtrRemoveLabelIds = Nothing, _mtrAddLabelIds = Nothing}----- | A list of IDs of labels to remove from this thread.-mtrRemoveLabelIds :: Lens' ModifyThreadRequest [Text]-mtrRemoveLabelIds-  = lens _mtrRemoveLabelIds-      (\ s a -> s{_mtrRemoveLabelIds = a})-      . _Default-      . _Coerce---- | A list of IDs of labels to add to this thread.-mtrAddLabelIds :: Lens' ModifyThreadRequest [Text]-mtrAddLabelIds-  = lens _mtrAddLabelIds-      (\ s a -> s{_mtrAddLabelIds = a})-      . _Default-      . _Coerce--instance FromJSON ModifyThreadRequest where-        parseJSON-          = withObject "ModifyThreadRequest"-              (\ o ->-                 ModifyThreadRequest' <$>-                   (o .:? "removeLabelIds" .!= mempty) <*>-                     (o .:? "addLabelIds" .!= mempty))--instance ToJSON ModifyThreadRequest where-        toJSON ModifyThreadRequest'{..}-          = object-              (catMaybes-                 [("removeLabelIds" .=) <$> _mtrRemoveLabelIds,-                  ("addLabelIds" .=) <$> _mtrAddLabelIds])---- | Response for the ListFilters method.------ /See:/ 'listFiltersResponse' smart constructor.-newtype ListFiltersResponse =-  ListFiltersResponse'-    { _lfrFilter :: Maybe [Filter]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListFiltersResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lfrFilter'-listFiltersResponse-    :: ListFiltersResponse-listFiltersResponse = ListFiltersResponse' {_lfrFilter = Nothing}----- | List of a user\'s filters.-lfrFilter :: Lens' ListFiltersResponse [Filter]-lfrFilter-  = lens _lfrFilter (\ s a -> s{_lfrFilter = a}) .-      _Default-      . _Coerce--instance FromJSON ListFiltersResponse where-        parseJSON-          = withObject "ListFiltersResponse"-              (\ o ->-                 ListFiltersResponse' <$> (o .:? "filter" .!= mempty))--instance ToJSON ListFiltersResponse where-        toJSON ListFiltersResponse'{..}-          = object (catMaybes [("filter" .=) <$> _lfrFilter])------- /See:/ 'modifyMessageRequest' smart constructor.-data ModifyMessageRequest =-  ModifyMessageRequest'-    { _mmrRemoveLabelIds :: !(Maybe [Text])-    , _mmrAddLabelIds    :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ModifyMessageRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mmrRemoveLabelIds'------ * 'mmrAddLabelIds'-modifyMessageRequest-    :: ModifyMessageRequest-modifyMessageRequest =-  ModifyMessageRequest'-    {_mmrRemoveLabelIds = Nothing, _mmrAddLabelIds = Nothing}----- | A list IDs of labels to remove from this message.-mmrRemoveLabelIds :: Lens' ModifyMessageRequest [Text]-mmrRemoveLabelIds-  = lens _mmrRemoveLabelIds-      (\ s a -> s{_mmrRemoveLabelIds = a})-      . _Default-      . _Coerce---- | A list of IDs of labels to add to this message.-mmrAddLabelIds :: Lens' ModifyMessageRequest [Text]-mmrAddLabelIds-  = lens _mmrAddLabelIds-      (\ s a -> s{_mmrAddLabelIds = a})-      . _Default-      . _Coerce--instance FromJSON ModifyMessageRequest where-        parseJSON-          = withObject "ModifyMessageRequest"-              (\ o ->-                 ModifyMessageRequest' <$>-                   (o .:? "removeLabelIds" .!= mempty) <*>-                     (o .:? "addLabelIds" .!= mempty))--instance ToJSON ModifyMessageRequest where-        toJSON ModifyMessageRequest'{..}-          = object-              (catMaybes-                 [("removeLabelIds" .=) <$> _mmrRemoveLabelIds,-                  ("addLabelIds" .=) <$> _mmrAddLabelIds])---- | Response for the ListForwardingAddresses method.------ /See:/ 'listForwardingAddressesResponse' smart constructor.-newtype ListForwardingAddressesResponse =-  ListForwardingAddressesResponse'-    { _lfarForwardingAddresses :: Maybe [ForwardingAddress]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListForwardingAddressesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lfarForwardingAddresses'-listForwardingAddressesResponse-    :: ListForwardingAddressesResponse-listForwardingAddressesResponse =-  ListForwardingAddressesResponse' {_lfarForwardingAddresses = Nothing}----- | List of addresses that may be used for forwarding.-lfarForwardingAddresses :: Lens' ListForwardingAddressesResponse [ForwardingAddress]-lfarForwardingAddresses-  = lens _lfarForwardingAddresses-      (\ s a -> s{_lfarForwardingAddresses = a})-      . _Default-      . _Coerce--instance FromJSON ListForwardingAddressesResponse-         where-        parseJSON-          = withObject "ListForwardingAddressesResponse"-              (\ o ->-                 ListForwardingAddressesResponse' <$>-                   (o .:? "forwardingAddresses" .!= mempty))--instance ToJSON ListForwardingAddressesResponse where-        toJSON ListForwardingAddressesResponse'{..}-          = object-              (catMaybes-                 [("forwardingAddresses" .=) <$>-                    _lfarForwardingAddresses])---- | POP settings for an account.------ /See:/ 'popSettings' smart constructor.-data PopSettings =-  PopSettings'-    { _psAccessWindow :: !(Maybe PopSettingsAccessWindow)-    , _psDisPosition  :: !(Maybe PopSettingsDisPosition)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PopSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'psAccessWindow'------ * 'psDisPosition'-popSettings-    :: PopSettings-popSettings = PopSettings' {_psAccessWindow = Nothing, _psDisPosition = Nothing}----- | The range of messages which are accessible via POP.-psAccessWindow :: Lens' PopSettings (Maybe PopSettingsAccessWindow)-psAccessWindow-  = lens _psAccessWindow-      (\ s a -> s{_psAccessWindow = a})---- | The action that will be executed on a message after it has been fetched--- via POP.-psDisPosition :: Lens' PopSettings (Maybe PopSettingsDisPosition)-psDisPosition-  = lens _psDisPosition-      (\ s a -> s{_psDisPosition = a})--instance FromJSON PopSettings where-        parseJSON-          = withObject "PopSettings"-              (\ o ->-                 PopSettings' <$>-                   (o .:? "accessWindow") <*> (o .:? "disposition"))--instance ToJSON PopSettings where-        toJSON PopSettings'{..}-          = object-              (catMaybes-                 [("accessWindow" .=) <$> _psAccessWindow,-                  ("disposition" .=) <$> _psDisPosition])---- | A record of a change to the user\'s mailbox. Each history change may--- affect multiple messages in multiple ways.------ /See:/ 'history' smart constructor.-data History =-  History'-    { _hLabelsRemoved   :: !(Maybe [HistoryLabelRemoved])-    , _hMessagesDeleted :: !(Maybe [HistoryMessageDeleted])-    , _hMessagesAdded   :: !(Maybe [HistoryMessageAdded])-    , _hLabelsAdded     :: !(Maybe [HistoryLabelAdded])-    , _hId              :: !(Maybe (Textual Word64))-    , _hMessages        :: !(Maybe [Message])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'History' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hLabelsRemoved'------ * 'hMessagesDeleted'------ * 'hMessagesAdded'------ * 'hLabelsAdded'------ * 'hId'------ * 'hMessages'-history-    :: History-history =-  History'-    { _hLabelsRemoved = Nothing-    , _hMessagesDeleted = Nothing-    , _hMessagesAdded = Nothing-    , _hLabelsAdded = Nothing-    , _hId = Nothing-    , _hMessages = Nothing-    }----- | Labels removed from messages in this history record.-hLabelsRemoved :: Lens' History [HistoryLabelRemoved]-hLabelsRemoved-  = lens _hLabelsRemoved-      (\ s a -> s{_hLabelsRemoved = a})-      . _Default-      . _Coerce---- | Messages deleted (not Trashed) from the mailbox in this history record.-hMessagesDeleted :: Lens' History [HistoryMessageDeleted]-hMessagesDeleted-  = lens _hMessagesDeleted-      (\ s a -> s{_hMessagesDeleted = a})-      . _Default-      . _Coerce---- | Messages added to the mailbox in this history record.-hMessagesAdded :: Lens' History [HistoryMessageAdded]-hMessagesAdded-  = lens _hMessagesAdded-      (\ s a -> s{_hMessagesAdded = a})-      . _Default-      . _Coerce---- | Labels added to messages in this history record.-hLabelsAdded :: Lens' History [HistoryLabelAdded]-hLabelsAdded-  = lens _hLabelsAdded (\ s a -> s{_hLabelsAdded = a})-      . _Default-      . _Coerce---- | The mailbox sequence ID.-hId :: Lens' History (Maybe Word64)-hId-  = lens _hId (\ s a -> s{_hId = a}) . mapping _Coerce---- | List of messages changed in this history record. The fields for specific--- change types, such as messagesAdded may duplicate messages in this--- field. We recommend using the specific change-type fields instead of--- this.-hMessages :: Lens' History [Message]-hMessages-  = lens _hMessages (\ s a -> s{_hMessages = a}) .-      _Default-      . _Coerce--instance FromJSON History where-        parseJSON-          = withObject "History"-              (\ o ->-                 History' <$>-                   (o .:? "labelsRemoved" .!= mempty) <*>-                     (o .:? "messagesDeleted" .!= mempty)-                     <*> (o .:? "messagesAdded" .!= mempty)-                     <*> (o .:? "labelsAdded" .!= mempty)-                     <*> (o .:? "id")-                     <*> (o .:? "messages" .!= mempty))--instance ToJSON History where-        toJSON History'{..}-          = object-              (catMaybes-                 [("labelsRemoved" .=) <$> _hLabelsRemoved,-                  ("messagesDeleted" .=) <$> _hMessagesDeleted,-                  ("messagesAdded" .=) <$> _hMessagesAdded,-                  ("labelsAdded" .=) <$> _hLabelsAdded,-                  ("id" .=) <$> _hId, ("messages" .=) <$> _hMessages])---- | Response for the ListDelegates method.------ /See:/ 'listDelegatesResponse' smart constructor.-newtype ListDelegatesResponse =-  ListDelegatesResponse'-    { _ldrDelegates :: Maybe [Delegate]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListDelegatesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ldrDelegates'-listDelegatesResponse-    :: ListDelegatesResponse-listDelegatesResponse = ListDelegatesResponse' {_ldrDelegates = Nothing}----- | List of the user\'s delegates (with any verification status).-ldrDelegates :: Lens' ListDelegatesResponse [Delegate]-ldrDelegates-  = lens _ldrDelegates (\ s a -> s{_ldrDelegates = a})-      . _Default-      . _Coerce--instance FromJSON ListDelegatesResponse where-        parseJSON-          = withObject "ListDelegatesResponse"-              (\ o ->-                 ListDelegatesResponse' <$>-                   (o .:? "delegates" .!= mempty))--instance ToJSON ListDelegatesResponse where-        toJSON ListDelegatesResponse'{..}-          = object-              (catMaybes [("delegates" .=) <$> _ldrDelegates])------- /See:/ 'labelColor' smart constructor.-data LabelColor =-  LabelColor'-    { _lcBackgRoundColor :: !(Maybe Text)-    , _lcTextColor       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LabelColor' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lcBackgRoundColor'------ * 'lcTextColor'-labelColor-    :: LabelColor-labelColor = LabelColor' {_lcBackgRoundColor = Nothing, _lcTextColor = Nothing}----- | The background color represented as hex string #RRGGBB (ex #000000).--- This field is required in order to set the color of a label. Only the--- following predefined set of color values are allowed: #000000, #434343,--- #666666, #999999, #cccccc, #efefef, #f3f3f3, #ffffff, #fb4c2f, #ffad47,--- #fad165, #16a766, #43d692, #4a86e8, #a479e2, #f691b3, #f6c5be, #ffe6c7,--- #fef1d1, #b9e4d0, #c6f3de, #c9daf8, #e4d7f5, #fcdee8, #efa093, #ffd6a2,--- #fce8b3, #89d3b2, #a0eac9, #a4c2f4, #d0bcf1, #fbc8d9, #e66550, #ffbc6b,--- #fcda83, #44b984, #68dfa9, #6d9eeb, #b694e8, #f7a7c0, #cc3a21, #eaa041,--- #f2c960, #149e60, #3dc789, #3c78d8, #8e63ce, #e07798, #ac2b16, #cf8933,--- #d5ae49, #0b804b, #2a9c68, #285bac, #653e9b, #b65775, #822111, #a46a21,--- #aa8831, #076239, #1a764d, #1c4587, #41236d, #83334c-lcBackgRoundColor :: Lens' LabelColor (Maybe Text)-lcBackgRoundColor-  = lens _lcBackgRoundColor-      (\ s a -> s{_lcBackgRoundColor = a})---- | The text color of the label, represented as hex string. This field is--- required in order to set the color of a label. Only the following--- predefined set of color values are allowed: #000000, #434343, #666666,--- #999999, #cccccc, #efefef, #f3f3f3, #ffffff, #fb4c2f, #ffad47, #fad165,--- #16a766, #43d692, #4a86e8, #a479e2, #f691b3, #f6c5be, #ffe6c7, #fef1d1,--- #b9e4d0, #c6f3de, #c9daf8, #e4d7f5, #fcdee8, #efa093, #ffd6a2, #fce8b3,--- #89d3b2, #a0eac9, #a4c2f4, #d0bcf1, #fbc8d9, #e66550, #ffbc6b, #fcda83,--- #44b984, #68dfa9, #6d9eeb, #b694e8, #f7a7c0, #cc3a21, #eaa041, #f2c960,--- #149e60, #3dc789, #3c78d8, #8e63ce, #e07798, #ac2b16, #cf8933, #d5ae49,--- #0b804b, #2a9c68, #285bac, #653e9b, #b65775, #822111, #a46a21, #aa8831,--- #076239, #1a764d, #1c4587, #41236d, #83334c-lcTextColor :: Lens' LabelColor (Maybe Text)-lcTextColor-  = lens _lcTextColor (\ s a -> s{_lcTextColor = a})--instance FromJSON LabelColor where-        parseJSON-          = withObject "LabelColor"-              (\ o ->-                 LabelColor' <$>-                   (o .:? "backgroundColor") <*> (o .:? "textColor"))--instance ToJSON LabelColor where-        toJSON LabelColor'{..}-          = object-              (catMaybes-                 [("backgroundColor" .=) <$> _lcBackgRoundColor,-                  ("textColor" .=) <$> _lcTextColor])---- | Message matching criteria.------ /See:/ 'filterCriteria' smart constructor.-data FilterCriteria =-  FilterCriteria'-    { _fcSizeComparison :: !(Maybe FilterCriteriaSizeComparison)-    , _fcSubject        :: !(Maybe Text)-    , _fcSize           :: !(Maybe (Textual Int32))-    , _fcExcludeChats   :: !(Maybe Bool)-    , _fcTo             :: !(Maybe Text)-    , _fcFrom           :: !(Maybe Text)-    , _fcQuery          :: !(Maybe Text)-    , _fcNegatedQuery   :: !(Maybe Text)-    , _fcHasAttachment  :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilterCriteria' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fcSizeComparison'------ * 'fcSubject'------ * 'fcSize'------ * 'fcExcludeChats'------ * 'fcTo'------ * 'fcFrom'------ * 'fcQuery'------ * 'fcNegatedQuery'------ * 'fcHasAttachment'-filterCriteria-    :: FilterCriteria-filterCriteria =-  FilterCriteria'-    { _fcSizeComparison = Nothing-    , _fcSubject = Nothing-    , _fcSize = Nothing-    , _fcExcludeChats = Nothing-    , _fcTo = Nothing-    , _fcFrom = Nothing-    , _fcQuery = Nothing-    , _fcNegatedQuery = Nothing-    , _fcHasAttachment = Nothing-    }----- | How the message size in bytes should be in relation to the size field.-fcSizeComparison :: Lens' FilterCriteria (Maybe FilterCriteriaSizeComparison)-fcSizeComparison-  = lens _fcSizeComparison-      (\ s a -> s{_fcSizeComparison = a})---- | Case-insensitive phrase found in the message\'s subject. Trailing and--- leading whitespace are be trimmed and adjacent spaces are collapsed.-fcSubject :: Lens' FilterCriteria (Maybe Text)-fcSubject-  = lens _fcSubject (\ s a -> s{_fcSubject = a})---- | The size of the entire RFC822 message in bytes, including all headers--- and attachments.-fcSize :: Lens' FilterCriteria (Maybe Int32)-fcSize-  = lens _fcSize (\ s a -> s{_fcSize = a}) .-      mapping _Coerce---- | Whether the response should exclude chats.-fcExcludeChats :: Lens' FilterCriteria (Maybe Bool)-fcExcludeChats-  = lens _fcExcludeChats-      (\ s a -> s{_fcExcludeChats = a})---- | The recipient\'s display name or email address. Includes recipients in--- the \"to\", \"cc\", and \"bcc\" header fields. You can use simply the--- local part of the email address. For example, \"example\" and--- \"example\'\" both match \"example\'gmail.com\". This field is--- case-insensitive.-fcTo :: Lens' FilterCriteria (Maybe Text)-fcTo = lens _fcTo (\ s a -> s{_fcTo = a})---- | The sender\'s display name or email address.-fcFrom :: Lens' FilterCriteria (Maybe Text)-fcFrom = lens _fcFrom (\ s a -> s{_fcFrom = a})---- | Only return messages matching the specified query. Supports the same--- query format as the Gmail search box. For example,--- \"from:someuser\'example.com rfc822msgid: is:unread\".-fcQuery :: Lens' FilterCriteria (Maybe Text)-fcQuery = lens _fcQuery (\ s a -> s{_fcQuery = a})---- | Only return messages not matching the specified query. Supports the same--- query format as the Gmail search box. For example,--- \"from:someuser\'example.com rfc822msgid: is:unread\".-fcNegatedQuery :: Lens' FilterCriteria (Maybe Text)-fcNegatedQuery-  = lens _fcNegatedQuery-      (\ s a -> s{_fcNegatedQuery = a})---- | Whether the message has any attachment.-fcHasAttachment :: Lens' FilterCriteria (Maybe Bool)-fcHasAttachment-  = lens _fcHasAttachment-      (\ s a -> s{_fcHasAttachment = a})--instance FromJSON FilterCriteria where-        parseJSON-          = withObject "FilterCriteria"-              (\ o ->-                 FilterCriteria' <$>-                   (o .:? "sizeComparison") <*> (o .:? "subject") <*>-                     (o .:? "size")-                     <*> (o .:? "excludeChats")-                     <*> (o .:? "to")-                     <*> (o .:? "from")-                     <*> (o .:? "query")-                     <*> (o .:? "negatedQuery")-                     <*> (o .:? "hasAttachment"))--instance ToJSON FilterCriteria where-        toJSON FilterCriteria'{..}-          = object-              (catMaybes-                 [("sizeComparison" .=) <$> _fcSizeComparison,-                  ("subject" .=) <$> _fcSubject,-                  ("size" .=) <$> _fcSize,-                  ("excludeChats" .=) <$> _fcExcludeChats,-                  ("to" .=) <$> _fcTo, ("from" .=) <$> _fcFrom,-                  ("query" .=) <$> _fcQuery,-                  ("negatedQuery" .=) <$> _fcNegatedQuery,-                  ("hasAttachment" .=) <$> _fcHasAttachment])---- | Profile for a Gmail user.------ /See:/ 'proFile' smart constructor.-data ProFile =-  ProFile'-    { _pfMessagesTotal :: !(Maybe (Textual Int32))-    , _pfThreadsTotal  :: !(Maybe (Textual Int32))-    , _pfHistoryId     :: !(Maybe (Textual Word64))-    , _pfEmailAddress  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProFile' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pfMessagesTotal'------ * 'pfThreadsTotal'------ * 'pfHistoryId'------ * 'pfEmailAddress'-proFile-    :: ProFile-proFile =-  ProFile'-    { _pfMessagesTotal = Nothing-    , _pfThreadsTotal = Nothing-    , _pfHistoryId = Nothing-    , _pfEmailAddress = Nothing-    }----- | The total number of messages in the mailbox.-pfMessagesTotal :: Lens' ProFile (Maybe Int32)-pfMessagesTotal-  = lens _pfMessagesTotal-      (\ s a -> s{_pfMessagesTotal = a})-      . mapping _Coerce---- | The total number of threads in the mailbox.-pfThreadsTotal :: Lens' ProFile (Maybe Int32)-pfThreadsTotal-  = lens _pfThreadsTotal-      (\ s a -> s{_pfThreadsTotal = a})-      . mapping _Coerce---- | The ID of the mailbox\'s current history record.-pfHistoryId :: Lens' ProFile (Maybe Word64)-pfHistoryId-  = lens _pfHistoryId (\ s a -> s{_pfHistoryId = a}) .-      mapping _Coerce---- | The user\'s email address.-pfEmailAddress :: Lens' ProFile (Maybe Text)-pfEmailAddress-  = lens _pfEmailAddress-      (\ s a -> s{_pfEmailAddress = a})--instance FromJSON ProFile where-        parseJSON-          = withObject "ProFile"-              (\ o ->-                 ProFile' <$>-                   (o .:? "messagesTotal") <*> (o .:? "threadsTotal")-                     <*> (o .:? "historyId")-                     <*> (o .:? "emailAddress"))--instance ToJSON ProFile where-        toJSON ProFile'{..}-          = object-              (catMaybes-                 [("messagesTotal" .=) <$> _pfMessagesTotal,-                  ("threadsTotal" .=) <$> _pfThreadsTotal,-                  ("historyId" .=) <$> _pfHistoryId,-                  ("emailAddress" .=) <$> _pfEmailAddress])------- /See:/ 'messagePartHeader' smart constructor.-data MessagePartHeader =-  MessagePartHeader'-    { _mphValue :: !(Maybe Text)-    , _mphName  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MessagePartHeader' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mphValue'------ * 'mphName'-messagePartHeader-    :: MessagePartHeader-messagePartHeader = MessagePartHeader' {_mphValue = Nothing, _mphName = Nothing}----- | The value of the header after the : separator. For example,--- someuser\'example.com.-mphValue :: Lens' MessagePartHeader (Maybe Text)-mphValue = lens _mphValue (\ s a -> s{_mphValue = a})---- | The name of the header before the : separator. For example, To.-mphName :: Lens' MessagePartHeader (Maybe Text)-mphName = lens _mphName (\ s a -> s{_mphName = a})--instance FromJSON MessagePartHeader where-        parseJSON-          = withObject "MessagePartHeader"-              (\ o ->-                 MessagePartHeader' <$>-                   (o .:? "value") <*> (o .:? "name"))--instance ToJSON MessagePartHeader where-        toJSON MessagePartHeader'{..}-          = object-              (catMaybes-                 [("value" .=) <$> _mphValue,-                  ("name" .=) <$> _mphName])------- /See:/ 'listHistoryResponse' smart constructor.-data ListHistoryResponse =-  ListHistoryResponse'-    { _lhrNextPageToken :: !(Maybe Text)-    , _lhrHistory       :: !(Maybe [History])-    , _lhrHistoryId     :: !(Maybe (Textual Word64))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListHistoryResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lhrNextPageToken'------ * 'lhrHistory'------ * 'lhrHistoryId'-listHistoryResponse-    :: ListHistoryResponse-listHistoryResponse =-  ListHistoryResponse'-    { _lhrNextPageToken = Nothing-    , _lhrHistory = Nothing-    , _lhrHistoryId = Nothing-    }----- | Page token to retrieve the next page of results in the list.-lhrNextPageToken :: Lens' ListHistoryResponse (Maybe Text)-lhrNextPageToken-  = lens _lhrNextPageToken-      (\ s a -> s{_lhrNextPageToken = a})---- | List of history records. Any messages contained in the response will--- typically only have id and threadId fields populated.-lhrHistory :: Lens' ListHistoryResponse [History]-lhrHistory-  = lens _lhrHistory (\ s a -> s{_lhrHistory = a}) .-      _Default-      . _Coerce---- | The ID of the mailbox\'s current history record.-lhrHistoryId :: Lens' ListHistoryResponse (Maybe Word64)-lhrHistoryId-  = lens _lhrHistoryId (\ s a -> s{_lhrHistoryId = a})-      . mapping _Coerce--instance FromJSON ListHistoryResponse where-        parseJSON-          = withObject "ListHistoryResponse"-              (\ o ->-                 ListHistoryResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "history" .!= mempty)-                     <*> (o .:? "historyId"))--instance ToJSON ListHistoryResponse where-        toJSON ListHistoryResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _lhrNextPageToken,-                  ("history" .=) <$> _lhrHistory,-                  ("historyId" .=) <$> _lhrHistoryId])---- | Settings associated with a send-as alias, which can be either the--- primary login address associated with the account or a custom \"from\"--- address. Send-as aliases correspond to the \"Send Mail As\" feature in--- the web interface.------ /See:/ 'sendAs' smart constructor.-data SendAs =-  SendAs'-    { _saSignature          :: !(Maybe Text)-    , _saReplyToAddress     :: !(Maybe Text)-    , _saTreatAsAlias       :: !(Maybe Bool)-    , _saSendAsEmail        :: !(Maybe Text)-    , _saDisplayName        :: !(Maybe Text)-    , _saVerificationStatus :: !(Maybe SendAsVerificationStatus)-    , _saSmtpMsa            :: !(Maybe SmtpMsa)-    , _saIsPrimary          :: !(Maybe Bool)-    , _saIsDefault          :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SendAs' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'saSignature'------ * 'saReplyToAddress'------ * 'saTreatAsAlias'------ * 'saSendAsEmail'------ * 'saDisplayName'------ * 'saVerificationStatus'------ * 'saSmtpMsa'------ * 'saIsPrimary'------ * 'saIsDefault'-sendAs-    :: SendAs-sendAs =-  SendAs'-    { _saSignature = Nothing-    , _saReplyToAddress = Nothing-    , _saTreatAsAlias = Nothing-    , _saSendAsEmail = Nothing-    , _saDisplayName = Nothing-    , _saVerificationStatus = Nothing-    , _saSmtpMsa = Nothing-    , _saIsPrimary = Nothing-    , _saIsDefault = Nothing-    }----- | An optional HTML signature that is included in messages composed with--- this alias in the Gmail web UI.-saSignature :: Lens' SendAs (Maybe Text)-saSignature-  = lens _saSignature (\ s a -> s{_saSignature = a})---- | An optional email address that is included in a \"Reply-To:\" header for--- mail sent using this alias. If this is empty, Gmail will not generate a--- \"Reply-To:\" header.-saReplyToAddress :: Lens' SendAs (Maybe Text)-saReplyToAddress-  = lens _saReplyToAddress-      (\ s a -> s{_saReplyToAddress = a})---- | Whether Gmail should treat this address as an alias for the user\'s--- primary email address. This setting only applies to custom \"from\"--- aliases.-saTreatAsAlias :: Lens' SendAs (Maybe Bool)-saTreatAsAlias-  = lens _saTreatAsAlias-      (\ s a -> s{_saTreatAsAlias = a})---- | The email address that appears in the \"From:\" header for mail sent--- using this alias. This is read-only for all operations except create.-saSendAsEmail :: Lens' SendAs (Maybe Text)-saSendAsEmail-  = lens _saSendAsEmail-      (\ s a -> s{_saSendAsEmail = a})---- | A name that appears in the \"From:\" header for mail sent using this--- alias. For custom \"from\" addresses, when this is empty, Gmail will--- populate the \"From:\" header with the name that is used for the primary--- address associated with the account. If the admin has disabled the--- ability for users to update their name format, requests to update this--- field for the primary login will silently fail.-saDisplayName :: Lens' SendAs (Maybe Text)-saDisplayName-  = lens _saDisplayName-      (\ s a -> s{_saDisplayName = a})---- | Indicates whether this address has been verified for use as a send-as--- alias. Read-only. This setting only applies to custom \"from\" aliases.-saVerificationStatus :: Lens' SendAs (Maybe SendAsVerificationStatus)-saVerificationStatus-  = lens _saVerificationStatus-      (\ s a -> s{_saVerificationStatus = a})---- | An optional SMTP service that will be used as an outbound relay for mail--- sent using this alias. If this is empty, outbound mail will be sent--- directly from Gmail\'s servers to the destination SMTP service. This--- setting only applies to custom \"from\" aliases.-saSmtpMsa :: Lens' SendAs (Maybe SmtpMsa)-saSmtpMsa-  = lens _saSmtpMsa (\ s a -> s{_saSmtpMsa = a})---- | Whether this address is the primary address used to login to the--- account. Every Gmail account has exactly one primary address, and it--- cannot be deleted from the collection of send-as aliases. This field is--- read-only.-saIsPrimary :: Lens' SendAs (Maybe Bool)-saIsPrimary-  = lens _saIsPrimary (\ s a -> s{_saIsPrimary = a})---- | Whether this address is selected as the default \"From:\" address in--- situations such as composing a new message or sending a vacation--- auto-reply. Every Gmail account has exactly one default send-as address,--- so the only legal value that clients may write to this field is true.--- Changing this from false to true for an address will result in this--- field becoming false for the other previous default address.-saIsDefault :: Lens' SendAs (Maybe Bool)-saIsDefault-  = lens _saIsDefault (\ s a -> s{_saIsDefault = a})--instance FromJSON SendAs where-        parseJSON-          = withObject "SendAs"-              (\ o ->-                 SendAs' <$>-                   (o .:? "signature") <*> (o .:? "replyToAddress") <*>-                     (o .:? "treatAsAlias")-                     <*> (o .:? "sendAsEmail")-                     <*> (o .:? "displayName")-                     <*> (o .:? "verificationStatus")-                     <*> (o .:? "smtpMsa")-                     <*> (o .:? "isPrimary")-                     <*> (o .:? "isDefault"))--instance ToJSON SendAs where-        toJSON SendAs'{..}-          = object-              (catMaybes-                 [("signature" .=) <$> _saSignature,-                  ("replyToAddress" .=) <$> _saReplyToAddress,-                  ("treatAsAlias" .=) <$> _saTreatAsAlias,-                  ("sendAsEmail" .=) <$> _saSendAsEmail,-                  ("displayName" .=) <$> _saDisplayName,-                  ("verificationStatus" .=) <$> _saVerificationStatus,-                  ("smtpMsa" .=) <$> _saSmtpMsa,-                  ("isPrimary" .=) <$> _saIsPrimary,-                  ("isDefault" .=) <$> _saIsDefault])------- /See:/ 'listThreadsResponse' smart constructor.-data ListThreadsResponse =-  ListThreadsResponse'-    { _ltrNextPageToken      :: !(Maybe Text)-    , _ltrResultSizeEstimate :: !(Maybe (Textual Word32))-    , _ltrThreads            :: !(Maybe [Thread])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListThreadsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ltrNextPageToken'------ * 'ltrResultSizeEstimate'------ * 'ltrThreads'-listThreadsResponse-    :: ListThreadsResponse-listThreadsResponse =-  ListThreadsResponse'-    { _ltrNextPageToken = Nothing-    , _ltrResultSizeEstimate = Nothing-    , _ltrThreads = Nothing-    }----- | Page token to retrieve the next page of results in the list.-ltrNextPageToken :: Lens' ListThreadsResponse (Maybe Text)-ltrNextPageToken-  = lens _ltrNextPageToken-      (\ s a -> s{_ltrNextPageToken = a})---- | Estimated total number of results.-ltrResultSizeEstimate :: Lens' ListThreadsResponse (Maybe Word32)-ltrResultSizeEstimate-  = lens _ltrResultSizeEstimate-      (\ s a -> s{_ltrResultSizeEstimate = a})-      . mapping _Coerce---- | List of threads. Note that each thread resource does not contain a list--- of messages. The list of messages for a given thread can be fetched--- using the threads.get method.-ltrThreads :: Lens' ListThreadsResponse [Thread]-ltrThreads-  = lens _ltrThreads (\ s a -> s{_ltrThreads = a}) .-      _Default-      . _Coerce--instance FromJSON ListThreadsResponse where-        parseJSON-          = withObject "ListThreadsResponse"-              (\ o ->-                 ListThreadsResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "resultSizeEstimate")-                     <*> (o .:? "threads" .!= mempty))--instance ToJSON ListThreadsResponse where-        toJSON ListThreadsResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _ltrNextPageToken,-                  ("resultSizeEstimate" .=) <$> _ltrResultSizeEstimate,-                  ("threads" .=) <$> _ltrThreads])---- | A single MIME message part.------ /See:/ 'messagePart' smart constructor.-data MessagePart =-  MessagePart'-    { _mpParts    :: !(Maybe [MessagePart])-    , _mpBody     :: !(Maybe MessagePartBody)-    , _mpMimeType :: !(Maybe Text)-    , _mpHeaders  :: !(Maybe [MessagePartHeader])-    , _mpPartId   :: !(Maybe Text)-    , _mpFilename :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MessagePart' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpParts'------ * 'mpBody'------ * 'mpMimeType'------ * 'mpHeaders'------ * 'mpPartId'------ * 'mpFilename'-messagePart-    :: MessagePart-messagePart =-  MessagePart'-    { _mpParts = Nothing-    , _mpBody = Nothing-    , _mpMimeType = Nothing-    , _mpHeaders = Nothing-    , _mpPartId = Nothing-    , _mpFilename = Nothing-    }----- | The child MIME message parts of this part. This only applies to--- container MIME message parts, for example multipart\/*. For non---- container MIME message part types, such as text\/plain, this field is--- empty. For more information, see RFC 1521.-mpParts :: Lens' MessagePart [MessagePart]-mpParts-  = lens _mpParts (\ s a -> s{_mpParts = a}) . _Default-      . _Coerce---- | The message part body for this part, which may be empty for container--- MIME message parts.-mpBody :: Lens' MessagePart (Maybe MessagePartBody)-mpBody = lens _mpBody (\ s a -> s{_mpBody = a})---- | The MIME type of the message part.-mpMimeType :: Lens' MessagePart (Maybe Text)-mpMimeType-  = lens _mpMimeType (\ s a -> s{_mpMimeType = a})---- | List of headers on this message part. For the top-level message part,--- representing the entire message payload, it will contain the standard--- RFC 2822 email headers such as To, From, and Subject.-mpHeaders :: Lens' MessagePart [MessagePartHeader]-mpHeaders-  = lens _mpHeaders (\ s a -> s{_mpHeaders = a}) .-      _Default-      . _Coerce---- | The immutable ID of the message part.-mpPartId :: Lens' MessagePart (Maybe Text)-mpPartId = lens _mpPartId (\ s a -> s{_mpPartId = a})---- | The filename of the attachment. Only present if this message part--- represents an attachment.-mpFilename :: Lens' MessagePart (Maybe Text)-mpFilename-  = lens _mpFilename (\ s a -> s{_mpFilename = a})--instance FromJSON MessagePart where-        parseJSON-          = withObject "MessagePart"-              (\ o ->-                 MessagePart' <$>-                   (o .:? "parts" .!= mempty) <*> (o .:? "body") <*>-                     (o .:? "mimeType")-                     <*> (o .:? "headers" .!= mempty)-                     <*> (o .:? "partId")-                     <*> (o .:? "filename"))--instance ToJSON MessagePart where-        toJSON MessagePart'{..}-          = object-              (catMaybes-                 [("parts" .=) <$> _mpParts, ("body" .=) <$> _mpBody,-                  ("mimeType" .=) <$> _mpMimeType,-                  ("headers" .=) <$> _mpHeaders,-                  ("partId" .=) <$> _mpPartId,-                  ("filename" .=) <$> _mpFilename])------- /See:/ 'historyLabelAdded' smart constructor.-data HistoryLabelAdded =-  HistoryLabelAdded'-    { _hlaLabelIds :: !(Maybe [Text])-    , _hlaMessage  :: !(Maybe Message)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'HistoryLabelAdded' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hlaLabelIds'------ * 'hlaMessage'-historyLabelAdded-    :: HistoryLabelAdded-historyLabelAdded =-  HistoryLabelAdded' {_hlaLabelIds = Nothing, _hlaMessage = Nothing}----- | Label IDs added to the message.-hlaLabelIds :: Lens' HistoryLabelAdded [Text]-hlaLabelIds-  = lens _hlaLabelIds (\ s a -> s{_hlaLabelIds = a}) .-      _Default-      . _Coerce--hlaMessage :: Lens' HistoryLabelAdded (Maybe Message)-hlaMessage-  = lens _hlaMessage (\ s a -> s{_hlaMessage = a})--instance FromJSON HistoryLabelAdded where-        parseJSON-          = withObject "HistoryLabelAdded"-              (\ o ->-                 HistoryLabelAdded' <$>-                   (o .:? "labelIds" .!= mempty) <*> (o .:? "message"))--instance ToJSON HistoryLabelAdded where-        toJSON HistoryLabelAdded'{..}-          = object-              (catMaybes-                 [("labelIds" .=) <$> _hlaLabelIds,-                  ("message" .=) <$> _hlaMessage])------- /See:/ 'listLabelsResponse' smart constructor.-newtype ListLabelsResponse =-  ListLabelsResponse'-    { _llrLabels :: Maybe [Label]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListLabelsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'llrLabels'-listLabelsResponse-    :: ListLabelsResponse-listLabelsResponse = ListLabelsResponse' {_llrLabels = Nothing}----- | List of labels.-llrLabels :: Lens' ListLabelsResponse [Label]-llrLabels-  = lens _llrLabels (\ s a -> s{_llrLabels = a}) .-      _Default-      . _Coerce--instance FromJSON ListLabelsResponse where-        parseJSON-          = withObject "ListLabelsResponse"-              (\ o ->-                 ListLabelsResponse' <$> (o .:? "labels" .!= mempty))--instance ToJSON ListLabelsResponse where-        toJSON ListLabelsResponse'{..}-          = object (catMaybes [("labels" .=) <$> _llrLabels])---- | Vacation auto-reply settings for an account. These settings correspond--- to the \"Vacation responder\" feature in the web interface.------ /See:/ 'vacationSettings' smart constructor.-data VacationSettings =-  VacationSettings'-    { _vsEnableAutoReply       :: !(Maybe Bool)-    , _vsResponseBodyPlainText :: !(Maybe Text)-    , _vsRestrictToDomain      :: !(Maybe Bool)-    , _vsStartTime             :: !(Maybe (Textual Int64))-    , _vsResponseBodyHTML      :: !(Maybe Text)-    , _vsRestrictToContacts    :: !(Maybe Bool)-    , _vsResponseSubject       :: !(Maybe Text)-    , _vsEndTime               :: !(Maybe (Textual Int64))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VacationSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vsEnableAutoReply'------ * 'vsResponseBodyPlainText'------ * 'vsRestrictToDomain'------ * 'vsStartTime'------ * 'vsResponseBodyHTML'------ * 'vsRestrictToContacts'------ * 'vsResponseSubject'------ * 'vsEndTime'-vacationSettings-    :: VacationSettings-vacationSettings =-  VacationSettings'-    { _vsEnableAutoReply = Nothing-    , _vsResponseBodyPlainText = Nothing-    , _vsRestrictToDomain = Nothing-    , _vsStartTime = Nothing-    , _vsResponseBodyHTML = Nothing-    , _vsRestrictToContacts = Nothing-    , _vsResponseSubject = Nothing-    , _vsEndTime = Nothing-    }----- | Flag that controls whether Gmail automatically replies to messages.-vsEnableAutoReply :: Lens' VacationSettings (Maybe Bool)-vsEnableAutoReply-  = lens _vsEnableAutoReply-      (\ s a -> s{_vsEnableAutoReply = a})---- | Response body in plain text format.-vsResponseBodyPlainText :: Lens' VacationSettings (Maybe Text)-vsResponseBodyPlainText-  = lens _vsResponseBodyPlainText-      (\ s a -> s{_vsResponseBodyPlainText = a})---- | Flag that determines whether responses are sent to recipients who are--- outside of the user\'s domain. This feature is only available for G--- Suite users.-vsRestrictToDomain :: Lens' VacationSettings (Maybe Bool)-vsRestrictToDomain-  = lens _vsRestrictToDomain-      (\ s a -> s{_vsRestrictToDomain = a})---- | An optional start time for sending auto-replies (epoch ms). When this is--- specified, Gmail will automatically reply only to messages that it--- receives after the start time. If both startTime and endTime are--- specified, startTime must precede endTime.-vsStartTime :: Lens' VacationSettings (Maybe Int64)-vsStartTime-  = lens _vsStartTime (\ s a -> s{_vsStartTime = a}) .-      mapping _Coerce---- | Response body in HTML format. Gmail will sanitize the HTML before--- storing it.-vsResponseBodyHTML :: Lens' VacationSettings (Maybe Text)-vsResponseBodyHTML-  = lens _vsResponseBodyHTML-      (\ s a -> s{_vsResponseBodyHTML = a})---- | Flag that determines whether responses are sent to recipients who are--- not in the user\'s list of contacts.-vsRestrictToContacts :: Lens' VacationSettings (Maybe Bool)-vsRestrictToContacts-  = lens _vsRestrictToContacts-      (\ s a -> s{_vsRestrictToContacts = a})---- | Optional text to prepend to the subject line in vacation responses. In--- order to enable auto-replies, either the response subject or the--- response body must be nonempty.-vsResponseSubject :: Lens' VacationSettings (Maybe Text)-vsResponseSubject-  = lens _vsResponseSubject-      (\ s a -> s{_vsResponseSubject = a})---- | An optional end time for sending auto-replies (epoch ms). When this is--- specified, Gmail will automatically reply only to messages that it--- receives before the end time. If both startTime and endTime are--- specified, startTime must precede endTime.-vsEndTime :: Lens' VacationSettings (Maybe Int64)-vsEndTime-  = lens _vsEndTime (\ s a -> s{_vsEndTime = a}) .-      mapping _Coerce--instance FromJSON VacationSettings where-        parseJSON-          = withObject "VacationSettings"-              (\ o ->-                 VacationSettings' <$>-                   (o .:? "enableAutoReply") <*>-                     (o .:? "responseBodyPlainText")-                     <*> (o .:? "restrictToDomain")-                     <*> (o .:? "startTime")-                     <*> (o .:? "responseBodyHtml")-                     <*> (o .:? "restrictToContacts")-                     <*> (o .:? "responseSubject")-                     <*> (o .:? "endTime"))--instance ToJSON VacationSettings where-        toJSON VacationSettings'{..}-          = object-              (catMaybes-                 [("enableAutoReply" .=) <$> _vsEnableAutoReply,-                  ("responseBodyPlainText" .=) <$>-                    _vsResponseBodyPlainText,-                  ("restrictToDomain" .=) <$> _vsRestrictToDomain,-                  ("startTime" .=) <$> _vsStartTime,-                  ("responseBodyHtml" .=) <$> _vsResponseBodyHTML,-                  ("restrictToContacts" .=) <$> _vsRestrictToContacts,-                  ("responseSubject" .=) <$> _vsResponseSubject,-                  ("endTime" .=) <$> _vsEndTime])------- /See:/ 'historyMessageDeleted' smart constructor.-newtype HistoryMessageDeleted =-  HistoryMessageDeleted'-    { _hmdMessage :: Maybe Message-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'HistoryMessageDeleted' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hmdMessage'-historyMessageDeleted-    :: HistoryMessageDeleted-historyMessageDeleted = HistoryMessageDeleted' {_hmdMessage = Nothing}---hmdMessage :: Lens' HistoryMessageDeleted (Maybe Message)-hmdMessage-  = lens _hmdMessage (\ s a -> s{_hmdMessage = a})--instance FromJSON HistoryMessageDeleted where-        parseJSON-          = withObject "HistoryMessageDeleted"-              (\ o -> HistoryMessageDeleted' <$> (o .:? "message"))--instance ToJSON HistoryMessageDeleted where-        toJSON HistoryMessageDeleted'{..}-          = object (catMaybes [("message" .=) <$> _hmdMessage])---- | The body of a single MIME message part.------ /See:/ 'messagePartBody' smart constructor.-data MessagePartBody =-  MessagePartBody'-    { _mpbSize         :: !(Maybe (Textual Int32))-    , _mpbData         :: !(Maybe Bytes)-    , _mpbAttachmentId :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MessagePartBody' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpbSize'------ * 'mpbData'------ * 'mpbAttachmentId'-messagePartBody-    :: MessagePartBody-messagePartBody =-  MessagePartBody'-    {_mpbSize = Nothing, _mpbData = Nothing, _mpbAttachmentId = Nothing}----- | Number of bytes for the message part data (encoding notwithstanding).-mpbSize :: Lens' MessagePartBody (Maybe Int32)-mpbSize-  = lens _mpbSize (\ s a -> s{_mpbSize = a}) .-      mapping _Coerce---- | The body data of a MIME message part as a base64url encoded string. May--- be empty for MIME container types that have no message body or when the--- body data is sent as a separate attachment. An attachment ID is present--- if the body data is contained in a separate attachment.-mpbData :: Lens' MessagePartBody (Maybe ByteString)-mpbData-  = lens _mpbData (\ s a -> s{_mpbData = a}) .-      mapping _Bytes---- | When present, contains the ID of an external attachment that can be--- retrieved in a separate messages.attachments.get request. When not--- present, the entire content of the message part body is contained in the--- data field.-mpbAttachmentId :: Lens' MessagePartBody (Maybe Text)-mpbAttachmentId-  = lens _mpbAttachmentId-      (\ s a -> s{_mpbAttachmentId = a})--instance FromJSON MessagePartBody where-        parseJSON-          = withObject "MessagePartBody"-              (\ o ->-                 MessagePartBody' <$>-                   (o .:? "size") <*> (o .:? "data") <*>-                     (o .:? "attachmentId"))--instance ToJSON MessagePartBody where-        toJSON MessagePartBody'{..}-          = object-              (catMaybes-                 [("size" .=) <$> _mpbSize, ("data" .=) <$> _mpbData,-                  ("attachmentId" .=) <$> _mpbAttachmentId])---- | Auto-forwarding settings for an account.------ /See:/ 'autoForwarding' smart constructor.-data AutoForwarding =-  AutoForwarding'-    { _afEnabled      :: !(Maybe Bool)-    , _afDisPosition  :: !(Maybe AutoForwardingDisPosition)-    , _afEmailAddress :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AutoForwarding' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'afEnabled'------ * 'afDisPosition'------ * 'afEmailAddress'-autoForwarding-    :: AutoForwarding-autoForwarding =-  AutoForwarding'-    {_afEnabled = Nothing, _afDisPosition = Nothing, _afEmailAddress = Nothing}----- | Whether all incoming mail is automatically forwarded to another address.-afEnabled :: Lens' AutoForwarding (Maybe Bool)-afEnabled-  = lens _afEnabled (\ s a -> s{_afEnabled = a})---- | The state that a message should be left in after it has been forwarded.-afDisPosition :: Lens' AutoForwarding (Maybe AutoForwardingDisPosition)-afDisPosition-  = lens _afDisPosition-      (\ s a -> s{_afDisPosition = a})---- | Email address to which all incoming messages are forwarded. This email--- address must be a verified member of the forwarding addresses.-afEmailAddress :: Lens' AutoForwarding (Maybe Text)-afEmailAddress-  = lens _afEmailAddress-      (\ s a -> s{_afEmailAddress = a})--instance FromJSON AutoForwarding where-        parseJSON-          = withObject "AutoForwarding"-              (\ o ->-                 AutoForwarding' <$>-                   (o .:? "enabled") <*> (o .:? "disposition") <*>-                     (o .:? "emailAddress"))--instance ToJSON AutoForwarding where-        toJSON AutoForwarding'{..}-          = object-              (catMaybes-                 [("enabled" .=) <$> _afEnabled,-                  ("disposition" .=) <$> _afDisPosition,-                  ("emailAddress" .=) <$> _afEmailAddress])------- /See:/ 'listDraftsResponse' smart constructor.-data ListDraftsResponse =-  ListDraftsResponse'-    { _ldrNextPageToken      :: !(Maybe Text)-    , _ldrResultSizeEstimate :: !(Maybe (Textual Word32))-    , _ldrDrafts             :: !(Maybe [Draft])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListDraftsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ldrNextPageToken'------ * 'ldrResultSizeEstimate'------ * 'ldrDrafts'-listDraftsResponse-    :: ListDraftsResponse-listDraftsResponse =-  ListDraftsResponse'-    { _ldrNextPageToken = Nothing-    , _ldrResultSizeEstimate = Nothing-    , _ldrDrafts = Nothing-    }----- | Token to retrieve the next page of results in the list.-ldrNextPageToken :: Lens' ListDraftsResponse (Maybe Text)-ldrNextPageToken-  = lens _ldrNextPageToken-      (\ s a -> s{_ldrNextPageToken = a})---- | Estimated total number of results.-ldrResultSizeEstimate :: Lens' ListDraftsResponse (Maybe Word32)-ldrResultSizeEstimate-  = lens _ldrResultSizeEstimate-      (\ s a -> s{_ldrResultSizeEstimate = a})-      . mapping _Coerce---- | List of drafts.-ldrDrafts :: Lens' ListDraftsResponse [Draft]-ldrDrafts-  = lens _ldrDrafts (\ s a -> s{_ldrDrafts = a}) .-      _Default-      . _Coerce--instance FromJSON ListDraftsResponse where-        parseJSON-          = withObject "ListDraftsResponse"-              (\ o ->-                 ListDraftsResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "resultSizeEstimate")-                     <*> (o .:? "drafts" .!= mempty))--instance ToJSON ListDraftsResponse where-        toJSON ListDraftsResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _ldrNextPageToken,-                  ("resultSizeEstimate" .=) <$> _ldrResultSizeEstimate,-                  ("drafts" .=) <$> _ldrDrafts])---- | Response for the ListSendAs method.------ /See:/ 'listSendAsResponse' smart constructor.-newtype ListSendAsResponse =-  ListSendAsResponse'-    { _lsarSendAs :: Maybe [SendAs]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListSendAsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lsarSendAs'-listSendAsResponse-    :: ListSendAsResponse-listSendAsResponse = ListSendAsResponse' {_lsarSendAs = Nothing}----- | List of send-as aliases.-lsarSendAs :: Lens' ListSendAsResponse [SendAs]-lsarSendAs-  = lens _lsarSendAs (\ s a -> s{_lsarSendAs = a}) .-      _Default-      . _Coerce--instance FromJSON ListSendAsResponse where-        parseJSON-          = withObject "ListSendAsResponse"-              (\ o ->-                 ListSendAsResponse' <$> (o .:? "sendAs" .!= mempty))--instance ToJSON ListSendAsResponse where-        toJSON ListSendAsResponse'{..}-          = object (catMaybes [("sendAs" .=) <$> _lsarSendAs])---- | Language settings for an account. These settings correspond to the--- \"Language settings\" feature in the web interface.------ /See:/ 'languageSettings' smart constructor.-newtype LanguageSettings =-  LanguageSettings'-    { _lsDisplayLanguage :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LanguageSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lsDisplayLanguage'-languageSettings-    :: LanguageSettings-languageSettings = LanguageSettings' {_lsDisplayLanguage = Nothing}----- | The language to display Gmail in, formatted as an RFC 3066 Language Tag--- (for example en-GB, fr or ja for British English, French, or Japanese--- respectively). The set of languages supported by Gmail evolves over--- time, so please refer to the \"Language\" dropdown in the Gmail settings--- for all available options, as described in the language settings help--- article. A table of sample values is also provided in the Managing--- Language Settings guide Not all Gmail clients can display the same set--- of languages. In the case that a user\'s display language is not--- available for use on a particular client, said client automatically--- chooses to display in the closest supported variant (or a reasonable--- default).-lsDisplayLanguage :: Lens' LanguageSettings (Maybe Text)-lsDisplayLanguage-  = lens _lsDisplayLanguage-      (\ s a -> s{_lsDisplayLanguage = a})--instance FromJSON LanguageSettings where-        parseJSON-          = withObject "LanguageSettings"-              (\ o ->-                 LanguageSettings' <$> (o .:? "displayLanguage"))--instance ToJSON LanguageSettings where-        toJSON LanguageSettings'{..}-          = object-              (catMaybes-                 [("displayLanguage" .=) <$> _lsDisplayLanguage])---- | Push notification watch response.------ /See:/ 'watchResponse' smart constructor.-data WatchResponse =-  WatchResponse'-    { _wrExpiration :: !(Maybe (Textual Int64))-    , _wrHistoryId  :: !(Maybe (Textual Word64))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WatchResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wrExpiration'------ * 'wrHistoryId'-watchResponse-    :: WatchResponse-watchResponse = WatchResponse' {_wrExpiration = Nothing, _wrHistoryId = Nothing}----- | When Gmail will stop sending notifications for mailbox updates (epoch--- millis). Call watch again before this time to renew the watch.-wrExpiration :: Lens' WatchResponse (Maybe Int64)-wrExpiration-  = lens _wrExpiration (\ s a -> s{_wrExpiration = a})-      . mapping _Coerce---- | The ID of the mailbox\'s current history record.-wrHistoryId :: Lens' WatchResponse (Maybe Word64)-wrHistoryId-  = lens _wrHistoryId (\ s a -> s{_wrHistoryId = a}) .-      mapping _Coerce--instance FromJSON WatchResponse where-        parseJSON-          = withObject "WatchResponse"-              (\ o ->-                 WatchResponse' <$>-                   (o .:? "expiration") <*> (o .:? "historyId"))--instance ToJSON WatchResponse where-        toJSON WatchResponse'{..}-          = object-              (catMaybes-                 [("expiration" .=) <$> _wrExpiration,-                  ("historyId" .=) <$> _wrHistoryId])------- /See:/ 'batchModifyMessagesRequest' smart constructor.-data BatchModifyMessagesRequest =-  BatchModifyMessagesRequest'-    { _bmmrIds            :: !(Maybe [Text])-    , _bmmrRemoveLabelIds :: !(Maybe [Text])-    , _bmmrAddLabelIds    :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'BatchModifyMessagesRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bmmrIds'------ * 'bmmrRemoveLabelIds'------ * 'bmmrAddLabelIds'-batchModifyMessagesRequest-    :: BatchModifyMessagesRequest-batchModifyMessagesRequest =-  BatchModifyMessagesRequest'-    { _bmmrIds = Nothing-    , _bmmrRemoveLabelIds = Nothing-    , _bmmrAddLabelIds = Nothing-    }----- | The IDs of the messages to modify. There is a limit of 1000 ids per--- request.-bmmrIds :: Lens' BatchModifyMessagesRequest [Text]-bmmrIds-  = lens _bmmrIds (\ s a -> s{_bmmrIds = a}) . _Default-      . _Coerce---- | A list of label IDs to remove from messages.-bmmrRemoveLabelIds :: Lens' BatchModifyMessagesRequest [Text]-bmmrRemoveLabelIds-  = lens _bmmrRemoveLabelIds-      (\ s a -> s{_bmmrRemoveLabelIds = a})-      . _Default-      . _Coerce---- | A list of label IDs to add to messages.-bmmrAddLabelIds :: Lens' BatchModifyMessagesRequest [Text]-bmmrAddLabelIds-  = lens _bmmrAddLabelIds-      (\ s a -> s{_bmmrAddLabelIds = a})-      . _Default-      . _Coerce--instance FromJSON BatchModifyMessagesRequest where-        parseJSON-          = withObject "BatchModifyMessagesRequest"-              (\ o ->-                 BatchModifyMessagesRequest' <$>-                   (o .:? "ids" .!= mempty) <*>-                     (o .:? "removeLabelIds" .!= mempty)-                     <*> (o .:? "addLabelIds" .!= mempty))--instance ToJSON BatchModifyMessagesRequest where-        toJSON BatchModifyMessagesRequest'{..}-          = object-              (catMaybes-                 [("ids" .=) <$> _bmmrIds,-                  ("removeLabelIds" .=) <$> _bmmrRemoveLabelIds,-                  ("addLabelIds" .=) <$> _bmmrAddLabelIds])---- | A draft email in the user\'s mailbox.------ /See:/ 'draft' smart constructor.-data Draft =-  Draft'-    { _dId      :: !(Maybe Text)-    , _dMessage :: !(Maybe Message)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Draft' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dId'------ * 'dMessage'-draft-    :: Draft-draft = Draft' {_dId = Nothing, _dMessage = Nothing}----- | The immutable ID of the draft.-dId :: Lens' Draft (Maybe Text)-dId = lens _dId (\ s a -> s{_dId = a})---- | The message content of the draft.-dMessage :: Lens' Draft (Maybe Message)-dMessage = lens _dMessage (\ s a -> s{_dMessage = a})--instance FromJSON Draft where-        parseJSON-          = withObject "Draft"-              (\ o ->-                 Draft' <$> (o .:? "id") <*> (o .:? "message"))--instance ToJSON Draft where-        toJSON Draft'{..}-          = object-              (catMaybes-                 [("id" .=) <$> _dId, ("message" .=) <$> _dMessage])---- | Configuration for communication with an SMTP service.------ /See:/ 'smtpMsa' smart constructor.-data SmtpMsa =-  SmtpMsa'-    { _smSecurityMode :: !(Maybe SmtpMsaSecurityMode)-    , _smUsername     :: !(Maybe Text)-    , _smPassword     :: !(Maybe Text)-    , _smHost         :: !(Maybe Text)-    , _smPort         :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SmtpMsa' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'smSecurityMode'------ * 'smUsername'------ * 'smPassword'------ * 'smHost'------ * 'smPort'-smtpMsa-    :: SmtpMsa-smtpMsa =-  SmtpMsa'-    { _smSecurityMode = Nothing-    , _smUsername = Nothing-    , _smPassword = Nothing-    , _smHost = Nothing-    , _smPort = Nothing-    }----- | The protocol that will be used to secure communication with the SMTP--- service. Required.-smSecurityMode :: Lens' SmtpMsa (Maybe SmtpMsaSecurityMode)-smSecurityMode-  = lens _smSecurityMode-      (\ s a -> s{_smSecurityMode = a})---- | The username that will be used for authentication with the SMTP service.--- This is a write-only field that can be specified in requests to create--- or update SendAs settings; it is never populated in responses.-smUsername :: Lens' SmtpMsa (Maybe Text)-smUsername-  = lens _smUsername (\ s a -> s{_smUsername = a})---- | The password that will be used for authentication with the SMTP service.--- This is a write-only field that can be specified in requests to create--- or update SendAs settings; it is never populated in responses.-smPassword :: Lens' SmtpMsa (Maybe Text)-smPassword-  = lens _smPassword (\ s a -> s{_smPassword = a})---- | The hostname of the SMTP service. Required.-smHost :: Lens' SmtpMsa (Maybe Text)-smHost = lens _smHost (\ s a -> s{_smHost = a})---- | The port of the SMTP service. Required.-smPort :: Lens' SmtpMsa (Maybe Int32)-smPort-  = lens _smPort (\ s a -> s{_smPort = a}) .-      mapping _Coerce--instance FromJSON SmtpMsa where-        parseJSON-          = withObject "SmtpMsa"-              (\ o ->-                 SmtpMsa' <$>-                   (o .:? "securityMode") <*> (o .:? "username") <*>-                     (o .:? "password")-                     <*> (o .:? "host")-                     <*> (o .:? "port"))--instance ToJSON SmtpMsa where-        toJSON SmtpMsa'{..}-          = object-              (catMaybes-                 [("securityMode" .=) <$> _smSecurityMode,-                  ("username" .=) <$> _smUsername,-                  ("password" .=) <$> _smPassword,-                  ("host" .=) <$> _smHost, ("port" .=) <$> _smPort])---- | Settings for a forwarding address.------ /See:/ 'forwardingAddress' smart constructor.-data ForwardingAddress =-  ForwardingAddress'-    { _faForwardingEmail    :: !(Maybe Text)-    , _faVerificationStatus :: !(Maybe ForwardingAddressVerificationStatus)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ForwardingAddress' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'faForwardingEmail'------ * 'faVerificationStatus'-forwardingAddress-    :: ForwardingAddress-forwardingAddress =-  ForwardingAddress'-    {_faForwardingEmail = Nothing, _faVerificationStatus = Nothing}----- | An email address to which messages can be forwarded.-faForwardingEmail :: Lens' ForwardingAddress (Maybe Text)-faForwardingEmail-  = lens _faForwardingEmail-      (\ s a -> s{_faForwardingEmail = a})---- | Indicates whether this address has been verified and is usable for--- forwarding. Read-only.-faVerificationStatus :: Lens' ForwardingAddress (Maybe ForwardingAddressVerificationStatus)-faVerificationStatus-  = lens _faVerificationStatus-      (\ s a -> s{_faVerificationStatus = a})--instance FromJSON ForwardingAddress where-        parseJSON-          = withObject "ForwardingAddress"-              (\ o ->-                 ForwardingAddress' <$>-                   (o .:? "forwardingEmail") <*>-                     (o .:? "verificationStatus"))--instance ToJSON ForwardingAddress where-        toJSON ForwardingAddress'{..}-          = object-              (catMaybes-                 [("forwardingEmail" .=) <$> _faForwardingEmail,-                  ("verificationStatus" .=) <$> _faVerificationStatus])---- | Resource definition for Gmail filters. Filters apply to specific--- messages instead of an entire email thread.------ /See:/ 'filter'' smart constructor.-data Filter =-  Filter'-    { _fAction   :: !(Maybe FilterAction)-    , _fId       :: !(Maybe Text)-    , _fCriteria :: !(Maybe FilterCriteria)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Filter' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fAction'------ * 'fId'------ * 'fCriteria'-filter'-    :: Filter-filter' = Filter' {_fAction = Nothing, _fId = Nothing, _fCriteria = Nothing}----- | Action that the filter performs.-fAction :: Lens' Filter (Maybe FilterAction)-fAction = lens _fAction (\ s a -> s{_fAction = a})---- | The server assigned ID of the filter.-fId :: Lens' Filter (Maybe Text)-fId = lens _fId (\ s a -> s{_fId = a})---- | Matching criteria for the filter.-fCriteria :: Lens' Filter (Maybe FilterCriteria)-fCriteria-  = lens _fCriteria (\ s a -> s{_fCriteria = a})--instance FromJSON Filter where-        parseJSON-          = withObject "Filter"-              (\ o ->-                 Filter' <$>-                   (o .:? "action") <*> (o .:? "id") <*>-                     (o .:? "criteria"))--instance ToJSON Filter where-        toJSON Filter'{..}-          = object-              (catMaybes-                 [("action" .=) <$> _fAction, ("id" .=) <$> _fId,-                  ("criteria" .=) <$> _fCriteria])---- | Set up or update a new push notification watch on this user\'s mailbox.------ /See:/ 'watchRequest' smart constructor.-data WatchRequest =-  WatchRequest'-    { _wrLabelFilterAction :: !(Maybe WatchRequestLabelFilterAction)-    , _wrTopicName         :: !(Maybe Text)-    , _wrLabelIds          :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WatchRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wrLabelFilterAction'------ * 'wrTopicName'------ * 'wrLabelIds'-watchRequest-    :: WatchRequest-watchRequest =-  WatchRequest'-    { _wrLabelFilterAction = Nothing-    , _wrTopicName = Nothing-    , _wrLabelIds = Nothing-    }----- | Filtering behavior of labelIds list specified.-wrLabelFilterAction :: Lens' WatchRequest (Maybe WatchRequestLabelFilterAction)-wrLabelFilterAction-  = lens _wrLabelFilterAction-      (\ s a -> s{_wrLabelFilterAction = a})---- | A fully qualified Google Cloud Pub\/Sub API topic name to publish the--- events to. This topic name **must** already exist in Cloud Pub\/Sub and--- you **must** have already granted gmail \"publish\" permission on it.--- For example, \"projects\/my-project-identifier\/topics\/my-topic-name\"--- (using the Cloud Pub\/Sub \"v1\" topic naming format). Note that the--- \"my-project-identifier\" portion must exactly match your Google--- developer project id (the one executing this watch request).-wrTopicName :: Lens' WatchRequest (Maybe Text)-wrTopicName-  = lens _wrTopicName (\ s a -> s{_wrTopicName = a})---- | List of label_ids to restrict notifications about. By default, if--- unspecified, all changes are pushed out. If specified then dictates--- which labels are required for a push notification to be generated.-wrLabelIds :: Lens' WatchRequest [Text]-wrLabelIds-  = lens _wrLabelIds (\ s a -> s{_wrLabelIds = a}) .-      _Default-      . _Coerce--instance FromJSON WatchRequest where-        parseJSON-          = withObject "WatchRequest"-              (\ o ->-                 WatchRequest' <$>-                   (o .:? "labelFilterAction") <*> (o .:? "topicName")-                     <*> (o .:? "labelIds" .!= mempty))--instance ToJSON WatchRequest where-        toJSON WatchRequest'{..}-          = object-              (catMaybes-                 [("labelFilterAction" .=) <$> _wrLabelFilterAction,-                  ("topicName" .=) <$> _wrTopicName,-                  ("labelIds" .=) <$> _wrLabelIds])---- | IMAP settings for an account.------ /See:/ 'imapSettings' smart constructor.-data ImapSettings =-  ImapSettings'-    { _isEnabled         :: !(Maybe Bool)-    , _isExpungeBehavior :: !(Maybe ImapSettingsExpungeBehavior)-    , _isAutoExpunge     :: !(Maybe Bool)-    , _isMaxFolderSize   :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ImapSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'isEnabled'------ * 'isExpungeBehavior'------ * 'isAutoExpunge'------ * 'isMaxFolderSize'-imapSettings-    :: ImapSettings-imapSettings =-  ImapSettings'-    { _isEnabled = Nothing-    , _isExpungeBehavior = Nothing-    , _isAutoExpunge = Nothing-    , _isMaxFolderSize = Nothing-    }----- | Whether IMAP is enabled for the account.-isEnabled :: Lens' ImapSettings (Maybe Bool)-isEnabled-  = lens _isEnabled (\ s a -> s{_isEnabled = a})---- | The action that will be executed on a message when it is marked as--- deleted and expunged from the last visible IMAP folder.-isExpungeBehavior :: Lens' ImapSettings (Maybe ImapSettingsExpungeBehavior)-isExpungeBehavior-  = lens _isExpungeBehavior-      (\ s a -> s{_isExpungeBehavior = a})---- | If this value is true, Gmail will immediately expunge a message when it--- is marked as deleted in IMAP. Otherwise, Gmail will wait for an update--- from the client before expunging messages marked as deleted.-isAutoExpunge :: Lens' ImapSettings (Maybe Bool)-isAutoExpunge-  = lens _isAutoExpunge-      (\ s a -> s{_isAutoExpunge = a})---- | An optional limit on the number of messages that an IMAP folder may--- contain. Legal values are 0, 1000, 2000, 5000 or 10000. A value of zero--- is interpreted to mean that there is no limit.-isMaxFolderSize :: Lens' ImapSettings (Maybe Int32)-isMaxFolderSize-  = lens _isMaxFolderSize-      (\ s a -> s{_isMaxFolderSize = a})-      . mapping _Coerce--instance FromJSON ImapSettings where-        parseJSON-          = withObject "ImapSettings"-              (\ o ->-                 ImapSettings' <$>-                   (o .:? "enabled") <*> (o .:? "expungeBehavior") <*>-                     (o .:? "autoExpunge")-                     <*> (o .:? "maxFolderSize"))--instance ToJSON ImapSettings where-        toJSON ImapSettings'{..}-          = object-              (catMaybes-                 [("enabled" .=) <$> _isEnabled,-                  ("expungeBehavior" .=) <$> _isExpungeBehavior,-                  ("autoExpunge" .=) <$> _isAutoExpunge,-                  ("maxFolderSize" .=) <$> _isMaxFolderSize])------- /See:/ 'listSmimeInfoResponse' smart constructor.-newtype ListSmimeInfoResponse =-  ListSmimeInfoResponse'-    { _lsirSmimeInfo :: Maybe [SmimeInfo]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListSmimeInfoResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lsirSmimeInfo'-listSmimeInfoResponse-    :: ListSmimeInfoResponse-listSmimeInfoResponse = ListSmimeInfoResponse' {_lsirSmimeInfo = Nothing}----- | List of SmimeInfo.-lsirSmimeInfo :: Lens' ListSmimeInfoResponse [SmimeInfo]-lsirSmimeInfo-  = lens _lsirSmimeInfo-      (\ s a -> s{_lsirSmimeInfo = a})-      . _Default-      . _Coerce--instance FromJSON ListSmimeInfoResponse where-        parseJSON-          = withObject "ListSmimeInfoResponse"-              (\ o ->-                 ListSmimeInfoResponse' <$>-                   (o .:? "smimeInfo" .!= mempty))--instance ToJSON ListSmimeInfoResponse where-        toJSON ListSmimeInfoResponse'{..}-          = object-              (catMaybes [("smimeInfo" .=) <$> _lsirSmimeInfo])---- | An email message.------ /See:/ 'message' smart constructor.-data Message =-  Message'-    { _mRaw          :: !(Maybe Bytes)-    , _mSnippet      :: !(Maybe Text)-    , _mSizeEstimate :: !(Maybe (Textual Int32))-    , _mPayload      :: !(Maybe MessagePart)-    , _mHistoryId    :: !(Maybe (Textual Word64))-    , _mId           :: !(Maybe Text)-    , _mLabelIds     :: !(Maybe [Text])-    , _mThreadId     :: !(Maybe Text)-    , _mInternalDate :: !(Maybe (Textual Int64))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Message' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mRaw'------ * 'mSnippet'------ * 'mSizeEstimate'------ * 'mPayload'------ * 'mHistoryId'------ * 'mId'------ * 'mLabelIds'------ * 'mThreadId'------ * 'mInternalDate'-message-    :: Message-message =-  Message'-    { _mRaw = Nothing-    , _mSnippet = Nothing-    , _mSizeEstimate = Nothing-    , _mPayload = Nothing-    , _mHistoryId = Nothing-    , _mId = Nothing-    , _mLabelIds = Nothing-    , _mThreadId = Nothing-    , _mInternalDate = Nothing-    }----- | The entire email message in an RFC 2822 formatted and base64url encoded--- string. Returned in messages.get and drafts.get responses when the--- format=RAW parameter is supplied.-mRaw :: Lens' Message (Maybe ByteString)-mRaw-  = lens _mRaw (\ s a -> s{_mRaw = a}) . mapping _Bytes---- | A short part of the message text.-mSnippet :: Lens' Message (Maybe Text)-mSnippet = lens _mSnippet (\ s a -> s{_mSnippet = a})---- | Estimated size in bytes of the message.-mSizeEstimate :: Lens' Message (Maybe Int32)-mSizeEstimate-  = lens _mSizeEstimate-      (\ s a -> s{_mSizeEstimate = a})-      . mapping _Coerce---- | The parsed email structure in the message parts.-mPayload :: Lens' Message (Maybe MessagePart)-mPayload = lens _mPayload (\ s a -> s{_mPayload = a})---- | The ID of the last history record that modified this message.-mHistoryId :: Lens' Message (Maybe Word64)-mHistoryId-  = lens _mHistoryId (\ s a -> s{_mHistoryId = a}) .-      mapping _Coerce---- | The immutable ID of the message.-mId :: Lens' Message (Maybe Text)-mId = lens _mId (\ s a -> s{_mId = a})---- | List of IDs of labels applied to this message.-mLabelIds :: Lens' Message [Text]-mLabelIds-  = lens _mLabelIds (\ s a -> s{_mLabelIds = a}) .-      _Default-      . _Coerce---- | The ID of the thread the message belongs to. To add a message or draft--- to a thread, the following criteria must be met: - The requested--- threadId must be specified on the Message or Draft.Message you supply--- with your request. - The References and In-Reply-To headers must be set--- in compliance with the RFC 2822 standard. - The Subject headers must--- match.-mThreadId :: Lens' Message (Maybe Text)-mThreadId-  = lens _mThreadId (\ s a -> s{_mThreadId = a})---- | The internal message creation timestamp (epoch ms), which determines--- ordering in the inbox. For normal SMTP-received email, this represents--- the time the message was originally accepted by Google, which is more--- reliable than the Date header. However, for API-migrated mail, it can be--- configured by client to be based on the Date header.-mInternalDate :: Lens' Message (Maybe Int64)-mInternalDate-  = lens _mInternalDate-      (\ s a -> s{_mInternalDate = a})-      . mapping _Coerce--instance FromJSON Message where-        parseJSON-          = withObject "Message"-              (\ o ->-                 Message' <$>-                   (o .:? "raw") <*> (o .:? "snippet") <*>-                     (o .:? "sizeEstimate")-                     <*> (o .:? "payload")-                     <*> (o .:? "historyId")-                     <*> (o .:? "id")-                     <*> (o .:? "labelIds" .!= mempty)-                     <*> (o .:? "threadId")-                     <*> (o .:? "internalDate"))--instance ToJSON Message where-        toJSON Message'{..}-          = object-              (catMaybes-                 [("raw" .=) <$> _mRaw, ("snippet" .=) <$> _mSnippet,-                  ("sizeEstimate" .=) <$> _mSizeEstimate,-                  ("payload" .=) <$> _mPayload,-                  ("historyId" .=) <$> _mHistoryId, ("id" .=) <$> _mId,-                  ("labelIds" .=) <$> _mLabelIds,-                  ("threadId" .=) <$> _mThreadId,-                  ("internalDate" .=) <$> _mInternalDate])------- /See:/ 'historyLabelRemoved' smart constructor.-data HistoryLabelRemoved =-  HistoryLabelRemoved'-    { _hlrLabelIds :: !(Maybe [Text])-    , _hlrMessage  :: !(Maybe Message)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'HistoryLabelRemoved' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hlrLabelIds'------ * 'hlrMessage'-historyLabelRemoved-    :: HistoryLabelRemoved-historyLabelRemoved =-  HistoryLabelRemoved' {_hlrLabelIds = Nothing, _hlrMessage = Nothing}----- | Label IDs removed from the message.-hlrLabelIds :: Lens' HistoryLabelRemoved [Text]-hlrLabelIds-  = lens _hlrLabelIds (\ s a -> s{_hlrLabelIds = a}) .-      _Default-      . _Coerce--hlrMessage :: Lens' HistoryLabelRemoved (Maybe Message)-hlrMessage-  = lens _hlrMessage (\ s a -> s{_hlrMessage = a})--instance FromJSON HistoryLabelRemoved where-        parseJSON-          = withObject "HistoryLabelRemoved"-              (\ o ->-                 HistoryLabelRemoved' <$>-                   (o .:? "labelIds" .!= mempty) <*> (o .:? "message"))--instance ToJSON HistoryLabelRemoved where-        toJSON HistoryLabelRemoved'{..}-          = object-              (catMaybes-                 [("labelIds" .=) <$> _hlrLabelIds,-                  ("message" .=) <$> _hlrMessage])---- | A collection of messages representing a conversation.------ /See:/ 'thread' smart constructor.-data Thread =-  Thread'-    { _tSnippet   :: !(Maybe Text)-    , _tHistoryId :: !(Maybe (Textual Word64))-    , _tId        :: !(Maybe Text)-    , _tMessages  :: !(Maybe [Message])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Thread' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tSnippet'------ * 'tHistoryId'------ * 'tId'------ * 'tMessages'-thread-    :: Thread-thread =-  Thread'-    { _tSnippet = Nothing-    , _tHistoryId = Nothing-    , _tId = Nothing-    , _tMessages = Nothing-    }----- | A short part of the message text.-tSnippet :: Lens' Thread (Maybe Text)-tSnippet = lens _tSnippet (\ s a -> s{_tSnippet = a})---- | The ID of the last history record that modified this thread.-tHistoryId :: Lens' Thread (Maybe Word64)-tHistoryId-  = lens _tHistoryId (\ s a -> s{_tHistoryId = a}) .-      mapping _Coerce---- | The unique ID of the thread.-tId :: Lens' Thread (Maybe Text)-tId = lens _tId (\ s a -> s{_tId = a})---- | The list of messages in the thread.-tMessages :: Lens' Thread [Message]-tMessages-  = lens _tMessages (\ s a -> s{_tMessages = a}) .-      _Default-      . _Coerce--instance FromJSON Thread where-        parseJSON-          = withObject "Thread"-              (\ o ->-                 Thread' <$>-                   (o .:? "snippet") <*> (o .:? "historyId") <*>-                     (o .:? "id")-                     <*> (o .:? "messages" .!= mempty))--instance ToJSON Thread where-        toJSON Thread'{..}-          = object-              (catMaybes-                 [("snippet" .=) <$> _tSnippet,-                  ("historyId" .=) <$> _tHistoryId, ("id" .=) <$> _tId,-                  ("messages" .=) <$> _tMessages])---- | A set of actions to perform on a message.------ /See:/ 'filterAction' smart constructor.-data FilterAction =-  FilterAction'-    { _faForward        :: !(Maybe Text)-    , _faRemoveLabelIds :: !(Maybe [Text])-    , _faAddLabelIds    :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FilterAction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'faForward'------ * 'faRemoveLabelIds'------ * 'faAddLabelIds'-filterAction-    :: FilterAction-filterAction =-  FilterAction'-    { _faForward = Nothing-    , _faRemoveLabelIds = Nothing-    , _faAddLabelIds = Nothing-    }----- | Email address that the message should be forwarded to.-faForward :: Lens' FilterAction (Maybe Text)-faForward-  = lens _faForward (\ s a -> s{_faForward = a})---- | List of labels to remove from the message.-faRemoveLabelIds :: Lens' FilterAction [Text]-faRemoveLabelIds-  = lens _faRemoveLabelIds-      (\ s a -> s{_faRemoveLabelIds = a})-      . _Default-      . _Coerce---- | List of labels to add to the message.-faAddLabelIds :: Lens' FilterAction [Text]-faAddLabelIds-  = lens _faAddLabelIds-      (\ s a -> s{_faAddLabelIds = a})-      . _Default-      . _Coerce--instance FromJSON FilterAction where-        parseJSON-          = withObject "FilterAction"-              (\ o ->-                 FilterAction' <$>-                   (o .:? "forward") <*>-                     (o .:? "removeLabelIds" .!= mempty)-                     <*> (o .:? "addLabelIds" .!= mempty))--instance ToJSON FilterAction where-        toJSON FilterAction'{..}-          = object-              (catMaybes-                 [("forward" .=) <$> _faForward,-                  ("removeLabelIds" .=) <$> _faRemoveLabelIds,-                  ("addLabelIds" .=) <$> _faAddLabelIds])---- | Labels are used to categorize messages and threads within the user\'s--- mailbox.------ /See:/ 'label' smart constructor.-data Label =-  Label'-    { _lThreadsUnread         :: !(Maybe (Textual Int32))-    , _lMessageListVisibility :: !(Maybe LabelMessageListVisibility)-    , _lMessagesTotal         :: !(Maybe (Textual Int32))-    , _lColor                 :: !(Maybe LabelColor)-    , _lMessagesUnread        :: !(Maybe (Textual Int32))-    , _lName                  :: !(Maybe Text)-    , _lThreadsTotal          :: !(Maybe (Textual Int32))-    , _lLabelListVisibility   :: !(Maybe LabelLabelListVisibility)-    , _lId                    :: !(Maybe Text)-    , _lType                  :: !(Maybe LabelType)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Label' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lThreadsUnread'------ * 'lMessageListVisibility'------ * 'lMessagesTotal'------ * 'lColor'------ * 'lMessagesUnread'------ * 'lName'------ * 'lThreadsTotal'------ * 'lLabelListVisibility'------ * 'lId'------ * 'lType'-label-    :: Label-label =-  Label'-    { _lThreadsUnread = Nothing-    , _lMessageListVisibility = Nothing-    , _lMessagesTotal = Nothing-    , _lColor = Nothing-    , _lMessagesUnread = Nothing-    , _lName = Nothing-    , _lThreadsTotal = Nothing-    , _lLabelListVisibility = Nothing-    , _lId = Nothing-    , _lType = Nothing-    }----- | The number of unread threads with the label.-lThreadsUnread :: Lens' Label (Maybe Int32)-lThreadsUnread-  = lens _lThreadsUnread-      (\ s a -> s{_lThreadsUnread = a})-      . mapping _Coerce---- | The visibility of the label in the message list in the Gmail web--- interface.-lMessageListVisibility :: Lens' Label (Maybe LabelMessageListVisibility)-lMessageListVisibility-  = lens _lMessageListVisibility-      (\ s a -> s{_lMessageListVisibility = a})---- | The total number of messages with the label.-lMessagesTotal :: Lens' Label (Maybe Int32)-lMessagesTotal-  = lens _lMessagesTotal-      (\ s a -> s{_lMessagesTotal = a})-      . mapping _Coerce---- | The color to assign to the label. Color is only available for labels--- that have their type set to user.-lColor :: Lens' Label (Maybe LabelColor)-lColor = lens _lColor (\ s a -> s{_lColor = a})---- | The number of unread messages with the label.-lMessagesUnread :: Lens' Label (Maybe Int32)-lMessagesUnread-  = lens _lMessagesUnread-      (\ s a -> s{_lMessagesUnread = a})-      . mapping _Coerce---- | The display name of the label.-lName :: Lens' Label (Maybe Text)-lName = lens _lName (\ s a -> s{_lName = a})---- | The total number of threads with the label.-lThreadsTotal :: Lens' Label (Maybe Int32)-lThreadsTotal-  = lens _lThreadsTotal-      (\ s a -> s{_lThreadsTotal = a})-      . mapping _Coerce---- | The visibility of the label in the label list in the Gmail web--- interface.-lLabelListVisibility :: Lens' Label (Maybe LabelLabelListVisibility)-lLabelListVisibility-  = lens _lLabelListVisibility-      (\ s a -> s{_lLabelListVisibility = a})---- | The immutable ID of the label.-lId :: Lens' Label (Maybe Text)-lId = lens _lId (\ s a -> s{_lId = a})---- | The owner type for the label. User labels are created by the user and--- can be modified and deleted by the user and can be applied to any--- message or thread. System labels are internally created and cannot be--- added, modified, or deleted. System labels may be able to be applied to--- or removed from messages and threads under some circumstances but this--- is not guaranteed. For example, users can apply and remove the INBOX and--- UNREAD labels from messages and threads, but cannot apply or remove the--- DRAFTS or SENT labels from messages or threads.-lType :: Lens' Label (Maybe LabelType)-lType = lens _lType (\ s a -> s{_lType = a})--instance FromJSON Label where-        parseJSON-          = withObject "Label"-              (\ o ->-                 Label' <$>-                   (o .:? "threadsUnread") <*>-                     (o .:? "messageListVisibility")-                     <*> (o .:? "messagesTotal")-                     <*> (o .:? "color")-                     <*> (o .:? "messagesUnread")-                     <*> (o .:? "name")-                     <*> (o .:? "threadsTotal")-                     <*> (o .:? "labelListVisibility")-                     <*> (o .:? "id")-                     <*> (o .:? "type"))--instance ToJSON Label where-        toJSON Label'{..}-          = object-              (catMaybes-                 [("threadsUnread" .=) <$> _lThreadsUnread,-                  ("messageListVisibility" .=) <$>-                    _lMessageListVisibility,-                  ("messagesTotal" .=) <$> _lMessagesTotal,-                  ("color" .=) <$> _lColor,-                  ("messagesUnread" .=) <$> _lMessagesUnread,-                  ("name" .=) <$> _lName,-                  ("threadsTotal" .=) <$> _lThreadsTotal,-                  ("labelListVisibility" .=) <$> _lLabelListVisibility,-                  ("id" .=) <$> _lId, ("type" .=) <$> _lType])---- | An S\/MIME email config.------ /See:/ 'smimeInfo' smart constructor.-data SmimeInfo =-  SmimeInfo'-    { _siPem                  :: !(Maybe Text)-    , _siExpiration           :: !(Maybe (Textual Int64))-    , _siEncryptedKeyPassword :: !(Maybe Text)-    , _siId                   :: !(Maybe Text)-    , _siPkcs12               :: !(Maybe Bytes)-    , _siIssuerCn             :: !(Maybe Text)-    , _siIsDefault            :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SmimeInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'siPem'------ * 'siExpiration'------ * 'siEncryptedKeyPassword'------ * 'siId'------ * 'siPkcs12'------ * 'siIssuerCn'------ * 'siIsDefault'-smimeInfo-    :: SmimeInfo-smimeInfo =-  SmimeInfo'-    { _siPem = Nothing-    , _siExpiration = Nothing-    , _siEncryptedKeyPassword = Nothing-    , _siId = Nothing-    , _siPkcs12 = Nothing-    , _siIssuerCn = Nothing-    , _siIsDefault = Nothing-    }----- | PEM formatted X509 concatenated certificate string (standard base64--- encoding). Format used for returning key, which includes public key as--- well as certificate chain (not private key).-siPem :: Lens' SmimeInfo (Maybe Text)-siPem = lens _siPem (\ s a -> s{_siPem = a})---- | When the certificate expires (in milliseconds since epoch).-siExpiration :: Lens' SmimeInfo (Maybe Int64)-siExpiration-  = lens _siExpiration (\ s a -> s{_siExpiration = a})-      . mapping _Coerce---- | Encrypted key password, when key is encrypted.-siEncryptedKeyPassword :: Lens' SmimeInfo (Maybe Text)-siEncryptedKeyPassword-  = lens _siEncryptedKeyPassword-      (\ s a -> s{_siEncryptedKeyPassword = a})---- | The immutable ID for the SmimeInfo.-siId :: Lens' SmimeInfo (Maybe Text)-siId = lens _siId (\ s a -> s{_siId = a})---- | PKCS#12 format containing a single private\/public key pair and--- certificate chain. This format is only accepted from client for creating--- a new SmimeInfo and is never returned, because the private key is not--- intended to be exported. PKCS#12 may be encrypted, in which case--- encryptedKeyPassword should be set appropriately.-siPkcs12 :: Lens' SmimeInfo (Maybe ByteString)-siPkcs12-  = lens _siPkcs12 (\ s a -> s{_siPkcs12 = a}) .-      mapping _Bytes---- | The S\/MIME certificate issuer\'s common name.-siIssuerCn :: Lens' SmimeInfo (Maybe Text)-siIssuerCn-  = lens _siIssuerCn (\ s a -> s{_siIssuerCn = a})---- | Whether this SmimeInfo is the default one for this user\'s send-as--- address.-siIsDefault :: Lens' SmimeInfo (Maybe Bool)-siIsDefault-  = lens _siIsDefault (\ s a -> s{_siIsDefault = a})--instance FromJSON SmimeInfo where-        parseJSON-          = withObject "SmimeInfo"-              (\ o ->-                 SmimeInfo' <$>-                   (o .:? "pem") <*> (o .:? "expiration") <*>-                     (o .:? "encryptedKeyPassword")-                     <*> (o .:? "id")-                     <*> (o .:? "pkcs12")-                     <*> (o .:? "issuerCn")-                     <*> (o .:? "isDefault"))--instance ToJSON SmimeInfo where-        toJSON SmimeInfo'{..}-          = object-              (catMaybes-                 [("pem" .=) <$> _siPem,-                  ("expiration" .=) <$> _siExpiration,-                  ("encryptedKeyPassword" .=) <$>-                    _siEncryptedKeyPassword,-                  ("id" .=) <$> _siId, ("pkcs12" .=) <$> _siPkcs12,-                  ("issuerCn" .=) <$> _siIssuerCn,-                  ("isDefault" .=) <$> _siIsDefault])------- /See:/ 'listMessagesResponse' smart constructor.-data ListMessagesResponse =-  ListMessagesResponse'-    { _lmrNextPageToken      :: !(Maybe Text)-    , _lmrResultSizeEstimate :: !(Maybe (Textual Word32))-    , _lmrMessages           :: !(Maybe [Message])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListMessagesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lmrNextPageToken'------ * 'lmrResultSizeEstimate'------ * 'lmrMessages'-listMessagesResponse-    :: ListMessagesResponse-listMessagesResponse =-  ListMessagesResponse'-    { _lmrNextPageToken = Nothing-    , _lmrResultSizeEstimate = Nothing-    , _lmrMessages = Nothing-    }----- | Token to retrieve the next page of results in the list.-lmrNextPageToken :: Lens' ListMessagesResponse (Maybe Text)-lmrNextPageToken-  = lens _lmrNextPageToken-      (\ s a -> s{_lmrNextPageToken = a})---- | Estimated total number of results.-lmrResultSizeEstimate :: Lens' ListMessagesResponse (Maybe Word32)-lmrResultSizeEstimate-  = lens _lmrResultSizeEstimate-      (\ s a -> s{_lmrResultSizeEstimate = a})-      . mapping _Coerce---- | List of messages. Note that each message resource contains only an id--- and a threadId. Additional message details can be fetched using the--- messages.get method.-lmrMessages :: Lens' ListMessagesResponse [Message]-lmrMessages-  = lens _lmrMessages (\ s a -> s{_lmrMessages = a}) .-      _Default-      . _Coerce--instance FromJSON ListMessagesResponse where-        parseJSON-          = withObject "ListMessagesResponse"-              (\ o ->-                 ListMessagesResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "resultSizeEstimate")-                     <*> (o .:? "messages" .!= mempty))--instance ToJSON ListMessagesResponse where-        toJSON ListMessagesResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _lmrNextPageToken,-                  ("resultSizeEstimate" .=) <$> _lmrResultSizeEstimate,-                  ("messages" .=) <$> _lmrMessages])------- /See:/ 'historyMessageAdded' smart constructor.-newtype HistoryMessageAdded =-  HistoryMessageAdded'-    { _hmaMessage :: Maybe Message-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'HistoryMessageAdded' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hmaMessage'-historyMessageAdded-    :: HistoryMessageAdded-historyMessageAdded = HistoryMessageAdded' {_hmaMessage = Nothing}---hmaMessage :: Lens' HistoryMessageAdded (Maybe Message)-hmaMessage-  = lens _hmaMessage (\ s a -> s{_hmaMessage = a})--instance FromJSON HistoryMessageAdded where-        parseJSON-          = withObject "HistoryMessageAdded"-              (\ o -> HistoryMessageAdded' <$> (o .:? "message"))--instance ToJSON HistoryMessageAdded where-        toJSON HistoryMessageAdded'{..}-          = object (catMaybes [("message" .=) <$> _hmaMessage])
− gen/Network/Google/Gmail/Types/Sum.hs 
@@ -1,651 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.Gmail.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.Gmail.Types.Sum where--import           Network.Google.Prelude hiding (Bytes)---- | How the message size in bytes should be in relation to the size field.-data FilterCriteriaSizeComparison-    = Larger-      -- ^ @larger@-    | Smaller-      -- ^ @smaller@-    | Unspecified-      -- ^ @unspecified@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable FilterCriteriaSizeComparison--instance FromHttpApiData FilterCriteriaSizeComparison where-    parseQueryParam = \case-        "larger" -> Right Larger-        "smaller" -> Right Smaller-        "unspecified" -> Right Unspecified-        x -> Left ("Unable to parse FilterCriteriaSizeComparison from: " <> x)--instance ToHttpApiData FilterCriteriaSizeComparison where-    toQueryParam = \case-        Larger -> "larger"-        Smaller -> "smaller"-        Unspecified -> "unspecified"--instance FromJSON FilterCriteriaSizeComparison where-    parseJSON = parseJSONText "FilterCriteriaSizeComparison"--instance ToJSON FilterCriteriaSizeComparison where-    toJSON = toJSONText---- | The format to return the message in.-data UsersMessagesGetFormat-    = Full-      -- ^ @full@-    | Metadata-      -- ^ @metadata@-    | Minimal-      -- ^ @minimal@-    | Raw-      -- ^ @raw@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersMessagesGetFormat--instance FromHttpApiData UsersMessagesGetFormat where-    parseQueryParam = \case-        "full" -> Right Full-        "metadata" -> Right Metadata-        "minimal" -> Right Minimal-        "raw" -> Right Raw-        x -> Left ("Unable to parse UsersMessagesGetFormat from: " <> x)--instance ToHttpApiData UsersMessagesGetFormat where-    toQueryParam = \case-        Full -> "full"-        Metadata -> "metadata"-        Minimal -> "minimal"-        Raw -> "raw"--instance FromJSON UsersMessagesGetFormat where-    parseJSON = parseJSONText "UsersMessagesGetFormat"--instance ToJSON UsersMessagesGetFormat where-    toJSON = toJSONText---- | The range of messages which are accessible via POP.-data PopSettingsAccessWindow-    = AccessWindowUnspecified-      -- ^ @accessWindowUnspecified@-    | AllMail-      -- ^ @allMail@-    | Disabled-      -- ^ @disabled@-    | FromNowOn-      -- ^ @fromNowOn@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable PopSettingsAccessWindow--instance FromHttpApiData PopSettingsAccessWindow where-    parseQueryParam = \case-        "accessWindowUnspecified" -> Right AccessWindowUnspecified-        "allMail" -> Right AllMail-        "disabled" -> Right Disabled-        "fromNowOn" -> Right FromNowOn-        x -> Left ("Unable to parse PopSettingsAccessWindow from: " <> x)--instance ToHttpApiData PopSettingsAccessWindow where-    toQueryParam = \case-        AccessWindowUnspecified -> "accessWindowUnspecified"-        AllMail -> "allMail"-        Disabled -> "disabled"-        FromNowOn -> "fromNowOn"--instance FromJSON PopSettingsAccessWindow where-    parseJSON = parseJSONText "PopSettingsAccessWindow"--instance ToJSON PopSettingsAccessWindow where-    toJSON = toJSONText---- | Indicates whether this address has been verified and is usable for--- forwarding. Read-only.-data ForwardingAddressVerificationStatus-    = Accepted-      -- ^ @accepted@-    | Pending-      -- ^ @pending@-    | VerificationStatusUnspecified-      -- ^ @verificationStatusUnspecified@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ForwardingAddressVerificationStatus--instance FromHttpApiData ForwardingAddressVerificationStatus where-    parseQueryParam = \case-        "accepted" -> Right Accepted-        "pending" -> Right Pending-        "verificationStatusUnspecified" -> Right VerificationStatusUnspecified-        x -> Left ("Unable to parse ForwardingAddressVerificationStatus from: " <> x)--instance ToHttpApiData ForwardingAddressVerificationStatus where-    toQueryParam = \case-        Accepted -> "accepted"-        Pending -> "pending"-        VerificationStatusUnspecified -> "verificationStatusUnspecified"--instance FromJSON ForwardingAddressVerificationStatus where-    parseJSON = parseJSONText "ForwardingAddressVerificationStatus"--instance ToJSON ForwardingAddressVerificationStatus where-    toJSON = toJSONText---- | The state that a message should be left in after it has been forwarded.-data AutoForwardingDisPosition-    = Archive-      -- ^ @archive@-    | DisPositionUnspecified-      -- ^ @dispositionUnspecified@-    | LeaveInInbox-      -- ^ @leaveInInbox@-    | MarkRead-      -- ^ @markRead@-    | Trash-      -- ^ @trash@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable AutoForwardingDisPosition--instance FromHttpApiData AutoForwardingDisPosition where-    parseQueryParam = \case-        "archive" -> Right Archive-        "dispositionUnspecified" -> Right DisPositionUnspecified-        "leaveInInbox" -> Right LeaveInInbox-        "markRead" -> Right MarkRead-        "trash" -> Right Trash-        x -> Left ("Unable to parse AutoForwardingDisPosition from: " <> x)--instance ToHttpApiData AutoForwardingDisPosition where-    toQueryParam = \case-        Archive -> "archive"-        DisPositionUnspecified -> "dispositionUnspecified"-        LeaveInInbox -> "leaveInInbox"-        MarkRead -> "markRead"-        Trash -> "trash"--instance FromJSON AutoForwardingDisPosition where-    parseJSON = parseJSONText "AutoForwardingDisPosition"--instance ToJSON AutoForwardingDisPosition where-    toJSON = toJSONText---- | History types to be returned by the function-data UsersHistoryListHistoryTypes-    = LabelAdded-      -- ^ @labelAdded@-    | LabelRemoved-      -- ^ @labelRemoved@-    | MessageAdded-      -- ^ @messageAdded@-    | MessageDeleted-      -- ^ @messageDeleted@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersHistoryListHistoryTypes--instance FromHttpApiData UsersHistoryListHistoryTypes where-    parseQueryParam = \case-        "labelAdded" -> Right LabelAdded-        "labelRemoved" -> Right LabelRemoved-        "messageAdded" -> Right MessageAdded-        "messageDeleted" -> Right MessageDeleted-        x -> Left ("Unable to parse UsersHistoryListHistoryTypes from: " <> x)--instance ToHttpApiData UsersHistoryListHistoryTypes where-    toQueryParam = \case-        LabelAdded -> "labelAdded"-        LabelRemoved -> "labelRemoved"-        MessageAdded -> "messageAdded"-        MessageDeleted -> "messageDeleted"--instance FromJSON UsersHistoryListHistoryTypes where-    parseJSON = parseJSONText "UsersHistoryListHistoryTypes"--instance ToJSON UsersHistoryListHistoryTypes where-    toJSON = toJSONText---- | Indicates whether this address has been verified for use as a send-as--- alias. Read-only. This setting only applies to custom \"from\" aliases.-data SendAsVerificationStatus-    = SAVSAccepted-      -- ^ @accepted@-    | SAVSPending-      -- ^ @pending@-    | SAVSVerificationStatusUnspecified-      -- ^ @verificationStatusUnspecified@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable SendAsVerificationStatus--instance FromHttpApiData SendAsVerificationStatus where-    parseQueryParam = \case-        "accepted" -> Right SAVSAccepted-        "pending" -> Right SAVSPending-        "verificationStatusUnspecified" -> Right SAVSVerificationStatusUnspecified-        x -> Left ("Unable to parse SendAsVerificationStatus from: " <> x)--instance ToHttpApiData SendAsVerificationStatus where-    toQueryParam = \case-        SAVSAccepted -> "accepted"-        SAVSPending -> "pending"-        SAVSVerificationStatusUnspecified -> "verificationStatusUnspecified"--instance FromJSON SendAsVerificationStatus where-    parseJSON = parseJSONText "SendAsVerificationStatus"--instance ToJSON SendAsVerificationStatus where-    toJSON = toJSONText---- | The owner type for the label. User labels are created by the user and--- can be modified and deleted by the user and can be applied to any--- message or thread. System labels are internally created and cannot be--- added, modified, or deleted. System labels may be able to be applied to--- or removed from messages and threads under some circumstances but this--- is not guaranteed. For example, users can apply and remove the INBOX and--- UNREAD labels from messages and threads, but cannot apply or remove the--- DRAFTS or SENT labels from messages or threads.-data LabelType-    = System-      -- ^ @system@-    | User-      -- ^ @user@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable LabelType--instance FromHttpApiData LabelType where-    parseQueryParam = \case-        "system" -> Right System-        "user" -> Right User-        x -> Left ("Unable to parse LabelType from: " <> x)--instance ToHttpApiData LabelType where-    toQueryParam = \case-        System -> "system"-        User -> "user"--instance FromJSON LabelType where-    parseJSON = parseJSONText "LabelType"--instance ToJSON LabelType where-    toJSON = toJSONText---- | The format to return the draft in.-data UsersDraftsGetFormat-    = UDGFFull-      -- ^ @full@-    | UDGFMetadata-      -- ^ @metadata@-    | UDGFMinimal-      -- ^ @minimal@-    | UDGFRaw-      -- ^ @raw@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersDraftsGetFormat--instance FromHttpApiData UsersDraftsGetFormat where-    parseQueryParam = \case-        "full" -> Right UDGFFull-        "metadata" -> Right UDGFMetadata-        "minimal" -> Right UDGFMinimal-        "raw" -> Right UDGFRaw-        x -> Left ("Unable to parse UsersDraftsGetFormat from: " <> x)--instance ToHttpApiData UsersDraftsGetFormat where-    toQueryParam = \case-        UDGFFull -> "full"-        UDGFMetadata -> "metadata"-        UDGFMinimal -> "minimal"-        UDGFRaw -> "raw"--instance FromJSON UsersDraftsGetFormat where-    parseJSON = parseJSONText "UsersDraftsGetFormat"--instance ToJSON UsersDraftsGetFormat where-    toJSON = toJSONText---- | Source for Gmail\'s internal date of the message.-data UsersMessagesImportInternalDateSource-    = DateHeader-      -- ^ @dateHeader@-    | ReceivedTime-      -- ^ @receivedTime@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersMessagesImportInternalDateSource--instance FromHttpApiData UsersMessagesImportInternalDateSource where-    parseQueryParam = \case-        "dateHeader" -> Right DateHeader-        "receivedTime" -> Right ReceivedTime-        x -> Left ("Unable to parse UsersMessagesImportInternalDateSource from: " <> x)--instance ToHttpApiData UsersMessagesImportInternalDateSource where-    toQueryParam = \case-        DateHeader -> "dateHeader"-        ReceivedTime -> "receivedTime"--instance FromJSON UsersMessagesImportInternalDateSource where-    parseJSON = parseJSONText "UsersMessagesImportInternalDateSource"--instance ToJSON UsersMessagesImportInternalDateSource where-    toJSON = toJSONText---- | The visibility of the label in the message list in the Gmail web--- interface.-data LabelMessageListVisibility-    = Hide-      -- ^ @hide@-    | Show-      -- ^ @show@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable LabelMessageListVisibility--instance FromHttpApiData LabelMessageListVisibility where-    parseQueryParam = \case-        "hide" -> Right Hide-        "show" -> Right Show-        x -> Left ("Unable to parse LabelMessageListVisibility from: " <> x)--instance ToHttpApiData LabelMessageListVisibility where-    toQueryParam = \case-        Hide -> "hide"-        Show -> "show"--instance FromJSON LabelMessageListVisibility where-    parseJSON = parseJSONText "LabelMessageListVisibility"--instance ToJSON LabelMessageListVisibility where-    toJSON = toJSONText---- | The visibility of the label in the label list in the Gmail web--- interface.-data LabelLabelListVisibility-    = LabelHide-      -- ^ @labelHide@-    | LabelShow-      -- ^ @labelShow@-    | LabelShowIfUnread-      -- ^ @labelShowIfUnread@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable LabelLabelListVisibility--instance FromHttpApiData LabelLabelListVisibility where-    parseQueryParam = \case-        "labelHide" -> Right LabelHide-        "labelShow" -> Right LabelShow-        "labelShowIfUnread" -> Right LabelShowIfUnread-        x -> Left ("Unable to parse LabelLabelListVisibility from: " <> x)--instance ToHttpApiData LabelLabelListVisibility where-    toQueryParam = \case-        LabelHide -> "labelHide"-        LabelShow -> "labelShow"-        LabelShowIfUnread -> "labelShowIfUnread"--instance FromJSON LabelLabelListVisibility where-    parseJSON = parseJSONText "LabelLabelListVisibility"--instance ToJSON LabelLabelListVisibility where-    toJSON = toJSONText---- | Indicates whether this address has been verified and can act as a--- delegate for the account. Read-only.-data DelegateVerificationStatus-    = DVSAccepted-      -- ^ @accepted@-    | DVSExpired-      -- ^ @expired@-    | DVSPending-      -- ^ @pending@-    | DVSRejected-      -- ^ @rejected@-    | DVSVerificationStatusUnspecified-      -- ^ @verificationStatusUnspecified@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable DelegateVerificationStatus--instance FromHttpApiData DelegateVerificationStatus where-    parseQueryParam = \case-        "accepted" -> Right DVSAccepted-        "expired" -> Right DVSExpired-        "pending" -> Right DVSPending-        "rejected" -> Right DVSRejected-        "verificationStatusUnspecified" -> Right DVSVerificationStatusUnspecified-        x -> Left ("Unable to parse DelegateVerificationStatus from: " <> x)--instance ToHttpApiData DelegateVerificationStatus where-    toQueryParam = \case-        DVSAccepted -> "accepted"-        DVSExpired -> "expired"-        DVSPending -> "pending"-        DVSRejected -> "rejected"-        DVSVerificationStatusUnspecified -> "verificationStatusUnspecified"--instance FromJSON DelegateVerificationStatus where-    parseJSON = parseJSONText "DelegateVerificationStatus"--instance ToJSON DelegateVerificationStatus where-    toJSON = toJSONText---- | The format to return the messages in.-data UsersThreadsGetFormat-    = UTGFFull-      -- ^ @full@-    | UTGFMetadata-      -- ^ @metadata@-    | UTGFMinimal-      -- ^ @minimal@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersThreadsGetFormat--instance FromHttpApiData UsersThreadsGetFormat where-    parseQueryParam = \case-        "full" -> Right UTGFFull-        "metadata" -> Right UTGFMetadata-        "minimal" -> Right UTGFMinimal-        x -> Left ("Unable to parse UsersThreadsGetFormat from: " <> x)--instance ToHttpApiData UsersThreadsGetFormat where-    toQueryParam = \case-        UTGFFull -> "full"-        UTGFMetadata -> "metadata"-        UTGFMinimal -> "minimal"--instance FromJSON UsersThreadsGetFormat where-    parseJSON = parseJSONText "UsersThreadsGetFormat"--instance ToJSON UsersThreadsGetFormat where-    toJSON = toJSONText---- | The action that will be executed on a message after it has been fetched--- via POP.-data PopSettingsDisPosition-    = PSDPArchive-      -- ^ @archive@-    | PSDPDisPositionUnspecified-      -- ^ @dispositionUnspecified@-    | PSDPLeaveInInbox-      -- ^ @leaveInInbox@-    | PSDPMarkRead-      -- ^ @markRead@-    | PSDPTrash-      -- ^ @trash@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable PopSettingsDisPosition--instance FromHttpApiData PopSettingsDisPosition where-    parseQueryParam = \case-        "archive" -> Right PSDPArchive-        "dispositionUnspecified" -> Right PSDPDisPositionUnspecified-        "leaveInInbox" -> Right PSDPLeaveInInbox-        "markRead" -> Right PSDPMarkRead-        "trash" -> Right PSDPTrash-        x -> Left ("Unable to parse PopSettingsDisPosition from: " <> x)--instance ToHttpApiData PopSettingsDisPosition where-    toQueryParam = \case-        PSDPArchive -> "archive"-        PSDPDisPositionUnspecified -> "dispositionUnspecified"-        PSDPLeaveInInbox -> "leaveInInbox"-        PSDPMarkRead -> "markRead"-        PSDPTrash -> "trash"--instance FromJSON PopSettingsDisPosition where-    parseJSON = parseJSONText "PopSettingsDisPosition"--instance ToJSON PopSettingsDisPosition where-    toJSON = toJSONText---- | Filtering behavior of labelIds list specified.-data WatchRequestLabelFilterAction-    = Exclude-      -- ^ @exclude@-    | Include-      -- ^ @include@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable WatchRequestLabelFilterAction--instance FromHttpApiData WatchRequestLabelFilterAction where-    parseQueryParam = \case-        "exclude" -> Right Exclude-        "include" -> Right Include-        x -> Left ("Unable to parse WatchRequestLabelFilterAction from: " <> x)--instance ToHttpApiData WatchRequestLabelFilterAction where-    toQueryParam = \case-        Exclude -> "exclude"-        Include -> "include"--instance FromJSON WatchRequestLabelFilterAction where-    parseJSON = parseJSONText "WatchRequestLabelFilterAction"--instance ToJSON WatchRequestLabelFilterAction where-    toJSON = toJSONText---- | The action that will be executed on a message when it is marked as--- deleted and expunged from the last visible IMAP folder.-data ImapSettingsExpungeBehavior-    = ISEBArchive-      -- ^ @archive@-    | ISEBDeleteForever-      -- ^ @deleteForever@-    | ISEBExpungeBehaviorUnspecified-      -- ^ @expungeBehaviorUnspecified@-    | ISEBTrash-      -- ^ @trash@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ImapSettingsExpungeBehavior--instance FromHttpApiData ImapSettingsExpungeBehavior where-    parseQueryParam = \case-        "archive" -> Right ISEBArchive-        "deleteForever" -> Right ISEBDeleteForever-        "expungeBehaviorUnspecified" -> Right ISEBExpungeBehaviorUnspecified-        "trash" -> Right ISEBTrash-        x -> Left ("Unable to parse ImapSettingsExpungeBehavior from: " <> x)--instance ToHttpApiData ImapSettingsExpungeBehavior where-    toQueryParam = \case-        ISEBArchive -> "archive"-        ISEBDeleteForever -> "deleteForever"-        ISEBExpungeBehaviorUnspecified -> "expungeBehaviorUnspecified"-        ISEBTrash -> "trash"--instance FromJSON ImapSettingsExpungeBehavior where-    parseJSON = parseJSONText "ImapSettingsExpungeBehavior"--instance ToJSON ImapSettingsExpungeBehavior where-    toJSON = toJSONText---- | The protocol that will be used to secure communication with the SMTP--- service. Required.-data SmtpMsaSecurityMode-    = None-      -- ^ @none@-    | SecurityModeUnspecified-      -- ^ @securityModeUnspecified@-    | SSL-      -- ^ @ssl@-    | Starttls-      -- ^ @starttls@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable SmtpMsaSecurityMode--instance FromHttpApiData SmtpMsaSecurityMode where-    parseQueryParam = \case-        "none" -> Right None-        "securityModeUnspecified" -> Right SecurityModeUnspecified-        "ssl" -> Right SSL-        "starttls" -> Right Starttls-        x -> Left ("Unable to parse SmtpMsaSecurityMode from: " <> x)--instance ToHttpApiData SmtpMsaSecurityMode where-    toQueryParam = \case-        None -> "none"-        SecurityModeUnspecified -> "securityModeUnspecified"-        SSL -> "ssl"-        Starttls -> "starttls"--instance FromJSON SmtpMsaSecurityMode where-    parseJSON = parseJSONText "SmtpMsaSecurityMode"--instance ToJSON SmtpMsaSecurityMode where-    toJSON = toJSONText---- | Source for Gmail\'s internal date of the message.-data UsersMessagesInsertInternalDateSource-    = UMIIDSDateHeader-      -- ^ @dateHeader@-    | UMIIDSReceivedTime-      -- ^ @receivedTime@-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersMessagesInsertInternalDateSource--instance FromHttpApiData UsersMessagesInsertInternalDateSource where-    parseQueryParam = \case-        "dateHeader" -> Right UMIIDSDateHeader-        "receivedTime" -> Right UMIIDSReceivedTime-        x -> Left ("Unable to parse UsersMessagesInsertInternalDateSource from: " <> x)--instance ToHttpApiData UsersMessagesInsertInternalDateSource where-    toQueryParam = \case-        UMIIDSDateHeader -> "dateHeader"-        UMIIDSReceivedTime -> "receivedTime"--instance FromJSON UsersMessagesInsertInternalDateSource where-    parseJSON = parseJSONText "UsersMessagesInsertInternalDateSource"--instance ToJSON UsersMessagesInsertInternalDateSource where-    toJSON = toJSONText
− gen/Network/Google/Resource/Gmail/Users/Drafts/Create.hs 
@@ -1,129 +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.Gmail.Users.Drafts.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 draft with the DRAFT label.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.drafts.create@.-module Network.Google.Resource.Gmail.Users.Drafts.Create-    (-    -- * REST Resource-      UsersDraftsCreateResource--    -- * Creating a Request-    , usersDraftsCreate-    , UsersDraftsCreate--    -- * Request Lenses-    , udcPayload-    , udcUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.drafts.create@ method which the--- 'UsersDraftsCreate' request conforms to.-type UsersDraftsCreateResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "drafts" :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] Draft :> Post '[JSON] Draft-       :<|>-       "upload" :>-         "gmail" :>-           "v1" :>-             "users" :>-               Capture "userId" Text :>-                 "drafts" :>-                   QueryParam "alt" AltJSON :>-                     QueryParam "uploadType" Multipart :>-                       MultipartRelated '[JSON] Draft :> Post '[JSON] Draft---- | Creates a new draft with the DRAFT label.------ /See:/ 'usersDraftsCreate' smart constructor.-data UsersDraftsCreate =-  UsersDraftsCreate'-    { _udcPayload :: !Draft-    , _udcUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersDraftsCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'udcPayload'------ * 'udcUserId'-usersDraftsCreate-    :: Draft -- ^ 'udcPayload'-    -> UsersDraftsCreate-usersDraftsCreate pUdcPayload_ =-  UsersDraftsCreate' {_udcPayload = pUdcPayload_, _udcUserId = "me"}----- | Multipart request metadata.-udcPayload :: Lens' UsersDraftsCreate Draft-udcPayload-  = lens _udcPayload (\ s a -> s{_udcPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-udcUserId :: Lens' UsersDraftsCreate Text-udcUserId-  = lens _udcUserId (\ s a -> s{_udcUserId = a})--instance GoogleRequest UsersDraftsCreate where-        type Rs UsersDraftsCreate = Draft-        type Scopes UsersDraftsCreate =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.compose",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersDraftsCreate'{..}-          = go _udcUserId (Just AltJSON) _udcPayload-              gmailService-          where go :<|> _-                  = buildClient-                      (Proxy :: Proxy UsersDraftsCreateResource)-                      mempty--instance GoogleRequest-           (MediaUpload UsersDraftsCreate)-         where-        type Rs (MediaUpload UsersDraftsCreate) = Draft-        type Scopes (MediaUpload UsersDraftsCreate) =-             Scopes UsersDraftsCreate-        requestClient-          (MediaUpload UsersDraftsCreate'{..} body)-          = go _udcUserId (Just AltJSON) (Just Multipart)-              _udcPayload-              body-              gmailService-          where _ :<|> go-                  = buildClient-                      (Proxy :: Proxy UsersDraftsCreateResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Drafts/Delete.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.Gmail.Users.Drafts.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)------ Immediately and permanently deletes the specified draft. Does not simply--- trash it.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.drafts.delete@.-module Network.Google.Resource.Gmail.Users.Drafts.Delete-    (-    -- * REST Resource-      UsersDraftsDeleteResource--    -- * Creating a Request-    , usersDraftsDelete-    , UsersDraftsDelete--    -- * Request Lenses-    , uddUserId-    , uddId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.drafts.delete@ method which the--- 'UsersDraftsDelete' request conforms to.-type UsersDraftsDeleteResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "drafts" :>-               Capture "id" Text :>-                 QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Immediately and permanently deletes the specified draft. Does not simply--- trash it.------ /See:/ 'usersDraftsDelete' smart constructor.-data UsersDraftsDelete =-  UsersDraftsDelete'-    { _uddUserId :: !Text-    , _uddId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersDraftsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uddUserId'------ * 'uddId'-usersDraftsDelete-    :: Text -- ^ 'uddId'-    -> UsersDraftsDelete-usersDraftsDelete pUddId_ =-  UsersDraftsDelete' {_uddUserId = "me", _uddId = pUddId_}----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-uddUserId :: Lens' UsersDraftsDelete Text-uddUserId-  = lens _uddUserId (\ s a -> s{_uddUserId = a})---- | The ID of the draft to delete.-uddId :: Lens' UsersDraftsDelete Text-uddId = lens _uddId (\ s a -> s{_uddId = a})--instance GoogleRequest UsersDraftsDelete where-        type Rs UsersDraftsDelete = ()-        type Scopes UsersDraftsDelete =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.compose",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersDraftsDelete'{..}-          = go _uddUserId _uddId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersDraftsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Drafts/Get.hs 
@@ -1,112 +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.Gmail.Users.Drafts.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the specified draft.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.drafts.get@.-module Network.Google.Resource.Gmail.Users.Drafts.Get-    (-    -- * REST Resource-      UsersDraftsGetResource--    -- * Creating a Request-    , usersDraftsGet-    , UsersDraftsGet--    -- * Request Lenses-    , udgFormat-    , udgUserId-    , udgId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.drafts.get@ method which the--- 'UsersDraftsGet' request conforms to.-type UsersDraftsGetResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "drafts" :>-               Capture "id" Text :>-                 QueryParam "format" UsersDraftsGetFormat :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Draft---- | Gets the specified draft.------ /See:/ 'usersDraftsGet' smart constructor.-data UsersDraftsGet =-  UsersDraftsGet'-    { _udgFormat :: !UsersDraftsGetFormat-    , _udgUserId :: !Text-    , _udgId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersDraftsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'udgFormat'------ * 'udgUserId'------ * 'udgId'-usersDraftsGet-    :: Text -- ^ 'udgId'-    -> UsersDraftsGet-usersDraftsGet pUdgId_ =-  UsersDraftsGet' {_udgFormat = UDGFFull, _udgUserId = "me", _udgId = pUdgId_}----- | The format to return the draft in.-udgFormat :: Lens' UsersDraftsGet UsersDraftsGetFormat-udgFormat-  = lens _udgFormat (\ s a -> s{_udgFormat = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-udgUserId :: Lens' UsersDraftsGet Text-udgUserId-  = lens _udgUserId (\ s a -> s{_udgUserId = a})---- | The ID of the draft to retrieve.-udgId :: Lens' UsersDraftsGet Text-udgId = lens _udgId (\ s a -> s{_udgId = a})--instance GoogleRequest UsersDraftsGet where-        type Rs UsersDraftsGet = Draft-        type Scopes UsersDraftsGet =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.compose",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly"]-        requestClient UsersDraftsGet'{..}-          = go _udgUserId _udgId (Just _udgFormat)-              (Just AltJSON)-              gmailService-          where go-                  = buildClient (Proxy :: Proxy UsersDraftsGetResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Drafts/List.hs 
@@ -1,146 +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.Gmail.Users.Drafts.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 drafts in the user\'s mailbox.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.drafts.list@.-module Network.Google.Resource.Gmail.Users.Drafts.List-    (-    -- * REST Resource-      UsersDraftsListResource--    -- * Creating a Request-    , usersDraftsList-    , UsersDraftsList--    -- * Request Lenses-    , udlQ-    , udlUserId-    , udlIncludeSpamTrash-    , udlPageToken-    , udlMaxResults-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.drafts.list@ method which the--- 'UsersDraftsList' request conforms to.-type UsersDraftsListResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "drafts" :>-               QueryParam "q" Text :>-                 QueryParam "includeSpamTrash" Bool :>-                   QueryParam "pageToken" Text :>-                     QueryParam "maxResults" (Textual Word32) :>-                       QueryParam "alt" AltJSON :>-                         Get '[JSON] ListDraftsResponse---- | Lists the drafts in the user\'s mailbox.------ /See:/ 'usersDraftsList' smart constructor.-data UsersDraftsList =-  UsersDraftsList'-    { _udlQ                :: !(Maybe Text)-    , _udlUserId           :: !Text-    , _udlIncludeSpamTrash :: !Bool-    , _udlPageToken        :: !(Maybe Text)-    , _udlMaxResults       :: !(Textual Word32)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersDraftsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'udlQ'------ * 'udlUserId'------ * 'udlIncludeSpamTrash'------ * 'udlPageToken'------ * 'udlMaxResults'-usersDraftsList-    :: UsersDraftsList-usersDraftsList =-  UsersDraftsList'-    { _udlQ = Nothing-    , _udlUserId = "me"-    , _udlIncludeSpamTrash = False-    , _udlPageToken = Nothing-    , _udlMaxResults = 100-    }----- | Only return draft messages matching the specified query. Supports the--- same query format as the Gmail search box. For example,--- \"from:someuser\'example.com rfc822msgid: is:unread\".-udlQ :: Lens' UsersDraftsList (Maybe Text)-udlQ = lens _udlQ (\ s a -> s{_udlQ = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-udlUserId :: Lens' UsersDraftsList Text-udlUserId-  = lens _udlUserId (\ s a -> s{_udlUserId = a})---- | Include drafts from SPAM and TRASH in the results.-udlIncludeSpamTrash :: Lens' UsersDraftsList Bool-udlIncludeSpamTrash-  = lens _udlIncludeSpamTrash-      (\ s a -> s{_udlIncludeSpamTrash = a})---- | Page token to retrieve a specific page of results in the list.-udlPageToken :: Lens' UsersDraftsList (Maybe Text)-udlPageToken-  = lens _udlPageToken (\ s a -> s{_udlPageToken = a})---- | Maximum number of drafts to return.-udlMaxResults :: Lens' UsersDraftsList Word32-udlMaxResults-  = lens _udlMaxResults-      (\ s a -> s{_udlMaxResults = a})-      . _Coerce--instance GoogleRequest UsersDraftsList where-        type Rs UsersDraftsList = ListDraftsResponse-        type Scopes UsersDraftsList =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.compose",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly"]-        requestClient UsersDraftsList'{..}-          = go _udlUserId _udlQ (Just _udlIncludeSpamTrash)-              _udlPageToken-              (Just _udlMaxResults)-              (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersDraftsListResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Drafts/Send.hs 
@@ -1,132 +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.Gmail.Users.Drafts.Send--- 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)------ Sends the specified, existing draft to the recipients in the To, Cc, and--- Bcc headers.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.drafts.send@.-module Network.Google.Resource.Gmail.Users.Drafts.Send-    (-    -- * REST Resource-      UsersDraftsSendResource--    -- * Creating a Request-    , usersDraftsSend-    , UsersDraftsSend--    -- * Request Lenses-    , udsPayload-    , udsUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.drafts.send@ method which the--- 'UsersDraftsSend' request conforms to.-type UsersDraftsSendResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "drafts" :>-               "send" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Draft :> Post '[JSON] Message-       :<|>-       "upload" :>-         "gmail" :>-           "v1" :>-             "users" :>-               Capture "userId" Text :>-                 "drafts" :>-                   "send" :>-                     QueryParam "alt" AltJSON :>-                       QueryParam "uploadType" Multipart :>-                         MultipartRelated '[JSON] Draft :>-                           Post '[JSON] Message---- | Sends the specified, existing draft to the recipients in the To, Cc, and--- Bcc headers.------ /See:/ 'usersDraftsSend' smart constructor.-data UsersDraftsSend =-  UsersDraftsSend'-    { _udsPayload :: !Draft-    , _udsUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersDraftsSend' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'udsPayload'------ * 'udsUserId'-usersDraftsSend-    :: Draft -- ^ 'udsPayload'-    -> UsersDraftsSend-usersDraftsSend pUdsPayload_ =-  UsersDraftsSend' {_udsPayload = pUdsPayload_, _udsUserId = "me"}----- | Multipart request metadata.-udsPayload :: Lens' UsersDraftsSend Draft-udsPayload-  = lens _udsPayload (\ s a -> s{_udsPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-udsUserId :: Lens' UsersDraftsSend Text-udsUserId-  = lens _udsUserId (\ s a -> s{_udsUserId = a})--instance GoogleRequest UsersDraftsSend where-        type Rs UsersDraftsSend = Message-        type Scopes UsersDraftsSend =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.compose",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersDraftsSend'{..}-          = go _udsUserId (Just AltJSON) _udsPayload-              gmailService-          where go :<|> _-                  = buildClient-                      (Proxy :: Proxy UsersDraftsSendResource)-                      mempty--instance GoogleRequest (MediaUpload UsersDraftsSend)-         where-        type Rs (MediaUpload UsersDraftsSend) = Message-        type Scopes (MediaUpload UsersDraftsSend) =-             Scopes UsersDraftsSend-        requestClient (MediaUpload UsersDraftsSend'{..} body)-          = go _udsUserId (Just AltJSON) (Just Multipart)-              _udsPayload-              body-              gmailService-          where _ :<|> go-                  = buildClient-                      (Proxy :: Proxy UsersDraftsSendResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Drafts/Update.hs 
@@ -1,142 +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.Gmail.Users.Drafts.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)------ Replaces a draft\'s content.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.drafts.update@.-module Network.Google.Resource.Gmail.Users.Drafts.Update-    (-    -- * REST Resource-      UsersDraftsUpdateResource--    -- * Creating a Request-    , usersDraftsUpdate-    , UsersDraftsUpdate--    -- * Request Lenses-    , uduPayload-    , uduUserId-    , uduId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.drafts.update@ method which the--- 'UsersDraftsUpdate' request conforms to.-type UsersDraftsUpdateResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "drafts" :>-               Capture "id" Text :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Draft :> Put '[JSON] Draft-       :<|>-       "upload" :>-         "gmail" :>-           "v1" :>-             "users" :>-               Capture "userId" Text :>-                 "drafts" :>-                   Capture "id" Text :>-                     QueryParam "alt" AltJSON :>-                       QueryParam "uploadType" Multipart :>-                         MultipartRelated '[JSON] Draft :> Put '[JSON] Draft---- | Replaces a draft\'s content.------ /See:/ 'usersDraftsUpdate' smart constructor.-data UsersDraftsUpdate =-  UsersDraftsUpdate'-    { _uduPayload :: !Draft-    , _uduUserId  :: !Text-    , _uduId      :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersDraftsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uduPayload'------ * 'uduUserId'------ * 'uduId'-usersDraftsUpdate-    :: Draft -- ^ 'uduPayload'-    -> Text -- ^ 'uduId'-    -> UsersDraftsUpdate-usersDraftsUpdate pUduPayload_ pUduId_ =-  UsersDraftsUpdate'-    {_uduPayload = pUduPayload_, _uduUserId = "me", _uduId = pUduId_}----- | Multipart request metadata.-uduPayload :: Lens' UsersDraftsUpdate Draft-uduPayload-  = lens _uduPayload (\ s a -> s{_uduPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-uduUserId :: Lens' UsersDraftsUpdate Text-uduUserId-  = lens _uduUserId (\ s a -> s{_uduUserId = a})---- | The ID of the draft to update.-uduId :: Lens' UsersDraftsUpdate Text-uduId = lens _uduId (\ s a -> s{_uduId = a})--instance GoogleRequest UsersDraftsUpdate where-        type Rs UsersDraftsUpdate = Draft-        type Scopes UsersDraftsUpdate =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.compose",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersDraftsUpdate'{..}-          = go _uduUserId _uduId (Just AltJSON) _uduPayload-              gmailService-          where go :<|> _-                  = buildClient-                      (Proxy :: Proxy UsersDraftsUpdateResource)-                      mempty--instance GoogleRequest-           (MediaUpload UsersDraftsUpdate)-         where-        type Rs (MediaUpload UsersDraftsUpdate) = Draft-        type Scopes (MediaUpload UsersDraftsUpdate) =-             Scopes UsersDraftsUpdate-        requestClient-          (MediaUpload UsersDraftsUpdate'{..} body)-          = go _uduUserId _uduId (Just AltJSON)-              (Just Multipart)-              _uduPayload-              body-              gmailService-          where _ :<|> go-                  = buildClient-                      (Proxy :: Proxy UsersDraftsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/GetProFile.hs 
@@ -1,91 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Gmail.Users.GetProFile--- 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 current user\'s Gmail profile.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.getProfile@.-module Network.Google.Resource.Gmail.Users.GetProFile-    (-    -- * REST Resource-      UsersGetProFileResource--    -- * Creating a Request-    , usersGetProFile-    , UsersGetProFile--    -- * Request Lenses-    , ugpfUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.getProfile@ method which the--- 'UsersGetProFile' request conforms to.-type UsersGetProFileResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "profile" :>-               QueryParam "alt" AltJSON :> Get '[JSON] ProFile---- | Gets the current user\'s Gmail profile.------ /See:/ 'usersGetProFile' smart constructor.-newtype UsersGetProFile =-  UsersGetProFile'-    { _ugpfUserId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersGetProFile' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ugpfUserId'-usersGetProFile-    :: UsersGetProFile-usersGetProFile = UsersGetProFile' {_ugpfUserId = "me"}----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-ugpfUserId :: Lens' UsersGetProFile Text-ugpfUserId-  = lens _ugpfUserId (\ s a -> s{_ugpfUserId = a})--instance GoogleRequest UsersGetProFile where-        type Rs UsersGetProFile = ProFile-        type Scopes UsersGetProFile =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.compose",-               "https://www.googleapis.com/auth/gmail.metadata",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly"]-        requestClient UsersGetProFile'{..}-          = go _ugpfUserId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersGetProFileResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/History/List.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.Gmail.Users.History.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 history of all changes to the given mailbox. History results--- are returned in chronological order (increasing historyId).------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.history.list@.-module Network.Google.Resource.Gmail.Users.History.List-    (-    -- * REST Resource-      UsersHistoryListResource--    -- * Creating a Request-    , usersHistoryList-    , UsersHistoryList--    -- * Request Lenses-    , uhlHistoryTypes-    , uhlUserId-    , uhlStartHistoryId-    , uhlPageToken-    , uhlLabelId-    , uhlMaxResults-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.history.list@ method which the--- 'UsersHistoryList' request conforms to.-type UsersHistoryListResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "history" :>-               QueryParams "historyTypes"-                 UsersHistoryListHistoryTypes-                 :>-                 QueryParam "startHistoryId" (Textual Word64) :>-                   QueryParam "pageToken" Text :>-                     QueryParam "labelId" Text :>-                       QueryParam "maxResults" (Textual Word32) :>-                         QueryParam "alt" AltJSON :>-                           Get '[JSON] ListHistoryResponse---- | Lists the history of all changes to the given mailbox. History results--- are returned in chronological order (increasing historyId).------ /See:/ 'usersHistoryList' smart constructor.-data UsersHistoryList =-  UsersHistoryList'-    { _uhlHistoryTypes   :: !(Maybe [UsersHistoryListHistoryTypes])-    , _uhlUserId         :: !Text-    , _uhlStartHistoryId :: !(Maybe (Textual Word64))-    , _uhlPageToken      :: !(Maybe Text)-    , _uhlLabelId        :: !(Maybe Text)-    , _uhlMaxResults     :: !(Textual Word32)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersHistoryList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uhlHistoryTypes'------ * 'uhlUserId'------ * 'uhlStartHistoryId'------ * 'uhlPageToken'------ * 'uhlLabelId'------ * 'uhlMaxResults'-usersHistoryList-    :: UsersHistoryList-usersHistoryList =-  UsersHistoryList'-    { _uhlHistoryTypes = Nothing-    , _uhlUserId = "me"-    , _uhlStartHistoryId = Nothing-    , _uhlPageToken = Nothing-    , _uhlLabelId = Nothing-    , _uhlMaxResults = 100-    }----- | History types to be returned by the function-uhlHistoryTypes :: Lens' UsersHistoryList [UsersHistoryListHistoryTypes]-uhlHistoryTypes-  = lens _uhlHistoryTypes-      (\ s a -> s{_uhlHistoryTypes = a})-      . _Default-      . _Coerce---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-uhlUserId :: Lens' UsersHistoryList Text-uhlUserId-  = lens _uhlUserId (\ s a -> s{_uhlUserId = a})---- | Required. Returns history records after the specified startHistoryId.--- The supplied startHistoryId should be obtained from the historyId of a--- message, thread, or previous list response. History IDs increase--- chronologically but are not contiguous with random gaps in between valid--- IDs. Supplying an invalid or out of date startHistoryId typically--- returns an HTTP 404 error code. A historyId is typically valid for at--- least a week, but in some rare circumstances may be valid for only a few--- hours. If you receive an HTTP 404 error response, your application--- should perform a full sync. If you receive no nextPageToken in the--- response, there are no updates to retrieve and you can store the--- returned historyId for a future request.-uhlStartHistoryId :: Lens' UsersHistoryList (Maybe Word64)-uhlStartHistoryId-  = lens _uhlStartHistoryId-      (\ s a -> s{_uhlStartHistoryId = a})-      . mapping _Coerce---- | Page token to retrieve a specific page of results in the list.-uhlPageToken :: Lens' UsersHistoryList (Maybe Text)-uhlPageToken-  = lens _uhlPageToken (\ s a -> s{_uhlPageToken = a})---- | Only return messages with a label matching the ID.-uhlLabelId :: Lens' UsersHistoryList (Maybe Text)-uhlLabelId-  = lens _uhlLabelId (\ s a -> s{_uhlLabelId = a})---- | The maximum number of history records to return.-uhlMaxResults :: Lens' UsersHistoryList Word32-uhlMaxResults-  = lens _uhlMaxResults-      (\ s a -> s{_uhlMaxResults = a})-      . _Coerce--instance GoogleRequest UsersHistoryList where-        type Rs UsersHistoryList = ListHistoryResponse-        type Scopes UsersHistoryList =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.metadata",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly"]-        requestClient UsersHistoryList'{..}-          = go _uhlUserId (_uhlHistoryTypes ^. _Default)-              _uhlStartHistoryId-              _uhlPageToken-              _uhlLabelId-              (Just _uhlMaxResults)-              (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersHistoryListResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Labels/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.Gmail.Users.Labels.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 label.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.labels.create@.-module Network.Google.Resource.Gmail.Users.Labels.Create-    (-    -- * REST Resource-      UsersLabelsCreateResource--    -- * Creating a Request-    , usersLabelsCreate-    , UsersLabelsCreate--    -- * Request Lenses-    , ulcPayload-    , ulcUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.labels.create@ method which the--- 'UsersLabelsCreate' request conforms to.-type UsersLabelsCreateResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "labels" :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] Label :> Post '[JSON] Label---- | Creates a new label.------ /See:/ 'usersLabelsCreate' smart constructor.-data UsersLabelsCreate =-  UsersLabelsCreate'-    { _ulcPayload :: !Label-    , _ulcUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersLabelsCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ulcPayload'------ * 'ulcUserId'-usersLabelsCreate-    :: Label -- ^ 'ulcPayload'-    -> UsersLabelsCreate-usersLabelsCreate pUlcPayload_ =-  UsersLabelsCreate' {_ulcPayload = pUlcPayload_, _ulcUserId = "me"}----- | Multipart request metadata.-ulcPayload :: Lens' UsersLabelsCreate Label-ulcPayload-  = lens _ulcPayload (\ s a -> s{_ulcPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-ulcUserId :: Lens' UsersLabelsCreate Text-ulcUserId-  = lens _ulcUserId (\ s a -> s{_ulcUserId = a})--instance GoogleRequest UsersLabelsCreate where-        type Rs UsersLabelsCreate = Label-        type Scopes UsersLabelsCreate =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.labels",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersLabelsCreate'{..}-          = go _ulcUserId (Just AltJSON) _ulcPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersLabelsCreateResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Labels/Delete.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.Gmail.Users.Labels.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)------ Immediately and permanently deletes the specified label and removes it--- from any messages and threads that it is applied to.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.labels.delete@.-module Network.Google.Resource.Gmail.Users.Labels.Delete-    (-    -- * REST Resource-      UsersLabelsDeleteResource--    -- * Creating a Request-    , usersLabelsDelete-    , UsersLabelsDelete--    -- * Request Lenses-    , uldUserId-    , uldId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.labels.delete@ method which the--- 'UsersLabelsDelete' request conforms to.-type UsersLabelsDeleteResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "labels" :>-               Capture "id" Text :>-                 QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Immediately and permanently deletes the specified label and removes it--- from any messages and threads that it is applied to.------ /See:/ 'usersLabelsDelete' smart constructor.-data UsersLabelsDelete =-  UsersLabelsDelete'-    { _uldUserId :: !Text-    , _uldId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersLabelsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uldUserId'------ * 'uldId'-usersLabelsDelete-    :: Text -- ^ 'uldId'-    -> UsersLabelsDelete-usersLabelsDelete pUldId_ =-  UsersLabelsDelete' {_uldUserId = "me", _uldId = pUldId_}----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-uldUserId :: Lens' UsersLabelsDelete Text-uldUserId-  = lens _uldUserId (\ s a -> s{_uldUserId = a})---- | The ID of the label to delete.-uldId :: Lens' UsersLabelsDelete Text-uldId = lens _uldId (\ s a -> s{_uldId = a})--instance GoogleRequest UsersLabelsDelete where-        type Rs UsersLabelsDelete = ()-        type Scopes UsersLabelsDelete =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.labels",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersLabelsDelete'{..}-          = go _uldUserId _uldId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersLabelsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Labels/Get.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.Gmail.Users.Labels.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the specified label.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.labels.get@.-module Network.Google.Resource.Gmail.Users.Labels.Get-    (-    -- * REST Resource-      UsersLabelsGetResource--    -- * Creating a Request-    , usersLabelsGet-    , UsersLabelsGet--    -- * Request Lenses-    , ulgUserId-    , ulgId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.labels.get@ method which the--- 'UsersLabelsGet' request conforms to.-type UsersLabelsGetResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "labels" :>-               Capture "id" Text :>-                 QueryParam "alt" AltJSON :> Get '[JSON] Label---- | Gets the specified label.------ /See:/ 'usersLabelsGet' smart constructor.-data UsersLabelsGet =-  UsersLabelsGet'-    { _ulgUserId :: !Text-    , _ulgId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersLabelsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ulgUserId'------ * 'ulgId'-usersLabelsGet-    :: Text -- ^ 'ulgId'-    -> UsersLabelsGet-usersLabelsGet pUlgId_ = UsersLabelsGet' {_ulgUserId = "me", _ulgId = pUlgId_}----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-ulgUserId :: Lens' UsersLabelsGet Text-ulgUserId-  = lens _ulgUserId (\ s a -> s{_ulgUserId = a})---- | The ID of the label to retrieve.-ulgId :: Lens' UsersLabelsGet Text-ulgId = lens _ulgId (\ s a -> s{_ulgId = a})--instance GoogleRequest UsersLabelsGet where-        type Rs UsersLabelsGet = Label-        type Scopes UsersLabelsGet =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.labels",-               "https://www.googleapis.com/auth/gmail.metadata",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly"]-        requestClient UsersLabelsGet'{..}-          = go _ulgUserId _ulgId (Just AltJSON) gmailService-          where go-                  = buildClient (Proxy :: Proxy UsersLabelsGetResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Labels/List.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.Gmail.Users.Labels.List--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Lists all labels in the user\'s mailbox.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.labels.list@.-module Network.Google.Resource.Gmail.Users.Labels.List-    (-    -- * REST Resource-      UsersLabelsListResource--    -- * Creating a Request-    , usersLabelsList-    , UsersLabelsList--    -- * Request Lenses-    , ullUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.labels.list@ method which the--- 'UsersLabelsList' request conforms to.-type UsersLabelsListResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "labels" :>-               QueryParam "alt" AltJSON :>-                 Get '[JSON] ListLabelsResponse---- | Lists all labels in the user\'s mailbox.------ /See:/ 'usersLabelsList' smart constructor.-newtype UsersLabelsList =-  UsersLabelsList'-    { _ullUserId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersLabelsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ullUserId'-usersLabelsList-    :: UsersLabelsList-usersLabelsList = UsersLabelsList' {_ullUserId = "me"}----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-ullUserId :: Lens' UsersLabelsList Text-ullUserId-  = lens _ullUserId (\ s a -> s{_ullUserId = a})--instance GoogleRequest UsersLabelsList where-        type Rs UsersLabelsList = ListLabelsResponse-        type Scopes UsersLabelsList =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.labels",-               "https://www.googleapis.com/auth/gmail.metadata",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly"]-        requestClient UsersLabelsList'{..}-          = go _ullUserId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersLabelsListResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Labels/Patch.hs 
@@ -1,113 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Gmail.Users.Labels.Patch--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Updates the specified label. This method supports patch semantics.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.labels.patch@.-module Network.Google.Resource.Gmail.Users.Labels.Patch-    (-    -- * REST Resource-      UsersLabelsPatchResource--    -- * Creating a Request-    , usersLabelsPatch-    , UsersLabelsPatch--    -- * Request Lenses-    , ulpPayload-    , ulpUserId-    , ulpId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.labels.patch@ method which the--- 'UsersLabelsPatch' request conforms to.-type UsersLabelsPatchResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "labels" :>-               Capture "id" Text :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Label :> Patch '[JSON] Label---- | Updates the specified label. This method supports patch semantics.------ /See:/ 'usersLabelsPatch' smart constructor.-data UsersLabelsPatch =-  UsersLabelsPatch'-    { _ulpPayload :: !Label-    , _ulpUserId  :: !Text-    , _ulpId      :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersLabelsPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ulpPayload'------ * 'ulpUserId'------ * 'ulpId'-usersLabelsPatch-    :: Label -- ^ 'ulpPayload'-    -> Text -- ^ 'ulpId'-    -> UsersLabelsPatch-usersLabelsPatch pUlpPayload_ pUlpId_ =-  UsersLabelsPatch'-    {_ulpPayload = pUlpPayload_, _ulpUserId = "me", _ulpId = pUlpId_}----- | Multipart request metadata.-ulpPayload :: Lens' UsersLabelsPatch Label-ulpPayload-  = lens _ulpPayload (\ s a -> s{_ulpPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-ulpUserId :: Lens' UsersLabelsPatch Text-ulpUserId-  = lens _ulpUserId (\ s a -> s{_ulpUserId = a})---- | The ID of the label to update.-ulpId :: Lens' UsersLabelsPatch Text-ulpId = lens _ulpId (\ s a -> s{_ulpId = a})--instance GoogleRequest UsersLabelsPatch where-        type Rs UsersLabelsPatch = Label-        type Scopes UsersLabelsPatch =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.labels",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersLabelsPatch'{..}-          = go _ulpUserId _ulpId (Just AltJSON) _ulpPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersLabelsPatchResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Labels/Update.hs 
@@ -1,113 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Gmail.Users.Labels.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 specified label.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.labels.update@.-module Network.Google.Resource.Gmail.Users.Labels.Update-    (-    -- * REST Resource-      UsersLabelsUpdateResource--    -- * Creating a Request-    , usersLabelsUpdate-    , UsersLabelsUpdate--    -- * Request Lenses-    , uluPayload-    , uluUserId-    , uluId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.labels.update@ method which the--- 'UsersLabelsUpdate' request conforms to.-type UsersLabelsUpdateResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "labels" :>-               Capture "id" Text :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Label :> Put '[JSON] Label---- | Updates the specified label.------ /See:/ 'usersLabelsUpdate' smart constructor.-data UsersLabelsUpdate =-  UsersLabelsUpdate'-    { _uluPayload :: !Label-    , _uluUserId  :: !Text-    , _uluId      :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersLabelsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uluPayload'------ * 'uluUserId'------ * 'uluId'-usersLabelsUpdate-    :: Label -- ^ 'uluPayload'-    -> Text -- ^ 'uluId'-    -> UsersLabelsUpdate-usersLabelsUpdate pUluPayload_ pUluId_ =-  UsersLabelsUpdate'-    {_uluPayload = pUluPayload_, _uluUserId = "me", _uluId = pUluId_}----- | Multipart request metadata.-uluPayload :: Lens' UsersLabelsUpdate Label-uluPayload-  = lens _uluPayload (\ s a -> s{_uluPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-uluUserId :: Lens' UsersLabelsUpdate Text-uluUserId-  = lens _uluUserId (\ s a -> s{_uluUserId = a})---- | The ID of the label to update.-uluId :: Lens' UsersLabelsUpdate Text-uluId = lens _uluId (\ s a -> s{_uluId = a})--instance GoogleRequest UsersLabelsUpdate where-        type Rs UsersLabelsUpdate = Label-        type Scopes UsersLabelsUpdate =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.labels",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersLabelsUpdate'{..}-          = go _uluUserId _uluId (Just AltJSON) _uluPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersLabelsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Messages/Attachments/Get.hs 
@@ -1,118 +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.Gmail.Users.Messages.Attachments.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the specified message attachment.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.attachments.get@.-module Network.Google.Resource.Gmail.Users.Messages.Attachments.Get-    (-    -- * REST Resource-      UsersMessagesAttachmentsGetResource--    -- * Creating a Request-    , usersMessagesAttachmentsGet-    , UsersMessagesAttachmentsGet--    -- * Request Lenses-    , umagUserId-    , umagId-    , umagMessageId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.messages.attachments.get@ method which the--- 'UsersMessagesAttachmentsGet' request conforms to.-type UsersMessagesAttachmentsGetResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "messages" :>-               Capture "messageId" Text :>-                 "attachments" :>-                   Capture "id" Text :>-                     QueryParam "alt" AltJSON :>-                       Get '[JSON] MessagePartBody---- | Gets the specified message attachment.------ /See:/ 'usersMessagesAttachmentsGet' smart constructor.-data UsersMessagesAttachmentsGet =-  UsersMessagesAttachmentsGet'-    { _umagUserId    :: !Text-    , _umagId        :: !Text-    , _umagMessageId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersMessagesAttachmentsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'umagUserId'------ * 'umagId'------ * 'umagMessageId'-usersMessagesAttachmentsGet-    :: Text -- ^ 'umagId'-    -> Text -- ^ 'umagMessageId'-    -> UsersMessagesAttachmentsGet-usersMessagesAttachmentsGet pUmagId_ pUmagMessageId_ =-  UsersMessagesAttachmentsGet'-    {_umagUserId = "me", _umagId = pUmagId_, _umagMessageId = pUmagMessageId_}----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-umagUserId :: Lens' UsersMessagesAttachmentsGet Text-umagUserId-  = lens _umagUserId (\ s a -> s{_umagUserId = a})---- | The ID of the attachment.-umagId :: Lens' UsersMessagesAttachmentsGet Text-umagId = lens _umagId (\ s a -> s{_umagId = a})---- | The ID of the message containing the attachment.-umagMessageId :: Lens' UsersMessagesAttachmentsGet Text-umagMessageId-  = lens _umagMessageId-      (\ s a -> s{_umagMessageId = a})--instance GoogleRequest UsersMessagesAttachmentsGet-         where-        type Rs UsersMessagesAttachmentsGet = MessagePartBody-        type Scopes UsersMessagesAttachmentsGet =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly"]-        requestClient UsersMessagesAttachmentsGet'{..}-          = go _umagUserId _umagMessageId _umagId-              (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersMessagesAttachmentsGetResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Messages/BatchDelete.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.Gmail.Users.Messages.BatchDelete--- 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 many messages by message ID. Provides no guarantees that--- messages were not already deleted or even existed at all.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.batchDelete@.-module Network.Google.Resource.Gmail.Users.Messages.BatchDelete-    (-    -- * REST Resource-      UsersMessagesBatchDeleteResource--    -- * Creating a Request-    , usersMessagesBatchDelete-    , UsersMessagesBatchDelete--    -- * Request Lenses-    , umbdPayload-    , umbdUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.messages.batchDelete@ method which the--- 'UsersMessagesBatchDelete' request conforms to.-type UsersMessagesBatchDeleteResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "messages" :>-               "batchDelete" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] BatchDeleteMessagesRequest :>-                     Post '[JSON] ()---- | Deletes many messages by message ID. Provides no guarantees that--- messages were not already deleted or even existed at all.------ /See:/ 'usersMessagesBatchDelete' smart constructor.-data UsersMessagesBatchDelete =-  UsersMessagesBatchDelete'-    { _umbdPayload :: !BatchDeleteMessagesRequest-    , _umbdUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersMessagesBatchDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'umbdPayload'------ * 'umbdUserId'-usersMessagesBatchDelete-    :: BatchDeleteMessagesRequest -- ^ 'umbdPayload'-    -> UsersMessagesBatchDelete-usersMessagesBatchDelete pUmbdPayload_ =-  UsersMessagesBatchDelete' {_umbdPayload = pUmbdPayload_, _umbdUserId = "me"}----- | Multipart request metadata.-umbdPayload :: Lens' UsersMessagesBatchDelete BatchDeleteMessagesRequest-umbdPayload-  = lens _umbdPayload (\ s a -> s{_umbdPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-umbdUserId :: Lens' UsersMessagesBatchDelete Text-umbdUserId-  = lens _umbdUserId (\ s a -> s{_umbdUserId = a})--instance GoogleRequest UsersMessagesBatchDelete where-        type Rs UsersMessagesBatchDelete = ()-        type Scopes UsersMessagesBatchDelete =-             '["https://mail.google.com/"]-        requestClient UsersMessagesBatchDelete'{..}-          = go _umbdUserId (Just AltJSON) _umbdPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersMessagesBatchDeleteResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Messages/BatchModify.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.Gmail.Users.Messages.BatchModify--- 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)------ Modifies the labels on the specified messages.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.batchModify@.-module Network.Google.Resource.Gmail.Users.Messages.BatchModify-    (-    -- * REST Resource-      UsersMessagesBatchModifyResource--    -- * Creating a Request-    , usersMessagesBatchModify-    , UsersMessagesBatchModify--    -- * Request Lenses-    , umbmPayload-    , umbmUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.messages.batchModify@ method which the--- 'UsersMessagesBatchModify' request conforms to.-type UsersMessagesBatchModifyResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "messages" :>-               "batchModify" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] BatchModifyMessagesRequest :>-                     Post '[JSON] ()---- | Modifies the labels on the specified messages.------ /See:/ 'usersMessagesBatchModify' smart constructor.-data UsersMessagesBatchModify =-  UsersMessagesBatchModify'-    { _umbmPayload :: !BatchModifyMessagesRequest-    , _umbmUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersMessagesBatchModify' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'umbmPayload'------ * 'umbmUserId'-usersMessagesBatchModify-    :: BatchModifyMessagesRequest -- ^ 'umbmPayload'-    -> UsersMessagesBatchModify-usersMessagesBatchModify pUmbmPayload_ =-  UsersMessagesBatchModify' {_umbmPayload = pUmbmPayload_, _umbmUserId = "me"}----- | Multipart request metadata.-umbmPayload :: Lens' UsersMessagesBatchModify BatchModifyMessagesRequest-umbmPayload-  = lens _umbmPayload (\ s a -> s{_umbmPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-umbmUserId :: Lens' UsersMessagesBatchModify Text-umbmUserId-  = lens _umbmUserId (\ s a -> s{_umbmUserId = a})--instance GoogleRequest UsersMessagesBatchModify where-        type Rs UsersMessagesBatchModify = ()-        type Scopes UsersMessagesBatchModify =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersMessagesBatchModify'{..}-          = go _umbmUserId (Just AltJSON) _umbmPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersMessagesBatchModifyResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Messages/Delete.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.Gmail.Users.Messages.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)------ Immediately and permanently deletes the specified message. This--- operation cannot be undone. Prefer messages.trash instead.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.delete@.-module Network.Google.Resource.Gmail.Users.Messages.Delete-    (-    -- * REST Resource-      UsersMessagesDeleteResource--    -- * Creating a Request-    , usersMessagesDelete-    , UsersMessagesDelete--    -- * Request Lenses-    , umdUserId-    , umdId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.messages.delete@ method which the--- 'UsersMessagesDelete' request conforms to.-type UsersMessagesDeleteResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "messages" :>-               Capture "id" Text :>-                 QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Immediately and permanently deletes the specified message. This--- operation cannot be undone. Prefer messages.trash instead.------ /See:/ 'usersMessagesDelete' smart constructor.-data UsersMessagesDelete =-  UsersMessagesDelete'-    { _umdUserId :: !Text-    , _umdId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersMessagesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'umdUserId'------ * 'umdId'-usersMessagesDelete-    :: Text -- ^ 'umdId'-    -> UsersMessagesDelete-usersMessagesDelete pUmdId_ =-  UsersMessagesDelete' {_umdUserId = "me", _umdId = pUmdId_}----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-umdUserId :: Lens' UsersMessagesDelete Text-umdUserId-  = lens _umdUserId (\ s a -> s{_umdUserId = a})---- | The ID of the message to delete.-umdId :: Lens' UsersMessagesDelete Text-umdId = lens _umdId (\ s a -> s{_umdId = a})--instance GoogleRequest UsersMessagesDelete where-        type Rs UsersMessagesDelete = ()-        type Scopes UsersMessagesDelete =-             '["https://mail.google.com/"]-        requestClient UsersMessagesDelete'{..}-          = go _umdUserId _umdId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersMessagesDeleteResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Messages/Get.hs 
@@ -1,132 +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.Gmail.Users.Messages.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the specified message.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.get@.-module Network.Google.Resource.Gmail.Users.Messages.Get-    (-    -- * REST Resource-      UsersMessagesGetResource--    -- * Creating a Request-    , usersMessagesGet-    , UsersMessagesGet--    -- * Request Lenses-    , umgFormat-    , umgUserId-    , umgId-    , umgMetadataHeaders-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.messages.get@ method which the--- 'UsersMessagesGet' request conforms to.-type UsersMessagesGetResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "messages" :>-               Capture "id" Text :>-                 QueryParam "format" UsersMessagesGetFormat :>-                   QueryParams "metadataHeaders" Text :>-                     QueryParam "alt" AltJSON :> Get '[JSON] Message---- | Gets the specified message.------ /See:/ 'usersMessagesGet' smart constructor.-data UsersMessagesGet =-  UsersMessagesGet'-    { _umgFormat          :: !UsersMessagesGetFormat-    , _umgUserId          :: !Text-    , _umgId              :: !Text-    , _umgMetadataHeaders :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersMessagesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'umgFormat'------ * 'umgUserId'------ * 'umgId'------ * 'umgMetadataHeaders'-usersMessagesGet-    :: Text -- ^ 'umgId'-    -> UsersMessagesGet-usersMessagesGet pUmgId_ =-  UsersMessagesGet'-    { _umgFormat = Full-    , _umgUserId = "me"-    , _umgId = pUmgId_-    , _umgMetadataHeaders = Nothing-    }----- | The format to return the message in.-umgFormat :: Lens' UsersMessagesGet UsersMessagesGetFormat-umgFormat-  = lens _umgFormat (\ s a -> s{_umgFormat = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-umgUserId :: Lens' UsersMessagesGet Text-umgUserId-  = lens _umgUserId (\ s a -> s{_umgUserId = a})---- | The ID of the message to retrieve.-umgId :: Lens' UsersMessagesGet Text-umgId = lens _umgId (\ s a -> s{_umgId = a})---- | When given and format is METADATA, only include headers specified.-umgMetadataHeaders :: Lens' UsersMessagesGet [Text]-umgMetadataHeaders-  = lens _umgMetadataHeaders-      (\ s a -> s{_umgMetadataHeaders = a})-      . _Default-      . _Coerce--instance GoogleRequest UsersMessagesGet where-        type Rs UsersMessagesGet = Message-        type Scopes UsersMessagesGet =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.metadata",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly"]-        requestClient UsersMessagesGet'{..}-          = go _umgUserId _umgId (Just _umgFormat)-              (_umgMetadataHeaders ^. _Default)-              (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersMessagesGetResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs 
@@ -1,207 +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.Gmail.Users.Messages.Import--- 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)------ Imports a message into only this user\'s mailbox, with standard email--- delivery scanning and classification similar to receiving via SMTP. Does--- not send a message.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.import@.-module Network.Google.Resource.Gmail.Users.Messages.Import-    (-    -- * REST Resource-      UsersMessagesImportResource--    -- * Creating a Request-    , usersMessagesImport-    , UsersMessagesImport--    -- * Request Lenses-    , umiPayload-    , umiUserId-    , umiProcessForCalendar-    , umiDeleted-    , umiNeverMarkSpam-    , umiInternalDateSource-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.messages.import@ method which the--- 'UsersMessagesImport' request conforms to.-type UsersMessagesImportResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "messages" :>-               "import" :>-                 QueryParam "processForCalendar" Bool :>-                   QueryParam "deleted" Bool :>-                     QueryParam "neverMarkSpam" Bool :>-                       QueryParam "internalDateSource"-                         UsersMessagesImportInternalDateSource-                         :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON] Message :> Post '[JSON] Message-       :<|>-       "upload" :>-         "gmail" :>-           "v1" :>-             "users" :>-               Capture "userId" Text :>-                 "messages" :>-                   "import" :>-                     QueryParam "processForCalendar" Bool :>-                       QueryParam "deleted" Bool :>-                         QueryParam "neverMarkSpam" Bool :>-                           QueryParam "internalDateSource"-                             UsersMessagesImportInternalDateSource-                             :>-                             QueryParam "alt" AltJSON :>-                               QueryParam "uploadType" Multipart :>-                                 MultipartRelated '[JSON] Message :>-                                   Post '[JSON] Message---- | Imports a message into only this user\'s mailbox, with standard email--- delivery scanning and classification similar to receiving via SMTP. Does--- not send a message.------ /See:/ 'usersMessagesImport' smart constructor.-data UsersMessagesImport =-  UsersMessagesImport'-    { _umiPayload            :: !Message-    , _umiUserId             :: !Text-    , _umiProcessForCalendar :: !Bool-    , _umiDeleted            :: !Bool-    , _umiNeverMarkSpam      :: !Bool-    , _umiInternalDateSource :: !UsersMessagesImportInternalDateSource-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersMessagesImport' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'umiPayload'------ * 'umiUserId'------ * 'umiProcessForCalendar'------ * 'umiDeleted'------ * 'umiNeverMarkSpam'------ * 'umiInternalDateSource'-usersMessagesImport-    :: Message -- ^ 'umiPayload'-    -> UsersMessagesImport-usersMessagesImport pUmiPayload_ =-  UsersMessagesImport'-    { _umiPayload = pUmiPayload_-    , _umiUserId = "me"-    , _umiProcessForCalendar = False-    , _umiDeleted = False-    , _umiNeverMarkSpam = False-    , _umiInternalDateSource = DateHeader-    }----- | Multipart request metadata.-umiPayload :: Lens' UsersMessagesImport Message-umiPayload-  = lens _umiPayload (\ s a -> s{_umiPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-umiUserId :: Lens' UsersMessagesImport Text-umiUserId-  = lens _umiUserId (\ s a -> s{_umiUserId = a})---- | Process calendar invites in the email and add any extracted meetings to--- the Google Calendar for this user.-umiProcessForCalendar :: Lens' UsersMessagesImport Bool-umiProcessForCalendar-  = lens _umiProcessForCalendar-      (\ s a -> s{_umiProcessForCalendar = a})---- | Mark the email as permanently deleted (not TRASH) and only visible in--- Google Vault to a Vault administrator. Only used for G Suite accounts.-umiDeleted :: Lens' UsersMessagesImport Bool-umiDeleted-  = lens _umiDeleted (\ s a -> s{_umiDeleted = a})---- | Ignore the Gmail spam classifier decision and never mark this email as--- SPAM in the mailbox.-umiNeverMarkSpam :: Lens' UsersMessagesImport Bool-umiNeverMarkSpam-  = lens _umiNeverMarkSpam-      (\ s a -> s{_umiNeverMarkSpam = a})---- | Source for Gmail\'s internal date of the message.-umiInternalDateSource :: Lens' UsersMessagesImport UsersMessagesImportInternalDateSource-umiInternalDateSource-  = lens _umiInternalDateSource-      (\ s a -> s{_umiInternalDateSource = a})--instance GoogleRequest UsersMessagesImport where-        type Rs UsersMessagesImport = Message-        type Scopes UsersMessagesImport =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.insert",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersMessagesImport'{..}-          = go _umiUserId (Just _umiProcessForCalendar)-              (Just _umiDeleted)-              (Just _umiNeverMarkSpam)-              (Just _umiInternalDateSource)-              (Just AltJSON)-              _umiPayload-              gmailService-          where go :<|> _-                  = buildClient-                      (Proxy :: Proxy UsersMessagesImportResource)-                      mempty--instance GoogleRequest-           (MediaUpload UsersMessagesImport)-         where-        type Rs (MediaUpload UsersMessagesImport) = Message-        type Scopes (MediaUpload UsersMessagesImport) =-             Scopes UsersMessagesImport-        requestClient-          (MediaUpload UsersMessagesImport'{..} body)-          = go _umiUserId (Just _umiProcessForCalendar)-              (Just _umiDeleted)-              (Just _umiNeverMarkSpam)-              (Just _umiInternalDateSource)-              (Just AltJSON)-              (Just Multipart)-              _umiPayload-              body-              gmailService-          where _ :<|> go-                  = buildClient-                      (Proxy :: Proxy UsersMessagesImportResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs 
@@ -1,170 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Gmail.Users.Messages.Insert--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Directly inserts a message into only this user\'s mailbox similar to--- IMAP APPEND, bypassing most scanning and classification. Does not send a--- message.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.insert@.-module Network.Google.Resource.Gmail.Users.Messages.Insert-    (-    -- * REST Resource-      UsersMessagesInsertResource--    -- * Creating a Request-    , usersMessagesInsert-    , UsersMessagesInsert--    -- * Request Lenses-    , uPayload-    , uUserId-    , uDeleted-    , uInternalDateSource-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.messages.insert@ method which the--- 'UsersMessagesInsert' request conforms to.-type UsersMessagesInsertResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "messages" :>-               QueryParam "deleted" Bool :>-                 QueryParam "internalDateSource"-                   UsersMessagesInsertInternalDateSource-                   :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Message :> Post '[JSON] Message-       :<|>-       "upload" :>-         "gmail" :>-           "v1" :>-             "users" :>-               Capture "userId" Text :>-                 "messages" :>-                   QueryParam "deleted" Bool :>-                     QueryParam "internalDateSource"-                       UsersMessagesInsertInternalDateSource-                       :>-                       QueryParam "alt" AltJSON :>-                         QueryParam "uploadType" Multipart :>-                           MultipartRelated '[JSON] Message :>-                             Post '[JSON] Message---- | Directly inserts a message into only this user\'s mailbox similar to--- IMAP APPEND, bypassing most scanning and classification. Does not send a--- message.------ /See:/ 'usersMessagesInsert' smart constructor.-data UsersMessagesInsert =-  UsersMessagesInsert'-    { _uPayload            :: !Message-    , _uUserId             :: !Text-    , _uDeleted            :: !Bool-    , _uInternalDateSource :: !UsersMessagesInsertInternalDateSource-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersMessagesInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uPayload'------ * 'uUserId'------ * 'uDeleted'------ * 'uInternalDateSource'-usersMessagesInsert-    :: Message -- ^ 'uPayload'-    -> UsersMessagesInsert-usersMessagesInsert pUPayload_ =-  UsersMessagesInsert'-    { _uPayload = pUPayload_-    , _uUserId = "me"-    , _uDeleted = False-    , _uInternalDateSource = UMIIDSReceivedTime-    }----- | Multipart request metadata.-uPayload :: Lens' UsersMessagesInsert Message-uPayload = lens _uPayload (\ s a -> s{_uPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-uUserId :: Lens' UsersMessagesInsert Text-uUserId = lens _uUserId (\ s a -> s{_uUserId = a})---- | Mark the email as permanently deleted (not TRASH) and only visible in--- Google Vault to a Vault administrator. Only used for G Suite accounts.-uDeleted :: Lens' UsersMessagesInsert Bool-uDeleted = lens _uDeleted (\ s a -> s{_uDeleted = a})---- | Source for Gmail\'s internal date of the message.-uInternalDateSource :: Lens' UsersMessagesInsert UsersMessagesInsertInternalDateSource-uInternalDateSource-  = lens _uInternalDateSource-      (\ s a -> s{_uInternalDateSource = a})--instance GoogleRequest UsersMessagesInsert where-        type Rs UsersMessagesInsert = Message-        type Scopes UsersMessagesInsert =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.insert",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersMessagesInsert'{..}-          = go _uUserId (Just _uDeleted)-              (Just _uInternalDateSource)-              (Just AltJSON)-              _uPayload-              gmailService-          where go :<|> _-                  = buildClient-                      (Proxy :: Proxy UsersMessagesInsertResource)-                      mempty--instance GoogleRequest-           (MediaUpload UsersMessagesInsert)-         where-        type Rs (MediaUpload UsersMessagesInsert) = Message-        type Scopes (MediaUpload UsersMessagesInsert) =-             Scopes UsersMessagesInsert-        requestClient-          (MediaUpload UsersMessagesInsert'{..} body)-          = go _uUserId (Just _uDeleted)-              (Just _uInternalDateSource)-              (Just AltJSON)-              (Just Multipart)-              _uPayload-              body-              gmailService-          where _ :<|> go-                  = buildClient-                      (Proxy :: Proxy UsersMessagesInsertResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Messages/List.hs 
@@ -1,162 +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.Gmail.Users.Messages.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 messages in the user\'s mailbox.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.list@.-module Network.Google.Resource.Gmail.Users.Messages.List-    (-    -- * REST Resource-      UsersMessagesListResource--    -- * Creating a Request-    , usersMessagesList-    , UsersMessagesList--    -- * Request Lenses-    , umlQ-    , umlUserId-    , umlIncludeSpamTrash-    , umlLabelIds-    , umlPageToken-    , umlMaxResults-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.messages.list@ method which the--- 'UsersMessagesList' request conforms to.-type UsersMessagesListResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "messages" :>-               QueryParam "q" Text :>-                 QueryParam "includeSpamTrash" Bool :>-                   QueryParams "labelIds" Text :>-                     QueryParam "pageToken" Text :>-                       QueryParam "maxResults" (Textual Word32) :>-                         QueryParam "alt" AltJSON :>-                           Get '[JSON] ListMessagesResponse---- | Lists the messages in the user\'s mailbox.------ /See:/ 'usersMessagesList' smart constructor.-data UsersMessagesList =-  UsersMessagesList'-    { _umlQ                :: !(Maybe Text)-    , _umlUserId           :: !Text-    , _umlIncludeSpamTrash :: !Bool-    , _umlLabelIds         :: !(Maybe [Text])-    , _umlPageToken        :: !(Maybe Text)-    , _umlMaxResults       :: !(Textual Word32)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersMessagesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'umlQ'------ * 'umlUserId'------ * 'umlIncludeSpamTrash'------ * 'umlLabelIds'------ * 'umlPageToken'------ * 'umlMaxResults'-usersMessagesList-    :: UsersMessagesList-usersMessagesList =-  UsersMessagesList'-    { _umlQ = Nothing-    , _umlUserId = "me"-    , _umlIncludeSpamTrash = False-    , _umlLabelIds = Nothing-    , _umlPageToken = Nothing-    , _umlMaxResults = 100-    }----- | Only return messages matching the specified query. Supports the same--- query format as the Gmail search box. For example,--- \"from:someuser\'example.com rfc822msgid: is:unread\". Parameter cannot--- be used when accessing the api using the gmail.metadata scope.-umlQ :: Lens' UsersMessagesList (Maybe Text)-umlQ = lens _umlQ (\ s a -> s{_umlQ = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-umlUserId :: Lens' UsersMessagesList Text-umlUserId-  = lens _umlUserId (\ s a -> s{_umlUserId = a})---- | Include messages from SPAM and TRASH in the results.-umlIncludeSpamTrash :: Lens' UsersMessagesList Bool-umlIncludeSpamTrash-  = lens _umlIncludeSpamTrash-      (\ s a -> s{_umlIncludeSpamTrash = a})---- | Only return messages with labels that match all of the specified label--- IDs.-umlLabelIds :: Lens' UsersMessagesList [Text]-umlLabelIds-  = lens _umlLabelIds (\ s a -> s{_umlLabelIds = a}) .-      _Default-      . _Coerce---- | Page token to retrieve a specific page of results in the list.-umlPageToken :: Lens' UsersMessagesList (Maybe Text)-umlPageToken-  = lens _umlPageToken (\ s a -> s{_umlPageToken = a})---- | Maximum number of messages to return.-umlMaxResults :: Lens' UsersMessagesList Word32-umlMaxResults-  = lens _umlMaxResults-      (\ s a -> s{_umlMaxResults = a})-      . _Coerce--instance GoogleRequest UsersMessagesList where-        type Rs UsersMessagesList = ListMessagesResponse-        type Scopes UsersMessagesList =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.metadata",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly"]-        requestClient UsersMessagesList'{..}-          = go _umlUserId _umlQ (Just _umlIncludeSpamTrash)-              (_umlLabelIds ^. _Default)-              _umlPageToken-              (Just _umlMaxResults)-              (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersMessagesListResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Messages/Modify.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.Gmail.Users.Messages.Modify--- 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)------ Modifies the labels on the specified message.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.modify@.-module Network.Google.Resource.Gmail.Users.Messages.Modify-    (-    -- * REST Resource-      UsersMessagesModifyResource--    -- * Creating a Request-    , usersMessagesModify-    , UsersMessagesModify--    -- * Request Lenses-    , ummPayload-    , ummUserId-    , ummId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.messages.modify@ method which the--- 'UsersMessagesModify' request conforms to.-type UsersMessagesModifyResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "messages" :>-               Capture "id" Text :>-                 "modify" :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] ModifyMessageRequest :>-                       Post '[JSON] Message---- | Modifies the labels on the specified message.------ /See:/ 'usersMessagesModify' smart constructor.-data UsersMessagesModify =-  UsersMessagesModify'-    { _ummPayload :: !ModifyMessageRequest-    , _ummUserId  :: !Text-    , _ummId      :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersMessagesModify' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ummPayload'------ * 'ummUserId'------ * 'ummId'-usersMessagesModify-    :: ModifyMessageRequest -- ^ 'ummPayload'-    -> Text -- ^ 'ummId'-    -> UsersMessagesModify-usersMessagesModify pUmmPayload_ pUmmId_ =-  UsersMessagesModify'-    {_ummPayload = pUmmPayload_, _ummUserId = "me", _ummId = pUmmId_}----- | Multipart request metadata.-ummPayload :: Lens' UsersMessagesModify ModifyMessageRequest-ummPayload-  = lens _ummPayload (\ s a -> s{_ummPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-ummUserId :: Lens' UsersMessagesModify Text-ummUserId-  = lens _ummUserId (\ s a -> s{_ummUserId = a})---- | The ID of the message to modify.-ummId :: Lens' UsersMessagesModify Text-ummId = lens _ummId (\ s a -> s{_ummId = a})--instance GoogleRequest UsersMessagesModify where-        type Rs UsersMessagesModify = Message-        type Scopes UsersMessagesModify =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersMessagesModify'{..}-          = go _ummUserId _ummId (Just AltJSON) _ummPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersMessagesModifyResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Messages/Send.hs 
@@ -1,135 +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.Gmail.Users.Messages.Send--- 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)------ Sends the specified message to the recipients in the To, Cc, and Bcc--- headers.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.send@.-module Network.Google.Resource.Gmail.Users.Messages.Send-    (-    -- * REST Resource-      UsersMessagesSendResource--    -- * Creating a Request-    , usersMessagesSend-    , UsersMessagesSend--    -- * Request Lenses-    , umsPayload-    , umsUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.messages.send@ method which the--- 'UsersMessagesSend' request conforms to.-type UsersMessagesSendResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "messages" :>-               "send" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Message :> Post '[JSON] Message-       :<|>-       "upload" :>-         "gmail" :>-           "v1" :>-             "users" :>-               Capture "userId" Text :>-                 "messages" :>-                   "send" :>-                     QueryParam "alt" AltJSON :>-                       QueryParam "uploadType" Multipart :>-                         MultipartRelated '[JSON] Message :>-                           Post '[JSON] Message---- | Sends the specified message to the recipients in the To, Cc, and Bcc--- headers.------ /See:/ 'usersMessagesSend' smart constructor.-data UsersMessagesSend =-  UsersMessagesSend'-    { _umsPayload :: !Message-    , _umsUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersMessagesSend' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'umsPayload'------ * 'umsUserId'-usersMessagesSend-    :: Message -- ^ 'umsPayload'-    -> UsersMessagesSend-usersMessagesSend pUmsPayload_ =-  UsersMessagesSend' {_umsPayload = pUmsPayload_, _umsUserId = "me"}----- | Multipart request metadata.-umsPayload :: Lens' UsersMessagesSend Message-umsPayload-  = lens _umsPayload (\ s a -> s{_umsPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-umsUserId :: Lens' UsersMessagesSend Text-umsUserId-  = lens _umsUserId (\ s a -> s{_umsUserId = a})--instance GoogleRequest UsersMessagesSend where-        type Rs UsersMessagesSend = Message-        type Scopes UsersMessagesSend =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.compose",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.send"]-        requestClient UsersMessagesSend'{..}-          = go _umsUserId (Just AltJSON) _umsPayload-              gmailService-          where go :<|> _-                  = buildClient-                      (Proxy :: Proxy UsersMessagesSendResource)-                      mempty--instance GoogleRequest-           (MediaUpload UsersMessagesSend)-         where-        type Rs (MediaUpload UsersMessagesSend) = Message-        type Scopes (MediaUpload UsersMessagesSend) =-             Scopes UsersMessagesSend-        requestClient-          (MediaUpload UsersMessagesSend'{..} body)-          = go _umsUserId (Just AltJSON) (Just Multipart)-              _umsPayload-              body-              gmailService-          where _ :<|> go-                  = buildClient-                      (Proxy :: Proxy UsersMessagesSendResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Messages/Trash.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.Gmail.Users.Messages.Trash--- 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)------ Moves the specified message to the trash.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.trash@.-module Network.Google.Resource.Gmail.Users.Messages.Trash-    (-    -- * REST Resource-      UsersMessagesTrashResource--    -- * Creating a Request-    , usersMessagesTrash-    , UsersMessagesTrash--    -- * Request Lenses-    , umtUserId-    , umtId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.messages.trash@ method which the--- 'UsersMessagesTrash' request conforms to.-type UsersMessagesTrashResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "messages" :>-               Capture "id" Text :>-                 "trash" :>-                   QueryParam "alt" AltJSON :> Post '[JSON] Message---- | Moves the specified message to the trash.------ /See:/ 'usersMessagesTrash' smart constructor.-data UsersMessagesTrash =-  UsersMessagesTrash'-    { _umtUserId :: !Text-    , _umtId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersMessagesTrash' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'umtUserId'------ * 'umtId'-usersMessagesTrash-    :: Text -- ^ 'umtId'-    -> UsersMessagesTrash-usersMessagesTrash pUmtId_ =-  UsersMessagesTrash' {_umtUserId = "me", _umtId = pUmtId_}----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-umtUserId :: Lens' UsersMessagesTrash Text-umtUserId-  = lens _umtUserId (\ s a -> s{_umtUserId = a})---- | The ID of the message to Trash.-umtId :: Lens' UsersMessagesTrash Text-umtId = lens _umtId (\ s a -> s{_umtId = a})--instance GoogleRequest UsersMessagesTrash where-        type Rs UsersMessagesTrash = Message-        type Scopes UsersMessagesTrash =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersMessagesTrash'{..}-          = go _umtUserId _umtId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersMessagesTrashResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Messages/Untrash.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.Gmail.Users.Messages.Untrash--- 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)------ Removes the specified message from the trash.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.untrash@.-module Network.Google.Resource.Gmail.Users.Messages.Untrash-    (-    -- * REST Resource-      UsersMessagesUntrashResource--    -- * Creating a Request-    , usersMessagesUntrash-    , UsersMessagesUntrash--    -- * Request Lenses-    , umuUserId-    , umuId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.messages.untrash@ method which the--- 'UsersMessagesUntrash' request conforms to.-type UsersMessagesUntrashResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "messages" :>-               Capture "id" Text :>-                 "untrash" :>-                   QueryParam "alt" AltJSON :> Post '[JSON] Message---- | Removes the specified message from the trash.------ /See:/ 'usersMessagesUntrash' smart constructor.-data UsersMessagesUntrash =-  UsersMessagesUntrash'-    { _umuUserId :: !Text-    , _umuId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersMessagesUntrash' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'umuUserId'------ * 'umuId'-usersMessagesUntrash-    :: Text -- ^ 'umuId'-    -> UsersMessagesUntrash-usersMessagesUntrash pUmuId_ =-  UsersMessagesUntrash' {_umuUserId = "me", _umuId = pUmuId_}----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-umuUserId :: Lens' UsersMessagesUntrash Text-umuUserId-  = lens _umuUserId (\ s a -> s{_umuUserId = a})---- | The ID of the message to remove from Trash.-umuId :: Lens' UsersMessagesUntrash Text-umuId = lens _umuId (\ s a -> s{_umuId = a})--instance GoogleRequest UsersMessagesUntrash where-        type Rs UsersMessagesUntrash = Message-        type Scopes UsersMessagesUntrash =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersMessagesUntrash'{..}-          = go _umuUserId _umuId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersMessagesUntrashResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Create.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.Gmail.Users.Settings.Delegates.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)------ Adds a delegate with its verification status set directly to accepted,--- without sending any verification email. The delegate user must be a--- member of the same G Suite organization as the delegator user. Gmail--- imposes limtations on the number of delegates and delegators each user--- in a G Suite organization can have. These limits depend on your--- organization, but in general each user can have up to 25 delegates and--- up to 10 delegators. Note that a delegate user must be referred to by--- their primary email address, and not an email alias. Also note that when--- a new delegate is created, there may be up to a one minute delay before--- the new delegate is available for use. This method is only available to--- service account clients that have been delegated domain-wide authority.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.delegates.create@.-module Network.Google.Resource.Gmail.Users.Settings.Delegates.Create-    (-    -- * REST Resource-      UsersSettingsDelegatesCreateResource--    -- * Creating a Request-    , usersSettingsDelegatesCreate-    , UsersSettingsDelegatesCreate--    -- * Request Lenses-    , usdcPayload-    , usdcUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.delegates.create@ method which the--- 'UsersSettingsDelegatesCreate' request conforms to.-type UsersSettingsDelegatesCreateResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "delegates" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Delegate :> Post '[JSON] Delegate---- | Adds a delegate with its verification status set directly to accepted,--- without sending any verification email. The delegate user must be a--- member of the same G Suite organization as the delegator user. Gmail--- imposes limtations on the number of delegates and delegators each user--- in a G Suite organization can have. These limits depend on your--- organization, but in general each user can have up to 25 delegates and--- up to 10 delegators. Note that a delegate user must be referred to by--- their primary email address, and not an email alias. Also note that when--- a new delegate is created, there may be up to a one minute delay before--- the new delegate is available for use. This method is only available to--- service account clients that have been delegated domain-wide authority.------ /See:/ 'usersSettingsDelegatesCreate' smart constructor.-data UsersSettingsDelegatesCreate =-  UsersSettingsDelegatesCreate'-    { _usdcPayload :: !Delegate-    , _usdcUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsDelegatesCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usdcPayload'------ * 'usdcUserId'-usersSettingsDelegatesCreate-    :: Delegate -- ^ 'usdcPayload'-    -> UsersSettingsDelegatesCreate-usersSettingsDelegatesCreate pUsdcPayload_ =-  UsersSettingsDelegatesCreate'-    {_usdcPayload = pUsdcPayload_, _usdcUserId = "me"}----- | Multipart request metadata.-usdcPayload :: Lens' UsersSettingsDelegatesCreate Delegate-usdcPayload-  = lens _usdcPayload (\ s a -> s{_usdcPayload = a})---- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usdcUserId :: Lens' UsersSettingsDelegatesCreate Text-usdcUserId-  = lens _usdcUserId (\ s a -> s{_usdcUserId = a})--instance GoogleRequest UsersSettingsDelegatesCreate-         where-        type Rs UsersSettingsDelegatesCreate = Delegate-        type Scopes UsersSettingsDelegatesCreate =-             '["https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient UsersSettingsDelegatesCreate'{..}-          = go _usdcUserId (Just AltJSON) _usdcPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsDelegatesCreateResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Delete.hs 
@@ -1,112 +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.Gmail.Users.Settings.Delegates.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)------ Removes the specified delegate (which can be of any verification--- status), and revokes any verification that may have been required for--- using it. Note that a delegate user must be referred to by their primary--- email address, and not an email alias. This method is only available to--- service account clients that have been delegated domain-wide authority.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.delegates.delete@.-module Network.Google.Resource.Gmail.Users.Settings.Delegates.Delete-    (-    -- * REST Resource-      UsersSettingsDelegatesDeleteResource--    -- * Creating a Request-    , usersSettingsDelegatesDelete-    , UsersSettingsDelegatesDelete--    -- * Request Lenses-    , usddUserId-    , usddDelegateEmail-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.delegates.delete@ method which the--- 'UsersSettingsDelegatesDelete' request conforms to.-type UsersSettingsDelegatesDeleteResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "delegates" :>-                 Capture "delegateEmail" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Removes the specified delegate (which can be of any verification--- status), and revokes any verification that may have been required for--- using it. Note that a delegate user must be referred to by their primary--- email address, and not an email alias. This method is only available to--- service account clients that have been delegated domain-wide authority.------ /See:/ 'usersSettingsDelegatesDelete' smart constructor.-data UsersSettingsDelegatesDelete =-  UsersSettingsDelegatesDelete'-    { _usddUserId        :: !Text-    , _usddDelegateEmail :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsDelegatesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usddUserId'------ * 'usddDelegateEmail'-usersSettingsDelegatesDelete-    :: Text -- ^ 'usddDelegateEmail'-    -> UsersSettingsDelegatesDelete-usersSettingsDelegatesDelete pUsddDelegateEmail_ =-  UsersSettingsDelegatesDelete'-    {_usddUserId = "me", _usddDelegateEmail = pUsddDelegateEmail_}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usddUserId :: Lens' UsersSettingsDelegatesDelete Text-usddUserId-  = lens _usddUserId (\ s a -> s{_usddUserId = a})---- | The email address of the user to be removed as a delegate.-usddDelegateEmail :: Lens' UsersSettingsDelegatesDelete Text-usddDelegateEmail-  = lens _usddDelegateEmail-      (\ s a -> s{_usddDelegateEmail = a})--instance GoogleRequest UsersSettingsDelegatesDelete-         where-        type Rs UsersSettingsDelegatesDelete = ()-        type Scopes UsersSettingsDelegatesDelete =-             '["https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient UsersSettingsDelegatesDelete'{..}-          = go _usddUserId _usddDelegateEmail (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsDelegatesDeleteResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Get.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.Gmail.Users.Settings.Delegates.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the specified delegate. Note that a delegate user must be referred--- to by their primary email address, and not an email alias. This method--- is only available to service account clients that have been delegated--- domain-wide authority.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.delegates.get@.-module Network.Google.Resource.Gmail.Users.Settings.Delegates.Get-    (-    -- * REST Resource-      UsersSettingsDelegatesGetResource--    -- * Creating a Request-    , usersSettingsDelegatesGet-    , UsersSettingsDelegatesGet--    -- * Request Lenses-    , usdgUserId-    , usdgDelegateEmail-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.delegates.get@ method which the--- 'UsersSettingsDelegatesGet' request conforms to.-type UsersSettingsDelegatesGetResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "delegates" :>-                 Capture "delegateEmail" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Delegate---- | Gets the specified delegate. Note that a delegate user must be referred--- to by their primary email address, and not an email alias. This method--- is only available to service account clients that have been delegated--- domain-wide authority.------ /See:/ 'usersSettingsDelegatesGet' smart constructor.-data UsersSettingsDelegatesGet =-  UsersSettingsDelegatesGet'-    { _usdgUserId        :: !Text-    , _usdgDelegateEmail :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsDelegatesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usdgUserId'------ * 'usdgDelegateEmail'-usersSettingsDelegatesGet-    :: Text -- ^ 'usdgDelegateEmail'-    -> UsersSettingsDelegatesGet-usersSettingsDelegatesGet pUsdgDelegateEmail_ =-  UsersSettingsDelegatesGet'-    {_usdgUserId = "me", _usdgDelegateEmail = pUsdgDelegateEmail_}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usdgUserId :: Lens' UsersSettingsDelegatesGet Text-usdgUserId-  = lens _usdgUserId (\ s a -> s{_usdgUserId = a})---- | The email address of the user whose delegate relationship is to be--- retrieved.-usdgDelegateEmail :: Lens' UsersSettingsDelegatesGet Text-usdgDelegateEmail-  = lens _usdgDelegateEmail-      (\ s a -> s{_usdgDelegateEmail = a})--instance GoogleRequest UsersSettingsDelegatesGet-         where-        type Rs UsersSettingsDelegatesGet = Delegate-        type Scopes UsersSettingsDelegatesGet =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsDelegatesGet'{..}-          = go _usdgUserId _usdgDelegateEmail (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsDelegatesGetResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/List.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.Gmail.Users.Settings.Delegates.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 delegates for the specified account. This method is only--- available to service account clients that have been delegated--- domain-wide authority.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.delegates.list@.-module Network.Google.Resource.Gmail.Users.Settings.Delegates.List-    (-    -- * REST Resource-      UsersSettingsDelegatesListResource--    -- * Creating a Request-    , usersSettingsDelegatesList-    , UsersSettingsDelegatesList--    -- * Request Lenses-    , usdlUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.delegates.list@ method which the--- 'UsersSettingsDelegatesList' request conforms to.-type UsersSettingsDelegatesListResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "delegates" :>-                 QueryParam "alt" AltJSON :>-                   Get '[JSON] ListDelegatesResponse---- | Lists the delegates for the specified account. This method is only--- available to service account clients that have been delegated--- domain-wide authority.------ /See:/ 'usersSettingsDelegatesList' smart constructor.-newtype UsersSettingsDelegatesList =-  UsersSettingsDelegatesList'-    { _usdlUserId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsDelegatesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usdlUserId'-usersSettingsDelegatesList-    :: UsersSettingsDelegatesList-usersSettingsDelegatesList = UsersSettingsDelegatesList' {_usdlUserId = "me"}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usdlUserId :: Lens' UsersSettingsDelegatesList Text-usdlUserId-  = lens _usdlUserId (\ s a -> s{_usdlUserId = a})--instance GoogleRequest UsersSettingsDelegatesList-         where-        type Rs UsersSettingsDelegatesList =-             ListDelegatesResponse-        type Scopes UsersSettingsDelegatesList =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsDelegatesList'{..}-          = go _usdlUserId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsDelegatesListResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/Filters/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.Gmail.Users.Settings.Filters.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 filter.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.filters.create@.-module Network.Google.Resource.Gmail.Users.Settings.Filters.Create-    (-    -- * REST Resource-      UsersSettingsFiltersCreateResource--    -- * Creating a Request-    , usersSettingsFiltersCreate-    , UsersSettingsFiltersCreate--    -- * Request Lenses-    , usfcPayload-    , usfcUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.filters.create@ method which the--- 'UsersSettingsFiltersCreate' request conforms to.-type UsersSettingsFiltersCreateResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "filters" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Filter :> Post '[JSON] Filter---- | Creates a filter.------ /See:/ 'usersSettingsFiltersCreate' smart constructor.-data UsersSettingsFiltersCreate =-  UsersSettingsFiltersCreate'-    { _usfcPayload :: !Filter-    , _usfcUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsFiltersCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usfcPayload'------ * 'usfcUserId'-usersSettingsFiltersCreate-    :: Filter -- ^ 'usfcPayload'-    -> UsersSettingsFiltersCreate-usersSettingsFiltersCreate pUsfcPayload_ =-  UsersSettingsFiltersCreate' {_usfcPayload = pUsfcPayload_, _usfcUserId = "me"}----- | Multipart request metadata.-usfcPayload :: Lens' UsersSettingsFiltersCreate Filter-usfcPayload-  = lens _usfcPayload (\ s a -> s{_usfcPayload = a})---- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usfcUserId :: Lens' UsersSettingsFiltersCreate Text-usfcUserId-  = lens _usfcUserId (\ s a -> s{_usfcUserId = a})--instance GoogleRequest UsersSettingsFiltersCreate-         where-        type Rs UsersSettingsFiltersCreate = Filter-        type Scopes UsersSettingsFiltersCreate =-             '["https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsFiltersCreate'{..}-          = go _usfcUserId (Just AltJSON) _usfcPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsFiltersCreateResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Delete.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.Gmail.Users.Settings.Filters.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 filter.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.filters.delete@.-module Network.Google.Resource.Gmail.Users.Settings.Filters.Delete-    (-    -- * REST Resource-      UsersSettingsFiltersDeleteResource--    -- * Creating a Request-    , usersSettingsFiltersDelete-    , UsersSettingsFiltersDelete--    -- * Request Lenses-    , usfdUserId-    , usfdId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.filters.delete@ method which the--- 'UsersSettingsFiltersDelete' request conforms to.-type UsersSettingsFiltersDeleteResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "filters" :>-                 Capture "id" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes a filter.------ /See:/ 'usersSettingsFiltersDelete' smart constructor.-data UsersSettingsFiltersDelete =-  UsersSettingsFiltersDelete'-    { _usfdUserId :: !Text-    , _usfdId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsFiltersDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usfdUserId'------ * 'usfdId'-usersSettingsFiltersDelete-    :: Text -- ^ 'usfdId'-    -> UsersSettingsFiltersDelete-usersSettingsFiltersDelete pUsfdId_ =-  UsersSettingsFiltersDelete' {_usfdUserId = "me", _usfdId = pUsfdId_}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usfdUserId :: Lens' UsersSettingsFiltersDelete Text-usfdUserId-  = lens _usfdUserId (\ s a -> s{_usfdUserId = a})---- | The ID of the filter to be deleted.-usfdId :: Lens' UsersSettingsFiltersDelete Text-usfdId = lens _usfdId (\ s a -> s{_usfdId = a})--instance GoogleRequest UsersSettingsFiltersDelete-         where-        type Rs UsersSettingsFiltersDelete = ()-        type Scopes UsersSettingsFiltersDelete =-             '["https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsFiltersDelete'{..}-          = go _usfdUserId _usfdId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsFiltersDeleteResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/Filters/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.Gmail.Users.Settings.Filters.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 filter.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.filters.get@.-module Network.Google.Resource.Gmail.Users.Settings.Filters.Get-    (-    -- * REST Resource-      UsersSettingsFiltersGetResource--    -- * Creating a Request-    , usersSettingsFiltersGet-    , UsersSettingsFiltersGet--    -- * Request Lenses-    , usfgUserId-    , usfgId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.filters.get@ method which the--- 'UsersSettingsFiltersGet' request conforms to.-type UsersSettingsFiltersGetResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "filters" :>-                 Capture "id" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Filter---- | Gets a filter.------ /See:/ 'usersSettingsFiltersGet' smart constructor.-data UsersSettingsFiltersGet =-  UsersSettingsFiltersGet'-    { _usfgUserId :: !Text-    , _usfgId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsFiltersGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usfgUserId'------ * 'usfgId'-usersSettingsFiltersGet-    :: Text -- ^ 'usfgId'-    -> UsersSettingsFiltersGet-usersSettingsFiltersGet pUsfgId_ =-  UsersSettingsFiltersGet' {_usfgUserId = "me", _usfgId = pUsfgId_}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usfgUserId :: Lens' UsersSettingsFiltersGet Text-usfgUserId-  = lens _usfgUserId (\ s a -> s{_usfgUserId = a})---- | The ID of the filter to be fetched.-usfgId :: Lens' UsersSettingsFiltersGet Text-usfgId = lens _usfgId (\ s a -> s{_usfgId = a})--instance GoogleRequest UsersSettingsFiltersGet where-        type Rs UsersSettingsFiltersGet = Filter-        type Scopes UsersSettingsFiltersGet =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsFiltersGet'{..}-          = go _usfgUserId _usfgId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsFiltersGetResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/Filters/List.hs 
@@ -1,93 +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.Gmail.Users.Settings.Filters.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 message filters of a Gmail user.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.filters.list@.-module Network.Google.Resource.Gmail.Users.Settings.Filters.List-    (-    -- * REST Resource-      UsersSettingsFiltersListResource--    -- * Creating a Request-    , usersSettingsFiltersList-    , UsersSettingsFiltersList--    -- * Request Lenses-    , usflUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.filters.list@ method which the--- 'UsersSettingsFiltersList' request conforms to.-type UsersSettingsFiltersListResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "filters" :>-                 QueryParam "alt" AltJSON :>-                   Get '[JSON] ListFiltersResponse---- | Lists the message filters of a Gmail user.------ /See:/ 'usersSettingsFiltersList' smart constructor.-newtype UsersSettingsFiltersList =-  UsersSettingsFiltersList'-    { _usflUserId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsFiltersList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usflUserId'-usersSettingsFiltersList-    :: UsersSettingsFiltersList-usersSettingsFiltersList = UsersSettingsFiltersList' {_usflUserId = "me"}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usflUserId :: Lens' UsersSettingsFiltersList Text-usflUserId-  = lens _usflUserId (\ s a -> s{_usflUserId = a})--instance GoogleRequest UsersSettingsFiltersList where-        type Rs UsersSettingsFiltersList =-             ListFiltersResponse-        type Scopes UsersSettingsFiltersList =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsFiltersList'{..}-          = go _usflUserId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsFiltersListResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Create.hs 
@@ -1,118 +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.Gmail.Users.Settings.ForwardingAddresses.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 forwarding address. If ownership verification is required, a--- message will be sent to the recipient and the resource\'s verification--- status will be set to pending; otherwise, the resource will be created--- with verification status set to accepted. This method is only available--- to service account clients that have been delegated domain-wide--- authority.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.forwardingAddresses.create@.-module Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Create-    (-    -- * REST Resource-      UsersSettingsForwardingAddressesCreateResource--    -- * Creating a Request-    , usersSettingsForwardingAddressesCreate-    , UsersSettingsForwardingAddressesCreate--    -- * Request Lenses-    , usfacPayload-    , usfacUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.forwardingAddresses.create@ method which the--- 'UsersSettingsForwardingAddressesCreate' request conforms to.-type UsersSettingsForwardingAddressesCreateResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "forwardingAddresses" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] ForwardingAddress :>-                     Post '[JSON] ForwardingAddress---- | Creates a forwarding address. If ownership verification is required, a--- message will be sent to the recipient and the resource\'s verification--- status will be set to pending; otherwise, the resource will be created--- with verification status set to accepted. This method is only available--- to service account clients that have been delegated domain-wide--- authority.------ /See:/ 'usersSettingsForwardingAddressesCreate' smart constructor.-data UsersSettingsForwardingAddressesCreate =-  UsersSettingsForwardingAddressesCreate'-    { _usfacPayload :: !ForwardingAddress-    , _usfacUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsForwardingAddressesCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usfacPayload'------ * 'usfacUserId'-usersSettingsForwardingAddressesCreate-    :: ForwardingAddress -- ^ 'usfacPayload'-    -> UsersSettingsForwardingAddressesCreate-usersSettingsForwardingAddressesCreate pUsfacPayload_ =-  UsersSettingsForwardingAddressesCreate'-    {_usfacPayload = pUsfacPayload_, _usfacUserId = "me"}----- | Multipart request metadata.-usfacPayload :: Lens' UsersSettingsForwardingAddressesCreate ForwardingAddress-usfacPayload-  = lens _usfacPayload (\ s a -> s{_usfacPayload = a})---- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usfacUserId :: Lens' UsersSettingsForwardingAddressesCreate Text-usfacUserId-  = lens _usfacUserId (\ s a -> s{_usfacUserId = a})--instance GoogleRequest-           UsersSettingsForwardingAddressesCreate-         where-        type Rs UsersSettingsForwardingAddressesCreate =-             ForwardingAddress-        type Scopes UsersSettingsForwardingAddressesCreate =-             '["https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient-          UsersSettingsForwardingAddressesCreate'{..}-          = go _usfacUserId (Just AltJSON) _usfacPayload-              gmailService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy UsersSettingsForwardingAddressesCreateResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Delete.hs 
@@ -1,112 +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.Gmail.Users.Settings.ForwardingAddresses.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 the specified forwarding address and revokes any verification--- that may have been required. This method is only available to service--- account clients that have been delegated domain-wide authority.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.forwardingAddresses.delete@.-module Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Delete-    (-    -- * REST Resource-      UsersSettingsForwardingAddressesDeleteResource--    -- * Creating a Request-    , usersSettingsForwardingAddressesDelete-    , UsersSettingsForwardingAddressesDelete--    -- * Request Lenses-    , usfadForwardingEmail-    , usfadUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.forwardingAddresses.delete@ method which the--- 'UsersSettingsForwardingAddressesDelete' request conforms to.-type UsersSettingsForwardingAddressesDeleteResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "forwardingAddresses" :>-                 Capture "forwardingEmail" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes the specified forwarding address and revokes any verification--- that may have been required. This method is only available to service--- account clients that have been delegated domain-wide authority.------ /See:/ 'usersSettingsForwardingAddressesDelete' smart constructor.-data UsersSettingsForwardingAddressesDelete =-  UsersSettingsForwardingAddressesDelete'-    { _usfadForwardingEmail :: !Text-    , _usfadUserId          :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsForwardingAddressesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usfadForwardingEmail'------ * 'usfadUserId'-usersSettingsForwardingAddressesDelete-    :: Text -- ^ 'usfadForwardingEmail'-    -> UsersSettingsForwardingAddressesDelete-usersSettingsForwardingAddressesDelete pUsfadForwardingEmail_ =-  UsersSettingsForwardingAddressesDelete'-    {_usfadForwardingEmail = pUsfadForwardingEmail_, _usfadUserId = "me"}----- | The forwarding address to be deleted.-usfadForwardingEmail :: Lens' UsersSettingsForwardingAddressesDelete Text-usfadForwardingEmail-  = lens _usfadForwardingEmail-      (\ s a -> s{_usfadForwardingEmail = a})---- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usfadUserId :: Lens' UsersSettingsForwardingAddressesDelete Text-usfadUserId-  = lens _usfadUserId (\ s a -> s{_usfadUserId = a})--instance GoogleRequest-           UsersSettingsForwardingAddressesDelete-         where-        type Rs UsersSettingsForwardingAddressesDelete = ()-        type Scopes UsersSettingsForwardingAddressesDelete =-             '["https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient-          UsersSettingsForwardingAddressesDelete'{..}-          = go _usfadUserId _usfadForwardingEmail-              (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy UsersSettingsForwardingAddressesDeleteResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Get.hs 
@@ -1,113 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the specified forwarding address.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.forwardingAddresses.get@.-module Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Get-    (-    -- * REST Resource-      UsersSettingsForwardingAddressesGetResource--    -- * Creating a Request-    , usersSettingsForwardingAddressesGet-    , UsersSettingsForwardingAddressesGet--    -- * Request Lenses-    , usfagForwardingEmail-    , usfagUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.forwardingAddresses.get@ method which the--- 'UsersSettingsForwardingAddressesGet' request conforms to.-type UsersSettingsForwardingAddressesGetResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "forwardingAddresses" :>-                 Capture "forwardingEmail" Text :>-                   QueryParam "alt" AltJSON :>-                     Get '[JSON] ForwardingAddress---- | Gets the specified forwarding address.------ /See:/ 'usersSettingsForwardingAddressesGet' smart constructor.-data UsersSettingsForwardingAddressesGet =-  UsersSettingsForwardingAddressesGet'-    { _usfagForwardingEmail :: !Text-    , _usfagUserId          :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsForwardingAddressesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usfagForwardingEmail'------ * 'usfagUserId'-usersSettingsForwardingAddressesGet-    :: Text -- ^ 'usfagForwardingEmail'-    -> UsersSettingsForwardingAddressesGet-usersSettingsForwardingAddressesGet pUsfagForwardingEmail_ =-  UsersSettingsForwardingAddressesGet'-    {_usfagForwardingEmail = pUsfagForwardingEmail_, _usfagUserId = "me"}----- | The forwarding address to be retrieved.-usfagForwardingEmail :: Lens' UsersSettingsForwardingAddressesGet Text-usfagForwardingEmail-  = lens _usfagForwardingEmail-      (\ s a -> s{_usfagForwardingEmail = a})---- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usfagUserId :: Lens' UsersSettingsForwardingAddressesGet Text-usfagUserId-  = lens _usfagUserId (\ s a -> s{_usfagUserId = a})--instance GoogleRequest-           UsersSettingsForwardingAddressesGet-         where-        type Rs UsersSettingsForwardingAddressesGet =-             ForwardingAddress-        type Scopes UsersSettingsForwardingAddressesGet =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient-          UsersSettingsForwardingAddressesGet'{..}-          = go _usfagUserId _usfagForwardingEmail-              (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy UsersSettingsForwardingAddressesGetResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/List.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.Gmail.Users.Settings.ForwardingAddresses.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 forwarding addresses for the specified account.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.forwardingAddresses.list@.-module Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.List-    (-    -- * REST Resource-      UsersSettingsForwardingAddressesListResource--    -- * Creating a Request-    , usersSettingsForwardingAddressesList-    , UsersSettingsForwardingAddressesList--    -- * Request Lenses-    , usfalUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.forwardingAddresses.list@ method which the--- 'UsersSettingsForwardingAddressesList' request conforms to.-type UsersSettingsForwardingAddressesListResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "forwardingAddresses" :>-                 QueryParam "alt" AltJSON :>-                   Get '[JSON] ListForwardingAddressesResponse---- | Lists the forwarding addresses for the specified account.------ /See:/ 'usersSettingsForwardingAddressesList' smart constructor.-newtype UsersSettingsForwardingAddressesList =-  UsersSettingsForwardingAddressesList'-    { _usfalUserId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsForwardingAddressesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usfalUserId'-usersSettingsForwardingAddressesList-    :: UsersSettingsForwardingAddressesList-usersSettingsForwardingAddressesList =-  UsersSettingsForwardingAddressesList' {_usfalUserId = "me"}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usfalUserId :: Lens' UsersSettingsForwardingAddressesList Text-usfalUserId-  = lens _usfalUserId (\ s a -> s{_usfalUserId = a})--instance GoogleRequest-           UsersSettingsForwardingAddressesList-         where-        type Rs UsersSettingsForwardingAddressesList =-             ListForwardingAddressesResponse-        type Scopes UsersSettingsForwardingAddressesList =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient-          UsersSettingsForwardingAddressesList'{..}-          = go _usfalUserId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy UsersSettingsForwardingAddressesListResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/GetAutoForwarding.hs 
@@ -1,96 +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.Gmail.Users.Settings.GetAutoForwarding--- 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 auto-forwarding setting for the specified account.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.getAutoForwarding@.-module Network.Google.Resource.Gmail.Users.Settings.GetAutoForwarding-    (-    -- * REST Resource-      UsersSettingsGetAutoForwardingResource--    -- * Creating a Request-    , usersSettingsGetAutoForwarding-    , UsersSettingsGetAutoForwarding--    -- * Request Lenses-    , usgafUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.getAutoForwarding@ method which the--- 'UsersSettingsGetAutoForwarding' request conforms to.-type UsersSettingsGetAutoForwardingResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "autoForwarding" :>-                 QueryParam "alt" AltJSON :>-                   Get '[JSON] AutoForwarding---- | Gets the auto-forwarding setting for the specified account.------ /See:/ 'usersSettingsGetAutoForwarding' smart constructor.-newtype UsersSettingsGetAutoForwarding =-  UsersSettingsGetAutoForwarding'-    { _usgafUserId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsGetAutoForwarding' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usgafUserId'-usersSettingsGetAutoForwarding-    :: UsersSettingsGetAutoForwarding-usersSettingsGetAutoForwarding =-  UsersSettingsGetAutoForwarding' {_usgafUserId = "me"}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usgafUserId :: Lens' UsersSettingsGetAutoForwarding Text-usgafUserId-  = lens _usgafUserId (\ s a -> s{_usgafUserId = a})--instance GoogleRequest UsersSettingsGetAutoForwarding-         where-        type Rs UsersSettingsGetAutoForwarding =-             AutoForwarding-        type Scopes UsersSettingsGetAutoForwarding =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsGetAutoForwarding'{..}-          = go _usgafUserId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy UsersSettingsGetAutoForwardingResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/GetImap.hs 
@@ -1,91 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Gmail.Users.Settings.GetImap--- 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 IMAP settings.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.getImap@.-module Network.Google.Resource.Gmail.Users.Settings.GetImap-    (-    -- * REST Resource-      UsersSettingsGetImapResource--    -- * Creating a Request-    , usersSettingsGetImap-    , UsersSettingsGetImap--    -- * Request Lenses-    , usgiUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.getImap@ method which the--- 'UsersSettingsGetImap' request conforms to.-type UsersSettingsGetImapResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "imap" :>-                 QueryParam "alt" AltJSON :> Get '[JSON] ImapSettings---- | Gets IMAP settings.------ /See:/ 'usersSettingsGetImap' smart constructor.-newtype UsersSettingsGetImap =-  UsersSettingsGetImap'-    { _usgiUserId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsGetImap' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usgiUserId'-usersSettingsGetImap-    :: UsersSettingsGetImap-usersSettingsGetImap = UsersSettingsGetImap' {_usgiUserId = "me"}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usgiUserId :: Lens' UsersSettingsGetImap Text-usgiUserId-  = lens _usgiUserId (\ s a -> s{_usgiUserId = a})--instance GoogleRequest UsersSettingsGetImap where-        type Rs UsersSettingsGetImap = ImapSettings-        type Scopes UsersSettingsGetImap =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsGetImap'{..}-          = go _usgiUserId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsGetImapResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/GetLanguage.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.Gmail.Users.Settings.GetLanguage--- 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 language settings.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.getLanguage@.-module Network.Google.Resource.Gmail.Users.Settings.GetLanguage-    (-    -- * REST Resource-      UsersSettingsGetLanguageResource--    -- * Creating a Request-    , usersSettingsGetLanguage-    , UsersSettingsGetLanguage--    -- * Request Lenses-    , usglUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.getLanguage@ method which the--- 'UsersSettingsGetLanguage' request conforms to.-type UsersSettingsGetLanguageResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "language" :>-                 QueryParam "alt" AltJSON :>-                   Get '[JSON] LanguageSettings---- | Gets language settings.------ /See:/ 'usersSettingsGetLanguage' smart constructor.-newtype UsersSettingsGetLanguage =-  UsersSettingsGetLanguage'-    { _usglUserId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsGetLanguage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usglUserId'-usersSettingsGetLanguage-    :: UsersSettingsGetLanguage-usersSettingsGetLanguage = UsersSettingsGetLanguage' {_usglUserId = "me"}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usglUserId :: Lens' UsersSettingsGetLanguage Text-usglUserId-  = lens _usglUserId (\ s a -> s{_usglUserId = a})--instance GoogleRequest UsersSettingsGetLanguage where-        type Rs UsersSettingsGetLanguage = LanguageSettings-        type Scopes UsersSettingsGetLanguage =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsGetLanguage'{..}-          = go _usglUserId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsGetLanguageResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/GetPop.hs 
@@ -1,91 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Gmail.Users.Settings.GetPop--- 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 POP settings.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.getPop@.-module Network.Google.Resource.Gmail.Users.Settings.GetPop-    (-    -- * REST Resource-      UsersSettingsGetPopResource--    -- * Creating a Request-    , usersSettingsGetPop-    , UsersSettingsGetPop--    -- * Request Lenses-    , usgpUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.getPop@ method which the--- 'UsersSettingsGetPop' request conforms to.-type UsersSettingsGetPopResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "pop" :>-                 QueryParam "alt" AltJSON :> Get '[JSON] PopSettings---- | Gets POP settings.------ /See:/ 'usersSettingsGetPop' smart constructor.-newtype UsersSettingsGetPop =-  UsersSettingsGetPop'-    { _usgpUserId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsGetPop' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usgpUserId'-usersSettingsGetPop-    :: UsersSettingsGetPop-usersSettingsGetPop = UsersSettingsGetPop' {_usgpUserId = "me"}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usgpUserId :: Lens' UsersSettingsGetPop Text-usgpUserId-  = lens _usgpUserId (\ s a -> s{_usgpUserId = a})--instance GoogleRequest UsersSettingsGetPop where-        type Rs UsersSettingsGetPop = PopSettings-        type Scopes UsersSettingsGetPop =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsGetPop'{..}-          = go _usgpUserId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsGetPopResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/GetVacation.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.Gmail.Users.Settings.GetVacation--- 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 vacation responder settings.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.getVacation@.-module Network.Google.Resource.Gmail.Users.Settings.GetVacation-    (-    -- * REST Resource-      UsersSettingsGetVacationResource--    -- * Creating a Request-    , usersSettingsGetVacation-    , UsersSettingsGetVacation--    -- * Request Lenses-    , usgvUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.getVacation@ method which the--- 'UsersSettingsGetVacation' request conforms to.-type UsersSettingsGetVacationResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "vacation" :>-                 QueryParam "alt" AltJSON :>-                   Get '[JSON] VacationSettings---- | Gets vacation responder settings.------ /See:/ 'usersSettingsGetVacation' smart constructor.-newtype UsersSettingsGetVacation =-  UsersSettingsGetVacation'-    { _usgvUserId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsGetVacation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usgvUserId'-usersSettingsGetVacation-    :: UsersSettingsGetVacation-usersSettingsGetVacation = UsersSettingsGetVacation' {_usgvUserId = "me"}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usgvUserId :: Lens' UsersSettingsGetVacation Text-usgvUserId-  = lens _usgvUserId (\ s a -> s{_usgvUserId = a})--instance GoogleRequest UsersSettingsGetVacation where-        type Rs UsersSettingsGetVacation = VacationSettings-        type Scopes UsersSettingsGetVacation =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsGetVacation'{..}-          = go _usgvUserId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsGetVacationResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Create.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.Gmail.Users.Settings.SendAs.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 custom \"from\" send-as alias. If an SMTP MSA is specified,--- Gmail will attempt to connect to the SMTP service to validate the--- configuration before creating the alias. If ownership verification is--- required for the alias, a message will be sent to the email address and--- the resource\'s verification status will be set to pending; otherwise,--- the resource will be created with verification status set to accepted.--- If a signature is provided, Gmail will sanitize the HTML before saving--- it with the alias. This method is only available to service account--- clients that have been delegated domain-wide authority.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.create@.-module Network.Google.Resource.Gmail.Users.Settings.SendAs.Create-    (-    -- * REST Resource-      UsersSettingsSendAsCreateResource--    -- * Creating a Request-    , usersSettingsSendAsCreate-    , UsersSettingsSendAsCreate--    -- * Request Lenses-    , ussacPayload-    , ussacUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.sendAs.create@ method which the--- 'UsersSettingsSendAsCreate' request conforms to.-type UsersSettingsSendAsCreateResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "sendAs" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] SendAs :> Post '[JSON] SendAs---- | Creates a custom \"from\" send-as alias. If an SMTP MSA is specified,--- Gmail will attempt to connect to the SMTP service to validate the--- configuration before creating the alias. If ownership verification is--- required for the alias, a message will be sent to the email address and--- the resource\'s verification status will be set to pending; otherwise,--- the resource will be created with verification status set to accepted.--- If a signature is provided, Gmail will sanitize the HTML before saving--- it with the alias. This method is only available to service account--- clients that have been delegated domain-wide authority.------ /See:/ 'usersSettingsSendAsCreate' smart constructor.-data UsersSettingsSendAsCreate =-  UsersSettingsSendAsCreate'-    { _ussacPayload :: !SendAs-    , _ussacUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsSendAsCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ussacPayload'------ * 'ussacUserId'-usersSettingsSendAsCreate-    :: SendAs -- ^ 'ussacPayload'-    -> UsersSettingsSendAsCreate-usersSettingsSendAsCreate pUssacPayload_ =-  UsersSettingsSendAsCreate'-    {_ussacPayload = pUssacPayload_, _ussacUserId = "me"}----- | Multipart request metadata.-ussacPayload :: Lens' UsersSettingsSendAsCreate SendAs-ussacPayload-  = lens _ussacPayload (\ s a -> s{_ussacPayload = a})---- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-ussacUserId :: Lens' UsersSettingsSendAsCreate Text-ussacUserId-  = lens _ussacUserId (\ s a -> s{_ussacUserId = a})--instance GoogleRequest UsersSettingsSendAsCreate-         where-        type Rs UsersSettingsSendAsCreate = SendAs-        type Scopes UsersSettingsSendAsCreate =-             '["https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient UsersSettingsSendAsCreate'{..}-          = go _ussacUserId (Just AltJSON) _ussacPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsSendAsCreateResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Delete.hs 
@@ -1,108 +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.Gmail.Users.Settings.SendAs.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 the specified send-as alias. Revokes any verification that may--- have been required for using it. This method is only available to--- service account clients that have been delegated domain-wide authority.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.delete@.-module Network.Google.Resource.Gmail.Users.Settings.SendAs.Delete-    (-    -- * REST Resource-      UsersSettingsSendAsDeleteResource--    -- * Creating a Request-    , usersSettingsSendAsDelete-    , UsersSettingsSendAsDelete--    -- * Request Lenses-    , ussadUserId-    , ussadSendAsEmail-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.sendAs.delete@ method which the--- 'UsersSettingsSendAsDelete' request conforms to.-type UsersSettingsSendAsDeleteResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "sendAs" :>-                 Capture "sendAsEmail" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes the specified send-as alias. Revokes any verification that may--- have been required for using it. This method is only available to--- service account clients that have been delegated domain-wide authority.------ /See:/ 'usersSettingsSendAsDelete' smart constructor.-data UsersSettingsSendAsDelete =-  UsersSettingsSendAsDelete'-    { _ussadUserId      :: !Text-    , _ussadSendAsEmail :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsSendAsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ussadUserId'------ * 'ussadSendAsEmail'-usersSettingsSendAsDelete-    :: Text -- ^ 'ussadSendAsEmail'-    -> UsersSettingsSendAsDelete-usersSettingsSendAsDelete pUssadSendAsEmail_ =-  UsersSettingsSendAsDelete'-    {_ussadUserId = "me", _ussadSendAsEmail = pUssadSendAsEmail_}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-ussadUserId :: Lens' UsersSettingsSendAsDelete Text-ussadUserId-  = lens _ussadUserId (\ s a -> s{_ussadUserId = a})---- | The send-as alias to be deleted.-ussadSendAsEmail :: Lens' UsersSettingsSendAsDelete Text-ussadSendAsEmail-  = lens _ussadSendAsEmail-      (\ s a -> s{_ussadSendAsEmail = a})--instance GoogleRequest UsersSettingsSendAsDelete-         where-        type Rs UsersSettingsSendAsDelete = ()-        type Scopes UsersSettingsSendAsDelete =-             '["https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient UsersSettingsSendAsDelete'{..}-          = go _ussadUserId _ussadSendAsEmail (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsSendAsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Get.hs 
@@ -1,108 +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.Gmail.Users.Settings.SendAs.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the specified send-as alias. Fails with an HTTP 404 error if the--- specified address is not a member of the collection.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.get@.-module Network.Google.Resource.Gmail.Users.Settings.SendAs.Get-    (-    -- * REST Resource-      UsersSettingsSendAsGetResource--    -- * Creating a Request-    , usersSettingsSendAsGet-    , UsersSettingsSendAsGet--    -- * Request Lenses-    , ussagUserId-    , ussagSendAsEmail-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.sendAs.get@ method which the--- 'UsersSettingsSendAsGet' request conforms to.-type UsersSettingsSendAsGetResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "sendAs" :>-                 Capture "sendAsEmail" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] SendAs---- | Gets the specified send-as alias. Fails with an HTTP 404 error if the--- specified address is not a member of the collection.------ /See:/ 'usersSettingsSendAsGet' smart constructor.-data UsersSettingsSendAsGet =-  UsersSettingsSendAsGet'-    { _ussagUserId      :: !Text-    , _ussagSendAsEmail :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsSendAsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ussagUserId'------ * 'ussagSendAsEmail'-usersSettingsSendAsGet-    :: Text -- ^ 'ussagSendAsEmail'-    -> UsersSettingsSendAsGet-usersSettingsSendAsGet pUssagSendAsEmail_ =-  UsersSettingsSendAsGet'-    {_ussagUserId = "me", _ussagSendAsEmail = pUssagSendAsEmail_}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-ussagUserId :: Lens' UsersSettingsSendAsGet Text-ussagUserId-  = lens _ussagUserId (\ s a -> s{_ussagUserId = a})---- | The send-as alias to be retrieved.-ussagSendAsEmail :: Lens' UsersSettingsSendAsGet Text-ussagSendAsEmail-  = lens _ussagSendAsEmail-      (\ s a -> s{_ussagSendAsEmail = a})--instance GoogleRequest UsersSettingsSendAsGet where-        type Rs UsersSettingsSendAsGet = SendAs-        type Scopes UsersSettingsSendAsGet =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsSendAsGet'{..}-          = go _ussagUserId _ussagSendAsEmail (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsSendAsGetResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/List.hs 
@@ -1,96 +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.Gmail.Users.Settings.SendAs.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 send-as aliases for the specified account. The result includes--- the primary send-as address associated with the account as well as any--- custom \"from\" aliases.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.list@.-module Network.Google.Resource.Gmail.Users.Settings.SendAs.List-    (-    -- * REST Resource-      UsersSettingsSendAsListResource--    -- * Creating a Request-    , usersSettingsSendAsList-    , UsersSettingsSendAsList--    -- * Request Lenses-    , ussalUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.sendAs.list@ method which the--- 'UsersSettingsSendAsList' request conforms to.-type UsersSettingsSendAsListResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "sendAs" :>-                 QueryParam "alt" AltJSON :>-                   Get '[JSON] ListSendAsResponse---- | Lists the send-as aliases for the specified account. The result includes--- the primary send-as address associated with the account as well as any--- custom \"from\" aliases.------ /See:/ 'usersSettingsSendAsList' smart constructor.-newtype UsersSettingsSendAsList =-  UsersSettingsSendAsList'-    { _ussalUserId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsSendAsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ussalUserId'-usersSettingsSendAsList-    :: UsersSettingsSendAsList-usersSettingsSendAsList = UsersSettingsSendAsList' {_ussalUserId = "me"}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-ussalUserId :: Lens' UsersSettingsSendAsList Text-ussalUserId-  = lens _ussalUserId (\ s a -> s{_ussalUserId = a})--instance GoogleRequest UsersSettingsSendAsList where-        type Rs UsersSettingsSendAsList = ListSendAsResponse-        type Scopes UsersSettingsSendAsList =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsSendAsList'{..}-          = go _ussalUserId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsSendAsListResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Patch.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.Gmail.Users.Settings.SendAs.Patch--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Updates a send-as alias. If a signature is provided, Gmail will sanitize--- the HTML before saving it with the alias. Addresses other than the--- primary address for the account can only be updated by service account--- clients that have been delegated domain-wide authority. This method--- supports patch semantics.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.patch@.-module Network.Google.Resource.Gmail.Users.Settings.SendAs.Patch-    (-    -- * REST Resource-      UsersSettingsSendAsPatchResource--    -- * Creating a Request-    , usersSettingsSendAsPatch-    , UsersSettingsSendAsPatch--    -- * Request Lenses-    , ussapPayload-    , ussapUserId-    , ussapSendAsEmail-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.sendAs.patch@ method which the--- 'UsersSettingsSendAsPatch' request conforms to.-type UsersSettingsSendAsPatchResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "sendAs" :>-                 Capture "sendAsEmail" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] SendAs :> Patch '[JSON] SendAs---- | Updates a send-as alias. If a signature is provided, Gmail will sanitize--- the HTML before saving it with the alias. Addresses other than the--- primary address for the account can only be updated by service account--- clients that have been delegated domain-wide authority. This method--- supports patch semantics.------ /See:/ 'usersSettingsSendAsPatch' smart constructor.-data UsersSettingsSendAsPatch =-  UsersSettingsSendAsPatch'-    { _ussapPayload     :: !SendAs-    , _ussapUserId      :: !Text-    , _ussapSendAsEmail :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsSendAsPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ussapPayload'------ * 'ussapUserId'------ * 'ussapSendAsEmail'-usersSettingsSendAsPatch-    :: SendAs -- ^ 'ussapPayload'-    -> Text -- ^ 'ussapSendAsEmail'-    -> UsersSettingsSendAsPatch-usersSettingsSendAsPatch pUssapPayload_ pUssapSendAsEmail_ =-  UsersSettingsSendAsPatch'-    { _ussapPayload = pUssapPayload_-    , _ussapUserId = "me"-    , _ussapSendAsEmail = pUssapSendAsEmail_-    }----- | Multipart request metadata.-ussapPayload :: Lens' UsersSettingsSendAsPatch SendAs-ussapPayload-  = lens _ussapPayload (\ s a -> s{_ussapPayload = a})---- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-ussapUserId :: Lens' UsersSettingsSendAsPatch Text-ussapUserId-  = lens _ussapUserId (\ s a -> s{_ussapUserId = a})---- | The send-as alias to be updated.-ussapSendAsEmail :: Lens' UsersSettingsSendAsPatch Text-ussapSendAsEmail-  = lens _ussapSendAsEmail-      (\ s a -> s{_ussapSendAsEmail = a})--instance GoogleRequest UsersSettingsSendAsPatch where-        type Rs UsersSettingsSendAsPatch = SendAs-        type Scopes UsersSettingsSendAsPatch =-             '["https://www.googleapis.com/auth/gmail.settings.basic",-               "https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient UsersSettingsSendAsPatch'{..}-          = go _ussapUserId _ussapSendAsEmail (Just AltJSON)-              _ussapPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsSendAsPatchResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Delete.hs 
@@ -1,125 +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.Gmail.Users.Settings.SendAs.SmimeInfo.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 the specified S\/MIME config for the specified send-as alias.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.delete@.-module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Delete-    (-    -- * REST Resource-      UsersSettingsSendAsSmimeInfoDeleteResource--    -- * Creating a Request-    , usersSettingsSendAsSmimeInfoDelete-    , UsersSettingsSendAsSmimeInfoDelete--    -- * Request Lenses-    , ussasidUserId-    , ussasidSendAsEmail-    , ussasidId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.delete@ method which the--- 'UsersSettingsSendAsSmimeInfoDelete' request conforms to.-type UsersSettingsSendAsSmimeInfoDeleteResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "sendAs" :>-                 Capture "sendAsEmail" Text :>-                   "smimeInfo" :>-                     Capture "id" Text :>-                       QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes the specified S\/MIME config for the specified send-as alias.------ /See:/ 'usersSettingsSendAsSmimeInfoDelete' smart constructor.-data UsersSettingsSendAsSmimeInfoDelete =-  UsersSettingsSendAsSmimeInfoDelete'-    { _ussasidUserId      :: !Text-    , _ussasidSendAsEmail :: !Text-    , _ussasidId          :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsSendAsSmimeInfoDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ussasidUserId'------ * 'ussasidSendAsEmail'------ * 'ussasidId'-usersSettingsSendAsSmimeInfoDelete-    :: Text -- ^ 'ussasidSendAsEmail'-    -> Text -- ^ 'ussasidId'-    -> UsersSettingsSendAsSmimeInfoDelete-usersSettingsSendAsSmimeInfoDelete pUssasidSendAsEmail_ pUssasidId_ =-  UsersSettingsSendAsSmimeInfoDelete'-    { _ussasidUserId = "me"-    , _ussasidSendAsEmail = pUssasidSendAsEmail_-    , _ussasidId = pUssasidId_-    }----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-ussasidUserId :: Lens' UsersSettingsSendAsSmimeInfoDelete Text-ussasidUserId-  = lens _ussasidUserId-      (\ s a -> s{_ussasidUserId = a})---- | The email address that appears in the \"From:\" header for mail sent--- using this alias.-ussasidSendAsEmail :: Lens' UsersSettingsSendAsSmimeInfoDelete Text-ussasidSendAsEmail-  = lens _ussasidSendAsEmail-      (\ s a -> s{_ussasidSendAsEmail = a})---- | The immutable ID for the SmimeInfo.-ussasidId :: Lens' UsersSettingsSendAsSmimeInfoDelete Text-ussasidId-  = lens _ussasidId (\ s a -> s{_ussasidId = a})--instance GoogleRequest-           UsersSettingsSendAsSmimeInfoDelete-         where-        type Rs UsersSettingsSendAsSmimeInfoDelete = ()-        type Scopes UsersSettingsSendAsSmimeInfoDelete =-             '["https://www.googleapis.com/auth/gmail.settings.basic",-               "https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient UsersSettingsSendAsSmimeInfoDelete'{..}-          = go _ussasidUserId _ussasidSendAsEmail _ussasidId-              (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy UsersSettingsSendAsSmimeInfoDeleteResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Get.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.Gmail.Users.Settings.SendAs.SmimeInfo.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the specified S\/MIME config for the specified send-as alias.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.get@.-module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Get-    (-    -- * REST Resource-      UsersSettingsSendAsSmimeInfoGetResource--    -- * Creating a Request-    , usersSettingsSendAsSmimeInfoGet-    , UsersSettingsSendAsSmimeInfoGet--    -- * Request Lenses-    , ussasigUserId-    , ussasigSendAsEmail-    , ussasigId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.get@ method which the--- 'UsersSettingsSendAsSmimeInfoGet' request conforms to.-type UsersSettingsSendAsSmimeInfoGetResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "sendAs" :>-                 Capture "sendAsEmail" Text :>-                   "smimeInfo" :>-                     Capture "id" Text :>-                       QueryParam "alt" AltJSON :> Get '[JSON] SmimeInfo---- | Gets the specified S\/MIME config for the specified send-as alias.------ /See:/ 'usersSettingsSendAsSmimeInfoGet' smart constructor.-data UsersSettingsSendAsSmimeInfoGet =-  UsersSettingsSendAsSmimeInfoGet'-    { _ussasigUserId      :: !Text-    , _ussasigSendAsEmail :: !Text-    , _ussasigId          :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsSendAsSmimeInfoGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ussasigUserId'------ * 'ussasigSendAsEmail'------ * 'ussasigId'-usersSettingsSendAsSmimeInfoGet-    :: Text -- ^ 'ussasigSendAsEmail'-    -> Text -- ^ 'ussasigId'-    -> UsersSettingsSendAsSmimeInfoGet-usersSettingsSendAsSmimeInfoGet pUssasigSendAsEmail_ pUssasigId_ =-  UsersSettingsSendAsSmimeInfoGet'-    { _ussasigUserId = "me"-    , _ussasigSendAsEmail = pUssasigSendAsEmail_-    , _ussasigId = pUssasigId_-    }----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-ussasigUserId :: Lens' UsersSettingsSendAsSmimeInfoGet Text-ussasigUserId-  = lens _ussasigUserId-      (\ s a -> s{_ussasigUserId = a})---- | The email address that appears in the \"From:\" header for mail sent--- using this alias.-ussasigSendAsEmail :: Lens' UsersSettingsSendAsSmimeInfoGet Text-ussasigSendAsEmail-  = lens _ussasigSendAsEmail-      (\ s a -> s{_ussasigSendAsEmail = a})---- | The immutable ID for the SmimeInfo.-ussasigId :: Lens' UsersSettingsSendAsSmimeInfoGet Text-ussasigId-  = lens _ussasigId (\ s a -> s{_ussasigId = a})--instance GoogleRequest-           UsersSettingsSendAsSmimeInfoGet-         where-        type Rs UsersSettingsSendAsSmimeInfoGet = SmimeInfo-        type Scopes UsersSettingsSendAsSmimeInfoGet =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic",-               "https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient UsersSettingsSendAsSmimeInfoGet'{..}-          = go _ussasigUserId _ussasigSendAsEmail _ussasigId-              (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy UsersSettingsSendAsSmimeInfoGetResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Insert.hs 
@@ -1,130 +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.Gmail.Users.Settings.SendAs.SmimeInfo.Insert--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Insert (upload) the given S\/MIME config for the specified send-as--- alias. Note that pkcs12 format is required for the key.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.insert@.-module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Insert-    (-    -- * REST Resource-      UsersSettingsSendAsSmimeInfoInsertResource--    -- * Creating a Request-    , usersSettingsSendAsSmimeInfoInsert-    , UsersSettingsSendAsSmimeInfoInsert--    -- * Request Lenses-    , ussasiiPayload-    , ussasiiUserId-    , ussasiiSendAsEmail-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.insert@ method which the--- 'UsersSettingsSendAsSmimeInfoInsert' request conforms to.-type UsersSettingsSendAsSmimeInfoInsertResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "sendAs" :>-                 Capture "sendAsEmail" Text :>-                   "smimeInfo" :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] SmimeInfo :> Post '[JSON] SmimeInfo---- | Insert (upload) the given S\/MIME config for the specified send-as--- alias. Note that pkcs12 format is required for the key.------ /See:/ 'usersSettingsSendAsSmimeInfoInsert' smart constructor.-data UsersSettingsSendAsSmimeInfoInsert =-  UsersSettingsSendAsSmimeInfoInsert'-    { _ussasiiPayload     :: !SmimeInfo-    , _ussasiiUserId      :: !Text-    , _ussasiiSendAsEmail :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsSendAsSmimeInfoInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ussasiiPayload'------ * 'ussasiiUserId'------ * 'ussasiiSendAsEmail'-usersSettingsSendAsSmimeInfoInsert-    :: SmimeInfo -- ^ 'ussasiiPayload'-    -> Text -- ^ 'ussasiiSendAsEmail'-    -> UsersSettingsSendAsSmimeInfoInsert-usersSettingsSendAsSmimeInfoInsert pUssasiiPayload_ pUssasiiSendAsEmail_ =-  UsersSettingsSendAsSmimeInfoInsert'-    { _ussasiiPayload = pUssasiiPayload_-    , _ussasiiUserId = "me"-    , _ussasiiSendAsEmail = pUssasiiSendAsEmail_-    }----- | Multipart request metadata.-ussasiiPayload :: Lens' UsersSettingsSendAsSmimeInfoInsert SmimeInfo-ussasiiPayload-  = lens _ussasiiPayload-      (\ s a -> s{_ussasiiPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-ussasiiUserId :: Lens' UsersSettingsSendAsSmimeInfoInsert Text-ussasiiUserId-  = lens _ussasiiUserId-      (\ s a -> s{_ussasiiUserId = a})---- | The email address that appears in the \"From:\" header for mail sent--- using this alias.-ussasiiSendAsEmail :: Lens' UsersSettingsSendAsSmimeInfoInsert Text-ussasiiSendAsEmail-  = lens _ussasiiSendAsEmail-      (\ s a -> s{_ussasiiSendAsEmail = a})--instance GoogleRequest-           UsersSettingsSendAsSmimeInfoInsert-         where-        type Rs UsersSettingsSendAsSmimeInfoInsert =-             SmimeInfo-        type Scopes UsersSettingsSendAsSmimeInfoInsert =-             '["https://www.googleapis.com/auth/gmail.settings.basic",-               "https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient UsersSettingsSendAsSmimeInfoInsert'{..}-          = go _ussasiiUserId _ussasiiSendAsEmail-              (Just AltJSON)-              _ussasiiPayload-              gmailService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy UsersSettingsSendAsSmimeInfoInsertResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/List.hs 
@@ -1,116 +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.Gmail.Users.Settings.SendAs.SmimeInfo.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 S\/MIME configs for the specified send-as alias.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.list@.-module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.List-    (-    -- * REST Resource-      UsersSettingsSendAsSmimeInfoListResource--    -- * Creating a Request-    , usersSettingsSendAsSmimeInfoList-    , UsersSettingsSendAsSmimeInfoList--    -- * Request Lenses-    , ussasilUserId-    , ussasilSendAsEmail-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.list@ method which the--- 'UsersSettingsSendAsSmimeInfoList' request conforms to.-type UsersSettingsSendAsSmimeInfoListResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "sendAs" :>-                 Capture "sendAsEmail" Text :>-                   "smimeInfo" :>-                     QueryParam "alt" AltJSON :>-                       Get '[JSON] ListSmimeInfoResponse---- | Lists S\/MIME configs for the specified send-as alias.------ /See:/ 'usersSettingsSendAsSmimeInfoList' smart constructor.-data UsersSettingsSendAsSmimeInfoList =-  UsersSettingsSendAsSmimeInfoList'-    { _ussasilUserId      :: !Text-    , _ussasilSendAsEmail :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsSendAsSmimeInfoList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ussasilUserId'------ * 'ussasilSendAsEmail'-usersSettingsSendAsSmimeInfoList-    :: Text -- ^ 'ussasilSendAsEmail'-    -> UsersSettingsSendAsSmimeInfoList-usersSettingsSendAsSmimeInfoList pUssasilSendAsEmail_ =-  UsersSettingsSendAsSmimeInfoList'-    {_ussasilUserId = "me", _ussasilSendAsEmail = pUssasilSendAsEmail_}----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-ussasilUserId :: Lens' UsersSettingsSendAsSmimeInfoList Text-ussasilUserId-  = lens _ussasilUserId-      (\ s a -> s{_ussasilUserId = a})---- | The email address that appears in the \"From:\" header for mail sent--- using this alias.-ussasilSendAsEmail :: Lens' UsersSettingsSendAsSmimeInfoList Text-ussasilSendAsEmail-  = lens _ussasilSendAsEmail-      (\ s a -> s{_ussasilSendAsEmail = a})--instance GoogleRequest-           UsersSettingsSendAsSmimeInfoList-         where-        type Rs UsersSettingsSendAsSmimeInfoList =-             ListSmimeInfoResponse-        type Scopes UsersSettingsSendAsSmimeInfoList =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly",-               "https://www.googleapis.com/auth/gmail.settings.basic",-               "https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient UsersSettingsSendAsSmimeInfoList'{..}-          = go _ussasilUserId _ussasilSendAsEmail-              (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy UsersSettingsSendAsSmimeInfoListResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/SetDefault.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.Gmail.Users.Settings.SendAs.SmimeInfo.SetDefault--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Sets the default S\/MIME config for the specified send-as alias.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.setDefault@.-module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.SetDefault-    (-    -- * REST Resource-      UsersSettingsSendAsSmimeInfoSetDefaultResource--    -- * Creating a Request-    , usersSettingsSendAsSmimeInfoSetDefault-    , UsersSettingsSendAsSmimeInfoSetDefault--    -- * Request Lenses-    , ussasisdUserId-    , ussasisdSendAsEmail-    , ussasisdId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.setDefault@ method which the--- 'UsersSettingsSendAsSmimeInfoSetDefault' request conforms to.-type UsersSettingsSendAsSmimeInfoSetDefaultResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "sendAs" :>-                 Capture "sendAsEmail" Text :>-                   "smimeInfo" :>-                     Capture "id" Text :>-                       "setDefault" :>-                         QueryParam "alt" AltJSON :> Post '[JSON] ()---- | Sets the default S\/MIME config for the specified send-as alias.------ /See:/ 'usersSettingsSendAsSmimeInfoSetDefault' smart constructor.-data UsersSettingsSendAsSmimeInfoSetDefault =-  UsersSettingsSendAsSmimeInfoSetDefault'-    { _ussasisdUserId      :: !Text-    , _ussasisdSendAsEmail :: !Text-    , _ussasisdId          :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsSendAsSmimeInfoSetDefault' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ussasisdUserId'------ * 'ussasisdSendAsEmail'------ * 'ussasisdId'-usersSettingsSendAsSmimeInfoSetDefault-    :: Text -- ^ 'ussasisdSendAsEmail'-    -> Text -- ^ 'ussasisdId'-    -> UsersSettingsSendAsSmimeInfoSetDefault-usersSettingsSendAsSmimeInfoSetDefault pUssasisdSendAsEmail_ pUssasisdId_ =-  UsersSettingsSendAsSmimeInfoSetDefault'-    { _ussasisdUserId = "me"-    , _ussasisdSendAsEmail = pUssasisdSendAsEmail_-    , _ussasisdId = pUssasisdId_-    }----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-ussasisdUserId :: Lens' UsersSettingsSendAsSmimeInfoSetDefault Text-ussasisdUserId-  = lens _ussasisdUserId-      (\ s a -> s{_ussasisdUserId = a})---- | The email address that appears in the \"From:\" header for mail sent--- using this alias.-ussasisdSendAsEmail :: Lens' UsersSettingsSendAsSmimeInfoSetDefault Text-ussasisdSendAsEmail-  = lens _ussasisdSendAsEmail-      (\ s a -> s{_ussasisdSendAsEmail = a})---- | The immutable ID for the SmimeInfo.-ussasisdId :: Lens' UsersSettingsSendAsSmimeInfoSetDefault Text-ussasisdId-  = lens _ussasisdId (\ s a -> s{_ussasisdId = a})--instance GoogleRequest-           UsersSettingsSendAsSmimeInfoSetDefault-         where-        type Rs UsersSettingsSendAsSmimeInfoSetDefault = ()-        type Scopes UsersSettingsSendAsSmimeInfoSetDefault =-             '["https://www.googleapis.com/auth/gmail.settings.basic",-               "https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient-          UsersSettingsSendAsSmimeInfoSetDefault'{..}-          = go _ussasisdUserId _ussasisdSendAsEmail _ussasisdId-              (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy UsersSettingsSendAsSmimeInfoSetDefaultResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Update.hs 
@@ -1,126 +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.Gmail.Users.Settings.SendAs.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 send-as alias. If a signature is provided, Gmail will sanitize--- the HTML before saving it with the alias. Addresses other than the--- primary address for the account can only be updated by service account--- clients that have been delegated domain-wide authority.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.update@.-module Network.Google.Resource.Gmail.Users.Settings.SendAs.Update-    (-    -- * REST Resource-      UsersSettingsSendAsUpdateResource--    -- * Creating a Request-    , usersSettingsSendAsUpdate-    , UsersSettingsSendAsUpdate--    -- * Request Lenses-    , ussauPayload-    , ussauUserId-    , ussauSendAsEmail-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.sendAs.update@ method which the--- 'UsersSettingsSendAsUpdate' request conforms to.-type UsersSettingsSendAsUpdateResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "sendAs" :>-                 Capture "sendAsEmail" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] SendAs :> Put '[JSON] SendAs---- | Updates a send-as alias. If a signature is provided, Gmail will sanitize--- the HTML before saving it with the alias. Addresses other than the--- primary address for the account can only be updated by service account--- clients that have been delegated domain-wide authority.------ /See:/ 'usersSettingsSendAsUpdate' smart constructor.-data UsersSettingsSendAsUpdate =-  UsersSettingsSendAsUpdate'-    { _ussauPayload     :: !SendAs-    , _ussauUserId      :: !Text-    , _ussauSendAsEmail :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsSendAsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ussauPayload'------ * 'ussauUserId'------ * 'ussauSendAsEmail'-usersSettingsSendAsUpdate-    :: SendAs -- ^ 'ussauPayload'-    -> Text -- ^ 'ussauSendAsEmail'-    -> UsersSettingsSendAsUpdate-usersSettingsSendAsUpdate pUssauPayload_ pUssauSendAsEmail_ =-  UsersSettingsSendAsUpdate'-    { _ussauPayload = pUssauPayload_-    , _ussauUserId = "me"-    , _ussauSendAsEmail = pUssauSendAsEmail_-    }----- | Multipart request metadata.-ussauPayload :: Lens' UsersSettingsSendAsUpdate SendAs-ussauPayload-  = lens _ussauPayload (\ s a -> s{_ussauPayload = a})---- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-ussauUserId :: Lens' UsersSettingsSendAsUpdate Text-ussauUserId-  = lens _ussauUserId (\ s a -> s{_ussauUserId = a})---- | The send-as alias to be updated.-ussauSendAsEmail :: Lens' UsersSettingsSendAsUpdate Text-ussauSendAsEmail-  = lens _ussauSendAsEmail-      (\ s a -> s{_ussauSendAsEmail = a})--instance GoogleRequest UsersSettingsSendAsUpdate-         where-        type Rs UsersSettingsSendAsUpdate = SendAs-        type Scopes UsersSettingsSendAsUpdate =-             '["https://www.googleapis.com/auth/gmail.settings.basic",-               "https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient UsersSettingsSendAsUpdate'{..}-          = go _ussauUserId _ussauSendAsEmail (Just AltJSON)-              _ussauPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsSendAsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Verify.hs 
@@ -1,109 +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.Gmail.Users.Settings.SendAs.Verify--- 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)------ Sends a verification email to the specified send-as alias address. The--- verification status must be pending. This method is only available to--- service account clients that have been delegated domain-wide authority.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.verify@.-module Network.Google.Resource.Gmail.Users.Settings.SendAs.Verify-    (-    -- * REST Resource-      UsersSettingsSendAsVerifyResource--    -- * Creating a Request-    , usersSettingsSendAsVerify-    , UsersSettingsSendAsVerify--    -- * Request Lenses-    , ussavUserId-    , ussavSendAsEmail-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.sendAs.verify@ method which the--- 'UsersSettingsSendAsVerify' request conforms to.-type UsersSettingsSendAsVerifyResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "sendAs" :>-                 Capture "sendAsEmail" Text :>-                   "verify" :>-                     QueryParam "alt" AltJSON :> Post '[JSON] ()---- | Sends a verification email to the specified send-as alias address. The--- verification status must be pending. This method is only available to--- service account clients that have been delegated domain-wide authority.------ /See:/ 'usersSettingsSendAsVerify' smart constructor.-data UsersSettingsSendAsVerify =-  UsersSettingsSendAsVerify'-    { _ussavUserId      :: !Text-    , _ussavSendAsEmail :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsSendAsVerify' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ussavUserId'------ * 'ussavSendAsEmail'-usersSettingsSendAsVerify-    :: Text -- ^ 'ussavSendAsEmail'-    -> UsersSettingsSendAsVerify-usersSettingsSendAsVerify pUssavSendAsEmail_ =-  UsersSettingsSendAsVerify'-    {_ussavUserId = "me", _ussavSendAsEmail = pUssavSendAsEmail_}----- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-ussavUserId :: Lens' UsersSettingsSendAsVerify Text-ussavUserId-  = lens _ussavUserId (\ s a -> s{_ussavUserId = a})---- | The send-as alias to be verified.-ussavSendAsEmail :: Lens' UsersSettingsSendAsVerify Text-ussavSendAsEmail-  = lens _ussavSendAsEmail-      (\ s a -> s{_ussavSendAsEmail = a})--instance GoogleRequest UsersSettingsSendAsVerify-         where-        type Rs UsersSettingsSendAsVerify = ()-        type Scopes UsersSettingsSendAsVerify =-             '["https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient UsersSettingsSendAsVerify'{..}-          = go _ussavUserId _ussavSendAsEmail (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsSendAsVerifyResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/UpdateAutoForwarding.hs 
@@ -1,113 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Gmail.Users.Settings.UpdateAutoForwarding--- 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 auto-forwarding setting for the specified account. A--- verified forwarding address must be specified when auto-forwarding is--- enabled. This method is only available to service account clients that--- have been delegated domain-wide authority.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.updateAutoForwarding@.-module Network.Google.Resource.Gmail.Users.Settings.UpdateAutoForwarding-    (-    -- * REST Resource-      UsersSettingsUpdateAutoForwardingResource--    -- * Creating a Request-    , usersSettingsUpdateAutoForwarding-    , UsersSettingsUpdateAutoForwarding--    -- * Request Lenses-    , usuafPayload-    , usuafUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.updateAutoForwarding@ method which the--- 'UsersSettingsUpdateAutoForwarding' request conforms to.-type UsersSettingsUpdateAutoForwardingResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "autoForwarding" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] AutoForwarding :>-                     Put '[JSON] AutoForwarding---- | Updates the auto-forwarding setting for the specified account. A--- verified forwarding address must be specified when auto-forwarding is--- enabled. This method is only available to service account clients that--- have been delegated domain-wide authority.------ /See:/ 'usersSettingsUpdateAutoForwarding' smart constructor.-data UsersSettingsUpdateAutoForwarding =-  UsersSettingsUpdateAutoForwarding'-    { _usuafPayload :: !AutoForwarding-    , _usuafUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsUpdateAutoForwarding' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usuafPayload'------ * 'usuafUserId'-usersSettingsUpdateAutoForwarding-    :: AutoForwarding -- ^ 'usuafPayload'-    -> UsersSettingsUpdateAutoForwarding-usersSettingsUpdateAutoForwarding pUsuafPayload_ =-  UsersSettingsUpdateAutoForwarding'-    {_usuafPayload = pUsuafPayload_, _usuafUserId = "me"}----- | Multipart request metadata.-usuafPayload :: Lens' UsersSettingsUpdateAutoForwarding AutoForwarding-usuafPayload-  = lens _usuafPayload (\ s a -> s{_usuafPayload = a})---- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usuafUserId :: Lens' UsersSettingsUpdateAutoForwarding Text-usuafUserId-  = lens _usuafUserId (\ s a -> s{_usuafUserId = a})--instance GoogleRequest-           UsersSettingsUpdateAutoForwarding-         where-        type Rs UsersSettingsUpdateAutoForwarding =-             AutoForwarding-        type Scopes UsersSettingsUpdateAutoForwarding =-             '["https://www.googleapis.com/auth/gmail.settings.sharing"]-        requestClient UsersSettingsUpdateAutoForwarding'{..}-          = go _usuafUserId (Just AltJSON) _usuafPayload-              gmailService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy UsersSettingsUpdateAutoForwardingResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/UpdateImap.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.Gmail.Users.Settings.UpdateImap--- 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 IMAP settings.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.updateImap@.-module Network.Google.Resource.Gmail.Users.Settings.UpdateImap-    (-    -- * REST Resource-      UsersSettingsUpdateImapResource--    -- * Creating a Request-    , usersSettingsUpdateImap-    , UsersSettingsUpdateImap--    -- * Request Lenses-    , usuiPayload-    , usuiUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.updateImap@ method which the--- 'UsersSettingsUpdateImap' request conforms to.-type UsersSettingsUpdateImapResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "imap" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] ImapSettings :>-                     Put '[JSON] ImapSettings---- | Updates IMAP settings.------ /See:/ 'usersSettingsUpdateImap' smart constructor.-data UsersSettingsUpdateImap =-  UsersSettingsUpdateImap'-    { _usuiPayload :: !ImapSettings-    , _usuiUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsUpdateImap' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usuiPayload'------ * 'usuiUserId'-usersSettingsUpdateImap-    :: ImapSettings -- ^ 'usuiPayload'-    -> UsersSettingsUpdateImap-usersSettingsUpdateImap pUsuiPayload_ =-  UsersSettingsUpdateImap' {_usuiPayload = pUsuiPayload_, _usuiUserId = "me"}----- | Multipart request metadata.-usuiPayload :: Lens' UsersSettingsUpdateImap ImapSettings-usuiPayload-  = lens _usuiPayload (\ s a -> s{_usuiPayload = a})---- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usuiUserId :: Lens' UsersSettingsUpdateImap Text-usuiUserId-  = lens _usuiUserId (\ s a -> s{_usuiUserId = a})--instance GoogleRequest UsersSettingsUpdateImap where-        type Rs UsersSettingsUpdateImap = ImapSettings-        type Scopes UsersSettingsUpdateImap =-             '["https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsUpdateImap'{..}-          = go _usuiUserId (Just AltJSON) _usuiPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsUpdateImapResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/UpdateLanguage.hs 
@@ -1,113 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Gmail.Users.Settings.UpdateLanguage--- 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 language settings. If successful, the return object contains the--- displayLanguage that was saved for the user, which may differ from the--- value passed into the request. This is because the requested--- displayLanguage may not be directly supported by Gmail but have a close--- variant that is, and so the variant may be chosen and saved instead.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.updateLanguage@.-module Network.Google.Resource.Gmail.Users.Settings.UpdateLanguage-    (-    -- * REST Resource-      UsersSettingsUpdateLanguageResource--    -- * Creating a Request-    , usersSettingsUpdateLanguage-    , UsersSettingsUpdateLanguage--    -- * Request Lenses-    , usulPayload-    , usulUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.updateLanguage@ method which the--- 'UsersSettingsUpdateLanguage' request conforms to.-type UsersSettingsUpdateLanguageResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "language" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] LanguageSettings :>-                     Put '[JSON] LanguageSettings---- | Updates language settings. If successful, the return object contains the--- displayLanguage that was saved for the user, which may differ from the--- value passed into the request. This is because the requested--- displayLanguage may not be directly supported by Gmail but have a close--- variant that is, and so the variant may be chosen and saved instead.------ /See:/ 'usersSettingsUpdateLanguage' smart constructor.-data UsersSettingsUpdateLanguage =-  UsersSettingsUpdateLanguage'-    { _usulPayload :: !LanguageSettings-    , _usulUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsUpdateLanguage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usulPayload'------ * 'usulUserId'-usersSettingsUpdateLanguage-    :: LanguageSettings -- ^ 'usulPayload'-    -> UsersSettingsUpdateLanguage-usersSettingsUpdateLanguage pUsulPayload_ =-  UsersSettingsUpdateLanguage'-    {_usulPayload = pUsulPayload_, _usulUserId = "me"}----- | Multipart request metadata.-usulPayload :: Lens' UsersSettingsUpdateLanguage LanguageSettings-usulPayload-  = lens _usulPayload (\ s a -> s{_usulPayload = a})---- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usulUserId :: Lens' UsersSettingsUpdateLanguage Text-usulUserId-  = lens _usulUserId (\ s a -> s{_usulUserId = a})--instance GoogleRequest UsersSettingsUpdateLanguage-         where-        type Rs UsersSettingsUpdateLanguage =-             LanguageSettings-        type Scopes UsersSettingsUpdateLanguage =-             '["https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsUpdateLanguage'{..}-          = go _usulUserId (Just AltJSON) _usulPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsUpdateLanguageResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/UpdatePop.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.Gmail.Users.Settings.UpdatePop--- 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 POP settings.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.updatePop@.-module Network.Google.Resource.Gmail.Users.Settings.UpdatePop-    (-    -- * REST Resource-      UsersSettingsUpdatePopResource--    -- * Creating a Request-    , usersSettingsUpdatePop-    , UsersSettingsUpdatePop--    -- * Request Lenses-    , usupPayload-    , usupUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.updatePop@ method which the--- 'UsersSettingsUpdatePop' request conforms to.-type UsersSettingsUpdatePopResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "pop" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] PopSettings :>-                     Put '[JSON] PopSettings---- | Updates POP settings.------ /See:/ 'usersSettingsUpdatePop' smart constructor.-data UsersSettingsUpdatePop =-  UsersSettingsUpdatePop'-    { _usupPayload :: !PopSettings-    , _usupUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsUpdatePop' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usupPayload'------ * 'usupUserId'-usersSettingsUpdatePop-    :: PopSettings -- ^ 'usupPayload'-    -> UsersSettingsUpdatePop-usersSettingsUpdatePop pUsupPayload_ =-  UsersSettingsUpdatePop' {_usupPayload = pUsupPayload_, _usupUserId = "me"}----- | Multipart request metadata.-usupPayload :: Lens' UsersSettingsUpdatePop PopSettings-usupPayload-  = lens _usupPayload (\ s a -> s{_usupPayload = a})---- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usupUserId :: Lens' UsersSettingsUpdatePop Text-usupUserId-  = lens _usupUserId (\ s a -> s{_usupUserId = a})--instance GoogleRequest UsersSettingsUpdatePop where-        type Rs UsersSettingsUpdatePop = PopSettings-        type Scopes UsersSettingsUpdatePop =-             '["https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsUpdatePop'{..}-          = go _usupUserId (Just AltJSON) _usupPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsUpdatePopResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Settings/UpdateVacation.hs 
@@ -1,105 +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.Gmail.Users.Settings.UpdateVacation--- 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 vacation responder settings.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.updateVacation@.-module Network.Google.Resource.Gmail.Users.Settings.UpdateVacation-    (-    -- * REST Resource-      UsersSettingsUpdateVacationResource--    -- * Creating a Request-    , usersSettingsUpdateVacation-    , UsersSettingsUpdateVacation--    -- * Request Lenses-    , usuvPayload-    , usuvUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.settings.updateVacation@ method which the--- 'UsersSettingsUpdateVacation' request conforms to.-type UsersSettingsUpdateVacationResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "settings" :>-               "vacation" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] VacationSettings :>-                     Put '[JSON] VacationSettings---- | Updates vacation responder settings.------ /See:/ 'usersSettingsUpdateVacation' smart constructor.-data UsersSettingsUpdateVacation =-  UsersSettingsUpdateVacation'-    { _usuvPayload :: !VacationSettings-    , _usuvUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersSettingsUpdateVacation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usuvPayload'------ * 'usuvUserId'-usersSettingsUpdateVacation-    :: VacationSettings -- ^ 'usuvPayload'-    -> UsersSettingsUpdateVacation-usersSettingsUpdateVacation pUsuvPayload_ =-  UsersSettingsUpdateVacation'-    {_usuvPayload = pUsuvPayload_, _usuvUserId = "me"}----- | Multipart request metadata.-usuvPayload :: Lens' UsersSettingsUpdateVacation VacationSettings-usuvPayload-  = lens _usuvPayload (\ s a -> s{_usuvPayload = a})---- | User\'s email address. The special value \"me\" can be used to indicate--- the authenticated user.-usuvUserId :: Lens' UsersSettingsUpdateVacation Text-usuvUserId-  = lens _usuvUserId (\ s a -> s{_usuvUserId = a})--instance GoogleRequest UsersSettingsUpdateVacation-         where-        type Rs UsersSettingsUpdateVacation =-             VacationSettings-        type Scopes UsersSettingsUpdateVacation =-             '["https://www.googleapis.com/auth/gmail.settings.basic"]-        requestClient UsersSettingsUpdateVacation'{..}-          = go _usuvUserId (Just AltJSON) _usuvPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersSettingsUpdateVacationResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Stop.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.Gmail.Users.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 receiving push notifications for the given user mailbox.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.stop@.-module Network.Google.Resource.Gmail.Users.Stop-    (-    -- * REST Resource-      UsersStopResource--    -- * Creating a Request-    , usersStop-    , UsersStop--    -- * Request Lenses-    , usUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.stop@ method which the--- 'UsersStop' request conforms to.-type UsersStopResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "stop" :> QueryParam "alt" AltJSON :> Post '[JSON] ()---- | Stop receiving push notifications for the given user mailbox.------ /See:/ 'usersStop' smart constructor.-newtype UsersStop =-  UsersStop'-    { _usUserId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersStop' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usUserId'-usersStop-    :: UsersStop-usersStop = UsersStop' {_usUserId = "me"}----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-usUserId :: Lens' UsersStop Text-usUserId = lens _usUserId (\ s a -> s{_usUserId = a})--instance GoogleRequest UsersStop where-        type Rs UsersStop = ()-        type Scopes UsersStop =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.metadata",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly"]-        requestClient UsersStop'{..}-          = go _usUserId (Just AltJSON) gmailService-          where go-                  = buildClient (Proxy :: Proxy UsersStopResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Threads/Delete.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.Gmail.Users.Threads.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)------ Immediately and permanently deletes the specified thread. This operation--- cannot be undone. Prefer threads.trash instead.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.threads.delete@.-module Network.Google.Resource.Gmail.Users.Threads.Delete-    (-    -- * REST Resource-      UsersThreadsDeleteResource--    -- * Creating a Request-    , usersThreadsDelete-    , UsersThreadsDelete--    -- * Request Lenses-    , utdUserId-    , utdId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.threads.delete@ method which the--- 'UsersThreadsDelete' request conforms to.-type UsersThreadsDeleteResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "threads" :>-               Capture "id" Text :>-                 QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Immediately and permanently deletes the specified thread. This operation--- cannot be undone. Prefer threads.trash instead.------ /See:/ 'usersThreadsDelete' smart constructor.-data UsersThreadsDelete =-  UsersThreadsDelete'-    { _utdUserId :: !Text-    , _utdId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersThreadsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'utdUserId'------ * 'utdId'-usersThreadsDelete-    :: Text -- ^ 'utdId'-    -> UsersThreadsDelete-usersThreadsDelete pUtdId_ =-  UsersThreadsDelete' {_utdUserId = "me", _utdId = pUtdId_}----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-utdUserId :: Lens' UsersThreadsDelete Text-utdUserId-  = lens _utdUserId (\ s a -> s{_utdUserId = a})---- | ID of the Thread to delete.-utdId :: Lens' UsersThreadsDelete Text-utdId = lens _utdId (\ s a -> s{_utdId = a})--instance GoogleRequest UsersThreadsDelete where-        type Rs UsersThreadsDelete = ()-        type Scopes UsersThreadsDelete =-             '["https://mail.google.com/"]-        requestClient UsersThreadsDelete'{..}-          = go _utdUserId _utdId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersThreadsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Threads/Get.hs 
@@ -1,132 +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.Gmail.Users.Threads.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the specified thread.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.threads.get@.-module Network.Google.Resource.Gmail.Users.Threads.Get-    (-    -- * REST Resource-      UsersThreadsGetResource--    -- * Creating a Request-    , usersThreadsGet-    , UsersThreadsGet--    -- * Request Lenses-    , utgFormat-    , utgUserId-    , utgId-    , utgMetadataHeaders-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.threads.get@ method which the--- 'UsersThreadsGet' request conforms to.-type UsersThreadsGetResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "threads" :>-               Capture "id" Text :>-                 QueryParam "format" UsersThreadsGetFormat :>-                   QueryParams "metadataHeaders" Text :>-                     QueryParam "alt" AltJSON :> Get '[JSON] Thread---- | Gets the specified thread.------ /See:/ 'usersThreadsGet' smart constructor.-data UsersThreadsGet =-  UsersThreadsGet'-    { _utgFormat          :: !UsersThreadsGetFormat-    , _utgUserId          :: !Text-    , _utgId              :: !Text-    , _utgMetadataHeaders :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersThreadsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'utgFormat'------ * 'utgUserId'------ * 'utgId'------ * 'utgMetadataHeaders'-usersThreadsGet-    :: Text -- ^ 'utgId'-    -> UsersThreadsGet-usersThreadsGet pUtgId_ =-  UsersThreadsGet'-    { _utgFormat = UTGFFull-    , _utgUserId = "me"-    , _utgId = pUtgId_-    , _utgMetadataHeaders = Nothing-    }----- | The format to return the messages in.-utgFormat :: Lens' UsersThreadsGet UsersThreadsGetFormat-utgFormat-  = lens _utgFormat (\ s a -> s{_utgFormat = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-utgUserId :: Lens' UsersThreadsGet Text-utgUserId-  = lens _utgUserId (\ s a -> s{_utgUserId = a})---- | The ID of the thread to retrieve.-utgId :: Lens' UsersThreadsGet Text-utgId = lens _utgId (\ s a -> s{_utgId = a})---- | When given and format is METADATA, only include headers specified.-utgMetadataHeaders :: Lens' UsersThreadsGet [Text]-utgMetadataHeaders-  = lens _utgMetadataHeaders-      (\ s a -> s{_utgMetadataHeaders = a})-      . _Default-      . _Coerce--instance GoogleRequest UsersThreadsGet where-        type Rs UsersThreadsGet = Thread-        type Scopes UsersThreadsGet =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.metadata",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly"]-        requestClient UsersThreadsGet'{..}-          = go _utgUserId _utgId (Just _utgFormat)-              (_utgMetadataHeaders ^. _Default)-              (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersThreadsGetResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Threads/List.hs 
@@ -1,162 +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.Gmail.Users.Threads.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 threads in the user\'s mailbox.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.threads.list@.-module Network.Google.Resource.Gmail.Users.Threads.List-    (-    -- * REST Resource-      UsersThreadsListResource--    -- * Creating a Request-    , usersThreadsList-    , UsersThreadsList--    -- * Request Lenses-    , utlQ-    , utlUserId-    , utlIncludeSpamTrash-    , utlLabelIds-    , utlPageToken-    , utlMaxResults-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.threads.list@ method which the--- 'UsersThreadsList' request conforms to.-type UsersThreadsListResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "threads" :>-               QueryParam "q" Text :>-                 QueryParam "includeSpamTrash" Bool :>-                   QueryParams "labelIds" Text :>-                     QueryParam "pageToken" Text :>-                       QueryParam "maxResults" (Textual Word32) :>-                         QueryParam "alt" AltJSON :>-                           Get '[JSON] ListThreadsResponse---- | Lists the threads in the user\'s mailbox.------ /See:/ 'usersThreadsList' smart constructor.-data UsersThreadsList =-  UsersThreadsList'-    { _utlQ                :: !(Maybe Text)-    , _utlUserId           :: !Text-    , _utlIncludeSpamTrash :: !Bool-    , _utlLabelIds         :: !(Maybe [Text])-    , _utlPageToken        :: !(Maybe Text)-    , _utlMaxResults       :: !(Textual Word32)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersThreadsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'utlQ'------ * 'utlUserId'------ * 'utlIncludeSpamTrash'------ * 'utlLabelIds'------ * 'utlPageToken'------ * 'utlMaxResults'-usersThreadsList-    :: UsersThreadsList-usersThreadsList =-  UsersThreadsList'-    { _utlQ = Nothing-    , _utlUserId = "me"-    , _utlIncludeSpamTrash = False-    , _utlLabelIds = Nothing-    , _utlPageToken = Nothing-    , _utlMaxResults = 100-    }----- | Only return threads matching the specified query. Supports the same--- query format as the Gmail search box. For example,--- \"from:someuser\'example.com rfc822msgid: is:unread\". Parameter cannot--- be used when accessing the api using the gmail.metadata scope.-utlQ :: Lens' UsersThreadsList (Maybe Text)-utlQ = lens _utlQ (\ s a -> s{_utlQ = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-utlUserId :: Lens' UsersThreadsList Text-utlUserId-  = lens _utlUserId (\ s a -> s{_utlUserId = a})---- | Include threads from SPAM and TRASH in the results.-utlIncludeSpamTrash :: Lens' UsersThreadsList Bool-utlIncludeSpamTrash-  = lens _utlIncludeSpamTrash-      (\ s a -> s{_utlIncludeSpamTrash = a})---- | Only return threads with labels that match all of the specified label--- IDs.-utlLabelIds :: Lens' UsersThreadsList [Text]-utlLabelIds-  = lens _utlLabelIds (\ s a -> s{_utlLabelIds = a}) .-      _Default-      . _Coerce---- | Page token to retrieve a specific page of results in the list.-utlPageToken :: Lens' UsersThreadsList (Maybe Text)-utlPageToken-  = lens _utlPageToken (\ s a -> s{_utlPageToken = a})---- | Maximum number of threads to return.-utlMaxResults :: Lens' UsersThreadsList Word32-utlMaxResults-  = lens _utlMaxResults-      (\ s a -> s{_utlMaxResults = a})-      . _Coerce--instance GoogleRequest UsersThreadsList where-        type Rs UsersThreadsList = ListThreadsResponse-        type Scopes UsersThreadsList =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.metadata",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly"]-        requestClient UsersThreadsList'{..}-          = go _utlUserId _utlQ (Just _utlIncludeSpamTrash)-              (_utlLabelIds ^. _Default)-              _utlPageToken-              (Just _utlMaxResults)-              (Just AltJSON)-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersThreadsListResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Threads/Modify.hs 
@@ -1,116 +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.Gmail.Users.Threads.Modify--- 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)------ Modifies the labels applied to the thread. This applies to all messages--- in the thread.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.threads.modify@.-module Network.Google.Resource.Gmail.Users.Threads.Modify-    (-    -- * REST Resource-      UsersThreadsModifyResource--    -- * Creating a Request-    , usersThreadsModify-    , UsersThreadsModify--    -- * Request Lenses-    , utmPayload-    , utmUserId-    , utmId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.threads.modify@ method which the--- 'UsersThreadsModify' request conforms to.-type UsersThreadsModifyResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "threads" :>-               Capture "id" Text :>-                 "modify" :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] ModifyThreadRequest :>-                       Post '[JSON] Thread---- | Modifies the labels applied to the thread. This applies to all messages--- in the thread.------ /See:/ 'usersThreadsModify' smart constructor.-data UsersThreadsModify =-  UsersThreadsModify'-    { _utmPayload :: !ModifyThreadRequest-    , _utmUserId  :: !Text-    , _utmId      :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersThreadsModify' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'utmPayload'------ * 'utmUserId'------ * 'utmId'-usersThreadsModify-    :: ModifyThreadRequest -- ^ 'utmPayload'-    -> Text -- ^ 'utmId'-    -> UsersThreadsModify-usersThreadsModify pUtmPayload_ pUtmId_ =-  UsersThreadsModify'-    {_utmPayload = pUtmPayload_, _utmUserId = "me", _utmId = pUtmId_}----- | Multipart request metadata.-utmPayload :: Lens' UsersThreadsModify ModifyThreadRequest-utmPayload-  = lens _utmPayload (\ s a -> s{_utmPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-utmUserId :: Lens' UsersThreadsModify Text-utmUserId-  = lens _utmUserId (\ s a -> s{_utmUserId = a})---- | The ID of the thread to modify.-utmId :: Lens' UsersThreadsModify Text-utmId = lens _utmId (\ s a -> s{_utmId = a})--instance GoogleRequest UsersThreadsModify where-        type Rs UsersThreadsModify = Thread-        type Scopes UsersThreadsModify =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersThreadsModify'{..}-          = go _utmUserId _utmId (Just AltJSON) _utmPayload-              gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersThreadsModifyResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Threads/Trash.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.Gmail.Users.Threads.Trash--- 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)------ Moves the specified thread to the trash.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.threads.trash@.-module Network.Google.Resource.Gmail.Users.Threads.Trash-    (-    -- * REST Resource-      UsersThreadsTrashResource--    -- * Creating a Request-    , usersThreadsTrash-    , UsersThreadsTrash--    -- * Request Lenses-    , uttUserId-    , uttId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.threads.trash@ method which the--- 'UsersThreadsTrash' request conforms to.-type UsersThreadsTrashResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "threads" :>-               Capture "id" Text :>-                 "trash" :>-                   QueryParam "alt" AltJSON :> Post '[JSON] Thread---- | Moves the specified thread to the trash.------ /See:/ 'usersThreadsTrash' smart constructor.-data UsersThreadsTrash =-  UsersThreadsTrash'-    { _uttUserId :: !Text-    , _uttId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersThreadsTrash' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uttUserId'------ * 'uttId'-usersThreadsTrash-    :: Text -- ^ 'uttId'-    -> UsersThreadsTrash-usersThreadsTrash pUttId_ =-  UsersThreadsTrash' {_uttUserId = "me", _uttId = pUttId_}----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-uttUserId :: Lens' UsersThreadsTrash Text-uttUserId-  = lens _uttUserId (\ s a -> s{_uttUserId = a})---- | The ID of the thread to Trash.-uttId :: Lens' UsersThreadsTrash Text-uttId = lens _uttId (\ s a -> s{_uttId = a})--instance GoogleRequest UsersThreadsTrash where-        type Rs UsersThreadsTrash = Thread-        type Scopes UsersThreadsTrash =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersThreadsTrash'{..}-          = go _uttUserId _uttId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersThreadsTrashResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Threads/Untrash.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.Gmail.Users.Threads.Untrash--- 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)------ Removes the specified thread from the trash.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.threads.untrash@.-module Network.Google.Resource.Gmail.Users.Threads.Untrash-    (-    -- * REST Resource-      UsersThreadsUntrashResource--    -- * Creating a Request-    , usersThreadsUntrash-    , UsersThreadsUntrash--    -- * Request Lenses-    , utuUserId-    , utuId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.threads.untrash@ method which the--- 'UsersThreadsUntrash' request conforms to.-type UsersThreadsUntrashResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "threads" :>-               Capture "id" Text :>-                 "untrash" :>-                   QueryParam "alt" AltJSON :> Post '[JSON] Thread---- | Removes the specified thread from the trash.------ /See:/ 'usersThreadsUntrash' smart constructor.-data UsersThreadsUntrash =-  UsersThreadsUntrash'-    { _utuUserId :: !Text-    , _utuId     :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersThreadsUntrash' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'utuUserId'------ * 'utuId'-usersThreadsUntrash-    :: Text -- ^ 'utuId'-    -> UsersThreadsUntrash-usersThreadsUntrash pUtuId_ =-  UsersThreadsUntrash' {_utuUserId = "me", _utuId = pUtuId_}----- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-utuUserId :: Lens' UsersThreadsUntrash Text-utuUserId-  = lens _utuUserId (\ s a -> s{_utuUserId = a})---- | The ID of the thread to remove from Trash.-utuId :: Lens' UsersThreadsUntrash Text-utuId = lens _utuId (\ s a -> s{_utuId = a})--instance GoogleRequest UsersThreadsUntrash where-        type Rs UsersThreadsUntrash = Thread-        type Scopes UsersThreadsUntrash =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.modify"]-        requestClient UsersThreadsUntrash'{..}-          = go _utuUserId _utuId (Just AltJSON) gmailService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersThreadsUntrashResource)-                      mempty
− gen/Network/Google/Resource/Gmail/Users/Watch.hs 
@@ -1,101 +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.Gmail.Users.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)------ Set up or update a push notification watch on the given user mailbox.------ /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.watch@.-module Network.Google.Resource.Gmail.Users.Watch-    (-    -- * REST Resource-      UsersWatchResource--    -- * Creating a Request-    , usersWatch-    , UsersWatch--    -- * Request Lenses-    , uwPayload-    , uwUserId-    ) where--import           Network.Google.Gmail.Types-import           Network.Google.Prelude---- | A resource alias for @gmail.users.watch@ method which the--- 'UsersWatch' request conforms to.-type UsersWatchResource =-     "gmail" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "watch" :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] WatchRequest :>-                   Post '[JSON] WatchResponse---- | Set up or update a push notification watch on the given user mailbox.------ /See:/ 'usersWatch' smart constructor.-data UsersWatch =-  UsersWatch'-    { _uwPayload :: !WatchRequest-    , _uwUserId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersWatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uwPayload'------ * 'uwUserId'-usersWatch-    :: WatchRequest -- ^ 'uwPayload'-    -> UsersWatch-usersWatch pUwPayload_ =-  UsersWatch' {_uwPayload = pUwPayload_, _uwUserId = "me"}----- | Multipart request metadata.-uwPayload :: Lens' UsersWatch WatchRequest-uwPayload-  = lens _uwPayload (\ s a -> s{_uwPayload = a})---- | The user\'s email address. The special value me can be used to indicate--- the authenticated user.-uwUserId :: Lens' UsersWatch Text-uwUserId = lens _uwUserId (\ s a -> s{_uwUserId = a})--instance GoogleRequest UsersWatch where-        type Rs UsersWatch = WatchResponse-        type Scopes UsersWatch =-             '["https://mail.google.com/",-               "https://www.googleapis.com/auth/gmail.metadata",-               "https://www.googleapis.com/auth/gmail.modify",-               "https://www.googleapis.com/auth/gmail.readonly"]-        requestClient UsersWatch'{..}-          = go _uwUserId (Just AltJSON) _uwPayload gmailService-          where go-                  = buildClient (Proxy :: Proxy UsersWatchResource)-                      mempty
gogol-gmail.cabal view
@@ -1,113 +1,139 @@-name:                  gogol-gmail-version:               0.5.0-synopsis:              Google Gmail 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-gmail+version:            1.0.0+synopsis:           Google Gmail 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:-    Access Gmail mailboxes including sending user email.-    .-    /Warning:/ This is an experimental prototype/preview release which is still-    under exploratory development and not intended for public use, caveat emptor!-    .-    This library is compatible with version @v1@-    of the API.+  The Gmail API lets you view and manage Gmail mailbox data like threads, messages, and labels.+  .+  /Warning:/ This is an experimental prototype/preview release which is still+  under exploratory development and not intended for public use, caveat emptor!+  .+  This library is compatible with version @v1@+  of the API.  source-repository head-    type:     git-    location: git://github.com/brendanhay/gogol.git+  type:     git+  location: git://github.com/brendanhay/gogol.git+  subdir:   gogol-gmail +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.Gmail-        , Network.Google.Gmail.Types-        , Network.Google.Resource.Gmail.Users.Drafts.Create-        , Network.Google.Resource.Gmail.Users.Drafts.Delete-        , Network.Google.Resource.Gmail.Users.Drafts.Get-        , Network.Google.Resource.Gmail.Users.Drafts.List-        , Network.Google.Resource.Gmail.Users.Drafts.Send-        , Network.Google.Resource.Gmail.Users.Drafts.Update-        , Network.Google.Resource.Gmail.Users.GetProFile-        , Network.Google.Resource.Gmail.Users.History.List-        , Network.Google.Resource.Gmail.Users.Labels.Create-        , Network.Google.Resource.Gmail.Users.Labels.Delete-        , Network.Google.Resource.Gmail.Users.Labels.Get-        , Network.Google.Resource.Gmail.Users.Labels.List-        , Network.Google.Resource.Gmail.Users.Labels.Patch-        , Network.Google.Resource.Gmail.Users.Labels.Update-        , Network.Google.Resource.Gmail.Users.Messages.Attachments.Get-        , Network.Google.Resource.Gmail.Users.Messages.BatchDelete-        , Network.Google.Resource.Gmail.Users.Messages.BatchModify-        , Network.Google.Resource.Gmail.Users.Messages.Delete-        , Network.Google.Resource.Gmail.Users.Messages.Get-        , Network.Google.Resource.Gmail.Users.Messages.Import-        , Network.Google.Resource.Gmail.Users.Messages.Insert-        , Network.Google.Resource.Gmail.Users.Messages.List-        , Network.Google.Resource.Gmail.Users.Messages.Modify-        , Network.Google.Resource.Gmail.Users.Messages.Send-        , Network.Google.Resource.Gmail.Users.Messages.Trash-        , Network.Google.Resource.Gmail.Users.Messages.Untrash-        , Network.Google.Resource.Gmail.Users.Settings.Delegates.Create-        , Network.Google.Resource.Gmail.Users.Settings.Delegates.Delete-        , Network.Google.Resource.Gmail.Users.Settings.Delegates.Get-        , Network.Google.Resource.Gmail.Users.Settings.Delegates.List-        , Network.Google.Resource.Gmail.Users.Settings.Filters.Create-        , Network.Google.Resource.Gmail.Users.Settings.Filters.Delete-        , Network.Google.Resource.Gmail.Users.Settings.Filters.Get-        , Network.Google.Resource.Gmail.Users.Settings.Filters.List-        , Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Create-        , Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Delete-        , Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Get-        , Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.List-        , Network.Google.Resource.Gmail.Users.Settings.GetAutoForwarding-        , Network.Google.Resource.Gmail.Users.Settings.GetImap-        , Network.Google.Resource.Gmail.Users.Settings.GetLanguage-        , Network.Google.Resource.Gmail.Users.Settings.GetPop-        , Network.Google.Resource.Gmail.Users.Settings.GetVacation-        , Network.Google.Resource.Gmail.Users.Settings.SendAs.Create-        , Network.Google.Resource.Gmail.Users.Settings.SendAs.Delete-        , Network.Google.Resource.Gmail.Users.Settings.SendAs.Get-        , Network.Google.Resource.Gmail.Users.Settings.SendAs.List-        , Network.Google.Resource.Gmail.Users.Settings.SendAs.Patch-        , Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Delete-        , Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Get-        , Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Insert-        , Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.List-        , Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.SetDefault-        , Network.Google.Resource.Gmail.Users.Settings.SendAs.Update-        , Network.Google.Resource.Gmail.Users.Settings.SendAs.Verify-        , Network.Google.Resource.Gmail.Users.Settings.UpdateAutoForwarding-        , Network.Google.Resource.Gmail.Users.Settings.UpdateImap-        , Network.Google.Resource.Gmail.Users.Settings.UpdateLanguage-        , Network.Google.Resource.Gmail.Users.Settings.UpdatePop-        , Network.Google.Resource.Gmail.Users.Settings.UpdateVacation-        , Network.Google.Resource.Gmail.Users.Stop-        , Network.Google.Resource.Gmail.Users.Threads.Delete-        , Network.Google.Resource.Gmail.Users.Threads.Get-        , Network.Google.Resource.Gmail.Users.Threads.List-        , Network.Google.Resource.Gmail.Users.Threads.Modify-        , Network.Google.Resource.Gmail.Users.Threads.Trash-        , Network.Google.Resource.Gmail.Users.Threads.Untrash-        , Network.Google.Resource.Gmail.Users.Watch+  exposed-modules:+    Gogol.Gmail+    Gogol.Gmail.Types+    Gogol.Gmail.Users.Drafts.Create+    Gogol.Gmail.Users.Drafts.Delete+    Gogol.Gmail.Users.Drafts.Get+    Gogol.Gmail.Users.Drafts.List+    Gogol.Gmail.Users.Drafts.Send+    Gogol.Gmail.Users.Drafts.Update+    Gogol.Gmail.Users.GetProfile+    Gogol.Gmail.Users.History.List+    Gogol.Gmail.Users.Labels.Create+    Gogol.Gmail.Users.Labels.Delete+    Gogol.Gmail.Users.Labels.Get+    Gogol.Gmail.Users.Labels.List+    Gogol.Gmail.Users.Labels.Patch+    Gogol.Gmail.Users.Labels.Update+    Gogol.Gmail.Users.Messages.Attachments.Get+    Gogol.Gmail.Users.Messages.BatchDelete+    Gogol.Gmail.Users.Messages.BatchModify+    Gogol.Gmail.Users.Messages.Delete+    Gogol.Gmail.Users.Messages.Get+    Gogol.Gmail.Users.Messages.Import+    Gogol.Gmail.Users.Messages.Insert+    Gogol.Gmail.Users.Messages.List+    Gogol.Gmail.Users.Messages.Modify+    Gogol.Gmail.Users.Messages.Send+    Gogol.Gmail.Users.Messages.Trash+    Gogol.Gmail.Users.Messages.Untrash+    Gogol.Gmail.Users.Settings.Cse.Identities.Create+    Gogol.Gmail.Users.Settings.Cse.Identities.Delete+    Gogol.Gmail.Users.Settings.Cse.Identities.Get+    Gogol.Gmail.Users.Settings.Cse.Identities.List+    Gogol.Gmail.Users.Settings.Cse.Identities.Patch+    Gogol.Gmail.Users.Settings.Cse.Keypairs.Create+    Gogol.Gmail.Users.Settings.Cse.Keypairs.Disable+    Gogol.Gmail.Users.Settings.Cse.Keypairs.Enable+    Gogol.Gmail.Users.Settings.Cse.Keypairs.Get+    Gogol.Gmail.Users.Settings.Cse.Keypairs.List+    Gogol.Gmail.Users.Settings.Cse.Keypairs.Obliterate+    Gogol.Gmail.Users.Settings.Delegates.Create+    Gogol.Gmail.Users.Settings.Delegates.Delete+    Gogol.Gmail.Users.Settings.Delegates.Get+    Gogol.Gmail.Users.Settings.Delegates.List+    Gogol.Gmail.Users.Settings.Filters.Create+    Gogol.Gmail.Users.Settings.Filters.Delete+    Gogol.Gmail.Users.Settings.Filters.Get+    Gogol.Gmail.Users.Settings.Filters.List+    Gogol.Gmail.Users.Settings.ForwardingAddresses.Create+    Gogol.Gmail.Users.Settings.ForwardingAddresses.Delete+    Gogol.Gmail.Users.Settings.ForwardingAddresses.Get+    Gogol.Gmail.Users.Settings.ForwardingAddresses.List+    Gogol.Gmail.Users.Settings.GetAutoForwarding+    Gogol.Gmail.Users.Settings.GetImap+    Gogol.Gmail.Users.Settings.GetLanguage+    Gogol.Gmail.Users.Settings.GetPop+    Gogol.Gmail.Users.Settings.GetVacation+    Gogol.Gmail.Users.Settings.SendAs.Create+    Gogol.Gmail.Users.Settings.SendAs.Delete+    Gogol.Gmail.Users.Settings.SendAs.Get+    Gogol.Gmail.Users.Settings.SendAs.List+    Gogol.Gmail.Users.Settings.SendAs.Patch+    Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.Delete+    Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.Get+    Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.Insert+    Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.List+    Gogol.Gmail.Users.Settings.SendAs.SmimeInfo.SetDefault+    Gogol.Gmail.Users.Settings.SendAs.Update+    Gogol.Gmail.Users.Settings.SendAs.Verify+    Gogol.Gmail.Users.Settings.UpdateAutoForwarding+    Gogol.Gmail.Users.Settings.UpdateImap+    Gogol.Gmail.Users.Settings.UpdateLanguage+    Gogol.Gmail.Users.Settings.UpdatePop+    Gogol.Gmail.Users.Settings.UpdateVacation+    Gogol.Gmail.Users.Stop+    Gogol.Gmail.Users.Threads.Delete+    Gogol.Gmail.Users.Threads.Get+    Gogol.Gmail.Users.Threads.List+    Gogol.Gmail.Users.Threads.Modify+    Gogol.Gmail.Users.Threads.Trash+    Gogol.Gmail.Users.Threads.Untrash+    Gogol.Gmail.Users.Watch -    other-modules:-          Network.Google.Gmail.Types.Product-        , Network.Google.Gmail.Types.Sum+  other-modules:+    Gogol.Gmail.Internal.Product+    Gogol.Gmail.Internal.Sum -    build-depends:-          gogol-core == 0.5.0.*-        , base       >= 4.7 && < 5+  build-depends:    gogol-core ^>=1.0.0