packages feed

gogol-admin-directory 0.5.0 → 1.0.0

raw patch · 250 files changed

+27506/−24949 lines, 250 filesdep −basedep ~gogol-coresetup-changed

Dependencies removed: base

Dependency ranges changed: gogol-core

Files

README.md view
@@ -8,12 +8,12 @@  ## Version -`0.5.0`+`1.0.0`   ## Description -A client library for the Google Admin Directory.+A client library for the Google Admin SDK.   ## Contribute
Setup.hs view
@@ -1,2 +1,3 @@-import           Distribution.Simple+import Distribution.Simple+ main = defaultMain
+ gen/Gogol/Admin/Directory.hs view
@@ -0,0 +1,1466 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Admin SDK lets administrators of enterprise domains to view and manage resources like user, groups etc. It also provides audit and usage reports of domain.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference>+module Gogol.Admin.Directory+  ( -- * Configuration+    adminDirectoryService,++    -- * OAuth Scopes+    Admin'Chrome'Printers,+    Admin'Chrome'Printers'Readonly,+    Admin'Directory'Customer,+    Admin'Directory'Customer'Readonly,+    Admin'Directory'Device'Chromeos,+    Admin'Directory'Device'Chromeos'Readonly,+    Admin'Directory'Device'Mobile,+    Admin'Directory'Device'Mobile'Action,+    Admin'Directory'Device'Mobile'Readonly,+    Admin'Directory'Domain,+    Admin'Directory'Domain'Readonly,+    Admin'Directory'Group,+    Admin'Directory'Group'Member,+    Admin'Directory'Group'Member'Readonly,+    Admin'Directory'Group'Readonly,+    Admin'Directory'Orgunit,+    Admin'Directory'Orgunit'Readonly,+    Admin'Directory'Resource'Calendar,+    Admin'Directory'Resource'Calendar'Readonly,+    Admin'Directory'Rolemanagement,+    Admin'Directory'Rolemanagement'Readonly,+    Admin'Directory'User,+    Admin'Directory'User'Alias,+    Admin'Directory'User'Alias'Readonly,+    Admin'Directory'User'Readonly,+    Admin'Directory'User'Security,+    Admin'Directory'Userschema,+    Admin'Directory'Userschema'Readonly,+    CloudPlatform'FullControl,++    -- * Resources++    -- ** admin.channels.stop+    AdminChannelsStopResource,+    AdminChannelsStop (..),+    newAdminChannelsStop,++    -- ** admin.customer.devices.chromeos.batchChangeStatus+    AdminCustomerDevicesChromeosBatchChangeStatusResource,+    AdminCustomerDevicesChromeosBatchChangeStatus (..),+    newAdminCustomerDevicesChromeosBatchChangeStatus,++    -- ** admin.customer.devices.chromeos.commands.get+    AdminCustomerDevicesChromeosCommandsGetResource,+    AdminCustomerDevicesChromeosCommandsGet (..),+    newAdminCustomerDevicesChromeosCommandsGet,++    -- ** admin.customer.devices.chromeos.issueCommand+    AdminCustomerDevicesChromeosIssueCommandResource,+    AdminCustomerDevicesChromeosIssueCommand (..),+    newAdminCustomerDevicesChromeosIssueCommand,++    -- ** admin.customers.chrome.printServers.batchCreatePrintServers+    AdminCustomersChromePrintServersBatchCreatePrintServersResource,+    AdminCustomersChromePrintServersBatchCreatePrintServers (..),+    newAdminCustomersChromePrintServersBatchCreatePrintServers,++    -- ** admin.customers.chrome.printServers.batchDeletePrintServers+    AdminCustomersChromePrintServersBatchDeletePrintServersResource,+    AdminCustomersChromePrintServersBatchDeletePrintServers (..),+    newAdminCustomersChromePrintServersBatchDeletePrintServers,++    -- ** admin.customers.chrome.printServers.create+    AdminCustomersChromePrintServersCreateResource,+    AdminCustomersChromePrintServersCreate (..),+    newAdminCustomersChromePrintServersCreate,++    -- ** admin.customers.chrome.printServers.delete+    AdminCustomersChromePrintServersDeleteResource,+    AdminCustomersChromePrintServersDelete (..),+    newAdminCustomersChromePrintServersDelete,++    -- ** admin.customers.chrome.printServers.get+    AdminCustomersChromePrintServersGetResource,+    AdminCustomersChromePrintServersGet (..),+    newAdminCustomersChromePrintServersGet,++    -- ** admin.customers.chrome.printServers.list+    AdminCustomersChromePrintServersListResource,+    AdminCustomersChromePrintServersList (..),+    newAdminCustomersChromePrintServersList,++    -- ** admin.customers.chrome.printServers.patch+    AdminCustomersChromePrintServersPatchResource,+    AdminCustomersChromePrintServersPatch (..),+    newAdminCustomersChromePrintServersPatch,++    -- ** admin.customers.chrome.printers.batchCreatePrinters+    AdminCustomersChromePrintersBatchCreatePrintersResource,+    AdminCustomersChromePrintersBatchCreatePrinters (..),+    newAdminCustomersChromePrintersBatchCreatePrinters,++    -- ** admin.customers.chrome.printers.batchDeletePrinters+    AdminCustomersChromePrintersBatchDeletePrintersResource,+    AdminCustomersChromePrintersBatchDeletePrinters (..),+    newAdminCustomersChromePrintersBatchDeletePrinters,++    -- ** admin.customers.chrome.printers.create+    AdminCustomersChromePrintersCreateResource,+    AdminCustomersChromePrintersCreate (..),+    newAdminCustomersChromePrintersCreate,++    -- ** admin.customers.chrome.printers.delete+    AdminCustomersChromePrintersDeleteResource,+    AdminCustomersChromePrintersDelete (..),+    newAdminCustomersChromePrintersDelete,++    -- ** admin.customers.chrome.printers.get+    AdminCustomersChromePrintersGetResource,+    AdminCustomersChromePrintersGet (..),+    newAdminCustomersChromePrintersGet,++    -- ** admin.customers.chrome.printers.list+    AdminCustomersChromePrintersListResource,+    AdminCustomersChromePrintersList (..),+    newAdminCustomersChromePrintersList,++    -- ** admin.customers.chrome.printers.listPrinterModels+    AdminCustomersChromePrintersListPrinterModelsResource,+    AdminCustomersChromePrintersListPrinterModels (..),+    newAdminCustomersChromePrintersListPrinterModels,++    -- ** admin.customers.chrome.printers.patch+    AdminCustomersChromePrintersPatchResource,+    AdminCustomersChromePrintersPatch (..),+    newAdminCustomersChromePrintersPatch,++    -- ** directory.asps.delete+    DirectoryAspsDeleteResource,+    DirectoryAspsDelete (..),+    newDirectoryAspsDelete,++    -- ** directory.asps.get+    DirectoryAspsGetResource,+    DirectoryAspsGet (..),+    newDirectoryAspsGet,++    -- ** directory.asps.list+    DirectoryAspsListResource,+    DirectoryAspsList (..),+    newDirectoryAspsList,++    -- ** directory.chromeosdevices.action+    DirectoryChromeosdevicesActionResource,+    DirectoryChromeosdevicesAction (..),+    newDirectoryChromeosdevicesAction,++    -- ** directory.chromeosdevices.get+    DirectoryChromeosdevicesGetResource,+    DirectoryChromeosdevicesGet (..),+    newDirectoryChromeosdevicesGet,++    -- ** directory.chromeosdevices.list+    DirectoryChromeosdevicesListResource,+    DirectoryChromeosdevicesList (..),+    newDirectoryChromeosdevicesList,++    -- ** directory.chromeosdevices.moveDevicesToOu+    DirectoryChromeosdevicesMoveDevicesToOuResource,+    DirectoryChromeosdevicesMoveDevicesToOu (..),+    newDirectoryChromeosdevicesMoveDevicesToOu,++    -- ** directory.chromeosdevices.patch+    DirectoryChromeosdevicesPatchResource,+    DirectoryChromeosdevicesPatch (..),+    newDirectoryChromeosdevicesPatch,++    -- ** directory.chromeosdevices.update+    DirectoryChromeosdevicesUpdateResource,+    DirectoryChromeosdevicesUpdate (..),+    newDirectoryChromeosdevicesUpdate,++    -- ** directory.customers.get+    DirectoryCustomersGetResource,+    DirectoryCustomersGet (..),+    newDirectoryCustomersGet,++    -- ** directory.customers.patch+    DirectoryCustomersPatchResource,+    DirectoryCustomersPatch (..),+    newDirectoryCustomersPatch,++    -- ** directory.customers.update+    DirectoryCustomersUpdateResource,+    DirectoryCustomersUpdate (..),+    newDirectoryCustomersUpdate,++    -- ** directory.domainAliases.delete+    DirectoryDomainAliasesDeleteResource,+    DirectoryDomainAliasesDelete (..),+    newDirectoryDomainAliasesDelete,++    -- ** directory.domainAliases.get+    DirectoryDomainAliasesGetResource,+    DirectoryDomainAliasesGet (..),+    newDirectoryDomainAliasesGet,++    -- ** directory.domainAliases.insert+    DirectoryDomainAliasesInsertResource,+    DirectoryDomainAliasesInsert (..),+    newDirectoryDomainAliasesInsert,++    -- ** directory.domainAliases.list+    DirectoryDomainAliasesListResource,+    DirectoryDomainAliasesList (..),+    newDirectoryDomainAliasesList,++    -- ** directory.domains.delete+    DirectoryDomainsDeleteResource,+    DirectoryDomainsDelete (..),+    newDirectoryDomainsDelete,++    -- ** directory.domains.get+    DirectoryDomainsGetResource,+    DirectoryDomainsGet (..),+    newDirectoryDomainsGet,++    -- ** directory.domains.insert+    DirectoryDomainsInsertResource,+    DirectoryDomainsInsert (..),+    newDirectoryDomainsInsert,++    -- ** directory.domains.list+    DirectoryDomainsListResource,+    DirectoryDomainsList (..),+    newDirectoryDomainsList,++    -- ** directory.groups.aliases.delete+    DirectoryGroupsAliasesDeleteResource,+    DirectoryGroupsAliasesDelete (..),+    newDirectoryGroupsAliasesDelete,++    -- ** directory.groups.aliases.insert+    DirectoryGroupsAliasesInsertResource,+    DirectoryGroupsAliasesInsert (..),+    newDirectoryGroupsAliasesInsert,++    -- ** directory.groups.aliases.list+    DirectoryGroupsAliasesListResource,+    DirectoryGroupsAliasesList (..),+    newDirectoryGroupsAliasesList,++    -- ** directory.groups.delete+    DirectoryGroupsDeleteResource,+    DirectoryGroupsDelete (..),+    newDirectoryGroupsDelete,++    -- ** directory.groups.get+    DirectoryGroupsGetResource,+    DirectoryGroupsGet (..),+    newDirectoryGroupsGet,++    -- ** directory.groups.insert+    DirectoryGroupsInsertResource,+    DirectoryGroupsInsert (..),+    newDirectoryGroupsInsert,++    -- ** directory.groups.list+    DirectoryGroupsListResource,+    DirectoryGroupsList (..),+    newDirectoryGroupsList,++    -- ** directory.groups.patch+    DirectoryGroupsPatchResource,+    DirectoryGroupsPatch (..),+    newDirectoryGroupsPatch,++    -- ** directory.groups.update+    DirectoryGroupsUpdateResource,+    DirectoryGroupsUpdate (..),+    newDirectoryGroupsUpdate,++    -- ** directory.members.delete+    DirectoryMembersDeleteResource,+    DirectoryMembersDelete (..),+    newDirectoryMembersDelete,++    -- ** directory.members.get+    DirectoryMembersGetResource,+    DirectoryMembersGet (..),+    newDirectoryMembersGet,++    -- ** directory.members.hasMember+    DirectoryMembersHasMemberResource,+    DirectoryMembersHasMember (..),+    newDirectoryMembersHasMember,++    -- ** directory.members.insert+    DirectoryMembersInsertResource,+    DirectoryMembersInsert (..),+    newDirectoryMembersInsert,++    -- ** directory.members.list+    DirectoryMembersListResource,+    DirectoryMembersList (..),+    newDirectoryMembersList,++    -- ** directory.members.patch+    DirectoryMembersPatchResource,+    DirectoryMembersPatch (..),+    newDirectoryMembersPatch,++    -- ** directory.members.update+    DirectoryMembersUpdateResource,+    DirectoryMembersUpdate (..),+    newDirectoryMembersUpdate,++    -- ** directory.mobiledevices.action+    DirectoryMobiledevicesActionResource,+    DirectoryMobiledevicesAction (..),+    newDirectoryMobiledevicesAction,++    -- ** directory.mobiledevices.delete+    DirectoryMobiledevicesDeleteResource,+    DirectoryMobiledevicesDelete (..),+    newDirectoryMobiledevicesDelete,++    -- ** directory.mobiledevices.get+    DirectoryMobiledevicesGetResource,+    DirectoryMobiledevicesGet (..),+    newDirectoryMobiledevicesGet,++    -- ** directory.mobiledevices.list+    DirectoryMobiledevicesListResource,+    DirectoryMobiledevicesList (..),+    newDirectoryMobiledevicesList,++    -- ** directory.orgunits.delete+    DirectoryOrgunitsDeleteResource,+    DirectoryOrgunitsDelete (..),+    newDirectoryOrgunitsDelete,++    -- ** directory.orgunits.get+    DirectoryOrgunitsGetResource,+    DirectoryOrgunitsGet (..),+    newDirectoryOrgunitsGet,++    -- ** directory.orgunits.insert+    DirectoryOrgunitsInsertResource,+    DirectoryOrgunitsInsert (..),+    newDirectoryOrgunitsInsert,++    -- ** directory.orgunits.list+    DirectoryOrgunitsListResource,+    DirectoryOrgunitsList (..),+    newDirectoryOrgunitsList,++    -- ** directory.orgunits.patch+    DirectoryOrgunitsPatchResource,+    DirectoryOrgunitsPatch (..),+    newDirectoryOrgunitsPatch,++    -- ** directory.orgunits.update+    DirectoryOrgunitsUpdateResource,+    DirectoryOrgunitsUpdate (..),+    newDirectoryOrgunitsUpdate,++    -- ** directory.privileges.list+    DirectoryPrivilegesListResource,+    DirectoryPrivilegesList (..),+    newDirectoryPrivilegesList,++    -- ** directory.resources.buildings.delete+    DirectoryResourcesBuildingsDeleteResource,+    DirectoryResourcesBuildingsDelete (..),+    newDirectoryResourcesBuildingsDelete,++    -- ** directory.resources.buildings.get+    DirectoryResourcesBuildingsGetResource,+    DirectoryResourcesBuildingsGet (..),+    newDirectoryResourcesBuildingsGet,++    -- ** directory.resources.buildings.insert+    DirectoryResourcesBuildingsInsertResource,+    DirectoryResourcesBuildingsInsert (..),+    newDirectoryResourcesBuildingsInsert,++    -- ** directory.resources.buildings.list+    DirectoryResourcesBuildingsListResource,+    DirectoryResourcesBuildingsList (..),+    newDirectoryResourcesBuildingsList,++    -- ** directory.resources.buildings.patch+    DirectoryResourcesBuildingsPatchResource,+    DirectoryResourcesBuildingsPatch (..),+    newDirectoryResourcesBuildingsPatch,++    -- ** directory.resources.buildings.update+    DirectoryResourcesBuildingsUpdateResource,+    DirectoryResourcesBuildingsUpdate (..),+    newDirectoryResourcesBuildingsUpdate,++    -- ** directory.resources.calendars.delete+    DirectoryResourcesCalendarsDeleteResource,+    DirectoryResourcesCalendarsDelete (..),+    newDirectoryResourcesCalendarsDelete,++    -- ** directory.resources.calendars.get+    DirectoryResourcesCalendarsGetResource,+    DirectoryResourcesCalendarsGet (..),+    newDirectoryResourcesCalendarsGet,++    -- ** directory.resources.calendars.insert+    DirectoryResourcesCalendarsInsertResource,+    DirectoryResourcesCalendarsInsert (..),+    newDirectoryResourcesCalendarsInsert,++    -- ** directory.resources.calendars.list+    DirectoryResourcesCalendarsListResource,+    DirectoryResourcesCalendarsList (..),+    newDirectoryResourcesCalendarsList,++    -- ** directory.resources.calendars.patch+    DirectoryResourcesCalendarsPatchResource,+    DirectoryResourcesCalendarsPatch (..),+    newDirectoryResourcesCalendarsPatch,++    -- ** directory.resources.calendars.update+    DirectoryResourcesCalendarsUpdateResource,+    DirectoryResourcesCalendarsUpdate (..),+    newDirectoryResourcesCalendarsUpdate,++    -- ** directory.resources.features.delete+    DirectoryResourcesFeaturesDeleteResource,+    DirectoryResourcesFeaturesDelete (..),+    newDirectoryResourcesFeaturesDelete,++    -- ** directory.resources.features.get+    DirectoryResourcesFeaturesGetResource,+    DirectoryResourcesFeaturesGet (..),+    newDirectoryResourcesFeaturesGet,++    -- ** directory.resources.features.insert+    DirectoryResourcesFeaturesInsertResource,+    DirectoryResourcesFeaturesInsert (..),+    newDirectoryResourcesFeaturesInsert,++    -- ** directory.resources.features.list+    DirectoryResourcesFeaturesListResource,+    DirectoryResourcesFeaturesList (..),+    newDirectoryResourcesFeaturesList,++    -- ** directory.resources.features.patch+    DirectoryResourcesFeaturesPatchResource,+    DirectoryResourcesFeaturesPatch (..),+    newDirectoryResourcesFeaturesPatch,++    -- ** directory.resources.features.rename+    DirectoryResourcesFeaturesRenameResource,+    DirectoryResourcesFeaturesRename (..),+    newDirectoryResourcesFeaturesRename,++    -- ** directory.resources.features.update+    DirectoryResourcesFeaturesUpdateResource,+    DirectoryResourcesFeaturesUpdate (..),+    newDirectoryResourcesFeaturesUpdate,++    -- ** directory.roleAssignments.delete+    DirectoryRoleAssignmentsDeleteResource,+    DirectoryRoleAssignmentsDelete (..),+    newDirectoryRoleAssignmentsDelete,++    -- ** directory.roleAssignments.get+    DirectoryRoleAssignmentsGetResource,+    DirectoryRoleAssignmentsGet (..),+    newDirectoryRoleAssignmentsGet,++    -- ** directory.roleAssignments.insert+    DirectoryRoleAssignmentsInsertResource,+    DirectoryRoleAssignmentsInsert (..),+    newDirectoryRoleAssignmentsInsert,++    -- ** directory.roleAssignments.list+    DirectoryRoleAssignmentsListResource,+    DirectoryRoleAssignmentsList (..),+    newDirectoryRoleAssignmentsList,++    -- ** directory.roles.delete+    DirectoryRolesDeleteResource,+    DirectoryRolesDelete (..),+    newDirectoryRolesDelete,++    -- ** directory.roles.get+    DirectoryRolesGetResource,+    DirectoryRolesGet (..),+    newDirectoryRolesGet,++    -- ** directory.roles.insert+    DirectoryRolesInsertResource,+    DirectoryRolesInsert (..),+    newDirectoryRolesInsert,++    -- ** directory.roles.list+    DirectoryRolesListResource,+    DirectoryRolesList (..),+    newDirectoryRolesList,++    -- ** directory.roles.patch+    DirectoryRolesPatchResource,+    DirectoryRolesPatch (..),+    newDirectoryRolesPatch,++    -- ** directory.roles.update+    DirectoryRolesUpdateResource,+    DirectoryRolesUpdate (..),+    newDirectoryRolesUpdate,++    -- ** directory.schemas.delete+    DirectorySchemasDeleteResource,+    DirectorySchemasDelete (..),+    newDirectorySchemasDelete,++    -- ** directory.schemas.get+    DirectorySchemasGetResource,+    DirectorySchemasGet (..),+    newDirectorySchemasGet,++    -- ** directory.schemas.insert+    DirectorySchemasInsertResource,+    DirectorySchemasInsert (..),+    newDirectorySchemasInsert,++    -- ** directory.schemas.list+    DirectorySchemasListResource,+    DirectorySchemasList (..),+    newDirectorySchemasList,++    -- ** directory.schemas.patch+    DirectorySchemasPatchResource,+    DirectorySchemasPatch (..),+    newDirectorySchemasPatch,++    -- ** directory.schemas.update+    DirectorySchemasUpdateResource,+    DirectorySchemasUpdate (..),+    newDirectorySchemasUpdate,++    -- ** directory.tokens.delete+    DirectoryTokensDeleteResource,+    DirectoryTokensDelete (..),+    newDirectoryTokensDelete,++    -- ** directory.tokens.get+    DirectoryTokensGetResource,+    DirectoryTokensGet (..),+    newDirectoryTokensGet,++    -- ** directory.tokens.list+    DirectoryTokensListResource,+    DirectoryTokensList (..),+    newDirectoryTokensList,++    -- ** directory.twoStepVerification.turnOff+    DirectoryTwoStepVerificationTurnOffResource,+    DirectoryTwoStepVerificationTurnOff (..),+    newDirectoryTwoStepVerificationTurnOff,++    -- ** directory.users.aliases.delete+    DirectoryUsersAliasesDeleteResource,+    DirectoryUsersAliasesDelete (..),+    newDirectoryUsersAliasesDelete,++    -- ** directory.users.aliases.insert+    DirectoryUsersAliasesInsertResource,+    DirectoryUsersAliasesInsert (..),+    newDirectoryUsersAliasesInsert,++    -- ** directory.users.aliases.list+    DirectoryUsersAliasesListResource,+    DirectoryUsersAliasesList (..),+    newDirectoryUsersAliasesList,++    -- ** directory.users.aliases.watch+    DirectoryUsersAliasesWatchResource,+    DirectoryUsersAliasesWatch (..),+    newDirectoryUsersAliasesWatch,++    -- ** directory.users.delete+    DirectoryUsersDeleteResource,+    DirectoryUsersDelete (..),+    newDirectoryUsersDelete,++    -- ** directory.users.get+    DirectoryUsersGetResource,+    DirectoryUsersGet (..),+    newDirectoryUsersGet,++    -- ** directory.users.insert+    DirectoryUsersInsertResource,+    DirectoryUsersInsert (..),+    newDirectoryUsersInsert,++    -- ** directory.users.list+    DirectoryUsersListResource,+    DirectoryUsersList (..),+    newDirectoryUsersList,++    -- ** directory.users.makeAdmin+    DirectoryUsersMakeAdminResource,+    DirectoryUsersMakeAdmin (..),+    newDirectoryUsersMakeAdmin,++    -- ** directory.users.patch+    DirectoryUsersPatchResource,+    DirectoryUsersPatch (..),+    newDirectoryUsersPatch,++    -- ** directory.users.photos.delete+    DirectoryUsersPhotosDeleteResource,+    DirectoryUsersPhotosDelete (..),+    newDirectoryUsersPhotosDelete,++    -- ** directory.users.photos.get+    DirectoryUsersPhotosGetResource,+    DirectoryUsersPhotosGet (..),+    newDirectoryUsersPhotosGet,++    -- ** directory.users.photos.patch+    DirectoryUsersPhotosPatchResource,+    DirectoryUsersPhotosPatch (..),+    newDirectoryUsersPhotosPatch,++    -- ** directory.users.photos.update+    DirectoryUsersPhotosUpdateResource,+    DirectoryUsersPhotosUpdate (..),+    newDirectoryUsersPhotosUpdate,++    -- ** directory.users.signOut+    DirectoryUsersSignOutResource,+    DirectoryUsersSignOut (..),+    newDirectoryUsersSignOut,++    -- ** directory.users.undelete+    DirectoryUsersUndeleteResource,+    DirectoryUsersUndelete (..),+    newDirectoryUsersUndelete,++    -- ** directory.users.update+    DirectoryUsersUpdateResource,+    DirectoryUsersUpdate (..),+    newDirectoryUsersUpdate,++    -- ** directory.users.watch+    DirectoryUsersWatchResource,+    DirectoryUsersWatch (..),+    newDirectoryUsersWatch,++    -- ** directory.verificationCodes.generate+    DirectoryVerificationCodesGenerateResource,+    DirectoryVerificationCodesGenerate (..),+    newDirectoryVerificationCodesGenerate,++    -- ** directory.verificationCodes.invalidate+    DirectoryVerificationCodesInvalidateResource,+    DirectoryVerificationCodesInvalidate (..),+    newDirectoryVerificationCodesInvalidate,++    -- ** directory.verificationCodes.list+    DirectoryVerificationCodesListResource,+    DirectoryVerificationCodesList (..),+    newDirectoryVerificationCodesList,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** Alias+    Alias (..),+    newAlias,++    -- ** Aliases+    Aliases (..),+    newAliases,++    -- ** Asp+    Asp (..),+    newAsp,++    -- ** Asps+    Asps (..),+    newAsps,++    -- ** AuxiliaryMessage+    AuxiliaryMessage (..),+    newAuxiliaryMessage,++    -- ** AuxiliaryMessage_Severity+    AuxiliaryMessage_Severity (..),++    -- ** BacklightInfo+    BacklightInfo (..),+    newBacklightInfo,++    -- ** BatchChangeChromeOsDeviceStatusRequest+    BatchChangeChromeOsDeviceStatusRequest (..),+    newBatchChangeChromeOsDeviceStatusRequest,++    -- ** BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction+    BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction (..),++    -- ** BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+    BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason (..),++    -- ** BatchChangeChromeOsDeviceStatusResponse+    BatchChangeChromeOsDeviceStatusResponse (..),+    newBatchChangeChromeOsDeviceStatusResponse,++    -- ** BatchCreatePrintServersRequest+    BatchCreatePrintServersRequest (..),+    newBatchCreatePrintServersRequest,++    -- ** BatchCreatePrintServersResponse+    BatchCreatePrintServersResponse (..),+    newBatchCreatePrintServersResponse,++    -- ** BatchCreatePrintersRequest+    BatchCreatePrintersRequest (..),+    newBatchCreatePrintersRequest,++    -- ** BatchCreatePrintersResponse+    BatchCreatePrintersResponse (..),+    newBatchCreatePrintersResponse,++    -- ** BatchDeletePrintServersRequest+    BatchDeletePrintServersRequest (..),+    newBatchDeletePrintServersRequest,++    -- ** BatchDeletePrintServersResponse+    BatchDeletePrintServersResponse (..),+    newBatchDeletePrintServersResponse,++    -- ** BatchDeletePrintersRequest+    BatchDeletePrintersRequest (..),+    newBatchDeletePrintersRequest,++    -- ** BatchDeletePrintersResponse+    BatchDeletePrintersResponse (..),+    newBatchDeletePrintersResponse,++    -- ** Building+    Building (..),+    newBuilding,++    -- ** BuildingAddress+    BuildingAddress (..),+    newBuildingAddress,++    -- ** BuildingCoordinates+    BuildingCoordinates (..),+    newBuildingCoordinates,++    -- ** Buildings+    Buildings (..),+    newBuildings,++    -- ** ByteUsage+    ByteUsage (..),+    newByteUsage,++    -- ** CalendarResource+    CalendarResource (..),+    newCalendarResource,++    -- ** CalendarResources+    CalendarResources (..),+    newCalendarResources,++    -- ** ChangeChromeOsDeviceStatusResult+    ChangeChromeOsDeviceStatusResult (..),+    newChangeChromeOsDeviceStatusResult,++    -- ** ChangeChromeOsDeviceStatusSucceeded+    ChangeChromeOsDeviceStatusSucceeded (..),+    newChangeChromeOsDeviceStatusSucceeded,++    -- ** Channel+    Channel (..),+    newChannel,++    -- ** Channel_Params+    Channel_Params (..),+    newChannel_Params,++    -- ** ChromeOsDevice+    ChromeOsDevice (..),+    newChromeOsDevice,++    -- ** ChromeOsDevice_ActiveTimeRangesItem+    ChromeOsDevice_ActiveTimeRangesItem (..),+    newChromeOsDevice_ActiveTimeRangesItem,++    -- ** ChromeOsDevice_ChromeOsType+    ChromeOsDevice_ChromeOsType (..),++    -- ** ChromeOsDevice_CpuInfoItem+    ChromeOsDevice_CpuInfoItem (..),+    newChromeOsDevice_CpuInfoItem,++    -- ** ChromeOsDevice_CpuInfoItem_LogicalCpusItem+    ChromeOsDevice_CpuInfoItem_LogicalCpusItem (..),+    newChromeOsDevice_CpuInfoItem_LogicalCpusItem,++    -- ** ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem+    ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem (..),+    newChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem,++    -- ** ChromeOsDevice_CpuStatusReportsItem+    ChromeOsDevice_CpuStatusReportsItem (..),+    newChromeOsDevice_CpuStatusReportsItem,++    -- ** ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem+    ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem (..),+    newChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem,++    -- ** ChromeOsDevice_DeprovisionReason+    ChromeOsDevice_DeprovisionReason (..),++    -- ** ChromeOsDevice_DeviceFilesItem+    ChromeOsDevice_DeviceFilesItem (..),+    newChromeOsDevice_DeviceFilesItem,++    -- ** ChromeOsDevice_DeviceLicenseType+    ChromeOsDevice_DeviceLicenseType (..),++    -- ** ChromeOsDevice_DiskVolumeReportsItem+    ChromeOsDevice_DiskVolumeReportsItem (..),+    newChromeOsDevice_DiskVolumeReportsItem,++    -- ** ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem+    ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem (..),+    newChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem,++    -- ** ChromeOsDevice_LastKnownNetworkItem+    ChromeOsDevice_LastKnownNetworkItem (..),+    newChromeOsDevice_LastKnownNetworkItem,++    -- ** ChromeOsDevice_RecentUsersItem+    ChromeOsDevice_RecentUsersItem (..),+    newChromeOsDevice_RecentUsersItem,++    -- ** ChromeOsDevice_ScreenshotFilesItem+    ChromeOsDevice_ScreenshotFilesItem (..),+    newChromeOsDevice_ScreenshotFilesItem,++    -- ** ChromeOsDevice_SystemRamFreeReportsItem+    ChromeOsDevice_SystemRamFreeReportsItem (..),+    newChromeOsDevice_SystemRamFreeReportsItem,++    -- ** ChromeOsDevice_TpmVersionInfo+    ChromeOsDevice_TpmVersionInfo (..),+    newChromeOsDevice_TpmVersionInfo,++    -- ** ChromeOsDeviceAction+    ChromeOsDeviceAction (..),+    newChromeOsDeviceAction,++    -- ** ChromeOsDevices+    ChromeOsDevices (..),+    newChromeOsDevices,++    -- ** ChromeOsMoveDevicesToOu+    ChromeOsMoveDevicesToOu (..),+    newChromeOsMoveDevicesToOu,++    -- ** CreatePrintServerRequest+    CreatePrintServerRequest (..),+    newCreatePrintServerRequest,++    -- ** CreatePrinterRequest+    CreatePrinterRequest (..),+    newCreatePrinterRequest,++    -- ** Customer+    Customer (..),+    newCustomer,++    -- ** CustomerPostalAddress+    CustomerPostalAddress (..),+    newCustomerPostalAddress,++    -- ** DirectoryChromeosdevicesCommand+    DirectoryChromeosdevicesCommand (..),+    newDirectoryChromeosdevicesCommand,++    -- ** DirectoryChromeosdevicesCommand_State+    DirectoryChromeosdevicesCommand_State (..),++    -- ** DirectoryChromeosdevicesCommand_Type+    DirectoryChromeosdevicesCommand_Type (..),++    -- ** DirectoryChromeosdevicesCommandResult+    DirectoryChromeosdevicesCommandResult (..),+    newDirectoryChromeosdevicesCommandResult,++    -- ** DirectoryChromeosdevicesCommandResult_Result+    DirectoryChromeosdevicesCommandResult_Result (..),++    -- ** DirectoryChromeosdevicesIssueCommandRequest+    DirectoryChromeosdevicesIssueCommandRequest (..),+    newDirectoryChromeosdevicesIssueCommandRequest,++    -- ** DirectoryChromeosdevicesIssueCommandRequest_CommandType+    DirectoryChromeosdevicesIssueCommandRequest_CommandType (..),++    -- ** DirectoryChromeosdevicesIssueCommandResponse+    DirectoryChromeosdevicesIssueCommandResponse (..),+    newDirectoryChromeosdevicesIssueCommandResponse,++    -- ** DomainAlias+    DomainAlias (..),+    newDomainAlias,++    -- ** DomainAliases+    DomainAliases (..),+    newDomainAliases,++    -- ** Domains+    Domains (..),+    newDomains,++    -- ** Domains2+    Domains2 (..),+    newDomains2,++    -- ** Empty+    Empty (..),+    newEmpty,++    -- ** FailureInfo+    FailureInfo (..),+    newFailureInfo,++    -- ** FailureInfo_ErrorCode+    FailureInfo_ErrorCode (..),++    -- ** FanInfo+    FanInfo (..),+    newFanInfo,++    -- ** Feature+    Feature (..),+    newFeature,++    -- ** FeatureInstance+    FeatureInstance (..),+    newFeatureInstance,++    -- ** FeatureRename+    FeatureRename (..),+    newFeatureRename,++    -- ** Features+    Features (..),+    newFeatures,++    -- ** Group+    Group (..),+    newGroup,++    -- ** GroupAlias+    GroupAlias (..),+    newGroupAlias,++    -- ** Groups+    Groups (..),+    newGroups,++    -- ** ListPrintServersResponse+    ListPrintServersResponse (..),+    newListPrintServersResponse,++    -- ** ListPrinterModelsResponse+    ListPrinterModelsResponse (..),+    newListPrinterModelsResponse,++    -- ** ListPrintersResponse+    ListPrintersResponse (..),+    newListPrintersResponse,++    -- ** Member+    Member (..),+    newMember,++    -- ** Members+    Members (..),+    newMembers,++    -- ** MembersHasMember+    MembersHasMember (..),+    newMembersHasMember,++    -- ** MobileDevice+    MobileDevice (..),+    newMobileDevice,++    -- ** MobileDevice_ApplicationsItem+    MobileDevice_ApplicationsItem (..),+    newMobileDevice_ApplicationsItem,++    -- ** MobileDeviceAction+    MobileDeviceAction (..),+    newMobileDeviceAction,++    -- ** MobileDevices+    MobileDevices (..),+    newMobileDevices,++    -- ** OrgUnit+    OrgUnit (..),+    newOrgUnit,++    -- ** OrgUnits+    OrgUnits (..),+    newOrgUnits,++    -- ** OsUpdateStatus+    OsUpdateStatus (..),+    newOsUpdateStatus,++    -- ** OsUpdateStatus_State+    OsUpdateStatus_State (..),++    -- ** PrintServer+    PrintServer (..),+    newPrintServer,++    -- ** PrintServerFailureInfo+    PrintServerFailureInfo (..),+    newPrintServerFailureInfo,++    -- ** PrintServerFailureInfo_ErrorCode+    PrintServerFailureInfo_ErrorCode (..),++    -- ** Printer+    Printer (..),+    newPrinter,++    -- ** PrinterModel+    PrinterModel (..),+    newPrinterModel,++    -- ** Privilege+    Privilege (..),+    newPrivilege,++    -- ** Privileges+    Privileges (..),+    newPrivileges,++    -- ** Role+    Role (..),+    newRole,++    -- ** Role_RolePrivilegesItem+    Role_RolePrivilegesItem (..),+    newRole_RolePrivilegesItem,++    -- ** RoleAssignment+    RoleAssignment (..),+    newRoleAssignment,++    -- ** RoleAssignment_AssigneeType+    RoleAssignment_AssigneeType (..),++    -- ** RoleAssignments+    RoleAssignments (..),+    newRoleAssignments,++    -- ** Roles+    Roles (..),+    newRoles,++    -- ** Schema+    Schema (..),+    newSchema,++    -- ** SchemaFieldSpec+    SchemaFieldSpec (..),+    newSchemaFieldSpec,++    -- ** SchemaFieldSpec_NumericIndexingSpec+    SchemaFieldSpec_NumericIndexingSpec (..),+    newSchemaFieldSpec_NumericIndexingSpec,++    -- ** Schemas+    Schemas (..),+    newSchemas,++    -- ** Status+    Status (..),+    newStatus,++    -- ** Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- ** Token+    Token (..),+    newToken,++    -- ** Tokens+    Tokens (..),+    newTokens,++    -- ** User+    User (..),+    newUser,++    -- ** User_CustomSchemas+    User_CustomSchemas (..),+    newUser_CustomSchemas,++    -- ** UserAbout+    UserAbout (..),+    newUserAbout,++    -- ** UserAddress+    UserAddress (..),+    newUserAddress,++    -- ** UserAlias+    UserAlias (..),+    newUserAlias,++    -- ** UserCustomProperties+    UserCustomProperties (..),+    newUserCustomProperties,++    -- ** UserEmail+    UserEmail (..),+    newUserEmail,++    -- ** UserEmail_Public_key_encryption_certificates+    UserEmail_Public_key_encryption_certificates (..),+    newUserEmail_Public_key_encryption_certificates,++    -- ** UserExternalId+    UserExternalId (..),+    newUserExternalId,++    -- ** UserGender+    UserGender (..),+    newUserGender,++    -- ** UserIm+    UserIm (..),+    newUserIm,++    -- ** UserKeyword+    UserKeyword (..),+    newUserKeyword,++    -- ** UserLanguage+    UserLanguage (..),+    newUserLanguage,++    -- ** UserLocation+    UserLocation (..),+    newUserLocation,++    -- ** UserMakeAdmin+    UserMakeAdmin (..),+    newUserMakeAdmin,++    -- ** UserName+    UserName (..),+    newUserName,++    -- ** UserOrganization+    UserOrganization (..),+    newUserOrganization,++    -- ** UserPhone+    UserPhone (..),+    newUserPhone,++    -- ** UserPhoto+    UserPhoto (..),+    newUserPhoto,++    -- ** UserPosixAccount+    UserPosixAccount (..),+    newUserPosixAccount,++    -- ** UserRelation+    UserRelation (..),+    newUserRelation,++    -- ** UserSshPublicKey+    UserSshPublicKey (..),+    newUserSshPublicKey,++    -- ** UserUndelete+    UserUndelete (..),+    newUserUndelete,++    -- ** UserWebsite+    UserWebsite (..),+    newUserWebsite,++    -- ** Users+    Users (..),+    newUsers,++    -- ** VerificationCode+    VerificationCode (..),+    newVerificationCode,++    -- ** VerificationCodes+    VerificationCodes (..),+    newVerificationCodes,++    -- ** ChromeosdevicesGetProjection+    ChromeosdevicesGetProjection (..),++    -- ** ChromeosdevicesListOrderBy+    ChromeosdevicesListOrderBy (..),++    -- ** ChromeosdevicesListProjection+    ChromeosdevicesListProjection (..),++    -- ** ChromeosdevicesListSortOrder+    ChromeosdevicesListSortOrder (..),++    -- ** ChromeosdevicesPatchProjection+    ChromeosdevicesPatchProjection (..),++    -- ** ChromeosdevicesUpdateProjection+    ChromeosdevicesUpdateProjection (..),++    -- ** GroupsListOrderBy+    GroupsListOrderBy (..),++    -- ** GroupsListSortOrder+    GroupsListSortOrder (..),++    -- ** MobiledevicesGetProjection+    MobiledevicesGetProjection (..),++    -- ** MobiledevicesListOrderBy+    MobiledevicesListOrderBy (..),++    -- ** MobiledevicesListProjection+    MobiledevicesListProjection (..),++    -- ** MobiledevicesListSortOrder+    MobiledevicesListSortOrder (..),++    -- ** OrgunitsListType+    OrgunitsListType (..),++    -- ** ResourcesBuildingsInsertCoordinatesSource+    ResourcesBuildingsInsertCoordinatesSource (..),++    -- ** ResourcesBuildingsPatchCoordinatesSource+    ResourcesBuildingsPatchCoordinatesSource (..),++    -- ** ResourcesBuildingsUpdateCoordinatesSource+    ResourcesBuildingsUpdateCoordinatesSource (..),++    -- ** UsersAliasesListEvent+    UsersAliasesListEvent (..),++    -- ** UsersAliasesWatchEvent+    UsersAliasesWatchEvent (..),++    -- ** UsersGetProjection+    UsersGetProjection (..),++    -- ** UsersGetViewType+    UsersGetViewType (..),++    -- ** UsersListEvent+    UsersListEvent (..),++    -- ** UsersListOrderBy+    UsersListOrderBy (..),++    -- ** UsersListProjection+    UsersListProjection (..),++    -- ** UsersListSortOrder+    UsersListSortOrder (..),++    -- ** UsersListViewType+    UsersListViewType (..),++    -- ** UsersWatchEvent+    UsersWatchEvent (..),++    -- ** UsersWatchOrderBy+    UsersWatchOrderBy (..),++    -- ** UsersWatchProjection+    UsersWatchProjection (..),++    -- ** UsersWatchSortOrder+    UsersWatchSortOrder (..),++    -- ** UsersWatchViewType+    UsersWatchViewType (..),+  )+where++import Gogol.Admin.Directory.Admin.Channels.Stop+import Gogol.Admin.Directory.Admin.Customer.Devices.Chromeos.BatchChangeStatus+import Gogol.Admin.Directory.Admin.Customer.Devices.Chromeos.Commands.Get+import Gogol.Admin.Directory.Admin.Customer.Devices.Chromeos.IssueCommand+import Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.BatchCreatePrintServers+import Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.BatchDeletePrintServers+import Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.Create+import Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.Delete+import Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.Get+import Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.List+import Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.Patch+import Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.BatchCreatePrinters+import Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.BatchDeletePrinters+import Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.Create+import Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.Delete+import Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.Get+import Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.List+import Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.ListPrinterModels+import Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.Patch+import Gogol.Admin.Directory.Asps.Delete+import Gogol.Admin.Directory.Asps.Get+import Gogol.Admin.Directory.Asps.List+import Gogol.Admin.Directory.Chromeosdevices.Action+import Gogol.Admin.Directory.Chromeosdevices.Get+import Gogol.Admin.Directory.Chromeosdevices.List+import Gogol.Admin.Directory.Chromeosdevices.MoveDevicesToOu+import Gogol.Admin.Directory.Chromeosdevices.Patch+import Gogol.Admin.Directory.Chromeosdevices.Update+import Gogol.Admin.Directory.Customers.Get+import Gogol.Admin.Directory.Customers.Patch+import Gogol.Admin.Directory.Customers.Update+import Gogol.Admin.Directory.DomainAliases.Delete+import Gogol.Admin.Directory.DomainAliases.Get+import Gogol.Admin.Directory.DomainAliases.Insert+import Gogol.Admin.Directory.DomainAliases.List+import Gogol.Admin.Directory.Domains.Delete+import Gogol.Admin.Directory.Domains.Get+import Gogol.Admin.Directory.Domains.Insert+import Gogol.Admin.Directory.Domains.List+import Gogol.Admin.Directory.Groups.Aliases.Delete+import Gogol.Admin.Directory.Groups.Aliases.Insert+import Gogol.Admin.Directory.Groups.Aliases.List+import Gogol.Admin.Directory.Groups.Delete+import Gogol.Admin.Directory.Groups.Get+import Gogol.Admin.Directory.Groups.Insert+import Gogol.Admin.Directory.Groups.List+import Gogol.Admin.Directory.Groups.Patch+import Gogol.Admin.Directory.Groups.Update+import Gogol.Admin.Directory.Members.Delete+import Gogol.Admin.Directory.Members.Get+import Gogol.Admin.Directory.Members.HasMember+import Gogol.Admin.Directory.Members.Insert+import Gogol.Admin.Directory.Members.List+import Gogol.Admin.Directory.Members.Patch+import Gogol.Admin.Directory.Members.Update+import Gogol.Admin.Directory.Mobiledevices.Action+import Gogol.Admin.Directory.Mobiledevices.Delete+import Gogol.Admin.Directory.Mobiledevices.Get+import Gogol.Admin.Directory.Mobiledevices.List+import Gogol.Admin.Directory.Orgunits.Delete+import Gogol.Admin.Directory.Orgunits.Get+import Gogol.Admin.Directory.Orgunits.Insert+import Gogol.Admin.Directory.Orgunits.List+import Gogol.Admin.Directory.Orgunits.Patch+import Gogol.Admin.Directory.Orgunits.Update+import Gogol.Admin.Directory.Privileges.List+import Gogol.Admin.Directory.Resources.Buildings.Delete+import Gogol.Admin.Directory.Resources.Buildings.Get+import Gogol.Admin.Directory.Resources.Buildings.Insert+import Gogol.Admin.Directory.Resources.Buildings.List+import Gogol.Admin.Directory.Resources.Buildings.Patch+import Gogol.Admin.Directory.Resources.Buildings.Update+import Gogol.Admin.Directory.Resources.Calendars.Delete+import Gogol.Admin.Directory.Resources.Calendars.Get+import Gogol.Admin.Directory.Resources.Calendars.Insert+import Gogol.Admin.Directory.Resources.Calendars.List+import Gogol.Admin.Directory.Resources.Calendars.Patch+import Gogol.Admin.Directory.Resources.Calendars.Update+import Gogol.Admin.Directory.Resources.Features.Delete+import Gogol.Admin.Directory.Resources.Features.Get+import Gogol.Admin.Directory.Resources.Features.Insert+import Gogol.Admin.Directory.Resources.Features.List+import Gogol.Admin.Directory.Resources.Features.Patch+import Gogol.Admin.Directory.Resources.Features.Rename+import Gogol.Admin.Directory.Resources.Features.Update+import Gogol.Admin.Directory.RoleAssignments.Delete+import Gogol.Admin.Directory.RoleAssignments.Get+import Gogol.Admin.Directory.RoleAssignments.Insert+import Gogol.Admin.Directory.RoleAssignments.List+import Gogol.Admin.Directory.Roles.Delete+import Gogol.Admin.Directory.Roles.Get+import Gogol.Admin.Directory.Roles.Insert+import Gogol.Admin.Directory.Roles.List+import Gogol.Admin.Directory.Roles.Patch+import Gogol.Admin.Directory.Roles.Update+import Gogol.Admin.Directory.Schemas.Delete+import Gogol.Admin.Directory.Schemas.Get+import Gogol.Admin.Directory.Schemas.Insert+import Gogol.Admin.Directory.Schemas.List+import Gogol.Admin.Directory.Schemas.Patch+import Gogol.Admin.Directory.Schemas.Update+import Gogol.Admin.Directory.Tokens.Delete+import Gogol.Admin.Directory.Tokens.Get+import Gogol.Admin.Directory.Tokens.List+import Gogol.Admin.Directory.TwoStepVerification.TurnOff+import Gogol.Admin.Directory.Types+import Gogol.Admin.Directory.Users.Aliases.Delete+import Gogol.Admin.Directory.Users.Aliases.Insert+import Gogol.Admin.Directory.Users.Aliases.List+import Gogol.Admin.Directory.Users.Aliases.Watch+import Gogol.Admin.Directory.Users.Delete+import Gogol.Admin.Directory.Users.Get+import Gogol.Admin.Directory.Users.Insert+import Gogol.Admin.Directory.Users.List+import Gogol.Admin.Directory.Users.MakeAdmin+import Gogol.Admin.Directory.Users.Patch+import Gogol.Admin.Directory.Users.Photos.Delete+import Gogol.Admin.Directory.Users.Photos.Get+import Gogol.Admin.Directory.Users.Photos.Patch+import Gogol.Admin.Directory.Users.Photos.Update+import Gogol.Admin.Directory.Users.SignOut+import Gogol.Admin.Directory.Users.Undelete+import Gogol.Admin.Directory.Users.Update+import Gogol.Admin.Directory.Users.Watch+import Gogol.Admin.Directory.VerificationCodes.Generate+import Gogol.Admin.Directory.VerificationCodes.Invalidate+import Gogol.Admin.Directory.VerificationCodes.List
+ gen/Gogol/Admin/Directory/Admin/Channels/Stop.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.Admin.Directory.Admin.Channels.Stop+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Stops watching resources through this channel.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.channels.stop@.+module Gogol.Admin.Directory.Admin.Channels.Stop+  ( -- * Resource+    AdminChannelsStopResource,++    -- ** Constructing a Request+    AdminChannelsStop (..),+    newAdminChannelsStop,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.channels.stop@ method which the+-- 'AdminChannelsStop' request conforms to.+type AdminChannelsStopResource =+  "admin"+    Core.:> "directory_v1"+    Core.:> "channels"+    Core.:> "stop"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Channel+    Core.:> Core.Post '[Core.JSON] ()++-- | Stops watching resources through this channel.+--+-- /See:/ 'newAdminChannelsStop' smart constructor.+data AdminChannelsStop = AdminChannelsStop+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: Channel,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminChannelsStop' with the minimum fields required to make a request.+newAdminChannelsStop ::+  -- |  Multipart request metadata. See 'payload'.+  Channel ->+  AdminChannelsStop+newAdminChannelsStop payload =+  AdminChannelsStop+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AdminChannelsStop where+  type Rs AdminChannelsStop = ()+  type+    Scopes AdminChannelsStop =+      '[ Admin'Directory'User,+         Admin'Directory'User'Alias,+         Admin'Directory'User'Alias'Readonly,+         Admin'Directory'User'Readonly,+         CloudPlatform'FullControl+       ]+  requestClient AdminChannelsStop {..} =+    go+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdminChannelsStopResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customer/Devices/Chromeos/BatchChangeStatus.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.Admin.Directory.Admin.Customer.Devices.Chromeos.BatchChangeStatus+-- 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)+--+-- Changes the status of a batch of ChromeOS devices. For more information about changing a ChromeOS device state <https://support.google.com/chrome/a/answer/3523633 Repair, repurpose, or retire ChromeOS devices>.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customer.devices.chromeos.batchChangeStatus@.+module Gogol.Admin.Directory.Admin.Customer.Devices.Chromeos.BatchChangeStatus+  ( -- * Resource+    AdminCustomerDevicesChromeosBatchChangeStatusResource,++    -- ** Constructing a Request+    AdminCustomerDevicesChromeosBatchChangeStatus (..),+    newAdminCustomerDevicesChromeosBatchChangeStatus,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customer.devices.chromeos.batchChangeStatus@ method which the+-- 'AdminCustomerDevicesChromeosBatchChangeStatus' request conforms to.+type AdminCustomerDevicesChromeosBatchChangeStatusResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "devices"+    Core.:> "chromeos:batchChangeStatus"+    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] BatchChangeChromeOsDeviceStatusRequest+    Core.:> Core.Post '[Core.JSON] BatchChangeChromeOsDeviceStatusResponse++-- | Changes the status of a batch of ChromeOS devices. For more information about changing a ChromeOS device state <https://support.google.com/chrome/a/answer/3523633 Repair, repurpose, or retire ChromeOS devices>.+--+-- /See:/ 'newAdminCustomerDevicesChromeosBatchChangeStatus' smart constructor.+data AdminCustomerDevicesChromeosBatchChangeStatus = AdminCustomerDevicesChromeosBatchChangeStatus+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. Immutable ID of the Google Workspace account.+    customerId :: Core.Text,+    -- | Multipart request metadata.+    payload :: BatchChangeChromeOsDeviceStatusRequest,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomerDevicesChromeosBatchChangeStatus' with the minimum fields required to make a request.+newAdminCustomerDevicesChromeosBatchChangeStatus ::+  -- |  Required. Immutable ID of the Google Workspace account. See 'customerId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  BatchChangeChromeOsDeviceStatusRequest ->+  AdminCustomerDevicesChromeosBatchChangeStatus+newAdminCustomerDevicesChromeosBatchChangeStatus customerId payload =+  AdminCustomerDevicesChromeosBatchChangeStatus+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AdminCustomerDevicesChromeosBatchChangeStatus+  where+  type+    Rs AdminCustomerDevicesChromeosBatchChangeStatus =+      BatchChangeChromeOsDeviceStatusResponse+  type+    Scopes AdminCustomerDevicesChromeosBatchChangeStatus =+      '[Admin'Directory'Device'Chromeos]+  requestClient AdminCustomerDevicesChromeosBatchChangeStatus {..} =+    go+      customerId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdminCustomerDevicesChromeosBatchChangeStatusResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customer/Devices/Chromeos/Commands/Get.hs view
@@ -0,0 +1,138 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Admin.Customer.Devices.Chromeos.Commands.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 command data a specific command issued to the device.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customer.devices.chromeos.commands.get@.+module Gogol.Admin.Directory.Admin.Customer.Devices.Chromeos.Commands.Get+  ( -- * Resource+    AdminCustomerDevicesChromeosCommandsGetResource,++    -- ** Constructing a Request+    AdminCustomerDevicesChromeosCommandsGet (..),+    newAdminCustomerDevicesChromeosCommandsGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customer.devices.chromeos.commands.get@ method which the+-- 'AdminCustomerDevicesChromeosCommandsGet' request conforms to.+type AdminCustomerDevicesChromeosCommandsGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "devices"+    Core.:> "chromeos"+    Core.:> Core.Capture "deviceId" Core.Text+    Core.:> "commands"+    Core.:> Core.Capture "commandId" Core.Int64+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] DirectoryChromeosdevicesCommand++-- | Gets command data a specific command issued to the device.+--+-- /See:/ 'newAdminCustomerDevicesChromeosCommandsGet' smart constructor.+data AdminCustomerDevicesChromeosCommandsGet = AdminCustomerDevicesChromeosCommandsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable. ID of Chrome OS Device Command.+    commandId :: Core.Int64,+    -- | Immutable. ID of the Google Workspace account.+    customerId :: Core.Text,+    -- | Immutable. ID of Chrome OS Device.+    deviceId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomerDevicesChromeosCommandsGet' with the minimum fields required to make a request.+newAdminCustomerDevicesChromeosCommandsGet ::+  -- |  Immutable. ID of Chrome OS Device Command. See 'commandId'.+  Core.Int64 ->+  -- |  Immutable. ID of the Google Workspace account. See 'customerId'.+  Core.Text ->+  -- |  Immutable. ID of Chrome OS Device. See 'deviceId'.+  Core.Text ->+  AdminCustomerDevicesChromeosCommandsGet+newAdminCustomerDevicesChromeosCommandsGet+  commandId+  customerId+  deviceId =+    AdminCustomerDevicesChromeosCommandsGet+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        commandId = commandId,+        customerId = customerId,+        deviceId = deviceId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance Core.GoogleRequest AdminCustomerDevicesChromeosCommandsGet where+  type+    Rs AdminCustomerDevicesChromeosCommandsGet =+      DirectoryChromeosdevicesCommand+  type+    Scopes AdminCustomerDevicesChromeosCommandsGet =+      '[ Admin'Directory'Device'Chromeos,+         Admin'Directory'Device'Chromeos'Readonly+       ]+  requestClient AdminCustomerDevicesChromeosCommandsGet {..} =+    go+      customerId+      deviceId+      commandId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdminCustomerDevicesChromeosCommandsGetResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customer/Devices/Chromeos/IssueCommand.hs view
@@ -0,0 +1,142 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Admin.Customer.Devices.Chromeos.IssueCommand+-- 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)+--+-- Issues a command for the device to execute.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customer.devices.chromeos.issueCommand@.+module Gogol.Admin.Directory.Admin.Customer.Devices.Chromeos.IssueCommand+  ( -- * Resource+    AdminCustomerDevicesChromeosIssueCommandResource,++    -- ** Constructing a Request+    AdminCustomerDevicesChromeosIssueCommand (..),+    newAdminCustomerDevicesChromeosIssueCommand,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customer.devices.chromeos.issueCommand@ method which the+-- 'AdminCustomerDevicesChromeosIssueCommand' request conforms to.+type AdminCustomerDevicesChromeosIssueCommandResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "devices"+    Core.:> "chromeos"+    Core.:> Core.CaptureMode "deviceId" "issueCommand" 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]+              DirectoryChromeosdevicesIssueCommandRequest+    Core.:> Core.Post+              '[Core.JSON]+              DirectoryChromeosdevicesIssueCommandResponse++-- | Issues a command for the device to execute.+--+-- /See:/ 'newAdminCustomerDevicesChromeosIssueCommand' smart constructor.+data AdminCustomerDevicesChromeosIssueCommand = AdminCustomerDevicesChromeosIssueCommand+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable. ID of the Google Workspace account.+    customerId :: Core.Text,+    -- | Immutable. ID of Chrome OS Device.+    deviceId :: Core.Text,+    -- | Multipart request metadata.+    payload :: DirectoryChromeosdevicesIssueCommandRequest,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomerDevicesChromeosIssueCommand' with the minimum fields required to make a request.+newAdminCustomerDevicesChromeosIssueCommand ::+  -- |  Immutable. ID of the Google Workspace account. See 'customerId'.+  Core.Text ->+  -- |  Immutable. ID of Chrome OS Device. See 'deviceId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  DirectoryChromeosdevicesIssueCommandRequest ->+  AdminCustomerDevicesChromeosIssueCommand+newAdminCustomerDevicesChromeosIssueCommand+  customerId+  deviceId+  payload =+    AdminCustomerDevicesChromeosIssueCommand+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        customerId = customerId,+        deviceId = deviceId,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AdminCustomerDevicesChromeosIssueCommand+  where+  type+    Rs AdminCustomerDevicesChromeosIssueCommand =+      DirectoryChromeosdevicesIssueCommandResponse+  type+    Scopes AdminCustomerDevicesChromeosIssueCommand =+      '[Admin'Directory'Device'Chromeos]+  requestClient AdminCustomerDevicesChromeosIssueCommand {..} =+    go+      customerId+      deviceId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdminCustomerDevicesChromeosIssueCommandResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/PrintServers/BatchCreatePrintServers.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.Admin.Directory.Admin.Customers.Chrome.PrintServers.BatchCreatePrintServers+-- 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 multiple print servers.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printServers.batchCreatePrintServers@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.BatchCreatePrintServers+  ( -- * Resource+    AdminCustomersChromePrintServersBatchCreatePrintServersResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintServersBatchCreatePrintServers (..),+    newAdminCustomersChromePrintServersBatchCreatePrintServers,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printServers.batchCreatePrintServers@ method which the+-- 'AdminCustomersChromePrintServersBatchCreatePrintServers' request conforms to.+type AdminCustomersChromePrintServersBatchCreatePrintServersResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "chrome"+    Core.:> "printServers:batchCreatePrintServers"+    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] BatchCreatePrintServersRequest+    Core.:> Core.Post '[Core.JSON] BatchCreatePrintServersResponse++-- | Creates multiple print servers.+--+-- /See:/ 'newAdminCustomersChromePrintServersBatchCreatePrintServers' smart constructor.+data AdminCustomersChromePrintServersBatchCreatePrintServers = AdminCustomersChromePrintServersBatchCreatePrintServers+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The <https://developers.google.com/admin-sdk/directory/reference/rest/v1/customers unique ID> of the customer\'s Google Workspace account. Format: @customers\/{id}@+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: BatchCreatePrintServersRequest,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintServersBatchCreatePrintServers' with the minimum fields required to make a request.+newAdminCustomersChromePrintServersBatchCreatePrintServers ::+  -- |  Required. The <https://developers.google.com/admin-sdk/directory/reference/rest/v1/customers unique ID> of the customer\'s Google Workspace account. Format: @customers\/{id}@ See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  BatchCreatePrintServersRequest ->+  AdminCustomersChromePrintServersBatchCreatePrintServers+newAdminCustomersChromePrintServersBatchCreatePrintServers+  parent+  payload =+    AdminCustomersChromePrintServersBatchCreatePrintServers+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        parent = parent,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AdminCustomersChromePrintServersBatchCreatePrintServers+  where+  type+    Rs AdminCustomersChromePrintServersBatchCreatePrintServers =+      BatchCreatePrintServersResponse+  type+    Scopes AdminCustomersChromePrintServersBatchCreatePrintServers =+      '[Admin'Chrome'Printers]+  requestClient+    AdminCustomersChromePrintServersBatchCreatePrintServers {..} =+      go+        parent+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        adminDirectoryService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AdminCustomersChromePrintServersBatchCreatePrintServersResource+            )+            Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/PrintServers/BatchDeletePrintServers.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.Admin.Directory.Admin.Customers.Chrome.PrintServers.BatchDeletePrintServers+-- 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 multiple print servers.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printServers.batchDeletePrintServers@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.BatchDeletePrintServers+  ( -- * Resource+    AdminCustomersChromePrintServersBatchDeletePrintServersResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintServersBatchDeletePrintServers (..),+    newAdminCustomersChromePrintServersBatchDeletePrintServers,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printServers.batchDeletePrintServers@ method which the+-- 'AdminCustomersChromePrintServersBatchDeletePrintServers' request conforms to.+type AdminCustomersChromePrintServersBatchDeletePrintServersResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "chrome"+    Core.:> "printServers:batchDeletePrintServers"+    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] BatchDeletePrintServersRequest+    Core.:> Core.Post '[Core.JSON] BatchDeletePrintServersResponse++-- | Deletes multiple print servers.+--+-- /See:/ 'newAdminCustomersChromePrintServersBatchDeletePrintServers' smart constructor.+data AdminCustomersChromePrintServersBatchDeletePrintServers = AdminCustomersChromePrintServersBatchDeletePrintServers+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The <https://developers.google.com/admin-sdk/directory/reference/rest/v1/customers unique ID> of the customer\'s Google Workspace account. Format: @customers\/{customer.id}@+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: BatchDeletePrintServersRequest,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintServersBatchDeletePrintServers' with the minimum fields required to make a request.+newAdminCustomersChromePrintServersBatchDeletePrintServers ::+  -- |  Required. The <https://developers.google.com/admin-sdk/directory/reference/rest/v1/customers unique ID> of the customer\'s Google Workspace account. Format: @customers\/{customer.id}@ See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  BatchDeletePrintServersRequest ->+  AdminCustomersChromePrintServersBatchDeletePrintServers+newAdminCustomersChromePrintServersBatchDeletePrintServers+  parent+  payload =+    AdminCustomersChromePrintServersBatchDeletePrintServers+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        parent = parent,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    AdminCustomersChromePrintServersBatchDeletePrintServers+  where+  type+    Rs AdminCustomersChromePrintServersBatchDeletePrintServers =+      BatchDeletePrintServersResponse+  type+    Scopes AdminCustomersChromePrintServersBatchDeletePrintServers =+      '[Admin'Chrome'Printers]+  requestClient+    AdminCustomersChromePrintServersBatchDeletePrintServers {..} =+      go+        parent+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        adminDirectoryService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  AdminCustomersChromePrintServersBatchDeletePrintServersResource+            )+            Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/PrintServers/Create.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.Admin.Directory.Admin.Customers.Chrome.PrintServers.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 print server.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printServers.create@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.Create+  ( -- * Resource+    AdminCustomersChromePrintServersCreateResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintServersCreate (..),+    newAdminCustomersChromePrintServersCreate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printServers.create@ method which the+-- 'AdminCustomersChromePrintServersCreate' request conforms to.+type AdminCustomersChromePrintServersCreateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "chrome"+    Core.:> "printServers"+    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] PrintServer+    Core.:> Core.Post '[Core.JSON] PrintServer++-- | Creates a print server.+--+-- /See:/ 'newAdminCustomersChromePrintServersCreate' smart constructor.+data AdminCustomersChromePrintServersCreate = AdminCustomersChromePrintServersCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The <https://developers.google.com/admin-sdk/directory/reference/rest/v1/customers unique ID> of the customer\'s Google Workspace account. Format: @customers\/{id}@+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: PrintServer,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintServersCreate' with the minimum fields required to make a request.+newAdminCustomersChromePrintServersCreate ::+  -- |  Required. The <https://developers.google.com/admin-sdk/directory/reference/rest/v1/customers unique ID> of the customer\'s Google Workspace account. Format: @customers\/{id}@ See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  PrintServer ->+  AdminCustomersChromePrintServersCreate+newAdminCustomersChromePrintServersCreate parent payload =+  AdminCustomersChromePrintServersCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      parent = parent,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AdminCustomersChromePrintServersCreate where+  type Rs AdminCustomersChromePrintServersCreate = PrintServer+  type+    Scopes AdminCustomersChromePrintServersCreate =+      '[Admin'Chrome'Printers]+  requestClient AdminCustomersChromePrintServersCreate {..} =+    go+      parent+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdminCustomersChromePrintServersCreateResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/PrintServers/Delete.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.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 print server.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printServers.delete@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.Delete+  ( -- * Resource+    AdminCustomersChromePrintServersDeleteResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintServersDelete (..),+    newAdminCustomersChromePrintServersDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printServers.delete@ method which the+-- 'AdminCustomersChromePrintServersDelete' request conforms to.+type AdminCustomersChromePrintServersDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] Empty++-- | Deletes a print server.+--+-- /See:/ 'newAdminCustomersChromePrintServersDelete' smart constructor.+data AdminCustomersChromePrintServersDelete = AdminCustomersChromePrintServersDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The name of the print server to be deleted. Format: @customers\/{customer.id}\/chrome\/printServers\/{print_server.id}@+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintServersDelete' with the minimum fields required to make a request.+newAdminCustomersChromePrintServersDelete ::+  -- |  Required. The name of the print server to be deleted. Format: @customers\/{customer.id}\/chrome\/printServers\/{print_server.id}@ See 'name'.+  Core.Text ->+  AdminCustomersChromePrintServersDelete+newAdminCustomersChromePrintServersDelete name =+  AdminCustomersChromePrintServersDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AdminCustomersChromePrintServersDelete where+  type Rs AdminCustomersChromePrintServersDelete = Empty+  type+    Scopes AdminCustomersChromePrintServersDelete =+      '[Admin'Chrome'Printers]+  requestClient AdminCustomersChromePrintServersDelete {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdminCustomersChromePrintServersDeleteResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/PrintServers/Get.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.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)+--+-- Returns a print server\'s configuration.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printServers.get@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.Get+  ( -- * Resource+    AdminCustomersChromePrintServersGetResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintServersGet (..),+    newAdminCustomersChromePrintServersGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printServers.get@ method which the+-- 'AdminCustomersChromePrintServersGet' request conforms to.+type AdminCustomersChromePrintServersGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] PrintServer++-- | Returns a print server\'s configuration.+--+-- /See:/ 'newAdminCustomersChromePrintServersGet' smart constructor.+data AdminCustomersChromePrintServersGet = AdminCustomersChromePrintServersGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The <https://developers.google.com/admin-sdk/directory/reference/rest/v1/customers unique ID> of the customer\'s Google Workspace account. Format: @customers\/{id}@+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintServersGet' with the minimum fields required to make a request.+newAdminCustomersChromePrintServersGet ::+  -- |  Required. The <https://developers.google.com/admin-sdk/directory/reference/rest/v1/customers unique ID> of the customer\'s Google Workspace account. Format: @customers\/{id}@ See 'name'.+  Core.Text ->+  AdminCustomersChromePrintServersGet+newAdminCustomersChromePrintServersGet name =+  AdminCustomersChromePrintServersGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AdminCustomersChromePrintServersGet where+  type Rs AdminCustomersChromePrintServersGet = PrintServer+  type+    Scopes AdminCustomersChromePrintServersGet =+      '[Admin'Chrome'Printers, Admin'Chrome'Printers'Readonly]+  requestClient AdminCustomersChromePrintServersGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdminCustomersChromePrintServersGetResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/PrintServers/List.hs view
@@ -0,0 +1,142 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.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 print server configurations.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printServers.list@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.List+  ( -- * Resource+    AdminCustomersChromePrintServersListResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintServersList (..),+    newAdminCustomersChromePrintServersList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printServers.list@ method which the+-- 'AdminCustomersChromePrintServersList' request conforms to.+type AdminCustomersChromePrintServersListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "chrome"+    Core.:> "printServers"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "filter" Core.Text+    Core.:> Core.QueryParam "orderBy" Core.Text+    Core.:> Core.QueryParam "orgUnitId" 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] ListPrintServersResponse++-- | Lists print server configurations.+--+-- /See:/ 'newAdminCustomersChromePrintServersList' smart constructor.+data AdminCustomersChromePrintServersList = AdminCustomersChromePrintServersList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Search query in <https://github.com/google/cel-spec Common Expression Language syntax>. Supported filters are @display_name@, @description@, and @uri@. Example: @printServer.displayName==\'marketing-queue\'@.+    filter :: (Core.Maybe Core.Text),+    -- | Sort order for results. Supported values are @display_name@, @description@, or @create_time@. Default order is ascending, but descending order can be returned by appending \"desc\" to the @order_by@ field. For instance, @orderBy==\'description desc\'@ returns the print servers sorted by description in descending order.+    orderBy :: (Core.Maybe Core.Text),+    -- | If @org_unit_id@ is present in the request, only print servers owned or inherited by the organizational unit (OU) are returned. If the @PrintServer@ resource\'s @org_unit_id@ matches the one in the request, the OU owns the server. If @org_unit_id@ is not specified in the request, all print servers are returned or filtered against.+    orgUnitId :: (Core.Maybe Core.Text),+    -- | The maximum number of objects to return (default @100@, max @100@). The service might return fewer than this value.+    pageSize :: (Core.Maybe Core.Int32),+    -- | A generated token to paginate results (the @next_page_token@ from a previous call).+    pageToken :: (Core.Maybe Core.Text),+    -- | Required. The <https://developers.google.com/admin-sdk/directory/reference/rest/v1/customers unique ID> of the customer\'s Google Workspace account. Format: @customers\/{id}@+    parent :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintServersList' with the minimum fields required to make a request.+newAdminCustomersChromePrintServersList ::+  -- |  Required. The <https://developers.google.com/admin-sdk/directory/reference/rest/v1/customers unique ID> of the customer\'s Google Workspace account. Format: @customers\/{id}@ See 'parent'.+  Core.Text ->+  AdminCustomersChromePrintServersList+newAdminCustomersChromePrintServersList parent =+  AdminCustomersChromePrintServersList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      orderBy = Core.Nothing,+      orgUnitId = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      parent = parent,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AdminCustomersChromePrintServersList where+  type+    Rs AdminCustomersChromePrintServersList =+      ListPrintServersResponse+  type+    Scopes AdminCustomersChromePrintServersList =+      '[Admin'Chrome'Printers, Admin'Chrome'Printers'Readonly]+  requestClient AdminCustomersChromePrintServersList {..} =+    go+      parent+      xgafv+      accessToken+      callback+      filter+      orderBy+      orgUnitId+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdminCustomersChromePrintServersListResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/PrintServers/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.Admin.Directory.Admin.Customers.Chrome.PrintServers.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a print server\'s configuration.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printServers.patch@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.Patch+  ( -- * Resource+    AdminCustomersChromePrintServersPatchResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintServersPatch (..),+    newAdminCustomersChromePrintServersPatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printServers.patch@ method which the+-- 'AdminCustomersChromePrintServersPatch' request conforms to.+type AdminCustomersChromePrintServersPatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "updateMask" Core.FieldMask+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] PrintServer+    Core.:> Core.Patch '[Core.JSON] PrintServer++-- | Updates a print server\'s configuration.+--+-- /See:/ 'newAdminCustomersChromePrintServersPatch' smart constructor.+data AdminCustomersChromePrintServersPatch = AdminCustomersChromePrintServersPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable. Resource name of the print server. Leave empty when creating. Format: @customers\/{customer.id}\/printServers\/{print_server.id}@+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: PrintServer,+    -- | The list of fields to update. Some fields are read-only and cannot be updated. Values for unspecified fields are patched.+    updateMask :: (Core.Maybe Core.FieldMask),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintServersPatch' with the minimum fields required to make a request.+newAdminCustomersChromePrintServersPatch ::+  -- |  Immutable. Resource name of the print server. Leave empty when creating. Format: @customers\/{customer.id}\/printServers\/{print_server.id}@ See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  PrintServer ->+  AdminCustomersChromePrintServersPatch+newAdminCustomersChromePrintServersPatch name payload =+  AdminCustomersChromePrintServersPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      payload = payload,+      updateMask = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AdminCustomersChromePrintServersPatch where+  type Rs AdminCustomersChromePrintServersPatch = PrintServer+  type+    Scopes AdminCustomersChromePrintServersPatch =+      '[Admin'Chrome'Printers]+  requestClient AdminCustomersChromePrintServersPatch {..} =+    go+      name+      xgafv+      accessToken+      callback+      updateMask+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdminCustomersChromePrintServersPatchResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/Printers/BatchCreatePrinters.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.Admin.Directory.Admin.Customers.Chrome.Printers.BatchCreatePrinters+-- 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 printers under given Organization Unit.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printers.batchCreatePrinters@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.BatchCreatePrinters+  ( -- * Resource+    AdminCustomersChromePrintersBatchCreatePrintersResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintersBatchCreatePrinters (..),+    newAdminCustomersChromePrintersBatchCreatePrinters,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printers.batchCreatePrinters@ method which the+-- 'AdminCustomersChromePrintersBatchCreatePrinters' request conforms to.+type AdminCustomersChromePrintersBatchCreatePrintersResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "chrome"+    Core.:> "printers:batchCreatePrinters"+    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] BatchCreatePrintersRequest+    Core.:> Core.Post '[Core.JSON] BatchCreatePrintersResponse++-- | Creates printers under given Organization Unit.+--+-- /See:/ 'newAdminCustomersChromePrintersBatchCreatePrinters' smart constructor.+data AdminCustomersChromePrintersBatchCreatePrinters = AdminCustomersChromePrintersBatchCreatePrinters+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The name of the customer. Format: customers\/{customer_id}+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: BatchCreatePrintersRequest,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintersBatchCreatePrinters' with the minimum fields required to make a request.+newAdminCustomersChromePrintersBatchCreatePrinters ::+  -- |  Required. The name of the customer. Format: customers\/{customer_id} See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  BatchCreatePrintersRequest ->+  AdminCustomersChromePrintersBatchCreatePrinters+newAdminCustomersChromePrintersBatchCreatePrinters parent payload =+  AdminCustomersChromePrintersBatchCreatePrinters+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      parent = parent,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AdminCustomersChromePrintersBatchCreatePrinters+  where+  type+    Rs AdminCustomersChromePrintersBatchCreatePrinters =+      BatchCreatePrintersResponse+  type+    Scopes AdminCustomersChromePrintersBatchCreatePrinters =+      '[Admin'Chrome'Printers]+  requestClient AdminCustomersChromePrintersBatchCreatePrinters {..} =+    go+      parent+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdminCustomersChromePrintersBatchCreatePrintersResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/Printers/BatchDeletePrinters.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.Admin.Directory.Admin.Customers.Chrome.Printers.BatchDeletePrinters+-- 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 printers in batch.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printers.batchDeletePrinters@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.BatchDeletePrinters+  ( -- * Resource+    AdminCustomersChromePrintersBatchDeletePrintersResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintersBatchDeletePrinters (..),+    newAdminCustomersChromePrintersBatchDeletePrinters,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printers.batchDeletePrinters@ method which the+-- 'AdminCustomersChromePrintersBatchDeletePrinters' request conforms to.+type AdminCustomersChromePrintersBatchDeletePrintersResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "chrome"+    Core.:> "printers:batchDeletePrinters"+    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] BatchDeletePrintersRequest+    Core.:> Core.Post '[Core.JSON] BatchDeletePrintersResponse++-- | Deletes printers in batch.+--+-- /See:/ 'newAdminCustomersChromePrintersBatchDeletePrinters' smart constructor.+data AdminCustomersChromePrintersBatchDeletePrinters = AdminCustomersChromePrintersBatchDeletePrinters+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The name of the customer. Format: customers\/{customer_id}+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: BatchDeletePrintersRequest,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintersBatchDeletePrinters' with the minimum fields required to make a request.+newAdminCustomersChromePrintersBatchDeletePrinters ::+  -- |  Required. The name of the customer. Format: customers\/{customer_id} See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  BatchDeletePrintersRequest ->+  AdminCustomersChromePrintersBatchDeletePrinters+newAdminCustomersChromePrintersBatchDeletePrinters parent payload =+  AdminCustomersChromePrintersBatchDeletePrinters+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      parent = parent,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AdminCustomersChromePrintersBatchDeletePrinters+  where+  type+    Rs AdminCustomersChromePrintersBatchDeletePrinters =+      BatchDeletePrintersResponse+  type+    Scopes AdminCustomersChromePrintersBatchDeletePrinters =+      '[Admin'Chrome'Printers]+  requestClient AdminCustomersChromePrintersBatchDeletePrinters {..} =+    go+      parent+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdminCustomersChromePrintersBatchDeletePrintersResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/Printers/Create.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.Admin.Directory.Admin.Customers.Chrome.Printers.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 printer under given Organization Unit.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printers.create@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.Create+  ( -- * Resource+    AdminCustomersChromePrintersCreateResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintersCreate (..),+    newAdminCustomersChromePrintersCreate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printers.create@ method which the+-- 'AdminCustomersChromePrintersCreate' request conforms to.+type AdminCustomersChromePrintersCreateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "chrome"+    Core.:> "printers"+    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] Printer+    Core.:> Core.Post '[Core.JSON] Printer++-- | Creates a printer under given Organization Unit.+--+-- /See:/ 'newAdminCustomersChromePrintersCreate' smart constructor.+data AdminCustomersChromePrintersCreate = AdminCustomersChromePrintersCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The name of the customer. Format: customers\/{customer_id}+    parent :: Core.Text,+    -- | Multipart request metadata.+    payload :: Printer,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintersCreate' with the minimum fields required to make a request.+newAdminCustomersChromePrintersCreate ::+  -- |  Required. The name of the customer. Format: customers\/{customer_id} See 'parent'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Printer ->+  AdminCustomersChromePrintersCreate+newAdminCustomersChromePrintersCreate parent payload =+  AdminCustomersChromePrintersCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      parent = parent,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AdminCustomersChromePrintersCreate where+  type Rs AdminCustomersChromePrintersCreate = Printer+  type+    Scopes AdminCustomersChromePrintersCreate =+      '[Admin'Chrome'Printers]+  requestClient AdminCustomersChromePrintersCreate {..} =+    go+      parent+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdminCustomersChromePrintersCreateResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/Printers/Delete.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.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 @Printer@.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printers.delete@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.Delete+  ( -- * Resource+    AdminCustomersChromePrintersDeleteResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintersDelete (..),+    newAdminCustomersChromePrintersDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printers.delete@ method which the+-- 'AdminCustomersChromePrintersDelete' request conforms to.+type AdminCustomersChromePrintersDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] Empty++-- | Deletes a @Printer@.+--+-- /See:/ 'newAdminCustomersChromePrintersDelete' smart constructor.+data AdminCustomersChromePrintersDelete = AdminCustomersChromePrintersDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The name of the printer to be updated. Format: customers\/{customer/id}\/chrome\/printers\/{printer/id}+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintersDelete' with the minimum fields required to make a request.+newAdminCustomersChromePrintersDelete ::+  -- |  Required. The name of the printer to be updated. Format: customers\/{customer/id}\/chrome\/printers\/{printer/id} See 'name'.+  Core.Text ->+  AdminCustomersChromePrintersDelete+newAdminCustomersChromePrintersDelete name =+  AdminCustomersChromePrintersDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AdminCustomersChromePrintersDelete where+  type Rs AdminCustomersChromePrintersDelete = Empty+  type+    Scopes AdminCustomersChromePrintersDelete =+      '[Admin'Chrome'Printers]+  requestClient AdminCustomersChromePrintersDelete {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdminCustomersChromePrintersDeleteResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/Printers/Get.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.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)+--+-- Returns a @Printer@ resource (printer\'s config).+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printers.get@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.Get+  ( -- * Resource+    AdminCustomersChromePrintersGetResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintersGet (..),+    newAdminCustomersChromePrintersGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printers.get@ method which the+-- 'AdminCustomersChromePrintersGet' request conforms to.+type AdminCustomersChromePrintersGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Printer++-- | Returns a @Printer@ resource (printer\'s config).+--+-- /See:/ 'newAdminCustomersChromePrintersGet' smart constructor.+data AdminCustomersChromePrintersGet = AdminCustomersChromePrintersGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The name of the printer to retrieve. Format: customers\/{customer/id}\/chrome\/printers\/{printer/id}+    name :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintersGet' with the minimum fields required to make a request.+newAdminCustomersChromePrintersGet ::+  -- |  Required. The name of the printer to retrieve. Format: customers\/{customer/id}\/chrome\/printers\/{printer/id} See 'name'.+  Core.Text ->+  AdminCustomersChromePrintersGet+newAdminCustomersChromePrintersGet name =+  AdminCustomersChromePrintersGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      name = name,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AdminCustomersChromePrintersGet where+  type Rs AdminCustomersChromePrintersGet = Printer+  type+    Scopes AdminCustomersChromePrintersGet =+      '[Admin'Chrome'Printers, Admin'Chrome'Printers'Readonly]+  requestClient AdminCustomersChromePrintersGet {..} =+    go+      name+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdminCustomersChromePrintersGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/Printers/List.hs view
@@ -0,0 +1,138 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List printers configs.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printers.list@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.List+  ( -- * Resource+    AdminCustomersChromePrintersListResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintersList (..),+    newAdminCustomersChromePrintersList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printers.list@ method which the+-- 'AdminCustomersChromePrintersList' request conforms to.+type AdminCustomersChromePrintersListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "chrome"+    Core.:> "printers"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "filter" Core.Text+    Core.:> Core.QueryParam "orderBy" Core.Text+    Core.:> Core.QueryParam "orgUnitId" 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] ListPrintersResponse++-- | List printers configs.+--+-- /See:/ 'newAdminCustomersChromePrintersList' smart constructor.+data AdminCustomersChromePrintersList = AdminCustomersChromePrintersList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Search query. Search syntax is shared between this api and Admin Console printers pages.+    filter :: (Core.Maybe Core.Text),+    -- | The order to sort results by. Must be one of display/name, description, make/and/model, or create/time. Default order is ascending, but descending order can be returned by appending \"desc\" to the order_by field. For instance, \"description desc\" will return the printers sorted by description in descending order.+    orderBy :: (Core.Maybe Core.Text),+    -- | Organization Unit that we want to list the printers for. When org/unit is not present in the request then all printers of the customer are returned (or filtered). When org/unit is present in the request then only printers available to this OU will be returned (owned or inherited). You may see if printer is owned or inherited for this OU by looking at Printer.org/unit/id.+    orgUnitId :: (Core.Maybe Core.Text),+    -- | The maximum number of objects to return. The service may return fewer than this value.+    pageSize :: (Core.Maybe Core.Int32),+    -- | A page token, received from a previous call.+    pageToken :: (Core.Maybe Core.Text),+    -- | Required. The name of the customer who owns this collection of printers. Format: customers\/{customer_id}+    parent :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintersList' with the minimum fields required to make a request.+newAdminCustomersChromePrintersList ::+  -- |  Required. The name of the customer who owns this collection of printers. Format: customers\/{customer_id} See 'parent'.+  Core.Text ->+  AdminCustomersChromePrintersList+newAdminCustomersChromePrintersList parent =+  AdminCustomersChromePrintersList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      orderBy = Core.Nothing,+      orgUnitId = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      parent = parent,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AdminCustomersChromePrintersList where+  type Rs AdminCustomersChromePrintersList = ListPrintersResponse+  type+    Scopes AdminCustomersChromePrintersList =+      '[Admin'Chrome'Printers, Admin'Chrome'Printers'Readonly]+  requestClient AdminCustomersChromePrintersList {..} =+    go+      parent+      xgafv+      accessToken+      callback+      filter+      orderBy+      orgUnitId+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy AdminCustomersChromePrintersListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/Printers/ListPrinterModels.hs view
@@ -0,0 +1,136 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.ListPrinterModels+-- 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 supported printer models.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printers.listPrinterModels@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.ListPrinterModels+  ( -- * Resource+    AdminCustomersChromePrintersListPrinterModelsResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintersListPrinterModels (..),+    newAdminCustomersChromePrintersListPrinterModels,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printers.listPrinterModels@ method which the+-- 'AdminCustomersChromePrintersListPrinterModels' request conforms to.+type AdminCustomersChromePrintersListPrinterModelsResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "parent" Core.Text+    Core.:> "chrome"+    Core.:> "printers:listPrinterModels"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "filter" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListPrinterModelsResponse++-- | Lists the supported printer models.+--+-- /See:/ 'newAdminCustomersChromePrintersListPrinterModels' smart constructor.+data AdminCustomersChromePrintersListPrinterModels = AdminCustomersChromePrintersListPrinterModels+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Filer to list only models by a given manufacturer in format: \"manufacturer:Brother\". Search syntax is shared between this api and Admin Console printers pages.+    filter :: (Core.Maybe Core.Text),+    -- | The maximum number of objects to return. The service may return fewer than this value.+    pageSize :: (Core.Maybe Core.Int32),+    -- | A page token, received from a previous call.+    pageToken :: (Core.Maybe Core.Text),+    -- | Required. The name of the customer who owns this collection of printers. Format: customers\/{customer_id}+    parent :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintersListPrinterModels' with the minimum fields required to make a request.+newAdminCustomersChromePrintersListPrinterModels ::+  -- |  Required. The name of the customer who owns this collection of printers. Format: customers\/{customer_id} See 'parent'.+  Core.Text ->+  AdminCustomersChromePrintersListPrinterModels+newAdminCustomersChromePrintersListPrinterModels parent =+  AdminCustomersChromePrintersListPrinterModels+    { xgafv =+        Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      parent = parent,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance+  Core.GoogleRequest+    AdminCustomersChromePrintersListPrinterModels+  where+  type+    Rs AdminCustomersChromePrintersListPrinterModels =+      ListPrinterModelsResponse+  type+    Scopes AdminCustomersChromePrintersListPrinterModels =+      '[Admin'Chrome'Printers, Admin'Chrome'Printers'Readonly]+  requestClient AdminCustomersChromePrintersListPrinterModels {..} =+    go+      parent+      xgafv+      accessToken+      callback+      filter+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdminCustomersChromePrintersListPrinterModelsResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Admin/Customers/Chrome/Printers/Patch.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.Admin.Directory.Admin.Customers.Chrome.Printers.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a @Printer@ resource.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @admin.customers.chrome.printers.patch@.+module Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.Patch+  ( -- * Resource+    AdminCustomersChromePrintersPatchResource,++    -- ** Constructing a Request+    AdminCustomersChromePrintersPatch (..),+    newAdminCustomersChromePrintersPatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @admin.customers.chrome.printers.patch@ method which the+-- 'AdminCustomersChromePrintersPatch' request conforms to.+type AdminCustomersChromePrintersPatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> Core.Capture "name" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "clearMask" Core.FieldMask+    Core.:> Core.QueryParam "updateMask" Core.FieldMask+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Printer+    Core.:> Core.Patch '[Core.JSON] Printer++-- | Updates a @Printer@ resource.+--+-- /See:/ 'newAdminCustomersChromePrintersPatch' smart constructor.+data AdminCustomersChromePrintersPatch = AdminCustomersChromePrintersPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The list of fields to be cleared. Note, some of the fields are read only and cannot be updated. Values for not specified fields will be patched.+    clearMask :: (Core.Maybe Core.FieldMask),+    -- | The resource name of the Printer object, in the format customers\/{customer-id}\/printers\/{printer-id} (During printer creation leave empty)+    name :: Core.Text,+    -- | Multipart request metadata.+    payload :: Printer,+    -- | The list of fields to be updated. Note, some of the fields are read only and cannot be updated. Values for not specified fields will be patched.+    updateMask :: (Core.Maybe Core.FieldMask),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AdminCustomersChromePrintersPatch' with the minimum fields required to make a request.+newAdminCustomersChromePrintersPatch ::+  -- |  The resource name of the Printer object, in the format customers\/{customer-id}\/printers\/{printer-id} (During printer creation leave empty) See 'name'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Printer ->+  AdminCustomersChromePrintersPatch+newAdminCustomersChromePrintersPatch name payload =+  AdminCustomersChromePrintersPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      clearMask = Core.Nothing,+      name = name,+      payload = payload,+      updateMask = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest AdminCustomersChromePrintersPatch where+  type Rs AdminCustomersChromePrintersPatch = Printer+  type+    Scopes AdminCustomersChromePrintersPatch =+      '[Admin'Chrome'Printers]+  requestClient AdminCustomersChromePrintersPatch {..} =+    go+      name+      xgafv+      accessToken+      callback+      clearMask+      updateMask+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy AdminCustomersChromePrintersPatchResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Asps/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.Admin.Directory.Asps.Delete+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an ASP issued by a user.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.asps.delete@.+module Gogol.Admin.Directory.Asps.Delete+  ( -- * Resource+    DirectoryAspsDeleteResource,++    -- ** Constructing a Request+    DirectoryAspsDelete (..),+    newDirectoryAspsDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.asps.delete@ method which the+-- 'DirectoryAspsDelete' request conforms to.+type DirectoryAspsDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "asps"+    Core.:> Core.Capture "codeId" Core.Int32+    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 an ASP issued by a user.+--+-- /See:/ 'newDirectoryAspsDelete' smart constructor.+data DirectoryAspsDelete = DirectoryAspsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID of the ASP to be deleted.+    codeId :: Core.Int32,+    -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryAspsDelete' with the minimum fields required to make a request.+newDirectoryAspsDelete ::+  -- |  The unique ID of the ASP to be deleted. See 'codeId'.+  Core.Int32 ->+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryAspsDelete+newDirectoryAspsDelete codeId userKey =+  DirectoryAspsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      codeId = codeId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryAspsDelete where+  type Rs DirectoryAspsDelete = ()+  type Scopes DirectoryAspsDelete = '[Admin'Directory'User'Security]+  requestClient DirectoryAspsDelete {..} =+    go+      userKey+      codeId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryAspsDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Asps/Get.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Asps.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about an ASP issued by a user.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.asps.get@.+module Gogol.Admin.Directory.Asps.Get+  ( -- * Resource+    DirectoryAspsGetResource,++    -- ** Constructing a Request+    DirectoryAspsGet (..),+    newDirectoryAspsGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.asps.get@ method which the+-- 'DirectoryAspsGet' request conforms to.+type DirectoryAspsGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "asps"+    Core.:> Core.Capture "codeId" Core.Int32+    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] Asp++-- | Gets information about an ASP issued by a user.+--+-- /See:/ 'newDirectoryAspsGet' smart constructor.+data DirectoryAspsGet = DirectoryAspsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID of the ASP.+    codeId :: Core.Int32,+    -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryAspsGet' with the minimum fields required to make a request.+newDirectoryAspsGet ::+  -- |  The unique ID of the ASP. See 'codeId'.+  Core.Int32 ->+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryAspsGet+newDirectoryAspsGet codeId userKey =+  DirectoryAspsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      codeId = codeId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryAspsGet where+  type Rs DirectoryAspsGet = Asp+  type Scopes DirectoryAspsGet = '[Admin'Directory'User'Security]+  requestClient DirectoryAspsGet {..} =+    go+      userKey+      codeId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryAspsGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Asps/List.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Asps.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 ASPs issued by a user.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.asps.list@.+module Gogol.Admin.Directory.Asps.List+  ( -- * Resource+    DirectoryAspsListResource,++    -- ** Constructing a Request+    DirectoryAspsList (..),+    newDirectoryAspsList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.asps.list@ method which the+-- 'DirectoryAspsList' request conforms to.+type DirectoryAspsListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "asps"+    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] Asps++-- | Lists the ASPs issued by a user.+--+-- /See:/ 'newDirectoryAspsList' smart constructor.+data DirectoryAspsList = DirectoryAspsList+  { -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryAspsList' with the minimum fields required to make a request.+newDirectoryAspsList ::+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryAspsList+newDirectoryAspsList userKey =+  DirectoryAspsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryAspsList where+  type Rs DirectoryAspsList = Asps+  type Scopes DirectoryAspsList = '[Admin'Directory'User'Security]+  requestClient DirectoryAspsList {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryAspsListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Chromeosdevices/Action.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.Admin.Directory.Chromeosdevices.Action+-- 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)+--+-- Use </admin-sdk/directory/reference/rest/v1/customer.devices.chromeos/batchChangeStatus BatchChangeChromeOsDeviceStatus> instead. Takes an action that affects a Chrome OS Device. This includes deprovisioning, disabling, and re-enabling devices. /Warning:/ * Deprovisioning a device will stop device policy syncing and remove device-level printers. After a device is deprovisioned, it must be wiped before it can be re-enrolled. * Lost or stolen devices should use the disable action. * Re-enabling a disabled device will consume a device license. If you do not have sufficient licenses available when completing the re-enable action, you will receive an error. For more information about deprovisioning and disabling devices, visit the <https://support.google.com/chrome/a/answer/3523633 help center>.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.chromeosdevices.action@.+module Gogol.Admin.Directory.Chromeosdevices.Action+  ( -- * Resource+    DirectoryChromeosdevicesActionResource,++    -- ** Constructing a Request+    DirectoryChromeosdevicesAction (..),+    newDirectoryChromeosdevicesAction,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.chromeosdevices.action@ method which the+-- 'DirectoryChromeosdevicesAction' request conforms to.+type DirectoryChromeosdevicesActionResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "devices"+    Core.:> "chromeos"+    Core.:> Core.Capture "resourceId" Core.Text+    Core.:> "action"+    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] ChromeOsDeviceAction+    Core.:> Core.Post '[Core.JSON] ()++-- | Use </admin-sdk/directory/reference/rest/v1/customer.devices.chromeos/batchChangeStatus BatchChangeChromeOsDeviceStatus> instead. Takes an action that affects a Chrome OS Device. This includes deprovisioning, disabling, and re-enabling devices. /Warning:/ * Deprovisioning a device will stop device policy syncing and remove device-level printers. After a device is deprovisioned, it must be wiped before it can be re-enrolled. * Lost or stolen devices should use the disable action. * Re-enabling a disabled device will consume a device license. If you do not have sufficient licenses available when completing the re-enable action, you will receive an error. For more information about deprovisioning and disabling devices, visit the <https://support.google.com/chrome/a/answer/3523633 help center>.+--+-- /See:/ 'newDirectoryChromeosdevicesAction' smart constructor.+data DirectoryChromeosdevicesAction = DirectoryChromeosdevicesAction+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | Multipart request metadata.+    payload :: ChromeOsDeviceAction,+    -- | The unique ID of the device. The @resourceId@s are returned in the response from the </admin-sdk/directory/v1/reference/chromeosdevices/list chromeosdevices.list> method.+    resourceId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryChromeosdevicesAction' with the minimum fields required to make a request.+newDirectoryChromeosdevicesAction ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ChromeOsDeviceAction ->+  -- |  The unique ID of the device. The @resourceId@s are returned in the response from the </admin-sdk/directory/v1/reference/chromeosdevices/list chromeosdevices.list> method. See 'resourceId'.+  Core.Text ->+  DirectoryChromeosdevicesAction+newDirectoryChromeosdevicesAction customerId payload resourceId =+  DirectoryChromeosdevicesAction+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      payload = payload,+      resourceId = resourceId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryChromeosdevicesAction where+  type Rs DirectoryChromeosdevicesAction = ()+  type+    Scopes DirectoryChromeosdevicesAction =+      '[Admin'Directory'Device'Chromeos]+  requestClient DirectoryChromeosdevicesAction {..} =+    go+      customerId+      resourceId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryChromeosdevicesActionResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Chromeosdevices/Get.hs view
@@ -0,0 +1,128 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Chromeosdevices.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 Chrome OS device\'s properties.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.chromeosdevices.get@.+module Gogol.Admin.Directory.Chromeosdevices.Get+  ( -- * Resource+    DirectoryChromeosdevicesGetResource,++    -- ** Constructing a Request+    DirectoryChromeosdevicesGet (..),+    newDirectoryChromeosdevicesGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.chromeosdevices.get@ method which the+-- 'DirectoryChromeosdevicesGet' request conforms to.+type DirectoryChromeosdevicesGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "devices"+    Core.:> "chromeos"+    Core.:> Core.Capture "deviceId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "projection" ChromeosdevicesGetProjection+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ChromeOsDevice++-- | Retrieves a Chrome OS device\'s properties.+--+-- /See:/ 'newDirectoryChromeosdevicesGet' smart constructor.+data DirectoryChromeosdevicesGet = DirectoryChromeosdevicesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | The unique ID of the device. The @deviceId@s are returned in the response from the </admin-sdk/directory/v1/reference/chromeosdevices/list chromeosdevices.list> method.+    deviceId :: Core.Text,+    -- | Determines whether the response contains the full list of properties or only a subset.+    projection :: (Core.Maybe ChromeosdevicesGetProjection),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryChromeosdevicesGet' with the minimum fields required to make a request.+newDirectoryChromeosdevicesGet ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  -- |  The unique ID of the device. The @deviceId@s are returned in the response from the </admin-sdk/directory/v1/reference/chromeosdevices/list chromeosdevices.list> method. See 'deviceId'.+  Core.Text ->+  DirectoryChromeosdevicesGet+newDirectoryChromeosdevicesGet customerId deviceId =+  DirectoryChromeosdevicesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      deviceId = deviceId,+      projection = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryChromeosdevicesGet where+  type Rs DirectoryChromeosdevicesGet = ChromeOsDevice+  type+    Scopes DirectoryChromeosdevicesGet =+      '[ Admin'Directory'Device'Chromeos,+         Admin'Directory'Device'Chromeos'Readonly+       ]+  requestClient DirectoryChromeosdevicesGet {..} =+    go+      customerId+      deviceId+      xgafv+      accessToken+      callback+      projection+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryChromeosdevicesGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Chromeosdevices/List.hs view
@@ -0,0 +1,156 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Chromeosdevices.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)+--+-- Retrieves a paginated list of Chrome OS devices within an account.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.chromeosdevices.list@.+module Gogol.Admin.Directory.Chromeosdevices.List+  ( -- * Resource+    DirectoryChromeosdevicesListResource,++    -- ** Constructing a Request+    DirectoryChromeosdevicesList (..),+    newDirectoryChromeosdevicesList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.chromeosdevices.list@ method which the+-- 'DirectoryChromeosdevicesList' request conforms to.+type DirectoryChromeosdevicesListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "devices"+    Core.:> "chromeos"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "includeChildOrgunits" Core.Bool+    Core.:> Core.QueryParam "maxResults" Core.Int32+    Core.:> Core.QueryParam "orderBy" ChromeosdevicesListOrderBy+    Core.:> Core.QueryParam "orgUnitPath" Core.Text+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "projection" ChromeosdevicesListProjection+    Core.:> Core.QueryParam "query" Core.Text+    Core.:> Core.QueryParam "sortOrder" ChromeosdevicesListSortOrder+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ChromeOsDevices++-- | Retrieves a paginated list of Chrome OS devices within an account.+--+-- /See:/ 'newDirectoryChromeosdevicesList' smart constructor.+data DirectoryChromeosdevicesList = DirectoryChromeosdevicesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | Return devices from all child orgunits, as well as the specified org unit. If this is set to true, \'orgUnitPath\' must be provided.+    includeChildOrgunits :: (Core.Maybe Core.Bool),+    -- | Maximum number of results to return. Value should not exceed 300.+    maxResults :: Core.Int32,+    -- | Device property to use for sorting results.+    orderBy :: (Core.Maybe ChromeosdevicesListOrderBy),+    -- | The full path of the organizational unit (minus the leading @\/@) or its unique ID.+    orgUnitPath :: (Core.Maybe Core.Text),+    -- | The @pageToken@ query parameter is used to request the next page of query results. The follow-on request\'s @pageToken@ query parameter is the @nextPageToken@ from your previous response.+    pageToken :: (Core.Maybe Core.Text),+    -- | Determines whether the response contains the full list of properties or only a subset.+    projection :: (Core.Maybe ChromeosdevicesListProjection),+    -- | Search string in the format given at https:\/\/developers.google.com\/admin-sdk\/directory\/v1\/list-query-operators+    query :: (Core.Maybe Core.Text),+    -- | Whether to return results in ascending or descending order. Must be used with the @orderBy@ parameter.+    sortOrder :: (Core.Maybe ChromeosdevicesListSortOrder),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryChromeosdevicesList' with the minimum fields required to make a request.+newDirectoryChromeosdevicesList ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  DirectoryChromeosdevicesList+newDirectoryChromeosdevicesList customerId =+  DirectoryChromeosdevicesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      includeChildOrgunits = Core.Nothing,+      maxResults = 100,+      orderBy = Core.Nothing,+      orgUnitPath = Core.Nothing,+      pageToken = Core.Nothing,+      projection = Core.Nothing,+      query = Core.Nothing,+      sortOrder = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryChromeosdevicesList where+  type Rs DirectoryChromeosdevicesList = ChromeOsDevices+  type+    Scopes DirectoryChromeosdevicesList =+      '[ Admin'Directory'Device'Chromeos,+         Admin'Directory'Device'Chromeos'Readonly+       ]+  requestClient DirectoryChromeosdevicesList {..} =+    go+      customerId+      xgafv+      accessToken+      callback+      includeChildOrgunits+      (Core.Just maxResults)+      orderBy+      orgUnitPath+      pageToken+      projection+      query+      sortOrder+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryChromeosdevicesListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Chromeosdevices/MoveDevicesToOu.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.Admin.Directory.Chromeosdevices.MoveDevicesToOu+-- 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 or inserts multiple Chrome OS devices to an organizational unit. You can move up to 50 devices at once.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.chromeosdevices.moveDevicesToOu@.+module Gogol.Admin.Directory.Chromeosdevices.MoveDevicesToOu+  ( -- * Resource+    DirectoryChromeosdevicesMoveDevicesToOuResource,++    -- ** Constructing a Request+    DirectoryChromeosdevicesMoveDevicesToOu (..),+    newDirectoryChromeosdevicesMoveDevicesToOu,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.chromeosdevices.moveDevicesToOu@ method which the+-- 'DirectoryChromeosdevicesMoveDevicesToOu' request conforms to.+type DirectoryChromeosdevicesMoveDevicesToOuResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "devices"+    Core.:> "chromeos"+    Core.:> "moveDevicesToOu"+    Core.:> Core.QueryParam "orgUnitPath" 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] ChromeOsMoveDevicesToOu+    Core.:> Core.Post '[Core.JSON] ()++-- | Moves or inserts multiple Chrome OS devices to an organizational unit. You can move up to 50 devices at once.+--+-- /See:/ 'newDirectoryChromeosdevicesMoveDevicesToOu' smart constructor.+data DirectoryChromeosdevicesMoveDevicesToOu = DirectoryChromeosdevicesMoveDevicesToOu+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable. ID of the Google Workspace account+    customerId :: Core.Text,+    -- | Full path of the target organizational unit or its ID+    orgUnitPath :: Core.Text,+    -- | Multipart request metadata.+    payload :: ChromeOsMoveDevicesToOu,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryChromeosdevicesMoveDevicesToOu' with the minimum fields required to make a request.+newDirectoryChromeosdevicesMoveDevicesToOu ::+  -- |  Immutable. ID of the Google Workspace account See 'customerId'.+  Core.Text ->+  -- |  Full path of the target organizational unit or its ID See 'orgUnitPath'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ChromeOsMoveDevicesToOu ->+  DirectoryChromeosdevicesMoveDevicesToOu+newDirectoryChromeosdevicesMoveDevicesToOu+  customerId+  orgUnitPath+  payload =+    DirectoryChromeosdevicesMoveDevicesToOu+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        customerId = customerId,+        orgUnitPath = orgUnitPath,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance Core.GoogleRequest DirectoryChromeosdevicesMoveDevicesToOu where+  type Rs DirectoryChromeosdevicesMoveDevicesToOu = ()+  type+    Scopes DirectoryChromeosdevicesMoveDevicesToOu =+      '[Admin'Directory'Device'Chromeos]+  requestClient DirectoryChromeosdevicesMoveDevicesToOu {..} =+    go+      customerId+      (Core.Just orgUnitPath)+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DirectoryChromeosdevicesMoveDevicesToOuResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Chromeosdevices/Patch.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.Admin.Directory.Chromeosdevices.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a device\'s updatable properties, such as @annotatedUser@, @annotatedLocation@, @notes@, @orgUnitPath@, or @annotatedAssetId@. This method supports </admin-sdk/directory/v1/guides/performance#patch patch semantics>.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.chromeosdevices.patch@.+module Gogol.Admin.Directory.Chromeosdevices.Patch+  ( -- * Resource+    DirectoryChromeosdevicesPatchResource,++    -- ** Constructing a Request+    DirectoryChromeosdevicesPatch (..),+    newDirectoryChromeosdevicesPatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.chromeosdevices.patch@ method which the+-- 'DirectoryChromeosdevicesPatch' request conforms to.+type DirectoryChromeosdevicesPatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "devices"+    Core.:> "chromeos"+    Core.:> Core.Capture "deviceId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "projection" ChromeosdevicesPatchProjection+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] ChromeOsDevice+    Core.:> Core.Patch '[Core.JSON] ChromeOsDevice++-- | Updates a device\'s updatable properties, such as @annotatedUser@, @annotatedLocation@, @notes@, @orgUnitPath@, or @annotatedAssetId@. This method supports </admin-sdk/directory/v1/guides/performance#patch patch semantics>.+--+-- /See:/ 'newDirectoryChromeosdevicesPatch' smart constructor.+data DirectoryChromeosdevicesPatch = DirectoryChromeosdevicesPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | The unique ID of the device. The @deviceId@s are returned in the response from the </admin-sdk/v1/reference/chromeosdevices/list chromeosdevices.list> method.+    deviceId :: Core.Text,+    -- | Multipart request metadata.+    payload :: ChromeOsDevice,+    -- | Determines whether the response contains the full list of properties or only a subset.+    projection :: (Core.Maybe ChromeosdevicesPatchProjection),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryChromeosdevicesPatch' with the minimum fields required to make a request.+newDirectoryChromeosdevicesPatch ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  -- |  The unique ID of the device. The @deviceId@s are returned in the response from the </admin-sdk/v1/reference/chromeosdevices/list chromeosdevices.list> method. See 'deviceId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ChromeOsDevice ->+  DirectoryChromeosdevicesPatch+newDirectoryChromeosdevicesPatch customerId deviceId payload =+  DirectoryChromeosdevicesPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      deviceId = deviceId,+      payload = payload,+      projection = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryChromeosdevicesPatch where+  type Rs DirectoryChromeosdevicesPatch = ChromeOsDevice+  type+    Scopes DirectoryChromeosdevicesPatch =+      '[Admin'Directory'Device'Chromeos]+  requestClient DirectoryChromeosdevicesPatch {..} =+    go+      customerId+      deviceId+      xgafv+      accessToken+      callback+      projection+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryChromeosdevicesPatchResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Chromeosdevices/Update.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.Admin.Directory.Chromeosdevices.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 device\'s updatable properties, such as @annotatedUser@, @annotatedLocation@, @notes@, @orgUnitPath@, or @annotatedAssetId@.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.chromeosdevices.update@.+module Gogol.Admin.Directory.Chromeosdevices.Update+  ( -- * Resource+    DirectoryChromeosdevicesUpdateResource,++    -- ** Constructing a Request+    DirectoryChromeosdevicesUpdate (..),+    newDirectoryChromeosdevicesUpdate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.chromeosdevices.update@ method which the+-- 'DirectoryChromeosdevicesUpdate' request conforms to.+type DirectoryChromeosdevicesUpdateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "devices"+    Core.:> "chromeos"+    Core.:> Core.Capture "deviceId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "projection" ChromeosdevicesUpdateProjection+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] ChromeOsDevice+    Core.:> Core.Put '[Core.JSON] ChromeOsDevice++-- | Updates a device\'s updatable properties, such as @annotatedUser@, @annotatedLocation@, @notes@, @orgUnitPath@, or @annotatedAssetId@.+--+-- /See:/ 'newDirectoryChromeosdevicesUpdate' smart constructor.+data DirectoryChromeosdevicesUpdate = DirectoryChromeosdevicesUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | The unique ID of the device. The @deviceId@s are returned in the response from the </admin-sdk/v1/reference/chromeosdevices/list chromeosdevices.list> method.+    deviceId :: Core.Text,+    -- | Multipart request metadata.+    payload :: ChromeOsDevice,+    -- | Determines whether the response contains the full list of properties or only a subset.+    projection :: (Core.Maybe ChromeosdevicesUpdateProjection),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryChromeosdevicesUpdate' with the minimum fields required to make a request.+newDirectoryChromeosdevicesUpdate ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  -- |  The unique ID of the device. The @deviceId@s are returned in the response from the </admin-sdk/v1/reference/chromeosdevices/list chromeosdevices.list> method. See 'deviceId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ChromeOsDevice ->+  DirectoryChromeosdevicesUpdate+newDirectoryChromeosdevicesUpdate customerId deviceId payload =+  DirectoryChromeosdevicesUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      deviceId = deviceId,+      payload = payload,+      projection = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryChromeosdevicesUpdate where+  type Rs DirectoryChromeosdevicesUpdate = ChromeOsDevice+  type+    Scopes DirectoryChromeosdevicesUpdate =+      '[Admin'Directory'Device'Chromeos]+  requestClient DirectoryChromeosdevicesUpdate {..} =+    go+      customerId+      deviceId+      xgafv+      accessToken+      callback+      projection+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryChromeosdevicesUpdateResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Customers/Get.hs view
@@ -0,0 +1,112 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Customers.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 customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.customers.get@.+module Gogol.Admin.Directory.Customers.Get+  ( -- * Resource+    DirectoryCustomersGetResource,++    -- ** Constructing a Request+    DirectoryCustomersGet (..),+    newDirectoryCustomersGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.customers.get@ method which the+-- 'DirectoryCustomersGet' request conforms to.+type DirectoryCustomersGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customers"+    Core.:> Core.Capture "customerKey" 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] Customer++-- | Retrieves a customer.+--+-- /See:/ 'newDirectoryCustomersGet' smart constructor.+data DirectoryCustomersGet = DirectoryCustomersGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Id of the customer to be retrieved+    customerKey :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryCustomersGet' with the minimum fields required to make a request.+newDirectoryCustomersGet ::+  -- |  Id of the customer to be retrieved See 'customerKey'.+  Core.Text ->+  DirectoryCustomersGet+newDirectoryCustomersGet customerKey =+  DirectoryCustomersGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerKey = customerKey,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryCustomersGet where+  type Rs DirectoryCustomersGet = Customer+  type+    Scopes DirectoryCustomersGet =+      '[Admin'Directory'Customer, Admin'Directory'Customer'Readonly]+  requestClient DirectoryCustomersGet {..} =+    go+      customerKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryCustomersGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Customers/Patch.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.Admin.Directory.Customers.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)+--+-- Patches a customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.customers.patch@.+module Gogol.Admin.Directory.Customers.Patch+  ( -- * Resource+    DirectoryCustomersPatchResource,++    -- ** Constructing a Request+    DirectoryCustomersPatch (..),+    newDirectoryCustomersPatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.customers.patch@ method which the+-- 'DirectoryCustomersPatch' request conforms to.+type DirectoryCustomersPatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customers"+    Core.:> Core.Capture "customerKey" 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] Customer+    Core.:> Core.Patch '[Core.JSON] Customer++-- | Patches a customer.+--+-- /See:/ 'newDirectoryCustomersPatch' smart constructor.+data DirectoryCustomersPatch = DirectoryCustomersPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Id of the customer to be updated+    customerKey :: Core.Text,+    -- | Multipart request metadata.+    payload :: Customer,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryCustomersPatch' with the minimum fields required to make a request.+newDirectoryCustomersPatch ::+  -- |  Id of the customer to be updated See 'customerKey'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Customer ->+  DirectoryCustomersPatch+newDirectoryCustomersPatch customerKey payload =+  DirectoryCustomersPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerKey = customerKey,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryCustomersPatch where+  type Rs DirectoryCustomersPatch = Customer+  type Scopes DirectoryCustomersPatch = '[Admin'Directory'Customer]+  requestClient DirectoryCustomersPatch {..} =+    go+      customerKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryCustomersPatchResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Customers/Update.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.Admin.Directory.Customers.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 customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.customers.update@.+module Gogol.Admin.Directory.Customers.Update+  ( -- * Resource+    DirectoryCustomersUpdateResource,++    -- ** Constructing a Request+    DirectoryCustomersUpdate (..),+    newDirectoryCustomersUpdate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.customers.update@ method which the+-- 'DirectoryCustomersUpdate' request conforms to.+type DirectoryCustomersUpdateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customers"+    Core.:> Core.Capture "customerKey" 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] Customer+    Core.:> Core.Put '[Core.JSON] Customer++-- | Updates a customer.+--+-- /See:/ 'newDirectoryCustomersUpdate' smart constructor.+data DirectoryCustomersUpdate = DirectoryCustomersUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Id of the customer to be updated+    customerKey :: Core.Text,+    -- | Multipart request metadata.+    payload :: Customer,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryCustomersUpdate' with the minimum fields required to make a request.+newDirectoryCustomersUpdate ::+  -- |  Id of the customer to be updated See 'customerKey'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Customer ->+  DirectoryCustomersUpdate+newDirectoryCustomersUpdate customerKey payload =+  DirectoryCustomersUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerKey = customerKey,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryCustomersUpdate where+  type Rs DirectoryCustomersUpdate = Customer+  type Scopes DirectoryCustomersUpdate = '[Admin'Directory'Customer]+  requestClient DirectoryCustomersUpdate {..} =+    go+      customerKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryCustomersUpdateResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/DomainAliases/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.Admin.Directory.DomainAliases.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 domain Alias of the customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.domainAliases.delete@.+module Gogol.Admin.Directory.DomainAliases.Delete+  ( -- * Resource+    DirectoryDomainAliasesDeleteResource,++    -- ** Constructing a Request+    DirectoryDomainAliasesDelete (..),+    newDirectoryDomainAliasesDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.domainAliases.delete@ method which the+-- 'DirectoryDomainAliasesDelete' request conforms to.+type DirectoryDomainAliasesDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "domainaliases"+    Core.:> Core.Capture "domainAliasName" 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 domain Alias of the customer.+--+-- /See:/ 'newDirectoryDomainAliasesDelete' smart constructor.+data DirectoryDomainAliasesDelete = DirectoryDomainAliasesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account.+    customer :: Core.Text,+    -- | Name of domain alias to be retrieved.+    domainAliasName :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryDomainAliasesDelete' with the minimum fields required to make a request.+newDirectoryDomainAliasesDelete ::+  -- |  Immutable ID of the Google Workspace account. See 'customer'.+  Core.Text ->+  -- |  Name of domain alias to be retrieved. See 'domainAliasName'.+  Core.Text ->+  DirectoryDomainAliasesDelete+newDirectoryDomainAliasesDelete customer domainAliasName =+  DirectoryDomainAliasesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      domainAliasName = domainAliasName,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryDomainAliasesDelete where+  type Rs DirectoryDomainAliasesDelete = ()+  type+    Scopes DirectoryDomainAliasesDelete =+      '[Admin'Directory'Domain]+  requestClient DirectoryDomainAliasesDelete {..} =+    go+      customer+      domainAliasName+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryDomainAliasesDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/DomainAliases/Get.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.DomainAliases.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 domain alias of the customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.domainAliases.get@.+module Gogol.Admin.Directory.DomainAliases.Get+  ( -- * Resource+    DirectoryDomainAliasesGetResource,++    -- ** Constructing a Request+    DirectoryDomainAliasesGet (..),+    newDirectoryDomainAliasesGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.domainAliases.get@ method which the+-- 'DirectoryDomainAliasesGet' request conforms to.+type DirectoryDomainAliasesGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "domainaliases"+    Core.:> Core.Capture "domainAliasName" 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] DomainAlias++-- | Retrieves a domain alias of the customer.+--+-- /See:/ 'newDirectoryDomainAliasesGet' smart constructor.+data DirectoryDomainAliasesGet = DirectoryDomainAliasesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter.+    customer :: Core.Text,+    -- | Name of domain alias to be retrieved.+    domainAliasName :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryDomainAliasesGet' with the minimum fields required to make a request.+newDirectoryDomainAliasesGet ::+  -- |  The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter. See 'customer'.+  Core.Text ->+  -- |  Name of domain alias to be retrieved. See 'domainAliasName'.+  Core.Text ->+  DirectoryDomainAliasesGet+newDirectoryDomainAliasesGet customer domainAliasName =+  DirectoryDomainAliasesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      domainAliasName = domainAliasName,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryDomainAliasesGet where+  type Rs DirectoryDomainAliasesGet = DomainAlias+  type+    Scopes DirectoryDomainAliasesGet =+      '[Admin'Directory'Domain, Admin'Directory'Domain'Readonly]+  requestClient DirectoryDomainAliasesGet {..} =+    go+      customer+      domainAliasName+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryDomainAliasesGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/DomainAliases/Insert.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.DomainAliases.Insert+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Inserts a domain alias of the customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.domainAliases.insert@.+module Gogol.Admin.Directory.DomainAliases.Insert+  ( -- * Resource+    DirectoryDomainAliasesInsertResource,++    -- ** Constructing a Request+    DirectoryDomainAliasesInsert (..),+    newDirectoryDomainAliasesInsert,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.domainAliases.insert@ method which the+-- 'DirectoryDomainAliasesInsert' request conforms to.+type DirectoryDomainAliasesInsertResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "domainaliases"+    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] DomainAlias+    Core.:> Core.Post '[Core.JSON] DomainAlias++-- | Inserts a domain alias of the customer.+--+-- /See:/ 'newDirectoryDomainAliasesInsert' smart constructor.+data DirectoryDomainAliasesInsert = DirectoryDomainAliasesInsert+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account.+    customer :: Core.Text,+    -- | Multipart request metadata.+    payload :: DomainAlias,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryDomainAliasesInsert' with the minimum fields required to make a request.+newDirectoryDomainAliasesInsert ::+  -- |  Immutable ID of the Google Workspace account. See 'customer'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  DomainAlias ->+  DirectoryDomainAliasesInsert+newDirectoryDomainAliasesInsert customer payload =+  DirectoryDomainAliasesInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryDomainAliasesInsert where+  type Rs DirectoryDomainAliasesInsert = DomainAlias+  type+    Scopes DirectoryDomainAliasesInsert =+      '[Admin'Directory'Domain]+  requestClient DirectoryDomainAliasesInsert {..} =+    go+      customer+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryDomainAliasesInsertResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/DomainAliases/List.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.Admin.Directory.DomainAliases.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 domain aliases of the customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.domainAliases.list@.+module Gogol.Admin.Directory.DomainAliases.List+  ( -- * Resource+    DirectoryDomainAliasesListResource,++    -- ** Constructing a Request+    DirectoryDomainAliasesList (..),+    newDirectoryDomainAliasesList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.domainAliases.list@ method which the+-- 'DirectoryDomainAliasesList' request conforms to.+type DirectoryDomainAliasesListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "domainaliases"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "parentDomainName" 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] DomainAliases++-- | Lists the domain aliases of the customer.+--+-- /See:/ 'newDirectoryDomainAliasesList' smart constructor.+data DirectoryDomainAliasesList = DirectoryDomainAliasesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter.+    customer :: Core.Text,+    -- | Name of the parent domain for which domain aliases are to be fetched.+    parentDomainName :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryDomainAliasesList' with the minimum fields required to make a request.+newDirectoryDomainAliasesList ::+  -- |  The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter. See 'customer'.+  Core.Text ->+  DirectoryDomainAliasesList+newDirectoryDomainAliasesList customer =+  DirectoryDomainAliasesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      parentDomainName = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryDomainAliasesList where+  type Rs DirectoryDomainAliasesList = DomainAliases+  type+    Scopes DirectoryDomainAliasesList =+      '[Admin'Directory'Domain, Admin'Directory'Domain'Readonly]+  requestClient DirectoryDomainAliasesList {..} =+    go+      customer+      xgafv+      accessToken+      callback+      parentDomainName+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryDomainAliasesListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Domains/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.Admin.Directory.Domains.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 domain of the customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.domains.delete@.+module Gogol.Admin.Directory.Domains.Delete+  ( -- * Resource+    DirectoryDomainsDeleteResource,++    -- ** Constructing a Request+    DirectoryDomainsDelete (..),+    newDirectoryDomainsDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.domains.delete@ method which the+-- 'DirectoryDomainsDelete' request conforms to.+type DirectoryDomainsDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "domains"+    Core.:> Core.Capture "domainName" 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 domain of the customer.+--+-- /See:/ 'newDirectoryDomainsDelete' smart constructor.+data DirectoryDomainsDelete = DirectoryDomainsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account.+    customer :: Core.Text,+    -- | Name of domain to be deleted+    domainName :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryDomainsDelete' with the minimum fields required to make a request.+newDirectoryDomainsDelete ::+  -- |  Immutable ID of the Google Workspace account. See 'customer'.+  Core.Text ->+  -- |  Name of domain to be deleted See 'domainName'.+  Core.Text ->+  DirectoryDomainsDelete+newDirectoryDomainsDelete customer domainName =+  DirectoryDomainsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      domainName = domainName,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryDomainsDelete where+  type Rs DirectoryDomainsDelete = ()+  type Scopes DirectoryDomainsDelete = '[Admin'Directory'Domain]+  requestClient DirectoryDomainsDelete {..} =+    go+      customer+      domainName+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryDomainsDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Domains/Get.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Domains.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 domain of the customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.domains.get@.+module Gogol.Admin.Directory.Domains.Get+  ( -- * Resource+    DirectoryDomainsGetResource,++    -- ** Constructing a Request+    DirectoryDomainsGet (..),+    newDirectoryDomainsGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.domains.get@ method which the+-- 'DirectoryDomainsGet' request conforms to.+type DirectoryDomainsGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "domains"+    Core.:> Core.Capture "domainName" 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] Domains++-- | Retrieves a domain of the customer.+--+-- /See:/ 'newDirectoryDomainsGet' smart constructor.+data DirectoryDomainsGet = DirectoryDomainsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter.+    customer :: Core.Text,+    -- | Name of domain to be retrieved+    domainName :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryDomainsGet' with the minimum fields required to make a request.+newDirectoryDomainsGet ::+  -- |  The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter. See 'customer'.+  Core.Text ->+  -- |  Name of domain to be retrieved See 'domainName'.+  Core.Text ->+  DirectoryDomainsGet+newDirectoryDomainsGet customer domainName =+  DirectoryDomainsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      domainName = domainName,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryDomainsGet where+  type Rs DirectoryDomainsGet = Domains+  type+    Scopes DirectoryDomainsGet =+      '[Admin'Directory'Domain, Admin'Directory'Domain'Readonly]+  requestClient DirectoryDomainsGet {..} =+    go+      customer+      domainName+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryDomainsGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Domains/Insert.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.Admin.Directory.Domains.Insert+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Inserts a domain of the customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.domains.insert@.+module Gogol.Admin.Directory.Domains.Insert+  ( -- * Resource+    DirectoryDomainsInsertResource,++    -- ** Constructing a Request+    DirectoryDomainsInsert (..),+    newDirectoryDomainsInsert,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.domains.insert@ method which the+-- 'DirectoryDomainsInsert' request conforms to.+type DirectoryDomainsInsertResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "domains"+    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] Domains+    Core.:> Core.Post '[Core.JSON] Domains++-- | Inserts a domain of the customer.+--+-- /See:/ 'newDirectoryDomainsInsert' smart constructor.+data DirectoryDomainsInsert = DirectoryDomainsInsert+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account.+    customer :: Core.Text,+    -- | Multipart request metadata.+    payload :: Domains,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryDomainsInsert' with the minimum fields required to make a request.+newDirectoryDomainsInsert ::+  -- |  Immutable ID of the Google Workspace account. See 'customer'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Domains ->+  DirectoryDomainsInsert+newDirectoryDomainsInsert customer payload =+  DirectoryDomainsInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryDomainsInsert where+  type Rs DirectoryDomainsInsert = Domains+  type Scopes DirectoryDomainsInsert = '[Admin'Directory'Domain]+  requestClient DirectoryDomainsInsert {..} =+    go+      customer+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryDomainsInsertResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Domains/List.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Domains.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 domains of the customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.domains.list@.+module Gogol.Admin.Directory.Domains.List+  ( -- * Resource+    DirectoryDomainsListResource,++    -- ** Constructing a Request+    DirectoryDomainsList (..),+    newDirectoryDomainsList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.domains.list@ method which the+-- 'DirectoryDomainsList' request conforms to.+type DirectoryDomainsListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "domains"+    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] Domains2++-- | Lists the domains of the customer.+--+-- /See:/ 'newDirectoryDomainsList' smart constructor.+data DirectoryDomainsList = DirectoryDomainsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter.+    customer :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryDomainsList' with the minimum fields required to make a request.+newDirectoryDomainsList ::+  -- |  The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter. See 'customer'.+  Core.Text ->+  DirectoryDomainsList+newDirectoryDomainsList customer =+  DirectoryDomainsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryDomainsList where+  type Rs DirectoryDomainsList = Domains2+  type+    Scopes DirectoryDomainsList =+      '[Admin'Directory'Domain, Admin'Directory'Domain'Readonly]+  requestClient DirectoryDomainsList {..} =+    go+      customer+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryDomainsListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Groups/Aliases/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.Admin.Directory.Groups.Aliases.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 an alias.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.groups.aliases.delete@.+module Gogol.Admin.Directory.Groups.Aliases.Delete+  ( -- * Resource+    DirectoryGroupsAliasesDeleteResource,++    -- ** Constructing a Request+    DirectoryGroupsAliasesDelete (..),+    newDirectoryGroupsAliasesDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.groups.aliases.delete@ method which the+-- 'DirectoryGroupsAliasesDelete' request conforms to.+type DirectoryGroupsAliasesDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.Capture "groupKey" Core.Text+    Core.:> "aliases"+    Core.:> Core.Capture "alias" 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 an alias.+--+-- /See:/ 'newDirectoryGroupsAliasesDelete' smart constructor.+data DirectoryGroupsAliasesDelete = DirectoryGroupsAliasesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The alias to be removed+    alias :: Core.Text,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID.+    groupKey :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryGroupsAliasesDelete' with the minimum fields required to make a request.+newDirectoryGroupsAliasesDelete ::+  -- |  The alias to be removed See 'alias'.+  Core.Text ->+  -- |  Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID. See 'groupKey'.+  Core.Text ->+  DirectoryGroupsAliasesDelete+newDirectoryGroupsAliasesDelete alias groupKey =+  DirectoryGroupsAliasesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      alias = alias,+      callback = Core.Nothing,+      groupKey = groupKey,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryGroupsAliasesDelete where+  type Rs DirectoryGroupsAliasesDelete = ()+  type Scopes DirectoryGroupsAliasesDelete = '[Admin'Directory'Group]+  requestClient DirectoryGroupsAliasesDelete {..} =+    go+      groupKey+      alias+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryGroupsAliasesDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Groups/Aliases/Insert.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.Admin.Directory.Groups.Aliases.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)+--+-- Adds an alias for the group.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.groups.aliases.insert@.+module Gogol.Admin.Directory.Groups.Aliases.Insert+  ( -- * Resource+    DirectoryGroupsAliasesInsertResource,++    -- ** Constructing a Request+    DirectoryGroupsAliasesInsert (..),+    newDirectoryGroupsAliasesInsert,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.groups.aliases.insert@ method which the+-- 'DirectoryGroupsAliasesInsert' request conforms to.+type DirectoryGroupsAliasesInsertResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.Capture "groupKey" Core.Text+    Core.:> "aliases"+    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] Alias+    Core.:> Core.Post '[Core.JSON] Alias++-- | Adds an alias for the group.+--+-- /See:/ 'newDirectoryGroupsAliasesInsert' smart constructor.+data DirectoryGroupsAliasesInsert = DirectoryGroupsAliasesInsert+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID.+    groupKey :: Core.Text,+    -- | Multipart request metadata.+    payload :: Alias,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryGroupsAliasesInsert' with the minimum fields required to make a request.+newDirectoryGroupsAliasesInsert ::+  -- |  Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID. See 'groupKey'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Alias ->+  DirectoryGroupsAliasesInsert+newDirectoryGroupsAliasesInsert groupKey payload =+  DirectoryGroupsAliasesInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      groupKey = groupKey,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryGroupsAliasesInsert where+  type Rs DirectoryGroupsAliasesInsert = Alias+  type Scopes DirectoryGroupsAliasesInsert = '[Admin'Directory'Group]+  requestClient DirectoryGroupsAliasesInsert {..} =+    go+      groupKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryGroupsAliasesInsertResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Groups/Aliases/List.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Groups.Aliases.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 aliases for a group.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.groups.aliases.list@.+module Gogol.Admin.Directory.Groups.Aliases.List+  ( -- * Resource+    DirectoryGroupsAliasesListResource,++    -- ** Constructing a Request+    DirectoryGroupsAliasesList (..),+    newDirectoryGroupsAliasesList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.groups.aliases.list@ method which the+-- 'DirectoryGroupsAliasesList' request conforms to.+type DirectoryGroupsAliasesListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.Capture "groupKey" Core.Text+    Core.:> "aliases"+    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] Aliases++-- | Lists all aliases for a group.+--+-- /See:/ 'newDirectoryGroupsAliasesList' smart constructor.+data DirectoryGroupsAliasesList = DirectoryGroupsAliasesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID.+    groupKey :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryGroupsAliasesList' with the minimum fields required to make a request.+newDirectoryGroupsAliasesList ::+  -- |  Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID. See 'groupKey'.+  Core.Text ->+  DirectoryGroupsAliasesList+newDirectoryGroupsAliasesList groupKey =+  DirectoryGroupsAliasesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      groupKey = groupKey,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryGroupsAliasesList where+  type Rs DirectoryGroupsAliasesList = Aliases+  type+    Scopes DirectoryGroupsAliasesList =+      '[Admin'Directory'Group, Admin'Directory'Group'Readonly]+  requestClient DirectoryGroupsAliasesList {..} =+    go+      groupKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryGroupsAliasesListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Groups/Delete.hs view
@@ -0,0 +1,110 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Groups.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 group.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.groups.delete@.+module Gogol.Admin.Directory.Groups.Delete+  ( -- * Resource+    DirectoryGroupsDeleteResource,++    -- ** Constructing a Request+    DirectoryGroupsDelete (..),+    newDirectoryGroupsDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.groups.delete@ method which the+-- 'DirectoryGroupsDelete' request conforms to.+type DirectoryGroupsDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.Capture "groupKey" 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 group.+--+-- /See:/ 'newDirectoryGroupsDelete' smart constructor.+data DirectoryGroupsDelete = DirectoryGroupsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID.+    groupKey :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryGroupsDelete' with the minimum fields required to make a request.+newDirectoryGroupsDelete ::+  -- |  Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID. See 'groupKey'.+  Core.Text ->+  DirectoryGroupsDelete+newDirectoryGroupsDelete groupKey =+  DirectoryGroupsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      groupKey = groupKey,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryGroupsDelete where+  type Rs DirectoryGroupsDelete = ()+  type Scopes DirectoryGroupsDelete = '[Admin'Directory'Group]+  requestClient DirectoryGroupsDelete {..} =+    go+      groupKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryGroupsDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Groups/Get.hs view
@@ -0,0 +1,112 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Groups.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 group\'s properties.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.groups.get@.+module Gogol.Admin.Directory.Groups.Get+  ( -- * Resource+    DirectoryGroupsGetResource,++    -- ** Constructing a Request+    DirectoryGroupsGet (..),+    newDirectoryGroupsGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.groups.get@ method which the+-- 'DirectoryGroupsGet' request conforms to.+type DirectoryGroupsGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.Capture "groupKey" 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] Group++-- | Retrieves a group\'s properties.+--+-- /See:/ 'newDirectoryGroupsGet' smart constructor.+data DirectoryGroupsGet = DirectoryGroupsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID.+    groupKey :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryGroupsGet' with the minimum fields required to make a request.+newDirectoryGroupsGet ::+  -- |  Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID. See 'groupKey'.+  Core.Text ->+  DirectoryGroupsGet+newDirectoryGroupsGet groupKey =+  DirectoryGroupsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      groupKey = groupKey,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryGroupsGet where+  type Rs DirectoryGroupsGet = Group+  type+    Scopes DirectoryGroupsGet =+      '[Admin'Directory'Group, Admin'Directory'Group'Readonly]+  requestClient DirectoryGroupsGet {..} =+    go+      groupKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryGroupsGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Groups/Insert.hs view
@@ -0,0 +1,110 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Groups.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)+--+-- Creates a group.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.groups.insert@.+module Gogol.Admin.Directory.Groups.Insert+  ( -- * Resource+    DirectoryGroupsInsertResource,++    -- ** Constructing a Request+    DirectoryGroupsInsert (..),+    newDirectoryGroupsInsert,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.groups.insert@ method which the+-- 'DirectoryGroupsInsert' request conforms to.+type DirectoryGroupsInsertResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    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] Group+    Core.:> Core.Post '[Core.JSON] Group++-- | Creates a group.+--+-- /See:/ 'newDirectoryGroupsInsert' smart constructor.+data DirectoryGroupsInsert = DirectoryGroupsInsert+  { -- | 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 :: Group,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryGroupsInsert' with the minimum fields required to make a request.+newDirectoryGroupsInsert ::+  -- |  Multipart request metadata. See 'payload'.+  Group ->+  DirectoryGroupsInsert+newDirectoryGroupsInsert payload =+  DirectoryGroupsInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryGroupsInsert where+  type Rs DirectoryGroupsInsert = Group+  type Scopes DirectoryGroupsInsert = '[Admin'Directory'Group]+  requestClient DirectoryGroupsInsert {..} =+    go+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryGroupsInsertResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Groups/List.hs view
@@ -0,0 +1,145 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Groups.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)+--+-- Retrieves all groups of a domain or of a user given a userKey (paginated).+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.groups.list@.+module Gogol.Admin.Directory.Groups.List+  ( -- * Resource+    DirectoryGroupsListResource,++    -- ** Constructing a Request+    DirectoryGroupsList (..),+    newDirectoryGroupsList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.groups.list@ method which the+-- 'DirectoryGroupsList' request conforms to.+type DirectoryGroupsListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "customer" Core.Text+    Core.:> Core.QueryParam "domain" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Int32+    Core.:> Core.QueryParam "orderBy" GroupsListOrderBy+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "query" Core.Text+    Core.:> Core.QueryParam "sortOrder" GroupsListSortOrder+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "userKey" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Groups++-- | Retrieves all groups of a domain or of a user given a userKey (paginated).+--+-- /See:/ 'newDirectoryGroupsList' smart constructor.+data DirectoryGroupsList = DirectoryGroupsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter.+    customer :: (Core.Maybe Core.Text),+    -- | The domain name. Use this field to get groups from only one domain. To return all domains for a customer account, use the @customer@ query parameter instead.+    domain :: (Core.Maybe Core.Text),+    -- | Maximum number of results to return. Max allowed value is 200.+    maxResults :: Core.Int32,+    -- | Column to use for sorting results+    orderBy :: (Core.Maybe GroupsListOrderBy),+    -- | Token to specify next page in the list+    pageToken :: (Core.Maybe Core.Text),+    -- | Query string search. Should be of the form \"\". Complete documentation is at https: \/\/developers.google.com\/admin-sdk\/directory\/v1\/guides\/search-groups+    query :: (Core.Maybe Core.Text),+    -- | Whether to return results in ascending or descending order. Only of use when orderBy is also used+    sortOrder :: (Core.Maybe GroupsListSortOrder),+    -- | 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),+    -- | Email or immutable ID of the user if only those groups are to be listed, the given user is a member of. If it\'s an ID, it should match with the ID of the user object. Cannot be used with the @customer@ parameter.+    userKey :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryGroupsList' with the minimum fields required to make a request.+newDirectoryGroupsList ::+  DirectoryGroupsList+newDirectoryGroupsList =+  DirectoryGroupsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = Core.Nothing,+      domain = Core.Nothing,+      maxResults = 200,+      orderBy = Core.Nothing,+      pageToken = Core.Nothing,+      query = Core.Nothing,+      sortOrder = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = Core.Nothing+    }++instance Core.GoogleRequest DirectoryGroupsList where+  type Rs DirectoryGroupsList = Groups+  type+    Scopes DirectoryGroupsList =+      '[Admin'Directory'Group, Admin'Directory'Group'Readonly]+  requestClient DirectoryGroupsList {..} =+    go+      xgafv+      accessToken+      callback+      customer+      domain+      (Core.Just maxResults)+      orderBy+      pageToken+      query+      sortOrder+      uploadType+      uploadProtocol+      userKey+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryGroupsListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Groups/Patch.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.Admin.Directory.Groups.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a group\'s properties. This method supports </admin-sdk/directory/v1/guides/performance#patch patch semantics>.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.groups.patch@.+module Gogol.Admin.Directory.Groups.Patch+  ( -- * Resource+    DirectoryGroupsPatchResource,++    -- ** Constructing a Request+    DirectoryGroupsPatch (..),+    newDirectoryGroupsPatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.groups.patch@ method which the+-- 'DirectoryGroupsPatch' request conforms to.+type DirectoryGroupsPatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.Capture "groupKey" 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] Group+    Core.:> Core.Patch '[Core.JSON] Group++-- | Updates a group\'s properties. This method supports </admin-sdk/directory/v1/guides/performance#patch patch semantics>.+--+-- /See:/ 'newDirectoryGroupsPatch' smart constructor.+data DirectoryGroupsPatch = DirectoryGroupsPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID.+    groupKey :: Core.Text,+    -- | Multipart request metadata.+    payload :: Group,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryGroupsPatch' with the minimum fields required to make a request.+newDirectoryGroupsPatch ::+  -- |  Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID. See 'groupKey'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Group ->+  DirectoryGroupsPatch+newDirectoryGroupsPatch groupKey payload =+  DirectoryGroupsPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      groupKey = groupKey,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryGroupsPatch where+  type Rs DirectoryGroupsPatch = Group+  type Scopes DirectoryGroupsPatch = '[Admin'Directory'Group]+  requestClient DirectoryGroupsPatch {..} =+    go+      groupKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryGroupsPatchResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Groups/Update.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.Admin.Directory.Groups.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 group\'s properties.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.groups.update@.+module Gogol.Admin.Directory.Groups.Update+  ( -- * Resource+    DirectoryGroupsUpdateResource,++    -- ** Constructing a Request+    DirectoryGroupsUpdate (..),+    newDirectoryGroupsUpdate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.groups.update@ method which the+-- 'DirectoryGroupsUpdate' request conforms to.+type DirectoryGroupsUpdateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.Capture "groupKey" 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] Group+    Core.:> Core.Put '[Core.JSON] Group++-- | Updates a group\'s properties.+--+-- /See:/ 'newDirectoryGroupsUpdate' smart constructor.+data DirectoryGroupsUpdate = DirectoryGroupsUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID.+    groupKey :: Core.Text,+    -- | Multipart request metadata.+    payload :: Group,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryGroupsUpdate' with the minimum fields required to make a request.+newDirectoryGroupsUpdate ::+  -- |  Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID. See 'groupKey'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Group ->+  DirectoryGroupsUpdate+newDirectoryGroupsUpdate groupKey payload =+  DirectoryGroupsUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      groupKey = groupKey,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryGroupsUpdate where+  type Rs DirectoryGroupsUpdate = Group+  type Scopes DirectoryGroupsUpdate = '[Admin'Directory'Group]+  requestClient DirectoryGroupsUpdate {..} =+    go+      groupKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryGroupsUpdateResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Internal/Product.hs view
@@ -0,0 +1,7244 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Internal.Product+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Gogol.Admin.Directory.Internal.Product+  ( -- * Alias+    Alias (..),+    newAlias,++    -- * Aliases+    Aliases (..),+    newAliases,++    -- * Asp+    Asp (..),+    newAsp,++    -- * Asps+    Asps (..),+    newAsps,++    -- * AuxiliaryMessage+    AuxiliaryMessage (..),+    newAuxiliaryMessage,++    -- * BacklightInfo+    BacklightInfo (..),+    newBacklightInfo,++    -- * BatchChangeChromeOsDeviceStatusRequest+    BatchChangeChromeOsDeviceStatusRequest (..),+    newBatchChangeChromeOsDeviceStatusRequest,++    -- * BatchChangeChromeOsDeviceStatusResponse+    BatchChangeChromeOsDeviceStatusResponse (..),+    newBatchChangeChromeOsDeviceStatusResponse,++    -- * BatchCreatePrintServersRequest+    BatchCreatePrintServersRequest (..),+    newBatchCreatePrintServersRequest,++    -- * BatchCreatePrintServersResponse+    BatchCreatePrintServersResponse (..),+    newBatchCreatePrintServersResponse,++    -- * BatchCreatePrintersRequest+    BatchCreatePrintersRequest (..),+    newBatchCreatePrintersRequest,++    -- * BatchCreatePrintersResponse+    BatchCreatePrintersResponse (..),+    newBatchCreatePrintersResponse,++    -- * BatchDeletePrintServersRequest+    BatchDeletePrintServersRequest (..),+    newBatchDeletePrintServersRequest,++    -- * BatchDeletePrintServersResponse+    BatchDeletePrintServersResponse (..),+    newBatchDeletePrintServersResponse,++    -- * BatchDeletePrintersRequest+    BatchDeletePrintersRequest (..),+    newBatchDeletePrintersRequest,++    -- * BatchDeletePrintersResponse+    BatchDeletePrintersResponse (..),+    newBatchDeletePrintersResponse,++    -- * Building+    Building (..),+    newBuilding,++    -- * BuildingAddress+    BuildingAddress (..),+    newBuildingAddress,++    -- * BuildingCoordinates+    BuildingCoordinates (..),+    newBuildingCoordinates,++    -- * Buildings+    Buildings (..),+    newBuildings,++    -- * ByteUsage+    ByteUsage (..),+    newByteUsage,++    -- * CalendarResource+    CalendarResource (..),+    newCalendarResource,++    -- * CalendarResources+    CalendarResources (..),+    newCalendarResources,++    -- * ChangeChromeOsDeviceStatusResult+    ChangeChromeOsDeviceStatusResult (..),+    newChangeChromeOsDeviceStatusResult,++    -- * ChangeChromeOsDeviceStatusSucceeded+    ChangeChromeOsDeviceStatusSucceeded (..),+    newChangeChromeOsDeviceStatusSucceeded,++    -- * Channel+    Channel (..),+    newChannel,++    -- * Channel_Params+    Channel_Params (..),+    newChannel_Params,++    -- * ChromeOsDevice+    ChromeOsDevice (..),+    newChromeOsDevice,++    -- * ChromeOsDevice_ActiveTimeRangesItem+    ChromeOsDevice_ActiveTimeRangesItem (..),+    newChromeOsDevice_ActiveTimeRangesItem,++    -- * ChromeOsDevice_CpuInfoItem+    ChromeOsDevice_CpuInfoItem (..),+    newChromeOsDevice_CpuInfoItem,++    -- * ChromeOsDevice_CpuInfoItem_LogicalCpusItem+    ChromeOsDevice_CpuInfoItem_LogicalCpusItem (..),+    newChromeOsDevice_CpuInfoItem_LogicalCpusItem,++    -- * ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem+    ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem (..),+    newChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem,++    -- * ChromeOsDevice_CpuStatusReportsItem+    ChromeOsDevice_CpuStatusReportsItem (..),+    newChromeOsDevice_CpuStatusReportsItem,++    -- * ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem+    ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem (..),+    newChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem,++    -- * ChromeOsDevice_DeviceFilesItem+    ChromeOsDevice_DeviceFilesItem (..),+    newChromeOsDevice_DeviceFilesItem,++    -- * ChromeOsDevice_DiskVolumeReportsItem+    ChromeOsDevice_DiskVolumeReportsItem (..),+    newChromeOsDevice_DiskVolumeReportsItem,++    -- * ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem+    ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem (..),+    newChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem,++    -- * ChromeOsDevice_LastKnownNetworkItem+    ChromeOsDevice_LastKnownNetworkItem (..),+    newChromeOsDevice_LastKnownNetworkItem,++    -- * ChromeOsDevice_RecentUsersItem+    ChromeOsDevice_RecentUsersItem (..),+    newChromeOsDevice_RecentUsersItem,++    -- * ChromeOsDevice_ScreenshotFilesItem+    ChromeOsDevice_ScreenshotFilesItem (..),+    newChromeOsDevice_ScreenshotFilesItem,++    -- * ChromeOsDevice_SystemRamFreeReportsItem+    ChromeOsDevice_SystemRamFreeReportsItem (..),+    newChromeOsDevice_SystemRamFreeReportsItem,++    -- * ChromeOsDevice_TpmVersionInfo+    ChromeOsDevice_TpmVersionInfo (..),+    newChromeOsDevice_TpmVersionInfo,++    -- * ChromeOsDeviceAction+    ChromeOsDeviceAction (..),+    newChromeOsDeviceAction,++    -- * ChromeOsDevices+    ChromeOsDevices (..),+    newChromeOsDevices,++    -- * ChromeOsMoveDevicesToOu+    ChromeOsMoveDevicesToOu (..),+    newChromeOsMoveDevicesToOu,++    -- * CreatePrintServerRequest+    CreatePrintServerRequest (..),+    newCreatePrintServerRequest,++    -- * CreatePrinterRequest+    CreatePrinterRequest (..),+    newCreatePrinterRequest,++    -- * Customer+    Customer (..),+    newCustomer,++    -- * CustomerPostalAddress+    CustomerPostalAddress (..),+    newCustomerPostalAddress,++    -- * DirectoryChromeosdevicesCommand+    DirectoryChromeosdevicesCommand (..),+    newDirectoryChromeosdevicesCommand,++    -- * DirectoryChromeosdevicesCommandResult+    DirectoryChromeosdevicesCommandResult (..),+    newDirectoryChromeosdevicesCommandResult,++    -- * DirectoryChromeosdevicesIssueCommandRequest+    DirectoryChromeosdevicesIssueCommandRequest (..),+    newDirectoryChromeosdevicesIssueCommandRequest,++    -- * DirectoryChromeosdevicesIssueCommandResponse+    DirectoryChromeosdevicesIssueCommandResponse (..),+    newDirectoryChromeosdevicesIssueCommandResponse,++    -- * DomainAlias+    DomainAlias (..),+    newDomainAlias,++    -- * DomainAliases+    DomainAliases (..),+    newDomainAliases,++    -- * Domains+    Domains (..),+    newDomains,++    -- * Domains2+    Domains2 (..),+    newDomains2,++    -- * Empty+    Empty (..),+    newEmpty,++    -- * FailureInfo+    FailureInfo (..),+    newFailureInfo,++    -- * FanInfo+    FanInfo (..),+    newFanInfo,++    -- * Feature+    Feature (..),+    newFeature,++    -- * FeatureInstance+    FeatureInstance (..),+    newFeatureInstance,++    -- * FeatureRename+    FeatureRename (..),+    newFeatureRename,++    -- * Features+    Features (..),+    newFeatures,++    -- * Group+    Group (..),+    newGroup,++    -- * GroupAlias+    GroupAlias (..),+    newGroupAlias,++    -- * Groups+    Groups (..),+    newGroups,++    -- * ListPrintServersResponse+    ListPrintServersResponse (..),+    newListPrintServersResponse,++    -- * ListPrinterModelsResponse+    ListPrinterModelsResponse (..),+    newListPrinterModelsResponse,++    -- * ListPrintersResponse+    ListPrintersResponse (..),+    newListPrintersResponse,++    -- * Member+    Member (..),+    newMember,++    -- * Members+    Members (..),+    newMembers,++    -- * MembersHasMember+    MembersHasMember (..),+    newMembersHasMember,++    -- * MobileDevice+    MobileDevice (..),+    newMobileDevice,++    -- * MobileDevice_ApplicationsItem+    MobileDevice_ApplicationsItem (..),+    newMobileDevice_ApplicationsItem,++    -- * MobileDeviceAction+    MobileDeviceAction (..),+    newMobileDeviceAction,++    -- * MobileDevices+    MobileDevices (..),+    newMobileDevices,++    -- * OrgUnit+    OrgUnit (..),+    newOrgUnit,++    -- * OrgUnits+    OrgUnits (..),+    newOrgUnits,++    -- * OsUpdateStatus+    OsUpdateStatus (..),+    newOsUpdateStatus,++    -- * PrintServer+    PrintServer (..),+    newPrintServer,++    -- * PrintServerFailureInfo+    PrintServerFailureInfo (..),+    newPrintServerFailureInfo,++    -- * Printer+    Printer (..),+    newPrinter,++    -- * PrinterModel+    PrinterModel (..),+    newPrinterModel,++    -- * Privilege+    Privilege (..),+    newPrivilege,++    -- * Privileges+    Privileges (..),+    newPrivileges,++    -- * Role+    Role (..),+    newRole,++    -- * Role_RolePrivilegesItem+    Role_RolePrivilegesItem (..),+    newRole_RolePrivilegesItem,++    -- * RoleAssignment+    RoleAssignment (..),+    newRoleAssignment,++    -- * RoleAssignments+    RoleAssignments (..),+    newRoleAssignments,++    -- * Roles+    Roles (..),+    newRoles,++    -- * Schema+    Schema (..),+    newSchema,++    -- * SchemaFieldSpec+    SchemaFieldSpec (..),+    newSchemaFieldSpec,++    -- * SchemaFieldSpec_NumericIndexingSpec+    SchemaFieldSpec_NumericIndexingSpec (..),+    newSchemaFieldSpec_NumericIndexingSpec,++    -- * Schemas+    Schemas (..),+    newSchemas,++    -- * Status+    Status (..),+    newStatus,++    -- * Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- * Token+    Token (..),+    newToken,++    -- * Tokens+    Tokens (..),+    newTokens,++    -- * User+    User (..),+    newUser,++    -- * User_CustomSchemas+    User_CustomSchemas (..),+    newUser_CustomSchemas,++    -- * UserAbout+    UserAbout (..),+    newUserAbout,++    -- * UserAddress+    UserAddress (..),+    newUserAddress,++    -- * UserAlias+    UserAlias (..),+    newUserAlias,++    -- * UserCustomProperties+    UserCustomProperties (..),+    newUserCustomProperties,++    -- * UserEmail+    UserEmail (..),+    newUserEmail,++    -- * UserEmail_Public_key_encryption_certificates+    UserEmail_Public_key_encryption_certificates (..),+    newUserEmail_Public_key_encryption_certificates,++    -- * UserExternalId+    UserExternalId (..),+    newUserExternalId,++    -- * UserGender+    UserGender (..),+    newUserGender,++    -- * UserIm+    UserIm (..),+    newUserIm,++    -- * UserKeyword+    UserKeyword (..),+    newUserKeyword,++    -- * UserLanguage+    UserLanguage (..),+    newUserLanguage,++    -- * UserLocation+    UserLocation (..),+    newUserLocation,++    -- * UserMakeAdmin+    UserMakeAdmin (..),+    newUserMakeAdmin,++    -- * UserName+    UserName (..),+    newUserName,++    -- * UserOrganization+    UserOrganization (..),+    newUserOrganization,++    -- * UserPhone+    UserPhone (..),+    newUserPhone,++    -- * UserPhoto+    UserPhoto (..),+    newUserPhoto,++    -- * UserPosixAccount+    UserPosixAccount (..),+    newUserPosixAccount,++    -- * UserRelation+    UserRelation (..),+    newUserRelation,++    -- * UserSshPublicKey+    UserSshPublicKey (..),+    newUserSshPublicKey,++    -- * UserUndelete+    UserUndelete (..),+    newUserUndelete,++    -- * UserWebsite+    UserWebsite (..),+    newUserWebsite,++    -- * Users+    Users (..),+    newUsers,++    -- * VerificationCode+    VerificationCode (..),+    newVerificationCode,++    -- * VerificationCodes+    VerificationCodes (..),+    newVerificationCodes,+  )+where++import Gogol.Admin.Directory.Internal.Sum+import Gogol.Prelude qualified as Core++-- | JSON template for Alias object in Directory API.+--+-- /See:/ 'newAlias' smart constructor.+data Alias = Alias+  { alias :: (Core.Maybe Core.Text),+    etag :: (Core.Maybe Core.Text),+    id :: (Core.Maybe Core.Text),+    kind :: Core.Text,+    primaryEmail :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Alias' with the minimum fields required to make a request.+newAlias ::+  Alias+newAlias =+  Alias+    { alias = Core.Nothing,+      etag = Core.Nothing,+      id = Core.Nothing,+      kind = "admin#directory#alias",+      primaryEmail = Core.Nothing+    }++instance Core.FromJSON Alias where+  parseJSON =+    Core.withObject+      "Alias"+      ( \o ->+          Alias+            Core.<$> (o Core..:? "alias")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#alias")+            Core.<*> (o Core..:? "primaryEmail")+      )++instance Core.ToJSON Alias where+  toJSON Alias {..} =+    Core.object+      ( Core.catMaybes+          [ ("alias" Core..=) Core.<$> alias,+            ("etag" Core..=) Core.<$> etag,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("primaryEmail" Core..=) Core.<$> primaryEmail+          ]+      )++-- | JSON response template to list aliases in Directory API.+--+-- /See:/ 'newAliases' smart constructor.+data Aliases = Aliases+  { aliases :: (Core.Maybe [Core.Value]),+    etag :: (Core.Maybe Core.Text),+    kind :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Aliases' with the minimum fields required to make a request.+newAliases ::+  Aliases+newAliases =+  Aliases+    { aliases = Core.Nothing,+      etag = Core.Nothing,+      kind = "admin#directory#aliases"+    }++instance Core.FromJSON Aliases where+  parseJSON =+    Core.withObject+      "Aliases"+      ( \o ->+          Aliases+            Core.<$> (o Core..:? "aliases")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#aliases")+      )++instance Core.ToJSON Aliases where+  toJSON Aliases {..} =+    Core.object+      ( Core.catMaybes+          [ ("aliases" Core..=) Core.<$> aliases,+            ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind)+          ]+      )++-- | An application-specific password (ASP) is used with applications that do not accept a verification code when logging into the application on certain devices. The ASP access code is used instead of the login and password you commonly use when accessing an application through a browser. For more information about ASPs and how to create one, see the <https://support.google.com/a/answer/2537800#asp help center>.+--+-- /See:/ 'newAsp' smart constructor.+data Asp = Asp+  { -- | The unique ID of the ASP.+    codeId :: (Core.Maybe Core.Int32),+    -- | The time when the ASP was created. Expressed in <https://en.wikipedia.org/wiki/Epoch_time Unix time> format.+    creationTime :: (Core.Maybe Core.Int64),+    -- | ETag of the ASP.+    etag :: (Core.Maybe Core.Text),+    -- | The type of the API resource. This is always @admin#directory#asp@.+    kind :: Core.Text,+    -- | The time when the ASP was last used. Expressed in <https://en.wikipedia.org/wiki/Epoch_time Unix time> format.+    lastTimeUsed :: (Core.Maybe Core.Int64),+    -- | The name of the application that the user, represented by their @userId@, entered when the ASP was created.+    name :: (Core.Maybe Core.Text),+    -- | The unique ID of the user who issued the ASP.+    userKey :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Asp' with the minimum fields required to make a request.+newAsp ::+  Asp+newAsp =+  Asp+    { codeId = Core.Nothing,+      creationTime = Core.Nothing,+      etag = Core.Nothing,+      kind = "admin#directory#asp",+      lastTimeUsed = Core.Nothing,+      name = Core.Nothing,+      userKey = Core.Nothing+    }++instance Core.FromJSON Asp where+  parseJSON =+    Core.withObject+      "Asp"+      ( \o ->+          Asp+            Core.<$> (o Core..:? "codeId")+            Core.<*> (o Core..:? "creationTime" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#asp")+            Core.<*> (o Core..:? "lastTimeUsed" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "userKey")+      )++instance Core.ToJSON Asp where+  toJSON Asp {..} =+    Core.object+      ( Core.catMaybes+          [ ("codeId" Core..=) Core.<$> codeId,+            ("creationTime" Core..=) Core.. Core.AsText Core.<$> creationTime,+            ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind),+            ("lastTimeUsed" Core..=) Core.. Core.AsText Core.<$> lastTimeUsed,+            ("name" Core..=) Core.<$> name,+            ("userKey" Core..=) Core.<$> userKey+          ]+      )++--+-- /See:/ 'newAsps' smart constructor.+data Asps = Asps+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | A list of ASP resources.+    items :: (Core.Maybe [Asp]),+    -- | The type of the API resource. This is always @admin#directory#aspList@.+    kind :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Asps' with the minimum fields required to make a request.+newAsps ::+  Asps+newAsps =+  Asps+    { etag = Core.Nothing,+      items = Core.Nothing,+      kind = "admin#directory#aspList"+    }++instance Core.FromJSON Asps where+  parseJSON =+    Core.withObject+      "Asps"+      ( \o ->+          Asps+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "items")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#aspList")+      )++instance Core.ToJSON Asps where+  toJSON Asps {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("items" Core..=) Core.<$> items,+            Core.Just ("kind" Core..= kind)+          ]+      )++-- | Auxiliary message about issues with printers or settings. Example: {message/type:AUXILIARY/MESSAGE/WARNING, field/mask:make/and/model, message:\"Given printer is invalid or no longer supported.\"}+--+-- /See:/ 'newAuxiliaryMessage' smart constructor.+data AuxiliaryMessage = AuxiliaryMessage+  { -- | Human readable message in English. Example: \"Given printer is invalid or no longer supported.\"+    auxiliaryMessage :: (Core.Maybe Core.Text),+    -- | Field that this message concerns.+    fieldMask :: (Core.Maybe Core.FieldMask),+    -- | Message severity+    severity :: (Core.Maybe AuxiliaryMessage_Severity)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AuxiliaryMessage' with the minimum fields required to make a request.+newAuxiliaryMessage ::+  AuxiliaryMessage+newAuxiliaryMessage =+  AuxiliaryMessage+    { auxiliaryMessage = Core.Nothing,+      fieldMask = Core.Nothing,+      severity = Core.Nothing+    }++instance Core.FromJSON AuxiliaryMessage where+  parseJSON =+    Core.withObject+      "AuxiliaryMessage"+      ( \o ->+          AuxiliaryMessage+            Core.<$> (o Core..:? "auxiliaryMessage")+            Core.<*> (o Core..:? "fieldMask")+            Core.<*> (o Core..:? "severity")+      )++instance Core.ToJSON AuxiliaryMessage where+  toJSON AuxiliaryMessage {..} =+    Core.object+      ( Core.catMaybes+          [ ("auxiliaryMessage" Core..=) Core.<$> auxiliaryMessage,+            ("fieldMask" Core..=) Core.<$> fieldMask,+            ("severity" Core..=) Core.<$> severity+          ]+      )++-- | Information about the device\'s backlights.+--+-- /See:/ 'newBacklightInfo' smart constructor.+data BacklightInfo = BacklightInfo+  { -- | Output only. Current brightness of the backlight, between 0 and max_brightness.+    brightness :: (Core.Maybe Core.Int32),+    -- | Output only. Maximum brightness for the backlight.+    maxBrightness :: (Core.Maybe Core.Int32),+    -- | Output only. Path to this backlight on the system. Useful if the caller needs to correlate with other information.+    path :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BacklightInfo' with the minimum fields required to make a request.+newBacklightInfo ::+  BacklightInfo+newBacklightInfo =+  BacklightInfo+    { brightness = Core.Nothing,+      maxBrightness = Core.Nothing,+      path = Core.Nothing+    }++instance Core.FromJSON BacklightInfo where+  parseJSON =+    Core.withObject+      "BacklightInfo"+      ( \o ->+          BacklightInfo+            Core.<$> (o Core..:? "brightness")+            Core.<*> (o Core..:? "maxBrightness")+            Core.<*> (o Core..:? "path")+      )++instance Core.ToJSON BacklightInfo where+  toJSON BacklightInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("brightness" Core..=) Core.<$> brightness,+            ("maxBrightness" Core..=) Core.<$> maxBrightness,+            ("path" Core..=) Core.<$> path+          ]+      )++-- | A request for changing the status of a batch of ChromeOS devices.+--+-- /See:/ 'newBatchChangeChromeOsDeviceStatusRequest' smart constructor.+data BatchChangeChromeOsDeviceStatusRequest = BatchChangeChromeOsDeviceStatusRequest+  { -- | Required. The action to take on the ChromeOS device in order to change its status.+    changeChromeOsDeviceStatusAction ::+      ( Core.Maybe+          BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction+      ),+    -- | Optional. The reason behind a device deprovision. Must be provided if \'changeChromeOsDeviceStatusAction\' is set to \'CHANGE/CHROME/OS/DEVICE/STATUS/ACTION/DEPROVISION\'. Otherwise, omit this field.+    deprovisionReason ::+      ( Core.Maybe+          BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+      ),+    -- | Required. List of the IDs of the ChromeOS devices to change. Maximum 50.+    deviceIds :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BatchChangeChromeOsDeviceStatusRequest' with the minimum fields required to make a request.+newBatchChangeChromeOsDeviceStatusRequest ::+  BatchChangeChromeOsDeviceStatusRequest+newBatchChangeChromeOsDeviceStatusRequest =+  BatchChangeChromeOsDeviceStatusRequest+    { changeChromeOsDeviceStatusAction =+        Core.Nothing,+      deprovisionReason = Core.Nothing,+      deviceIds = Core.Nothing+    }++instance Core.FromJSON BatchChangeChromeOsDeviceStatusRequest where+  parseJSON =+    Core.withObject+      "BatchChangeChromeOsDeviceStatusRequest"+      ( \o ->+          BatchChangeChromeOsDeviceStatusRequest+            Core.<$> (o Core..:? "changeChromeOsDeviceStatusAction")+            Core.<*> (o Core..:? "deprovisionReason")+            Core.<*> (o Core..:? "deviceIds")+      )++instance Core.ToJSON BatchChangeChromeOsDeviceStatusRequest where+  toJSON BatchChangeChromeOsDeviceStatusRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("changeChromeOsDeviceStatusAction" Core..=)+              Core.<$> changeChromeOsDeviceStatusAction,+            ("deprovisionReason" Core..=) Core.<$> deprovisionReason,+            ("deviceIds" Core..=) Core.<$> deviceIds+          ]+      )++-- | The response of changing the status of a batch of ChromeOS devices.+--+-- /See:/ 'newBatchChangeChromeOsDeviceStatusResponse' smart constructor.+newtype BatchChangeChromeOsDeviceStatusResponse = BatchChangeChromeOsDeviceStatusResponse+  { -- | The results for each of the ChromeOS devices provided in the request.+    changeChromeOsDeviceStatusResults :: (Core.Maybe [ChangeChromeOsDeviceStatusResult])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BatchChangeChromeOsDeviceStatusResponse' with the minimum fields required to make a request.+newBatchChangeChromeOsDeviceStatusResponse ::+  BatchChangeChromeOsDeviceStatusResponse+newBatchChangeChromeOsDeviceStatusResponse =+  BatchChangeChromeOsDeviceStatusResponse+    { changeChromeOsDeviceStatusResults =+        Core.Nothing+    }++instance Core.FromJSON BatchChangeChromeOsDeviceStatusResponse where+  parseJSON =+    Core.withObject+      "BatchChangeChromeOsDeviceStatusResponse"+      ( \o ->+          BatchChangeChromeOsDeviceStatusResponse+            Core.<$> (o Core..:? "changeChromeOsDeviceStatusResults")+      )++instance Core.ToJSON BatchChangeChromeOsDeviceStatusResponse where+  toJSON BatchChangeChromeOsDeviceStatusResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("changeChromeOsDeviceStatusResults" Core..=)+              Core.<$> changeChromeOsDeviceStatusResults+          ]+      )++-- | Request to add multiple new print servers in a batch.+--+-- /See:/ 'newBatchCreatePrintServersRequest' smart constructor.+newtype BatchCreatePrintServersRequest = BatchCreatePrintServersRequest+  { -- | Required. A list of @PrintServer@ resources to be created (max @50@ per batch).+    requests :: (Core.Maybe [CreatePrintServerRequest])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BatchCreatePrintServersRequest' with the minimum fields required to make a request.+newBatchCreatePrintServersRequest ::+  BatchCreatePrintServersRequest+newBatchCreatePrintServersRequest =+  BatchCreatePrintServersRequest {requests = Core.Nothing}++instance Core.FromJSON BatchCreatePrintServersRequest where+  parseJSON =+    Core.withObject+      "BatchCreatePrintServersRequest"+      ( \o ->+          BatchCreatePrintServersRequest Core.<$> (o Core..:? "requests")+      )++instance Core.ToJSON BatchCreatePrintServersRequest where+  toJSON BatchCreatePrintServersRequest {..} =+    Core.object+      (Core.catMaybes [("requests" Core..=) Core.<$> requests])++--+-- /See:/ 'newBatchCreatePrintServersResponse' smart constructor.+data BatchCreatePrintServersResponse = BatchCreatePrintServersResponse+  { -- | A list of create failures. @PrintServer@ IDs are not populated, as print servers were not created.+    failures :: (Core.Maybe [PrintServerFailureInfo]),+    -- | A list of successfully created print servers with their IDs populated.+    printServers :: (Core.Maybe [PrintServer])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BatchCreatePrintServersResponse' with the minimum fields required to make a request.+newBatchCreatePrintServersResponse ::+  BatchCreatePrintServersResponse+newBatchCreatePrintServersResponse =+  BatchCreatePrintServersResponse+    { failures = Core.Nothing,+      printServers = Core.Nothing+    }++instance Core.FromJSON BatchCreatePrintServersResponse where+  parseJSON =+    Core.withObject+      "BatchCreatePrintServersResponse"+      ( \o ->+          BatchCreatePrintServersResponse+            Core.<$> (o Core..:? "failures")+            Core.<*> (o Core..:? "printServers")+      )++instance Core.ToJSON BatchCreatePrintServersResponse where+  toJSON BatchCreatePrintServersResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("failures" Core..=) Core.<$> failures,+            ("printServers" Core..=) Core.<$> printServers+          ]+      )++-- | Request for adding new printers in batch.+--+-- /See:/ 'newBatchCreatePrintersRequest' smart constructor.+newtype BatchCreatePrintersRequest = BatchCreatePrintersRequest+  { -- | A list of Printers to be created. Max 50 at a time.+    requests :: (Core.Maybe [CreatePrinterRequest])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BatchCreatePrintersRequest' with the minimum fields required to make a request.+newBatchCreatePrintersRequest ::+  BatchCreatePrintersRequest+newBatchCreatePrintersRequest =+  BatchCreatePrintersRequest {requests = Core.Nothing}++instance Core.FromJSON BatchCreatePrintersRequest where+  parseJSON =+    Core.withObject+      "BatchCreatePrintersRequest"+      ( \o ->+          BatchCreatePrintersRequest Core.<$> (o Core..:? "requests")+      )++instance Core.ToJSON BatchCreatePrintersRequest where+  toJSON BatchCreatePrintersRequest {..} =+    Core.object+      (Core.catMaybes [("requests" Core..=) Core.<$> requests])++-- | Response for adding new printers in batch.+--+-- /See:/ 'newBatchCreatePrintersResponse' smart constructor.+data BatchCreatePrintersResponse = BatchCreatePrintersResponse+  { -- | A list of create failures. Printer IDs are not populated, as printer were not created.+    failures :: (Core.Maybe [FailureInfo]),+    -- | A list of successfully created printers with their IDs populated.+    printers :: (Core.Maybe [Printer])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BatchCreatePrintersResponse' with the minimum fields required to make a request.+newBatchCreatePrintersResponse ::+  BatchCreatePrintersResponse+newBatchCreatePrintersResponse =+  BatchCreatePrintersResponse+    { failures = Core.Nothing,+      printers = Core.Nothing+    }++instance Core.FromJSON BatchCreatePrintersResponse where+  parseJSON =+    Core.withObject+      "BatchCreatePrintersResponse"+      ( \o ->+          BatchCreatePrintersResponse+            Core.<$> (o Core..:? "failures")+            Core.<*> (o Core..:? "printers")+      )++instance Core.ToJSON BatchCreatePrintersResponse where+  toJSON BatchCreatePrintersResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("failures" Core..=) Core.<$> failures,+            ("printers" Core..=) Core.<$> printers+          ]+      )++-- | Request to delete multiple existing print servers in a batch.+--+-- /See:/ 'newBatchDeletePrintServersRequest' smart constructor.+newtype BatchDeletePrintServersRequest = BatchDeletePrintServersRequest+  { -- | A list of print server IDs that should be deleted (max @100@ per batch).+    printServerIds :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BatchDeletePrintServersRequest' with the minimum fields required to make a request.+newBatchDeletePrintServersRequest ::+  BatchDeletePrintServersRequest+newBatchDeletePrintServersRequest =+  BatchDeletePrintServersRequest {printServerIds = Core.Nothing}++instance Core.FromJSON BatchDeletePrintServersRequest where+  parseJSON =+    Core.withObject+      "BatchDeletePrintServersRequest"+      ( \o ->+          BatchDeletePrintServersRequest+            Core.<$> (o Core..:? "printServerIds")+      )++instance Core.ToJSON BatchDeletePrintServersRequest where+  toJSON BatchDeletePrintServersRequest {..} =+    Core.object+      ( Core.catMaybes+          [("printServerIds" Core..=) Core.<$> printServerIds]+      )++--+-- /See:/ 'newBatchDeletePrintServersResponse' smart constructor.+data BatchDeletePrintServersResponse = BatchDeletePrintServersResponse+  { -- | A list of update failures.+    failedPrintServers :: (Core.Maybe [PrintServerFailureInfo]),+    -- | A list of print server IDs that were successfully deleted.+    printServerIds :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BatchDeletePrintServersResponse' with the minimum fields required to make a request.+newBatchDeletePrintServersResponse ::+  BatchDeletePrintServersResponse+newBatchDeletePrintServersResponse =+  BatchDeletePrintServersResponse+    { failedPrintServers =+        Core.Nothing,+      printServerIds = Core.Nothing+    }++instance Core.FromJSON BatchDeletePrintServersResponse where+  parseJSON =+    Core.withObject+      "BatchDeletePrintServersResponse"+      ( \o ->+          BatchDeletePrintServersResponse+            Core.<$> (o Core..:? "failedPrintServers")+            Core.<*> (o Core..:? "printServerIds")+      )++instance Core.ToJSON BatchDeletePrintServersResponse where+  toJSON BatchDeletePrintServersResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("failedPrintServers" Core..=) Core.<$> failedPrintServers,+            ("printServerIds" Core..=) Core.<$> printServerIds+          ]+      )++-- | Request for deleting existing printers in batch.+--+-- /See:/ 'newBatchDeletePrintersRequest' smart constructor.+newtype BatchDeletePrintersRequest = BatchDeletePrintersRequest+  { -- | A list of Printer.id that should be deleted. Max 100 at a time.+    printerIds :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BatchDeletePrintersRequest' with the minimum fields required to make a request.+newBatchDeletePrintersRequest ::+  BatchDeletePrintersRequest+newBatchDeletePrintersRequest =+  BatchDeletePrintersRequest {printerIds = Core.Nothing}++instance Core.FromJSON BatchDeletePrintersRequest where+  parseJSON =+    Core.withObject+      "BatchDeletePrintersRequest"+      ( \o ->+          BatchDeletePrintersRequest Core.<$> (o Core..:? "printerIds")+      )++instance Core.ToJSON BatchDeletePrintersRequest where+  toJSON BatchDeletePrintersRequest {..} =+    Core.object+      (Core.catMaybes [("printerIds" Core..=) Core.<$> printerIds])++-- | Response for deleting existing printers in batch.+--+-- /See:/ 'newBatchDeletePrintersResponse' smart constructor.+data BatchDeletePrintersResponse = BatchDeletePrintersResponse+  { -- | A list of update failures.+    failedPrinters :: (Core.Maybe [FailureInfo]),+    -- | A list of Printer.id that were successfully deleted.+    printerIds :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BatchDeletePrintersResponse' with the minimum fields required to make a request.+newBatchDeletePrintersResponse ::+  BatchDeletePrintersResponse+newBatchDeletePrintersResponse =+  BatchDeletePrintersResponse+    { failedPrinters = Core.Nothing,+      printerIds = Core.Nothing+    }++instance Core.FromJSON BatchDeletePrintersResponse where+  parseJSON =+    Core.withObject+      "BatchDeletePrintersResponse"+      ( \o ->+          BatchDeletePrintersResponse+            Core.<$> (o Core..:? "failedPrinters")+            Core.<*> (o Core..:? "printerIds")+      )++instance Core.ToJSON BatchDeletePrintersResponse where+  toJSON BatchDeletePrintersResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("failedPrinters" Core..=) Core.<$> failedPrinters,+            ("printerIds" Core..=) Core.<$> printerIds+          ]+      )++-- | Public API: Resources.buildings+--+-- /See:/ 'newBuilding' smart constructor.+data Building = Building+  { -- | The postal address of the building. See </my-business/reference/rest/v4/PostalAddress PostalAddress> for details. Note that only a single address line and region code are required.+    address :: (Core.Maybe BuildingAddress),+    -- | Unique identifier for the building. The maximum length is 100 characters.+    buildingId :: (Core.Maybe Core.Text),+    -- | The building name as seen by users in Calendar. Must be unique for the customer. For example, \"NYC-CHEL\". The maximum length is 100 characters.+    buildingName :: (Core.Maybe Core.Text),+    -- | The geographic coordinates of the center of the building, expressed as latitude and longitude in decimal degrees.+    coordinates :: (Core.Maybe BuildingCoordinates),+    -- | A brief description of the building. For example, \"Chelsea Market\".+    description :: (Core.Maybe Core.Text),+    -- | ETag of the resource.+    etags :: (Core.Maybe Core.Text),+    -- | The display names for all floors in this building. The floors are expected to be sorted in ascending order, from lowest floor to highest floor. For example, [\"B2\", \"B1\", \"L\", \"1\", \"2\", \"2M\", \"3\", \"PH\"] Must contain at least one entry.+    floorNames :: (Core.Maybe [Core.Text]),+    -- | Kind of resource this is.+    kind :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Building' with the minimum fields required to make a request.+newBuilding ::+  Building+newBuilding =+  Building+    { address = Core.Nothing,+      buildingId = Core.Nothing,+      buildingName = Core.Nothing,+      coordinates = Core.Nothing,+      description = Core.Nothing,+      etags = Core.Nothing,+      floorNames = Core.Nothing,+      kind = "admin#directory#resources#buildings#Building"+    }++instance Core.FromJSON Building where+  parseJSON =+    Core.withObject+      "Building"+      ( \o ->+          Building+            Core.<$> (o Core..:? "address")+            Core.<*> (o Core..:? "buildingId")+            Core.<*> (o Core..:? "buildingName")+            Core.<*> (o Core..:? "coordinates")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "etags")+            Core.<*> (o Core..:? "floorNames")+            Core.<*> ( o+                         Core..:? "kind"+                         Core..!= "admin#directory#resources#buildings#Building"+                     )+      )++instance Core.ToJSON Building where+  toJSON Building {..} =+    Core.object+      ( Core.catMaybes+          [ ("address" Core..=) Core.<$> address,+            ("buildingId" Core..=) Core.<$> buildingId,+            ("buildingName" Core..=) Core.<$> buildingName,+            ("coordinates" Core..=) Core.<$> coordinates,+            ("description" Core..=) Core.<$> description,+            ("etags" Core..=) Core.<$> etags,+            ("floorNames" Core..=) Core.<$> floorNames,+            Core.Just ("kind" Core..= kind)+          ]+      )++-- | Public API: Resources.buildings+--+-- /See:/ 'newBuildingAddress' smart constructor.+data BuildingAddress = BuildingAddress+  { -- | Unstructured address lines describing the lower levels of an address.+    addressLines :: (Core.Maybe [Core.Text]),+    -- | Optional. Highest administrative subdivision which is used for postal addresses of a country or region.+    administrativeArea :: (Core.Maybe Core.Text),+    -- | Optional. BCP-47 language code of the contents of this address (if known).+    languageCode :: (Core.Maybe Core.Text),+    -- | Optional. Generally refers to the city\/town portion of the address. Examples: US city, IT comune, UK post town. In regions of the world where localities are not well defined or do not fit into this structure well, leave locality empty and use addressLines.+    locality :: (Core.Maybe Core.Text),+    -- | Optional. Postal code of the address.+    postalCode :: (Core.Maybe Core.Text),+    -- | Required. CLDR region code of the country\/region of the address.+    regionCode :: (Core.Maybe Core.Text),+    -- | Optional. Sublocality of the address.+    sublocality :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BuildingAddress' with the minimum fields required to make a request.+newBuildingAddress ::+  BuildingAddress+newBuildingAddress =+  BuildingAddress+    { addressLines = Core.Nothing,+      administrativeArea = Core.Nothing,+      languageCode = Core.Nothing,+      locality = Core.Nothing,+      postalCode = Core.Nothing,+      regionCode = Core.Nothing,+      sublocality = Core.Nothing+    }++instance Core.FromJSON BuildingAddress where+  parseJSON =+    Core.withObject+      "BuildingAddress"+      ( \o ->+          BuildingAddress+            Core.<$> (o Core..:? "addressLines")+            Core.<*> (o Core..:? "administrativeArea")+            Core.<*> (o Core..:? "languageCode")+            Core.<*> (o Core..:? "locality")+            Core.<*> (o Core..:? "postalCode")+            Core.<*> (o Core..:? "regionCode")+            Core.<*> (o Core..:? "sublocality")+      )++instance Core.ToJSON BuildingAddress where+  toJSON BuildingAddress {..} =+    Core.object+      ( Core.catMaybes+          [ ("addressLines" Core..=) Core.<$> addressLines,+            ("administrativeArea" Core..=) Core.<$> administrativeArea,+            ("languageCode" Core..=) Core.<$> languageCode,+            ("locality" Core..=) Core.<$> locality,+            ("postalCode" Core..=) Core.<$> postalCode,+            ("regionCode" Core..=) Core.<$> regionCode,+            ("sublocality" Core..=) Core.<$> sublocality+          ]+      )++-- | Public API: Resources.buildings+--+-- /See:/ 'newBuildingCoordinates' smart constructor.+data BuildingCoordinates = BuildingCoordinates+  { -- | Latitude in decimal degrees.+    latitude :: (Core.Maybe Core.Double),+    -- | Longitude in decimal degrees.+    longitude :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BuildingCoordinates' with the minimum fields required to make a request.+newBuildingCoordinates ::+  BuildingCoordinates+newBuildingCoordinates =+  BuildingCoordinates+    { latitude = Core.Nothing,+      longitude = Core.Nothing+    }++instance Core.FromJSON BuildingCoordinates where+  parseJSON =+    Core.withObject+      "BuildingCoordinates"+      ( \o ->+          BuildingCoordinates+            Core.<$> (o Core..:? "latitude")+            Core.<*> (o Core..:? "longitude")+      )++instance Core.ToJSON BuildingCoordinates where+  toJSON BuildingCoordinates {..} =+    Core.object+      ( Core.catMaybes+          [ ("latitude" Core..=) Core.<$> latitude,+            ("longitude" Core..=) Core.<$> longitude+          ]+      )++-- | Public API: Resources.buildings+--+-- /See:/ 'newBuildings' smart constructor.+data Buildings = Buildings+  { -- | The Buildings in this page of results.+    buildings :: (Core.Maybe [Building]),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | Kind of resource this is.+    kind :: Core.Text,+    -- | The continuation token, used to page through large result sets. Provide this value in a subsequent request to return the next page of results.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Buildings' with the minimum fields required to make a request.+newBuildings ::+  Buildings+newBuildings =+  Buildings+    { buildings = Core.Nothing,+      etag = Core.Nothing,+      kind = "admin#directory#resources#buildings#buildingsList",+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON Buildings where+  parseJSON =+    Core.withObject+      "Buildings"+      ( \o ->+          Buildings+            Core.<$> (o Core..:? "buildings")+            Core.<*> (o Core..:? "etag")+            Core.<*> ( o+                         Core..:? "kind"+                         Core..!= "admin#directory#resources#buildings#buildingsList"+                     )+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON Buildings where+  toJSON Buildings {..} =+    Core.object+      ( Core.catMaybes+          [ ("buildings" Core..=) Core.<$> buildings,+            ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | Represents a data capacity with some amount of current usage in bytes.+--+-- /See:/ 'newByteUsage' smart constructor.+data ByteUsage = ByteUsage+  { -- | Output only. The total capacity value, in bytes.+    capacityBytes :: (Core.Maybe Core.Int64),+    -- | Output only. The current usage value, in bytes.+    usedBytes :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ByteUsage' with the minimum fields required to make a request.+newByteUsage ::+  ByteUsage+newByteUsage =+  ByteUsage {capacityBytes = Core.Nothing, usedBytes = Core.Nothing}++instance Core.FromJSON ByteUsage where+  parseJSON =+    Core.withObject+      "ByteUsage"+      ( \o ->+          ByteUsage+            Core.<$> (o Core..:? "capacityBytes" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "usedBytes" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON ByteUsage where+  toJSON ByteUsage {..} =+    Core.object+      ( Core.catMaybes+          [ ("capacityBytes" Core..=)+              Core.. Core.AsText+              Core.<$> capacityBytes,+            ("usedBytes" Core..=) Core.. Core.AsText Core.<$> usedBytes+          ]+      )++-- | Public API: Resources.calendars+--+-- /See:/ 'newCalendarResource' smart constructor.+data CalendarResource = CalendarResource+  { -- | Unique ID for the building a resource is located in.+    buildingId :: (Core.Maybe Core.Text),+    -- | Capacity of a resource, number of seats in a room.+    capacity :: (Core.Maybe Core.Int32),+    -- | ETag of the resource.+    etags :: (Core.Maybe Core.Text),+    -- | Instances of features for the calendar resource.+    featureInstances :: (Core.Maybe Core.Value),+    -- | Name of the floor a resource is located on.+    floorName :: (Core.Maybe Core.Text),+    -- | Name of the section within a floor a resource is located in.+    floorSection :: (Core.Maybe Core.Text),+    -- | The read-only auto-generated name of the calendar resource which includes metadata about the resource such as building name, floor, capacity, etc. For example, \"NYC-2-Training Room 1A (16)\".+    generatedResourceName :: (Core.Maybe Core.Text),+    -- | The type of the resource. For calendar resources, the value is @admin#directory#resources#calendars#CalendarResource@.+    kind :: Core.Text,+    -- | The category of the calendar resource. Either CONFERENCE/ROOM or OTHER. Legacy data is set to CATEGORY/UNKNOWN.+    resourceCategory :: (Core.Maybe Core.Text),+    -- | Description of the resource, visible only to admins.+    resourceDescription :: (Core.Maybe Core.Text),+    -- | The read-only email for the calendar resource. Generated as part of creating a new calendar resource.+    resourceEmail :: (Core.Maybe Core.Text),+    -- | The unique ID for the calendar resource.+    resourceId :: (Core.Maybe Core.Text),+    -- | The name of the calendar resource. For example, \"Training Room 1A\".+    resourceName :: (Core.Maybe Core.Text),+    -- | The type of the calendar resource, intended for non-room resources.+    resourceType :: (Core.Maybe Core.Text),+    -- | Description of the resource, visible to users and admins.+    userVisibleDescription :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CalendarResource' with the minimum fields required to make a request.+newCalendarResource ::+  CalendarResource+newCalendarResource =+  CalendarResource+    { buildingId = Core.Nothing,+      capacity = Core.Nothing,+      etags = Core.Nothing,+      featureInstances = Core.Nothing,+      floorName = Core.Nothing,+      floorSection = Core.Nothing,+      generatedResourceName = Core.Nothing,+      kind = "admin#directory#resources#calendars#CalendarResource",+      resourceCategory = Core.Nothing,+      resourceDescription = Core.Nothing,+      resourceEmail = Core.Nothing,+      resourceId = Core.Nothing,+      resourceName = Core.Nothing,+      resourceType = Core.Nothing,+      userVisibleDescription = Core.Nothing+    }++instance Core.FromJSON CalendarResource where+  parseJSON =+    Core.withObject+      "CalendarResource"+      ( \o ->+          CalendarResource+            Core.<$> (o Core..:? "buildingId")+            Core.<*> (o Core..:? "capacity")+            Core.<*> (o Core..:? "etags")+            Core.<*> (o Core..:? "featureInstances")+            Core.<*> (o Core..:? "floorName")+            Core.<*> (o Core..:? "floorSection")+            Core.<*> (o Core..:? "generatedResourceName")+            Core.<*> ( o+                         Core..:? "kind"+                         Core..!= "admin#directory#resources#calendars#CalendarResource"+                     )+            Core.<*> (o Core..:? "resourceCategory")+            Core.<*> (o Core..:? "resourceDescription")+            Core.<*> (o Core..:? "resourceEmail")+            Core.<*> (o Core..:? "resourceId")+            Core.<*> (o Core..:? "resourceName")+            Core.<*> (o Core..:? "resourceType")+            Core.<*> (o Core..:? "userVisibleDescription")+      )++instance Core.ToJSON CalendarResource where+  toJSON CalendarResource {..} =+    Core.object+      ( Core.catMaybes+          [ ("buildingId" Core..=) Core.<$> buildingId,+            ("capacity" Core..=) Core.<$> capacity,+            ("etags" Core..=) Core.<$> etags,+            ("featureInstances" Core..=) Core.<$> featureInstances,+            ("floorName" Core..=) Core.<$> floorName,+            ("floorSection" Core..=) Core.<$> floorSection,+            ("generatedResourceName" Core..=) Core.<$> generatedResourceName,+            Core.Just ("kind" Core..= kind),+            ("resourceCategory" Core..=) Core.<$> resourceCategory,+            ("resourceDescription" Core..=) Core.<$> resourceDescription,+            ("resourceEmail" Core..=) Core.<$> resourceEmail,+            ("resourceId" Core..=) Core.<$> resourceId,+            ("resourceName" Core..=) Core.<$> resourceName,+            ("resourceType" Core..=) Core.<$> resourceType,+            ("userVisibleDescription" Core..=)+              Core.<$> userVisibleDescription+          ]+      )++-- | Public API: Resources.calendars+--+-- /See:/ 'newCalendarResources' smart constructor.+data CalendarResources = CalendarResources+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | The CalendarResources in this page of results.+    items :: (Core.Maybe [CalendarResource]),+    -- | Identifies this as a collection of CalendarResources. This is always @admin#directory#resources#calendars#calendarResourcesList@.+    kind :: Core.Text,+    -- | The continuation token, used to page through large result sets. Provide this value in a subsequent request to return the next page of results.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CalendarResources' with the minimum fields required to make a request.+newCalendarResources ::+  CalendarResources+newCalendarResources =+  CalendarResources+    { etag = Core.Nothing,+      items = Core.Nothing,+      kind = "admin#directory#resources#calendars#calendarResourcesList",+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON CalendarResources where+  parseJSON =+    Core.withObject+      "CalendarResources"+      ( \o ->+          CalendarResources+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "items")+            Core.<*> ( o+                         Core..:? "kind"+                         Core..!= "admin#directory#resources#calendars#calendarResourcesList"+                     )+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON CalendarResources where+  toJSON CalendarResources {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("items" Core..=) Core.<$> items,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | The result of a single ChromeOS device for a Change state operation.+--+-- /See:/ 'newChangeChromeOsDeviceStatusResult' smart constructor.+data ChangeChromeOsDeviceStatusResult = ChangeChromeOsDeviceStatusResult+  { -- | The unique ID of the ChromeOS device.+    deviceId :: (Core.Maybe Core.Text),+    -- | The error result of the operation in case of failure.+    error :: (Core.Maybe Status),+    -- | The device could change its status successfully.+    response :: (Core.Maybe ChangeChromeOsDeviceStatusSucceeded)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChangeChromeOsDeviceStatusResult' with the minimum fields required to make a request.+newChangeChromeOsDeviceStatusResult ::+  ChangeChromeOsDeviceStatusResult+newChangeChromeOsDeviceStatusResult =+  ChangeChromeOsDeviceStatusResult+    { deviceId = Core.Nothing,+      error = Core.Nothing,+      response = Core.Nothing+    }++instance Core.FromJSON ChangeChromeOsDeviceStatusResult where+  parseJSON =+    Core.withObject+      "ChangeChromeOsDeviceStatusResult"+      ( \o ->+          ChangeChromeOsDeviceStatusResult+            Core.<$> (o Core..:? "deviceId")+            Core.<*> (o Core..:? "error")+            Core.<*> (o Core..:? "response")+      )++instance Core.ToJSON ChangeChromeOsDeviceStatusResult where+  toJSON ChangeChromeOsDeviceStatusResult {..} =+    Core.object+      ( Core.catMaybes+          [ ("deviceId" Core..=) Core.<$> deviceId,+            ("error" Core..=) Core.<$> error,+            ("response" Core..=) Core.<$> response+          ]+      )++-- | Response for a successful ChromeOS device status change.+--+-- /See:/ 'newChangeChromeOsDeviceStatusSucceeded' smart constructor.+data ChangeChromeOsDeviceStatusSucceeded = ChangeChromeOsDeviceStatusSucceeded+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChangeChromeOsDeviceStatusSucceeded' with the minimum fields required to make a request.+newChangeChromeOsDeviceStatusSucceeded ::+  ChangeChromeOsDeviceStatusSucceeded+newChangeChromeOsDeviceStatusSucceeded =+  ChangeChromeOsDeviceStatusSucceeded++instance Core.FromJSON ChangeChromeOsDeviceStatusSucceeded where+  parseJSON =+    Core.withObject+      "ChangeChromeOsDeviceStatusSucceeded"+      (\o -> Core.pure ChangeChromeOsDeviceStatusSucceeded)++instance Core.ToJSON ChangeChromeOsDeviceStatusSucceeded where+  toJSON = Core.const Core.emptyObject++-- | An notification channel used to watch for resource changes.+--+-- /See:/ 'newChannel' smart constructor.+data Channel = Channel+  { -- | The address where notifications are delivered for this channel.+    address :: (Core.Maybe Core.Text),+    -- | Date and time of notification channel expiration, expressed as a Unix timestamp, in milliseconds. Optional.+    expiration :: (Core.Maybe Core.Int64),+    -- | A UUID or similar unique string that identifies this channel.+    id :: (Core.Maybe Core.Text),+    -- | Identifies this as a notification channel used to watch for changes to a resource, which is @api#channel@.+    kind :: Core.Text,+    -- | Additional parameters controlling delivery channel behavior. Optional. For example, @params.ttl@ specifies the time-to-live in seconds for the notification channel, where the default is 2 hours and the maximum TTL is 2 days.+    params :: (Core.Maybe Channel_Params),+    -- | A Boolean value to indicate whether payload is wanted. Optional.+    payload :: (Core.Maybe Core.Bool),+    -- | An opaque ID that identifies the resource being watched on this channel. Stable across different API versions.+    resourceId :: (Core.Maybe Core.Text),+    -- | A version-specific identifier for the watched resource.+    resourceUri :: (Core.Maybe Core.Text),+    -- | An arbitrary string delivered to the target address with each notification delivered over this channel. Optional.+    token :: (Core.Maybe Core.Text),+    -- | The type of delivery mechanism used for this channel.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Channel' with the minimum fields required to make a request.+newChannel ::+  Channel+newChannel =+  Channel+    { address = Core.Nothing,+      expiration = Core.Nothing,+      id = Core.Nothing,+      kind = "api#channel",+      params = Core.Nothing,+      payload = Core.Nothing,+      resourceId = Core.Nothing,+      resourceUri = Core.Nothing,+      token = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON Channel where+  parseJSON =+    Core.withObject+      "Channel"+      ( \o ->+          Channel+            Core.<$> (o Core..:? "address")+            Core.<*> (o Core..:? "expiration" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "api#channel")+            Core.<*> (o Core..:? "params")+            Core.<*> (o Core..:? "payload")+            Core.<*> (o Core..:? "resourceId")+            Core.<*> (o Core..:? "resourceUri")+            Core.<*> (o Core..:? "token")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON Channel where+  toJSON Channel {..} =+    Core.object+      ( Core.catMaybes+          [ ("address" Core..=) Core.<$> address,+            ("expiration" Core..=) Core.. Core.AsText Core.<$> expiration,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("params" Core..=) Core.<$> params,+            ("payload" Core..=) Core.<$> payload,+            ("resourceId" Core..=) Core.<$> resourceId,+            ("resourceUri" Core..=) Core.<$> resourceUri,+            ("token" Core..=) Core.<$> token,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | Additional parameters controlling delivery channel behavior. Optional. For example, @params.ttl@ specifies the time-to-live in seconds for the notification channel, where the default is 2 hours and the maximum TTL is 2 days.+--+-- /See:/ 'newChannel_Params' smart constructor.+newtype Channel_Params = Channel_Params+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Channel_Params' with the minimum fields required to make a request.+newChannel_Params ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  Channel_Params+newChannel_Params additional =+  Channel_Params {additional = additional}++instance Core.FromJSON Channel_Params where+  parseJSON =+    Core.withObject+      "Channel_Params"+      (\o -> Channel_Params Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Channel_Params where+  toJSON Channel_Params {..} = Core.toJSON additional++-- | Google Chrome devices run on the <https://support.google.com/chromeos Chrome OS>. For more information about common API tasks, see the </admin-sdk/directory/v1/guides/manage-chrome-devices Developer\'s Guide>.+--+-- /See:/ 'newChromeOsDevice' smart constructor.+data ChromeOsDevice = ChromeOsDevice+  { -- | A list of active time ranges (Read-only).+    activeTimeRanges :: (Core.Maybe [ChromeOsDevice_ActiveTimeRangesItem]),+    -- | The asset identifier as noted by an administrator or specified during enrollment.+    annotatedAssetId :: (Core.Maybe Core.Text),+    -- | The address or location of the device as noted by the administrator. Maximum length is @200@ characters. Empty values are allowed.+    annotatedLocation :: (Core.Maybe Core.Text),+    -- | The user of the device as noted by the administrator. Maximum length is 100 characters. Empty values are allowed.+    annotatedUser :: (Core.Maybe Core.Text),+    -- | (Read-only) The timestamp after which the device will stop receiving Chrome updates or support. Please use \"autoUpdateThrough\" instead.+    autoUpdateExpiration :: (Core.Maybe Core.Int64),+    -- | Output only. The timestamp after which the device will stop receiving Chrome updates or support.+    autoUpdateThrough :: (Core.Maybe Core.Text),+    -- | Output only. Contains backlight information for the device.+    backlightInfo :: (Core.Maybe [BacklightInfo]),+    -- | The boot mode for the device. The possible values are: * @Verified@: The device is running a valid version of the Chrome OS. * @Dev@: The devices\'s developer hardware switch is enabled. When booted, the device has a command line shell. For an example of a developer switch, see the <https://www.chromium.org/chromium-os/developer-information-for-chrome-os-devices/samsung-series-5-chromebook#TOC-Developer-switch Chromebook developer information>.+    bootMode :: (Core.Maybe Core.Text),+    -- | Output only. Chrome OS type of the device.+    chromeOsType :: (Core.Maybe ChromeOsDevice_ChromeOsType),+    -- | Information regarding CPU specs in the device.+    cpuInfo :: (Core.Maybe [ChromeOsDevice_CpuInfoItem]),+    -- | Reports of CPU utilization and temperature (Read-only)+    cpuStatusReports :: (Core.Maybe [ChromeOsDevice_CpuStatusReportsItem]),+    -- | (Read-only) Deprovision reason.+    deprovisionReason :: (Core.Maybe ChromeOsDevice_DeprovisionReason),+    -- | A list of device files to download (Read-only)+    deviceFiles :: (Core.Maybe [ChromeOsDevice_DeviceFilesItem]),+    -- | The unique ID of the Chrome device.+    deviceId :: (Core.Maybe Core.Text),+    -- | Output only. Device license type.+    deviceLicenseType :: (Core.Maybe ChromeOsDevice_DeviceLicenseType),+    -- | Output only. How much disk space the device has available and is currently using.+    diskSpaceUsage :: (Core.Maybe ByteUsage),+    -- | Reports of disk space and other info about mounted\/connected volumes.+    diskVolumeReports :: (Core.Maybe [ChromeOsDevice_DiskVolumeReportsItem]),+    -- | (Read-only) Built-in MAC address for the docking station that the device connected to. Factory sets Media access control address (MAC address) assigned for use by a dock. It is reserved specifically for MAC pass through device policy. The format is twelve (12) hexadecimal digits without any delimiter (uppercase letters). This is only relevant for some devices.+    dockMacAddress :: (Core.Maybe Core.Text),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | The device\'s MAC address on the ethernet network interface.+    ethernetMacAddress :: (Core.Maybe Core.Text),+    -- | (Read-only) MAC address used by the Chromebook’s internal ethernet port, and for onboard network (ethernet) interface. The format is twelve (12) hexadecimal digits without any delimiter (uppercase letters). This is only relevant for some devices.+    ethernetMacAddress0 :: (Core.Maybe Core.Text),+    -- | Output only. Whether or not the device requires the extended support opt in.+    extendedSupportEligible :: (Core.Maybe Core.Bool),+    -- | Output only. Whether extended support policy is enabled on the device.+    extendedSupportEnabled :: (Core.Maybe Core.Bool),+    -- | Output only. Date of the device when extended support policy for automatic updates starts.+    extendedSupportStart :: (Core.Maybe Core.Text),+    -- | Output only. Fan information for the device.+    fanInfo :: (Core.Maybe [FanInfo]),+    -- | The Chrome device\'s firmware version.+    firmwareVersion :: (Core.Maybe Core.Text),+    -- | Date and time for the first time the device was enrolled.+    firstEnrollmentTime :: (Core.Maybe Core.Text),+    -- | The type of resource. For the Chromeosdevices resource, the value is @admin#directory#chromeosdevice@.+    kind :: Core.Text,+    -- | (Read-only) Date and time for the last deprovision of the device.+    lastDeprovisionTimestamp :: (Core.Maybe Core.Text),+    -- | Date and time the device was last enrolled (Read-only)+    lastEnrollmentTime :: (Core.Maybe Core.DateTime),+    -- | Contains last known network (Read-only)+    lastKnownNetwork :: (Core.Maybe [ChromeOsDevice_LastKnownNetworkItem]),+    -- | Date and time the device was last synchronized with the policy settings in the G Suite administrator control panel (Read-only)+    lastSync :: (Core.Maybe Core.DateTime),+    -- | The device\'s wireless MAC address. If the device does not have this information, it is not included in the response.+    macAddress :: (Core.Maybe Core.Text),+    -- | (Read-only) The date the device was manufactured in yyyy-mm-dd format.+    manufactureDate :: (Core.Maybe Core.Text),+    -- | The Mobile Equipment Identifier (MEID) or the International Mobile Equipment Identity (IMEI) for the 3G mobile card in a mobile device. A MEID\/IMEI is typically used when adding a device to a wireless carrier\'s post-pay service plan. If the device does not have this information, this property is not included in the response. For more information on how to export a MEID\/IMEI list, see the </admin-sdk/directory/v1/guides/manage-chrome-devices.html#export_meid Developer\'s Guide>.+    meid :: (Core.Maybe Core.Text),+    -- | The device\'s model information. If the device does not have this information, this property is not included in the response.+    model :: (Core.Maybe Core.Text),+    -- | Notes about this device added by the administrator. This property can be <https://support.google.com/chrome/a/answer/1698333 searched> with the </admin-sdk/directory/v1/reference/chromeosdevices/list list> method\'s @query@ parameter. Maximum length is 500 characters. Empty values are allowed.+    notes :: (Core.Maybe Core.Text),+    -- | The device\'s order number. Only devices directly purchased from Google have an order number.+    orderNumber :: (Core.Maybe Core.Text),+    -- | The unique ID of the organizational unit. orgUnitPath is the human readable version of orgUnitId. While orgUnitPath may change by renaming an organizational unit within the path, orgUnitId is unchangeable for one organizational unit. This property can be </admin-sdk/directory/v1/guides/manage-chrome-devices#move_chrome_devices_to_ou updated> using the API. For more information about how to create an organizational structure for your device, see the <https://support.google.com/a/answer/182433 administration help center>.+    orgUnitId :: (Core.Maybe Core.Text),+    -- | The full parent path with the organizational unit\'s name associated with the device. Path names are case insensitive. If the parent organizational unit is the top-level organization, it is represented as a forward slash, @\/@. This property can be </admin-sdk/directory/v1/guides/manage-chrome-devices#move_chrome_devices_to_ou updated> using the API. For more information about how to create an organizational structure for your device, see the <https://support.google.com/a/answer/182433 administration help center>.+    orgUnitPath :: (Core.Maybe Core.Text),+    -- | The status of the OS updates for the device.+    osUpdateStatus :: (Core.Maybe OsUpdateStatus),+    -- | The Chrome device\'s operating system version.+    osVersion :: (Core.Maybe Core.Text),+    -- | The Chrome device\'s platform version.+    platformVersion :: (Core.Maybe Core.Text),+    -- | A list of recent device users, in descending order, by last login time.+    recentUsers :: (Core.Maybe [ChromeOsDevice_RecentUsersItem]),+    -- | A list of screenshot files to download. Type is always \"SCREENSHOT_FILE\". (Read-only)+    screenshotFiles :: (Core.Maybe [ChromeOsDevice_ScreenshotFilesItem]),+    -- | The Chrome device serial number entered when the device was enabled. This value is the same as the Admin console\'s /Serial Number/ in the /Chrome OS Devices/ tab.+    serialNumber :: (Core.Maybe Core.Text),+    -- | The status of the device.+    status :: (Core.Maybe Core.Text),+    -- | Final date the device will be supported (Read-only)+    supportEndDate :: (Core.Maybe Core.DateTime),+    -- | Reports of amounts of available RAM memory (Read-only)+    systemRamFreeReports :: (Core.Maybe [ChromeOsDevice_SystemRamFreeReportsItem]),+    -- | Total RAM on the device [in bytes] (Read-only)+    systemRamTotal :: (Core.Maybe Core.Int64),+    -- | Trusted Platform Module (TPM) (Read-only)+    tpmVersionInfo :: (Core.Maybe ChromeOsDevice_TpmVersionInfo),+    -- | Determines if the device will auto renew its support after the support end date. This is a read-only property.+    willAutoRenew :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice' with the minimum fields required to make a request.+newChromeOsDevice ::+  ChromeOsDevice+newChromeOsDevice =+  ChromeOsDevice+    { activeTimeRanges = Core.Nothing,+      annotatedAssetId = Core.Nothing,+      annotatedLocation = Core.Nothing,+      annotatedUser = Core.Nothing,+      autoUpdateExpiration = Core.Nothing,+      autoUpdateThrough = Core.Nothing,+      backlightInfo = Core.Nothing,+      bootMode = Core.Nothing,+      chromeOsType = Core.Nothing,+      cpuInfo = Core.Nothing,+      cpuStatusReports = Core.Nothing,+      deprovisionReason = Core.Nothing,+      deviceFiles = Core.Nothing,+      deviceId = Core.Nothing,+      deviceLicenseType = Core.Nothing,+      diskSpaceUsage = Core.Nothing,+      diskVolumeReports = Core.Nothing,+      dockMacAddress = Core.Nothing,+      etag = Core.Nothing,+      ethernetMacAddress = Core.Nothing,+      ethernetMacAddress0 = Core.Nothing,+      extendedSupportEligible = Core.Nothing,+      extendedSupportEnabled = Core.Nothing,+      extendedSupportStart = Core.Nothing,+      fanInfo = Core.Nothing,+      firmwareVersion = Core.Nothing,+      firstEnrollmentTime = Core.Nothing,+      kind = "admin#directory#chromeosdevice",+      lastDeprovisionTimestamp = Core.Nothing,+      lastEnrollmentTime = Core.Nothing,+      lastKnownNetwork = Core.Nothing,+      lastSync = Core.Nothing,+      macAddress = Core.Nothing,+      manufactureDate = Core.Nothing,+      meid = Core.Nothing,+      model = Core.Nothing,+      notes = Core.Nothing,+      orderNumber = Core.Nothing,+      orgUnitId = Core.Nothing,+      orgUnitPath = Core.Nothing,+      osUpdateStatus = Core.Nothing,+      osVersion = Core.Nothing,+      platformVersion = Core.Nothing,+      recentUsers = Core.Nothing,+      screenshotFiles = Core.Nothing,+      serialNumber = Core.Nothing,+      status = Core.Nothing,+      supportEndDate = Core.Nothing,+      systemRamFreeReports = Core.Nothing,+      systemRamTotal = Core.Nothing,+      tpmVersionInfo = Core.Nothing,+      willAutoRenew = Core.Nothing+    }++instance Core.FromJSON ChromeOsDevice where+  parseJSON =+    Core.withObject+      "ChromeOsDevice"+      ( \o ->+          ChromeOsDevice+            Core.<$> (o Core..:? "activeTimeRanges")+            Core.<*> (o Core..:? "annotatedAssetId")+            Core.<*> (o Core..:? "annotatedLocation")+            Core.<*> (o Core..:? "annotatedUser")+            Core.<*> ( o+                         Core..:? "autoUpdateExpiration"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> (o Core..:? "autoUpdateThrough")+            Core.<*> (o Core..:? "backlightInfo")+            Core.<*> (o Core..:? "bootMode")+            Core.<*> (o Core..:? "chromeOsType")+            Core.<*> (o Core..:? "cpuInfo")+            Core.<*> (o Core..:? "cpuStatusReports")+            Core.<*> (o Core..:? "deprovisionReason")+            Core.<*> (o Core..:? "deviceFiles")+            Core.<*> (o Core..:? "deviceId")+            Core.<*> (o Core..:? "deviceLicenseType")+            Core.<*> (o Core..:? "diskSpaceUsage")+            Core.<*> (o Core..:? "diskVolumeReports")+            Core.<*> (o Core..:? "dockMacAddress")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "ethernetMacAddress")+            Core.<*> (o Core..:? "ethernetMacAddress0")+            Core.<*> (o Core..:? "extendedSupportEligible")+            Core.<*> (o Core..:? "extendedSupportEnabled")+            Core.<*> (o Core..:? "extendedSupportStart")+            Core.<*> (o Core..:? "fanInfo")+            Core.<*> (o Core..:? "firmwareVersion")+            Core.<*> (o Core..:? "firstEnrollmentTime")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#chromeosdevice")+            Core.<*> (o Core..:? "lastDeprovisionTimestamp")+            Core.<*> (o Core..:? "lastEnrollmentTime")+            Core.<*> (o Core..:? "lastKnownNetwork")+            Core.<*> (o Core..:? "lastSync")+            Core.<*> (o Core..:? "macAddress")+            Core.<*> (o Core..:? "manufactureDate")+            Core.<*> (o Core..:? "meid")+            Core.<*> (o Core..:? "model")+            Core.<*> (o Core..:? "notes")+            Core.<*> (o Core..:? "orderNumber")+            Core.<*> (o Core..:? "orgUnitId")+            Core.<*> (o Core..:? "orgUnitPath")+            Core.<*> (o Core..:? "osUpdateStatus")+            Core.<*> (o Core..:? "osVersion")+            Core.<*> (o Core..:? "platformVersion")+            Core.<*> (o Core..:? "recentUsers")+            Core.<*> (o Core..:? "screenshotFiles")+            Core.<*> (o Core..:? "serialNumber")+            Core.<*> (o Core..:? "status")+            Core.<*> (o Core..:? "supportEndDate")+            Core.<*> (o Core..:? "systemRamFreeReports")+            Core.<*> (o Core..:? "systemRamTotal" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "tpmVersionInfo")+            Core.<*> (o Core..:? "willAutoRenew")+      )++instance Core.ToJSON ChromeOsDevice where+  toJSON ChromeOsDevice {..} =+    Core.object+      ( Core.catMaybes+          [ ("activeTimeRanges" Core..=) Core.<$> activeTimeRanges,+            ("annotatedAssetId" Core..=) Core.<$> annotatedAssetId,+            ("annotatedLocation" Core..=) Core.<$> annotatedLocation,+            ("annotatedUser" Core..=) Core.<$> annotatedUser,+            ("autoUpdateExpiration" Core..=)+              Core.. Core.AsText+              Core.<$> autoUpdateExpiration,+            ("autoUpdateThrough" Core..=) Core.<$> autoUpdateThrough,+            ("backlightInfo" Core..=) Core.<$> backlightInfo,+            ("bootMode" Core..=) Core.<$> bootMode,+            ("chromeOsType" Core..=) Core.<$> chromeOsType,+            ("cpuInfo" Core..=) Core.<$> cpuInfo,+            ("cpuStatusReports" Core..=) Core.<$> cpuStatusReports,+            ("deprovisionReason" Core..=) Core.<$> deprovisionReason,+            ("deviceFiles" Core..=) Core.<$> deviceFiles,+            ("deviceId" Core..=) Core.<$> deviceId,+            ("deviceLicenseType" Core..=) Core.<$> deviceLicenseType,+            ("diskSpaceUsage" Core..=) Core.<$> diskSpaceUsage,+            ("diskVolumeReports" Core..=) Core.<$> diskVolumeReports,+            ("dockMacAddress" Core..=) Core.<$> dockMacAddress,+            ("etag" Core..=) Core.<$> etag,+            ("ethernetMacAddress" Core..=) Core.<$> ethernetMacAddress,+            ("ethernetMacAddress0" Core..=) Core.<$> ethernetMacAddress0,+            ("extendedSupportEligible" Core..=)+              Core.<$> extendedSupportEligible,+            ("extendedSupportEnabled" Core..=) Core.<$> extendedSupportEnabled,+            ("extendedSupportStart" Core..=) Core.<$> extendedSupportStart,+            ("fanInfo" Core..=) Core.<$> fanInfo,+            ("firmwareVersion" Core..=) Core.<$> firmwareVersion,+            ("firstEnrollmentTime" Core..=) Core.<$> firstEnrollmentTime,+            Core.Just ("kind" Core..= kind),+            ("lastDeprovisionTimestamp" Core..=)+              Core.<$> lastDeprovisionTimestamp,+            ("lastEnrollmentTime" Core..=) Core.<$> lastEnrollmentTime,+            ("lastKnownNetwork" Core..=) Core.<$> lastKnownNetwork,+            ("lastSync" Core..=) Core.<$> lastSync,+            ("macAddress" Core..=) Core.<$> macAddress,+            ("manufactureDate" Core..=) Core.<$> manufactureDate,+            ("meid" Core..=) Core.<$> meid,+            ("model" Core..=) Core.<$> model,+            ("notes" Core..=) Core.<$> notes,+            ("orderNumber" Core..=) Core.<$> orderNumber,+            ("orgUnitId" Core..=) Core.<$> orgUnitId,+            ("orgUnitPath" Core..=) Core.<$> orgUnitPath,+            ("osUpdateStatus" Core..=) Core.<$> osUpdateStatus,+            ("osVersion" Core..=) Core.<$> osVersion,+            ("platformVersion" Core..=) Core.<$> platformVersion,+            ("recentUsers" Core..=) Core.<$> recentUsers,+            ("screenshotFiles" Core..=) Core.<$> screenshotFiles,+            ("serialNumber" Core..=) Core.<$> serialNumber,+            ("status" Core..=) Core.<$> status,+            ("supportEndDate" Core..=) Core.<$> supportEndDate,+            ("systemRamFreeReports" Core..=) Core.<$> systemRamFreeReports,+            ("systemRamTotal" Core..=)+              Core.. Core.AsText+              Core.<$> systemRamTotal,+            ("tpmVersionInfo" Core..=) Core.<$> tpmVersionInfo,+            ("willAutoRenew" Core..=) Core.<$> willAutoRenew+          ]+      )++--+-- /See:/ 'newChromeOsDevice_ActiveTimeRangesItem' smart constructor.+data ChromeOsDevice_ActiveTimeRangesItem = ChromeOsDevice_ActiveTimeRangesItem+  { -- | Duration of usage in milliseconds.+    activeTime :: (Core.Maybe Core.Int32),+    -- | Date of usage+    date :: (Core.Maybe Core.Date)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice_ActiveTimeRangesItem' with the minimum fields required to make a request.+newChromeOsDevice_ActiveTimeRangesItem ::+  ChromeOsDevice_ActiveTimeRangesItem+newChromeOsDevice_ActiveTimeRangesItem =+  ChromeOsDevice_ActiveTimeRangesItem+    { activeTime = Core.Nothing,+      date = Core.Nothing+    }++instance Core.FromJSON ChromeOsDevice_ActiveTimeRangesItem where+  parseJSON =+    Core.withObject+      "ChromeOsDevice_ActiveTimeRangesItem"+      ( \o ->+          ChromeOsDevice_ActiveTimeRangesItem+            Core.<$> (o Core..:? "activeTime")+            Core.<*> (o Core..:? "date")+      )++instance Core.ToJSON ChromeOsDevice_ActiveTimeRangesItem where+  toJSON ChromeOsDevice_ActiveTimeRangesItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("activeTime" Core..=) Core.<$> activeTime,+            ("date" Core..=) Core.<$> date+          ]+      )++-- | CPU specs for a CPU.+--+-- /See:/ 'newChromeOsDevice_CpuInfoItem' smart constructor.+data ChromeOsDevice_CpuInfoItem = ChromeOsDevice_CpuInfoItem+  { -- | The CPU architecture.+    architecture :: (Core.Maybe Core.Text),+    -- | Information for the Logical CPUs+    logicalCpus :: (Core.Maybe [ChromeOsDevice_CpuInfoItem_LogicalCpusItem]),+    -- | The max CPU clock speed in kHz.+    maxClockSpeedKhz :: (Core.Maybe Core.Int32),+    -- | The CPU model name.+    model :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice_CpuInfoItem' with the minimum fields required to make a request.+newChromeOsDevice_CpuInfoItem ::+  ChromeOsDevice_CpuInfoItem+newChromeOsDevice_CpuInfoItem =+  ChromeOsDevice_CpuInfoItem+    { architecture = Core.Nothing,+      logicalCpus = Core.Nothing,+      maxClockSpeedKhz = Core.Nothing,+      model = Core.Nothing+    }++instance Core.FromJSON ChromeOsDevice_CpuInfoItem where+  parseJSON =+    Core.withObject+      "ChromeOsDevice_CpuInfoItem"+      ( \o ->+          ChromeOsDevice_CpuInfoItem+            Core.<$> (o Core..:? "architecture")+            Core.<*> (o Core..:? "logicalCpus")+            Core.<*> (o Core..:? "maxClockSpeedKhz")+            Core.<*> (o Core..:? "model")+      )++instance Core.ToJSON ChromeOsDevice_CpuInfoItem where+  toJSON ChromeOsDevice_CpuInfoItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("architecture" Core..=) Core.<$> architecture,+            ("logicalCpus" Core..=) Core.<$> logicalCpus,+            ("maxClockSpeedKhz" Core..=) Core.<$> maxClockSpeedKhz,+            ("model" Core..=) Core.<$> model+          ]+      )++-- | Status of a single logical CPU.+--+-- /See:/ 'newChromeOsDevice_CpuInfoItem_LogicalCpusItem' smart constructor.+data ChromeOsDevice_CpuInfoItem_LogicalCpusItem = ChromeOsDevice_CpuInfoItem_LogicalCpusItem+  { -- | C-States indicate the power consumption state of the CPU. For more information look at documentation published by the CPU maker.+    cStates ::+      ( Core.Maybe+          [ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem]+      ),+    -- | Current frequency the CPU is running at.+    currentScalingFrequencyKhz :: (Core.Maybe Core.Int32),+    -- | Idle time since last boot.+    idleDuration :: (Core.Maybe Core.Duration),+    -- | Maximum frequency the CPU is allowed to run at, by policy.+    maxScalingFrequencyKhz :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice_CpuInfoItem_LogicalCpusItem' with the minimum fields required to make a request.+newChromeOsDevice_CpuInfoItem_LogicalCpusItem ::+  ChromeOsDevice_CpuInfoItem_LogicalCpusItem+newChromeOsDevice_CpuInfoItem_LogicalCpusItem =+  ChromeOsDevice_CpuInfoItem_LogicalCpusItem+    { cStates =+        Core.Nothing,+      currentScalingFrequencyKhz = Core.Nothing,+      idleDuration = Core.Nothing,+      maxScalingFrequencyKhz = Core.Nothing+    }++instance Core.FromJSON ChromeOsDevice_CpuInfoItem_LogicalCpusItem where+  parseJSON =+    Core.withObject+      "ChromeOsDevice_CpuInfoItem_LogicalCpusItem"+      ( \o ->+          ChromeOsDevice_CpuInfoItem_LogicalCpusItem+            Core.<$> (o Core..:? "cStates")+            Core.<*> (o Core..:? "currentScalingFrequencyKhz")+            Core.<*> (o Core..:? "idleDuration")+            Core.<*> (o Core..:? "maxScalingFrequencyKhz")+      )++instance Core.ToJSON ChromeOsDevice_CpuInfoItem_LogicalCpusItem where+  toJSON ChromeOsDevice_CpuInfoItem_LogicalCpusItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("cStates" Core..=) Core.<$> cStates,+            ("currentScalingFrequencyKhz" Core..=)+              Core.<$> currentScalingFrequencyKhz,+            ("idleDuration" Core..=) Core.<$> idleDuration,+            ("maxScalingFrequencyKhz" Core..=)+              Core.<$> maxScalingFrequencyKhz+          ]+      )++-- | Status of a single C-state. C-states are various modes the CPU can transition to in order to use more or less power.+--+-- /See:/ 'newChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem' smart constructor.+data ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem = ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem+  { -- | Name of the state.+    displayName :: (Core.Maybe Core.Text),+    -- | Time spent in the state since the last reboot.+    sessionDuration :: (Core.Maybe Core.Duration)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem' with the minimum fields required to make a request.+newChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem ::+  ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem+newChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem =+  ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem+    { displayName =+        Core.Nothing,+      sessionDuration = Core.Nothing+    }++instance+  Core.FromJSON+    ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem+  where+  parseJSON =+    Core.withObject+      "ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem"+      ( \o ->+          ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem+            Core.<$> (o Core..:? "displayName")+            Core.<*> (o Core..:? "sessionDuration")+      )++instance+  Core.ToJSON+    ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem+  where+  toJSON ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("displayName" Core..=) Core.<$> displayName,+            ("sessionDuration" Core..=) Core.<$> sessionDuration+          ]+      )++--+-- /See:/ 'newChromeOsDevice_CpuStatusReportsItem' smart constructor.+data ChromeOsDevice_CpuStatusReportsItem = ChromeOsDevice_CpuStatusReportsItem+  { -- | A list of CPU temperature samples.+    cpuTemperatureInfo ::+      ( Core.Maybe+          [ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem]+      ),+    cpuUtilizationPercentageInfo :: (Core.Maybe [Core.Int32]),+    -- | Date and time the report was received.+    reportTime :: (Core.Maybe Core.DateTime)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice_CpuStatusReportsItem' with the minimum fields required to make a request.+newChromeOsDevice_CpuStatusReportsItem ::+  ChromeOsDevice_CpuStatusReportsItem+newChromeOsDevice_CpuStatusReportsItem =+  ChromeOsDevice_CpuStatusReportsItem+    { cpuTemperatureInfo =+        Core.Nothing,+      cpuUtilizationPercentageInfo = Core.Nothing,+      reportTime = Core.Nothing+    }++instance Core.FromJSON ChromeOsDevice_CpuStatusReportsItem where+  parseJSON =+    Core.withObject+      "ChromeOsDevice_CpuStatusReportsItem"+      ( \o ->+          ChromeOsDevice_CpuStatusReportsItem+            Core.<$> (o Core..:? "cpuTemperatureInfo")+            Core.<*> (o Core..:? "cpuUtilizationPercentageInfo")+            Core.<*> (o Core..:? "reportTime")+      )++instance Core.ToJSON ChromeOsDevice_CpuStatusReportsItem where+  toJSON ChromeOsDevice_CpuStatusReportsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("cpuTemperatureInfo" Core..=) Core.<$> cpuTemperatureInfo,+            ("cpuUtilizationPercentageInfo" Core..=)+              Core.<$> cpuUtilizationPercentageInfo,+            ("reportTime" Core..=) Core.<$> reportTime+          ]+      )++--+-- /See:/ 'newChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem' smart constructor.+data ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem = ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem+  { -- | CPU label+    label :: (Core.Maybe Core.Text),+    -- | Temperature in Celsius degrees.+    temperature :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem' with the minimum fields required to make a request.+newChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem ::+  ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem+newChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem =+  ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem+    { label =+        Core.Nothing,+      temperature = Core.Nothing+    }++instance+  Core.FromJSON+    ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem+  where+  parseJSON =+    Core.withObject+      "ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem"+      ( \o ->+          ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem+            Core.<$> (o Core..:? "label")+            Core.<*> (o Core..:? "temperature")+      )++instance+  Core.ToJSON+    ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem+  where+  toJSON+    ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem {..} =+      Core.object+        ( Core.catMaybes+            [ ("label" Core..=) Core.<$> label,+              ("temperature" Core..=) Core.<$> temperature+            ]+        )++--+-- /See:/ 'newChromeOsDevice_DeviceFilesItem' smart constructor.+data ChromeOsDevice_DeviceFilesItem = ChromeOsDevice_DeviceFilesItem+  { -- | Date and time the file was created+    createTime :: (Core.Maybe Core.DateTime),+    -- | File download URL+    downloadUrl :: (Core.Maybe Core.Text),+    -- | File name+    name :: (Core.Maybe Core.Text),+    -- | File type+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice_DeviceFilesItem' with the minimum fields required to make a request.+newChromeOsDevice_DeviceFilesItem ::+  ChromeOsDevice_DeviceFilesItem+newChromeOsDevice_DeviceFilesItem =+  ChromeOsDevice_DeviceFilesItem+    { createTime = Core.Nothing,+      downloadUrl = Core.Nothing,+      name = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON ChromeOsDevice_DeviceFilesItem where+  parseJSON =+    Core.withObject+      "ChromeOsDevice_DeviceFilesItem"+      ( \o ->+          ChromeOsDevice_DeviceFilesItem+            Core.<$> (o Core..:? "createTime")+            Core.<*> (o Core..:? "downloadUrl")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON ChromeOsDevice_DeviceFilesItem where+  toJSON ChromeOsDevice_DeviceFilesItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("createTime" Core..=) Core.<$> createTime,+            ("downloadUrl" Core..=) Core.<$> downloadUrl,+            ("name" Core..=) Core.<$> name,+            ("type" Core..=) Core.<$> type'+          ]+      )++--+-- /See:/ 'newChromeOsDevice_DiskVolumeReportsItem' smart constructor.+newtype ChromeOsDevice_DiskVolumeReportsItem = ChromeOsDevice_DiskVolumeReportsItem+  { -- | Disk volumes+    volumeInfo :: (Core.Maybe [ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice_DiskVolumeReportsItem' with the minimum fields required to make a request.+newChromeOsDevice_DiskVolumeReportsItem ::+  ChromeOsDevice_DiskVolumeReportsItem+newChromeOsDevice_DiskVolumeReportsItem =+  ChromeOsDevice_DiskVolumeReportsItem {volumeInfo = Core.Nothing}++instance Core.FromJSON ChromeOsDevice_DiskVolumeReportsItem where+  parseJSON =+    Core.withObject+      "ChromeOsDevice_DiskVolumeReportsItem"+      ( \o ->+          ChromeOsDevice_DiskVolumeReportsItem+            Core.<$> (o Core..:? "volumeInfo")+      )++instance Core.ToJSON ChromeOsDevice_DiskVolumeReportsItem where+  toJSON ChromeOsDevice_DiskVolumeReportsItem {..} =+    Core.object+      (Core.catMaybes [("volumeInfo" Core..=) Core.<$> volumeInfo])++--+-- /See:/ 'newChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem' smart constructor.+data ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem = ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem+  { -- | Free disk space [in bytes]+    storageFree :: (Core.Maybe Core.Int64),+    -- | Total disk space [in bytes]+    storageTotal :: (Core.Maybe Core.Int64),+    -- | Volume id+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem' with the minimum fields required to make a request.+newChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem ::+  ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem+newChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem =+  ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem+    { storageFree =+        Core.Nothing,+      storageTotal = Core.Nothing,+      volumeId = Core.Nothing+    }++instance+  Core.FromJSON+    ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem+  where+  parseJSON =+    Core.withObject+      "ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem"+      ( \o ->+          ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem+            Core.<$> (o Core..:? "storageFree" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "storageTotal" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "volumeId")+      )++instance+  Core.ToJSON+    ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem+  where+  toJSON ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("storageFree" Core..=) Core.. Core.AsText Core.<$> storageFree,+            ("storageTotal" Core..=) Core.. Core.AsText Core.<$> storageTotal,+            ("volumeId" Core..=) Core.<$> volumeId+          ]+      )++-- | Information for an ip address.+--+-- /See:/ 'newChromeOsDevice_LastKnownNetworkItem' smart constructor.+data ChromeOsDevice_LastKnownNetworkItem = ChromeOsDevice_LastKnownNetworkItem+  { -- | The IP address.+    ipAddress :: (Core.Maybe Core.Text),+    -- | The WAN IP address.+    wanIpAddress :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice_LastKnownNetworkItem' with the minimum fields required to make a request.+newChromeOsDevice_LastKnownNetworkItem ::+  ChromeOsDevice_LastKnownNetworkItem+newChromeOsDevice_LastKnownNetworkItem =+  ChromeOsDevice_LastKnownNetworkItem+    { ipAddress = Core.Nothing,+      wanIpAddress = Core.Nothing+    }++instance Core.FromJSON ChromeOsDevice_LastKnownNetworkItem where+  parseJSON =+    Core.withObject+      "ChromeOsDevice_LastKnownNetworkItem"+      ( \o ->+          ChromeOsDevice_LastKnownNetworkItem+            Core.<$> (o Core..:? "ipAddress")+            Core.<*> (o Core..:? "wanIpAddress")+      )++instance Core.ToJSON ChromeOsDevice_LastKnownNetworkItem where+  toJSON ChromeOsDevice_LastKnownNetworkItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("ipAddress" Core..=) Core.<$> ipAddress,+            ("wanIpAddress" Core..=) Core.<$> wanIpAddress+          ]+      )++-- | A list of recent device users, in descending order, by last login time.+--+-- /See:/ 'newChromeOsDevice_RecentUsersItem' smart constructor.+data ChromeOsDevice_RecentUsersItem = ChromeOsDevice_RecentUsersItem+  { -- | The user\'s email address. This is only present if the user type is @USER_TYPE_MANAGED@.+    email :: (Core.Maybe Core.Text),+    -- | The type of the user.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice_RecentUsersItem' with the minimum fields required to make a request.+newChromeOsDevice_RecentUsersItem ::+  ChromeOsDevice_RecentUsersItem+newChromeOsDevice_RecentUsersItem =+  ChromeOsDevice_RecentUsersItem+    { email = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON ChromeOsDevice_RecentUsersItem where+  parseJSON =+    Core.withObject+      "ChromeOsDevice_RecentUsersItem"+      ( \o ->+          ChromeOsDevice_RecentUsersItem+            Core.<$> (o Core..:? "email")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON ChromeOsDevice_RecentUsersItem where+  toJSON ChromeOsDevice_RecentUsersItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("email" Core..=) Core.<$> email,+            ("type" Core..=) Core.<$> type'+          ]+      )++--+-- /See:/ 'newChromeOsDevice_ScreenshotFilesItem' smart constructor.+data ChromeOsDevice_ScreenshotFilesItem = ChromeOsDevice_ScreenshotFilesItem+  { -- | Date and time the file was created+    createTime :: (Core.Maybe Core.DateTime),+    -- | File download URL+    downloadUrl :: (Core.Maybe Core.Text),+    -- | File name+    name :: (Core.Maybe Core.Text),+    -- | File type+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice_ScreenshotFilesItem' with the minimum fields required to make a request.+newChromeOsDevice_ScreenshotFilesItem ::+  ChromeOsDevice_ScreenshotFilesItem+newChromeOsDevice_ScreenshotFilesItem =+  ChromeOsDevice_ScreenshotFilesItem+    { createTime = Core.Nothing,+      downloadUrl = Core.Nothing,+      name = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON ChromeOsDevice_ScreenshotFilesItem where+  parseJSON =+    Core.withObject+      "ChromeOsDevice_ScreenshotFilesItem"+      ( \o ->+          ChromeOsDevice_ScreenshotFilesItem+            Core.<$> (o Core..:? "createTime")+            Core.<*> (o Core..:? "downloadUrl")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON ChromeOsDevice_ScreenshotFilesItem where+  toJSON ChromeOsDevice_ScreenshotFilesItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("createTime" Core..=) Core.<$> createTime,+            ("downloadUrl" Core..=) Core.<$> downloadUrl,+            ("name" Core..=) Core.<$> name,+            ("type" Core..=) Core.<$> type'+          ]+      )++--+-- /See:/ 'newChromeOsDevice_SystemRamFreeReportsItem' smart constructor.+data ChromeOsDevice_SystemRamFreeReportsItem = ChromeOsDevice_SystemRamFreeReportsItem+  { -- | Date and time the report was received.+    reportTime :: (Core.Maybe Core.DateTime),+    systemRamFreeInfo :: (Core.Maybe [Core.Int64])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice_SystemRamFreeReportsItem' with the minimum fields required to make a request.+newChromeOsDevice_SystemRamFreeReportsItem ::+  ChromeOsDevice_SystemRamFreeReportsItem+newChromeOsDevice_SystemRamFreeReportsItem =+  ChromeOsDevice_SystemRamFreeReportsItem+    { reportTime =+        Core.Nothing,+      systemRamFreeInfo = Core.Nothing+    }++instance Core.FromJSON ChromeOsDevice_SystemRamFreeReportsItem where+  parseJSON =+    Core.withObject+      "ChromeOsDevice_SystemRamFreeReportsItem"+      ( \o ->+          ChromeOsDevice_SystemRamFreeReportsItem+            Core.<$> (o Core..:? "reportTime")+            Core.<*> ( o+                         Core..:? "systemRamFreeInfo"+                         Core.<&> Core.fmap (Core.fmap Core.fromAsText)+                     )+      )++instance Core.ToJSON ChromeOsDevice_SystemRamFreeReportsItem where+  toJSON ChromeOsDevice_SystemRamFreeReportsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("reportTime" Core..=) Core.<$> reportTime,+            ("systemRamFreeInfo" Core..=)+              Core.. Core.fmap Core.AsText+              Core.<$> systemRamFreeInfo+          ]+      )++-- | Trusted Platform Module (TPM) (Read-only)+--+-- /See:/ 'newChromeOsDevice_TpmVersionInfo' smart constructor.+data ChromeOsDevice_TpmVersionInfo = ChromeOsDevice_TpmVersionInfo+  { -- | TPM family. We use the TPM 2.0 style encoding, e.g.: TPM 1.2: \"1.2\" -> 312e3200 TPM 2.0: \"2.0\" -> 322e3000+    family :: (Core.Maybe Core.Text),+    -- | TPM firmware version.+    firmwareVersion :: (Core.Maybe Core.Text),+    -- | TPM manufacturer code.+    manufacturer :: (Core.Maybe Core.Text),+    -- | TPM specification level. See Library Specification for TPM 2.0 and Main Specification for TPM 1.2.+    specLevel :: (Core.Maybe Core.Text),+    -- | TPM model number.+    tpmModel :: (Core.Maybe Core.Text),+    -- | Vendor-specific information such as Vendor ID.+    vendorSpecific :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevice_TpmVersionInfo' with the minimum fields required to make a request.+newChromeOsDevice_TpmVersionInfo ::+  ChromeOsDevice_TpmVersionInfo+newChromeOsDevice_TpmVersionInfo =+  ChromeOsDevice_TpmVersionInfo+    { family = Core.Nothing,+      firmwareVersion = Core.Nothing,+      manufacturer = Core.Nothing,+      specLevel = Core.Nothing,+      tpmModel = Core.Nothing,+      vendorSpecific = Core.Nothing+    }++instance Core.FromJSON ChromeOsDevice_TpmVersionInfo where+  parseJSON =+    Core.withObject+      "ChromeOsDevice_TpmVersionInfo"+      ( \o ->+          ChromeOsDevice_TpmVersionInfo+            Core.<$> (o Core..:? "family")+            Core.<*> (o Core..:? "firmwareVersion")+            Core.<*> (o Core..:? "manufacturer")+            Core.<*> (o Core..:? "specLevel")+            Core.<*> (o Core..:? "tpmModel")+            Core.<*> (o Core..:? "vendorSpecific")+      )++instance Core.ToJSON ChromeOsDevice_TpmVersionInfo where+  toJSON ChromeOsDevice_TpmVersionInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("family" Core..=) Core.<$> family,+            ("firmwareVersion" Core..=) Core.<$> firmwareVersion,+            ("manufacturer" Core..=) Core.<$> manufacturer,+            ("specLevel" Core..=) Core.<$> specLevel,+            ("tpmModel" Core..=) Core.<$> tpmModel,+            ("vendorSpecific" Core..=) Core.<$> vendorSpecific+          ]+      )++-- | Data about an update to the status of a Chrome OS device.+--+-- /See:/ 'newChromeOsDeviceAction' smart constructor.+data ChromeOsDeviceAction = ChromeOsDeviceAction+  { -- | Action to be taken on the Chrome OS device.+    action :: (Core.Maybe Core.Text),+    -- | Only used when the action is @deprovision@. With the @deprovision@ action, this field is required. /Note/: The deprovision reason is audited because it might have implications on licenses for perpetual subscription customers.+    deprovisionReason :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDeviceAction' with the minimum fields required to make a request.+newChromeOsDeviceAction ::+  ChromeOsDeviceAction+newChromeOsDeviceAction =+  ChromeOsDeviceAction+    { action = Core.Nothing,+      deprovisionReason = Core.Nothing+    }++instance Core.FromJSON ChromeOsDeviceAction where+  parseJSON =+    Core.withObject+      "ChromeOsDeviceAction"+      ( \o ->+          ChromeOsDeviceAction+            Core.<$> (o Core..:? "action")+            Core.<*> (o Core..:? "deprovisionReason")+      )++instance Core.ToJSON ChromeOsDeviceAction where+  toJSON ChromeOsDeviceAction {..} =+    Core.object+      ( Core.catMaybes+          [ ("action" Core..=) Core.<$> action,+            ("deprovisionReason" Core..=) Core.<$> deprovisionReason+          ]+      )++--+-- /See:/ 'newChromeOsDevices' smart constructor.+data ChromeOsDevices = ChromeOsDevices+  { -- | A list of Chrome OS Device objects.+    chromeosdevices :: (Core.Maybe [ChromeOsDevice]),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | Kind of resource this is.+    kind :: Core.Text,+    -- | Token used to access the next page of this result. To access the next page, use this token\'s value in the @pageToken@ query string of this request.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsDevices' with the minimum fields required to make a request.+newChromeOsDevices ::+  ChromeOsDevices+newChromeOsDevices =+  ChromeOsDevices+    { chromeosdevices = Core.Nothing,+      etag = Core.Nothing,+      kind = "admin#directory#chromeosdevices",+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ChromeOsDevices where+  parseJSON =+    Core.withObject+      "ChromeOsDevices"+      ( \o ->+          ChromeOsDevices+            Core.<$> (o Core..:? "chromeosdevices")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#chromeosdevices")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ChromeOsDevices where+  toJSON ChromeOsDevices {..} =+    Core.object+      ( Core.catMaybes+          [ ("chromeosdevices" Core..=) Core.<$> chromeosdevices,+            ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++--+-- /See:/ 'newChromeOsMoveDevicesToOu' smart constructor.+newtype ChromeOsMoveDevicesToOu = ChromeOsMoveDevicesToOu+  { -- | Chrome OS devices to be moved to OU+    deviceIds :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ChromeOsMoveDevicesToOu' with the minimum fields required to make a request.+newChromeOsMoveDevicesToOu ::+  ChromeOsMoveDevicesToOu+newChromeOsMoveDevicesToOu =+  ChromeOsMoveDevicesToOu {deviceIds = Core.Nothing}++instance Core.FromJSON ChromeOsMoveDevicesToOu where+  parseJSON =+    Core.withObject+      "ChromeOsMoveDevicesToOu"+      (\o -> ChromeOsMoveDevicesToOu Core.<$> (o Core..:? "deviceIds"))++instance Core.ToJSON ChromeOsMoveDevicesToOu where+  toJSON ChromeOsMoveDevicesToOu {..} =+    Core.object+      (Core.catMaybes [("deviceIds" Core..=) Core.<$> deviceIds])++-- | Request for adding a new print server.+--+-- /See:/ 'newCreatePrintServerRequest' smart constructor.+data CreatePrintServerRequest = CreatePrintServerRequest+  { -- | Required. The <https://developers.google.com/admin-sdk/directory/reference/rest/v1/customers unique ID> of the customer\'s Google Workspace account. Format: @customers\/{id}@+    parent :: (Core.Maybe Core.Text),+    -- | Required. A print server to create. If you want to place the print server under a specific organizational unit (OU), then populate the @org_unit_id@. Otherwise the print server is created under the root OU. The @org_unit_id@ can be retrieved using the <https://developers.google.com/admin-sdk/directory/v1/guides/manage-org-units Directory API>.+    printServer :: (Core.Maybe PrintServer)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CreatePrintServerRequest' with the minimum fields required to make a request.+newCreatePrintServerRequest ::+  CreatePrintServerRequest+newCreatePrintServerRequest =+  CreatePrintServerRequest+    { parent = Core.Nothing,+      printServer = Core.Nothing+    }++instance Core.FromJSON CreatePrintServerRequest where+  parseJSON =+    Core.withObject+      "CreatePrintServerRequest"+      ( \o ->+          CreatePrintServerRequest+            Core.<$> (o Core..:? "parent")+            Core.<*> (o Core..:? "printServer")+      )++instance Core.ToJSON CreatePrintServerRequest where+  toJSON CreatePrintServerRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("parent" Core..=) Core.<$> parent,+            ("printServer" Core..=) Core.<$> printServer+          ]+      )++-- | Request for adding a new printer.+--+-- /See:/ 'newCreatePrinterRequest' smart constructor.+data CreatePrinterRequest = CreatePrinterRequest+  { -- | Required. The name of the customer. Format: customers\/{customer_id}+    parent :: (Core.Maybe Core.Text),+    -- | Required. A printer to create. If you want to place the printer under particular OU then populate printer.org/unit/id filed. Otherwise the printer will be placed under root OU.+    printer :: (Core.Maybe Printer)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CreatePrinterRequest' with the minimum fields required to make a request.+newCreatePrinterRequest ::+  CreatePrinterRequest+newCreatePrinterRequest =+  CreatePrinterRequest+    { parent = Core.Nothing,+      printer = Core.Nothing+    }++instance Core.FromJSON CreatePrinterRequest where+  parseJSON =+    Core.withObject+      "CreatePrinterRequest"+      ( \o ->+          CreatePrinterRequest+            Core.<$> (o Core..:? "parent")+            Core.<*> (o Core..:? "printer")+      )++instance Core.ToJSON CreatePrinterRequest where+  toJSON CreatePrinterRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("parent" Core..=) Core.<$> parent,+            ("printer" Core..=) Core.<$> printer+          ]+      )++--+-- /See:/ 'newCustomer' smart constructor.+data Customer = Customer+  { -- | The customer\'s secondary contact email address. This email address cannot be on the same domain as the @customerDomain@+    alternateEmail :: (Core.Maybe Core.Text),+    -- | The customer\'s creation time (Readonly)+    customerCreationTime :: (Core.Maybe Core.DateTime),+    -- | The customer\'s primary domain name string. Do not include the @www@ prefix when creating a new customer.+    customerDomain :: (Core.Maybe Core.Text),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. (Readonly)+    id :: (Core.Maybe Core.Text),+    -- | Identifies the resource as a customer. Value: @admin#directory#customer@+    kind :: Core.Text,+    -- | The customer\'s ISO 639-2 language code. See the </admin-sdk/directory/v1/languages Language Codes> page for the list of supported codes. Valid language codes outside the supported set will be accepted by the API but may lead to unexpected behavior. The default value is @en@.+    language :: (Core.Maybe Core.Text),+    -- | The customer\'s contact phone number in <https://en.wikipedia.org/wiki/E.164 E.164> format.+    phoneNumber :: (Core.Maybe Core.Text),+    -- | The customer\'s postal address information.+    postalAddress :: (Core.Maybe CustomerPostalAddress)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Customer' with the minimum fields required to make a request.+newCustomer ::+  Customer+newCustomer =+  Customer+    { alternateEmail = Core.Nothing,+      customerCreationTime = Core.Nothing,+      customerDomain = Core.Nothing,+      etag = Core.Nothing,+      id = Core.Nothing,+      kind = "admin#directory#customer",+      language = Core.Nothing,+      phoneNumber = Core.Nothing,+      postalAddress = Core.Nothing+    }++instance Core.FromJSON Customer where+  parseJSON =+    Core.withObject+      "Customer"+      ( \o ->+          Customer+            Core.<$> (o Core..:? "alternateEmail")+            Core.<*> (o Core..:? "customerCreationTime")+            Core.<*> (o Core..:? "customerDomain")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#customer")+            Core.<*> (o Core..:? "language")+            Core.<*> (o Core..:? "phoneNumber")+            Core.<*> (o Core..:? "postalAddress")+      )++instance Core.ToJSON Customer where+  toJSON Customer {..} =+    Core.object+      ( Core.catMaybes+          [ ("alternateEmail" Core..=) Core.<$> alternateEmail,+            ("customerCreationTime" Core..=) Core.<$> customerCreationTime,+            ("customerDomain" Core..=) Core.<$> customerDomain,+            ("etag" Core..=) Core.<$> etag,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("language" Core..=) Core.<$> language,+            ("phoneNumber" Core..=) Core.<$> phoneNumber,+            ("postalAddress" Core..=) Core.<$> postalAddress+          ]+      )++--+-- /See:/ 'newCustomerPostalAddress' smart constructor.+data CustomerPostalAddress = CustomerPostalAddress+  { -- | A customer\'s physical address. The address can be composed of one to three lines.+    addressLine1 :: (Core.Maybe Core.Text),+    -- | Address line 2 of the address.+    addressLine2 :: (Core.Maybe Core.Text),+    -- | Address line 3 of the address.+    addressLine3 :: (Core.Maybe Core.Text),+    -- | The customer contact\'s name.+    contactName :: (Core.Maybe Core.Text),+    -- | This is a required property. For @countryCode@ information see the <https://www.iso.org/iso/country_codes.htm ISO 3166 country code elements>.+    countryCode :: (Core.Maybe Core.Text),+    -- | Name of the locality. An example of a locality value is the city of @San Francisco@.+    locality :: (Core.Maybe Core.Text),+    -- | The company or company division name.+    organizationName :: (Core.Maybe Core.Text),+    -- | The postal code. A postalCode example is a postal zip code such as @10009@. This is in accordance with - http: \/\/portablecontacts.net\/draft-spec.html#address_element.+    postalCode :: (Core.Maybe Core.Text),+    -- | Name of the region. An example of a region value is @NY@ for the state of New York.+    region :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomerPostalAddress' with the minimum fields required to make a request.+newCustomerPostalAddress ::+  CustomerPostalAddress+newCustomerPostalAddress =+  CustomerPostalAddress+    { addressLine1 = Core.Nothing,+      addressLine2 = Core.Nothing,+      addressLine3 = Core.Nothing,+      contactName = Core.Nothing,+      countryCode = Core.Nothing,+      locality = Core.Nothing,+      organizationName = Core.Nothing,+      postalCode = Core.Nothing,+      region = Core.Nothing+    }++instance Core.FromJSON CustomerPostalAddress where+  parseJSON =+    Core.withObject+      "CustomerPostalAddress"+      ( \o ->+          CustomerPostalAddress+            Core.<$> (o Core..:? "addressLine1")+            Core.<*> (o Core..:? "addressLine2")+            Core.<*> (o Core..:? "addressLine3")+            Core.<*> (o Core..:? "contactName")+            Core.<*> (o Core..:? "countryCode")+            Core.<*> (o Core..:? "locality")+            Core.<*> (o Core..:? "organizationName")+            Core.<*> (o Core..:? "postalCode")+            Core.<*> (o Core..:? "region")+      )++instance Core.ToJSON CustomerPostalAddress where+  toJSON CustomerPostalAddress {..} =+    Core.object+      ( Core.catMaybes+          [ ("addressLine1" Core..=) Core.<$> addressLine1,+            ("addressLine2" Core..=) Core.<$> addressLine2,+            ("addressLine3" Core..=) Core.<$> addressLine3,+            ("contactName" Core..=) Core.<$> contactName,+            ("countryCode" Core..=) Core.<$> countryCode,+            ("locality" Core..=) Core.<$> locality,+            ("organizationName" Core..=) Core.<$> organizationName,+            ("postalCode" Core..=) Core.<$> postalCode,+            ("region" Core..=) Core.<$> region+          ]+      )++-- | Information regarding a command that was issued to a device.+--+-- /See:/ 'newDirectoryChromeosdevicesCommand' smart constructor.+data DirectoryChromeosdevicesCommand = DirectoryChromeosdevicesCommand+  { -- | The time at which the command will expire. If the device doesn\'t execute the command within this time the command will become expired.+    commandExpireTime :: (Core.Maybe Core.DateTime),+    -- | Unique ID of a device command.+    commandId :: (Core.Maybe Core.Int64),+    -- | The result of the command execution.+    commandResult :: (Core.Maybe DirectoryChromeosdevicesCommandResult),+    -- | The timestamp when the command was issued by the admin.+    issueTime :: (Core.Maybe Core.DateTime),+    -- | The payload that the command specified, if any.+    payload :: (Core.Maybe Core.Text),+    -- | Indicates the command state.+    state :: (Core.Maybe DirectoryChromeosdevicesCommand_State),+    -- | The type of the command.+    type' :: (Core.Maybe DirectoryChromeosdevicesCommand_Type)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryChromeosdevicesCommand' with the minimum fields required to make a request.+newDirectoryChromeosdevicesCommand ::+  DirectoryChromeosdevicesCommand+newDirectoryChromeosdevicesCommand =+  DirectoryChromeosdevicesCommand+    { commandExpireTime = Core.Nothing,+      commandId = Core.Nothing,+      commandResult = Core.Nothing,+      issueTime = Core.Nothing,+      payload = Core.Nothing,+      state = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON DirectoryChromeosdevicesCommand where+  parseJSON =+    Core.withObject+      "DirectoryChromeosdevicesCommand"+      ( \o ->+          DirectoryChromeosdevicesCommand+            Core.<$> (o Core..:? "commandExpireTime")+            Core.<*> (o Core..:? "commandId" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "commandResult")+            Core.<*> (o Core..:? "issueTime")+            Core.<*> (o Core..:? "payload")+            Core.<*> (o Core..:? "state")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON DirectoryChromeosdevicesCommand where+  toJSON DirectoryChromeosdevicesCommand {..} =+    Core.object+      ( Core.catMaybes+          [ ("commandExpireTime" Core..=) Core.<$> commandExpireTime,+            ("commandId" Core..=) Core.. Core.AsText Core.<$> commandId,+            ("commandResult" Core..=) Core.<$> commandResult,+            ("issueTime" Core..=) Core.<$> issueTime,+            ("payload" Core..=) Core.<$> payload,+            ("state" Core..=) Core.<$> state,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | The result of executing a command.+--+-- /See:/ 'newDirectoryChromeosdevicesCommandResult' smart constructor.+data DirectoryChromeosdevicesCommandResult = DirectoryChromeosdevicesCommandResult+  { -- | The payload for the command result. The following commands respond with a payload: * @DEVICE_START_CRD_SESSION@: Payload is a stringified JSON object in the form: { \"url\": url }. The URL provides a link to the Chrome Remote Desktop session.+    commandResultPayload :: (Core.Maybe Core.Text),+    -- | The error message with a short explanation as to why the command failed. Only present if the command failed.+    errorMessage :: (Core.Maybe Core.Text),+    -- | The time at which the command was executed or failed to execute.+    executeTime :: (Core.Maybe Core.DateTime),+    -- | The result of the command.+    result :: (Core.Maybe DirectoryChromeosdevicesCommandResult_Result)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryChromeosdevicesCommandResult' with the minimum fields required to make a request.+newDirectoryChromeosdevicesCommandResult ::+  DirectoryChromeosdevicesCommandResult+newDirectoryChromeosdevicesCommandResult =+  DirectoryChromeosdevicesCommandResult+    { commandResultPayload =+        Core.Nothing,+      errorMessage = Core.Nothing,+      executeTime = Core.Nothing,+      result = Core.Nothing+    }++instance Core.FromJSON DirectoryChromeosdevicesCommandResult where+  parseJSON =+    Core.withObject+      "DirectoryChromeosdevicesCommandResult"+      ( \o ->+          DirectoryChromeosdevicesCommandResult+            Core.<$> (o Core..:? "commandResultPayload")+            Core.<*> (o Core..:? "errorMessage")+            Core.<*> (o Core..:? "executeTime")+            Core.<*> (o Core..:? "result")+      )++instance Core.ToJSON DirectoryChromeosdevicesCommandResult where+  toJSON DirectoryChromeosdevicesCommandResult {..} =+    Core.object+      ( Core.catMaybes+          [ ("commandResultPayload" Core..=) Core.<$> commandResultPayload,+            ("errorMessage" Core..=) Core.<$> errorMessage,+            ("executeTime" Core..=) Core.<$> executeTime,+            ("result" Core..=) Core.<$> result+          ]+      )++-- | A request for issuing a command.+--+-- /See:/ 'newDirectoryChromeosdevicesIssueCommandRequest' smart constructor.+data DirectoryChromeosdevicesIssueCommandRequest = DirectoryChromeosdevicesIssueCommandRequest+  { -- | The type of command.+    commandType ::+      ( Core.Maybe+          DirectoryChromeosdevicesIssueCommandRequest_CommandType+      ),+    -- | The payload for the command, provide it only if command supports it. The following commands support adding payload: * @SET_VOLUME@: Payload is a stringified JSON object in the form: { \"volume\": 50 }. The volume has to be an integer in the range [0,100]. * @DEVICE_START_CRD_SESSION@: Payload is optionally a stringified JSON object in the form: { \"ackedUserPresence\": true, \"crdSessionType\": string }. @ackedUserPresence@ is a boolean. By default, @ackedUserPresence@ is set to @false@. To start a Chrome Remote Desktop session for an active device, set @ackedUserPresence@ to @true@. @crdSessionType@ can only select from values @private@ (which grants the remote admin exclusive control of the ChromeOS device) or @shared@ (which allows the admin and the local user to share control of the ChromeOS device). If not set, @crdSessionType@ defaults to @shared@. * @REBOOT@: Payload is a stringified JSON object in the form: { \"user/session/delay/seconds\": 300 }. The @user_session_delay_seconds@ is the amount of+    -- seconds to wait before rebooting the device if a user is logged in. It has to be an integer in the range [0,300]. When payload is not present for reboot, 0 delay is the default. Note: This only applies if an actual user is logged in, including a Guest. If the device is in the login screen or in Kiosk mode the value is not respected and the device immediately reboots. * @FETCH_SUPPORT_PACKET@: Payload is optionally a stringified JSON object in the form: {\"supportPacketDetails\":{ \"issueCaseId\": optional/support/case/id/string, \"issueDescription\": optional/issue/description/string, \"requestedDataCollectors\": []}} The list of available @data_collector_enums@ are as following: Chrome System Information (1), Crash IDs (2), Memory Details (3), UI Hierarchy (4), Additional ChromeOS Platform Logs (5), Device Event (6), Intel WiFi NICs Debug Dump (7), Touch Events (8), Lacros (9), Lacros System Information (10), ChromeOS Flex Logs (11), DBus Details (12), ChromeOS Network Routes (13), ChromeOS Shill (Connection+    -- Manager) Logs (14), Policies (15), ChromeOS System State and Logs (16), ChromeOS System Logs (17), ChromeOS Chrome User Logs (18), ChromeOS Bluetooth (19), ChromeOS Connected Input Devices (20), ChromeOS Traffic Counters (21), ChromeOS Virtual Keyboard (22), ChromeOS Network Health (23). See more details in <https://support.google.com/chrome/a?p=remote-log help article>.+    payload :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryChromeosdevicesIssueCommandRequest' with the minimum fields required to make a request.+newDirectoryChromeosdevicesIssueCommandRequest ::+  DirectoryChromeosdevicesIssueCommandRequest+newDirectoryChromeosdevicesIssueCommandRequest =+  DirectoryChromeosdevicesIssueCommandRequest+    { commandType =+        Core.Nothing,+      payload = Core.Nothing+    }++instance Core.FromJSON DirectoryChromeosdevicesIssueCommandRequest where+  parseJSON =+    Core.withObject+      "DirectoryChromeosdevicesIssueCommandRequest"+      ( \o ->+          DirectoryChromeosdevicesIssueCommandRequest+            Core.<$> (o Core..:? "commandType")+            Core.<*> (o Core..:? "payload")+      )++instance Core.ToJSON DirectoryChromeosdevicesIssueCommandRequest where+  toJSON DirectoryChromeosdevicesIssueCommandRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("commandType" Core..=) Core.<$> commandType,+            ("payload" Core..=) Core.<$> payload+          ]+      )++-- | A response for issuing a command.+--+-- /See:/ 'newDirectoryChromeosdevicesIssueCommandResponse' smart constructor.+newtype DirectoryChromeosdevicesIssueCommandResponse = DirectoryChromeosdevicesIssueCommandResponse+  { -- | The unique ID of the issued command, used to retrieve the command status.+    commandId :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryChromeosdevicesIssueCommandResponse' with the minimum fields required to make a request.+newDirectoryChromeosdevicesIssueCommandResponse ::+  DirectoryChromeosdevicesIssueCommandResponse+newDirectoryChromeosdevicesIssueCommandResponse =+  DirectoryChromeosdevicesIssueCommandResponse+    { commandId =+        Core.Nothing+    }++instance Core.FromJSON DirectoryChromeosdevicesIssueCommandResponse where+  parseJSON =+    Core.withObject+      "DirectoryChromeosdevicesIssueCommandResponse"+      ( \o ->+          DirectoryChromeosdevicesIssueCommandResponse+            Core.<$> (o Core..:? "commandId" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON DirectoryChromeosdevicesIssueCommandResponse where+  toJSON DirectoryChromeosdevicesIssueCommandResponse {..} =+    Core.object+      ( Core.catMaybes+          [("commandId" Core..=) Core.. Core.AsText Core.<$> commandId]+      )++--+-- /See:/ 'newDomainAlias' smart constructor.+data DomainAlias = DomainAlias+  { -- | The creation time of the domain alias. (Read-only).+    creationTime :: (Core.Maybe Core.Int64),+    -- | The domain alias name.+    domainAliasName :: (Core.Maybe Core.Text),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | Kind of resource this is.+    kind :: Core.Text,+    -- | The parent domain name that the domain alias is associated with. This can either be a primary or secondary domain name within a customer.+    parentDomainName :: (Core.Maybe Core.Text),+    -- | Indicates the verification state of a domain alias. (Read-only)+    verified :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DomainAlias' with the minimum fields required to make a request.+newDomainAlias ::+  DomainAlias+newDomainAlias =+  DomainAlias+    { creationTime = Core.Nothing,+      domainAliasName = Core.Nothing,+      etag = Core.Nothing,+      kind = "admin#directory#domainAlias",+      parentDomainName = Core.Nothing,+      verified = Core.Nothing+    }++instance Core.FromJSON DomainAlias where+  parseJSON =+    Core.withObject+      "DomainAlias"+      ( \o ->+          DomainAlias+            Core.<$> (o Core..:? "creationTime" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "domainAliasName")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#domainAlias")+            Core.<*> (o Core..:? "parentDomainName")+            Core.<*> (o Core..:? "verified")+      )++instance Core.ToJSON DomainAlias where+  toJSON DomainAlias {..} =+    Core.object+      ( Core.catMaybes+          [ ("creationTime" Core..=) Core.. Core.AsText Core.<$> creationTime,+            ("domainAliasName" Core..=) Core.<$> domainAliasName,+            ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind),+            ("parentDomainName" Core..=) Core.<$> parentDomainName,+            ("verified" Core..=) Core.<$> verified+          ]+      )++--+-- /See:/ 'newDomainAliases' smart constructor.+data DomainAliases = DomainAliases+  { -- | A list of domain alias objects.+    domainAliases :: (Core.Maybe [DomainAlias]),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | Kind of resource this is.+    kind :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DomainAliases' with the minimum fields required to make a request.+newDomainAliases ::+  DomainAliases+newDomainAliases =+  DomainAliases+    { domainAliases = Core.Nothing,+      etag = Core.Nothing,+      kind = "admin#directory#domainAliases"+    }++instance Core.FromJSON DomainAliases where+  parseJSON =+    Core.withObject+      "DomainAliases"+      ( \o ->+          DomainAliases+            Core.<$> (o Core..:? "domainAliases")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#domainAliases")+      )++instance Core.ToJSON DomainAliases where+  toJSON DomainAliases {..} =+    Core.object+      ( Core.catMaybes+          [ ("domainAliases" Core..=) Core.<$> domainAliases,+            ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind)+          ]+      )++--+-- /See:/ 'newDomains' smart constructor.+data Domains = Domains+  { -- | Creation time of the domain. Expressed in <https://en.wikipedia.org/wiki/Epoch_time Unix time> format. (Read-only).+    creationTime :: (Core.Maybe Core.Int64),+    -- | A list of domain alias objects. (Read-only)+    domainAliases :: (Core.Maybe [DomainAlias]),+    -- | The domain name of the customer.+    domainName :: (Core.Maybe Core.Text),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | Indicates if the domain is a primary domain (Read-only).+    isPrimary :: (Core.Maybe Core.Bool),+    -- | Kind of resource this is.+    kind :: Core.Text,+    -- | Indicates the verification state of a domain. (Read-only).+    verified :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Domains' with the minimum fields required to make a request.+newDomains ::+  Domains+newDomains =+  Domains+    { creationTime = Core.Nothing,+      domainAliases = Core.Nothing,+      domainName = Core.Nothing,+      etag = Core.Nothing,+      isPrimary = Core.Nothing,+      kind = "admin#directory#domain",+      verified = Core.Nothing+    }++instance Core.FromJSON Domains where+  parseJSON =+    Core.withObject+      "Domains"+      ( \o ->+          Domains+            Core.<$> (o Core..:? "creationTime" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "domainAliases")+            Core.<*> (o Core..:? "domainName")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "isPrimary")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#domain")+            Core.<*> (o Core..:? "verified")+      )++instance Core.ToJSON Domains where+  toJSON Domains {..} =+    Core.object+      ( Core.catMaybes+          [ ("creationTime" Core..=) Core.. Core.AsText Core.<$> creationTime,+            ("domainAliases" Core..=) Core.<$> domainAliases,+            ("domainName" Core..=) Core.<$> domainName,+            ("etag" Core..=) Core.<$> etag,+            ("isPrimary" Core..=) Core.<$> isPrimary,+            Core.Just ("kind" Core..= kind),+            ("verified" Core..=) Core.<$> verified+          ]+      )++--+-- /See:/ 'newDomains2' smart constructor.+data Domains2 = Domains2+  { -- | A list of domain objects.+    domains :: (Core.Maybe [Domains]),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | Kind of resource this is.+    kind :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Domains2' with the minimum fields required to make a request.+newDomains2 ::+  Domains2+newDomains2 =+  Domains2+    { domains = Core.Nothing,+      etag = Core.Nothing,+      kind = "admin#directory#domains"+    }++instance Core.FromJSON Domains2 where+  parseJSON =+    Core.withObject+      "Domains2"+      ( \o ->+          Domains2+            Core.<$> (o Core..:? "domains")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#domains")+      )++instance Core.ToJSON Domains2 where+  toJSON Domains2 {..} =+    Core.object+      ( Core.catMaybes+          [ ("domains" Core..=) Core.<$> domains,+            ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind)+          ]+      )++-- | A generic empty message that you can re-use to avoid defining duplicated empty messages in your APIs. A typical example is to use it as the request or the response type of an API method. For instance: service Foo { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); }+--+-- /See:/ 'newEmpty' smart constructor.+data Empty = Empty+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Empty' with the minimum fields required to make a request.+newEmpty ::+  Empty+newEmpty = Empty++instance Core.FromJSON Empty where+  parseJSON = Core.withObject "Empty" (\o -> Core.pure Empty)++instance Core.ToJSON Empty where+  toJSON = Core.const Core.emptyObject++-- | Info about failures+--+-- /See:/ 'newFailureInfo' smart constructor.+data FailureInfo = FailureInfo+  { -- | Canonical code for why the update failed to apply.+    errorCode :: (Core.Maybe FailureInfo_ErrorCode),+    -- | Failure reason message.+    errorMessage :: (Core.Maybe Core.Text),+    -- | Failed printer.+    printer :: (Core.Maybe Printer),+    -- | Id of a failed printer.+    printerId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FailureInfo' with the minimum fields required to make a request.+newFailureInfo ::+  FailureInfo+newFailureInfo =+  FailureInfo+    { errorCode = Core.Nothing,+      errorMessage = Core.Nothing,+      printer = Core.Nothing,+      printerId = Core.Nothing+    }++instance Core.FromJSON FailureInfo where+  parseJSON =+    Core.withObject+      "FailureInfo"+      ( \o ->+          FailureInfo+            Core.<$> (o Core..:? "errorCode")+            Core.<*> (o Core..:? "errorMessage")+            Core.<*> (o Core..:? "printer")+            Core.<*> (o Core..:? "printerId")+      )++instance Core.ToJSON FailureInfo where+  toJSON FailureInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("errorCode" Core..=) Core.<$> errorCode,+            ("errorMessage" Core..=) Core.<$> errorMessage,+            ("printer" Core..=) Core.<$> printer,+            ("printerId" Core..=) Core.<$> printerId+          ]+      )++-- | Information about the device\'s fan.+--+-- /See:/ 'newFanInfo' smart constructor.+newtype FanInfo = FanInfo+  { -- | Output only. Fan speed in RPM.+    speedRpm :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FanInfo' with the minimum fields required to make a request.+newFanInfo ::+  FanInfo+newFanInfo = FanInfo {speedRpm = Core.Nothing}++instance Core.FromJSON FanInfo where+  parseJSON =+    Core.withObject+      "FanInfo"+      (\o -> FanInfo Core.<$> (o Core..:? "speedRpm"))++instance Core.ToJSON FanInfo where+  toJSON FanInfo {..} =+    Core.object+      (Core.catMaybes [("speedRpm" Core..=) Core.<$> speedRpm])++-- | JSON template for Feature object in Directory API.+--+-- /See:/ 'newFeature' smart constructor.+data Feature = Feature+  { -- | ETag of the resource.+    etags :: (Core.Maybe Core.Text),+    -- | Kind of resource this is.+    kind :: Core.Text,+    -- | The name of the feature.+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Feature' with the minimum fields required to make a request.+newFeature ::+  Feature+newFeature =+  Feature+    { etags = Core.Nothing,+      kind = "admin#directory#resources#features#Feature",+      name = Core.Nothing+    }++instance Core.FromJSON Feature where+  parseJSON =+    Core.withObject+      "Feature"+      ( \o ->+          Feature+            Core.<$> (o Core..:? "etags")+            Core.<*> ( o+                         Core..:? "kind"+                         Core..!= "admin#directory#resources#features#Feature"+                     )+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON Feature where+  toJSON Feature {..} =+    Core.object+      ( Core.catMaybes+          [ ("etags" Core..=) Core.<$> etags,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name+          ]+      )++-- | JSON template for a feature instance.+--+-- /See:/ 'newFeatureInstance' smart constructor.+newtype FeatureInstance = FeatureInstance+  { -- | The feature that this is an instance of. A calendar resource may have multiple instances of a feature.+    feature :: (Core.Maybe Feature)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FeatureInstance' with the minimum fields required to make a request.+newFeatureInstance ::+  FeatureInstance+newFeatureInstance = FeatureInstance {feature = Core.Nothing}++instance Core.FromJSON FeatureInstance where+  parseJSON =+    Core.withObject+      "FeatureInstance"+      (\o -> FeatureInstance Core.<$> (o Core..:? "feature"))++instance Core.ToJSON FeatureInstance where+  toJSON FeatureInstance {..} =+    Core.object+      (Core.catMaybes [("feature" Core..=) Core.<$> feature])++--+-- /See:/ 'newFeatureRename' smart constructor.+newtype FeatureRename = FeatureRename+  { -- | New name of the feature.+    newName' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FeatureRename' with the minimum fields required to make a request.+newFeatureRename ::+  FeatureRename+newFeatureRename = FeatureRename {newName' = Core.Nothing}++instance Core.FromJSON FeatureRename where+  parseJSON =+    Core.withObject+      "FeatureRename"+      (\o -> FeatureRename Core.<$> (o Core..:? "newName"))++instance Core.ToJSON FeatureRename where+  toJSON FeatureRename {..} =+    Core.object+      (Core.catMaybes [("newName" Core..=) Core.<$> newName'])++-- | Public API: Resources.features+--+-- /See:/ 'newFeatures' smart constructor.+data Features = Features+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | The Features in this page of results.+    features :: (Core.Maybe [Feature]),+    -- | Kind of resource this is.+    kind :: Core.Text,+    -- | The continuation token, used to page through large result sets. Provide this value in a subsequent request to return the next page of results.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Features' with the minimum fields required to make a request.+newFeatures ::+  Features+newFeatures =+  Features+    { etag = Core.Nothing,+      features = Core.Nothing,+      kind = "admin#directory#resources#features#featuresList",+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON Features where+  parseJSON =+    Core.withObject+      "Features"+      ( \o ->+          Features+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "features")+            Core.<*> ( o+                         Core..:? "kind"+                         Core..!= "admin#directory#resources#features#featuresList"+                     )+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON Features where+  toJSON Features {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("features" Core..=) Core.<$> features,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | Google Groups provide your users the ability to send messages to groups of people using the group\'s email address. For more information about common tasks, see the <https://developers.google.com/admin-sdk/directory/v1/guides/manage-groups Developer\'s Guide>. For information about other types of groups, see the <https://cloud.google.com/identity/docs/groups Cloud Identity Groups API documentation>. Note: The user calling the API (or being impersonated by a service account) must have an assigned <https://developers.google.com/admin-sdk/directory/v1/guides/manage-roles role> that includes Admin API Groups permissions, such as Super Admin or Groups Admin.+--+-- /See:/ 'newGroup' smart constructor.+data Group = Group+  { -- | Read-only. Value is @true@ if this group was created by an administrator rather than a user.+    adminCreated :: (Core.Maybe Core.Bool),+    -- | Read-only. The list of a group\'s alias email addresses. To add, update, or remove a group\'s aliases, use the @groups.aliases@ methods. If edited in a group\'s POST or PUT request, the edit is ignored.+    aliases :: (Core.Maybe [Core.Text]),+    -- | An extended description to help users determine the purpose of a group. For example, you can include information about who should join the group, the types of messages to send to the group, links to FAQs about the group, or related groups. Maximum length is @4,096@ characters.+    description :: (Core.Maybe Core.Text),+    -- | The number of users that are direct members of the group. If a group is a member (child) of this group (the parent), members of the child group are not counted in the @directMembersCount@ property of the parent group.+    directMembersCount :: (Core.Maybe Core.Int64),+    -- | The group\'s email address. If your account has multiple domains, select the appropriate domain for the email address. The @email@ must be unique. This property is required when creating a group. Group email addresses are subject to the same character usage rules as usernames, see the <https://support.google.com/a/answer/9193374 help center> for details.+    email :: (Core.Maybe Core.Text),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | Read-only. The unique ID of a group. A group @id@ can be used as a group request URI\'s @groupKey@.+    id :: (Core.Maybe Core.Text),+    -- | The type of the API resource. For Groups resources, the value is @admin#directory#group@.+    kind :: Core.Text,+    -- | The group\'s display name.+    name :: (Core.Maybe Core.Text),+    -- | Read-only. The list of the group\'s non-editable alias email addresses that are outside of the account\'s primary domain or subdomains. These are functioning email addresses used by the group. This is a read-only property returned in the API\'s response for a group. If edited in a group\'s POST or PUT request, the edit is ignored.+    nonEditableAliases :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Group' with the minimum fields required to make a request.+newGroup ::+  Group+newGroup =+  Group+    { adminCreated = Core.Nothing,+      aliases = Core.Nothing,+      description = Core.Nothing,+      directMembersCount = Core.Nothing,+      email = Core.Nothing,+      etag = Core.Nothing,+      id = Core.Nothing,+      kind = "admin#directory#group",+      name = Core.Nothing,+      nonEditableAliases = Core.Nothing+    }++instance Core.FromJSON Group where+  parseJSON =+    Core.withObject+      "Group"+      ( \o ->+          Group+            Core.<$> (o Core..:? "adminCreated")+            Core.<*> (o Core..:? "aliases")+            Core.<*> (o Core..:? "description")+            Core.<*> ( o+                         Core..:? "directMembersCount"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> (o Core..:? "email")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#group")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "nonEditableAliases")+      )++instance Core.ToJSON Group where+  toJSON Group {..} =+    Core.object+      ( Core.catMaybes+          [ ("adminCreated" Core..=) Core.<$> adminCreated,+            ("aliases" Core..=) Core.<$> aliases,+            ("description" Core..=) Core.<$> description,+            ("directMembersCount" Core..=)+              Core.. Core.AsText+              Core.<$> directMembersCount,+            ("email" Core..=) Core.<$> email,+            ("etag" Core..=) Core.<$> etag,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("nonEditableAliases" Core..=) Core.<$> nonEditableAliases+          ]+      )++-- | The Directory API manages aliases, which are alternative email addresses.+--+-- /See:/ 'newGroupAlias' smart constructor.+data GroupAlias = GroupAlias+  { -- | The alias email address.+    alias :: (Core.Maybe Core.Text),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | The unique ID of the group.+    id :: (Core.Maybe Core.Text),+    -- | The type of the API resource. For Alias resources, the value is @admin#directory#alias@.+    kind :: (Core.Maybe Core.Text),+    -- | The primary email address of the group.+    primaryEmail :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GroupAlias' with the minimum fields required to make a request.+newGroupAlias ::+  GroupAlias+newGroupAlias =+  GroupAlias+    { alias = Core.Nothing,+      etag = Core.Nothing,+      id = Core.Nothing,+      kind = Core.Nothing,+      primaryEmail = Core.Nothing+    }++instance Core.FromJSON GroupAlias where+  parseJSON =+    Core.withObject+      "GroupAlias"+      ( \o ->+          GroupAlias+            Core.<$> (o Core..:? "alias")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "primaryEmail")+      )++instance Core.ToJSON GroupAlias where+  toJSON GroupAlias {..} =+    Core.object+      ( Core.catMaybes+          [ ("alias" Core..=) Core.<$> alias,+            ("etag" Core..=) Core.<$> etag,+            ("id" Core..=) Core.<$> id,+            ("kind" Core..=) Core.<$> kind,+            ("primaryEmail" Core..=) Core.<$> primaryEmail+          ]+      )++--+-- /See:/ 'newGroups' smart constructor.+data Groups = Groups+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | A list of group objects.+    groups :: (Core.Maybe [Group]),+    -- | Kind of resource this is.+    kind :: Core.Text,+    -- | Token used to access next page of this result.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Groups' with the minimum fields required to make a request.+newGroups ::+  Groups+newGroups =+  Groups+    { etag = Core.Nothing,+      groups = Core.Nothing,+      kind = "admin#directory#groups",+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON Groups where+  parseJSON =+    Core.withObject+      "Groups"+      ( \o ->+          Groups+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "groups")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#groups")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON Groups where+  toJSON Groups {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("groups" Core..=) Core.<$> groups,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++--+-- /See:/ 'newListPrintServersResponse' smart constructor.+data ListPrintServersResponse = ListPrintServersResponse+  { -- | A token that can be sent as @page_token@ in a request to retrieve the next page. If this field is omitted, there are no subsequent pages.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | List of print servers.+    printServers :: (Core.Maybe [PrintServer])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListPrintServersResponse' with the minimum fields required to make a request.+newListPrintServersResponse ::+  ListPrintServersResponse+newListPrintServersResponse =+  ListPrintServersResponse+    { nextPageToken = Core.Nothing,+      printServers = Core.Nothing+    }++instance Core.FromJSON ListPrintServersResponse where+  parseJSON =+    Core.withObject+      "ListPrintServersResponse"+      ( \o ->+          ListPrintServersResponse+            Core.<$> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "printServers")+      )++instance Core.ToJSON ListPrintServersResponse where+  toJSON ListPrintServersResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("printServers" Core..=) Core.<$> printServers+          ]+      )++-- | Response for listing allowed printer models.+--+-- /See:/ 'newListPrinterModelsResponse' smart constructor.+data ListPrinterModelsResponse = ListPrinterModelsResponse+  { -- | A token, which can be sent as @page_token@ to retrieve the next page. If this field is omitted, there are no subsequent pages.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | Printer models that are currently allowed to be configured for ChromeOs. Some printers may be added or removed over time.+    printerModels :: (Core.Maybe [PrinterModel])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListPrinterModelsResponse' with the minimum fields required to make a request.+newListPrinterModelsResponse ::+  ListPrinterModelsResponse+newListPrinterModelsResponse =+  ListPrinterModelsResponse+    { nextPageToken = Core.Nothing,+      printerModels = Core.Nothing+    }++instance Core.FromJSON ListPrinterModelsResponse where+  parseJSON =+    Core.withObject+      "ListPrinterModelsResponse"+      ( \o ->+          ListPrinterModelsResponse+            Core.<$> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "printerModels")+      )++instance Core.ToJSON ListPrinterModelsResponse where+  toJSON ListPrinterModelsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("printerModels" Core..=) Core.<$> printerModels+          ]+      )++-- | Response for listing printers.+--+-- /See:/ 'newListPrintersResponse' smart constructor.+data ListPrintersResponse = ListPrintersResponse+  { -- | A token, which can be sent as @page_token@ to retrieve the next page. If this field is omitted, there are no subsequent pages.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | List of printers. If @org_unit_id@ was given in the request, then only printers visible for this OU will be returned. If @org_unit_id@ was not given in the request, then all printers will be returned.+    printers :: (Core.Maybe [Printer])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListPrintersResponse' with the minimum fields required to make a request.+newListPrintersResponse ::+  ListPrintersResponse+newListPrintersResponse =+  ListPrintersResponse+    { nextPageToken = Core.Nothing,+      printers = Core.Nothing+    }++instance Core.FromJSON ListPrintersResponse where+  parseJSON =+    Core.withObject+      "ListPrintersResponse"+      ( \o ->+          ListPrintersResponse+            Core.<$> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "printers")+      )++instance Core.ToJSON ListPrintersResponse where+  toJSON ListPrintersResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("printers" Core..=) Core.<$> printers+          ]+      )++-- | A Google Groups member can be a user or another group. This member can be inside or outside of your account\'s domains. For more information about common group member tasks, see the </admin-sdk/directory/v1/guides/manage-group-members Developer\'s Guide>.+--+-- /See:/ 'newMember' smart constructor.+data Member = Member+  { -- | Defines mail delivery preferences of member. This field is only supported by @insert@, @update@, and @get@ methods.+    deliverySettings :: (Core.Maybe Core.Text),+    -- | The member\'s email address. A member can be a user or another group. This property is required when adding a member to a group. The @email@ must be unique and cannot be an alias of another group. If the email address is changed, the API automatically reflects the email address changes.+    email :: (Core.Maybe Core.Text),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | The unique ID of the group member. A member @id@ can be used as a member request URI\'s @memberKey@.+    id :: (Core.Maybe Core.Text),+    -- | The type of the API resource. For Members resources, the value is @admin#directory#member@.+    kind :: Core.Text,+    -- | The member\'s role in a group. The API returns an error for cycles in group memberships. For example, if @group1@ is a member of @group2@, @group2@ cannot be a member of @group1@. For more information about a member\'s role, see the <https://support.google.com/a/answer/167094 administration help center>.+    role' :: (Core.Maybe Core.Text),+    -- | Status of member (Immutable)+    status :: (Core.Maybe Core.Text),+    -- | The type of group member.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Member' with the minimum fields required to make a request.+newMember ::+  Member+newMember =+  Member+    { deliverySettings = Core.Nothing,+      email = Core.Nothing,+      etag = Core.Nothing,+      id = Core.Nothing,+      kind = "admin#directory#member",+      role' = Core.Nothing,+      status = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON Member where+  parseJSON =+    Core.withObject+      "Member"+      ( \o ->+          Member+            Core.<$> (o Core..:? "delivery_settings")+            Core.<*> (o Core..:? "email")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#member")+            Core.<*> (o Core..:? "role")+            Core.<*> (o Core..:? "status")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON Member where+  toJSON Member {..} =+    Core.object+      ( Core.catMaybes+          [ ("delivery_settings" Core..=) Core.<$> deliverySettings,+            ("email" Core..=) Core.<$> email,+            ("etag" Core..=) Core.<$> etag,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("role" Core..=) Core.<$> role',+            ("status" Core..=) Core.<$> status,+            ("type" Core..=) Core.<$> type'+          ]+      )++--+-- /See:/ 'newMembers' smart constructor.+data Members = Members+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | Kind of resource this is.+    kind :: Core.Text,+    -- | A list of member objects.+    members :: (Core.Maybe [Member]),+    -- | Token used to access next page of this result.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Members' with the minimum fields required to make a request.+newMembers ::+  Members+newMembers =+  Members+    { etag = Core.Nothing,+      kind = "admin#directory#members",+      members = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON Members where+  parseJSON =+    Core.withObject+      "Members"+      ( \o ->+          Members+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#members")+            Core.<*> (o Core..:? "members")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON Members where+  toJSON Members {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind),+            ("members" Core..=) Core.<$> members,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | JSON template for Has Member response in Directory API.+--+-- /See:/ 'newMembersHasMember' smart constructor.+newtype MembersHasMember = MembersHasMember+  { -- | Output only. Identifies whether the given user is a member of the group. Membership can be direct or nested.+    isMember :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MembersHasMember' with the minimum fields required to make a request.+newMembersHasMember ::+  MembersHasMember+newMembersHasMember = MembersHasMember {isMember = Core.Nothing}++instance Core.FromJSON MembersHasMember where+  parseJSON =+    Core.withObject+      "MembersHasMember"+      (\o -> MembersHasMember Core.<$> (o Core..:? "isMember"))++instance Core.ToJSON MembersHasMember where+  toJSON MembersHasMember {..} =+    Core.object+      (Core.catMaybes [("isMember" Core..=) Core.<$> isMember])++-- | Google Workspace Mobile Management includes Android, <https://support.google.com/a/answer/135937 Google Sync>, and iOS devices. For more information about common group mobile device API tasks, see the </admin-sdk/directory/v1/guides/manage-mobile-devices.html Developer\'s Guide>.+--+-- /See:/ 'newMobileDevice' smart constructor.+data MobileDevice = MobileDevice+  { -- | Adb (USB debugging) enabled or disabled on device (Read-only)+    adbStatus :: (Core.Maybe Core.Bool),+    -- | The list of applications installed on an Android mobile device. It is not applicable to Google Sync and iOS devices. The list includes any Android applications that access Google Workspace data. When updating an applications list, it is important to note that updates replace the existing list. If the Android device has two existing applications and the API updates the list with five applications, the is now the updated list of five applications.+    applications :: (Core.Maybe [MobileDevice_ApplicationsItem]),+    -- | The device\'s baseband version.+    basebandVersion :: (Core.Maybe Core.Text),+    -- | Mobile Device Bootloader version (Read-only)+    bootloaderVersion :: (Core.Maybe Core.Text),+    -- | Mobile Device Brand (Read-only)+    brand :: (Core.Maybe Core.Text),+    -- | The device\'s operating system build number.+    buildNumber :: (Core.Maybe Core.Text),+    -- | The default locale used on the device.+    defaultLanguage :: (Core.Maybe Core.Text),+    -- | Developer options enabled or disabled on device (Read-only)+    developerOptionsStatus :: (Core.Maybe Core.Bool),+    -- | The compromised device status.+    deviceCompromisedStatus :: (Core.Maybe Core.Text),+    -- | The serial number for a Google Sync mobile device. For Android and iOS devices, this is a software generated unique identifier.+    deviceId :: (Core.Maybe Core.Text),+    -- | DevicePasswordStatus (Read-only)+    devicePasswordStatus :: (Core.Maybe Core.Text),+    -- | The list of the owner\'s email addresses. If your application needs the current list of user emails, use the </admin-sdk/directory/v1/reference/mobiledevices/get.html get> method. For additional information, see the </admin-sdk/directory/v1/guides/manage-users#get_user retrieve a user> method.+    email :: (Core.Maybe [Core.Text]),+    -- | Mobile Device Encryption Status (Read-only)+    encryptionStatus :: (Core.Maybe Core.Text),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | Date and time the device was first synchronized with the policy settings in the G Suite administrator control panel (Read-only)+    firstSync :: (Core.Maybe Core.DateTime),+    -- | Mobile Device Hardware (Read-only)+    hardware :: (Core.Maybe Core.Text),+    -- | The IMEI\/MEID unique identifier for Android hardware. It is not applicable to Google Sync devices. When adding an Android mobile device, this is an optional property. When updating one of these devices, this is a read-only property.+    hardwareId :: (Core.Maybe Core.Text),+    -- | The device\'s IMEI number.+    imei :: (Core.Maybe Core.Text),+    -- | The device\'s kernel version.+    kernelVersion :: (Core.Maybe Core.Text),+    -- | The type of the API resource. For Mobiledevices resources, the value is @admin#directory#mobiledevice@.+    kind :: Core.Text,+    -- | Date and time the device was last synchronized with the policy settings in the G Suite administrator control panel (Read-only)+    lastSync :: (Core.Maybe Core.DateTime),+    -- | Boolean indicating if this account is on owner\/primary profile or not.+    managedAccountIsOnOwnerProfile :: (Core.Maybe Core.Bool),+    -- | Mobile Device manufacturer (Read-only)+    manufacturer :: (Core.Maybe Core.Text),+    -- | The device\'s MEID number.+    meid :: (Core.Maybe Core.Text),+    -- | The mobile device\'s model name, for example Nexus S. This property can be </admin-sdk/directory/v1/reference/mobiledevices/update.html updated>. For more information, see the </admin-sdk/directory/v1/guides/manage-mobile=devices#update_mobile_device Developer\'s Guide>.+    model :: (Core.Maybe Core.Text),+    -- | The list of the owner\'s user names. If your application needs the current list of device owner names, use the </admin-sdk/directory/v1/reference/mobiledevices/get.html get> method. For more information about retrieving mobile device user information, see the </admin-sdk/directory/v1/guides/manage-users#get_user Developer\'s Guide>.+    name :: (Core.Maybe [Core.Text]),+    -- | Mobile Device mobile or network operator (if available) (Read-only)+    networkOperator :: (Core.Maybe Core.Text),+    -- | The mobile device\'s operating system, for example IOS 4.3 or Android 2.3.5. This property can be </admin-sdk/directory/v1/reference/mobiledevices/update.html updated>. For more information, see the </admin-sdk/directory/v1/guides/manage-mobile-devices#update_mobile_device Developer\'s Guide>.+    os :: (Core.Maybe Core.Text),+    -- | The list of accounts added on device (Read-only)+    otherAccountsInfo :: (Core.Maybe [Core.Text]),+    -- | DMAgentPermission (Read-only)+    privilege :: (Core.Maybe Core.Text),+    -- | Mobile Device release version version (Read-only)+    releaseVersion :: (Core.Maybe Core.Text),+    -- | The unique ID the API service uses to identify the mobile device.+    resourceId :: (Core.Maybe Core.Text),+    -- | Mobile Device Security patch level (Read-only)+    securityPatchLevel :: (Core.Maybe Core.Int64),+    -- | The device\'s serial number.+    serialNumber :: (Core.Maybe Core.Text),+    -- | The device\'s status.+    status :: (Core.Maybe Core.Text),+    -- | Work profile supported on device (Read-only)+    supportsWorkProfile :: (Core.Maybe Core.Bool),+    -- | The type of mobile device.+    type' :: (Core.Maybe Core.Text),+    -- | Unknown sources enabled or disabled on device (Read-only)+    unknownSourcesStatus :: (Core.Maybe Core.Bool),+    -- | Gives information about the device such as @os@ version. This property can be </admin-sdk/directory/v1/reference/mobiledevices/update.html updated>. For more information, see the </admin-sdk/directory/v1/guides/manage-mobile-devices#update_mobile_device Developer\'s Guide>.+    userAgent :: (Core.Maybe Core.Text),+    -- | The device\'s MAC address on Wi-Fi networks.+    wifiMacAddress :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MobileDevice' with the minimum fields required to make a request.+newMobileDevice ::+  MobileDevice+newMobileDevice =+  MobileDevice+    { adbStatus = Core.Nothing,+      applications = Core.Nothing,+      basebandVersion = Core.Nothing,+      bootloaderVersion = Core.Nothing,+      brand = Core.Nothing,+      buildNumber = Core.Nothing,+      defaultLanguage = Core.Nothing,+      developerOptionsStatus = Core.Nothing,+      deviceCompromisedStatus = Core.Nothing,+      deviceId = Core.Nothing,+      devicePasswordStatus = Core.Nothing,+      email = Core.Nothing,+      encryptionStatus = Core.Nothing,+      etag = Core.Nothing,+      firstSync = Core.Nothing,+      hardware = Core.Nothing,+      hardwareId = Core.Nothing,+      imei = Core.Nothing,+      kernelVersion = Core.Nothing,+      kind = "admin#directory#mobiledevice",+      lastSync = Core.Nothing,+      managedAccountIsOnOwnerProfile = Core.Nothing,+      manufacturer = Core.Nothing,+      meid = Core.Nothing,+      model = Core.Nothing,+      name = Core.Nothing,+      networkOperator = Core.Nothing,+      os = Core.Nothing,+      otherAccountsInfo = Core.Nothing,+      privilege = Core.Nothing,+      releaseVersion = Core.Nothing,+      resourceId = Core.Nothing,+      securityPatchLevel = Core.Nothing,+      serialNumber = Core.Nothing,+      status = Core.Nothing,+      supportsWorkProfile = Core.Nothing,+      type' = Core.Nothing,+      unknownSourcesStatus = Core.Nothing,+      userAgent = Core.Nothing,+      wifiMacAddress = Core.Nothing+    }++instance Core.FromJSON MobileDevice where+  parseJSON =+    Core.withObject+      "MobileDevice"+      ( \o ->+          MobileDevice+            Core.<$> (o Core..:? "adbStatus")+            Core.<*> (o Core..:? "applications")+            Core.<*> (o Core..:? "basebandVersion")+            Core.<*> (o Core..:? "bootloaderVersion")+            Core.<*> (o Core..:? "brand")+            Core.<*> (o Core..:? "buildNumber")+            Core.<*> (o Core..:? "defaultLanguage")+            Core.<*> (o Core..:? "developerOptionsStatus")+            Core.<*> (o Core..:? "deviceCompromisedStatus")+            Core.<*> (o Core..:? "deviceId")+            Core.<*> (o Core..:? "devicePasswordStatus")+            Core.<*> (o Core..:? "email")+            Core.<*> (o Core..:? "encryptionStatus")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "firstSync")+            Core.<*> (o Core..:? "hardware")+            Core.<*> (o Core..:? "hardwareId")+            Core.<*> (o Core..:? "imei")+            Core.<*> (o Core..:? "kernelVersion")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#mobiledevice")+            Core.<*> (o Core..:? "lastSync")+            Core.<*> (o Core..:? "managedAccountIsOnOwnerProfile")+            Core.<*> (o Core..:? "manufacturer")+            Core.<*> (o Core..:? "meid")+            Core.<*> (o Core..:? "model")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "networkOperator")+            Core.<*> (o Core..:? "os")+            Core.<*> (o Core..:? "otherAccountsInfo")+            Core.<*> (o Core..:? "privilege")+            Core.<*> (o Core..:? "releaseVersion")+            Core.<*> (o Core..:? "resourceId")+            Core.<*> ( o+                         Core..:? "securityPatchLevel"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> (o Core..:? "serialNumber")+            Core.<*> (o Core..:? "status")+            Core.<*> (o Core..:? "supportsWorkProfile")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "unknownSourcesStatus")+            Core.<*> (o Core..:? "userAgent")+            Core.<*> (o Core..:? "wifiMacAddress")+      )++instance Core.ToJSON MobileDevice where+  toJSON MobileDevice {..} =+    Core.object+      ( Core.catMaybes+          [ ("adbStatus" Core..=) Core.<$> adbStatus,+            ("applications" Core..=) Core.<$> applications,+            ("basebandVersion" Core..=) Core.<$> basebandVersion,+            ("bootloaderVersion" Core..=) Core.<$> bootloaderVersion,+            ("brand" Core..=) Core.<$> brand,+            ("buildNumber" Core..=) Core.<$> buildNumber,+            ("defaultLanguage" Core..=) Core.<$> defaultLanguage,+            ("developerOptionsStatus" Core..=) Core.<$> developerOptionsStatus,+            ("deviceCompromisedStatus" Core..=)+              Core.<$> deviceCompromisedStatus,+            ("deviceId" Core..=) Core.<$> deviceId,+            ("devicePasswordStatus" Core..=) Core.<$> devicePasswordStatus,+            ("email" Core..=) Core.<$> email,+            ("encryptionStatus" Core..=) Core.<$> encryptionStatus,+            ("etag" Core..=) Core.<$> etag,+            ("firstSync" Core..=) Core.<$> firstSync,+            ("hardware" Core..=) Core.<$> hardware,+            ("hardwareId" Core..=) Core.<$> hardwareId,+            ("imei" Core..=) Core.<$> imei,+            ("kernelVersion" Core..=) Core.<$> kernelVersion,+            Core.Just ("kind" Core..= kind),+            ("lastSync" Core..=) Core.<$> lastSync,+            ("managedAccountIsOnOwnerProfile" Core..=)+              Core.<$> managedAccountIsOnOwnerProfile,+            ("manufacturer" Core..=) Core.<$> manufacturer,+            ("meid" Core..=) Core.<$> meid,+            ("model" Core..=) Core.<$> model,+            ("name" Core..=) Core.<$> name,+            ("networkOperator" Core..=) Core.<$> networkOperator,+            ("os" Core..=) Core.<$> os,+            ("otherAccountsInfo" Core..=) Core.<$> otherAccountsInfo,+            ("privilege" Core..=) Core.<$> privilege,+            ("releaseVersion" Core..=) Core.<$> releaseVersion,+            ("resourceId" Core..=) Core.<$> resourceId,+            ("securityPatchLevel" Core..=)+              Core.. Core.AsText+              Core.<$> securityPatchLevel,+            ("serialNumber" Core..=) Core.<$> serialNumber,+            ("status" Core..=) Core.<$> status,+            ("supportsWorkProfile" Core..=) Core.<$> supportsWorkProfile,+            ("type" Core..=) Core.<$> type',+            ("unknownSourcesStatus" Core..=) Core.<$> unknownSourcesStatus,+            ("userAgent" Core..=) Core.<$> userAgent,+            ("wifiMacAddress" Core..=) Core.<$> wifiMacAddress+          ]+      )++--+-- /See:/ 'newMobileDevice_ApplicationsItem' smart constructor.+data MobileDevice_ApplicationsItem = MobileDevice_ApplicationsItem+  { -- | The application\'s display name. An example is @Browser@.+    displayName :: (Core.Maybe Core.Text),+    -- | The application\'s package name. An example is @com.android.browser@.+    packageName :: (Core.Maybe Core.Text),+    -- | The list of permissions of this application. These can be either a standard Android permission or one defined by the application, and are found in an application\'s <https://developer.android.com/guide/topics/manifest/uses-permission-element.html Android manifest>. Examples of a Calendar application\'s permissions are @READ_CALENDAR@, or @MANAGE_ACCOUNTS@.+    permission :: (Core.Maybe [Core.Text]),+    -- | The application\'s version code. An example is @13@.+    versionCode :: (Core.Maybe Core.Int32),+    -- | The application\'s version name. An example is @3.2-140714@.+    versionName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MobileDevice_ApplicationsItem' with the minimum fields required to make a request.+newMobileDevice_ApplicationsItem ::+  MobileDevice_ApplicationsItem+newMobileDevice_ApplicationsItem =+  MobileDevice_ApplicationsItem+    { displayName = Core.Nothing,+      packageName = Core.Nothing,+      permission = Core.Nothing,+      versionCode = Core.Nothing,+      versionName = Core.Nothing+    }++instance Core.FromJSON MobileDevice_ApplicationsItem where+  parseJSON =+    Core.withObject+      "MobileDevice_ApplicationsItem"+      ( \o ->+          MobileDevice_ApplicationsItem+            Core.<$> (o Core..:? "displayName")+            Core.<*> (o Core..:? "packageName")+            Core.<*> (o Core..:? "permission")+            Core.<*> (o Core..:? "versionCode")+            Core.<*> (o Core..:? "versionName")+      )++instance Core.ToJSON MobileDevice_ApplicationsItem where+  toJSON MobileDevice_ApplicationsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("displayName" Core..=) Core.<$> displayName,+            ("packageName" Core..=) Core.<$> packageName,+            ("permission" Core..=) Core.<$> permission,+            ("versionCode" Core..=) Core.<$> versionCode,+            ("versionName" Core..=) Core.<$> versionName+          ]+      )++--+-- /See:/ 'newMobileDeviceAction' smart constructor.+newtype MobileDeviceAction = MobileDeviceAction+  { -- | The action to be performed on the device.+    action :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MobileDeviceAction' with the minimum fields required to make a request.+newMobileDeviceAction ::+  MobileDeviceAction+newMobileDeviceAction = MobileDeviceAction {action = Core.Nothing}++instance Core.FromJSON MobileDeviceAction where+  parseJSON =+    Core.withObject+      "MobileDeviceAction"+      (\o -> MobileDeviceAction Core.<$> (o Core..:? "action"))++instance Core.ToJSON MobileDeviceAction where+  toJSON MobileDeviceAction {..} =+    Core.object (Core.catMaybes [("action" Core..=) Core.<$> action])++--+-- /See:/ 'newMobileDevices' smart constructor.+data MobileDevices = MobileDevices+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | Kind of resource this is.+    kind :: Core.Text,+    -- | A list of Mobile Device objects.+    mobiledevices :: (Core.Maybe [MobileDevice]),+    -- | Token used to access next page of this result.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MobileDevices' with the minimum fields required to make a request.+newMobileDevices ::+  MobileDevices+newMobileDevices =+  MobileDevices+    { etag = Core.Nothing,+      kind = "admin#directory#mobiledevices",+      mobiledevices = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON MobileDevices where+  parseJSON =+    Core.withObject+      "MobileDevices"+      ( \o ->+          MobileDevices+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#mobiledevices")+            Core.<*> (o Core..:? "mobiledevices")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON MobileDevices where+  toJSON MobileDevices {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind),+            ("mobiledevices" Core..=) Core.<$> mobiledevices,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | Managing your account\'s organizational units allows you to configure your users\' access to services and custom settings. For more information about common organizational unit tasks, see the </admin-sdk/directory/v1/guides/manage-org-units.html Developer\'s Guide>. The customer\'s organizational unit hierarchy is limited to 35 levels of depth.+--+-- /See:/ 'newOrgUnit' smart constructor.+data OrgUnit = OrgUnit+  { -- | This field is deprecated and setting its value has no effect.+    blockInheritance :: (Core.Maybe Core.Bool),+    -- | Description of the organizational unit.+    description :: (Core.Maybe Core.Text),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | The type of the API resource. For Orgunits resources, the value is @admin#directory#orgUnit@.+    kind :: Core.Text,+    -- | The organizational unit\'s path name. For example, an organizational unit\'s name within the \/corp\/support\/sales/support parent path is sales/support. Required.+    name :: (Core.Maybe Core.Text),+    -- | The unique ID of the organizational unit.+    orgUnitId :: (Core.Maybe Core.Text),+    -- | The full path to the organizational unit. The @orgUnitPath@ is a derived property. When listed, it is derived from @parentOrgunitPath@ and organizational unit\'s @name@. For example, for an organizational unit named \'apps\' under parent organization \'\/engineering\', the orgUnitPath is \'\/engineering\/apps\'. In order to edit an @orgUnitPath@, either update the name of the organization or the @parentOrgunitPath@. A user\'s organizational unit determines which Google Workspace services the user has access to. If the user is moved to a new organization, the user\'s access changes. For more information about organization structures, see the <https://support.google.com/a/answer/4352075 administration help center>. For more information about moving a user to a different organization, see </admin-sdk/directory/v1/guides/manage-users.html#update_user Update a user>.+    orgUnitPath :: (Core.Maybe Core.Text),+    -- | The unique ID of the parent organizational unit. Required, unless @parentOrgUnitPath@ is set.+    parentOrgUnitId :: (Core.Maybe Core.Text),+    -- | The organizational unit\'s parent path. For example, \/corp\/sales is the parent path for \/corp\/sales\/sales_support organizational unit. Required, unless @parentOrgUnitId@ is set.+    parentOrgUnitPath :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'OrgUnit' with the minimum fields required to make a request.+newOrgUnit ::+  OrgUnit+newOrgUnit =+  OrgUnit+    { blockInheritance = Core.Nothing,+      description = Core.Nothing,+      etag = Core.Nothing,+      kind = "admin#directory#orgUnit",+      name = Core.Nothing,+      orgUnitId = Core.Nothing,+      orgUnitPath = Core.Nothing,+      parentOrgUnitId = Core.Nothing,+      parentOrgUnitPath = Core.Nothing+    }++instance Core.FromJSON OrgUnit where+  parseJSON =+    Core.withObject+      "OrgUnit"+      ( \o ->+          OrgUnit+            Core.<$> (o Core..:? "blockInheritance")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#orgUnit")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "orgUnitId")+            Core.<*> (o Core..:? "orgUnitPath")+            Core.<*> (o Core..:? "parentOrgUnitId")+            Core.<*> (o Core..:? "parentOrgUnitPath")+      )++instance Core.ToJSON OrgUnit where+  toJSON OrgUnit {..} =+    Core.object+      ( Core.catMaybes+          [ ("blockInheritance" Core..=) Core.<$> blockInheritance,+            ("description" Core..=) Core.<$> description,+            ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind),+            ("name" Core..=) Core.<$> name,+            ("orgUnitId" Core..=) Core.<$> orgUnitId,+            ("orgUnitPath" Core..=) Core.<$> orgUnitPath,+            ("parentOrgUnitId" Core..=) Core.<$> parentOrgUnitId,+            ("parentOrgUnitPath" Core..=) Core.<$> parentOrgUnitPath+          ]+      )++--+-- /See:/ 'newOrgUnits' smart constructor.+data OrgUnits = OrgUnits+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | The type of the API resource. For Org Unit resources, the type is @admin#directory#orgUnits@.+    kind :: Core.Text,+    -- | A list of organizational unit objects.+    organizationUnits :: (Core.Maybe [OrgUnit])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'OrgUnits' with the minimum fields required to make a request.+newOrgUnits ::+  OrgUnits+newOrgUnits =+  OrgUnits+    { etag = Core.Nothing,+      kind = "admin#directory#orgUnits",+      organizationUnits = Core.Nothing+    }++instance Core.FromJSON OrgUnits where+  parseJSON =+    Core.withObject+      "OrgUnits"+      ( \o ->+          OrgUnits+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#orgUnits")+            Core.<*> (o Core..:? "organizationUnits")+      )++instance Core.ToJSON OrgUnits where+  toJSON OrgUnits {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind),+            ("organizationUnits" Core..=) Core.<$> organizationUnits+          ]+      )++-- | Contains information regarding the current OS update status.+--+-- /See:/ 'newOsUpdateStatus' smart constructor.+data OsUpdateStatus = OsUpdateStatus+  { -- | Date and time of the last reboot.+    rebootTime :: (Core.Maybe Core.Text),+    -- | The update state of an OS update.+    state :: (Core.Maybe OsUpdateStatus_State),+    -- | New required platform version from the pending updated kiosk app.+    targetKioskAppVersion :: (Core.Maybe Core.Text),+    -- | New platform version of the OS image being downloaded and applied. It is only set when update status is UPDATE/STATUS/DOWNLOAD/IN/PROGRESS or UPDATE/STATUS/NEED/REBOOT. Note this could be a dummy \"0.0.0.0\" for UPDATE/STATUS/NEED/REBOOT for some edge cases, e.g. update engine is restarted without a reboot.+    targetOsVersion :: (Core.Maybe Core.Text),+    -- | Date and time of the last update check.+    updateCheckTime :: (Core.Maybe Core.Text),+    -- | Date and time of the last successful OS update.+    updateTime :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'OsUpdateStatus' with the minimum fields required to make a request.+newOsUpdateStatus ::+  OsUpdateStatus+newOsUpdateStatus =+  OsUpdateStatus+    { rebootTime = Core.Nothing,+      state = Core.Nothing,+      targetKioskAppVersion = Core.Nothing,+      targetOsVersion = Core.Nothing,+      updateCheckTime = Core.Nothing,+      updateTime = Core.Nothing+    }++instance Core.FromJSON OsUpdateStatus where+  parseJSON =+    Core.withObject+      "OsUpdateStatus"+      ( \o ->+          OsUpdateStatus+            Core.<$> (o Core..:? "rebootTime")+            Core.<*> (o Core..:? "state")+            Core.<*> (o Core..:? "targetKioskAppVersion")+            Core.<*> (o Core..:? "targetOsVersion")+            Core.<*> (o Core..:? "updateCheckTime")+            Core.<*> (o Core..:? "updateTime")+      )++instance Core.ToJSON OsUpdateStatus where+  toJSON OsUpdateStatus {..} =+    Core.object+      ( Core.catMaybes+          [ ("rebootTime" Core..=) Core.<$> rebootTime,+            ("state" Core..=) Core.<$> state,+            ("targetKioskAppVersion" Core..=) Core.<$> targetKioskAppVersion,+            ("targetOsVersion" Core..=) Core.<$> targetOsVersion,+            ("updateCheckTime" Core..=) Core.<$> updateCheckTime,+            ("updateTime" Core..=) Core.<$> updateTime+          ]+      )++-- | Configuration for a print server.+--+-- /See:/ 'newPrintServer' smart constructor.+data PrintServer = PrintServer+  { -- | Output only. Time when the print server was created.+    createTime :: (Core.Maybe Core.DateTime),+    -- | Editable. Description of the print server (as shown in the Admin console).+    description :: (Core.Maybe Core.Text),+    -- | Editable. Display name of the print server (as shown in the Admin console).+    displayName :: (Core.Maybe Core.Text),+    -- | Immutable. ID of the print server. Leave empty when creating.+    id :: (Core.Maybe Core.Text),+    -- | Immutable. Resource name of the print server. Leave empty when creating. Format: @customers\/{customer.id}\/printServers\/{print_server.id}@+    name :: (Core.Maybe Core.Text),+    -- | ID of the organization unit (OU) that owns this print server. This value can only be set when the print server is initially created. If it\'s not populated, the print server is placed under the root OU. The @org_unit_id@ can be retrieved using the </admin-sdk/directory/reference/rest/v1/orgunits Directory API>.+    orgUnitId :: (Core.Maybe Core.Text),+    -- | Editable. Print server URI.+    uri :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PrintServer' with the minimum fields required to make a request.+newPrintServer ::+  PrintServer+newPrintServer =+  PrintServer+    { createTime = Core.Nothing,+      description = Core.Nothing,+      displayName = Core.Nothing,+      id = Core.Nothing,+      name = Core.Nothing,+      orgUnitId = Core.Nothing,+      uri = Core.Nothing+    }++instance Core.FromJSON PrintServer where+  parseJSON =+    Core.withObject+      "PrintServer"+      ( \o ->+          PrintServer+            Core.<$> (o Core..:? "createTime")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "displayName")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "orgUnitId")+            Core.<*> (o Core..:? "uri")+      )++instance Core.ToJSON PrintServer where+  toJSON PrintServer {..} =+    Core.object+      ( Core.catMaybes+          [ ("createTime" Core..=) Core.<$> createTime,+            ("description" Core..=) Core.<$> description,+            ("displayName" Core..=) Core.<$> displayName,+            ("id" Core..=) Core.<$> id,+            ("name" Core..=) Core.<$> name,+            ("orgUnitId" Core..=) Core.<$> orgUnitId,+            ("uri" Core..=) Core.<$> uri+          ]+      )++-- | Info about failures+--+-- /See:/ 'newPrintServerFailureInfo' smart constructor.+data PrintServerFailureInfo = PrintServerFailureInfo+  { -- | Canonical code for why the update failed to apply.+    errorCode :: (Core.Maybe PrintServerFailureInfo_ErrorCode),+    -- | Failure reason message.+    errorMessage :: (Core.Maybe Core.Text),+    -- | Failed print server.+    printServer :: (Core.Maybe PrintServer),+    -- | ID of a failed print server.+    printServerId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PrintServerFailureInfo' with the minimum fields required to make a request.+newPrintServerFailureInfo ::+  PrintServerFailureInfo+newPrintServerFailureInfo =+  PrintServerFailureInfo+    { errorCode = Core.Nothing,+      errorMessage = Core.Nothing,+      printServer = Core.Nothing,+      printServerId = Core.Nothing+    }++instance Core.FromJSON PrintServerFailureInfo where+  parseJSON =+    Core.withObject+      "PrintServerFailureInfo"+      ( \o ->+          PrintServerFailureInfo+            Core.<$> (o Core..:? "errorCode")+            Core.<*> (o Core..:? "errorMessage")+            Core.<*> (o Core..:? "printServer")+            Core.<*> (o Core..:? "printServerId")+      )++instance Core.ToJSON PrintServerFailureInfo where+  toJSON PrintServerFailureInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("errorCode" Core..=) Core.<$> errorCode,+            ("errorMessage" Core..=) Core.<$> errorMessage,+            ("printServer" Core..=) Core.<$> printServer,+            ("printServerId" Core..=) Core.<$> printServerId+          ]+      )++-- | Printer configuration.+--+-- /See:/ 'newPrinter' smart constructor.+data Printer = Printer+  { -- | Output only. Auxiliary messages about issues with the printer configuration if any.+    auxiliaryMessages :: (Core.Maybe [AuxiliaryMessage]),+    -- | Output only. Time when printer was created.+    createTime :: (Core.Maybe Core.DateTime),+    -- | Editable. Description of printer.+    description :: (Core.Maybe Core.Text),+    -- | Editable. Name of printer.+    displayName :: (Core.Maybe Core.Text),+    -- | Id of the printer. (During printer creation leave empty)+    id :: (Core.Maybe Core.Text),+    -- | Editable. Make and model of printer. e.g. Lexmark MS610de Value must be in format as seen in ListPrinterModels response.+    makeAndModel :: (Core.Maybe Core.Text),+    -- | The resource name of the Printer object, in the format customers\/{customer-id}\/printers\/{printer-id} (During printer creation leave empty)+    name :: (Core.Maybe Core.Text),+    -- | Organization Unit that owns this printer (Only can be set during Printer creation)+    orgUnitId :: (Core.Maybe Core.Text),+    -- | Editable. Printer URI.+    uri :: (Core.Maybe Core.Text),+    -- | Editable. flag to use driverless configuration or not. If it\'s set to be true, make/and/model can be ignored+    useDriverlessConfig :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Printer' with the minimum fields required to make a request.+newPrinter ::+  Printer+newPrinter =+  Printer+    { auxiliaryMessages = Core.Nothing,+      createTime = Core.Nothing,+      description = Core.Nothing,+      displayName = Core.Nothing,+      id = Core.Nothing,+      makeAndModel = Core.Nothing,+      name = Core.Nothing,+      orgUnitId = Core.Nothing,+      uri = Core.Nothing,+      useDriverlessConfig = Core.Nothing+    }++instance Core.FromJSON Printer where+  parseJSON =+    Core.withObject+      "Printer"+      ( \o ->+          Printer+            Core.<$> (o Core..:? "auxiliaryMessages")+            Core.<*> (o Core..:? "createTime")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "displayName")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "makeAndModel")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "orgUnitId")+            Core.<*> (o Core..:? "uri")+            Core.<*> (o Core..:? "useDriverlessConfig")+      )++instance Core.ToJSON Printer where+  toJSON Printer {..} =+    Core.object+      ( Core.catMaybes+          [ ("auxiliaryMessages" Core..=) Core.<$> auxiliaryMessages,+            ("createTime" Core..=) Core.<$> createTime,+            ("description" Core..=) Core.<$> description,+            ("displayName" Core..=) Core.<$> displayName,+            ("id" Core..=) Core.<$> id,+            ("makeAndModel" Core..=) Core.<$> makeAndModel,+            ("name" Core..=) Core.<$> name,+            ("orgUnitId" Core..=) Core.<$> orgUnitId,+            ("uri" Core..=) Core.<$> uri,+            ("useDriverlessConfig" Core..=) Core.<$> useDriverlessConfig+          ]+      )++-- | Printer manufacturer and model+--+-- /See:/ 'newPrinterModel' smart constructor.+data PrinterModel = PrinterModel+  { -- | Display name. eq. \"Brother MFC-8840D\"+    displayName :: (Core.Maybe Core.Text),+    -- | Make and model as represented in \"make/and/model\" field in Printer object. eq. \"brother mfc-8840d\"+    makeAndModel :: (Core.Maybe Core.Text),+    -- | Manufacturer. eq. \"Brother\"+    manufacturer :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PrinterModel' with the minimum fields required to make a request.+newPrinterModel ::+  PrinterModel+newPrinterModel =+  PrinterModel+    { displayName = Core.Nothing,+      makeAndModel = Core.Nothing,+      manufacturer = Core.Nothing+    }++instance Core.FromJSON PrinterModel where+  parseJSON =+    Core.withObject+      "PrinterModel"+      ( \o ->+          PrinterModel+            Core.<$> (o Core..:? "displayName")+            Core.<*> (o Core..:? "makeAndModel")+            Core.<*> (o Core..:? "manufacturer")+      )++instance Core.ToJSON PrinterModel where+  toJSON PrinterModel {..} =+    Core.object+      ( Core.catMaybes+          [ ("displayName" Core..=) Core.<$> displayName,+            ("makeAndModel" Core..=) Core.<$> makeAndModel,+            ("manufacturer" Core..=) Core.<$> manufacturer+          ]+      )++--+-- /See:/ 'newPrivilege' smart constructor.+data Privilege = Privilege+  { -- | A list of child privileges. Privileges for a service form a tree. Each privilege can have a list of child privileges; this list is empty for a leaf privilege.+    childPrivileges :: (Core.Maybe [Privilege]),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | If the privilege can be restricted to an organization unit.+    isOuScopable :: (Core.Maybe Core.Bool),+    -- | The type of the API resource. This is always @admin#directory#privilege@.+    kind :: Core.Text,+    -- | The name of the privilege.+    privilegeName :: (Core.Maybe Core.Text),+    -- | The obfuscated ID of the service this privilege is for. This value is returned with </admin-sdk/directory/v1/reference/privileges/list Privileges.list()>.+    serviceId :: (Core.Maybe Core.Text),+    -- | The name of the service this privilege is for.+    serviceName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Privilege' with the minimum fields required to make a request.+newPrivilege ::+  Privilege+newPrivilege =+  Privilege+    { childPrivileges = Core.Nothing,+      etag = Core.Nothing,+      isOuScopable = Core.Nothing,+      kind = "admin#directory#privilege",+      privilegeName = Core.Nothing,+      serviceId = Core.Nothing,+      serviceName = Core.Nothing+    }++instance Core.FromJSON Privilege where+  parseJSON =+    Core.withObject+      "Privilege"+      ( \o ->+          Privilege+            Core.<$> (o Core..:? "childPrivileges")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "isOuScopable")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#privilege")+            Core.<*> (o Core..:? "privilegeName")+            Core.<*> (o Core..:? "serviceId")+            Core.<*> (o Core..:? "serviceName")+      )++instance Core.ToJSON Privilege where+  toJSON Privilege {..} =+    Core.object+      ( Core.catMaybes+          [ ("childPrivileges" Core..=) Core.<$> childPrivileges,+            ("etag" Core..=) Core.<$> etag,+            ("isOuScopable" Core..=) Core.<$> isOuScopable,+            Core.Just ("kind" Core..= kind),+            ("privilegeName" Core..=) Core.<$> privilegeName,+            ("serviceId" Core..=) Core.<$> serviceId,+            ("serviceName" Core..=) Core.<$> serviceName+          ]+      )++--+-- /See:/ 'newPrivileges' smart constructor.+data Privileges = Privileges+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | A list of Privilege resources.+    items :: (Core.Maybe [Privilege]),+    -- | The type of the API resource. This is always @admin#directory#privileges@.+    kind :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Privileges' with the minimum fields required to make a request.+newPrivileges ::+  Privileges+newPrivileges =+  Privileges+    { etag = Core.Nothing,+      items = Core.Nothing,+      kind = "admin#directory#privileges"+    }++instance Core.FromJSON Privileges where+  parseJSON =+    Core.withObject+      "Privileges"+      ( \o ->+          Privileges+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "items")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#privileges")+      )++instance Core.ToJSON Privileges where+  toJSON Privileges {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("items" Core..=) Core.<$> items,+            Core.Just ("kind" Core..= kind)+          ]+      )++--+-- /See:/ 'newRole' smart constructor.+data Role = Role+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | Returns @true@ if the role is a super admin role.+    isSuperAdminRole :: (Core.Maybe Core.Bool),+    -- | Returns @true@ if this is a pre-defined system role.+    isSystemRole :: (Core.Maybe Core.Bool),+    -- | The type of the API resource. This is always @admin#directory#role@.+    kind :: Core.Text,+    -- | A short description of the role.+    roleDescription :: (Core.Maybe Core.Text),+    -- | ID of the role.+    roleId :: (Core.Maybe Core.Int64),+    -- | Name of the role.+    roleName :: (Core.Maybe Core.Text),+    -- | The set of privileges that are granted to this role.+    rolePrivileges :: (Core.Maybe [Role_RolePrivilegesItem])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Role' with the minimum fields required to make a request.+newRole ::+  Role+newRole =+  Role+    { etag = Core.Nothing,+      isSuperAdminRole = Core.Nothing,+      isSystemRole = Core.Nothing,+      kind = "admin#directory#role",+      roleDescription = Core.Nothing,+      roleId = Core.Nothing,+      roleName = Core.Nothing,+      rolePrivileges = Core.Nothing+    }++instance Core.FromJSON Role where+  parseJSON =+    Core.withObject+      "Role"+      ( \o ->+          Role+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "isSuperAdminRole")+            Core.<*> (o Core..:? "isSystemRole")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#role")+            Core.<*> (o Core..:? "roleDescription")+            Core.<*> (o Core..:? "roleId" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "roleName")+            Core.<*> (o Core..:? "rolePrivileges")+      )++instance Core.ToJSON Role where+  toJSON Role {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("isSuperAdminRole" Core..=) Core.<$> isSuperAdminRole,+            ("isSystemRole" Core..=) Core.<$> isSystemRole,+            Core.Just ("kind" Core..= kind),+            ("roleDescription" Core..=) Core.<$> roleDescription,+            ("roleId" Core..=) Core.. Core.AsText Core.<$> roleId,+            ("roleName" Core..=) Core.<$> roleName,+            ("rolePrivileges" Core..=) Core.<$> rolePrivileges+          ]+      )++--+-- /See:/ 'newRole_RolePrivilegesItem' smart constructor.+data Role_RolePrivilegesItem = Role_RolePrivilegesItem+  { -- | The name of the privilege.+    privilegeName :: (Core.Maybe Core.Text),+    -- | The obfuscated ID of the service this privilege is for. This value is returned with </admin-sdk/directory/v1/reference/privileges/list Privileges.list()>.+    serviceId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Role_RolePrivilegesItem' with the minimum fields required to make a request.+newRole_RolePrivilegesItem ::+  Role_RolePrivilegesItem+newRole_RolePrivilegesItem =+  Role_RolePrivilegesItem+    { privilegeName = Core.Nothing,+      serviceId = Core.Nothing+    }++instance Core.FromJSON Role_RolePrivilegesItem where+  parseJSON =+    Core.withObject+      "Role_RolePrivilegesItem"+      ( \o ->+          Role_RolePrivilegesItem+            Core.<$> (o Core..:? "privilegeName")+            Core.<*> (o Core..:? "serviceId")+      )++instance Core.ToJSON Role_RolePrivilegesItem where+  toJSON Role_RolePrivilegesItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("privilegeName" Core..=) Core.<$> privilegeName,+            ("serviceId" Core..=) Core.<$> serviceId+          ]+      )++-- | Defines an assignment of a role.+--+-- /See:/ 'newRoleAssignment' smart constructor.+data RoleAssignment = RoleAssignment+  { -- | The unique ID of the entity this role is assigned to—either the @user_id@ of a user, the @group_id@ of a group, or the @uniqueId@ of a service account as defined in <https://cloud.google.com/iam/docs/reference/rest/v1/projects.serviceAccounts Identity and Access Management (IAM)>.+    assignedTo :: (Core.Maybe Core.Text),+    -- | Output only. The type of the assignee (@USER@ or @GROUP@).+    assigneeType :: (Core.Maybe RoleAssignment_AssigneeType),+    -- | Optional. The condition associated with this role assignment. Note: Feature is available to Enterprise Standard, Enterprise Plus, Google Workspace for Education Plus and Cloud Identity Premium customers. A @RoleAssignment@ with the @condition@ field set will only take effect when the resource being accessed meets the condition. If @condition@ is empty, the role (@role_id@) is applied to the actor (@assigned_to@) at the scope (@scope_type@) unconditionally. Currently, the following conditions are supported: - To make the @RoleAssignment@ only applicable to <https://cloud.google.com/identity/docs/groups#group_types Security Groups>: @api.getAttribute(\'cloudidentity.googleapis.com\/groups.labels\', []).hasAny([\'groups.security\']) && resource.type == \'cloudidentity.googleapis.com\/Group\'@ - To make the @RoleAssignment@ not applicable to <https://cloud.google.com/identity/docs/groups#group_types Security Groups>:+    -- @!api.getAttribute(\'cloudidentity.googleapis.com\/groups.labels\', []).hasAny([\'groups.security\']) && resource.type == \'cloudidentity.googleapis.com\/Group\'@ Currently, the condition strings have to be verbatim and they only work with the following <https://support.google.com/a/answer/2405986 pre-built administrator roles>: - Groups Editor - Groups Reader The condition follows <https://cloud.google.com/iam/docs/conditions-overview Cloud IAM condition syntax>. Additional conditions related to Locked Groups are available under Open Beta. - To make the @RoleAssignment@ not applicable to <https://cloud.google.com/identity/docs/groups#group_types Locked Groups>: @!api.getAttribute(\'cloudidentity.googleapis.com\/groups.labels\', []).hasAny([\'groups.locked\']) && resource.type == \'cloudidentity.googleapis.com\/Group\'@ This condition can also be used in conjunction with a Security-related condition.+    condition :: (Core.Maybe Core.Text),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | The type of the API resource. This is always @admin#directory#roleAssignment@.+    kind :: Core.Text,+    -- | If the role is restricted to an organization unit, this contains the ID for the organization unit the exercise of this role is restricted to.+    orgUnitId :: (Core.Maybe Core.Text),+    -- | ID of this roleAssignment.+    roleAssignmentId :: (Core.Maybe Core.Int64),+    -- | The ID of the role that is assigned.+    roleId :: (Core.Maybe Core.Int64),+    -- | The scope in which this role is assigned.+    scopeType :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RoleAssignment' with the minimum fields required to make a request.+newRoleAssignment ::+  RoleAssignment+newRoleAssignment =+  RoleAssignment+    { assignedTo = Core.Nothing,+      assigneeType = Core.Nothing,+      condition = Core.Nothing,+      etag = Core.Nothing,+      kind = "admin#directory#roleAssignment",+      orgUnitId = Core.Nothing,+      roleAssignmentId = Core.Nothing,+      roleId = Core.Nothing,+      scopeType = Core.Nothing+    }++instance Core.FromJSON RoleAssignment where+  parseJSON =+    Core.withObject+      "RoleAssignment"+      ( \o ->+          RoleAssignment+            Core.<$> (o Core..:? "assignedTo")+            Core.<*> (o Core..:? "assigneeType")+            Core.<*> (o Core..:? "condition")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#roleAssignment")+            Core.<*> (o Core..:? "orgUnitId")+            Core.<*> (o Core..:? "roleAssignmentId" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "roleId" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "scopeType")+      )++instance Core.ToJSON RoleAssignment where+  toJSON RoleAssignment {..} =+    Core.object+      ( Core.catMaybes+          [ ("assignedTo" Core..=) Core.<$> assignedTo,+            ("assigneeType" Core..=) Core.<$> assigneeType,+            ("condition" Core..=) Core.<$> condition,+            ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind),+            ("orgUnitId" Core..=) Core.<$> orgUnitId,+            ("roleAssignmentId" Core..=)+              Core.. Core.AsText+              Core.<$> roleAssignmentId,+            ("roleId" Core..=) Core.. Core.AsText Core.<$> roleId,+            ("scopeType" Core..=) Core.<$> scopeType+          ]+      )++--+-- /See:/ 'newRoleAssignments' smart constructor.+data RoleAssignments = RoleAssignments+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | A list of RoleAssignment resources.+    items :: (Core.Maybe [RoleAssignment]),+    -- | The type of the API resource. This is always @admin#directory#roleAssignments@.+    kind :: Core.Text,+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RoleAssignments' with the minimum fields required to make a request.+newRoleAssignments ::+  RoleAssignments+newRoleAssignments =+  RoleAssignments+    { etag = Core.Nothing,+      items = Core.Nothing,+      kind = "admin#directory#roleAssignments",+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON RoleAssignments where+  parseJSON =+    Core.withObject+      "RoleAssignments"+      ( \o ->+          RoleAssignments+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "items")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#roleAssignments")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON RoleAssignments where+  toJSON RoleAssignments {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("items" Core..=) Core.<$> items,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++--+-- /See:/ 'newRoles' smart constructor.+data Roles = Roles+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | A list of Role resources.+    items :: (Core.Maybe [Role]),+    -- | The type of the API resource. This is always @admin#directory#roles@.+    kind :: Core.Text,+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Roles' with the minimum fields required to make a request.+newRoles ::+  Roles+newRoles =+  Roles+    { etag = Core.Nothing,+      items = Core.Nothing,+      kind = "admin#directory#roles",+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON Roles where+  parseJSON =+    Core.withObject+      "Roles"+      ( \o ->+          Roles+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "items")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#roles")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON Roles where+  toJSON Roles {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("items" Core..=) Core.<$> items,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | The type of API resource. For Schema resources, this is always @admin#directory#schema@.+--+-- /See:/ 'newSchema' smart constructor.+data Schema = Schema+  { -- | Display name for the schema.+    displayName :: (Core.Maybe Core.Text),+    -- | The ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | A list of fields in the schema.+    fields :: (Core.Maybe [SchemaFieldSpec]),+    -- | Kind of resource this is.+    kind :: Core.Text,+    -- | The unique identifier of the schema (Read-only)+    schemaId :: (Core.Maybe Core.Text),+    -- | The schema\'s name. Each @schema_name@ must be unique within a customer. Reusing a name results in a @409: Entity already exists@ error.+    schemaName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Schema' with the minimum fields required to make a request.+newSchema ::+  Schema+newSchema =+  Schema+    { displayName = Core.Nothing,+      etag = Core.Nothing,+      fields = Core.Nothing,+      kind = "admin#directory#schema",+      schemaId = Core.Nothing,+      schemaName = Core.Nothing+    }++instance Core.FromJSON Schema where+  parseJSON =+    Core.withObject+      "Schema"+      ( \o ->+          Schema+            Core.<$> (o Core..:? "displayName")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "fields")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#schema")+            Core.<*> (o Core..:? "schemaId")+            Core.<*> (o Core..:? "schemaName")+      )++instance Core.ToJSON Schema where+  toJSON Schema {..} =+    Core.object+      ( Core.catMaybes+          [ ("displayName" Core..=) Core.<$> displayName,+            ("etag" Core..=) Core.<$> etag,+            ("fields" Core..=) Core.<$> fields,+            Core.Just ("kind" Core..= kind),+            ("schemaId" Core..=) Core.<$> schemaId,+            ("schemaName" Core..=) Core.<$> schemaName+          ]+      )++-- | You can use schemas to add custom fields to user profiles. You can use these fields to store information such as the projects your users work on, their physical locations, their hire dates, or whatever else fits your business needs. For more information, see </admin-sdk/directory/v1/guides/manage-schemas Custom User Fields>.+--+-- /See:/ 'newSchemaFieldSpec' smart constructor.+data SchemaFieldSpec = SchemaFieldSpec+  { -- | Display Name of the field.+    displayName :: (Core.Maybe Core.Text),+    -- | The ETag of the field.+    etag :: (Core.Maybe Core.Text),+    -- | The unique identifier of the field (Read-only)+    fieldId :: (Core.Maybe Core.Text),+    -- | The name of the field.+    fieldName :: (Core.Maybe Core.Text),+    -- | The type of the field.+    fieldType :: (Core.Maybe Core.Text),+    -- | Boolean specifying whether the field is indexed or not. Default: @true@.+    indexed :: Core.Bool,+    -- | The kind of resource this is. For schema fields this is always @admin#directory#schema#fieldspec@.+    kind :: Core.Text,+    -- | A boolean specifying whether this is a multi-valued field or not. Default: @false@.+    multiValued :: (Core.Maybe Core.Bool),+    -- | Indexing spec for a numeric field. By default, only exact match queries will be supported for numeric fields. Setting the @numericIndexingSpec@ allows range queries to be supported.+    numericIndexingSpec :: (Core.Maybe SchemaFieldSpec_NumericIndexingSpec),+    -- | Specifies who can view values of this field. See </admin-sdk/directory/v1/guides/manage-users#retrieve_users_non_admin Retrieve users as a non-administrator> for more information. Note: It may take up to 24 hours for changes to this field to be reflected.+    readAccessType :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SchemaFieldSpec' with the minimum fields required to make a request.+newSchemaFieldSpec ::+  SchemaFieldSpec+newSchemaFieldSpec =+  SchemaFieldSpec+    { displayName = Core.Nothing,+      etag = Core.Nothing,+      fieldId = Core.Nothing,+      fieldName = Core.Nothing,+      fieldType = Core.Nothing,+      indexed = Core.True,+      kind = "admin#directory#schema#fieldspec",+      multiValued = Core.Nothing,+      numericIndexingSpec = Core.Nothing,+      readAccessType = "ALL_DOMAIN_USERS"+    }++instance Core.FromJSON SchemaFieldSpec where+  parseJSON =+    Core.withObject+      "SchemaFieldSpec"+      ( \o ->+          SchemaFieldSpec+            Core.<$> (o Core..:? "displayName")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "fieldId")+            Core.<*> (o Core..:? "fieldName")+            Core.<*> (o Core..:? "fieldType")+            Core.<*> (o Core..:? "indexed" Core..!= Core.True)+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#schema#fieldspec")+            Core.<*> (o Core..:? "multiValued")+            Core.<*> (o Core..:? "numericIndexingSpec")+            Core.<*> (o Core..:? "readAccessType" Core..!= "ALL_DOMAIN_USERS")+      )++instance Core.ToJSON SchemaFieldSpec where+  toJSON SchemaFieldSpec {..} =+    Core.object+      ( Core.catMaybes+          [ ("displayName" Core..=) Core.<$> displayName,+            ("etag" Core..=) Core.<$> etag,+            ("fieldId" Core..=) Core.<$> fieldId,+            ("fieldName" Core..=) Core.<$> fieldName,+            ("fieldType" Core..=) Core.<$> fieldType,+            Core.Just ("indexed" Core..= indexed),+            Core.Just ("kind" Core..= kind),+            ("multiValued" Core..=) Core.<$> multiValued,+            ("numericIndexingSpec" Core..=) Core.<$> numericIndexingSpec,+            Core.Just ("readAccessType" Core..= readAccessType)+          ]+      )++-- | Indexing spec for a numeric field. By default, only exact match queries will be supported for numeric fields. Setting the @numericIndexingSpec@ allows range queries to be supported.+--+-- /See:/ 'newSchemaFieldSpec_NumericIndexingSpec' smart constructor.+data SchemaFieldSpec_NumericIndexingSpec = SchemaFieldSpec_NumericIndexingSpec+  { -- | Maximum value of this field. This is meant to be indicative rather than enforced. Values outside this range will still be indexed, but search may not be as performant.+    maxValue :: (Core.Maybe Core.Double),+    -- | Minimum value of this field. This is meant to be indicative rather than enforced. Values outside this range will still be indexed, but search may not be as performant.+    minValue :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SchemaFieldSpec_NumericIndexingSpec' with the minimum fields required to make a request.+newSchemaFieldSpec_NumericIndexingSpec ::+  SchemaFieldSpec_NumericIndexingSpec+newSchemaFieldSpec_NumericIndexingSpec =+  SchemaFieldSpec_NumericIndexingSpec+    { maxValue = Core.Nothing,+      minValue = Core.Nothing+    }++instance Core.FromJSON SchemaFieldSpec_NumericIndexingSpec where+  parseJSON =+    Core.withObject+      "SchemaFieldSpec_NumericIndexingSpec"+      ( \o ->+          SchemaFieldSpec_NumericIndexingSpec+            Core.<$> (o Core..:? "maxValue")+            Core.<*> (o Core..:? "minValue")+      )++instance Core.ToJSON SchemaFieldSpec_NumericIndexingSpec where+  toJSON SchemaFieldSpec_NumericIndexingSpec {..} =+    Core.object+      ( Core.catMaybes+          [ ("maxValue" Core..=) Core.<$> maxValue,+            ("minValue" Core..=) Core.<$> minValue+          ]+      )++-- | JSON response template for List Schema operation in Directory API.+--+-- /See:/ 'newSchemas' smart constructor.+data Schemas = Schemas+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | Kind of resource this is.+    kind :: Core.Text,+    -- | A list of UserSchema objects.+    schemas :: (Core.Maybe [Schema])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Schemas' with the minimum fields required to make a request.+newSchemas ::+  Schemas+newSchemas =+  Schemas+    { etag = Core.Nothing,+      kind = "admin#directory#schemas",+      schemas = Core.Nothing+    }++instance Core.FromJSON Schemas where+  parseJSON =+    Core.withObject+      "Schemas"+      ( \o ->+          Schemas+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#schemas")+            Core.<*> (o Core..:? "schemas")+      )++instance Core.ToJSON Schemas where+  toJSON Schemas {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind),+            ("schemas" Core..=) Core.<$> schemas+          ]+      )++-- | The @Status@ type defines a logical error model that is suitable for different programming environments, including REST APIs and RPC APIs. It is used by <https://github.com/grpc gRPC>. Each @Status@ message contains three pieces of data: error code, error message, and error details. You can find out more about this error model and how to work with it in the <https://cloud.google.com/apis/design/errors API Design Guide>.+--+-- /See:/ 'newStatus' smart constructor.+data Status = Status+  { -- | The status code, which should be an enum value of google.rpc.Code.+    code :: (Core.Maybe Core.Int32),+    -- | A list of messages that carry the error details. There is a common set of message types for APIs to use.+    details :: (Core.Maybe [Status_DetailsItem]),+    -- | A developer-facing error message, which should be in English. Any user-facing error message should be localized and sent in the google.rpc.Status.details field, or localized by the client.+    message :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Status' with the minimum fields required to make a request.+newStatus ::+  Status+newStatus =+  Status+    { code = Core.Nothing,+      details = Core.Nothing,+      message = Core.Nothing+    }++instance Core.FromJSON Status where+  parseJSON =+    Core.withObject+      "Status"+      ( \o ->+          Status+            Core.<$> (o Core..:? "code")+            Core.<*> (o Core..:? "details")+            Core.<*> (o Core..:? "message")+      )++instance Core.ToJSON Status where+  toJSON Status {..} =+    Core.object+      ( Core.catMaybes+          [ ("code" Core..=) Core.<$> code,+            ("details" Core..=) Core.<$> details,+            ("message" Core..=) Core.<$> message+          ]+      )++--+-- /See:/ 'newStatus_DetailsItem' smart constructor.+newtype Status_DetailsItem = Status_DetailsItem+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Status_DetailsItem' with the minimum fields required to make a request.+newStatus_DetailsItem ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Status_DetailsItem+newStatus_DetailsItem additional =+  Status_DetailsItem {additional = additional}++instance Core.FromJSON Status_DetailsItem where+  parseJSON =+    Core.withObject+      "Status_DetailsItem"+      (\o -> Status_DetailsItem Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Status_DetailsItem where+  toJSON Status_DetailsItem {..} = Core.toJSON additional++-- | JSON template for token resource in Directory API.+--+-- /See:/ 'newToken' smart constructor.+data Token = Token+  { -- | Whether the application is registered with Google. The value is @true@ if the application has an anonymous Client ID.+    anonymous :: (Core.Maybe Core.Bool),+    -- | The Client ID of the application the token is issued to.+    clientId :: (Core.Maybe Core.Text),+    -- | The displayable name of the application the token is issued to.+    displayText :: (Core.Maybe Core.Text),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | The type of the API resource. This is always @admin#directory#token@.+    kind :: Core.Text,+    -- | Whether the token is issued to an installed application. The value is @true@ if the application is installed to a desktop or mobile device.+    nativeApp :: (Core.Maybe Core.Bool),+    -- | A list of authorization scopes the application is granted.+    scopes :: (Core.Maybe [Core.Text]),+    -- | The unique ID of the user that issued the token.+    userKey :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Token' with the minimum fields required to make a request.+newToken ::+  Token+newToken =+  Token+    { anonymous = Core.Nothing,+      clientId = Core.Nothing,+      displayText = Core.Nothing,+      etag = Core.Nothing,+      kind = "admin#directory#token",+      nativeApp = Core.Nothing,+      scopes = Core.Nothing,+      userKey = Core.Nothing+    }++instance Core.FromJSON Token where+  parseJSON =+    Core.withObject+      "Token"+      ( \o ->+          Token+            Core.<$> (o Core..:? "anonymous")+            Core.<*> (o Core..:? "clientId")+            Core.<*> (o Core..:? "displayText")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#token")+            Core.<*> (o Core..:? "nativeApp")+            Core.<*> (o Core..:? "scopes")+            Core.<*> (o Core..:? "userKey")+      )++instance Core.ToJSON Token where+  toJSON Token {..} =+    Core.object+      ( Core.catMaybes+          [ ("anonymous" Core..=) Core.<$> anonymous,+            ("clientId" Core..=) Core.<$> clientId,+            ("displayText" Core..=) Core.<$> displayText,+            ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind),+            ("nativeApp" Core..=) Core.<$> nativeApp,+            ("scopes" Core..=) Core.<$> scopes,+            ("userKey" Core..=) Core.<$> userKey+          ]+      )++-- | JSON response template for List tokens operation in Directory API.+--+-- /See:/ 'newTokens' smart constructor.+data Tokens = Tokens+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | A list of Token resources.+    items :: (Core.Maybe [Token]),+    -- | The type of the API resource. This is always @admin#directory#tokenList@.+    kind :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Tokens' with the minimum fields required to make a request.+newTokens ::+  Tokens+newTokens =+  Tokens+    { etag = Core.Nothing,+      items = Core.Nothing,+      kind = "admin#directory#tokenList"+    }++instance Core.FromJSON Tokens where+  parseJSON =+    Core.withObject+      "Tokens"+      ( \o ->+          Tokens+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "items")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#tokenList")+      )++instance Core.ToJSON Tokens where+  toJSON Tokens {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("items" Core..=) Core.<$> items,+            Core.Just ("kind" Core..= kind)+          ]+      )++-- | The Directory API allows you to create and manage your account\'s users, user aliases, and user Google profile photos. For more information about common tasks, see the </admin-sdk/directory/v1/guides/manage-users.html User Accounts Developer\'s Guide> and the </admin-sdk/directory/v1/guides/manage-user-aliases.html User Aliases Developer\'s Guide>.+--+-- /See:/ 'newUser' smart constructor.+data User = User+  { -- | The list of the user\'s addresses. The maximum allowed data size for this field is 10KB.+    addresses :: (Core.Maybe Core.Value),+    -- | Output only. This property is @true@ if the user has completed an initial login and accepted the Terms of Service agreement.+    agreedToTerms :: (Core.Maybe Core.Bool),+    -- | Output only. The list of the user\'s alias email addresses.+    aliases :: (Core.Maybe [Core.Text]),+    -- | Indicates if user is archived.+    archived :: (Core.Maybe Core.Bool),+    -- | Indicates if the user is forced to change their password at next login. This setting doesn\'t apply when <https://support.google.com/a/answer/60224 the user signs in via a third-party identity provider>.+    changePasswordAtNextLogin :: (Core.Maybe Core.Bool),+    -- | User\'s G Suite account creation time. (Read-only)+    creationTime :: (Core.Maybe Core.DateTime),+    -- | Custom fields of the user. The key is a @schema_name@ and its values are @\'field_name\': \'field_value\'@.+    customSchemas :: (Core.Maybe User_CustomSchemas),+    -- | Output only. The customer ID to </admin-sdk/directory/v1/guides/manage-users.html#get_all_users retrieve all account users>. You can use the alias @my_customer@ to represent your account\'s @customerId@. As a reseller administrator, you can use the resold customer account\'s @customerId@. To get a @customerId@, use the account\'s primary domain in the @domain@ parameter of a </admin-sdk/directory/v1/reference/users/list users.list> request.+    customerId :: (Core.Maybe Core.Text),+    deletionTime :: (Core.Maybe Core.DateTime),+    -- | The list of the user\'s email addresses. The maximum allowed data size for this field is 10KB. This excludes @publicKeyEncryptionCertificates@.+    emails :: (Core.Maybe Core.Value),+    -- | Output only. ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | The list of external IDs for the user, such as an employee or network ID. The maximum allowed data size for this field is 2KB.+    externalIds :: (Core.Maybe Core.Value),+    -- | The user\'s gender. The maximum allowed data size for this field is 1KB.+    gender :: (Core.Maybe Core.Value),+    -- | Stores the hash format of the @password@ property. The following @hashFunction@ values are allowed: * @MD5@ - Accepts simple hex-encoded values. * @SHA-1@ - Accepts simple hex-encoded values. * @crypt@ - Compliant with the <https://en.wikipedia.org/wiki/Crypt_%28C%29 C crypt library>. Supports the DES, MD5 (hash prefix @$1$@), SHA-256 (hash prefix @$5$@), and SHA-512 (hash prefix @$6$@) hash algorithms. If rounds are specified as part of the prefix, they must be 10,000 or fewer.+    hashFunction :: (Core.Maybe Core.Text),+    -- | The unique ID for the user. A user @id@ can be used as a user request URI\'s @userKey@.+    id :: (Core.Maybe Core.Text),+    -- | The list of the user\'s Instant Messenger (IM) accounts. A user account can have multiple ims properties. But, only one of these ims properties can be the primary IM contact. The maximum allowed data size for this field is 2KB.+    ims :: (Core.Maybe Core.Value),+    -- | Indicates if the user\'s profile is visible in the Google Workspace global address list when the contact sharing feature is enabled for the domain. For more information about excluding user profiles, see the <https://support.google.com/a/answer/1285988 administration help center>.+    includeInGlobalAddressList :: (Core.Maybe Core.Bool),+    -- | If @true@, the user\'s IP address is subject to a deprecated IP address <https://support.google.com/a/answer/60752 allowlist> configuration.+    ipWhitelisted :: (Core.Maybe Core.Bool),+    -- | Output only. Indicates a user with super admininistrator privileges. The @isAdmin@ property can only be edited in the </admin-sdk/directory/v1/guides/manage-users.html#make_admin Make a user an administrator> operation ( </admin-sdk/directory/v1/reference/users/makeAdmin.html makeAdmin> method). If edited in the user </admin-sdk/directory/v1/reference/users/insert.html insert> or </admin-sdk/directory/v1/reference/users/update.html update> methods, the edit is ignored by the API service.+    isAdmin :: (Core.Maybe Core.Bool),+    -- | Output only. Indicates if the user is a delegated administrator. Delegated administrators are supported by the API but cannot create or undelete users, or make users administrators. These requests are ignored by the API service. Roles and privileges for administrators are assigned using the <https://support.google.com/a/answer/33325 Admin console>.+    isDelegatedAdmin :: (Core.Maybe Core.Bool),+    -- | Output only. Is 2-step verification enforced (Read-only)+    isEnforcedIn2Sv :: (Core.Maybe Core.Bool),+    -- | Output only. Is enrolled in 2-step verification (Read-only)+    isEnrolledIn2Sv :: (Core.Maybe Core.Bool),+    -- | Output only. Indicates if the user\'s Google mailbox is created. This property is only applicable if the user has been assigned a Gmail license.+    isMailboxSetup :: (Core.Maybe Core.Bool),+    -- | The list of the user\'s keywords. The maximum allowed data size for this field is 1KB.+    keywords :: (Core.Maybe Core.Value),+    -- | Output only. The type of the API resource. For Users resources, the value is @admin#directory#user@.+    kind :: Core.Text,+    -- | The user\'s languages. The maximum allowed data size for this field is 1KB.+    languages :: (Core.Maybe Core.Value),+    -- | User\'s last login time. (Read-only)+    lastLoginTime :: (Core.Maybe Core.DateTime),+    -- | The user\'s locations. The maximum allowed data size for this field is 10KB.+    locations :: (Core.Maybe Core.Value),+    -- | Holds the given and family names of the user, and the read-only @fullName@ value. The maximum number of characters in the @givenName@ and in the @familyName@ values is 60. In addition, name values support unicode\/UTF-8 characters, and can contain spaces, letters (a-z), numbers (0-9), dashes (-), forward slashes (\/), and periods (.). For more information about character usage rules, see the <https://support.google.com/a/answer/9193374 administration help center>. Maximum allowed data size for this field is 1KB.+    name :: (Core.Maybe UserName),+    -- | Output only. The list of the user\'s non-editable alias email addresses. These are typically outside the account\'s primary domain or sub-domain.+    nonEditableAliases :: (Core.Maybe [Core.Text]),+    -- | Notes for the user.+    notes :: (Core.Maybe Core.Value),+    -- | The full path of the parent organization associated with the user. If the parent organization is the top-level, it is represented as a forward slash (@\/@).+    orgUnitPath :: (Core.Maybe Core.Text),+    -- | The list of organizations the user belongs to. The maximum allowed data size for this field is 10KB.+    organizations :: (Core.Maybe Core.Value),+    -- | User\'s password+    password :: (Core.Maybe Core.Text),+    -- | The list of the user\'s phone numbers. The maximum allowed data size for this field is 1KB.+    phones :: (Core.Maybe Core.Value),+    -- | The list of <https://www.opengroup.org/austin/papers/posix_faq.html POSIX> account information for the user.+    posixAccounts :: (Core.Maybe Core.Value),+    -- | The user\'s primary email address. This property is required in a request to create a user account. The @primaryEmail@ must be unique and cannot be an alias of another user.+    primaryEmail :: (Core.Maybe Core.Text),+    -- | Recovery email of the user.+    recoveryEmail :: (Core.Maybe Core.Text),+    -- | Recovery phone of the user. The phone number must be in the E.164 format, starting with the plus sign (+). Example: /+16506661212/.+    recoveryPhone :: (Core.Maybe Core.Text),+    -- | The list of the user\'s relationships to other users. The maximum allowed data size for this field is 2KB.+    relations :: (Core.Maybe Core.Value),+    -- | A list of SSH public keys.+    sshPublicKeys :: (Core.Maybe Core.Value),+    -- | Indicates if user is suspended.+    suspended :: (Core.Maybe Core.Bool),+    -- | Output only. Has the reason a user account is suspended either by the administrator or by Google at the time of suspension. The property is returned only if the @suspended@ property is @true@.+    suspensionReason :: (Core.Maybe Core.Text),+    -- | Output only. ETag of the user\'s photo (Read-only)+    thumbnailPhotoEtag :: (Core.Maybe Core.Text),+    -- | Output only. The URL of the user\'s profile photo. The URL might be temporary or private.+    thumbnailPhotoUrl :: (Core.Maybe Core.Text),+    -- | The user\'s websites. The maximum allowed data size for this field is 2KB.+    websites :: (Core.Maybe Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'User' with the minimum fields required to make a request.+newUser ::+  User+newUser =+  User+    { addresses = Core.Nothing,+      agreedToTerms = Core.Nothing,+      aliases = Core.Nothing,+      archived = Core.Nothing,+      changePasswordAtNextLogin = Core.Nothing,+      creationTime = Core.Nothing,+      customSchemas = Core.Nothing,+      customerId = Core.Nothing,+      deletionTime = Core.Nothing,+      emails = Core.Nothing,+      etag = Core.Nothing,+      externalIds = Core.Nothing,+      gender = Core.Nothing,+      hashFunction = Core.Nothing,+      id = Core.Nothing,+      ims = Core.Nothing,+      includeInGlobalAddressList = Core.Nothing,+      ipWhitelisted = Core.Nothing,+      isAdmin = Core.Nothing,+      isDelegatedAdmin = Core.Nothing,+      isEnforcedIn2Sv = Core.Nothing,+      isEnrolledIn2Sv = Core.Nothing,+      isMailboxSetup = Core.Nothing,+      keywords = Core.Nothing,+      kind = "admin#directory#user",+      languages = Core.Nothing,+      lastLoginTime = Core.Nothing,+      locations = Core.Nothing,+      name = Core.Nothing,+      nonEditableAliases = Core.Nothing,+      notes = Core.Nothing,+      orgUnitPath = Core.Nothing,+      organizations = Core.Nothing,+      password = Core.Nothing,+      phones = Core.Nothing,+      posixAccounts = Core.Nothing,+      primaryEmail = Core.Nothing,+      recoveryEmail = Core.Nothing,+      recoveryPhone = Core.Nothing,+      relations = Core.Nothing,+      sshPublicKeys = Core.Nothing,+      suspended = Core.Nothing,+      suspensionReason = Core.Nothing,+      thumbnailPhotoEtag = Core.Nothing,+      thumbnailPhotoUrl = Core.Nothing,+      websites = Core.Nothing+    }++instance Core.FromJSON User where+  parseJSON =+    Core.withObject+      "User"+      ( \o ->+          User+            Core.<$> (o Core..:? "addresses")+            Core.<*> (o Core..:? "agreedToTerms")+            Core.<*> (o Core..:? "aliases")+            Core.<*> (o Core..:? "archived")+            Core.<*> (o Core..:? "changePasswordAtNextLogin")+            Core.<*> (o Core..:? "creationTime")+            Core.<*> (o Core..:? "customSchemas")+            Core.<*> (o Core..:? "customerId")+            Core.<*> (o Core..:? "deletionTime")+            Core.<*> (o Core..:? "emails")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "externalIds")+            Core.<*> (o Core..:? "gender")+            Core.<*> (o Core..:? "hashFunction")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "ims")+            Core.<*> (o Core..:? "includeInGlobalAddressList")+            Core.<*> (o Core..:? "ipWhitelisted")+            Core.<*> (o Core..:? "isAdmin")+            Core.<*> (o Core..:? "isDelegatedAdmin")+            Core.<*> (o Core..:? "isEnforcedIn2Sv")+            Core.<*> (o Core..:? "isEnrolledIn2Sv")+            Core.<*> (o Core..:? "isMailboxSetup")+            Core.<*> (o Core..:? "keywords")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#user")+            Core.<*> (o Core..:? "languages")+            Core.<*> (o Core..:? "lastLoginTime")+            Core.<*> (o Core..:? "locations")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "nonEditableAliases")+            Core.<*> (o Core..:? "notes")+            Core.<*> (o Core..:? "orgUnitPath")+            Core.<*> (o Core..:? "organizations")+            Core.<*> (o Core..:? "password")+            Core.<*> (o Core..:? "phones")+            Core.<*> (o Core..:? "posixAccounts")+            Core.<*> (o Core..:? "primaryEmail")+            Core.<*> (o Core..:? "recoveryEmail")+            Core.<*> (o Core..:? "recoveryPhone")+            Core.<*> (o Core..:? "relations")+            Core.<*> (o Core..:? "sshPublicKeys")+            Core.<*> (o Core..:? "suspended")+            Core.<*> (o Core..:? "suspensionReason")+            Core.<*> (o Core..:? "thumbnailPhotoEtag")+            Core.<*> (o Core..:? "thumbnailPhotoUrl")+            Core.<*> (o Core..:? "websites")+      )++instance Core.ToJSON User where+  toJSON User {..} =+    Core.object+      ( Core.catMaybes+          [ ("addresses" Core..=) Core.<$> addresses,+            ("agreedToTerms" Core..=) Core.<$> agreedToTerms,+            ("aliases" Core..=) Core.<$> aliases,+            ("archived" Core..=) Core.<$> archived,+            ("changePasswordAtNextLogin" Core..=)+              Core.<$> changePasswordAtNextLogin,+            ("creationTime" Core..=) Core.<$> creationTime,+            ("customSchemas" Core..=) Core.<$> customSchemas,+            ("customerId" Core..=) Core.<$> customerId,+            ("deletionTime" Core..=) Core.<$> deletionTime,+            ("emails" Core..=) Core.<$> emails,+            ("etag" Core..=) Core.<$> etag,+            ("externalIds" Core..=) Core.<$> externalIds,+            ("gender" Core..=) Core.<$> gender,+            ("hashFunction" Core..=) Core.<$> hashFunction,+            ("id" Core..=) Core.<$> id,+            ("ims" Core..=) Core.<$> ims,+            ("includeInGlobalAddressList" Core..=)+              Core.<$> includeInGlobalAddressList,+            ("ipWhitelisted" Core..=) Core.<$> ipWhitelisted,+            ("isAdmin" Core..=) Core.<$> isAdmin,+            ("isDelegatedAdmin" Core..=) Core.<$> isDelegatedAdmin,+            ("isEnforcedIn2Sv" Core..=) Core.<$> isEnforcedIn2Sv,+            ("isEnrolledIn2Sv" Core..=) Core.<$> isEnrolledIn2Sv,+            ("isMailboxSetup" Core..=) Core.<$> isMailboxSetup,+            ("keywords" Core..=) Core.<$> keywords,+            Core.Just ("kind" Core..= kind),+            ("languages" Core..=) Core.<$> languages,+            ("lastLoginTime" Core..=) Core.<$> lastLoginTime,+            ("locations" Core..=) Core.<$> locations,+            ("name" Core..=) Core.<$> name,+            ("nonEditableAliases" Core..=) Core.<$> nonEditableAliases,+            ("notes" Core..=) Core.<$> notes,+            ("orgUnitPath" Core..=) Core.<$> orgUnitPath,+            ("organizations" Core..=) Core.<$> organizations,+            ("password" Core..=) Core.<$> password,+            ("phones" Core..=) Core.<$> phones,+            ("posixAccounts" Core..=) Core.<$> posixAccounts,+            ("primaryEmail" Core..=) Core.<$> primaryEmail,+            ("recoveryEmail" Core..=) Core.<$> recoveryEmail,+            ("recoveryPhone" Core..=) Core.<$> recoveryPhone,+            ("relations" Core..=) Core.<$> relations,+            ("sshPublicKeys" Core..=) Core.<$> sshPublicKeys,+            ("suspended" Core..=) Core.<$> suspended,+            ("suspensionReason" Core..=) Core.<$> suspensionReason,+            ("thumbnailPhotoEtag" Core..=) Core.<$> thumbnailPhotoEtag,+            ("thumbnailPhotoUrl" Core..=) Core.<$> thumbnailPhotoUrl,+            ("websites" Core..=) Core.<$> websites+          ]+      )++-- | Custom fields of the user. The key is a @schema_name@ and its values are @\'field_name\': \'field_value\'@.+--+-- /See:/ 'newUser_CustomSchemas' smart constructor.+newtype User_CustomSchemas = User_CustomSchemas+  { additional :: (Core.HashMap Core.Text UserCustomProperties)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'User_CustomSchemas' with the minimum fields required to make a request.+newUser_CustomSchemas ::+  -- |  See 'additional'.+  Core.HashMap Core.Text UserCustomProperties ->+  User_CustomSchemas+newUser_CustomSchemas additional =+  User_CustomSchemas {additional = additional}++instance Core.FromJSON User_CustomSchemas where+  parseJSON =+    Core.withObject+      "User_CustomSchemas"+      (\o -> User_CustomSchemas Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON User_CustomSchemas where+  toJSON User_CustomSchemas {..} = Core.toJSON additional++-- | JSON template for About (notes) of a user in Directory API.+--+-- /See:/ 'newUserAbout' smart constructor.+data UserAbout = UserAbout+  { -- | About entry can have a type which indicates the content type. It can either be plain or html. By default, notes contents are assumed to contain plain text.+    contentType :: (Core.Maybe Core.Text),+    -- | Actual value of notes.+    value :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserAbout' with the minimum fields required to make a request.+newUserAbout ::+  UserAbout+newUserAbout =+  UserAbout {contentType = Core.Nothing, value = Core.Nothing}++instance Core.FromJSON UserAbout where+  parseJSON =+    Core.withObject+      "UserAbout"+      ( \o ->+          UserAbout+            Core.<$> (o Core..:? "contentType")+            Core.<*> (o Core..:? "value")+      )++instance Core.ToJSON UserAbout where+  toJSON UserAbout {..} =+    Core.object+      ( Core.catMaybes+          [ ("contentType" Core..=) Core.<$> contentType,+            ("value" Core..=) Core.<$> value+          ]+      )++-- | JSON template for address.+--+-- /See:/ 'newUserAddress' smart constructor.+data UserAddress = UserAddress+  { -- | Country.+    country :: (Core.Maybe Core.Text),+    -- | Country code.+    countryCode :: (Core.Maybe Core.Text),+    -- | Custom type.+    customType :: (Core.Maybe Core.Text),+    -- | Extended Address.+    extendedAddress :: (Core.Maybe Core.Text),+    -- | Formatted address.+    formatted :: (Core.Maybe Core.Text),+    -- | Locality.+    locality :: (Core.Maybe Core.Text),+    -- | Other parts of address.+    poBox :: (Core.Maybe Core.Text),+    -- | Postal code.+    postalCode :: (Core.Maybe Core.Text),+    -- | If this is user\'s primary address. Only one entry could be marked as primary.+    primary :: (Core.Maybe Core.Bool),+    -- | Region.+    region :: (Core.Maybe Core.Text),+    -- | User supplied address was structured. Structured addresses are NOT supported at this time. You might be able to write structured addresses but any values will eventually be clobbered.+    sourceIsStructured :: (Core.Maybe Core.Bool),+    -- | Street.+    streetAddress :: (Core.Maybe Core.Text),+    -- | Each entry can have a type which indicates standard values of that entry. For example address could be of home work etc. In addition to the standard type an entry can have a custom type and can take any value. Such type should have the CUSTOM value as type and also have a customType value.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserAddress' with the minimum fields required to make a request.+newUserAddress ::+  UserAddress+newUserAddress =+  UserAddress+    { country = Core.Nothing,+      countryCode = Core.Nothing,+      customType = Core.Nothing,+      extendedAddress = Core.Nothing,+      formatted = Core.Nothing,+      locality = Core.Nothing,+      poBox = Core.Nothing,+      postalCode = Core.Nothing,+      primary = Core.Nothing,+      region = Core.Nothing,+      sourceIsStructured = Core.Nothing,+      streetAddress = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON UserAddress where+  parseJSON =+    Core.withObject+      "UserAddress"+      ( \o ->+          UserAddress+            Core.<$> (o Core..:? "country")+            Core.<*> (o Core..:? "countryCode")+            Core.<*> (o Core..:? "customType")+            Core.<*> (o Core..:? "extendedAddress")+            Core.<*> (o Core..:? "formatted")+            Core.<*> (o Core..:? "locality")+            Core.<*> (o Core..:? "poBox")+            Core.<*> (o Core..:? "postalCode")+            Core.<*> (o Core..:? "primary")+            Core.<*> (o Core..:? "region")+            Core.<*> (o Core..:? "sourceIsStructured")+            Core.<*> (o Core..:? "streetAddress")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON UserAddress where+  toJSON UserAddress {..} =+    Core.object+      ( Core.catMaybes+          [ ("country" Core..=) Core.<$> country,+            ("countryCode" Core..=) Core.<$> countryCode,+            ("customType" Core..=) Core.<$> customType,+            ("extendedAddress" Core..=) Core.<$> extendedAddress,+            ("formatted" Core..=) Core.<$> formatted,+            ("locality" Core..=) Core.<$> locality,+            ("poBox" Core..=) Core.<$> poBox,+            ("postalCode" Core..=) Core.<$> postalCode,+            ("primary" Core..=) Core.<$> primary,+            ("region" Core..=) Core.<$> region,+            ("sourceIsStructured" Core..=) Core.<$> sourceIsStructured,+            ("streetAddress" Core..=) Core.<$> streetAddress,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | The Directory API manages aliases, which are alternative email addresses.+--+-- /See:/ 'newUserAlias' smart constructor.+data UserAlias = UserAlias+  { -- | The alias email address.+    alias :: (Core.Maybe Core.Text),+    -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | The unique ID for the user.+    id :: (Core.Maybe Core.Text),+    -- | The type of the API resource. For Alias resources, the value is @admin#directory#alias@.+    kind :: (Core.Maybe Core.Text),+    -- | The user\'s primary email address.+    primaryEmail :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserAlias' with the minimum fields required to make a request.+newUserAlias ::+  UserAlias+newUserAlias =+  UserAlias+    { alias = Core.Nothing,+      etag = Core.Nothing,+      id = Core.Nothing,+      kind = Core.Nothing,+      primaryEmail = Core.Nothing+    }++instance Core.FromJSON UserAlias where+  parseJSON =+    Core.withObject+      "UserAlias"+      ( \o ->+          UserAlias+            Core.<$> (o Core..:? "alias")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "primaryEmail")+      )++instance Core.ToJSON UserAlias where+  toJSON UserAlias {..} =+    Core.object+      ( Core.catMaybes+          [ ("alias" Core..=) Core.<$> alias,+            ("etag" Core..=) Core.<$> etag,+            ("id" Core..=) Core.<$> id,+            ("kind" Core..=) Core.<$> kind,+            ("primaryEmail" Core..=) Core.<$> primaryEmail+          ]+      )++-- | JSON template for a set of custom properties (i.e. all fields in a particular schema)+--+-- /See:/ 'newUserCustomProperties' smart constructor.+newtype UserCustomProperties = UserCustomProperties+  { additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserCustomProperties' with the minimum fields required to make a request.+newUserCustomProperties ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  UserCustomProperties+newUserCustomProperties additional =+  UserCustomProperties {additional = additional}++instance Core.FromJSON UserCustomProperties where+  parseJSON =+    Core.withObject+      "UserCustomProperties"+      (\o -> UserCustomProperties Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON UserCustomProperties where+  toJSON UserCustomProperties {..} = Core.toJSON additional++-- | JSON template for an email.+--+-- /See:/ 'newUserEmail' smart constructor.+data UserEmail = UserEmail+  { -- | Email id of the user.+    address :: (Core.Maybe Core.Text),+    -- | Custom Type.+    customType :: (Core.Maybe Core.Text),+    -- | If this is user\'s primary email. Only one entry could be marked as primary.+    primary :: (Core.Maybe Core.Bool),+    -- | Public Key Encryption Certificates. Current limit: 1 per email address, and 5 per user.+    publicKeyEncryptionCertificates :: (Core.Maybe UserEmail_Public_key_encryption_certificates),+    -- | Each entry can have a type which indicates standard types of that entry. For example email could be of home, work etc. In addition to the standard type, an entry can have a custom type and can take any value Such types should have the CUSTOM value as type and also have a customType value.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserEmail' with the minimum fields required to make a request.+newUserEmail ::+  UserEmail+newUserEmail =+  UserEmail+    { address = Core.Nothing,+      customType = Core.Nothing,+      primary = Core.Nothing,+      publicKeyEncryptionCertificates = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON UserEmail where+  parseJSON =+    Core.withObject+      "UserEmail"+      ( \o ->+          UserEmail+            Core.<$> (o Core..:? "address")+            Core.<*> (o Core..:? "customType")+            Core.<*> (o Core..:? "primary")+            Core.<*> (o Core..:? "public_key_encryption_certificates")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON UserEmail where+  toJSON UserEmail {..} =+    Core.object+      ( Core.catMaybes+          [ ("address" Core..=) Core.<$> address,+            ("customType" Core..=) Core.<$> customType,+            ("primary" Core..=) Core.<$> primary,+            ("public_key_encryption_certificates" Core..=)+              Core.<$> publicKeyEncryptionCertificates,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | Public Key Encryption Certificates. Current limit: 1 per email address, and 5 per user.+--+-- /See:/ 'newUserEmail_Public_key_encryption_certificates' smart constructor.+data UserEmail_Public_key_encryption_certificates = UserEmail_Public_key_encryption_certificates+  { -- | X.509 encryption certificate in @PEM@ format. Must only be an end-entity (leaf) certificate.+    certificate :: (Core.Maybe Core.Text),+    -- | Whether this is the default certificate for the given email address.+    isDefault :: (Core.Maybe Core.Bool),+    -- | Denotes the certificate\'s state in its lifecycle. Possible values are @not_yet_validated@, @valid@, @invalid@, @expired@, and @revoked@.+    state :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserEmail_Public_key_encryption_certificates' with the minimum fields required to make a request.+newUserEmail_Public_key_encryption_certificates ::+  UserEmail_Public_key_encryption_certificates+newUserEmail_Public_key_encryption_certificates =+  UserEmail_Public_key_encryption_certificates+    { certificate =+        Core.Nothing,+      isDefault = Core.Nothing,+      state = Core.Nothing+    }++instance Core.FromJSON UserEmail_Public_key_encryption_certificates where+  parseJSON =+    Core.withObject+      "UserEmail_Public_key_encryption_certificates"+      ( \o ->+          UserEmail_Public_key_encryption_certificates+            Core.<$> (o Core..:? "certificate")+            Core.<*> (o Core..:? "is_default")+            Core.<*> (o Core..:? "state")+      )++instance Core.ToJSON UserEmail_Public_key_encryption_certificates where+  toJSON UserEmail_Public_key_encryption_certificates {..} =+    Core.object+      ( Core.catMaybes+          [ ("certificate" Core..=) Core.<$> certificate,+            ("is_default" Core..=) Core.<$> isDefault,+            ("state" Core..=) Core.<$> state+          ]+      )++-- | JSON template for an externalId entry.+--+-- /See:/ 'newUserExternalId' smart constructor.+data UserExternalId = UserExternalId+  { -- | Custom type.+    customType :: (Core.Maybe Core.Text),+    -- | The type of the Id.+    type' :: (Core.Maybe Core.Text),+    -- | The value of the id.+    value :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserExternalId' with the minimum fields required to make a request.+newUserExternalId ::+  UserExternalId+newUserExternalId =+  UserExternalId+    { customType = Core.Nothing,+      type' = Core.Nothing,+      value = Core.Nothing+    }++instance Core.FromJSON UserExternalId where+  parseJSON =+    Core.withObject+      "UserExternalId"+      ( \o ->+          UserExternalId+            Core.<$> (o Core..:? "customType")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "value")+      )++instance Core.ToJSON UserExternalId where+  toJSON UserExternalId {..} =+    Core.object+      ( Core.catMaybes+          [ ("customType" Core..=) Core.<$> customType,+            ("type" Core..=) Core.<$> type',+            ("value" Core..=) Core.<$> value+          ]+      )++--+-- /See:/ 'newUserGender' smart constructor.+data UserGender = UserGender+  { -- | AddressMeAs. A human-readable string containing the proper way to refer to the profile owner by humans for example he\/him\/his or they\/them\/their.+    addressMeAs :: (Core.Maybe Core.Text),+    -- | Custom gender.+    customGender :: (Core.Maybe Core.Text),+    -- | Gender.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserGender' with the minimum fields required to make a request.+newUserGender ::+  UserGender+newUserGender =+  UserGender+    { addressMeAs = Core.Nothing,+      customGender = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON UserGender where+  parseJSON =+    Core.withObject+      "UserGender"+      ( \o ->+          UserGender+            Core.<$> (o Core..:? "addressMeAs")+            Core.<*> (o Core..:? "customGender")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON UserGender where+  toJSON UserGender {..} =+    Core.object+      ( Core.catMaybes+          [ ("addressMeAs" Core..=) Core.<$> addressMeAs,+            ("customGender" Core..=) Core.<$> customGender,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | JSON template for instant messenger of an user.+--+-- /See:/ 'newUserIm' smart constructor.+data UserIm = UserIm+  { -- | Custom protocol.+    customProtocol :: (Core.Maybe Core.Text),+    -- | Custom type.+    customType :: (Core.Maybe Core.Text),+    -- | Instant messenger id.+    im :: (Core.Maybe Core.Text),+    -- | If this is user\'s primary im. Only one entry could be marked as primary.+    primary :: (Core.Maybe Core.Bool),+    -- | Protocol used in the instant messenger. It should be one of the values from ImProtocolTypes map. Similar to type it can take a CUSTOM value and specify the custom name in customProtocol field.+    protocol :: (Core.Maybe Core.Text),+    -- | Each entry can have a type which indicates standard types of that entry. For example instant messengers could be of home work etc. In addition to the standard type an entry can have a custom type and can take any value. Such types should have the CUSTOM value as type and also have a customType value.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserIm' with the minimum fields required to make a request.+newUserIm ::+  UserIm+newUserIm =+  UserIm+    { customProtocol = Core.Nothing,+      customType = Core.Nothing,+      im = Core.Nothing,+      primary = Core.Nothing,+      protocol = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON UserIm where+  parseJSON =+    Core.withObject+      "UserIm"+      ( \o ->+          UserIm+            Core.<$> (o Core..:? "customProtocol")+            Core.<*> (o Core..:? "customType")+            Core.<*> (o Core..:? "im")+            Core.<*> (o Core..:? "primary")+            Core.<*> (o Core..:? "protocol")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON UserIm where+  toJSON UserIm {..} =+    Core.object+      ( Core.catMaybes+          [ ("customProtocol" Core..=) Core.<$> customProtocol,+            ("customType" Core..=) Core.<$> customType,+            ("im" Core..=) Core.<$> im,+            ("primary" Core..=) Core.<$> primary,+            ("protocol" Core..=) Core.<$> protocol,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | JSON template for a keyword entry.+--+-- /See:/ 'newUserKeyword' smart constructor.+data UserKeyword = UserKeyword+  { -- | Custom Type.+    customType :: (Core.Maybe Core.Text),+    -- | Each entry can have a type which indicates standard type of that entry. For example keyword could be of type occupation or outlook. In addition to the standard type an entry can have a custom type and can give it any name. Such types should have the CUSTOM value as type and also have a customType value.+    type' :: (Core.Maybe Core.Text),+    -- | Keyword.+    value :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserKeyword' with the minimum fields required to make a request.+newUserKeyword ::+  UserKeyword+newUserKeyword =+  UserKeyword+    { customType = Core.Nothing,+      type' = Core.Nothing,+      value = Core.Nothing+    }++instance Core.FromJSON UserKeyword where+  parseJSON =+    Core.withObject+      "UserKeyword"+      ( \o ->+          UserKeyword+            Core.<$> (o Core..:? "customType")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "value")+      )++instance Core.ToJSON UserKeyword where+  toJSON UserKeyword {..} =+    Core.object+      ( Core.catMaybes+          [ ("customType" Core..=) Core.<$> customType,+            ("type" Core..=) Core.<$> type',+            ("value" Core..=) Core.<$> value+          ]+      )++-- | JSON template for a language entry.+--+-- /See:/ 'newUserLanguage' smart constructor.+data UserLanguage = UserLanguage+  { -- | Other language. User can provide their own language name if there is no corresponding ISO 639 language code. If this is set, @languageCode@ can\'t be set.+    customLanguage :: (Core.Maybe Core.Text),+    -- | ISO 639 string representation of a language. See </admin-sdk/directory/v1/languages Language Codes> for the list of supported codes. Valid language codes outside the supported set will be accepted by the API but may lead to unexpected behavior. Illegal values cause @SchemaException@. If this is set, @customLanguage@ can\'t be set.+    languageCode :: (Core.Maybe Core.Text),+    -- | Optional. If present, controls whether the specified @languageCode@ is the user\'s preferred language. If @customLanguage@ is set, this can\'t be set. Allowed values are @preferred@ and @not_preferred@.+    preference :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserLanguage' with the minimum fields required to make a request.+newUserLanguage ::+  UserLanguage+newUserLanguage =+  UserLanguage+    { customLanguage = Core.Nothing,+      languageCode = Core.Nothing,+      preference = Core.Nothing+    }++instance Core.FromJSON UserLanguage where+  parseJSON =+    Core.withObject+      "UserLanguage"+      ( \o ->+          UserLanguage+            Core.<$> (o Core..:? "customLanguage")+            Core.<*> (o Core..:? "languageCode")+            Core.<*> (o Core..:? "preference")+      )++instance Core.ToJSON UserLanguage where+  toJSON UserLanguage {..} =+    Core.object+      ( Core.catMaybes+          [ ("customLanguage" Core..=) Core.<$> customLanguage,+            ("languageCode" Core..=) Core.<$> languageCode,+            ("preference" Core..=) Core.<$> preference+          ]+      )++-- | JSON template for a location entry.+--+-- /See:/ 'newUserLocation' smart constructor.+data UserLocation = UserLocation+  { -- | Textual location. This is most useful for display purposes to concisely describe the location. For example \'Mountain View, CA\', \'Near Seattle\', \'US-NYC-9TH 9A209A.\'\'+    area :: (Core.Maybe Core.Text),+    -- | Building Identifier.+    buildingId :: (Core.Maybe Core.Text),+    -- | Custom Type.+    customType :: (Core.Maybe Core.Text),+    -- | Most specific textual code of individual desk location.+    deskCode :: (Core.Maybe Core.Text),+    -- | Floor name\/number.+    floorName :: (Core.Maybe Core.Text),+    -- | Floor section. More specific location within the floor. For example if a floor is divided into sections \'A\', \'B\' and \'C\' this field would identify one of those values.+    floorSection :: (Core.Maybe Core.Text),+    -- | Each entry can have a type which indicates standard types of that entry. For example location could be of types default and desk. In addition to standard type an entry can have a custom type and can give it any name. Such types should have \'custom\' as type and also have a customType value.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserLocation' with the minimum fields required to make a request.+newUserLocation ::+  UserLocation+newUserLocation =+  UserLocation+    { area = Core.Nothing,+      buildingId = Core.Nothing,+      customType = Core.Nothing,+      deskCode = Core.Nothing,+      floorName = Core.Nothing,+      floorSection = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON UserLocation where+  parseJSON =+    Core.withObject+      "UserLocation"+      ( \o ->+          UserLocation+            Core.<$> (o Core..:? "area")+            Core.<*> (o Core..:? "buildingId")+            Core.<*> (o Core..:? "customType")+            Core.<*> (o Core..:? "deskCode")+            Core.<*> (o Core..:? "floorName")+            Core.<*> (o Core..:? "floorSection")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON UserLocation where+  toJSON UserLocation {..} =+    Core.object+      ( Core.catMaybes+          [ ("area" Core..=) Core.<$> area,+            ("buildingId" Core..=) Core.<$> buildingId,+            ("customType" Core..=) Core.<$> customType,+            ("deskCode" Core..=) Core.<$> deskCode,+            ("floorName" Core..=) Core.<$> floorName,+            ("floorSection" Core..=) Core.<$> floorSection,+            ("type" Core..=) Core.<$> type'+          ]+      )++--+-- /See:/ 'newUserMakeAdmin' smart constructor.+newtype UserMakeAdmin = UserMakeAdmin+  { -- | Indicates the administrator status of the user.+    status :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserMakeAdmin' with the minimum fields required to make a request.+newUserMakeAdmin ::+  UserMakeAdmin+newUserMakeAdmin = UserMakeAdmin {status = Core.Nothing}++instance Core.FromJSON UserMakeAdmin where+  parseJSON =+    Core.withObject+      "UserMakeAdmin"+      (\o -> UserMakeAdmin Core.<$> (o Core..:? "status"))++instance Core.ToJSON UserMakeAdmin where+  toJSON UserMakeAdmin {..} =+    Core.object (Core.catMaybes [("status" Core..=) Core.<$> status])++--+-- /See:/ 'newUserName' smart constructor.+data UserName = UserName+  { -- | The user\'s display name. Limit: 256 characters.+    displayName :: (Core.Maybe Core.Text),+    -- | The user\'s last name. Required when creating a user account.+    familyName :: (Core.Maybe Core.Text),+    -- | The user\'s full name formed by concatenating the first and last name values.+    fullName :: (Core.Maybe Core.Text),+    -- | The user\'s first name. Required when creating a user account.+    givenName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserName' with the minimum fields required to make a request.+newUserName ::+  UserName+newUserName =+  UserName+    { displayName = Core.Nothing,+      familyName = Core.Nothing,+      fullName = Core.Nothing,+      givenName = Core.Nothing+    }++instance Core.FromJSON UserName where+  parseJSON =+    Core.withObject+      "UserName"+      ( \o ->+          UserName+            Core.<$> (o Core..:? "displayName")+            Core.<*> (o Core..:? "familyName")+            Core.<*> (o Core..:? "fullName")+            Core.<*> (o Core..:? "givenName")+      )++instance Core.ToJSON UserName where+  toJSON UserName {..} =+    Core.object+      ( Core.catMaybes+          [ ("displayName" Core..=) Core.<$> displayName,+            ("familyName" Core..=) Core.<$> familyName,+            ("fullName" Core..=) Core.<$> fullName,+            ("givenName" Core..=) Core.<$> givenName+          ]+      )++-- | JSON template for an organization entry.+--+-- /See:/ 'newUserOrganization' smart constructor.+data UserOrganization = UserOrganization+  { -- | The cost center of the users department.+    costCenter :: (Core.Maybe Core.Text),+    -- | Custom type.+    customType :: (Core.Maybe Core.Text),+    -- | Department within the organization.+    department :: (Core.Maybe Core.Text),+    -- | Description of the organization.+    description :: (Core.Maybe Core.Text),+    -- | The domain to which the organization belongs to.+    domain :: (Core.Maybe Core.Text),+    -- | The full-time equivalent millipercent within the organization (100000 = 100%).+    fullTimeEquivalent :: (Core.Maybe Core.Int32),+    -- | Location of the organization. This need not be fully qualified address.+    location :: (Core.Maybe Core.Text),+    -- | Name of the organization+    name :: (Core.Maybe Core.Text),+    -- | If it user\'s primary organization.+    primary :: (Core.Maybe Core.Bool),+    -- | Symbol of the organization.+    symbol :: (Core.Maybe Core.Text),+    -- | Title (designation) of the user in the organization.+    title :: (Core.Maybe Core.Text),+    -- | Each entry can have a type which indicates standard types of that entry. For example organization could be of school work etc. In addition to the standard type an entry can have a custom type and can give it any name. Such types should have the CUSTOM value as type and also have a CustomType value.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserOrganization' with the minimum fields required to make a request.+newUserOrganization ::+  UserOrganization+newUserOrganization =+  UserOrganization+    { costCenter = Core.Nothing,+      customType = Core.Nothing,+      department = Core.Nothing,+      description = Core.Nothing,+      domain = Core.Nothing,+      fullTimeEquivalent = Core.Nothing,+      location = Core.Nothing,+      name = Core.Nothing,+      primary = Core.Nothing,+      symbol = Core.Nothing,+      title = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON UserOrganization where+  parseJSON =+    Core.withObject+      "UserOrganization"+      ( \o ->+          UserOrganization+            Core.<$> (o Core..:? "costCenter")+            Core.<*> (o Core..:? "customType")+            Core.<*> (o Core..:? "department")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "domain")+            Core.<*> (o Core..:? "fullTimeEquivalent")+            Core.<*> (o Core..:? "location")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "primary")+            Core.<*> (o Core..:? "symbol")+            Core.<*> (o Core..:? "title")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON UserOrganization where+  toJSON UserOrganization {..} =+    Core.object+      ( Core.catMaybes+          [ ("costCenter" Core..=) Core.<$> costCenter,+            ("customType" Core..=) Core.<$> customType,+            ("department" Core..=) Core.<$> department,+            ("description" Core..=) Core.<$> description,+            ("domain" Core..=) Core.<$> domain,+            ("fullTimeEquivalent" Core..=) Core.<$> fullTimeEquivalent,+            ("location" Core..=) Core.<$> location,+            ("name" Core..=) Core.<$> name,+            ("primary" Core..=) Core.<$> primary,+            ("symbol" Core..=) Core.<$> symbol,+            ("title" Core..=) Core.<$> title,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | JSON template for a phone entry.+--+-- /See:/ 'newUserPhone' smart constructor.+data UserPhone = UserPhone+  { -- | Custom Type.+    customType :: (Core.Maybe Core.Text),+    -- | If this is user\'s primary phone or not.+    primary :: (Core.Maybe Core.Bool),+    -- | Each entry can have a type which indicates standard types of that entry. For example phone could be of home_fax work mobile etc. In addition to the standard type an entry can have a custom type and can give it any name. Such types should have the CUSTOM value as type and also have a customType value.+    type' :: (Core.Maybe Core.Text),+    -- | Phone number.+    value :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserPhone' with the minimum fields required to make a request.+newUserPhone ::+  UserPhone+newUserPhone =+  UserPhone+    { customType = Core.Nothing,+      primary = Core.Nothing,+      type' = Core.Nothing,+      value = Core.Nothing+    }++instance Core.FromJSON UserPhone where+  parseJSON =+    Core.withObject+      "UserPhone"+      ( \o ->+          UserPhone+            Core.<$> (o Core..:? "customType")+            Core.<*> (o Core..:? "primary")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "value")+      )++instance Core.ToJSON UserPhone where+  toJSON UserPhone {..} =+    Core.object+      ( Core.catMaybes+          [ ("customType" Core..=) Core.<$> customType,+            ("primary" Core..=) Core.<$> primary,+            ("type" Core..=) Core.<$> type',+            ("value" Core..=) Core.<$> value+          ]+      )++--+-- /See:/ 'newUserPhoto' smart constructor.+data UserPhoto = UserPhoto+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | Height of the photo in pixels.+    height :: (Core.Maybe Core.Int32),+    -- | The ID the API uses to uniquely identify the user.+    id :: (Core.Maybe Core.Text),+    -- | The type of the API resource. For Photo resources, this is @admin#directory#user#photo@.+    kind :: Core.Text,+    -- | The MIME type of the photo. Allowed values are @JPEG@, @PNG@, @GIF@, @BMP@, @TIFF@, and web-safe base64 encoding.+    mimeType :: (Core.Maybe Core.Text),+    -- | The user photo\'s upload data in <https://en.wikipedia.org/wiki/Base64#URL_applications web-safe Base64> format in bytes. This means: * The slash (\/) character is replaced with the underscore (_) character. * The plus sign (+) character is replaced with the hyphen (-) character. * The equals sign (=) character is replaced with the asterisk (/). / For padding, the period (.) character is used instead of the RFC-4648 baseURL definition which uses the equals sign (=) for padding. This is done to simplify URL-parsing. * Whatever the size of the photo being uploaded, the API downsizes it to 96x96 pixels.+    photoData :: (Core.Maybe Core.Base64),+    -- | The user\'s primary email address.+    primaryEmail :: (Core.Maybe Core.Text),+    -- | Width of the photo in pixels.+    width :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserPhoto' with the minimum fields required to make a request.+newUserPhoto ::+  UserPhoto+newUserPhoto =+  UserPhoto+    { etag = Core.Nothing,+      height = Core.Nothing,+      id = Core.Nothing,+      kind = "admin#directory#user#photo",+      mimeType = Core.Nothing,+      photoData = Core.Nothing,+      primaryEmail = Core.Nothing,+      width = Core.Nothing+    }++instance Core.FromJSON UserPhoto where+  parseJSON =+    Core.withObject+      "UserPhoto"+      ( \o ->+          UserPhoto+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "height")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#user#photo")+            Core.<*> (o Core..:? "mimeType")+            Core.<*> (o Core..:? "photoData")+            Core.<*> (o Core..:? "primaryEmail")+            Core.<*> (o Core..:? "width")+      )++instance Core.ToJSON UserPhoto where+  toJSON UserPhoto {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("height" Core..=) Core.<$> height,+            ("id" Core..=) Core.<$> id,+            Core.Just ("kind" Core..= kind),+            ("mimeType" Core..=) Core.<$> mimeType,+            ("photoData" Core..=) Core.<$> photoData,+            ("primaryEmail" Core..=) Core.<$> primaryEmail,+            ("width" Core..=) Core.<$> width+          ]+      )++-- | JSON template for a POSIX account entry.+--+-- /See:/ 'newUserPosixAccount' smart constructor.+data UserPosixAccount = UserPosixAccount+  { -- | A POSIX account field identifier.+    accountId :: (Core.Maybe Core.Text),+    -- | The GECOS (user information) for this account.+    gecos :: (Core.Maybe Core.Text),+    -- | The default group ID.+    gid :: (Core.Maybe Core.Word64),+    -- | The path to the home directory for this account.+    homeDirectory :: (Core.Maybe Core.Text),+    -- | The operating system type for this account.+    operatingSystemType :: (Core.Maybe Core.Text),+    -- | If this is user\'s primary account within the SystemId.+    primary :: (Core.Maybe Core.Bool),+    -- | The path to the login shell for this account.+    shell :: (Core.Maybe Core.Text),+    -- | System identifier for which account Username or Uid apply to.+    systemId :: (Core.Maybe Core.Text),+    -- | The POSIX compliant user ID.+    uid :: (Core.Maybe Core.Word64),+    -- | The username of the account.+    username :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserPosixAccount' with the minimum fields required to make a request.+newUserPosixAccount ::+  UserPosixAccount+newUserPosixAccount =+  UserPosixAccount+    { accountId = Core.Nothing,+      gecos = Core.Nothing,+      gid = Core.Nothing,+      homeDirectory = Core.Nothing,+      operatingSystemType = Core.Nothing,+      primary = Core.Nothing,+      shell = Core.Nothing,+      systemId = Core.Nothing,+      uid = Core.Nothing,+      username = Core.Nothing+    }++instance Core.FromJSON UserPosixAccount where+  parseJSON =+    Core.withObject+      "UserPosixAccount"+      ( \o ->+          UserPosixAccount+            Core.<$> (o Core..:? "accountId")+            Core.<*> (o Core..:? "gecos")+            Core.<*> (o Core..:? "gid" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "homeDirectory")+            Core.<*> (o Core..:? "operatingSystemType")+            Core.<*> (o Core..:? "primary")+            Core.<*> (o Core..:? "shell")+            Core.<*> (o Core..:? "systemId")+            Core.<*> (o Core..:? "uid" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "username")+      )++instance Core.ToJSON UserPosixAccount where+  toJSON UserPosixAccount {..} =+    Core.object+      ( Core.catMaybes+          [ ("accountId" Core..=) Core.<$> accountId,+            ("gecos" Core..=) Core.<$> gecos,+            ("gid" Core..=) Core.. Core.AsText Core.<$> gid,+            ("homeDirectory" Core..=) Core.<$> homeDirectory,+            ("operatingSystemType" Core..=) Core.<$> operatingSystemType,+            ("primary" Core..=) Core.<$> primary,+            ("shell" Core..=) Core.<$> shell,+            ("systemId" Core..=) Core.<$> systemId,+            ("uid" Core..=) Core.. Core.AsText Core.<$> uid,+            ("username" Core..=) Core.<$> username+          ]+      )++-- | JSON template for a relation entry.+--+-- /See:/ 'newUserRelation' smart constructor.+data UserRelation = UserRelation+  { -- | Custom Type.+    customType :: (Core.Maybe Core.Text),+    -- | The relation of the user. Some of the possible values are mother father sister brother manager assistant partner.+    type' :: (Core.Maybe Core.Text),+    -- | The name of the relation.+    value :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserRelation' with the minimum fields required to make a request.+newUserRelation ::+  UserRelation+newUserRelation =+  UserRelation+    { customType = Core.Nothing,+      type' = Core.Nothing,+      value = Core.Nothing+    }++instance Core.FromJSON UserRelation where+  parseJSON =+    Core.withObject+      "UserRelation"+      ( \o ->+          UserRelation+            Core.<$> (o Core..:? "customType")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "value")+      )++instance Core.ToJSON UserRelation where+  toJSON UserRelation {..} =+    Core.object+      ( Core.catMaybes+          [ ("customType" Core..=) Core.<$> customType,+            ("type" Core..=) Core.<$> type',+            ("value" Core..=) Core.<$> value+          ]+      )++-- | JSON template for a POSIX account entry.+--+-- /See:/ 'newUserSshPublicKey' smart constructor.+data UserSshPublicKey = UserSshPublicKey+  { -- | An expiration time in microseconds since epoch.+    expirationTimeUsec :: (Core.Maybe Core.Int64),+    -- | A SHA-256 fingerprint of the SSH public key. (Read-only)+    fingerprint :: (Core.Maybe Core.Text),+    -- | An SSH public key.+    key :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserSshPublicKey' with the minimum fields required to make a request.+newUserSshPublicKey ::+  UserSshPublicKey+newUserSshPublicKey =+  UserSshPublicKey+    { expirationTimeUsec = Core.Nothing,+      fingerprint = Core.Nothing,+      key = Core.Nothing+    }++instance Core.FromJSON UserSshPublicKey where+  parseJSON =+    Core.withObject+      "UserSshPublicKey"+      ( \o ->+          UserSshPublicKey+            Core.<$> ( o+                         Core..:? "expirationTimeUsec"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> (o Core..:? "fingerprint")+            Core.<*> (o Core..:? "key")+      )++instance Core.ToJSON UserSshPublicKey where+  toJSON UserSshPublicKey {..} =+    Core.object+      ( Core.catMaybes+          [ ("expirationTimeUsec" Core..=)+              Core.. Core.AsText+              Core.<$> expirationTimeUsec,+            ("fingerprint" Core..=) Core.<$> fingerprint,+            ("key" Core..=) Core.<$> key+          ]+      )++--+-- /See:/ 'newUserUndelete' smart constructor.+newtype UserUndelete = UserUndelete+  { -- | OrgUnit of User+    orgUnitPath :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserUndelete' with the minimum fields required to make a request.+newUserUndelete ::+  UserUndelete+newUserUndelete = UserUndelete {orgUnitPath = Core.Nothing}++instance Core.FromJSON UserUndelete where+  parseJSON =+    Core.withObject+      "UserUndelete"+      (\o -> UserUndelete Core.<$> (o Core..:? "orgUnitPath"))++instance Core.ToJSON UserUndelete where+  toJSON UserUndelete {..} =+    Core.object+      (Core.catMaybes [("orgUnitPath" Core..=) Core.<$> orgUnitPath])++-- | JSON template for a website entry.+--+-- /See:/ 'newUserWebsite' smart constructor.+data UserWebsite = UserWebsite+  { -- | Custom Type.+    customType :: (Core.Maybe Core.Text),+    -- | If this is user\'s primary website or not.+    primary :: (Core.Maybe Core.Bool),+    -- | Each entry can have a type which indicates standard types of that entry. For example website could be of home work blog etc. In addition to the standard type an entry can have a custom type and can give it any name. Such types should have the CUSTOM value as type and also have a customType value.+    type' :: (Core.Maybe Core.Text),+    -- | Website.+    value :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'UserWebsite' with the minimum fields required to make a request.+newUserWebsite ::+  UserWebsite+newUserWebsite =+  UserWebsite+    { customType = Core.Nothing,+      primary = Core.Nothing,+      type' = Core.Nothing,+      value = Core.Nothing+    }++instance Core.FromJSON UserWebsite where+  parseJSON =+    Core.withObject+      "UserWebsite"+      ( \o ->+          UserWebsite+            Core.<$> (o Core..:? "customType")+            Core.<*> (o Core..:? "primary")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "value")+      )++instance Core.ToJSON UserWebsite where+  toJSON UserWebsite {..} =+    Core.object+      ( Core.catMaybes+          [ ("customType" Core..=) Core.<$> customType,+            ("primary" Core..=) Core.<$> primary,+            ("type" Core..=) Core.<$> type',+            ("value" Core..=) Core.<$> value+          ]+      )++--+-- /See:/ 'newUsers' smart constructor.+data Users = Users+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | Kind of resource this is.+    kind :: Core.Text,+    -- | Token used to access next page of this result. The page token is only valid for three days.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | Event that triggered this response (only used in case of Push Response)+    triggerEvent :: (Core.Maybe Core.Text),+    -- | A list of user objects.+    users :: (Core.Maybe [User])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Users' with the minimum fields required to make a request.+newUsers ::+  Users+newUsers =+  Users+    { etag = Core.Nothing,+      kind = "admin#directory#users",+      nextPageToken = Core.Nothing,+      triggerEvent = Core.Nothing,+      users = Core.Nothing+    }++instance Core.FromJSON Users where+  parseJSON =+    Core.withObject+      "Users"+      ( \o ->+          Users+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#users")+            Core.<*> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "trigger_event")+            Core.<*> (o Core..:? "users")+      )++instance Core.ToJSON Users where+  toJSON Users {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind),+            ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("trigger_event" Core..=) Core.<$> triggerEvent,+            ("users" Core..=) Core.<$> users+          ]+      )++-- | The Directory API allows you to view, generate, and invalidate backup verification codes for a user.+--+-- /See:/ 'newVerificationCode' smart constructor.+data VerificationCode = VerificationCode+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | The type of the resource. This is always @admin#directory#verificationCode@.+    kind :: Core.Text,+    -- | The obfuscated unique ID of the user.+    userId :: (Core.Maybe Core.Text),+    -- | A current verification code for the user. Invalidated or used verification codes are not returned as part of the result.+    verificationCode :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'VerificationCode' with the minimum fields required to make a request.+newVerificationCode ::+  VerificationCode+newVerificationCode =+  VerificationCode+    { etag = Core.Nothing,+      kind = "admin#directory#verificationCode",+      userId = Core.Nothing,+      verificationCode = Core.Nothing+    }++instance Core.FromJSON VerificationCode where+  parseJSON =+    Core.withObject+      "VerificationCode"+      ( \o ->+          VerificationCode+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "kind" Core..!= "admin#directory#verificationCode")+            Core.<*> (o Core..:? "userId")+            Core.<*> (o Core..:? "verificationCode")+      )++instance Core.ToJSON VerificationCode where+  toJSON VerificationCode {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            Core.Just ("kind" Core..= kind),+            ("userId" Core..=) Core.<$> userId,+            ("verificationCode" Core..=) Core.<$> verificationCode+          ]+      )++-- | JSON response template for list verification codes operation in Directory API.+--+-- /See:/ 'newVerificationCodes' smart constructor.+data VerificationCodes = VerificationCodes+  { -- | ETag of the resource.+    etag :: (Core.Maybe Core.Text),+    -- | A list of verification code resources.+    items :: (Core.Maybe [VerificationCode]),+    -- | The type of the resource. This is always @admin#directory#verificationCodesList@.+    kind :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'VerificationCodes' with the minimum fields required to make a request.+newVerificationCodes ::+  VerificationCodes+newVerificationCodes =+  VerificationCodes+    { etag = Core.Nothing,+      items = Core.Nothing,+      kind = "admin#directory#verificationCodesList"+    }++instance Core.FromJSON VerificationCodes where+  parseJSON =+    Core.withObject+      "VerificationCodes"+      ( \o ->+          VerificationCodes+            Core.<$> (o Core..:? "etag")+            Core.<*> (o Core..:? "items")+            Core.<*> ( o+                         Core..:? "kind"+                         Core..!= "admin#directory#verificationCodesList"+                     )+      )++instance Core.ToJSON VerificationCodes where+  toJSON VerificationCodes {..} =+    Core.object+      ( Core.catMaybes+          [ ("etag" Core..=) Core.<$> etag,+            ("items" Core..=) Core.<$> items,+            Core.Just ("kind" Core..= kind)+          ]+      )
+ gen/Gogol/Admin/Directory/Internal/Sum.hs view
@@ -0,0 +1,2183 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Internal.Sum+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Gogol.Admin.Directory.Internal.Sum+  ( -- * Xgafv+    Xgafv+      ( Xgafv_1,+        Xgafv_2,+        ..+      ),++    -- * AuxiliaryMessage_Severity+    AuxiliaryMessage_Severity+      ( AuxiliaryMessage_Severity_SEVERITYUNSPECIFIED,+        AuxiliaryMessage_Severity_SEVERITYINFO,+        AuxiliaryMessage_Severity_SEVERITYWARNING,+        AuxiliaryMessage_Severity_SEVERITYERROR,+        ..+      ),++    -- * BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction+    BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction+      ( BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONUNSPECIFIED,+        BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONDEPROVISION,+        BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONDISABLE,+        BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONREENABLE,+        ..+      ),++    -- * BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+    BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+      ( BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONUNSPECIFIED,+        BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONSAMEMODELREPLACEMENT,+        BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONUPGRADE,+        BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONDOMAINMOVE,+        BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONSERVICEEXPIRATION,+        BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONOTHER,+        BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONDIFFERENTMODELREPLACEMENT,+        BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONRETIRINGDEVICE,+        BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONUPGRADETRANSFER,+        BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONNOTREQUIRED,+        BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONREPAIRCENTER,+        ..+      ),++    -- * ChromeOsDevice_ChromeOsType+    ChromeOsDevice_ChromeOsType+      ( ChromeOsDevice_ChromeOsType_ChromeOsTypeUnspecified,+        ChromeOsDevice_ChromeOsType_ChromeOsFlex,+        ChromeOsDevice_ChromeOsType_ChromeOs,+        ..+      ),++    -- * ChromeOsDevice_DeprovisionReason+    ChromeOsDevice_DeprovisionReason+      ( ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONUNSPECIFIED,+        ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONSAMEMODELREPLACEMENT,+        ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONUPGRADE,+        ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONDOMAINMOVE,+        ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONSERVICEEXPIRATION,+        ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONOTHER,+        ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONDIFFERENTMODELREPLACEMENT,+        ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONRETIRINGDEVICE,+        ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONUPGRADETRANSFER,+        ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONNOTREQUIRED,+        ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONREPAIRCENTER,+        ..+      ),++    -- * ChromeOsDevice_DeviceLicenseType+    ChromeOsDevice_DeviceLicenseType+      ( ChromeOsDevice_DeviceLicenseType_DeviceLicenseTypeUnspecified,+        ChromeOsDevice_DeviceLicenseType_Enterprise,+        ChromeOsDevice_DeviceLicenseType_EnterpriseUpgrade,+        ChromeOsDevice_DeviceLicenseType_EducationUpgrade,+        ChromeOsDevice_DeviceLicenseType_Education,+        ChromeOsDevice_DeviceLicenseType_KioskUpgrade,+        ..+      ),++    -- * DirectoryChromeosdevicesCommand_State+    DirectoryChromeosdevicesCommand_State+      ( DirectoryChromeosdevicesCommand_State_STATEUNSPECIFIED,+        DirectoryChromeosdevicesCommand_State_Pending,+        DirectoryChromeosdevicesCommand_State_Expired,+        DirectoryChromeosdevicesCommand_State_Cancelled,+        DirectoryChromeosdevicesCommand_State_SENTTOCLIENT,+        DirectoryChromeosdevicesCommand_State_ACKEDBYCLIENT,+        DirectoryChromeosdevicesCommand_State_EXECUTEDBYCLIENT,+        ..+      ),++    -- * DirectoryChromeosdevicesCommand_Type+    DirectoryChromeosdevicesCommand_Type+      ( DirectoryChromeosdevicesCommand_Type_COMMANDTYPEUNSPECIFIED,+        DirectoryChromeosdevicesCommand_Type_Reboot,+        DirectoryChromeosdevicesCommand_Type_TAKEASCREENSHOT,+        DirectoryChromeosdevicesCommand_Type_SETVOLUME,+        DirectoryChromeosdevicesCommand_Type_WIPEUSERS,+        DirectoryChromeosdevicesCommand_Type_REMOTEPOWERWASH,+        DirectoryChromeosdevicesCommand_Type_DEVICESTARTCRDSESSION,+        DirectoryChromeosdevicesCommand_Type_CAPTURELOGS,+        DirectoryChromeosdevicesCommand_Type_FETCHSUPPORTPACKET,+        ..+      ),++    -- * DirectoryChromeosdevicesCommandResult_Result+    DirectoryChromeosdevicesCommandResult_Result+      ( DirectoryChromeosdevicesCommandResult_Result_COMMANDRESULTTYPEUNSPECIFIED,+        DirectoryChromeosdevicesCommandResult_Result_Ignored,+        DirectoryChromeosdevicesCommandResult_Result_Failure,+        DirectoryChromeosdevicesCommandResult_Result_Success,+        ..+      ),++    -- * DirectoryChromeosdevicesIssueCommandRequest_CommandType+    DirectoryChromeosdevicesIssueCommandRequest_CommandType+      ( DirectoryChromeosdevicesIssueCommandRequest_CommandType_COMMANDTYPEUNSPECIFIED,+        DirectoryChromeosdevicesIssueCommandRequest_CommandType_Reboot,+        DirectoryChromeosdevicesIssueCommandRequest_CommandType_TAKEASCREENSHOT,+        DirectoryChromeosdevicesIssueCommandRequest_CommandType_SETVOLUME,+        DirectoryChromeosdevicesIssueCommandRequest_CommandType_WIPEUSERS,+        DirectoryChromeosdevicesIssueCommandRequest_CommandType_REMOTEPOWERWASH,+        DirectoryChromeosdevicesIssueCommandRequest_CommandType_DEVICESTARTCRDSESSION,+        DirectoryChromeosdevicesIssueCommandRequest_CommandType_CAPTURELOGS,+        DirectoryChromeosdevicesIssueCommandRequest_CommandType_FETCHSUPPORTPACKET,+        ..+      ),++    -- * FailureInfo_ErrorCode+    FailureInfo_ErrorCode+      ( FailureInfo_ErrorCode_OK,+        FailureInfo_ErrorCode_Cancelled,+        FailureInfo_ErrorCode_Unknown,+        FailureInfo_ErrorCode_INVALIDARGUMENT,+        FailureInfo_ErrorCode_DEADLINEEXCEEDED,+        FailureInfo_ErrorCode_NOTFOUND,+        FailureInfo_ErrorCode_ALREADYEXISTS,+        FailureInfo_ErrorCode_PERMISSIONDENIED,+        FailureInfo_ErrorCode_Unauthenticated,+        FailureInfo_ErrorCode_RESOURCEEXHAUSTED,+        FailureInfo_ErrorCode_FAILEDPRECONDITION,+        FailureInfo_ErrorCode_Aborted,+        FailureInfo_ErrorCode_OUTOFRANGE,+        FailureInfo_ErrorCode_Unimplemented,+        FailureInfo_ErrorCode_Internal,+        FailureInfo_ErrorCode_Unavailable,+        FailureInfo_ErrorCode_DATALOSS,+        ..+      ),++    -- * OsUpdateStatus_State+    OsUpdateStatus_State+      ( OsUpdateStatus_State_UpdateStateUnspecified,+        OsUpdateStatus_State_UpdateStateNotStarted,+        OsUpdateStatus_State_UpdateStateDownloadInProgress,+        OsUpdateStatus_State_UpdateStateNeedReboot,+        ..+      ),++    -- * PrintServerFailureInfo_ErrorCode+    PrintServerFailureInfo_ErrorCode+      ( PrintServerFailureInfo_ErrorCode_OK,+        PrintServerFailureInfo_ErrorCode_Cancelled,+        PrintServerFailureInfo_ErrorCode_Unknown,+        PrintServerFailureInfo_ErrorCode_INVALIDARGUMENT,+        PrintServerFailureInfo_ErrorCode_DEADLINEEXCEEDED,+        PrintServerFailureInfo_ErrorCode_NOTFOUND,+        PrintServerFailureInfo_ErrorCode_ALREADYEXISTS,+        PrintServerFailureInfo_ErrorCode_PERMISSIONDENIED,+        PrintServerFailureInfo_ErrorCode_Unauthenticated,+        PrintServerFailureInfo_ErrorCode_RESOURCEEXHAUSTED,+        PrintServerFailureInfo_ErrorCode_FAILEDPRECONDITION,+        PrintServerFailureInfo_ErrorCode_Aborted,+        PrintServerFailureInfo_ErrorCode_OUTOFRANGE,+        PrintServerFailureInfo_ErrorCode_Unimplemented,+        PrintServerFailureInfo_ErrorCode_Internal,+        PrintServerFailureInfo_ErrorCode_Unavailable,+        PrintServerFailureInfo_ErrorCode_DATALOSS,+        ..+      ),++    -- * RoleAssignment_AssigneeType+    RoleAssignment_AssigneeType+      ( RoleAssignment_AssigneeType_User,+        RoleAssignment_AssigneeType_Group,+        ..+      ),++    -- * ChromeosdevicesGetProjection+    ChromeosdevicesGetProjection+      ( ChromeosdevicesGetProjection_Basic,+        ChromeosdevicesGetProjection_Full,+        ..+      ),++    -- * ChromeosdevicesListOrderBy+    ChromeosdevicesListOrderBy+      ( ChromeosdevicesListOrderBy_AnnotatedLocation,+        ChromeosdevicesListOrderBy_AnnotatedUser,+        ChromeosdevicesListOrderBy_LastSync,+        ChromeosdevicesListOrderBy_Notes,+        ChromeosdevicesListOrderBy_SerialNumber,+        ChromeosdevicesListOrderBy_Status,+        ..+      ),++    -- * ChromeosdevicesListProjection+    ChromeosdevicesListProjection+      ( ChromeosdevicesListProjection_Basic,+        ChromeosdevicesListProjection_Full,+        ..+      ),++    -- * ChromeosdevicesListSortOrder+    ChromeosdevicesListSortOrder+      ( ChromeosdevicesListSortOrder_Ascending,+        ChromeosdevicesListSortOrder_Descending,+        ..+      ),++    -- * ChromeosdevicesPatchProjection+    ChromeosdevicesPatchProjection+      ( ChromeosdevicesPatchProjection_Basic,+        ChromeosdevicesPatchProjection_Full,+        ..+      ),++    -- * ChromeosdevicesUpdateProjection+    ChromeosdevicesUpdateProjection+      ( ChromeosdevicesUpdateProjection_Basic,+        ChromeosdevicesUpdateProjection_Full,+        ..+      ),++    -- * GroupsListOrderBy+    GroupsListOrderBy+      ( GroupsListOrderBy_Email,+        ..+      ),++    -- * GroupsListSortOrder+    GroupsListSortOrder+      ( GroupsListSortOrder_Ascending,+        GroupsListSortOrder_Descending,+        ..+      ),++    -- * MobiledevicesGetProjection+    MobiledevicesGetProjection+      ( MobiledevicesGetProjection_Basic,+        MobiledevicesGetProjection_Full,+        ..+      ),++    -- * MobiledevicesListOrderBy+    MobiledevicesListOrderBy+      ( MobiledevicesListOrderBy_DeviceId,+        MobiledevicesListOrderBy_Email,+        MobiledevicesListOrderBy_LastSync,+        MobiledevicesListOrderBy_Model,+        MobiledevicesListOrderBy_Name,+        MobiledevicesListOrderBy_OS,+        MobiledevicesListOrderBy_Status,+        MobiledevicesListOrderBy_Type,+        ..+      ),++    -- * MobiledevicesListProjection+    MobiledevicesListProjection+      ( MobiledevicesListProjection_Basic,+        MobiledevicesListProjection_Full,+        ..+      ),++    -- * MobiledevicesListSortOrder+    MobiledevicesListSortOrder+      ( MobiledevicesListSortOrder_Ascending,+        MobiledevicesListSortOrder_Descending,+        ..+      ),++    -- * OrgunitsListType+    OrgunitsListType+      ( OrgunitsListType_All,+        OrgunitsListType_Children,+        OrgunitsListType_AllIncludingParent,+        ..+      ),++    -- * ResourcesBuildingsInsertCoordinatesSource+    ResourcesBuildingsInsertCoordinatesSource+      ( ResourcesBuildingsInsertCoordinatesSource_CLIENTSPECIFIED,+        ResourcesBuildingsInsertCoordinatesSource_RESOLVEDFROMADDRESS,+        ResourcesBuildingsInsertCoordinatesSource_SOURCEUNSPECIFIED,+        ..+      ),++    -- * ResourcesBuildingsPatchCoordinatesSource+    ResourcesBuildingsPatchCoordinatesSource+      ( ResourcesBuildingsPatchCoordinatesSource_CLIENTSPECIFIED,+        ResourcesBuildingsPatchCoordinatesSource_RESOLVEDFROMADDRESS,+        ResourcesBuildingsPatchCoordinatesSource_SOURCEUNSPECIFIED,+        ..+      ),++    -- * ResourcesBuildingsUpdateCoordinatesSource+    ResourcesBuildingsUpdateCoordinatesSource+      ( ResourcesBuildingsUpdateCoordinatesSource_CLIENTSPECIFIED,+        ResourcesBuildingsUpdateCoordinatesSource_RESOLVEDFROMADDRESS,+        ResourcesBuildingsUpdateCoordinatesSource_SOURCEUNSPECIFIED,+        ..+      ),++    -- * UsersAliasesListEvent+    UsersAliasesListEvent+      ( UsersAliasesListEvent_Add,+        UsersAliasesListEvent_Delete',+        ..+      ),++    -- * UsersAliasesWatchEvent+    UsersAliasesWatchEvent+      ( UsersAliasesWatchEvent_Add,+        UsersAliasesWatchEvent_Delete',+        ..+      ),++    -- * UsersGetProjection+    UsersGetProjection+      ( UsersGetProjection_Basic,+        UsersGetProjection_Custom,+        UsersGetProjection_Full,+        ..+      ),++    -- * UsersGetViewType+    UsersGetViewType+      ( UsersGetViewType_AdminView,+        UsersGetViewType_DomainPublic,+        ..+      ),++    -- * UsersListEvent+    UsersListEvent+      ( UsersListEvent_Add,+        UsersListEvent_Delete',+        UsersListEvent_MakeAdmin,+        UsersListEvent_Undelete,+        UsersListEvent_Update,+        ..+      ),++    -- * UsersListOrderBy+    UsersListOrderBy+      ( UsersListOrderBy_Email,+        UsersListOrderBy_FamilyName,+        UsersListOrderBy_GivenName,+        ..+      ),++    -- * UsersListProjection+    UsersListProjection+      ( UsersListProjection_Basic,+        UsersListProjection_Custom,+        UsersListProjection_Full,+        ..+      ),++    -- * UsersListSortOrder+    UsersListSortOrder+      ( UsersListSortOrder_Ascending,+        UsersListSortOrder_Descending,+        ..+      ),++    -- * UsersListViewType+    UsersListViewType+      ( UsersListViewType_AdminView,+        UsersListViewType_DomainPublic,+        ..+      ),++    -- * UsersWatchEvent+    UsersWatchEvent+      ( UsersWatchEvent_Add,+        UsersWatchEvent_Delete',+        UsersWatchEvent_MakeAdmin,+        UsersWatchEvent_Undelete,+        UsersWatchEvent_Update,+        ..+      ),++    -- * UsersWatchOrderBy+    UsersWatchOrderBy+      ( UsersWatchOrderBy_Email,+        UsersWatchOrderBy_FamilyName,+        UsersWatchOrderBy_GivenName,+        ..+      ),++    -- * UsersWatchProjection+    UsersWatchProjection+      ( UsersWatchProjection_Basic,+        UsersWatchProjection_Custom,+        UsersWatchProjection_Full,+        ..+      ),++    -- * UsersWatchSortOrder+    UsersWatchSortOrder+      ( UsersWatchSortOrder_Ascending,+        UsersWatchSortOrder_Descending,+        ..+      ),++    -- * UsersWatchViewType+    UsersWatchViewType+      ( UsersWatchViewType_AdminView,+        UsersWatchViewType_DomainPublic,+        ..+      ),+  )+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+  #-}++-- | Message severity+newtype AuxiliaryMessage_Severity = AuxiliaryMessage_Severity {fromAuxiliaryMessage_Severity :: 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+    )++-- | Message type unspecified.+pattern AuxiliaryMessage_Severity_SEVERITYUNSPECIFIED :: AuxiliaryMessage_Severity+pattern AuxiliaryMessage_Severity_SEVERITYUNSPECIFIED = AuxiliaryMessage_Severity "SEVERITY_UNSPECIFIED"++-- | Message of severity: info.+pattern AuxiliaryMessage_Severity_SEVERITYINFO :: AuxiliaryMessage_Severity+pattern AuxiliaryMessage_Severity_SEVERITYINFO = AuxiliaryMessage_Severity "SEVERITY_INFO"++-- | Message of severity: warning.+pattern AuxiliaryMessage_Severity_SEVERITYWARNING :: AuxiliaryMessage_Severity+pattern AuxiliaryMessage_Severity_SEVERITYWARNING = AuxiliaryMessage_Severity "SEVERITY_WARNING"++-- | Message of severity: error.+pattern AuxiliaryMessage_Severity_SEVERITYERROR :: AuxiliaryMessage_Severity+pattern AuxiliaryMessage_Severity_SEVERITYERROR = AuxiliaryMessage_Severity "SEVERITY_ERROR"++{-# COMPLETE+  AuxiliaryMessage_Severity_SEVERITYUNSPECIFIED,+  AuxiliaryMessage_Severity_SEVERITYINFO,+  AuxiliaryMessage_Severity_SEVERITYWARNING,+  AuxiliaryMessage_Severity_SEVERITYERROR,+  AuxiliaryMessage_Severity+  #-}++-- | Required. The action to take on the ChromeOS device in order to change its status.+newtype BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction = BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction {fromBatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Default value. Value is unused.+pattern BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONUNSPECIFIED :: BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction+pattern BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONUNSPECIFIED = BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction "CHANGE_CHROME_OS_DEVICE_STATUS_ACTION_UNSPECIFIED"++-- | Deprovisions a ChromeOS device. If you have ChromeOS devices that are no longer being used in your organization, you should deprovision them so that you’re no longer managing them. Deprovisioning the device removes all policies that were on the device as well as device-level printers and the ability to use the device as a kiosk. Depending on the upgrade that’s associated with the device this action might release the license back into the license pool; which allows you to use the license on a different device.+pattern BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONDEPROVISION :: BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction+pattern BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONDEPROVISION = BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction "CHANGE_CHROME_OS_DEVICE_STATUS_ACTION_DEPROVISION"++-- | Disables a ChromeOS device. Use this action if a user loses their device or it’s stolen, this makes it such that the device is still managed, so it will still receive policies, but no one can use it. Depending on the upgrade that’s associated with the device this action might release the license back into the license pool; which allows you to use the license on a different device.+pattern BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONDISABLE :: BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction+pattern BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONDISABLE = BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction "CHANGE_CHROME_OS_DEVICE_STATUS_ACTION_DISABLE"++-- | Reenables a ChromeOS device to be used after being disabled. Reenables the device once it\'s no longer lost or it\'s been recovered. This allows the device to be used again. Depending on the upgrade associated with the device this might consume one license from the license pool, meaning that if there aren\'t enough licenses available the operation will fail.+pattern BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONREENABLE :: BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction+pattern BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONREENABLE = BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction "CHANGE_CHROME_OS_DEVICE_STATUS_ACTION_REENABLE"++{-# COMPLETE+  BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONUNSPECIFIED,+  BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONDEPROVISION,+  BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONDISABLE,+  BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction_CHANGECHROMEOSDEVICESTATUSACTIONREENABLE,+  BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction+  #-}++-- | Optional. The reason behind a device deprovision. Must be provided if \'changeChromeOsDeviceStatusAction\' is set to \'CHANGE/CHROME/OS/DEVICE/STATUS/ACTION/DEPROVISION\'. Otherwise, omit this field.+newtype BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason = BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason {fromBatchChangeChromeOsDeviceStatusRequest_DeprovisionReason :: 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 deprovision reason is unknown.+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONUNSPECIFIED :: BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONUNSPECIFIED = BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason "DEPROVISION_REASON_UNSPECIFIED"++-- | Same model replacement. You have return materials authorization (RMA) or you are replacing a malfunctioning device under warranty with the same device model.+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONSAMEMODELREPLACEMENT :: BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONSAMEMODELREPLACEMENT = BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason "DEPROVISION_REASON_SAME_MODEL_REPLACEMENT"++-- | The device was upgraded.+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONUPGRADE :: BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONUPGRADE = BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason "DEPROVISION_REASON_UPGRADE"++-- | The device\'s domain was changed.+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONDOMAINMOVE :: BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONDOMAINMOVE = BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason "DEPROVISION_REASON_DOMAIN_MOVE"++-- | Service expired for the device.+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONSERVICEEXPIRATION :: BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONSERVICEEXPIRATION = BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason "DEPROVISION_REASON_SERVICE_EXPIRATION"++-- | The device was deprovisioned for a legacy reason that is no longer supported.+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONOTHER :: BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONOTHER = BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason "DEPROVISION_REASON_OTHER"++-- | Different model replacement. You are replacing this device with an upgraded or newer device model.+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONDIFFERENTMODELREPLACEMENT :: BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONDIFFERENTMODELREPLACEMENT = BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason "DEPROVISION_REASON_DIFFERENT_MODEL_REPLACEMENT"++-- | Retiring from fleet. You are donating, discarding, or otherwise removing the device from use.+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONRETIRINGDEVICE :: BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONRETIRINGDEVICE = BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason "DEPROVISION_REASON_RETIRING_DEVICE"++-- | ChromeOS Flex upgrade transfer. This is a ChromeOS Flex device that you are replacing with a Chromebook within a year.+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONUPGRADETRANSFER :: BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONUPGRADETRANSFER = BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason "DEPROVISION_REASON_UPGRADE_TRANSFER"++-- | A reason was not required. For example, the licenses were returned to the customer\'s license pool.+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONNOTREQUIRED :: BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONNOTREQUIRED = BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason "DEPROVISION_REASON_NOT_REQUIRED"++-- | The device was deprovisioned by the Repair Service Center. Can only be set by Repair Service Center during RMA.+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONREPAIRCENTER :: BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+pattern BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONREPAIRCENTER = BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason "DEPROVISION_REASON_REPAIR_CENTER"++{-# COMPLETE+  BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONUNSPECIFIED,+  BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONSAMEMODELREPLACEMENT,+  BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONUPGRADE,+  BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONDOMAINMOVE,+  BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONSERVICEEXPIRATION,+  BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONOTHER,+  BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONDIFFERENTMODELREPLACEMENT,+  BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONRETIRINGDEVICE,+  BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONUPGRADETRANSFER,+  BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONNOTREQUIRED,+  BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason_DEPROVISIONREASONREPAIRCENTER,+  BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+  #-}++-- | Output only. Chrome OS type of the device.+newtype ChromeOsDevice_ChromeOsType = ChromeOsDevice_ChromeOsType {fromChromeOsDevice_ChromeOsType :: 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+    )++-- | Chrome OS Type unspecified.+pattern ChromeOsDevice_ChromeOsType_ChromeOsTypeUnspecified :: ChromeOsDevice_ChromeOsType+pattern ChromeOsDevice_ChromeOsType_ChromeOsTypeUnspecified = ChromeOsDevice_ChromeOsType "chromeOsTypeUnspecified"++-- | Chrome OS Type Chrome OS Flex.+pattern ChromeOsDevice_ChromeOsType_ChromeOsFlex :: ChromeOsDevice_ChromeOsType+pattern ChromeOsDevice_ChromeOsType_ChromeOsFlex = ChromeOsDevice_ChromeOsType "chromeOsFlex"++-- | Chrome OS Type Chrome OS.+pattern ChromeOsDevice_ChromeOsType_ChromeOs :: ChromeOsDevice_ChromeOsType+pattern ChromeOsDevice_ChromeOsType_ChromeOs = ChromeOsDevice_ChromeOsType "chromeOs"++{-# COMPLETE+  ChromeOsDevice_ChromeOsType_ChromeOsTypeUnspecified,+  ChromeOsDevice_ChromeOsType_ChromeOsFlex,+  ChromeOsDevice_ChromeOsType_ChromeOs,+  ChromeOsDevice_ChromeOsType+  #-}++-- | (Read-only) Deprovision reason.+newtype ChromeOsDevice_DeprovisionReason = ChromeOsDevice_DeprovisionReason {fromChromeOsDevice_DeprovisionReason :: 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 deprovision reason is unknown.+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONUNSPECIFIED :: ChromeOsDevice_DeprovisionReason+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONUNSPECIFIED = ChromeOsDevice_DeprovisionReason "DEPROVISION_REASON_UNSPECIFIED"++-- | Same model replacement. You have return materials authorization (RMA) or you are replacing a malfunctioning device under warranty with the same device model.+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONSAMEMODELREPLACEMENT :: ChromeOsDevice_DeprovisionReason+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONSAMEMODELREPLACEMENT = ChromeOsDevice_DeprovisionReason "DEPROVISION_REASON_SAME_MODEL_REPLACEMENT"++-- | The device was upgraded.+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONUPGRADE :: ChromeOsDevice_DeprovisionReason+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONUPGRADE = ChromeOsDevice_DeprovisionReason "DEPROVISION_REASON_UPGRADE"++-- | The device\'s domain was changed.+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONDOMAINMOVE :: ChromeOsDevice_DeprovisionReason+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONDOMAINMOVE = ChromeOsDevice_DeprovisionReason "DEPROVISION_REASON_DOMAIN_MOVE"++-- | Service expired for the device.+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONSERVICEEXPIRATION :: ChromeOsDevice_DeprovisionReason+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONSERVICEEXPIRATION = ChromeOsDevice_DeprovisionReason "DEPROVISION_REASON_SERVICE_EXPIRATION"++-- | The device was deprovisioned for a legacy reason that is no longer supported.+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONOTHER :: ChromeOsDevice_DeprovisionReason+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONOTHER = ChromeOsDevice_DeprovisionReason "DEPROVISION_REASON_OTHER"++-- | Different model replacement. You are replacing this device with an upgraded or newer device model.+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONDIFFERENTMODELREPLACEMENT :: ChromeOsDevice_DeprovisionReason+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONDIFFERENTMODELREPLACEMENT = ChromeOsDevice_DeprovisionReason "DEPROVISION_REASON_DIFFERENT_MODEL_REPLACEMENT"++-- | Retiring from fleet. You are donating, discarding, or otherwise removing the device from use.+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONRETIRINGDEVICE :: ChromeOsDevice_DeprovisionReason+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONRETIRINGDEVICE = ChromeOsDevice_DeprovisionReason "DEPROVISION_REASON_RETIRING_DEVICE"++-- | ChromeOS Flex upgrade transfer. This is a ChromeOS Flex device that you are replacing with a Chromebook within a year.+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONUPGRADETRANSFER :: ChromeOsDevice_DeprovisionReason+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONUPGRADETRANSFER = ChromeOsDevice_DeprovisionReason "DEPROVISION_REASON_UPGRADE_TRANSFER"++-- | A reason was not required. For example, the licenses were returned to the customer\'s license pool.+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONNOTREQUIRED :: ChromeOsDevice_DeprovisionReason+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONNOTREQUIRED = ChromeOsDevice_DeprovisionReason "DEPROVISION_REASON_NOT_REQUIRED"++-- | The device was deprovisioned by the Repair Service Center. Can only be set by Repair Service Center during RMA.+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONREPAIRCENTER :: ChromeOsDevice_DeprovisionReason+pattern ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONREPAIRCENTER = ChromeOsDevice_DeprovisionReason "DEPROVISION_REASON_REPAIR_CENTER"++{-# COMPLETE+  ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONUNSPECIFIED,+  ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONSAMEMODELREPLACEMENT,+  ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONUPGRADE,+  ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONDOMAINMOVE,+  ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONSERVICEEXPIRATION,+  ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONOTHER,+  ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONDIFFERENTMODELREPLACEMENT,+  ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONRETIRINGDEVICE,+  ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONUPGRADETRANSFER,+  ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONNOTREQUIRED,+  ChromeOsDevice_DeprovisionReason_DEPROVISIONREASONREPAIRCENTER,+  ChromeOsDevice_DeprovisionReason+  #-}++-- | Output only. Device license type.+newtype ChromeOsDevice_DeviceLicenseType = ChromeOsDevice_DeviceLicenseType {fromChromeOsDevice_DeviceLicenseType :: 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 license type is unknown.+pattern ChromeOsDevice_DeviceLicenseType_DeviceLicenseTypeUnspecified :: ChromeOsDevice_DeviceLicenseType+pattern ChromeOsDevice_DeviceLicenseType_DeviceLicenseTypeUnspecified = ChromeOsDevice_DeviceLicenseType "deviceLicenseTypeUnspecified"++-- | The device is bundled with a perpetual Chrome Enterprise Upgrade.+pattern ChromeOsDevice_DeviceLicenseType_Enterprise :: ChromeOsDevice_DeviceLicenseType+pattern ChromeOsDevice_DeviceLicenseType_Enterprise = ChromeOsDevice_DeviceLicenseType "enterprise"++-- | The device has an annual standalone Chrome Enterprise Upgrade.+pattern ChromeOsDevice_DeviceLicenseType_EnterpriseUpgrade :: ChromeOsDevice_DeviceLicenseType+pattern ChromeOsDevice_DeviceLicenseType_EnterpriseUpgrade = ChromeOsDevice_DeviceLicenseType "enterpriseUpgrade"++-- | The device has a perpetual standalone Chrome Education Upgrade.+pattern ChromeOsDevice_DeviceLicenseType_EducationUpgrade :: ChromeOsDevice_DeviceLicenseType+pattern ChromeOsDevice_DeviceLicenseType_EducationUpgrade = ChromeOsDevice_DeviceLicenseType "educationUpgrade"++-- | The device is bundled with a perpetual Chrome Education Upgrade.+pattern ChromeOsDevice_DeviceLicenseType_Education :: ChromeOsDevice_DeviceLicenseType+pattern ChromeOsDevice_DeviceLicenseType_Education = ChromeOsDevice_DeviceLicenseType "education"++-- | The device has an annual Kiosk Upgrade.+pattern ChromeOsDevice_DeviceLicenseType_KioskUpgrade :: ChromeOsDevice_DeviceLicenseType+pattern ChromeOsDevice_DeviceLicenseType_KioskUpgrade = ChromeOsDevice_DeviceLicenseType "kioskUpgrade"++{-# COMPLETE+  ChromeOsDevice_DeviceLicenseType_DeviceLicenseTypeUnspecified,+  ChromeOsDevice_DeviceLicenseType_Enterprise,+  ChromeOsDevice_DeviceLicenseType_EnterpriseUpgrade,+  ChromeOsDevice_DeviceLicenseType_EducationUpgrade,+  ChromeOsDevice_DeviceLicenseType_Education,+  ChromeOsDevice_DeviceLicenseType_KioskUpgrade,+  ChromeOsDevice_DeviceLicenseType+  #-}++-- | Indicates the command state.+newtype DirectoryChromeosdevicesCommand_State = DirectoryChromeosdevicesCommand_State {fromDirectoryChromeosdevicesCommand_State :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The command status was unspecified.+pattern DirectoryChromeosdevicesCommand_State_STATEUNSPECIFIED :: DirectoryChromeosdevicesCommand_State+pattern DirectoryChromeosdevicesCommand_State_STATEUNSPECIFIED = DirectoryChromeosdevicesCommand_State "STATE_UNSPECIFIED"++-- | An unexpired command not yet sent to the client.+pattern DirectoryChromeosdevicesCommand_State_Pending :: DirectoryChromeosdevicesCommand_State+pattern DirectoryChromeosdevicesCommand_State_Pending = DirectoryChromeosdevicesCommand_State "PENDING"++-- | The command didn\'t get executed by the client within the expected time.+pattern DirectoryChromeosdevicesCommand_State_Expired :: DirectoryChromeosdevicesCommand_State+pattern DirectoryChromeosdevicesCommand_State_Expired = DirectoryChromeosdevicesCommand_State "EXPIRED"++-- | The command is cancelled by admin while in PENDING.+pattern DirectoryChromeosdevicesCommand_State_Cancelled :: DirectoryChromeosdevicesCommand_State+pattern DirectoryChromeosdevicesCommand_State_Cancelled = DirectoryChromeosdevicesCommand_State "CANCELLED"++-- | The command has been sent to the client.+pattern DirectoryChromeosdevicesCommand_State_SENTTOCLIENT :: DirectoryChromeosdevicesCommand_State+pattern DirectoryChromeosdevicesCommand_State_SENTTOCLIENT = DirectoryChromeosdevicesCommand_State "SENT_TO_CLIENT"++-- | The client has responded that it received the command.+pattern DirectoryChromeosdevicesCommand_State_ACKEDBYCLIENT :: DirectoryChromeosdevicesCommand_State+pattern DirectoryChromeosdevicesCommand_State_ACKEDBYCLIENT = DirectoryChromeosdevicesCommand_State "ACKED_BY_CLIENT"++-- | The client has (un)successfully executed the command.+pattern DirectoryChromeosdevicesCommand_State_EXECUTEDBYCLIENT :: DirectoryChromeosdevicesCommand_State+pattern DirectoryChromeosdevicesCommand_State_EXECUTEDBYCLIENT = DirectoryChromeosdevicesCommand_State "EXECUTED_BY_CLIENT"++{-# COMPLETE+  DirectoryChromeosdevicesCommand_State_STATEUNSPECIFIED,+  DirectoryChromeosdevicesCommand_State_Pending,+  DirectoryChromeosdevicesCommand_State_Expired,+  DirectoryChromeosdevicesCommand_State_Cancelled,+  DirectoryChromeosdevicesCommand_State_SENTTOCLIENT,+  DirectoryChromeosdevicesCommand_State_ACKEDBYCLIENT,+  DirectoryChromeosdevicesCommand_State_EXECUTEDBYCLIENT,+  DirectoryChromeosdevicesCommand_State+  #-}++-- | The type of the command.+newtype DirectoryChromeosdevicesCommand_Type = DirectoryChromeosdevicesCommand_Type {fromDirectoryChromeosdevicesCommand_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+    )++-- | The command type was unspecified.+pattern DirectoryChromeosdevicesCommand_Type_COMMANDTYPEUNSPECIFIED :: DirectoryChromeosdevicesCommand_Type+pattern DirectoryChromeosdevicesCommand_Type_COMMANDTYPEUNSPECIFIED = DirectoryChromeosdevicesCommand_Type "COMMAND_TYPE_UNSPECIFIED"++-- | Reboot the device. Can be issued to Kiosk and managed guest session devices, and regular devices running ChromeOS version 113 or later.+pattern DirectoryChromeosdevicesCommand_Type_Reboot :: DirectoryChromeosdevicesCommand_Type+pattern DirectoryChromeosdevicesCommand_Type_Reboot = DirectoryChromeosdevicesCommand_Type "REBOOT"++-- | Take a screenshot of the device. Only available if the device is in Kiosk Mode.+pattern DirectoryChromeosdevicesCommand_Type_TAKEASCREENSHOT :: DirectoryChromeosdevicesCommand_Type+pattern DirectoryChromeosdevicesCommand_Type_TAKEASCREENSHOT = DirectoryChromeosdevicesCommand_Type "TAKE_A_SCREENSHOT"++-- | Set the volume of the device. Can only be issued to Kiosk and managed guest session devices.+pattern DirectoryChromeosdevicesCommand_Type_SETVOLUME :: DirectoryChromeosdevicesCommand_Type+pattern DirectoryChromeosdevicesCommand_Type_SETVOLUME = DirectoryChromeosdevicesCommand_Type "SET_VOLUME"++-- | Wipe all the users off of the device. Executing this command in the device will remove all user profile data, but it will keep device policy and enrollment.+pattern DirectoryChromeosdevicesCommand_Type_WIPEUSERS :: DirectoryChromeosdevicesCommand_Type+pattern DirectoryChromeosdevicesCommand_Type_WIPEUSERS = DirectoryChromeosdevicesCommand_Type "WIPE_USERS"++-- | Wipes the device by performing a power wash. Executing this command in the device will remove all data including user policies, device policies and enrollment policies. Warning: This will revert the device back to a factory state with no enrollment unless the device is subject to forced or auto enrollment. Use with caution, as this is an irreversible action!+pattern DirectoryChromeosdevicesCommand_Type_REMOTEPOWERWASH :: DirectoryChromeosdevicesCommand_Type+pattern DirectoryChromeosdevicesCommand_Type_REMOTEPOWERWASH = DirectoryChromeosdevicesCommand_Type "REMOTE_POWERWASH"++-- | Starts a Chrome Remote Desktop session.+pattern DirectoryChromeosdevicesCommand_Type_DEVICESTARTCRDSESSION :: DirectoryChromeosdevicesCommand_Type+pattern DirectoryChromeosdevicesCommand_Type_DEVICESTARTCRDSESSION = DirectoryChromeosdevicesCommand_Type "DEVICE_START_CRD_SESSION"++-- | Capture the system logs of a kiosk device. The logs can be downloaded from the downloadUrl link present in @deviceFiles@ field of <https://developers.google.com/admin-sdk/directory/reference/rest/v1/chromeosdevices chromeosdevices>+pattern DirectoryChromeosdevicesCommand_Type_CAPTURELOGS :: DirectoryChromeosdevicesCommand_Type+pattern DirectoryChromeosdevicesCommand_Type_CAPTURELOGS = DirectoryChromeosdevicesCommand_Type "CAPTURE_LOGS"++-- | Fetch support packet from a device remotely. Support packet is a zip archive that contains various system logs and debug data from a ChromeOS device. The support packet can be downloaded from the downloadURL link present in the @deviceFiles@ field of <https://developers.google.com/admin-sdk/directory/reference/rest/v1/chromeosdevices chromeosdevices>+pattern DirectoryChromeosdevicesCommand_Type_FETCHSUPPORTPACKET :: DirectoryChromeosdevicesCommand_Type+pattern DirectoryChromeosdevicesCommand_Type_FETCHSUPPORTPACKET = DirectoryChromeosdevicesCommand_Type "FETCH_SUPPORT_PACKET"++{-# COMPLETE+  DirectoryChromeosdevicesCommand_Type_COMMANDTYPEUNSPECIFIED,+  DirectoryChromeosdevicesCommand_Type_Reboot,+  DirectoryChromeosdevicesCommand_Type_TAKEASCREENSHOT,+  DirectoryChromeosdevicesCommand_Type_SETVOLUME,+  DirectoryChromeosdevicesCommand_Type_WIPEUSERS,+  DirectoryChromeosdevicesCommand_Type_REMOTEPOWERWASH,+  DirectoryChromeosdevicesCommand_Type_DEVICESTARTCRDSESSION,+  DirectoryChromeosdevicesCommand_Type_CAPTURELOGS,+  DirectoryChromeosdevicesCommand_Type_FETCHSUPPORTPACKET,+  DirectoryChromeosdevicesCommand_Type+  #-}++-- | The result of the command.+newtype DirectoryChromeosdevicesCommandResult_Result = DirectoryChromeosdevicesCommandResult_Result {fromDirectoryChromeosdevicesCommandResult_Result :: 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 command result was unspecified.+pattern DirectoryChromeosdevicesCommandResult_Result_COMMANDRESULTTYPEUNSPECIFIED :: DirectoryChromeosdevicesCommandResult_Result+pattern DirectoryChromeosdevicesCommandResult_Result_COMMANDRESULTTYPEUNSPECIFIED = DirectoryChromeosdevicesCommandResult_Result "COMMAND_RESULT_TYPE_UNSPECIFIED"++-- | The command was ignored as obsolete.+pattern DirectoryChromeosdevicesCommandResult_Result_Ignored :: DirectoryChromeosdevicesCommandResult_Result+pattern DirectoryChromeosdevicesCommandResult_Result_Ignored = DirectoryChromeosdevicesCommandResult_Result "IGNORED"++-- | The command could not be executed successfully.+pattern DirectoryChromeosdevicesCommandResult_Result_Failure :: DirectoryChromeosdevicesCommandResult_Result+pattern DirectoryChromeosdevicesCommandResult_Result_Failure = DirectoryChromeosdevicesCommandResult_Result "FAILURE"++-- | The command was successfully executed.+pattern DirectoryChromeosdevicesCommandResult_Result_Success :: DirectoryChromeosdevicesCommandResult_Result+pattern DirectoryChromeosdevicesCommandResult_Result_Success = DirectoryChromeosdevicesCommandResult_Result "SUCCESS"++{-# COMPLETE+  DirectoryChromeosdevicesCommandResult_Result_COMMANDRESULTTYPEUNSPECIFIED,+  DirectoryChromeosdevicesCommandResult_Result_Ignored,+  DirectoryChromeosdevicesCommandResult_Result_Failure,+  DirectoryChromeosdevicesCommandResult_Result_Success,+  DirectoryChromeosdevicesCommandResult_Result+  #-}++-- | The type of command.+newtype DirectoryChromeosdevicesIssueCommandRequest_CommandType = DirectoryChromeosdevicesIssueCommandRequest_CommandType {fromDirectoryChromeosdevicesIssueCommandRequest_CommandType :: 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 command type was unspecified.+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_COMMANDTYPEUNSPECIFIED :: DirectoryChromeosdevicesIssueCommandRequest_CommandType+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_COMMANDTYPEUNSPECIFIED = DirectoryChromeosdevicesIssueCommandRequest_CommandType "COMMAND_TYPE_UNSPECIFIED"++-- | Reboot the device. Can be issued to Kiosk and managed guest session devices, and regular devices running ChromeOS version 113 or later.+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_Reboot :: DirectoryChromeosdevicesIssueCommandRequest_CommandType+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_Reboot = DirectoryChromeosdevicesIssueCommandRequest_CommandType "REBOOT"++-- | Take a screenshot of the device. Only available if the device is in Kiosk Mode.+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_TAKEASCREENSHOT :: DirectoryChromeosdevicesIssueCommandRequest_CommandType+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_TAKEASCREENSHOT = DirectoryChromeosdevicesIssueCommandRequest_CommandType "TAKE_A_SCREENSHOT"++-- | Set the volume of the device. Can only be issued to Kiosk and managed guest session devices.+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_SETVOLUME :: DirectoryChromeosdevicesIssueCommandRequest_CommandType+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_SETVOLUME = DirectoryChromeosdevicesIssueCommandRequest_CommandType "SET_VOLUME"++-- | Wipe all the users off of the device. Executing this command in the device will remove all user profile data, but it will keep device policy and enrollment.+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_WIPEUSERS :: DirectoryChromeosdevicesIssueCommandRequest_CommandType+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_WIPEUSERS = DirectoryChromeosdevicesIssueCommandRequest_CommandType "WIPE_USERS"++-- | Wipes the device by performing a power wash. Executing this command in the device will remove all data including user policies, device policies and enrollment policies. Warning: This will revert the device back to a factory state with no enrollment unless the device is subject to forced or auto enrollment. Use with caution, as this is an irreversible action!+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_REMOTEPOWERWASH :: DirectoryChromeosdevicesIssueCommandRequest_CommandType+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_REMOTEPOWERWASH = DirectoryChromeosdevicesIssueCommandRequest_CommandType "REMOTE_POWERWASH"++-- | Starts a Chrome Remote Desktop session.+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_DEVICESTARTCRDSESSION :: DirectoryChromeosdevicesIssueCommandRequest_CommandType+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_DEVICESTARTCRDSESSION = DirectoryChromeosdevicesIssueCommandRequest_CommandType "DEVICE_START_CRD_SESSION"++-- | Capture the system logs of a kiosk device. The logs can be downloaded from the downloadUrl link present in @deviceFiles@ field of <https://developers.google.com/admin-sdk/directory/reference/rest/v1/chromeosdevices chromeosdevices>+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_CAPTURELOGS :: DirectoryChromeosdevicesIssueCommandRequest_CommandType+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_CAPTURELOGS = DirectoryChromeosdevicesIssueCommandRequest_CommandType "CAPTURE_LOGS"++-- | Fetch support packet from a device remotely. Support packet is a zip archive that contains various system logs and debug data from a ChromeOS device. The support packet can be downloaded from the downloadURL link present in the @deviceFiles@ field of <https://developers.google.com/admin-sdk/directory/reference/rest/v1/chromeosdevices chromeosdevices>+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_FETCHSUPPORTPACKET :: DirectoryChromeosdevicesIssueCommandRequest_CommandType+pattern DirectoryChromeosdevicesIssueCommandRequest_CommandType_FETCHSUPPORTPACKET = DirectoryChromeosdevicesIssueCommandRequest_CommandType "FETCH_SUPPORT_PACKET"++{-# COMPLETE+  DirectoryChromeosdevicesIssueCommandRequest_CommandType_COMMANDTYPEUNSPECIFIED,+  DirectoryChromeosdevicesIssueCommandRequest_CommandType_Reboot,+  DirectoryChromeosdevicesIssueCommandRequest_CommandType_TAKEASCREENSHOT,+  DirectoryChromeosdevicesIssueCommandRequest_CommandType_SETVOLUME,+  DirectoryChromeosdevicesIssueCommandRequest_CommandType_WIPEUSERS,+  DirectoryChromeosdevicesIssueCommandRequest_CommandType_REMOTEPOWERWASH,+  DirectoryChromeosdevicesIssueCommandRequest_CommandType_DEVICESTARTCRDSESSION,+  DirectoryChromeosdevicesIssueCommandRequest_CommandType_CAPTURELOGS,+  DirectoryChromeosdevicesIssueCommandRequest_CommandType_FETCHSUPPORTPACKET,+  DirectoryChromeosdevicesIssueCommandRequest_CommandType+  #-}++-- | Canonical code for why the update failed to apply.+newtype FailureInfo_ErrorCode = FailureInfo_ErrorCode {fromFailureInfo_ErrorCode :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Not an error; returned on success. HTTP Mapping: 200 OK+pattern FailureInfo_ErrorCode_OK :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_OK = FailureInfo_ErrorCode "OK"++-- | The operation was cancelled, typically by the caller. HTTP Mapping: 499 Client Closed Request+pattern FailureInfo_ErrorCode_Cancelled :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_Cancelled = FailureInfo_ErrorCode "CANCELLED"++-- | Unknown error. For example, this error may be returned when a @Status@ value received from another address space belongs to an error space that is not known in this address space. Also errors raised by APIs that do not return enough error information may be converted to this error. HTTP Mapping: 500 Internal Server Error+pattern FailureInfo_ErrorCode_Unknown :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_Unknown = FailureInfo_ErrorCode "UNKNOWN"++-- | The client specified an invalid argument. Note that this differs from @FAILED_PRECONDITION@. @INVALID_ARGUMENT@ indicates arguments that are problematic regardless of the state of the system (e.g., a malformed file name). HTTP Mapping: 400 Bad Request+pattern FailureInfo_ErrorCode_INVALIDARGUMENT :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_INVALIDARGUMENT = FailureInfo_ErrorCode "INVALID_ARGUMENT"++-- | The deadline expired before the operation could complete. For operations that change the state of the system, this error may be returned even if the operation has completed successfully. For example, a successful response from a server could have been delayed long enough for the deadline to expire. HTTP Mapping: 504 Gateway Timeout+pattern FailureInfo_ErrorCode_DEADLINEEXCEEDED :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_DEADLINEEXCEEDED = FailureInfo_ErrorCode "DEADLINE_EXCEEDED"++-- | Some requested entity (e.g., file or directory) was not found. Note to server developers: if a request is denied for an entire class of users, such as gradual feature rollout or undocumented allowlist, @NOT_FOUND@ may be used. If a request is denied for some users within a class of users, such as user-based access control, @PERMISSION_DENIED@ must be used. HTTP Mapping: 404 Not Found+pattern FailureInfo_ErrorCode_NOTFOUND :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_NOTFOUND = FailureInfo_ErrorCode "NOT_FOUND"++-- | The entity that a client attempted to create (e.g., file or directory) already exists. HTTP Mapping: 409 Conflict+pattern FailureInfo_ErrorCode_ALREADYEXISTS :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_ALREADYEXISTS = FailureInfo_ErrorCode "ALREADY_EXISTS"++-- | The caller does not have permission to execute the specified operation. @PERMISSION_DENIED@ must not be used for rejections caused by exhausting some resource (use @RESOURCE_EXHAUSTED@ instead for those errors). @PERMISSION_DENIED@ must not be used if the caller can not be identified (use @UNAUTHENTICATED@ instead for those errors). This error code does not imply the request is valid or the requested entity exists or satisfies other pre-conditions. HTTP Mapping: 403 Forbidden+pattern FailureInfo_ErrorCode_PERMISSIONDENIED :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_PERMISSIONDENIED = FailureInfo_ErrorCode "PERMISSION_DENIED"++-- | The request does not have valid authentication credentials for the operation. HTTP Mapping: 401 Unauthorized+pattern FailureInfo_ErrorCode_Unauthenticated :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_Unauthenticated = FailureInfo_ErrorCode "UNAUTHENTICATED"++-- | Some resource has been exhausted, perhaps a per-user quota, or perhaps the entire file system is out of space. HTTP Mapping: 429 Too Many Requests+pattern FailureInfo_ErrorCode_RESOURCEEXHAUSTED :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_RESOURCEEXHAUSTED = FailureInfo_ErrorCode "RESOURCE_EXHAUSTED"++-- | The operation was rejected because the system is not in a state required for the operation\'s execution. For example, the directory to be deleted is non-empty, an rmdir operation is applied to a non-directory, etc. Service implementors can use the following guidelines to decide between @FAILED_PRECONDITION@, @ABORTED@, and @UNAVAILABLE@: (a) Use @UNAVAILABLE@ if the client can retry just the failing call. (b) Use @ABORTED@ if the client should retry at a higher level. For example, when a client-specified test-and-set fails, indicating the client should restart a read-modify-write sequence. (c) Use @FAILED_PRECONDITION@ if the client should not retry until the system state has been explicitly fixed. For example, if an \"rmdir\" fails because the directory is non-empty, @FAILED_PRECONDITION@ should be returned since the client should not retry unless the files are deleted from the directory. HTTP Mapping: 400 Bad Request+pattern FailureInfo_ErrorCode_FAILEDPRECONDITION :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_FAILEDPRECONDITION = FailureInfo_ErrorCode "FAILED_PRECONDITION"++-- | The operation was aborted, typically due to a concurrency issue such as a sequencer check failure or transaction abort. See the guidelines above for deciding between @FAILED_PRECONDITION@, @ABORTED@, and @UNAVAILABLE@. HTTP Mapping: 409 Conflict+pattern FailureInfo_ErrorCode_Aborted :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_Aborted = FailureInfo_ErrorCode "ABORTED"++-- | The operation was attempted past the valid range. E.g., seeking or reading past end-of-file. Unlike @INVALID_ARGUMENT@, this error indicates a problem that may be fixed if the system state changes. For example, a 32-bit file system will generate @INVALID_ARGUMENT@ if asked to read at an offset that is not in the range [0,2^32-1], but it will generate @OUT_OF_RANGE@ if asked to read from an offset past the current file size. There is a fair bit of overlap between @FAILED_PRECONDITION@ and @OUT_OF_RANGE@. We recommend using @OUT_OF_RANGE@ (the more specific error) when it applies so that callers who are iterating through a space can easily look for an @OUT_OF_RANGE@ error to detect when they are done. HTTP Mapping: 400 Bad Request+pattern FailureInfo_ErrorCode_OUTOFRANGE :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_OUTOFRANGE = FailureInfo_ErrorCode "OUT_OF_RANGE"++-- | The operation is not implemented or is not supported\/enabled in this service. HTTP Mapping: 501 Not Implemented+pattern FailureInfo_ErrorCode_Unimplemented :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_Unimplemented = FailureInfo_ErrorCode "UNIMPLEMENTED"++-- | Internal errors. This means that some invariants expected by the underlying system have been broken. This error code is reserved for serious errors. HTTP Mapping: 500 Internal Server Error+pattern FailureInfo_ErrorCode_Internal :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_Internal = FailureInfo_ErrorCode "INTERNAL"++-- | The service is currently unavailable. This is most likely a transient condition, which can be corrected by retrying with a backoff. Note that it is not always safe to retry non-idempotent operations. See the guidelines above for deciding between @FAILED_PRECONDITION@, @ABORTED@, and @UNAVAILABLE@. HTTP Mapping: 503 Service Unavailable+pattern FailureInfo_ErrorCode_Unavailable :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_Unavailable = FailureInfo_ErrorCode "UNAVAILABLE"++-- | Unrecoverable data loss or corruption. HTTP Mapping: 500 Internal Server Error+pattern FailureInfo_ErrorCode_DATALOSS :: FailureInfo_ErrorCode+pattern FailureInfo_ErrorCode_DATALOSS = FailureInfo_ErrorCode "DATA_LOSS"++{-# COMPLETE+  FailureInfo_ErrorCode_OK,+  FailureInfo_ErrorCode_Cancelled,+  FailureInfo_ErrorCode_Unknown,+  FailureInfo_ErrorCode_INVALIDARGUMENT,+  FailureInfo_ErrorCode_DEADLINEEXCEEDED,+  FailureInfo_ErrorCode_NOTFOUND,+  FailureInfo_ErrorCode_ALREADYEXISTS,+  FailureInfo_ErrorCode_PERMISSIONDENIED,+  FailureInfo_ErrorCode_Unauthenticated,+  FailureInfo_ErrorCode_RESOURCEEXHAUSTED,+  FailureInfo_ErrorCode_FAILEDPRECONDITION,+  FailureInfo_ErrorCode_Aborted,+  FailureInfo_ErrorCode_OUTOFRANGE,+  FailureInfo_ErrorCode_Unimplemented,+  FailureInfo_ErrorCode_Internal,+  FailureInfo_ErrorCode_Unavailable,+  FailureInfo_ErrorCode_DATALOSS,+  FailureInfo_ErrorCode+  #-}++-- | The update state of an OS update.+newtype OsUpdateStatus_State = OsUpdateStatus_State {fromOsUpdateStatus_State :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The update state is unspecified.+pattern OsUpdateStatus_State_UpdateStateUnspecified :: OsUpdateStatus_State+pattern OsUpdateStatus_State_UpdateStateUnspecified = OsUpdateStatus_State "updateStateUnspecified"++-- | There is an update pending but it hasn\'t started.+pattern OsUpdateStatus_State_UpdateStateNotStarted :: OsUpdateStatus_State+pattern OsUpdateStatus_State_UpdateStateNotStarted = OsUpdateStatus_State "updateStateNotStarted"++-- | The pending update is being downloaded.+pattern OsUpdateStatus_State_UpdateStateDownloadInProgress :: OsUpdateStatus_State+pattern OsUpdateStatus_State_UpdateStateDownloadInProgress = OsUpdateStatus_State "updateStateDownloadInProgress"++-- | The device is ready to install the update, but must reboot.+pattern OsUpdateStatus_State_UpdateStateNeedReboot :: OsUpdateStatus_State+pattern OsUpdateStatus_State_UpdateStateNeedReboot = OsUpdateStatus_State "updateStateNeedReboot"++{-# COMPLETE+  OsUpdateStatus_State_UpdateStateUnspecified,+  OsUpdateStatus_State_UpdateStateNotStarted,+  OsUpdateStatus_State_UpdateStateDownloadInProgress,+  OsUpdateStatus_State_UpdateStateNeedReboot,+  OsUpdateStatus_State+  #-}++-- | Canonical code for why the update failed to apply.+newtype PrintServerFailureInfo_ErrorCode = PrintServerFailureInfo_ErrorCode {fromPrintServerFailureInfo_ErrorCode :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Not an error; returned on success. HTTP Mapping: 200 OK+pattern PrintServerFailureInfo_ErrorCode_OK :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_OK = PrintServerFailureInfo_ErrorCode "OK"++-- | The operation was cancelled, typically by the caller. HTTP Mapping: 499 Client Closed Request+pattern PrintServerFailureInfo_ErrorCode_Cancelled :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_Cancelled = PrintServerFailureInfo_ErrorCode "CANCELLED"++-- | Unknown error. For example, this error may be returned when a @Status@ value received from another address space belongs to an error space that is not known in this address space. Also errors raised by APIs that do not return enough error information may be converted to this error. HTTP Mapping: 500 Internal Server Error+pattern PrintServerFailureInfo_ErrorCode_Unknown :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_Unknown = PrintServerFailureInfo_ErrorCode "UNKNOWN"++-- | The client specified an invalid argument. Note that this differs from @FAILED_PRECONDITION@. @INVALID_ARGUMENT@ indicates arguments that are problematic regardless of the state of the system (e.g., a malformed file name). HTTP Mapping: 400 Bad Request+pattern PrintServerFailureInfo_ErrorCode_INVALIDARGUMENT :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_INVALIDARGUMENT = PrintServerFailureInfo_ErrorCode "INVALID_ARGUMENT"++-- | The deadline expired before the operation could complete. For operations that change the state of the system, this error may be returned even if the operation has completed successfully. For example, a successful response from a server could have been delayed long enough for the deadline to expire. HTTP Mapping: 504 Gateway Timeout+pattern PrintServerFailureInfo_ErrorCode_DEADLINEEXCEEDED :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_DEADLINEEXCEEDED = PrintServerFailureInfo_ErrorCode "DEADLINE_EXCEEDED"++-- | Some requested entity (e.g., file or directory) was not found. Note to server developers: if a request is denied for an entire class of users, such as gradual feature rollout or undocumented allowlist, @NOT_FOUND@ may be used. If a request is denied for some users within a class of users, such as user-based access control, @PERMISSION_DENIED@ must be used. HTTP Mapping: 404 Not Found+pattern PrintServerFailureInfo_ErrorCode_NOTFOUND :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_NOTFOUND = PrintServerFailureInfo_ErrorCode "NOT_FOUND"++-- | The entity that a client attempted to create (e.g., file or directory) already exists. HTTP Mapping: 409 Conflict+pattern PrintServerFailureInfo_ErrorCode_ALREADYEXISTS :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_ALREADYEXISTS = PrintServerFailureInfo_ErrorCode "ALREADY_EXISTS"++-- | The caller does not have permission to execute the specified operation. @PERMISSION_DENIED@ must not be used for rejections caused by exhausting some resource (use @RESOURCE_EXHAUSTED@ instead for those errors). @PERMISSION_DENIED@ must not be used if the caller can not be identified (use @UNAUTHENTICATED@ instead for those errors). This error code does not imply the request is valid or the requested entity exists or satisfies other pre-conditions. HTTP Mapping: 403 Forbidden+pattern PrintServerFailureInfo_ErrorCode_PERMISSIONDENIED :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_PERMISSIONDENIED = PrintServerFailureInfo_ErrorCode "PERMISSION_DENIED"++-- | The request does not have valid authentication credentials for the operation. HTTP Mapping: 401 Unauthorized+pattern PrintServerFailureInfo_ErrorCode_Unauthenticated :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_Unauthenticated = PrintServerFailureInfo_ErrorCode "UNAUTHENTICATED"++-- | Some resource has been exhausted, perhaps a per-user quota, or perhaps the entire file system is out of space. HTTP Mapping: 429 Too Many Requests+pattern PrintServerFailureInfo_ErrorCode_RESOURCEEXHAUSTED :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_RESOURCEEXHAUSTED = PrintServerFailureInfo_ErrorCode "RESOURCE_EXHAUSTED"++-- | The operation was rejected because the system is not in a state required for the operation\'s execution. For example, the directory to be deleted is non-empty, an rmdir operation is applied to a non-directory, etc. Service implementors can use the following guidelines to decide between @FAILED_PRECONDITION@, @ABORTED@, and @UNAVAILABLE@: (a) Use @UNAVAILABLE@ if the client can retry just the failing call. (b) Use @ABORTED@ if the client should retry at a higher level. For example, when a client-specified test-and-set fails, indicating the client should restart a read-modify-write sequence. (c) Use @FAILED_PRECONDITION@ if the client should not retry until the system state has been explicitly fixed. For example, if an \"rmdir\" fails because the directory is non-empty, @FAILED_PRECONDITION@ should be returned since the client should not retry unless the files are deleted from the directory. HTTP Mapping: 400 Bad Request+pattern PrintServerFailureInfo_ErrorCode_FAILEDPRECONDITION :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_FAILEDPRECONDITION = PrintServerFailureInfo_ErrorCode "FAILED_PRECONDITION"++-- | The operation was aborted, typically due to a concurrency issue such as a sequencer check failure or transaction abort. See the guidelines above for deciding between @FAILED_PRECONDITION@, @ABORTED@, and @UNAVAILABLE@. HTTP Mapping: 409 Conflict+pattern PrintServerFailureInfo_ErrorCode_Aborted :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_Aborted = PrintServerFailureInfo_ErrorCode "ABORTED"++-- | The operation was attempted past the valid range. E.g., seeking or reading past end-of-file. Unlike @INVALID_ARGUMENT@, this error indicates a problem that may be fixed if the system state changes. For example, a 32-bit file system will generate @INVALID_ARGUMENT@ if asked to read at an offset that is not in the range [0,2^32-1], but it will generate @OUT_OF_RANGE@ if asked to read from an offset past the current file size. There is a fair bit of overlap between @FAILED_PRECONDITION@ and @OUT_OF_RANGE@. We recommend using @OUT_OF_RANGE@ (the more specific error) when it applies so that callers who are iterating through a space can easily look for an @OUT_OF_RANGE@ error to detect when they are done. HTTP Mapping: 400 Bad Request+pattern PrintServerFailureInfo_ErrorCode_OUTOFRANGE :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_OUTOFRANGE = PrintServerFailureInfo_ErrorCode "OUT_OF_RANGE"++-- | The operation is not implemented or is not supported\/enabled in this service. HTTP Mapping: 501 Not Implemented+pattern PrintServerFailureInfo_ErrorCode_Unimplemented :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_Unimplemented = PrintServerFailureInfo_ErrorCode "UNIMPLEMENTED"++-- | Internal errors. This means that some invariants expected by the underlying system have been broken. This error code is reserved for serious errors. HTTP Mapping: 500 Internal Server Error+pattern PrintServerFailureInfo_ErrorCode_Internal :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_Internal = PrintServerFailureInfo_ErrorCode "INTERNAL"++-- | The service is currently unavailable. This is most likely a transient condition, which can be corrected by retrying with a backoff. Note that it is not always safe to retry non-idempotent operations. See the guidelines above for deciding between @FAILED_PRECONDITION@, @ABORTED@, and @UNAVAILABLE@. HTTP Mapping: 503 Service Unavailable+pattern PrintServerFailureInfo_ErrorCode_Unavailable :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_Unavailable = PrintServerFailureInfo_ErrorCode "UNAVAILABLE"++-- | Unrecoverable data loss or corruption. HTTP Mapping: 500 Internal Server Error+pattern PrintServerFailureInfo_ErrorCode_DATALOSS :: PrintServerFailureInfo_ErrorCode+pattern PrintServerFailureInfo_ErrorCode_DATALOSS = PrintServerFailureInfo_ErrorCode "DATA_LOSS"++{-# COMPLETE+  PrintServerFailureInfo_ErrorCode_OK,+  PrintServerFailureInfo_ErrorCode_Cancelled,+  PrintServerFailureInfo_ErrorCode_Unknown,+  PrintServerFailureInfo_ErrorCode_INVALIDARGUMENT,+  PrintServerFailureInfo_ErrorCode_DEADLINEEXCEEDED,+  PrintServerFailureInfo_ErrorCode_NOTFOUND,+  PrintServerFailureInfo_ErrorCode_ALREADYEXISTS,+  PrintServerFailureInfo_ErrorCode_PERMISSIONDENIED,+  PrintServerFailureInfo_ErrorCode_Unauthenticated,+  PrintServerFailureInfo_ErrorCode_RESOURCEEXHAUSTED,+  PrintServerFailureInfo_ErrorCode_FAILEDPRECONDITION,+  PrintServerFailureInfo_ErrorCode_Aborted,+  PrintServerFailureInfo_ErrorCode_OUTOFRANGE,+  PrintServerFailureInfo_ErrorCode_Unimplemented,+  PrintServerFailureInfo_ErrorCode_Internal,+  PrintServerFailureInfo_ErrorCode_Unavailable,+  PrintServerFailureInfo_ErrorCode_DATALOSS,+  PrintServerFailureInfo_ErrorCode+  #-}++-- | Output only. The type of the assignee (@USER@ or @GROUP@).+newtype RoleAssignment_AssigneeType = RoleAssignment_AssigneeType {fromRoleAssignment_AssigneeType :: 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+    )++-- | An individual user within the domain.+pattern RoleAssignment_AssigneeType_User :: RoleAssignment_AssigneeType+pattern RoleAssignment_AssigneeType_User = RoleAssignment_AssigneeType "user"++-- | A group within the domain.+pattern RoleAssignment_AssigneeType_Group :: RoleAssignment_AssigneeType+pattern RoleAssignment_AssigneeType_Group = RoleAssignment_AssigneeType "group"++{-# COMPLETE+  RoleAssignment_AssigneeType_User,+  RoleAssignment_AssigneeType_Group,+  RoleAssignment_AssigneeType+  #-}++-- | Determines whether the response contains the full list of properties or only a subset.+newtype ChromeosdevicesGetProjection = ChromeosdevicesGetProjection {fromChromeosdevicesGetProjection :: 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+    )++-- | Includes only the basic metadata fields (e.g., deviceId, serialNumber, status, and user)+pattern ChromeosdevicesGetProjection_Basic :: ChromeosdevicesGetProjection+pattern ChromeosdevicesGetProjection_Basic = ChromeosdevicesGetProjection "BASIC"++-- | Includes all metadata fields+pattern ChromeosdevicesGetProjection_Full :: ChromeosdevicesGetProjection+pattern ChromeosdevicesGetProjection_Full = ChromeosdevicesGetProjection "FULL"++{-# COMPLETE+  ChromeosdevicesGetProjection_Basic,+  ChromeosdevicesGetProjection_Full,+  ChromeosdevicesGetProjection+  #-}++-- | Device property to use for sorting results.+newtype ChromeosdevicesListOrderBy = ChromeosdevicesListOrderBy {fromChromeosdevicesListOrderBy :: 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+    )++-- | Chrome device location as annotated by the administrator.+pattern ChromeosdevicesListOrderBy_AnnotatedLocation :: ChromeosdevicesListOrderBy+pattern ChromeosdevicesListOrderBy_AnnotatedLocation = ChromeosdevicesListOrderBy "annotatedLocation"++-- | Chromebook user as annotated by administrator.+pattern ChromeosdevicesListOrderBy_AnnotatedUser :: ChromeosdevicesListOrderBy+pattern ChromeosdevicesListOrderBy_AnnotatedUser = ChromeosdevicesListOrderBy "annotatedUser"++-- | The date and time the Chrome device was last synchronized with the policy settings in the Admin console.+pattern ChromeosdevicesListOrderBy_LastSync :: ChromeosdevicesListOrderBy+pattern ChromeosdevicesListOrderBy_LastSync = ChromeosdevicesListOrderBy "lastSync"++-- | Chrome device notes as annotated by the administrator.+pattern ChromeosdevicesListOrderBy_Notes :: ChromeosdevicesListOrderBy+pattern ChromeosdevicesListOrderBy_Notes = ChromeosdevicesListOrderBy "notes"++-- | The Chrome device serial number entered when the device was enabled.+pattern ChromeosdevicesListOrderBy_SerialNumber :: ChromeosdevicesListOrderBy+pattern ChromeosdevicesListOrderBy_SerialNumber = ChromeosdevicesListOrderBy "serialNumber"++-- | Chrome device status. For more information, see the \<a </admin-sdk/directory/v1/reference/chromeosdevices.html chromeosdevices>.+pattern ChromeosdevicesListOrderBy_Status :: ChromeosdevicesListOrderBy+pattern ChromeosdevicesListOrderBy_Status = ChromeosdevicesListOrderBy "status"++{-# COMPLETE+  ChromeosdevicesListOrderBy_AnnotatedLocation,+  ChromeosdevicesListOrderBy_AnnotatedUser,+  ChromeosdevicesListOrderBy_LastSync,+  ChromeosdevicesListOrderBy_Notes,+  ChromeosdevicesListOrderBy_SerialNumber,+  ChromeosdevicesListOrderBy_Status,+  ChromeosdevicesListOrderBy+  #-}++-- | Determines whether the response contains the full list of properties or only a subset.+newtype ChromeosdevicesListProjection = ChromeosdevicesListProjection {fromChromeosdevicesListProjection :: 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+    )++-- | Includes only the basic metadata fields (e.g., deviceId, serialNumber, status, and user)+pattern ChromeosdevicesListProjection_Basic :: ChromeosdevicesListProjection+pattern ChromeosdevicesListProjection_Basic = ChromeosdevicesListProjection "BASIC"++-- | Includes all metadata fields+pattern ChromeosdevicesListProjection_Full :: ChromeosdevicesListProjection+pattern ChromeosdevicesListProjection_Full = ChromeosdevicesListProjection "FULL"++{-# COMPLETE+  ChromeosdevicesListProjection_Basic,+  ChromeosdevicesListProjection_Full,+  ChromeosdevicesListProjection+  #-}++-- | Whether to return results in ascending or descending order. Must be used with the @orderBy@ parameter.+newtype ChromeosdevicesListSortOrder = ChromeosdevicesListSortOrder {fromChromeosdevicesListSortOrder :: 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+    )++-- | Ascending order.+pattern ChromeosdevicesListSortOrder_Ascending :: ChromeosdevicesListSortOrder+pattern ChromeosdevicesListSortOrder_Ascending = ChromeosdevicesListSortOrder "ASCENDING"++-- | Descending order.+pattern ChromeosdevicesListSortOrder_Descending :: ChromeosdevicesListSortOrder+pattern ChromeosdevicesListSortOrder_Descending = ChromeosdevicesListSortOrder "DESCENDING"++{-# COMPLETE+  ChromeosdevicesListSortOrder_Ascending,+  ChromeosdevicesListSortOrder_Descending,+  ChromeosdevicesListSortOrder+  #-}++-- | Determines whether the response contains the full list of properties or only a subset.+newtype ChromeosdevicesPatchProjection = ChromeosdevicesPatchProjection {fromChromeosdevicesPatchProjection :: 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+    )++-- | Includes only the basic metadata fields (e.g., deviceId, serialNumber, status, and user)+pattern ChromeosdevicesPatchProjection_Basic :: ChromeosdevicesPatchProjection+pattern ChromeosdevicesPatchProjection_Basic = ChromeosdevicesPatchProjection "BASIC"++-- | Includes all metadata fields+pattern ChromeosdevicesPatchProjection_Full :: ChromeosdevicesPatchProjection+pattern ChromeosdevicesPatchProjection_Full = ChromeosdevicesPatchProjection "FULL"++{-# COMPLETE+  ChromeosdevicesPatchProjection_Basic,+  ChromeosdevicesPatchProjection_Full,+  ChromeosdevicesPatchProjection+  #-}++-- | Determines whether the response contains the full list of properties or only a subset.+newtype ChromeosdevicesUpdateProjection = ChromeosdevicesUpdateProjection {fromChromeosdevicesUpdateProjection :: 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+    )++-- | Includes only the basic metadata fields (e.g., deviceId, serialNumber, status, and user)+pattern ChromeosdevicesUpdateProjection_Basic :: ChromeosdevicesUpdateProjection+pattern ChromeosdevicesUpdateProjection_Basic = ChromeosdevicesUpdateProjection "BASIC"++-- | Includes all metadata fields+pattern ChromeosdevicesUpdateProjection_Full :: ChromeosdevicesUpdateProjection+pattern ChromeosdevicesUpdateProjection_Full = ChromeosdevicesUpdateProjection "FULL"++{-# COMPLETE+  ChromeosdevicesUpdateProjection_Basic,+  ChromeosdevicesUpdateProjection_Full,+  ChromeosdevicesUpdateProjection+  #-}++-- | Column to use for sorting results+newtype GroupsListOrderBy = GroupsListOrderBy {fromGroupsListOrderBy :: 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+    )++-- | Email of the group.+pattern GroupsListOrderBy_Email :: GroupsListOrderBy+pattern GroupsListOrderBy_Email = GroupsListOrderBy "email"++{-# COMPLETE+  GroupsListOrderBy_Email,+  GroupsListOrderBy+  #-}++-- | Whether to return results in ascending or descending order. Only of use when orderBy is also used+newtype GroupsListSortOrder = GroupsListSortOrder {fromGroupsListSortOrder :: 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+    )++-- | Ascending order.+pattern GroupsListSortOrder_Ascending :: GroupsListSortOrder+pattern GroupsListSortOrder_Ascending = GroupsListSortOrder "ASCENDING"++-- | Descending order.+pattern GroupsListSortOrder_Descending :: GroupsListSortOrder+pattern GroupsListSortOrder_Descending = GroupsListSortOrder "DESCENDING"++{-# COMPLETE+  GroupsListSortOrder_Ascending,+  GroupsListSortOrder_Descending,+  GroupsListSortOrder+  #-}++-- | Restrict information returned to a set of selected fields.+newtype MobiledevicesGetProjection = MobiledevicesGetProjection {fromMobiledevicesGetProjection :: 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+    )++-- | Includes only the basic metadata fields (e.g., deviceId, model, status, type, and status)+pattern MobiledevicesGetProjection_Basic :: MobiledevicesGetProjection+pattern MobiledevicesGetProjection_Basic = MobiledevicesGetProjection "BASIC"++-- | Includes all metadata fields+pattern MobiledevicesGetProjection_Full :: MobiledevicesGetProjection+pattern MobiledevicesGetProjection_Full = MobiledevicesGetProjection "FULL"++{-# COMPLETE+  MobiledevicesGetProjection_Basic,+  MobiledevicesGetProjection_Full,+  MobiledevicesGetProjection+  #-}++-- | Device property to use for sorting results.+newtype MobiledevicesListOrderBy = MobiledevicesListOrderBy {fromMobiledevicesListOrderBy :: 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 serial number for a Google Sync mobile device. For Android devices, this is a software generated unique identifier.+pattern MobiledevicesListOrderBy_DeviceId :: MobiledevicesListOrderBy+pattern MobiledevicesListOrderBy_DeviceId = MobiledevicesListOrderBy "deviceId"++-- | The device owner\'s email address.+pattern MobiledevicesListOrderBy_Email :: MobiledevicesListOrderBy+pattern MobiledevicesListOrderBy_Email = MobiledevicesListOrderBy "email"++-- | Last policy settings sync date time of the device.+pattern MobiledevicesListOrderBy_LastSync :: MobiledevicesListOrderBy+pattern MobiledevicesListOrderBy_LastSync = MobiledevicesListOrderBy "lastSync"++-- | The mobile device\'s model.+pattern MobiledevicesListOrderBy_Model :: MobiledevicesListOrderBy+pattern MobiledevicesListOrderBy_Model = MobiledevicesListOrderBy "model"++-- | The device owner\'s user name.+pattern MobiledevicesListOrderBy_Name :: MobiledevicesListOrderBy+pattern MobiledevicesListOrderBy_Name = MobiledevicesListOrderBy "name"++-- | The device\'s operating system.+pattern MobiledevicesListOrderBy_OS :: MobiledevicesListOrderBy+pattern MobiledevicesListOrderBy_OS = MobiledevicesListOrderBy "os"++-- | The device status.+pattern MobiledevicesListOrderBy_Status :: MobiledevicesListOrderBy+pattern MobiledevicesListOrderBy_Status = MobiledevicesListOrderBy "status"++-- | Type of the device.+pattern MobiledevicesListOrderBy_Type :: MobiledevicesListOrderBy+pattern MobiledevicesListOrderBy_Type = MobiledevicesListOrderBy "type"++{-# COMPLETE+  MobiledevicesListOrderBy_DeviceId,+  MobiledevicesListOrderBy_Email,+  MobiledevicesListOrderBy_LastSync,+  MobiledevicesListOrderBy_Model,+  MobiledevicesListOrderBy_Name,+  MobiledevicesListOrderBy_OS,+  MobiledevicesListOrderBy_Status,+  MobiledevicesListOrderBy_Type,+  MobiledevicesListOrderBy+  #-}++-- | Restrict information returned to a set of selected fields.+newtype MobiledevicesListProjection = MobiledevicesListProjection {fromMobiledevicesListProjection :: 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+    )++-- | Includes only the basic metadata fields (e.g., deviceId, model, status, type, and status)+pattern MobiledevicesListProjection_Basic :: MobiledevicesListProjection+pattern MobiledevicesListProjection_Basic = MobiledevicesListProjection "BASIC"++-- | Includes all metadata fields+pattern MobiledevicesListProjection_Full :: MobiledevicesListProjection+pattern MobiledevicesListProjection_Full = MobiledevicesListProjection "FULL"++{-# COMPLETE+  MobiledevicesListProjection_Basic,+  MobiledevicesListProjection_Full,+  MobiledevicesListProjection+  #-}++-- | Whether to return results in ascending or descending order. Must be used with the @orderBy@ parameter.+newtype MobiledevicesListSortOrder = MobiledevicesListSortOrder {fromMobiledevicesListSortOrder :: 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+    )++-- | Ascending order.+pattern MobiledevicesListSortOrder_Ascending :: MobiledevicesListSortOrder+pattern MobiledevicesListSortOrder_Ascending = MobiledevicesListSortOrder "ASCENDING"++-- | Descending order.+pattern MobiledevicesListSortOrder_Descending :: MobiledevicesListSortOrder+pattern MobiledevicesListSortOrder_Descending = MobiledevicesListSortOrder "DESCENDING"++{-# COMPLETE+  MobiledevicesListSortOrder_Ascending,+  MobiledevicesListSortOrder_Descending,+  MobiledevicesListSortOrder+  #-}++-- | Whether to return all sub-organizations or just immediate children.+newtype OrgunitsListType = OrgunitsListType {fromOrgunitsListType :: 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+    )++-- | All sub-organizational units.+pattern OrgunitsListType_All :: OrgunitsListType+pattern OrgunitsListType_All = OrgunitsListType "all"++-- | Immediate children only (default).+pattern OrgunitsListType_Children :: OrgunitsListType+pattern OrgunitsListType_Children = OrgunitsListType "children"++-- | All sub-organizational units and the specified organizational unit (root if not specified).+pattern OrgunitsListType_AllIncludingParent :: OrgunitsListType+pattern OrgunitsListType_AllIncludingParent = OrgunitsListType "allIncludingParent"++{-# COMPLETE+  OrgunitsListType_All,+  OrgunitsListType_Children,+  OrgunitsListType_AllIncludingParent,+  OrgunitsListType+  #-}++-- | Source from which Building.coordinates are derived.+newtype ResourcesBuildingsInsertCoordinatesSource = ResourcesBuildingsInsertCoordinatesSource {fromResourcesBuildingsInsertCoordinatesSource :: 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+    )++-- | Building.coordinates are set to the coordinates included in the request.+pattern ResourcesBuildingsInsertCoordinatesSource_CLIENTSPECIFIED :: ResourcesBuildingsInsertCoordinatesSource+pattern ResourcesBuildingsInsertCoordinatesSource_CLIENTSPECIFIED = ResourcesBuildingsInsertCoordinatesSource "CLIENT_SPECIFIED"++-- | Building.coordinates are automatically populated based on the postal address.+pattern ResourcesBuildingsInsertCoordinatesSource_RESOLVEDFROMADDRESS :: ResourcesBuildingsInsertCoordinatesSource+pattern ResourcesBuildingsInsertCoordinatesSource_RESOLVEDFROMADDRESS = ResourcesBuildingsInsertCoordinatesSource "RESOLVED_FROM_ADDRESS"++-- | Defaults to @RESOLVED_FROM_ADDRESS@ if postal address is provided. Otherwise, defaults to @CLIENT_SPECIFIED@ if coordinates are provided.+pattern ResourcesBuildingsInsertCoordinatesSource_SOURCEUNSPECIFIED :: ResourcesBuildingsInsertCoordinatesSource+pattern ResourcesBuildingsInsertCoordinatesSource_SOURCEUNSPECIFIED = ResourcesBuildingsInsertCoordinatesSource "SOURCE_UNSPECIFIED"++{-# COMPLETE+  ResourcesBuildingsInsertCoordinatesSource_CLIENTSPECIFIED,+  ResourcesBuildingsInsertCoordinatesSource_RESOLVEDFROMADDRESS,+  ResourcesBuildingsInsertCoordinatesSource_SOURCEUNSPECIFIED,+  ResourcesBuildingsInsertCoordinatesSource+  #-}++-- | Source from which Building.coordinates are derived.+newtype ResourcesBuildingsPatchCoordinatesSource = ResourcesBuildingsPatchCoordinatesSource {fromResourcesBuildingsPatchCoordinatesSource :: 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+    )++-- | Building.coordinates are set to the coordinates included in the request.+pattern ResourcesBuildingsPatchCoordinatesSource_CLIENTSPECIFIED :: ResourcesBuildingsPatchCoordinatesSource+pattern ResourcesBuildingsPatchCoordinatesSource_CLIENTSPECIFIED = ResourcesBuildingsPatchCoordinatesSource "CLIENT_SPECIFIED"++-- | Building.coordinates are automatically populated based on the postal address.+pattern ResourcesBuildingsPatchCoordinatesSource_RESOLVEDFROMADDRESS :: ResourcesBuildingsPatchCoordinatesSource+pattern ResourcesBuildingsPatchCoordinatesSource_RESOLVEDFROMADDRESS = ResourcesBuildingsPatchCoordinatesSource "RESOLVED_FROM_ADDRESS"++-- | Defaults to @RESOLVED_FROM_ADDRESS@ if postal address is provided. Otherwise, defaults to @CLIENT_SPECIFIED@ if coordinates are provided.+pattern ResourcesBuildingsPatchCoordinatesSource_SOURCEUNSPECIFIED :: ResourcesBuildingsPatchCoordinatesSource+pattern ResourcesBuildingsPatchCoordinatesSource_SOURCEUNSPECIFIED = ResourcesBuildingsPatchCoordinatesSource "SOURCE_UNSPECIFIED"++{-# COMPLETE+  ResourcesBuildingsPatchCoordinatesSource_CLIENTSPECIFIED,+  ResourcesBuildingsPatchCoordinatesSource_RESOLVEDFROMADDRESS,+  ResourcesBuildingsPatchCoordinatesSource_SOURCEUNSPECIFIED,+  ResourcesBuildingsPatchCoordinatesSource+  #-}++-- | Source from which Building.coordinates are derived.+newtype ResourcesBuildingsUpdateCoordinatesSource = ResourcesBuildingsUpdateCoordinatesSource {fromResourcesBuildingsUpdateCoordinatesSource :: 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+    )++-- | Building.coordinates are set to the coordinates included in the request.+pattern ResourcesBuildingsUpdateCoordinatesSource_CLIENTSPECIFIED :: ResourcesBuildingsUpdateCoordinatesSource+pattern ResourcesBuildingsUpdateCoordinatesSource_CLIENTSPECIFIED = ResourcesBuildingsUpdateCoordinatesSource "CLIENT_SPECIFIED"++-- | Building.coordinates are automatically populated based on the postal address.+pattern ResourcesBuildingsUpdateCoordinatesSource_RESOLVEDFROMADDRESS :: ResourcesBuildingsUpdateCoordinatesSource+pattern ResourcesBuildingsUpdateCoordinatesSource_RESOLVEDFROMADDRESS = ResourcesBuildingsUpdateCoordinatesSource "RESOLVED_FROM_ADDRESS"++-- | Defaults to @RESOLVED_FROM_ADDRESS@ if postal address is provided. Otherwise, defaults to @CLIENT_SPECIFIED@ if coordinates are provided.+pattern ResourcesBuildingsUpdateCoordinatesSource_SOURCEUNSPECIFIED :: ResourcesBuildingsUpdateCoordinatesSource+pattern ResourcesBuildingsUpdateCoordinatesSource_SOURCEUNSPECIFIED = ResourcesBuildingsUpdateCoordinatesSource "SOURCE_UNSPECIFIED"++{-# COMPLETE+  ResourcesBuildingsUpdateCoordinatesSource_CLIENTSPECIFIED,+  ResourcesBuildingsUpdateCoordinatesSource_RESOLVEDFROMADDRESS,+  ResourcesBuildingsUpdateCoordinatesSource_SOURCEUNSPECIFIED,+  ResourcesBuildingsUpdateCoordinatesSource+  #-}++-- | Events to watch for.+newtype UsersAliasesListEvent = UsersAliasesListEvent {fromUsersAliasesListEvent :: 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+    )++-- | Alias Created Event+pattern UsersAliasesListEvent_Add :: UsersAliasesListEvent+pattern UsersAliasesListEvent_Add = UsersAliasesListEvent "add"++-- | Alias Deleted Event+pattern UsersAliasesListEvent_Delete' :: UsersAliasesListEvent+pattern UsersAliasesListEvent_Delete' = UsersAliasesListEvent "delete"++{-# COMPLETE+  UsersAliasesListEvent_Add,+  UsersAliasesListEvent_Delete',+  UsersAliasesListEvent+  #-}++-- | Events to watch for.+newtype UsersAliasesWatchEvent = UsersAliasesWatchEvent {fromUsersAliasesWatchEvent :: 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+    )++-- | Alias Created Event+pattern UsersAliasesWatchEvent_Add :: UsersAliasesWatchEvent+pattern UsersAliasesWatchEvent_Add = UsersAliasesWatchEvent "add"++-- | Alias Deleted Event+pattern UsersAliasesWatchEvent_Delete' :: UsersAliasesWatchEvent+pattern UsersAliasesWatchEvent_Delete' = UsersAliasesWatchEvent "delete"++{-# COMPLETE+  UsersAliasesWatchEvent_Add,+  UsersAliasesWatchEvent_Delete',+  UsersAliasesWatchEvent+  #-}++-- | What subset of fields to fetch for this user.+newtype UsersGetProjection = UsersGetProjection {fromUsersGetProjection :: 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+    )++-- | Do not include any custom fields for the user.+pattern UsersGetProjection_Basic :: UsersGetProjection+pattern UsersGetProjection_Basic = UsersGetProjection "basic"++-- | Include custom fields from schemas requested in @customFieldMask@.+pattern UsersGetProjection_Custom :: UsersGetProjection+pattern UsersGetProjection_Custom = UsersGetProjection "custom"++-- | Include all fields associated with this user.+pattern UsersGetProjection_Full :: UsersGetProjection+pattern UsersGetProjection_Full = UsersGetProjection "full"++{-# COMPLETE+  UsersGetProjection_Basic,+  UsersGetProjection_Custom,+  UsersGetProjection_Full,+  UsersGetProjection+  #-}++-- | Whether to fetch the administrator-only or domain-wide public view of the user. For more information, see </admin-sdk/directory/v1/guides/manage-users#retrieve_users_non_admin Retrieve a user as a non-administrator>.+newtype UsersGetViewType = UsersGetViewType {fromUsersGetViewType :: 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+    )++-- | Results include both administrator-only and domain-public fields for the user.+pattern UsersGetViewType_AdminView :: UsersGetViewType+pattern UsersGetViewType_AdminView = UsersGetViewType "admin_view"++-- | Results only include fields for the user that are publicly visible to other users in the domain.+pattern UsersGetViewType_DomainPublic :: UsersGetViewType+pattern UsersGetViewType_DomainPublic = UsersGetViewType "domain_public"++{-# COMPLETE+  UsersGetViewType_AdminView,+  UsersGetViewType_DomainPublic,+  UsersGetViewType+  #-}++-- | Event on which subscription is intended (if subscribing)+newtype UsersListEvent = UsersListEvent {fromUsersListEvent :: 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+    )++-- | User Created Event+pattern UsersListEvent_Add :: UsersListEvent+pattern UsersListEvent_Add = UsersListEvent "add"++-- | User Deleted Event+pattern UsersListEvent_Delete' :: UsersListEvent+pattern UsersListEvent_Delete' = UsersListEvent "delete"++-- | User Admin Status Change Event+pattern UsersListEvent_MakeAdmin :: UsersListEvent+pattern UsersListEvent_MakeAdmin = UsersListEvent "makeAdmin"++-- | User Undeleted Event+pattern UsersListEvent_Undelete :: UsersListEvent+pattern UsersListEvent_Undelete = UsersListEvent "undelete"++-- | User Updated Event+pattern UsersListEvent_Update :: UsersListEvent+pattern UsersListEvent_Update = UsersListEvent "update"++{-# COMPLETE+  UsersListEvent_Add,+  UsersListEvent_Delete',+  UsersListEvent_MakeAdmin,+  UsersListEvent_Undelete,+  UsersListEvent_Update,+  UsersListEvent+  #-}++-- | Property to use for sorting results.+newtype UsersListOrderBy = UsersListOrderBy {fromUsersListOrderBy :: 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+    )++-- | Primary email of the user.+pattern UsersListOrderBy_Email :: UsersListOrderBy+pattern UsersListOrderBy_Email = UsersListOrderBy "email"++-- | User\'s family name.+pattern UsersListOrderBy_FamilyName :: UsersListOrderBy+pattern UsersListOrderBy_FamilyName = UsersListOrderBy "familyName"++-- | User\'s given name.+pattern UsersListOrderBy_GivenName :: UsersListOrderBy+pattern UsersListOrderBy_GivenName = UsersListOrderBy "givenName"++{-# COMPLETE+  UsersListOrderBy_Email,+  UsersListOrderBy_FamilyName,+  UsersListOrderBy_GivenName,+  UsersListOrderBy+  #-}++-- | What subset of fields to fetch for this user.+newtype UsersListProjection = UsersListProjection {fromUsersListProjection :: 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+    )++-- | Do not include any custom fields for the user.+pattern UsersListProjection_Basic :: UsersListProjection+pattern UsersListProjection_Basic = UsersListProjection "basic"++-- | Include custom fields from schemas requested in @customFieldMask@.+pattern UsersListProjection_Custom :: UsersListProjection+pattern UsersListProjection_Custom = UsersListProjection "custom"++-- | Include all fields associated with this user.+pattern UsersListProjection_Full :: UsersListProjection+pattern UsersListProjection_Full = UsersListProjection "full"++{-# COMPLETE+  UsersListProjection_Basic,+  UsersListProjection_Custom,+  UsersListProjection_Full,+  UsersListProjection+  #-}++-- | Whether to return results in ascending or descending order, ignoring case.+newtype UsersListSortOrder = UsersListSortOrder {fromUsersListSortOrder :: 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+    )++-- | Ascending order.+pattern UsersListSortOrder_Ascending :: UsersListSortOrder+pattern UsersListSortOrder_Ascending = UsersListSortOrder "ASCENDING"++-- | Descending order.+pattern UsersListSortOrder_Descending :: UsersListSortOrder+pattern UsersListSortOrder_Descending = UsersListSortOrder "DESCENDING"++{-# COMPLETE+  UsersListSortOrder_Ascending,+  UsersListSortOrder_Descending,+  UsersListSortOrder+  #-}++-- | Whether to fetch the administrator-only or domain-wide public view of the user. For more information, see </admin-sdk/directory/v1/guides/manage-users#retrieve_users_non_admin Retrieve a user as a non-administrator>.+newtype UsersListViewType = UsersListViewType {fromUsersListViewType :: 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+    )++-- | Results include both administrator-only and domain-public fields for the user.+pattern UsersListViewType_AdminView :: UsersListViewType+pattern UsersListViewType_AdminView = UsersListViewType "admin_view"++-- | Results only include fields for the user that are publicly visible to other users in the domain.+pattern UsersListViewType_DomainPublic :: UsersListViewType+pattern UsersListViewType_DomainPublic = UsersListViewType "domain_public"++{-# COMPLETE+  UsersListViewType_AdminView,+  UsersListViewType_DomainPublic,+  UsersListViewType+  #-}++-- | Events to watch for.+newtype UsersWatchEvent = UsersWatchEvent {fromUsersWatchEvent :: 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+    )++-- | User Created Event+pattern UsersWatchEvent_Add :: UsersWatchEvent+pattern UsersWatchEvent_Add = UsersWatchEvent "add"++-- | User Deleted Event+pattern UsersWatchEvent_Delete' :: UsersWatchEvent+pattern UsersWatchEvent_Delete' = UsersWatchEvent "delete"++-- | User Admin Status Change Event+pattern UsersWatchEvent_MakeAdmin :: UsersWatchEvent+pattern UsersWatchEvent_MakeAdmin = UsersWatchEvent "makeAdmin"++-- | User Undeleted Event+pattern UsersWatchEvent_Undelete :: UsersWatchEvent+pattern UsersWatchEvent_Undelete = UsersWatchEvent "undelete"++-- | User Updated Event+pattern UsersWatchEvent_Update :: UsersWatchEvent+pattern UsersWatchEvent_Update = UsersWatchEvent "update"++{-# COMPLETE+  UsersWatchEvent_Add,+  UsersWatchEvent_Delete',+  UsersWatchEvent_MakeAdmin,+  UsersWatchEvent_Undelete,+  UsersWatchEvent_Update,+  UsersWatchEvent+  #-}++-- | Column to use for sorting results+newtype UsersWatchOrderBy = UsersWatchOrderBy {fromUsersWatchOrderBy :: 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+    )++-- | Primary email of the user.+pattern UsersWatchOrderBy_Email :: UsersWatchOrderBy+pattern UsersWatchOrderBy_Email = UsersWatchOrderBy "email"++-- | User\'s family name.+pattern UsersWatchOrderBy_FamilyName :: UsersWatchOrderBy+pattern UsersWatchOrderBy_FamilyName = UsersWatchOrderBy "familyName"++-- | User\'s given name.+pattern UsersWatchOrderBy_GivenName :: UsersWatchOrderBy+pattern UsersWatchOrderBy_GivenName = UsersWatchOrderBy "givenName"++{-# COMPLETE+  UsersWatchOrderBy_Email,+  UsersWatchOrderBy_FamilyName,+  UsersWatchOrderBy_GivenName,+  UsersWatchOrderBy+  #-}++-- | What subset of fields to fetch for this user.+newtype UsersWatchProjection = UsersWatchProjection {fromUsersWatchProjection :: 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+    )++-- | Do not include any custom fields for the user.+pattern UsersWatchProjection_Basic :: UsersWatchProjection+pattern UsersWatchProjection_Basic = UsersWatchProjection "basic"++-- | Include custom fields from schemas mentioned in customFieldMask.+pattern UsersWatchProjection_Custom :: UsersWatchProjection+pattern UsersWatchProjection_Custom = UsersWatchProjection "custom"++-- | Include all fields associated with this user.+pattern UsersWatchProjection_Full :: UsersWatchProjection+pattern UsersWatchProjection_Full = UsersWatchProjection "full"++{-# COMPLETE+  UsersWatchProjection_Basic,+  UsersWatchProjection_Custom,+  UsersWatchProjection_Full,+  UsersWatchProjection+  #-}++-- | Whether to return results in ascending or descending order.+newtype UsersWatchSortOrder = UsersWatchSortOrder {fromUsersWatchSortOrder :: 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+    )++-- | Ascending order.+pattern UsersWatchSortOrder_Ascending :: UsersWatchSortOrder+pattern UsersWatchSortOrder_Ascending = UsersWatchSortOrder "ASCENDING"++-- | Descending order.+pattern UsersWatchSortOrder_Descending :: UsersWatchSortOrder+pattern UsersWatchSortOrder_Descending = UsersWatchSortOrder "DESCENDING"++{-# COMPLETE+  UsersWatchSortOrder_Ascending,+  UsersWatchSortOrder_Descending,+  UsersWatchSortOrder+  #-}++-- | Whether to fetch the administrator-only or domain-wide public view of the user. For more information, see </admin-sdk/directory/v1/guides/manage-users#retrieve_users_non_admin Retrieve a user as a non-administrator>.+newtype UsersWatchViewType = UsersWatchViewType {fromUsersWatchViewType :: 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+    )++-- | Results include both administrator-only and domain-public fields.+pattern UsersWatchViewType_AdminView :: UsersWatchViewType+pattern UsersWatchViewType_AdminView = UsersWatchViewType "admin_view"++-- | Results only include fields for the user that are publicly visible to other users in the domain.+pattern UsersWatchViewType_DomainPublic :: UsersWatchViewType+pattern UsersWatchViewType_DomainPublic = UsersWatchViewType "domain_public"++{-# COMPLETE+  UsersWatchViewType_AdminView,+  UsersWatchViewType_DomainPublic,+  UsersWatchViewType+  #-}
+ gen/Gogol/Admin/Directory/Members/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.Admin.Directory.Members.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 a member from a group.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.members.delete@.+module Gogol.Admin.Directory.Members.Delete+  ( -- * Resource+    DirectoryMembersDeleteResource,++    -- ** Constructing a Request+    DirectoryMembersDelete (..),+    newDirectoryMembersDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.members.delete@ method which the+-- 'DirectoryMembersDelete' request conforms to.+type DirectoryMembersDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.Capture "groupKey" Core.Text+    Core.:> "members"+    Core.:> Core.Capture "memberKey" 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 a member from a group.+--+-- /See:/ 'newDirectoryMembersDelete' smart constructor.+data DirectoryMembersDelete = DirectoryMembersDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID.+    groupKey :: Core.Text,+    -- | Identifies the group member in the API request. A group member can be a user or another group. The value can be the member\'s (group or user) primary email address, alias, or unique ID.+    memberKey :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryMembersDelete' with the minimum fields required to make a request.+newDirectoryMembersDelete ::+  -- |  Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID. See 'groupKey'.+  Core.Text ->+  -- |  Identifies the group member in the API request. A group member can be a user or another group. The value can be the member\'s (group or user) primary email address, alias, or unique ID. See 'memberKey'.+  Core.Text ->+  DirectoryMembersDelete+newDirectoryMembersDelete groupKey memberKey =+  DirectoryMembersDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      groupKey = groupKey,+      memberKey = memberKey,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryMembersDelete where+  type Rs DirectoryMembersDelete = ()+  type+    Scopes DirectoryMembersDelete =+      '[Admin'Directory'Group, Admin'Directory'Group'Member]+  requestClient DirectoryMembersDelete {..} =+    go+      groupKey+      memberKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryMembersDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Members/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.Admin.Directory.Members.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 group member\'s properties.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.members.get@.+module Gogol.Admin.Directory.Members.Get+  ( -- * Resource+    DirectoryMembersGetResource,++    -- ** Constructing a Request+    DirectoryMembersGet (..),+    newDirectoryMembersGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.members.get@ method which the+-- 'DirectoryMembersGet' request conforms to.+type DirectoryMembersGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.Capture "groupKey" Core.Text+    Core.:> "members"+    Core.:> Core.Capture "memberKey" 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] Member++-- | Retrieves a group member\'s properties.+--+-- /See:/ 'newDirectoryMembersGet' smart constructor.+data DirectoryMembersGet = DirectoryMembersGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID.+    groupKey :: Core.Text,+    -- | Identifies the group member in the API request. A group member can be a user or another group. The value can be the member\'s (group or user) primary email address, alias, or unique ID.+    memberKey :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryMembersGet' with the minimum fields required to make a request.+newDirectoryMembersGet ::+  -- |  Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID. See 'groupKey'.+  Core.Text ->+  -- |  Identifies the group member in the API request. A group member can be a user or another group. The value can be the member\'s (group or user) primary email address, alias, or unique ID. See 'memberKey'.+  Core.Text ->+  DirectoryMembersGet+newDirectoryMembersGet groupKey memberKey =+  DirectoryMembersGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      groupKey = groupKey,+      memberKey = memberKey,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryMembersGet where+  type Rs DirectoryMembersGet = Member+  type+    Scopes DirectoryMembersGet =+      '[ Admin'Directory'Group,+         Admin'Directory'Group'Member,+         Admin'Directory'Group'Member'Readonly,+         Admin'Directory'Group'Readonly+       ]+  requestClient DirectoryMembersGet {..} =+    go+      groupKey+      memberKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryMembersGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Members/HasMember.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.Admin.Directory.Members.HasMember+-- 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)+--+-- Checks whether the given user is a member of the group. Membership can be direct or nested, but if nested, the @memberKey@ and @groupKey@ must be entities in the same domain or an @Invalid input@ error is returned. To check for nested memberships that include entities outside of the group\'s domain, use the <https://cloud.google.com/identity/docs/reference/rest/v1/groups.memberships/checkTransitiveMembership checkTransitiveMembership()> method in the Cloud Identity Groups API.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.members.hasMember@.+module Gogol.Admin.Directory.Members.HasMember+  ( -- * Resource+    DirectoryMembersHasMemberResource,++    -- ** Constructing a Request+    DirectoryMembersHasMember (..),+    newDirectoryMembersHasMember,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.members.hasMember@ method which the+-- 'DirectoryMembersHasMember' request conforms to.+type DirectoryMembersHasMemberResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.Capture "groupKey" Core.Text+    Core.:> "hasMember"+    Core.:> Core.Capture "memberKey" 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] MembersHasMember++-- | Checks whether the given user is a member of the group. Membership can be direct or nested, but if nested, the @memberKey@ and @groupKey@ must be entities in the same domain or an @Invalid input@ error is returned. To check for nested memberships that include entities outside of the group\'s domain, use the <https://cloud.google.com/identity/docs/reference/rest/v1/groups.memberships/checkTransitiveMembership checkTransitiveMembership()> method in the Cloud Identity Groups API.+--+-- /See:/ 'newDirectoryMembersHasMember' smart constructor.+data DirectoryMembersHasMember = DirectoryMembersHasMember+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID.+    groupKey :: Core.Text,+    -- | Identifies the user member in the API request. The value can be the user\'s primary email address, alias, or unique ID.+    memberKey :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryMembersHasMember' with the minimum fields required to make a request.+newDirectoryMembersHasMember ::+  -- |  Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID. See 'groupKey'.+  Core.Text ->+  -- |  Identifies the user member in the API request. The value can be the user\'s primary email address, alias, or unique ID. See 'memberKey'.+  Core.Text ->+  DirectoryMembersHasMember+newDirectoryMembersHasMember groupKey memberKey =+  DirectoryMembersHasMember+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      groupKey = groupKey,+      memberKey = memberKey,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryMembersHasMember where+  type Rs DirectoryMembersHasMember = MembersHasMember+  type+    Scopes DirectoryMembersHasMember =+      '[ Admin'Directory'Group,+         Admin'Directory'Group'Member,+         Admin'Directory'Group'Member'Readonly,+         Admin'Directory'Group'Readonly+       ]+  requestClient DirectoryMembersHasMember {..} =+    go+      groupKey+      memberKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryMembersHasMemberResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Members/Insert.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Members.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)+--+-- Adds a user to the specified group.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.members.insert@.+module Gogol.Admin.Directory.Members.Insert+  ( -- * Resource+    DirectoryMembersInsertResource,++    -- ** Constructing a Request+    DirectoryMembersInsert (..),+    newDirectoryMembersInsert,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.members.insert@ method which the+-- 'DirectoryMembersInsert' request conforms to.+type DirectoryMembersInsertResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.Capture "groupKey" Core.Text+    Core.:> "members"+    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] Member+    Core.:> Core.Post '[Core.JSON] Member++-- | Adds a user to the specified group.+--+-- /See:/ 'newDirectoryMembersInsert' smart constructor.+data DirectoryMembersInsert = DirectoryMembersInsert+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID.+    groupKey :: Core.Text,+    -- | Multipart request metadata.+    payload :: Member,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryMembersInsert' with the minimum fields required to make a request.+newDirectoryMembersInsert ::+  -- |  Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID. See 'groupKey'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Member ->+  DirectoryMembersInsert+newDirectoryMembersInsert groupKey payload =+  DirectoryMembersInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      groupKey = groupKey,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryMembersInsert where+  type Rs DirectoryMembersInsert = Member+  type+    Scopes DirectoryMembersInsert =+      '[Admin'Directory'Group, Admin'Directory'Group'Member]+  requestClient DirectoryMembersInsert {..} =+    go+      groupKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryMembersInsertResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Members/List.hs view
@@ -0,0 +1,137 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Members.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)+--+-- Retrieves a paginated list of all members in a group. This method times out after 60 minutes. For more information, see <https://developers.google.com/admin-sdk/directory/v1/guides/troubleshoot-error-codes Troubleshoot error codes>.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.members.list@.+module Gogol.Admin.Directory.Members.List+  ( -- * Resource+    DirectoryMembersListResource,++    -- ** Constructing a Request+    DirectoryMembersList (..),+    newDirectoryMembersList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.members.list@ method which the+-- 'DirectoryMembersList' request conforms to.+type DirectoryMembersListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.Capture "groupKey" Core.Text+    Core.:> "members"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "includeDerivedMembership" Core.Bool+    Core.:> Core.QueryParam "maxResults" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "roles" 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] Members++-- | Retrieves a paginated list of all members in a group. This method times out after 60 minutes. For more information, see <https://developers.google.com/admin-sdk/directory/v1/guides/troubleshoot-error-codes Troubleshoot error codes>.+--+-- /See:/ 'newDirectoryMembersList' smart constructor.+data DirectoryMembersList = DirectoryMembersList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID.+    groupKey :: Core.Text,+    -- | Whether to list indirect memberships. Default: false.+    includeDerivedMembership :: (Core.Maybe Core.Bool),+    -- | Maximum number of results to return. Max allowed value is 200.+    maxResults :: Core.Int32,+    -- | Token to specify next page in the list.+    pageToken :: (Core.Maybe Core.Text),+    -- | The @roles@ query parameter allows you to retrieve group members by role. Allowed values are @OWNER@, @MANAGER@, and @MEMBER@.+    roles :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryMembersList' with the minimum fields required to make a request.+newDirectoryMembersList ::+  -- |  Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID. See 'groupKey'.+  Core.Text ->+  DirectoryMembersList+newDirectoryMembersList groupKey =+  DirectoryMembersList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      groupKey = groupKey,+      includeDerivedMembership = Core.Nothing,+      maxResults = 200,+      pageToken = Core.Nothing,+      roles = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryMembersList where+  type Rs DirectoryMembersList = Members+  type+    Scopes DirectoryMembersList =+      '[ Admin'Directory'Group,+         Admin'Directory'Group'Member,+         Admin'Directory'Group'Member'Readonly,+         Admin'Directory'Group'Readonly+       ]+  requestClient DirectoryMembersList {..} =+    go+      groupKey+      xgafv+      accessToken+      callback+      includeDerivedMembership+      (Core.Just maxResults)+      pageToken+      roles+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryMembersListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Members/Patch.hs view
@@ -0,0 +1,127 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Members.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates the membership properties of a user in the specified group. This method supports </admin-sdk/directory/v1/guides/performance#patch patch semantics>.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.members.patch@.+module Gogol.Admin.Directory.Members.Patch+  ( -- * Resource+    DirectoryMembersPatchResource,++    -- ** Constructing a Request+    DirectoryMembersPatch (..),+    newDirectoryMembersPatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.members.patch@ method which the+-- 'DirectoryMembersPatch' request conforms to.+type DirectoryMembersPatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.Capture "groupKey" Core.Text+    Core.:> "members"+    Core.:> Core.Capture "memberKey" 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] Member+    Core.:> Core.Patch '[Core.JSON] Member++-- | Updates the membership properties of a user in the specified group. This method supports </admin-sdk/directory/v1/guides/performance#patch patch semantics>.+--+-- /See:/ 'newDirectoryMembersPatch' smart constructor.+data DirectoryMembersPatch = DirectoryMembersPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID.+    groupKey :: Core.Text,+    -- | Identifies the group member in the API request. A group member can be a user or another group. The value can be the member\'s (group or user) primary email address, alias, or unique ID.+    memberKey :: Core.Text,+    -- | Multipart request metadata.+    payload :: Member,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryMembersPatch' with the minimum fields required to make a request.+newDirectoryMembersPatch ::+  -- |  Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID. See 'groupKey'.+  Core.Text ->+  -- |  Identifies the group member in the API request. A group member can be a user or another group. The value can be the member\'s (group or user) primary email address, alias, or unique ID. See 'memberKey'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Member ->+  DirectoryMembersPatch+newDirectoryMembersPatch groupKey memberKey payload =+  DirectoryMembersPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      groupKey = groupKey,+      memberKey = memberKey,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryMembersPatch where+  type Rs DirectoryMembersPatch = Member+  type+    Scopes DirectoryMembersPatch =+      '[Admin'Directory'Group, Admin'Directory'Group'Member]+  requestClient DirectoryMembersPatch {..} =+    go+      groupKey+      memberKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryMembersPatchResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Members/Update.hs view
@@ -0,0 +1,127 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Members.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 membership of a user in the specified group.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.members.update@.+module Gogol.Admin.Directory.Members.Update+  ( -- * Resource+    DirectoryMembersUpdateResource,++    -- ** Constructing a Request+    DirectoryMembersUpdate (..),+    newDirectoryMembersUpdate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.members.update@ method which the+-- 'DirectoryMembersUpdate' request conforms to.+type DirectoryMembersUpdateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "groups"+    Core.:> Core.Capture "groupKey" Core.Text+    Core.:> "members"+    Core.:> Core.Capture "memberKey" 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] Member+    Core.:> Core.Put '[Core.JSON] Member++-- | Updates the membership of a user in the specified group.+--+-- /See:/ 'newDirectoryMembersUpdate' smart constructor.+data DirectoryMembersUpdate = DirectoryMembersUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID.+    groupKey :: Core.Text,+    -- | Identifies the group member in the API request. A group member can be a user or another group. The value can be the member\'s (group or user) primary email address, alias, or unique ID.+    memberKey :: Core.Text,+    -- | Multipart request metadata.+    payload :: Member,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryMembersUpdate' with the minimum fields required to make a request.+newDirectoryMembersUpdate ::+  -- |  Identifies the group in the API request. The value can be the group\'s email address, group alias, or the unique group ID. See 'groupKey'.+  Core.Text ->+  -- |  Identifies the group member in the API request. A group member can be a user or another group. The value can be the member\'s (group or user) primary email address, alias, or unique ID. See 'memberKey'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Member ->+  DirectoryMembersUpdate+newDirectoryMembersUpdate groupKey memberKey payload =+  DirectoryMembersUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      groupKey = groupKey,+      memberKey = memberKey,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryMembersUpdate where+  type Rs DirectoryMembersUpdate = Member+  type+    Scopes DirectoryMembersUpdate =+      '[Admin'Directory'Group, Admin'Directory'Group'Member]+  requestClient DirectoryMembersUpdate {..} =+    go+      groupKey+      memberKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryMembersUpdateResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Mobiledevices/Action.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.Admin.Directory.Mobiledevices.Action+-- 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)+--+-- Takes an action that affects a mobile device. For example, remotely wiping a device.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.mobiledevices.action@.+module Gogol.Admin.Directory.Mobiledevices.Action+  ( -- * Resource+    DirectoryMobiledevicesActionResource,++    -- ** Constructing a Request+    DirectoryMobiledevicesAction (..),+    newDirectoryMobiledevicesAction,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.mobiledevices.action@ method which the+-- 'DirectoryMobiledevicesAction' request conforms to.+type DirectoryMobiledevicesActionResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "devices"+    Core.:> "mobile"+    Core.:> Core.Capture "resourceId" Core.Text+    Core.:> "action"+    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] MobileDeviceAction+    Core.:> Core.Post '[Core.JSON] ()++-- | Takes an action that affects a mobile device. For example, remotely wiping a device.+--+-- /See:/ 'newDirectoryMobiledevicesAction' smart constructor.+data DirectoryMobiledevicesAction = DirectoryMobiledevicesAction+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | Multipart request metadata.+    payload :: MobileDeviceAction,+    -- | The unique ID the API service uses to identify the mobile device.+    resourceId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryMobiledevicesAction' with the minimum fields required to make a request.+newDirectoryMobiledevicesAction ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  MobileDeviceAction ->+  -- |  The unique ID the API service uses to identify the mobile device. See 'resourceId'.+  Core.Text ->+  DirectoryMobiledevicesAction+newDirectoryMobiledevicesAction customerId payload resourceId =+  DirectoryMobiledevicesAction+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      payload = payload,+      resourceId = resourceId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryMobiledevicesAction where+  type Rs DirectoryMobiledevicesAction = ()+  type+    Scopes DirectoryMobiledevicesAction =+      '[ Admin'Directory'Device'Mobile,+         Admin'Directory'Device'Mobile'Action+       ]+  requestClient DirectoryMobiledevicesAction {..} =+    go+      customerId+      resourceId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryMobiledevicesActionResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Mobiledevices/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.Admin.Directory.Mobiledevices.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 a mobile device.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.mobiledevices.delete@.+module Gogol.Admin.Directory.Mobiledevices.Delete+  ( -- * Resource+    DirectoryMobiledevicesDeleteResource,++    -- ** Constructing a Request+    DirectoryMobiledevicesDelete (..),+    newDirectoryMobiledevicesDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.mobiledevices.delete@ method which the+-- 'DirectoryMobiledevicesDelete' request conforms to.+type DirectoryMobiledevicesDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "devices"+    Core.:> "mobile"+    Core.:> Core.Capture "resourceId" 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 a mobile device.+--+-- /See:/ 'newDirectoryMobiledevicesDelete' smart constructor.+data DirectoryMobiledevicesDelete = DirectoryMobiledevicesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | The unique ID the API service uses to identify the mobile device.+    resourceId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryMobiledevicesDelete' with the minimum fields required to make a request.+newDirectoryMobiledevicesDelete ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  -- |  The unique ID the API service uses to identify the mobile device. See 'resourceId'.+  Core.Text ->+  DirectoryMobiledevicesDelete+newDirectoryMobiledevicesDelete customerId resourceId =+  DirectoryMobiledevicesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      resourceId = resourceId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryMobiledevicesDelete where+  type Rs DirectoryMobiledevicesDelete = ()+  type+    Scopes DirectoryMobiledevicesDelete =+      '[Admin'Directory'Device'Mobile]+  requestClient DirectoryMobiledevicesDelete {..} =+    go+      customerId+      resourceId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryMobiledevicesDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Mobiledevices/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.Admin.Directory.Mobiledevices.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 mobile device\'s properties.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.mobiledevices.get@.+module Gogol.Admin.Directory.Mobiledevices.Get+  ( -- * Resource+    DirectoryMobiledevicesGetResource,++    -- ** Constructing a Request+    DirectoryMobiledevicesGet (..),+    newDirectoryMobiledevicesGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.mobiledevices.get@ method which the+-- 'DirectoryMobiledevicesGet' request conforms to.+type DirectoryMobiledevicesGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "devices"+    Core.:> "mobile"+    Core.:> Core.Capture "resourceId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "projection" MobiledevicesGetProjection+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] MobileDevice++-- | Retrieves a mobile device\'s properties.+--+-- /See:/ 'newDirectoryMobiledevicesGet' smart constructor.+data DirectoryMobiledevicesGet = DirectoryMobiledevicesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | Restrict information returned to a set of selected fields.+    projection :: (Core.Maybe MobiledevicesGetProjection),+    -- | The unique ID the API service uses to identify the mobile device.+    resourceId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryMobiledevicesGet' with the minimum fields required to make a request.+newDirectoryMobiledevicesGet ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  -- |  The unique ID the API service uses to identify the mobile device. See 'resourceId'.+  Core.Text ->+  DirectoryMobiledevicesGet+newDirectoryMobiledevicesGet customerId resourceId =+  DirectoryMobiledevicesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      projection = Core.Nothing,+      resourceId = resourceId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryMobiledevicesGet where+  type Rs DirectoryMobiledevicesGet = MobileDevice+  type+    Scopes DirectoryMobiledevicesGet =+      '[ Admin'Directory'Device'Mobile,+         Admin'Directory'Device'Mobile'Action,+         Admin'Directory'Device'Mobile'Readonly+       ]+  requestClient DirectoryMobiledevicesGet {..} =+    go+      customerId+      resourceId+      xgafv+      accessToken+      callback+      projection+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryMobiledevicesGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Mobiledevices/List.hs view
@@ -0,0 +1,147 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Mobiledevices.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)+--+-- Retrieves a paginated list of all user-owned mobile devices for an account. To retrieve a list that includes company-owned devices, use the Cloud Identity <https://cloud.google.com/identity/docs/concepts/overview-devices Devices API> instead. This method times out after 60 minutes. For more information, see <https://developers.google.com/admin-sdk/directory/v1/guides/troubleshoot-error-codes Troubleshoot error codes>.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.mobiledevices.list@.+module Gogol.Admin.Directory.Mobiledevices.List+  ( -- * Resource+    DirectoryMobiledevicesListResource,++    -- ** Constructing a Request+    DirectoryMobiledevicesList (..),+    newDirectoryMobiledevicesList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.mobiledevices.list@ method which the+-- 'DirectoryMobiledevicesList' request conforms to.+type DirectoryMobiledevicesListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "devices"+    Core.:> "mobile"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Int32+    Core.:> Core.QueryParam "orderBy" MobiledevicesListOrderBy+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "projection" MobiledevicesListProjection+    Core.:> Core.QueryParam "query" Core.Text+    Core.:> Core.QueryParam "sortOrder" MobiledevicesListSortOrder+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] MobileDevices++-- | Retrieves a paginated list of all user-owned mobile devices for an account. To retrieve a list that includes company-owned devices, use the Cloud Identity <https://cloud.google.com/identity/docs/concepts/overview-devices Devices API> instead. This method times out after 60 minutes. For more information, see <https://developers.google.com/admin-sdk/directory/v1/guides/troubleshoot-error-codes Troubleshoot error codes>.+--+-- /See:/ 'newDirectoryMobiledevicesList' smart constructor.+data DirectoryMobiledevicesList = DirectoryMobiledevicesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | Maximum number of results to return. Max allowed value is 100.+    maxResults :: Core.Int32,+    -- | Device property to use for sorting results.+    orderBy :: (Core.Maybe MobiledevicesListOrderBy),+    -- | Token to specify next page in the list+    pageToken :: (Core.Maybe Core.Text),+    -- | Restrict information returned to a set of selected fields.+    projection :: (Core.Maybe MobiledevicesListProjection),+    -- | Search string in the format given at https:\/\/developers.google.com\/admin-sdk\/directory\/v1\/search-operators+    query :: (Core.Maybe Core.Text),+    -- | Whether to return results in ascending or descending order. Must be used with the @orderBy@ parameter.+    sortOrder :: (Core.Maybe MobiledevicesListSortOrder),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryMobiledevicesList' with the minimum fields required to make a request.+newDirectoryMobiledevicesList ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  DirectoryMobiledevicesList+newDirectoryMobiledevicesList customerId =+  DirectoryMobiledevicesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      maxResults = 100,+      orderBy = Core.Nothing,+      pageToken = Core.Nothing,+      projection = Core.Nothing,+      query = Core.Nothing,+      sortOrder = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryMobiledevicesList where+  type Rs DirectoryMobiledevicesList = MobileDevices+  type+    Scopes DirectoryMobiledevicesList =+      '[ Admin'Directory'Device'Mobile,+         Admin'Directory'Device'Mobile'Action,+         Admin'Directory'Device'Mobile'Readonly+       ]+  requestClient DirectoryMobiledevicesList {..} =+    go+      customerId+      xgafv+      accessToken+      callback+      (Core.Just maxResults)+      orderBy+      pageToken+      projection+      query+      sortOrder+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryMobiledevicesListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Orgunits/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.Admin.Directory.Orgunits.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 an organizational unit.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.orgunits.delete@.+module Gogol.Admin.Directory.Orgunits.Delete+  ( -- * Resource+    DirectoryOrgunitsDeleteResource,++    -- ** Constructing a Request+    DirectoryOrgunitsDelete (..),+    newDirectoryOrgunitsDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.orgunits.delete@ method which the+-- 'DirectoryOrgunitsDelete' request conforms to.+type DirectoryOrgunitsDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "orgunits"+    Core.:> Core.Capture "orgUnitPath" 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 an organizational unit.+--+-- /See:/ 'newDirectoryOrgunitsDelete' smart constructor.+data DirectoryOrgunitsDelete = DirectoryOrgunitsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | The full path of the organizational unit (minus the leading @\/@) or its unique ID.+    orgUnitPath :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryOrgunitsDelete' with the minimum fields required to make a request.+newDirectoryOrgunitsDelete ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  -- |  The full path of the organizational unit (minus the leading @\/@) or its unique ID. See 'orgUnitPath'.+  Core.Text ->+  DirectoryOrgunitsDelete+newDirectoryOrgunitsDelete customerId orgUnitPath =+  DirectoryOrgunitsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      orgUnitPath = orgUnitPath,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryOrgunitsDelete where+  type Rs DirectoryOrgunitsDelete = ()+  type Scopes DirectoryOrgunitsDelete = '[Admin'Directory'Orgunit]+  requestClient DirectoryOrgunitsDelete {..} =+    go+      customerId+      orgUnitPath+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryOrgunitsDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Orgunits/Get.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Orgunits.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 organizational unit.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.orgunits.get@.+module Gogol.Admin.Directory.Orgunits.Get+  ( -- * Resource+    DirectoryOrgunitsGetResource,++    -- ** Constructing a Request+    DirectoryOrgunitsGet (..),+    newDirectoryOrgunitsGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.orgunits.get@ method which the+-- 'DirectoryOrgunitsGet' request conforms to.+type DirectoryOrgunitsGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "orgunits"+    Core.:> Core.Capture "orgUnitPath" 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] OrgUnit++-- | Retrieves an organizational unit.+--+-- /See:/ 'newDirectoryOrgunitsGet' smart constructor.+data DirectoryOrgunitsGet = DirectoryOrgunitsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | The full path of the organizational unit (minus the leading @\/@) or its unique ID.+    orgUnitPath :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryOrgunitsGet' with the minimum fields required to make a request.+newDirectoryOrgunitsGet ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  -- |  The full path of the organizational unit (minus the leading @\/@) or its unique ID. See 'orgUnitPath'.+  Core.Text ->+  DirectoryOrgunitsGet+newDirectoryOrgunitsGet customerId orgUnitPath =+  DirectoryOrgunitsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      orgUnitPath = orgUnitPath,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryOrgunitsGet where+  type Rs DirectoryOrgunitsGet = OrgUnit+  type+    Scopes DirectoryOrgunitsGet =+      '[Admin'Directory'Orgunit, Admin'Directory'Orgunit'Readonly]+  requestClient DirectoryOrgunitsGet {..} =+    go+      customerId+      orgUnitPath+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryOrgunitsGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Orgunits/Insert.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.Admin.Directory.Orgunits.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)+--+-- Adds an organizational unit.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.orgunits.insert@.+module Gogol.Admin.Directory.Orgunits.Insert+  ( -- * Resource+    DirectoryOrgunitsInsertResource,++    -- ** Constructing a Request+    DirectoryOrgunitsInsert (..),+    newDirectoryOrgunitsInsert,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.orgunits.insert@ method which the+-- 'DirectoryOrgunitsInsert' request conforms to.+type DirectoryOrgunitsInsertResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "orgunits"+    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] OrgUnit+    Core.:> Core.Post '[Core.JSON] OrgUnit++-- | Adds an organizational unit.+--+-- /See:/ 'newDirectoryOrgunitsInsert' smart constructor.+data DirectoryOrgunitsInsert = DirectoryOrgunitsInsert+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | Multipart request metadata.+    payload :: OrgUnit,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryOrgunitsInsert' with the minimum fields required to make a request.+newDirectoryOrgunitsInsert ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  OrgUnit ->+  DirectoryOrgunitsInsert+newDirectoryOrgunitsInsert customerId payload =+  DirectoryOrgunitsInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryOrgunitsInsert where+  type Rs DirectoryOrgunitsInsert = OrgUnit+  type Scopes DirectoryOrgunitsInsert = '[Admin'Directory'Orgunit]+  requestClient DirectoryOrgunitsInsert {..} =+    go+      customerId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryOrgunitsInsertResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Orgunits/List.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.Admin.Directory.Orgunits.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)+--+-- Retrieves a list of all organizational units for an account.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.orgunits.list@.+module Gogol.Admin.Directory.Orgunits.List+  ( -- * Resource+    DirectoryOrgunitsListResource,++    -- ** Constructing a Request+    DirectoryOrgunitsList (..),+    newDirectoryOrgunitsList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.orgunits.list@ method which the+-- 'DirectoryOrgunitsList' request conforms to.+type DirectoryOrgunitsListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "orgunits"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "orgUnitPath" Core.Text+    Core.:> Core.QueryParam "type" OrgunitsListType+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] OrgUnits++-- | Retrieves a list of all organizational units for an account.+--+-- /See:/ 'newDirectoryOrgunitsList' smart constructor.+data DirectoryOrgunitsList = DirectoryOrgunitsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | The full path to the organizational unit or its unique ID. Returns the children of the specified organizational unit.+    orgUnitPath :: Core.Text,+    -- | Whether to return all sub-organizations or just immediate children.+    type' :: (Core.Maybe OrgunitsListType),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryOrgunitsList' with the minimum fields required to make a request.+newDirectoryOrgunitsList ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  DirectoryOrgunitsList+newDirectoryOrgunitsList customerId =+  DirectoryOrgunitsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      orgUnitPath = "",+      type' = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryOrgunitsList where+  type Rs DirectoryOrgunitsList = OrgUnits+  type+    Scopes DirectoryOrgunitsList =+      '[Admin'Directory'Orgunit, Admin'Directory'Orgunit'Readonly]+  requestClient DirectoryOrgunitsList {..} =+    go+      customerId+      xgafv+      accessToken+      callback+      (Core.Just orgUnitPath)+      type'+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryOrgunitsListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Orgunits/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.Admin.Directory.Orgunits.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates an organizational unit. This method supports </admin-sdk/directory/v1/guides/performance#patch patch semantics>+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.orgunits.patch@.+module Gogol.Admin.Directory.Orgunits.Patch+  ( -- * Resource+    DirectoryOrgunitsPatchResource,++    -- ** Constructing a Request+    DirectoryOrgunitsPatch (..),+    newDirectoryOrgunitsPatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.orgunits.patch@ method which the+-- 'DirectoryOrgunitsPatch' request conforms to.+type DirectoryOrgunitsPatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "orgunits"+    Core.:> Core.Capture "orgUnitPath" 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] OrgUnit+    Core.:> Core.Patch '[Core.JSON] OrgUnit++-- | Updates an organizational unit. This method supports </admin-sdk/directory/v1/guides/performance#patch patch semantics>+--+-- /See:/ 'newDirectoryOrgunitsPatch' smart constructor.+data DirectoryOrgunitsPatch = DirectoryOrgunitsPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | The full path of the organizational unit (minus the leading @\/@) or its unique ID.+    orgUnitPath :: Core.Text,+    -- | Multipart request metadata.+    payload :: OrgUnit,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryOrgunitsPatch' with the minimum fields required to make a request.+newDirectoryOrgunitsPatch ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  -- |  The full path of the organizational unit (minus the leading @\/@) or its unique ID. See 'orgUnitPath'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  OrgUnit ->+  DirectoryOrgunitsPatch+newDirectoryOrgunitsPatch customerId orgUnitPath payload =+  DirectoryOrgunitsPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      orgUnitPath = orgUnitPath,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryOrgunitsPatch where+  type Rs DirectoryOrgunitsPatch = OrgUnit+  type Scopes DirectoryOrgunitsPatch = '[Admin'Directory'Orgunit]+  requestClient DirectoryOrgunitsPatch {..} =+    go+      customerId+      orgUnitPath+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryOrgunitsPatchResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Orgunits/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.Admin.Directory.Orgunits.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 an organizational unit.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.orgunits.update@.+module Gogol.Admin.Directory.Orgunits.Update+  ( -- * Resource+    DirectoryOrgunitsUpdateResource,++    -- ** Constructing a Request+    DirectoryOrgunitsUpdate (..),+    newDirectoryOrgunitsUpdate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.orgunits.update@ method which the+-- 'DirectoryOrgunitsUpdate' request conforms to.+type DirectoryOrgunitsUpdateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "orgunits"+    Core.:> Core.Capture "orgUnitPath" 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] OrgUnit+    Core.:> Core.Put '[Core.JSON] OrgUnit++-- | Updates an organizational unit.+--+-- /See:/ 'newDirectoryOrgunitsUpdate' smart constructor.+data DirectoryOrgunitsUpdate = DirectoryOrgunitsUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>.+    customerId :: Core.Text,+    -- | The full path of the organizational unit (minus the leading @\/@) or its unique ID.+    orgUnitPath :: Core.Text,+    -- | Multipart request metadata.+    payload :: OrgUnit,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryOrgunitsUpdate' with the minimum fields required to make a request.+newDirectoryOrgunitsUpdate ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users resource>. See 'customerId'.+  Core.Text ->+  -- |  The full path of the organizational unit (minus the leading @\/@) or its unique ID. See 'orgUnitPath'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  OrgUnit ->+  DirectoryOrgunitsUpdate+newDirectoryOrgunitsUpdate customerId orgUnitPath payload =+  DirectoryOrgunitsUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      orgUnitPath = orgUnitPath,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryOrgunitsUpdate where+  type Rs DirectoryOrgunitsUpdate = OrgUnit+  type Scopes DirectoryOrgunitsUpdate = '[Admin'Directory'Orgunit]+  requestClient DirectoryOrgunitsUpdate {..} =+    go+      customerId+      orgUnitPath+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryOrgunitsUpdateResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Privileges/List.hs view
@@ -0,0 +1,117 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Privileges.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)+--+-- Retrieves a paginated list of all privileges for a customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.privileges.list@.+module Gogol.Admin.Directory.Privileges.List+  ( -- * Resource+    DirectoryPrivilegesListResource,++    -- ** Constructing a Request+    DirectoryPrivilegesList (..),+    newDirectoryPrivilegesList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.privileges.list@ method which the+-- 'DirectoryPrivilegesList' request conforms to.+type DirectoryPrivilegesListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "roles"+    Core.:> "ALL"+    Core.:> "privileges"+    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] Privileges++-- | Retrieves a paginated list of all privileges for a customer.+--+-- /See:/ 'newDirectoryPrivilegesList' smart constructor.+data DirectoryPrivilegesList = DirectoryPrivilegesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter.+    customer :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryPrivilegesList' with the minimum fields required to make a request.+newDirectoryPrivilegesList ::+  -- |  The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter. See 'customer'.+  Core.Text ->+  DirectoryPrivilegesList+newDirectoryPrivilegesList customer =+  DirectoryPrivilegesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryPrivilegesList where+  type Rs DirectoryPrivilegesList = Privileges+  type+    Scopes DirectoryPrivilegesList =+      '[ Admin'Directory'Rolemanagement,+         Admin'Directory'Rolemanagement'Readonly+       ]+  requestClient DirectoryPrivilegesList {..} =+    go+      customer+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryPrivilegesListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Buildings/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.Admin.Directory.Resources.Buildings.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 building.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.buildings.delete@.+module Gogol.Admin.Directory.Resources.Buildings.Delete+  ( -- * Resource+    DirectoryResourcesBuildingsDeleteResource,++    -- ** Constructing a Request+    DirectoryResourcesBuildingsDelete (..),+    newDirectoryResourcesBuildingsDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.buildings.delete@ method which the+-- 'DirectoryResourcesBuildingsDelete' request conforms to.+type DirectoryResourcesBuildingsDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "buildings"+    Core.:> Core.Capture "buildingId" 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 building.+--+-- /See:/ 'newDirectoryResourcesBuildingsDelete' smart constructor.+data DirectoryResourcesBuildingsDelete = DirectoryResourcesBuildingsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The id of the building to delete.+    buildingId :: Core.Text,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesBuildingsDelete' with the minimum fields required to make a request.+newDirectoryResourcesBuildingsDelete ::+  -- |  The id of the building to delete. See 'buildingId'.+  Core.Text ->+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  DirectoryResourcesBuildingsDelete+newDirectoryResourcesBuildingsDelete buildingId customer =+  DirectoryResourcesBuildingsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      buildingId = buildingId,+      callback = Core.Nothing,+      customer = customer,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesBuildingsDelete where+  type Rs DirectoryResourcesBuildingsDelete = ()+  type+    Scopes DirectoryResourcesBuildingsDelete =+      '[Admin'Directory'Resource'Calendar]+  requestClient DirectoryResourcesBuildingsDelete {..} =+    go+      customer+      buildingId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DirectoryResourcesBuildingsDeleteResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Buildings/Get.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.Admin.Directory.Resources.Buildings.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 building.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.buildings.get@.+module Gogol.Admin.Directory.Resources.Buildings.Get+  ( -- * Resource+    DirectoryResourcesBuildingsGetResource,++    -- ** Constructing a Request+    DirectoryResourcesBuildingsGet (..),+    newDirectoryResourcesBuildingsGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.buildings.get@ method which the+-- 'DirectoryResourcesBuildingsGet' request conforms to.+type DirectoryResourcesBuildingsGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "buildings"+    Core.:> Core.Capture "buildingId" 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] Building++-- | Retrieves a building.+--+-- /See:/ 'newDirectoryResourcesBuildingsGet' smart constructor.+data DirectoryResourcesBuildingsGet = DirectoryResourcesBuildingsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The unique ID of the building to retrieve.+    buildingId :: Core.Text,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesBuildingsGet' with the minimum fields required to make a request.+newDirectoryResourcesBuildingsGet ::+  -- |  The unique ID of the building to retrieve. See 'buildingId'.+  Core.Text ->+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  DirectoryResourcesBuildingsGet+newDirectoryResourcesBuildingsGet buildingId customer =+  DirectoryResourcesBuildingsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      buildingId = buildingId,+      callback = Core.Nothing,+      customer = customer,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesBuildingsGet where+  type Rs DirectoryResourcesBuildingsGet = Building+  type+    Scopes DirectoryResourcesBuildingsGet =+      '[ Admin'Directory'Resource'Calendar,+         Admin'Directory'Resource'Calendar'Readonly+       ]+  requestClient DirectoryResourcesBuildingsGet {..} =+    go+      customer+      buildingId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryResourcesBuildingsGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Buildings/Insert.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.Admin.Directory.Resources.Buildings.Insert+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Inserts a building.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.buildings.insert@.+module Gogol.Admin.Directory.Resources.Buildings.Insert+  ( -- * Resource+    DirectoryResourcesBuildingsInsertResource,++    -- ** Constructing a Request+    DirectoryResourcesBuildingsInsert (..),+    newDirectoryResourcesBuildingsInsert,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.buildings.insert@ method which the+-- 'DirectoryResourcesBuildingsInsert' request conforms to.+type DirectoryResourcesBuildingsInsertResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "buildings"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam+              "coordinatesSource"+              ResourcesBuildingsInsertCoordinatesSource+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Building+    Core.:> Core.Post '[Core.JSON] Building++-- | Inserts a building.+--+-- /See:/ 'newDirectoryResourcesBuildingsInsert' smart constructor.+data DirectoryResourcesBuildingsInsert = DirectoryResourcesBuildingsInsert+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Source from which Building.coordinates are derived.+    coordinatesSource :: ResourcesBuildingsInsertCoordinatesSource,+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | Multipart request metadata.+    payload :: Building,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesBuildingsInsert' with the minimum fields required to make a request.+newDirectoryResourcesBuildingsInsert ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Building ->+  DirectoryResourcesBuildingsInsert+newDirectoryResourcesBuildingsInsert customer payload =+  DirectoryResourcesBuildingsInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      coordinatesSource =+        ResourcesBuildingsInsertCoordinatesSource_SOURCEUNSPECIFIED,+      customer = customer,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesBuildingsInsert where+  type Rs DirectoryResourcesBuildingsInsert = Building+  type+    Scopes DirectoryResourcesBuildingsInsert =+      '[Admin'Directory'Resource'Calendar]+  requestClient DirectoryResourcesBuildingsInsert {..} =+    go+      customer+      xgafv+      accessToken+      callback+      (Core.Just coordinatesSource)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DirectoryResourcesBuildingsInsertResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Buildings/List.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.Admin.Directory.Resources.Buildings.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)+--+-- Retrieves a list of buildings for an account.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.buildings.list@.+module Gogol.Admin.Directory.Resources.Buildings.List+  ( -- * Resource+    DirectoryResourcesBuildingsListResource,++    -- ** Constructing a Request+    DirectoryResourcesBuildingsList (..),+    newDirectoryResourcesBuildingsList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.buildings.list@ method which the+-- 'DirectoryResourcesBuildingsList' request conforms to.+type DirectoryResourcesBuildingsListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "buildings"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Buildings++-- | Retrieves a list of buildings for an account.+--+-- /See:/ 'newDirectoryResourcesBuildingsList' smart constructor.+data DirectoryResourcesBuildingsList = DirectoryResourcesBuildingsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | Maximum number of results to return.+    maxResults :: (Core.Maybe Core.Int32),+    -- | Token to specify the next page in the list.+    pageToken :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesBuildingsList' with the minimum fields required to make a request.+newDirectoryResourcesBuildingsList ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  DirectoryResourcesBuildingsList+newDirectoryResourcesBuildingsList customer =+  DirectoryResourcesBuildingsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      maxResults = Core.Nothing,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesBuildingsList where+  type Rs DirectoryResourcesBuildingsList = Buildings+  type+    Scopes DirectoryResourcesBuildingsList =+      '[ Admin'Directory'Resource'Calendar,+         Admin'Directory'Resource'Calendar'Readonly+       ]+  requestClient DirectoryResourcesBuildingsList {..} =+    go+      customer+      xgafv+      accessToken+      callback+      maxResults+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryResourcesBuildingsListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Buildings/Patch.hs view
@@ -0,0 +1,136 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Resources.Buildings.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)+--+-- Patches a building.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.buildings.patch@.+module Gogol.Admin.Directory.Resources.Buildings.Patch+  ( -- * Resource+    DirectoryResourcesBuildingsPatchResource,++    -- ** Constructing a Request+    DirectoryResourcesBuildingsPatch (..),+    newDirectoryResourcesBuildingsPatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.buildings.patch@ method which the+-- 'DirectoryResourcesBuildingsPatch' request conforms to.+type DirectoryResourcesBuildingsPatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "buildings"+    Core.:> Core.Capture "buildingId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam+              "coordinatesSource"+              ResourcesBuildingsPatchCoordinatesSource+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Building+    Core.:> Core.Patch '[Core.JSON] Building++-- | Patches a building.+--+-- /See:/ 'newDirectoryResourcesBuildingsPatch' smart constructor.+data DirectoryResourcesBuildingsPatch = DirectoryResourcesBuildingsPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The id of the building to update.+    buildingId :: Core.Text,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Source from which Building.coordinates are derived.+    coordinatesSource :: ResourcesBuildingsPatchCoordinatesSource,+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | Multipart request metadata.+    payload :: Building,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesBuildingsPatch' with the minimum fields required to make a request.+newDirectoryResourcesBuildingsPatch ::+  -- |  The id of the building to update. See 'buildingId'.+  Core.Text ->+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Building ->+  DirectoryResourcesBuildingsPatch+newDirectoryResourcesBuildingsPatch buildingId customer payload =+  DirectoryResourcesBuildingsPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      buildingId = buildingId,+      callback = Core.Nothing,+      coordinatesSource =+        ResourcesBuildingsPatchCoordinatesSource_SOURCEUNSPECIFIED,+      customer = customer,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesBuildingsPatch where+  type Rs DirectoryResourcesBuildingsPatch = Building+  type+    Scopes DirectoryResourcesBuildingsPatch =+      '[Admin'Directory'Resource'Calendar]+  requestClient DirectoryResourcesBuildingsPatch {..} =+    go+      customer+      buildingId+      xgafv+      accessToken+      callback+      (Core.Just coordinatesSource)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryResourcesBuildingsPatchResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Buildings/Update.hs view
@@ -0,0 +1,138 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Resources.Buildings.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 building.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.buildings.update@.+module Gogol.Admin.Directory.Resources.Buildings.Update+  ( -- * Resource+    DirectoryResourcesBuildingsUpdateResource,++    -- ** Constructing a Request+    DirectoryResourcesBuildingsUpdate (..),+    newDirectoryResourcesBuildingsUpdate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.buildings.update@ method which the+-- 'DirectoryResourcesBuildingsUpdate' request conforms to.+type DirectoryResourcesBuildingsUpdateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "buildings"+    Core.:> Core.Capture "buildingId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam+              "coordinatesSource"+              ResourcesBuildingsUpdateCoordinatesSource+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Building+    Core.:> Core.Put '[Core.JSON] Building++-- | Updates a building.+--+-- /See:/ 'newDirectoryResourcesBuildingsUpdate' smart constructor.+data DirectoryResourcesBuildingsUpdate = DirectoryResourcesBuildingsUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The id of the building to update.+    buildingId :: Core.Text,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Source from which Building.coordinates are derived.+    coordinatesSource :: ResourcesBuildingsUpdateCoordinatesSource,+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | Multipart request metadata.+    payload :: Building,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesBuildingsUpdate' with the minimum fields required to make a request.+newDirectoryResourcesBuildingsUpdate ::+  -- |  The id of the building to update. See 'buildingId'.+  Core.Text ->+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Building ->+  DirectoryResourcesBuildingsUpdate+newDirectoryResourcesBuildingsUpdate buildingId customer payload =+  DirectoryResourcesBuildingsUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      buildingId = buildingId,+      callback = Core.Nothing,+      coordinatesSource =+        ResourcesBuildingsUpdateCoordinatesSource_SOURCEUNSPECIFIED,+      customer = customer,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesBuildingsUpdate where+  type Rs DirectoryResourcesBuildingsUpdate = Building+  type+    Scopes DirectoryResourcesBuildingsUpdate =+      '[Admin'Directory'Resource'Calendar]+  requestClient DirectoryResourcesBuildingsUpdate {..} =+    go+      customer+      buildingId+      xgafv+      accessToken+      callback+      (Core.Just coordinatesSource)+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DirectoryResourcesBuildingsUpdateResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Calendars/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.Admin.Directory.Resources.Calendars.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 calendar resource.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.calendars.delete@.+module Gogol.Admin.Directory.Resources.Calendars.Delete+  ( -- * Resource+    DirectoryResourcesCalendarsDeleteResource,++    -- ** Constructing a Request+    DirectoryResourcesCalendarsDelete (..),+    newDirectoryResourcesCalendarsDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.calendars.delete@ method which the+-- 'DirectoryResourcesCalendarsDelete' request conforms to.+type DirectoryResourcesCalendarsDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "calendars"+    Core.:> Core.Capture "calendarResourceId" 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 calendar resource.+--+-- /See:/ 'newDirectoryResourcesCalendarsDelete' smart constructor.+data DirectoryResourcesCalendarsDelete = DirectoryResourcesCalendarsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The unique ID of the calendar resource to delete.+    calendarResourceId :: Core.Text,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesCalendarsDelete' with the minimum fields required to make a request.+newDirectoryResourcesCalendarsDelete ::+  -- |  The unique ID of the calendar resource to delete. See 'calendarResourceId'.+  Core.Text ->+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  DirectoryResourcesCalendarsDelete+newDirectoryResourcesCalendarsDelete calendarResourceId customer =+  DirectoryResourcesCalendarsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      calendarResourceId = calendarResourceId,+      callback = Core.Nothing,+      customer = customer,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesCalendarsDelete where+  type Rs DirectoryResourcesCalendarsDelete = ()+  type+    Scopes DirectoryResourcesCalendarsDelete =+      '[Admin'Directory'Resource'Calendar]+  requestClient DirectoryResourcesCalendarsDelete {..} =+    go+      customer+      calendarResourceId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DirectoryResourcesCalendarsDeleteResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Calendars/Get.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.Admin.Directory.Resources.Calendars.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 calendar resource.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.calendars.get@.+module Gogol.Admin.Directory.Resources.Calendars.Get+  ( -- * Resource+    DirectoryResourcesCalendarsGetResource,++    -- ** Constructing a Request+    DirectoryResourcesCalendarsGet (..),+    newDirectoryResourcesCalendarsGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.calendars.get@ method which the+-- 'DirectoryResourcesCalendarsGet' request conforms to.+type DirectoryResourcesCalendarsGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "calendars"+    Core.:> Core.Capture "calendarResourceId" 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] CalendarResource++-- | Retrieves a calendar resource.+--+-- /See:/ 'newDirectoryResourcesCalendarsGet' smart constructor.+data DirectoryResourcesCalendarsGet = DirectoryResourcesCalendarsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The unique ID of the calendar resource to retrieve.+    calendarResourceId :: Core.Text,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesCalendarsGet' with the minimum fields required to make a request.+newDirectoryResourcesCalendarsGet ::+  -- |  The unique ID of the calendar resource to retrieve. See 'calendarResourceId'.+  Core.Text ->+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  DirectoryResourcesCalendarsGet+newDirectoryResourcesCalendarsGet calendarResourceId customer =+  DirectoryResourcesCalendarsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      calendarResourceId = calendarResourceId,+      callback = Core.Nothing,+      customer = customer,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesCalendarsGet where+  type Rs DirectoryResourcesCalendarsGet = CalendarResource+  type+    Scopes DirectoryResourcesCalendarsGet =+      '[ Admin'Directory'Resource'Calendar,+         Admin'Directory'Resource'Calendar'Readonly+       ]+  requestClient DirectoryResourcesCalendarsGet {..} =+    go+      customer+      calendarResourceId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryResourcesCalendarsGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Calendars/Insert.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.Admin.Directory.Resources.Calendars.Insert+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Inserts a calendar resource.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.calendars.insert@.+module Gogol.Admin.Directory.Resources.Calendars.Insert+  ( -- * Resource+    DirectoryResourcesCalendarsInsertResource,++    -- ** Constructing a Request+    DirectoryResourcesCalendarsInsert (..),+    newDirectoryResourcesCalendarsInsert,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.calendars.insert@ method which the+-- 'DirectoryResourcesCalendarsInsert' request conforms to.+type DirectoryResourcesCalendarsInsertResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "calendars"+    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] CalendarResource+    Core.:> Core.Post '[Core.JSON] CalendarResource++-- | Inserts a calendar resource.+--+-- /See:/ 'newDirectoryResourcesCalendarsInsert' smart constructor.+data DirectoryResourcesCalendarsInsert = DirectoryResourcesCalendarsInsert+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | Multipart request metadata.+    payload :: CalendarResource,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesCalendarsInsert' with the minimum fields required to make a request.+newDirectoryResourcesCalendarsInsert ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CalendarResource ->+  DirectoryResourcesCalendarsInsert+newDirectoryResourcesCalendarsInsert customer payload =+  DirectoryResourcesCalendarsInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesCalendarsInsert where+  type Rs DirectoryResourcesCalendarsInsert = CalendarResource+  type+    Scopes DirectoryResourcesCalendarsInsert =+      '[Admin'Directory'Resource'Calendar]+  requestClient DirectoryResourcesCalendarsInsert {..} =+    go+      customer+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DirectoryResourcesCalendarsInsertResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Calendars/List.hs view
@@ -0,0 +1,136 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Resources.Calendars.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)+--+-- Retrieves a list of calendar resources for an account.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.calendars.list@.+module Gogol.Admin.Directory.Resources.Calendars.List+  ( -- * Resource+    DirectoryResourcesCalendarsListResource,++    -- ** Constructing a Request+    DirectoryResourcesCalendarsList (..),+    newDirectoryResourcesCalendarsList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.calendars.list@ method which the+-- 'DirectoryResourcesCalendarsList' request conforms to.+type DirectoryResourcesCalendarsListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "calendars"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Int32+    Core.:> Core.QueryParam "orderBy" Core.Text+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "query" 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] CalendarResources++-- | Retrieves a list of calendar resources for an account.+--+-- /See:/ 'newDirectoryResourcesCalendarsList' smart constructor.+data DirectoryResourcesCalendarsList = DirectoryResourcesCalendarsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | Maximum number of results to return.+    maxResults :: (Core.Maybe Core.Int32),+    -- | Field(s) to sort results by in either ascending or descending order. Supported fields include @resourceId@, @resourceName@, @capacity@, @buildingId@, and @floorName@. If no order is specified, defaults to ascending. Should be of the form \"field [asc|desc], field [asc|desc], ...\". For example @buildingId, capacity desc@ would return results sorted first by @buildingId@ in ascending order then by @capacity@ in descending order.+    orderBy :: (Core.Maybe Core.Text),+    -- | Token to specify the next page in the list.+    pageToken :: (Core.Maybe Core.Text),+    -- | String query used to filter results. Should be of the form \"field operator value\" where field can be any of supported fields and operators can be any of supported operations. Operators include \'=\' for exact match, \'!=\' for mismatch and \':\' for prefix match or HAS match where applicable. For prefix match, the value should always be followed by a *. Logical operators NOT and AND are supported (in this order of precedence). Supported fields include @generatedResourceName@, @name@, @buildingId@, @floor_name@, @capacity@, @featureInstances.feature.name@, @resourceEmail@, @resourceCategory@. For example @buildingId=US-NYC-9TH AND featureInstances.feature.name:Phone@.+    query :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesCalendarsList' with the minimum fields required to make a request.+newDirectoryResourcesCalendarsList ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  DirectoryResourcesCalendarsList+newDirectoryResourcesCalendarsList customer =+  DirectoryResourcesCalendarsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      maxResults = Core.Nothing,+      orderBy = Core.Nothing,+      pageToken = Core.Nothing,+      query = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesCalendarsList where+  type Rs DirectoryResourcesCalendarsList = CalendarResources+  type+    Scopes DirectoryResourcesCalendarsList =+      '[ Admin'Directory'Resource'Calendar,+         Admin'Directory'Resource'Calendar'Readonly+       ]+  requestClient DirectoryResourcesCalendarsList {..} =+    go+      customer+      xgafv+      accessToken+      callback+      maxResults+      orderBy+      pageToken+      query+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryResourcesCalendarsListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Calendars/Patch.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.Admin.Directory.Resources.Calendars.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)+--+-- Patches a calendar resource.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.calendars.patch@.+module Gogol.Admin.Directory.Resources.Calendars.Patch+  ( -- * Resource+    DirectoryResourcesCalendarsPatchResource,++    -- ** Constructing a Request+    DirectoryResourcesCalendarsPatch (..),+    newDirectoryResourcesCalendarsPatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.calendars.patch@ method which the+-- 'DirectoryResourcesCalendarsPatch' request conforms to.+type DirectoryResourcesCalendarsPatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "calendars"+    Core.:> Core.Capture "calendarResourceId" 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] CalendarResource+    Core.:> Core.Patch '[Core.JSON] CalendarResource++-- | Patches a calendar resource.+--+-- /See:/ 'newDirectoryResourcesCalendarsPatch' smart constructor.+data DirectoryResourcesCalendarsPatch = DirectoryResourcesCalendarsPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The unique ID of the calendar resource to update.+    calendarResourceId :: Core.Text,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | Multipart request metadata.+    payload :: CalendarResource,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesCalendarsPatch' with the minimum fields required to make a request.+newDirectoryResourcesCalendarsPatch ::+  -- |  The unique ID of the calendar resource to update. See 'calendarResourceId'.+  Core.Text ->+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CalendarResource ->+  DirectoryResourcesCalendarsPatch+newDirectoryResourcesCalendarsPatch+  calendarResourceId+  customer+  payload =+    DirectoryResourcesCalendarsPatch+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        calendarResourceId = calendarResourceId,+        callback = Core.Nothing,+        customer = customer,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance Core.GoogleRequest DirectoryResourcesCalendarsPatch where+  type Rs DirectoryResourcesCalendarsPatch = CalendarResource+  type+    Scopes DirectoryResourcesCalendarsPatch =+      '[Admin'Directory'Resource'Calendar]+  requestClient DirectoryResourcesCalendarsPatch {..} =+    go+      customer+      calendarResourceId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryResourcesCalendarsPatchResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Calendars/Update.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.Admin.Directory.Resources.Calendars.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 calendar resource. This method supports patch semantics, meaning you only need to include the fields you wish to update. Fields that are not present in the request will be preserved.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.calendars.update@.+module Gogol.Admin.Directory.Resources.Calendars.Update+  ( -- * Resource+    DirectoryResourcesCalendarsUpdateResource,++    -- ** Constructing a Request+    DirectoryResourcesCalendarsUpdate (..),+    newDirectoryResourcesCalendarsUpdate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.calendars.update@ method which the+-- 'DirectoryResourcesCalendarsUpdate' request conforms to.+type DirectoryResourcesCalendarsUpdateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "calendars"+    Core.:> Core.Capture "calendarResourceId" 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] CalendarResource+    Core.:> Core.Put '[Core.JSON] CalendarResource++-- | Updates a calendar resource. This method supports patch semantics, meaning you only need to include the fields you wish to update. Fields that are not present in the request will be preserved.+--+-- /See:/ 'newDirectoryResourcesCalendarsUpdate' smart constructor.+data DirectoryResourcesCalendarsUpdate = DirectoryResourcesCalendarsUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The unique ID of the calendar resource to update.+    calendarResourceId :: Core.Text,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | Multipart request metadata.+    payload :: CalendarResource,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesCalendarsUpdate' with the minimum fields required to make a request.+newDirectoryResourcesCalendarsUpdate ::+  -- |  The unique ID of the calendar resource to update. See 'calendarResourceId'.+  Core.Text ->+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CalendarResource ->+  DirectoryResourcesCalendarsUpdate+newDirectoryResourcesCalendarsUpdate+  calendarResourceId+  customer+  payload =+    DirectoryResourcesCalendarsUpdate+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        calendarResourceId = calendarResourceId,+        callback = Core.Nothing,+        customer = customer,+        payload = payload,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance Core.GoogleRequest DirectoryResourcesCalendarsUpdate where+  type Rs DirectoryResourcesCalendarsUpdate = CalendarResource+  type+    Scopes DirectoryResourcesCalendarsUpdate =+      '[Admin'Directory'Resource'Calendar]+  requestClient DirectoryResourcesCalendarsUpdate {..} =+    go+      customer+      calendarResourceId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DirectoryResourcesCalendarsUpdateResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Features/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.Admin.Directory.Resources.Features.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 feature.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.features.delete@.+module Gogol.Admin.Directory.Resources.Features.Delete+  ( -- * Resource+    DirectoryResourcesFeaturesDeleteResource,++    -- ** Constructing a Request+    DirectoryResourcesFeaturesDelete (..),+    newDirectoryResourcesFeaturesDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.features.delete@ method which the+-- 'DirectoryResourcesFeaturesDelete' request conforms to.+type DirectoryResourcesFeaturesDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "features"+    Core.:> Core.Capture "featureKey" 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 feature.+--+-- /See:/ 'newDirectoryResourcesFeaturesDelete' smart constructor.+data DirectoryResourcesFeaturesDelete = DirectoryResourcesFeaturesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | The unique ID of the feature to delete.+    featureKey :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesFeaturesDelete' with the minimum fields required to make a request.+newDirectoryResourcesFeaturesDelete ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  -- |  The unique ID of the feature to delete. See 'featureKey'.+  Core.Text ->+  DirectoryResourcesFeaturesDelete+newDirectoryResourcesFeaturesDelete customer featureKey =+  DirectoryResourcesFeaturesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      featureKey = featureKey,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesFeaturesDelete where+  type Rs DirectoryResourcesFeaturesDelete = ()+  type+    Scopes DirectoryResourcesFeaturesDelete =+      '[Admin'Directory'Resource'Calendar]+  requestClient DirectoryResourcesFeaturesDelete {..} =+    go+      customer+      featureKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryResourcesFeaturesDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Features/Get.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.Admin.Directory.Resources.Features.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 feature.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.features.get@.+module Gogol.Admin.Directory.Resources.Features.Get+  ( -- * Resource+    DirectoryResourcesFeaturesGetResource,++    -- ** Constructing a Request+    DirectoryResourcesFeaturesGet (..),+    newDirectoryResourcesFeaturesGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.features.get@ method which the+-- 'DirectoryResourcesFeaturesGet' request conforms to.+type DirectoryResourcesFeaturesGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "features"+    Core.:> Core.Capture "featureKey" 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] Feature++-- | Retrieves a feature.+--+-- /See:/ 'newDirectoryResourcesFeaturesGet' smart constructor.+data DirectoryResourcesFeaturesGet = DirectoryResourcesFeaturesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | The unique ID of the feature to retrieve.+    featureKey :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesFeaturesGet' with the minimum fields required to make a request.+newDirectoryResourcesFeaturesGet ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  -- |  The unique ID of the feature to retrieve. See 'featureKey'.+  Core.Text ->+  DirectoryResourcesFeaturesGet+newDirectoryResourcesFeaturesGet customer featureKey =+  DirectoryResourcesFeaturesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      featureKey = featureKey,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesFeaturesGet where+  type Rs DirectoryResourcesFeaturesGet = Feature+  type+    Scopes DirectoryResourcesFeaturesGet =+      '[ Admin'Directory'Resource'Calendar,+         Admin'Directory'Resource'Calendar'Readonly+       ]+  requestClient DirectoryResourcesFeaturesGet {..} =+    go+      customer+      featureKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryResourcesFeaturesGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Features/Insert.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.Admin.Directory.Resources.Features.Insert+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Inserts a feature.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.features.insert@.+module Gogol.Admin.Directory.Resources.Features.Insert+  ( -- * Resource+    DirectoryResourcesFeaturesInsertResource,++    -- ** Constructing a Request+    DirectoryResourcesFeaturesInsert (..),+    newDirectoryResourcesFeaturesInsert,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.features.insert@ method which the+-- 'DirectoryResourcesFeaturesInsert' request conforms to.+type DirectoryResourcesFeaturesInsertResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "features"+    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] Feature+    Core.:> Core.Post '[Core.JSON] Feature++-- | Inserts a feature.+--+-- /See:/ 'newDirectoryResourcesFeaturesInsert' smart constructor.+data DirectoryResourcesFeaturesInsert = DirectoryResourcesFeaturesInsert+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | Multipart request metadata.+    payload :: Feature,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesFeaturesInsert' with the minimum fields required to make a request.+newDirectoryResourcesFeaturesInsert ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Feature ->+  DirectoryResourcesFeaturesInsert+newDirectoryResourcesFeaturesInsert customer payload =+  DirectoryResourcesFeaturesInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesFeaturesInsert where+  type Rs DirectoryResourcesFeaturesInsert = Feature+  type+    Scopes DirectoryResourcesFeaturesInsert =+      '[Admin'Directory'Resource'Calendar]+  requestClient DirectoryResourcesFeaturesInsert {..} =+    go+      customer+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryResourcesFeaturesInsertResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Features/List.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.Admin.Directory.Resources.Features.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)+--+-- Retrieves a list of features for an account.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.features.list@.+module Gogol.Admin.Directory.Resources.Features.List+  ( -- * Resource+    DirectoryResourcesFeaturesListResource,++    -- ** Constructing a Request+    DirectoryResourcesFeaturesList (..),+    newDirectoryResourcesFeaturesList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.features.list@ method which the+-- 'DirectoryResourcesFeaturesList' request conforms to.+type DirectoryResourcesFeaturesListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "features"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Features++-- | Retrieves a list of features for an account.+--+-- /See:/ 'newDirectoryResourcesFeaturesList' smart constructor.+data DirectoryResourcesFeaturesList = DirectoryResourcesFeaturesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | Maximum number of results to return.+    maxResults :: (Core.Maybe Core.Int32),+    -- | Token to specify the next page in the list.+    pageToken :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesFeaturesList' with the minimum fields required to make a request.+newDirectoryResourcesFeaturesList ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  DirectoryResourcesFeaturesList+newDirectoryResourcesFeaturesList customer =+  DirectoryResourcesFeaturesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      maxResults = Core.Nothing,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesFeaturesList where+  type Rs DirectoryResourcesFeaturesList = Features+  type+    Scopes DirectoryResourcesFeaturesList =+      '[ Admin'Directory'Resource'Calendar,+         Admin'Directory'Resource'Calendar'Readonly+       ]+  requestClient DirectoryResourcesFeaturesList {..} =+    go+      customer+      xgafv+      accessToken+      callback+      maxResults+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryResourcesFeaturesListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Features/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.Admin.Directory.Resources.Features.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)+--+-- Patches a feature.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.features.patch@.+module Gogol.Admin.Directory.Resources.Features.Patch+  ( -- * Resource+    DirectoryResourcesFeaturesPatchResource,++    -- ** Constructing a Request+    DirectoryResourcesFeaturesPatch (..),+    newDirectoryResourcesFeaturesPatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.features.patch@ method which the+-- 'DirectoryResourcesFeaturesPatch' request conforms to.+type DirectoryResourcesFeaturesPatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "features"+    Core.:> Core.Capture "featureKey" 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] Feature+    Core.:> Core.Patch '[Core.JSON] Feature++-- | Patches a feature.+--+-- /See:/ 'newDirectoryResourcesFeaturesPatch' smart constructor.+data DirectoryResourcesFeaturesPatch = DirectoryResourcesFeaturesPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | The unique ID of the feature to update.+    featureKey :: Core.Text,+    -- | Multipart request metadata.+    payload :: Feature,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesFeaturesPatch' with the minimum fields required to make a request.+newDirectoryResourcesFeaturesPatch ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  -- |  The unique ID of the feature to update. See 'featureKey'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Feature ->+  DirectoryResourcesFeaturesPatch+newDirectoryResourcesFeaturesPatch customer featureKey payload =+  DirectoryResourcesFeaturesPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      featureKey = featureKey,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesFeaturesPatch where+  type Rs DirectoryResourcesFeaturesPatch = Feature+  type+    Scopes DirectoryResourcesFeaturesPatch =+      '[Admin'Directory'Resource'Calendar]+  requestClient DirectoryResourcesFeaturesPatch {..} =+    go+      customer+      featureKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryResourcesFeaturesPatchResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Features/Rename.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.Admin.Directory.Resources.Features.Rename+-- 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)+--+-- Renames a feature.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.features.rename@.+module Gogol.Admin.Directory.Resources.Features.Rename+  ( -- * Resource+    DirectoryResourcesFeaturesRenameResource,++    -- ** Constructing a Request+    DirectoryResourcesFeaturesRename (..),+    newDirectoryResourcesFeaturesRename,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.features.rename@ method which the+-- 'DirectoryResourcesFeaturesRename' request conforms to.+type DirectoryResourcesFeaturesRenameResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "features"+    Core.:> Core.Capture "oldName" Core.Text+    Core.:> "rename"+    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] FeatureRename+    Core.:> Core.Post '[Core.JSON] ()++-- | Renames a feature.+--+-- /See:/ 'newDirectoryResourcesFeaturesRename' smart constructor.+data DirectoryResourcesFeaturesRename = DirectoryResourcesFeaturesRename+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | The unique ID of the feature to rename.+    oldName :: Core.Text,+    -- | Multipart request metadata.+    payload :: FeatureRename,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesFeaturesRename' with the minimum fields required to make a request.+newDirectoryResourcesFeaturesRename ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  -- |  The unique ID of the feature to rename. See 'oldName'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  FeatureRename ->+  DirectoryResourcesFeaturesRename+newDirectoryResourcesFeaturesRename customer oldName payload =+  DirectoryResourcesFeaturesRename+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      oldName = oldName,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesFeaturesRename where+  type Rs DirectoryResourcesFeaturesRename = ()+  type+    Scopes DirectoryResourcesFeaturesRename =+      '[Admin'Directory'Resource'Calendar]+  requestClient DirectoryResourcesFeaturesRename {..} =+    go+      customer+      oldName+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryResourcesFeaturesRenameResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Resources/Features/Update.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.Admin.Directory.Resources.Features.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 feature.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.resources.features.update@.+module Gogol.Admin.Directory.Resources.Features.Update+  ( -- * Resource+    DirectoryResourcesFeaturesUpdateResource,++    -- ** Constructing a Request+    DirectoryResourcesFeaturesUpdate (..),+    newDirectoryResourcesFeaturesUpdate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.resources.features.update@ method which the+-- 'DirectoryResourcesFeaturesUpdate' request conforms to.+type DirectoryResourcesFeaturesUpdateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "resources"+    Core.:> "features"+    Core.:> Core.Capture "featureKey" 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] Feature+    Core.:> Core.Put '[Core.JSON] Feature++-- | Updates a feature.+--+-- /See:/ 'newDirectoryResourcesFeaturesUpdate' smart constructor.+data DirectoryResourcesFeaturesUpdate = DirectoryResourcesFeaturesUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID.+    customer :: Core.Text,+    -- | The unique ID of the feature to update.+    featureKey :: Core.Text,+    -- | Multipart request metadata.+    payload :: Feature,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryResourcesFeaturesUpdate' with the minimum fields required to make a request.+newDirectoryResourcesFeaturesUpdate ::+  -- |  The unique ID for the customer\'s Google Workspace account. As an account administrator, you can also use the @my_customer@ alias to represent your account\'s customer ID. See 'customer'.+  Core.Text ->+  -- |  The unique ID of the feature to update. See 'featureKey'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Feature ->+  DirectoryResourcesFeaturesUpdate+newDirectoryResourcesFeaturesUpdate customer featureKey payload =+  DirectoryResourcesFeaturesUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      featureKey = featureKey,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryResourcesFeaturesUpdate where+  type Rs DirectoryResourcesFeaturesUpdate = Feature+  type+    Scopes DirectoryResourcesFeaturesUpdate =+      '[Admin'Directory'Resource'Calendar]+  requestClient DirectoryResourcesFeaturesUpdate {..} =+    go+      customer+      featureKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryResourcesFeaturesUpdateResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/RoleAssignments/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.Admin.Directory.RoleAssignments.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 role assignment.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.roleAssignments.delete@.+module Gogol.Admin.Directory.RoleAssignments.Delete+  ( -- * Resource+    DirectoryRoleAssignmentsDeleteResource,++    -- ** Constructing a Request+    DirectoryRoleAssignmentsDelete (..),+    newDirectoryRoleAssignmentsDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.roleAssignments.delete@ method which the+-- 'DirectoryRoleAssignmentsDelete' request conforms to.+type DirectoryRoleAssignmentsDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "roleassignments"+    Core.:> Core.Capture "roleAssignmentId" 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 role assignment.+--+-- /See:/ 'newDirectoryRoleAssignmentsDelete' smart constructor.+data DirectoryRoleAssignmentsDelete = DirectoryRoleAssignmentsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account.+    customer :: Core.Text,+    -- | Immutable ID of the role assignment.+    roleAssignmentId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryRoleAssignmentsDelete' with the minimum fields required to make a request.+newDirectoryRoleAssignmentsDelete ::+  -- |  Immutable ID of the Google Workspace account. See 'customer'.+  Core.Text ->+  -- |  Immutable ID of the role assignment. See 'roleAssignmentId'.+  Core.Text ->+  DirectoryRoleAssignmentsDelete+newDirectoryRoleAssignmentsDelete customer roleAssignmentId =+  DirectoryRoleAssignmentsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      roleAssignmentId = roleAssignmentId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryRoleAssignmentsDelete where+  type Rs DirectoryRoleAssignmentsDelete = ()+  type+    Scopes DirectoryRoleAssignmentsDelete =+      '[Admin'Directory'Rolemanagement]+  requestClient DirectoryRoleAssignmentsDelete {..} =+    go+      customer+      roleAssignmentId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryRoleAssignmentsDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/RoleAssignments/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.Admin.Directory.RoleAssignments.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 role assignment.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.roleAssignments.get@.+module Gogol.Admin.Directory.RoleAssignments.Get+  ( -- * Resource+    DirectoryRoleAssignmentsGetResource,++    -- ** Constructing a Request+    DirectoryRoleAssignmentsGet (..),+    newDirectoryRoleAssignmentsGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.roleAssignments.get@ method which the+-- 'DirectoryRoleAssignmentsGet' request conforms to.+type DirectoryRoleAssignmentsGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "roleassignments"+    Core.:> Core.Capture "roleAssignmentId" 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] RoleAssignment++-- | Retrieves a role assignment.+--+-- /See:/ 'newDirectoryRoleAssignmentsGet' smart constructor.+data DirectoryRoleAssignmentsGet = DirectoryRoleAssignmentsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter.+    customer :: Core.Text,+    -- | Immutable ID of the role assignment.+    roleAssignmentId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryRoleAssignmentsGet' with the minimum fields required to make a request.+newDirectoryRoleAssignmentsGet ::+  -- |  The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter. See 'customer'.+  Core.Text ->+  -- |  Immutable ID of the role assignment. See 'roleAssignmentId'.+  Core.Text ->+  DirectoryRoleAssignmentsGet+newDirectoryRoleAssignmentsGet customer roleAssignmentId =+  DirectoryRoleAssignmentsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      roleAssignmentId = roleAssignmentId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryRoleAssignmentsGet where+  type Rs DirectoryRoleAssignmentsGet = RoleAssignment+  type+    Scopes DirectoryRoleAssignmentsGet =+      '[ Admin'Directory'Rolemanagement,+         Admin'Directory'Rolemanagement'Readonly+       ]+  requestClient DirectoryRoleAssignmentsGet {..} =+    go+      customer+      roleAssignmentId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryRoleAssignmentsGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/RoleAssignments/Insert.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.RoleAssignments.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)+--+-- Creates a role assignment.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.roleAssignments.insert@.+module Gogol.Admin.Directory.RoleAssignments.Insert+  ( -- * Resource+    DirectoryRoleAssignmentsInsertResource,++    -- ** Constructing a Request+    DirectoryRoleAssignmentsInsert (..),+    newDirectoryRoleAssignmentsInsert,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.roleAssignments.insert@ method which the+-- 'DirectoryRoleAssignmentsInsert' request conforms to.+type DirectoryRoleAssignmentsInsertResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "roleassignments"+    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] RoleAssignment+    Core.:> Core.Post '[Core.JSON] RoleAssignment++-- | Creates a role assignment.+--+-- /See:/ 'newDirectoryRoleAssignmentsInsert' smart constructor.+data DirectoryRoleAssignmentsInsert = DirectoryRoleAssignmentsInsert+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account.+    customer :: Core.Text,+    -- | Multipart request metadata.+    payload :: RoleAssignment,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryRoleAssignmentsInsert' with the minimum fields required to make a request.+newDirectoryRoleAssignmentsInsert ::+  -- |  Immutable ID of the Google Workspace account. See 'customer'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  RoleAssignment ->+  DirectoryRoleAssignmentsInsert+newDirectoryRoleAssignmentsInsert customer payload =+  DirectoryRoleAssignmentsInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryRoleAssignmentsInsert where+  type Rs DirectoryRoleAssignmentsInsert = RoleAssignment+  type+    Scopes DirectoryRoleAssignmentsInsert =+      '[Admin'Directory'Rolemanagement]+  requestClient DirectoryRoleAssignmentsInsert {..} =+    go+      customer+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryRoleAssignmentsInsertResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/RoleAssignments/List.hs view
@@ -0,0 +1,140 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.RoleAssignments.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)+--+-- Retrieves a paginated list of all roleAssignments.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.roleAssignments.list@.+module Gogol.Admin.Directory.RoleAssignments.List+  ( -- * Resource+    DirectoryRoleAssignmentsListResource,++    -- ** Constructing a Request+    DirectoryRoleAssignmentsList (..),+    newDirectoryRoleAssignmentsList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.roleAssignments.list@ method which the+-- 'DirectoryRoleAssignmentsList' request conforms to.+type DirectoryRoleAssignmentsListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "roleassignments"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "includeIndirectRoleAssignments" Core.Bool+    Core.:> Core.QueryParam "maxResults" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "roleId" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "userKey" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] RoleAssignments++-- | Retrieves a paginated list of all roleAssignments.+--+-- /See:/ 'newDirectoryRoleAssignmentsList' smart constructor.+data DirectoryRoleAssignmentsList = DirectoryRoleAssignmentsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter.+    customer :: Core.Text,+    -- | When set to @true@, fetches indirect role assignments (i.e. role assignment via a group) as well as direct ones. Defaults to @false@. You must specify @user_key@ or the indirect role assignments will not be included.+    includeIndirectRoleAssignments :: (Core.Maybe Core.Bool),+    -- | Maximum number of results to return.+    maxResults :: (Core.Maybe Core.Int32),+    -- | Token to specify the next page in the list.+    pageToken :: (Core.Maybe Core.Text),+    -- | Immutable ID of a role. If included in the request, returns only role assignments containing this role ID.+    roleId :: (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 primary email address, alias email address, or unique user or group ID. If included in the request, returns role assignments only for this user or group.+    userKey :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryRoleAssignmentsList' with the minimum fields required to make a request.+newDirectoryRoleAssignmentsList ::+  -- |  The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter. See 'customer'.+  Core.Text ->+  DirectoryRoleAssignmentsList+newDirectoryRoleAssignmentsList customer =+  DirectoryRoleAssignmentsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      includeIndirectRoleAssignments = Core.Nothing,+      maxResults = Core.Nothing,+      pageToken = Core.Nothing,+      roleId = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = Core.Nothing+    }++instance Core.GoogleRequest DirectoryRoleAssignmentsList where+  type Rs DirectoryRoleAssignmentsList = RoleAssignments+  type+    Scopes DirectoryRoleAssignmentsList =+      '[ Admin'Directory'Rolemanagement,+         Admin'Directory'Rolemanagement'Readonly+       ]+  requestClient DirectoryRoleAssignmentsList {..} =+    go+      customer+      xgafv+      accessToken+      callback+      includeIndirectRoleAssignments+      maxResults+      pageToken+      roleId+      uploadType+      uploadProtocol+      userKey+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryRoleAssignmentsListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Roles/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.Admin.Directory.Roles.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 role.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.roles.delete@.+module Gogol.Admin.Directory.Roles.Delete+  ( -- * Resource+    DirectoryRolesDeleteResource,++    -- ** Constructing a Request+    DirectoryRolesDelete (..),+    newDirectoryRolesDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.roles.delete@ method which the+-- 'DirectoryRolesDelete' request conforms to.+type DirectoryRolesDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "roles"+    Core.:> Core.Capture "roleId" 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 role.+--+-- /See:/ 'newDirectoryRolesDelete' smart constructor.+data DirectoryRolesDelete = DirectoryRolesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account.+    customer :: Core.Text,+    -- | Immutable ID of the role.+    roleId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryRolesDelete' with the minimum fields required to make a request.+newDirectoryRolesDelete ::+  -- |  Immutable ID of the Google Workspace account. See 'customer'.+  Core.Text ->+  -- |  Immutable ID of the role. See 'roleId'.+  Core.Text ->+  DirectoryRolesDelete+newDirectoryRolesDelete customer roleId =+  DirectoryRolesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      roleId = roleId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryRolesDelete where+  type Rs DirectoryRolesDelete = ()+  type+    Scopes DirectoryRolesDelete =+      '[Admin'Directory'Rolemanagement]+  requestClient DirectoryRolesDelete {..} =+    go+      customer+      roleId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryRolesDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Roles/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.Admin.Directory.Roles.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 role.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.roles.get@.+module Gogol.Admin.Directory.Roles.Get+  ( -- * Resource+    DirectoryRolesGetResource,++    -- ** Constructing a Request+    DirectoryRolesGet (..),+    newDirectoryRolesGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.roles.get@ method which the+-- 'DirectoryRolesGet' request conforms to.+type DirectoryRolesGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "roles"+    Core.:> Core.Capture "roleId" 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] Role++-- | Retrieves a role.+--+-- /See:/ 'newDirectoryRolesGet' smart constructor.+data DirectoryRolesGet = DirectoryRolesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter.+    customer :: Core.Text,+    -- | Immutable ID of the role.+    roleId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryRolesGet' with the minimum fields required to make a request.+newDirectoryRolesGet ::+  -- |  The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter. See 'customer'.+  Core.Text ->+  -- |  Immutable ID of the role. See 'roleId'.+  Core.Text ->+  DirectoryRolesGet+newDirectoryRolesGet customer roleId =+  DirectoryRolesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      roleId = roleId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryRolesGet where+  type Rs DirectoryRolesGet = Role+  type+    Scopes DirectoryRolesGet =+      '[ Admin'Directory'Rolemanagement,+         Admin'Directory'Rolemanagement'Readonly+       ]+  requestClient DirectoryRolesGet {..} =+    go+      customer+      roleId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryRolesGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Roles/Insert.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Roles.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)+--+-- Creates a role.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.roles.insert@.+module Gogol.Admin.Directory.Roles.Insert+  ( -- * Resource+    DirectoryRolesInsertResource,++    -- ** Constructing a Request+    DirectoryRolesInsert (..),+    newDirectoryRolesInsert,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.roles.insert@ method which the+-- 'DirectoryRolesInsert' request conforms to.+type DirectoryRolesInsertResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "roles"+    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] Role+    Core.:> Core.Post '[Core.JSON] Role++-- | Creates a role.+--+-- /See:/ 'newDirectoryRolesInsert' smart constructor.+data DirectoryRolesInsert = DirectoryRolesInsert+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account.+    customer :: Core.Text,+    -- | Multipart request metadata.+    payload :: Role,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryRolesInsert' with the minimum fields required to make a request.+newDirectoryRolesInsert ::+  -- |  Immutable ID of the Google Workspace account. See 'customer'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Role ->+  DirectoryRolesInsert+newDirectoryRolesInsert customer payload =+  DirectoryRolesInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryRolesInsert where+  type Rs DirectoryRolesInsert = Role+  type+    Scopes DirectoryRolesInsert =+      '[Admin'Directory'Rolemanagement]+  requestClient DirectoryRolesInsert {..} =+    go+      customer+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryRolesInsertResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Roles/List.hs view
@@ -0,0 +1,125 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Roles.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)+--+-- Retrieves a paginated list of all the roles in a domain.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.roles.list@.+module Gogol.Admin.Directory.Roles.List+  ( -- * Resource+    DirectoryRolesListResource,++    -- ** Constructing a Request+    DirectoryRolesList (..),+    newDirectoryRolesList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.roles.list@ method which the+-- 'DirectoryRolesList' request conforms to.+type DirectoryRolesListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "roles"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Roles++-- | Retrieves a paginated list of all the roles in a domain.+--+-- /See:/ 'newDirectoryRolesList' smart constructor.+data DirectoryRolesList = DirectoryRolesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter.+    customer :: Core.Text,+    -- | Maximum number of results to return.+    maxResults :: (Core.Maybe Core.Int32),+    -- | Token to specify the next page in the list.+    pageToken :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryRolesList' with the minimum fields required to make a request.+newDirectoryRolesList ::+  -- |  The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter. See 'customer'.+  Core.Text ->+  DirectoryRolesList+newDirectoryRolesList customer =+  DirectoryRolesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      maxResults = Core.Nothing,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryRolesList where+  type Rs DirectoryRolesList = Roles+  type+    Scopes DirectoryRolesList =+      '[ Admin'Directory'Rolemanagement,+         Admin'Directory'Rolemanagement'Readonly+       ]+  requestClient DirectoryRolesList {..} =+    go+      customer+      xgafv+      accessToken+      callback+      maxResults+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryRolesListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Roles/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.Admin.Directory.Roles.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)+--+-- Patches a role.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.roles.patch@.+module Gogol.Admin.Directory.Roles.Patch+  ( -- * Resource+    DirectoryRolesPatchResource,++    -- ** Constructing a Request+    DirectoryRolesPatch (..),+    newDirectoryRolesPatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.roles.patch@ method which the+-- 'DirectoryRolesPatch' request conforms to.+type DirectoryRolesPatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "roles"+    Core.:> Core.Capture "roleId" 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] Role+    Core.:> Core.Patch '[Core.JSON] Role++-- | Patches a role.+--+-- /See:/ 'newDirectoryRolesPatch' smart constructor.+data DirectoryRolesPatch = DirectoryRolesPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account.+    customer :: Core.Text,+    -- | Multipart request metadata.+    payload :: Role,+    -- | Immutable ID of the role.+    roleId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryRolesPatch' with the minimum fields required to make a request.+newDirectoryRolesPatch ::+  -- |  Immutable ID of the Google Workspace account. See 'customer'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Role ->+  -- |  Immutable ID of the role. See 'roleId'.+  Core.Text ->+  DirectoryRolesPatch+newDirectoryRolesPatch customer payload roleId =+  DirectoryRolesPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      payload = payload,+      roleId = roleId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryRolesPatch where+  type Rs DirectoryRolesPatch = Role+  type Scopes DirectoryRolesPatch = '[Admin'Directory'Rolemanagement]+  requestClient DirectoryRolesPatch {..} =+    go+      customer+      roleId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryRolesPatchResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Roles/Update.hs view
@@ -0,0 +1,127 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Roles.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 role.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.roles.update@.+module Gogol.Admin.Directory.Roles.Update+  ( -- * Resource+    DirectoryRolesUpdateResource,++    -- ** Constructing a Request+    DirectoryRolesUpdate (..),+    newDirectoryRolesUpdate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.roles.update@ method which the+-- 'DirectoryRolesUpdate' request conforms to.+type DirectoryRolesUpdateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customer" Core.Text+    Core.:> "roles"+    Core.:> Core.Capture "roleId" 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] Role+    Core.:> Core.Put '[Core.JSON] Role++-- | Updates a role.+--+-- /See:/ 'newDirectoryRolesUpdate' smart constructor.+data DirectoryRolesUpdate = DirectoryRolesUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account.+    customer :: Core.Text,+    -- | Multipart request metadata.+    payload :: Role,+    -- | Immutable ID of the role.+    roleId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryRolesUpdate' with the minimum fields required to make a request.+newDirectoryRolesUpdate ::+  -- |  Immutable ID of the Google Workspace account. See 'customer'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Role ->+  -- |  Immutable ID of the role. See 'roleId'.+  Core.Text ->+  DirectoryRolesUpdate+newDirectoryRolesUpdate customer payload roleId =+  DirectoryRolesUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customer = customer,+      payload = payload,+      roleId = roleId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryRolesUpdate where+  type Rs DirectoryRolesUpdate = Role+  type+    Scopes DirectoryRolesUpdate =+      '[Admin'Directory'Rolemanagement]+  requestClient DirectoryRolesUpdate {..} =+    go+      customer+      roleId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryRolesUpdateResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Schemas/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.Admin.Directory.Schemas.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 schema.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.schemas.delete@.+module Gogol.Admin.Directory.Schemas.Delete+  ( -- * Resource+    DirectorySchemasDeleteResource,++    -- ** Constructing a Request+    DirectorySchemasDelete (..),+    newDirectorySchemasDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.schemas.delete@ method which the+-- 'DirectorySchemasDelete' request conforms to.+type DirectorySchemasDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "schemas"+    Core.:> Core.Capture "schemaKey" 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 schema.+--+-- /See:/ 'newDirectorySchemasDelete' smart constructor.+data DirectorySchemasDelete = DirectorySchemasDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account.+    customerId :: Core.Text,+    -- | Name or immutable ID of the schema.+    schemaKey :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectorySchemasDelete' with the minimum fields required to make a request.+newDirectorySchemasDelete ::+  -- |  Immutable ID of the Google Workspace account. See 'customerId'.+  Core.Text ->+  -- |  Name or immutable ID of the schema. See 'schemaKey'.+  Core.Text ->+  DirectorySchemasDelete+newDirectorySchemasDelete customerId schemaKey =+  DirectorySchemasDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      schemaKey = schemaKey,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectorySchemasDelete where+  type Rs DirectorySchemasDelete = ()+  type Scopes DirectorySchemasDelete = '[Admin'Directory'Userschema]+  requestClient DirectorySchemasDelete {..} =+    go+      customerId+      schemaKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectorySchemasDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Schemas/Get.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Schemas.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 schema.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.schemas.get@.+module Gogol.Admin.Directory.Schemas.Get+  ( -- * Resource+    DirectorySchemasGetResource,++    -- ** Constructing a Request+    DirectorySchemasGet (..),+    newDirectorySchemasGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.schemas.get@ method which the+-- 'DirectorySchemasGet' request conforms to.+type DirectorySchemasGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "schemas"+    Core.:> Core.Capture "schemaKey" 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] Schema++-- | Retrieves a schema.+--+-- /See:/ 'newDirectorySchemasGet' smart constructor.+data DirectorySchemasGet = DirectorySchemasGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter.+    customerId :: Core.Text,+    -- | Name or immutable ID of the schema.+    schemaKey :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectorySchemasGet' with the minimum fields required to make a request.+newDirectorySchemasGet ::+  -- |  The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter. See 'customerId'.+  Core.Text ->+  -- |  Name or immutable ID of the schema. See 'schemaKey'.+  Core.Text ->+  DirectorySchemasGet+newDirectorySchemasGet customerId schemaKey =+  DirectorySchemasGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      schemaKey = schemaKey,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectorySchemasGet where+  type Rs DirectorySchemasGet = Schema+  type+    Scopes DirectorySchemasGet =+      '[Admin'Directory'Userschema, Admin'Directory'Userschema'Readonly]+  requestClient DirectorySchemasGet {..} =+    go+      customerId+      schemaKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectorySchemasGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Schemas/Insert.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.Admin.Directory.Schemas.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)+--+-- Creates a schema.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.schemas.insert@.+module Gogol.Admin.Directory.Schemas.Insert+  ( -- * Resource+    DirectorySchemasInsertResource,++    -- ** Constructing a Request+    DirectorySchemasInsert (..),+    newDirectorySchemasInsert,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.schemas.insert@ method which the+-- 'DirectorySchemasInsert' request conforms to.+type DirectorySchemasInsertResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "schemas"+    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] Schema+    Core.:> Core.Post '[Core.JSON] Schema++-- | Creates a schema.+--+-- /See:/ 'newDirectorySchemasInsert' smart constructor.+data DirectorySchemasInsert = DirectorySchemasInsert+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account.+    customerId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Schema,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectorySchemasInsert' with the minimum fields required to make a request.+newDirectorySchemasInsert ::+  -- |  Immutable ID of the Google Workspace account. See 'customerId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Schema ->+  DirectorySchemasInsert+newDirectorySchemasInsert customerId payload =+  DirectorySchemasInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectorySchemasInsert where+  type Rs DirectorySchemasInsert = Schema+  type Scopes DirectorySchemasInsert = '[Admin'Directory'Userschema]+  requestClient DirectorySchemasInsert {..} =+    go+      customerId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectorySchemasInsertResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Schemas/List.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Schemas.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)+--+-- Retrieves all schemas for a customer.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.schemas.list@.+module Gogol.Admin.Directory.Schemas.List+  ( -- * Resource+    DirectorySchemasListResource,++    -- ** Constructing a Request+    DirectorySchemasList (..),+    newDirectorySchemasList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.schemas.list@ method which the+-- 'DirectorySchemasList' request conforms to.+type DirectorySchemasListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "schemas"+    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] Schemas++-- | Retrieves all schemas for a customer.+--+-- /See:/ 'newDirectorySchemasList' smart constructor.+data DirectorySchemasList = DirectorySchemasList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter.+    customerId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectorySchemasList' with the minimum fields required to make a request.+newDirectorySchemasList ::+  -- |  The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all groups for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter. See 'customerId'.+  Core.Text ->+  DirectorySchemasList+newDirectorySchemasList customerId =+  DirectorySchemasList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectorySchemasList where+  type Rs DirectorySchemasList = Schemas+  type+    Scopes DirectorySchemasList =+      '[Admin'Directory'Userschema, Admin'Directory'Userschema'Readonly]+  requestClient DirectorySchemasList {..} =+    go+      customerId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectorySchemasListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Schemas/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.Admin.Directory.Schemas.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)+--+-- Patches a schema.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.schemas.patch@.+module Gogol.Admin.Directory.Schemas.Patch+  ( -- * Resource+    DirectorySchemasPatchResource,++    -- ** Constructing a Request+    DirectorySchemasPatch (..),+    newDirectorySchemasPatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.schemas.patch@ method which the+-- 'DirectorySchemasPatch' request conforms to.+type DirectorySchemasPatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "schemas"+    Core.:> Core.Capture "schemaKey" 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] Schema+    Core.:> Core.Patch '[Core.JSON] Schema++-- | Patches a schema.+--+-- /See:/ 'newDirectorySchemasPatch' smart constructor.+data DirectorySchemasPatch = DirectorySchemasPatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account.+    customerId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Schema,+    -- | Name or immutable ID of the schema.+    schemaKey :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectorySchemasPatch' with the minimum fields required to make a request.+newDirectorySchemasPatch ::+  -- |  Immutable ID of the Google Workspace account. See 'customerId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Schema ->+  -- |  Name or immutable ID of the schema. See 'schemaKey'.+  Core.Text ->+  DirectorySchemasPatch+newDirectorySchemasPatch customerId payload schemaKey =+  DirectorySchemasPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      payload = payload,+      schemaKey = schemaKey,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectorySchemasPatch where+  type Rs DirectorySchemasPatch = Schema+  type Scopes DirectorySchemasPatch = '[Admin'Directory'Userschema]+  requestClient DirectorySchemasPatch {..} =+    go+      customerId+      schemaKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectorySchemasPatchResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Schemas/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.Admin.Directory.Schemas.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 schema.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.schemas.update@.+module Gogol.Admin.Directory.Schemas.Update+  ( -- * Resource+    DirectorySchemasUpdateResource,++    -- ** Constructing a Request+    DirectorySchemasUpdate (..),+    newDirectorySchemasUpdate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.schemas.update@ method which the+-- 'DirectorySchemasUpdate' request conforms to.+type DirectorySchemasUpdateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "customer"+    Core.:> Core.Capture "customerId" Core.Text+    Core.:> "schemas"+    Core.:> Core.Capture "schemaKey" 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] Schema+    Core.:> Core.Put '[Core.JSON] Schema++-- | Updates a schema.+--+-- /See:/ 'newDirectorySchemasUpdate' smart constructor.+data DirectorySchemasUpdate = DirectorySchemasUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account.+    customerId :: Core.Text,+    -- | Multipart request metadata.+    payload :: Schema,+    -- | Name or immutable ID of the schema.+    schemaKey :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectorySchemasUpdate' with the minimum fields required to make a request.+newDirectorySchemasUpdate ::+  -- |  Immutable ID of the Google Workspace account. See 'customerId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Schema ->+  -- |  Name or immutable ID of the schema. See 'schemaKey'.+  Core.Text ->+  DirectorySchemasUpdate+newDirectorySchemasUpdate customerId payload schemaKey =+  DirectorySchemasUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customerId = customerId,+      payload = payload,+      schemaKey = schemaKey,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectorySchemasUpdate where+  type Rs DirectorySchemasUpdate = Schema+  type Scopes DirectorySchemasUpdate = '[Admin'Directory'Userschema]+  requestClient DirectorySchemasUpdate {..} =+    go+      customerId+      schemaKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectorySchemasUpdateResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Tokens/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.Admin.Directory.Tokens.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 all access tokens issued by a user for an application.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.tokens.delete@.+module Gogol.Admin.Directory.Tokens.Delete+  ( -- * Resource+    DirectoryTokensDeleteResource,++    -- ** Constructing a Request+    DirectoryTokensDelete (..),+    newDirectoryTokensDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.tokens.delete@ method which the+-- 'DirectoryTokensDelete' request conforms to.+type DirectoryTokensDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "tokens"+    Core.:> Core.Capture "clientId" 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 all access tokens issued by a user for an application.+--+-- /See:/ 'newDirectoryTokensDelete' smart constructor.+data DirectoryTokensDelete = DirectoryTokensDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The Client ID of the application the token is issued to.+    clientId :: 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryTokensDelete' with the minimum fields required to make a request.+newDirectoryTokensDelete ::+  -- |  The Client ID of the application the token is issued to. See 'clientId'.+  Core.Text ->+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryTokensDelete+newDirectoryTokensDelete clientId userKey =+  DirectoryTokensDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      clientId = clientId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryTokensDelete where+  type Rs DirectoryTokensDelete = ()+  type+    Scopes DirectoryTokensDelete =+      '[Admin'Directory'User'Security]+  requestClient DirectoryTokensDelete {..} =+    go+      userKey+      clientId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryTokensDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Tokens/Get.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Tokens.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about an access token issued by a user.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.tokens.get@.+module Gogol.Admin.Directory.Tokens.Get+  ( -- * Resource+    DirectoryTokensGetResource,++    -- ** Constructing a Request+    DirectoryTokensGet (..),+    newDirectoryTokensGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.tokens.get@ method which the+-- 'DirectoryTokensGet' request conforms to.+type DirectoryTokensGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "tokens"+    Core.:> Core.Capture "clientId" 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] Token++-- | Gets information about an access token issued by a user.+--+-- /See:/ 'newDirectoryTokensGet' smart constructor.+data DirectoryTokensGet = DirectoryTokensGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The Client ID of the application the token is issued to.+    clientId :: 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryTokensGet' with the minimum fields required to make a request.+newDirectoryTokensGet ::+  -- |  The Client ID of the application the token is issued to. See 'clientId'.+  Core.Text ->+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryTokensGet+newDirectoryTokensGet clientId userKey =+  DirectoryTokensGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      clientId = clientId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryTokensGet where+  type Rs DirectoryTokensGet = Token+  type Scopes DirectoryTokensGet = '[Admin'Directory'User'Security]+  requestClient DirectoryTokensGet {..} =+    go+      userKey+      clientId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryTokensGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Tokens/List.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Tokens.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)+--+-- Returns the set of tokens specified user has issued to 3rd party applications.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.tokens.list@.+module Gogol.Admin.Directory.Tokens.List+  ( -- * Resource+    DirectoryTokensListResource,++    -- ** Constructing a Request+    DirectoryTokensList (..),+    newDirectoryTokensList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.tokens.list@ method which the+-- 'DirectoryTokensList' request conforms to.+type DirectoryTokensListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "tokens"+    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] Tokens++-- | Returns the set of tokens specified user has issued to 3rd party applications.+--+-- /See:/ 'newDirectoryTokensList' smart constructor.+data DirectoryTokensList = DirectoryTokensList+  { -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryTokensList' with the minimum fields required to make a request.+newDirectoryTokensList ::+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryTokensList+newDirectoryTokensList userKey =+  DirectoryTokensList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryTokensList where+  type Rs DirectoryTokensList = Tokens+  type Scopes DirectoryTokensList = '[Admin'Directory'User'Security]+  requestClient DirectoryTokensList {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryTokensListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/TwoStepVerification/TurnOff.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.Admin.Directory.TwoStepVerification.TurnOff+-- 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 2-Step Verification for user.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.twoStepVerification.turnOff@.+module Gogol.Admin.Directory.TwoStepVerification.TurnOff+  ( -- * Resource+    DirectoryTwoStepVerificationTurnOffResource,++    -- ** Constructing a Request+    DirectoryTwoStepVerificationTurnOff (..),+    newDirectoryTwoStepVerificationTurnOff,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.twoStepVerification.turnOff@ method which the+-- 'DirectoryTwoStepVerificationTurnOff' request conforms to.+type DirectoryTwoStepVerificationTurnOffResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "twoStepVerification"+    Core.:> "turnOff"+    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] ()++-- | Turns off 2-Step Verification for user.+--+-- /See:/ 'newDirectoryTwoStepVerificationTurnOff' smart constructor.+data DirectoryTwoStepVerificationTurnOff = DirectoryTwoStepVerificationTurnOff+  { -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryTwoStepVerificationTurnOff' with the minimum fields required to make a request.+newDirectoryTwoStepVerificationTurnOff ::+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryTwoStepVerificationTurnOff+newDirectoryTwoStepVerificationTurnOff userKey =+  DirectoryTwoStepVerificationTurnOff+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryTwoStepVerificationTurnOff where+  type Rs DirectoryTwoStepVerificationTurnOff = ()+  type+    Scopes DirectoryTwoStepVerificationTurnOff =+      '[Admin'Directory'User'Security]+  requestClient DirectoryTwoStepVerificationTurnOff {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DirectoryTwoStepVerificationTurnOffResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/Types.hs view
@@ -0,0 +1,829 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Types+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Gogol.Admin.Directory.Types+  ( -- * Configuration+    adminDirectoryService,++    -- * OAuth Scopes+    Admin'Chrome'Printers,+    Admin'Chrome'Printers'Readonly,+    Admin'Directory'Customer,+    Admin'Directory'Customer'Readonly,+    Admin'Directory'Device'Chromeos,+    Admin'Directory'Device'Chromeos'Readonly,+    Admin'Directory'Device'Mobile,+    Admin'Directory'Device'Mobile'Action,+    Admin'Directory'Device'Mobile'Readonly,+    Admin'Directory'Domain,+    Admin'Directory'Domain'Readonly,+    Admin'Directory'Group,+    Admin'Directory'Group'Member,+    Admin'Directory'Group'Member'Readonly,+    Admin'Directory'Group'Readonly,+    Admin'Directory'Orgunit,+    Admin'Directory'Orgunit'Readonly,+    Admin'Directory'Resource'Calendar,+    Admin'Directory'Resource'Calendar'Readonly,+    Admin'Directory'Rolemanagement,+    Admin'Directory'Rolemanagement'Readonly,+    Admin'Directory'User,+    Admin'Directory'User'Alias,+    Admin'Directory'User'Alias'Readonly,+    Admin'Directory'User'Readonly,+    Admin'Directory'User'Security,+    Admin'Directory'Userschema,+    Admin'Directory'Userschema'Readonly,+    CloudPlatform'FullControl,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** Alias+    Alias (..),+    newAlias,++    -- ** Aliases+    Aliases (..),+    newAliases,++    -- ** Asp+    Asp (..),+    newAsp,++    -- ** Asps+    Asps (..),+    newAsps,++    -- ** AuxiliaryMessage+    AuxiliaryMessage (..),+    newAuxiliaryMessage,++    -- ** AuxiliaryMessage_Severity+    AuxiliaryMessage_Severity (..),++    -- ** BacklightInfo+    BacklightInfo (..),+    newBacklightInfo,++    -- ** BatchChangeChromeOsDeviceStatusRequest+    BatchChangeChromeOsDeviceStatusRequest (..),+    newBatchChangeChromeOsDeviceStatusRequest,++    -- ** BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction+    BatchChangeChromeOsDeviceStatusRequest_ChangeChromeOsDeviceStatusAction (..),++    -- ** BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason+    BatchChangeChromeOsDeviceStatusRequest_DeprovisionReason (..),++    -- ** BatchChangeChromeOsDeviceStatusResponse+    BatchChangeChromeOsDeviceStatusResponse (..),+    newBatchChangeChromeOsDeviceStatusResponse,++    -- ** BatchCreatePrintServersRequest+    BatchCreatePrintServersRequest (..),+    newBatchCreatePrintServersRequest,++    -- ** BatchCreatePrintServersResponse+    BatchCreatePrintServersResponse (..),+    newBatchCreatePrintServersResponse,++    -- ** BatchCreatePrintersRequest+    BatchCreatePrintersRequest (..),+    newBatchCreatePrintersRequest,++    -- ** BatchCreatePrintersResponse+    BatchCreatePrintersResponse (..),+    newBatchCreatePrintersResponse,++    -- ** BatchDeletePrintServersRequest+    BatchDeletePrintServersRequest (..),+    newBatchDeletePrintServersRequest,++    -- ** BatchDeletePrintServersResponse+    BatchDeletePrintServersResponse (..),+    newBatchDeletePrintServersResponse,++    -- ** BatchDeletePrintersRequest+    BatchDeletePrintersRequest (..),+    newBatchDeletePrintersRequest,++    -- ** BatchDeletePrintersResponse+    BatchDeletePrintersResponse (..),+    newBatchDeletePrintersResponse,++    -- ** Building+    Building (..),+    newBuilding,++    -- ** BuildingAddress+    BuildingAddress (..),+    newBuildingAddress,++    -- ** BuildingCoordinates+    BuildingCoordinates (..),+    newBuildingCoordinates,++    -- ** Buildings+    Buildings (..),+    newBuildings,++    -- ** ByteUsage+    ByteUsage (..),+    newByteUsage,++    -- ** CalendarResource+    CalendarResource (..),+    newCalendarResource,++    -- ** CalendarResources+    CalendarResources (..),+    newCalendarResources,++    -- ** ChangeChromeOsDeviceStatusResult+    ChangeChromeOsDeviceStatusResult (..),+    newChangeChromeOsDeviceStatusResult,++    -- ** ChangeChromeOsDeviceStatusSucceeded+    ChangeChromeOsDeviceStatusSucceeded (..),+    newChangeChromeOsDeviceStatusSucceeded,++    -- ** Channel+    Channel (..),+    newChannel,++    -- ** Channel_Params+    Channel_Params (..),+    newChannel_Params,++    -- ** ChromeOsDevice+    ChromeOsDevice (..),+    newChromeOsDevice,++    -- ** ChromeOsDevice_ActiveTimeRangesItem+    ChromeOsDevice_ActiveTimeRangesItem (..),+    newChromeOsDevice_ActiveTimeRangesItem,++    -- ** ChromeOsDevice_ChromeOsType+    ChromeOsDevice_ChromeOsType (..),++    -- ** ChromeOsDevice_CpuInfoItem+    ChromeOsDevice_CpuInfoItem (..),+    newChromeOsDevice_CpuInfoItem,++    -- ** ChromeOsDevice_CpuInfoItem_LogicalCpusItem+    ChromeOsDevice_CpuInfoItem_LogicalCpusItem (..),+    newChromeOsDevice_CpuInfoItem_LogicalCpusItem,++    -- ** ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem+    ChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem (..),+    newChromeOsDevice_CpuInfoItem_LogicalCpusItem_CStatesItem,++    -- ** ChromeOsDevice_CpuStatusReportsItem+    ChromeOsDevice_CpuStatusReportsItem (..),+    newChromeOsDevice_CpuStatusReportsItem,++    -- ** ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem+    ChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem (..),+    newChromeOsDevice_CpuStatusReportsItem_CpuTemperatureInfoItem,++    -- ** ChromeOsDevice_DeprovisionReason+    ChromeOsDevice_DeprovisionReason (..),++    -- ** ChromeOsDevice_DeviceFilesItem+    ChromeOsDevice_DeviceFilesItem (..),+    newChromeOsDevice_DeviceFilesItem,++    -- ** ChromeOsDevice_DeviceLicenseType+    ChromeOsDevice_DeviceLicenseType (..),++    -- ** ChromeOsDevice_DiskVolumeReportsItem+    ChromeOsDevice_DiskVolumeReportsItem (..),+    newChromeOsDevice_DiskVolumeReportsItem,++    -- ** ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem+    ChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem (..),+    newChromeOsDevice_DiskVolumeReportsItem_VolumeInfoItem,++    -- ** ChromeOsDevice_LastKnownNetworkItem+    ChromeOsDevice_LastKnownNetworkItem (..),+    newChromeOsDevice_LastKnownNetworkItem,++    -- ** ChromeOsDevice_RecentUsersItem+    ChromeOsDevice_RecentUsersItem (..),+    newChromeOsDevice_RecentUsersItem,++    -- ** ChromeOsDevice_ScreenshotFilesItem+    ChromeOsDevice_ScreenshotFilesItem (..),+    newChromeOsDevice_ScreenshotFilesItem,++    -- ** ChromeOsDevice_SystemRamFreeReportsItem+    ChromeOsDevice_SystemRamFreeReportsItem (..),+    newChromeOsDevice_SystemRamFreeReportsItem,++    -- ** ChromeOsDevice_TpmVersionInfo+    ChromeOsDevice_TpmVersionInfo (..),+    newChromeOsDevice_TpmVersionInfo,++    -- ** ChromeOsDeviceAction+    ChromeOsDeviceAction (..),+    newChromeOsDeviceAction,++    -- ** ChromeOsDevices+    ChromeOsDevices (..),+    newChromeOsDevices,++    -- ** ChromeOsMoveDevicesToOu+    ChromeOsMoveDevicesToOu (..),+    newChromeOsMoveDevicesToOu,++    -- ** CreatePrintServerRequest+    CreatePrintServerRequest (..),+    newCreatePrintServerRequest,++    -- ** CreatePrinterRequest+    CreatePrinterRequest (..),+    newCreatePrinterRequest,++    -- ** Customer+    Customer (..),+    newCustomer,++    -- ** CustomerPostalAddress+    CustomerPostalAddress (..),+    newCustomerPostalAddress,++    -- ** DirectoryChromeosdevicesCommand+    DirectoryChromeosdevicesCommand (..),+    newDirectoryChromeosdevicesCommand,++    -- ** DirectoryChromeosdevicesCommand_State+    DirectoryChromeosdevicesCommand_State (..),++    -- ** DirectoryChromeosdevicesCommand_Type+    DirectoryChromeosdevicesCommand_Type (..),++    -- ** DirectoryChromeosdevicesCommandResult+    DirectoryChromeosdevicesCommandResult (..),+    newDirectoryChromeosdevicesCommandResult,++    -- ** DirectoryChromeosdevicesCommandResult_Result+    DirectoryChromeosdevicesCommandResult_Result (..),++    -- ** DirectoryChromeosdevicesIssueCommandRequest+    DirectoryChromeosdevicesIssueCommandRequest (..),+    newDirectoryChromeosdevicesIssueCommandRequest,++    -- ** DirectoryChromeosdevicesIssueCommandRequest_CommandType+    DirectoryChromeosdevicesIssueCommandRequest_CommandType (..),++    -- ** DirectoryChromeosdevicesIssueCommandResponse+    DirectoryChromeosdevicesIssueCommandResponse (..),+    newDirectoryChromeosdevicesIssueCommandResponse,++    -- ** DomainAlias+    DomainAlias (..),+    newDomainAlias,++    -- ** DomainAliases+    DomainAliases (..),+    newDomainAliases,++    -- ** Domains+    Domains (..),+    newDomains,++    -- ** Domains2+    Domains2 (..),+    newDomains2,++    -- ** Empty+    Empty (..),+    newEmpty,++    -- ** FailureInfo+    FailureInfo (..),+    newFailureInfo,++    -- ** FailureInfo_ErrorCode+    FailureInfo_ErrorCode (..),++    -- ** FanInfo+    FanInfo (..),+    newFanInfo,++    -- ** Feature+    Feature (..),+    newFeature,++    -- ** FeatureInstance+    FeatureInstance (..),+    newFeatureInstance,++    -- ** FeatureRename+    FeatureRename (..),+    newFeatureRename,++    -- ** Features+    Features (..),+    newFeatures,++    -- ** Group+    Group (..),+    newGroup,++    -- ** GroupAlias+    GroupAlias (..),+    newGroupAlias,++    -- ** Groups+    Groups (..),+    newGroups,++    -- ** ListPrintServersResponse+    ListPrintServersResponse (..),+    newListPrintServersResponse,++    -- ** ListPrinterModelsResponse+    ListPrinterModelsResponse (..),+    newListPrinterModelsResponse,++    -- ** ListPrintersResponse+    ListPrintersResponse (..),+    newListPrintersResponse,++    -- ** Member+    Member (..),+    newMember,++    -- ** Members+    Members (..),+    newMembers,++    -- ** MembersHasMember+    MembersHasMember (..),+    newMembersHasMember,++    -- ** MobileDevice+    MobileDevice (..),+    newMobileDevice,++    -- ** MobileDevice_ApplicationsItem+    MobileDevice_ApplicationsItem (..),+    newMobileDevice_ApplicationsItem,++    -- ** MobileDeviceAction+    MobileDeviceAction (..),+    newMobileDeviceAction,++    -- ** MobileDevices+    MobileDevices (..),+    newMobileDevices,++    -- ** OrgUnit+    OrgUnit (..),+    newOrgUnit,++    -- ** OrgUnits+    OrgUnits (..),+    newOrgUnits,++    -- ** OsUpdateStatus+    OsUpdateStatus (..),+    newOsUpdateStatus,++    -- ** OsUpdateStatus_State+    OsUpdateStatus_State (..),++    -- ** PrintServer+    PrintServer (..),+    newPrintServer,++    -- ** PrintServerFailureInfo+    PrintServerFailureInfo (..),+    newPrintServerFailureInfo,++    -- ** PrintServerFailureInfo_ErrorCode+    PrintServerFailureInfo_ErrorCode (..),++    -- ** Printer+    Printer (..),+    newPrinter,++    -- ** PrinterModel+    PrinterModel (..),+    newPrinterModel,++    -- ** Privilege+    Privilege (..),+    newPrivilege,++    -- ** Privileges+    Privileges (..),+    newPrivileges,++    -- ** Role+    Role (..),+    newRole,++    -- ** Role_RolePrivilegesItem+    Role_RolePrivilegesItem (..),+    newRole_RolePrivilegesItem,++    -- ** RoleAssignment+    RoleAssignment (..),+    newRoleAssignment,++    -- ** RoleAssignment_AssigneeType+    RoleAssignment_AssigneeType (..),++    -- ** RoleAssignments+    RoleAssignments (..),+    newRoleAssignments,++    -- ** Roles+    Roles (..),+    newRoles,++    -- ** Schema+    Schema (..),+    newSchema,++    -- ** SchemaFieldSpec+    SchemaFieldSpec (..),+    newSchemaFieldSpec,++    -- ** SchemaFieldSpec_NumericIndexingSpec+    SchemaFieldSpec_NumericIndexingSpec (..),+    newSchemaFieldSpec_NumericIndexingSpec,++    -- ** Schemas+    Schemas (..),+    newSchemas,++    -- ** Status+    Status (..),+    newStatus,++    -- ** Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- ** Token+    Token (..),+    newToken,++    -- ** Tokens+    Tokens (..),+    newTokens,++    -- ** User+    User (..),+    newUser,++    -- ** User_CustomSchemas+    User_CustomSchemas (..),+    newUser_CustomSchemas,++    -- ** UserAbout+    UserAbout (..),+    newUserAbout,++    -- ** UserAddress+    UserAddress (..),+    newUserAddress,++    -- ** UserAlias+    UserAlias (..),+    newUserAlias,++    -- ** UserCustomProperties+    UserCustomProperties (..),+    newUserCustomProperties,++    -- ** UserEmail+    UserEmail (..),+    newUserEmail,++    -- ** UserEmail_Public_key_encryption_certificates+    UserEmail_Public_key_encryption_certificates (..),+    newUserEmail_Public_key_encryption_certificates,++    -- ** UserExternalId+    UserExternalId (..),+    newUserExternalId,++    -- ** UserGender+    UserGender (..),+    newUserGender,++    -- ** UserIm+    UserIm (..),+    newUserIm,++    -- ** UserKeyword+    UserKeyword (..),+    newUserKeyword,++    -- ** UserLanguage+    UserLanguage (..),+    newUserLanguage,++    -- ** UserLocation+    UserLocation (..),+    newUserLocation,++    -- ** UserMakeAdmin+    UserMakeAdmin (..),+    newUserMakeAdmin,++    -- ** UserName+    UserName (..),+    newUserName,++    -- ** UserOrganization+    UserOrganization (..),+    newUserOrganization,++    -- ** UserPhone+    UserPhone (..),+    newUserPhone,++    -- ** UserPhoto+    UserPhoto (..),+    newUserPhoto,++    -- ** UserPosixAccount+    UserPosixAccount (..),+    newUserPosixAccount,++    -- ** UserRelation+    UserRelation (..),+    newUserRelation,++    -- ** UserSshPublicKey+    UserSshPublicKey (..),+    newUserSshPublicKey,++    -- ** UserUndelete+    UserUndelete (..),+    newUserUndelete,++    -- ** UserWebsite+    UserWebsite (..),+    newUserWebsite,++    -- ** Users+    Users (..),+    newUsers,++    -- ** VerificationCode+    VerificationCode (..),+    newVerificationCode,++    -- ** VerificationCodes+    VerificationCodes (..),+    newVerificationCodes,++    -- ** ChromeosdevicesGetProjection+    ChromeosdevicesGetProjection (..),++    -- ** ChromeosdevicesListOrderBy+    ChromeosdevicesListOrderBy (..),++    -- ** ChromeosdevicesListProjection+    ChromeosdevicesListProjection (..),++    -- ** ChromeosdevicesListSortOrder+    ChromeosdevicesListSortOrder (..),++    -- ** ChromeosdevicesPatchProjection+    ChromeosdevicesPatchProjection (..),++    -- ** ChromeosdevicesUpdateProjection+    ChromeosdevicesUpdateProjection (..),++    -- ** GroupsListOrderBy+    GroupsListOrderBy (..),++    -- ** GroupsListSortOrder+    GroupsListSortOrder (..),++    -- ** MobiledevicesGetProjection+    MobiledevicesGetProjection (..),++    -- ** MobiledevicesListOrderBy+    MobiledevicesListOrderBy (..),++    -- ** MobiledevicesListProjection+    MobiledevicesListProjection (..),++    -- ** MobiledevicesListSortOrder+    MobiledevicesListSortOrder (..),++    -- ** OrgunitsListType+    OrgunitsListType (..),++    -- ** ResourcesBuildingsInsertCoordinatesSource+    ResourcesBuildingsInsertCoordinatesSource (..),++    -- ** ResourcesBuildingsPatchCoordinatesSource+    ResourcesBuildingsPatchCoordinatesSource (..),++    -- ** ResourcesBuildingsUpdateCoordinatesSource+    ResourcesBuildingsUpdateCoordinatesSource (..),++    -- ** UsersAliasesListEvent+    UsersAliasesListEvent (..),++    -- ** UsersAliasesWatchEvent+    UsersAliasesWatchEvent (..),++    -- ** UsersGetProjection+    UsersGetProjection (..),++    -- ** UsersGetViewType+    UsersGetViewType (..),++    -- ** UsersListEvent+    UsersListEvent (..),++    -- ** UsersListOrderBy+    UsersListOrderBy (..),++    -- ** UsersListProjection+    UsersListProjection (..),++    -- ** UsersListSortOrder+    UsersListSortOrder (..),++    -- ** UsersListViewType+    UsersListViewType (..),++    -- ** UsersWatchEvent+    UsersWatchEvent (..),++    -- ** UsersWatchOrderBy+    UsersWatchOrderBy (..),++    -- ** UsersWatchProjection+    UsersWatchProjection (..),++    -- ** UsersWatchSortOrder+    UsersWatchSortOrder (..),++    -- ** UsersWatchViewType+    UsersWatchViewType (..),+  )+where++import Gogol.Admin.Directory.Internal.Product+import Gogol.Admin.Directory.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Default request referring to version @directory_v1@ of the Admin SDK API. This contains the host and root path used as a starting point for constructing service requests.+adminDirectoryService :: Core.ServiceConfig+adminDirectoryService =+  Core.defaultService+    (Core.ServiceId "admin:directory_v1")+    "admin.googleapis.com"++-- | See, add, edit, and permanently delete the printers that your organization can use with Chrome+type Admin'Chrome'Printers =+  "https://www.googleapis.com/auth/admin.chrome.printers"++-- | See the printers that your organization can use with Chrome+type Admin'Chrome'Printers'Readonly =+  "https://www.googleapis.com/auth/admin.chrome.printers.readonly"++-- | View and manage customer related information+type Admin'Directory'Customer =+  "https://www.googleapis.com/auth/admin.directory.customer"++-- | View customer related information+type Admin'Directory'Customer'Readonly =+  "https://www.googleapis.com/auth/admin.directory.customer.readonly"++-- | View and manage your ChromeOS devices\' metadata+type Admin'Directory'Device'Chromeos =+  "https://www.googleapis.com/auth/admin.directory.device.chromeos"++-- | View your ChromeOS devices\' metadata+type Admin'Directory'Device'Chromeos'Readonly =+  "https://www.googleapis.com/auth/admin.directory.device.chromeos.readonly"++-- | View and manage your mobile devices\' metadata+type Admin'Directory'Device'Mobile =+  "https://www.googleapis.com/auth/admin.directory.device.mobile"++-- | Manage your mobile devices by performing administrative tasks+type Admin'Directory'Device'Mobile'Action =+  "https://www.googleapis.com/auth/admin.directory.device.mobile.action"++-- | View your mobile devices\' metadata+type Admin'Directory'Device'Mobile'Readonly =+  "https://www.googleapis.com/auth/admin.directory.device.mobile.readonly"++-- | View and manage the provisioning of domains for your customers+type Admin'Directory'Domain =+  "https://www.googleapis.com/auth/admin.directory.domain"++-- | View domains related to your customers+type Admin'Directory'Domain'Readonly =+  "https://www.googleapis.com/auth/admin.directory.domain.readonly"++-- | View and manage the provisioning of groups on your domain+type Admin'Directory'Group =+  "https://www.googleapis.com/auth/admin.directory.group"++-- | View and manage group subscriptions on your domain+type Admin'Directory'Group'Member =+  "https://www.googleapis.com/auth/admin.directory.group.member"++-- | View group subscriptions on your domain+type Admin'Directory'Group'Member'Readonly =+  "https://www.googleapis.com/auth/admin.directory.group.member.readonly"++-- | View groups on your domain+type Admin'Directory'Group'Readonly =+  "https://www.googleapis.com/auth/admin.directory.group.readonly"++-- | View and manage organization units on your domain+type Admin'Directory'Orgunit =+  "https://www.googleapis.com/auth/admin.directory.orgunit"++-- | View organization units on your domain+type Admin'Directory'Orgunit'Readonly =+  "https://www.googleapis.com/auth/admin.directory.orgunit.readonly"++-- | View and manage the provisioning of calendar resources on your domain+type Admin'Directory'Resource'Calendar =+  "https://www.googleapis.com/auth/admin.directory.resource.calendar"++-- | View calendar resources on your domain+type Admin'Directory'Resource'Calendar'Readonly =+  "https://www.googleapis.com/auth/admin.directory.resource.calendar.readonly"++-- | Manage delegated admin roles for your domain+type Admin'Directory'Rolemanagement =+  "https://www.googleapis.com/auth/admin.directory.rolemanagement"++-- | View delegated admin roles for your domain+type Admin'Directory'Rolemanagement'Readonly =+  "https://www.googleapis.com/auth/admin.directory.rolemanagement.readonly"++-- | View and manage the provisioning of users on your domain+type Admin'Directory'User =+  "https://www.googleapis.com/auth/admin.directory.user"++-- | View and manage user aliases on your domain+type Admin'Directory'User'Alias =+  "https://www.googleapis.com/auth/admin.directory.user.alias"++-- | View user aliases on your domain+type Admin'Directory'User'Alias'Readonly =+  "https://www.googleapis.com/auth/admin.directory.user.alias.readonly"++-- | See info about users on your domain+type Admin'Directory'User'Readonly =+  "https://www.googleapis.com/auth/admin.directory.user.readonly"++-- | Manage data access permissions for users on your domain+type Admin'Directory'User'Security =+  "https://www.googleapis.com/auth/admin.directory.user.security"++-- | View and manage the provisioning of user schemas on your domain+type Admin'Directory'Userschema =+  "https://www.googleapis.com/auth/admin.directory.userschema"++-- | View user schemas on your domain+type Admin'Directory'Userschema'Readonly =+  "https://www.googleapis.com/auth/admin.directory.userschema.readonly"++-- | See, edit, configure, and delete your Google Cloud data and see the email address for your Google Account.+type CloudPlatform'FullControl =+  "https://www.googleapis.com/auth/cloud-platform"
+ gen/Gogol/Admin/Directory/Users/Aliases/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.Admin.Directory.Users.Aliases.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 an alias.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.aliases.delete@.+module Gogol.Admin.Directory.Users.Aliases.Delete+  ( -- * Resource+    DirectoryUsersAliasesDeleteResource,++    -- ** Constructing a Request+    DirectoryUsersAliasesDelete (..),+    newDirectoryUsersAliasesDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.aliases.delete@ method which the+-- 'DirectoryUsersAliasesDelete' request conforms to.+type DirectoryUsersAliasesDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "aliases"+    Core.:> Core.Capture "alias" 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 an alias.+--+-- /See:/ 'newDirectoryUsersAliasesDelete' smart constructor.+data DirectoryUsersAliasesDelete = DirectoryUsersAliasesDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The alias to be removed.+    alias :: 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersAliasesDelete' with the minimum fields required to make a request.+newDirectoryUsersAliasesDelete ::+  -- |  The alias to be removed. See 'alias'.+  Core.Text ->+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryUsersAliasesDelete+newDirectoryUsersAliasesDelete alias userKey =+  DirectoryUsersAliasesDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      alias = alias,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryUsersAliasesDelete where+  type Rs DirectoryUsersAliasesDelete = ()+  type+    Scopes DirectoryUsersAliasesDelete =+      '[Admin'Directory'User, Admin'Directory'User'Alias]+  requestClient DirectoryUsersAliasesDelete {..} =+    go+      userKey+      alias+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersAliasesDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/Aliases/Insert.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Users.Aliases.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)+--+-- Adds an alias.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.aliases.insert@.+module Gogol.Admin.Directory.Users.Aliases.Insert+  ( -- * Resource+    DirectoryUsersAliasesInsertResource,++    -- ** Constructing a Request+    DirectoryUsersAliasesInsert (..),+    newDirectoryUsersAliasesInsert,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.aliases.insert@ method which the+-- 'DirectoryUsersAliasesInsert' request conforms to.+type DirectoryUsersAliasesInsertResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "aliases"+    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] Alias+    Core.:> Core.Post '[Core.JSON] Alias++-- | Adds an alias.+--+-- /See:/ 'newDirectoryUsersAliasesInsert' smart constructor.+data DirectoryUsersAliasesInsert = DirectoryUsersAliasesInsert+  { -- | 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 :: Alias,+    -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersAliasesInsert' with the minimum fields required to make a request.+newDirectoryUsersAliasesInsert ::+  -- |  Multipart request metadata. See 'payload'.+  Alias ->+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryUsersAliasesInsert+newDirectoryUsersAliasesInsert payload userKey =+  DirectoryUsersAliasesInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryUsersAliasesInsert where+  type Rs DirectoryUsersAliasesInsert = Alias+  type+    Scopes DirectoryUsersAliasesInsert =+      '[Admin'Directory'User, Admin'Directory'User'Alias]+  requestClient DirectoryUsersAliasesInsert {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersAliasesInsertResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/Aliases/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.Admin.Directory.Users.Aliases.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 aliases for a user.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.aliases.list@.+module Gogol.Admin.Directory.Users.Aliases.List+  ( -- * Resource+    DirectoryUsersAliasesListResource,++    -- ** Constructing a Request+    DirectoryUsersAliasesList (..),+    newDirectoryUsersAliasesList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.aliases.list@ method which the+-- 'DirectoryUsersAliasesList' request conforms to.+type DirectoryUsersAliasesListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "aliases"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "event" UsersAliasesListEvent+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Aliases++-- | Lists all aliases for a user.+--+-- /See:/ 'newDirectoryUsersAliasesList' smart constructor.+data DirectoryUsersAliasesList = DirectoryUsersAliasesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Events to watch for.+    event :: (Core.Maybe UsersAliasesListEvent),+    -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersAliasesList' with the minimum fields required to make a request.+newDirectoryUsersAliasesList ::+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryUsersAliasesList+newDirectoryUsersAliasesList userKey =+  DirectoryUsersAliasesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      event = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryUsersAliasesList where+  type Rs DirectoryUsersAliasesList = Aliases+  type+    Scopes DirectoryUsersAliasesList =+      '[ Admin'Directory'User,+         Admin'Directory'User'Alias,+         Admin'Directory'User'Alias'Readonly,+         Admin'Directory'User'Readonly+       ]+  requestClient DirectoryUsersAliasesList {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      event+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersAliasesListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/Aliases/Watch.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.Admin.Directory.Users.Aliases.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)+--+-- Watches for changes in users list.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.aliases.watch@.+module Gogol.Admin.Directory.Users.Aliases.Watch+  ( -- * Resource+    DirectoryUsersAliasesWatchResource,++    -- ** Constructing a Request+    DirectoryUsersAliasesWatch (..),+    newDirectoryUsersAliasesWatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.aliases.watch@ method which the+-- 'DirectoryUsersAliasesWatch' request conforms to.+type DirectoryUsersAliasesWatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "aliases"+    Core.:> "watch"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "event" UsersAliasesWatchEvent+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Channel+    Core.:> Core.Post '[Core.JSON] Channel++-- | Watches for changes in users list.+--+-- /See:/ 'newDirectoryUsersAliasesWatch' smart constructor.+data DirectoryUsersAliasesWatch = DirectoryUsersAliasesWatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Events to watch for.+    event :: (Core.Maybe UsersAliasesWatchEvent),+    -- | Multipart request metadata.+    payload :: Channel,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | Email or immutable ID of the user+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersAliasesWatch' with the minimum fields required to make a request.+newDirectoryUsersAliasesWatch ::+  -- |  Multipart request metadata. See 'payload'.+  Channel ->+  -- |  Email or immutable ID of the user See 'userKey'.+  Core.Text ->+  DirectoryUsersAliasesWatch+newDirectoryUsersAliasesWatch payload userKey =+  DirectoryUsersAliasesWatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      event = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryUsersAliasesWatch where+  type Rs DirectoryUsersAliasesWatch = Channel+  type+    Scopes DirectoryUsersAliasesWatch =+      '[ Admin'Directory'User,+         Admin'Directory'User'Alias,+         Admin'Directory'User'Alias'Readonly,+         Admin'Directory'User'Readonly+       ]+  requestClient DirectoryUsersAliasesWatch {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      event+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersAliasesWatchResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/Delete.hs view
@@ -0,0 +1,110 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Users.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 user.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.delete@.+module Gogol.Admin.Directory.Users.Delete+  ( -- * Resource+    DirectoryUsersDeleteResource,++    -- ** Constructing a Request+    DirectoryUsersDelete (..),+    newDirectoryUsersDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.delete@ method which the+-- 'DirectoryUsersDelete' request conforms to.+type DirectoryUsersDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" 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 user.+--+-- /See:/ 'newDirectoryUsersDelete' smart constructor.+data DirectoryUsersDelete = DirectoryUsersDelete+  { -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersDelete' with the minimum fields required to make a request.+newDirectoryUsersDelete ::+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryUsersDelete+newDirectoryUsersDelete userKey =+  DirectoryUsersDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryUsersDelete where+  type Rs DirectoryUsersDelete = ()+  type Scopes DirectoryUsersDelete = '[Admin'Directory'User]+  requestClient DirectoryUsersDelete {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/Get.hs view
@@ -0,0 +1,127 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Users.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 user.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.get@.+module Gogol.Admin.Directory.Users.Get+  ( -- * Resource+    DirectoryUsersGetResource,++    -- ** Constructing a Request+    DirectoryUsersGet (..),+    newDirectoryUsersGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.get@ method which the+-- 'DirectoryUsersGet' request conforms to.+type DirectoryUsersGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "customFieldMask" Core.Text+    Core.:> Core.QueryParam "projection" UsersGetProjection+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "viewType" UsersGetViewType+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] User++-- | Retrieves a user.+--+-- /See:/ 'newDirectoryUsersGet' smart constructor.+data DirectoryUsersGet = DirectoryUsersGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | A comma-separated list of schema names. All fields from these schemas are fetched. This should only be set when @projection=custom@.+    customFieldMask :: (Core.Maybe Core.Text),+    -- | What subset of fields to fetch for this user.+    projection :: UsersGetProjection,+    -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text,+    -- | Whether to fetch the administrator-only or domain-wide public view of the user. For more information, see </admin-sdk/directory/v1/guides/manage-users#retrieve_users_non_admin Retrieve a user as a non-administrator>.+    viewType :: UsersGetViewType+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersGet' with the minimum fields required to make a request.+newDirectoryUsersGet ::+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryUsersGet+newDirectoryUsersGet userKey =+  DirectoryUsersGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customFieldMask = Core.Nothing,+      projection = UsersGetProjection_Basic,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey,+      viewType = UsersGetViewType_AdminView+    }++instance Core.GoogleRequest DirectoryUsersGet where+  type Rs DirectoryUsersGet = User+  type+    Scopes DirectoryUsersGet =+      '[Admin'Directory'User, Admin'Directory'User'Readonly]+  requestClient DirectoryUsersGet {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      customFieldMask+      (Core.Just projection)+      uploadType+      uploadProtocol+      (Core.Just viewType)+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/Insert.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.Admin.Directory.Users.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)+--+-- Creates a user. Mutate calls immediately following user creation might sometimes fail as the user isn\'t fully created due to propagation delay in our backends. Check the error details for the \"User creation is not complete\" message to see if this is the case. Retrying the calls after some time can help in this case. If @resolveConflictAccount@ is set to @true@, a @202@ response code means that a conflicting unmanaged account exists and was invited to join the organization. A @409@ response code means that a conflicting account exists so the user wasn\'t created based on the <https://support.google.com/a/answer/11112794 handling unmanaged user accounts> option selected.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.insert@.+module Gogol.Admin.Directory.Users.Insert+  ( -- * Resource+    DirectoryUsersInsertResource,++    -- ** Constructing a Request+    DirectoryUsersInsert (..),+    newDirectoryUsersInsert,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.insert@ method which the+-- 'DirectoryUsersInsert' request conforms to.+type DirectoryUsersInsertResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "resolveConflictAccount" 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] User+    Core.:> Core.Post '[Core.JSON] User++-- | Creates a user. Mutate calls immediately following user creation might sometimes fail as the user isn\'t fully created due to propagation delay in our backends. Check the error details for the \"User creation is not complete\" message to see if this is the case. Retrying the calls after some time can help in this case. If @resolveConflictAccount@ is set to @true@, a @202@ response code means that a conflicting unmanaged account exists and was invited to join the organization. A @409@ response code means that a conflicting account exists so the user wasn\'t created based on the <https://support.google.com/a/answer/11112794 handling unmanaged user accounts> option selected.+--+-- /See:/ 'newDirectoryUsersInsert' smart constructor.+data DirectoryUsersInsert = DirectoryUsersInsert+  { -- | 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 :: User,+    -- | Optional. If set to @true@, the option selected for <https://support.google.com/a/answer/11112794 handling unmanaged user accounts> will apply. Default: @false@+    resolveConflictAccount :: (Core.Maybe Core.Bool),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersInsert' with the minimum fields required to make a request.+newDirectoryUsersInsert ::+  -- |  Multipart request metadata. See 'payload'.+  User ->+  DirectoryUsersInsert+newDirectoryUsersInsert payload =+  DirectoryUsersInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      resolveConflictAccount = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DirectoryUsersInsert where+  type Rs DirectoryUsersInsert = User+  type Scopes DirectoryUsersInsert = '[Admin'Directory'User]+  requestClient DirectoryUsersInsert {..} =+    go+      xgafv+      accessToken+      callback+      resolveConflictAccount+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersInsertResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/List.hs view
@@ -0,0 +1,168 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Users.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)+--+-- Retrieves a paginated list of either deleted users or all users in a domain.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.list@.+module Gogol.Admin.Directory.Users.List+  ( -- * Resource+    DirectoryUsersListResource,++    -- ** Constructing a Request+    DirectoryUsersList (..),+    newDirectoryUsersList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.list@ method which the+-- 'DirectoryUsersList' request conforms to.+type DirectoryUsersListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "customFieldMask" Core.Text+    Core.:> Core.QueryParam "customer" Core.Text+    Core.:> Core.QueryParam "domain" Core.Text+    Core.:> Core.QueryParam "event" UsersListEvent+    Core.:> Core.QueryParam "maxResults" Core.Int32+    Core.:> Core.QueryParam "orderBy" UsersListOrderBy+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "projection" UsersListProjection+    Core.:> Core.QueryParam "query" Core.Text+    Core.:> Core.QueryParam "showDeleted" Core.Text+    Core.:> Core.QueryParam "sortOrder" UsersListSortOrder+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "viewType" UsersListViewType+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Users++-- | Retrieves a paginated list of either deleted users or all users in a domain.+--+-- /See:/ 'newDirectoryUsersList' smart constructor.+data DirectoryUsersList = DirectoryUsersList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | A comma-separated list of schema names. All fields from these schemas are fetched. This should only be set when @projection=custom@.+    customFieldMask :: (Core.Maybe Core.Text),+    -- | The unique ID for the customer\'s Google Workspace account. In case of a multi-domain account, to fetch all users for a customer, use this field instead of @domain@. You can also use the @my_customer@ alias to represent your account\'s @customerId@. The @customerId@ is also returned as part of the </admin-sdk/directory/v1/reference/users Users> resource. You must provide either the @customer@ or the @domain@ parameter.+    customer :: (Core.Maybe Core.Text),+    -- | The domain name. Use this field to get users from only one domain. To return all domains for a customer account, use the @customer@ query parameter instead. Either the @customer@ or the @domain@ parameter must be provided.+    domain :: (Core.Maybe Core.Text),+    -- | Event on which subscription is intended (if subscribing)+    event :: (Core.Maybe UsersListEvent),+    -- | Maximum number of results to return.+    maxResults :: Core.Int32,+    -- | Property to use for sorting results.+    orderBy :: (Core.Maybe UsersListOrderBy),+    -- | Token to specify next page in the list. The page token is only valid for three days.+    pageToken :: (Core.Maybe Core.Text),+    -- | What subset of fields to fetch for this user.+    projection :: UsersListProjection,+    -- | Query string for searching user fields. For more information on constructing user queries, see </admin-sdk/directory/v1/guides/search-users Search for Users>.+    query :: (Core.Maybe Core.Text),+    -- | If set to @true@, retrieves the list of deleted users. (Default: @false@)+    showDeleted :: (Core.Maybe Core.Text),+    -- | Whether to return results in ascending or descending order, ignoring case.+    sortOrder :: (Core.Maybe UsersListSortOrder),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | Whether to fetch the administrator-only or domain-wide public view of the user. For more information, see </admin-sdk/directory/v1/guides/manage-users#retrieve_users_non_admin Retrieve a user as a non-administrator>.+    viewType :: UsersListViewType+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersList' with the minimum fields required to make a request.+newDirectoryUsersList ::+  DirectoryUsersList+newDirectoryUsersList =+  DirectoryUsersList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customFieldMask = Core.Nothing,+      customer = Core.Nothing,+      domain = Core.Nothing,+      event = Core.Nothing,+      maxResults = 100,+      orderBy = Core.Nothing,+      pageToken = Core.Nothing,+      projection = UsersListProjection_Basic,+      query = Core.Nothing,+      showDeleted = Core.Nothing,+      sortOrder = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      viewType = UsersListViewType_AdminView+    }++instance Core.GoogleRequest DirectoryUsersList where+  type Rs DirectoryUsersList = Users+  type+    Scopes DirectoryUsersList =+      '[ Admin'Directory'User,+         Admin'Directory'User'Readonly,+         CloudPlatform'FullControl+       ]+  requestClient DirectoryUsersList {..} =+    go+      xgafv+      accessToken+      callback+      customFieldMask+      customer+      domain+      event+      (Core.Just maxResults)+      orderBy+      pageToken+      (Core.Just projection)+      query+      showDeleted+      sortOrder+      uploadType+      uploadProtocol+      (Core.Just viewType)+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersListResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/MakeAdmin.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.Admin.Directory.Users.MakeAdmin+-- 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)+--+-- Makes a user a super administrator.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.makeAdmin@.+module Gogol.Admin.Directory.Users.MakeAdmin+  ( -- * Resource+    DirectoryUsersMakeAdminResource,++    -- ** Constructing a Request+    DirectoryUsersMakeAdmin (..),+    newDirectoryUsersMakeAdmin,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.makeAdmin@ method which the+-- 'DirectoryUsersMakeAdmin' request conforms to.+type DirectoryUsersMakeAdminResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "makeAdmin"+    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] UserMakeAdmin+    Core.:> Core.Post '[Core.JSON] ()++-- | Makes a user a super administrator.+--+-- /See:/ 'newDirectoryUsersMakeAdmin' smart constructor.+data DirectoryUsersMakeAdmin = DirectoryUsersMakeAdmin+  { -- | 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 :: UserMakeAdmin,+    -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersMakeAdmin' with the minimum fields required to make a request.+newDirectoryUsersMakeAdmin ::+  -- |  Multipart request metadata. See 'payload'.+  UserMakeAdmin ->+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryUsersMakeAdmin+newDirectoryUsersMakeAdmin payload userKey =+  DirectoryUsersMakeAdmin+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryUsersMakeAdmin where+  type Rs DirectoryUsersMakeAdmin = ()+  type Scopes DirectoryUsersMakeAdmin = '[Admin'Directory'User]+  requestClient DirectoryUsersMakeAdmin {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersMakeAdminResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/Patch.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.Admin.Directory.Users.Patch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a user using patch semantics. The update method should be used instead, because it also supports patch semantics and has better performance. If you\'re mapping an external identity to a Google identity, use the <https://developers.google.com/admin-sdk/directory/v1/reference/users/update update> method instead of the @patch@ method. This method is unable to clear fields that contain repeated objects (@addresses@, @phones@, etc). Use the update method instead.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.patch@.+module Gogol.Admin.Directory.Users.Patch+  ( -- * Resource+    DirectoryUsersPatchResource,++    -- ** Constructing a Request+    DirectoryUsersPatch (..),+    newDirectoryUsersPatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.patch@ method which the+-- 'DirectoryUsersPatch' request conforms to.+type DirectoryUsersPatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" 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] User+    Core.:> Core.Patch '[Core.JSON] User++-- | Updates a user using patch semantics. The update method should be used instead, because it also supports patch semantics and has better performance. If you\'re mapping an external identity to a Google identity, use the <https://developers.google.com/admin-sdk/directory/v1/reference/users/update update> method instead of the @patch@ method. This method is unable to clear fields that contain repeated objects (@addresses@, @phones@, etc). Use the update method instead.+--+-- /See:/ 'newDirectoryUsersPatch' smart constructor.+data DirectoryUsersPatch = DirectoryUsersPatch+  { -- | 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 :: User,+    -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersPatch' with the minimum fields required to make a request.+newDirectoryUsersPatch ::+  -- |  Multipart request metadata. See 'payload'.+  User ->+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryUsersPatch+newDirectoryUsersPatch payload userKey =+  DirectoryUsersPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryUsersPatch where+  type Rs DirectoryUsersPatch = User+  type Scopes DirectoryUsersPatch = '[Admin'Directory'User]+  requestClient DirectoryUsersPatch {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersPatchResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/Photos/Delete.hs view
@@ -0,0 +1,112 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Users.Photos.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 user\'s photo.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.photos.delete@.+module Gogol.Admin.Directory.Users.Photos.Delete+  ( -- * Resource+    DirectoryUsersPhotosDeleteResource,++    -- ** Constructing a Request+    DirectoryUsersPhotosDelete (..),+    newDirectoryUsersPhotosDelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.photos.delete@ method which the+-- 'DirectoryUsersPhotosDelete' request conforms to.+type DirectoryUsersPhotosDeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "photos"+    Core.:> "thumbnail"+    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 user\'s photo.+--+-- /See:/ 'newDirectoryUsersPhotosDelete' smart constructor.+data DirectoryUsersPhotosDelete = DirectoryUsersPhotosDelete+  { -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersPhotosDelete' with the minimum fields required to make a request.+newDirectoryUsersPhotosDelete ::+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryUsersPhotosDelete+newDirectoryUsersPhotosDelete userKey =+  DirectoryUsersPhotosDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryUsersPhotosDelete where+  type Rs DirectoryUsersPhotosDelete = ()+  type Scopes DirectoryUsersPhotosDelete = '[Admin'Directory'User]+  requestClient DirectoryUsersPhotosDelete {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersPhotosDeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/Photos/Get.hs view
@@ -0,0 +1,114 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Users.Photos.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 the user\'s photo.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.photos.get@.+module Gogol.Admin.Directory.Users.Photos.Get+  ( -- * Resource+    DirectoryUsersPhotosGetResource,++    -- ** Constructing a Request+    DirectoryUsersPhotosGet (..),+    newDirectoryUsersPhotosGet,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.photos.get@ method which the+-- 'DirectoryUsersPhotosGet' request conforms to.+type DirectoryUsersPhotosGetResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "photos"+    Core.:> "thumbnail"+    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] UserPhoto++-- | Retrieves the user\'s photo.+--+-- /See:/ 'newDirectoryUsersPhotosGet' smart constructor.+data DirectoryUsersPhotosGet = DirectoryUsersPhotosGet+  { -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersPhotosGet' with the minimum fields required to make a request.+newDirectoryUsersPhotosGet ::+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryUsersPhotosGet+newDirectoryUsersPhotosGet userKey =+  DirectoryUsersPhotosGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryUsersPhotosGet where+  type Rs DirectoryUsersPhotosGet = UserPhoto+  type+    Scopes DirectoryUsersPhotosGet =+      '[Admin'Directory'User, Admin'Directory'User'Readonly]+  requestClient DirectoryUsersPhotosGet {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersPhotosGetResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/Photos/Patch.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.Admin.Directory.Users.Photos.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)+--+-- Adds a photo for the user. This method supports </admin-sdk/directory/v1/guides/performance#patch patch semantics>.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.photos.patch@.+module Gogol.Admin.Directory.Users.Photos.Patch+  ( -- * Resource+    DirectoryUsersPhotosPatchResource,++    -- ** Constructing a Request+    DirectoryUsersPhotosPatch (..),+    newDirectoryUsersPhotosPatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.photos.patch@ method which the+-- 'DirectoryUsersPhotosPatch' request conforms to.+type DirectoryUsersPhotosPatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "photos"+    Core.:> "thumbnail"+    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] UserPhoto+    Core.:> Core.Patch '[Core.JSON] UserPhoto++-- | Adds a photo for the user. This method supports </admin-sdk/directory/v1/guides/performance#patch patch semantics>.+--+-- /See:/ 'newDirectoryUsersPhotosPatch' smart constructor.+data DirectoryUsersPhotosPatch = DirectoryUsersPhotosPatch+  { -- | 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 :: UserPhoto,+    -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersPhotosPatch' with the minimum fields required to make a request.+newDirectoryUsersPhotosPatch ::+  -- |  Multipart request metadata. See 'payload'.+  UserPhoto ->+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryUsersPhotosPatch+newDirectoryUsersPhotosPatch payload userKey =+  DirectoryUsersPhotosPatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryUsersPhotosPatch where+  type Rs DirectoryUsersPhotosPatch = UserPhoto+  type Scopes DirectoryUsersPhotosPatch = '[Admin'Directory'User]+  requestClient DirectoryUsersPhotosPatch {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersPhotosPatchResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/Photos/Update.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.Admin.Directory.Users.Photos.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)+--+-- Adds a photo for the user.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.photos.update@.+module Gogol.Admin.Directory.Users.Photos.Update+  ( -- * Resource+    DirectoryUsersPhotosUpdateResource,++    -- ** Constructing a Request+    DirectoryUsersPhotosUpdate (..),+    newDirectoryUsersPhotosUpdate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.photos.update@ method which the+-- 'DirectoryUsersPhotosUpdate' request conforms to.+type DirectoryUsersPhotosUpdateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "photos"+    Core.:> "thumbnail"+    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] UserPhoto+    Core.:> Core.Put '[Core.JSON] UserPhoto++-- | Adds a photo for the user.+--+-- /See:/ 'newDirectoryUsersPhotosUpdate' smart constructor.+data DirectoryUsersPhotosUpdate = DirectoryUsersPhotosUpdate+  { -- | 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 :: UserPhoto,+    -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersPhotosUpdate' with the minimum fields required to make a request.+newDirectoryUsersPhotosUpdate ::+  -- |  Multipart request metadata. See 'payload'.+  UserPhoto ->+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryUsersPhotosUpdate+newDirectoryUsersPhotosUpdate payload userKey =+  DirectoryUsersPhotosUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryUsersPhotosUpdate where+  type Rs DirectoryUsersPhotosUpdate = UserPhoto+  type Scopes DirectoryUsersPhotosUpdate = '[Admin'Directory'User]+  requestClient DirectoryUsersPhotosUpdate {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersPhotosUpdateResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/SignOut.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.Users.SignOut+-- 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)+--+-- Signs a user out of all web and device sessions and reset their sign-in cookies. User will have to sign in by authenticating again.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.signOut@.+module Gogol.Admin.Directory.Users.SignOut+  ( -- * Resource+    DirectoryUsersSignOutResource,++    -- ** Constructing a Request+    DirectoryUsersSignOut (..),+    newDirectoryUsersSignOut,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.signOut@ method which the+-- 'DirectoryUsersSignOut' request conforms to.+type DirectoryUsersSignOutResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "signOut"+    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] ()++-- | Signs a user out of all web and device sessions and reset their sign-in cookies. User will have to sign in by authenticating again.+--+-- /See:/ 'newDirectoryUsersSignOut' smart constructor.+data DirectoryUsersSignOut = DirectoryUsersSignOut+  { -- | 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),+    -- | Identifies the target user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersSignOut' with the minimum fields required to make a request.+newDirectoryUsersSignOut ::+  -- |  Identifies the target user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryUsersSignOut+newDirectoryUsersSignOut userKey =+  DirectoryUsersSignOut+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryUsersSignOut where+  type Rs DirectoryUsersSignOut = ()+  type+    Scopes DirectoryUsersSignOut =+      '[Admin'Directory'User'Security]+  requestClient DirectoryUsersSignOut {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersSignOutResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/Undelete.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.Admin.Directory.Users.Undelete+-- 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)+--+-- Undeletes a deleted user.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.undelete@.+module Gogol.Admin.Directory.Users.Undelete+  ( -- * Resource+    DirectoryUsersUndeleteResource,++    -- ** Constructing a Request+    DirectoryUsersUndelete (..),+    newDirectoryUsersUndelete,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.undelete@ method which the+-- 'DirectoryUsersUndelete' request conforms to.+type DirectoryUsersUndeleteResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "undelete"+    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] UserUndelete+    Core.:> Core.Post '[Core.JSON] ()++-- | Undeletes a deleted user.+--+-- /See:/ 'newDirectoryUsersUndelete' smart constructor.+data DirectoryUsersUndelete = DirectoryUsersUndelete+  { -- | 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 :: UserUndelete,+    -- | 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 immutable id of the user+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersUndelete' with the minimum fields required to make a request.+newDirectoryUsersUndelete ::+  -- |  Multipart request metadata. See 'payload'.+  UserUndelete ->+  -- |  The immutable id of the user See 'userKey'.+  Core.Text ->+  DirectoryUsersUndelete+newDirectoryUsersUndelete payload userKey =+  DirectoryUsersUndelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryUsersUndelete where+  type Rs DirectoryUsersUndelete = ()+  type Scopes DirectoryUsersUndelete = '[Admin'Directory'User]+  requestClient DirectoryUsersUndelete {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersUndeleteResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/Update.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.Admin.Directory.Users.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 user. This method supports patch semantics, meaning that you only need to include the fields you wish to update. Fields that are not present in the request will be preserved, and fields set to @null@ will be cleared. For repeating fields that contain arrays, individual items in the array can\'t be patched piecemeal; they must be supplied in the request body with the desired values for all items. See the <https://developers.google.com/admin-sdk/directory/v1/guides/manage-users#update_user user accounts guide> for more information.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.update@.+module Gogol.Admin.Directory.Users.Update+  ( -- * Resource+    DirectoryUsersUpdateResource,++    -- ** Constructing a Request+    DirectoryUsersUpdate (..),+    newDirectoryUsersUpdate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.update@ method which the+-- 'DirectoryUsersUpdate' request conforms to.+type DirectoryUsersUpdateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" 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] User+    Core.:> Core.Put '[Core.JSON] User++-- | Updates a user. This method supports patch semantics, meaning that you only need to include the fields you wish to update. Fields that are not present in the request will be preserved, and fields set to @null@ will be cleared. For repeating fields that contain arrays, individual items in the array can\'t be patched piecemeal; they must be supplied in the request body with the desired values for all items. See the <https://developers.google.com/admin-sdk/directory/v1/guides/manage-users#update_user user accounts guide> for more information.+--+-- /See:/ 'newDirectoryUsersUpdate' smart constructor.+data DirectoryUsersUpdate = DirectoryUsersUpdate+  { -- | 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 :: User,+    -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersUpdate' with the minimum fields required to make a request.+newDirectoryUsersUpdate ::+  -- |  Multipart request metadata. See 'payload'.+  User ->+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryUsersUpdate+newDirectoryUsersUpdate payload userKey =+  DirectoryUsersUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryUsersUpdate where+  type Rs DirectoryUsersUpdate = User+  type Scopes DirectoryUsersUpdate = '[Admin'Directory'User]+  requestClient DirectoryUsersUpdate {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersUpdateResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/Users/Watch.hs view
@@ -0,0 +1,176 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.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)+--+-- Watches for changes in users list.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.users.watch@.+module Gogol.Admin.Directory.Users.Watch+  ( -- * Resource+    DirectoryUsersWatchResource,++    -- ** Constructing a Request+    DirectoryUsersWatch (..),+    newDirectoryUsersWatch,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.users.watch@ method which the+-- 'DirectoryUsersWatch' request conforms to.+type DirectoryUsersWatchResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> "watch"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "customFieldMask" Core.Text+    Core.:> Core.QueryParam "customer" Core.Text+    Core.:> Core.QueryParam "domain" Core.Text+    Core.:> Core.QueryParam "event" UsersWatchEvent+    Core.:> Core.QueryParam "maxResults" Core.Int32+    Core.:> Core.QueryParam "orderBy" UsersWatchOrderBy+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "projection" UsersWatchProjection+    Core.:> Core.QueryParam "query" Core.Text+    Core.:> Core.QueryParam "showDeleted" Core.Text+    Core.:> Core.QueryParam "sortOrder" UsersWatchSortOrder+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "viewType" UsersWatchViewType+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Channel+    Core.:> Core.Post '[Core.JSON] Channel++-- | Watches for changes in users list.+--+-- /See:/ 'newDirectoryUsersWatch' smart constructor.+data DirectoryUsersWatch = DirectoryUsersWatch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Comma-separated list of schema names. All fields from these schemas are fetched. This should only be set when projection=custom.+    customFieldMask :: (Core.Maybe Core.Text),+    -- | Immutable ID of the Google Workspace account. In case of multi-domain, to fetch all users for a customer, fill this field instead of domain.+    customer :: (Core.Maybe Core.Text),+    -- | Name of the domain. Fill this field to get users from only this domain. To return all users in a multi-domain fill customer field instead.\"+    domain :: (Core.Maybe Core.Text),+    -- | Events to watch for.+    event :: (Core.Maybe UsersWatchEvent),+    -- | Maximum number of results to return.+    maxResults :: Core.Int32,+    -- | Column to use for sorting results+    orderBy :: (Core.Maybe UsersWatchOrderBy),+    -- | Token to specify next page in the list+    pageToken :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: Channel,+    -- | What subset of fields to fetch for this user.+    projection :: UsersWatchProjection,+    -- | Query string search. Should be of the form \"\". Complete documentation is at https: \/\/developers.google.com\/admin-sdk\/directory\/v1\/guides\/search-users+    query :: (Core.Maybe Core.Text),+    -- | If set to true, retrieves the list of deleted users. (Default: false)+    showDeleted :: (Core.Maybe Core.Text),+    -- | Whether to return results in ascending or descending order.+    sortOrder :: (Core.Maybe UsersWatchSortOrder),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | Whether to fetch the administrator-only or domain-wide public view of the user. For more information, see </admin-sdk/directory/v1/guides/manage-users#retrieve_users_non_admin Retrieve a user as a non-administrator>.+    viewType :: UsersWatchViewType+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryUsersWatch' with the minimum fields required to make a request.+newDirectoryUsersWatch ::+  -- |  Multipart request metadata. See 'payload'.+  Channel ->+  DirectoryUsersWatch+newDirectoryUsersWatch payload =+  DirectoryUsersWatch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      customFieldMask = Core.Nothing,+      customer = Core.Nothing,+      domain = Core.Nothing,+      event = Core.Nothing,+      maxResults = 100,+      orderBy = Core.Nothing,+      pageToken = Core.Nothing,+      payload = payload,+      projection = UsersWatchProjection_Basic,+      query = Core.Nothing,+      showDeleted = Core.Nothing,+      sortOrder = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      viewType = UsersWatchViewType_AdminView+    }++instance Core.GoogleRequest DirectoryUsersWatch where+  type Rs DirectoryUsersWatch = Channel+  type+    Scopes DirectoryUsersWatch =+      '[ Admin'Directory'User,+         Admin'Directory'User'Readonly,+         CloudPlatform'FullControl+       ]+  requestClient DirectoryUsersWatch {..} =+    go+      xgafv+      accessToken+      callback+      customFieldMask+      customer+      domain+      event+      (Core.Just maxResults)+      orderBy+      pageToken+      (Core.Just projection)+      query+      showDeleted+      sortOrder+      uploadType+      uploadProtocol+      (Core.Just viewType)+      (Core.Just Core.AltJSON)+      payload+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryUsersWatchResource)+          Core.mempty
+ gen/Gogol/Admin/Directory/VerificationCodes/Generate.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.Admin.Directory.VerificationCodes.Generate+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Generates new backup verification codes for the user.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.verificationCodes.generate@.+module Gogol.Admin.Directory.VerificationCodes.Generate+  ( -- * Resource+    DirectoryVerificationCodesGenerateResource,++    -- ** Constructing a Request+    DirectoryVerificationCodesGenerate (..),+    newDirectoryVerificationCodesGenerate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.verificationCodes.generate@ method which the+-- 'DirectoryVerificationCodesGenerate' request conforms to.+type DirectoryVerificationCodesGenerateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "verificationCodes"+    Core.:> "generate"+    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] ()++-- | Generates new backup verification codes for the user.+--+-- /See:/ 'newDirectoryVerificationCodesGenerate' smart constructor.+data DirectoryVerificationCodesGenerate = DirectoryVerificationCodesGenerate+  { -- | 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),+    -- | Email or immutable ID of the user+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryVerificationCodesGenerate' with the minimum fields required to make a request.+newDirectoryVerificationCodesGenerate ::+  -- |  Email or immutable ID of the user See 'userKey'.+  Core.Text ->+  DirectoryVerificationCodesGenerate+newDirectoryVerificationCodesGenerate userKey =+  DirectoryVerificationCodesGenerate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryVerificationCodesGenerate where+  type Rs DirectoryVerificationCodesGenerate = ()+  type+    Scopes DirectoryVerificationCodesGenerate =+      '[Admin'Directory'User'Security]+  requestClient DirectoryVerificationCodesGenerate {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DirectoryVerificationCodesGenerateResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/VerificationCodes/Invalidate.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.Admin.Directory.VerificationCodes.Invalidate+-- 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)+--+-- Invalidates the current backup verification codes for the user.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.verificationCodes.invalidate@.+module Gogol.Admin.Directory.VerificationCodes.Invalidate+  ( -- * Resource+    DirectoryVerificationCodesInvalidateResource,++    -- ** Constructing a Request+    DirectoryVerificationCodesInvalidate (..),+    newDirectoryVerificationCodesInvalidate,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.verificationCodes.invalidate@ method which the+-- 'DirectoryVerificationCodesInvalidate' request conforms to.+type DirectoryVerificationCodesInvalidateResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "verificationCodes"+    Core.:> "invalidate"+    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] ()++-- | Invalidates the current backup verification codes for the user.+--+-- /See:/ 'newDirectoryVerificationCodesInvalidate' smart constructor.+data DirectoryVerificationCodesInvalidate = DirectoryVerificationCodesInvalidate+  { -- | 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),+    -- | Email or immutable ID of the user+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryVerificationCodesInvalidate' with the minimum fields required to make a request.+newDirectoryVerificationCodesInvalidate ::+  -- |  Email or immutable ID of the user See 'userKey'.+  Core.Text ->+  DirectoryVerificationCodesInvalidate+newDirectoryVerificationCodesInvalidate userKey =+  DirectoryVerificationCodesInvalidate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryVerificationCodesInvalidate where+  type Rs DirectoryVerificationCodesInvalidate = ()+  type+    Scopes DirectoryVerificationCodesInvalidate =+      '[Admin'Directory'User'Security]+  requestClient DirectoryVerificationCodesInvalidate {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DirectoryVerificationCodesInvalidateResource+          )+          Core.mempty
+ gen/Gogol/Admin/Directory/VerificationCodes/List.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Admin.Directory.VerificationCodes.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)+--+-- Returns the current set of valid backup verification codes for the specified user.+--+-- /See:/ <https://developers.google.com/admin-sdk/ Admin SDK API Reference> for @directory.verificationCodes.list@.+module Gogol.Admin.Directory.VerificationCodes.List+  ( -- * Resource+    DirectoryVerificationCodesListResource,++    -- ** Constructing a Request+    DirectoryVerificationCodesList (..),+    newDirectoryVerificationCodesList,+  )+where++import Gogol.Admin.Directory.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @directory.verificationCodes.list@ method which the+-- 'DirectoryVerificationCodesList' request conforms to.+type DirectoryVerificationCodesListResource =+  "admin"+    Core.:> "directory"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userKey" Core.Text+    Core.:> "verificationCodes"+    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] VerificationCodes++-- | Returns the current set of valid backup verification codes for the specified user.+--+-- /See:/ 'newDirectoryVerificationCodesList' smart constructor.+data DirectoryVerificationCodesList = DirectoryVerificationCodesList+  { -- | 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),+    -- | Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID.+    userKey :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DirectoryVerificationCodesList' with the minimum fields required to make a request.+newDirectoryVerificationCodesList ::+  -- |  Identifies the user in the API request. The value can be the user\'s primary email address, alias email address, or unique user ID. See 'userKey'.+  Core.Text ->+  DirectoryVerificationCodesList+newDirectoryVerificationCodesList userKey =+  DirectoryVerificationCodesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userKey = userKey+    }++instance Core.GoogleRequest DirectoryVerificationCodesList where+  type Rs DirectoryVerificationCodesList = VerificationCodes+  type+    Scopes DirectoryVerificationCodesList =+      '[Admin'Directory'User'Security]+  requestClient DirectoryVerificationCodesList {..} =+    go+      userKey+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      adminDirectoryService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DirectoryVerificationCodesListResource)+          Core.mempty
− gen/Network/Google/Directory.hs 
@@ -1,1595 +0,0 @@-{-# LANGUAGE DataKinds         #-}-{-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE TypeOperators     #-}--{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- |--- Module      : Network.Google.Directory--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Manages enterprise resources such as users and groups, administrative--- notifications, security features, and more.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference>-module Network.Google.Directory-    (-    -- * Service Configuration-      directoryService--    -- * OAuth Scopes-    , adminDirectoryRoleManagementReadOnlyScope-    , adminDirectoryGroupReadOnlyScope-    , adminDirectoryDeviceChromeosReadOnlyScope-    , adminDirectoryDeviceChromeosScope-    , adminDirectoryUserScope-    , adminDirectoryGroupMemberReadOnlyScope-    , adminDirectoryUserAliasScope-    , adminDirectoryResourceCalendarScope-    , adminDirectoryDeviceMobileActionScope-    , adminDirectoryResourceCalendarReadOnlyScope-    , adminDirectoryDomainReadOnlyScope-    , adminDirectoryUserschemaScope-    , adminDirectoryUserschemaReadOnlyScope-    , adminDirectoryDomainScope-    , adminDirectoryRoleManagementScope-    , adminDirectoryGroupScope-    , adminDirectoryOrgUnitReadOnlyScope-    , adminDirectoryCustomerScope-    , adminDirectoryCustomerReadOnlyScope-    , adminDirectoryOrgUnitScope-    , adminDirectoryUserReadOnlyScope-    , adminDirectoryUserAliasReadOnlyScope-    , adminDirectoryUserSecurityScope-    , adminDirectoryGroupMemberScope-    , adminDirectoryNotificationsScope-    , adminDirectoryDeviceMobileScope-    , adminDirectoryDeviceMobileReadOnlyScope--    -- * API Declaration-    , DirectoryAPI--    -- * Resources--    -- ** admin.channels.stop-    , module Network.Google.Resource.Admin.Channels.Stop--    -- ** directory.asps.delete-    , module Network.Google.Resource.Directory.Asps.Delete--    -- ** directory.asps.get-    , module Network.Google.Resource.Directory.Asps.Get--    -- ** directory.asps.list-    , module Network.Google.Resource.Directory.Asps.List--    -- ** directory.chromeosdevices.action-    , module Network.Google.Resource.Directory.ChromeosDevices.Action--    -- ** directory.chromeosdevices.get-    , module Network.Google.Resource.Directory.ChromeosDevices.Get--    -- ** directory.chromeosdevices.list-    , module Network.Google.Resource.Directory.ChromeosDevices.List--    -- ** directory.chromeosdevices.moveDevicesToOu-    , module Network.Google.Resource.Directory.ChromeosDevices.MoveDevicesToOu--    -- ** directory.chromeosdevices.patch-    , module Network.Google.Resource.Directory.ChromeosDevices.Patch--    -- ** directory.chromeosdevices.update-    , module Network.Google.Resource.Directory.ChromeosDevices.Update--    -- ** directory.customers.get-    , module Network.Google.Resource.Directory.Customers.Get--    -- ** directory.customers.patch-    , module Network.Google.Resource.Directory.Customers.Patch--    -- ** directory.customers.update-    , module Network.Google.Resource.Directory.Customers.Update--    -- ** directory.domainAliases.delete-    , module Network.Google.Resource.Directory.DomainAliases.Delete--    -- ** directory.domainAliases.get-    , module Network.Google.Resource.Directory.DomainAliases.Get--    -- ** directory.domainAliases.insert-    , module Network.Google.Resource.Directory.DomainAliases.Insert--    -- ** directory.domainAliases.list-    , module Network.Google.Resource.Directory.DomainAliases.List--    -- ** directory.domains.delete-    , module Network.Google.Resource.Directory.Domains.Delete--    -- ** directory.domains.get-    , module Network.Google.Resource.Directory.Domains.Get--    -- ** directory.domains.insert-    , module Network.Google.Resource.Directory.Domains.Insert--    -- ** directory.domains.list-    , module Network.Google.Resource.Directory.Domains.List--    -- ** directory.groups.aliases.delete-    , module Network.Google.Resource.Directory.Groups.Aliases.Delete--    -- ** directory.groups.aliases.insert-    , module Network.Google.Resource.Directory.Groups.Aliases.Insert--    -- ** directory.groups.aliases.list-    , module Network.Google.Resource.Directory.Groups.Aliases.List--    -- ** directory.groups.delete-    , module Network.Google.Resource.Directory.Groups.Delete--    -- ** directory.groups.get-    , module Network.Google.Resource.Directory.Groups.Get--    -- ** directory.groups.insert-    , module Network.Google.Resource.Directory.Groups.Insert--    -- ** directory.groups.list-    , module Network.Google.Resource.Directory.Groups.List--    -- ** directory.groups.patch-    , module Network.Google.Resource.Directory.Groups.Patch--    -- ** directory.groups.update-    , module Network.Google.Resource.Directory.Groups.Update--    -- ** directory.members.delete-    , module Network.Google.Resource.Directory.Members.Delete--    -- ** directory.members.get-    , module Network.Google.Resource.Directory.Members.Get--    -- ** directory.members.hasMember-    , module Network.Google.Resource.Directory.Members.HasMember--    -- ** directory.members.insert-    , module Network.Google.Resource.Directory.Members.Insert--    -- ** directory.members.list-    , module Network.Google.Resource.Directory.Members.List--    -- ** directory.members.patch-    , module Network.Google.Resource.Directory.Members.Patch--    -- ** directory.members.update-    , module Network.Google.Resource.Directory.Members.Update--    -- ** directory.mobiledevices.action-    , module Network.Google.Resource.Directory.MobileDevices.Action--    -- ** directory.mobiledevices.delete-    , module Network.Google.Resource.Directory.MobileDevices.Delete--    -- ** directory.mobiledevices.get-    , module Network.Google.Resource.Directory.MobileDevices.Get--    -- ** directory.mobiledevices.list-    , module Network.Google.Resource.Directory.MobileDevices.List--    -- ** directory.notifications.delete-    , module Network.Google.Resource.Directory.Notifications.Delete--    -- ** directory.notifications.get-    , module Network.Google.Resource.Directory.Notifications.Get--    -- ** directory.notifications.list-    , module Network.Google.Resource.Directory.Notifications.List--    -- ** directory.notifications.patch-    , module Network.Google.Resource.Directory.Notifications.Patch--    -- ** directory.notifications.update-    , module Network.Google.Resource.Directory.Notifications.Update--    -- ** directory.orgunits.delete-    , module Network.Google.Resource.Directory.OrgUnits.Delete--    -- ** directory.orgunits.get-    , module Network.Google.Resource.Directory.OrgUnits.Get--    -- ** directory.orgunits.insert-    , module Network.Google.Resource.Directory.OrgUnits.Insert--    -- ** directory.orgunits.list-    , module Network.Google.Resource.Directory.OrgUnits.List--    -- ** directory.orgunits.patch-    , module Network.Google.Resource.Directory.OrgUnits.Patch--    -- ** directory.orgunits.update-    , module Network.Google.Resource.Directory.OrgUnits.Update--    -- ** directory.privileges.list-    , module Network.Google.Resource.Directory.Privileges.List--    -- ** directory.resolvedAppAccessSettings.GetSettings-    , module Network.Google.Resource.Directory.ResolvedAppAccessSettings.GetSettings--    -- ** directory.resolvedAppAccessSettings.ListTrustedApps-    , module Network.Google.Resource.Directory.ResolvedAppAccessSettings.ListTrustedApps--    -- ** directory.resources.buildings.delete-    , module Network.Google.Resource.Directory.Resources.Buildings.Delete--    -- ** directory.resources.buildings.get-    , module Network.Google.Resource.Directory.Resources.Buildings.Get--    -- ** directory.resources.buildings.insert-    , module Network.Google.Resource.Directory.Resources.Buildings.Insert--    -- ** directory.resources.buildings.list-    , module Network.Google.Resource.Directory.Resources.Buildings.List--    -- ** directory.resources.buildings.patch-    , module Network.Google.Resource.Directory.Resources.Buildings.Patch--    -- ** directory.resources.buildings.update-    , module Network.Google.Resource.Directory.Resources.Buildings.Update--    -- ** directory.resources.calendars.delete-    , module Network.Google.Resource.Directory.Resources.Calendars.Delete--    -- ** directory.resources.calendars.get-    , module Network.Google.Resource.Directory.Resources.Calendars.Get--    -- ** directory.resources.calendars.insert-    , module Network.Google.Resource.Directory.Resources.Calendars.Insert--    -- ** directory.resources.calendars.list-    , module Network.Google.Resource.Directory.Resources.Calendars.List--    -- ** directory.resources.calendars.patch-    , module Network.Google.Resource.Directory.Resources.Calendars.Patch--    -- ** directory.resources.calendars.update-    , module Network.Google.Resource.Directory.Resources.Calendars.Update--    -- ** directory.resources.features.delete-    , module Network.Google.Resource.Directory.Resources.Features.Delete--    -- ** directory.resources.features.get-    , module Network.Google.Resource.Directory.Resources.Features.Get--    -- ** directory.resources.features.insert-    , module Network.Google.Resource.Directory.Resources.Features.Insert--    -- ** directory.resources.features.list-    , module Network.Google.Resource.Directory.Resources.Features.List--    -- ** directory.resources.features.patch-    , module Network.Google.Resource.Directory.Resources.Features.Patch--    -- ** directory.resources.features.rename-    , module Network.Google.Resource.Directory.Resources.Features.Rename--    -- ** directory.resources.features.update-    , module Network.Google.Resource.Directory.Resources.Features.Update--    -- ** directory.roleAssignments.delete-    , module Network.Google.Resource.Directory.RoleAssignments.Delete--    -- ** directory.roleAssignments.get-    , module Network.Google.Resource.Directory.RoleAssignments.Get--    -- ** directory.roleAssignments.insert-    , module Network.Google.Resource.Directory.RoleAssignments.Insert--    -- ** directory.roleAssignments.list-    , module Network.Google.Resource.Directory.RoleAssignments.List--    -- ** directory.roles.delete-    , module Network.Google.Resource.Directory.Roles.Delete--    -- ** directory.roles.get-    , module Network.Google.Resource.Directory.Roles.Get--    -- ** directory.roles.insert-    , module Network.Google.Resource.Directory.Roles.Insert--    -- ** directory.roles.list-    , module Network.Google.Resource.Directory.Roles.List--    -- ** directory.roles.patch-    , module Network.Google.Resource.Directory.Roles.Patch--    -- ** directory.roles.update-    , module Network.Google.Resource.Directory.Roles.Update--    -- ** directory.schemas.delete-    , module Network.Google.Resource.Directory.Schemas.Delete--    -- ** directory.schemas.get-    , module Network.Google.Resource.Directory.Schemas.Get--    -- ** directory.schemas.insert-    , module Network.Google.Resource.Directory.Schemas.Insert--    -- ** directory.schemas.list-    , module Network.Google.Resource.Directory.Schemas.List--    -- ** directory.schemas.patch-    , module Network.Google.Resource.Directory.Schemas.Patch--    -- ** directory.schemas.update-    , module Network.Google.Resource.Directory.Schemas.Update--    -- ** directory.tokens.delete-    , module Network.Google.Resource.Directory.Tokens.Delete--    -- ** directory.tokens.get-    , module Network.Google.Resource.Directory.Tokens.Get--    -- ** directory.tokens.list-    , module Network.Google.Resource.Directory.Tokens.List--    -- ** directory.users.aliases.delete-    , module Network.Google.Resource.Directory.Users.Aliases.Delete--    -- ** directory.users.aliases.insert-    , module Network.Google.Resource.Directory.Users.Aliases.Insert--    -- ** directory.users.aliases.list-    , module Network.Google.Resource.Directory.Users.Aliases.List--    -- ** directory.users.aliases.watch-    , module Network.Google.Resource.Directory.Users.Aliases.Watch--    -- ** directory.users.delete-    , module Network.Google.Resource.Directory.Users.Delete--    -- ** directory.users.get-    , module Network.Google.Resource.Directory.Users.Get--    -- ** directory.users.insert-    , module Network.Google.Resource.Directory.Users.Insert--    -- ** directory.users.list-    , module Network.Google.Resource.Directory.Users.List--    -- ** directory.users.makeAdmin-    , module Network.Google.Resource.Directory.Users.MakeAdmin--    -- ** directory.users.patch-    , module Network.Google.Resource.Directory.Users.Patch--    -- ** directory.users.photos.delete-    , module Network.Google.Resource.Directory.Users.Photos.Delete--    -- ** directory.users.photos.get-    , module Network.Google.Resource.Directory.Users.Photos.Get--    -- ** directory.users.photos.patch-    , module Network.Google.Resource.Directory.Users.Photos.Patch--    -- ** directory.users.photos.update-    , module Network.Google.Resource.Directory.Users.Photos.Update--    -- ** directory.users.undelete-    , module Network.Google.Resource.Directory.Users.Undelete--    -- ** directory.users.update-    , module Network.Google.Resource.Directory.Users.Update--    -- ** directory.users.watch-    , module Network.Google.Resource.Directory.Users.Watch--    -- ** directory.verificationCodes.generate-    , module Network.Google.Resource.Directory.VerificationCodes.Generate--    -- ** directory.verificationCodes.invalidate-    , module Network.Google.Resource.Directory.VerificationCodes.Invalidate--    -- ** directory.verificationCodes.list-    , module Network.Google.Resource.Directory.VerificationCodes.List--    -- * Types--    -- ** UserLocation-    , UserLocation-    , userLocation-    , ulArea-    , ulBuildingId-    , ulDeskCode-    , ulFloorName-    , ulType-    , ulCustomType-    , ulFloorSection--    -- ** VerificationCode-    , VerificationCode-    , verificationCode-    , vcVerificationCode-    , vcEtag-    , vcKind-    , vcUserId--    -- ** Feature-    , Feature-    , feature-    , fEtags-    , fKind-    , fName--    -- ** OrgUnit-    , OrgUnit-    , orgUnit-    , ouEtag-    , ouParentOrgUnitPath-    , ouKind-    , ouOrgUnitPath-    , ouName-    , ouBlockInheritance-    , ouParentOrgUnitId-    , ouDescription-    , ouOrgUnitId--    -- ** UserMakeAdmin-    , UserMakeAdmin-    , userMakeAdmin-    , umaStatus--    -- ** UserAbout-    , UserAbout-    , userAbout-    , uaValue-    , uaContentType--    -- ** UsersListEvent-    , UsersListEvent (..)--    -- ** Privileges-    , Privileges-    , privileges-    , pEtag-    , pKind-    , pItems--    -- ** Groups-    , Groups-    , groups-    , gGroups-    , gEtag-    , gNextPageToken-    , gKind--    -- ** UsersAliasesListEvent-    , UsersAliasesListEvent (..)--    -- ** RoleAssignments-    , RoleAssignments-    , roleAssignments-    , raEtag-    , raNextPageToken-    , raKind-    , raItems--    -- ** Privilege-    , Privilege-    , privilege-    , priEtag-    , priIsOuScopable-    , priKind-    , priServiceName-    , priServiceId-    , priPrivilegeName-    , priChildPrivileges--    -- ** UsersAliasesWatchEvent-    , UsersAliasesWatchEvent (..)--    -- ** Roles-    , Roles-    , roles-    , rEtag-    , rNextPageToken-    , rKind-    , rItems--    -- ** UsersWatchEvent-    , UsersWatchEvent (..)--    -- ** ChromeOSDeviceDiskVolumeReportsItem-    , ChromeOSDeviceDiskVolumeReportsItem-    , chromeOSDeviceDiskVolumeReportsItem-    , coddvriVolumeInfo--    -- ** UserAddress-    , UserAddress-    , userAddress-    , uaStreetAddress-    , uaPoBox-    , uaCountry-    , uaPostalCode-    , uaFormatted-    , uaExtendedAddress-    , uaLocality-    , uaPrimary-    , uaCountryCode-    , uaRegion-    , uaType-    , uaCustomType-    , uaSourceIsStructured--    -- ** CustomerPostalAddress-    , CustomerPostalAddress-    , customerPostalAddress-    , cpaOrganizationName-    , cpaPostalCode-    , cpaAddressLine1-    , cpaLocality-    , cpaContactName-    , cpaAddressLine2-    , cpaCountryCode-    , cpaRegion-    , cpaAddressLine3--    -- ** RoleAssignment-    , RoleAssignment-    , roleAssignment-    , rolEtag-    , rolScopeType-    , rolKind-    , rolAssignedTo-    , rolRoleId-    , rolRoleAssignmentId-    , rolOrgUnitId--    -- ** Group-    , Group-    , group'-    , groEmail-    , groEtag-    , groDirectMembersCount-    , groKind-    , groAliases-    , groNonEditableAliases-    , groName-    , groAdminCreated-    , groId-    , groDescription--    -- ** ChromeOSDevice-    , ChromeOSDevice-    , chromeOSDevice-    , codStatus-    , codEtag-    , codCPUStatusReports-    , codAnnotatedUser-    , codSystemRamFreeReports-    , codPlatformVersion-    , codLastSync-    , codActiveTimeRanges-    , codKind-    , codEthernetMACAddress-    , codLastEnrollmentTime-    , codAnnotatedLocation-    , codMACAddress-    , codOrgUnitPath-    , codRecentUsers-    , codSupportEndDate-    , codModel-    , codWillAutoRenew-    , codMeid-    , codDeviceFiles-    , codDeviceId-    , codBootMode-    , codTpmVersionInfo-    , codOrderNumber-    , codDiskVolumeReports-    , codAnnotatedAssetId-    , codNotes-    , codSerialNumber-    , codFirmwareVersion-    , codOSVersion-    , codSystemRamTotal--    -- ** ChromeosDevicesPatchProjection-    , ChromeosDevicesPatchProjection (..)--    -- ** ChromeosDevicesGetProjection-    , ChromeosDevicesGetProjection (..)--    -- ** Users-    , Users-    , users-    , uEtag-    , uNextPageToken-    , uUsers-    , uKind-    , uTriggerEvent--    -- ** Asp-    , Asp-    , asp-    , aCreationTime-    , aEtag-    , aCodeId-    , aKind-    , aName-    , aLastTimeUsed-    , aUserKey--    -- ** Schemas-    , Schemas-    , schemas-    , sEtag-    , sSchemas-    , sKind--    -- ** ChromeOSDeviceDeviceFilesItem-    , ChromeOSDeviceDeviceFilesItem-    , chromeOSDeviceDeviceFilesItem-    , coddfiName-    , coddfiDownloadURL-    , coddfiType-    , coddfiCreateTime--    -- ** UsersListViewType-    , UsersListViewType (..)--    -- ** Buildings-    , Buildings-    , buildings-    , bEtag-    , bNextPageToken-    , bBuildings-    , bKind--    -- ** OrgUnitsListType-    , OrgUnitsListType (..)--    -- ** Notification-    , Notification-    , notification-    , nSubject-    , nEtag-    , nKind-    , nBody-    , nFromAddress-    , nIsUnread-    , nNotificationId-    , nSendTime--    -- ** MobileDevicesListSortOrder-    , MobileDevicesListSortOrder (..)--    -- ** UserIm-    , UserIm-    , userIm-    , uiIm-    , uiProtocol-    , uiPrimary-    , uiCustomProtocol-    , uiType-    , uiCustomType--    -- ** UsersListOrderBy-    , UsersListOrderBy (..)--    -- ** BuildingAddress-    , BuildingAddress-    , buildingAddress-    , baLanguageCode-    , baRegionCode-    , baSublocality-    , baPostalCode-    , baLocality-    , baAdministrativeArea-    , baAddressLines--    -- ** Tokens-    , Tokens-    , tokens-    , tEtag-    , tKind-    , tItems--    -- ** UserCustomSchemas-    , UserCustomSchemas-    , userCustomSchemas-    , ucsAddtional--    -- ** UserKeyword-    , UserKeyword-    , userKeyword-    , ukValue-    , ukType-    , ukCustomType--    -- ** DomainAliases-    , DomainAliases-    , domainAliases-    , daEtag-    , daKind-    , daDomainAliases--    -- ** Aliases-    , Aliases-    , aliases-    , aliEtag-    , aliKind-    , aliAliases--    -- ** CalendarResource-    , CalendarResource-    , calendarResource-    , crEtags-    , crResourceId-    , crResourceType-    , crResourceName-    , crKind-    , crBuildingId-    , crFeatureInstances-    , crResourceEmail-    , crCapacity-    , crResourceDescription-    , crFloorName-    , crGeneratedResourceName-    , crResourceCategory-    , crFloorSection-    , crUserVisibleDescription--    -- ** GroupsListOrderBy-    , GroupsListOrderBy (..)--    -- ** UserUndelete-    , UserUndelete-    , userUndelete-    , uuOrgUnitPath--    -- ** Members-    , Members-    , members-    , mEtag-    , mNextPageToken-    , mKind-    , mMembers--    -- ** Channel-    , Channel-    , channel-    , cResourceURI-    , cResourceId-    , cKind-    , cExpiration-    , cToken-    , cAddress-    , cPayload-    , cParams-    , cId-    , cType--    -- ** MobileDevices-    , MobileDevices-    , mobileDevices-    , mdEtag-    , mdNextPageToken-    , mdKind-    , mdMobileDevices--    -- ** Token-    , Token-    , token-    , tokClientId-    , tokEtag-    , tokDisplayText-    , tokKind-    , tokScopes-    , tokNATiveApp-    , tokAnonymous-    , tokUserKey--    -- ** ResourcesBuildingsPatchCoordinatesSource-    , ResourcesBuildingsPatchCoordinatesSource (..)--    -- ** UserName-    , UserName-    , userName-    , unGivenName-    , unFullName-    , unFamilyName--    -- ** UsersWatchViewType-    , UsersWatchViewType (..)--    -- ** Building-    , Building-    , building-    , buiEtags-    , buiKind-    , buiBuildingId-    , buiAddress-    , buiCoordinates-    , buiBuildingName-    , buiFloorNames-    , buiDescription--    -- ** ChromeOSDeviceRecentUsersItem-    , ChromeOSDeviceRecentUsersItem-    , chromeOSDeviceRecentUsersItem-    , codruiEmail-    , codruiType--    -- ** DomainAlias-    , DomainAlias-    , domainAlias-    , dCreationTime-    , dEtag-    , dKind-    , dVerified-    , dDomainAliasName-    , dParentDomainName--    -- ** UserGender-    , UserGender-    , userGender-    , ugAddressMeAs-    , ugCustomGender-    , ugType--    -- ** Alias-    , Alias-    , alias-    , aaEtag-    , aaKind-    , aaAlias-    , aaId-    , aaPrimaryEmail--    -- ** UsersGetProjection-    , UsersGetProjection (..)--    -- ** Schema-    , Schema-    , schema-    , schEtag-    , schKind-    , schSchemaName-    , schSchemaId-    , schDisplayName-    , schFields--    -- ** ChromeOSMoveDevicesToOu-    , ChromeOSMoveDevicesToOu-    , chromeOSMoveDevicesToOu-    , comdtoDeviceIds--    -- ** ResourcesBuildingsUpdateCoordinatesSource-    , ResourcesBuildingsUpdateCoordinatesSource (..)--    -- ** User-    , User-    , user-    , useCreationTime-    , useLastLoginTime-    , useThumbnailPhotoEtag-    , useEtag-    , usePosixAccounts-    , useIPWhiteListed-    , useRelations-    , useSSHPublicKeys-    , useHashFunction-    , useKind-    , useChangePasswordAtNextLogin-    , useWebsites-    , useAddresses-    , useAliases-    , useThumbnailPhotoURL-    , useExternalIds-    , useSuspended-    , useAgreedToTerms-    , useDeletionTime-    , useNonEditableAliases-    , useOrgUnitPath-    , useCustomerId-    , useLanguages-    , useIncludeInGlobalAddressList-    , useGender-    , usePhones-    , useName-    , usePassword-    , useEmails-    , useIms-    , useKeywords-    , useIsAdmin-    , useIsEnrolledIn2Sv-    , useId-    , useOrganizations-    , usePrimaryEmail-    , useIsEnforcedIn2Sv-    , useNotes-    , useIsDelegatedAdmin-    , useLocations-    , useArchived-    , useIsMailboxSetup-    , useCustomSchemas-    , useSuspensionReason--    -- ** MobileDevicesListProjection-    , MobileDevicesListProjection (..)--    -- ** ChromeOSDeviceAction-    , ChromeOSDeviceAction-    , chromeOSDeviceAction-    , codaAction-    , codaDeprovisionReason--    -- ** FeatureRename-    , FeatureRename-    , featureRename-    , frNewName--    -- ** Role-    , Role-    , role'-    , rrEtag-    , rrKind-    , rrRoleName-    , rrIsSystemRole-    , rrRoleId-    , rrRoleDescription-    , rrIsSuperAdminRole-    , rrRolePrivileges--    -- ** Customer-    , Customer-    , customer-    , cusEtag-    , cusKind-    , cusAlternateEmail-    , cusCustomerDomain-    , cusPhoneNumber-    , cusLanguage-    , cusId-    , cusCustomerCreationTime-    , cusPostalAddress--    -- ** MobileDeviceApplicationsItem-    , MobileDeviceApplicationsItem-    , mobileDeviceApplicationsItem-    , mdaiVersionCode-    , mdaiVersionName-    , mdaiPackageName-    , mdaiDisplayName-    , mdaiPermission--    -- ** ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem-    , ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem-    , chromeOSDeviceDiskVolumeReportsItemVolumeInfoItem-    , coddvriviiStorageFree-    , coddvriviiStorageTotal-    , coddvriviiVolumeId--    -- ** MobileDevicesListOrderBy-    , MobileDevicesListOrderBy (..)--    -- ** UsersListSortOrder-    , UsersListSortOrder (..)--    -- ** ResourcesBuildingsInsertCoordinatesSource-    , ResourcesBuildingsInsertCoordinatesSource (..)--    -- ** OrgUnits-    , OrgUnits-    , orgUnits-    , oEtag-    , oKind-    , oOrganizationUnits--    -- ** UserSSHPublicKey-    , UserSSHPublicKey-    , userSSHPublicKey-    , uspkFingerprint-    , uspkKey-    , uspkExpirationTimeUsec--    -- ** VerificationCodes-    , VerificationCodes-    , verificationCodes-    , vEtag-    , vKind-    , vItems--    -- ** BuildingCoordinates-    , BuildingCoordinates-    , buildingCoordinates-    , bcLatitude-    , bcLongitude--    -- ** ChromeosDevicesListSortOrder-    , ChromeosDevicesListSortOrder (..)--    -- ** UserRelation-    , UserRelation-    , userRelation-    , urValue-    , urType-    , urCustomType--    -- ** TrustedApps-    , TrustedApps-    , trustedApps-    , taEtag-    , taNextPageToken-    , taKind-    , taTrustedApps--    -- ** UsersWatchSortOrder-    , UsersWatchSortOrder (..)--    -- ** Features-    , Features-    , features-    , feaEtag-    , feaNextPageToken-    , feaKind-    , feaFeatures--    -- ** ChannelParams-    , ChannelParams-    , channelParams-    , cpAddtional--    -- ** ChromeOSDeviceTpmVersionInfo-    , ChromeOSDeviceTpmVersionInfo-    , chromeOSDeviceTpmVersionInfo-    , codtviVendorSpecific-    , codtviManufacturer-    , codtviSpecLevel-    , codtviTpmModel-    , codtviFamily-    , codtviFirmwareVersion--    -- ** UserOrganization-    , UserOrganization-    , userOrganization-    , uoDePartment-    , uoLocation-    , uoCostCenter-    , uoDomain-    , uoSymbol-    , uoPrimary-    , uoName-    , uoFullTimeEquivalent-    , uoTitle-    , uoType-    , uoCustomType-    , uoDescription--    -- ** UserWebsite-    , UserWebsite-    , userWebsite-    , uwValue-    , uwPrimary-    , uwType-    , uwCustomType--    -- ** GroupsListSortOrder-    , GroupsListSortOrder (..)--    -- ** ChromeOSDeviceActiveTimeRangesItem-    , ChromeOSDeviceActiveTimeRangesItem-    , chromeOSDeviceActiveTimeRangesItem-    , codatriDate-    , codatriActiveTime--    -- ** UserEmail-    , UserEmail-    , userEmail-    , ueAddress-    , uePrimary-    , ueType-    , ueCustomType--    -- ** UserPhone-    , UserPhone-    , userPhone-    , upValue-    , upPrimary-    , upType-    , upCustomType--    -- ** UserPhoto-    , UserPhoto-    , userPhoto-    , upPhotoData-    , upEtag-    , upHeight-    , upKind-    , upWidth-    , upMimeType-    , upId-    , upPrimaryEmail--    -- ** ChromeOSDeviceSystemRamFreeReportsItem-    , ChromeOSDeviceSystemRamFreeReportsItem-    , chromeOSDeviceSystemRamFreeReportsItem-    , codsrfriReportTime-    , codsrfriSystemRamFreeInfo--    -- ** UserPosixAccount-    , UserPosixAccount-    , userPosixAccount-    , upaGecos-    , upaUid-    , upaUsername-    , upaShell-    , upaPrimary-    , upaAccountId-    , upaGid-    , upaOperatingSystemType-    , upaSystemId-    , upaHomeDirectory--    -- ** UsersListProjection-    , UsersListProjection (..)--    -- ** FeatureInstance-    , FeatureInstance-    , featureInstance-    , fiFeature--    -- ** ChromeosDevicesUpdateProjection-    , ChromeosDevicesUpdateProjection (..)--    -- ** MobileDevicesGetProjection-    , MobileDevicesGetProjection (..)--    -- ** MobileDevice-    , MobileDevice-    , mobileDevice-    , mobEmail-    , mobStatus-    , mobPrivilege-    , mobEtag-    , mobResourceId-    , mobManufacturer-    , mobBuildNumber-    , mobManagedAccountIsOnOwnerProFile-    , mobLastSync-    , mobOtherAccountsInfo-    , mobKind-    , mobAdbStatus-    , mobReleaseVersion-    , mobBrand-    , mobSecurityPatchLevel-    , mobNetworkOperator-    , mobKernelVersion-    , mobOS-    , mobName-    , mobModel-    , mobDeveloperOptionsStatus-    , mobUnknownSourcesStatus-    , mobMeid-    , mobBootLoaderVersion-    , mobDeviceId-    , mobFirstSync-    , mobUserAgent-    , mobImei-    , mobType-    , mobWifiMACAddress-    , mobEncryptionStatus-    , mobSerialNumber-    , mobDevicePasswordStatus-    , mobHardwareId-    , mobBasebandVersion-    , mobSupportsWorkProFile-    , mobHardware-    , mobDeviceCompromisedStatus-    , mobApplications-    , mobDefaultLanguage--    -- ** ChromeOSDeviceCPUStatusReportsItem-    , ChromeOSDeviceCPUStatusReportsItem-    , chromeOSDeviceCPUStatusReportsItem-    , codcsriCPUUtilizationPercentageInfo-    , codcsriCPUTemperatureInfo-    , codcsriReportTime--    -- ** Member-    , Member-    , member-    , memEmail-    , memStatus-    , memEtag-    , memKind-    , memDeliverySettings-    , memRole-    , memId-    , memType--    -- ** AppAccessCollections-    , AppAccessCollections-    , appAccessCollections-    , aacEtag-    , aacResourceId-    , aacEnforceSettingsForAndroidDrive-    , aacResourceName-    , aacKind-    , aacTrustDomainOwnedApps-    , aacBlockedAPIAccessBuckets-    , aacErrorMessage--    -- ** UserCustomProperties-    , UserCustomProperties-    , userCustomProperties-    , ucpAddtional--    -- ** UserLanguage-    , UserLanguage-    , userLanguage-    , ulLanguageCode-    , ulCustomLanguage--    -- ** Domains-    , Domains-    , domains-    , domCreationTime-    , domEtag-    , domKind-    , domDomainAliases-    , domVerified-    , domDomainName-    , domIsPrimary--    -- ** CalendarResources-    , CalendarResources-    , calendarResources-    , crsEtag-    , crsNextPageToken-    , crsKind-    , crsItems--    -- ** ChromeosDevicesListOrderBy-    , ChromeosDevicesListOrderBy (..)--    -- ** UsersWatchProjection-    , UsersWatchProjection (..)--    -- ** UsersWatchOrderBy-    , UsersWatchOrderBy (..)--    -- ** Notifications-    , Notifications-    , notifications-    , notEtag-    , notNextPageToken-    , notKind-    , notItems-    , notUnreadNotificationsCount--    -- ** ChromeosDevicesListProjection-    , ChromeosDevicesListProjection (..)--    -- ** SchemaFieldSpecNumericIndexingSpec-    , SchemaFieldSpecNumericIndexingSpec-    , schemaFieldSpecNumericIndexingSpec-    , sfsnisMaxValue-    , sfsnisMinValue--    -- ** MobileDeviceAction-    , MobileDeviceAction-    , mobileDeviceAction-    , mdaAction--    -- ** SchemaFieldSpec-    , SchemaFieldSpec-    , schemaFieldSpec-    , sfsEtag-    , sfsKind-    , sfsNumericIndexingSpec-    , sfsReadAccessType-    , sfsFieldId-    , sfsIndexed-    , sfsFieldType-    , sfsFieldName-    , sfsDisplayName-    , sfsMultiValued--    -- ** ChromeOSDevices-    , ChromeOSDevices-    , chromeOSDevices-    , cosdEtag-    , cosdNextPageToken-    , cosdKind-    , cosdChromeosDevices--    -- ** MembersHasMember-    , MembersHasMember-    , membersHasMember-    , mhmIsMember--    -- ** TrustedAppId-    , TrustedAppId-    , trustedAppId-    , taiCertificateHashSHA256-    , taiEtag-    , taiKind-    , taiCertificateHashSHA1-    , taiAndroidPackageName--    -- ** UserExternalId-    , UserExternalId-    , userExternalId-    , ueiValue-    , ueiType-    , ueiCustomType--    -- ** Asps-    , Asps-    , asps-    , aspEtag-    , aspKind-    , aspItems--    -- ** ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem-    , ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem-    , chromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem-    , codcsrictiiTemperature-    , codcsrictiiLabel--    -- ** UsersGetViewType-    , UsersGetViewType (..)--    -- ** RoleRolePrivilegesItem-    , RoleRolePrivilegesItem-    , roleRolePrivilegesItem-    , rrpiServiceId-    , rrpiPrivilegeName--    -- ** Domains2-    , Domains2-    , domains2-    , ddEtag-    , ddKind-    , ddDomains-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude-import           Network.Google.Resource.Admin.Channels.Stop-import           Network.Google.Resource.Directory.Asps.Delete-import           Network.Google.Resource.Directory.Asps.Get-import           Network.Google.Resource.Directory.Asps.List-import           Network.Google.Resource.Directory.ChromeosDevices.Action-import           Network.Google.Resource.Directory.ChromeosDevices.Get-import           Network.Google.Resource.Directory.ChromeosDevices.List-import           Network.Google.Resource.Directory.ChromeosDevices.MoveDevicesToOu-import           Network.Google.Resource.Directory.ChromeosDevices.Patch-import           Network.Google.Resource.Directory.ChromeosDevices.Update-import           Network.Google.Resource.Directory.Customers.Get-import           Network.Google.Resource.Directory.Customers.Patch-import           Network.Google.Resource.Directory.Customers.Update-import           Network.Google.Resource.Directory.DomainAliases.Delete-import           Network.Google.Resource.Directory.DomainAliases.Get-import           Network.Google.Resource.Directory.DomainAliases.Insert-import           Network.Google.Resource.Directory.DomainAliases.List-import           Network.Google.Resource.Directory.Domains.Delete-import           Network.Google.Resource.Directory.Domains.Get-import           Network.Google.Resource.Directory.Domains.Insert-import           Network.Google.Resource.Directory.Domains.List-import           Network.Google.Resource.Directory.Groups.Aliases.Delete-import           Network.Google.Resource.Directory.Groups.Aliases.Insert-import           Network.Google.Resource.Directory.Groups.Aliases.List-import           Network.Google.Resource.Directory.Groups.Delete-import           Network.Google.Resource.Directory.Groups.Get-import           Network.Google.Resource.Directory.Groups.Insert-import           Network.Google.Resource.Directory.Groups.List-import           Network.Google.Resource.Directory.Groups.Patch-import           Network.Google.Resource.Directory.Groups.Update-import           Network.Google.Resource.Directory.Members.Delete-import           Network.Google.Resource.Directory.Members.Get-import           Network.Google.Resource.Directory.Members.HasMember-import           Network.Google.Resource.Directory.Members.Insert-import           Network.Google.Resource.Directory.Members.List-import           Network.Google.Resource.Directory.Members.Patch-import           Network.Google.Resource.Directory.Members.Update-import           Network.Google.Resource.Directory.MobileDevices.Action-import           Network.Google.Resource.Directory.MobileDevices.Delete-import           Network.Google.Resource.Directory.MobileDevices.Get-import           Network.Google.Resource.Directory.MobileDevices.List-import           Network.Google.Resource.Directory.Notifications.Delete-import           Network.Google.Resource.Directory.Notifications.Get-import           Network.Google.Resource.Directory.Notifications.List-import           Network.Google.Resource.Directory.Notifications.Patch-import           Network.Google.Resource.Directory.Notifications.Update-import           Network.Google.Resource.Directory.OrgUnits.Delete-import           Network.Google.Resource.Directory.OrgUnits.Get-import           Network.Google.Resource.Directory.OrgUnits.Insert-import           Network.Google.Resource.Directory.OrgUnits.List-import           Network.Google.Resource.Directory.OrgUnits.Patch-import           Network.Google.Resource.Directory.OrgUnits.Update-import           Network.Google.Resource.Directory.Privileges.List-import           Network.Google.Resource.Directory.ResolvedAppAccessSettings.GetSettings-import           Network.Google.Resource.Directory.ResolvedAppAccessSettings.ListTrustedApps-import           Network.Google.Resource.Directory.Resources.Buildings.Delete-import           Network.Google.Resource.Directory.Resources.Buildings.Get-import           Network.Google.Resource.Directory.Resources.Buildings.Insert-import           Network.Google.Resource.Directory.Resources.Buildings.List-import           Network.Google.Resource.Directory.Resources.Buildings.Patch-import           Network.Google.Resource.Directory.Resources.Buildings.Update-import           Network.Google.Resource.Directory.Resources.Calendars.Delete-import           Network.Google.Resource.Directory.Resources.Calendars.Get-import           Network.Google.Resource.Directory.Resources.Calendars.Insert-import           Network.Google.Resource.Directory.Resources.Calendars.List-import           Network.Google.Resource.Directory.Resources.Calendars.Patch-import           Network.Google.Resource.Directory.Resources.Calendars.Update-import           Network.Google.Resource.Directory.Resources.Features.Delete-import           Network.Google.Resource.Directory.Resources.Features.Get-import           Network.Google.Resource.Directory.Resources.Features.Insert-import           Network.Google.Resource.Directory.Resources.Features.List-import           Network.Google.Resource.Directory.Resources.Features.Patch-import           Network.Google.Resource.Directory.Resources.Features.Rename-import           Network.Google.Resource.Directory.Resources.Features.Update-import           Network.Google.Resource.Directory.RoleAssignments.Delete-import           Network.Google.Resource.Directory.RoleAssignments.Get-import           Network.Google.Resource.Directory.RoleAssignments.Insert-import           Network.Google.Resource.Directory.RoleAssignments.List-import           Network.Google.Resource.Directory.Roles.Delete-import           Network.Google.Resource.Directory.Roles.Get-import           Network.Google.Resource.Directory.Roles.Insert-import           Network.Google.Resource.Directory.Roles.List-import           Network.Google.Resource.Directory.Roles.Patch-import           Network.Google.Resource.Directory.Roles.Update-import           Network.Google.Resource.Directory.Schemas.Delete-import           Network.Google.Resource.Directory.Schemas.Get-import           Network.Google.Resource.Directory.Schemas.Insert-import           Network.Google.Resource.Directory.Schemas.List-import           Network.Google.Resource.Directory.Schemas.Patch-import           Network.Google.Resource.Directory.Schemas.Update-import           Network.Google.Resource.Directory.Tokens.Delete-import           Network.Google.Resource.Directory.Tokens.Get-import           Network.Google.Resource.Directory.Tokens.List-import           Network.Google.Resource.Directory.Users.Aliases.Delete-import           Network.Google.Resource.Directory.Users.Aliases.Insert-import           Network.Google.Resource.Directory.Users.Aliases.List-import           Network.Google.Resource.Directory.Users.Aliases.Watch-import           Network.Google.Resource.Directory.Users.Delete-import           Network.Google.Resource.Directory.Users.Get-import           Network.Google.Resource.Directory.Users.Insert-import           Network.Google.Resource.Directory.Users.List-import           Network.Google.Resource.Directory.Users.MakeAdmin-import           Network.Google.Resource.Directory.Users.Patch-import           Network.Google.Resource.Directory.Users.Photos.Delete-import           Network.Google.Resource.Directory.Users.Photos.Get-import           Network.Google.Resource.Directory.Users.Photos.Patch-import           Network.Google.Resource.Directory.Users.Photos.Update-import           Network.Google.Resource.Directory.Users.Undelete-import           Network.Google.Resource.Directory.Users.Update-import           Network.Google.Resource.Directory.Users.Watch-import           Network.Google.Resource.Directory.VerificationCodes.Generate-import           Network.Google.Resource.Directory.VerificationCodes.Invalidate-import           Network.Google.Resource.Directory.VerificationCodes.List--{- $resources-TODO--}---- | Represents the entirety of the methods and resources available for the Admin Directory API service.-type DirectoryAPI =-     PrivilegesListResource :<|>-       GroupsAliasesInsertResource-       :<|> GroupsAliasesListResource-       :<|> GroupsAliasesDeleteResource-       :<|> GroupsInsertResource-       :<|> GroupsListResource-       :<|> GroupsPatchResource-       :<|> GroupsGetResource-       :<|> GroupsDeleteResource-       :<|> GroupsUpdateResource-       :<|> RoleAssignmentsInsertResource-       :<|> RoleAssignmentsListResource-       :<|> RoleAssignmentsGetResource-       :<|> RoleAssignmentsDeleteResource-       :<|> RolesInsertResource-       :<|> RolesListResource-       :<|> RolesPatchResource-       :<|> RolesGetResource-       :<|> RolesDeleteResource-       :<|> RolesUpdateResource-       :<|> CustomersPatchResource-       :<|> CustomersGetResource-       :<|> CustomersUpdateResource-       :<|> UsersAliasesInsertResource-       :<|> UsersAliasesListResource-       :<|> UsersAliasesDeleteResource-       :<|> UsersAliasesWatchResource-       :<|> UsersPhotosPatchResource-       :<|> UsersPhotosGetResource-       :<|> UsersPhotosDeleteResource-       :<|> UsersPhotosUpdateResource-       :<|> UsersInsertResource-       :<|> UsersListResource-       :<|> UsersUndeleteResource-       :<|> UsersPatchResource-       :<|> UsersGetResource-       :<|> UsersMakeAdminResource-       :<|> UsersDeleteResource-       :<|> UsersUpdateResource-       :<|> UsersWatchResource-       :<|> SchemasInsertResource-       :<|> SchemasListResource-       :<|> SchemasPatchResource-       :<|> SchemasGetResource-       :<|> SchemasDeleteResource-       :<|> SchemasUpdateResource-       :<|> ResolvedAppAccessSettingsListTrustedAppsResource-       :<|> ResolvedAppAccessSettingsGetSettingsResource-       :<|> TokensListResource-       :<|> TokensGetResource-       :<|> TokensDeleteResource-       :<|> DomainAliasesInsertResource-       :<|> DomainAliasesListResource-       :<|> DomainAliasesGetResource-       :<|> DomainAliasesDeleteResource-       :<|> ChannelsStopResource-       :<|> MembersInsertResource-       :<|> MembersListResource-       :<|> MembersHasMemberResource-       :<|> MembersPatchResource-       :<|> MembersGetResource-       :<|> MembersDeleteResource-       :<|> MembersUpdateResource-       :<|> MobileDevicesListResource-       :<|> MobileDevicesGetResource-       :<|> MobileDevicesActionResource-       :<|> MobileDevicesDeleteResource-       :<|> ResourcesBuildingsInsertResource-       :<|> ResourcesBuildingsListResource-       :<|> ResourcesBuildingsPatchResource-       :<|> ResourcesBuildingsGetResource-       :<|> ResourcesBuildingsDeleteResource-       :<|> ResourcesBuildingsUpdateResource-       :<|> ResourcesCalendarsInsertResource-       :<|> ResourcesCalendarsListResource-       :<|> ResourcesCalendarsPatchResource-       :<|> ResourcesCalendarsGetResource-       :<|> ResourcesCalendarsDeleteResource-       :<|> ResourcesCalendarsUpdateResource-       :<|> ResourcesFeaturesInsertResource-       :<|> ResourcesFeaturesListResource-       :<|> ResourcesFeaturesPatchResource-       :<|> ResourcesFeaturesGetResource-       :<|> ResourcesFeaturesRenameResource-       :<|> ResourcesFeaturesDeleteResource-       :<|> ResourcesFeaturesUpdateResource-       :<|> OrgUnitsInsertResource-       :<|> OrgUnitsListResource-       :<|> OrgUnitsPatchResource-       :<|> OrgUnitsGetResource-       :<|> OrgUnitsDeleteResource-       :<|> OrgUnitsUpdateResource-       :<|> VerificationCodesListResource-       :<|> VerificationCodesGenerateResource-       :<|> VerificationCodesInvalidateResource-       :<|> DomainsInsertResource-       :<|> DomainsListResource-       :<|> DomainsGetResource-       :<|> DomainsDeleteResource-       :<|> NotificationsListResource-       :<|> NotificationsPatchResource-       :<|> NotificationsGetResource-       :<|> NotificationsDeleteResource-       :<|> NotificationsUpdateResource-       :<|> ChromeosDevicesListResource-       :<|> ChromeosDevicesMoveDevicesToOuResource-       :<|> ChromeosDevicesPatchResource-       :<|> ChromeosDevicesGetResource-       :<|> ChromeosDevicesActionResource-       :<|> ChromeosDevicesUpdateResource-       :<|> AspsListResource-       :<|> AspsGetResource-       :<|> AspsDeleteResource
− gen/Network/Google/Directory/Types.hs 
@@ -1,1128 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.Directory.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.Directory.Types-    (-    -- * Service Configuration-      directoryService--    -- * OAuth Scopes-    , adminDirectoryRoleManagementReadOnlyScope-    , adminDirectoryGroupReadOnlyScope-    , adminDirectoryDeviceChromeosReadOnlyScope-    , adminDirectoryDeviceChromeosScope-    , adminDirectoryUserScope-    , adminDirectoryGroupMemberReadOnlyScope-    , adminDirectoryUserAliasScope-    , adminDirectoryResourceCalendarScope-    , adminDirectoryDeviceMobileActionScope-    , adminDirectoryResourceCalendarReadOnlyScope-    , adminDirectoryDomainReadOnlyScope-    , adminDirectoryUserschemaScope-    , adminDirectoryUserschemaReadOnlyScope-    , adminDirectoryDomainScope-    , adminDirectoryRoleManagementScope-    , adminDirectoryGroupScope-    , adminDirectoryOrgUnitReadOnlyScope-    , adminDirectoryCustomerScope-    , adminDirectoryCustomerReadOnlyScope-    , adminDirectoryOrgUnitScope-    , adminDirectoryUserReadOnlyScope-    , adminDirectoryUserAliasReadOnlyScope-    , adminDirectoryUserSecurityScope-    , adminDirectoryGroupMemberScope-    , adminDirectoryNotificationsScope-    , adminDirectoryDeviceMobileScope-    , adminDirectoryDeviceMobileReadOnlyScope--    -- * UserLocation-    , UserLocation-    , userLocation-    , ulArea-    , ulBuildingId-    , ulDeskCode-    , ulFloorName-    , ulType-    , ulCustomType-    , ulFloorSection--    -- * VerificationCode-    , VerificationCode-    , verificationCode-    , vcVerificationCode-    , vcEtag-    , vcKind-    , vcUserId--    -- * Feature-    , Feature-    , feature-    , fEtags-    , fKind-    , fName--    -- * OrgUnit-    , OrgUnit-    , orgUnit-    , ouEtag-    , ouParentOrgUnitPath-    , ouKind-    , ouOrgUnitPath-    , ouName-    , ouBlockInheritance-    , ouParentOrgUnitId-    , ouDescription-    , ouOrgUnitId--    -- * UserMakeAdmin-    , UserMakeAdmin-    , userMakeAdmin-    , umaStatus--    -- * UserAbout-    , UserAbout-    , userAbout-    , uaValue-    , uaContentType--    -- * UsersListEvent-    , UsersListEvent (..)--    -- * Privileges-    , Privileges-    , privileges-    , pEtag-    , pKind-    , pItems--    -- * Groups-    , Groups-    , groups-    , gGroups-    , gEtag-    , gNextPageToken-    , gKind--    -- * UsersAliasesListEvent-    , UsersAliasesListEvent (..)--    -- * RoleAssignments-    , RoleAssignments-    , roleAssignments-    , raEtag-    , raNextPageToken-    , raKind-    , raItems--    -- * Privilege-    , Privilege-    , privilege-    , priEtag-    , priIsOuScopable-    , priKind-    , priServiceName-    , priServiceId-    , priPrivilegeName-    , priChildPrivileges--    -- * UsersAliasesWatchEvent-    , UsersAliasesWatchEvent (..)--    -- * Roles-    , Roles-    , roles-    , rEtag-    , rNextPageToken-    , rKind-    , rItems--    -- * UsersWatchEvent-    , UsersWatchEvent (..)--    -- * ChromeOSDeviceDiskVolumeReportsItem-    , ChromeOSDeviceDiskVolumeReportsItem-    , chromeOSDeviceDiskVolumeReportsItem-    , coddvriVolumeInfo--    -- * UserAddress-    , UserAddress-    , userAddress-    , uaStreetAddress-    , uaPoBox-    , uaCountry-    , uaPostalCode-    , uaFormatted-    , uaExtendedAddress-    , uaLocality-    , uaPrimary-    , uaCountryCode-    , uaRegion-    , uaType-    , uaCustomType-    , uaSourceIsStructured--    -- * CustomerPostalAddress-    , CustomerPostalAddress-    , customerPostalAddress-    , cpaOrganizationName-    , cpaPostalCode-    , cpaAddressLine1-    , cpaLocality-    , cpaContactName-    , cpaAddressLine2-    , cpaCountryCode-    , cpaRegion-    , cpaAddressLine3--    -- * RoleAssignment-    , RoleAssignment-    , roleAssignment-    , rolEtag-    , rolScopeType-    , rolKind-    , rolAssignedTo-    , rolRoleId-    , rolRoleAssignmentId-    , rolOrgUnitId--    -- * Group-    , Group-    , group'-    , groEmail-    , groEtag-    , groDirectMembersCount-    , groKind-    , groAliases-    , groNonEditableAliases-    , groName-    , groAdminCreated-    , groId-    , groDescription--    -- * ChromeOSDevice-    , ChromeOSDevice-    , chromeOSDevice-    , codStatus-    , codEtag-    , codCPUStatusReports-    , codAnnotatedUser-    , codSystemRamFreeReports-    , codPlatformVersion-    , codLastSync-    , codActiveTimeRanges-    , codKind-    , codEthernetMACAddress-    , codLastEnrollmentTime-    , codAnnotatedLocation-    , codMACAddress-    , codOrgUnitPath-    , codRecentUsers-    , codSupportEndDate-    , codModel-    , codWillAutoRenew-    , codMeid-    , codDeviceFiles-    , codDeviceId-    , codBootMode-    , codTpmVersionInfo-    , codOrderNumber-    , codDiskVolumeReports-    , codAnnotatedAssetId-    , codNotes-    , codSerialNumber-    , codFirmwareVersion-    , codOSVersion-    , codSystemRamTotal--    -- * ChromeosDevicesPatchProjection-    , ChromeosDevicesPatchProjection (..)--    -- * ChromeosDevicesGetProjection-    , ChromeosDevicesGetProjection (..)--    -- * Users-    , Users-    , users-    , uEtag-    , uNextPageToken-    , uUsers-    , uKind-    , uTriggerEvent--    -- * Asp-    , Asp-    , asp-    , aCreationTime-    , aEtag-    , aCodeId-    , aKind-    , aName-    , aLastTimeUsed-    , aUserKey--    -- * Schemas-    , Schemas-    , schemas-    , sEtag-    , sSchemas-    , sKind--    -- * ChromeOSDeviceDeviceFilesItem-    , ChromeOSDeviceDeviceFilesItem-    , chromeOSDeviceDeviceFilesItem-    , coddfiName-    , coddfiDownloadURL-    , coddfiType-    , coddfiCreateTime--    -- * UsersListViewType-    , UsersListViewType (..)--    -- * Buildings-    , Buildings-    , buildings-    , bEtag-    , bNextPageToken-    , bBuildings-    , bKind--    -- * OrgUnitsListType-    , OrgUnitsListType (..)--    -- * Notification-    , Notification-    , notification-    , nSubject-    , nEtag-    , nKind-    , nBody-    , nFromAddress-    , nIsUnread-    , nNotificationId-    , nSendTime--    -- * MobileDevicesListSortOrder-    , MobileDevicesListSortOrder (..)--    -- * UserIm-    , UserIm-    , userIm-    , uiIm-    , uiProtocol-    , uiPrimary-    , uiCustomProtocol-    , uiType-    , uiCustomType--    -- * UsersListOrderBy-    , UsersListOrderBy (..)--    -- * BuildingAddress-    , BuildingAddress-    , buildingAddress-    , baLanguageCode-    , baRegionCode-    , baSublocality-    , baPostalCode-    , baLocality-    , baAdministrativeArea-    , baAddressLines--    -- * Tokens-    , Tokens-    , tokens-    , tEtag-    , tKind-    , tItems--    -- * UserCustomSchemas-    , UserCustomSchemas-    , userCustomSchemas-    , ucsAddtional--    -- * UserKeyword-    , UserKeyword-    , userKeyword-    , ukValue-    , ukType-    , ukCustomType--    -- * DomainAliases-    , DomainAliases-    , domainAliases-    , daEtag-    , daKind-    , daDomainAliases--    -- * Aliases-    , Aliases-    , aliases-    , aliEtag-    , aliKind-    , aliAliases--    -- * CalendarResource-    , CalendarResource-    , calendarResource-    , crEtags-    , crResourceId-    , crResourceType-    , crResourceName-    , crKind-    , crBuildingId-    , crFeatureInstances-    , crResourceEmail-    , crCapacity-    , crResourceDescription-    , crFloorName-    , crGeneratedResourceName-    , crResourceCategory-    , crFloorSection-    , crUserVisibleDescription--    -- * GroupsListOrderBy-    , GroupsListOrderBy (..)--    -- * UserUndelete-    , UserUndelete-    , userUndelete-    , uuOrgUnitPath--    -- * Members-    , Members-    , members-    , mEtag-    , mNextPageToken-    , mKind-    , mMembers--    -- * Channel-    , Channel-    , channel-    , cResourceURI-    , cResourceId-    , cKind-    , cExpiration-    , cToken-    , cAddress-    , cPayload-    , cParams-    , cId-    , cType--    -- * MobileDevices-    , MobileDevices-    , mobileDevices-    , mdEtag-    , mdNextPageToken-    , mdKind-    , mdMobileDevices--    -- * Token-    , Token-    , token-    , tokClientId-    , tokEtag-    , tokDisplayText-    , tokKind-    , tokScopes-    , tokNATiveApp-    , tokAnonymous-    , tokUserKey--    -- * ResourcesBuildingsPatchCoordinatesSource-    , ResourcesBuildingsPatchCoordinatesSource (..)--    -- * UserName-    , UserName-    , userName-    , unGivenName-    , unFullName-    , unFamilyName--    -- * UsersWatchViewType-    , UsersWatchViewType (..)--    -- * Building-    , Building-    , building-    , buiEtags-    , buiKind-    , buiBuildingId-    , buiAddress-    , buiCoordinates-    , buiBuildingName-    , buiFloorNames-    , buiDescription--    -- * ChromeOSDeviceRecentUsersItem-    , ChromeOSDeviceRecentUsersItem-    , chromeOSDeviceRecentUsersItem-    , codruiEmail-    , codruiType--    -- * DomainAlias-    , DomainAlias-    , domainAlias-    , dCreationTime-    , dEtag-    , dKind-    , dVerified-    , dDomainAliasName-    , dParentDomainName--    -- * UserGender-    , UserGender-    , userGender-    , ugAddressMeAs-    , ugCustomGender-    , ugType--    -- * Alias-    , Alias-    , alias-    , aaEtag-    , aaKind-    , aaAlias-    , aaId-    , aaPrimaryEmail--    -- * UsersGetProjection-    , UsersGetProjection (..)--    -- * Schema-    , Schema-    , schema-    , schEtag-    , schKind-    , schSchemaName-    , schSchemaId-    , schDisplayName-    , schFields--    -- * ChromeOSMoveDevicesToOu-    , ChromeOSMoveDevicesToOu-    , chromeOSMoveDevicesToOu-    , comdtoDeviceIds--    -- * ResourcesBuildingsUpdateCoordinatesSource-    , ResourcesBuildingsUpdateCoordinatesSource (..)--    -- * User-    , User-    , user-    , useCreationTime-    , useLastLoginTime-    , useThumbnailPhotoEtag-    , useEtag-    , usePosixAccounts-    , useIPWhiteListed-    , useRelations-    , useSSHPublicKeys-    , useHashFunction-    , useKind-    , useChangePasswordAtNextLogin-    , useWebsites-    , useAddresses-    , useAliases-    , useThumbnailPhotoURL-    , useExternalIds-    , useSuspended-    , useAgreedToTerms-    , useDeletionTime-    , useNonEditableAliases-    , useOrgUnitPath-    , useCustomerId-    , useLanguages-    , useIncludeInGlobalAddressList-    , useGender-    , usePhones-    , useName-    , usePassword-    , useEmails-    , useIms-    , useKeywords-    , useIsAdmin-    , useIsEnrolledIn2Sv-    , useId-    , useOrganizations-    , usePrimaryEmail-    , useIsEnforcedIn2Sv-    , useNotes-    , useIsDelegatedAdmin-    , useLocations-    , useArchived-    , useIsMailboxSetup-    , useCustomSchemas-    , useSuspensionReason--    -- * MobileDevicesListProjection-    , MobileDevicesListProjection (..)--    -- * ChromeOSDeviceAction-    , ChromeOSDeviceAction-    , chromeOSDeviceAction-    , codaAction-    , codaDeprovisionReason--    -- * FeatureRename-    , FeatureRename-    , featureRename-    , frNewName--    -- * Role-    , Role-    , role'-    , rrEtag-    , rrKind-    , rrRoleName-    , rrIsSystemRole-    , rrRoleId-    , rrRoleDescription-    , rrIsSuperAdminRole-    , rrRolePrivileges--    -- * Customer-    , Customer-    , customer-    , cusEtag-    , cusKind-    , cusAlternateEmail-    , cusCustomerDomain-    , cusPhoneNumber-    , cusLanguage-    , cusId-    , cusCustomerCreationTime-    , cusPostalAddress--    -- * MobileDeviceApplicationsItem-    , MobileDeviceApplicationsItem-    , mobileDeviceApplicationsItem-    , mdaiVersionCode-    , mdaiVersionName-    , mdaiPackageName-    , mdaiDisplayName-    , mdaiPermission--    -- * ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem-    , ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem-    , chromeOSDeviceDiskVolumeReportsItemVolumeInfoItem-    , coddvriviiStorageFree-    , coddvriviiStorageTotal-    , coddvriviiVolumeId--    -- * MobileDevicesListOrderBy-    , MobileDevicesListOrderBy (..)--    -- * UsersListSortOrder-    , UsersListSortOrder (..)--    -- * ResourcesBuildingsInsertCoordinatesSource-    , ResourcesBuildingsInsertCoordinatesSource (..)--    -- * OrgUnits-    , OrgUnits-    , orgUnits-    , oEtag-    , oKind-    , oOrganizationUnits--    -- * UserSSHPublicKey-    , UserSSHPublicKey-    , userSSHPublicKey-    , uspkFingerprint-    , uspkKey-    , uspkExpirationTimeUsec--    -- * VerificationCodes-    , VerificationCodes-    , verificationCodes-    , vEtag-    , vKind-    , vItems--    -- * BuildingCoordinates-    , BuildingCoordinates-    , buildingCoordinates-    , bcLatitude-    , bcLongitude--    -- * ChromeosDevicesListSortOrder-    , ChromeosDevicesListSortOrder (..)--    -- * UserRelation-    , UserRelation-    , userRelation-    , urValue-    , urType-    , urCustomType--    -- * TrustedApps-    , TrustedApps-    , trustedApps-    , taEtag-    , taNextPageToken-    , taKind-    , taTrustedApps--    -- * UsersWatchSortOrder-    , UsersWatchSortOrder (..)--    -- * Features-    , Features-    , features-    , feaEtag-    , feaNextPageToken-    , feaKind-    , feaFeatures--    -- * ChannelParams-    , ChannelParams-    , channelParams-    , cpAddtional--    -- * ChromeOSDeviceTpmVersionInfo-    , ChromeOSDeviceTpmVersionInfo-    , chromeOSDeviceTpmVersionInfo-    , codtviVendorSpecific-    , codtviManufacturer-    , codtviSpecLevel-    , codtviTpmModel-    , codtviFamily-    , codtviFirmwareVersion--    -- * UserOrganization-    , UserOrganization-    , userOrganization-    , uoDePartment-    , uoLocation-    , uoCostCenter-    , uoDomain-    , uoSymbol-    , uoPrimary-    , uoName-    , uoFullTimeEquivalent-    , uoTitle-    , uoType-    , uoCustomType-    , uoDescription--    -- * UserWebsite-    , UserWebsite-    , userWebsite-    , uwValue-    , uwPrimary-    , uwType-    , uwCustomType--    -- * GroupsListSortOrder-    , GroupsListSortOrder (..)--    -- * ChromeOSDeviceActiveTimeRangesItem-    , ChromeOSDeviceActiveTimeRangesItem-    , chromeOSDeviceActiveTimeRangesItem-    , codatriDate-    , codatriActiveTime--    -- * UserEmail-    , UserEmail-    , userEmail-    , ueAddress-    , uePrimary-    , ueType-    , ueCustomType--    -- * UserPhone-    , UserPhone-    , userPhone-    , upValue-    , upPrimary-    , upType-    , upCustomType--    -- * UserPhoto-    , UserPhoto-    , userPhoto-    , upPhotoData-    , upEtag-    , upHeight-    , upKind-    , upWidth-    , upMimeType-    , upId-    , upPrimaryEmail--    -- * ChromeOSDeviceSystemRamFreeReportsItem-    , ChromeOSDeviceSystemRamFreeReportsItem-    , chromeOSDeviceSystemRamFreeReportsItem-    , codsrfriReportTime-    , codsrfriSystemRamFreeInfo--    -- * UserPosixAccount-    , UserPosixAccount-    , userPosixAccount-    , upaGecos-    , upaUid-    , upaUsername-    , upaShell-    , upaPrimary-    , upaAccountId-    , upaGid-    , upaOperatingSystemType-    , upaSystemId-    , upaHomeDirectory--    -- * UsersListProjection-    , UsersListProjection (..)--    -- * FeatureInstance-    , FeatureInstance-    , featureInstance-    , fiFeature--    -- * ChromeosDevicesUpdateProjection-    , ChromeosDevicesUpdateProjection (..)--    -- * MobileDevicesGetProjection-    , MobileDevicesGetProjection (..)--    -- * MobileDevice-    , MobileDevice-    , mobileDevice-    , mobEmail-    , mobStatus-    , mobPrivilege-    , mobEtag-    , mobResourceId-    , mobManufacturer-    , mobBuildNumber-    , mobManagedAccountIsOnOwnerProFile-    , mobLastSync-    , mobOtherAccountsInfo-    , mobKind-    , mobAdbStatus-    , mobReleaseVersion-    , mobBrand-    , mobSecurityPatchLevel-    , mobNetworkOperator-    , mobKernelVersion-    , mobOS-    , mobName-    , mobModel-    , mobDeveloperOptionsStatus-    , mobUnknownSourcesStatus-    , mobMeid-    , mobBootLoaderVersion-    , mobDeviceId-    , mobFirstSync-    , mobUserAgent-    , mobImei-    , mobType-    , mobWifiMACAddress-    , mobEncryptionStatus-    , mobSerialNumber-    , mobDevicePasswordStatus-    , mobHardwareId-    , mobBasebandVersion-    , mobSupportsWorkProFile-    , mobHardware-    , mobDeviceCompromisedStatus-    , mobApplications-    , mobDefaultLanguage--    -- * ChromeOSDeviceCPUStatusReportsItem-    , ChromeOSDeviceCPUStatusReportsItem-    , chromeOSDeviceCPUStatusReportsItem-    , codcsriCPUUtilizationPercentageInfo-    , codcsriCPUTemperatureInfo-    , codcsriReportTime--    -- * Member-    , Member-    , member-    , memEmail-    , memStatus-    , memEtag-    , memKind-    , memDeliverySettings-    , memRole-    , memId-    , memType--    -- * AppAccessCollections-    , AppAccessCollections-    , appAccessCollections-    , aacEtag-    , aacResourceId-    , aacEnforceSettingsForAndroidDrive-    , aacResourceName-    , aacKind-    , aacTrustDomainOwnedApps-    , aacBlockedAPIAccessBuckets-    , aacErrorMessage--    -- * UserCustomProperties-    , UserCustomProperties-    , userCustomProperties-    , ucpAddtional--    -- * UserLanguage-    , UserLanguage-    , userLanguage-    , ulLanguageCode-    , ulCustomLanguage--    -- * Domains-    , Domains-    , domains-    , domCreationTime-    , domEtag-    , domKind-    , domDomainAliases-    , domVerified-    , domDomainName-    , domIsPrimary--    -- * CalendarResources-    , CalendarResources-    , calendarResources-    , crsEtag-    , crsNextPageToken-    , crsKind-    , crsItems--    -- * ChromeosDevicesListOrderBy-    , ChromeosDevicesListOrderBy (..)--    -- * UsersWatchProjection-    , UsersWatchProjection (..)--    -- * UsersWatchOrderBy-    , UsersWatchOrderBy (..)--    -- * Notifications-    , Notifications-    , notifications-    , notEtag-    , notNextPageToken-    , notKind-    , notItems-    , notUnreadNotificationsCount--    -- * ChromeosDevicesListProjection-    , ChromeosDevicesListProjection (..)--    -- * SchemaFieldSpecNumericIndexingSpec-    , SchemaFieldSpecNumericIndexingSpec-    , schemaFieldSpecNumericIndexingSpec-    , sfsnisMaxValue-    , sfsnisMinValue--    -- * MobileDeviceAction-    , MobileDeviceAction-    , mobileDeviceAction-    , mdaAction--    -- * SchemaFieldSpec-    , SchemaFieldSpec-    , schemaFieldSpec-    , sfsEtag-    , sfsKind-    , sfsNumericIndexingSpec-    , sfsReadAccessType-    , sfsFieldId-    , sfsIndexed-    , sfsFieldType-    , sfsFieldName-    , sfsDisplayName-    , sfsMultiValued--    -- * ChromeOSDevices-    , ChromeOSDevices-    , chromeOSDevices-    , cosdEtag-    , cosdNextPageToken-    , cosdKind-    , cosdChromeosDevices--    -- * MembersHasMember-    , MembersHasMember-    , membersHasMember-    , mhmIsMember--    -- * TrustedAppId-    , TrustedAppId-    , trustedAppId-    , taiCertificateHashSHA256-    , taiEtag-    , taiKind-    , taiCertificateHashSHA1-    , taiAndroidPackageName--    -- * UserExternalId-    , UserExternalId-    , userExternalId-    , ueiValue-    , ueiType-    , ueiCustomType--    -- * Asps-    , Asps-    , asps-    , aspEtag-    , aspKind-    , aspItems--    -- * ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem-    , ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem-    , chromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem-    , codcsrictiiTemperature-    , codcsrictiiLabel--    -- * UsersGetViewType-    , UsersGetViewType (..)--    -- * RoleRolePrivilegesItem-    , RoleRolePrivilegesItem-    , roleRolePrivilegesItem-    , rrpiServiceId-    , rrpiPrivilegeName--    -- * Domains2-    , Domains2-    , domains2-    , ddEtag-    , ddKind-    , ddDomains-    ) where--import           Network.Google.Directory.Types.Product-import           Network.Google.Directory.Types.Sum-import           Network.Google.Prelude---- | Default request referring to version 'directory_v1' of the Admin Directory API. This contains the host and root path used as a starting point for constructing service requests.-directoryService :: ServiceConfig-directoryService-  = defaultService (ServiceId "admin:directory_v1")-      "www.googleapis.com"---- | View delegated admin roles for your domain-adminDirectoryRoleManagementReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.rolemanagement.readonly"]-adminDirectoryRoleManagementReadOnlyScope = Proxy---- | View groups on your domain-adminDirectoryGroupReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.group.readonly"]-adminDirectoryGroupReadOnlyScope = Proxy---- | View your Chrome OS devices\' metadata-adminDirectoryDeviceChromeosReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.device.chromeos.readonly"]-adminDirectoryDeviceChromeosReadOnlyScope = Proxy---- | View and manage your Chrome OS devices\' metadata-adminDirectoryDeviceChromeosScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.device.chromeos"]-adminDirectoryDeviceChromeosScope = Proxy---- | View and manage the provisioning of users on your domain-adminDirectoryUserScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.user"]-adminDirectoryUserScope = Proxy---- | View group subscriptions on your domain-adminDirectoryGroupMemberReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.group.member.readonly"]-adminDirectoryGroupMemberReadOnlyScope = Proxy---- | View and manage user aliases on your domain-adminDirectoryUserAliasScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.user.alias"]-adminDirectoryUserAliasScope = Proxy---- | View and manage the provisioning of calendar resources on your domain-adminDirectoryResourceCalendarScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.resource.calendar"]-adminDirectoryResourceCalendarScope = Proxy---- | Manage your mobile devices by performing administrative tasks-adminDirectoryDeviceMobileActionScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.device.mobile.action"]-adminDirectoryDeviceMobileActionScope = Proxy---- | View calendar resources on your domain-adminDirectoryResourceCalendarReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.resource.calendar.readonly"]-adminDirectoryResourceCalendarReadOnlyScope = Proxy---- | View domains related to your customers-adminDirectoryDomainReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.domain.readonly"]-adminDirectoryDomainReadOnlyScope = Proxy---- | View and manage the provisioning of user schemas on your domain-adminDirectoryUserschemaScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.userschema"]-adminDirectoryUserschemaScope = Proxy---- | View user schemas on your domain-adminDirectoryUserschemaReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.userschema.readonly"]-adminDirectoryUserschemaReadOnlyScope = Proxy---- | View and manage the provisioning of domains for your customers-adminDirectoryDomainScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.domain"]-adminDirectoryDomainScope = Proxy---- | Manage delegated admin roles for your domain-adminDirectoryRoleManagementScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.rolemanagement"]-adminDirectoryRoleManagementScope = Proxy---- | View and manage the provisioning of groups on your domain-adminDirectoryGroupScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.group"]-adminDirectoryGroupScope = Proxy---- | View organization units on your domain-adminDirectoryOrgUnitReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.orgunit.readonly"]-adminDirectoryOrgUnitReadOnlyScope = Proxy---- | View and manage customer related information-adminDirectoryCustomerScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.customer"]-adminDirectoryCustomerScope = Proxy---- | View customer related information-adminDirectoryCustomerReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.customer.readonly"]-adminDirectoryCustomerReadOnlyScope = Proxy---- | View and manage organization units on your domain-adminDirectoryOrgUnitScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.orgunit"]-adminDirectoryOrgUnitScope = Proxy---- | View users on your domain-adminDirectoryUserReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.user.readonly"]-adminDirectoryUserReadOnlyScope = Proxy---- | View user aliases on your domain-adminDirectoryUserAliasReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.user.alias.readonly"]-adminDirectoryUserAliasReadOnlyScope = Proxy---- | Manage data access permissions for users on your domain-adminDirectoryUserSecurityScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.user.security"]-adminDirectoryUserSecurityScope = Proxy---- | View and manage group subscriptions on your domain-adminDirectoryGroupMemberScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.group.member"]-adminDirectoryGroupMemberScope = Proxy---- | View and manage notifications received on your domain-adminDirectoryNotificationsScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.notifications"]-adminDirectoryNotificationsScope = Proxy---- | View and manage your mobile devices\' metadata-adminDirectoryDeviceMobileScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.device.mobile"]-adminDirectoryDeviceMobileScope = Proxy---- | View your mobile devices\' metadata-adminDirectoryDeviceMobileReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.directory.device.mobile.readonly"]-adminDirectoryDeviceMobileReadOnlyScope = Proxy
− gen/Network/Google/Directory/Types/Product.hs 
@@ -1,8483 +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.Directory.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.Directory.Types.Product where--import           Network.Google.Directory.Types.Sum-import           Network.Google.Prelude---- | JSON template for a location entry.------ /See:/ 'userLocation' smart constructor.-data UserLocation =-  UserLocation'-    { _ulArea         :: !(Maybe Text)-    , _ulBuildingId   :: !(Maybe Text)-    , _ulDeskCode     :: !(Maybe Text)-    , _ulFloorName    :: !(Maybe Text)-    , _ulType         :: !(Maybe Text)-    , _ulCustomType   :: !(Maybe Text)-    , _ulFloorSection :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserLocation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ulArea'------ * 'ulBuildingId'------ * 'ulDeskCode'------ * 'ulFloorName'------ * 'ulType'------ * 'ulCustomType'------ * 'ulFloorSection'-userLocation-    :: UserLocation-userLocation =-  UserLocation'-    { _ulArea = Nothing-    , _ulBuildingId = Nothing-    , _ulDeskCode = Nothing-    , _ulFloorName = Nothing-    , _ulType = Nothing-    , _ulCustomType = Nothing-    , _ulFloorSection = Nothing-    }----- | Textual location. This is most useful for display purposes to concisely--- describe the location. For example, \"Mountain View, CA\", \"Near--- Seattle\", \"US-NYC-9TH 9A209A\".-ulArea :: Lens' UserLocation (Maybe Text)-ulArea = lens _ulArea (\ s a -> s{_ulArea = a})---- | Building Identifier.-ulBuildingId :: Lens' UserLocation (Maybe Text)-ulBuildingId-  = lens _ulBuildingId (\ s a -> s{_ulBuildingId = a})---- | Most specific textual code of individual desk location.-ulDeskCode :: Lens' UserLocation (Maybe Text)-ulDeskCode-  = lens _ulDeskCode (\ s a -> s{_ulDeskCode = a})---- | Floor name\/number.-ulFloorName :: Lens' UserLocation (Maybe Text)-ulFloorName-  = lens _ulFloorName (\ s a -> s{_ulFloorName = a})---- | Each entry can have a type which indicates standard types of that entry.--- For example location could be of types default and desk. In addition to--- standard type, an entry can have a custom type and can give it any name.--- Such types should have \"custom\" as type and also have a customType--- value.-ulType :: Lens' UserLocation (Maybe Text)-ulType = lens _ulType (\ s a -> s{_ulType = a})---- | Custom Type.-ulCustomType :: Lens' UserLocation (Maybe Text)-ulCustomType-  = lens _ulCustomType (\ s a -> s{_ulCustomType = a})---- | Floor section. More specific location within the floor. For example, if--- a floor is divided into sections \"A\", \"B\", and \"C\", this field--- would identify one of those values.-ulFloorSection :: Lens' UserLocation (Maybe Text)-ulFloorSection-  = lens _ulFloorSection-      (\ s a -> s{_ulFloorSection = a})--instance FromJSON UserLocation where-        parseJSON-          = withObject "UserLocation"-              (\ o ->-                 UserLocation' <$>-                   (o .:? "area") <*> (o .:? "buildingId") <*>-                     (o .:? "deskCode")-                     <*> (o .:? "floorName")-                     <*> (o .:? "type")-                     <*> (o .:? "customType")-                     <*> (o .:? "floorSection"))--instance ToJSON UserLocation where-        toJSON UserLocation'{..}-          = object-              (catMaybes-                 [("area" .=) <$> _ulArea,-                  ("buildingId" .=) <$> _ulBuildingId,-                  ("deskCode" .=) <$> _ulDeskCode,-                  ("floorName" .=) <$> _ulFloorName,-                  ("type" .=) <$> _ulType,-                  ("customType" .=) <$> _ulCustomType,-                  ("floorSection" .=) <$> _ulFloorSection])---- | JSON template for verification codes in Directory API.------ /See:/ 'verificationCode' smart constructor.-data VerificationCode =-  VerificationCode'-    { _vcVerificationCode :: !(Maybe Text)-    , _vcEtag             :: !(Maybe Text)-    , _vcKind             :: !Text-    , _vcUserId           :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VerificationCode' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vcVerificationCode'------ * 'vcEtag'------ * 'vcKind'------ * 'vcUserId'-verificationCode-    :: VerificationCode-verificationCode =-  VerificationCode'-    { _vcVerificationCode = Nothing-    , _vcEtag = Nothing-    , _vcKind = "admin#directory#verificationCode"-    , _vcUserId = Nothing-    }----- | A current verification code for the user. Invalidated or used--- verification codes are not returned as part of the result.-vcVerificationCode :: Lens' VerificationCode (Maybe Text)-vcVerificationCode-  = lens _vcVerificationCode-      (\ s a -> s{_vcVerificationCode = a})---- | ETag of the resource.-vcEtag :: Lens' VerificationCode (Maybe Text)-vcEtag = lens _vcEtag (\ s a -> s{_vcEtag = a})---- | The type of the resource. This is always--- admin#directory#verificationCode.-vcKind :: Lens' VerificationCode Text-vcKind = lens _vcKind (\ s a -> s{_vcKind = a})---- | The obfuscated unique ID of the user.-vcUserId :: Lens' VerificationCode (Maybe Text)-vcUserId = lens _vcUserId (\ s a -> s{_vcUserId = a})--instance FromJSON VerificationCode where-        parseJSON-          = withObject "VerificationCode"-              (\ o ->-                 VerificationCode' <$>-                   (o .:? "verificationCode") <*> (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#verificationCode")-                     <*> (o .:? "userId"))--instance ToJSON VerificationCode where-        toJSON VerificationCode'{..}-          = object-              (catMaybes-                 [("verificationCode" .=) <$> _vcVerificationCode,-                  ("etag" .=) <$> _vcEtag, Just ("kind" .= _vcKind),-                  ("userId" .=) <$> _vcUserId])---- | JSON template for Feature object in Directory API.------ /See:/ 'feature' smart constructor.-data Feature =-  Feature'-    { _fEtags :: !(Maybe Text)-    , _fKind  :: !Text-    , _fName  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Feature' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fEtags'------ * 'fKind'------ * 'fName'-feature-    :: Feature-feature =-  Feature'-    { _fEtags = Nothing-    , _fKind = "admin#directory#resources#features#Feature"-    , _fName = Nothing-    }----- | ETag of the resource.-fEtags :: Lens' Feature (Maybe Text)-fEtags = lens _fEtags (\ s a -> s{_fEtags = a})---- | Kind of resource this is.-fKind :: Lens' Feature Text-fKind = lens _fKind (\ s a -> s{_fKind = a})---- | The name of the feature.-fName :: Lens' Feature (Maybe Text)-fName = lens _fName (\ s a -> s{_fName = a})--instance FromJSON Feature where-        parseJSON-          = withObject "Feature"-              (\ o ->-                 Feature' <$>-                   (o .:? "etags") <*>-                     (o .:? "kind" .!=-                        "admin#directory#resources#features#Feature")-                     <*> (o .:? "name"))--instance ToJSON Feature where-        toJSON Feature'{..}-          = object-              (catMaybes-                 [("etags" .=) <$> _fEtags, Just ("kind" .= _fKind),-                  ("name" .=) <$> _fName])---- | JSON template for Org Unit resource in Directory API.------ /See:/ 'orgUnit' smart constructor.-data OrgUnit =-  OrgUnit'-    { _ouEtag              :: !(Maybe Text)-    , _ouParentOrgUnitPath :: !(Maybe Text)-    , _ouKind              :: !Text-    , _ouOrgUnitPath       :: !(Maybe Text)-    , _ouName              :: !(Maybe Text)-    , _ouBlockInheritance  :: !(Maybe Bool)-    , _ouParentOrgUnitId   :: !(Maybe Text)-    , _ouDescription       :: !(Maybe Text)-    , _ouOrgUnitId         :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OrgUnit' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ouEtag'------ * 'ouParentOrgUnitPath'------ * 'ouKind'------ * 'ouOrgUnitPath'------ * 'ouName'------ * 'ouBlockInheritance'------ * 'ouParentOrgUnitId'------ * 'ouDescription'------ * 'ouOrgUnitId'-orgUnit-    :: OrgUnit-orgUnit =-  OrgUnit'-    { _ouEtag = Nothing-    , _ouParentOrgUnitPath = Nothing-    , _ouKind = "admin#directory#orgUnit"-    , _ouOrgUnitPath = Nothing-    , _ouName = Nothing-    , _ouBlockInheritance = Nothing-    , _ouParentOrgUnitId = Nothing-    , _ouDescription = Nothing-    , _ouOrgUnitId = Nothing-    }----- | ETag of the resource.-ouEtag :: Lens' OrgUnit (Maybe Text)-ouEtag = lens _ouEtag (\ s a -> s{_ouEtag = a})---- | Path of parent OrgUnit-ouParentOrgUnitPath :: Lens' OrgUnit (Maybe Text)-ouParentOrgUnitPath-  = lens _ouParentOrgUnitPath-      (\ s a -> s{_ouParentOrgUnitPath = a})---- | Kind of resource this is.-ouKind :: Lens' OrgUnit Text-ouKind = lens _ouKind (\ s a -> s{_ouKind = a})---- | Path of OrgUnit-ouOrgUnitPath :: Lens' OrgUnit (Maybe Text)-ouOrgUnitPath-  = lens _ouOrgUnitPath-      (\ s a -> s{_ouOrgUnitPath = a})---- | Name of OrgUnit-ouName :: Lens' OrgUnit (Maybe Text)-ouName = lens _ouName (\ s a -> s{_ouName = a})---- | Should block inheritance-ouBlockInheritance :: Lens' OrgUnit (Maybe Bool)-ouBlockInheritance-  = lens _ouBlockInheritance-      (\ s a -> s{_ouBlockInheritance = a})---- | Id of parent OrgUnit-ouParentOrgUnitId :: Lens' OrgUnit (Maybe Text)-ouParentOrgUnitId-  = lens _ouParentOrgUnitId-      (\ s a -> s{_ouParentOrgUnitId = a})---- | Description of OrgUnit-ouDescription :: Lens' OrgUnit (Maybe Text)-ouDescription-  = lens _ouDescription-      (\ s a -> s{_ouDescription = a})---- | Id of OrgUnit-ouOrgUnitId :: Lens' OrgUnit (Maybe Text)-ouOrgUnitId-  = lens _ouOrgUnitId (\ s a -> s{_ouOrgUnitId = a})--instance FromJSON OrgUnit where-        parseJSON-          = withObject "OrgUnit"-              (\ o ->-                 OrgUnit' <$>-                   (o .:? "etag") <*> (o .:? "parentOrgUnitPath") <*>-                     (o .:? "kind" .!= "admin#directory#orgUnit")-                     <*> (o .:? "orgUnitPath")-                     <*> (o .:? "name")-                     <*> (o .:? "blockInheritance")-                     <*> (o .:? "parentOrgUnitId")-                     <*> (o .:? "description")-                     <*> (o .:? "orgUnitId"))--instance ToJSON OrgUnit where-        toJSON OrgUnit'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _ouEtag,-                  ("parentOrgUnitPath" .=) <$> _ouParentOrgUnitPath,-                  Just ("kind" .= _ouKind),-                  ("orgUnitPath" .=) <$> _ouOrgUnitPath,-                  ("name" .=) <$> _ouName,-                  ("blockInheritance" .=) <$> _ouBlockInheritance,-                  ("parentOrgUnitId" .=) <$> _ouParentOrgUnitId,-                  ("description" .=) <$> _ouDescription,-                  ("orgUnitId" .=) <$> _ouOrgUnitId])---- | JSON request template for setting\/revoking admin status of a user in--- Directory API.------ /See:/ 'userMakeAdmin' smart constructor.-newtype UserMakeAdmin =-  UserMakeAdmin'-    { _umaStatus :: Maybe Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserMakeAdmin' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'umaStatus'-userMakeAdmin-    :: UserMakeAdmin-userMakeAdmin = UserMakeAdmin' {_umaStatus = Nothing}----- | Boolean indicating new admin status of the user-umaStatus :: Lens' UserMakeAdmin (Maybe Bool)-umaStatus-  = lens _umaStatus (\ s a -> s{_umaStatus = a})--instance FromJSON UserMakeAdmin where-        parseJSON-          = withObject "UserMakeAdmin"-              (\ o -> UserMakeAdmin' <$> (o .:? "status"))--instance ToJSON UserMakeAdmin where-        toJSON UserMakeAdmin'{..}-          = object (catMaybes [("status" .=) <$> _umaStatus])---- | JSON template for About (notes) of a user in Directory API.------ /See:/ 'userAbout' smart constructor.-data UserAbout =-  UserAbout'-    { _uaValue       :: !(Maybe Text)-    , _uaContentType :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserAbout' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uaValue'------ * 'uaContentType'-userAbout-    :: UserAbout-userAbout = UserAbout' {_uaValue = Nothing, _uaContentType = Nothing}----- | Actual value of notes.-uaValue :: Lens' UserAbout (Maybe Text)-uaValue = lens _uaValue (\ s a -> s{_uaValue = a})---- | About entry can have a type which indicates the content type. It can--- either be plain or html. By default, notes contents are assumed to--- contain plain text.-uaContentType :: Lens' UserAbout (Maybe Text)-uaContentType-  = lens _uaContentType-      (\ s a -> s{_uaContentType = a})--instance FromJSON UserAbout where-        parseJSON-          = withObject "UserAbout"-              (\ o ->-                 UserAbout' <$>-                   (o .:? "value") <*> (o .:? "contentType"))--instance ToJSON UserAbout where-        toJSON UserAbout'{..}-          = object-              (catMaybes-                 [("value" .=) <$> _uaValue,-                  ("contentType" .=) <$> _uaContentType])---- | JSON response template for List privileges operation in Directory API.------ /See:/ 'privileges' smart constructor.-data Privileges =-  Privileges'-    { _pEtag  :: !(Maybe Text)-    , _pKind  :: !Text-    , _pItems :: !(Maybe [Privilege])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Privileges' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pEtag'------ * 'pKind'------ * 'pItems'-privileges-    :: Privileges-privileges =-  Privileges'-    {_pEtag = Nothing, _pKind = "admin#directory#privileges", _pItems = Nothing}----- | ETag of the resource.-pEtag :: Lens' Privileges (Maybe Text)-pEtag = lens _pEtag (\ s a -> s{_pEtag = a})---- | The type of the API resource. This is always admin#directory#privileges.-pKind :: Lens' Privileges Text-pKind = lens _pKind (\ s a -> s{_pKind = a})---- | A list of Privilege resources.-pItems :: Lens' Privileges [Privilege]-pItems-  = lens _pItems (\ s a -> s{_pItems = a}) . _Default .-      _Coerce--instance FromJSON Privileges where-        parseJSON-          = withObject "Privileges"-              (\ o ->-                 Privileges' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#privileges")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON Privileges where-        toJSON Privileges'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _pEtag, Just ("kind" .= _pKind),-                  ("items" .=) <$> _pItems])---- | JSON response template for List Groups operation in Directory API.------ /See:/ 'groups' smart constructor.-data Groups =-  Groups'-    { _gGroups        :: !(Maybe [Group])-    , _gEtag          :: !(Maybe Text)-    , _gNextPageToken :: !(Maybe Text)-    , _gKind          :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Groups' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gGroups'------ * 'gEtag'------ * 'gNextPageToken'------ * 'gKind'-groups-    :: Groups-groups =-  Groups'-    { _gGroups = Nothing-    , _gEtag = Nothing-    , _gNextPageToken = Nothing-    , _gKind = "admin#directory#groups"-    }----- | List of group objects.-gGroups :: Lens' Groups [Group]-gGroups-  = lens _gGroups (\ s a -> s{_gGroups = a}) . _Default-      . _Coerce---- | ETag of the resource.-gEtag :: Lens' Groups (Maybe Text)-gEtag = lens _gEtag (\ s a -> s{_gEtag = a})---- | Token used to access next page of this result.-gNextPageToken :: Lens' Groups (Maybe Text)-gNextPageToken-  = lens _gNextPageToken-      (\ s a -> s{_gNextPageToken = a})---- | Kind of resource this is.-gKind :: Lens' Groups Text-gKind = lens _gKind (\ s a -> s{_gKind = a})--instance FromJSON Groups where-        parseJSON-          = withObject "Groups"-              (\ o ->-                 Groups' <$>-                   (o .:? "groups" .!= mempty) <*> (o .:? "etag") <*>-                     (o .:? "nextPageToken")-                     <*> (o .:? "kind" .!= "admin#directory#groups"))--instance ToJSON Groups where-        toJSON Groups'{..}-          = object-              (catMaybes-                 [("groups" .=) <$> _gGroups, ("etag" .=) <$> _gEtag,-                  ("nextPageToken" .=) <$> _gNextPageToken,-                  Just ("kind" .= _gKind)])---- | JSON response template for List roleAssignments operation in Directory--- API.------ /See:/ 'roleAssignments' smart constructor.-data RoleAssignments =-  RoleAssignments'-    { _raEtag          :: !(Maybe Text)-    , _raNextPageToken :: !(Maybe Text)-    , _raKind          :: !Text-    , _raItems         :: !(Maybe [RoleAssignment])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RoleAssignments' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'raEtag'------ * 'raNextPageToken'------ * 'raKind'------ * 'raItems'-roleAssignments-    :: RoleAssignments-roleAssignments =-  RoleAssignments'-    { _raEtag = Nothing-    , _raNextPageToken = Nothing-    , _raKind = "admin#directory#roleAssignments"-    , _raItems = Nothing-    }----- | ETag of the resource.-raEtag :: Lens' RoleAssignments (Maybe Text)-raEtag = lens _raEtag (\ s a -> s{_raEtag = a})--raNextPageToken :: Lens' RoleAssignments (Maybe Text)-raNextPageToken-  = lens _raNextPageToken-      (\ s a -> s{_raNextPageToken = a})---- | The type of the API resource. This is always--- admin#directory#roleAssignments.-raKind :: Lens' RoleAssignments Text-raKind = lens _raKind (\ s a -> s{_raKind = a})---- | A list of RoleAssignment resources.-raItems :: Lens' RoleAssignments [RoleAssignment]-raItems-  = lens _raItems (\ s a -> s{_raItems = a}) . _Default-      . _Coerce--instance FromJSON RoleAssignments where-        parseJSON-          = withObject "RoleAssignments"-              (\ o ->-                 RoleAssignments' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "admin#directory#roleAssignments")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON RoleAssignments where-        toJSON RoleAssignments'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _raEtag,-                  ("nextPageToken" .=) <$> _raNextPageToken,-                  Just ("kind" .= _raKind), ("items" .=) <$> _raItems])---- | JSON template for privilege resource in Directory API.------ /See:/ 'privilege' smart constructor.-data Privilege =-  Privilege'-    { _priEtag            :: !(Maybe Text)-    , _priIsOuScopable    :: !(Maybe Bool)-    , _priKind            :: !Text-    , _priServiceName     :: !(Maybe Text)-    , _priServiceId       :: !(Maybe Text)-    , _priPrivilegeName   :: !(Maybe Text)-    , _priChildPrivileges :: !(Maybe [Privilege])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Privilege' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'priEtag'------ * 'priIsOuScopable'------ * 'priKind'------ * 'priServiceName'------ * 'priServiceId'------ * 'priPrivilegeName'------ * 'priChildPrivileges'-privilege-    :: Privilege-privilege =-  Privilege'-    { _priEtag = Nothing-    , _priIsOuScopable = Nothing-    , _priKind = "admin#directory#privilege"-    , _priServiceName = Nothing-    , _priServiceId = Nothing-    , _priPrivilegeName = Nothing-    , _priChildPrivileges = Nothing-    }----- | ETag of the resource.-priEtag :: Lens' Privilege (Maybe Text)-priEtag = lens _priEtag (\ s a -> s{_priEtag = a})---- | If the privilege can be restricted to an organization unit.-priIsOuScopable :: Lens' Privilege (Maybe Bool)-priIsOuScopable-  = lens _priIsOuScopable-      (\ s a -> s{_priIsOuScopable = a})---- | The type of the API resource. This is always admin#directory#privilege.-priKind :: Lens' Privilege Text-priKind = lens _priKind (\ s a -> s{_priKind = a})---- | The name of the service this privilege is for.-priServiceName :: Lens' Privilege (Maybe Text)-priServiceName-  = lens _priServiceName-      (\ s a -> s{_priServiceName = a})---- | The obfuscated ID of the service this privilege is for.-priServiceId :: Lens' Privilege (Maybe Text)-priServiceId-  = lens _priServiceId (\ s a -> s{_priServiceId = a})---- | The name of the privilege.-priPrivilegeName :: Lens' Privilege (Maybe Text)-priPrivilegeName-  = lens _priPrivilegeName-      (\ s a -> s{_priPrivilegeName = a})---- | A list of child privileges. Privileges for a service form a tree. Each--- privilege can have a list of child privileges; this list is empty for a--- leaf privilege.-priChildPrivileges :: Lens' Privilege [Privilege]-priChildPrivileges-  = lens _priChildPrivileges-      (\ s a -> s{_priChildPrivileges = a})-      . _Default-      . _Coerce--instance FromJSON Privilege where-        parseJSON-          = withObject "Privilege"-              (\ o ->-                 Privilege' <$>-                   (o .:? "etag") <*> (o .:? "isOuScopable") <*>-                     (o .:? "kind" .!= "admin#directory#privilege")-                     <*> (o .:? "serviceName")-                     <*> (o .:? "serviceId")-                     <*> (o .:? "privilegeName")-                     <*> (o .:? "childPrivileges" .!= mempty))--instance ToJSON Privilege where-        toJSON Privilege'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _priEtag,-                  ("isOuScopable" .=) <$> _priIsOuScopable,-                  Just ("kind" .= _priKind),-                  ("serviceName" .=) <$> _priServiceName,-                  ("serviceId" .=) <$> _priServiceId,-                  ("privilegeName" .=) <$> _priPrivilegeName,-                  ("childPrivileges" .=) <$> _priChildPrivileges])---- | JSON response template for List roles operation in Directory API.------ /See:/ 'roles' smart constructor.-data Roles =-  Roles'-    { _rEtag          :: !(Maybe Text)-    , _rNextPageToken :: !(Maybe Text)-    , _rKind          :: !Text-    , _rItems         :: !(Maybe [Role])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Roles' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rEtag'------ * 'rNextPageToken'------ * 'rKind'------ * 'rItems'-roles-    :: Roles-roles =-  Roles'-    { _rEtag = Nothing-    , _rNextPageToken = Nothing-    , _rKind = "admin#directory#roles"-    , _rItems = Nothing-    }----- | ETag of the resource.-rEtag :: Lens' Roles (Maybe Text)-rEtag = lens _rEtag (\ s a -> s{_rEtag = a})--rNextPageToken :: Lens' Roles (Maybe Text)-rNextPageToken-  = lens _rNextPageToken-      (\ s a -> s{_rNextPageToken = a})---- | The type of the API resource. This is always admin#directory#roles.-rKind :: Lens' Roles Text-rKind = lens _rKind (\ s a -> s{_rKind = a})---- | A list of Role resources.-rItems :: Lens' Roles [Role]-rItems-  = lens _rItems (\ s a -> s{_rItems = a}) . _Default .-      _Coerce--instance FromJSON Roles where-        parseJSON-          = withObject "Roles"-              (\ o ->-                 Roles' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "admin#directory#roles")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON Roles where-        toJSON Roles'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _rEtag,-                  ("nextPageToken" .=) <$> _rNextPageToken,-                  Just ("kind" .= _rKind), ("items" .=) <$> _rItems])------- /See:/ 'chromeOSDeviceDiskVolumeReportsItem' smart constructor.-newtype ChromeOSDeviceDiskVolumeReportsItem =-  ChromeOSDeviceDiskVolumeReportsItem'-    { _coddvriVolumeInfo :: Maybe [ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeOSDeviceDiskVolumeReportsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'coddvriVolumeInfo'-chromeOSDeviceDiskVolumeReportsItem-    :: ChromeOSDeviceDiskVolumeReportsItem-chromeOSDeviceDiskVolumeReportsItem =-  ChromeOSDeviceDiskVolumeReportsItem' {_coddvriVolumeInfo = Nothing}----- | Disk volumes-coddvriVolumeInfo :: Lens' ChromeOSDeviceDiskVolumeReportsItem [ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem]-coddvriVolumeInfo-  = lens _coddvriVolumeInfo-      (\ s a -> s{_coddvriVolumeInfo = a})-      . _Default-      . _Coerce--instance FromJSON ChromeOSDeviceDiskVolumeReportsItem-         where-        parseJSON-          = withObject "ChromeOSDeviceDiskVolumeReportsItem"-              (\ o ->-                 ChromeOSDeviceDiskVolumeReportsItem' <$>-                   (o .:? "volumeInfo" .!= mempty))--instance ToJSON ChromeOSDeviceDiskVolumeReportsItem-         where-        toJSON ChromeOSDeviceDiskVolumeReportsItem'{..}-          = object-              (catMaybes-                 [("volumeInfo" .=) <$> _coddvriVolumeInfo])---- | JSON template for address.------ /See:/ 'userAddress' smart constructor.-data UserAddress =-  UserAddress'-    { _uaStreetAddress      :: !(Maybe Text)-    , _uaPoBox              :: !(Maybe Text)-    , _uaCountry            :: !(Maybe Text)-    , _uaPostalCode         :: !(Maybe Text)-    , _uaFormatted          :: !(Maybe Text)-    , _uaExtendedAddress    :: !(Maybe Text)-    , _uaLocality           :: !(Maybe Text)-    , _uaPrimary            :: !(Maybe Bool)-    , _uaCountryCode        :: !(Maybe Text)-    , _uaRegion             :: !(Maybe Text)-    , _uaType               :: !(Maybe Text)-    , _uaCustomType         :: !(Maybe Text)-    , _uaSourceIsStructured :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserAddress' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uaStreetAddress'------ * 'uaPoBox'------ * 'uaCountry'------ * 'uaPostalCode'------ * 'uaFormatted'------ * 'uaExtendedAddress'------ * 'uaLocality'------ * 'uaPrimary'------ * 'uaCountryCode'------ * 'uaRegion'------ * 'uaType'------ * 'uaCustomType'------ * 'uaSourceIsStructured'-userAddress-    :: UserAddress-userAddress =-  UserAddress'-    { _uaStreetAddress = Nothing-    , _uaPoBox = Nothing-    , _uaCountry = Nothing-    , _uaPostalCode = Nothing-    , _uaFormatted = Nothing-    , _uaExtendedAddress = Nothing-    , _uaLocality = Nothing-    , _uaPrimary = Nothing-    , _uaCountryCode = Nothing-    , _uaRegion = Nothing-    , _uaType = Nothing-    , _uaCustomType = Nothing-    , _uaSourceIsStructured = Nothing-    }----- | Street.-uaStreetAddress :: Lens' UserAddress (Maybe Text)-uaStreetAddress-  = lens _uaStreetAddress-      (\ s a -> s{_uaStreetAddress = a})---- | Other parts of address.-uaPoBox :: Lens' UserAddress (Maybe Text)-uaPoBox = lens _uaPoBox (\ s a -> s{_uaPoBox = a})---- | Country.-uaCountry :: Lens' UserAddress (Maybe Text)-uaCountry-  = lens _uaCountry (\ s a -> s{_uaCountry = a})---- | Postal code.-uaPostalCode :: Lens' UserAddress (Maybe Text)-uaPostalCode-  = lens _uaPostalCode (\ s a -> s{_uaPostalCode = a})---- | Formatted address.-uaFormatted :: Lens' UserAddress (Maybe Text)-uaFormatted-  = lens _uaFormatted (\ s a -> s{_uaFormatted = a})---- | Extended Address.-uaExtendedAddress :: Lens' UserAddress (Maybe Text)-uaExtendedAddress-  = lens _uaExtendedAddress-      (\ s a -> s{_uaExtendedAddress = a})---- | Locality.-uaLocality :: Lens' UserAddress (Maybe Text)-uaLocality-  = lens _uaLocality (\ s a -> s{_uaLocality = a})---- | If this is user\'s primary address. Only one entry could be marked as--- primary.-uaPrimary :: Lens' UserAddress (Maybe Bool)-uaPrimary-  = lens _uaPrimary (\ s a -> s{_uaPrimary = a})---- | Country code.-uaCountryCode :: Lens' UserAddress (Maybe Text)-uaCountryCode-  = lens _uaCountryCode-      (\ s a -> s{_uaCountryCode = a})---- | Region.-uaRegion :: Lens' UserAddress (Maybe Text)-uaRegion = lens _uaRegion (\ s a -> s{_uaRegion = a})---- | Each entry can have a type which indicates standard values of that--- entry. For example address could be of home, work etc. In addition to--- the standard type, an entry can have a custom type and can take any--- value. Such type should have the CUSTOM value as type and also have a--- customType value.-uaType :: Lens' UserAddress (Maybe Text)-uaType = lens _uaType (\ s a -> s{_uaType = a})---- | Custom type.-uaCustomType :: Lens' UserAddress (Maybe Text)-uaCustomType-  = lens _uaCustomType (\ s a -> s{_uaCustomType = a})---- | User supplied address was structured. Structured addresses are NOT--- supported at this time. You might be able to write structured addresses,--- but any values will eventually be clobbered.-uaSourceIsStructured :: Lens' UserAddress (Maybe Bool)-uaSourceIsStructured-  = lens _uaSourceIsStructured-      (\ s a -> s{_uaSourceIsStructured = a})--instance FromJSON UserAddress where-        parseJSON-          = withObject "UserAddress"-              (\ o ->-                 UserAddress' <$>-                   (o .:? "streetAddress") <*> (o .:? "poBox") <*>-                     (o .:? "country")-                     <*> (o .:? "postalCode")-                     <*> (o .:? "formatted")-                     <*> (o .:? "extendedAddress")-                     <*> (o .:? "locality")-                     <*> (o .:? "primary")-                     <*> (o .:? "countryCode")-                     <*> (o .:? "region")-                     <*> (o .:? "type")-                     <*> (o .:? "customType")-                     <*> (o .:? "sourceIsStructured"))--instance ToJSON UserAddress where-        toJSON UserAddress'{..}-          = object-              (catMaybes-                 [("streetAddress" .=) <$> _uaStreetAddress,-                  ("poBox" .=) <$> _uaPoBox,-                  ("country" .=) <$> _uaCountry,-                  ("postalCode" .=) <$> _uaPostalCode,-                  ("formatted" .=) <$> _uaFormatted,-                  ("extendedAddress" .=) <$> _uaExtendedAddress,-                  ("locality" .=) <$> _uaLocality,-                  ("primary" .=) <$> _uaPrimary,-                  ("countryCode" .=) <$> _uaCountryCode,-                  ("region" .=) <$> _uaRegion, ("type" .=) <$> _uaType,-                  ("customType" .=) <$> _uaCustomType,-                  ("sourceIsStructured" .=) <$> _uaSourceIsStructured])---- | JSON template for postal address of a customer.------ /See:/ 'customerPostalAddress' smart constructor.-data CustomerPostalAddress =-  CustomerPostalAddress'-    { _cpaOrganizationName :: !(Maybe Text)-    , _cpaPostalCode       :: !(Maybe Text)-    , _cpaAddressLine1     :: !(Maybe Text)-    , _cpaLocality         :: !(Maybe Text)-    , _cpaContactName      :: !(Maybe Text)-    , _cpaAddressLine2     :: !(Maybe Text)-    , _cpaCountryCode      :: !(Maybe Text)-    , _cpaRegion           :: !(Maybe Text)-    , _cpaAddressLine3     :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomerPostalAddress' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpaOrganizationName'------ * 'cpaPostalCode'------ * 'cpaAddressLine1'------ * 'cpaLocality'------ * 'cpaContactName'------ * 'cpaAddressLine2'------ * 'cpaCountryCode'------ * 'cpaRegion'------ * 'cpaAddressLine3'-customerPostalAddress-    :: CustomerPostalAddress-customerPostalAddress =-  CustomerPostalAddress'-    { _cpaOrganizationName = Nothing-    , _cpaPostalCode = Nothing-    , _cpaAddressLine1 = Nothing-    , _cpaLocality = Nothing-    , _cpaContactName = Nothing-    , _cpaAddressLine2 = Nothing-    , _cpaCountryCode = Nothing-    , _cpaRegion = Nothing-    , _cpaAddressLine3 = Nothing-    }----- | The company or company division name.-cpaOrganizationName :: Lens' CustomerPostalAddress (Maybe Text)-cpaOrganizationName-  = lens _cpaOrganizationName-      (\ s a -> s{_cpaOrganizationName = a})---- | The postal code. A postalCode example is a postal zip code such as--- 10009. This is in accordance with ---- http:\/\/portablecontacts.net\/draft-spec.html#address_element.-cpaPostalCode :: Lens' CustomerPostalAddress (Maybe Text)-cpaPostalCode-  = lens _cpaPostalCode-      (\ s a -> s{_cpaPostalCode = a})---- | A customer\'s physical address. The address can be composed of one to--- three lines.-cpaAddressLine1 :: Lens' CustomerPostalAddress (Maybe Text)-cpaAddressLine1-  = lens _cpaAddressLine1-      (\ s a -> s{_cpaAddressLine1 = a})---- | Name of the locality. An example of a locality value is the city of San--- Francisco.-cpaLocality :: Lens' CustomerPostalAddress (Maybe Text)-cpaLocality-  = lens _cpaLocality (\ s a -> s{_cpaLocality = a})---- | The customer contact\'s name.-cpaContactName :: Lens' CustomerPostalAddress (Maybe Text)-cpaContactName-  = lens _cpaContactName-      (\ s a -> s{_cpaContactName = a})---- | Address line 2 of the address.-cpaAddressLine2 :: Lens' CustomerPostalAddress (Maybe Text)-cpaAddressLine2-  = lens _cpaAddressLine2-      (\ s a -> s{_cpaAddressLine2 = a})---- | This is a required property. For countryCode information see the ISO--- 3166 country code elements.-cpaCountryCode :: Lens' CustomerPostalAddress (Maybe Text)-cpaCountryCode-  = lens _cpaCountryCode-      (\ s a -> s{_cpaCountryCode = a})---- | Name of the region. An example of a region value is NY for the state of--- New York.-cpaRegion :: Lens' CustomerPostalAddress (Maybe Text)-cpaRegion-  = lens _cpaRegion (\ s a -> s{_cpaRegion = a})---- | Address line 3 of the address.-cpaAddressLine3 :: Lens' CustomerPostalAddress (Maybe Text)-cpaAddressLine3-  = lens _cpaAddressLine3-      (\ s a -> s{_cpaAddressLine3 = a})--instance FromJSON CustomerPostalAddress where-        parseJSON-          = withObject "CustomerPostalAddress"-              (\ o ->-                 CustomerPostalAddress' <$>-                   (o .:? "organizationName") <*> (o .:? "postalCode")-                     <*> (o .:? "addressLine1")-                     <*> (o .:? "locality")-                     <*> (o .:? "contactName")-                     <*> (o .:? "addressLine2")-                     <*> (o .:? "countryCode")-                     <*> (o .:? "region")-                     <*> (o .:? "addressLine3"))--instance ToJSON CustomerPostalAddress where-        toJSON CustomerPostalAddress'{..}-          = object-              (catMaybes-                 [("organizationName" .=) <$> _cpaOrganizationName,-                  ("postalCode" .=) <$> _cpaPostalCode,-                  ("addressLine1" .=) <$> _cpaAddressLine1,-                  ("locality" .=) <$> _cpaLocality,-                  ("contactName" .=) <$> _cpaContactName,-                  ("addressLine2" .=) <$> _cpaAddressLine2,-                  ("countryCode" .=) <$> _cpaCountryCode,-                  ("region" .=) <$> _cpaRegion,-                  ("addressLine3" .=) <$> _cpaAddressLine3])---- | JSON template for roleAssignment resource in Directory API.------ /See:/ 'roleAssignment' smart constructor.-data RoleAssignment =-  RoleAssignment'-    { _rolEtag             :: !(Maybe Text)-    , _rolScopeType        :: !(Maybe Text)-    , _rolKind             :: !Text-    , _rolAssignedTo       :: !(Maybe Text)-    , _rolRoleId           :: !(Maybe (Textual Int64))-    , _rolRoleAssignmentId :: !(Maybe (Textual Int64))-    , _rolOrgUnitId        :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RoleAssignment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rolEtag'------ * 'rolScopeType'------ * 'rolKind'------ * 'rolAssignedTo'------ * 'rolRoleId'------ * 'rolRoleAssignmentId'------ * 'rolOrgUnitId'-roleAssignment-    :: RoleAssignment-roleAssignment =-  RoleAssignment'-    { _rolEtag = Nothing-    , _rolScopeType = Nothing-    , _rolKind = "admin#directory#roleAssignment"-    , _rolAssignedTo = Nothing-    , _rolRoleId = Nothing-    , _rolRoleAssignmentId = Nothing-    , _rolOrgUnitId = Nothing-    }----- | ETag of the resource.-rolEtag :: Lens' RoleAssignment (Maybe Text)-rolEtag = lens _rolEtag (\ s a -> s{_rolEtag = a})---- | The scope in which this role is assigned. Possible values are: ---- CUSTOMER - ORG_UNIT-rolScopeType :: Lens' RoleAssignment (Maybe Text)-rolScopeType-  = lens _rolScopeType (\ s a -> s{_rolScopeType = a})---- | The type of the API resource. This is always--- admin#directory#roleAssignment.-rolKind :: Lens' RoleAssignment Text-rolKind = lens _rolKind (\ s a -> s{_rolKind = a})---- | The unique ID of the user this role is assigned to.-rolAssignedTo :: Lens' RoleAssignment (Maybe Text)-rolAssignedTo-  = lens _rolAssignedTo-      (\ s a -> s{_rolAssignedTo = a})---- | The ID of the role that is assigned.-rolRoleId :: Lens' RoleAssignment (Maybe Int64)-rolRoleId-  = lens _rolRoleId (\ s a -> s{_rolRoleId = a}) .-      mapping _Coerce---- | ID of this roleAssignment.-rolRoleAssignmentId :: Lens' RoleAssignment (Maybe Int64)-rolRoleAssignmentId-  = lens _rolRoleAssignmentId-      (\ s a -> s{_rolRoleAssignmentId = a})-      . mapping _Coerce---- | If the role is restricted to an organization unit, this contains the ID--- for the organization unit the exercise of this role is restricted to.-rolOrgUnitId :: Lens' RoleAssignment (Maybe Text)-rolOrgUnitId-  = lens _rolOrgUnitId (\ s a -> s{_rolOrgUnitId = a})--instance FromJSON RoleAssignment where-        parseJSON-          = withObject "RoleAssignment"-              (\ o ->-                 RoleAssignment' <$>-                   (o .:? "etag") <*> (o .:? "scopeType") <*>-                     (o .:? "kind" .!= "admin#directory#roleAssignment")-                     <*> (o .:? "assignedTo")-                     <*> (o .:? "roleId")-                     <*> (o .:? "roleAssignmentId")-                     <*> (o .:? "orgUnitId"))--instance ToJSON RoleAssignment where-        toJSON RoleAssignment'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _rolEtag,-                  ("scopeType" .=) <$> _rolScopeType,-                  Just ("kind" .= _rolKind),-                  ("assignedTo" .=) <$> _rolAssignedTo,-                  ("roleId" .=) <$> _rolRoleId,-                  ("roleAssignmentId" .=) <$> _rolRoleAssignmentId,-                  ("orgUnitId" .=) <$> _rolOrgUnitId])---- | JSON template for Group resource in Directory API.------ /See:/ 'group'' smart constructor.-data Group =-  Group'-    { _groEmail              :: !(Maybe Text)-    , _groEtag               :: !(Maybe Text)-    , _groDirectMembersCount :: !(Maybe (Textual Int64))-    , _groKind               :: !Text-    , _groAliases            :: !(Maybe [Text])-    , _groNonEditableAliases :: !(Maybe [Text])-    , _groName               :: !(Maybe Text)-    , _groAdminCreated       :: !(Maybe Bool)-    , _groId                 :: !(Maybe Text)-    , _groDescription        :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Group' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'groEmail'------ * 'groEtag'------ * 'groDirectMembersCount'------ * 'groKind'------ * 'groAliases'------ * 'groNonEditableAliases'------ * 'groName'------ * 'groAdminCreated'------ * 'groId'------ * 'groDescription'-group'-    :: Group-group' =-  Group'-    { _groEmail = Nothing-    , _groEtag = Nothing-    , _groDirectMembersCount = Nothing-    , _groKind = "admin#directory#group"-    , _groAliases = Nothing-    , _groNonEditableAliases = Nothing-    , _groName = Nothing-    , _groAdminCreated = Nothing-    , _groId = Nothing-    , _groDescription = Nothing-    }----- | Email of Group-groEmail :: Lens' Group (Maybe Text)-groEmail = lens _groEmail (\ s a -> s{_groEmail = a})---- | ETag of the resource.-groEtag :: Lens' Group (Maybe Text)-groEtag = lens _groEtag (\ s a -> s{_groEtag = a})---- | Group direct members count-groDirectMembersCount :: Lens' Group (Maybe Int64)-groDirectMembersCount-  = lens _groDirectMembersCount-      (\ s a -> s{_groDirectMembersCount = a})-      . mapping _Coerce---- | Kind of resource this is.-groKind :: Lens' Group Text-groKind = lens _groKind (\ s a -> s{_groKind = a})---- | List of aliases (Read-only)-groAliases :: Lens' Group [Text]-groAliases-  = lens _groAliases (\ s a -> s{_groAliases = a}) .-      _Default-      . _Coerce---- | List of non editable aliases (Read-only)-groNonEditableAliases :: Lens' Group [Text]-groNonEditableAliases-  = lens _groNonEditableAliases-      (\ s a -> s{_groNonEditableAliases = a})-      . _Default-      . _Coerce---- | Group name-groName :: Lens' Group (Maybe Text)-groName = lens _groName (\ s a -> s{_groName = a})---- | Is the group created by admin (Read-only) *-groAdminCreated :: Lens' Group (Maybe Bool)-groAdminCreated-  = lens _groAdminCreated-      (\ s a -> s{_groAdminCreated = a})---- | Unique identifier of Group (Read-only)-groId :: Lens' Group (Maybe Text)-groId = lens _groId (\ s a -> s{_groId = a})---- | Description of the group-groDescription :: Lens' Group (Maybe Text)-groDescription-  = lens _groDescription-      (\ s a -> s{_groDescription = a})--instance FromJSON Group where-        parseJSON-          = withObject "Group"-              (\ o ->-                 Group' <$>-                   (o .:? "email") <*> (o .:? "etag") <*>-                     (o .:? "directMembersCount")-                     <*> (o .:? "kind" .!= "admin#directory#group")-                     <*> (o .:? "aliases" .!= mempty)-                     <*> (o .:? "nonEditableAliases" .!= mempty)-                     <*> (o .:? "name")-                     <*> (o .:? "adminCreated")-                     <*> (o .:? "id")-                     <*> (o .:? "description"))--instance ToJSON Group where-        toJSON Group'{..}-          = object-              (catMaybes-                 [("email" .=) <$> _groEmail,-                  ("etag" .=) <$> _groEtag,-                  ("directMembersCount" .=) <$> _groDirectMembersCount,-                  Just ("kind" .= _groKind),-                  ("aliases" .=) <$> _groAliases,-                  ("nonEditableAliases" .=) <$> _groNonEditableAliases,-                  ("name" .=) <$> _groName,-                  ("adminCreated" .=) <$> _groAdminCreated,-                  ("id" .=) <$> _groId,-                  ("description" .=) <$> _groDescription])---- | JSON template for Chrome Os Device resource in Directory API.------ /See:/ 'chromeOSDevice' smart constructor.-data ChromeOSDevice =-  ChromeOSDevice'-    { _codStatus               :: !(Maybe Text)-    , _codEtag                 :: !(Maybe Text)-    , _codCPUStatusReports     :: !(Maybe [ChromeOSDeviceCPUStatusReportsItem])-    , _codAnnotatedUser        :: !(Maybe Text)-    , _codSystemRamFreeReports :: !(Maybe [ChromeOSDeviceSystemRamFreeReportsItem])-    , _codPlatformVersion      :: !(Maybe Text)-    , _codLastSync             :: !(Maybe DateTime')-    , _codActiveTimeRanges     :: !(Maybe [ChromeOSDeviceActiveTimeRangesItem])-    , _codKind                 :: !Text-    , _codEthernetMACAddress   :: !(Maybe Text)-    , _codLastEnrollmentTime   :: !(Maybe DateTime')-    , _codAnnotatedLocation    :: !(Maybe Text)-    , _codMACAddress           :: !(Maybe Text)-    , _codOrgUnitPath          :: !(Maybe Text)-    , _codRecentUsers          :: !(Maybe [ChromeOSDeviceRecentUsersItem])-    , _codSupportEndDate       :: !(Maybe DateTime')-    , _codModel                :: !(Maybe Text)-    , _codWillAutoRenew        :: !(Maybe Bool)-    , _codMeid                 :: !(Maybe Text)-    , _codDeviceFiles          :: !(Maybe [ChromeOSDeviceDeviceFilesItem])-    , _codDeviceId             :: !(Maybe Text)-    , _codBootMode             :: !(Maybe Text)-    , _codTpmVersionInfo       :: !(Maybe ChromeOSDeviceTpmVersionInfo)-    , _codOrderNumber          :: !(Maybe Text)-    , _codDiskVolumeReports    :: !(Maybe [ChromeOSDeviceDiskVolumeReportsItem])-    , _codAnnotatedAssetId     :: !(Maybe Text)-    , _codNotes                :: !(Maybe Text)-    , _codSerialNumber         :: !(Maybe Text)-    , _codFirmwareVersion      :: !(Maybe Text)-    , _codOSVersion            :: !(Maybe Text)-    , _codSystemRamTotal       :: !(Maybe (Textual Int64))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeOSDevice' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'codStatus'------ * 'codEtag'------ * 'codCPUStatusReports'------ * 'codAnnotatedUser'------ * 'codSystemRamFreeReports'------ * 'codPlatformVersion'------ * 'codLastSync'------ * 'codActiveTimeRanges'------ * 'codKind'------ * 'codEthernetMACAddress'------ * 'codLastEnrollmentTime'------ * 'codAnnotatedLocation'------ * 'codMACAddress'------ * 'codOrgUnitPath'------ * 'codRecentUsers'------ * 'codSupportEndDate'------ * 'codModel'------ * 'codWillAutoRenew'------ * 'codMeid'------ * 'codDeviceFiles'------ * 'codDeviceId'------ * 'codBootMode'------ * 'codTpmVersionInfo'------ * 'codOrderNumber'------ * 'codDiskVolumeReports'------ * 'codAnnotatedAssetId'------ * 'codNotes'------ * 'codSerialNumber'------ * 'codFirmwareVersion'------ * 'codOSVersion'------ * 'codSystemRamTotal'-chromeOSDevice-    :: ChromeOSDevice-chromeOSDevice =-  ChromeOSDevice'-    { _codStatus = Nothing-    , _codEtag = Nothing-    , _codCPUStatusReports = Nothing-    , _codAnnotatedUser = Nothing-    , _codSystemRamFreeReports = Nothing-    , _codPlatformVersion = Nothing-    , _codLastSync = Nothing-    , _codActiveTimeRanges = Nothing-    , _codKind = "admin#directory#chromeosdevice"-    , _codEthernetMACAddress = Nothing-    , _codLastEnrollmentTime = Nothing-    , _codAnnotatedLocation = Nothing-    , _codMACAddress = Nothing-    , _codOrgUnitPath = Nothing-    , _codRecentUsers = Nothing-    , _codSupportEndDate = Nothing-    , _codModel = Nothing-    , _codWillAutoRenew = Nothing-    , _codMeid = Nothing-    , _codDeviceFiles = Nothing-    , _codDeviceId = Nothing-    , _codBootMode = Nothing-    , _codTpmVersionInfo = Nothing-    , _codOrderNumber = Nothing-    , _codDiskVolumeReports = Nothing-    , _codAnnotatedAssetId = Nothing-    , _codNotes = Nothing-    , _codSerialNumber = Nothing-    , _codFirmwareVersion = Nothing-    , _codOSVersion = Nothing-    , _codSystemRamTotal = Nothing-    }----- | status of the device (Read-only)-codStatus :: Lens' ChromeOSDevice (Maybe Text)-codStatus-  = lens _codStatus (\ s a -> s{_codStatus = a})---- | ETag of the resource.-codEtag :: Lens' ChromeOSDevice (Maybe Text)-codEtag = lens _codEtag (\ s a -> s{_codEtag = a})---- | Reports of CPU utilization and temperature (Read-only)-codCPUStatusReports :: Lens' ChromeOSDevice [ChromeOSDeviceCPUStatusReportsItem]-codCPUStatusReports-  = lens _codCPUStatusReports-      (\ s a -> s{_codCPUStatusReports = a})-      . _Default-      . _Coerce---- | User of the device-codAnnotatedUser :: Lens' ChromeOSDevice (Maybe Text)-codAnnotatedUser-  = lens _codAnnotatedUser-      (\ s a -> s{_codAnnotatedUser = a})---- | Reports of amounts of available RAM memory (Read-only)-codSystemRamFreeReports :: Lens' ChromeOSDevice [ChromeOSDeviceSystemRamFreeReportsItem]-codSystemRamFreeReports-  = lens _codSystemRamFreeReports-      (\ s a -> s{_codSystemRamFreeReports = a})-      . _Default-      . _Coerce---- | Chromebook platform version (Read-only)-codPlatformVersion :: Lens' ChromeOSDevice (Maybe Text)-codPlatformVersion-  = lens _codPlatformVersion-      (\ s a -> s{_codPlatformVersion = a})---- | Date and time the device was last synchronized with the policy settings--- in the G Suite administrator control panel (Read-only)-codLastSync :: Lens' ChromeOSDevice (Maybe UTCTime)-codLastSync-  = lens _codLastSync (\ s a -> s{_codLastSync = a}) .-      mapping _DateTime---- | List of active time ranges (Read-only)-codActiveTimeRanges :: Lens' ChromeOSDevice [ChromeOSDeviceActiveTimeRangesItem]-codActiveTimeRanges-  = lens _codActiveTimeRanges-      (\ s a -> s{_codActiveTimeRanges = a})-      . _Default-      . _Coerce---- | Kind of resource this is.-codKind :: Lens' ChromeOSDevice Text-codKind = lens _codKind (\ s a -> s{_codKind = a})---- | Chromebook Mac Address on ethernet network interface (Read-only)-codEthernetMACAddress :: Lens' ChromeOSDevice (Maybe Text)-codEthernetMACAddress-  = lens _codEthernetMACAddress-      (\ s a -> s{_codEthernetMACAddress = a})---- | Date and time the device was last enrolled (Read-only)-codLastEnrollmentTime :: Lens' ChromeOSDevice (Maybe UTCTime)-codLastEnrollmentTime-  = lens _codLastEnrollmentTime-      (\ s a -> s{_codLastEnrollmentTime = a})-      . mapping _DateTime---- | Address or location of the device as noted by the administrator-codAnnotatedLocation :: Lens' ChromeOSDevice (Maybe Text)-codAnnotatedLocation-  = lens _codAnnotatedLocation-      (\ s a -> s{_codAnnotatedLocation = a})---- | Chromebook Mac Address on wifi network interface (Read-only)-codMACAddress :: Lens' ChromeOSDevice (Maybe Text)-codMACAddress-  = lens _codMACAddress-      (\ s a -> s{_codMACAddress = a})---- | OrgUnit of the device-codOrgUnitPath :: Lens' ChromeOSDevice (Maybe Text)-codOrgUnitPath-  = lens _codOrgUnitPath-      (\ s a -> s{_codOrgUnitPath = a})---- | List of recent device users, in descending order by last login time--- (Read-only)-codRecentUsers :: Lens' ChromeOSDevice [ChromeOSDeviceRecentUsersItem]-codRecentUsers-  = lens _codRecentUsers-      (\ s a -> s{_codRecentUsers = a})-      . _Default-      . _Coerce---- | Final date the device will be supported (Read-only)-codSupportEndDate :: Lens' ChromeOSDevice (Maybe UTCTime)-codSupportEndDate-  = lens _codSupportEndDate-      (\ s a -> s{_codSupportEndDate = a})-      . mapping _DateTime---- | Chromebook Model (Read-only)-codModel :: Lens' ChromeOSDevice (Maybe Text)-codModel = lens _codModel (\ s a -> s{_codModel = a})---- | Will Chromebook auto renew after support end date (Read-only)-codWillAutoRenew :: Lens' ChromeOSDevice (Maybe Bool)-codWillAutoRenew-  = lens _codWillAutoRenew-      (\ s a -> s{_codWillAutoRenew = a})---- | Mobile Equipment identifier for the 3G mobile card in the Chromebook--- (Read-only)-codMeid :: Lens' ChromeOSDevice (Maybe Text)-codMeid = lens _codMeid (\ s a -> s{_codMeid = a})---- | List of device files to download (Read-only)-codDeviceFiles :: Lens' ChromeOSDevice [ChromeOSDeviceDeviceFilesItem]-codDeviceFiles-  = lens _codDeviceFiles-      (\ s a -> s{_codDeviceFiles = a})-      . _Default-      . _Coerce---- | Unique identifier of Chrome OS Device (Read-only)-codDeviceId :: Lens' ChromeOSDevice (Maybe Text)-codDeviceId-  = lens _codDeviceId (\ s a -> s{_codDeviceId = a})---- | Chromebook boot mode (Read-only)-codBootMode :: Lens' ChromeOSDevice (Maybe Text)-codBootMode-  = lens _codBootMode (\ s a -> s{_codBootMode = a})---- | Trusted Platform Module (TPM) (Read-only)-codTpmVersionInfo :: Lens' ChromeOSDevice (Maybe ChromeOSDeviceTpmVersionInfo)-codTpmVersionInfo-  = lens _codTpmVersionInfo-      (\ s a -> s{_codTpmVersionInfo = a})---- | Chromebook order number (Read-only)-codOrderNumber :: Lens' ChromeOSDevice (Maybe Text)-codOrderNumber-  = lens _codOrderNumber-      (\ s a -> s{_codOrderNumber = a})---- | Reports of disk space and other info about mounted\/connected volumes.-codDiskVolumeReports :: Lens' ChromeOSDevice [ChromeOSDeviceDiskVolumeReportsItem]-codDiskVolumeReports-  = lens _codDiskVolumeReports-      (\ s a -> s{_codDiskVolumeReports = a})-      . _Default-      . _Coerce---- | AssetId specified during enrollment or through later annotation-codAnnotatedAssetId :: Lens' ChromeOSDevice (Maybe Text)-codAnnotatedAssetId-  = lens _codAnnotatedAssetId-      (\ s a -> s{_codAnnotatedAssetId = a})---- | Notes added by the administrator-codNotes :: Lens' ChromeOSDevice (Maybe Text)-codNotes = lens _codNotes (\ s a -> s{_codNotes = a})---- | Chromebook serial number (Read-only)-codSerialNumber :: Lens' ChromeOSDevice (Maybe Text)-codSerialNumber-  = lens _codSerialNumber-      (\ s a -> s{_codSerialNumber = a})---- | Chromebook firmware version (Read-only)-codFirmwareVersion :: Lens' ChromeOSDevice (Maybe Text)-codFirmwareVersion-  = lens _codFirmwareVersion-      (\ s a -> s{_codFirmwareVersion = a})---- | Chromebook Os Version (Read-only)-codOSVersion :: Lens' ChromeOSDevice (Maybe Text)-codOSVersion-  = lens _codOSVersion (\ s a -> s{_codOSVersion = a})---- | Total RAM on the device [in bytes] (Read-only)-codSystemRamTotal :: Lens' ChromeOSDevice (Maybe Int64)-codSystemRamTotal-  = lens _codSystemRamTotal-      (\ s a -> s{_codSystemRamTotal = a})-      . mapping _Coerce--instance FromJSON ChromeOSDevice where-        parseJSON-          = withObject "ChromeOSDevice"-              (\ o ->-                 ChromeOSDevice' <$>-                   (o .:? "status") <*> (o .:? "etag") <*>-                     (o .:? "cpuStatusReports" .!= mempty)-                     <*> (o .:? "annotatedUser")-                     <*> (o .:? "systemRamFreeReports" .!= mempty)-                     <*> (o .:? "platformVersion")-                     <*> (o .:? "lastSync")-                     <*> (o .:? "activeTimeRanges" .!= mempty)-                     <*>-                     (o .:? "kind" .!= "admin#directory#chromeosdevice")-                     <*> (o .:? "ethernetMacAddress")-                     <*> (o .:? "lastEnrollmentTime")-                     <*> (o .:? "annotatedLocation")-                     <*> (o .:? "macAddress")-                     <*> (o .:? "orgUnitPath")-                     <*> (o .:? "recentUsers" .!= mempty)-                     <*> (o .:? "supportEndDate")-                     <*> (o .:? "model")-                     <*> (o .:? "willAutoRenew")-                     <*> (o .:? "meid")-                     <*> (o .:? "deviceFiles" .!= mempty)-                     <*> (o .:? "deviceId")-                     <*> (o .:? "bootMode")-                     <*> (o .:? "tpmVersionInfo")-                     <*> (o .:? "orderNumber")-                     <*> (o .:? "diskVolumeReports" .!= mempty)-                     <*> (o .:? "annotatedAssetId")-                     <*> (o .:? "notes")-                     <*> (o .:? "serialNumber")-                     <*> (o .:? "firmwareVersion")-                     <*> (o .:? "osVersion")-                     <*> (o .:? "systemRamTotal"))--instance ToJSON ChromeOSDevice where-        toJSON ChromeOSDevice'{..}-          = object-              (catMaybes-                 [("status" .=) <$> _codStatus,-                  ("etag" .=) <$> _codEtag,-                  ("cpuStatusReports" .=) <$> _codCPUStatusReports,-                  ("annotatedUser" .=) <$> _codAnnotatedUser,-                  ("systemRamFreeReports" .=) <$>-                    _codSystemRamFreeReports,-                  ("platformVersion" .=) <$> _codPlatformVersion,-                  ("lastSync" .=) <$> _codLastSync,-                  ("activeTimeRanges" .=) <$> _codActiveTimeRanges,-                  Just ("kind" .= _codKind),-                  ("ethernetMacAddress" .=) <$> _codEthernetMACAddress,-                  ("lastEnrollmentTime" .=) <$> _codLastEnrollmentTime,-                  ("annotatedLocation" .=) <$> _codAnnotatedLocation,-                  ("macAddress" .=) <$> _codMACAddress,-                  ("orgUnitPath" .=) <$> _codOrgUnitPath,-                  ("recentUsers" .=) <$> _codRecentUsers,-                  ("supportEndDate" .=) <$> _codSupportEndDate,-                  ("model" .=) <$> _codModel,-                  ("willAutoRenew" .=) <$> _codWillAutoRenew,-                  ("meid" .=) <$> _codMeid,-                  ("deviceFiles" .=) <$> _codDeviceFiles,-                  ("deviceId" .=) <$> _codDeviceId,-                  ("bootMode" .=) <$> _codBootMode,-                  ("tpmVersionInfo" .=) <$> _codTpmVersionInfo,-                  ("orderNumber" .=) <$> _codOrderNumber,-                  ("diskVolumeReports" .=) <$> _codDiskVolumeReports,-                  ("annotatedAssetId" .=) <$> _codAnnotatedAssetId,-                  ("notes" .=) <$> _codNotes,-                  ("serialNumber" .=) <$> _codSerialNumber,-                  ("firmwareVersion" .=) <$> _codFirmwareVersion,-                  ("osVersion" .=) <$> _codOSVersion,-                  ("systemRamTotal" .=) <$> _codSystemRamTotal])---- | JSON response template for List Users operation in Apps Directory API.------ /See:/ 'users' smart constructor.-data Users =-  Users'-    { _uEtag          :: !(Maybe Text)-    , _uNextPageToken :: !(Maybe Text)-    , _uUsers         :: !(Maybe [User])-    , _uKind          :: !Text-    , _uTriggerEvent  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Users' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uEtag'------ * 'uNextPageToken'------ * 'uUsers'------ * 'uKind'------ * 'uTriggerEvent'-users-    :: Users-users =-  Users'-    { _uEtag = Nothing-    , _uNextPageToken = Nothing-    , _uUsers = Nothing-    , _uKind = "admin#directory#users"-    , _uTriggerEvent = Nothing-    }----- | ETag of the resource.-uEtag :: Lens' Users (Maybe Text)-uEtag = lens _uEtag (\ s a -> s{_uEtag = a})---- | Token used to access next page of this result.-uNextPageToken :: Lens' Users (Maybe Text)-uNextPageToken-  = lens _uNextPageToken-      (\ s a -> s{_uNextPageToken = a})---- | List of user objects.-uUsers :: Lens' Users [User]-uUsers-  = lens _uUsers (\ s a -> s{_uUsers = a}) . _Default .-      _Coerce---- | Kind of resource this is.-uKind :: Lens' Users Text-uKind = lens _uKind (\ s a -> s{_uKind = a})---- | Event that triggered this response (only used in case of Push Response)-uTriggerEvent :: Lens' Users (Maybe Text)-uTriggerEvent-  = lens _uTriggerEvent-      (\ s a -> s{_uTriggerEvent = a})--instance FromJSON Users where-        parseJSON-          = withObject "Users"-              (\ o ->-                 Users' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "users" .!= mempty)-                     <*> (o .:? "kind" .!= "admin#directory#users")-                     <*> (o .:? "trigger_event"))--instance ToJSON Users where-        toJSON Users'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _uEtag,-                  ("nextPageToken" .=) <$> _uNextPageToken,-                  ("users" .=) <$> _uUsers, Just ("kind" .= _uKind),-                  ("trigger_event" .=) <$> _uTriggerEvent])---- | The template that returns individual ASP (Access Code) data.------ /See:/ 'asp' smart constructor.-data Asp =-  Asp'-    { _aCreationTime :: !(Maybe (Textual Int64))-    , _aEtag         :: !(Maybe Text)-    , _aCodeId       :: !(Maybe (Textual Int32))-    , _aKind         :: !Text-    , _aName         :: !(Maybe Text)-    , _aLastTimeUsed :: !(Maybe (Textual Int64))-    , _aUserKey      :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Asp' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aCreationTime'------ * 'aEtag'------ * 'aCodeId'------ * 'aKind'------ * 'aName'------ * 'aLastTimeUsed'------ * 'aUserKey'-asp-    :: Asp-asp =-  Asp'-    { _aCreationTime = Nothing-    , _aEtag = Nothing-    , _aCodeId = Nothing-    , _aKind = "admin#directory#asp"-    , _aName = Nothing-    , _aLastTimeUsed = Nothing-    , _aUserKey = Nothing-    }----- | The time when the ASP was created. Expressed in Unix time format.-aCreationTime :: Lens' Asp (Maybe Int64)-aCreationTime-  = lens _aCreationTime-      (\ s a -> s{_aCreationTime = a})-      . mapping _Coerce---- | ETag of the ASP.-aEtag :: Lens' Asp (Maybe Text)-aEtag = lens _aEtag (\ s a -> s{_aEtag = a})---- | The unique ID of the ASP.-aCodeId :: Lens' Asp (Maybe Int32)-aCodeId-  = lens _aCodeId (\ s a -> s{_aCodeId = a}) .-      mapping _Coerce---- | The type of the API resource. This is always admin#directory#asp.-aKind :: Lens' Asp Text-aKind = lens _aKind (\ s a -> s{_aKind = a})---- | The name of the application that the user, represented by their userId,--- entered when the ASP was created.-aName :: Lens' Asp (Maybe Text)-aName = lens _aName (\ s a -> s{_aName = a})---- | The time when the ASP was last used. Expressed in Unix time format.-aLastTimeUsed :: Lens' Asp (Maybe Int64)-aLastTimeUsed-  = lens _aLastTimeUsed-      (\ s a -> s{_aLastTimeUsed = a})-      . mapping _Coerce---- | The unique ID of the user who issued the ASP.-aUserKey :: Lens' Asp (Maybe Text)-aUserKey = lens _aUserKey (\ s a -> s{_aUserKey = a})--instance FromJSON Asp where-        parseJSON-          = withObject "Asp"-              (\ o ->-                 Asp' <$>-                   (o .:? "creationTime") <*> (o .:? "etag") <*>-                     (o .:? "codeId")-                     <*> (o .:? "kind" .!= "admin#directory#asp")-                     <*> (o .:? "name")-                     <*> (o .:? "lastTimeUsed")-                     <*> (o .:? "userKey"))--instance ToJSON Asp where-        toJSON Asp'{..}-          = object-              (catMaybes-                 [("creationTime" .=) <$> _aCreationTime,-                  ("etag" .=) <$> _aEtag, ("codeId" .=) <$> _aCodeId,-                  Just ("kind" .= _aKind), ("name" .=) <$> _aName,-                  ("lastTimeUsed" .=) <$> _aLastTimeUsed,-                  ("userKey" .=) <$> _aUserKey])---- | JSON response template for List Schema operation in Directory API.------ /See:/ 'schemas' smart constructor.-data Schemas =-  Schemas'-    { _sEtag    :: !(Maybe Text)-    , _sSchemas :: !(Maybe [Schema])-    , _sKind    :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Schemas' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sEtag'------ * 'sSchemas'------ * 'sKind'-schemas-    :: Schemas-schemas =-  Schemas'-    {_sEtag = Nothing, _sSchemas = Nothing, _sKind = "admin#directory#schemas"}----- | ETag of the resource.-sEtag :: Lens' Schemas (Maybe Text)-sEtag = lens _sEtag (\ s a -> s{_sEtag = a})---- | List of UserSchema objects.-sSchemas :: Lens' Schemas [Schema]-sSchemas-  = lens _sSchemas (\ s a -> s{_sSchemas = a}) .-      _Default-      . _Coerce---- | Kind of resource this is.-sKind :: Lens' Schemas Text-sKind = lens _sKind (\ s a -> s{_sKind = a})--instance FromJSON Schemas where-        parseJSON-          = withObject "Schemas"-              (\ o ->-                 Schemas' <$>-                   (o .:? "etag") <*> (o .:? "schemas" .!= mempty) <*>-                     (o .:? "kind" .!= "admin#directory#schemas"))--instance ToJSON Schemas where-        toJSON Schemas'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _sEtag,-                  ("schemas" .=) <$> _sSchemas,-                  Just ("kind" .= _sKind)])------- /See:/ 'chromeOSDeviceDeviceFilesItem' smart constructor.-data ChromeOSDeviceDeviceFilesItem =-  ChromeOSDeviceDeviceFilesItem'-    { _coddfiName        :: !(Maybe Text)-    , _coddfiDownloadURL :: !(Maybe Text)-    , _coddfiType        :: !(Maybe Text)-    , _coddfiCreateTime  :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeOSDeviceDeviceFilesItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'coddfiName'------ * 'coddfiDownloadURL'------ * 'coddfiType'------ * 'coddfiCreateTime'-chromeOSDeviceDeviceFilesItem-    :: ChromeOSDeviceDeviceFilesItem-chromeOSDeviceDeviceFilesItem =-  ChromeOSDeviceDeviceFilesItem'-    { _coddfiName = Nothing-    , _coddfiDownloadURL = Nothing-    , _coddfiType = Nothing-    , _coddfiCreateTime = Nothing-    }----- | File name-coddfiName :: Lens' ChromeOSDeviceDeviceFilesItem (Maybe Text)-coddfiName-  = lens _coddfiName (\ s a -> s{_coddfiName = a})---- | File download URL-coddfiDownloadURL :: Lens' ChromeOSDeviceDeviceFilesItem (Maybe Text)-coddfiDownloadURL-  = lens _coddfiDownloadURL-      (\ s a -> s{_coddfiDownloadURL = a})---- | File type-coddfiType :: Lens' ChromeOSDeviceDeviceFilesItem (Maybe Text)-coddfiType-  = lens _coddfiType (\ s a -> s{_coddfiType = a})---- | Date and time the file was created-coddfiCreateTime :: Lens' ChromeOSDeviceDeviceFilesItem (Maybe UTCTime)-coddfiCreateTime-  = lens _coddfiCreateTime-      (\ s a -> s{_coddfiCreateTime = a})-      . mapping _DateTime--instance FromJSON ChromeOSDeviceDeviceFilesItem where-        parseJSON-          = withObject "ChromeOSDeviceDeviceFilesItem"-              (\ o ->-                 ChromeOSDeviceDeviceFilesItem' <$>-                   (o .:? "name") <*> (o .:? "downloadUrl") <*>-                     (o .:? "type")-                     <*> (o .:? "createTime"))--instance ToJSON ChromeOSDeviceDeviceFilesItem where-        toJSON ChromeOSDeviceDeviceFilesItem'{..}-          = object-              (catMaybes-                 [("name" .=) <$> _coddfiName,-                  ("downloadUrl" .=) <$> _coddfiDownloadURL,-                  ("type" .=) <$> _coddfiType,-                  ("createTime" .=) <$> _coddfiCreateTime])---- | JSON template for Building List Response object in Directory API.------ /See:/ 'buildings' smart constructor.-data Buildings =-  Buildings'-    { _bEtag          :: !(Maybe Text)-    , _bNextPageToken :: !(Maybe Text)-    , _bBuildings     :: !(Maybe [Building])-    , _bKind          :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Buildings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bEtag'------ * 'bNextPageToken'------ * 'bBuildings'------ * 'bKind'-buildings-    :: Buildings-buildings =-  Buildings'-    { _bEtag = Nothing-    , _bNextPageToken = Nothing-    , _bBuildings = Nothing-    , _bKind = "admin#directory#resources#buildings#buildingsList"-    }----- | ETag of the resource.-bEtag :: Lens' Buildings (Maybe Text)-bEtag = lens _bEtag (\ s a -> s{_bEtag = a})---- | The continuation token, used to page through large result sets. Provide--- this value in a subsequent request to return the next page of results.-bNextPageToken :: Lens' Buildings (Maybe Text)-bNextPageToken-  = lens _bNextPageToken-      (\ s a -> s{_bNextPageToken = a})---- | The Buildings in this page of results.-bBuildings :: Lens' Buildings [Building]-bBuildings-  = lens _bBuildings (\ s a -> s{_bBuildings = a}) .-      _Default-      . _Coerce---- | Kind of resource this is.-bKind :: Lens' Buildings Text-bKind = lens _bKind (\ s a -> s{_bKind = a})--instance FromJSON Buildings where-        parseJSON-          = withObject "Buildings"-              (\ o ->-                 Buildings' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "buildings" .!= mempty)-                     <*>-                     (o .:? "kind" .!=-                        "admin#directory#resources#buildings#buildingsList"))--instance ToJSON Buildings where-        toJSON Buildings'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _bEtag,-                  ("nextPageToken" .=) <$> _bNextPageToken,-                  ("buildings" .=) <$> _bBuildings,-                  Just ("kind" .= _bKind)])---- | Template for a notification resource.------ /See:/ 'notification' smart constructor.-data Notification =-  Notification'-    { _nSubject        :: !(Maybe Text)-    , _nEtag           :: !(Maybe Text)-    , _nKind           :: !Text-    , _nBody           :: !(Maybe Text)-    , _nFromAddress    :: !(Maybe Text)-    , _nIsUnread       :: !(Maybe Bool)-    , _nNotificationId :: !(Maybe Text)-    , _nSendTime       :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Notification' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'nSubject'------ * 'nEtag'------ * 'nKind'------ * 'nBody'------ * 'nFromAddress'------ * 'nIsUnread'------ * 'nNotificationId'------ * 'nSendTime'-notification-    :: Notification-notification =-  Notification'-    { _nSubject = Nothing-    , _nEtag = Nothing-    , _nKind = "admin#directory#notification"-    , _nBody = Nothing-    , _nFromAddress = Nothing-    , _nIsUnread = Nothing-    , _nNotificationId = Nothing-    , _nSendTime = Nothing-    }----- | Subject of the notification (Read-only)-nSubject :: Lens' Notification (Maybe Text)-nSubject = lens _nSubject (\ s a -> s{_nSubject = a})---- | ETag of the resource.-nEtag :: Lens' Notification (Maybe Text)-nEtag = lens _nEtag (\ s a -> s{_nEtag = a})---- | The type of the resource.-nKind :: Lens' Notification Text-nKind = lens _nKind (\ s a -> s{_nKind = a})---- | Body of the notification (Read-only)-nBody :: Lens' Notification (Maybe Text)-nBody = lens _nBody (\ s a -> s{_nBody = a})---- | Address from which the notification is received (Read-only)-nFromAddress :: Lens' Notification (Maybe Text)-nFromAddress-  = lens _nFromAddress (\ s a -> s{_nFromAddress = a})---- | Boolean indicating whether the notification is unread or not.-nIsUnread :: Lens' Notification (Maybe Bool)-nIsUnread-  = lens _nIsUnread (\ s a -> s{_nIsUnread = a})--nNotificationId :: Lens' Notification (Maybe Text)-nNotificationId-  = lens _nNotificationId-      (\ s a -> s{_nNotificationId = a})---- | Time at which notification was sent (Read-only)-nSendTime :: Lens' Notification (Maybe UTCTime)-nSendTime-  = lens _nSendTime (\ s a -> s{_nSendTime = a}) .-      mapping _DateTime--instance FromJSON Notification where-        parseJSON-          = withObject "Notification"-              (\ o ->-                 Notification' <$>-                   (o .:? "subject") <*> (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#notification")-                     <*> (o .:? "body")-                     <*> (o .:? "fromAddress")-                     <*> (o .:? "isUnread")-                     <*> (o .:? "notificationId")-                     <*> (o .:? "sendTime"))--instance ToJSON Notification where-        toJSON Notification'{..}-          = object-              (catMaybes-                 [("subject" .=) <$> _nSubject,-                  ("etag" .=) <$> _nEtag, Just ("kind" .= _nKind),-                  ("body" .=) <$> _nBody,-                  ("fromAddress" .=) <$> _nFromAddress,-                  ("isUnread" .=) <$> _nIsUnread,-                  ("notificationId" .=) <$> _nNotificationId,-                  ("sendTime" .=) <$> _nSendTime])---- | JSON template for instant messenger of an user.------ /See:/ 'userIm' smart constructor.-data UserIm =-  UserIm'-    { _uiIm             :: !(Maybe Text)-    , _uiProtocol       :: !(Maybe Text)-    , _uiPrimary        :: !(Maybe Bool)-    , _uiCustomProtocol :: !(Maybe Text)-    , _uiType           :: !(Maybe Text)-    , _uiCustomType     :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserIm' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uiIm'------ * 'uiProtocol'------ * 'uiPrimary'------ * 'uiCustomProtocol'------ * 'uiType'------ * 'uiCustomType'-userIm-    :: UserIm-userIm =-  UserIm'-    { _uiIm = Nothing-    , _uiProtocol = Nothing-    , _uiPrimary = Nothing-    , _uiCustomProtocol = Nothing-    , _uiType = Nothing-    , _uiCustomType = Nothing-    }----- | Instant messenger id.-uiIm :: Lens' UserIm (Maybe Text)-uiIm = lens _uiIm (\ s a -> s{_uiIm = a})---- | Protocol used in the instant messenger. It should be one of the values--- from ImProtocolTypes map. Similar to type, it can take a CUSTOM value--- and specify the custom name in customProtocol field.-uiProtocol :: Lens' UserIm (Maybe Text)-uiProtocol-  = lens _uiProtocol (\ s a -> s{_uiProtocol = a})---- | If this is user\'s primary im. Only one entry could be marked as--- primary.-uiPrimary :: Lens' UserIm (Maybe Bool)-uiPrimary-  = lens _uiPrimary (\ s a -> s{_uiPrimary = a})---- | Custom protocol.-uiCustomProtocol :: Lens' UserIm (Maybe Text)-uiCustomProtocol-  = lens _uiCustomProtocol-      (\ s a -> s{_uiCustomProtocol = a})---- | Each entry can have a type which indicates standard types of that entry.--- For example instant messengers could be of home, work etc. In addition--- to the standard type, an entry can have a custom type and can take any--- value. Such types should have the CUSTOM value as type and also have a--- customType value.-uiType :: Lens' UserIm (Maybe Text)-uiType = lens _uiType (\ s a -> s{_uiType = a})---- | Custom type.-uiCustomType :: Lens' UserIm (Maybe Text)-uiCustomType-  = lens _uiCustomType (\ s a -> s{_uiCustomType = a})--instance FromJSON UserIm where-        parseJSON-          = withObject "UserIm"-              (\ o ->-                 UserIm' <$>-                   (o .:? "im") <*> (o .:? "protocol") <*>-                     (o .:? "primary")-                     <*> (o .:? "customProtocol")-                     <*> (o .:? "type")-                     <*> (o .:? "customType"))--instance ToJSON UserIm where-        toJSON UserIm'{..}-          = object-              (catMaybes-                 [("im" .=) <$> _uiIm,-                  ("protocol" .=) <$> _uiProtocol,-                  ("primary" .=) <$> _uiPrimary,-                  ("customProtocol" .=) <$> _uiCustomProtocol,-                  ("type" .=) <$> _uiType,-                  ("customType" .=) <$> _uiCustomType])---- | JSON template for the postal address of a building in Directory API.------ /See:/ 'buildingAddress' smart constructor.-data BuildingAddress =-  BuildingAddress'-    { _baLanguageCode       :: !(Maybe Text)-    , _baRegionCode         :: !(Maybe Text)-    , _baSublocality        :: !(Maybe Text)-    , _baPostalCode         :: !(Maybe Text)-    , _baLocality           :: !(Maybe Text)-    , _baAdministrativeArea :: !(Maybe Text)-    , _baAddressLines       :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'BuildingAddress' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'baLanguageCode'------ * 'baRegionCode'------ * 'baSublocality'------ * 'baPostalCode'------ * 'baLocality'------ * 'baAdministrativeArea'------ * 'baAddressLines'-buildingAddress-    :: BuildingAddress-buildingAddress =-  BuildingAddress'-    { _baLanguageCode = Nothing-    , _baRegionCode = Nothing-    , _baSublocality = Nothing-    , _baPostalCode = Nothing-    , _baLocality = Nothing-    , _baAdministrativeArea = Nothing-    , _baAddressLines = Nothing-    }----- | Optional. BCP-47 language code of the contents of this address (if--- known).-baLanguageCode :: Lens' BuildingAddress (Maybe Text)-baLanguageCode-  = lens _baLanguageCode-      (\ s a -> s{_baLanguageCode = a})---- | Required. CLDR region code of the country\/region of the address.-baRegionCode :: Lens' BuildingAddress (Maybe Text)-baRegionCode-  = lens _baRegionCode (\ s a -> s{_baRegionCode = a})---- | Optional. Sublocality of the address.-baSublocality :: Lens' BuildingAddress (Maybe Text)-baSublocality-  = lens _baSublocality-      (\ s a -> s{_baSublocality = a})---- | Optional. Postal code of the address.-baPostalCode :: Lens' BuildingAddress (Maybe Text)-baPostalCode-  = lens _baPostalCode (\ s a -> s{_baPostalCode = a})---- | Optional. Generally refers to the city\/town portion of the address.--- Examples: US city, IT comune, UK post town. In regions of the world--- where localities are not well defined or do not fit into this structure--- well, leave locality empty and use addressLines.-baLocality :: Lens' BuildingAddress (Maybe Text)-baLocality-  = lens _baLocality (\ s a -> s{_baLocality = a})---- | Optional. Highest administrative subdivision which is used for postal--- addresses of a country or region.-baAdministrativeArea :: Lens' BuildingAddress (Maybe Text)-baAdministrativeArea-  = lens _baAdministrativeArea-      (\ s a -> s{_baAdministrativeArea = a})---- | Unstructured address lines describing the lower levels of an address.-baAddressLines :: Lens' BuildingAddress [Text]-baAddressLines-  = lens _baAddressLines-      (\ s a -> s{_baAddressLines = a})-      . _Default-      . _Coerce--instance FromJSON BuildingAddress where-        parseJSON-          = withObject "BuildingAddress"-              (\ o ->-                 BuildingAddress' <$>-                   (o .:? "languageCode") <*> (o .:? "regionCode") <*>-                     (o .:? "sublocality")-                     <*> (o .:? "postalCode")-                     <*> (o .:? "locality")-                     <*> (o .:? "administrativeArea")-                     <*> (o .:? "addressLines" .!= mempty))--instance ToJSON BuildingAddress where-        toJSON BuildingAddress'{..}-          = object-              (catMaybes-                 [("languageCode" .=) <$> _baLanguageCode,-                  ("regionCode" .=) <$> _baRegionCode,-                  ("sublocality" .=) <$> _baSublocality,-                  ("postalCode" .=) <$> _baPostalCode,-                  ("locality" .=) <$> _baLocality,-                  ("administrativeArea" .=) <$> _baAdministrativeArea,-                  ("addressLines" .=) <$> _baAddressLines])---- | JSON response template for List tokens operation in Directory API.------ /See:/ 'tokens' smart constructor.-data Tokens =-  Tokens'-    { _tEtag  :: !(Maybe Text)-    , _tKind  :: !Text-    , _tItems :: !(Maybe [Token])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Tokens' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tEtag'------ * 'tKind'------ * 'tItems'-tokens-    :: Tokens-tokens =-  Tokens'-    {_tEtag = Nothing, _tKind = "admin#directory#tokenList", _tItems = Nothing}----- | ETag of the resource.-tEtag :: Lens' Tokens (Maybe Text)-tEtag = lens _tEtag (\ s a -> s{_tEtag = a})---- | The type of the API resource. This is always admin#directory#tokenList.-tKind :: Lens' Tokens Text-tKind = lens _tKind (\ s a -> s{_tKind = a})---- | A list of Token resources.-tItems :: Lens' Tokens [Token]-tItems-  = lens _tItems (\ s a -> s{_tItems = a}) . _Default .-      _Coerce--instance FromJSON Tokens where-        parseJSON-          = withObject "Tokens"-              (\ o ->-                 Tokens' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#tokenList")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON Tokens where-        toJSON Tokens'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _tEtag, Just ("kind" .= _tKind),-                  ("items" .=) <$> _tItems])---- | Custom fields of the user.------ /See:/ 'userCustomSchemas' smart constructor.-newtype UserCustomSchemas =-  UserCustomSchemas'-    { _ucsAddtional :: HashMap Text UserCustomProperties-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserCustomSchemas' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ucsAddtional'-userCustomSchemas-    :: HashMap Text UserCustomProperties -- ^ 'ucsAddtional'-    -> UserCustomSchemas-userCustomSchemas pUcsAddtional_ =-  UserCustomSchemas' {_ucsAddtional = _Coerce # pUcsAddtional_}---ucsAddtional :: Lens' UserCustomSchemas (HashMap Text UserCustomProperties)-ucsAddtional-  = lens _ucsAddtional (\ s a -> s{_ucsAddtional = a})-      . _Coerce--instance FromJSON UserCustomSchemas where-        parseJSON-          = withObject "UserCustomSchemas"-              (\ o -> UserCustomSchemas' <$> (parseJSONObject o))--instance ToJSON UserCustomSchemas where-        toJSON = toJSON . _ucsAddtional---- | JSON template for a keyword entry.------ /See:/ 'userKeyword' smart constructor.-data UserKeyword =-  UserKeyword'-    { _ukValue      :: !(Maybe Text)-    , _ukType       :: !(Maybe Text)-    , _ukCustomType :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserKeyword' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ukValue'------ * 'ukType'------ * 'ukCustomType'-userKeyword-    :: UserKeyword-userKeyword =-  UserKeyword' {_ukValue = Nothing, _ukType = Nothing, _ukCustomType = Nothing}----- | Keyword.-ukValue :: Lens' UserKeyword (Maybe Text)-ukValue = lens _ukValue (\ s a -> s{_ukValue = a})---- | Each entry can have a type which indicates standard type of that entry.--- For example, keyword could be of type occupation or outlook. In addition--- to the standard type, an entry can have a custom type and can give it--- any name. Such types should have the CUSTOM value as type and also have--- a customType value.-ukType :: Lens' UserKeyword (Maybe Text)-ukType = lens _ukType (\ s a -> s{_ukType = a})---- | Custom Type.-ukCustomType :: Lens' UserKeyword (Maybe Text)-ukCustomType-  = lens _ukCustomType (\ s a -> s{_ukCustomType = a})--instance FromJSON UserKeyword where-        parseJSON-          = withObject "UserKeyword"-              (\ o ->-                 UserKeyword' <$>-                   (o .:? "value") <*> (o .:? "type") <*>-                     (o .:? "customType"))--instance ToJSON UserKeyword where-        toJSON UserKeyword'{..}-          = object-              (catMaybes-                 [("value" .=) <$> _ukValue, ("type" .=) <$> _ukType,-                  ("customType" .=) <$> _ukCustomType])---- | JSON response template to list domain aliases in Directory API.------ /See:/ 'domainAliases' smart constructor.-data DomainAliases =-  DomainAliases'-    { _daEtag          :: !(Maybe Text)-    , _daKind          :: !Text-    , _daDomainAliases :: !(Maybe [DomainAlias])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DomainAliases' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'daEtag'------ * 'daKind'------ * 'daDomainAliases'-domainAliases-    :: DomainAliases-domainAliases =-  DomainAliases'-    { _daEtag = Nothing-    , _daKind = "admin#directory#domainAliases"-    , _daDomainAliases = Nothing-    }----- | ETag of the resource.-daEtag :: Lens' DomainAliases (Maybe Text)-daEtag = lens _daEtag (\ s a -> s{_daEtag = a})---- | Kind of resource this is.-daKind :: Lens' DomainAliases Text-daKind = lens _daKind (\ s a -> s{_daKind = a})---- | List of domain alias objects.-daDomainAliases :: Lens' DomainAliases [DomainAlias]-daDomainAliases-  = lens _daDomainAliases-      (\ s a -> s{_daDomainAliases = a})-      . _Default-      . _Coerce--instance FromJSON DomainAliases where-        parseJSON-          = withObject "DomainAliases"-              (\ o ->-                 DomainAliases' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#domainAliases")-                     <*> (o .:? "domainAliases" .!= mempty))--instance ToJSON DomainAliases where-        toJSON DomainAliases'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _daEtag, Just ("kind" .= _daKind),-                  ("domainAliases" .=) <$> _daDomainAliases])---- | JSON response template to list aliases in Directory API.------ /See:/ 'aliases' smart constructor.-data Aliases =-  Aliases'-    { _aliEtag    :: !(Maybe Text)-    , _aliKind    :: !Text-    , _aliAliases :: !(Maybe [JSONValue])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Aliases' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aliEtag'------ * 'aliKind'------ * 'aliAliases'-aliases-    :: Aliases-aliases =-  Aliases'-    { _aliEtag = Nothing-    , _aliKind = "admin#directory#aliases"-    , _aliAliases = Nothing-    }----- | ETag of the resource.-aliEtag :: Lens' Aliases (Maybe Text)-aliEtag = lens _aliEtag (\ s a -> s{_aliEtag = a})---- | Kind of resource this is.-aliKind :: Lens' Aliases Text-aliKind = lens _aliKind (\ s a -> s{_aliKind = a})---- | List of alias objects.-aliAliases :: Lens' Aliases [JSONValue]-aliAliases-  = lens _aliAliases (\ s a -> s{_aliAliases = a}) .-      _Default-      . _Coerce--instance FromJSON Aliases where-        parseJSON-          = withObject "Aliases"-              (\ o ->-                 Aliases' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#aliases")-                     <*> (o .:? "aliases" .!= mempty))--instance ToJSON Aliases where-        toJSON Aliases'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _aliEtag, Just ("kind" .= _aliKind),-                  ("aliases" .=) <$> _aliAliases])---- | JSON template for Calendar Resource object in Directory API.------ /See:/ 'calendarResource' smart constructor.-data CalendarResource =-  CalendarResource'-    { _crEtags                  :: !(Maybe Text)-    , _crResourceId             :: !(Maybe Text)-    , _crResourceType           :: !(Maybe Text)-    , _crResourceName           :: !(Maybe Text)-    , _crKind                   :: !Text-    , _crBuildingId             :: !(Maybe Text)-    , _crFeatureInstances       :: !(Maybe JSONValue)-    , _crResourceEmail          :: !(Maybe Text)-    , _crCapacity               :: !(Maybe (Textual Int32))-    , _crResourceDescription    :: !(Maybe Text)-    , _crFloorName              :: !(Maybe Text)-    , _crGeneratedResourceName  :: !(Maybe Text)-    , _crResourceCategory       :: !(Maybe Text)-    , _crFloorSection           :: !(Maybe Text)-    , _crUserVisibleDescription :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CalendarResource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'crEtags'------ * 'crResourceId'------ * 'crResourceType'------ * 'crResourceName'------ * 'crKind'------ * 'crBuildingId'------ * 'crFeatureInstances'------ * 'crResourceEmail'------ * 'crCapacity'------ * 'crResourceDescription'------ * 'crFloorName'------ * 'crGeneratedResourceName'------ * 'crResourceCategory'------ * 'crFloorSection'------ * 'crUserVisibleDescription'-calendarResource-    :: CalendarResource-calendarResource =-  CalendarResource'-    { _crEtags = Nothing-    , _crResourceId = Nothing-    , _crResourceType = Nothing-    , _crResourceName = Nothing-    , _crKind = "admin#directory#resources#calendars#CalendarResource"-    , _crBuildingId = Nothing-    , _crFeatureInstances = Nothing-    , _crResourceEmail = Nothing-    , _crCapacity = Nothing-    , _crResourceDescription = Nothing-    , _crFloorName = Nothing-    , _crGeneratedResourceName = Nothing-    , _crResourceCategory = Nothing-    , _crFloorSection = Nothing-    , _crUserVisibleDescription = Nothing-    }----- | ETag of the resource.-crEtags :: Lens' CalendarResource (Maybe Text)-crEtags = lens _crEtags (\ s a -> s{_crEtags = a})---- | The unique ID for the calendar resource.-crResourceId :: Lens' CalendarResource (Maybe Text)-crResourceId-  = lens _crResourceId (\ s a -> s{_crResourceId = a})---- | The type of the calendar resource, intended for non-room resources.-crResourceType :: Lens' CalendarResource (Maybe Text)-crResourceType-  = lens _crResourceType-      (\ s a -> s{_crResourceType = a})---- | The name of the calendar resource. For example, \"Training Room 1A\".-crResourceName :: Lens' CalendarResource (Maybe Text)-crResourceName-  = lens _crResourceName-      (\ s a -> s{_crResourceName = a})---- | The type of the resource. For calendar resources, the value is--- admin#directory#resources#calendars#CalendarResource.-crKind :: Lens' CalendarResource Text-crKind = lens _crKind (\ s a -> s{_crKind = a})---- | Unique ID for the building a resource is located in.-crBuildingId :: Lens' CalendarResource (Maybe Text)-crBuildingId-  = lens _crBuildingId (\ s a -> s{_crBuildingId = a})--crFeatureInstances :: Lens' CalendarResource (Maybe JSONValue)-crFeatureInstances-  = lens _crFeatureInstances-      (\ s a -> s{_crFeatureInstances = a})---- | The read-only email for the calendar resource. Generated as part of--- creating a new calendar resource.-crResourceEmail :: Lens' CalendarResource (Maybe Text)-crResourceEmail-  = lens _crResourceEmail-      (\ s a -> s{_crResourceEmail = a})---- | Capacity of a resource, number of seats in a room.-crCapacity :: Lens' CalendarResource (Maybe Int32)-crCapacity-  = lens _crCapacity (\ s a -> s{_crCapacity = a}) .-      mapping _Coerce---- | Description of the resource, visible only to admins.-crResourceDescription :: Lens' CalendarResource (Maybe Text)-crResourceDescription-  = lens _crResourceDescription-      (\ s a -> s{_crResourceDescription = a})---- | Name of the floor a resource is located on.-crFloorName :: Lens' CalendarResource (Maybe Text)-crFloorName-  = lens _crFloorName (\ s a -> s{_crFloorName = a})---- | The read-only auto-generated name of the calendar resource which--- includes metadata about the resource such as building name, floor,--- capacity, etc. For example, \"NYC-2-Training Room 1A (16)\".-crGeneratedResourceName :: Lens' CalendarResource (Maybe Text)-crGeneratedResourceName-  = lens _crGeneratedResourceName-      (\ s a -> s{_crGeneratedResourceName = a})---- | The category of the calendar resource. Either CONFERENCE_ROOM or OTHER.--- Legacy data is set to CATEGORY_UNKNOWN.-crResourceCategory :: Lens' CalendarResource (Maybe Text)-crResourceCategory-  = lens _crResourceCategory-      (\ s a -> s{_crResourceCategory = a})---- | Name of the section within a floor a resource is located in.-crFloorSection :: Lens' CalendarResource (Maybe Text)-crFloorSection-  = lens _crFloorSection-      (\ s a -> s{_crFloorSection = a})---- | Description of the resource, visible to users and admins.-crUserVisibleDescription :: Lens' CalendarResource (Maybe Text)-crUserVisibleDescription-  = lens _crUserVisibleDescription-      (\ s a -> s{_crUserVisibleDescription = a})--instance FromJSON CalendarResource where-        parseJSON-          = withObject "CalendarResource"-              (\ o ->-                 CalendarResource' <$>-                   (o .:? "etags") <*> (o .:? "resourceId") <*>-                     (o .:? "resourceType")-                     <*> (o .:? "resourceName")-                     <*>-                     (o .:? "kind" .!=-                        "admin#directory#resources#calendars#CalendarResource")-                     <*> (o .:? "buildingId")-                     <*> (o .:? "featureInstances")-                     <*> (o .:? "resourceEmail")-                     <*> (o .:? "capacity")-                     <*> (o .:? "resourceDescription")-                     <*> (o .:? "floorName")-                     <*> (o .:? "generatedResourceName")-                     <*> (o .:? "resourceCategory")-                     <*> (o .:? "floorSection")-                     <*> (o .:? "userVisibleDescription"))--instance ToJSON CalendarResource where-        toJSON CalendarResource'{..}-          = object-              (catMaybes-                 [("etags" .=) <$> _crEtags,-                  ("resourceId" .=) <$> _crResourceId,-                  ("resourceType" .=) <$> _crResourceType,-                  ("resourceName" .=) <$> _crResourceName,-                  Just ("kind" .= _crKind),-                  ("buildingId" .=) <$> _crBuildingId,-                  ("featureInstances" .=) <$> _crFeatureInstances,-                  ("resourceEmail" .=) <$> _crResourceEmail,-                  ("capacity" .=) <$> _crCapacity,-                  ("resourceDescription" .=) <$>-                    _crResourceDescription,-                  ("floorName" .=) <$> _crFloorName,-                  ("generatedResourceName" .=) <$>-                    _crGeneratedResourceName,-                  ("resourceCategory" .=) <$> _crResourceCategory,-                  ("floorSection" .=) <$> _crFloorSection,-                  ("userVisibleDescription" .=) <$>-                    _crUserVisibleDescription])---- | JSON request template to undelete a user in Directory API.------ /See:/ 'userUndelete' smart constructor.-newtype UserUndelete =-  UserUndelete'-    { _uuOrgUnitPath :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserUndelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uuOrgUnitPath'-userUndelete-    :: UserUndelete-userUndelete = UserUndelete' {_uuOrgUnitPath = Nothing}----- | OrgUnit of User-uuOrgUnitPath :: Lens' UserUndelete (Maybe Text)-uuOrgUnitPath-  = lens _uuOrgUnitPath-      (\ s a -> s{_uuOrgUnitPath = a})--instance FromJSON UserUndelete where-        parseJSON-          = withObject "UserUndelete"-              (\ o -> UserUndelete' <$> (o .:? "orgUnitPath"))--instance ToJSON UserUndelete where-        toJSON UserUndelete'{..}-          = object-              (catMaybes [("orgUnitPath" .=) <$> _uuOrgUnitPath])---- | JSON response template for List Members operation in Directory API.------ /See:/ 'members' smart constructor.-data Members =-  Members'-    { _mEtag          :: !(Maybe Text)-    , _mNextPageToken :: !(Maybe Text)-    , _mKind          :: !Text-    , _mMembers       :: !(Maybe [Member])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Members' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mEtag'------ * 'mNextPageToken'------ * 'mKind'------ * 'mMembers'-members-    :: Members-members =-  Members'-    { _mEtag = Nothing-    , _mNextPageToken = Nothing-    , _mKind = "admin#directory#members"-    , _mMembers = Nothing-    }----- | ETag of the resource.-mEtag :: Lens' Members (Maybe Text)-mEtag = lens _mEtag (\ s a -> s{_mEtag = a})---- | Token used to access next page of this result.-mNextPageToken :: Lens' Members (Maybe Text)-mNextPageToken-  = lens _mNextPageToken-      (\ s a -> s{_mNextPageToken = a})---- | Kind of resource this is.-mKind :: Lens' Members Text-mKind = lens _mKind (\ s a -> s{_mKind = a})---- | List of member objects.-mMembers :: Lens' Members [Member]-mMembers-  = lens _mMembers (\ s a -> s{_mMembers = a}) .-      _Default-      . _Coerce--instance FromJSON Members where-        parseJSON-          = withObject "Members"-              (\ o ->-                 Members' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "admin#directory#members")-                     <*> (o .:? "members" .!= mempty))--instance ToJSON Members where-        toJSON Members'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _mEtag,-                  ("nextPageToken" .=) <$> _mNextPageToken,-                  Just ("kind" .= _mKind),-                  ("members" .=) <$> _mMembers])---- | An notification channel used to watch for resource changes.------ /See:/ 'channel' smart constructor.-data Channel =-  Channel'-    { _cResourceURI :: !(Maybe Text)-    , _cResourceId  :: !(Maybe Text)-    , _cKind        :: !Text-    , _cExpiration  :: !(Maybe (Textual Int64))-    , _cToken       :: !(Maybe Text)-    , _cAddress     :: !(Maybe Text)-    , _cPayload     :: !(Maybe Bool)-    , _cParams      :: !(Maybe ChannelParams)-    , _cId          :: !(Maybe Text)-    , _cType        :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Channel' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cResourceURI'------ * 'cResourceId'------ * 'cKind'------ * 'cExpiration'------ * 'cToken'------ * 'cAddress'------ * 'cPayload'------ * 'cParams'------ * 'cId'------ * 'cType'-channel-    :: Channel-channel =-  Channel'-    { _cResourceURI = Nothing-    , _cResourceId = Nothing-    , _cKind = "api#channel"-    , _cExpiration = Nothing-    , _cToken = Nothing-    , _cAddress = Nothing-    , _cPayload = Nothing-    , _cParams = Nothing-    , _cId = Nothing-    , _cType = Nothing-    }----- | A version-specific identifier for the watched resource.-cResourceURI :: Lens' Channel (Maybe Text)-cResourceURI-  = lens _cResourceURI (\ s a -> s{_cResourceURI = a})---- | An opaque ID that identifies the resource being watched on this channel.--- Stable across different API versions.-cResourceId :: Lens' Channel (Maybe Text)-cResourceId-  = lens _cResourceId (\ s a -> s{_cResourceId = a})---- | Identifies this as a notification channel used to watch for changes to a--- resource. Value: the fixed string \"api#channel\".-cKind :: Lens' Channel Text-cKind = lens _cKind (\ s a -> s{_cKind = a})---- | Date and time of notification channel expiration, expressed as a Unix--- timestamp, in milliseconds. Optional.-cExpiration :: Lens' Channel (Maybe Int64)-cExpiration-  = lens _cExpiration (\ s a -> s{_cExpiration = a}) .-      mapping _Coerce---- | An arbitrary string delivered to the target address with each--- notification delivered over this channel. Optional.-cToken :: Lens' Channel (Maybe Text)-cToken = lens _cToken (\ s a -> s{_cToken = a})---- | The address where notifications are delivered for this channel.-cAddress :: Lens' Channel (Maybe Text)-cAddress = lens _cAddress (\ s a -> s{_cAddress = a})---- | A Boolean value to indicate whether payload is wanted. Optional.-cPayload :: Lens' Channel (Maybe Bool)-cPayload = lens _cPayload (\ s a -> s{_cPayload = a})---- | Additional parameters controlling delivery channel behavior. Optional.-cParams :: Lens' Channel (Maybe ChannelParams)-cParams = lens _cParams (\ s a -> s{_cParams = a})---- | A UUID or similar unique string that identifies this channel.-cId :: Lens' Channel (Maybe Text)-cId = lens _cId (\ s a -> s{_cId = a})---- | The type of delivery mechanism used for this channel.-cType :: Lens' Channel (Maybe Text)-cType = lens _cType (\ s a -> s{_cType = a})--instance FromJSON Channel where-        parseJSON-          = withObject "Channel"-              (\ o ->-                 Channel' <$>-                   (o .:? "resourceUri") <*> (o .:? "resourceId") <*>-                     (o .:? "kind" .!= "api#channel")-                     <*> (o .:? "expiration")-                     <*> (o .:? "token")-                     <*> (o .:? "address")-                     <*> (o .:? "payload")-                     <*> (o .:? "params")-                     <*> (o .:? "id")-                     <*> (o .:? "type"))--instance ToJSON Channel where-        toJSON Channel'{..}-          = object-              (catMaybes-                 [("resourceUri" .=) <$> _cResourceURI,-                  ("resourceId" .=) <$> _cResourceId,-                  Just ("kind" .= _cKind),-                  ("expiration" .=) <$> _cExpiration,-                  ("token" .=) <$> _cToken,-                  ("address" .=) <$> _cAddress,-                  ("payload" .=) <$> _cPayload,-                  ("params" .=) <$> _cParams, ("id" .=) <$> _cId,-                  ("type" .=) <$> _cType])---- | JSON response template for List Mobile Devices operation in Directory--- API.------ /See:/ 'mobileDevices' smart constructor.-data MobileDevices =-  MobileDevices'-    { _mdEtag          :: !(Maybe Text)-    , _mdNextPageToken :: !(Maybe Text)-    , _mdKind          :: !Text-    , _mdMobileDevices :: !(Maybe [MobileDevice])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MobileDevices' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mdEtag'------ * 'mdNextPageToken'------ * 'mdKind'------ * 'mdMobileDevices'-mobileDevices-    :: MobileDevices-mobileDevices =-  MobileDevices'-    { _mdEtag = Nothing-    , _mdNextPageToken = Nothing-    , _mdKind = "admin#directory#mobiledevices"-    , _mdMobileDevices = Nothing-    }----- | ETag of the resource.-mdEtag :: Lens' MobileDevices (Maybe Text)-mdEtag = lens _mdEtag (\ s a -> s{_mdEtag = a})---- | Token used to access next page of this result.-mdNextPageToken :: Lens' MobileDevices (Maybe Text)-mdNextPageToken-  = lens _mdNextPageToken-      (\ s a -> s{_mdNextPageToken = a})---- | Kind of resource this is.-mdKind :: Lens' MobileDevices Text-mdKind = lens _mdKind (\ s a -> s{_mdKind = a})---- | List of Mobile Device objects.-mdMobileDevices :: Lens' MobileDevices [MobileDevice]-mdMobileDevices-  = lens _mdMobileDevices-      (\ s a -> s{_mdMobileDevices = a})-      . _Default-      . _Coerce--instance FromJSON MobileDevices where-        parseJSON-          = withObject "MobileDevices"-              (\ o ->-                 MobileDevices' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "admin#directory#mobiledevices")-                     <*> (o .:? "mobiledevices" .!= mempty))--instance ToJSON MobileDevices where-        toJSON MobileDevices'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _mdEtag,-                  ("nextPageToken" .=) <$> _mdNextPageToken,-                  Just ("kind" .= _mdKind),-                  ("mobiledevices" .=) <$> _mdMobileDevices])---- | JSON template for token resource in Directory API.------ /See:/ 'token' smart constructor.-data Token =-  Token'-    { _tokClientId    :: !(Maybe Text)-    , _tokEtag        :: !(Maybe Text)-    , _tokDisplayText :: !(Maybe Text)-    , _tokKind        :: !Text-    , _tokScopes      :: !(Maybe [Text])-    , _tokNATiveApp   :: !(Maybe Bool)-    , _tokAnonymous   :: !(Maybe Bool)-    , _tokUserKey     :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Token' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tokClientId'------ * 'tokEtag'------ * 'tokDisplayText'------ * 'tokKind'------ * 'tokScopes'------ * 'tokNATiveApp'------ * 'tokAnonymous'------ * 'tokUserKey'-token-    :: Token-token =-  Token'-    { _tokClientId = Nothing-    , _tokEtag = Nothing-    , _tokDisplayText = Nothing-    , _tokKind = "admin#directory#token"-    , _tokScopes = Nothing-    , _tokNATiveApp = Nothing-    , _tokAnonymous = Nothing-    , _tokUserKey = Nothing-    }----- | The Client ID of the application the token is issued to.-tokClientId :: Lens' Token (Maybe Text)-tokClientId-  = lens _tokClientId (\ s a -> s{_tokClientId = a})---- | ETag of the resource.-tokEtag :: Lens' Token (Maybe Text)-tokEtag = lens _tokEtag (\ s a -> s{_tokEtag = a})---- | The displayable name of the application the token is issued to.-tokDisplayText :: Lens' Token (Maybe Text)-tokDisplayText-  = lens _tokDisplayText-      (\ s a -> s{_tokDisplayText = a})---- | The type of the API resource. This is always admin#directory#token.-tokKind :: Lens' Token Text-tokKind = lens _tokKind (\ s a -> s{_tokKind = a})---- | A list of authorization scopes the application is granted.-tokScopes :: Lens' Token [Text]-tokScopes-  = lens _tokScopes (\ s a -> s{_tokScopes = a}) .-      _Default-      . _Coerce---- | Whether the token is issued to an installed application. The value is--- true if the application is installed to a desktop or mobile device.-tokNATiveApp :: Lens' Token (Maybe Bool)-tokNATiveApp-  = lens _tokNATiveApp (\ s a -> s{_tokNATiveApp = a})---- | Whether the application is registered with Google. The value is true if--- the application has an anonymous Client ID.-tokAnonymous :: Lens' Token (Maybe Bool)-tokAnonymous-  = lens _tokAnonymous (\ s a -> s{_tokAnonymous = a})---- | The unique ID of the user that issued the token.-tokUserKey :: Lens' Token (Maybe Text)-tokUserKey-  = lens _tokUserKey (\ s a -> s{_tokUserKey = a})--instance FromJSON Token where-        parseJSON-          = withObject "Token"-              (\ o ->-                 Token' <$>-                   (o .:? "clientId") <*> (o .:? "etag") <*>-                     (o .:? "displayText")-                     <*> (o .:? "kind" .!= "admin#directory#token")-                     <*> (o .:? "scopes" .!= mempty)-                     <*> (o .:? "nativeApp")-                     <*> (o .:? "anonymous")-                     <*> (o .:? "userKey"))--instance ToJSON Token where-        toJSON Token'{..}-          = object-              (catMaybes-                 [("clientId" .=) <$> _tokClientId,-                  ("etag" .=) <$> _tokEtag,-                  ("displayText" .=) <$> _tokDisplayText,-                  Just ("kind" .= _tokKind),-                  ("scopes" .=) <$> _tokScopes,-                  ("nativeApp" .=) <$> _tokNATiveApp,-                  ("anonymous" .=) <$> _tokAnonymous,-                  ("userKey" .=) <$> _tokUserKey])---- | JSON template for name of a user in Directory API.------ /See:/ 'userName' smart constructor.-data UserName =-  UserName'-    { _unGivenName  :: !(Maybe Text)-    , _unFullName   :: !(Maybe Text)-    , _unFamilyName :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserName' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'unGivenName'------ * 'unFullName'------ * 'unFamilyName'-userName-    :: UserName-userName =-  UserName'-    {_unGivenName = Nothing, _unFullName = Nothing, _unFamilyName = Nothing}----- | First Name-unGivenName :: Lens' UserName (Maybe Text)-unGivenName-  = lens _unGivenName (\ s a -> s{_unGivenName = a})---- | Full Name-unFullName :: Lens' UserName (Maybe Text)-unFullName-  = lens _unFullName (\ s a -> s{_unFullName = a})---- | Last Name-unFamilyName :: Lens' UserName (Maybe Text)-unFamilyName-  = lens _unFamilyName (\ s a -> s{_unFamilyName = a})--instance FromJSON UserName where-        parseJSON-          = withObject "UserName"-              (\ o ->-                 UserName' <$>-                   (o .:? "givenName") <*> (o .:? "fullName") <*>-                     (o .:? "familyName"))--instance ToJSON UserName where-        toJSON UserName'{..}-          = object-              (catMaybes-                 [("givenName" .=) <$> _unGivenName,-                  ("fullName" .=) <$> _unFullName,-                  ("familyName" .=) <$> _unFamilyName])---- | JSON template for Building object in Directory API.------ /See:/ 'building' smart constructor.-data Building =-  Building'-    { _buiEtags        :: !(Maybe Text)-    , _buiKind         :: !Text-    , _buiBuildingId   :: !(Maybe Text)-    , _buiAddress      :: !(Maybe BuildingAddress)-    , _buiCoordinates  :: !(Maybe BuildingCoordinates)-    , _buiBuildingName :: !(Maybe Text)-    , _buiFloorNames   :: !(Maybe [Text])-    , _buiDescription  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Building' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'buiEtags'------ * 'buiKind'------ * 'buiBuildingId'------ * 'buiAddress'------ * 'buiCoordinates'------ * 'buiBuildingName'------ * 'buiFloorNames'------ * 'buiDescription'-building-    :: Building-building =-  Building'-    { _buiEtags = Nothing-    , _buiKind = "admin#directory#resources#buildings#Building"-    , _buiBuildingId = Nothing-    , _buiAddress = Nothing-    , _buiCoordinates = Nothing-    , _buiBuildingName = Nothing-    , _buiFloorNames = Nothing-    , _buiDescription = Nothing-    }----- | ETag of the resource.-buiEtags :: Lens' Building (Maybe Text)-buiEtags = lens _buiEtags (\ s a -> s{_buiEtags = a})---- | Kind of resource this is.-buiKind :: Lens' Building Text-buiKind = lens _buiKind (\ s a -> s{_buiKind = a})---- | Unique identifier for the building. The maximum length is 100--- characters.-buiBuildingId :: Lens' Building (Maybe Text)-buiBuildingId-  = lens _buiBuildingId-      (\ s a -> s{_buiBuildingId = a})---- | The postal address of the building. See PostalAddress for details. Note--- that only a single address line and region code are required.-buiAddress :: Lens' Building (Maybe BuildingAddress)-buiAddress-  = lens _buiAddress (\ s a -> s{_buiAddress = a})---- | The geographic coordinates of the center of the building, expressed as--- latitude and longitude in decimal degrees.-buiCoordinates :: Lens' Building (Maybe BuildingCoordinates)-buiCoordinates-  = lens _buiCoordinates-      (\ s a -> s{_buiCoordinates = a})---- | The building name as seen by users in Calendar. Must be unique for the--- customer. For example, \"NYC-CHEL\". The maximum length is 100--- characters.-buiBuildingName :: Lens' Building (Maybe Text)-buiBuildingName-  = lens _buiBuildingName-      (\ s a -> s{_buiBuildingName = a})---- | The display names for all floors in this building. The floors are--- expected to be sorted in ascending order, from lowest floor to highest--- floor. For example, [\"B2\", \"B1\", \"L\", \"1\", \"2\", \"2M\", \"3\",--- \"PH\"] Must contain at least one entry.-buiFloorNames :: Lens' Building [Text]-buiFloorNames-  = lens _buiFloorNames-      (\ s a -> s{_buiFloorNames = a})-      . _Default-      . _Coerce---- | A brief description of the building. For example, \"Chelsea Market\".-buiDescription :: Lens' Building (Maybe Text)-buiDescription-  = lens _buiDescription-      (\ s a -> s{_buiDescription = a})--instance FromJSON Building where-        parseJSON-          = withObject "Building"-              (\ o ->-                 Building' <$>-                   (o .:? "etags") <*>-                     (o .:? "kind" .!=-                        "admin#directory#resources#buildings#Building")-                     <*> (o .:? "buildingId")-                     <*> (o .:? "address")-                     <*> (o .:? "coordinates")-                     <*> (o .:? "buildingName")-                     <*> (o .:? "floorNames" .!= mempty)-                     <*> (o .:? "description"))--instance ToJSON Building where-        toJSON Building'{..}-          = object-              (catMaybes-                 [("etags" .=) <$> _buiEtags,-                  Just ("kind" .= _buiKind),-                  ("buildingId" .=) <$> _buiBuildingId,-                  ("address" .=) <$> _buiAddress,-                  ("coordinates" .=) <$> _buiCoordinates,-                  ("buildingName" .=) <$> _buiBuildingName,-                  ("floorNames" .=) <$> _buiFloorNames,-                  ("description" .=) <$> _buiDescription])------- /See:/ 'chromeOSDeviceRecentUsersItem' smart constructor.-data ChromeOSDeviceRecentUsersItem =-  ChromeOSDeviceRecentUsersItem'-    { _codruiEmail :: !(Maybe Text)-    , _codruiType  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeOSDeviceRecentUsersItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'codruiEmail'------ * 'codruiType'-chromeOSDeviceRecentUsersItem-    :: ChromeOSDeviceRecentUsersItem-chromeOSDeviceRecentUsersItem =-  ChromeOSDeviceRecentUsersItem' {_codruiEmail = Nothing, _codruiType = Nothing}----- | Email address of the user. Present only if the user type is managed-codruiEmail :: Lens' ChromeOSDeviceRecentUsersItem (Maybe Text)-codruiEmail-  = lens _codruiEmail (\ s a -> s{_codruiEmail = a})---- | The type of the user-codruiType :: Lens' ChromeOSDeviceRecentUsersItem (Maybe Text)-codruiType-  = lens _codruiType (\ s a -> s{_codruiType = a})--instance FromJSON ChromeOSDeviceRecentUsersItem where-        parseJSON-          = withObject "ChromeOSDeviceRecentUsersItem"-              (\ o ->-                 ChromeOSDeviceRecentUsersItem' <$>-                   (o .:? "email") <*> (o .:? "type"))--instance ToJSON ChromeOSDeviceRecentUsersItem where-        toJSON ChromeOSDeviceRecentUsersItem'{..}-          = object-              (catMaybes-                 [("email" .=) <$> _codruiEmail,-                  ("type" .=) <$> _codruiType])---- | JSON template for Domain Alias object in Directory API.------ /See:/ 'domainAlias' smart constructor.-data DomainAlias =-  DomainAlias'-    { _dCreationTime     :: !(Maybe (Textual Int64))-    , _dEtag             :: !(Maybe Text)-    , _dKind             :: !Text-    , _dVerified         :: !(Maybe Bool)-    , _dDomainAliasName  :: !(Maybe Text)-    , _dParentDomainName :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DomainAlias' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dCreationTime'------ * 'dEtag'------ * 'dKind'------ * 'dVerified'------ * 'dDomainAliasName'------ * 'dParentDomainName'-domainAlias-    :: DomainAlias-domainAlias =-  DomainAlias'-    { _dCreationTime = Nothing-    , _dEtag = Nothing-    , _dKind = "admin#directory#domainAlias"-    , _dVerified = Nothing-    , _dDomainAliasName = Nothing-    , _dParentDomainName = Nothing-    }----- | The creation time of the domain alias. (Read-only).-dCreationTime :: Lens' DomainAlias (Maybe Int64)-dCreationTime-  = lens _dCreationTime-      (\ s a -> s{_dCreationTime = a})-      . mapping _Coerce---- | ETag of the resource.-dEtag :: Lens' DomainAlias (Maybe Text)-dEtag = lens _dEtag (\ s a -> s{_dEtag = a})---- | Kind of resource this is.-dKind :: Lens' DomainAlias Text-dKind = lens _dKind (\ s a -> s{_dKind = a})---- | Indicates the verification state of a domain alias. (Read-only)-dVerified :: Lens' DomainAlias (Maybe Bool)-dVerified-  = lens _dVerified (\ s a -> s{_dVerified = a})---- | The domain alias name.-dDomainAliasName :: Lens' DomainAlias (Maybe Text)-dDomainAliasName-  = lens _dDomainAliasName-      (\ s a -> s{_dDomainAliasName = a})---- | The parent domain name that the domain alias is associated with. This--- can either be a primary or secondary domain name within a customer.-dParentDomainName :: Lens' DomainAlias (Maybe Text)-dParentDomainName-  = lens _dParentDomainName-      (\ s a -> s{_dParentDomainName = a})--instance FromJSON DomainAlias where-        parseJSON-          = withObject "DomainAlias"-              (\ o ->-                 DomainAlias' <$>-                   (o .:? "creationTime") <*> (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#domainAlias")-                     <*> (o .:? "verified")-                     <*> (o .:? "domainAliasName")-                     <*> (o .:? "parentDomainName"))--instance ToJSON DomainAlias where-        toJSON DomainAlias'{..}-          = object-              (catMaybes-                 [("creationTime" .=) <$> _dCreationTime,-                  ("etag" .=) <$> _dEtag, Just ("kind" .= _dKind),-                  ("verified" .=) <$> _dVerified,-                  ("domainAliasName" .=) <$> _dDomainAliasName,-                  ("parentDomainName" .=) <$> _dParentDomainName])------- /See:/ 'userGender' smart constructor.-data UserGender =-  UserGender'-    { _ugAddressMeAs  :: !(Maybe Text)-    , _ugCustomGender :: !(Maybe Text)-    , _ugType         :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserGender' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ugAddressMeAs'------ * 'ugCustomGender'------ * 'ugType'-userGender-    :: UserGender-userGender =-  UserGender'-    {_ugAddressMeAs = Nothing, _ugCustomGender = Nothing, _ugType = Nothing}----- | AddressMeAs. A human-readable string containing the proper way to refer--- to the profile owner by humans, for example \"he\/him\/his\" or--- \"they\/them\/their\".-ugAddressMeAs :: Lens' UserGender (Maybe Text)-ugAddressMeAs-  = lens _ugAddressMeAs-      (\ s a -> s{_ugAddressMeAs = a})---- | Custom gender.-ugCustomGender :: Lens' UserGender (Maybe Text)-ugCustomGender-  = lens _ugCustomGender-      (\ s a -> s{_ugCustomGender = a})---- | Gender.-ugType :: Lens' UserGender (Maybe Text)-ugType = lens _ugType (\ s a -> s{_ugType = a})--instance FromJSON UserGender where-        parseJSON-          = withObject "UserGender"-              (\ o ->-                 UserGender' <$>-                   (o .:? "addressMeAs") <*> (o .:? "customGender") <*>-                     (o .:? "type"))--instance ToJSON UserGender where-        toJSON UserGender'{..}-          = object-              (catMaybes-                 [("addressMeAs" .=) <$> _ugAddressMeAs,-                  ("customGender" .=) <$> _ugCustomGender,-                  ("type" .=) <$> _ugType])---- | JSON template for Alias object in Directory API.------ /See:/ 'alias' smart constructor.-data Alias =-  Alias'-    { _aaEtag         :: !(Maybe Text)-    , _aaKind         :: !Text-    , _aaAlias        :: !(Maybe Text)-    , _aaId           :: !(Maybe Text)-    , _aaPrimaryEmail :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Alias' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aaEtag'------ * 'aaKind'------ * 'aaAlias'------ * 'aaId'------ * 'aaPrimaryEmail'-alias-    :: Alias-alias =-  Alias'-    { _aaEtag = Nothing-    , _aaKind = "admin#directory#alias"-    , _aaAlias = Nothing-    , _aaId = Nothing-    , _aaPrimaryEmail = Nothing-    }----- | ETag of the resource.-aaEtag :: Lens' Alias (Maybe Text)-aaEtag = lens _aaEtag (\ s a -> s{_aaEtag = a})---- | Kind of resource this is.-aaKind :: Lens' Alias Text-aaKind = lens _aaKind (\ s a -> s{_aaKind = a})---- | A alias email-aaAlias :: Lens' Alias (Maybe Text)-aaAlias = lens _aaAlias (\ s a -> s{_aaAlias = a})---- | Unique id of the group (Read-only) Unique id of the user (Read-only)-aaId :: Lens' Alias (Maybe Text)-aaId = lens _aaId (\ s a -> s{_aaId = a})---- | Group\'s primary email (Read-only) User\'s primary email (Read-only)-aaPrimaryEmail :: Lens' Alias (Maybe Text)-aaPrimaryEmail-  = lens _aaPrimaryEmail-      (\ s a -> s{_aaPrimaryEmail = a})--instance FromJSON Alias where-        parseJSON-          = withObject "Alias"-              (\ o ->-                 Alias' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#alias")-                     <*> (o .:? "alias")-                     <*> (o .:? "id")-                     <*> (o .:? "primaryEmail"))--instance ToJSON Alias where-        toJSON Alias'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _aaEtag, Just ("kind" .= _aaKind),-                  ("alias" .=) <$> _aaAlias, ("id" .=) <$> _aaId,-                  ("primaryEmail" .=) <$> _aaPrimaryEmail])---- | JSON template for Schema resource in Directory API.------ /See:/ 'schema' smart constructor.-data Schema =-  Schema'-    { _schEtag        :: !(Maybe Text)-    , _schKind        :: !Text-    , _schSchemaName  :: !(Maybe Text)-    , _schSchemaId    :: !(Maybe Text)-    , _schDisplayName :: !(Maybe Text)-    , _schFields      :: !(Maybe [SchemaFieldSpec])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Schema' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'schEtag'------ * 'schKind'------ * 'schSchemaName'------ * 'schSchemaId'------ * 'schDisplayName'------ * 'schFields'-schema-    :: Schema-schema =-  Schema'-    { _schEtag = Nothing-    , _schKind = "admin#directory#schema"-    , _schSchemaName = Nothing-    , _schSchemaId = Nothing-    , _schDisplayName = Nothing-    , _schFields = Nothing-    }----- | ETag of the resource.-schEtag :: Lens' Schema (Maybe Text)-schEtag = lens _schEtag (\ s a -> s{_schEtag = a})---- | Kind of resource this is.-schKind :: Lens' Schema Text-schKind = lens _schKind (\ s a -> s{_schKind = a})---- | Schema name-schSchemaName :: Lens' Schema (Maybe Text)-schSchemaName-  = lens _schSchemaName-      (\ s a -> s{_schSchemaName = a})---- | Unique identifier of Schema (Read-only)-schSchemaId :: Lens' Schema (Maybe Text)-schSchemaId-  = lens _schSchemaId (\ s a -> s{_schSchemaId = a})---- | Display name for the schema.-schDisplayName :: Lens' Schema (Maybe Text)-schDisplayName-  = lens _schDisplayName-      (\ s a -> s{_schDisplayName = a})---- | Fields of Schema-schFields :: Lens' Schema [SchemaFieldSpec]-schFields-  = lens _schFields (\ s a -> s{_schFields = a}) .-      _Default-      . _Coerce--instance FromJSON Schema where-        parseJSON-          = withObject "Schema"-              (\ o ->-                 Schema' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#schema")-                     <*> (o .:? "schemaName")-                     <*> (o .:? "schemaId")-                     <*> (o .:? "displayName")-                     <*> (o .:? "fields" .!= mempty))--instance ToJSON Schema where-        toJSON Schema'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _schEtag, Just ("kind" .= _schKind),-                  ("schemaName" .=) <$> _schSchemaName,-                  ("schemaId" .=) <$> _schSchemaId,-                  ("displayName" .=) <$> _schDisplayName,-                  ("fields" .=) <$> _schFields])---- | JSON request template for moving ChromeOs Device to given OU in--- Directory Devices API.------ /See:/ 'chromeOSMoveDevicesToOu' smart constructor.-newtype ChromeOSMoveDevicesToOu =-  ChromeOSMoveDevicesToOu'-    { _comdtoDeviceIds :: Maybe [Text]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeOSMoveDevicesToOu' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'comdtoDeviceIds'-chromeOSMoveDevicesToOu-    :: ChromeOSMoveDevicesToOu-chromeOSMoveDevicesToOu = ChromeOSMoveDevicesToOu' {_comdtoDeviceIds = Nothing}----- | ChromeOs Devices to be moved to OU-comdtoDeviceIds :: Lens' ChromeOSMoveDevicesToOu [Text]-comdtoDeviceIds-  = lens _comdtoDeviceIds-      (\ s a -> s{_comdtoDeviceIds = a})-      . _Default-      . _Coerce--instance FromJSON ChromeOSMoveDevicesToOu where-        parseJSON-          = withObject "ChromeOSMoveDevicesToOu"-              (\ o ->-                 ChromeOSMoveDevicesToOu' <$>-                   (o .:? "deviceIds" .!= mempty))--instance ToJSON ChromeOSMoveDevicesToOu where-        toJSON ChromeOSMoveDevicesToOu'{..}-          = object-              (catMaybes [("deviceIds" .=) <$> _comdtoDeviceIds])---- | JSON template for User object in Directory API.------ /See:/ 'user' smart constructor.-data User =-  User'-    { _useCreationTime               :: !(Maybe DateTime')-    , _useLastLoginTime              :: !(Maybe DateTime')-    , _useThumbnailPhotoEtag         :: !(Maybe Text)-    , _useEtag                       :: !(Maybe Text)-    , _usePosixAccounts              :: !(Maybe JSONValue)-    , _useIPWhiteListed              :: !(Maybe Bool)-    , _useRelations                  :: !(Maybe JSONValue)-    , _useSSHPublicKeys              :: !(Maybe JSONValue)-    , _useHashFunction               :: !(Maybe Text)-    , _useKind                       :: !Text-    , _useChangePasswordAtNextLogin  :: !(Maybe Bool)-    , _useWebsites                   :: !(Maybe JSONValue)-    , _useAddresses                  :: !(Maybe JSONValue)-    , _useAliases                    :: !(Maybe [Text])-    , _useThumbnailPhotoURL          :: !(Maybe Text)-    , _useExternalIds                :: !(Maybe JSONValue)-    , _useSuspended                  :: !(Maybe Bool)-    , _useAgreedToTerms              :: !(Maybe Bool)-    , _useDeletionTime               :: !(Maybe DateTime')-    , _useNonEditableAliases         :: !(Maybe [Text])-    , _useOrgUnitPath                :: !(Maybe Text)-    , _useCustomerId                 :: !(Maybe Text)-    , _useLanguages                  :: !(Maybe JSONValue)-    , _useIncludeInGlobalAddressList :: !(Maybe Bool)-    , _useGender                     :: !(Maybe JSONValue)-    , _usePhones                     :: !(Maybe JSONValue)-    , _useName                       :: !(Maybe UserName)-    , _usePassword                   :: !(Maybe Text)-    , _useEmails                     :: !(Maybe JSONValue)-    , _useIms                        :: !(Maybe JSONValue)-    , _useKeywords                   :: !(Maybe JSONValue)-    , _useIsAdmin                    :: !(Maybe Bool)-    , _useIsEnrolledIn2Sv            :: !(Maybe Bool)-    , _useId                         :: !(Maybe Text)-    , _useOrganizations              :: !(Maybe JSONValue)-    , _usePrimaryEmail               :: !(Maybe Text)-    , _useIsEnforcedIn2Sv            :: !(Maybe Bool)-    , _useNotes                      :: !(Maybe JSONValue)-    , _useIsDelegatedAdmin           :: !(Maybe Bool)-    , _useLocations                  :: !(Maybe JSONValue)-    , _useArchived                   :: !(Maybe Bool)-    , _useIsMailboxSetup             :: !(Maybe Bool)-    , _useCustomSchemas              :: !(Maybe UserCustomSchemas)-    , _useSuspensionReason           :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'User' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'useCreationTime'------ * 'useLastLoginTime'------ * 'useThumbnailPhotoEtag'------ * 'useEtag'------ * 'usePosixAccounts'------ * 'useIPWhiteListed'------ * 'useRelations'------ * 'useSSHPublicKeys'------ * 'useHashFunction'------ * 'useKind'------ * 'useChangePasswordAtNextLogin'------ * 'useWebsites'------ * 'useAddresses'------ * 'useAliases'------ * 'useThumbnailPhotoURL'------ * 'useExternalIds'------ * 'useSuspended'------ * 'useAgreedToTerms'------ * 'useDeletionTime'------ * 'useNonEditableAliases'------ * 'useOrgUnitPath'------ * 'useCustomerId'------ * 'useLanguages'------ * 'useIncludeInGlobalAddressList'------ * 'useGender'------ * 'usePhones'------ * 'useName'------ * 'usePassword'------ * 'useEmails'------ * 'useIms'------ * 'useKeywords'------ * 'useIsAdmin'------ * 'useIsEnrolledIn2Sv'------ * 'useId'------ * 'useOrganizations'------ * 'usePrimaryEmail'------ * 'useIsEnforcedIn2Sv'------ * 'useNotes'------ * 'useIsDelegatedAdmin'------ * 'useLocations'------ * 'useArchived'------ * 'useIsMailboxSetup'------ * 'useCustomSchemas'------ * 'useSuspensionReason'-user-    :: User-user =-  User'-    { _useCreationTime = Nothing-    , _useLastLoginTime = Nothing-    , _useThumbnailPhotoEtag = Nothing-    , _useEtag = Nothing-    , _usePosixAccounts = Nothing-    , _useIPWhiteListed = Nothing-    , _useRelations = Nothing-    , _useSSHPublicKeys = Nothing-    , _useHashFunction = Nothing-    , _useKind = "admin#directory#user"-    , _useChangePasswordAtNextLogin = Nothing-    , _useWebsites = Nothing-    , _useAddresses = Nothing-    , _useAliases = Nothing-    , _useThumbnailPhotoURL = Nothing-    , _useExternalIds = Nothing-    , _useSuspended = Nothing-    , _useAgreedToTerms = Nothing-    , _useDeletionTime = Nothing-    , _useNonEditableAliases = Nothing-    , _useOrgUnitPath = Nothing-    , _useCustomerId = Nothing-    , _useLanguages = Nothing-    , _useIncludeInGlobalAddressList = Nothing-    , _useGender = Nothing-    , _usePhones = Nothing-    , _useName = Nothing-    , _usePassword = Nothing-    , _useEmails = Nothing-    , _useIms = Nothing-    , _useKeywords = Nothing-    , _useIsAdmin = Nothing-    , _useIsEnrolledIn2Sv = Nothing-    , _useId = Nothing-    , _useOrganizations = Nothing-    , _usePrimaryEmail = Nothing-    , _useIsEnforcedIn2Sv = Nothing-    , _useNotes = Nothing-    , _useIsDelegatedAdmin = Nothing-    , _useLocations = Nothing-    , _useArchived = Nothing-    , _useIsMailboxSetup = Nothing-    , _useCustomSchemas = Nothing-    , _useSuspensionReason = Nothing-    }----- | User\'s G Suite account creation time. (Read-only)-useCreationTime :: Lens' User (Maybe UTCTime)-useCreationTime-  = lens _useCreationTime-      (\ s a -> s{_useCreationTime = a})-      . mapping _DateTime---- | User\'s last login time. (Read-only)-useLastLoginTime :: Lens' User (Maybe UTCTime)-useLastLoginTime-  = lens _useLastLoginTime-      (\ s a -> s{_useLastLoginTime = a})-      . mapping _DateTime---- | ETag of the user\'s photo (Read-only)-useThumbnailPhotoEtag :: Lens' User (Maybe Text)-useThumbnailPhotoEtag-  = lens _useThumbnailPhotoEtag-      (\ s a -> s{_useThumbnailPhotoEtag = a})---- | ETag of the resource.-useEtag :: Lens' User (Maybe Text)-useEtag = lens _useEtag (\ s a -> s{_useEtag = a})--usePosixAccounts :: Lens' User (Maybe JSONValue)-usePosixAccounts-  = lens _usePosixAccounts-      (\ s a -> s{_usePosixAccounts = a})---- | Boolean indicating if ip is whitelisted-useIPWhiteListed :: Lens' User (Maybe Bool)-useIPWhiteListed-  = lens _useIPWhiteListed-      (\ s a -> s{_useIPWhiteListed = a})--useRelations :: Lens' User (Maybe JSONValue)-useRelations-  = lens _useRelations (\ s a -> s{_useRelations = a})--useSSHPublicKeys :: Lens' User (Maybe JSONValue)-useSSHPublicKeys-  = lens _useSSHPublicKeys-      (\ s a -> s{_useSSHPublicKeys = a})---- | Hash function name for password. Supported are MD5, SHA-1 and crypt-useHashFunction :: Lens' User (Maybe Text)-useHashFunction-  = lens _useHashFunction-      (\ s a -> s{_useHashFunction = a})---- | Kind of resource this is.-useKind :: Lens' User Text-useKind = lens _useKind (\ s a -> s{_useKind = a})---- | Boolean indicating if the user should change password in next login-useChangePasswordAtNextLogin :: Lens' User (Maybe Bool)-useChangePasswordAtNextLogin-  = lens _useChangePasswordAtNextLogin-      (\ s a -> s{_useChangePasswordAtNextLogin = a})--useWebsites :: Lens' User (Maybe JSONValue)-useWebsites-  = lens _useWebsites (\ s a -> s{_useWebsites = a})--useAddresses :: Lens' User (Maybe JSONValue)-useAddresses-  = lens _useAddresses (\ s a -> s{_useAddresses = a})---- | List of aliases (Read-only)-useAliases :: Lens' User [Text]-useAliases-  = lens _useAliases (\ s a -> s{_useAliases = a}) .-      _Default-      . _Coerce---- | Photo Url of the user (Read-only)-useThumbnailPhotoURL :: Lens' User (Maybe Text)-useThumbnailPhotoURL-  = lens _useThumbnailPhotoURL-      (\ s a -> s{_useThumbnailPhotoURL = a})--useExternalIds :: Lens' User (Maybe JSONValue)-useExternalIds-  = lens _useExternalIds-      (\ s a -> s{_useExternalIds = a})---- | Indicates if user is suspended.-useSuspended :: Lens' User (Maybe Bool)-useSuspended-  = lens _useSuspended (\ s a -> s{_useSuspended = a})---- | Indicates if user has agreed to terms (Read-only)-useAgreedToTerms :: Lens' User (Maybe Bool)-useAgreedToTerms-  = lens _useAgreedToTerms-      (\ s a -> s{_useAgreedToTerms = a})--useDeletionTime :: Lens' User (Maybe UTCTime)-useDeletionTime-  = lens _useDeletionTime-      (\ s a -> s{_useDeletionTime = a})-      . mapping _DateTime---- | List of non editable aliases (Read-only)-useNonEditableAliases :: Lens' User [Text]-useNonEditableAliases-  = lens _useNonEditableAliases-      (\ s a -> s{_useNonEditableAliases = a})-      . _Default-      . _Coerce---- | OrgUnit of User-useOrgUnitPath :: Lens' User (Maybe Text)-useOrgUnitPath-  = lens _useOrgUnitPath-      (\ s a -> s{_useOrgUnitPath = a})---- | CustomerId of User (Read-only)-useCustomerId :: Lens' User (Maybe Text)-useCustomerId-  = lens _useCustomerId-      (\ s a -> s{_useCustomerId = a})--useLanguages :: Lens' User (Maybe JSONValue)-useLanguages-  = lens _useLanguages (\ s a -> s{_useLanguages = a})---- | Boolean indicating if user is included in Global Address List-useIncludeInGlobalAddressList :: Lens' User (Maybe Bool)-useIncludeInGlobalAddressList-  = lens _useIncludeInGlobalAddressList-      (\ s a -> s{_useIncludeInGlobalAddressList = a})--useGender :: Lens' User (Maybe JSONValue)-useGender-  = lens _useGender (\ s a -> s{_useGender = a})--usePhones :: Lens' User (Maybe JSONValue)-usePhones-  = lens _usePhones (\ s a -> s{_usePhones = a})---- | User\'s name-useName :: Lens' User (Maybe UserName)-useName = lens _useName (\ s a -> s{_useName = a})---- | User\'s password-usePassword :: Lens' User (Maybe Text)-usePassword-  = lens _usePassword (\ s a -> s{_usePassword = a})--useEmails :: Lens' User (Maybe JSONValue)-useEmails-  = lens _useEmails (\ s a -> s{_useEmails = a})--useIms :: Lens' User (Maybe JSONValue)-useIms = lens _useIms (\ s a -> s{_useIms = a})--useKeywords :: Lens' User (Maybe JSONValue)-useKeywords-  = lens _useKeywords (\ s a -> s{_useKeywords = a})---- | Boolean indicating if the user is admin (Read-only)-useIsAdmin :: Lens' User (Maybe Bool)-useIsAdmin-  = lens _useIsAdmin (\ s a -> s{_useIsAdmin = a})---- | Is enrolled in 2-step verification (Read-only)-useIsEnrolledIn2Sv :: Lens' User (Maybe Bool)-useIsEnrolledIn2Sv-  = lens _useIsEnrolledIn2Sv-      (\ s a -> s{_useIsEnrolledIn2Sv = a})---- | Unique identifier of User (Read-only)-useId :: Lens' User (Maybe Text)-useId = lens _useId (\ s a -> s{_useId = a})--useOrganizations :: Lens' User (Maybe JSONValue)-useOrganizations-  = lens _useOrganizations-      (\ s a -> s{_useOrganizations = a})---- | username of User-usePrimaryEmail :: Lens' User (Maybe Text)-usePrimaryEmail-  = lens _usePrimaryEmail-      (\ s a -> s{_usePrimaryEmail = a})---- | Is 2-step verification enforced (Read-only)-useIsEnforcedIn2Sv :: Lens' User (Maybe Bool)-useIsEnforcedIn2Sv-  = lens _useIsEnforcedIn2Sv-      (\ s a -> s{_useIsEnforcedIn2Sv = a})--useNotes :: Lens' User (Maybe JSONValue)-useNotes = lens _useNotes (\ s a -> s{_useNotes = a})---- | Boolean indicating if the user is delegated admin (Read-only)-useIsDelegatedAdmin :: Lens' User (Maybe Bool)-useIsDelegatedAdmin-  = lens _useIsDelegatedAdmin-      (\ s a -> s{_useIsDelegatedAdmin = a})--useLocations :: Lens' User (Maybe JSONValue)-useLocations-  = lens _useLocations (\ s a -> s{_useLocations = a})---- | Indicates if user is archived.-useArchived :: Lens' User (Maybe Bool)-useArchived-  = lens _useArchived (\ s a -> s{_useArchived = a})---- | Is mailbox setup (Read-only)-useIsMailboxSetup :: Lens' User (Maybe Bool)-useIsMailboxSetup-  = lens _useIsMailboxSetup-      (\ s a -> s{_useIsMailboxSetup = a})---- | Custom fields of the user.-useCustomSchemas :: Lens' User (Maybe UserCustomSchemas)-useCustomSchemas-  = lens _useCustomSchemas-      (\ s a -> s{_useCustomSchemas = a})---- | Suspension reason if user is suspended (Read-only)-useSuspensionReason :: Lens' User (Maybe Text)-useSuspensionReason-  = lens _useSuspensionReason-      (\ s a -> s{_useSuspensionReason = a})--instance FromJSON User where-        parseJSON-          = withObject "User"-              (\ o ->-                 User' <$>-                   (o .:? "creationTime") <*> (o .:? "lastLoginTime")-                     <*> (o .:? "thumbnailPhotoEtag")-                     <*> (o .:? "etag")-                     <*> (o .:? "posixAccounts")-                     <*> (o .:? "ipWhitelisted")-                     <*> (o .:? "relations")-                     <*> (o .:? "sshPublicKeys")-                     <*> (o .:? "hashFunction")-                     <*> (o .:? "kind" .!= "admin#directory#user")-                     <*> (o .:? "changePasswordAtNextLogin")-                     <*> (o .:? "websites")-                     <*> (o .:? "addresses")-                     <*> (o .:? "aliases" .!= mempty)-                     <*> (o .:? "thumbnailPhotoUrl")-                     <*> (o .:? "externalIds")-                     <*> (o .:? "suspended")-                     <*> (o .:? "agreedToTerms")-                     <*> (o .:? "deletionTime")-                     <*> (o .:? "nonEditableAliases" .!= mempty)-                     <*> (o .:? "orgUnitPath")-                     <*> (o .:? "customerId")-                     <*> (o .:? "languages")-                     <*> (o .:? "includeInGlobalAddressList")-                     <*> (o .:? "gender")-                     <*> (o .:? "phones")-                     <*> (o .:? "name")-                     <*> (o .:? "password")-                     <*> (o .:? "emails")-                     <*> (o .:? "ims")-                     <*> (o .:? "keywords")-                     <*> (o .:? "isAdmin")-                     <*> (o .:? "isEnrolledIn2Sv")-                     <*> (o .:? "id")-                     <*> (o .:? "organizations")-                     <*> (o .:? "primaryEmail")-                     <*> (o .:? "isEnforcedIn2Sv")-                     <*> (o .:? "notes")-                     <*> (o .:? "isDelegatedAdmin")-                     <*> (o .:? "locations")-                     <*> (o .:? "archived")-                     <*> (o .:? "isMailboxSetup")-                     <*> (o .:? "customSchemas")-                     <*> (o .:? "suspensionReason"))--instance ToJSON User where-        toJSON User'{..}-          = object-              (catMaybes-                 [("creationTime" .=) <$> _useCreationTime,-                  ("lastLoginTime" .=) <$> _useLastLoginTime,-                  ("thumbnailPhotoEtag" .=) <$> _useThumbnailPhotoEtag,-                  ("etag" .=) <$> _useEtag,-                  ("posixAccounts" .=) <$> _usePosixAccounts,-                  ("ipWhitelisted" .=) <$> _useIPWhiteListed,-                  ("relations" .=) <$> _useRelations,-                  ("sshPublicKeys" .=) <$> _useSSHPublicKeys,-                  ("hashFunction" .=) <$> _useHashFunction,-                  Just ("kind" .= _useKind),-                  ("changePasswordAtNextLogin" .=) <$>-                    _useChangePasswordAtNextLogin,-                  ("websites" .=) <$> _useWebsites,-                  ("addresses" .=) <$> _useAddresses,-                  ("aliases" .=) <$> _useAliases,-                  ("thumbnailPhotoUrl" .=) <$> _useThumbnailPhotoURL,-                  ("externalIds" .=) <$> _useExternalIds,-                  ("suspended" .=) <$> _useSuspended,-                  ("agreedToTerms" .=) <$> _useAgreedToTerms,-                  ("deletionTime" .=) <$> _useDeletionTime,-                  ("nonEditableAliases" .=) <$> _useNonEditableAliases,-                  ("orgUnitPath" .=) <$> _useOrgUnitPath,-                  ("customerId" .=) <$> _useCustomerId,-                  ("languages" .=) <$> _useLanguages,-                  ("includeInGlobalAddressList" .=) <$>-                    _useIncludeInGlobalAddressList,-                  ("gender" .=) <$> _useGender,-                  ("phones" .=) <$> _usePhones,-                  ("name" .=) <$> _useName,-                  ("password" .=) <$> _usePassword,-                  ("emails" .=) <$> _useEmails, ("ims" .=) <$> _useIms,-                  ("keywords" .=) <$> _useKeywords,-                  ("isAdmin" .=) <$> _useIsAdmin,-                  ("isEnrolledIn2Sv" .=) <$> _useIsEnrolledIn2Sv,-                  ("id" .=) <$> _useId,-                  ("organizations" .=) <$> _useOrganizations,-                  ("primaryEmail" .=) <$> _usePrimaryEmail,-                  ("isEnforcedIn2Sv" .=) <$> _useIsEnforcedIn2Sv,-                  ("notes" .=) <$> _useNotes,-                  ("isDelegatedAdmin" .=) <$> _useIsDelegatedAdmin,-                  ("locations" .=) <$> _useLocations,-                  ("archived" .=) <$> _useArchived,-                  ("isMailboxSetup" .=) <$> _useIsMailboxSetup,-                  ("customSchemas" .=) <$> _useCustomSchemas,-                  ("suspensionReason" .=) <$> _useSuspensionReason])---- | JSON request template for firing actions on ChromeOs Device in Directory--- Devices API.------ /See:/ 'chromeOSDeviceAction' smart constructor.-data ChromeOSDeviceAction =-  ChromeOSDeviceAction'-    { _codaAction            :: !(Maybe Text)-    , _codaDeprovisionReason :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeOSDeviceAction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'codaAction'------ * 'codaDeprovisionReason'-chromeOSDeviceAction-    :: ChromeOSDeviceAction-chromeOSDeviceAction =-  ChromeOSDeviceAction'-    {_codaAction = Nothing, _codaDeprovisionReason = Nothing}----- | Action to be taken on the ChromeOs Device-codaAction :: Lens' ChromeOSDeviceAction (Maybe Text)-codaAction-  = lens _codaAction (\ s a -> s{_codaAction = a})--codaDeprovisionReason :: Lens' ChromeOSDeviceAction (Maybe Text)-codaDeprovisionReason-  = lens _codaDeprovisionReason-      (\ s a -> s{_codaDeprovisionReason = a})--instance FromJSON ChromeOSDeviceAction where-        parseJSON-          = withObject "ChromeOSDeviceAction"-              (\ o ->-                 ChromeOSDeviceAction' <$>-                   (o .:? "action") <*> (o .:? "deprovisionReason"))--instance ToJSON ChromeOSDeviceAction where-        toJSON ChromeOSDeviceAction'{..}-          = object-              (catMaybes-                 [("action" .=) <$> _codaAction,-                  ("deprovisionReason" .=) <$> _codaDeprovisionReason])---- | JSON request template for renaming a feature.------ /See:/ 'featureRename' smart constructor.-newtype FeatureRename =-  FeatureRename'-    { _frNewName :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FeatureRename' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'frNewName'-featureRename-    :: FeatureRename-featureRename = FeatureRename' {_frNewName = Nothing}----- | New name of the feature.-frNewName :: Lens' FeatureRename (Maybe Text)-frNewName-  = lens _frNewName (\ s a -> s{_frNewName = a})--instance FromJSON FeatureRename where-        parseJSON-          = withObject "FeatureRename"-              (\ o -> FeatureRename' <$> (o .:? "newName"))--instance ToJSON FeatureRename where-        toJSON FeatureRename'{..}-          = object (catMaybes [("newName" .=) <$> _frNewName])---- | JSON template for role resource in Directory API.------ /See:/ 'role'' smart constructor.-data Role =-  Role'-    { _rrEtag             :: !(Maybe Text)-    , _rrKind             :: !Text-    , _rrRoleName         :: !(Maybe Text)-    , _rrIsSystemRole     :: !(Maybe Bool)-    , _rrRoleId           :: !(Maybe (Textual Int64))-    , _rrRoleDescription  :: !(Maybe Text)-    , _rrIsSuperAdminRole :: !(Maybe Bool)-    , _rrRolePrivileges   :: !(Maybe [RoleRolePrivilegesItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Role' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rrEtag'------ * 'rrKind'------ * 'rrRoleName'------ * 'rrIsSystemRole'------ * 'rrRoleId'------ * 'rrRoleDescription'------ * 'rrIsSuperAdminRole'------ * 'rrRolePrivileges'-role'-    :: Role-role' =-  Role'-    { _rrEtag = Nothing-    , _rrKind = "admin#directory#role"-    , _rrRoleName = Nothing-    , _rrIsSystemRole = Nothing-    , _rrRoleId = Nothing-    , _rrRoleDescription = Nothing-    , _rrIsSuperAdminRole = Nothing-    , _rrRolePrivileges = Nothing-    }----- | ETag of the resource.-rrEtag :: Lens' Role (Maybe Text)-rrEtag = lens _rrEtag (\ s a -> s{_rrEtag = a})---- | The type of the API resource. This is always admin#directory#role.-rrKind :: Lens' Role Text-rrKind = lens _rrKind (\ s a -> s{_rrKind = a})---- | Name of the role.-rrRoleName :: Lens' Role (Maybe Text)-rrRoleName-  = lens _rrRoleName (\ s a -> s{_rrRoleName = a})---- | Returns true if this is a pre-defined system role.-rrIsSystemRole :: Lens' Role (Maybe Bool)-rrIsSystemRole-  = lens _rrIsSystemRole-      (\ s a -> s{_rrIsSystemRole = a})---- | ID of the role.-rrRoleId :: Lens' Role (Maybe Int64)-rrRoleId-  = lens _rrRoleId (\ s a -> s{_rrRoleId = a}) .-      mapping _Coerce---- | A short description of the role.-rrRoleDescription :: Lens' Role (Maybe Text)-rrRoleDescription-  = lens _rrRoleDescription-      (\ s a -> s{_rrRoleDescription = a})---- | Returns true if the role is a super admin role.-rrIsSuperAdminRole :: Lens' Role (Maybe Bool)-rrIsSuperAdminRole-  = lens _rrIsSuperAdminRole-      (\ s a -> s{_rrIsSuperAdminRole = a})---- | The set of privileges that are granted to this role.-rrRolePrivileges :: Lens' Role [RoleRolePrivilegesItem]-rrRolePrivileges-  = lens _rrRolePrivileges-      (\ s a -> s{_rrRolePrivileges = a})-      . _Default-      . _Coerce--instance FromJSON Role where-        parseJSON-          = withObject "Role"-              (\ o ->-                 Role' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#role")-                     <*> (o .:? "roleName")-                     <*> (o .:? "isSystemRole")-                     <*> (o .:? "roleId")-                     <*> (o .:? "roleDescription")-                     <*> (o .:? "isSuperAdminRole")-                     <*> (o .:? "rolePrivileges" .!= mempty))--instance ToJSON Role where-        toJSON Role'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _rrEtag, Just ("kind" .= _rrKind),-                  ("roleName" .=) <$> _rrRoleName,-                  ("isSystemRole" .=) <$> _rrIsSystemRole,-                  ("roleId" .=) <$> _rrRoleId,-                  ("roleDescription" .=) <$> _rrRoleDescription,-                  ("isSuperAdminRole" .=) <$> _rrIsSuperAdminRole,-                  ("rolePrivileges" .=) <$> _rrRolePrivileges])---- | JSON template for Customer Resource object in Directory API.------ /See:/ 'customer' smart constructor.-data Customer =-  Customer'-    { _cusEtag                 :: !(Maybe Text)-    , _cusKind                 :: !Text-    , _cusAlternateEmail       :: !(Maybe Text)-    , _cusCustomerDomain       :: !(Maybe Text)-    , _cusPhoneNumber          :: !(Maybe Text)-    , _cusLanguage             :: !(Maybe Text)-    , _cusId                   :: !(Maybe Text)-    , _cusCustomerCreationTime :: !(Maybe DateTime')-    , _cusPostalAddress        :: !(Maybe CustomerPostalAddress)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Customer' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cusEtag'------ * 'cusKind'------ * 'cusAlternateEmail'------ * 'cusCustomerDomain'------ * 'cusPhoneNumber'------ * 'cusLanguage'------ * 'cusId'------ * 'cusCustomerCreationTime'------ * 'cusPostalAddress'-customer-    :: Customer-customer =-  Customer'-    { _cusEtag = Nothing-    , _cusKind = "admin#directory#customer"-    , _cusAlternateEmail = Nothing-    , _cusCustomerDomain = Nothing-    , _cusPhoneNumber = Nothing-    , _cusLanguage = Nothing-    , _cusId = Nothing-    , _cusCustomerCreationTime = Nothing-    , _cusPostalAddress = Nothing-    }----- | ETag of the resource.-cusEtag :: Lens' Customer (Maybe Text)-cusEtag = lens _cusEtag (\ s a -> s{_cusEtag = a})---- | Identifies the resource as a customer. Value: admin#directory#customer-cusKind :: Lens' Customer Text-cusKind = lens _cusKind (\ s a -> s{_cusKind = a})---- | The customer\'s secondary contact email address. This email address--- cannot be on the same domain as the customerDomain-cusAlternateEmail :: Lens' Customer (Maybe Text)-cusAlternateEmail-  = lens _cusAlternateEmail-      (\ s a -> s{_cusAlternateEmail = a})---- | The customer\'s primary domain name string. Do not include the www--- prefix when creating a new customer.-cusCustomerDomain :: Lens' Customer (Maybe Text)-cusCustomerDomain-  = lens _cusCustomerDomain-      (\ s a -> s{_cusCustomerDomain = a})---- | The customer\'s contact phone number in E.164 format.-cusPhoneNumber :: Lens' Customer (Maybe Text)-cusPhoneNumber-  = lens _cusPhoneNumber-      (\ s a -> s{_cusPhoneNumber = a})---- | The customer\'s ISO 639-2 language code. The default value is en-US-cusLanguage :: Lens' Customer (Maybe Text)-cusLanguage-  = lens _cusLanguage (\ s a -> s{_cusLanguage = a})---- | The unique ID for the customer\'s G Suite account. (Readonly)-cusId :: Lens' Customer (Maybe Text)-cusId = lens _cusId (\ s a -> s{_cusId = a})---- | The customer\'s creation time (Readonly)-cusCustomerCreationTime :: Lens' Customer (Maybe UTCTime)-cusCustomerCreationTime-  = lens _cusCustomerCreationTime-      (\ s a -> s{_cusCustomerCreationTime = a})-      . mapping _DateTime---- | The customer\'s postal address information.-cusPostalAddress :: Lens' Customer (Maybe CustomerPostalAddress)-cusPostalAddress-  = lens _cusPostalAddress-      (\ s a -> s{_cusPostalAddress = a})--instance FromJSON Customer where-        parseJSON-          = withObject "Customer"-              (\ o ->-                 Customer' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#customer")-                     <*> (o .:? "alternateEmail")-                     <*> (o .:? "customerDomain")-                     <*> (o .:? "phoneNumber")-                     <*> (o .:? "language")-                     <*> (o .:? "id")-                     <*> (o .:? "customerCreationTime")-                     <*> (o .:? "postalAddress"))--instance ToJSON Customer where-        toJSON Customer'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _cusEtag, Just ("kind" .= _cusKind),-                  ("alternateEmail" .=) <$> _cusAlternateEmail,-                  ("customerDomain" .=) <$> _cusCustomerDomain,-                  ("phoneNumber" .=) <$> _cusPhoneNumber,-                  ("language" .=) <$> _cusLanguage,-                  ("id" .=) <$> _cusId,-                  ("customerCreationTime" .=) <$>-                    _cusCustomerCreationTime,-                  ("postalAddress" .=) <$> _cusPostalAddress])------- /See:/ 'mobileDeviceApplicationsItem' smart constructor.-data MobileDeviceApplicationsItem =-  MobileDeviceApplicationsItem'-    { _mdaiVersionCode :: !(Maybe (Textual Int32))-    , _mdaiVersionName :: !(Maybe Text)-    , _mdaiPackageName :: !(Maybe Text)-    , _mdaiDisplayName :: !(Maybe Text)-    , _mdaiPermission  :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MobileDeviceApplicationsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mdaiVersionCode'------ * 'mdaiVersionName'------ * 'mdaiPackageName'------ * 'mdaiDisplayName'------ * 'mdaiPermission'-mobileDeviceApplicationsItem-    :: MobileDeviceApplicationsItem-mobileDeviceApplicationsItem =-  MobileDeviceApplicationsItem'-    { _mdaiVersionCode = Nothing-    , _mdaiVersionName = Nothing-    , _mdaiPackageName = Nothing-    , _mdaiDisplayName = Nothing-    , _mdaiPermission = Nothing-    }----- | Version code of application-mdaiVersionCode :: Lens' MobileDeviceApplicationsItem (Maybe Int32)-mdaiVersionCode-  = lens _mdaiVersionCode-      (\ s a -> s{_mdaiVersionCode = a})-      . mapping _Coerce---- | Version name of application-mdaiVersionName :: Lens' MobileDeviceApplicationsItem (Maybe Text)-mdaiVersionName-  = lens _mdaiVersionName-      (\ s a -> s{_mdaiVersionName = a})---- | Package name of application-mdaiPackageName :: Lens' MobileDeviceApplicationsItem (Maybe Text)-mdaiPackageName-  = lens _mdaiPackageName-      (\ s a -> s{_mdaiPackageName = a})---- | Display name of application-mdaiDisplayName :: Lens' MobileDeviceApplicationsItem (Maybe Text)-mdaiDisplayName-  = lens _mdaiDisplayName-      (\ s a -> s{_mdaiDisplayName = a})---- | List of Permissions for application-mdaiPermission :: Lens' MobileDeviceApplicationsItem [Text]-mdaiPermission-  = lens _mdaiPermission-      (\ s a -> s{_mdaiPermission = a})-      . _Default-      . _Coerce--instance FromJSON MobileDeviceApplicationsItem where-        parseJSON-          = withObject "MobileDeviceApplicationsItem"-              (\ o ->-                 MobileDeviceApplicationsItem' <$>-                   (o .:? "versionCode") <*> (o .:? "versionName") <*>-                     (o .:? "packageName")-                     <*> (o .:? "displayName")-                     <*> (o .:? "permission" .!= mempty))--instance ToJSON MobileDeviceApplicationsItem where-        toJSON MobileDeviceApplicationsItem'{..}-          = object-              (catMaybes-                 [("versionCode" .=) <$> _mdaiVersionCode,-                  ("versionName" .=) <$> _mdaiVersionName,-                  ("packageName" .=) <$> _mdaiPackageName,-                  ("displayName" .=) <$> _mdaiDisplayName,-                  ("permission" .=) <$> _mdaiPermission])------- /See:/ 'chromeOSDeviceDiskVolumeReportsItemVolumeInfoItem' smart constructor.-data ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem =-  ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem'-    { _coddvriviiStorageFree  :: !(Maybe (Textual Int64))-    , _coddvriviiStorageTotal :: !(Maybe (Textual Int64))-    , _coddvriviiVolumeId     :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'coddvriviiStorageFree'------ * 'coddvriviiStorageTotal'------ * 'coddvriviiVolumeId'-chromeOSDeviceDiskVolumeReportsItemVolumeInfoItem-    :: ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem-chromeOSDeviceDiskVolumeReportsItemVolumeInfoItem =-  ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem'-    { _coddvriviiStorageFree = Nothing-    , _coddvriviiStorageTotal = Nothing-    , _coddvriviiVolumeId = Nothing-    }----- | Free disk space [in bytes]-coddvriviiStorageFree :: Lens' ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem (Maybe Int64)-coddvriviiStorageFree-  = lens _coddvriviiStorageFree-      (\ s a -> s{_coddvriviiStorageFree = a})-      . mapping _Coerce---- | Total disk space [in bytes]-coddvriviiStorageTotal :: Lens' ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem (Maybe Int64)-coddvriviiStorageTotal-  = lens _coddvriviiStorageTotal-      (\ s a -> s{_coddvriviiStorageTotal = a})-      . mapping _Coerce---- | Volume id-coddvriviiVolumeId :: Lens' ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem (Maybe Text)-coddvriviiVolumeId-  = lens _coddvriviiVolumeId-      (\ s a -> s{_coddvriviiVolumeId = a})--instance FromJSON-           ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem-         where-        parseJSON-          = withObject-              "ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem"-              (\ o ->-                 ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem'-                   <$>-                   (o .:? "storageFree") <*> (o .:? "storageTotal") <*>-                     (o .:? "volumeId"))--instance ToJSON-           ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem-         where-        toJSON-          ChromeOSDeviceDiskVolumeReportsItemVolumeInfoItem'{..}-          = object-              (catMaybes-                 [("storageFree" .=) <$> _coddvriviiStorageFree,-                  ("storageTotal" .=) <$> _coddvriviiStorageTotal,-                  ("volumeId" .=) <$> _coddvriviiVolumeId])---- | JSON response template for List Organization Units operation in--- Directory API.------ /See:/ 'orgUnits' smart constructor.-data OrgUnits =-  OrgUnits'-    { _oEtag              :: !(Maybe Text)-    , _oKind              :: !Text-    , _oOrganizationUnits :: !(Maybe [OrgUnit])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OrgUnits' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oEtag'------ * 'oKind'------ * 'oOrganizationUnits'-orgUnits-    :: OrgUnits-orgUnits =-  OrgUnits'-    { _oEtag = Nothing-    , _oKind = "admin#directory#orgUnits"-    , _oOrganizationUnits = Nothing-    }----- | ETag of the resource.-oEtag :: Lens' OrgUnits (Maybe Text)-oEtag = lens _oEtag (\ s a -> s{_oEtag = a})---- | Kind of resource this is.-oKind :: Lens' OrgUnits Text-oKind = lens _oKind (\ s a -> s{_oKind = a})---- | List of user objects.-oOrganizationUnits :: Lens' OrgUnits [OrgUnit]-oOrganizationUnits-  = lens _oOrganizationUnits-      (\ s a -> s{_oOrganizationUnits = a})-      . _Default-      . _Coerce--instance FromJSON OrgUnits where-        parseJSON-          = withObject "OrgUnits"-              (\ o ->-                 OrgUnits' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#orgUnits")-                     <*> (o .:? "organizationUnits" .!= mempty))--instance ToJSON OrgUnits where-        toJSON OrgUnits'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _oEtag, Just ("kind" .= _oKind),-                  ("organizationUnits" .=) <$> _oOrganizationUnits])---- | JSON template for a POSIX account entry.------ /See:/ 'userSSHPublicKey' smart constructor.-data UserSSHPublicKey =-  UserSSHPublicKey'-    { _uspkFingerprint        :: !(Maybe Text)-    , _uspkKey                :: !(Maybe Text)-    , _uspkExpirationTimeUsec :: !(Maybe (Textual Int64))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserSSHPublicKey' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uspkFingerprint'------ * 'uspkKey'------ * 'uspkExpirationTimeUsec'-userSSHPublicKey-    :: UserSSHPublicKey-userSSHPublicKey =-  UserSSHPublicKey'-    { _uspkFingerprint = Nothing-    , _uspkKey = Nothing-    , _uspkExpirationTimeUsec = Nothing-    }----- | A SHA-256 fingerprint of the SSH public key. (Read-only)-uspkFingerprint :: Lens' UserSSHPublicKey (Maybe Text)-uspkFingerprint-  = lens _uspkFingerprint-      (\ s a -> s{_uspkFingerprint = a})---- | An SSH public key.-uspkKey :: Lens' UserSSHPublicKey (Maybe Text)-uspkKey = lens _uspkKey (\ s a -> s{_uspkKey = a})---- | An expiration time in microseconds since epoch.-uspkExpirationTimeUsec :: Lens' UserSSHPublicKey (Maybe Int64)-uspkExpirationTimeUsec-  = lens _uspkExpirationTimeUsec-      (\ s a -> s{_uspkExpirationTimeUsec = a})-      . mapping _Coerce--instance FromJSON UserSSHPublicKey where-        parseJSON-          = withObject "UserSSHPublicKey"-              (\ o ->-                 UserSSHPublicKey' <$>-                   (o .:? "fingerprint") <*> (o .:? "key") <*>-                     (o .:? "expirationTimeUsec"))--instance ToJSON UserSSHPublicKey where-        toJSON UserSSHPublicKey'{..}-          = object-              (catMaybes-                 [("fingerprint" .=) <$> _uspkFingerprint,-                  ("key" .=) <$> _uspkKey,-                  ("expirationTimeUsec" .=) <$>-                    _uspkExpirationTimeUsec])---- | JSON response template for List verification codes operation in--- Directory API.------ /See:/ 'verificationCodes' smart constructor.-data VerificationCodes =-  VerificationCodes'-    { _vEtag  :: !(Maybe Text)-    , _vKind  :: !Text-    , _vItems :: !(Maybe [VerificationCode])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VerificationCodes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vEtag'------ * 'vKind'------ * 'vItems'-verificationCodes-    :: VerificationCodes-verificationCodes =-  VerificationCodes'-    { _vEtag = Nothing-    , _vKind = "admin#directory#verificationCodesList"-    , _vItems = Nothing-    }----- | ETag of the resource.-vEtag :: Lens' VerificationCodes (Maybe Text)-vEtag = lens _vEtag (\ s a -> s{_vEtag = a})---- | The type of the resource. This is always--- admin#directory#verificationCodesList.-vKind :: Lens' VerificationCodes Text-vKind = lens _vKind (\ s a -> s{_vKind = a})---- | A list of verification code resources.-vItems :: Lens' VerificationCodes [VerificationCode]-vItems-  = lens _vItems (\ s a -> s{_vItems = a}) . _Default .-      _Coerce--instance FromJSON VerificationCodes where-        parseJSON-          = withObject "VerificationCodes"-              (\ o ->-                 VerificationCodes' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!=-                        "admin#directory#verificationCodesList")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON VerificationCodes where-        toJSON VerificationCodes'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _vEtag, Just ("kind" .= _vKind),-                  ("items" .=) <$> _vItems])---- | JSON template for coordinates of a building in Directory API.------ /See:/ 'buildingCoordinates' smart constructor.-data BuildingCoordinates =-  BuildingCoordinates'-    { _bcLatitude  :: !(Maybe (Textual Double))-    , _bcLongitude :: !(Maybe (Textual Double))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'BuildingCoordinates' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bcLatitude'------ * 'bcLongitude'-buildingCoordinates-    :: BuildingCoordinates-buildingCoordinates =-  BuildingCoordinates' {_bcLatitude = Nothing, _bcLongitude = Nothing}----- | Latitude in decimal degrees.-bcLatitude :: Lens' BuildingCoordinates (Maybe Double)-bcLatitude-  = lens _bcLatitude (\ s a -> s{_bcLatitude = a}) .-      mapping _Coerce---- | Longitude in decimal degrees.-bcLongitude :: Lens' BuildingCoordinates (Maybe Double)-bcLongitude-  = lens _bcLongitude (\ s a -> s{_bcLongitude = a}) .-      mapping _Coerce--instance FromJSON BuildingCoordinates where-        parseJSON-          = withObject "BuildingCoordinates"-              (\ o ->-                 BuildingCoordinates' <$>-                   (o .:? "latitude") <*> (o .:? "longitude"))--instance ToJSON BuildingCoordinates where-        toJSON BuildingCoordinates'{..}-          = object-              (catMaybes-                 [("latitude" .=) <$> _bcLatitude,-                  ("longitude" .=) <$> _bcLongitude])---- | JSON template for a relation entry.------ /See:/ 'userRelation' smart constructor.-data UserRelation =-  UserRelation'-    { _urValue      :: !(Maybe Text)-    , _urType       :: !(Maybe Text)-    , _urCustomType :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserRelation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'urValue'------ * 'urType'------ * 'urCustomType'-userRelation-    :: UserRelation-userRelation =-  UserRelation' {_urValue = Nothing, _urType = Nothing, _urCustomType = Nothing}----- | The name of the relation.-urValue :: Lens' UserRelation (Maybe Text)-urValue = lens _urValue (\ s a -> s{_urValue = a})---- | The relation of the user. Some of the possible values are mother,--- father, sister, brother, manager, assistant, partner.-urType :: Lens' UserRelation (Maybe Text)-urType = lens _urType (\ s a -> s{_urType = a})---- | Custom Type.-urCustomType :: Lens' UserRelation (Maybe Text)-urCustomType-  = lens _urCustomType (\ s a -> s{_urCustomType = a})--instance FromJSON UserRelation where-        parseJSON-          = withObject "UserRelation"-              (\ o ->-                 UserRelation' <$>-                   (o .:? "value") <*> (o .:? "type") <*>-                     (o .:? "customType"))--instance ToJSON UserRelation where-        toJSON UserRelation'{..}-          = object-              (catMaybes-                 [("value" .=) <$> _urValue, ("type" .=) <$> _urType,-                  ("customType" .=) <$> _urCustomType])---- | JSON template for Trusted Apps response object of a user in Directory--- API.------ /See:/ 'trustedApps' smart constructor.-data TrustedApps =-  TrustedApps'-    { _taEtag          :: !(Maybe Text)-    , _taNextPageToken :: !(Maybe Text)-    , _taKind          :: !Text-    , _taTrustedApps   :: !(Maybe [TrustedAppId])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TrustedApps' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'taEtag'------ * 'taNextPageToken'------ * 'taKind'------ * 'taTrustedApps'-trustedApps-    :: TrustedApps-trustedApps =-  TrustedApps'-    { _taEtag = Nothing-    , _taNextPageToken = Nothing-    , _taKind = "admin#directory#trustedapplist"-    , _taTrustedApps = Nothing-    }----- | ETag of the resource.-taEtag :: Lens' TrustedApps (Maybe Text)-taEtag = lens _taEtag (\ s a -> s{_taEtag = a})--taNextPageToken :: Lens' TrustedApps (Maybe Text)-taNextPageToken-  = lens _taNextPageToken-      (\ s a -> s{_taNextPageToken = a})---- | Identifies the resource as trusted apps response.-taKind :: Lens' TrustedApps Text-taKind = lens _taKind (\ s a -> s{_taKind = a})---- | Trusted Apps list.-taTrustedApps :: Lens' TrustedApps [TrustedAppId]-taTrustedApps-  = lens _taTrustedApps-      (\ s a -> s{_taTrustedApps = a})-      . _Default-      . _Coerce--instance FromJSON TrustedApps where-        parseJSON-          = withObject "TrustedApps"-              (\ o ->-                 TrustedApps' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "admin#directory#trustedapplist")-                     <*> (o .:? "trustedApps" .!= mempty))--instance ToJSON TrustedApps where-        toJSON TrustedApps'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _taEtag,-                  ("nextPageToken" .=) <$> _taNextPageToken,-                  Just ("kind" .= _taKind),-                  ("trustedApps" .=) <$> _taTrustedApps])---- | JSON template for Feature List Response object in Directory API.------ /See:/ 'features' smart constructor.-data Features =-  Features'-    { _feaEtag          :: !(Maybe Text)-    , _feaNextPageToken :: !(Maybe Text)-    , _feaKind          :: !Text-    , _feaFeatures      :: !(Maybe [Feature])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Features' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'feaEtag'------ * 'feaNextPageToken'------ * 'feaKind'------ * 'feaFeatures'-features-    :: Features-features =-  Features'-    { _feaEtag = Nothing-    , _feaNextPageToken = Nothing-    , _feaKind = "admin#directory#resources#features#featuresList"-    , _feaFeatures = Nothing-    }----- | ETag of the resource.-feaEtag :: Lens' Features (Maybe Text)-feaEtag = lens _feaEtag (\ s a -> s{_feaEtag = a})---- | The continuation token, used to page through large result sets. Provide--- this value in a subsequent request to return the next page of results.-feaNextPageToken :: Lens' Features (Maybe Text)-feaNextPageToken-  = lens _feaNextPageToken-      (\ s a -> s{_feaNextPageToken = a})---- | Kind of resource this is.-feaKind :: Lens' Features Text-feaKind = lens _feaKind (\ s a -> s{_feaKind = a})---- | The Features in this page of results.-feaFeatures :: Lens' Features [Feature]-feaFeatures-  = lens _feaFeatures (\ s a -> s{_feaFeatures = a}) .-      _Default-      . _Coerce--instance FromJSON Features where-        parseJSON-          = withObject "Features"-              (\ o ->-                 Features' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!=-                        "admin#directory#resources#features#featuresList")-                     <*> (o .:? "features" .!= mempty))--instance ToJSON Features where-        toJSON Features'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _feaEtag,-                  ("nextPageToken" .=) <$> _feaNextPageToken,-                  Just ("kind" .= _feaKind),-                  ("features" .=) <$> _feaFeatures])---- | Additional parameters controlling delivery channel behavior. Optional.------ /See:/ 'channelParams' smart constructor.-newtype ChannelParams =-  ChannelParams'-    { _cpAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChannelParams' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpAddtional'-channelParams-    :: HashMap Text Text -- ^ 'cpAddtional'-    -> ChannelParams-channelParams pCpAddtional_ =-  ChannelParams' {_cpAddtional = _Coerce # pCpAddtional_}----- | Declares a new parameter by name.-cpAddtional :: Lens' ChannelParams (HashMap Text Text)-cpAddtional-  = lens _cpAddtional (\ s a -> s{_cpAddtional = a}) .-      _Coerce--instance FromJSON ChannelParams where-        parseJSON-          = withObject "ChannelParams"-              (\ o -> ChannelParams' <$> (parseJSONObject o))--instance ToJSON ChannelParams where-        toJSON = toJSON . _cpAddtional---- | Trusted Platform Module (TPM) (Read-only)------ /See:/ 'chromeOSDeviceTpmVersionInfo' smart constructor.-data ChromeOSDeviceTpmVersionInfo =-  ChromeOSDeviceTpmVersionInfo'-    { _codtviVendorSpecific  :: !(Maybe Text)-    , _codtviManufacturer    :: !(Maybe Text)-    , _codtviSpecLevel       :: !(Maybe Text)-    , _codtviTpmModel        :: !(Maybe Text)-    , _codtviFamily          :: !(Maybe Text)-    , _codtviFirmwareVersion :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeOSDeviceTpmVersionInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'codtviVendorSpecific'------ * 'codtviManufacturer'------ * 'codtviSpecLevel'------ * 'codtviTpmModel'------ * 'codtviFamily'------ * 'codtviFirmwareVersion'-chromeOSDeviceTpmVersionInfo-    :: ChromeOSDeviceTpmVersionInfo-chromeOSDeviceTpmVersionInfo =-  ChromeOSDeviceTpmVersionInfo'-    { _codtviVendorSpecific = Nothing-    , _codtviManufacturer = Nothing-    , _codtviSpecLevel = Nothing-    , _codtviTpmModel = Nothing-    , _codtviFamily = Nothing-    , _codtviFirmwareVersion = Nothing-    }----- | Vendor-specific information such as Vendor ID.-codtviVendorSpecific :: Lens' ChromeOSDeviceTpmVersionInfo (Maybe Text)-codtviVendorSpecific-  = lens _codtviVendorSpecific-      (\ s a -> s{_codtviVendorSpecific = a})---- | TPM manufacturer code.-codtviManufacturer :: Lens' ChromeOSDeviceTpmVersionInfo (Maybe Text)-codtviManufacturer-  = lens _codtviManufacturer-      (\ s a -> s{_codtviManufacturer = a})---- | TPM specification level.-codtviSpecLevel :: Lens' ChromeOSDeviceTpmVersionInfo (Maybe Text)-codtviSpecLevel-  = lens _codtviSpecLevel-      (\ s a -> s{_codtviSpecLevel = a})---- | TPM model number.-codtviTpmModel :: Lens' ChromeOSDeviceTpmVersionInfo (Maybe Text)-codtviTpmModel-  = lens _codtviTpmModel-      (\ s a -> s{_codtviTpmModel = a})---- | TPM family.-codtviFamily :: Lens' ChromeOSDeviceTpmVersionInfo (Maybe Text)-codtviFamily-  = lens _codtviFamily (\ s a -> s{_codtviFamily = a})---- | TPM firmware version.-codtviFirmwareVersion :: Lens' ChromeOSDeviceTpmVersionInfo (Maybe Text)-codtviFirmwareVersion-  = lens _codtviFirmwareVersion-      (\ s a -> s{_codtviFirmwareVersion = a})--instance FromJSON ChromeOSDeviceTpmVersionInfo where-        parseJSON-          = withObject "ChromeOSDeviceTpmVersionInfo"-              (\ o ->-                 ChromeOSDeviceTpmVersionInfo' <$>-                   (o .:? "vendorSpecific") <*> (o .:? "manufacturer")-                     <*> (o .:? "specLevel")-                     <*> (o .:? "tpmModel")-                     <*> (o .:? "family")-                     <*> (o .:? "firmwareVersion"))--instance ToJSON ChromeOSDeviceTpmVersionInfo where-        toJSON ChromeOSDeviceTpmVersionInfo'{..}-          = object-              (catMaybes-                 [("vendorSpecific" .=) <$> _codtviVendorSpecific,-                  ("manufacturer" .=) <$> _codtviManufacturer,-                  ("specLevel" .=) <$> _codtviSpecLevel,-                  ("tpmModel" .=) <$> _codtviTpmModel,-                  ("family" .=) <$> _codtviFamily,-                  ("firmwareVersion" .=) <$> _codtviFirmwareVersion])---- | JSON template for an organization entry.------ /See:/ 'userOrganization' smart constructor.-data UserOrganization =-  UserOrganization'-    { _uoDePartment         :: !(Maybe Text)-    , _uoLocation           :: !(Maybe Text)-    , _uoCostCenter         :: !(Maybe Text)-    , _uoDomain             :: !(Maybe Text)-    , _uoSymbol             :: !(Maybe Text)-    , _uoPrimary            :: !(Maybe Bool)-    , _uoName               :: !(Maybe Text)-    , _uoFullTimeEquivalent :: !(Maybe (Textual Int32))-    , _uoTitle              :: !(Maybe Text)-    , _uoType               :: !(Maybe Text)-    , _uoCustomType         :: !(Maybe Text)-    , _uoDescription        :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserOrganization' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uoDePartment'------ * 'uoLocation'------ * 'uoCostCenter'------ * 'uoDomain'------ * 'uoSymbol'------ * 'uoPrimary'------ * 'uoName'------ * 'uoFullTimeEquivalent'------ * 'uoTitle'------ * 'uoType'------ * 'uoCustomType'------ * 'uoDescription'-userOrganization-    :: UserOrganization-userOrganization =-  UserOrganization'-    { _uoDePartment = Nothing-    , _uoLocation = Nothing-    , _uoCostCenter = Nothing-    , _uoDomain = Nothing-    , _uoSymbol = Nothing-    , _uoPrimary = Nothing-    , _uoName = Nothing-    , _uoFullTimeEquivalent = Nothing-    , _uoTitle = Nothing-    , _uoType = Nothing-    , _uoCustomType = Nothing-    , _uoDescription = Nothing-    }----- | Department within the organization.-uoDePartment :: Lens' UserOrganization (Maybe Text)-uoDePartment-  = lens _uoDePartment (\ s a -> s{_uoDePartment = a})---- | Location of the organization. This need not be fully qualified address.-uoLocation :: Lens' UserOrganization (Maybe Text)-uoLocation-  = lens _uoLocation (\ s a -> s{_uoLocation = a})---- | The cost center of the users department.-uoCostCenter :: Lens' UserOrganization (Maybe Text)-uoCostCenter-  = lens _uoCostCenter (\ s a -> s{_uoCostCenter = a})---- | The domain to which the organization belongs to.-uoDomain :: Lens' UserOrganization (Maybe Text)-uoDomain = lens _uoDomain (\ s a -> s{_uoDomain = a})---- | Symbol of the organization.-uoSymbol :: Lens' UserOrganization (Maybe Text)-uoSymbol = lens _uoSymbol (\ s a -> s{_uoSymbol = a})---- | If it user\'s primary organization.-uoPrimary :: Lens' UserOrganization (Maybe Bool)-uoPrimary-  = lens _uoPrimary (\ s a -> s{_uoPrimary = a})---- | Name of the organization-uoName :: Lens' UserOrganization (Maybe Text)-uoName = lens _uoName (\ s a -> s{_uoName = a})---- | The full-time equivalent percent within the organization (100000 =--- 100%).-uoFullTimeEquivalent :: Lens' UserOrganization (Maybe Int32)-uoFullTimeEquivalent-  = lens _uoFullTimeEquivalent-      (\ s a -> s{_uoFullTimeEquivalent = a})-      . mapping _Coerce---- | Title (designation) of the user in the organization.-uoTitle :: Lens' UserOrganization (Maybe Text)-uoTitle = lens _uoTitle (\ s a -> s{_uoTitle = a})---- | Each entry can have a type which indicates standard types of that entry.--- For example organization could be of school, work etc. In addition to--- the standard type, an entry can have a custom type and can give it any--- name. Such types should have the CUSTOM value as type and also have a--- CustomType value.-uoType :: Lens' UserOrganization (Maybe Text)-uoType = lens _uoType (\ s a -> s{_uoType = a})---- | Custom type.-uoCustomType :: Lens' UserOrganization (Maybe Text)-uoCustomType-  = lens _uoCustomType (\ s a -> s{_uoCustomType = a})---- | Description of the organization.-uoDescription :: Lens' UserOrganization (Maybe Text)-uoDescription-  = lens _uoDescription-      (\ s a -> s{_uoDescription = a})--instance FromJSON UserOrganization where-        parseJSON-          = withObject "UserOrganization"-              (\ o ->-                 UserOrganization' <$>-                   (o .:? "department") <*> (o .:? "location") <*>-                     (o .:? "costCenter")-                     <*> (o .:? "domain")-                     <*> (o .:? "symbol")-                     <*> (o .:? "primary")-                     <*> (o .:? "name")-                     <*> (o .:? "fullTimeEquivalent")-                     <*> (o .:? "title")-                     <*> (o .:? "type")-                     <*> (o .:? "customType")-                     <*> (o .:? "description"))--instance ToJSON UserOrganization where-        toJSON UserOrganization'{..}-          = object-              (catMaybes-                 [("department" .=) <$> _uoDePartment,-                  ("location" .=) <$> _uoLocation,-                  ("costCenter" .=) <$> _uoCostCenter,-                  ("domain" .=) <$> _uoDomain,-                  ("symbol" .=) <$> _uoSymbol,-                  ("primary" .=) <$> _uoPrimary,-                  ("name" .=) <$> _uoName,-                  ("fullTimeEquivalent" .=) <$> _uoFullTimeEquivalent,-                  ("title" .=) <$> _uoTitle, ("type" .=) <$> _uoType,-                  ("customType" .=) <$> _uoCustomType,-                  ("description" .=) <$> _uoDescription])---- | JSON template for a website entry.------ /See:/ 'userWebsite' smart constructor.-data UserWebsite =-  UserWebsite'-    { _uwValue      :: !(Maybe Text)-    , _uwPrimary    :: !(Maybe Bool)-    , _uwType       :: !(Maybe Text)-    , _uwCustomType :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserWebsite' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uwValue'------ * 'uwPrimary'------ * 'uwType'------ * 'uwCustomType'-userWebsite-    :: UserWebsite-userWebsite =-  UserWebsite'-    { _uwValue = Nothing-    , _uwPrimary = Nothing-    , _uwType = Nothing-    , _uwCustomType = Nothing-    }----- | Website.-uwValue :: Lens' UserWebsite (Maybe Text)-uwValue = lens _uwValue (\ s a -> s{_uwValue = a})---- | If this is user\'s primary website or not.-uwPrimary :: Lens' UserWebsite (Maybe Bool)-uwPrimary-  = lens _uwPrimary (\ s a -> s{_uwPrimary = a})---- | Each entry can have a type which indicates standard types of that entry.--- For example website could be of home, work, blog etc. In addition to the--- standard type, an entry can have a custom type and can give it any name.--- Such types should have the CUSTOM value as type and also have a--- customType value.-uwType :: Lens' UserWebsite (Maybe Text)-uwType = lens _uwType (\ s a -> s{_uwType = a})---- | Custom Type.-uwCustomType :: Lens' UserWebsite (Maybe Text)-uwCustomType-  = lens _uwCustomType (\ s a -> s{_uwCustomType = a})--instance FromJSON UserWebsite where-        parseJSON-          = withObject "UserWebsite"-              (\ o ->-                 UserWebsite' <$>-                   (o .:? "value") <*> (o .:? "primary") <*>-                     (o .:? "type")-                     <*> (o .:? "customType"))--instance ToJSON UserWebsite where-        toJSON UserWebsite'{..}-          = object-              (catMaybes-                 [("value" .=) <$> _uwValue,-                  ("primary" .=) <$> _uwPrimary,-                  ("type" .=) <$> _uwType,-                  ("customType" .=) <$> _uwCustomType])------- /See:/ 'chromeOSDeviceActiveTimeRangesItem' smart constructor.-data ChromeOSDeviceActiveTimeRangesItem =-  ChromeOSDeviceActiveTimeRangesItem'-    { _codatriDate       :: !(Maybe Date')-    , _codatriActiveTime :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeOSDeviceActiveTimeRangesItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'codatriDate'------ * 'codatriActiveTime'-chromeOSDeviceActiveTimeRangesItem-    :: ChromeOSDeviceActiveTimeRangesItem-chromeOSDeviceActiveTimeRangesItem =-  ChromeOSDeviceActiveTimeRangesItem'-    {_codatriDate = Nothing, _codatriActiveTime = Nothing}----- | Date of usage-codatriDate :: Lens' ChromeOSDeviceActiveTimeRangesItem (Maybe Day)-codatriDate-  = lens _codatriDate (\ s a -> s{_codatriDate = a}) .-      mapping _Date---- | Duration in milliseconds-codatriActiveTime :: Lens' ChromeOSDeviceActiveTimeRangesItem (Maybe Int32)-codatriActiveTime-  = lens _codatriActiveTime-      (\ s a -> s{_codatriActiveTime = a})-      . mapping _Coerce--instance FromJSON ChromeOSDeviceActiveTimeRangesItem-         where-        parseJSON-          = withObject "ChromeOSDeviceActiveTimeRangesItem"-              (\ o ->-                 ChromeOSDeviceActiveTimeRangesItem' <$>-                   (o .:? "date") <*> (o .:? "activeTime"))--instance ToJSON ChromeOSDeviceActiveTimeRangesItem-         where-        toJSON ChromeOSDeviceActiveTimeRangesItem'{..}-          = object-              (catMaybes-                 [("date" .=) <$> _codatriDate,-                  ("activeTime" .=) <$> _codatriActiveTime])---- | JSON template for an email.------ /See:/ 'userEmail' smart constructor.-data UserEmail =-  UserEmail'-    { _ueAddress    :: !(Maybe Text)-    , _uePrimary    :: !(Maybe Bool)-    , _ueType       :: !(Maybe Text)-    , _ueCustomType :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserEmail' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ueAddress'------ * 'uePrimary'------ * 'ueType'------ * 'ueCustomType'-userEmail-    :: UserEmail-userEmail =-  UserEmail'-    { _ueAddress = Nothing-    , _uePrimary = Nothing-    , _ueType = Nothing-    , _ueCustomType = Nothing-    }----- | Email id of the user.-ueAddress :: Lens' UserEmail (Maybe Text)-ueAddress-  = lens _ueAddress (\ s a -> s{_ueAddress = a})---- | If this is user\'s primary email. Only one entry could be marked as--- primary.-uePrimary :: Lens' UserEmail (Maybe Bool)-uePrimary-  = lens _uePrimary (\ s a -> s{_uePrimary = a})---- | Each entry can have a type which indicates standard types of that entry.--- For example email could be of home, work etc. In addition to the--- standard type, an entry can have a custom type and can take any value--- Such types should have the CUSTOM value as type and also have a--- customType value.-ueType :: Lens' UserEmail (Maybe Text)-ueType = lens _ueType (\ s a -> s{_ueType = a})---- | Custom Type.-ueCustomType :: Lens' UserEmail (Maybe Text)-ueCustomType-  = lens _ueCustomType (\ s a -> s{_ueCustomType = a})--instance FromJSON UserEmail where-        parseJSON-          = withObject "UserEmail"-              (\ o ->-                 UserEmail' <$>-                   (o .:? "address") <*> (o .:? "primary") <*>-                     (o .:? "type")-                     <*> (o .:? "customType"))--instance ToJSON UserEmail where-        toJSON UserEmail'{..}-          = object-              (catMaybes-                 [("address" .=) <$> _ueAddress,-                  ("primary" .=) <$> _uePrimary,-                  ("type" .=) <$> _ueType,-                  ("customType" .=) <$> _ueCustomType])---- | JSON template for a phone entry.------ /See:/ 'userPhone' smart constructor.-data UserPhone =-  UserPhone'-    { _upValue      :: !(Maybe Text)-    , _upPrimary    :: !(Maybe Bool)-    , _upType       :: !(Maybe Text)-    , _upCustomType :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserPhone' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'upValue'------ * 'upPrimary'------ * 'upType'------ * 'upCustomType'-userPhone-    :: UserPhone-userPhone =-  UserPhone'-    { _upValue = Nothing-    , _upPrimary = Nothing-    , _upType = Nothing-    , _upCustomType = Nothing-    }----- | Phone number.-upValue :: Lens' UserPhone (Maybe Text)-upValue = lens _upValue (\ s a -> s{_upValue = a})---- | If this is user\'s primary phone or not.-upPrimary :: Lens' UserPhone (Maybe Bool)-upPrimary-  = lens _upPrimary (\ s a -> s{_upPrimary = a})---- | Each entry can have a type which indicates standard types of that entry.--- For example phone could be of home_fax, work, mobile etc. In addition to--- the standard type, an entry can have a custom type and can give it any--- name. Such types should have the CUSTOM value as type and also have a--- customType value.-upType :: Lens' UserPhone (Maybe Text)-upType = lens _upType (\ s a -> s{_upType = a})---- | Custom Type.-upCustomType :: Lens' UserPhone (Maybe Text)-upCustomType-  = lens _upCustomType (\ s a -> s{_upCustomType = a})--instance FromJSON UserPhone where-        parseJSON-          = withObject "UserPhone"-              (\ o ->-                 UserPhone' <$>-                   (o .:? "value") <*> (o .:? "primary") <*>-                     (o .:? "type")-                     <*> (o .:? "customType"))--instance ToJSON UserPhone where-        toJSON UserPhone'{..}-          = object-              (catMaybes-                 [("value" .=) <$> _upValue,-                  ("primary" .=) <$> _upPrimary,-                  ("type" .=) <$> _upType,-                  ("customType" .=) <$> _upCustomType])---- | JSON template for Photo object in Directory API.------ /See:/ 'userPhoto' smart constructor.-data UserPhoto =-  UserPhoto'-    { _upPhotoData    :: !(Maybe Bytes)-    , _upEtag         :: !(Maybe Text)-    , _upHeight       :: !(Maybe (Textual Int32))-    , _upKind         :: !Text-    , _upWidth        :: !(Maybe (Textual Int32))-    , _upMimeType     :: !(Maybe Text)-    , _upId           :: !(Maybe Text)-    , _upPrimaryEmail :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserPhoto' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'upPhotoData'------ * 'upEtag'------ * 'upHeight'------ * 'upKind'------ * 'upWidth'------ * 'upMimeType'------ * 'upId'------ * 'upPrimaryEmail'-userPhoto-    :: UserPhoto-userPhoto =-  UserPhoto'-    { _upPhotoData = Nothing-    , _upEtag = Nothing-    , _upHeight = Nothing-    , _upKind = "admin#directory#user#photo"-    , _upWidth = Nothing-    , _upMimeType = Nothing-    , _upId = Nothing-    , _upPrimaryEmail = Nothing-    }----- | Base64 encoded photo data-upPhotoData :: Lens' UserPhoto (Maybe ByteString)-upPhotoData-  = lens _upPhotoData (\ s a -> s{_upPhotoData = a}) .-      mapping _Bytes---- | ETag of the resource.-upEtag :: Lens' UserPhoto (Maybe Text)-upEtag = lens _upEtag (\ s a -> s{_upEtag = a})---- | Height in pixels of the photo-upHeight :: Lens' UserPhoto (Maybe Int32)-upHeight-  = lens _upHeight (\ s a -> s{_upHeight = a}) .-      mapping _Coerce---- | Kind of resource this is.-upKind :: Lens' UserPhoto Text-upKind = lens _upKind (\ s a -> s{_upKind = a})---- | Width in pixels of the photo-upWidth :: Lens' UserPhoto (Maybe Int32)-upWidth-  = lens _upWidth (\ s a -> s{_upWidth = a}) .-      mapping _Coerce---- | Mime Type of the photo-upMimeType :: Lens' UserPhoto (Maybe Text)-upMimeType-  = lens _upMimeType (\ s a -> s{_upMimeType = a})---- | Unique identifier of User (Read-only)-upId :: Lens' UserPhoto (Maybe Text)-upId = lens _upId (\ s a -> s{_upId = a})---- | Primary email of User (Read-only)-upPrimaryEmail :: Lens' UserPhoto (Maybe Text)-upPrimaryEmail-  = lens _upPrimaryEmail-      (\ s a -> s{_upPrimaryEmail = a})--instance FromJSON UserPhoto where-        parseJSON-          = withObject "UserPhoto"-              (\ o ->-                 UserPhoto' <$>-                   (o .:? "photoData") <*> (o .:? "etag") <*>-                     (o .:? "height")-                     <*> (o .:? "kind" .!= "admin#directory#user#photo")-                     <*> (o .:? "width")-                     <*> (o .:? "mimeType")-                     <*> (o .:? "id")-                     <*> (o .:? "primaryEmail"))--instance ToJSON UserPhoto where-        toJSON UserPhoto'{..}-          = object-              (catMaybes-                 [("photoData" .=) <$> _upPhotoData,-                  ("etag" .=) <$> _upEtag, ("height" .=) <$> _upHeight,-                  Just ("kind" .= _upKind), ("width" .=) <$> _upWidth,-                  ("mimeType" .=) <$> _upMimeType, ("id" .=) <$> _upId,-                  ("primaryEmail" .=) <$> _upPrimaryEmail])------- /See:/ 'chromeOSDeviceSystemRamFreeReportsItem' smart constructor.-data ChromeOSDeviceSystemRamFreeReportsItem =-  ChromeOSDeviceSystemRamFreeReportsItem'-    { _codsrfriReportTime        :: !(Maybe DateTime')-    , _codsrfriSystemRamFreeInfo :: !(Maybe [Textual Int64])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeOSDeviceSystemRamFreeReportsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'codsrfriReportTime'------ * 'codsrfriSystemRamFreeInfo'-chromeOSDeviceSystemRamFreeReportsItem-    :: ChromeOSDeviceSystemRamFreeReportsItem-chromeOSDeviceSystemRamFreeReportsItem =-  ChromeOSDeviceSystemRamFreeReportsItem'-    {_codsrfriReportTime = Nothing, _codsrfriSystemRamFreeInfo = Nothing}----- | Date and time the report was received.-codsrfriReportTime :: Lens' ChromeOSDeviceSystemRamFreeReportsItem (Maybe UTCTime)-codsrfriReportTime-  = lens _codsrfriReportTime-      (\ s a -> s{_codsrfriReportTime = a})-      . mapping _DateTime--codsrfriSystemRamFreeInfo :: Lens' ChromeOSDeviceSystemRamFreeReportsItem [Int64]-codsrfriSystemRamFreeInfo-  = lens _codsrfriSystemRamFreeInfo-      (\ s a -> s{_codsrfriSystemRamFreeInfo = a})-      . _Default-      . _Coerce--instance FromJSON-           ChromeOSDeviceSystemRamFreeReportsItem-         where-        parseJSON-          = withObject "ChromeOSDeviceSystemRamFreeReportsItem"-              (\ o ->-                 ChromeOSDeviceSystemRamFreeReportsItem' <$>-                   (o .:? "reportTime") <*>-                     (o .:? "systemRamFreeInfo" .!= mempty))--instance ToJSON-           ChromeOSDeviceSystemRamFreeReportsItem-         where-        toJSON ChromeOSDeviceSystemRamFreeReportsItem'{..}-          = object-              (catMaybes-                 [("reportTime" .=) <$> _codsrfriReportTime,-                  ("systemRamFreeInfo" .=) <$>-                    _codsrfriSystemRamFreeInfo])---- | JSON template for a POSIX account entry. Description of the field--- family: go\/fbs-posix.------ /See:/ 'userPosixAccount' smart constructor.-data UserPosixAccount =-  UserPosixAccount'-    { _upaGecos               :: !(Maybe Text)-    , _upaUid                 :: !(Maybe (Textual Word64))-    , _upaUsername            :: !(Maybe Text)-    , _upaShell               :: !(Maybe Text)-    , _upaPrimary             :: !(Maybe Bool)-    , _upaAccountId           :: !(Maybe Text)-    , _upaGid                 :: !(Maybe (Textual Word64))-    , _upaOperatingSystemType :: !(Maybe Text)-    , _upaSystemId            :: !(Maybe Text)-    , _upaHomeDirectory       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserPosixAccount' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'upaGecos'------ * 'upaUid'------ * 'upaUsername'------ * 'upaShell'------ * 'upaPrimary'------ * 'upaAccountId'------ * 'upaGid'------ * 'upaOperatingSystemType'------ * 'upaSystemId'------ * 'upaHomeDirectory'-userPosixAccount-    :: UserPosixAccount-userPosixAccount =-  UserPosixAccount'-    { _upaGecos = Nothing-    , _upaUid = Nothing-    , _upaUsername = Nothing-    , _upaShell = Nothing-    , _upaPrimary = Nothing-    , _upaAccountId = Nothing-    , _upaGid = Nothing-    , _upaOperatingSystemType = Nothing-    , _upaSystemId = Nothing-    , _upaHomeDirectory = Nothing-    }----- | The GECOS (user information) for this account.-upaGecos :: Lens' UserPosixAccount (Maybe Text)-upaGecos = lens _upaGecos (\ s a -> s{_upaGecos = a})---- | The POSIX compliant user ID.-upaUid :: Lens' UserPosixAccount (Maybe Word64)-upaUid-  = lens _upaUid (\ s a -> s{_upaUid = a}) .-      mapping _Coerce---- | The username of the account.-upaUsername :: Lens' UserPosixAccount (Maybe Text)-upaUsername-  = lens _upaUsername (\ s a -> s{_upaUsername = a})---- | The path to the login shell for this account.-upaShell :: Lens' UserPosixAccount (Maybe Text)-upaShell = lens _upaShell (\ s a -> s{_upaShell = a})---- | If this is user\'s primary account within the SystemId.-upaPrimary :: Lens' UserPosixAccount (Maybe Bool)-upaPrimary-  = lens _upaPrimary (\ s a -> s{_upaPrimary = a})---- | A POSIX account field identifier.-upaAccountId :: Lens' UserPosixAccount (Maybe Text)-upaAccountId-  = lens _upaAccountId (\ s a -> s{_upaAccountId = a})---- | The default group ID.-upaGid :: Lens' UserPosixAccount (Maybe Word64)-upaGid-  = lens _upaGid (\ s a -> s{_upaGid = a}) .-      mapping _Coerce---- | The operating system type for this account.-upaOperatingSystemType :: Lens' UserPosixAccount (Maybe Text)-upaOperatingSystemType-  = lens _upaOperatingSystemType-      (\ s a -> s{_upaOperatingSystemType = a})---- | System identifier for which account Username or Uid apply to.-upaSystemId :: Lens' UserPosixAccount (Maybe Text)-upaSystemId-  = lens _upaSystemId (\ s a -> s{_upaSystemId = a})---- | The path to the home directory for this account.-upaHomeDirectory :: Lens' UserPosixAccount (Maybe Text)-upaHomeDirectory-  = lens _upaHomeDirectory-      (\ s a -> s{_upaHomeDirectory = a})--instance FromJSON UserPosixAccount where-        parseJSON-          = withObject "UserPosixAccount"-              (\ o ->-                 UserPosixAccount' <$>-                   (o .:? "gecos") <*> (o .:? "uid") <*>-                     (o .:? "username")-                     <*> (o .:? "shell")-                     <*> (o .:? "primary")-                     <*> (o .:? "accountId")-                     <*> (o .:? "gid")-                     <*> (o .:? "operatingSystemType")-                     <*> (o .:? "systemId")-                     <*> (o .:? "homeDirectory"))--instance ToJSON UserPosixAccount where-        toJSON UserPosixAccount'{..}-          = object-              (catMaybes-                 [("gecos" .=) <$> _upaGecos, ("uid" .=) <$> _upaUid,-                  ("username" .=) <$> _upaUsername,-                  ("shell" .=) <$> _upaShell,-                  ("primary" .=) <$> _upaPrimary,-                  ("accountId" .=) <$> _upaAccountId,-                  ("gid" .=) <$> _upaGid,-                  ("operatingSystemType" .=) <$>-                    _upaOperatingSystemType,-                  ("systemId" .=) <$> _upaSystemId,-                  ("homeDirectory" .=) <$> _upaHomeDirectory])---- | JSON template for a \"feature instance\".------ /See:/ 'featureInstance' smart constructor.-newtype FeatureInstance =-  FeatureInstance'-    { _fiFeature :: Maybe Feature-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FeatureInstance' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fiFeature'-featureInstance-    :: FeatureInstance-featureInstance = FeatureInstance' {_fiFeature = Nothing}----- | The feature that this is an instance of. A calendar resource may have--- multiple instances of a feature.-fiFeature :: Lens' FeatureInstance (Maybe Feature)-fiFeature-  = lens _fiFeature (\ s a -> s{_fiFeature = a})--instance FromJSON FeatureInstance where-        parseJSON-          = withObject "FeatureInstance"-              (\ o -> FeatureInstance' <$> (o .:? "feature"))--instance ToJSON FeatureInstance where-        toJSON FeatureInstance'{..}-          = object (catMaybes [("feature" .=) <$> _fiFeature])---- | JSON template for Mobile Device resource in Directory API.------ /See:/ 'mobileDevice' smart constructor.-data MobileDevice =-  MobileDevice'-    { _mobEmail                          :: !(Maybe [Text])-    , _mobStatus                         :: !(Maybe Text)-    , _mobPrivilege                      :: !(Maybe Text)-    , _mobEtag                           :: !(Maybe Text)-    , _mobResourceId                     :: !(Maybe Text)-    , _mobManufacturer                   :: !(Maybe Text)-    , _mobBuildNumber                    :: !(Maybe Text)-    , _mobManagedAccountIsOnOwnerProFile :: !(Maybe Bool)-    , _mobLastSync                       :: !(Maybe DateTime')-    , _mobOtherAccountsInfo              :: !(Maybe [Text])-    , _mobKind                           :: !Text-    , _mobAdbStatus                      :: !(Maybe Bool)-    , _mobReleaseVersion                 :: !(Maybe Text)-    , _mobBrand                          :: !(Maybe Text)-    , _mobSecurityPatchLevel             :: !(Maybe (Textual Int64))-    , _mobNetworkOperator                :: !(Maybe Text)-    , _mobKernelVersion                  :: !(Maybe Text)-    , _mobOS                             :: !(Maybe Text)-    , _mobName                           :: !(Maybe [Text])-    , _mobModel                          :: !(Maybe Text)-    , _mobDeveloperOptionsStatus         :: !(Maybe Bool)-    , _mobUnknownSourcesStatus           :: !(Maybe Bool)-    , _mobMeid                           :: !(Maybe Text)-    , _mobBootLoaderVersion              :: !(Maybe Text)-    , _mobDeviceId                       :: !(Maybe Text)-    , _mobFirstSync                      :: !(Maybe DateTime')-    , _mobUserAgent                      :: !(Maybe Text)-    , _mobImei                           :: !(Maybe Text)-    , _mobType                           :: !(Maybe Text)-    , _mobWifiMACAddress                 :: !(Maybe Text)-    , _mobEncryptionStatus               :: !(Maybe Text)-    , _mobSerialNumber                   :: !(Maybe Text)-    , _mobDevicePasswordStatus           :: !(Maybe Text)-    , _mobHardwareId                     :: !(Maybe Text)-    , _mobBasebandVersion                :: !(Maybe Text)-    , _mobSupportsWorkProFile            :: !(Maybe Bool)-    , _mobHardware                       :: !(Maybe Text)-    , _mobDeviceCompromisedStatus        :: !(Maybe Text)-    , _mobApplications                   :: !(Maybe [MobileDeviceApplicationsItem])-    , _mobDefaultLanguage                :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MobileDevice' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mobEmail'------ * 'mobStatus'------ * 'mobPrivilege'------ * 'mobEtag'------ * 'mobResourceId'------ * 'mobManufacturer'------ * 'mobBuildNumber'------ * 'mobManagedAccountIsOnOwnerProFile'------ * 'mobLastSync'------ * 'mobOtherAccountsInfo'------ * 'mobKind'------ * 'mobAdbStatus'------ * 'mobReleaseVersion'------ * 'mobBrand'------ * 'mobSecurityPatchLevel'------ * 'mobNetworkOperator'------ * 'mobKernelVersion'------ * 'mobOS'------ * 'mobName'------ * 'mobModel'------ * 'mobDeveloperOptionsStatus'------ * 'mobUnknownSourcesStatus'------ * 'mobMeid'------ * 'mobBootLoaderVersion'------ * 'mobDeviceId'------ * 'mobFirstSync'------ * 'mobUserAgent'------ * 'mobImei'------ * 'mobType'------ * 'mobWifiMACAddress'------ * 'mobEncryptionStatus'------ * 'mobSerialNumber'------ * 'mobDevicePasswordStatus'------ * 'mobHardwareId'------ * 'mobBasebandVersion'------ * 'mobSupportsWorkProFile'------ * 'mobHardware'------ * 'mobDeviceCompromisedStatus'------ * 'mobApplications'------ * 'mobDefaultLanguage'-mobileDevice-    :: MobileDevice-mobileDevice =-  MobileDevice'-    { _mobEmail = Nothing-    , _mobStatus = Nothing-    , _mobPrivilege = Nothing-    , _mobEtag = Nothing-    , _mobResourceId = Nothing-    , _mobManufacturer = Nothing-    , _mobBuildNumber = Nothing-    , _mobManagedAccountIsOnOwnerProFile = Nothing-    , _mobLastSync = Nothing-    , _mobOtherAccountsInfo = Nothing-    , _mobKind = "admin#directory#mobiledevice"-    , _mobAdbStatus = Nothing-    , _mobReleaseVersion = Nothing-    , _mobBrand = Nothing-    , _mobSecurityPatchLevel = Nothing-    , _mobNetworkOperator = Nothing-    , _mobKernelVersion = Nothing-    , _mobOS = Nothing-    , _mobName = Nothing-    , _mobModel = Nothing-    , _mobDeveloperOptionsStatus = Nothing-    , _mobUnknownSourcesStatus = Nothing-    , _mobMeid = Nothing-    , _mobBootLoaderVersion = Nothing-    , _mobDeviceId = Nothing-    , _mobFirstSync = Nothing-    , _mobUserAgent = Nothing-    , _mobImei = Nothing-    , _mobType = Nothing-    , _mobWifiMACAddress = Nothing-    , _mobEncryptionStatus = Nothing-    , _mobSerialNumber = Nothing-    , _mobDevicePasswordStatus = Nothing-    , _mobHardwareId = Nothing-    , _mobBasebandVersion = Nothing-    , _mobSupportsWorkProFile = Nothing-    , _mobHardware = Nothing-    , _mobDeviceCompromisedStatus = Nothing-    , _mobApplications = Nothing-    , _mobDefaultLanguage = Nothing-    }----- | List of owner user\'s email addresses (Read-only)-mobEmail :: Lens' MobileDevice [Text]-mobEmail-  = lens _mobEmail (\ s a -> s{_mobEmail = a}) .-      _Default-      . _Coerce---- | Status of the device (Read-only)-mobStatus :: Lens' MobileDevice (Maybe Text)-mobStatus-  = lens _mobStatus (\ s a -> s{_mobStatus = a})---- | DMAgentPermission (Read-only)-mobPrivilege :: Lens' MobileDevice (Maybe Text)-mobPrivilege-  = lens _mobPrivilege (\ s a -> s{_mobPrivilege = a})---- | ETag of the resource.-mobEtag :: Lens' MobileDevice (Maybe Text)-mobEtag = lens _mobEtag (\ s a -> s{_mobEtag = a})---- | Unique identifier of Mobile Device (Read-only)-mobResourceId :: Lens' MobileDevice (Maybe Text)-mobResourceId-  = lens _mobResourceId-      (\ s a -> s{_mobResourceId = a})---- | Mobile Device manufacturer (Read-only)-mobManufacturer :: Lens' MobileDevice (Maybe Text)-mobManufacturer-  = lens _mobManufacturer-      (\ s a -> s{_mobManufacturer = a})---- | Mobile Device Build number (Read-only)-mobBuildNumber :: Lens' MobileDevice (Maybe Text)-mobBuildNumber-  = lens _mobBuildNumber-      (\ s a -> s{_mobBuildNumber = a})---- | Boolean indicating if this account is on owner\/primary profile or not--- (Read-only)-mobManagedAccountIsOnOwnerProFile :: Lens' MobileDevice (Maybe Bool)-mobManagedAccountIsOnOwnerProFile-  = lens _mobManagedAccountIsOnOwnerProFile-      (\ s a -> s{_mobManagedAccountIsOnOwnerProFile = a})---- | Date and time the device was last synchronized with the policy settings--- in the G Suite administrator control panel (Read-only)-mobLastSync :: Lens' MobileDevice (Maybe UTCTime)-mobLastSync-  = lens _mobLastSync (\ s a -> s{_mobLastSync = a}) .-      mapping _DateTime---- | List of accounts added on device (Read-only)-mobOtherAccountsInfo :: Lens' MobileDevice [Text]-mobOtherAccountsInfo-  = lens _mobOtherAccountsInfo-      (\ s a -> s{_mobOtherAccountsInfo = a})-      . _Default-      . _Coerce---- | Kind of resource this is.-mobKind :: Lens' MobileDevice Text-mobKind = lens _mobKind (\ s a -> s{_mobKind = a})---- | Adb (USB debugging) enabled or disabled on device (Read-only)-mobAdbStatus :: Lens' MobileDevice (Maybe Bool)-mobAdbStatus-  = lens _mobAdbStatus (\ s a -> s{_mobAdbStatus = a})---- | Mobile Device release version version (Read-only)-mobReleaseVersion :: Lens' MobileDevice (Maybe Text)-mobReleaseVersion-  = lens _mobReleaseVersion-      (\ s a -> s{_mobReleaseVersion = a})---- | Mobile Device Brand (Read-only)-mobBrand :: Lens' MobileDevice (Maybe Text)-mobBrand = lens _mobBrand (\ s a -> s{_mobBrand = a})---- | Mobile Device Security patch level (Read-only)-mobSecurityPatchLevel :: Lens' MobileDevice (Maybe Int64)-mobSecurityPatchLevel-  = lens _mobSecurityPatchLevel-      (\ s a -> s{_mobSecurityPatchLevel = a})-      . mapping _Coerce---- | Mobile Device mobile or network operator (if available) (Read-only)-mobNetworkOperator :: Lens' MobileDevice (Maybe Text)-mobNetworkOperator-  = lens _mobNetworkOperator-      (\ s a -> s{_mobNetworkOperator = a})---- | Mobile Device Kernel version (Read-only)-mobKernelVersion :: Lens' MobileDevice (Maybe Text)-mobKernelVersion-  = lens _mobKernelVersion-      (\ s a -> s{_mobKernelVersion = a})---- | Name of the mobile operating system-mobOS :: Lens' MobileDevice (Maybe Text)-mobOS = lens _mobOS (\ s a -> s{_mobOS = a})---- | List of owner user\'s names (Read-only)-mobName :: Lens' MobileDevice [Text]-mobName-  = lens _mobName (\ s a -> s{_mobName = a}) . _Default-      . _Coerce---- | Name of the model of the device-mobModel :: Lens' MobileDevice (Maybe Text)-mobModel = lens _mobModel (\ s a -> s{_mobModel = a})---- | Developer options enabled or disabled on device (Read-only)-mobDeveloperOptionsStatus :: Lens' MobileDevice (Maybe Bool)-mobDeveloperOptionsStatus-  = lens _mobDeveloperOptionsStatus-      (\ s a -> s{_mobDeveloperOptionsStatus = a})---- | Unknown sources enabled or disabled on device (Read-only)-mobUnknownSourcesStatus :: Lens' MobileDevice (Maybe Bool)-mobUnknownSourcesStatus-  = lens _mobUnknownSourcesStatus-      (\ s a -> s{_mobUnknownSourcesStatus = a})---- | Mobile Device MEID number (Read-only)-mobMeid :: Lens' MobileDevice (Maybe Text)-mobMeid = lens _mobMeid (\ s a -> s{_mobMeid = a})---- | Mobile Device Bootloader version (Read-only)-mobBootLoaderVersion :: Lens' MobileDevice (Maybe Text)-mobBootLoaderVersion-  = lens _mobBootLoaderVersion-      (\ s a -> s{_mobBootLoaderVersion = a})---- | Mobile Device serial number (Read-only)-mobDeviceId :: Lens' MobileDevice (Maybe Text)-mobDeviceId-  = lens _mobDeviceId (\ s a -> s{_mobDeviceId = a})---- | Date and time the device was first synchronized with the policy settings--- in the G Suite administrator control panel (Read-only)-mobFirstSync :: Lens' MobileDevice (Maybe UTCTime)-mobFirstSync-  = lens _mobFirstSync (\ s a -> s{_mobFirstSync = a})-      . mapping _DateTime---- | Mobile Device user agent-mobUserAgent :: Lens' MobileDevice (Maybe Text)-mobUserAgent-  = lens _mobUserAgent (\ s a -> s{_mobUserAgent = a})---- | Mobile Device IMEI number (Read-only)-mobImei :: Lens' MobileDevice (Maybe Text)-mobImei = lens _mobImei (\ s a -> s{_mobImei = a})---- | The type of device (Read-only)-mobType :: Lens' MobileDevice (Maybe Text)-mobType = lens _mobType (\ s a -> s{_mobType = a})---- | Mobile Device WiFi MAC address (Read-only)-mobWifiMACAddress :: Lens' MobileDevice (Maybe Text)-mobWifiMACAddress-  = lens _mobWifiMACAddress-      (\ s a -> s{_mobWifiMACAddress = a})---- | Mobile Device Encryption Status (Read-only)-mobEncryptionStatus :: Lens' MobileDevice (Maybe Text)-mobEncryptionStatus-  = lens _mobEncryptionStatus-      (\ s a -> s{_mobEncryptionStatus = a})---- | Mobile Device SSN or Serial Number (Read-only)-mobSerialNumber :: Lens' MobileDevice (Maybe Text)-mobSerialNumber-  = lens _mobSerialNumber-      (\ s a -> s{_mobSerialNumber = a})---- | DevicePasswordStatus (Read-only)-mobDevicePasswordStatus :: Lens' MobileDevice (Maybe Text)-mobDevicePasswordStatus-  = lens _mobDevicePasswordStatus-      (\ s a -> s{_mobDevicePasswordStatus = a})---- | Mobile Device Hardware Id (Read-only)-mobHardwareId :: Lens' MobileDevice (Maybe Text)-mobHardwareId-  = lens _mobHardwareId-      (\ s a -> s{_mobHardwareId = a})---- | Mobile Device Baseband version (Read-only)-mobBasebandVersion :: Lens' MobileDevice (Maybe Text)-mobBasebandVersion-  = lens _mobBasebandVersion-      (\ s a -> s{_mobBasebandVersion = a})---- | Work profile supported on device (Read-only)-mobSupportsWorkProFile :: Lens' MobileDevice (Maybe Bool)-mobSupportsWorkProFile-  = lens _mobSupportsWorkProFile-      (\ s a -> s{_mobSupportsWorkProFile = a})---- | Mobile Device Hardware (Read-only)-mobHardware :: Lens' MobileDevice (Maybe Text)-mobHardware-  = lens _mobHardware (\ s a -> s{_mobHardware = a})---- | Mobile Device compromised status (Read-only)-mobDeviceCompromisedStatus :: Lens' MobileDevice (Maybe Text)-mobDeviceCompromisedStatus-  = lens _mobDeviceCompromisedStatus-      (\ s a -> s{_mobDeviceCompromisedStatus = a})---- | List of applications installed on Mobile Device-mobApplications :: Lens' MobileDevice [MobileDeviceApplicationsItem]-mobApplications-  = lens _mobApplications-      (\ s a -> s{_mobApplications = a})-      . _Default-      . _Coerce---- | The default locale used on the Mobile Device (Read-only)-mobDefaultLanguage :: Lens' MobileDevice (Maybe Text)-mobDefaultLanguage-  = lens _mobDefaultLanguage-      (\ s a -> s{_mobDefaultLanguage = a})--instance FromJSON MobileDevice where-        parseJSON-          = withObject "MobileDevice"-              (\ o ->-                 MobileDevice' <$>-                   (o .:? "email" .!= mempty) <*> (o .:? "status") <*>-                     (o .:? "privilege")-                     <*> (o .:? "etag")-                     <*> (o .:? "resourceId")-                     <*> (o .:? "manufacturer")-                     <*> (o .:? "buildNumber")-                     <*> (o .:? "managedAccountIsOnOwnerProfile")-                     <*> (o .:? "lastSync")-                     <*> (o .:? "otherAccountsInfo" .!= mempty)-                     <*> (o .:? "kind" .!= "admin#directory#mobiledevice")-                     <*> (o .:? "adbStatus")-                     <*> (o .:? "releaseVersion")-                     <*> (o .:? "brand")-                     <*> (o .:? "securityPatchLevel")-                     <*> (o .:? "networkOperator")-                     <*> (o .:? "kernelVersion")-                     <*> (o .:? "os")-                     <*> (o .:? "name" .!= mempty)-                     <*> (o .:? "model")-                     <*> (o .:? "developerOptionsStatus")-                     <*> (o .:? "unknownSourcesStatus")-                     <*> (o .:? "meid")-                     <*> (o .:? "bootloaderVersion")-                     <*> (o .:? "deviceId")-                     <*> (o .:? "firstSync")-                     <*> (o .:? "userAgent")-                     <*> (o .:? "imei")-                     <*> (o .:? "type")-                     <*> (o .:? "wifiMacAddress")-                     <*> (o .:? "encryptionStatus")-                     <*> (o .:? "serialNumber")-                     <*> (o .:? "devicePasswordStatus")-                     <*> (o .:? "hardwareId")-                     <*> (o .:? "basebandVersion")-                     <*> (o .:? "supportsWorkProfile")-                     <*> (o .:? "hardware")-                     <*> (o .:? "deviceCompromisedStatus")-                     <*> (o .:? "applications" .!= mempty)-                     <*> (o .:? "defaultLanguage"))--instance ToJSON MobileDevice where-        toJSON MobileDevice'{..}-          = object-              (catMaybes-                 [("email" .=) <$> _mobEmail,-                  ("status" .=) <$> _mobStatus,-                  ("privilege" .=) <$> _mobPrivilege,-                  ("etag" .=) <$> _mobEtag,-                  ("resourceId" .=) <$> _mobResourceId,-                  ("manufacturer" .=) <$> _mobManufacturer,-                  ("buildNumber" .=) <$> _mobBuildNumber,-                  ("managedAccountIsOnOwnerProfile" .=) <$>-                    _mobManagedAccountIsOnOwnerProFile,-                  ("lastSync" .=) <$> _mobLastSync,-                  ("otherAccountsInfo" .=) <$> _mobOtherAccountsInfo,-                  Just ("kind" .= _mobKind),-                  ("adbStatus" .=) <$> _mobAdbStatus,-                  ("releaseVersion" .=) <$> _mobReleaseVersion,-                  ("brand" .=) <$> _mobBrand,-                  ("securityPatchLevel" .=) <$> _mobSecurityPatchLevel,-                  ("networkOperator" .=) <$> _mobNetworkOperator,-                  ("kernelVersion" .=) <$> _mobKernelVersion,-                  ("os" .=) <$> _mobOS, ("name" .=) <$> _mobName,-                  ("model" .=) <$> _mobModel,-                  ("developerOptionsStatus" .=) <$>-                    _mobDeveloperOptionsStatus,-                  ("unknownSourcesStatus" .=) <$>-                    _mobUnknownSourcesStatus,-                  ("meid" .=) <$> _mobMeid,-                  ("bootloaderVersion" .=) <$> _mobBootLoaderVersion,-                  ("deviceId" .=) <$> _mobDeviceId,-                  ("firstSync" .=) <$> _mobFirstSync,-                  ("userAgent" .=) <$> _mobUserAgent,-                  ("imei" .=) <$> _mobImei, ("type" .=) <$> _mobType,-                  ("wifiMacAddress" .=) <$> _mobWifiMACAddress,-                  ("encryptionStatus" .=) <$> _mobEncryptionStatus,-                  ("serialNumber" .=) <$> _mobSerialNumber,-                  ("devicePasswordStatus" .=) <$>-                    _mobDevicePasswordStatus,-                  ("hardwareId" .=) <$> _mobHardwareId,-                  ("basebandVersion" .=) <$> _mobBasebandVersion,-                  ("supportsWorkProfile" .=) <$>-                    _mobSupportsWorkProFile,-                  ("hardware" .=) <$> _mobHardware,-                  ("deviceCompromisedStatus" .=) <$>-                    _mobDeviceCompromisedStatus,-                  ("applications" .=) <$> _mobApplications,-                  ("defaultLanguage" .=) <$> _mobDefaultLanguage])------- /See:/ 'chromeOSDeviceCPUStatusReportsItem' smart constructor.-data ChromeOSDeviceCPUStatusReportsItem =-  ChromeOSDeviceCPUStatusReportsItem'-    { _codcsriCPUUtilizationPercentageInfo :: !(Maybe [Textual Int32])-    , _codcsriCPUTemperatureInfo           :: !(Maybe [ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem])-    , _codcsriReportTime                   :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeOSDeviceCPUStatusReportsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'codcsriCPUUtilizationPercentageInfo'------ * 'codcsriCPUTemperatureInfo'------ * 'codcsriReportTime'-chromeOSDeviceCPUStatusReportsItem-    :: ChromeOSDeviceCPUStatusReportsItem-chromeOSDeviceCPUStatusReportsItem =-  ChromeOSDeviceCPUStatusReportsItem'-    { _codcsriCPUUtilizationPercentageInfo = Nothing-    , _codcsriCPUTemperatureInfo = Nothing-    , _codcsriReportTime = Nothing-    }---codcsriCPUUtilizationPercentageInfo :: Lens' ChromeOSDeviceCPUStatusReportsItem [Int32]-codcsriCPUUtilizationPercentageInfo-  = lens _codcsriCPUUtilizationPercentageInfo-      (\ s a ->-         s{_codcsriCPUUtilizationPercentageInfo = a})-      . _Default-      . _Coerce---- | List of CPU temperature samples.-codcsriCPUTemperatureInfo :: Lens' ChromeOSDeviceCPUStatusReportsItem [ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem]-codcsriCPUTemperatureInfo-  = lens _codcsriCPUTemperatureInfo-      (\ s a -> s{_codcsriCPUTemperatureInfo = a})-      . _Default-      . _Coerce---- | Date and time the report was received.-codcsriReportTime :: Lens' ChromeOSDeviceCPUStatusReportsItem (Maybe UTCTime)-codcsriReportTime-  = lens _codcsriReportTime-      (\ s a -> s{_codcsriReportTime = a})-      . mapping _DateTime--instance FromJSON ChromeOSDeviceCPUStatusReportsItem-         where-        parseJSON-          = withObject "ChromeOSDeviceCPUStatusReportsItem"-              (\ o ->-                 ChromeOSDeviceCPUStatusReportsItem' <$>-                   (o .:? "cpuUtilizationPercentageInfo" .!= mempty) <*>-                     (o .:? "cpuTemperatureInfo" .!= mempty)-                     <*> (o .:? "reportTime"))--instance ToJSON ChromeOSDeviceCPUStatusReportsItem-         where-        toJSON ChromeOSDeviceCPUStatusReportsItem'{..}-          = object-              (catMaybes-                 [("cpuUtilizationPercentageInfo" .=) <$>-                    _codcsriCPUUtilizationPercentageInfo,-                  ("cpuTemperatureInfo" .=) <$>-                    _codcsriCPUTemperatureInfo,-                  ("reportTime" .=) <$> _codcsriReportTime])---- | JSON template for Member resource in Directory API.------ /See:/ 'member' smart constructor.-data Member =-  Member'-    { _memEmail            :: !(Maybe Text)-    , _memStatus           :: !(Maybe Text)-    , _memEtag             :: !(Maybe Text)-    , _memKind             :: !Text-    , _memDeliverySettings :: !(Maybe Text)-    , _memRole             :: !(Maybe Text)-    , _memId               :: !(Maybe Text)-    , _memType             :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Member' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'memEmail'------ * 'memStatus'------ * 'memEtag'------ * 'memKind'------ * 'memDeliverySettings'------ * 'memRole'------ * 'memId'------ * 'memType'-member-    :: Member-member =-  Member'-    { _memEmail = Nothing-    , _memStatus = Nothing-    , _memEtag = Nothing-    , _memKind = "admin#directory#member"-    , _memDeliverySettings = Nothing-    , _memRole = Nothing-    , _memId = Nothing-    , _memType = Nothing-    }----- | Email of member (Read-only)-memEmail :: Lens' Member (Maybe Text)-memEmail = lens _memEmail (\ s a -> s{_memEmail = a})---- | Status of member (Immutable)-memStatus :: Lens' Member (Maybe Text)-memStatus-  = lens _memStatus (\ s a -> s{_memStatus = a})---- | ETag of the resource.-memEtag :: Lens' Member (Maybe Text)-memEtag = lens _memEtag (\ s a -> s{_memEtag = a})---- | Kind of resource this is.-memKind :: Lens' Member Text-memKind = lens _memKind (\ s a -> s{_memKind = a})---- | Delivery settings of member-memDeliverySettings :: Lens' Member (Maybe Text)-memDeliverySettings-  = lens _memDeliverySettings-      (\ s a -> s{_memDeliverySettings = a})---- | Role of member-memRole :: Lens' Member (Maybe Text)-memRole = lens _memRole (\ s a -> s{_memRole = a})---- | Unique identifier of customer member (Read-only) Unique identifier of--- group (Read-only) Unique identifier of member (Read-only)-memId :: Lens' Member (Maybe Text)-memId = lens _memId (\ s a -> s{_memId = a})---- | Type of member (Immutable)-memType :: Lens' Member (Maybe Text)-memType = lens _memType (\ s a -> s{_memType = a})--instance FromJSON Member where-        parseJSON-          = withObject "Member"-              (\ o ->-                 Member' <$>-                   (o .:? "email") <*> (o .:? "status") <*>-                     (o .:? "etag")-                     <*> (o .:? "kind" .!= "admin#directory#member")-                     <*> (o .:? "delivery_settings")-                     <*> (o .:? "role")-                     <*> (o .:? "id")-                     <*> (o .:? "type"))--instance ToJSON Member where-        toJSON Member'{..}-          = object-              (catMaybes-                 [("email" .=) <$> _memEmail,-                  ("status" .=) <$> _memStatus,-                  ("etag" .=) <$> _memEtag, Just ("kind" .= _memKind),-                  ("delivery_settings" .=) <$> _memDeliverySettings,-                  ("role" .=) <$> _memRole, ("id" .=) <$> _memId,-                  ("type" .=) <$> _memType])---- | JSON template for App Access Collections Resource object in Directory--- API.------ /See:/ 'appAccessCollections' smart constructor.-data AppAccessCollections =-  AppAccessCollections'-    { _aacEtag                           :: !(Maybe Text)-    , _aacResourceId                     :: !(Maybe (Textual Int64))-    , _aacEnforceSettingsForAndroidDrive :: !(Maybe Bool)-    , _aacResourceName                   :: !(Maybe Text)-    , _aacKind                           :: !Text-    , _aacTrustDomainOwnedApps           :: !(Maybe Bool)-    , _aacBlockedAPIAccessBuckets        :: !(Maybe [Text])-    , _aacErrorMessage                   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AppAccessCollections' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aacEtag'------ * 'aacResourceId'------ * 'aacEnforceSettingsForAndroidDrive'------ * 'aacResourceName'------ * 'aacKind'------ * 'aacTrustDomainOwnedApps'------ * 'aacBlockedAPIAccessBuckets'------ * 'aacErrorMessage'-appAccessCollections-    :: AppAccessCollections-appAccessCollections =-  AppAccessCollections'-    { _aacEtag = Nothing-    , _aacResourceId = Nothing-    , _aacEnforceSettingsForAndroidDrive = Nothing-    , _aacResourceName = Nothing-    , _aacKind = "admin#directory#appaccesscollection"-    , _aacTrustDomainOwnedApps = Nothing-    , _aacBlockedAPIAccessBuckets = Nothing-    , _aacErrorMessage = Nothing-    }----- | ETag of the resource.-aacEtag :: Lens' AppAccessCollections (Maybe Text)-aacEtag = lens _aacEtag (\ s a -> s{_aacEtag = a})---- | Unique ID of app access collection. (Readonly)-aacResourceId :: Lens' AppAccessCollections (Maybe Int64)-aacResourceId-  = lens _aacResourceId-      (\ s a -> s{_aacResourceId = a})-      . mapping _Coerce---- | Boolean to indicate whether to enforce app access settings on Android--- Drive or not.-aacEnforceSettingsForAndroidDrive :: Lens' AppAccessCollections (Maybe Bool)-aacEnforceSettingsForAndroidDrive-  = lens _aacEnforceSettingsForAndroidDrive-      (\ s a -> s{_aacEnforceSettingsForAndroidDrive = a})---- | Resource name given by the customer while creating\/updating. Should be--- unique under given customer.-aacResourceName :: Lens' AppAccessCollections (Maybe Text)-aacResourceName-  = lens _aacResourceName-      (\ s a -> s{_aacResourceName = a})---- | Identifies the resource as an app access collection. Value:--- admin#directory#appaccesscollection-aacKind :: Lens' AppAccessCollections Text-aacKind = lens _aacKind (\ s a -> s{_aacKind = a})---- | Boolean that indicates whether to trust domain owned apps.-aacTrustDomainOwnedApps :: Lens' AppAccessCollections (Maybe Bool)-aacTrustDomainOwnedApps-  = lens _aacTrustDomainOwnedApps-      (\ s a -> s{_aacTrustDomainOwnedApps = a})---- | List of blocked api access buckets.-aacBlockedAPIAccessBuckets :: Lens' AppAccessCollections [Text]-aacBlockedAPIAccessBuckets-  = lens _aacBlockedAPIAccessBuckets-      (\ s a -> s{_aacBlockedAPIAccessBuckets = a})-      . _Default-      . _Coerce---- | Error message provided by the Admin that will be shown to the user when--- an app is blocked.-aacErrorMessage :: Lens' AppAccessCollections (Maybe Text)-aacErrorMessage-  = lens _aacErrorMessage-      (\ s a -> s{_aacErrorMessage = a})--instance FromJSON AppAccessCollections where-        parseJSON-          = withObject "AppAccessCollections"-              (\ o ->-                 AppAccessCollections' <$>-                   (o .:? "etag") <*> (o .:? "resourceId") <*>-                     (o .:? "enforceSettingsForAndroidDrive")-                     <*> (o .:? "resourceName")-                     <*>-                     (o .:? "kind" .!=-                        "admin#directory#appaccesscollection")-                     <*> (o .:? "trustDomainOwnedApps")-                     <*> (o .:? "blockedApiAccessBuckets" .!= mempty)-                     <*> (o .:? "errorMessage"))--instance ToJSON AppAccessCollections where-        toJSON AppAccessCollections'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _aacEtag,-                  ("resourceId" .=) <$> _aacResourceId,-                  ("enforceSettingsForAndroidDrive" .=) <$>-                    _aacEnforceSettingsForAndroidDrive,-                  ("resourceName" .=) <$> _aacResourceName,-                  Just ("kind" .= _aacKind),-                  ("trustDomainOwnedApps" .=) <$>-                    _aacTrustDomainOwnedApps,-                  ("blockedApiAccessBuckets" .=) <$>-                    _aacBlockedAPIAccessBuckets,-                  ("errorMessage" .=) <$> _aacErrorMessage])---- | JSON template for a set of custom properties (i.e. all fields in a--- particular schema)------ /See:/ 'userCustomProperties' smart constructor.-newtype UserCustomProperties =-  UserCustomProperties'-    { _ucpAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserCustomProperties' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ucpAddtional'-userCustomProperties-    :: HashMap Text JSONValue -- ^ 'ucpAddtional'-    -> UserCustomProperties-userCustomProperties pUcpAddtional_ =-  UserCustomProperties' {_ucpAddtional = _Coerce # pUcpAddtional_}---ucpAddtional :: Lens' UserCustomProperties (HashMap Text JSONValue)-ucpAddtional-  = lens _ucpAddtional (\ s a -> s{_ucpAddtional = a})-      . _Coerce--instance FromJSON UserCustomProperties where-        parseJSON-          = withObject "UserCustomProperties"-              (\ o ->-                 UserCustomProperties' <$> (parseJSONObject o))--instance ToJSON UserCustomProperties where-        toJSON = toJSON . _ucpAddtional---- | JSON template for a language entry.------ /See:/ 'userLanguage' smart constructor.-data UserLanguage =-  UserLanguage'-    { _ulLanguageCode   :: !(Maybe Text)-    , _ulCustomLanguage :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserLanguage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ulLanguageCode'------ * 'ulCustomLanguage'-userLanguage-    :: UserLanguage-userLanguage =-  UserLanguage' {_ulLanguageCode = Nothing, _ulCustomLanguage = Nothing}----- | Language Code. Should be used for storing Google III LanguageCode string--- representation for language. Illegal values cause SchemaException.-ulLanguageCode :: Lens' UserLanguage (Maybe Text)-ulLanguageCode-  = lens _ulLanguageCode-      (\ s a -> s{_ulLanguageCode = a})---- | Other language. User can provide own language name if there is no--- corresponding Google III language code. If this is set LanguageCode--- can\'t be set-ulCustomLanguage :: Lens' UserLanguage (Maybe Text)-ulCustomLanguage-  = lens _ulCustomLanguage-      (\ s a -> s{_ulCustomLanguage = a})--instance FromJSON UserLanguage where-        parseJSON-          = withObject "UserLanguage"-              (\ o ->-                 UserLanguage' <$>-                   (o .:? "languageCode") <*> (o .:? "customLanguage"))--instance ToJSON UserLanguage where-        toJSON UserLanguage'{..}-          = object-              (catMaybes-                 [("languageCode" .=) <$> _ulLanguageCode,-                  ("customLanguage" .=) <$> _ulCustomLanguage])---- | JSON template for Domain object in Directory API.------ /See:/ 'domains' smart constructor.-data Domains =-  Domains'-    { _domCreationTime  :: !(Maybe (Textual Int64))-    , _domEtag          :: !(Maybe Text)-    , _domKind          :: !Text-    , _domDomainAliases :: !(Maybe [DomainAlias])-    , _domVerified      :: !(Maybe Bool)-    , _domDomainName    :: !(Maybe Text)-    , _domIsPrimary     :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Domains' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'domCreationTime'------ * 'domEtag'------ * 'domKind'------ * 'domDomainAliases'------ * 'domVerified'------ * 'domDomainName'------ * 'domIsPrimary'-domains-    :: Domains-domains =-  Domains'-    { _domCreationTime = Nothing-    , _domEtag = Nothing-    , _domKind = "admin#directory#domain"-    , _domDomainAliases = Nothing-    , _domVerified = Nothing-    , _domDomainName = Nothing-    , _domIsPrimary = Nothing-    }----- | Creation time of the domain. (Read-only).-domCreationTime :: Lens' Domains (Maybe Int64)-domCreationTime-  = lens _domCreationTime-      (\ s a -> s{_domCreationTime = a})-      . mapping _Coerce---- | ETag of the resource.-domEtag :: Lens' Domains (Maybe Text)-domEtag = lens _domEtag (\ s a -> s{_domEtag = a})---- | Kind of resource this is.-domKind :: Lens' Domains Text-domKind = lens _domKind (\ s a -> s{_domKind = a})---- | List of domain alias objects. (Read-only)-domDomainAliases :: Lens' Domains [DomainAlias]-domDomainAliases-  = lens _domDomainAliases-      (\ s a -> s{_domDomainAliases = a})-      . _Default-      . _Coerce---- | Indicates the verification state of a domain. (Read-only).-domVerified :: Lens' Domains (Maybe Bool)-domVerified-  = lens _domVerified (\ s a -> s{_domVerified = a})---- | The domain name of the customer.-domDomainName :: Lens' Domains (Maybe Text)-domDomainName-  = lens _domDomainName-      (\ s a -> s{_domDomainName = a})---- | Indicates if the domain is a primary domain (Read-only).-domIsPrimary :: Lens' Domains (Maybe Bool)-domIsPrimary-  = lens _domIsPrimary (\ s a -> s{_domIsPrimary = a})--instance FromJSON Domains where-        parseJSON-          = withObject "Domains"-              (\ o ->-                 Domains' <$>-                   (o .:? "creationTime") <*> (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#domain")-                     <*> (o .:? "domainAliases" .!= mempty)-                     <*> (o .:? "verified")-                     <*> (o .:? "domainName")-                     <*> (o .:? "isPrimary"))--instance ToJSON Domains where-        toJSON Domains'{..}-          = object-              (catMaybes-                 [("creationTime" .=) <$> _domCreationTime,-                  ("etag" .=) <$> _domEtag, Just ("kind" .= _domKind),-                  ("domainAliases" .=) <$> _domDomainAliases,-                  ("verified" .=) <$> _domVerified,-                  ("domainName" .=) <$> _domDomainName,-                  ("isPrimary" .=) <$> _domIsPrimary])---- | JSON template for Calendar Resource List Response object in Directory--- API.------ /See:/ 'calendarResources' smart constructor.-data CalendarResources =-  CalendarResources'-    { _crsEtag          :: !(Maybe Text)-    , _crsNextPageToken :: !(Maybe Text)-    , _crsKind          :: !Text-    , _crsItems         :: !(Maybe [CalendarResource])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CalendarResources' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'crsEtag'------ * 'crsNextPageToken'------ * 'crsKind'------ * 'crsItems'-calendarResources-    :: CalendarResources-calendarResources =-  CalendarResources'-    { _crsEtag = Nothing-    , _crsNextPageToken = Nothing-    , _crsKind = "admin#directory#resources#calendars#calendarResourcesList"-    , _crsItems = Nothing-    }----- | ETag of the resource.-crsEtag :: Lens' CalendarResources (Maybe Text)-crsEtag = lens _crsEtag (\ s a -> s{_crsEtag = a})---- | The continuation token, used to page through large result sets. Provide--- this value in a subsequent request to return the next page of results.-crsNextPageToken :: Lens' CalendarResources (Maybe Text)-crsNextPageToken-  = lens _crsNextPageToken-      (\ s a -> s{_crsNextPageToken = a})---- | Identifies this as a collection of CalendarResources. This is always--- admin#directory#resources#calendars#calendarResourcesList.-crsKind :: Lens' CalendarResources Text-crsKind = lens _crsKind (\ s a -> s{_crsKind = a})---- | The CalendarResources in this page of results.-crsItems :: Lens' CalendarResources [CalendarResource]-crsItems-  = lens _crsItems (\ s a -> s{_crsItems = a}) .-      _Default-      . _Coerce--instance FromJSON CalendarResources where-        parseJSON-          = withObject "CalendarResources"-              (\ o ->-                 CalendarResources' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!=-                        "admin#directory#resources#calendars#calendarResourcesList")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON CalendarResources where-        toJSON CalendarResources'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _crsEtag,-                  ("nextPageToken" .=) <$> _crsNextPageToken,-                  Just ("kind" .= _crsKind),-                  ("items" .=) <$> _crsItems])---- | Template for notifications list response.------ /See:/ 'notifications' smart constructor.-data Notifications =-  Notifications'-    { _notEtag                     :: !(Maybe Text)-    , _notNextPageToken            :: !(Maybe Text)-    , _notKind                     :: !Text-    , _notItems                    :: !(Maybe [Notification])-    , _notUnreadNotificationsCount :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Notifications' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'notEtag'------ * 'notNextPageToken'------ * 'notKind'------ * 'notItems'------ * 'notUnreadNotificationsCount'-notifications-    :: Notifications-notifications =-  Notifications'-    { _notEtag = Nothing-    , _notNextPageToken = Nothing-    , _notKind = "admin#directory#notifications"-    , _notItems = Nothing-    , _notUnreadNotificationsCount = Nothing-    }----- | ETag of the resource.-notEtag :: Lens' Notifications (Maybe Text)-notEtag = lens _notEtag (\ s a -> s{_notEtag = a})---- | Token for fetching the next page of notifications.-notNextPageToken :: Lens' Notifications (Maybe Text)-notNextPageToken-  = lens _notNextPageToken-      (\ s a -> s{_notNextPageToken = a})---- | The type of the resource.-notKind :: Lens' Notifications Text-notKind = lens _notKind (\ s a -> s{_notKind = a})---- | List of notifications in this page.-notItems :: Lens' Notifications [Notification]-notItems-  = lens _notItems (\ s a -> s{_notItems = a}) .-      _Default-      . _Coerce---- | Number of unread notification for the domain.-notUnreadNotificationsCount :: Lens' Notifications (Maybe Int32)-notUnreadNotificationsCount-  = lens _notUnreadNotificationsCount-      (\ s a -> s{_notUnreadNotificationsCount = a})-      . mapping _Coerce--instance FromJSON Notifications where-        parseJSON-          = withObject "Notifications"-              (\ o ->-                 Notifications' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "admin#directory#notifications")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "unreadNotificationsCount"))--instance ToJSON Notifications where-        toJSON Notifications'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _notEtag,-                  ("nextPageToken" .=) <$> _notNextPageToken,-                  Just ("kind" .= _notKind),-                  ("items" .=) <$> _notItems,-                  ("unreadNotificationsCount" .=) <$>-                    _notUnreadNotificationsCount])---- | Indexing spec for a numeric field. By default, only exact match queries--- will be supported for numeric fields. Setting the numericIndexingSpec--- allows range queries to be supported.------ /See:/ 'schemaFieldSpecNumericIndexingSpec' smart constructor.-data SchemaFieldSpecNumericIndexingSpec =-  SchemaFieldSpecNumericIndexingSpec'-    { _sfsnisMaxValue :: !(Maybe (Textual Double))-    , _sfsnisMinValue :: !(Maybe (Textual Double))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SchemaFieldSpecNumericIndexingSpec' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sfsnisMaxValue'------ * 'sfsnisMinValue'-schemaFieldSpecNumericIndexingSpec-    :: SchemaFieldSpecNumericIndexingSpec-schemaFieldSpecNumericIndexingSpec =-  SchemaFieldSpecNumericIndexingSpec'-    {_sfsnisMaxValue = Nothing, _sfsnisMinValue = Nothing}----- | Maximum value of this field. This is meant to be indicative rather than--- enforced. Values outside this range will still be indexed, but search--- may not be as performant.-sfsnisMaxValue :: Lens' SchemaFieldSpecNumericIndexingSpec (Maybe Double)-sfsnisMaxValue-  = lens _sfsnisMaxValue-      (\ s a -> s{_sfsnisMaxValue = a})-      . mapping _Coerce---- | Minimum value of this field. This is meant to be indicative rather than--- enforced. Values outside this range will still be indexed, but search--- may not be as performant.-sfsnisMinValue :: Lens' SchemaFieldSpecNumericIndexingSpec (Maybe Double)-sfsnisMinValue-  = lens _sfsnisMinValue-      (\ s a -> s{_sfsnisMinValue = a})-      . mapping _Coerce--instance FromJSON SchemaFieldSpecNumericIndexingSpec-         where-        parseJSON-          = withObject "SchemaFieldSpecNumericIndexingSpec"-              (\ o ->-                 SchemaFieldSpecNumericIndexingSpec' <$>-                   (o .:? "maxValue") <*> (o .:? "minValue"))--instance ToJSON SchemaFieldSpecNumericIndexingSpec-         where-        toJSON SchemaFieldSpecNumericIndexingSpec'{..}-          = object-              (catMaybes-                 [("maxValue" .=) <$> _sfsnisMaxValue,-                  ("minValue" .=) <$> _sfsnisMinValue])---- | JSON request template for firing commands on Mobile Device in Directory--- Devices API.------ /See:/ 'mobileDeviceAction' smart constructor.-newtype MobileDeviceAction =-  MobileDeviceAction'-    { _mdaAction :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MobileDeviceAction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mdaAction'-mobileDeviceAction-    :: MobileDeviceAction-mobileDeviceAction = MobileDeviceAction' {_mdaAction = Nothing}----- | Action to be taken on the Mobile Device-mdaAction :: Lens' MobileDeviceAction (Maybe Text)-mdaAction-  = lens _mdaAction (\ s a -> s{_mdaAction = a})--instance FromJSON MobileDeviceAction where-        parseJSON-          = withObject "MobileDeviceAction"-              (\ o -> MobileDeviceAction' <$> (o .:? "action"))--instance ToJSON MobileDeviceAction where-        toJSON MobileDeviceAction'{..}-          = object (catMaybes [("action" .=) <$> _mdaAction])---- | JSON template for FieldSpec resource for Schemas in Directory API.------ /See:/ 'schemaFieldSpec' smart constructor.-data SchemaFieldSpec =-  SchemaFieldSpec'-    { _sfsEtag                :: !(Maybe Text)-    , _sfsKind                :: !Text-    , _sfsNumericIndexingSpec :: !(Maybe SchemaFieldSpecNumericIndexingSpec)-    , _sfsReadAccessType      :: !Text-    , _sfsFieldId             :: !(Maybe Text)-    , _sfsIndexed             :: !Bool-    , _sfsFieldType           :: !(Maybe Text)-    , _sfsFieldName           :: !(Maybe Text)-    , _sfsDisplayName         :: !(Maybe Text)-    , _sfsMultiValued         :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SchemaFieldSpec' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sfsEtag'------ * 'sfsKind'------ * 'sfsNumericIndexingSpec'------ * 'sfsReadAccessType'------ * 'sfsFieldId'------ * 'sfsIndexed'------ * 'sfsFieldType'------ * 'sfsFieldName'------ * 'sfsDisplayName'------ * 'sfsMultiValued'-schemaFieldSpec-    :: SchemaFieldSpec-schemaFieldSpec =-  SchemaFieldSpec'-    { _sfsEtag = Nothing-    , _sfsKind = "admin#directory#schema#fieldspec"-    , _sfsNumericIndexingSpec = Nothing-    , _sfsReadAccessType = "ALL_DOMAIN_USERS"-    , _sfsFieldId = Nothing-    , _sfsIndexed = True-    , _sfsFieldType = Nothing-    , _sfsFieldName = Nothing-    , _sfsDisplayName = Nothing-    , _sfsMultiValued = Nothing-    }----- | ETag of the resource.-sfsEtag :: Lens' SchemaFieldSpec (Maybe Text)-sfsEtag = lens _sfsEtag (\ s a -> s{_sfsEtag = a})---- | Kind of resource this is.-sfsKind :: Lens' SchemaFieldSpec Text-sfsKind = lens _sfsKind (\ s a -> s{_sfsKind = a})---- | Indexing spec for a numeric field. By default, only exact match queries--- will be supported for numeric fields. Setting the numericIndexingSpec--- allows range queries to be supported.-sfsNumericIndexingSpec :: Lens' SchemaFieldSpec (Maybe SchemaFieldSpecNumericIndexingSpec)-sfsNumericIndexingSpec-  = lens _sfsNumericIndexingSpec-      (\ s a -> s{_sfsNumericIndexingSpec = a})---- | Read ACLs on the field specifying who can view values of this field.--- Valid values are \"ALL_DOMAIN_USERS\" and \"ADMINS_AND_SELF\".-sfsReadAccessType :: Lens' SchemaFieldSpec Text-sfsReadAccessType-  = lens _sfsReadAccessType-      (\ s a -> s{_sfsReadAccessType = a})---- | Unique identifier of Field (Read-only)-sfsFieldId :: Lens' SchemaFieldSpec (Maybe Text)-sfsFieldId-  = lens _sfsFieldId (\ s a -> s{_sfsFieldId = a})---- | Boolean specifying whether the field is indexed or not.-sfsIndexed :: Lens' SchemaFieldSpec Bool-sfsIndexed-  = lens _sfsIndexed (\ s a -> s{_sfsIndexed = a})---- | Type of the field.-sfsFieldType :: Lens' SchemaFieldSpec (Maybe Text)-sfsFieldType-  = lens _sfsFieldType (\ s a -> s{_sfsFieldType = a})---- | Name of the field.-sfsFieldName :: Lens' SchemaFieldSpec (Maybe Text)-sfsFieldName-  = lens _sfsFieldName (\ s a -> s{_sfsFieldName = a})---- | Display Name of the field.-sfsDisplayName :: Lens' SchemaFieldSpec (Maybe Text)-sfsDisplayName-  = lens _sfsDisplayName-      (\ s a -> s{_sfsDisplayName = a})---- | Boolean specifying whether this is a multi-valued field or not.-sfsMultiValued :: Lens' SchemaFieldSpec (Maybe Bool)-sfsMultiValued-  = lens _sfsMultiValued-      (\ s a -> s{_sfsMultiValued = a})--instance FromJSON SchemaFieldSpec where-        parseJSON-          = withObject "SchemaFieldSpec"-              (\ o ->-                 SchemaFieldSpec' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#schema#fieldspec")-                     <*> (o .:? "numericIndexingSpec")-                     <*> (o .:? "readAccessType" .!= "ALL_DOMAIN_USERS")-                     <*> (o .:? "fieldId")-                     <*> (o .:? "indexed" .!= True)-                     <*> (o .:? "fieldType")-                     <*> (o .:? "fieldName")-                     <*> (o .:? "displayName")-                     <*> (o .:? "multiValued"))--instance ToJSON SchemaFieldSpec where-        toJSON SchemaFieldSpec'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _sfsEtag, Just ("kind" .= _sfsKind),-                  ("numericIndexingSpec" .=) <$>-                    _sfsNumericIndexingSpec,-                  Just ("readAccessType" .= _sfsReadAccessType),-                  ("fieldId" .=) <$> _sfsFieldId,-                  Just ("indexed" .= _sfsIndexed),-                  ("fieldType" .=) <$> _sfsFieldType,-                  ("fieldName" .=) <$> _sfsFieldName,-                  ("displayName" .=) <$> _sfsDisplayName,-                  ("multiValued" .=) <$> _sfsMultiValued])---- | JSON response template for List Chrome OS Devices operation in Directory--- API.------ /See:/ 'chromeOSDevices' smart constructor.-data ChromeOSDevices =-  ChromeOSDevices'-    { _cosdEtag            :: !(Maybe Text)-    , _cosdNextPageToken   :: !(Maybe Text)-    , _cosdKind            :: !Text-    , _cosdChromeosDevices :: !(Maybe [ChromeOSDevice])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeOSDevices' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cosdEtag'------ * 'cosdNextPageToken'------ * 'cosdKind'------ * 'cosdChromeosDevices'-chromeOSDevices-    :: ChromeOSDevices-chromeOSDevices =-  ChromeOSDevices'-    { _cosdEtag = Nothing-    , _cosdNextPageToken = Nothing-    , _cosdKind = "admin#directory#chromeosdevices"-    , _cosdChromeosDevices = Nothing-    }----- | ETag of the resource.-cosdEtag :: Lens' ChromeOSDevices (Maybe Text)-cosdEtag = lens _cosdEtag (\ s a -> s{_cosdEtag = a})---- | Token used to access next page of this result.-cosdNextPageToken :: Lens' ChromeOSDevices (Maybe Text)-cosdNextPageToken-  = lens _cosdNextPageToken-      (\ s a -> s{_cosdNextPageToken = a})---- | Kind of resource this is.-cosdKind :: Lens' ChromeOSDevices Text-cosdKind = lens _cosdKind (\ s a -> s{_cosdKind = a})---- | List of Chrome OS Device objects.-cosdChromeosDevices :: Lens' ChromeOSDevices [ChromeOSDevice]-cosdChromeosDevices-  = lens _cosdChromeosDevices-      (\ s a -> s{_cosdChromeosDevices = a})-      . _Default-      . _Coerce--instance FromJSON ChromeOSDevices where-        parseJSON-          = withObject "ChromeOSDevices"-              (\ o ->-                 ChromeOSDevices' <$>-                   (o .:? "etag") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "admin#directory#chromeosdevices")-                     <*> (o .:? "chromeosdevices" .!= mempty))--instance ToJSON ChromeOSDevices where-        toJSON ChromeOSDevices'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _cosdEtag,-                  ("nextPageToken" .=) <$> _cosdNextPageToken,-                  Just ("kind" .= _cosdKind),-                  ("chromeosdevices" .=) <$> _cosdChromeosDevices])---- | JSON template for Has Member response in Directory API.------ /See:/ 'membersHasMember' smart constructor.-newtype MembersHasMember =-  MembersHasMember'-    { _mhmIsMember :: Maybe Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MembersHasMember' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mhmIsMember'-membersHasMember-    :: MembersHasMember-membersHasMember = MembersHasMember' {_mhmIsMember = Nothing}----- | Identifies whether the given user is a member of the group. Membership--- can be direct or nested.-mhmIsMember :: Lens' MembersHasMember (Maybe Bool)-mhmIsMember-  = lens _mhmIsMember (\ s a -> s{_mhmIsMember = a})--instance FromJSON MembersHasMember where-        parseJSON-          = withObject "MembersHasMember"-              (\ o -> MembersHasMember' <$> (o .:? "isMember"))--instance ToJSON MembersHasMember where-        toJSON MembersHasMember'{..}-          = object-              (catMaybes [("isMember" .=) <$> _mhmIsMember])---- | JSON template for Trusted App Ids Resource object in Directory API.------ /See:/ 'trustedAppId' smart constructor.-data TrustedAppId =-  TrustedAppId'-    { _taiCertificateHashSHA256 :: !(Maybe Text)-    , _taiEtag                  :: !(Maybe Text)-    , _taiKind                  :: !Text-    , _taiCertificateHashSHA1   :: !(Maybe Text)-    , _taiAndroidPackageName    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TrustedAppId' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'taiCertificateHashSHA256'------ * 'taiEtag'------ * 'taiKind'------ * 'taiCertificateHashSHA1'------ * 'taiAndroidPackageName'-trustedAppId-    :: TrustedAppId-trustedAppId =-  TrustedAppId'-    { _taiCertificateHashSHA256 = Nothing-    , _taiEtag = Nothing-    , _taiKind = "admin#directory#trustedappid"-    , _taiCertificateHashSHA1 = Nothing-    , _taiAndroidPackageName = Nothing-    }----- | SHA256 signature of the app certificate.-taiCertificateHashSHA256 :: Lens' TrustedAppId (Maybe Text)-taiCertificateHashSHA256-  = lens _taiCertificateHashSHA256-      (\ s a -> s{_taiCertificateHashSHA256 = a})--taiEtag :: Lens' TrustedAppId (Maybe Text)-taiEtag = lens _taiEtag (\ s a -> s{_taiEtag = a})---- | Identifies the resource as a trusted AppId.-taiKind :: Lens' TrustedAppId Text-taiKind = lens _taiKind (\ s a -> s{_taiKind = a})---- | SHA1 signature of the app certificate.-taiCertificateHashSHA1 :: Lens' TrustedAppId (Maybe Text)-taiCertificateHashSHA1-  = lens _taiCertificateHashSHA1-      (\ s a -> s{_taiCertificateHashSHA1 = a})---- | Android package name.-taiAndroidPackageName :: Lens' TrustedAppId (Maybe Text)-taiAndroidPackageName-  = lens _taiAndroidPackageName-      (\ s a -> s{_taiAndroidPackageName = a})--instance FromJSON TrustedAppId where-        parseJSON-          = withObject "TrustedAppId"-              (\ o ->-                 TrustedAppId' <$>-                   (o .:? "certificateHashSHA256") <*> (o .:? "etag")-                     <*> (o .:? "kind" .!= "admin#directory#trustedappid")-                     <*> (o .:? "certificateHashSHA1")-                     <*> (o .:? "androidPackageName"))--instance ToJSON TrustedAppId where-        toJSON TrustedAppId'{..}-          = object-              (catMaybes-                 [("certificateHashSHA256" .=) <$>-                    _taiCertificateHashSHA256,-                  ("etag" .=) <$> _taiEtag, Just ("kind" .= _taiKind),-                  ("certificateHashSHA1" .=) <$>-                    _taiCertificateHashSHA1,-                  ("androidPackageName" .=) <$>-                    _taiAndroidPackageName])---- | JSON template for an externalId entry.------ /See:/ 'userExternalId' smart constructor.-data UserExternalId =-  UserExternalId'-    { _ueiValue      :: !(Maybe Text)-    , _ueiType       :: !(Maybe Text)-    , _ueiCustomType :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserExternalId' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ueiValue'------ * 'ueiType'------ * 'ueiCustomType'-userExternalId-    :: UserExternalId-userExternalId =-  UserExternalId'-    {_ueiValue = Nothing, _ueiType = Nothing, _ueiCustomType = Nothing}----- | The value of the id.-ueiValue :: Lens' UserExternalId (Maybe Text)-ueiValue = lens _ueiValue (\ s a -> s{_ueiValue = a})---- | The type of the Id.-ueiType :: Lens' UserExternalId (Maybe Text)-ueiType = lens _ueiType (\ s a -> s{_ueiType = a})---- | Custom type.-ueiCustomType :: Lens' UserExternalId (Maybe Text)-ueiCustomType-  = lens _ueiCustomType-      (\ s a -> s{_ueiCustomType = a})--instance FromJSON UserExternalId where-        parseJSON-          = withObject "UserExternalId"-              (\ o ->-                 UserExternalId' <$>-                   (o .:? "value") <*> (o .:? "type") <*>-                     (o .:? "customType"))--instance ToJSON UserExternalId where-        toJSON UserExternalId'{..}-          = object-              (catMaybes-                 [("value" .=) <$> _ueiValue,-                  ("type" .=) <$> _ueiType,-                  ("customType" .=) <$> _ueiCustomType])------- /See:/ 'asps' smart constructor.-data Asps =-  Asps'-    { _aspEtag  :: !(Maybe Text)-    , _aspKind  :: !Text-    , _aspItems :: !(Maybe [Asp])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Asps' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aspEtag'------ * 'aspKind'------ * 'aspItems'-asps-    :: Asps-asps =-  Asps'-    { _aspEtag = Nothing-    , _aspKind = "admin#directory#aspList"-    , _aspItems = Nothing-    }----- | ETag of the resource.-aspEtag :: Lens' Asps (Maybe Text)-aspEtag = lens _aspEtag (\ s a -> s{_aspEtag = a})---- | The type of the API resource. This is always admin#directory#aspList.-aspKind :: Lens' Asps Text-aspKind = lens _aspKind (\ s a -> s{_aspKind = a})---- | A list of ASP resources.-aspItems :: Lens' Asps [Asp]-aspItems-  = lens _aspItems (\ s a -> s{_aspItems = a}) .-      _Default-      . _Coerce--instance FromJSON Asps where-        parseJSON-          = withObject "Asps"-              (\ o ->-                 Asps' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#aspList")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON Asps where-        toJSON Asps'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _aspEtag, Just ("kind" .= _aspKind),-                  ("items" .=) <$> _aspItems])------- /See:/ 'chromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem' smart constructor.-data ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem =-  ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem'-    { _codcsrictiiTemperature :: !(Maybe (Textual Int32))-    , _codcsrictiiLabel       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'codcsrictiiTemperature'------ * 'codcsrictiiLabel'-chromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem-    :: ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem-chromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem =-  ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem'-    {_codcsrictiiTemperature = Nothing, _codcsrictiiLabel = Nothing}----- | Temperature in Celsius degrees.-codcsrictiiTemperature :: Lens' ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem (Maybe Int32)-codcsrictiiTemperature-  = lens _codcsrictiiTemperature-      (\ s a -> s{_codcsrictiiTemperature = a})-      . mapping _Coerce---- | CPU label-codcsrictiiLabel :: Lens' ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem (Maybe Text)-codcsrictiiLabel-  = lens _codcsrictiiLabel-      (\ s a -> s{_codcsrictiiLabel = a})--instance FromJSON-           ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem-         where-        parseJSON-          = withObject-              "ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem"-              (\ o ->-                 ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem'-                   <$> (o .:? "temperature") <*> (o .:? "label"))--instance ToJSON-           ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem-         where-        toJSON-          ChromeOSDeviceCPUStatusReportsItemCPUTemperatureInfoItem'{..}-          = object-              (catMaybes-                 [("temperature" .=) <$> _codcsrictiiTemperature,-                  ("label" .=) <$> _codcsrictiiLabel])------- /See:/ 'roleRolePrivilegesItem' smart constructor.-data RoleRolePrivilegesItem =-  RoleRolePrivilegesItem'-    { _rrpiServiceId     :: !(Maybe Text)-    , _rrpiPrivilegeName :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RoleRolePrivilegesItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rrpiServiceId'------ * 'rrpiPrivilegeName'-roleRolePrivilegesItem-    :: RoleRolePrivilegesItem-roleRolePrivilegesItem =-  RoleRolePrivilegesItem'-    {_rrpiServiceId = Nothing, _rrpiPrivilegeName = Nothing}----- | The obfuscated ID of the service this privilege is for.-rrpiServiceId :: Lens' RoleRolePrivilegesItem (Maybe Text)-rrpiServiceId-  = lens _rrpiServiceId-      (\ s a -> s{_rrpiServiceId = a})---- | The name of the privilege.-rrpiPrivilegeName :: Lens' RoleRolePrivilegesItem (Maybe Text)-rrpiPrivilegeName-  = lens _rrpiPrivilegeName-      (\ s a -> s{_rrpiPrivilegeName = a})--instance FromJSON RoleRolePrivilegesItem where-        parseJSON-          = withObject "RoleRolePrivilegesItem"-              (\ o ->-                 RoleRolePrivilegesItem' <$>-                   (o .:? "serviceId") <*> (o .:? "privilegeName"))--instance ToJSON RoleRolePrivilegesItem where-        toJSON RoleRolePrivilegesItem'{..}-          = object-              (catMaybes-                 [("serviceId" .=) <$> _rrpiServiceId,-                  ("privilegeName" .=) <$> _rrpiPrivilegeName])---- | JSON response template to list Domains in Directory API.------ /See:/ 'domains2' smart constructor.-data Domains2 =-  Domains2'-    { _ddEtag    :: !(Maybe Text)-    , _ddKind    :: !Text-    , _ddDomains :: !(Maybe [Domains])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Domains2' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddEtag'------ * 'ddKind'------ * 'ddDomains'-domains2-    :: Domains2-domains2 =-  Domains2'-    { _ddEtag = Nothing-    , _ddKind = "admin#directory#domains"-    , _ddDomains = Nothing-    }----- | ETag of the resource.-ddEtag :: Lens' Domains2 (Maybe Text)-ddEtag = lens _ddEtag (\ s a -> s{_ddEtag = a})---- | Kind of resource this is.-ddKind :: Lens' Domains2 Text-ddKind = lens _ddKind (\ s a -> s{_ddKind = a})---- | List of domain objects.-ddDomains :: Lens' Domains2 [Domains]-ddDomains-  = lens _ddDomains (\ s a -> s{_ddDomains = a}) .-      _Default-      . _Coerce--instance FromJSON Domains2 where-        parseJSON-          = withObject "Domains2"-              (\ o ->-                 Domains2' <$>-                   (o .:? "etag") <*>-                     (o .:? "kind" .!= "admin#directory#domains")-                     <*> (o .:? "domains" .!= mempty))--instance ToJSON Domains2 where-        toJSON Domains2'{..}-          = object-              (catMaybes-                 [("etag" .=) <$> _ddEtag, Just ("kind" .= _ddKind),-                  ("domains" .=) <$> _ddDomains])
− gen/Network/Google/Directory/Types/Sum.hs 
@@ -1,1024 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.Directory.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.Directory.Types.Sum where--import           Network.Google.Prelude hiding (Bytes)---- | Event on which subscription is intended (if subscribing)-data UsersListEvent-    = Add-      -- ^ @add@-      -- User Created Event-    | Delete'-      -- ^ @delete@-      -- User Deleted Event-    | MakeAdmin-      -- ^ @makeAdmin@-      -- User Admin Status Change Event-    | Undelete-      -- ^ @undelete@-      -- User Undeleted Event-    | Update-      -- ^ @update@-      -- User Updated Event-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersListEvent--instance FromHttpApiData UsersListEvent where-    parseQueryParam = \case-        "add" -> Right Add-        "delete" -> Right Delete'-        "makeAdmin" -> Right MakeAdmin-        "undelete" -> Right Undelete-        "update" -> Right Update-        x -> Left ("Unable to parse UsersListEvent from: " <> x)--instance ToHttpApiData UsersListEvent where-    toQueryParam = \case-        Add -> "add"-        Delete' -> "delete"-        MakeAdmin -> "makeAdmin"-        Undelete -> "undelete"-        Update -> "update"--instance FromJSON UsersListEvent where-    parseJSON = parseJSONText "UsersListEvent"--instance ToJSON UsersListEvent where-    toJSON = toJSONText---- | Event on which subscription is intended (if subscribing)-data UsersAliasesListEvent-    = UALEAdd-      -- ^ @add@-      -- Alias Created Event-    | UALEDelete'-      -- ^ @delete@-      -- Alias Deleted Event-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersAliasesListEvent--instance FromHttpApiData UsersAliasesListEvent where-    parseQueryParam = \case-        "add" -> Right UALEAdd-        "delete" -> Right UALEDelete'-        x -> Left ("Unable to parse UsersAliasesListEvent from: " <> x)--instance ToHttpApiData UsersAliasesListEvent where-    toQueryParam = \case-        UALEAdd -> "add"-        UALEDelete' -> "delete"--instance FromJSON UsersAliasesListEvent where-    parseJSON = parseJSONText "UsersAliasesListEvent"--instance ToJSON UsersAliasesListEvent where-    toJSON = toJSONText---- | Event on which subscription is intended (if subscribing)-data UsersAliasesWatchEvent-    = UAWEAdd-      -- ^ @add@-      -- Alias Created Event-    | UAWEDelete'-      -- ^ @delete@-      -- Alias Deleted Event-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersAliasesWatchEvent--instance FromHttpApiData UsersAliasesWatchEvent where-    parseQueryParam = \case-        "add" -> Right UAWEAdd-        "delete" -> Right UAWEDelete'-        x -> Left ("Unable to parse UsersAliasesWatchEvent from: " <> x)--instance ToHttpApiData UsersAliasesWatchEvent where-    toQueryParam = \case-        UAWEAdd -> "add"-        UAWEDelete' -> "delete"--instance FromJSON UsersAliasesWatchEvent where-    parseJSON = parseJSONText "UsersAliasesWatchEvent"--instance ToJSON UsersAliasesWatchEvent where-    toJSON = toJSONText---- | Event on which subscription is intended (if subscribing)-data UsersWatchEvent-    = UWEAdd-      -- ^ @add@-      -- User Created Event-    | UWEDelete'-      -- ^ @delete@-      -- User Deleted Event-    | UWEMakeAdmin-      -- ^ @makeAdmin@-      -- User Admin Status Change Event-    | UWEUndelete-      -- ^ @undelete@-      -- User Undeleted Event-    | UWEUpdate-      -- ^ @update@-      -- User Updated Event-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersWatchEvent--instance FromHttpApiData UsersWatchEvent where-    parseQueryParam = \case-        "add" -> Right UWEAdd-        "delete" -> Right UWEDelete'-        "makeAdmin" -> Right UWEMakeAdmin-        "undelete" -> Right UWEUndelete-        "update" -> Right UWEUpdate-        x -> Left ("Unable to parse UsersWatchEvent from: " <> x)--instance ToHttpApiData UsersWatchEvent where-    toQueryParam = \case-        UWEAdd -> "add"-        UWEDelete' -> "delete"-        UWEMakeAdmin -> "makeAdmin"-        UWEUndelete -> "undelete"-        UWEUpdate -> "update"--instance FromJSON UsersWatchEvent where-    parseJSON = parseJSONText "UsersWatchEvent"--instance ToJSON UsersWatchEvent where-    toJSON = toJSONText---- | Restrict information returned to a set of selected fields.-data ChromeosDevicesPatchProjection-    = Basic-      -- ^ @BASIC@-      -- Includes only the basic metadata fields (e.g., deviceId, serialNumber,-      -- status, and user)-    | Full-      -- ^ @FULL@-      -- Includes all metadata fields-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ChromeosDevicesPatchProjection--instance FromHttpApiData ChromeosDevicesPatchProjection where-    parseQueryParam = \case-        "BASIC" -> Right Basic-        "FULL" -> Right Full-        x -> Left ("Unable to parse ChromeosDevicesPatchProjection from: " <> x)--instance ToHttpApiData ChromeosDevicesPatchProjection where-    toQueryParam = \case-        Basic -> "BASIC"-        Full -> "FULL"--instance FromJSON ChromeosDevicesPatchProjection where-    parseJSON = parseJSONText "ChromeosDevicesPatchProjection"--instance ToJSON ChromeosDevicesPatchProjection where-    toJSON = toJSONText---- | Restrict information returned to a set of selected fields.-data ChromeosDevicesGetProjection-    = CDGPBasic-      -- ^ @BASIC@-      -- Includes only the basic metadata fields (e.g., deviceId, serialNumber,-      -- status, and user)-    | CDGPFull-      -- ^ @FULL@-      -- Includes all metadata fields-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ChromeosDevicesGetProjection--instance FromHttpApiData ChromeosDevicesGetProjection where-    parseQueryParam = \case-        "BASIC" -> Right CDGPBasic-        "FULL" -> Right CDGPFull-        x -> Left ("Unable to parse ChromeosDevicesGetProjection from: " <> x)--instance ToHttpApiData ChromeosDevicesGetProjection where-    toQueryParam = \case-        CDGPBasic -> "BASIC"-        CDGPFull -> "FULL"--instance FromJSON ChromeosDevicesGetProjection where-    parseJSON = parseJSONText "ChromeosDevicesGetProjection"--instance ToJSON ChromeosDevicesGetProjection where-    toJSON = toJSONText---- | Whether to fetch the ADMIN_VIEW or DOMAIN_PUBLIC view of the user.-data UsersListViewType-    = AdminView-      -- ^ @admin_view@-      -- Fetches the ADMIN_VIEW of the user.-    | DomainPublic-      -- ^ @domain_public@-      -- Fetches the DOMAIN_PUBLIC view of the user.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersListViewType--instance FromHttpApiData UsersListViewType where-    parseQueryParam = \case-        "admin_view" -> Right AdminView-        "domain_public" -> Right DomainPublic-        x -> Left ("Unable to parse UsersListViewType from: " <> x)--instance ToHttpApiData UsersListViewType where-    toQueryParam = \case-        AdminView -> "admin_view"-        DomainPublic -> "domain_public"--instance FromJSON UsersListViewType where-    parseJSON = parseJSONText "UsersListViewType"--instance ToJSON UsersListViewType where-    toJSON = toJSONText---- | Whether to return all sub-organizations or just immediate children-data OrgUnitsListType-    = All-      -- ^ @all@-      -- All sub-organizational units.-    | Children-      -- ^ @children@-      -- Immediate children only (default).-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable OrgUnitsListType--instance FromHttpApiData OrgUnitsListType where-    parseQueryParam = \case-        "all" -> Right All-        "children" -> Right Children-        x -> Left ("Unable to parse OrgUnitsListType from: " <> x)--instance ToHttpApiData OrgUnitsListType where-    toQueryParam = \case-        All -> "all"-        Children -> "children"--instance FromJSON OrgUnitsListType where-    parseJSON = parseJSONText "OrgUnitsListType"--instance ToJSON OrgUnitsListType where-    toJSON = toJSONText---- | Whether to return results in ascending or descending order. Only of use--- when orderBy is also used-data MobileDevicesListSortOrder-    = Ascending-      -- ^ @ASCENDING@-      -- Ascending order.-    | Descending-      -- ^ @DESCENDING@-      -- Descending order.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable MobileDevicesListSortOrder--instance FromHttpApiData MobileDevicesListSortOrder where-    parseQueryParam = \case-        "ASCENDING" -> Right Ascending-        "DESCENDING" -> Right Descending-        x -> Left ("Unable to parse MobileDevicesListSortOrder from: " <> x)--instance ToHttpApiData MobileDevicesListSortOrder where-    toQueryParam = \case-        Ascending -> "ASCENDING"-        Descending -> "DESCENDING"--instance FromJSON MobileDevicesListSortOrder where-    parseJSON = parseJSONText "MobileDevicesListSortOrder"--instance ToJSON MobileDevicesListSortOrder where-    toJSON = toJSONText---- | Column to use for sorting results-data UsersListOrderBy-    = Email-      -- ^ @email@-      -- Primary email of the user.-    | FamilyName-      -- ^ @familyName@-      -- User\'s family name.-    | GivenName-      -- ^ @givenName@-      -- User\'s given name.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersListOrderBy--instance FromHttpApiData UsersListOrderBy where-    parseQueryParam = \case-        "email" -> Right Email-        "familyName" -> Right FamilyName-        "givenName" -> Right GivenName-        x -> Left ("Unable to parse UsersListOrderBy from: " <> x)--instance ToHttpApiData UsersListOrderBy where-    toQueryParam = \case-        Email -> "email"-        FamilyName -> "familyName"-        GivenName -> "givenName"--instance FromJSON UsersListOrderBy where-    parseJSON = parseJSONText "UsersListOrderBy"--instance ToJSON UsersListOrderBy where-    toJSON = toJSONText---- | Column to use for sorting results-data GroupsListOrderBy-    = GLOBEmail-      -- ^ @email@-      -- Email of the group.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable GroupsListOrderBy--instance FromHttpApiData GroupsListOrderBy where-    parseQueryParam = \case-        "email" -> Right GLOBEmail-        x -> Left ("Unable to parse GroupsListOrderBy from: " <> x)--instance ToHttpApiData GroupsListOrderBy where-    toQueryParam = \case-        GLOBEmail -> "email"--instance FromJSON GroupsListOrderBy where-    parseJSON = parseJSONText "GroupsListOrderBy"--instance ToJSON GroupsListOrderBy where-    toJSON = toJSONText---- | Source from which Building.coordinates are derived.-data ResourcesBuildingsPatchCoordinatesSource-    = ClientSpecified-      -- ^ @CLIENT_SPECIFIED@-      -- Building.coordinates are set to the coordinates included in the request.-    | ResolvedFromAddress-      -- ^ @RESOLVED_FROM_ADDRESS@-      -- Building.coordinates are automatically populated based on the postal-      -- address.-    | SourceUnspecified-      -- ^ @SOURCE_UNSPECIFIED@-      -- Defaults to RESOLVED_FROM_ADDRESS if postal address is provided.-      -- Otherwise, defaults to CLIENT_SPECIFIED if coordinates are provided.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ResourcesBuildingsPatchCoordinatesSource--instance FromHttpApiData ResourcesBuildingsPatchCoordinatesSource where-    parseQueryParam = \case-        "CLIENT_SPECIFIED" -> Right ClientSpecified-        "RESOLVED_FROM_ADDRESS" -> Right ResolvedFromAddress-        "SOURCE_UNSPECIFIED" -> Right SourceUnspecified-        x -> Left ("Unable to parse ResourcesBuildingsPatchCoordinatesSource from: " <> x)--instance ToHttpApiData ResourcesBuildingsPatchCoordinatesSource where-    toQueryParam = \case-        ClientSpecified -> "CLIENT_SPECIFIED"-        ResolvedFromAddress -> "RESOLVED_FROM_ADDRESS"-        SourceUnspecified -> "SOURCE_UNSPECIFIED"--instance FromJSON ResourcesBuildingsPatchCoordinatesSource where-    parseJSON = parseJSONText "ResourcesBuildingsPatchCoordinatesSource"--instance ToJSON ResourcesBuildingsPatchCoordinatesSource where-    toJSON = toJSONText---- | Whether to fetch the ADMIN_VIEW or DOMAIN_PUBLIC view of the user.-data UsersWatchViewType-    = UWVTAdminView-      -- ^ @admin_view@-      -- Fetches the ADMIN_VIEW of the user.-    | UWVTDomainPublic-      -- ^ @domain_public@-      -- Fetches the DOMAIN_PUBLIC view of the user.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersWatchViewType--instance FromHttpApiData UsersWatchViewType where-    parseQueryParam = \case-        "admin_view" -> Right UWVTAdminView-        "domain_public" -> Right UWVTDomainPublic-        x -> Left ("Unable to parse UsersWatchViewType from: " <> x)--instance ToHttpApiData UsersWatchViewType where-    toQueryParam = \case-        UWVTAdminView -> "admin_view"-        UWVTDomainPublic -> "domain_public"--instance FromJSON UsersWatchViewType where-    parseJSON = parseJSONText "UsersWatchViewType"--instance ToJSON UsersWatchViewType where-    toJSON = toJSONText---- | What subset of fields to fetch for this user.-data UsersGetProjection-    = UGPBasic-      -- ^ @basic@-      -- Do not include any custom fields for the user.-    | UGPCustom-      -- ^ @custom@-      -- Include custom fields from schemas mentioned in customFieldMask.-    | UGPFull-      -- ^ @full@-      -- Include all fields associated with this user.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersGetProjection--instance FromHttpApiData UsersGetProjection where-    parseQueryParam = \case-        "basic" -> Right UGPBasic-        "custom" -> Right UGPCustom-        "full" -> Right UGPFull-        x -> Left ("Unable to parse UsersGetProjection from: " <> x)--instance ToHttpApiData UsersGetProjection where-    toQueryParam = \case-        UGPBasic -> "basic"-        UGPCustom -> "custom"-        UGPFull -> "full"--instance FromJSON UsersGetProjection where-    parseJSON = parseJSONText "UsersGetProjection"--instance ToJSON UsersGetProjection where-    toJSON = toJSONText---- | Source from which Building.coordinates are derived.-data ResourcesBuildingsUpdateCoordinatesSource-    = RBUCSClientSpecified-      -- ^ @CLIENT_SPECIFIED@-      -- Building.coordinates are set to the coordinates included in the request.-    | RBUCSResolvedFromAddress-      -- ^ @RESOLVED_FROM_ADDRESS@-      -- Building.coordinates are automatically populated based on the postal-      -- address.-    | RBUCSSourceUnspecified-      -- ^ @SOURCE_UNSPECIFIED@-      -- Defaults to RESOLVED_FROM_ADDRESS if postal address is provided.-      -- Otherwise, defaults to CLIENT_SPECIFIED if coordinates are provided.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ResourcesBuildingsUpdateCoordinatesSource--instance FromHttpApiData ResourcesBuildingsUpdateCoordinatesSource where-    parseQueryParam = \case-        "CLIENT_SPECIFIED" -> Right RBUCSClientSpecified-        "RESOLVED_FROM_ADDRESS" -> Right RBUCSResolvedFromAddress-        "SOURCE_UNSPECIFIED" -> Right RBUCSSourceUnspecified-        x -> Left ("Unable to parse ResourcesBuildingsUpdateCoordinatesSource from: " <> x)--instance ToHttpApiData ResourcesBuildingsUpdateCoordinatesSource where-    toQueryParam = \case-        RBUCSClientSpecified -> "CLIENT_SPECIFIED"-        RBUCSResolvedFromAddress -> "RESOLVED_FROM_ADDRESS"-        RBUCSSourceUnspecified -> "SOURCE_UNSPECIFIED"--instance FromJSON ResourcesBuildingsUpdateCoordinatesSource where-    parseJSON = parseJSONText "ResourcesBuildingsUpdateCoordinatesSource"--instance ToJSON ResourcesBuildingsUpdateCoordinatesSource where-    toJSON = toJSONText---- | Restrict information returned to a set of selected fields.-data MobileDevicesListProjection-    = MDLPBasic-      -- ^ @BASIC@-      -- Includes only the basic metadata fields (e.g., deviceId, model, status,-      -- type, and status)-    | MDLPFull-      -- ^ @FULL@-      -- Includes all metadata fields-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable MobileDevicesListProjection--instance FromHttpApiData MobileDevicesListProjection where-    parseQueryParam = \case-        "BASIC" -> Right MDLPBasic-        "FULL" -> Right MDLPFull-        x -> Left ("Unable to parse MobileDevicesListProjection from: " <> x)--instance ToHttpApiData MobileDevicesListProjection where-    toQueryParam = \case-        MDLPBasic -> "BASIC"-        MDLPFull -> "FULL"--instance FromJSON MobileDevicesListProjection where-    parseJSON = parseJSONText "MobileDevicesListProjection"--instance ToJSON MobileDevicesListProjection where-    toJSON = toJSONText---- | Column to use for sorting results-data MobileDevicesListOrderBy-    = MDLOBDeviceId-      -- ^ @deviceId@-      -- Mobile Device serial number.-    | MDLOBEmail-      -- ^ @email@-      -- Owner user email.-    | MDLOBLastSync-      -- ^ @lastSync@-      -- Last policy settings sync date time of the device.-    | MDLOBModel-      -- ^ @model@-      -- Mobile Device model.-    | MDLOBName-      -- ^ @name@-      -- Owner user name.-    | MDLOBOS-      -- ^ @os@-      -- Mobile operating system.-    | MDLOBStatus-      -- ^ @status@-      -- Status of the device.-    | MDLOBType-      -- ^ @type@-      -- Type of the device.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable MobileDevicesListOrderBy--instance FromHttpApiData MobileDevicesListOrderBy where-    parseQueryParam = \case-        "deviceId" -> Right MDLOBDeviceId-        "email" -> Right MDLOBEmail-        "lastSync" -> Right MDLOBLastSync-        "model" -> Right MDLOBModel-        "name" -> Right MDLOBName-        "os" -> Right MDLOBOS-        "status" -> Right MDLOBStatus-        "type" -> Right MDLOBType-        x -> Left ("Unable to parse MobileDevicesListOrderBy from: " <> x)--instance ToHttpApiData MobileDevicesListOrderBy where-    toQueryParam = \case-        MDLOBDeviceId -> "deviceId"-        MDLOBEmail -> "email"-        MDLOBLastSync -> "lastSync"-        MDLOBModel -> "model"-        MDLOBName -> "name"-        MDLOBOS -> "os"-        MDLOBStatus -> "status"-        MDLOBType -> "type"--instance FromJSON MobileDevicesListOrderBy where-    parseJSON = parseJSONText "MobileDevicesListOrderBy"--instance ToJSON MobileDevicesListOrderBy where-    toJSON = toJSONText---- | Whether to return results in ascending or descending order.-data UsersListSortOrder-    = ULSOAscending-      -- ^ @ASCENDING@-      -- Ascending order.-    | ULSODescending-      -- ^ @DESCENDING@-      -- Descending order.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersListSortOrder--instance FromHttpApiData UsersListSortOrder where-    parseQueryParam = \case-        "ASCENDING" -> Right ULSOAscending-        "DESCENDING" -> Right ULSODescending-        x -> Left ("Unable to parse UsersListSortOrder from: " <> x)--instance ToHttpApiData UsersListSortOrder where-    toQueryParam = \case-        ULSOAscending -> "ASCENDING"-        ULSODescending -> "DESCENDING"--instance FromJSON UsersListSortOrder where-    parseJSON = parseJSONText "UsersListSortOrder"--instance ToJSON UsersListSortOrder where-    toJSON = toJSONText---- | Source from which Building.coordinates are derived.-data ResourcesBuildingsInsertCoordinatesSource-    = RBICSClientSpecified-      -- ^ @CLIENT_SPECIFIED@-      -- Building.coordinates are set to the coordinates included in the request.-    | RBICSResolvedFromAddress-      -- ^ @RESOLVED_FROM_ADDRESS@-      -- Building.coordinates are automatically populated based on the postal-      -- address.-    | RBICSSourceUnspecified-      -- ^ @SOURCE_UNSPECIFIED@-      -- Defaults to RESOLVED_FROM_ADDRESS if postal address is provided.-      -- Otherwise, defaults to CLIENT_SPECIFIED if coordinates are provided.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ResourcesBuildingsInsertCoordinatesSource--instance FromHttpApiData ResourcesBuildingsInsertCoordinatesSource where-    parseQueryParam = \case-        "CLIENT_SPECIFIED" -> Right RBICSClientSpecified-        "RESOLVED_FROM_ADDRESS" -> Right RBICSResolvedFromAddress-        "SOURCE_UNSPECIFIED" -> Right RBICSSourceUnspecified-        x -> Left ("Unable to parse ResourcesBuildingsInsertCoordinatesSource from: " <> x)--instance ToHttpApiData ResourcesBuildingsInsertCoordinatesSource where-    toQueryParam = \case-        RBICSClientSpecified -> "CLIENT_SPECIFIED"-        RBICSResolvedFromAddress -> "RESOLVED_FROM_ADDRESS"-        RBICSSourceUnspecified -> "SOURCE_UNSPECIFIED"--instance FromJSON ResourcesBuildingsInsertCoordinatesSource where-    parseJSON = parseJSONText "ResourcesBuildingsInsertCoordinatesSource"--instance ToJSON ResourcesBuildingsInsertCoordinatesSource where-    toJSON = toJSONText---- | Whether to return results in ascending or descending order. Only of use--- when orderBy is also used-data ChromeosDevicesListSortOrder-    = CDLSOAscending-      -- ^ @ASCENDING@-      -- Ascending order.-    | CDLSODescending-      -- ^ @DESCENDING@-      -- Descending order.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ChromeosDevicesListSortOrder--instance FromHttpApiData ChromeosDevicesListSortOrder where-    parseQueryParam = \case-        "ASCENDING" -> Right CDLSOAscending-        "DESCENDING" -> Right CDLSODescending-        x -> Left ("Unable to parse ChromeosDevicesListSortOrder from: " <> x)--instance ToHttpApiData ChromeosDevicesListSortOrder where-    toQueryParam = \case-        CDLSOAscending -> "ASCENDING"-        CDLSODescending -> "DESCENDING"--instance FromJSON ChromeosDevicesListSortOrder where-    parseJSON = parseJSONText "ChromeosDevicesListSortOrder"--instance ToJSON ChromeosDevicesListSortOrder where-    toJSON = toJSONText---- | Whether to return results in ascending or descending order.-data UsersWatchSortOrder-    = UWSOAscending-      -- ^ @ASCENDING@-      -- Ascending order.-    | UWSODescending-      -- ^ @DESCENDING@-      -- Descending order.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersWatchSortOrder--instance FromHttpApiData UsersWatchSortOrder where-    parseQueryParam = \case-        "ASCENDING" -> Right UWSOAscending-        "DESCENDING" -> Right UWSODescending-        x -> Left ("Unable to parse UsersWatchSortOrder from: " <> x)--instance ToHttpApiData UsersWatchSortOrder where-    toQueryParam = \case-        UWSOAscending -> "ASCENDING"-        UWSODescending -> "DESCENDING"--instance FromJSON UsersWatchSortOrder where-    parseJSON = parseJSONText "UsersWatchSortOrder"--instance ToJSON UsersWatchSortOrder where-    toJSON = toJSONText---- | Whether to return results in ascending or descending order. Only of use--- when orderBy is also used-data GroupsListSortOrder-    = GLSOAscending-      -- ^ @ASCENDING@-      -- Ascending order.-    | GLSODescending-      -- ^ @DESCENDING@-      -- Descending order.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable GroupsListSortOrder--instance FromHttpApiData GroupsListSortOrder where-    parseQueryParam = \case-        "ASCENDING" -> Right GLSOAscending-        "DESCENDING" -> Right GLSODescending-        x -> Left ("Unable to parse GroupsListSortOrder from: " <> x)--instance ToHttpApiData GroupsListSortOrder where-    toQueryParam = \case-        GLSOAscending -> "ASCENDING"-        GLSODescending -> "DESCENDING"--instance FromJSON GroupsListSortOrder where-    parseJSON = parseJSONText "GroupsListSortOrder"--instance ToJSON GroupsListSortOrder where-    toJSON = toJSONText---- | What subset of fields to fetch for this user.-data UsersListProjection-    = ULPBasic-      -- ^ @basic@-      -- Do not include any custom fields for the user.-    | ULPCustom-      -- ^ @custom@-      -- Include custom fields from schemas mentioned in customFieldMask.-    | ULPFull-      -- ^ @full@-      -- Include all fields associated with this user.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersListProjection--instance FromHttpApiData UsersListProjection where-    parseQueryParam = \case-        "basic" -> Right ULPBasic-        "custom" -> Right ULPCustom-        "full" -> Right ULPFull-        x -> Left ("Unable to parse UsersListProjection from: " <> x)--instance ToHttpApiData UsersListProjection where-    toQueryParam = \case-        ULPBasic -> "basic"-        ULPCustom -> "custom"-        ULPFull -> "full"--instance FromJSON UsersListProjection where-    parseJSON = parseJSONText "UsersListProjection"--instance ToJSON UsersListProjection where-    toJSON = toJSONText---- | Restrict information returned to a set of selected fields.-data ChromeosDevicesUpdateProjection-    = CDUPBasic-      -- ^ @BASIC@-      -- Includes only the basic metadata fields (e.g., deviceId, serialNumber,-      -- status, and user)-    | CDUPFull-      -- ^ @FULL@-      -- Includes all metadata fields-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ChromeosDevicesUpdateProjection--instance FromHttpApiData ChromeosDevicesUpdateProjection where-    parseQueryParam = \case-        "BASIC" -> Right CDUPBasic-        "FULL" -> Right CDUPFull-        x -> Left ("Unable to parse ChromeosDevicesUpdateProjection from: " <> x)--instance ToHttpApiData ChromeosDevicesUpdateProjection where-    toQueryParam = \case-        CDUPBasic -> "BASIC"-        CDUPFull -> "FULL"--instance FromJSON ChromeosDevicesUpdateProjection where-    parseJSON = parseJSONText "ChromeosDevicesUpdateProjection"--instance ToJSON ChromeosDevicesUpdateProjection where-    toJSON = toJSONText---- | Restrict information returned to a set of selected fields.-data MobileDevicesGetProjection-    = MDGPBasic-      -- ^ @BASIC@-      -- Includes only the basic metadata fields (e.g., deviceId, model, status,-      -- type, and status)-    | MDGPFull-      -- ^ @FULL@-      -- Includes all metadata fields-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable MobileDevicesGetProjection--instance FromHttpApiData MobileDevicesGetProjection where-    parseQueryParam = \case-        "BASIC" -> Right MDGPBasic-        "FULL" -> Right MDGPFull-        x -> Left ("Unable to parse MobileDevicesGetProjection from: " <> x)--instance ToHttpApiData MobileDevicesGetProjection where-    toQueryParam = \case-        MDGPBasic -> "BASIC"-        MDGPFull -> "FULL"--instance FromJSON MobileDevicesGetProjection where-    parseJSON = parseJSONText "MobileDevicesGetProjection"--instance ToJSON MobileDevicesGetProjection where-    toJSON = toJSONText---- | Column to use for sorting results-data ChromeosDevicesListOrderBy-    = AnnotatedLocation-      -- ^ @annotatedLocation@-      -- Chromebook location as annotated by the administrator.-    | AnnotatedUser-      -- ^ @annotatedUser@-      -- Chromebook user as annotated by administrator.-    | LastSync-      -- ^ @lastSync@-      -- Chromebook last sync.-    | Notes-      -- ^ @notes@-      -- Chromebook notes as annotated by the administrator.-    | SerialNumber-      -- ^ @serialNumber@-      -- Chromebook Serial Number.-    | Status-      -- ^ @status@-      -- Chromebook status.-    | SupportEndDate-      -- ^ @supportEndDate@-      -- Chromebook support end date.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ChromeosDevicesListOrderBy--instance FromHttpApiData ChromeosDevicesListOrderBy where-    parseQueryParam = \case-        "annotatedLocation" -> Right AnnotatedLocation-        "annotatedUser" -> Right AnnotatedUser-        "lastSync" -> Right LastSync-        "notes" -> Right Notes-        "serialNumber" -> Right SerialNumber-        "status" -> Right Status-        "supportEndDate" -> Right SupportEndDate-        x -> Left ("Unable to parse ChromeosDevicesListOrderBy from: " <> x)--instance ToHttpApiData ChromeosDevicesListOrderBy where-    toQueryParam = \case-        AnnotatedLocation -> "annotatedLocation"-        AnnotatedUser -> "annotatedUser"-        LastSync -> "lastSync"-        Notes -> "notes"-        SerialNumber -> "serialNumber"-        Status -> "status"-        SupportEndDate -> "supportEndDate"--instance FromJSON ChromeosDevicesListOrderBy where-    parseJSON = parseJSONText "ChromeosDevicesListOrderBy"--instance ToJSON ChromeosDevicesListOrderBy where-    toJSON = toJSONText---- | What subset of fields to fetch for this user.-data UsersWatchProjection-    = UWPBasic-      -- ^ @basic@-      -- Do not include any custom fields for the user.-    | UWPCustom-      -- ^ @custom@-      -- Include custom fields from schemas mentioned in customFieldMask.-    | UWPFull-      -- ^ @full@-      -- Include all fields associated with this user.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersWatchProjection--instance FromHttpApiData UsersWatchProjection where-    parseQueryParam = \case-        "basic" -> Right UWPBasic-        "custom" -> Right UWPCustom-        "full" -> Right UWPFull-        x -> Left ("Unable to parse UsersWatchProjection from: " <> x)--instance ToHttpApiData UsersWatchProjection where-    toQueryParam = \case-        UWPBasic -> "basic"-        UWPCustom -> "custom"-        UWPFull -> "full"--instance FromJSON UsersWatchProjection where-    parseJSON = parseJSONText "UsersWatchProjection"--instance ToJSON UsersWatchProjection where-    toJSON = toJSONText---- | Column to use for sorting results-data UsersWatchOrderBy-    = UWOBEmail-      -- ^ @email@-      -- Primary email of the user.-    | UWOBFamilyName-      -- ^ @familyName@-      -- User\'s family name.-    | UWOBGivenName-      -- ^ @givenName@-      -- User\'s given name.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersWatchOrderBy--instance FromHttpApiData UsersWatchOrderBy where-    parseQueryParam = \case-        "email" -> Right UWOBEmail-        "familyName" -> Right UWOBFamilyName-        "givenName" -> Right UWOBGivenName-        x -> Left ("Unable to parse UsersWatchOrderBy from: " <> x)--instance ToHttpApiData UsersWatchOrderBy where-    toQueryParam = \case-        UWOBEmail -> "email"-        UWOBFamilyName -> "familyName"-        UWOBGivenName -> "givenName"--instance FromJSON UsersWatchOrderBy where-    parseJSON = parseJSONText "UsersWatchOrderBy"--instance ToJSON UsersWatchOrderBy where-    toJSON = toJSONText---- | Restrict information returned to a set of selected fields.-data ChromeosDevicesListProjection-    = CDLPBasic-      -- ^ @BASIC@-      -- Includes only the basic metadata fields (e.g., deviceId, serialNumber,-      -- status, and user)-    | CDLPFull-      -- ^ @FULL@-      -- Includes all metadata fields-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ChromeosDevicesListProjection--instance FromHttpApiData ChromeosDevicesListProjection where-    parseQueryParam = \case-        "BASIC" -> Right CDLPBasic-        "FULL" -> Right CDLPFull-        x -> Left ("Unable to parse ChromeosDevicesListProjection from: " <> x)--instance ToHttpApiData ChromeosDevicesListProjection where-    toQueryParam = \case-        CDLPBasic -> "BASIC"-        CDLPFull -> "FULL"--instance FromJSON ChromeosDevicesListProjection where-    parseJSON = parseJSONText "ChromeosDevicesListProjection"--instance ToJSON ChromeosDevicesListProjection where-    toJSON = toJSONText---- | Whether to fetch the ADMIN_VIEW or DOMAIN_PUBLIC view of the user.-data UsersGetViewType-    = UGVTAdminView-      -- ^ @admin_view@-      -- Fetches the ADMIN_VIEW of the user.-    | UGVTDomainPublic-      -- ^ @domain_public@-      -- Fetches the DOMAIN_PUBLIC view of the user.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable UsersGetViewType--instance FromHttpApiData UsersGetViewType where-    parseQueryParam = \case-        "admin_view" -> Right UGVTAdminView-        "domain_public" -> Right UGVTDomainPublic-        x -> Left ("Unable to parse UsersGetViewType from: " <> x)--instance ToHttpApiData UsersGetViewType where-    toQueryParam = \case-        UGVTAdminView -> "admin_view"-        UGVTDomainPublic -> "domain_public"--instance FromJSON UsersGetViewType where-    parseJSON = parseJSONText "UsersGetViewType"--instance ToJSON UsersGetViewType where-    toJSON = toJSONText
− gen/Network/Google/Resource/Admin/Channels/Stop.hs 
@@ -1,92 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Admin.Channels.Stop--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Stop watching resources through this channel------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @admin.channels.stop@.-module Network.Google.Resource.Admin.Channels.Stop-    (-    -- * REST Resource-      ChannelsStopResource--    -- * Creating a Request-    , channelsStop-    , ChannelsStop--    -- * Request Lenses-    , csPayload-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @admin.channels.stop@ method which the--- 'ChannelsStop' request conforms to.-type ChannelsStopResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "admin" :>-             "directory_v1" :>-               "channels" :>-                 "stop" :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Channel :> Post '[JSON] ()---- | Stop watching resources through this channel------ /See:/ 'channelsStop' smart constructor.-newtype ChannelsStop =-  ChannelsStop'-    { _csPayload :: Channel-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChannelsStop' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csPayload'-channelsStop-    :: Channel -- ^ 'csPayload'-    -> ChannelsStop-channelsStop pCsPayload_ = ChannelsStop' {_csPayload = pCsPayload_}----- | Multipart request metadata.-csPayload :: Lens' ChannelsStop Channel-csPayload-  = lens _csPayload (\ s a -> s{_csPayload = a})--instance GoogleRequest ChannelsStop where-        type Rs ChannelsStop = ()-        type Scopes ChannelsStop =-             '["https://www.googleapis.com/auth/admin.directory.user",-               "https://www.googleapis.com/auth/admin.directory.user.alias",-               "https://www.googleapis.com/auth/admin.directory.user.alias.readonly",-               "https://www.googleapis.com/auth/admin.directory.user.readonly"]-        requestClient ChannelsStop'{..}-          = go (Just AltJSON) _csPayload directoryService-          where go-                  = buildClient (Proxy :: Proxy ChannelsStopResource)-                      mempty
− gen/Network/Google/Resource/Directory/Asps/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.Directory.Asps.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)------ Delete an ASP issued by a user.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.asps.delete@.-module Network.Google.Resource.Directory.Asps.Delete-    (-    -- * REST Resource-      AspsDeleteResource--    -- * Creating a Request-    , aspsDelete-    , AspsDelete--    -- * Request Lenses-    , adCodeId-    , adUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.asps.delete@ method which the--- 'AspsDelete' request conforms to.-type AspsDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "asps" :>-                 Capture "codeId" (Textual Int32) :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Delete an ASP issued by a user.------ /See:/ 'aspsDelete' smart constructor.-data AspsDelete =-  AspsDelete'-    { _adCodeId  :: !(Textual Int32)-    , _adUserKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AspsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'adCodeId'------ * 'adUserKey'-aspsDelete-    :: Int32 -- ^ 'adCodeId'-    -> Text -- ^ 'adUserKey'-    -> AspsDelete-aspsDelete pAdCodeId_ pAdUserKey_ =-  AspsDelete' {_adCodeId = _Coerce # pAdCodeId_, _adUserKey = pAdUserKey_}----- | The unique ID of the ASP to be deleted.-adCodeId :: Lens' AspsDelete Int32-adCodeId-  = lens _adCodeId (\ s a -> s{_adCodeId = a}) .-      _Coerce---- | Identifies the user in the API request. The value can be the user\'s--- primary email address, alias email address, or unique user ID.-adUserKey :: Lens' AspsDelete Text-adUserKey-  = lens _adUserKey (\ s a -> s{_adUserKey = a})--instance GoogleRequest AspsDelete where-        type Rs AspsDelete = ()-        type Scopes AspsDelete =-             '["https://www.googleapis.com/auth/admin.directory.user.security"]-        requestClient AspsDelete'{..}-          = go _adUserKey _adCodeId (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy AspsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Asps/Get.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.Directory.Asps.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)------ Get information about an ASP issued by a user.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.asps.get@.-module Network.Google.Resource.Directory.Asps.Get-    (-    -- * REST Resource-      AspsGetResource--    -- * Creating a Request-    , aspsGet-    , AspsGet--    -- * Request Lenses-    , agCodeId-    , agUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.asps.get@ method which the--- 'AspsGet' request conforms to.-type AspsGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "asps" :>-                 Capture "codeId" (Textual Int32) :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Asp---- | Get information about an ASP issued by a user.------ /See:/ 'aspsGet' smart constructor.-data AspsGet =-  AspsGet'-    { _agCodeId  :: !(Textual Int32)-    , _agUserKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AspsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'agCodeId'------ * 'agUserKey'-aspsGet-    :: Int32 -- ^ 'agCodeId'-    -> Text -- ^ 'agUserKey'-    -> AspsGet-aspsGet pAgCodeId_ pAgUserKey_ =-  AspsGet' {_agCodeId = _Coerce # pAgCodeId_, _agUserKey = pAgUserKey_}----- | The unique ID of the ASP.-agCodeId :: Lens' AspsGet Int32-agCodeId-  = lens _agCodeId (\ s a -> s{_agCodeId = a}) .-      _Coerce---- | Identifies the user in the API request. The value can be the user\'s--- primary email address, alias email address, or unique user ID.-agUserKey :: Lens' AspsGet Text-agUserKey-  = lens _agUserKey (\ s a -> s{_agUserKey = a})--instance GoogleRequest AspsGet where-        type Rs AspsGet = Asp-        type Scopes AspsGet =-             '["https://www.googleapis.com/auth/admin.directory.user.security"]-        requestClient AspsGet'{..}-          = go _agUserKey _agCodeId (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy AspsGetResource) mempty
− gen/Network/Google/Resource/Directory/Asps/List.hs 
@@ -1,88 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Asps.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)------ List the ASPs issued by a user.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.asps.list@.-module Network.Google.Resource.Directory.Asps.List-    (-    -- * REST Resource-      AspsListResource--    -- * Creating a Request-    , aspsList-    , AspsList--    -- * Request Lenses-    , alUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.asps.list@ method which the--- 'AspsList' request conforms to.-type AspsListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "asps" :>-                 QueryParam "alt" AltJSON :> Get '[JSON] Asps---- | List the ASPs issued by a user.------ /See:/ 'aspsList' smart constructor.-newtype AspsList =-  AspsList'-    { _alUserKey :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AspsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'alUserKey'-aspsList-    :: Text -- ^ 'alUserKey'-    -> AspsList-aspsList pAlUserKey_ = AspsList' {_alUserKey = pAlUserKey_}----- | Identifies the user in the API request. The value can be the user\'s--- primary email address, alias email address, or unique user ID.-alUserKey :: Lens' AspsList Text-alUserKey-  = lens _alUserKey (\ s a -> s{_alUserKey = a})--instance GoogleRequest AspsList where-        type Rs AspsList = Asps-        type Scopes AspsList =-             '["https://www.googleapis.com/auth/admin.directory.user.security"]-        requestClient AspsList'{..}-          = go _alUserKey (Just AltJSON) directoryService-          where go-                  = buildClient (Proxy :: Proxy AspsListResource)-                      mempty
− gen/Network/Google/Resource/Directory/ChromeosDevices/Action.hs 
@@ -1,122 +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.Directory.ChromeosDevices.Action--- 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)------ Take action on Chrome OS Device------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.chromeosdevices.action@.-module Network.Google.Resource.Directory.ChromeosDevices.Action-    (-    -- * REST Resource-      ChromeosDevicesActionResource--    -- * Creating a Request-    , chromeosDevicesAction-    , ChromeosDevicesAction--    -- * Request Lenses-    , cdaResourceId-    , cdaPayload-    , cdaCustomerId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.chromeosdevices.action@ method which the--- 'ChromeosDevicesAction' request conforms to.-type ChromeosDevicesActionResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "devices" :>-                 "chromeos" :>-                   Capture "resourceId" Text :>-                     "action" :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] ChromeOSDeviceAction :>-                           Post '[JSON] ()---- | Take action on Chrome OS Device------ /See:/ 'chromeosDevicesAction' smart constructor.-data ChromeosDevicesAction =-  ChromeosDevicesAction'-    { _cdaResourceId :: !Text-    , _cdaPayload    :: !ChromeOSDeviceAction-    , _cdaCustomerId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeosDevicesAction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdaResourceId'------ * 'cdaPayload'------ * 'cdaCustomerId'-chromeosDevicesAction-    :: Text -- ^ 'cdaResourceId'-    -> ChromeOSDeviceAction -- ^ 'cdaPayload'-    -> Text -- ^ 'cdaCustomerId'-    -> ChromeosDevicesAction-chromeosDevicesAction pCdaResourceId_ pCdaPayload_ pCdaCustomerId_ =-  ChromeosDevicesAction'-    { _cdaResourceId = pCdaResourceId_-    , _cdaPayload = pCdaPayload_-    , _cdaCustomerId = pCdaCustomerId_-    }----- | Immutable ID of Chrome OS Device-cdaResourceId :: Lens' ChromeosDevicesAction Text-cdaResourceId-  = lens _cdaResourceId-      (\ s a -> s{_cdaResourceId = a})---- | Multipart request metadata.-cdaPayload :: Lens' ChromeosDevicesAction ChromeOSDeviceAction-cdaPayload-  = lens _cdaPayload (\ s a -> s{_cdaPayload = a})---- | Immutable ID of the G Suite account-cdaCustomerId :: Lens' ChromeosDevicesAction Text-cdaCustomerId-  = lens _cdaCustomerId-      (\ s a -> s{_cdaCustomerId = a})--instance GoogleRequest ChromeosDevicesAction where-        type Rs ChromeosDevicesAction = ()-        type Scopes ChromeosDevicesAction =-             '["https://www.googleapis.com/auth/admin.directory.device.chromeos"]-        requestClient ChromeosDevicesAction'{..}-          = go _cdaCustomerId _cdaResourceId (Just AltJSON)-              _cdaPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ChromeosDevicesActionResource)-                      mempty
− gen/Network/Google/Resource/Directory/ChromeosDevices/Get.hs 
@@ -1,122 +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.Directory.ChromeosDevices.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)------ Retrieve Chrome OS Device------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.chromeosdevices.get@.-module Network.Google.Resource.Directory.ChromeosDevices.Get-    (-    -- * REST Resource-      ChromeosDevicesGetResource--    -- * Creating a Request-    , chromeosDevicesGet-    , ChromeosDevicesGet--    -- * Request Lenses-    , cdgCustomerId-    , cdgDeviceId-    , cdgProjection-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.chromeosdevices.get@ method which the--- 'ChromeosDevicesGet' request conforms to.-type ChromeosDevicesGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "devices" :>-                 "chromeos" :>-                   Capture "deviceId" Text :>-                     QueryParam "projection" ChromeosDevicesGetProjection-                       :>-                       QueryParam "alt" AltJSON :>-                         Get '[JSON] ChromeOSDevice---- | Retrieve Chrome OS Device------ /See:/ 'chromeosDevicesGet' smart constructor.-data ChromeosDevicesGet =-  ChromeosDevicesGet'-    { _cdgCustomerId :: !Text-    , _cdgDeviceId   :: !Text-    , _cdgProjection :: !(Maybe ChromeosDevicesGetProjection)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeosDevicesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdgCustomerId'------ * 'cdgDeviceId'------ * 'cdgProjection'-chromeosDevicesGet-    :: Text -- ^ 'cdgCustomerId'-    -> Text -- ^ 'cdgDeviceId'-    -> ChromeosDevicesGet-chromeosDevicesGet pCdgCustomerId_ pCdgDeviceId_ =-  ChromeosDevicesGet'-    { _cdgCustomerId = pCdgCustomerId_-    , _cdgDeviceId = pCdgDeviceId_-    , _cdgProjection = Nothing-    }----- | Immutable ID of the G Suite account-cdgCustomerId :: Lens' ChromeosDevicesGet Text-cdgCustomerId-  = lens _cdgCustomerId-      (\ s a -> s{_cdgCustomerId = a})---- | Immutable ID of Chrome OS Device-cdgDeviceId :: Lens' ChromeosDevicesGet Text-cdgDeviceId-  = lens _cdgDeviceId (\ s a -> s{_cdgDeviceId = a})---- | Restrict information returned to a set of selected fields.-cdgProjection :: Lens' ChromeosDevicesGet (Maybe ChromeosDevicesGetProjection)-cdgProjection-  = lens _cdgProjection-      (\ s a -> s{_cdgProjection = a})--instance GoogleRequest ChromeosDevicesGet where-        type Rs ChromeosDevicesGet = ChromeOSDevice-        type Scopes ChromeosDevicesGet =-             '["https://www.googleapis.com/auth/admin.directory.device.chromeos",-               "https://www.googleapis.com/auth/admin.directory.device.chromeos.readonly"]-        requestClient ChromeosDevicesGet'{..}-          = go _cdgCustomerId _cdgDeviceId _cdgProjection-              (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ChromeosDevicesGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/ChromeosDevices/List.hs 
@@ -1,186 +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.Directory.ChromeosDevices.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)------ Retrieve all Chrome OS Devices of a customer (paginated)------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.chromeosdevices.list@.-module Network.Google.Resource.Directory.ChromeosDevices.List-    (-    -- * REST Resource-      ChromeosDevicesListResource--    -- * Creating a Request-    , chromeosDevicesList-    , ChromeosDevicesList--    -- * Request Lenses-    , cdlOrderBy-    , cdlOrgUnitPath-    , cdlCustomerId-    , cdlSortOrder-    , cdlQuery-    , cdlProjection-    , cdlPageToken-    , cdlMaxResults-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.chromeosdevices.list@ method which the--- 'ChromeosDevicesList' request conforms to.-type ChromeosDevicesListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "devices" :>-                 "chromeos" :>-                   QueryParam "orderBy" ChromeosDevicesListOrderBy :>-                     QueryParam "orgUnitPath" Text :>-                       QueryParam "sortOrder" ChromeosDevicesListSortOrder-                         :>-                         QueryParam "query" Text :>-                           QueryParam "projection" ChromeosDevicesListProjection-                             :>-                             QueryParam "pageToken" Text :>-                               QueryParam "maxResults" (Textual Int32) :>-                                 QueryParam "alt" AltJSON :>-                                   Get '[JSON] ChromeOSDevices---- | Retrieve all Chrome OS Devices of a customer (paginated)------ /See:/ 'chromeosDevicesList' smart constructor.-data ChromeosDevicesList =-  ChromeosDevicesList'-    { _cdlOrderBy     :: !(Maybe ChromeosDevicesListOrderBy)-    , _cdlOrgUnitPath :: !(Maybe Text)-    , _cdlCustomerId  :: !Text-    , _cdlSortOrder   :: !(Maybe ChromeosDevicesListSortOrder)-    , _cdlQuery       :: !(Maybe Text)-    , _cdlProjection  :: !(Maybe ChromeosDevicesListProjection)-    , _cdlPageToken   :: !(Maybe Text)-    , _cdlMaxResults  :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeosDevicesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdlOrderBy'------ * 'cdlOrgUnitPath'------ * 'cdlCustomerId'------ * 'cdlSortOrder'------ * 'cdlQuery'------ * 'cdlProjection'------ * 'cdlPageToken'------ * 'cdlMaxResults'-chromeosDevicesList-    :: Text -- ^ 'cdlCustomerId'-    -> ChromeosDevicesList-chromeosDevicesList pCdlCustomerId_ =-  ChromeosDevicesList'-    { _cdlOrderBy = Nothing-    , _cdlOrgUnitPath = Nothing-    , _cdlCustomerId = pCdlCustomerId_-    , _cdlSortOrder = Nothing-    , _cdlQuery = Nothing-    , _cdlProjection = Nothing-    , _cdlPageToken = Nothing-    , _cdlMaxResults = Nothing-    }----- | Column to use for sorting results-cdlOrderBy :: Lens' ChromeosDevicesList (Maybe ChromeosDevicesListOrderBy)-cdlOrderBy-  = lens _cdlOrderBy (\ s a -> s{_cdlOrderBy = a})---- | Full path of the organizational unit or its ID-cdlOrgUnitPath :: Lens' ChromeosDevicesList (Maybe Text)-cdlOrgUnitPath-  = lens _cdlOrgUnitPath-      (\ s a -> s{_cdlOrgUnitPath = a})---- | Immutable ID of the G Suite account-cdlCustomerId :: Lens' ChromeosDevicesList Text-cdlCustomerId-  = lens _cdlCustomerId-      (\ s a -> s{_cdlCustomerId = a})---- | Whether to return results in ascending or descending order. Only of use--- when orderBy is also used-cdlSortOrder :: Lens' ChromeosDevicesList (Maybe ChromeosDevicesListSortOrder)-cdlSortOrder-  = lens _cdlSortOrder (\ s a -> s{_cdlSortOrder = a})---- | Search string in the format given at--- http:\/\/support.google.com\/chromeos\/a\/bin\/answer.py?answer=1698333-cdlQuery :: Lens' ChromeosDevicesList (Maybe Text)-cdlQuery = lens _cdlQuery (\ s a -> s{_cdlQuery = a})---- | Restrict information returned to a set of selected fields.-cdlProjection :: Lens' ChromeosDevicesList (Maybe ChromeosDevicesListProjection)-cdlProjection-  = lens _cdlProjection-      (\ s a -> s{_cdlProjection = a})---- | Token to specify next page in the list-cdlPageToken :: Lens' ChromeosDevicesList (Maybe Text)-cdlPageToken-  = lens _cdlPageToken (\ s a -> s{_cdlPageToken = a})---- | Maximum number of results to return. Default is 100-cdlMaxResults :: Lens' ChromeosDevicesList (Maybe Int32)-cdlMaxResults-  = lens _cdlMaxResults-      (\ s a -> s{_cdlMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ChromeosDevicesList where-        type Rs ChromeosDevicesList = ChromeOSDevices-        type Scopes ChromeosDevicesList =-             '["https://www.googleapis.com/auth/admin.directory.device.chromeos",-               "https://www.googleapis.com/auth/admin.directory.device.chromeos.readonly"]-        requestClient ChromeosDevicesList'{..}-          = go _cdlCustomerId _cdlOrderBy _cdlOrgUnitPath-              _cdlSortOrder-              _cdlQuery-              _cdlProjection-              _cdlPageToken-              _cdlMaxResults-              (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ChromeosDevicesListResource)-                      mempty
− gen/Network/Google/Resource/Directory/ChromeosDevices/MoveDevicesToOu.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.Directory.ChromeosDevices.MoveDevicesToOu--- 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)------ Move or insert multiple Chrome OS Devices to organizational unit------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.chromeosdevices.moveDevicesToOu@.-module Network.Google.Resource.Directory.ChromeosDevices.MoveDevicesToOu-    (-    -- * REST Resource-      ChromeosDevicesMoveDevicesToOuResource--    -- * Creating a Request-    , chromeosDevicesMoveDevicesToOu-    , ChromeosDevicesMoveDevicesToOu--    -- * Request Lenses-    , cdmdtoPayload-    , cdmdtoOrgUnitPath-    , cdmdtoCustomerId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.chromeosdevices.moveDevicesToOu@ method which the--- 'ChromeosDevicesMoveDevicesToOu' request conforms to.-type ChromeosDevicesMoveDevicesToOuResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "devices" :>-                 "chromeos" :>-                   "moveDevicesToOu" :>-                     QueryParam "orgUnitPath" Text :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] ChromeOSMoveDevicesToOu :>-                           Post '[JSON] ()---- | Move or insert multiple Chrome OS Devices to organizational unit------ /See:/ 'chromeosDevicesMoveDevicesToOu' smart constructor.-data ChromeosDevicesMoveDevicesToOu =-  ChromeosDevicesMoveDevicesToOu'-    { _cdmdtoPayload     :: !ChromeOSMoveDevicesToOu-    , _cdmdtoOrgUnitPath :: !Text-    , _cdmdtoCustomerId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeosDevicesMoveDevicesToOu' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdmdtoPayload'------ * 'cdmdtoOrgUnitPath'------ * 'cdmdtoCustomerId'-chromeosDevicesMoveDevicesToOu-    :: ChromeOSMoveDevicesToOu -- ^ 'cdmdtoPayload'-    -> Text -- ^ 'cdmdtoOrgUnitPath'-    -> Text -- ^ 'cdmdtoCustomerId'-    -> ChromeosDevicesMoveDevicesToOu-chromeosDevicesMoveDevicesToOu pCdmdtoPayload_ pCdmdtoOrgUnitPath_ pCdmdtoCustomerId_ =-  ChromeosDevicesMoveDevicesToOu'-    { _cdmdtoPayload = pCdmdtoPayload_-    , _cdmdtoOrgUnitPath = pCdmdtoOrgUnitPath_-    , _cdmdtoCustomerId = pCdmdtoCustomerId_-    }----- | Multipart request metadata.-cdmdtoPayload :: Lens' ChromeosDevicesMoveDevicesToOu ChromeOSMoveDevicesToOu-cdmdtoPayload-  = lens _cdmdtoPayload-      (\ s a -> s{_cdmdtoPayload = a})---- | Full path of the target organizational unit or its ID-cdmdtoOrgUnitPath :: Lens' ChromeosDevicesMoveDevicesToOu Text-cdmdtoOrgUnitPath-  = lens _cdmdtoOrgUnitPath-      (\ s a -> s{_cdmdtoOrgUnitPath = a})---- | Immutable ID of the G Suite account-cdmdtoCustomerId :: Lens' ChromeosDevicesMoveDevicesToOu Text-cdmdtoCustomerId-  = lens _cdmdtoCustomerId-      (\ s a -> s{_cdmdtoCustomerId = a})--instance GoogleRequest ChromeosDevicesMoveDevicesToOu-         where-        type Rs ChromeosDevicesMoveDevicesToOu = ()-        type Scopes ChromeosDevicesMoveDevicesToOu =-             '["https://www.googleapis.com/auth/admin.directory.device.chromeos"]-        requestClient ChromeosDevicesMoveDevicesToOu'{..}-          = go _cdmdtoCustomerId (Just _cdmdtoOrgUnitPath)-              (Just AltJSON)-              _cdmdtoPayload-              directoryService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ChromeosDevicesMoveDevicesToOuResource)-                      mempty
− gen/Network/Google/Resource/Directory/ChromeosDevices/Patch.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.Directory.ChromeosDevices.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)------ Update Chrome OS Device. This method supports patch semantics.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.chromeosdevices.patch@.-module Network.Google.Resource.Directory.ChromeosDevices.Patch-    (-    -- * REST Resource-      ChromeosDevicesPatchResource--    -- * Creating a Request-    , chromeosDevicesPatch-    , ChromeosDevicesPatch--    -- * Request Lenses-    , cdpPayload-    , cdpCustomerId-    , cdpDeviceId-    , cdpProjection-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.chromeosdevices.patch@ method which the--- 'ChromeosDevicesPatch' request conforms to.-type ChromeosDevicesPatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "devices" :>-                 "chromeos" :>-                   Capture "deviceId" Text :>-                     QueryParam "projection"-                       ChromeosDevicesPatchProjection-                       :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] ChromeOSDevice :>-                           Patch '[JSON] ChromeOSDevice---- | Update Chrome OS Device. This method supports patch semantics.------ /See:/ 'chromeosDevicesPatch' smart constructor.-data ChromeosDevicesPatch =-  ChromeosDevicesPatch'-    { _cdpPayload    :: !ChromeOSDevice-    , _cdpCustomerId :: !Text-    , _cdpDeviceId   :: !Text-    , _cdpProjection :: !(Maybe ChromeosDevicesPatchProjection)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeosDevicesPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdpPayload'------ * 'cdpCustomerId'------ * 'cdpDeviceId'------ * 'cdpProjection'-chromeosDevicesPatch-    :: ChromeOSDevice -- ^ 'cdpPayload'-    -> Text -- ^ 'cdpCustomerId'-    -> Text -- ^ 'cdpDeviceId'-    -> ChromeosDevicesPatch-chromeosDevicesPatch pCdpPayload_ pCdpCustomerId_ pCdpDeviceId_ =-  ChromeosDevicesPatch'-    { _cdpPayload = pCdpPayload_-    , _cdpCustomerId = pCdpCustomerId_-    , _cdpDeviceId = pCdpDeviceId_-    , _cdpProjection = Nothing-    }----- | Multipart request metadata.-cdpPayload :: Lens' ChromeosDevicesPatch ChromeOSDevice-cdpPayload-  = lens _cdpPayload (\ s a -> s{_cdpPayload = a})---- | Immutable ID of the G Suite account-cdpCustomerId :: Lens' ChromeosDevicesPatch Text-cdpCustomerId-  = lens _cdpCustomerId-      (\ s a -> s{_cdpCustomerId = a})---- | Immutable ID of Chrome OS Device-cdpDeviceId :: Lens' ChromeosDevicesPatch Text-cdpDeviceId-  = lens _cdpDeviceId (\ s a -> s{_cdpDeviceId = a})---- | Restrict information returned to a set of selected fields.-cdpProjection :: Lens' ChromeosDevicesPatch (Maybe ChromeosDevicesPatchProjection)-cdpProjection-  = lens _cdpProjection-      (\ s a -> s{_cdpProjection = a})--instance GoogleRequest ChromeosDevicesPatch where-        type Rs ChromeosDevicesPatch = ChromeOSDevice-        type Scopes ChromeosDevicesPatch =-             '["https://www.googleapis.com/auth/admin.directory.device.chromeos"]-        requestClient ChromeosDevicesPatch'{..}-          = go _cdpCustomerId _cdpDeviceId _cdpProjection-              (Just AltJSON)-              _cdpPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ChromeosDevicesPatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/ChromeosDevices/Update.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.Directory.ChromeosDevices.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)------ Update Chrome OS Device------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.chromeosdevices.update@.-module Network.Google.Resource.Directory.ChromeosDevices.Update-    (-    -- * REST Resource-      ChromeosDevicesUpdateResource--    -- * Creating a Request-    , chromeosDevicesUpdate-    , ChromeosDevicesUpdate--    -- * Request Lenses-    , cduPayload-    , cduCustomerId-    , cduDeviceId-    , cduProjection-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.chromeosdevices.update@ method which the--- 'ChromeosDevicesUpdate' request conforms to.-type ChromeosDevicesUpdateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "devices" :>-                 "chromeos" :>-                   Capture "deviceId" Text :>-                     QueryParam "projection"-                       ChromeosDevicesUpdateProjection-                       :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] ChromeOSDevice :>-                           Put '[JSON] ChromeOSDevice---- | Update Chrome OS Device------ /See:/ 'chromeosDevicesUpdate' smart constructor.-data ChromeosDevicesUpdate =-  ChromeosDevicesUpdate'-    { _cduPayload    :: !ChromeOSDevice-    , _cduCustomerId :: !Text-    , _cduDeviceId   :: !Text-    , _cduProjection :: !(Maybe ChromeosDevicesUpdateProjection)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ChromeosDevicesUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cduPayload'------ * 'cduCustomerId'------ * 'cduDeviceId'------ * 'cduProjection'-chromeosDevicesUpdate-    :: ChromeOSDevice -- ^ 'cduPayload'-    -> Text -- ^ 'cduCustomerId'-    -> Text -- ^ 'cduDeviceId'-    -> ChromeosDevicesUpdate-chromeosDevicesUpdate pCduPayload_ pCduCustomerId_ pCduDeviceId_ =-  ChromeosDevicesUpdate'-    { _cduPayload = pCduPayload_-    , _cduCustomerId = pCduCustomerId_-    , _cduDeviceId = pCduDeviceId_-    , _cduProjection = Nothing-    }----- | Multipart request metadata.-cduPayload :: Lens' ChromeosDevicesUpdate ChromeOSDevice-cduPayload-  = lens _cduPayload (\ s a -> s{_cduPayload = a})---- | Immutable ID of the G Suite account-cduCustomerId :: Lens' ChromeosDevicesUpdate Text-cduCustomerId-  = lens _cduCustomerId-      (\ s a -> s{_cduCustomerId = a})---- | Immutable ID of Chrome OS Device-cduDeviceId :: Lens' ChromeosDevicesUpdate Text-cduDeviceId-  = lens _cduDeviceId (\ s a -> s{_cduDeviceId = a})---- | Restrict information returned to a set of selected fields.-cduProjection :: Lens' ChromeosDevicesUpdate (Maybe ChromeosDevicesUpdateProjection)-cduProjection-  = lens _cduProjection-      (\ s a -> s{_cduProjection = a})--instance GoogleRequest ChromeosDevicesUpdate where-        type Rs ChromeosDevicesUpdate = ChromeOSDevice-        type Scopes ChromeosDevicesUpdate =-             '["https://www.googleapis.com/auth/admin.directory.device.chromeos"]-        requestClient ChromeosDevicesUpdate'{..}-          = go _cduCustomerId _cduDeviceId _cduProjection-              (Just AltJSON)-              _cduPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ChromeosDevicesUpdateResource)-                      mempty
− gen/Network/Google/Resource/Directory/Customers/Get.hs 
@@ -1,88 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Customers.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Retrieves a customer.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.customers.get@.-module Network.Google.Resource.Directory.Customers.Get-    (-    -- * REST Resource-      CustomersGetResource--    -- * Creating a Request-    , customersGet-    , CustomersGet--    -- * Request Lenses-    , cgCustomerKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.customers.get@ method which the--- 'CustomersGet' request conforms to.-type CustomersGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customers" :>-             Capture "customerKey" Text :>-               QueryParam "alt" AltJSON :> Get '[JSON] Customer---- | Retrieves a customer.------ /See:/ 'customersGet' smart constructor.-newtype CustomersGet =-  CustomersGet'-    { _cgCustomerKey :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomersGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cgCustomerKey'-customersGet-    :: Text -- ^ 'cgCustomerKey'-    -> CustomersGet-customersGet pCgCustomerKey_ = CustomersGet' {_cgCustomerKey = pCgCustomerKey_}----- | Id of the customer to be retrieved-cgCustomerKey :: Lens' CustomersGet Text-cgCustomerKey-  = lens _cgCustomerKey-      (\ s a -> s{_cgCustomerKey = a})--instance GoogleRequest CustomersGet where-        type Rs CustomersGet = Customer-        type Scopes CustomersGet =-             '["https://www.googleapis.com/auth/admin.directory.customer",-               "https://www.googleapis.com/auth/admin.directory.customer.readonly"]-        requestClient CustomersGet'{..}-          = go _cgCustomerKey (Just AltJSON) directoryService-          where go-                  = buildClient (Proxy :: Proxy CustomersGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/Customers/Patch.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.Directory.Customers.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 customer. This method supports patch semantics.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.customers.patch@.-module Network.Google.Resource.Directory.Customers.Patch-    (-    -- * REST Resource-      CustomersPatchResource--    -- * Creating a Request-    , customersPatch-    , CustomersPatch--    -- * Request Lenses-    , cpCustomerKey-    , cpPayload-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.customers.patch@ method which the--- 'CustomersPatch' request conforms to.-type CustomersPatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customers" :>-             Capture "customerKey" Text :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] Customer :> Patch '[JSON] Customer---- | Updates a customer. This method supports patch semantics.------ /See:/ 'customersPatch' smart constructor.-data CustomersPatch =-  CustomersPatch'-    { _cpCustomerKey :: !Text-    , _cpPayload     :: !Customer-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomersPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpCustomerKey'------ * 'cpPayload'-customersPatch-    :: Text -- ^ 'cpCustomerKey'-    -> Customer -- ^ 'cpPayload'-    -> CustomersPatch-customersPatch pCpCustomerKey_ pCpPayload_ =-  CustomersPatch' {_cpCustomerKey = pCpCustomerKey_, _cpPayload = pCpPayload_}----- | Id of the customer to be updated-cpCustomerKey :: Lens' CustomersPatch Text-cpCustomerKey-  = lens _cpCustomerKey-      (\ s a -> s{_cpCustomerKey = a})---- | Multipart request metadata.-cpPayload :: Lens' CustomersPatch Customer-cpPayload-  = lens _cpPayload (\ s a -> s{_cpPayload = a})--instance GoogleRequest CustomersPatch where-        type Rs CustomersPatch = Customer-        type Scopes CustomersPatch =-             '["https://www.googleapis.com/auth/admin.directory.customer"]-        requestClient CustomersPatch'{..}-          = go _cpCustomerKey (Just AltJSON) _cpPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy CustomersPatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/Customers/Update.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.Directory.Customers.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 customer.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.customers.update@.-module Network.Google.Resource.Directory.Customers.Update-    (-    -- * REST Resource-      CustomersUpdateResource--    -- * Creating a Request-    , customersUpdate-    , CustomersUpdate--    -- * Request Lenses-    , cuCustomerKey-    , cuPayload-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.customers.update@ method which the--- 'CustomersUpdate' request conforms to.-type CustomersUpdateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customers" :>-             Capture "customerKey" Text :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] Customer :> Put '[JSON] Customer---- | Updates a customer.------ /See:/ 'customersUpdate' smart constructor.-data CustomersUpdate =-  CustomersUpdate'-    { _cuCustomerKey :: !Text-    , _cuPayload     :: !Customer-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomersUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cuCustomerKey'------ * 'cuPayload'-customersUpdate-    :: Text -- ^ 'cuCustomerKey'-    -> Customer -- ^ 'cuPayload'-    -> CustomersUpdate-customersUpdate pCuCustomerKey_ pCuPayload_ =-  CustomersUpdate' {_cuCustomerKey = pCuCustomerKey_, _cuPayload = pCuPayload_}----- | Id of the customer to be updated-cuCustomerKey :: Lens' CustomersUpdate Text-cuCustomerKey-  = lens _cuCustomerKey-      (\ s a -> s{_cuCustomerKey = a})---- | Multipart request metadata.-cuPayload :: Lens' CustomersUpdate Customer-cuPayload-  = lens _cuPayload (\ s a -> s{_cuPayload = a})--instance GoogleRequest CustomersUpdate where-        type Rs CustomersUpdate = Customer-        type Scopes CustomersUpdate =-             '["https://www.googleapis.com/auth/admin.directory.customer"]-        requestClient CustomersUpdate'{..}-          = go _cuCustomerKey (Just AltJSON) _cuPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy CustomersUpdateResource)-                      mempty
− gen/Network/Google/Resource/Directory/DomainAliases/Delete.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.Directory.DomainAliases.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 Domain Alias of the customer.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.domainAliases.delete@.-module Network.Google.Resource.Directory.DomainAliases.Delete-    (-    -- * REST Resource-      DomainAliasesDeleteResource--    -- * Creating a Request-    , domainAliasesDelete-    , DomainAliasesDelete--    -- * Request Lenses-    , dadDomainAliasName-    , dadCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.domainAliases.delete@ method which the--- 'DomainAliasesDelete' request conforms to.-type DomainAliasesDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "domainaliases" :>-                 Capture "domainAliasName" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes a Domain Alias of the customer.------ /See:/ 'domainAliasesDelete' smart constructor.-data DomainAliasesDelete =-  DomainAliasesDelete'-    { _dadDomainAliasName :: !Text-    , _dadCustomer        :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DomainAliasesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dadDomainAliasName'------ * 'dadCustomer'-domainAliasesDelete-    :: Text -- ^ 'dadDomainAliasName'-    -> Text -- ^ 'dadCustomer'-    -> DomainAliasesDelete-domainAliasesDelete pDadDomainAliasName_ pDadCustomer_ =-  DomainAliasesDelete'-    {_dadDomainAliasName = pDadDomainAliasName_, _dadCustomer = pDadCustomer_}----- | Name of domain alias to be retrieved.-dadDomainAliasName :: Lens' DomainAliasesDelete Text-dadDomainAliasName-  = lens _dadDomainAliasName-      (\ s a -> s{_dadDomainAliasName = a})---- | Immutable ID of the G Suite account.-dadCustomer :: Lens' DomainAliasesDelete Text-dadCustomer-  = lens _dadCustomer (\ s a -> s{_dadCustomer = a})--instance GoogleRequest DomainAliasesDelete where-        type Rs DomainAliasesDelete = ()-        type Scopes DomainAliasesDelete =-             '["https://www.googleapis.com/auth/admin.directory.domain"]-        requestClient DomainAliasesDelete'{..}-          = go _dadCustomer _dadDomainAliasName (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy DomainAliasesDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/DomainAliases/Get.hs 
@@ -1,104 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.DomainAliases.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Retrieves a domain alias of the customer.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.domainAliases.get@.-module Network.Google.Resource.Directory.DomainAliases.Get-    (-    -- * REST Resource-      DomainAliasesGetResource--    -- * Creating a Request-    , domainAliasesGet-    , DomainAliasesGet--    -- * Request Lenses-    , dagDomainAliasName-    , dagCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.domainAliases.get@ method which the--- 'DomainAliasesGet' request conforms to.-type DomainAliasesGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "domainaliases" :>-                 Capture "domainAliasName" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] DomainAlias---- | Retrieves a domain alias of the customer.------ /See:/ 'domainAliasesGet' smart constructor.-data DomainAliasesGet =-  DomainAliasesGet'-    { _dagDomainAliasName :: !Text-    , _dagCustomer        :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DomainAliasesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dagDomainAliasName'------ * 'dagCustomer'-domainAliasesGet-    :: Text -- ^ 'dagDomainAliasName'-    -> Text -- ^ 'dagCustomer'-    -> DomainAliasesGet-domainAliasesGet pDagDomainAliasName_ pDagCustomer_ =-  DomainAliasesGet'-    {_dagDomainAliasName = pDagDomainAliasName_, _dagCustomer = pDagCustomer_}----- | Name of domain alias to be retrieved.-dagDomainAliasName :: Lens' DomainAliasesGet Text-dagDomainAliasName-  = lens _dagDomainAliasName-      (\ s a -> s{_dagDomainAliasName = a})---- | Immutable ID of the G Suite account.-dagCustomer :: Lens' DomainAliasesGet Text-dagCustomer-  = lens _dagCustomer (\ s a -> s{_dagCustomer = a})--instance GoogleRequest DomainAliasesGet where-        type Rs DomainAliasesGet = DomainAlias-        type Scopes DomainAliasesGet =-             '["https://www.googleapis.com/auth/admin.directory.domain",-               "https://www.googleapis.com/auth/admin.directory.domain.readonly"]-        requestClient DomainAliasesGet'{..}-          = go _dagCustomer _dagDomainAliasName (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy DomainAliasesGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/DomainAliases/Insert.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.Directory.DomainAliases.Insert--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Inserts a Domain alias of the customer.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.domainAliases.insert@.-module Network.Google.Resource.Directory.DomainAliases.Insert-    (-    -- * REST Resource-      DomainAliasesInsertResource--    -- * Creating a Request-    , domainAliasesInsert-    , DomainAliasesInsert--    -- * Request Lenses-    , daiPayload-    , daiCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.domainAliases.insert@ method which the--- 'DomainAliasesInsert' request conforms to.-type DomainAliasesInsertResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "domainaliases" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] DomainAlias :>-                     Post '[JSON] DomainAlias---- | Inserts a Domain alias of the customer.------ /See:/ 'domainAliasesInsert' smart constructor.-data DomainAliasesInsert =-  DomainAliasesInsert'-    { _daiPayload  :: !DomainAlias-    , _daiCustomer :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DomainAliasesInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'daiPayload'------ * 'daiCustomer'-domainAliasesInsert-    :: DomainAlias -- ^ 'daiPayload'-    -> Text -- ^ 'daiCustomer'-    -> DomainAliasesInsert-domainAliasesInsert pDaiPayload_ pDaiCustomer_ =-  DomainAliasesInsert'-    {_daiPayload = pDaiPayload_, _daiCustomer = pDaiCustomer_}----- | Multipart request metadata.-daiPayload :: Lens' DomainAliasesInsert DomainAlias-daiPayload-  = lens _daiPayload (\ s a -> s{_daiPayload = a})---- | Immutable ID of the G Suite account.-daiCustomer :: Lens' DomainAliasesInsert Text-daiCustomer-  = lens _daiCustomer (\ s a -> s{_daiCustomer = a})--instance GoogleRequest DomainAliasesInsert where-        type Rs DomainAliasesInsert = DomainAlias-        type Scopes DomainAliasesInsert =-             '["https://www.googleapis.com/auth/admin.directory.domain"]-        requestClient DomainAliasesInsert'{..}-          = go _daiCustomer (Just AltJSON) _daiPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy DomainAliasesInsertResource)-                      mempty
− gen/Network/Google/Resource/Directory/DomainAliases/List.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.Directory.DomainAliases.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 domain aliases of the customer.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.domainAliases.list@.-module Network.Google.Resource.Directory.DomainAliases.List-    (-    -- * REST Resource-      DomainAliasesListResource--    -- * Creating a Request-    , domainAliasesList-    , DomainAliasesList--    -- * Request Lenses-    , dalCustomer-    , dalParentDomainName-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.domainAliases.list@ method which the--- 'DomainAliasesList' request conforms to.-type DomainAliasesListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "domainaliases" :>-                 QueryParam "parentDomainName" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] DomainAliases---- | Lists the domain aliases of the customer.------ /See:/ 'domainAliasesList' smart constructor.-data DomainAliasesList =-  DomainAliasesList'-    { _dalCustomer         :: !Text-    , _dalParentDomainName :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DomainAliasesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dalCustomer'------ * 'dalParentDomainName'-domainAliasesList-    :: Text -- ^ 'dalCustomer'-    -> DomainAliasesList-domainAliasesList pDalCustomer_ =-  DomainAliasesList'-    {_dalCustomer = pDalCustomer_, _dalParentDomainName = Nothing}----- | Immutable ID of the G Suite account.-dalCustomer :: Lens' DomainAliasesList Text-dalCustomer-  = lens _dalCustomer (\ s a -> s{_dalCustomer = a})---- | Name of the parent domain for which domain aliases are to be fetched.-dalParentDomainName :: Lens' DomainAliasesList (Maybe Text)-dalParentDomainName-  = lens _dalParentDomainName-      (\ s a -> s{_dalParentDomainName = a})--instance GoogleRequest DomainAliasesList where-        type Rs DomainAliasesList = DomainAliases-        type Scopes DomainAliasesList =-             '["https://www.googleapis.com/auth/admin.directory.domain",-               "https://www.googleapis.com/auth/admin.directory.domain.readonly"]-        requestClient DomainAliasesList'{..}-          = go _dalCustomer _dalParentDomainName (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy DomainAliasesListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Domains/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.Directory.Domains.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 domain of the customer.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.domains.delete@.-module Network.Google.Resource.Directory.Domains.Delete-    (-    -- * REST Resource-      DomainsDeleteResource--    -- * Creating a Request-    , domainsDelete-    , DomainsDelete--    -- * Request Lenses-    , ddCustomer-    , ddDomainName-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.domains.delete@ method which the--- 'DomainsDelete' request conforms to.-type DomainsDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "domains" :>-                 Capture "domainName" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes a domain of the customer.------ /See:/ 'domainsDelete' smart constructor.-data DomainsDelete =-  DomainsDelete'-    { _ddCustomer   :: !Text-    , _ddDomainName :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DomainsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddCustomer'------ * 'ddDomainName'-domainsDelete-    :: Text -- ^ 'ddCustomer'-    -> Text -- ^ 'ddDomainName'-    -> DomainsDelete-domainsDelete pDdCustomer_ pDdDomainName_ =-  DomainsDelete' {_ddCustomer = pDdCustomer_, _ddDomainName = pDdDomainName_}----- | Immutable ID of the G Suite account.-ddCustomer :: Lens' DomainsDelete Text-ddCustomer-  = lens _ddCustomer (\ s a -> s{_ddCustomer = a})---- | Name of domain to be deleted-ddDomainName :: Lens' DomainsDelete Text-ddDomainName-  = lens _ddDomainName (\ s a -> s{_ddDomainName = a})--instance GoogleRequest DomainsDelete where-        type Rs DomainsDelete = ()-        type Scopes DomainsDelete =-             '["https://www.googleapis.com/auth/admin.directory.domain"]-        requestClient DomainsDelete'{..}-          = go _ddCustomer _ddDomainName (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy DomainsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Domains/Get.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.Directory.Domains.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Retrieves a domain of the customer.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.domains.get@.-module Network.Google.Resource.Directory.Domains.Get-    (-    -- * REST Resource-      DomainsGetResource--    -- * Creating a Request-    , domainsGet-    , DomainsGet--    -- * Request Lenses-    , dgCustomer-    , dgDomainName-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.domains.get@ method which the--- 'DomainsGet' request conforms to.-type DomainsGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "domains" :>-                 Capture "domainName" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Domains---- | Retrieves a domain of the customer.------ /See:/ 'domainsGet' smart constructor.-data DomainsGet =-  DomainsGet'-    { _dgCustomer   :: !Text-    , _dgDomainName :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DomainsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dgCustomer'------ * 'dgDomainName'-domainsGet-    :: Text -- ^ 'dgCustomer'-    -> Text -- ^ 'dgDomainName'-    -> DomainsGet-domainsGet pDgCustomer_ pDgDomainName_ =-  DomainsGet' {_dgCustomer = pDgCustomer_, _dgDomainName = pDgDomainName_}----- | Immutable ID of the G Suite account.-dgCustomer :: Lens' DomainsGet Text-dgCustomer-  = lens _dgCustomer (\ s a -> s{_dgCustomer = a})---- | Name of domain to be retrieved-dgDomainName :: Lens' DomainsGet Text-dgDomainName-  = lens _dgDomainName (\ s a -> s{_dgDomainName = a})--instance GoogleRequest DomainsGet where-        type Rs DomainsGet = Domains-        type Scopes DomainsGet =-             '["https://www.googleapis.com/auth/admin.directory.domain",-               "https://www.googleapis.com/auth/admin.directory.domain.readonly"]-        requestClient DomainsGet'{..}-          = go _dgCustomer _dgDomainName (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy DomainsGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/Domains/Insert.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.Directory.Domains.Insert--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Inserts a domain of the customer.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.domains.insert@.-module Network.Google.Resource.Directory.Domains.Insert-    (-    -- * REST Resource-      DomainsInsertResource--    -- * Creating a Request-    , domainsInsert-    , DomainsInsert--    -- * Request Lenses-    , diPayload-    , diCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.domains.insert@ method which the--- 'DomainsInsert' request conforms to.-type DomainsInsertResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "domains" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Domains :> Post '[JSON] Domains---- | Inserts a domain of the customer.------ /See:/ 'domainsInsert' smart constructor.-data DomainsInsert =-  DomainsInsert'-    { _diPayload  :: !Domains-    , _diCustomer :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DomainsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'diPayload'------ * 'diCustomer'-domainsInsert-    :: Domains -- ^ 'diPayload'-    -> Text -- ^ 'diCustomer'-    -> DomainsInsert-domainsInsert pDiPayload_ pDiCustomer_ =-  DomainsInsert' {_diPayload = pDiPayload_, _diCustomer = pDiCustomer_}----- | Multipart request metadata.-diPayload :: Lens' DomainsInsert Domains-diPayload-  = lens _diPayload (\ s a -> s{_diPayload = a})---- | Immutable ID of the G Suite account.-diCustomer :: Lens' DomainsInsert Text-diCustomer-  = lens _diCustomer (\ s a -> s{_diCustomer = a})--instance GoogleRequest DomainsInsert where-        type Rs DomainsInsert = Domains-        type Scopes DomainsInsert =-             '["https://www.googleapis.com/auth/admin.directory.domain"]-        requestClient DomainsInsert'{..}-          = go _diCustomer (Just AltJSON) _diPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy DomainsInsertResource)-                      mempty
− gen/Network/Google/Resource/Directory/Domains/List.hs 
@@ -1,88 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Domains.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 domains of the customer.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.domains.list@.-module Network.Google.Resource.Directory.Domains.List-    (-    -- * REST Resource-      DomainsListResource--    -- * Creating a Request-    , domainsList-    , DomainsList--    -- * Request Lenses-    , dlCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.domains.list@ method which the--- 'DomainsList' request conforms to.-type DomainsListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "domains" :>-                 QueryParam "alt" AltJSON :> Get '[JSON] Domains2---- | Lists the domains of the customer.------ /See:/ 'domainsList' smart constructor.-newtype DomainsList =-  DomainsList'-    { _dlCustomer :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DomainsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dlCustomer'-domainsList-    :: Text -- ^ 'dlCustomer'-    -> DomainsList-domainsList pDlCustomer_ = DomainsList' {_dlCustomer = pDlCustomer_}----- | Immutable ID of the G Suite account.-dlCustomer :: Lens' DomainsList Text-dlCustomer-  = lens _dlCustomer (\ s a -> s{_dlCustomer = a})--instance GoogleRequest DomainsList where-        type Rs DomainsList = Domains2-        type Scopes DomainsList =-             '["https://www.googleapis.com/auth/admin.directory.domain",-               "https://www.googleapis.com/auth/admin.directory.domain.readonly"]-        requestClient DomainsList'{..}-          = go _dlCustomer (Just AltJSON) directoryService-          where go-                  = buildClient (Proxy :: Proxy DomainsListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Groups/Aliases/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.Directory.Groups.Aliases.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)------ Remove a alias for the group------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.groups.aliases.delete@.-module Network.Google.Resource.Directory.Groups.Aliases.Delete-    (-    -- * REST Resource-      GroupsAliasesDeleteResource--    -- * Creating a Request-    , groupsAliasesDelete-    , GroupsAliasesDelete--    -- * Request Lenses-    , gadGroupKey-    , gadAlias-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.groups.aliases.delete@ method which the--- 'GroupsAliasesDelete' request conforms to.-type GroupsAliasesDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             Capture "groupKey" Text :>-               "aliases" :>-                 Capture "alias" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Remove a alias for the group------ /See:/ 'groupsAliasesDelete' smart constructor.-data GroupsAliasesDelete =-  GroupsAliasesDelete'-    { _gadGroupKey :: !Text-    , _gadAlias    :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GroupsAliasesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gadGroupKey'------ * 'gadAlias'-groupsAliasesDelete-    :: Text -- ^ 'gadGroupKey'-    -> Text -- ^ 'gadAlias'-    -> GroupsAliasesDelete-groupsAliasesDelete pGadGroupKey_ pGadAlias_ =-  GroupsAliasesDelete' {_gadGroupKey = pGadGroupKey_, _gadAlias = pGadAlias_}----- | Email or immutable ID of the group-gadGroupKey :: Lens' GroupsAliasesDelete Text-gadGroupKey-  = lens _gadGroupKey (\ s a -> s{_gadGroupKey = a})---- | The alias to be removed-gadAlias :: Lens' GroupsAliasesDelete Text-gadAlias = lens _gadAlias (\ s a -> s{_gadAlias = a})--instance GoogleRequest GroupsAliasesDelete where-        type Rs GroupsAliasesDelete = ()-        type Scopes GroupsAliasesDelete =-             '["https://www.googleapis.com/auth/admin.directory.group"]-        requestClient GroupsAliasesDelete'{..}-          = go _gadGroupKey _gadAlias (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy GroupsAliasesDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Groups/Aliases/Insert.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.Directory.Groups.Aliases.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)------ Add a alias for the group------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.groups.aliases.insert@.-module Network.Google.Resource.Directory.Groups.Aliases.Insert-    (-    -- * REST Resource-      GroupsAliasesInsertResource--    -- * Creating a Request-    , groupsAliasesInsert-    , GroupsAliasesInsert--    -- * Request Lenses-    , gaiGroupKey-    , gaiPayload-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.groups.aliases.insert@ method which the--- 'GroupsAliasesInsert' request conforms to.-type GroupsAliasesInsertResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             Capture "groupKey" Text :>-               "aliases" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Alias :> Post '[JSON] Alias---- | Add a alias for the group------ /See:/ 'groupsAliasesInsert' smart constructor.-data GroupsAliasesInsert =-  GroupsAliasesInsert'-    { _gaiGroupKey :: !Text-    , _gaiPayload  :: !Alias-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GroupsAliasesInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gaiGroupKey'------ * 'gaiPayload'-groupsAliasesInsert-    :: Text -- ^ 'gaiGroupKey'-    -> Alias -- ^ 'gaiPayload'-    -> GroupsAliasesInsert-groupsAliasesInsert pGaiGroupKey_ pGaiPayload_ =-  GroupsAliasesInsert'-    {_gaiGroupKey = pGaiGroupKey_, _gaiPayload = pGaiPayload_}----- | Email or immutable ID of the group-gaiGroupKey :: Lens' GroupsAliasesInsert Text-gaiGroupKey-  = lens _gaiGroupKey (\ s a -> s{_gaiGroupKey = a})---- | Multipart request metadata.-gaiPayload :: Lens' GroupsAliasesInsert Alias-gaiPayload-  = lens _gaiPayload (\ s a -> s{_gaiPayload = a})--instance GoogleRequest GroupsAliasesInsert where-        type Rs GroupsAliasesInsert = Alias-        type Scopes GroupsAliasesInsert =-             '["https://www.googleapis.com/auth/admin.directory.group"]-        requestClient GroupsAliasesInsert'{..}-          = go _gaiGroupKey (Just AltJSON) _gaiPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy GroupsAliasesInsertResource)-                      mempty
− gen/Network/Google/Resource/Directory/Groups/Aliases/List.hs 
@@ -1,90 +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.Directory.Groups.Aliases.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)------ List all aliases for a group------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.groups.aliases.list@.-module Network.Google.Resource.Directory.Groups.Aliases.List-    (-    -- * REST Resource-      GroupsAliasesListResource--    -- * Creating a Request-    , groupsAliasesList-    , GroupsAliasesList--    -- * Request Lenses-    , galGroupKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.groups.aliases.list@ method which the--- 'GroupsAliasesList' request conforms to.-type GroupsAliasesListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             Capture "groupKey" Text :>-               "aliases" :>-                 QueryParam "alt" AltJSON :> Get '[JSON] Aliases---- | List all aliases for a group------ /See:/ 'groupsAliasesList' smart constructor.-newtype GroupsAliasesList =-  GroupsAliasesList'-    { _galGroupKey :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GroupsAliasesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'galGroupKey'-groupsAliasesList-    :: Text -- ^ 'galGroupKey'-    -> GroupsAliasesList-groupsAliasesList pGalGroupKey_ =-  GroupsAliasesList' {_galGroupKey = pGalGroupKey_}----- | Email or immutable ID of the group-galGroupKey :: Lens' GroupsAliasesList Text-galGroupKey-  = lens _galGroupKey (\ s a -> s{_galGroupKey = a})--instance GoogleRequest GroupsAliasesList where-        type Rs GroupsAliasesList = Aliases-        type Scopes GroupsAliasesList =-             '["https://www.googleapis.com/auth/admin.directory.group",-               "https://www.googleapis.com/auth/admin.directory.group.readonly"]-        requestClient GroupsAliasesList'{..}-          = go _galGroupKey (Just AltJSON) directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy GroupsAliasesListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Groups/Delete.hs 
@@ -1,86 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Groups.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)------ Delete Group------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.groups.delete@.-module Network.Google.Resource.Directory.Groups.Delete-    (-    -- * REST Resource-      GroupsDeleteResource--    -- * Creating a Request-    , groupsDelete-    , GroupsDelete--    -- * Request Lenses-    , gdGroupKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.groups.delete@ method which the--- 'GroupsDelete' request conforms to.-type GroupsDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             Capture "groupKey" Text :>-               QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Delete Group------ /See:/ 'groupsDelete' smart constructor.-newtype GroupsDelete =-  GroupsDelete'-    { _gdGroupKey :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GroupsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdGroupKey'-groupsDelete-    :: Text -- ^ 'gdGroupKey'-    -> GroupsDelete-groupsDelete pGdGroupKey_ = GroupsDelete' {_gdGroupKey = pGdGroupKey_}----- | Email or immutable ID of the group-gdGroupKey :: Lens' GroupsDelete Text-gdGroupKey-  = lens _gdGroupKey (\ s a -> s{_gdGroupKey = a})--instance GoogleRequest GroupsDelete where-        type Rs GroupsDelete = ()-        type Scopes GroupsDelete =-             '["https://www.googleapis.com/auth/admin.directory.group"]-        requestClient GroupsDelete'{..}-          = go _gdGroupKey (Just AltJSON) directoryService-          where go-                  = buildClient (Proxy :: Proxy GroupsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Groups/Get.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.Directory.Groups.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)------ Retrieve Group------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.groups.get@.-module Network.Google.Resource.Directory.Groups.Get-    (-    -- * REST Resource-      GroupsGetResource--    -- * Creating a Request-    , groupsGet-    , GroupsGet--    -- * Request Lenses-    , ggGroupKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.groups.get@ method which the--- 'GroupsGet' request conforms to.-type GroupsGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             Capture "groupKey" Text :>-               QueryParam "alt" AltJSON :> Get '[JSON] Group---- | Retrieve Group------ /See:/ 'groupsGet' smart constructor.-newtype GroupsGet =-  GroupsGet'-    { _ggGroupKey :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GroupsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ggGroupKey'-groupsGet-    :: Text -- ^ 'ggGroupKey'-    -> GroupsGet-groupsGet pGgGroupKey_ = GroupsGet' {_ggGroupKey = pGgGroupKey_}----- | Email or immutable ID of the group-ggGroupKey :: Lens' GroupsGet Text-ggGroupKey-  = lens _ggGroupKey (\ s a -> s{_ggGroupKey = a})--instance GoogleRequest GroupsGet where-        type Rs GroupsGet = Group-        type Scopes GroupsGet =-             '["https://www.googleapis.com/auth/admin.directory.group",-               "https://www.googleapis.com/auth/admin.directory.group.readonly"]-        requestClient GroupsGet'{..}-          = go _ggGroupKey (Just AltJSON) directoryService-          where go-                  = buildClient (Proxy :: Proxy GroupsGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/Groups/Insert.hs 
@@ -1,86 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Groups.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)------ Create Group------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.groups.insert@.-module Network.Google.Resource.Directory.Groups.Insert-    (-    -- * REST Resource-      GroupsInsertResource--    -- * Creating a Request-    , groupsInsert-    , GroupsInsert--    -- * Request Lenses-    , giPayload-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.groups.insert@ method which the--- 'GroupsInsert' request conforms to.-type GroupsInsertResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             QueryParam "alt" AltJSON :>-               ReqBody '[JSON] Group :> Post '[JSON] Group---- | Create Group------ /See:/ 'groupsInsert' smart constructor.-newtype GroupsInsert =-  GroupsInsert'-    { _giPayload :: Group-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GroupsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'giPayload'-groupsInsert-    :: Group -- ^ 'giPayload'-    -> GroupsInsert-groupsInsert pGiPayload_ = GroupsInsert' {_giPayload = pGiPayload_}----- | Multipart request metadata.-giPayload :: Lens' GroupsInsert Group-giPayload-  = lens _giPayload (\ s a -> s{_giPayload = a})--instance GoogleRequest GroupsInsert where-        type Rs GroupsInsert = Group-        type Scopes GroupsInsert =-             '["https://www.googleapis.com/auth/admin.directory.group"]-        requestClient GroupsInsert'{..}-          = go (Just AltJSON) _giPayload directoryService-          where go-                  = buildClient (Proxy :: Proxy GroupsInsertResource)-                      mempty
− gen/Network/Google/Resource/Directory/Groups/List.hs 
@@ -1,178 +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.Directory.Groups.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)------ Retrieve all groups of a domain or of a user given a userKey (paginated)------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.groups.list@.-module Network.Google.Resource.Directory.Groups.List-    (-    -- * REST Resource-      GroupsListResource--    -- * Creating a Request-    , groupsList-    , GroupsList--    -- * Request Lenses-    , glOrderBy-    , glDomain-    , glSortOrder-    , glCustomer-    , glQuery-    , glPageToken-    , glUserKey-    , glMaxResults-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.groups.list@ method which the--- 'GroupsList' request conforms to.-type GroupsListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             QueryParam "orderBy" GroupsListOrderBy :>-               QueryParam "domain" Text :>-                 QueryParam "sortOrder" GroupsListSortOrder :>-                   QueryParam "customer" Text :>-                     QueryParam "query" Text :>-                       QueryParam "pageToken" Text :>-                         QueryParam "userKey" Text :>-                           QueryParam "maxResults" (Textual Int32) :>-                             QueryParam "alt" AltJSON :> Get '[JSON] Groups---- | Retrieve all groups of a domain or of a user given a userKey (paginated)------ /See:/ 'groupsList' smart constructor.-data GroupsList =-  GroupsList'-    { _glOrderBy    :: !(Maybe GroupsListOrderBy)-    , _glDomain     :: !(Maybe Text)-    , _glSortOrder  :: !(Maybe GroupsListSortOrder)-    , _glCustomer   :: !(Maybe Text)-    , _glQuery      :: !(Maybe Text)-    , _glPageToken  :: !(Maybe Text)-    , _glUserKey    :: !(Maybe Text)-    , _glMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GroupsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'glOrderBy'------ * 'glDomain'------ * 'glSortOrder'------ * 'glCustomer'------ * 'glQuery'------ * 'glPageToken'------ * 'glUserKey'------ * 'glMaxResults'-groupsList-    :: GroupsList-groupsList =-  GroupsList'-    { _glOrderBy = Nothing-    , _glDomain = Nothing-    , _glSortOrder = Nothing-    , _glCustomer = Nothing-    , _glQuery = Nothing-    , _glPageToken = Nothing-    , _glUserKey = Nothing-    , _glMaxResults = Nothing-    }----- | Column to use for sorting results-glOrderBy :: Lens' GroupsList (Maybe GroupsListOrderBy)-glOrderBy-  = lens _glOrderBy (\ s a -> s{_glOrderBy = a})---- | Name of the domain. Fill this field to get groups from only this domain.--- To return all groups in a multi-domain fill customer field instead.-glDomain :: Lens' GroupsList (Maybe Text)-glDomain = lens _glDomain (\ s a -> s{_glDomain = a})---- | Whether to return results in ascending or descending order. Only of use--- when orderBy is also used-glSortOrder :: Lens' GroupsList (Maybe GroupsListSortOrder)-glSortOrder-  = lens _glSortOrder (\ s a -> s{_glSortOrder = a})---- | Immutable ID of the G Suite account. In case of multi-domain, to fetch--- all groups for a customer, fill this field instead of domain.-glCustomer :: Lens' GroupsList (Maybe Text)-glCustomer-  = lens _glCustomer (\ s a -> s{_glCustomer = a})---- | Query string search. Should be of the form \"\". Complete documentation--- is at--- https:\/\/developers.google.com\/admin-sdk\/directory\/v1\/guides\/search-groups-glQuery :: Lens' GroupsList (Maybe Text)-glQuery = lens _glQuery (\ s a -> s{_glQuery = a})---- | Token to specify next page in the list-glPageToken :: Lens' GroupsList (Maybe Text)-glPageToken-  = lens _glPageToken (\ s a -> s{_glPageToken = a})---- | Email or immutable Id of the user if only those groups are to be listed,--- the given user is a member of. If Id, it should match with id of user--- object-glUserKey :: Lens' GroupsList (Maybe Text)-glUserKey-  = lens _glUserKey (\ s a -> s{_glUserKey = a})---- | Maximum number of results to return. Default is 200-glMaxResults :: Lens' GroupsList (Maybe Int32)-glMaxResults-  = lens _glMaxResults (\ s a -> s{_glMaxResults = a})-      . mapping _Coerce--instance GoogleRequest GroupsList where-        type Rs GroupsList = Groups-        type Scopes GroupsList =-             '["https://www.googleapis.com/auth/admin.directory.group",-               "https://www.googleapis.com/auth/admin.directory.group.readonly"]-        requestClient GroupsList'{..}-          = go _glOrderBy _glDomain _glSortOrder _glCustomer-              _glQuery-              _glPageToken-              _glUserKey-              _glMaxResults-              (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy GroupsListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Groups/Patch.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.Directory.Groups.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)------ Update Group. This method supports patch semantics.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.groups.patch@.-module Network.Google.Resource.Directory.Groups.Patch-    (-    -- * REST Resource-      GroupsPatchResource--    -- * Creating a Request-    , groupsPatch-    , GroupsPatch--    -- * Request Lenses-    , gpGroupKey-    , gpPayload-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.groups.patch@ method which the--- 'GroupsPatch' request conforms to.-type GroupsPatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             Capture "groupKey" Text :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] Group :> Patch '[JSON] Group---- | Update Group. This method supports patch semantics.------ /See:/ 'groupsPatch' smart constructor.-data GroupsPatch =-  GroupsPatch'-    { _gpGroupKey :: !Text-    , _gpPayload  :: !Group-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GroupsPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gpGroupKey'------ * 'gpPayload'-groupsPatch-    :: Text -- ^ 'gpGroupKey'-    -> Group -- ^ 'gpPayload'-    -> GroupsPatch-groupsPatch pGpGroupKey_ pGpPayload_ =-  GroupsPatch' {_gpGroupKey = pGpGroupKey_, _gpPayload = pGpPayload_}----- | Email or immutable ID of the group. If ID, it should match with id of--- group object-gpGroupKey :: Lens' GroupsPatch Text-gpGroupKey-  = lens _gpGroupKey (\ s a -> s{_gpGroupKey = a})---- | Multipart request metadata.-gpPayload :: Lens' GroupsPatch Group-gpPayload-  = lens _gpPayload (\ s a -> s{_gpPayload = a})--instance GoogleRequest GroupsPatch where-        type Rs GroupsPatch = Group-        type Scopes GroupsPatch =-             '["https://www.googleapis.com/auth/admin.directory.group"]-        requestClient GroupsPatch'{..}-          = go _gpGroupKey (Just AltJSON) _gpPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy GroupsPatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/Groups/Update.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.Directory.Groups.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)------ Update Group------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.groups.update@.-module Network.Google.Resource.Directory.Groups.Update-    (-    -- * REST Resource-      GroupsUpdateResource--    -- * Creating a Request-    , groupsUpdate-    , GroupsUpdate--    -- * Request Lenses-    , guGroupKey-    , guPayload-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.groups.update@ method which the--- 'GroupsUpdate' request conforms to.-type GroupsUpdateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             Capture "groupKey" Text :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] Group :> Put '[JSON] Group---- | Update Group------ /See:/ 'groupsUpdate' smart constructor.-data GroupsUpdate =-  GroupsUpdate'-    { _guGroupKey :: !Text-    , _guPayload  :: !Group-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GroupsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'guGroupKey'------ * 'guPayload'-groupsUpdate-    :: Text -- ^ 'guGroupKey'-    -> Group -- ^ 'guPayload'-    -> GroupsUpdate-groupsUpdate pGuGroupKey_ pGuPayload_ =-  GroupsUpdate' {_guGroupKey = pGuGroupKey_, _guPayload = pGuPayload_}----- | Email or immutable ID of the group. If ID, it should match with id of--- group object-guGroupKey :: Lens' GroupsUpdate Text-guGroupKey-  = lens _guGroupKey (\ s a -> s{_guGroupKey = a})---- | Multipart request metadata.-guPayload :: Lens' GroupsUpdate Group-guPayload-  = lens _guPayload (\ s a -> s{_guPayload = a})--instance GoogleRequest GroupsUpdate where-        type Rs GroupsUpdate = Group-        type Scopes GroupsUpdate =-             '["https://www.googleapis.com/auth/admin.directory.group"]-        requestClient GroupsUpdate'{..}-          = go _guGroupKey (Just AltJSON) _guPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy GroupsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Directory/Members/Delete.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.Directory.Members.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)------ Remove membership.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.members.delete@.-module Network.Google.Resource.Directory.Members.Delete-    (-    -- * REST Resource-      MembersDeleteResource--    -- * Creating a Request-    , membersDelete-    , MembersDelete--    -- * Request Lenses-    , mdMemberKey-    , mdGroupKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.members.delete@ method which the--- 'MembersDelete' request conforms to.-type MembersDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             Capture "groupKey" Text :>-               "members" :>-                 Capture "memberKey" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Remove membership.------ /See:/ 'membersDelete' smart constructor.-data MembersDelete =-  MembersDelete'-    { _mdMemberKey :: !Text-    , _mdGroupKey  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MembersDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mdMemberKey'------ * 'mdGroupKey'-membersDelete-    :: Text -- ^ 'mdMemberKey'-    -> Text -- ^ 'mdGroupKey'-    -> MembersDelete-membersDelete pMdMemberKey_ pMdGroupKey_ =-  MembersDelete' {_mdMemberKey = pMdMemberKey_, _mdGroupKey = pMdGroupKey_}----- | Email or immutable ID of the member-mdMemberKey :: Lens' MembersDelete Text-mdMemberKey-  = lens _mdMemberKey (\ s a -> s{_mdMemberKey = a})---- | Email or immutable ID of the group-mdGroupKey :: Lens' MembersDelete Text-mdGroupKey-  = lens _mdGroupKey (\ s a -> s{_mdGroupKey = a})--instance GoogleRequest MembersDelete where-        type Rs MembersDelete = ()-        type Scopes MembersDelete =-             '["https://www.googleapis.com/auth/admin.directory.group",-               "https://www.googleapis.com/auth/admin.directory.group.member"]-        requestClient MembersDelete'{..}-          = go _mdGroupKey _mdMemberKey (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy MembersDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Members/Get.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.Directory.Members.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)------ Retrieve Group Member------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.members.get@.-module Network.Google.Resource.Directory.Members.Get-    (-    -- * REST Resource-      MembersGetResource--    -- * Creating a Request-    , membersGet-    , MembersGet--    -- * Request Lenses-    , mgMemberKey-    , mgGroupKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.members.get@ method which the--- 'MembersGet' request conforms to.-type MembersGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             Capture "groupKey" Text :>-               "members" :>-                 Capture "memberKey" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Member---- | Retrieve Group Member------ /See:/ 'membersGet' smart constructor.-data MembersGet =-  MembersGet'-    { _mgMemberKey :: !Text-    , _mgGroupKey  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MembersGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mgMemberKey'------ * 'mgGroupKey'-membersGet-    :: Text -- ^ 'mgMemberKey'-    -> Text -- ^ 'mgGroupKey'-    -> MembersGet-membersGet pMgMemberKey_ pMgGroupKey_ =-  MembersGet' {_mgMemberKey = pMgMemberKey_, _mgGroupKey = pMgGroupKey_}----- | Email or immutable ID of the member-mgMemberKey :: Lens' MembersGet Text-mgMemberKey-  = lens _mgMemberKey (\ s a -> s{_mgMemberKey = a})---- | Email or immutable ID of the group-mgGroupKey :: Lens' MembersGet Text-mgGroupKey-  = lens _mgGroupKey (\ s a -> s{_mgGroupKey = a})--instance GoogleRequest MembersGet where-        type Rs MembersGet = Member-        type Scopes MembersGet =-             '["https://www.googleapis.com/auth/admin.directory.group",-               "https://www.googleapis.com/auth/admin.directory.group.member",-               "https://www.googleapis.com/auth/admin.directory.group.member.readonly",-               "https://www.googleapis.com/auth/admin.directory.group.readonly"]-        requestClient MembersGet'{..}-          = go _mgGroupKey _mgMemberKey (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy MembersGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/Members/HasMember.hs 
@@ -1,110 +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.Directory.Members.HasMember--- 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)------ Checks whether the given user is a member of the group. Membership can--- be direct or nested.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.members.hasMember@.-module Network.Google.Resource.Directory.Members.HasMember-    (-    -- * REST Resource-      MembersHasMemberResource--    -- * Creating a Request-    , membersHasMember'-    , MembersHasMember'--    -- * Request Lenses-    , mhmMemberKey-    , mhmGroupKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.members.hasMember@ method which the--- 'MembersHasMember'' request conforms to.-type MembersHasMemberResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             Capture "groupKey" Text :>-               "hasMember" :>-                 Capture "memberKey" Text :>-                   QueryParam "alt" AltJSON :>-                     Get '[JSON] MembersHasMember---- | Checks whether the given user is a member of the group. Membership can--- be direct or nested.------ /See:/ 'membersHasMember'' smart constructor.-data MembersHasMember' =-  MembersHasMember''-    { _mhmMemberKey :: !Text-    , _mhmGroupKey  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MembersHasMember'' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mhmMemberKey'------ * 'mhmGroupKey'-membersHasMember'-    :: Text -- ^ 'mhmMemberKey'-    -> Text -- ^ 'mhmGroupKey'-    -> MembersHasMember'-membersHasMember' pMhmMemberKey_ pMhmGroupKey_ =-  MembersHasMember''-    {_mhmMemberKey = pMhmMemberKey_, _mhmGroupKey = pMhmGroupKey_}----- | Identifies the user member in the API request. The value can be the--- user\'s primary email address, alias, or unique ID.-mhmMemberKey :: Lens' MembersHasMember' Text-mhmMemberKey-  = lens _mhmMemberKey (\ s a -> s{_mhmMemberKey = a})---- | Identifies the group in the API request. The value can be the group\'s--- email address, group alias, or the unique group ID.-mhmGroupKey :: Lens' MembersHasMember' Text-mhmGroupKey-  = lens _mhmGroupKey (\ s a -> s{_mhmGroupKey = a})--instance GoogleRequest MembersHasMember' where-        type Rs MembersHasMember' = MembersHasMember-        type Scopes MembersHasMember' =-             '["https://www.googleapis.com/auth/admin.directory.group",-               "https://www.googleapis.com/auth/admin.directory.group.member",-               "https://www.googleapis.com/auth/admin.directory.group.member.readonly",-               "https://www.googleapis.com/auth/admin.directory.group.readonly"]-        requestClient MembersHasMember''{..}-          = go _mhmGroupKey _mhmMemberKey (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy MembersHasMemberResource)-                      mempty
− gen/Network/Google/Resource/Directory/Members/Insert.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.Directory.Members.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)------ Add user to the specified group.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.members.insert@.-module Network.Google.Resource.Directory.Members.Insert-    (-    -- * REST Resource-      MembersInsertResource--    -- * Creating a Request-    , membersInsert-    , MembersInsert--    -- * Request Lenses-    , miGroupKey-    , miPayload-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.members.insert@ method which the--- 'MembersInsert' request conforms to.-type MembersInsertResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             Capture "groupKey" Text :>-               "members" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Member :> Post '[JSON] Member---- | Add user to the specified group.------ /See:/ 'membersInsert' smart constructor.-data MembersInsert =-  MembersInsert'-    { _miGroupKey :: !Text-    , _miPayload  :: !Member-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MembersInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'miGroupKey'------ * 'miPayload'-membersInsert-    :: Text -- ^ 'miGroupKey'-    -> Member -- ^ 'miPayload'-    -> MembersInsert-membersInsert pMiGroupKey_ pMiPayload_ =-  MembersInsert' {_miGroupKey = pMiGroupKey_, _miPayload = pMiPayload_}----- | Email or immutable ID of the group-miGroupKey :: Lens' MembersInsert Text-miGroupKey-  = lens _miGroupKey (\ s a -> s{_miGroupKey = a})---- | Multipart request metadata.-miPayload :: Lens' MembersInsert Member-miPayload-  = lens _miPayload (\ s a -> s{_miPayload = a})--instance GoogleRequest MembersInsert where-        type Rs MembersInsert = Member-        type Scopes MembersInsert =-             '["https://www.googleapis.com/auth/admin.directory.group",-               "https://www.googleapis.com/auth/admin.directory.group.member"]-        requestClient MembersInsert'{..}-          = go _miGroupKey (Just AltJSON) _miPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy MembersInsertResource)-                      mempty
− gen/Network/Google/Resource/Directory/Members/List.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.Directory.Members.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)------ Retrieve all members in a group (paginated)------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.members.list@.-module Network.Google.Resource.Directory.Members.List-    (-    -- * REST Resource-      MembersListResource--    -- * Creating a Request-    , membersList-    , MembersList--    -- * Request Lenses-    , mlRoles-    , mlGroupKey-    , mlPageToken-    , mlIncludeDerivedMembership-    , mlMaxResults-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.members.list@ method which the--- 'MembersList' request conforms to.-type MembersListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             Capture "groupKey" Text :>-               "members" :>-                 QueryParam "roles" Text :>-                   QueryParam "pageToken" Text :>-                     QueryParam "includeDerivedMembership" Bool :>-                       QueryParam "maxResults" (Textual Int32) :>-                         QueryParam "alt" AltJSON :> Get '[JSON] Members---- | Retrieve all members in a group (paginated)------ /See:/ 'membersList' smart constructor.-data MembersList =-  MembersList'-    { _mlRoles                    :: !(Maybe Text)-    , _mlGroupKey                 :: !Text-    , _mlPageToken                :: !(Maybe Text)-    , _mlIncludeDerivedMembership :: !(Maybe Bool)-    , _mlMaxResults               :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MembersList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlRoles'------ * 'mlGroupKey'------ * 'mlPageToken'------ * 'mlIncludeDerivedMembership'------ * 'mlMaxResults'-membersList-    :: Text -- ^ 'mlGroupKey'-    -> MembersList-membersList pMlGroupKey_ =-  MembersList'-    { _mlRoles = Nothing-    , _mlGroupKey = pMlGroupKey_-    , _mlPageToken = Nothing-    , _mlIncludeDerivedMembership = Nothing-    , _mlMaxResults = Nothing-    }----- | Comma separated role values to filter list results on.-mlRoles :: Lens' MembersList (Maybe Text)-mlRoles = lens _mlRoles (\ s a -> s{_mlRoles = a})---- | Email or immutable ID of the group-mlGroupKey :: Lens' MembersList Text-mlGroupKey-  = lens _mlGroupKey (\ s a -> s{_mlGroupKey = a})---- | Token to specify next page in the list-mlPageToken :: Lens' MembersList (Maybe Text)-mlPageToken-  = lens _mlPageToken (\ s a -> s{_mlPageToken = a})---- | Whether to list indirect memberships. Default: false.-mlIncludeDerivedMembership :: Lens' MembersList (Maybe Bool)-mlIncludeDerivedMembership-  = lens _mlIncludeDerivedMembership-      (\ s a -> s{_mlIncludeDerivedMembership = a})---- | Maximum number of results to return. Default is 200-mlMaxResults :: Lens' MembersList (Maybe Int32)-mlMaxResults-  = lens _mlMaxResults (\ s a -> s{_mlMaxResults = a})-      . mapping _Coerce--instance GoogleRequest MembersList where-        type Rs MembersList = Members-        type Scopes MembersList =-             '["https://www.googleapis.com/auth/admin.directory.group",-               "https://www.googleapis.com/auth/admin.directory.group.member",-               "https://www.googleapis.com/auth/admin.directory.group.member.readonly",-               "https://www.googleapis.com/auth/admin.directory.group.readonly"]-        requestClient MembersList'{..}-          = go _mlGroupKey _mlRoles _mlPageToken-              _mlIncludeDerivedMembership-              _mlMaxResults-              (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy MembersListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Members/Patch.hs 
@@ -1,121 +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.Directory.Members.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)------ Update membership of a user in the specified group. This method supports--- patch semantics.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.members.patch@.-module Network.Google.Resource.Directory.Members.Patch-    (-    -- * REST Resource-      MembersPatchResource--    -- * Creating a Request-    , membersPatch-    , MembersPatch--    -- * Request Lenses-    , mpMemberKey-    , mpGroupKey-    , mpPayload-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.members.patch@ method which the--- 'MembersPatch' request conforms to.-type MembersPatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             Capture "groupKey" Text :>-               "members" :>-                 Capture "memberKey" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Member :> Patch '[JSON] Member---- | Update membership of a user in the specified group. This method supports--- patch semantics.------ /See:/ 'membersPatch' smart constructor.-data MembersPatch =-  MembersPatch'-    { _mpMemberKey :: !Text-    , _mpGroupKey  :: !Text-    , _mpPayload   :: !Member-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MembersPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpMemberKey'------ * 'mpGroupKey'------ * 'mpPayload'-membersPatch-    :: Text -- ^ 'mpMemberKey'-    -> Text -- ^ 'mpGroupKey'-    -> Member -- ^ 'mpPayload'-    -> MembersPatch-membersPatch pMpMemberKey_ pMpGroupKey_ pMpPayload_ =-  MembersPatch'-    { _mpMemberKey = pMpMemberKey_-    , _mpGroupKey = pMpGroupKey_-    , _mpPayload = pMpPayload_-    }----- | Email or immutable ID of the user. If ID, it should match with id of--- member object-mpMemberKey :: Lens' MembersPatch Text-mpMemberKey-  = lens _mpMemberKey (\ s a -> s{_mpMemberKey = a})---- | Email or immutable ID of the group. If ID, it should match with id of--- group object-mpGroupKey :: Lens' MembersPatch Text-mpGroupKey-  = lens _mpGroupKey (\ s a -> s{_mpGroupKey = a})---- | Multipart request metadata.-mpPayload :: Lens' MembersPatch Member-mpPayload-  = lens _mpPayload (\ s a -> s{_mpPayload = a})--instance GoogleRequest MembersPatch where-        type Rs MembersPatch = Member-        type Scopes MembersPatch =-             '["https://www.googleapis.com/auth/admin.directory.group",-               "https://www.googleapis.com/auth/admin.directory.group.member"]-        requestClient MembersPatch'{..}-          = go _mpGroupKey _mpMemberKey (Just AltJSON)-              _mpPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy MembersPatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/Members/Update.hs 
@@ -1,119 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Members.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)------ Update membership of a user in the specified group.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.members.update@.-module Network.Google.Resource.Directory.Members.Update-    (-    -- * REST Resource-      MembersUpdateResource--    -- * Creating a Request-    , membersUpdate-    , MembersUpdate--    -- * Request Lenses-    , muMemberKey-    , muGroupKey-    , muPayload-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.members.update@ method which the--- 'MembersUpdate' request conforms to.-type MembersUpdateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "groups" :>-             Capture "groupKey" Text :>-               "members" :>-                 Capture "memberKey" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Member :> Put '[JSON] Member---- | Update membership of a user in the specified group.------ /See:/ 'membersUpdate' smart constructor.-data MembersUpdate =-  MembersUpdate'-    { _muMemberKey :: !Text-    , _muGroupKey  :: !Text-    , _muPayload   :: !Member-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MembersUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'muMemberKey'------ * 'muGroupKey'------ * 'muPayload'-membersUpdate-    :: Text -- ^ 'muMemberKey'-    -> Text -- ^ 'muGroupKey'-    -> Member -- ^ 'muPayload'-    -> MembersUpdate-membersUpdate pMuMemberKey_ pMuGroupKey_ pMuPayload_ =-  MembersUpdate'-    { _muMemberKey = pMuMemberKey_-    , _muGroupKey = pMuGroupKey_-    , _muPayload = pMuPayload_-    }----- | Email or immutable ID of the user. If ID, it should match with id of--- member object-muMemberKey :: Lens' MembersUpdate Text-muMemberKey-  = lens _muMemberKey (\ s a -> s{_muMemberKey = a})---- | Email or immutable ID of the group. If ID, it should match with id of--- group object-muGroupKey :: Lens' MembersUpdate Text-muGroupKey-  = lens _muGroupKey (\ s a -> s{_muGroupKey = a})---- | Multipart request metadata.-muPayload :: Lens' MembersUpdate Member-muPayload-  = lens _muPayload (\ s a -> s{_muPayload = a})--instance GoogleRequest MembersUpdate where-        type Rs MembersUpdate = Member-        type Scopes MembersUpdate =-             '["https://www.googleapis.com/auth/admin.directory.group",-               "https://www.googleapis.com/auth/admin.directory.group.member"]-        requestClient MembersUpdate'{..}-          = go _muGroupKey _muMemberKey (Just AltJSON)-              _muPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy MembersUpdateResource)-                      mempty
− gen/Network/Google/Resource/Directory/MobileDevices/Action.hs 
@@ -1,122 +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.Directory.MobileDevices.Action--- 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)------ Take action on Mobile Device------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.mobiledevices.action@.-module Network.Google.Resource.Directory.MobileDevices.Action-    (-    -- * REST Resource-      MobileDevicesActionResource--    -- * Creating a Request-    , mobileDevicesAction-    , MobileDevicesAction--    -- * Request Lenses-    , mdaResourceId-    , mdaPayload-    , mdaCustomerId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.mobiledevices.action@ method which the--- 'MobileDevicesAction' request conforms to.-type MobileDevicesActionResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "devices" :>-                 "mobile" :>-                   Capture "resourceId" Text :>-                     "action" :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] MobileDeviceAction :> Post '[JSON] ()---- | Take action on Mobile Device------ /See:/ 'mobileDevicesAction' smart constructor.-data MobileDevicesAction =-  MobileDevicesAction'-    { _mdaResourceId :: !Text-    , _mdaPayload    :: !MobileDeviceAction-    , _mdaCustomerId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MobileDevicesAction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mdaResourceId'------ * 'mdaPayload'------ * 'mdaCustomerId'-mobileDevicesAction-    :: Text -- ^ 'mdaResourceId'-    -> MobileDeviceAction -- ^ 'mdaPayload'-    -> Text -- ^ 'mdaCustomerId'-    -> MobileDevicesAction-mobileDevicesAction pMdaResourceId_ pMdaPayload_ pMdaCustomerId_ =-  MobileDevicesAction'-    { _mdaResourceId = pMdaResourceId_-    , _mdaPayload = pMdaPayload_-    , _mdaCustomerId = pMdaCustomerId_-    }----- | Immutable ID of Mobile Device-mdaResourceId :: Lens' MobileDevicesAction Text-mdaResourceId-  = lens _mdaResourceId-      (\ s a -> s{_mdaResourceId = a})---- | Multipart request metadata.-mdaPayload :: Lens' MobileDevicesAction MobileDeviceAction-mdaPayload-  = lens _mdaPayload (\ s a -> s{_mdaPayload = a})---- | Immutable ID of the G Suite account-mdaCustomerId :: Lens' MobileDevicesAction Text-mdaCustomerId-  = lens _mdaCustomerId-      (\ s a -> s{_mdaCustomerId = a})--instance GoogleRequest MobileDevicesAction where-        type Rs MobileDevicesAction = ()-        type Scopes MobileDevicesAction =-             '["https://www.googleapis.com/auth/admin.directory.device.mobile",-               "https://www.googleapis.com/auth/admin.directory.device.mobile.action"]-        requestClient MobileDevicesAction'{..}-          = go _mdaCustomerId _mdaResourceId (Just AltJSON)-              _mdaPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy MobileDevicesActionResource)-                      mempty
− gen/Network/Google/Resource/Directory/MobileDevices/Delete.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.Directory.MobileDevices.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)------ Delete Mobile Device------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.mobiledevices.delete@.-module Network.Google.Resource.Directory.MobileDevices.Delete-    (-    -- * REST Resource-      MobileDevicesDeleteResource--    -- * Creating a Request-    , mobileDevicesDelete-    , MobileDevicesDelete--    -- * Request Lenses-    , mddResourceId-    , mddCustomerId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.mobiledevices.delete@ method which the--- 'MobileDevicesDelete' request conforms to.-type MobileDevicesDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "devices" :>-                 "mobile" :>-                   Capture "resourceId" Text :>-                     QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Delete Mobile Device------ /See:/ 'mobileDevicesDelete' smart constructor.-data MobileDevicesDelete =-  MobileDevicesDelete'-    { _mddResourceId :: !Text-    , _mddCustomerId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MobileDevicesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mddResourceId'------ * 'mddCustomerId'-mobileDevicesDelete-    :: Text -- ^ 'mddResourceId'-    -> Text -- ^ 'mddCustomerId'-    -> MobileDevicesDelete-mobileDevicesDelete pMddResourceId_ pMddCustomerId_ =-  MobileDevicesDelete'-    {_mddResourceId = pMddResourceId_, _mddCustomerId = pMddCustomerId_}----- | Immutable ID of Mobile Device-mddResourceId :: Lens' MobileDevicesDelete Text-mddResourceId-  = lens _mddResourceId-      (\ s a -> s{_mddResourceId = a})---- | Immutable ID of the G Suite account-mddCustomerId :: Lens' MobileDevicesDelete Text-mddCustomerId-  = lens _mddCustomerId-      (\ s a -> s{_mddCustomerId = a})--instance GoogleRequest MobileDevicesDelete where-        type Rs MobileDevicesDelete = ()-        type Scopes MobileDevicesDelete =-             '["https://www.googleapis.com/auth/admin.directory.device.mobile"]-        requestClient MobileDevicesDelete'{..}-          = go _mddCustomerId _mddResourceId (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy MobileDevicesDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/MobileDevices/Get.hs 
@@ -1,122 +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.Directory.MobileDevices.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)------ Retrieve Mobile Device------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.mobiledevices.get@.-module Network.Google.Resource.Directory.MobileDevices.Get-    (-    -- * REST Resource-      MobileDevicesGetResource--    -- * Creating a Request-    , mobileDevicesGet-    , MobileDevicesGet--    -- * Request Lenses-    , mdgResourceId-    , mdgCustomerId-    , mdgProjection-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.mobiledevices.get@ method which the--- 'MobileDevicesGet' request conforms to.-type MobileDevicesGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "devices" :>-                 "mobile" :>-                   Capture "resourceId" Text :>-                     QueryParam "projection" MobileDevicesGetProjection :>-                       QueryParam "alt" AltJSON :> Get '[JSON] MobileDevice---- | Retrieve Mobile Device------ /See:/ 'mobileDevicesGet' smart constructor.-data MobileDevicesGet =-  MobileDevicesGet'-    { _mdgResourceId :: !Text-    , _mdgCustomerId :: !Text-    , _mdgProjection :: !(Maybe MobileDevicesGetProjection)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MobileDevicesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mdgResourceId'------ * 'mdgCustomerId'------ * 'mdgProjection'-mobileDevicesGet-    :: Text -- ^ 'mdgResourceId'-    -> Text -- ^ 'mdgCustomerId'-    -> MobileDevicesGet-mobileDevicesGet pMdgResourceId_ pMdgCustomerId_ =-  MobileDevicesGet'-    { _mdgResourceId = pMdgResourceId_-    , _mdgCustomerId = pMdgCustomerId_-    , _mdgProjection = Nothing-    }----- | Immutable ID of Mobile Device-mdgResourceId :: Lens' MobileDevicesGet Text-mdgResourceId-  = lens _mdgResourceId-      (\ s a -> s{_mdgResourceId = a})---- | Immutable ID of the G Suite account-mdgCustomerId :: Lens' MobileDevicesGet Text-mdgCustomerId-  = lens _mdgCustomerId-      (\ s a -> s{_mdgCustomerId = a})---- | Restrict information returned to a set of selected fields.-mdgProjection :: Lens' MobileDevicesGet (Maybe MobileDevicesGetProjection)-mdgProjection-  = lens _mdgProjection-      (\ s a -> s{_mdgProjection = a})--instance GoogleRequest MobileDevicesGet where-        type Rs MobileDevicesGet = MobileDevice-        type Scopes MobileDevicesGet =-             '["https://www.googleapis.com/auth/admin.directory.device.mobile",-               "https://www.googleapis.com/auth/admin.directory.device.mobile.action",-               "https://www.googleapis.com/auth/admin.directory.device.mobile.readonly"]-        requestClient MobileDevicesGet'{..}-          = go _mdgCustomerId _mdgResourceId _mdgProjection-              (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy MobileDevicesGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/MobileDevices/List.hs 
@@ -1,173 +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.Directory.MobileDevices.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)------ Retrieve all Mobile Devices of a customer (paginated)------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.mobiledevices.list@.-module Network.Google.Resource.Directory.MobileDevices.List-    (-    -- * REST Resource-      MobileDevicesListResource--    -- * Creating a Request-    , mobileDevicesList-    , MobileDevicesList--    -- * Request Lenses-    , mdlOrderBy-    , mdlCustomerId-    , mdlSortOrder-    , mdlQuery-    , mdlProjection-    , mdlPageToken-    , mdlMaxResults-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.mobiledevices.list@ method which the--- 'MobileDevicesList' request conforms to.-type MobileDevicesListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "devices" :>-                 "mobile" :>-                   QueryParam "orderBy" MobileDevicesListOrderBy :>-                     QueryParam "sortOrder" MobileDevicesListSortOrder :>-                       QueryParam "query" Text :>-                         QueryParam "projection" MobileDevicesListProjection-                           :>-                           QueryParam "pageToken" Text :>-                             QueryParam "maxResults" (Textual Int32) :>-                               QueryParam "alt" AltJSON :>-                                 Get '[JSON] MobileDevices---- | Retrieve all Mobile Devices of a customer (paginated)------ /See:/ 'mobileDevicesList' smart constructor.-data MobileDevicesList =-  MobileDevicesList'-    { _mdlOrderBy    :: !(Maybe MobileDevicesListOrderBy)-    , _mdlCustomerId :: !Text-    , _mdlSortOrder  :: !(Maybe MobileDevicesListSortOrder)-    , _mdlQuery      :: !(Maybe Text)-    , _mdlProjection :: !(Maybe MobileDevicesListProjection)-    , _mdlPageToken  :: !(Maybe Text)-    , _mdlMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MobileDevicesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mdlOrderBy'------ * 'mdlCustomerId'------ * 'mdlSortOrder'------ * 'mdlQuery'------ * 'mdlProjection'------ * 'mdlPageToken'------ * 'mdlMaxResults'-mobileDevicesList-    :: Text -- ^ 'mdlCustomerId'-    -> MobileDevicesList-mobileDevicesList pMdlCustomerId_ =-  MobileDevicesList'-    { _mdlOrderBy = Nothing-    , _mdlCustomerId = pMdlCustomerId_-    , _mdlSortOrder = Nothing-    , _mdlQuery = Nothing-    , _mdlProjection = Nothing-    , _mdlPageToken = Nothing-    , _mdlMaxResults = Nothing-    }----- | Column to use for sorting results-mdlOrderBy :: Lens' MobileDevicesList (Maybe MobileDevicesListOrderBy)-mdlOrderBy-  = lens _mdlOrderBy (\ s a -> s{_mdlOrderBy = a})---- | Immutable ID of the G Suite account-mdlCustomerId :: Lens' MobileDevicesList Text-mdlCustomerId-  = lens _mdlCustomerId-      (\ s a -> s{_mdlCustomerId = a})---- | Whether to return results in ascending or descending order. Only of use--- when orderBy is also used-mdlSortOrder :: Lens' MobileDevicesList (Maybe MobileDevicesListSortOrder)-mdlSortOrder-  = lens _mdlSortOrder (\ s a -> s{_mdlSortOrder = a})---- | Search string in the format given at--- http:\/\/support.google.com\/a\/bin\/answer.py?answer=1408863#search-mdlQuery :: Lens' MobileDevicesList (Maybe Text)-mdlQuery = lens _mdlQuery (\ s a -> s{_mdlQuery = a})---- | Restrict information returned to a set of selected fields.-mdlProjection :: Lens' MobileDevicesList (Maybe MobileDevicesListProjection)-mdlProjection-  = lens _mdlProjection-      (\ s a -> s{_mdlProjection = a})---- | Token to specify next page in the list-mdlPageToken :: Lens' MobileDevicesList (Maybe Text)-mdlPageToken-  = lens _mdlPageToken (\ s a -> s{_mdlPageToken = a})---- | Maximum number of results to return. Default is 100-mdlMaxResults :: Lens' MobileDevicesList (Maybe Int32)-mdlMaxResults-  = lens _mdlMaxResults-      (\ s a -> s{_mdlMaxResults = a})-      . mapping _Coerce--instance GoogleRequest MobileDevicesList where-        type Rs MobileDevicesList = MobileDevices-        type Scopes MobileDevicesList =-             '["https://www.googleapis.com/auth/admin.directory.device.mobile",-               "https://www.googleapis.com/auth/admin.directory.device.mobile.action",-               "https://www.googleapis.com/auth/admin.directory.device.mobile.readonly"]-        requestClient MobileDevicesList'{..}-          = go _mdlCustomerId _mdlOrderBy _mdlSortOrder-              _mdlQuery-              _mdlProjection-              _mdlPageToken-              _mdlMaxResults-              (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy MobileDevicesListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Notifications/Delete.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.Directory.Notifications.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 notification------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.notifications.delete@.-module Network.Google.Resource.Directory.Notifications.Delete-    (-    -- * REST Resource-      NotificationsDeleteResource--    -- * Creating a Request-    , notificationsDelete-    , NotificationsDelete--    -- * Request Lenses-    , ndCustomer-    , ndNotificationId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.notifications.delete@ method which the--- 'NotificationsDelete' request conforms to.-type NotificationsDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "notifications" :>-                 Capture "notificationId" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes a notification------ /See:/ 'notificationsDelete' smart constructor.-data NotificationsDelete =-  NotificationsDelete'-    { _ndCustomer       :: !Text-    , _ndNotificationId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'NotificationsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ndCustomer'------ * 'ndNotificationId'-notificationsDelete-    :: Text -- ^ 'ndCustomer'-    -> Text -- ^ 'ndNotificationId'-    -> NotificationsDelete-notificationsDelete pNdCustomer_ pNdNotificationId_ =-  NotificationsDelete'-    {_ndCustomer = pNdCustomer_, _ndNotificationId = pNdNotificationId_}----- | The unique ID for the customer\'s G Suite account. The customerId is--- also returned as part of the Users resource.-ndCustomer :: Lens' NotificationsDelete Text-ndCustomer-  = lens _ndCustomer (\ s a -> s{_ndCustomer = a})---- | The unique ID of the notification.-ndNotificationId :: Lens' NotificationsDelete Text-ndNotificationId-  = lens _ndNotificationId-      (\ s a -> s{_ndNotificationId = a})--instance GoogleRequest NotificationsDelete where-        type Rs NotificationsDelete = ()-        type Scopes NotificationsDelete =-             '["https://www.googleapis.com/auth/admin.directory.notifications"]-        requestClient NotificationsDelete'{..}-          = go _ndCustomer _ndNotificationId (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy NotificationsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Notifications/Get.hs 
@@ -1,104 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Notifications.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Retrieves a notification.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.notifications.get@.-module Network.Google.Resource.Directory.Notifications.Get-    (-    -- * REST Resource-      NotificationsGetResource--    -- * Creating a Request-    , notificationsGet-    , NotificationsGet--    -- * Request Lenses-    , ngCustomer-    , ngNotificationId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.notifications.get@ method which the--- 'NotificationsGet' request conforms to.-type NotificationsGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "notifications" :>-                 Capture "notificationId" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Notification---- | Retrieves a notification.------ /See:/ 'notificationsGet' smart constructor.-data NotificationsGet =-  NotificationsGet'-    { _ngCustomer       :: !Text-    , _ngNotificationId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'NotificationsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ngCustomer'------ * 'ngNotificationId'-notificationsGet-    :: Text -- ^ 'ngCustomer'-    -> Text -- ^ 'ngNotificationId'-    -> NotificationsGet-notificationsGet pNgCustomer_ pNgNotificationId_ =-  NotificationsGet'-    {_ngCustomer = pNgCustomer_, _ngNotificationId = pNgNotificationId_}----- | The unique ID for the customer\'s G Suite account. The customerId is--- also returned as part of the Users resource.-ngCustomer :: Lens' NotificationsGet Text-ngCustomer-  = lens _ngCustomer (\ s a -> s{_ngCustomer = a})---- | The unique ID of the notification.-ngNotificationId :: Lens' NotificationsGet Text-ngNotificationId-  = lens _ngNotificationId-      (\ s a -> s{_ngNotificationId = a})--instance GoogleRequest NotificationsGet where-        type Rs NotificationsGet = Notification-        type Scopes NotificationsGet =-             '["https://www.googleapis.com/auth/admin.directory.notifications"]-        requestClient NotificationsGet'{..}-          = go _ngCustomer _ngNotificationId (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy NotificationsGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/Notifications/List.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.Directory.Notifications.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)------ Retrieves a list of notifications.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.notifications.list@.-module Network.Google.Resource.Directory.Notifications.List-    (-    -- * REST Resource-      NotificationsListResource--    -- * Creating a Request-    , notificationsList-    , NotificationsList--    -- * Request Lenses-    , nlCustomer-    , nlLanguage-    , nlPageToken-    , nlMaxResults-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.notifications.list@ method which the--- 'NotificationsList' request conforms to.-type NotificationsListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "notifications" :>-                 QueryParam "language" Text :>-                   QueryParam "pageToken" Text :>-                     QueryParam "maxResults" (Textual Word32) :>-                       QueryParam "alt" AltJSON :> Get '[JSON] Notifications---- | Retrieves a list of notifications.------ /See:/ 'notificationsList' smart constructor.-data NotificationsList =-  NotificationsList'-    { _nlCustomer   :: !Text-    , _nlLanguage   :: !(Maybe Text)-    , _nlPageToken  :: !(Maybe Text)-    , _nlMaxResults :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'NotificationsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'nlCustomer'------ * 'nlLanguage'------ * 'nlPageToken'------ * 'nlMaxResults'-notificationsList-    :: Text -- ^ 'nlCustomer'-    -> NotificationsList-notificationsList pNlCustomer_ =-  NotificationsList'-    { _nlCustomer = pNlCustomer_-    , _nlLanguage = Nothing-    , _nlPageToken = Nothing-    , _nlMaxResults = Nothing-    }----- | The unique ID for the customer\'s G Suite account.-nlCustomer :: Lens' NotificationsList Text-nlCustomer-  = lens _nlCustomer (\ s a -> s{_nlCustomer = a})---- | The ISO 639-1 code of the language notifications are returned in. The--- default is English (en).-nlLanguage :: Lens' NotificationsList (Maybe Text)-nlLanguage-  = lens _nlLanguage (\ s a -> s{_nlLanguage = a})---- | The token to specify the page of results to retrieve.-nlPageToken :: Lens' NotificationsList (Maybe Text)-nlPageToken-  = lens _nlPageToken (\ s a -> s{_nlPageToken = a})---- | Maximum number of notifications to return per page. The default is 100.-nlMaxResults :: Lens' NotificationsList (Maybe Word32)-nlMaxResults-  = lens _nlMaxResults (\ s a -> s{_nlMaxResults = a})-      . mapping _Coerce--instance GoogleRequest NotificationsList where-        type Rs NotificationsList = Notifications-        type Scopes NotificationsList =-             '["https://www.googleapis.com/auth/admin.directory.notifications"]-        requestClient NotificationsList'{..}-          = go _nlCustomer _nlLanguage _nlPageToken-              _nlMaxResults-              (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy NotificationsListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Notifications/Patch.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.Directory.Notifications.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 notification. This method supports patch semantics.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.notifications.patch@.-module Network.Google.Resource.Directory.Notifications.Patch-    (-    -- * REST Resource-      NotificationsPatchResource--    -- * Creating a Request-    , notificationsPatch-    , NotificationsPatch--    -- * Request Lenses-    , npPayload-    , npCustomer-    , npNotificationId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.notifications.patch@ method which the--- 'NotificationsPatch' request conforms to.-type NotificationsPatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "notifications" :>-                 Capture "notificationId" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Notification :>-                       Patch '[JSON] Notification---- | Updates a notification. This method supports patch semantics.------ /See:/ 'notificationsPatch' smart constructor.-data NotificationsPatch =-  NotificationsPatch'-    { _npPayload        :: !Notification-    , _npCustomer       :: !Text-    , _npNotificationId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'NotificationsPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'npPayload'------ * 'npCustomer'------ * 'npNotificationId'-notificationsPatch-    :: Notification -- ^ 'npPayload'-    -> Text -- ^ 'npCustomer'-    -> Text -- ^ 'npNotificationId'-    -> NotificationsPatch-notificationsPatch pNpPayload_ pNpCustomer_ pNpNotificationId_ =-  NotificationsPatch'-    { _npPayload = pNpPayload_-    , _npCustomer = pNpCustomer_-    , _npNotificationId = pNpNotificationId_-    }----- | Multipart request metadata.-npPayload :: Lens' NotificationsPatch Notification-npPayload-  = lens _npPayload (\ s a -> s{_npPayload = a})---- | The unique ID for the customer\'s G Suite account.-npCustomer :: Lens' NotificationsPatch Text-npCustomer-  = lens _npCustomer (\ s a -> s{_npCustomer = a})---- | The unique ID of the notification.-npNotificationId :: Lens' NotificationsPatch Text-npNotificationId-  = lens _npNotificationId-      (\ s a -> s{_npNotificationId = a})--instance GoogleRequest NotificationsPatch where-        type Rs NotificationsPatch = Notification-        type Scopes NotificationsPatch =-             '["https://www.googleapis.com/auth/admin.directory.notifications"]-        requestClient NotificationsPatch'{..}-          = go _npCustomer _npNotificationId (Just AltJSON)-              _npPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy NotificationsPatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/Notifications/Update.hs 
@@ -1,119 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Notifications.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 notification.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.notifications.update@.-module Network.Google.Resource.Directory.Notifications.Update-    (-    -- * REST Resource-      NotificationsUpdateResource--    -- * Creating a Request-    , notificationsUpdate-    , NotificationsUpdate--    -- * Request Lenses-    , nuPayload-    , nuCustomer-    , nuNotificationId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.notifications.update@ method which the--- 'NotificationsUpdate' request conforms to.-type NotificationsUpdateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "notifications" :>-                 Capture "notificationId" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Notification :>-                       Put '[JSON] Notification---- | Updates a notification.------ /See:/ 'notificationsUpdate' smart constructor.-data NotificationsUpdate =-  NotificationsUpdate'-    { _nuPayload        :: !Notification-    , _nuCustomer       :: !Text-    , _nuNotificationId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'NotificationsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'nuPayload'------ * 'nuCustomer'------ * 'nuNotificationId'-notificationsUpdate-    :: Notification -- ^ 'nuPayload'-    -> Text -- ^ 'nuCustomer'-    -> Text -- ^ 'nuNotificationId'-    -> NotificationsUpdate-notificationsUpdate pNuPayload_ pNuCustomer_ pNuNotificationId_ =-  NotificationsUpdate'-    { _nuPayload = pNuPayload_-    , _nuCustomer = pNuCustomer_-    , _nuNotificationId = pNuNotificationId_-    }----- | Multipart request metadata.-nuPayload :: Lens' NotificationsUpdate Notification-nuPayload-  = lens _nuPayload (\ s a -> s{_nuPayload = a})---- | The unique ID for the customer\'s G Suite account.-nuCustomer :: Lens' NotificationsUpdate Text-nuCustomer-  = lens _nuCustomer (\ s a -> s{_nuCustomer = a})---- | The unique ID of the notification.-nuNotificationId :: Lens' NotificationsUpdate Text-nuNotificationId-  = lens _nuNotificationId-      (\ s a -> s{_nuNotificationId = a})--instance GoogleRequest NotificationsUpdate where-        type Rs NotificationsUpdate = Notification-        type Scopes NotificationsUpdate =-             '["https://www.googleapis.com/auth/admin.directory.notifications"]-        requestClient NotificationsUpdate'{..}-          = go _nuCustomer _nuNotificationId (Just AltJSON)-              _nuPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy NotificationsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Directory/OrgUnits/Delete.hs 
@@ -1,106 +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.Directory.OrgUnits.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)------ Remove organizational unit------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.orgunits.delete@.-module Network.Google.Resource.Directory.OrgUnits.Delete-    (-    -- * REST Resource-      OrgUnitsDeleteResource--    -- * Creating a Request-    , orgUnitsDelete-    , OrgUnitsDelete--    -- * Request Lenses-    , oudOrgUnitPath-    , oudCustomerId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.orgunits.delete@ method which the--- 'OrgUnitsDelete' request conforms to.-type OrgUnitsDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "orgunits" :>-                 Captures "orgUnitPath" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Remove organizational unit------ /See:/ 'orgUnitsDelete' smart constructor.-data OrgUnitsDelete =-  OrgUnitsDelete'-    { _oudOrgUnitPath :: ![Text]-    , _oudCustomerId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OrgUnitsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oudOrgUnitPath'------ * 'oudCustomerId'-orgUnitsDelete-    :: [Text] -- ^ 'oudOrgUnitPath'-    -> Text -- ^ 'oudCustomerId'-    -> OrgUnitsDelete-orgUnitsDelete pOudOrgUnitPath_ pOudCustomerId_ =-  OrgUnitsDelete'-    { _oudOrgUnitPath = _Coerce # pOudOrgUnitPath_-    , _oudCustomerId = pOudCustomerId_-    }----- | Full path of the organizational unit or its ID-oudOrgUnitPath :: Lens' OrgUnitsDelete [Text]-oudOrgUnitPath-  = lens _oudOrgUnitPath-      (\ s a -> s{_oudOrgUnitPath = a})-      . _Coerce---- | Immutable ID of the G Suite account-oudCustomerId :: Lens' OrgUnitsDelete Text-oudCustomerId-  = lens _oudCustomerId-      (\ s a -> s{_oudCustomerId = a})--instance GoogleRequest OrgUnitsDelete where-        type Rs OrgUnitsDelete = ()-        type Scopes OrgUnitsDelete =-             '["https://www.googleapis.com/auth/admin.directory.orgunit"]-        requestClient OrgUnitsDelete'{..}-          = go _oudCustomerId _oudOrgUnitPath (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy OrgUnitsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/OrgUnits/Get.hs 
@@ -1,107 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.OrgUnits.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)------ Retrieve organizational unit------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.orgunits.get@.-module Network.Google.Resource.Directory.OrgUnits.Get-    (-    -- * REST Resource-      OrgUnitsGetResource--    -- * Creating a Request-    , orgUnitsGet-    , OrgUnitsGet--    -- * Request Lenses-    , ougOrgUnitPath-    , ougCustomerId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.orgunits.get@ method which the--- 'OrgUnitsGet' request conforms to.-type OrgUnitsGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "orgunits" :>-                 Captures "orgUnitPath" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] OrgUnit---- | Retrieve organizational unit------ /See:/ 'orgUnitsGet' smart constructor.-data OrgUnitsGet =-  OrgUnitsGet'-    { _ougOrgUnitPath :: ![Text]-    , _ougCustomerId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OrgUnitsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ougOrgUnitPath'------ * 'ougCustomerId'-orgUnitsGet-    :: [Text] -- ^ 'ougOrgUnitPath'-    -> Text -- ^ 'ougCustomerId'-    -> OrgUnitsGet-orgUnitsGet pOugOrgUnitPath_ pOugCustomerId_ =-  OrgUnitsGet'-    { _ougOrgUnitPath = _Coerce # pOugOrgUnitPath_-    , _ougCustomerId = pOugCustomerId_-    }----- | Full path of the organizational unit or its ID-ougOrgUnitPath :: Lens' OrgUnitsGet [Text]-ougOrgUnitPath-  = lens _ougOrgUnitPath-      (\ s a -> s{_ougOrgUnitPath = a})-      . _Coerce---- | Immutable ID of the G Suite account-ougCustomerId :: Lens' OrgUnitsGet Text-ougCustomerId-  = lens _ougCustomerId-      (\ s a -> s{_ougCustomerId = a})--instance GoogleRequest OrgUnitsGet where-        type Rs OrgUnitsGet = OrgUnit-        type Scopes OrgUnitsGet =-             '["https://www.googleapis.com/auth/admin.directory.orgunit",-               "https://www.googleapis.com/auth/admin.directory.orgunit.readonly"]-        requestClient OrgUnitsGet'{..}-          = go _ougCustomerId _ougOrgUnitPath (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy OrgUnitsGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/OrgUnits/Insert.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.Directory.OrgUnits.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)------ Add organizational unit------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.orgunits.insert@.-module Network.Google.Resource.Directory.OrgUnits.Insert-    (-    -- * REST Resource-      OrgUnitsInsertResource--    -- * Creating a Request-    , orgUnitsInsert-    , OrgUnitsInsert--    -- * Request Lenses-    , ouiPayload-    , ouiCustomerId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.orgunits.insert@ method which the--- 'OrgUnitsInsert' request conforms to.-type OrgUnitsInsertResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "orgunits" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] OrgUnit :> Post '[JSON] OrgUnit---- | Add organizational unit------ /See:/ 'orgUnitsInsert' smart constructor.-data OrgUnitsInsert =-  OrgUnitsInsert'-    { _ouiPayload    :: !OrgUnit-    , _ouiCustomerId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OrgUnitsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ouiPayload'------ * 'ouiCustomerId'-orgUnitsInsert-    :: OrgUnit -- ^ 'ouiPayload'-    -> Text -- ^ 'ouiCustomerId'-    -> OrgUnitsInsert-orgUnitsInsert pOuiPayload_ pOuiCustomerId_ =-  OrgUnitsInsert' {_ouiPayload = pOuiPayload_, _ouiCustomerId = pOuiCustomerId_}----- | Multipart request metadata.-ouiPayload :: Lens' OrgUnitsInsert OrgUnit-ouiPayload-  = lens _ouiPayload (\ s a -> s{_ouiPayload = a})---- | Immutable ID of the G Suite account-ouiCustomerId :: Lens' OrgUnitsInsert Text-ouiCustomerId-  = lens _ouiCustomerId-      (\ s a -> s{_ouiCustomerId = a})--instance GoogleRequest OrgUnitsInsert where-        type Rs OrgUnitsInsert = OrgUnit-        type Scopes OrgUnitsInsert =-             '["https://www.googleapis.com/auth/admin.directory.orgunit"]-        requestClient OrgUnitsInsert'{..}-          = go _ouiCustomerId (Just AltJSON) _ouiPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy OrgUnitsInsertResource)-                      mempty
− gen/Network/Google/Resource/Directory/OrgUnits/List.hs 
@@ -1,113 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.OrgUnits.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)------ Retrieve all organizational units------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.orgunits.list@.-module Network.Google.Resource.Directory.OrgUnits.List-    (-    -- * REST Resource-      OrgUnitsListResource--    -- * Creating a Request-    , orgUnitsList-    , OrgUnitsList--    -- * Request Lenses-    , oulOrgUnitPath-    , oulCustomerId-    , oulType-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.orgunits.list@ method which the--- 'OrgUnitsList' request conforms to.-type OrgUnitsListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "orgunits" :>-                 QueryParam "orgUnitPath" Text :>-                   QueryParam "type" OrgUnitsListType :>-                     QueryParam "alt" AltJSON :> Get '[JSON] OrgUnits---- | Retrieve all organizational units------ /See:/ 'orgUnitsList' smart constructor.-data OrgUnitsList =-  OrgUnitsList'-    { _oulOrgUnitPath :: !Text-    , _oulCustomerId  :: !Text-    , _oulType        :: !(Maybe OrgUnitsListType)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OrgUnitsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oulOrgUnitPath'------ * 'oulCustomerId'------ * 'oulType'-orgUnitsList-    :: Text -- ^ 'oulCustomerId'-    -> OrgUnitsList-orgUnitsList pOulCustomerId_ =-  OrgUnitsList'-    {_oulOrgUnitPath = "", _oulCustomerId = pOulCustomerId_, _oulType = Nothing}----- | the URL-encoded organizational unit\'s path or its ID-oulOrgUnitPath :: Lens' OrgUnitsList Text-oulOrgUnitPath-  = lens _oulOrgUnitPath-      (\ s a -> s{_oulOrgUnitPath = a})---- | Immutable ID of the G Suite account-oulCustomerId :: Lens' OrgUnitsList Text-oulCustomerId-  = lens _oulCustomerId-      (\ s a -> s{_oulCustomerId = a})---- | Whether to return all sub-organizations or just immediate children-oulType :: Lens' OrgUnitsList (Maybe OrgUnitsListType)-oulType = lens _oulType (\ s a -> s{_oulType = a})--instance GoogleRequest OrgUnitsList where-        type Rs OrgUnitsList = OrgUnits-        type Scopes OrgUnitsList =-             '["https://www.googleapis.com/auth/admin.directory.orgunit",-               "https://www.googleapis.com/auth/admin.directory.orgunit.readonly"]-        requestClient OrgUnitsList'{..}-          = go _oulCustomerId (Just _oulOrgUnitPath) _oulType-              (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy OrgUnitsListResource)-                      mempty
− gen/Network/Google/Resource/Directory/OrgUnits/Patch.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.Directory.OrgUnits.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)------ Update organizational unit. This method supports patch semantics.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.orgunits.patch@.-module Network.Google.Resource.Directory.OrgUnits.Patch-    (-    -- * REST Resource-      OrgUnitsPatchResource--    -- * Creating a Request-    , orgUnitsPatch-    , OrgUnitsPatch--    -- * Request Lenses-    , oupPayload-    , oupOrgUnitPath-    , oupCustomerId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.orgunits.patch@ method which the--- 'OrgUnitsPatch' request conforms to.-type OrgUnitsPatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "orgunits" :>-                 Captures "orgUnitPath" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] OrgUnit :> Patch '[JSON] OrgUnit---- | Update organizational unit. This method supports patch semantics.------ /See:/ 'orgUnitsPatch' smart constructor.-data OrgUnitsPatch =-  OrgUnitsPatch'-    { _oupPayload     :: !OrgUnit-    , _oupOrgUnitPath :: ![Text]-    , _oupCustomerId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OrgUnitsPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oupPayload'------ * 'oupOrgUnitPath'------ * 'oupCustomerId'-orgUnitsPatch-    :: OrgUnit -- ^ 'oupPayload'-    -> [Text] -- ^ 'oupOrgUnitPath'-    -> Text -- ^ 'oupCustomerId'-    -> OrgUnitsPatch-orgUnitsPatch pOupPayload_ pOupOrgUnitPath_ pOupCustomerId_ =-  OrgUnitsPatch'-    { _oupPayload = pOupPayload_-    , _oupOrgUnitPath = _Coerce # pOupOrgUnitPath_-    , _oupCustomerId = pOupCustomerId_-    }----- | Multipart request metadata.-oupPayload :: Lens' OrgUnitsPatch OrgUnit-oupPayload-  = lens _oupPayload (\ s a -> s{_oupPayload = a})---- | Full path of the organizational unit or its ID-oupOrgUnitPath :: Lens' OrgUnitsPatch [Text]-oupOrgUnitPath-  = lens _oupOrgUnitPath-      (\ s a -> s{_oupOrgUnitPath = a})-      . _Coerce---- | Immutable ID of the G Suite account-oupCustomerId :: Lens' OrgUnitsPatch Text-oupCustomerId-  = lens _oupCustomerId-      (\ s a -> s{_oupCustomerId = a})--instance GoogleRequest OrgUnitsPatch where-        type Rs OrgUnitsPatch = OrgUnit-        type Scopes OrgUnitsPatch =-             '["https://www.googleapis.com/auth/admin.directory.orgunit"]-        requestClient OrgUnitsPatch'{..}-          = go _oupCustomerId _oupOrgUnitPath (Just AltJSON)-              _oupPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy OrgUnitsPatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/OrgUnits/Update.hs 
@@ -1,119 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.OrgUnits.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)------ Update organizational unit------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.orgunits.update@.-module Network.Google.Resource.Directory.OrgUnits.Update-    (-    -- * REST Resource-      OrgUnitsUpdateResource--    -- * Creating a Request-    , orgUnitsUpdate-    , OrgUnitsUpdate--    -- * Request Lenses-    , ouuPayload-    , ouuOrgUnitPath-    , ouuCustomerId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.orgunits.update@ method which the--- 'OrgUnitsUpdate' request conforms to.-type OrgUnitsUpdateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "orgunits" :>-                 Captures "orgUnitPath" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] OrgUnit :> Put '[JSON] OrgUnit---- | Update organizational unit------ /See:/ 'orgUnitsUpdate' smart constructor.-data OrgUnitsUpdate =-  OrgUnitsUpdate'-    { _ouuPayload     :: !OrgUnit-    , _ouuOrgUnitPath :: ![Text]-    , _ouuCustomerId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OrgUnitsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ouuPayload'------ * 'ouuOrgUnitPath'------ * 'ouuCustomerId'-orgUnitsUpdate-    :: OrgUnit -- ^ 'ouuPayload'-    -> [Text] -- ^ 'ouuOrgUnitPath'-    -> Text -- ^ 'ouuCustomerId'-    -> OrgUnitsUpdate-orgUnitsUpdate pOuuPayload_ pOuuOrgUnitPath_ pOuuCustomerId_ =-  OrgUnitsUpdate'-    { _ouuPayload = pOuuPayload_-    , _ouuOrgUnitPath = _Coerce # pOuuOrgUnitPath_-    , _ouuCustomerId = pOuuCustomerId_-    }----- | Multipart request metadata.-ouuPayload :: Lens' OrgUnitsUpdate OrgUnit-ouuPayload-  = lens _ouuPayload (\ s a -> s{_ouuPayload = a})---- | Full path of the organizational unit or its ID-ouuOrgUnitPath :: Lens' OrgUnitsUpdate [Text]-ouuOrgUnitPath-  = lens _ouuOrgUnitPath-      (\ s a -> s{_ouuOrgUnitPath = a})-      . _Coerce---- | Immutable ID of the G Suite account-ouuCustomerId :: Lens' OrgUnitsUpdate Text-ouuCustomerId-  = lens _ouuCustomerId-      (\ s a -> s{_ouuCustomerId = a})--instance GoogleRequest OrgUnitsUpdate where-        type Rs OrgUnitsUpdate = OrgUnit-        type Scopes OrgUnitsUpdate =-             '["https://www.googleapis.com/auth/admin.directory.orgunit"]-        requestClient OrgUnitsUpdate'{..}-          = go _ouuCustomerId _ouuOrgUnitPath (Just AltJSON)-              _ouuPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy OrgUnitsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Directory/Privileges/List.hs 
@@ -1,90 +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.Directory.Privileges.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)------ Retrieves a paginated list of all privileges for a customer.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.privileges.list@.-module Network.Google.Resource.Directory.Privileges.List-    (-    -- * REST Resource-      PrivilegesListResource--    -- * Creating a Request-    , privilegesList-    , PrivilegesList--    -- * Request Lenses-    , plCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.privileges.list@ method which the--- 'PrivilegesList' request conforms to.-type PrivilegesListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "roles" :>-                 "ALL" :>-                   "privileges" :>-                     QueryParam "alt" AltJSON :> Get '[JSON] Privileges---- | Retrieves a paginated list of all privileges for a customer.------ /See:/ 'privilegesList' smart constructor.-newtype PrivilegesList =-  PrivilegesList'-    { _plCustomer :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PrivilegesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plCustomer'-privilegesList-    :: Text -- ^ 'plCustomer'-    -> PrivilegesList-privilegesList pPlCustomer_ = PrivilegesList' {_plCustomer = pPlCustomer_}----- | Immutable ID of the G Suite account.-plCustomer :: Lens' PrivilegesList Text-plCustomer-  = lens _plCustomer (\ s a -> s{_plCustomer = a})--instance GoogleRequest PrivilegesList where-        type Rs PrivilegesList = Privileges-        type Scopes PrivilegesList =-             '["https://www.googleapis.com/auth/admin.directory.rolemanagement",-               "https://www.googleapis.com/auth/admin.directory.rolemanagement.readonly"]-        requestClient PrivilegesList'{..}-          = go _plCustomer (Just AltJSON) directoryService-          where go-                  = buildClient (Proxy :: Proxy PrivilegesListResource)-                      mempty
− gen/Network/Google/Resource/Directory/ResolvedAppAccessSettings/GetSettings.hs 
@@ -1,78 +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.Directory.ResolvedAppAccessSettings.GetSettings--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Retrieves resolved app access settings of the logged in user.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resolvedAppAccessSettings.GetSettings@.-module Network.Google.Resource.Directory.ResolvedAppAccessSettings.GetSettings-    (-    -- * REST Resource-      ResolvedAppAccessSettingsGetSettingsResource--    -- * Creating a Request-    , resolvedAppAccessSettingsGetSettings-    , ResolvedAppAccessSettingsGetSettings--    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resolvedAppAccessSettings.GetSettings@ method which the--- 'ResolvedAppAccessSettingsGetSettings' request conforms to.-type ResolvedAppAccessSettingsGetSettingsResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "resolvedappaccesssettings" :>-             QueryParam "alt" AltJSON :>-               Get '[JSON] AppAccessCollections---- | Retrieves resolved app access settings of the logged in user.------ /See:/ 'resolvedAppAccessSettingsGetSettings' smart constructor.-data ResolvedAppAccessSettingsGetSettings =-  ResolvedAppAccessSettingsGetSettings'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResolvedAppAccessSettingsGetSettings' with the minimum fields required to make a request.----resolvedAppAccessSettingsGetSettings-    :: ResolvedAppAccessSettingsGetSettings-resolvedAppAccessSettingsGetSettings = ResolvedAppAccessSettingsGetSettings'---instance GoogleRequest-           ResolvedAppAccessSettingsGetSettings-         where-        type Rs ResolvedAppAccessSettingsGetSettings =-             AppAccessCollections-        type Scopes ResolvedAppAccessSettingsGetSettings =-             '[]-        requestClient ResolvedAppAccessSettingsGetSettings'{}-          = go (Just AltJSON) directoryService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ResolvedAppAccessSettingsGetSettingsResource)-                      mempty
− gen/Network/Google/Resource/Directory/ResolvedAppAccessSettings/ListTrustedApps.hs 
@@ -1,81 +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.Directory.ResolvedAppAccessSettings.ListTrustedApps--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Retrieves the list of apps trusted by the admin of the logged in user.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resolvedAppAccessSettings.ListTrustedApps@.-module Network.Google.Resource.Directory.ResolvedAppAccessSettings.ListTrustedApps-    (-    -- * REST Resource-      ResolvedAppAccessSettingsListTrustedAppsResource--    -- * Creating a Request-    , resolvedAppAccessSettingsListTrustedApps-    , ResolvedAppAccessSettingsListTrustedApps--    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resolvedAppAccessSettings.ListTrustedApps@ method which the--- 'ResolvedAppAccessSettingsListTrustedApps' request conforms to.-type ResolvedAppAccessSettingsListTrustedAppsResource-     =-     "admin" :>-       "directory" :>-         "v1" :>-           "trustedapps" :>-             QueryParam "alt" AltJSON :> Get '[JSON] TrustedApps---- | Retrieves the list of apps trusted by the admin of the logged in user.------ /See:/ 'resolvedAppAccessSettingsListTrustedApps' smart constructor.-data ResolvedAppAccessSettingsListTrustedApps =-  ResolvedAppAccessSettingsListTrustedApps'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResolvedAppAccessSettingsListTrustedApps' with the minimum fields required to make a request.----resolvedAppAccessSettingsListTrustedApps-    :: ResolvedAppAccessSettingsListTrustedApps-resolvedAppAccessSettingsListTrustedApps =-  ResolvedAppAccessSettingsListTrustedApps'---instance GoogleRequest-           ResolvedAppAccessSettingsListTrustedApps-         where-        type Rs ResolvedAppAccessSettingsListTrustedApps =-             TrustedApps-        type Scopes ResolvedAppAccessSettingsListTrustedApps-             = '[]-        requestClient-          ResolvedAppAccessSettingsListTrustedApps'{}-          = go (Just AltJSON) directoryService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy-                           ResolvedAppAccessSettingsListTrustedAppsResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Buildings/Delete.hs 
@@ -1,106 +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.Directory.Resources.Buildings.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 building.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.buildings.delete@.-module Network.Google.Resource.Directory.Resources.Buildings.Delete-    (-    -- * REST Resource-      ResourcesBuildingsDeleteResource--    -- * Creating a Request-    , resourcesBuildingsDelete-    , ResourcesBuildingsDelete--    -- * Request Lenses-    , rbdBuildingId-    , rbdCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.buildings.delete@ method which the--- 'ResourcesBuildingsDelete' request conforms to.-type ResourcesBuildingsDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "buildings" :>-                   Capture "buildingId" Text :>-                     QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes a building.------ /See:/ 'resourcesBuildingsDelete' smart constructor.-data ResourcesBuildingsDelete =-  ResourcesBuildingsDelete'-    { _rbdBuildingId :: !Text-    , _rbdCustomer   :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesBuildingsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rbdBuildingId'------ * 'rbdCustomer'-resourcesBuildingsDelete-    :: Text -- ^ 'rbdBuildingId'-    -> Text -- ^ 'rbdCustomer'-    -> ResourcesBuildingsDelete-resourcesBuildingsDelete pRbdBuildingId_ pRbdCustomer_ =-  ResourcesBuildingsDelete'-    {_rbdBuildingId = pRbdBuildingId_, _rbdCustomer = pRbdCustomer_}----- | The ID of the building to delete.-rbdBuildingId :: Lens' ResourcesBuildingsDelete Text-rbdBuildingId-  = lens _rbdBuildingId-      (\ s a -> s{_rbdBuildingId = a})---- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rbdCustomer :: Lens' ResourcesBuildingsDelete Text-rbdCustomer-  = lens _rbdCustomer (\ s a -> s{_rbdCustomer = a})--instance GoogleRequest ResourcesBuildingsDelete where-        type Rs ResourcesBuildingsDelete = ()-        type Scopes ResourcesBuildingsDelete =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar"]-        requestClient ResourcesBuildingsDelete'{..}-          = go _rbdCustomer _rbdBuildingId (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesBuildingsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Buildings/Get.hs 
@@ -1,107 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Resources.Buildings.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Retrieves a building.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.buildings.get@.-module Network.Google.Resource.Directory.Resources.Buildings.Get-    (-    -- * REST Resource-      ResourcesBuildingsGetResource--    -- * Creating a Request-    , resourcesBuildingsGet-    , ResourcesBuildingsGet--    -- * Request Lenses-    , rbgBuildingId-    , rbgCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.buildings.get@ method which the--- 'ResourcesBuildingsGet' request conforms to.-type ResourcesBuildingsGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "buildings" :>-                   Capture "buildingId" Text :>-                     QueryParam "alt" AltJSON :> Get '[JSON] Building---- | Retrieves a building.------ /See:/ 'resourcesBuildingsGet' smart constructor.-data ResourcesBuildingsGet =-  ResourcesBuildingsGet'-    { _rbgBuildingId :: !Text-    , _rbgCustomer   :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesBuildingsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rbgBuildingId'------ * 'rbgCustomer'-resourcesBuildingsGet-    :: Text -- ^ 'rbgBuildingId'-    -> Text -- ^ 'rbgCustomer'-    -> ResourcesBuildingsGet-resourcesBuildingsGet pRbgBuildingId_ pRbgCustomer_ =-  ResourcesBuildingsGet'-    {_rbgBuildingId = pRbgBuildingId_, _rbgCustomer = pRbgCustomer_}----- | The unique ID of the building to retrieve.-rbgBuildingId :: Lens' ResourcesBuildingsGet Text-rbgBuildingId-  = lens _rbgBuildingId-      (\ s a -> s{_rbgBuildingId = a})---- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rbgCustomer :: Lens' ResourcesBuildingsGet Text-rbgCustomer-  = lens _rbgCustomer (\ s a -> s{_rbgCustomer = a})--instance GoogleRequest ResourcesBuildingsGet where-        type Rs ResourcesBuildingsGet = Building-        type Scopes ResourcesBuildingsGet =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar",-               "https://www.googleapis.com/auth/admin.directory.resource.calendar.readonly"]-        requestClient ResourcesBuildingsGet'{..}-          = go _rbgCustomer _rbgBuildingId (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesBuildingsGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Buildings/Insert.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.Directory.Resources.Buildings.Insert--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Inserts a building.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.buildings.insert@.-module Network.Google.Resource.Directory.Resources.Buildings.Insert-    (-    -- * REST Resource-      ResourcesBuildingsInsertResource--    -- * Creating a Request-    , resourcesBuildingsInsert-    , ResourcesBuildingsInsert--    -- * Request Lenses-    , rbiPayload-    , rbiCustomer-    , rbiCoordinatesSource-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.buildings.insert@ method which the--- 'ResourcesBuildingsInsert' request conforms to.-type ResourcesBuildingsInsertResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "buildings" :>-                   QueryParam "coordinatesSource"-                     ResourcesBuildingsInsertCoordinatesSource-                     :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] Building :> Post '[JSON] Building---- | Inserts a building.------ /See:/ 'resourcesBuildingsInsert' smart constructor.-data ResourcesBuildingsInsert =-  ResourcesBuildingsInsert'-    { _rbiPayload           :: !Building-    , _rbiCustomer          :: !Text-    , _rbiCoordinatesSource :: !ResourcesBuildingsInsertCoordinatesSource-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesBuildingsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rbiPayload'------ * 'rbiCustomer'------ * 'rbiCoordinatesSource'-resourcesBuildingsInsert-    :: Building -- ^ 'rbiPayload'-    -> Text -- ^ 'rbiCustomer'-    -> ResourcesBuildingsInsert-resourcesBuildingsInsert pRbiPayload_ pRbiCustomer_ =-  ResourcesBuildingsInsert'-    { _rbiPayload = pRbiPayload_-    , _rbiCustomer = pRbiCustomer_-    , _rbiCoordinatesSource = RBICSSourceUnspecified-    }----- | Multipart request metadata.-rbiPayload :: Lens' ResourcesBuildingsInsert Building-rbiPayload-  = lens _rbiPayload (\ s a -> s{_rbiPayload = a})---- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rbiCustomer :: Lens' ResourcesBuildingsInsert Text-rbiCustomer-  = lens _rbiCustomer (\ s a -> s{_rbiCustomer = a})---- | Source from which Building.coordinates are derived.-rbiCoordinatesSource :: Lens' ResourcesBuildingsInsert ResourcesBuildingsInsertCoordinatesSource-rbiCoordinatesSource-  = lens _rbiCoordinatesSource-      (\ s a -> s{_rbiCoordinatesSource = a})--instance GoogleRequest ResourcesBuildingsInsert where-        type Rs ResourcesBuildingsInsert = Building-        type Scopes ResourcesBuildingsInsert =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar"]-        requestClient ResourcesBuildingsInsert'{..}-          = go _rbiCustomer (Just _rbiCoordinatesSource)-              (Just AltJSON)-              _rbiPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesBuildingsInsertResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Buildings/List.hs 
@@ -1,121 +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.Directory.Resources.Buildings.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)------ Retrieves a list of buildings for an account.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.buildings.list@.-module Network.Google.Resource.Directory.Resources.Buildings.List-    (-    -- * REST Resource-      ResourcesBuildingsListResource--    -- * Creating a Request-    , resourcesBuildingsList-    , ResourcesBuildingsList--    -- * Request Lenses-    , rblCustomer-    , rblPageToken-    , rblMaxResults-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.buildings.list@ method which the--- 'ResourcesBuildingsList' request conforms to.-type ResourcesBuildingsListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "buildings" :>-                   QueryParam "pageToken" Text :>-                     QueryParam "maxResults" (Textual Int32) :>-                       QueryParam "alt" AltJSON :> Get '[JSON] Buildings---- | Retrieves a list of buildings for an account.------ /See:/ 'resourcesBuildingsList' smart constructor.-data ResourcesBuildingsList =-  ResourcesBuildingsList'-    { _rblCustomer   :: !Text-    , _rblPageToken  :: !(Maybe Text)-    , _rblMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesBuildingsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rblCustomer'------ * 'rblPageToken'------ * 'rblMaxResults'-resourcesBuildingsList-    :: Text -- ^ 'rblCustomer'-    -> ResourcesBuildingsList-resourcesBuildingsList pRblCustomer_ =-  ResourcesBuildingsList'-    { _rblCustomer = pRblCustomer_-    , _rblPageToken = Nothing-    , _rblMaxResults = Nothing-    }----- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rblCustomer :: Lens' ResourcesBuildingsList Text-rblCustomer-  = lens _rblCustomer (\ s a -> s{_rblCustomer = a})---- | Token to specify the next page in the list.-rblPageToken :: Lens' ResourcesBuildingsList (Maybe Text)-rblPageToken-  = lens _rblPageToken (\ s a -> s{_rblPageToken = a})---- | Maximum number of results to return.-rblMaxResults :: Lens' ResourcesBuildingsList (Maybe Int32)-rblMaxResults-  = lens _rblMaxResults-      (\ s a -> s{_rblMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ResourcesBuildingsList where-        type Rs ResourcesBuildingsList = Buildings-        type Scopes ResourcesBuildingsList =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar",-               "https://www.googleapis.com/auth/admin.directory.resource.calendar.readonly"]-        requestClient ResourcesBuildingsList'{..}-          = go _rblCustomer _rblPageToken _rblMaxResults-              (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesBuildingsListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Buildings/Patch.hs 
@@ -1,137 +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.Directory.Resources.Buildings.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 building. This method supports patch semantics.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.buildings.patch@.-module Network.Google.Resource.Directory.Resources.Buildings.Patch-    (-    -- * REST Resource-      ResourcesBuildingsPatchResource--    -- * Creating a Request-    , resourcesBuildingsPatch-    , ResourcesBuildingsPatch--    -- * Request Lenses-    , rbpBuildingId-    , rbpPayload-    , rbpCustomer-    , rbpCoordinatesSource-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.buildings.patch@ method which the--- 'ResourcesBuildingsPatch' request conforms to.-type ResourcesBuildingsPatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "buildings" :>-                   Capture "buildingId" Text :>-                     QueryParam "coordinatesSource"-                       ResourcesBuildingsPatchCoordinatesSource-                       :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] Building :> Patch '[JSON] Building---- | Updates a building. This method supports patch semantics.------ /See:/ 'resourcesBuildingsPatch' smart constructor.-data ResourcesBuildingsPatch =-  ResourcesBuildingsPatch'-    { _rbpBuildingId        :: !Text-    , _rbpPayload           :: !Building-    , _rbpCustomer          :: !Text-    , _rbpCoordinatesSource :: !ResourcesBuildingsPatchCoordinatesSource-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesBuildingsPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rbpBuildingId'------ * 'rbpPayload'------ * 'rbpCustomer'------ * 'rbpCoordinatesSource'-resourcesBuildingsPatch-    :: Text -- ^ 'rbpBuildingId'-    -> Building -- ^ 'rbpPayload'-    -> Text -- ^ 'rbpCustomer'-    -> ResourcesBuildingsPatch-resourcesBuildingsPatch pRbpBuildingId_ pRbpPayload_ pRbpCustomer_ =-  ResourcesBuildingsPatch'-    { _rbpBuildingId = pRbpBuildingId_-    , _rbpPayload = pRbpPayload_-    , _rbpCustomer = pRbpCustomer_-    , _rbpCoordinatesSource = SourceUnspecified-    }----- | The ID of the building to update.-rbpBuildingId :: Lens' ResourcesBuildingsPatch Text-rbpBuildingId-  = lens _rbpBuildingId-      (\ s a -> s{_rbpBuildingId = a})---- | Multipart request metadata.-rbpPayload :: Lens' ResourcesBuildingsPatch Building-rbpPayload-  = lens _rbpPayload (\ s a -> s{_rbpPayload = a})---- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rbpCustomer :: Lens' ResourcesBuildingsPatch Text-rbpCustomer-  = lens _rbpCustomer (\ s a -> s{_rbpCustomer = a})---- | Source from which Building.coordinates are derived.-rbpCoordinatesSource :: Lens' ResourcesBuildingsPatch ResourcesBuildingsPatchCoordinatesSource-rbpCoordinatesSource-  = lens _rbpCoordinatesSource-      (\ s a -> s{_rbpCoordinatesSource = a})--instance GoogleRequest ResourcesBuildingsPatch where-        type Rs ResourcesBuildingsPatch = Building-        type Scopes ResourcesBuildingsPatch =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar"]-        requestClient ResourcesBuildingsPatch'{..}-          = go _rbpCustomer _rbpBuildingId-              (Just _rbpCoordinatesSource)-              (Just AltJSON)-              _rbpPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesBuildingsPatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Buildings/Update.hs 
@@ -1,137 +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.Directory.Resources.Buildings.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 building.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.buildings.update@.-module Network.Google.Resource.Directory.Resources.Buildings.Update-    (-    -- * REST Resource-      ResourcesBuildingsUpdateResource--    -- * Creating a Request-    , resourcesBuildingsUpdate-    , ResourcesBuildingsUpdate--    -- * Request Lenses-    , rbuBuildingId-    , rbuPayload-    , rbuCustomer-    , rbuCoordinatesSource-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.buildings.update@ method which the--- 'ResourcesBuildingsUpdate' request conforms to.-type ResourcesBuildingsUpdateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "buildings" :>-                   Capture "buildingId" Text :>-                     QueryParam "coordinatesSource"-                       ResourcesBuildingsUpdateCoordinatesSource-                       :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] Building :> Put '[JSON] Building---- | Updates a building.------ /See:/ 'resourcesBuildingsUpdate' smart constructor.-data ResourcesBuildingsUpdate =-  ResourcesBuildingsUpdate'-    { _rbuBuildingId        :: !Text-    , _rbuPayload           :: !Building-    , _rbuCustomer          :: !Text-    , _rbuCoordinatesSource :: !ResourcesBuildingsUpdateCoordinatesSource-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesBuildingsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rbuBuildingId'------ * 'rbuPayload'------ * 'rbuCustomer'------ * 'rbuCoordinatesSource'-resourcesBuildingsUpdate-    :: Text -- ^ 'rbuBuildingId'-    -> Building -- ^ 'rbuPayload'-    -> Text -- ^ 'rbuCustomer'-    -> ResourcesBuildingsUpdate-resourcesBuildingsUpdate pRbuBuildingId_ pRbuPayload_ pRbuCustomer_ =-  ResourcesBuildingsUpdate'-    { _rbuBuildingId = pRbuBuildingId_-    , _rbuPayload = pRbuPayload_-    , _rbuCustomer = pRbuCustomer_-    , _rbuCoordinatesSource = RBUCSSourceUnspecified-    }----- | The ID of the building to update.-rbuBuildingId :: Lens' ResourcesBuildingsUpdate Text-rbuBuildingId-  = lens _rbuBuildingId-      (\ s a -> s{_rbuBuildingId = a})---- | Multipart request metadata.-rbuPayload :: Lens' ResourcesBuildingsUpdate Building-rbuPayload-  = lens _rbuPayload (\ s a -> s{_rbuPayload = a})---- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rbuCustomer :: Lens' ResourcesBuildingsUpdate Text-rbuCustomer-  = lens _rbuCustomer (\ s a -> s{_rbuCustomer = a})---- | Source from which Building.coordinates are derived.-rbuCoordinatesSource :: Lens' ResourcesBuildingsUpdate ResourcesBuildingsUpdateCoordinatesSource-rbuCoordinatesSource-  = lens _rbuCoordinatesSource-      (\ s a -> s{_rbuCoordinatesSource = a})--instance GoogleRequest ResourcesBuildingsUpdate where-        type Rs ResourcesBuildingsUpdate = Building-        type Scopes ResourcesBuildingsUpdate =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar"]-        requestClient ResourcesBuildingsUpdate'{..}-          = go _rbuCustomer _rbuBuildingId-              (Just _rbuCoordinatesSource)-              (Just AltJSON)-              _rbuPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesBuildingsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Calendars/Delete.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.Directory.Resources.Calendars.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 calendar resource.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.calendars.delete@.-module Network.Google.Resource.Directory.Resources.Calendars.Delete-    (-    -- * REST Resource-      ResourcesCalendarsDeleteResource--    -- * Creating a Request-    , resourcesCalendarsDelete-    , ResourcesCalendarsDelete--    -- * Request Lenses-    , rcdCustomer-    , rcdCalendarResourceId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.calendars.delete@ method which the--- 'ResourcesCalendarsDelete' request conforms to.-type ResourcesCalendarsDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "calendars" :>-                   Capture "calendarResourceId" Text :>-                     QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes a calendar resource.------ /See:/ 'resourcesCalendarsDelete' smart constructor.-data ResourcesCalendarsDelete =-  ResourcesCalendarsDelete'-    { _rcdCustomer           :: !Text-    , _rcdCalendarResourceId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesCalendarsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcdCustomer'------ * 'rcdCalendarResourceId'-resourcesCalendarsDelete-    :: Text -- ^ 'rcdCustomer'-    -> Text -- ^ 'rcdCalendarResourceId'-    -> ResourcesCalendarsDelete-resourcesCalendarsDelete pRcdCustomer_ pRcdCalendarResourceId_ =-  ResourcesCalendarsDelete'-    { _rcdCustomer = pRcdCustomer_-    , _rcdCalendarResourceId = pRcdCalendarResourceId_-    }----- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rcdCustomer :: Lens' ResourcesCalendarsDelete Text-rcdCustomer-  = lens _rcdCustomer (\ s a -> s{_rcdCustomer = a})---- | The unique ID of the calendar resource to delete.-rcdCalendarResourceId :: Lens' ResourcesCalendarsDelete Text-rcdCalendarResourceId-  = lens _rcdCalendarResourceId-      (\ s a -> s{_rcdCalendarResourceId = a})--instance GoogleRequest ResourcesCalendarsDelete where-        type Rs ResourcesCalendarsDelete = ()-        type Scopes ResourcesCalendarsDelete =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar"]-        requestClient ResourcesCalendarsDelete'{..}-          = go _rcdCustomer _rcdCalendarResourceId-              (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesCalendarsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Calendars/Get.hs 
@@ -1,111 +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.Directory.Resources.Calendars.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Retrieves a calendar resource.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.calendars.get@.-module Network.Google.Resource.Directory.Resources.Calendars.Get-    (-    -- * REST Resource-      ResourcesCalendarsGetResource--    -- * Creating a Request-    , resourcesCalendarsGet-    , ResourcesCalendarsGet--    -- * Request Lenses-    , rcgCustomer-    , rcgCalendarResourceId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.calendars.get@ method which the--- 'ResourcesCalendarsGet' request conforms to.-type ResourcesCalendarsGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "calendars" :>-                   Capture "calendarResourceId" Text :>-                     QueryParam "alt" AltJSON :>-                       Get '[JSON] CalendarResource---- | Retrieves a calendar resource.------ /See:/ 'resourcesCalendarsGet' smart constructor.-data ResourcesCalendarsGet =-  ResourcesCalendarsGet'-    { _rcgCustomer           :: !Text-    , _rcgCalendarResourceId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesCalendarsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcgCustomer'------ * 'rcgCalendarResourceId'-resourcesCalendarsGet-    :: Text -- ^ 'rcgCustomer'-    -> Text -- ^ 'rcgCalendarResourceId'-    -> ResourcesCalendarsGet-resourcesCalendarsGet pRcgCustomer_ pRcgCalendarResourceId_ =-  ResourcesCalendarsGet'-    { _rcgCustomer = pRcgCustomer_-    , _rcgCalendarResourceId = pRcgCalendarResourceId_-    }----- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rcgCustomer :: Lens' ResourcesCalendarsGet Text-rcgCustomer-  = lens _rcgCustomer (\ s a -> s{_rcgCustomer = a})---- | The unique ID of the calendar resource to retrieve.-rcgCalendarResourceId :: Lens' ResourcesCalendarsGet Text-rcgCalendarResourceId-  = lens _rcgCalendarResourceId-      (\ s a -> s{_rcgCalendarResourceId = a})--instance GoogleRequest ResourcesCalendarsGet where-        type Rs ResourcesCalendarsGet = CalendarResource-        type Scopes ResourcesCalendarsGet =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar",-               "https://www.googleapis.com/auth/admin.directory.resource.calendar.readonly"]-        requestClient ResourcesCalendarsGet'{..}-          = go _rcgCustomer _rcgCalendarResourceId-              (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesCalendarsGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Calendars/Insert.hs 
@@ -1,106 +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.Directory.Resources.Calendars.Insert--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Inserts a calendar resource.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.calendars.insert@.-module Network.Google.Resource.Directory.Resources.Calendars.Insert-    (-    -- * REST Resource-      ResourcesCalendarsInsertResource--    -- * Creating a Request-    , resourcesCalendarsInsert-    , ResourcesCalendarsInsert--    -- * Request Lenses-    , rciPayload-    , rciCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.calendars.insert@ method which the--- 'ResourcesCalendarsInsert' request conforms to.-type ResourcesCalendarsInsertResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "calendars" :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] CalendarResource :>-                       Post '[JSON] CalendarResource---- | Inserts a calendar resource.------ /See:/ 'resourcesCalendarsInsert' smart constructor.-data ResourcesCalendarsInsert =-  ResourcesCalendarsInsert'-    { _rciPayload  :: !CalendarResource-    , _rciCustomer :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesCalendarsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rciPayload'------ * 'rciCustomer'-resourcesCalendarsInsert-    :: CalendarResource -- ^ 'rciPayload'-    -> Text -- ^ 'rciCustomer'-    -> ResourcesCalendarsInsert-resourcesCalendarsInsert pRciPayload_ pRciCustomer_ =-  ResourcesCalendarsInsert'-    {_rciPayload = pRciPayload_, _rciCustomer = pRciCustomer_}----- | Multipart request metadata.-rciPayload :: Lens' ResourcesCalendarsInsert CalendarResource-rciPayload-  = lens _rciPayload (\ s a -> s{_rciPayload = a})---- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rciCustomer :: Lens' ResourcesCalendarsInsert Text-rciCustomer-  = lens _rciCustomer (\ s a -> s{_rciCustomer = a})--instance GoogleRequest ResourcesCalendarsInsert where-        type Rs ResourcesCalendarsInsert = CalendarResource-        type Scopes ResourcesCalendarsInsert =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar"]-        requestClient ResourcesCalendarsInsert'{..}-          = go _rciCustomer (Just AltJSON) _rciPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesCalendarsInsertResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Calendars/List.hs 
@@ -1,156 +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.Directory.Resources.Calendars.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)------ Retrieves a list of calendar resources for an account.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.calendars.list@.-module Network.Google.Resource.Directory.Resources.Calendars.List-    (-    -- * REST Resource-      ResourcesCalendarsListResource--    -- * Creating a Request-    , resourcesCalendarsList-    , ResourcesCalendarsList--    -- * Request Lenses-    , rclOrderBy-    , rclCustomer-    , rclQuery-    , rclPageToken-    , rclMaxResults-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.calendars.list@ method which the--- 'ResourcesCalendarsList' request conforms to.-type ResourcesCalendarsListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "calendars" :>-                   QueryParam "orderBy" Text :>-                     QueryParam "query" Text :>-                       QueryParam "pageToken" Text :>-                         QueryParam "maxResults" (Textual Int32) :>-                           QueryParam "alt" AltJSON :>-                             Get '[JSON] CalendarResources---- | Retrieves a list of calendar resources for an account.------ /See:/ 'resourcesCalendarsList' smart constructor.-data ResourcesCalendarsList =-  ResourcesCalendarsList'-    { _rclOrderBy    :: !(Maybe Text)-    , _rclCustomer   :: !Text-    , _rclQuery      :: !(Maybe Text)-    , _rclPageToken  :: !(Maybe Text)-    , _rclMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesCalendarsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rclOrderBy'------ * 'rclCustomer'------ * 'rclQuery'------ * 'rclPageToken'------ * 'rclMaxResults'-resourcesCalendarsList-    :: Text -- ^ 'rclCustomer'-    -> ResourcesCalendarsList-resourcesCalendarsList pRclCustomer_ =-  ResourcesCalendarsList'-    { _rclOrderBy = Nothing-    , _rclCustomer = pRclCustomer_-    , _rclQuery = Nothing-    , _rclPageToken = Nothing-    , _rclMaxResults = Nothing-    }----- | Field(s) to sort results by in either ascending or descending order.--- Supported fields include resourceId, resourceName, capacity, buildingId,--- and floorName. If no order is specified, defaults to ascending. Should--- be of the form \"field [asc|desc], field [asc|desc], ...\". For example--- buildingId, capacity desc would return results sorted first by--- buildingId in ascending order then by capacity in descending order.-rclOrderBy :: Lens' ResourcesCalendarsList (Maybe Text)-rclOrderBy-  = lens _rclOrderBy (\ s a -> s{_rclOrderBy = a})---- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rclCustomer :: Lens' ResourcesCalendarsList Text-rclCustomer-  = lens _rclCustomer (\ s a -> s{_rclCustomer = a})---- | String query used to filter results. Should be of the form \"field--- operator value\" where field can be any of supported fields and--- operators can be any of supported operations. Operators include \'=\'--- for exact match and \':\' for prefix match or HAS match where--- applicable. For prefix match, the value should always be followed by a--- *. Supported fields include generatedResourceName, name, buildingId,--- featureInstances.feature.name. For example buildingId=US-NYC-9TH AND--- featureInstances.feature.name:Phone.-rclQuery :: Lens' ResourcesCalendarsList (Maybe Text)-rclQuery = lens _rclQuery (\ s a -> s{_rclQuery = a})---- | Token to specify the next page in the list.-rclPageToken :: Lens' ResourcesCalendarsList (Maybe Text)-rclPageToken-  = lens _rclPageToken (\ s a -> s{_rclPageToken = a})---- | Maximum number of results to return.-rclMaxResults :: Lens' ResourcesCalendarsList (Maybe Int32)-rclMaxResults-  = lens _rclMaxResults-      (\ s a -> s{_rclMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ResourcesCalendarsList where-        type Rs ResourcesCalendarsList = CalendarResources-        type Scopes ResourcesCalendarsList =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar",-               "https://www.googleapis.com/auth/admin.directory.resource.calendar.readonly"]-        requestClient ResourcesCalendarsList'{..}-          = go _rclCustomer _rclOrderBy _rclQuery _rclPageToken-              _rclMaxResults-              (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesCalendarsListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Calendars/Patch.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.Directory.Resources.Calendars.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 calendar resource. This method supports patch semantics,--- meaning you only need to include the fields you wish to update. Fields--- that are not present in the request will be preserved. This method--- supports patch semantics.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.calendars.patch@.-module Network.Google.Resource.Directory.Resources.Calendars.Patch-    (-    -- * REST Resource-      ResourcesCalendarsPatchResource--    -- * Creating a Request-    , resourcesCalendarsPatch-    , ResourcesCalendarsPatch--    -- * Request Lenses-    , rcpPayload-    , rcpCustomer-    , rcpCalendarResourceId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.calendars.patch@ method which the--- 'ResourcesCalendarsPatch' request conforms to.-type ResourcesCalendarsPatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "calendars" :>-                   Capture "calendarResourceId" Text :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] CalendarResource :>-                         Patch '[JSON] CalendarResource---- | Updates a calendar resource. This method supports patch semantics,--- meaning you only need to include the fields you wish to update. Fields--- that are not present in the request will be preserved. This method--- supports patch semantics.------ /See:/ 'resourcesCalendarsPatch' smart constructor.-data ResourcesCalendarsPatch =-  ResourcesCalendarsPatch'-    { _rcpPayload            :: !CalendarResource-    , _rcpCustomer           :: !Text-    , _rcpCalendarResourceId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesCalendarsPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcpPayload'------ * 'rcpCustomer'------ * 'rcpCalendarResourceId'-resourcesCalendarsPatch-    :: CalendarResource -- ^ 'rcpPayload'-    -> Text -- ^ 'rcpCustomer'-    -> Text -- ^ 'rcpCalendarResourceId'-    -> ResourcesCalendarsPatch-resourcesCalendarsPatch pRcpPayload_ pRcpCustomer_ pRcpCalendarResourceId_ =-  ResourcesCalendarsPatch'-    { _rcpPayload = pRcpPayload_-    , _rcpCustomer = pRcpCustomer_-    , _rcpCalendarResourceId = pRcpCalendarResourceId_-    }----- | Multipart request metadata.-rcpPayload :: Lens' ResourcesCalendarsPatch CalendarResource-rcpPayload-  = lens _rcpPayload (\ s a -> s{_rcpPayload = a})---- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rcpCustomer :: Lens' ResourcesCalendarsPatch Text-rcpCustomer-  = lens _rcpCustomer (\ s a -> s{_rcpCustomer = a})---- | The unique ID of the calendar resource to update.-rcpCalendarResourceId :: Lens' ResourcesCalendarsPatch Text-rcpCalendarResourceId-  = lens _rcpCalendarResourceId-      (\ s a -> s{_rcpCalendarResourceId = a})--instance GoogleRequest ResourcesCalendarsPatch where-        type Rs ResourcesCalendarsPatch = CalendarResource-        type Scopes ResourcesCalendarsPatch =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar"]-        requestClient ResourcesCalendarsPatch'{..}-          = go _rcpCustomer _rcpCalendarResourceId-              (Just AltJSON)-              _rcpPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesCalendarsPatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Calendars/Update.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.Directory.Resources.Calendars.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 calendar resource. This method supports patch semantics,--- meaning you only need to include the fields you wish to update. Fields--- that are not present in the request will be preserved.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.calendars.update@.-module Network.Google.Resource.Directory.Resources.Calendars.Update-    (-    -- * REST Resource-      ResourcesCalendarsUpdateResource--    -- * Creating a Request-    , resourcesCalendarsUpdate-    , ResourcesCalendarsUpdate--    -- * Request Lenses-    , rcuPayload-    , rcuCustomer-    , rcuCalendarResourceId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.calendars.update@ method which the--- 'ResourcesCalendarsUpdate' request conforms to.-type ResourcesCalendarsUpdateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "calendars" :>-                   Capture "calendarResourceId" Text :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] CalendarResource :>-                         Put '[JSON] CalendarResource---- | Updates a calendar resource. This method supports patch semantics,--- meaning you only need to include the fields you wish to update. Fields--- that are not present in the request will be preserved.------ /See:/ 'resourcesCalendarsUpdate' smart constructor.-data ResourcesCalendarsUpdate =-  ResourcesCalendarsUpdate'-    { _rcuPayload            :: !CalendarResource-    , _rcuCustomer           :: !Text-    , _rcuCalendarResourceId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesCalendarsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcuPayload'------ * 'rcuCustomer'------ * 'rcuCalendarResourceId'-resourcesCalendarsUpdate-    :: CalendarResource -- ^ 'rcuPayload'-    -> Text -- ^ 'rcuCustomer'-    -> Text -- ^ 'rcuCalendarResourceId'-    -> ResourcesCalendarsUpdate-resourcesCalendarsUpdate pRcuPayload_ pRcuCustomer_ pRcuCalendarResourceId_ =-  ResourcesCalendarsUpdate'-    { _rcuPayload = pRcuPayload_-    , _rcuCustomer = pRcuCustomer_-    , _rcuCalendarResourceId = pRcuCalendarResourceId_-    }----- | Multipart request metadata.-rcuPayload :: Lens' ResourcesCalendarsUpdate CalendarResource-rcuPayload-  = lens _rcuPayload (\ s a -> s{_rcuPayload = a})---- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rcuCustomer :: Lens' ResourcesCalendarsUpdate Text-rcuCustomer-  = lens _rcuCustomer (\ s a -> s{_rcuCustomer = a})---- | The unique ID of the calendar resource to update.-rcuCalendarResourceId :: Lens' ResourcesCalendarsUpdate Text-rcuCalendarResourceId-  = lens _rcuCalendarResourceId-      (\ s a -> s{_rcuCalendarResourceId = a})--instance GoogleRequest ResourcesCalendarsUpdate where-        type Rs ResourcesCalendarsUpdate = CalendarResource-        type Scopes ResourcesCalendarsUpdate =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar"]-        requestClient ResourcesCalendarsUpdate'{..}-          = go _rcuCustomer _rcuCalendarResourceId-              (Just AltJSON)-              _rcuPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesCalendarsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Features/Delete.hs 
@@ -1,106 +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.Directory.Resources.Features.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 feature.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.features.delete@.-module Network.Google.Resource.Directory.Resources.Features.Delete-    (-    -- * REST Resource-      ResourcesFeaturesDeleteResource--    -- * Creating a Request-    , resourcesFeaturesDelete-    , ResourcesFeaturesDelete--    -- * Request Lenses-    , rfdCustomer-    , rfdFeatureKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.features.delete@ method which the--- 'ResourcesFeaturesDelete' request conforms to.-type ResourcesFeaturesDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "features" :>-                   Capture "featureKey" Text :>-                     QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes a feature.------ /See:/ 'resourcesFeaturesDelete' smart constructor.-data ResourcesFeaturesDelete =-  ResourcesFeaturesDelete'-    { _rfdCustomer   :: !Text-    , _rfdFeatureKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesFeaturesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rfdCustomer'------ * 'rfdFeatureKey'-resourcesFeaturesDelete-    :: Text -- ^ 'rfdCustomer'-    -> Text -- ^ 'rfdFeatureKey'-    -> ResourcesFeaturesDelete-resourcesFeaturesDelete pRfdCustomer_ pRfdFeatureKey_ =-  ResourcesFeaturesDelete'-    {_rfdCustomer = pRfdCustomer_, _rfdFeatureKey = pRfdFeatureKey_}----- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rfdCustomer :: Lens' ResourcesFeaturesDelete Text-rfdCustomer-  = lens _rfdCustomer (\ s a -> s{_rfdCustomer = a})---- | The unique ID of the feature to delete.-rfdFeatureKey :: Lens' ResourcesFeaturesDelete Text-rfdFeatureKey-  = lens _rfdFeatureKey-      (\ s a -> s{_rfdFeatureKey = a})--instance GoogleRequest ResourcesFeaturesDelete where-        type Rs ResourcesFeaturesDelete = ()-        type Scopes ResourcesFeaturesDelete =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar"]-        requestClient ResourcesFeaturesDelete'{..}-          = go _rfdCustomer _rfdFeatureKey (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesFeaturesDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Features/Get.hs 
@@ -1,107 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Resources.Features.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Retrieves a feature.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.features.get@.-module Network.Google.Resource.Directory.Resources.Features.Get-    (-    -- * REST Resource-      ResourcesFeaturesGetResource--    -- * Creating a Request-    , resourcesFeaturesGet-    , ResourcesFeaturesGet--    -- * Request Lenses-    , rfgCustomer-    , rfgFeatureKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.features.get@ method which the--- 'ResourcesFeaturesGet' request conforms to.-type ResourcesFeaturesGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "features" :>-                   Capture "featureKey" Text :>-                     QueryParam "alt" AltJSON :> Get '[JSON] Feature---- | Retrieves a feature.------ /See:/ 'resourcesFeaturesGet' smart constructor.-data ResourcesFeaturesGet =-  ResourcesFeaturesGet'-    { _rfgCustomer   :: !Text-    , _rfgFeatureKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesFeaturesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rfgCustomer'------ * 'rfgFeatureKey'-resourcesFeaturesGet-    :: Text -- ^ 'rfgCustomer'-    -> Text -- ^ 'rfgFeatureKey'-    -> ResourcesFeaturesGet-resourcesFeaturesGet pRfgCustomer_ pRfgFeatureKey_ =-  ResourcesFeaturesGet'-    {_rfgCustomer = pRfgCustomer_, _rfgFeatureKey = pRfgFeatureKey_}----- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rfgCustomer :: Lens' ResourcesFeaturesGet Text-rfgCustomer-  = lens _rfgCustomer (\ s a -> s{_rfgCustomer = a})---- | The unique ID of the feature to retrieve.-rfgFeatureKey :: Lens' ResourcesFeaturesGet Text-rfgFeatureKey-  = lens _rfgFeatureKey-      (\ s a -> s{_rfgFeatureKey = a})--instance GoogleRequest ResourcesFeaturesGet where-        type Rs ResourcesFeaturesGet = Feature-        type Scopes ResourcesFeaturesGet =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar",-               "https://www.googleapis.com/auth/admin.directory.resource.calendar.readonly"]-        requestClient ResourcesFeaturesGet'{..}-          = go _rfgCustomer _rfgFeatureKey (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesFeaturesGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Features/Insert.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.Directory.Resources.Features.Insert--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Inserts a feature.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.features.insert@.-module Network.Google.Resource.Directory.Resources.Features.Insert-    (-    -- * REST Resource-      ResourcesFeaturesInsertResource--    -- * Creating a Request-    , resourcesFeaturesInsert-    , ResourcesFeaturesInsert--    -- * Request Lenses-    , rfiPayload-    , rfiCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.features.insert@ method which the--- 'ResourcesFeaturesInsert' request conforms to.-type ResourcesFeaturesInsertResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "features" :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Feature :> Post '[JSON] Feature---- | Inserts a feature.------ /See:/ 'resourcesFeaturesInsert' smart constructor.-data ResourcesFeaturesInsert =-  ResourcesFeaturesInsert'-    { _rfiPayload  :: !Feature-    , _rfiCustomer :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesFeaturesInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rfiPayload'------ * 'rfiCustomer'-resourcesFeaturesInsert-    :: Feature -- ^ 'rfiPayload'-    -> Text -- ^ 'rfiCustomer'-    -> ResourcesFeaturesInsert-resourcesFeaturesInsert pRfiPayload_ pRfiCustomer_ =-  ResourcesFeaturesInsert'-    {_rfiPayload = pRfiPayload_, _rfiCustomer = pRfiCustomer_}----- | Multipart request metadata.-rfiPayload :: Lens' ResourcesFeaturesInsert Feature-rfiPayload-  = lens _rfiPayload (\ s a -> s{_rfiPayload = a})---- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rfiCustomer :: Lens' ResourcesFeaturesInsert Text-rfiCustomer-  = lens _rfiCustomer (\ s a -> s{_rfiCustomer = a})--instance GoogleRequest ResourcesFeaturesInsert where-        type Rs ResourcesFeaturesInsert = Feature-        type Scopes ResourcesFeaturesInsert =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar"]-        requestClient ResourcesFeaturesInsert'{..}-          = go _rfiCustomer (Just AltJSON) _rfiPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesFeaturesInsertResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Features/List.hs 
@@ -1,121 +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.Directory.Resources.Features.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)------ Retrieves a list of features for an account.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.features.list@.-module Network.Google.Resource.Directory.Resources.Features.List-    (-    -- * REST Resource-      ResourcesFeaturesListResource--    -- * Creating a Request-    , resourcesFeaturesList-    , ResourcesFeaturesList--    -- * Request Lenses-    , rflCustomer-    , rflPageToken-    , rflMaxResults-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.features.list@ method which the--- 'ResourcesFeaturesList' request conforms to.-type ResourcesFeaturesListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "features" :>-                   QueryParam "pageToken" Text :>-                     QueryParam "maxResults" (Textual Int32) :>-                       QueryParam "alt" AltJSON :> Get '[JSON] Features---- | Retrieves a list of features for an account.------ /See:/ 'resourcesFeaturesList' smart constructor.-data ResourcesFeaturesList =-  ResourcesFeaturesList'-    { _rflCustomer   :: !Text-    , _rflPageToken  :: !(Maybe Text)-    , _rflMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesFeaturesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rflCustomer'------ * 'rflPageToken'------ * 'rflMaxResults'-resourcesFeaturesList-    :: Text -- ^ 'rflCustomer'-    -> ResourcesFeaturesList-resourcesFeaturesList pRflCustomer_ =-  ResourcesFeaturesList'-    { _rflCustomer = pRflCustomer_-    , _rflPageToken = Nothing-    , _rflMaxResults = Nothing-    }----- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rflCustomer :: Lens' ResourcesFeaturesList Text-rflCustomer-  = lens _rflCustomer (\ s a -> s{_rflCustomer = a})---- | Token to specify the next page in the list.-rflPageToken :: Lens' ResourcesFeaturesList (Maybe Text)-rflPageToken-  = lens _rflPageToken (\ s a -> s{_rflPageToken = a})---- | Maximum number of results to return.-rflMaxResults :: Lens' ResourcesFeaturesList (Maybe Int32)-rflMaxResults-  = lens _rflMaxResults-      (\ s a -> s{_rflMaxResults = a})-      . mapping _Coerce--instance GoogleRequest ResourcesFeaturesList where-        type Rs ResourcesFeaturesList = Features-        type Scopes ResourcesFeaturesList =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar",-               "https://www.googleapis.com/auth/admin.directory.resource.calendar.readonly"]-        requestClient ResourcesFeaturesList'{..}-          = go _rflCustomer _rflPageToken _rflMaxResults-              (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesFeaturesListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Features/Patch.hs 
@@ -1,121 +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.Directory.Resources.Features.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 feature. This method supports patch semantics.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.features.patch@.-module Network.Google.Resource.Directory.Resources.Features.Patch-    (-    -- * REST Resource-      ResourcesFeaturesPatchResource--    -- * Creating a Request-    , resourcesFeaturesPatch-    , ResourcesFeaturesPatch--    -- * Request Lenses-    , rfpPayload-    , rfpCustomer-    , rfpFeatureKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.features.patch@ method which the--- 'ResourcesFeaturesPatch' request conforms to.-type ResourcesFeaturesPatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "features" :>-                   Capture "featureKey" Text :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] Feature :> Patch '[JSON] Feature---- | Updates a feature. This method supports patch semantics.------ /See:/ 'resourcesFeaturesPatch' smart constructor.-data ResourcesFeaturesPatch =-  ResourcesFeaturesPatch'-    { _rfpPayload    :: !Feature-    , _rfpCustomer   :: !Text-    , _rfpFeatureKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesFeaturesPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rfpPayload'------ * 'rfpCustomer'------ * 'rfpFeatureKey'-resourcesFeaturesPatch-    :: Feature -- ^ 'rfpPayload'-    -> Text -- ^ 'rfpCustomer'-    -> Text -- ^ 'rfpFeatureKey'-    -> ResourcesFeaturesPatch-resourcesFeaturesPatch pRfpPayload_ pRfpCustomer_ pRfpFeatureKey_ =-  ResourcesFeaturesPatch'-    { _rfpPayload = pRfpPayload_-    , _rfpCustomer = pRfpCustomer_-    , _rfpFeatureKey = pRfpFeatureKey_-    }----- | Multipart request metadata.-rfpPayload :: Lens' ResourcesFeaturesPatch Feature-rfpPayload-  = lens _rfpPayload (\ s a -> s{_rfpPayload = a})---- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rfpCustomer :: Lens' ResourcesFeaturesPatch Text-rfpCustomer-  = lens _rfpCustomer (\ s a -> s{_rfpCustomer = a})---- | The unique ID of the feature to update.-rfpFeatureKey :: Lens' ResourcesFeaturesPatch Text-rfpFeatureKey-  = lens _rfpFeatureKey-      (\ s a -> s{_rfpFeatureKey = a})--instance GoogleRequest ResourcesFeaturesPatch where-        type Rs ResourcesFeaturesPatch = Feature-        type Scopes ResourcesFeaturesPatch =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar"]-        requestClient ResourcesFeaturesPatch'{..}-          = go _rfpCustomer _rfpFeatureKey (Just AltJSON)-              _rfpPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesFeaturesPatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Features/Rename.hs 
@@ -1,121 +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.Directory.Resources.Features.Rename--- 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)------ Renames a feature.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.features.rename@.-module Network.Google.Resource.Directory.Resources.Features.Rename-    (-    -- * REST Resource-      ResourcesFeaturesRenameResource--    -- * Creating a Request-    , resourcesFeaturesRename-    , ResourcesFeaturesRename--    -- * Request Lenses-    , rfrPayload-    , rfrCustomer-    , rfrOldName-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.features.rename@ method which the--- 'ResourcesFeaturesRename' request conforms to.-type ResourcesFeaturesRenameResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "features" :>-                   Capture "oldName" Text :>-                     "rename" :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] FeatureRename :> Post '[JSON] ()---- | Renames a feature.------ /See:/ 'resourcesFeaturesRename' smart constructor.-data ResourcesFeaturesRename =-  ResourcesFeaturesRename'-    { _rfrPayload  :: !FeatureRename-    , _rfrCustomer :: !Text-    , _rfrOldName  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesFeaturesRename' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rfrPayload'------ * 'rfrCustomer'------ * 'rfrOldName'-resourcesFeaturesRename-    :: FeatureRename -- ^ 'rfrPayload'-    -> Text -- ^ 'rfrCustomer'-    -> Text -- ^ 'rfrOldName'-    -> ResourcesFeaturesRename-resourcesFeaturesRename pRfrPayload_ pRfrCustomer_ pRfrOldName_ =-  ResourcesFeaturesRename'-    { _rfrPayload = pRfrPayload_-    , _rfrCustomer = pRfrCustomer_-    , _rfrOldName = pRfrOldName_-    }----- | Multipart request metadata.-rfrPayload :: Lens' ResourcesFeaturesRename FeatureRename-rfrPayload-  = lens _rfrPayload (\ s a -> s{_rfrPayload = a})---- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rfrCustomer :: Lens' ResourcesFeaturesRename Text-rfrCustomer-  = lens _rfrCustomer (\ s a -> s{_rfrCustomer = a})---- | The unique ID of the feature to rename.-rfrOldName :: Lens' ResourcesFeaturesRename Text-rfrOldName-  = lens _rfrOldName (\ s a -> s{_rfrOldName = a})--instance GoogleRequest ResourcesFeaturesRename where-        type Rs ResourcesFeaturesRename = ()-        type Scopes ResourcesFeaturesRename =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar"]-        requestClient ResourcesFeaturesRename'{..}-          = go _rfrCustomer _rfrOldName (Just AltJSON)-              _rfrPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesFeaturesRenameResource)-                      mempty
− gen/Network/Google/Resource/Directory/Resources/Features/Update.hs 
@@ -1,121 +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.Directory.Resources.Features.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 feature.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.resources.features.update@.-module Network.Google.Resource.Directory.Resources.Features.Update-    (-    -- * REST Resource-      ResourcesFeaturesUpdateResource--    -- * Creating a Request-    , resourcesFeaturesUpdate-    , ResourcesFeaturesUpdate--    -- * Request Lenses-    , rfuPayload-    , rfuCustomer-    , rfuFeatureKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.resources.features.update@ method which the--- 'ResourcesFeaturesUpdate' request conforms to.-type ResourcesFeaturesUpdateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "resources" :>-                 "features" :>-                   Capture "featureKey" Text :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] Feature :> Put '[JSON] Feature---- | Updates a feature.------ /See:/ 'resourcesFeaturesUpdate' smart constructor.-data ResourcesFeaturesUpdate =-  ResourcesFeaturesUpdate'-    { _rfuPayload    :: !Feature-    , _rfuCustomer   :: !Text-    , _rfuFeatureKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourcesFeaturesUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rfuPayload'------ * 'rfuCustomer'------ * 'rfuFeatureKey'-resourcesFeaturesUpdate-    :: Feature -- ^ 'rfuPayload'-    -> Text -- ^ 'rfuCustomer'-    -> Text -- ^ 'rfuFeatureKey'-    -> ResourcesFeaturesUpdate-resourcesFeaturesUpdate pRfuPayload_ pRfuCustomer_ pRfuFeatureKey_ =-  ResourcesFeaturesUpdate'-    { _rfuPayload = pRfuPayload_-    , _rfuCustomer = pRfuCustomer_-    , _rfuFeatureKey = pRfuFeatureKey_-    }----- | Multipart request metadata.-rfuPayload :: Lens' ResourcesFeaturesUpdate Feature-rfuPayload-  = lens _rfuPayload (\ s a -> s{_rfuPayload = a})---- | The unique ID for the customer\'s G Suite account. As an account--- administrator, you can also use the my_customer alias to represent your--- account\'s customer ID.-rfuCustomer :: Lens' ResourcesFeaturesUpdate Text-rfuCustomer-  = lens _rfuCustomer (\ s a -> s{_rfuCustomer = a})---- | The unique ID of the feature to update.-rfuFeatureKey :: Lens' ResourcesFeaturesUpdate Text-rfuFeatureKey-  = lens _rfuFeatureKey-      (\ s a -> s{_rfuFeatureKey = a})--instance GoogleRequest ResourcesFeaturesUpdate where-        type Rs ResourcesFeaturesUpdate = Feature-        type Scopes ResourcesFeaturesUpdate =-             '["https://www.googleapis.com/auth/admin.directory.resource.calendar"]-        requestClient ResourcesFeaturesUpdate'{..}-          = go _rfuCustomer _rfuFeatureKey (Just AltJSON)-              _rfuPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy ResourcesFeaturesUpdateResource)-                      mempty
− gen/Network/Google/Resource/Directory/RoleAssignments/Delete.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.Directory.RoleAssignments.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 role assignment.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.roleAssignments.delete@.-module Network.Google.Resource.Directory.RoleAssignments.Delete-    (-    -- * REST Resource-      RoleAssignmentsDeleteResource--    -- * Creating a Request-    , roleAssignmentsDelete-    , RoleAssignmentsDelete--    -- * Request Lenses-    , radCustomer-    , radRoleAssignmentId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.roleAssignments.delete@ method which the--- 'RoleAssignmentsDelete' request conforms to.-type RoleAssignmentsDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "roleassignments" :>-                 Capture "roleAssignmentId" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes a role assignment.------ /See:/ 'roleAssignmentsDelete' smart constructor.-data RoleAssignmentsDelete =-  RoleAssignmentsDelete'-    { _radCustomer         :: !Text-    , _radRoleAssignmentId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RoleAssignmentsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'radCustomer'------ * 'radRoleAssignmentId'-roleAssignmentsDelete-    :: Text -- ^ 'radCustomer'-    -> Text -- ^ 'radRoleAssignmentId'-    -> RoleAssignmentsDelete-roleAssignmentsDelete pRadCustomer_ pRadRoleAssignmentId_ =-  RoleAssignmentsDelete'-    {_radCustomer = pRadCustomer_, _radRoleAssignmentId = pRadRoleAssignmentId_}----- | Immutable ID of the G Suite account.-radCustomer :: Lens' RoleAssignmentsDelete Text-radCustomer-  = lens _radCustomer (\ s a -> s{_radCustomer = a})---- | Immutable ID of the role assignment.-radRoleAssignmentId :: Lens' RoleAssignmentsDelete Text-radRoleAssignmentId-  = lens _radRoleAssignmentId-      (\ s a -> s{_radRoleAssignmentId = a})--instance GoogleRequest RoleAssignmentsDelete where-        type Rs RoleAssignmentsDelete = ()-        type Scopes RoleAssignmentsDelete =-             '["https://www.googleapis.com/auth/admin.directory.rolemanagement"]-        requestClient RoleAssignmentsDelete'{..}-          = go _radCustomer _radRoleAssignmentId (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy RoleAssignmentsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/RoleAssignments/Get.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.Directory.RoleAssignments.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)------ Retrieve a role assignment.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.roleAssignments.get@.-module Network.Google.Resource.Directory.RoleAssignments.Get-    (-    -- * REST Resource-      RoleAssignmentsGetResource--    -- * Creating a Request-    , roleAssignmentsGet-    , RoleAssignmentsGet--    -- * Request Lenses-    , ragCustomer-    , ragRoleAssignmentId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.roleAssignments.get@ method which the--- 'RoleAssignmentsGet' request conforms to.-type RoleAssignmentsGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "roleassignments" :>-                 Capture "roleAssignmentId" Text :>-                   QueryParam "alt" AltJSON :>-                     Get '[JSON] RoleAssignment---- | Retrieve a role assignment.------ /See:/ 'roleAssignmentsGet' smart constructor.-data RoleAssignmentsGet =-  RoleAssignmentsGet'-    { _ragCustomer         :: !Text-    , _ragRoleAssignmentId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RoleAssignmentsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ragCustomer'------ * 'ragRoleAssignmentId'-roleAssignmentsGet-    :: Text -- ^ 'ragCustomer'-    -> Text -- ^ 'ragRoleAssignmentId'-    -> RoleAssignmentsGet-roleAssignmentsGet pRagCustomer_ pRagRoleAssignmentId_ =-  RoleAssignmentsGet'-    {_ragCustomer = pRagCustomer_, _ragRoleAssignmentId = pRagRoleAssignmentId_}----- | Immutable ID of the G Suite account.-ragCustomer :: Lens' RoleAssignmentsGet Text-ragCustomer-  = lens _ragCustomer (\ s a -> s{_ragCustomer = a})---- | Immutable ID of the role assignment.-ragRoleAssignmentId :: Lens' RoleAssignmentsGet Text-ragRoleAssignmentId-  = lens _ragRoleAssignmentId-      (\ s a -> s{_ragRoleAssignmentId = a})--instance GoogleRequest RoleAssignmentsGet where-        type Rs RoleAssignmentsGet = RoleAssignment-        type Scopes RoleAssignmentsGet =-             '["https://www.googleapis.com/auth/admin.directory.rolemanagement",-               "https://www.googleapis.com/auth/admin.directory.rolemanagement.readonly"]-        requestClient RoleAssignmentsGet'{..}-          = go _ragCustomer _ragRoleAssignmentId (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy RoleAssignmentsGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/RoleAssignments/Insert.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.Directory.RoleAssignments.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)------ Creates a role assignment.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.roleAssignments.insert@.-module Network.Google.Resource.Directory.RoleAssignments.Insert-    (-    -- * REST Resource-      RoleAssignmentsInsertResource--    -- * Creating a Request-    , roleAssignmentsInsert-    , RoleAssignmentsInsert--    -- * Request Lenses-    , raiPayload-    , raiCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.roleAssignments.insert@ method which the--- 'RoleAssignmentsInsert' request conforms to.-type RoleAssignmentsInsertResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "roleassignments" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] RoleAssignment :>-                     Post '[JSON] RoleAssignment---- | Creates a role assignment.------ /See:/ 'roleAssignmentsInsert' smart constructor.-data RoleAssignmentsInsert =-  RoleAssignmentsInsert'-    { _raiPayload  :: !RoleAssignment-    , _raiCustomer :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RoleAssignmentsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'raiPayload'------ * 'raiCustomer'-roleAssignmentsInsert-    :: RoleAssignment -- ^ 'raiPayload'-    -> Text -- ^ 'raiCustomer'-    -> RoleAssignmentsInsert-roleAssignmentsInsert pRaiPayload_ pRaiCustomer_ =-  RoleAssignmentsInsert'-    {_raiPayload = pRaiPayload_, _raiCustomer = pRaiCustomer_}----- | Multipart request metadata.-raiPayload :: Lens' RoleAssignmentsInsert RoleAssignment-raiPayload-  = lens _raiPayload (\ s a -> s{_raiPayload = a})---- | Immutable ID of the G Suite account.-raiCustomer :: Lens' RoleAssignmentsInsert Text-raiCustomer-  = lens _raiCustomer (\ s a -> s{_raiCustomer = a})--instance GoogleRequest RoleAssignmentsInsert where-        type Rs RoleAssignmentsInsert = RoleAssignment-        type Scopes RoleAssignmentsInsert =-             '["https://www.googleapis.com/auth/admin.directory.rolemanagement"]-        requestClient RoleAssignmentsInsert'{..}-          = go _raiCustomer (Just AltJSON) _raiPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy RoleAssignmentsInsertResource)-                      mempty
− gen/Network/Google/Resource/Directory/RoleAssignments/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.Directory.RoleAssignments.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)------ Retrieves a paginated list of all roleAssignments.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.roleAssignments.list@.-module Network.Google.Resource.Directory.RoleAssignments.List-    (-    -- * REST Resource-      RoleAssignmentsListResource--    -- * Creating a Request-    , roleAssignmentsList-    , RoleAssignmentsList--    -- * Request Lenses-    , ralRoleId-    , ralCustomer-    , ralPageToken-    , ralUserKey-    , ralMaxResults-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.roleAssignments.list@ method which the--- 'RoleAssignmentsList' request conforms to.-type RoleAssignmentsListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "roleassignments" :>-                 QueryParam "roleId" Text :>-                   QueryParam "pageToken" Text :>-                     QueryParam "userKey" Text :>-                       QueryParam "maxResults" (Textual Int32) :>-                         QueryParam "alt" AltJSON :>-                           Get '[JSON] RoleAssignments---- | Retrieves a paginated list of all roleAssignments.------ /See:/ 'roleAssignmentsList' smart constructor.-data RoleAssignmentsList =-  RoleAssignmentsList'-    { _ralRoleId     :: !(Maybe Text)-    , _ralCustomer   :: !Text-    , _ralPageToken  :: !(Maybe Text)-    , _ralUserKey    :: !(Maybe Text)-    , _ralMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RoleAssignmentsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ralRoleId'------ * 'ralCustomer'------ * 'ralPageToken'------ * 'ralUserKey'------ * 'ralMaxResults'-roleAssignmentsList-    :: Text -- ^ 'ralCustomer'-    -> RoleAssignmentsList-roleAssignmentsList pRalCustomer_ =-  RoleAssignmentsList'-    { _ralRoleId = Nothing-    , _ralCustomer = pRalCustomer_-    , _ralPageToken = Nothing-    , _ralUserKey = Nothing-    , _ralMaxResults = Nothing-    }----- | Immutable ID of a role. If included in the request, returns only role--- assignments containing this role ID.-ralRoleId :: Lens' RoleAssignmentsList (Maybe Text)-ralRoleId-  = lens _ralRoleId (\ s a -> s{_ralRoleId = a})---- | Immutable ID of the G Suite account.-ralCustomer :: Lens' RoleAssignmentsList Text-ralCustomer-  = lens _ralCustomer (\ s a -> s{_ralCustomer = a})---- | Token to specify the next page in the list.-ralPageToken :: Lens' RoleAssignmentsList (Maybe Text)-ralPageToken-  = lens _ralPageToken (\ s a -> s{_ralPageToken = a})---- | The user\'s primary email address, alias email address, or unique user--- ID. If included in the request, returns role assignments only for this--- user.-ralUserKey :: Lens' RoleAssignmentsList (Maybe Text)-ralUserKey-  = lens _ralUserKey (\ s a -> s{_ralUserKey = a})---- | Maximum number of results to return.-ralMaxResults :: Lens' RoleAssignmentsList (Maybe Int32)-ralMaxResults-  = lens _ralMaxResults-      (\ s a -> s{_ralMaxResults = a})-      . mapping _Coerce--instance GoogleRequest RoleAssignmentsList where-        type Rs RoleAssignmentsList = RoleAssignments-        type Scopes RoleAssignmentsList =-             '["https://www.googleapis.com/auth/admin.directory.rolemanagement",-               "https://www.googleapis.com/auth/admin.directory.rolemanagement.readonly"]-        requestClient RoleAssignmentsList'{..}-          = go _ralCustomer _ralRoleId _ralPageToken-              _ralUserKey-              _ralMaxResults-              (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy RoleAssignmentsListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Roles/Delete.hs 
@@ -1,99 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Roles.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 role.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.roles.delete@.-module Network.Google.Resource.Directory.Roles.Delete-    (-    -- * REST Resource-      RolesDeleteResource--    -- * Creating a Request-    , rolesDelete-    , RolesDelete--    -- * Request Lenses-    , rdRoleId-    , rdCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.roles.delete@ method which the--- 'RolesDelete' request conforms to.-type RolesDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "roles" :>-                 Capture "roleId" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes a role.------ /See:/ 'rolesDelete' smart constructor.-data RolesDelete =-  RolesDelete'-    { _rdRoleId   :: !Text-    , _rdCustomer :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RolesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rdRoleId'------ * 'rdCustomer'-rolesDelete-    :: Text -- ^ 'rdRoleId'-    -> Text -- ^ 'rdCustomer'-    -> RolesDelete-rolesDelete pRdRoleId_ pRdCustomer_ =-  RolesDelete' {_rdRoleId = pRdRoleId_, _rdCustomer = pRdCustomer_}----- | Immutable ID of the role.-rdRoleId :: Lens' RolesDelete Text-rdRoleId = lens _rdRoleId (\ s a -> s{_rdRoleId = a})---- | Immutable ID of the G Suite account.-rdCustomer :: Lens' RolesDelete Text-rdCustomer-  = lens _rdCustomer (\ s a -> s{_rdCustomer = a})--instance GoogleRequest RolesDelete where-        type Rs RolesDelete = ()-        type Scopes RolesDelete =-             '["https://www.googleapis.com/auth/admin.directory.rolemanagement"]-        requestClient RolesDelete'{..}-          = go _rdCustomer _rdRoleId (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy RolesDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Roles/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.Directory.Roles.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Retrieves a role.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.roles.get@.-module Network.Google.Resource.Directory.Roles.Get-    (-    -- * REST Resource-      RolesGetResource--    -- * Creating a Request-    , rolesGet-    , RolesGet--    -- * Request Lenses-    , rgRoleId-    , rgCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.roles.get@ method which the--- 'RolesGet' request conforms to.-type RolesGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "roles" :>-                 Capture "roleId" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Role---- | Retrieves a role.------ /See:/ 'rolesGet' smart constructor.-data RolesGet =-  RolesGet'-    { _rgRoleId   :: !Text-    , _rgCustomer :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RolesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rgRoleId'------ * 'rgCustomer'-rolesGet-    :: Text -- ^ 'rgRoleId'-    -> Text -- ^ 'rgCustomer'-    -> RolesGet-rolesGet pRgRoleId_ pRgCustomer_ =-  RolesGet' {_rgRoleId = pRgRoleId_, _rgCustomer = pRgCustomer_}----- | Immutable ID of the role.-rgRoleId :: Lens' RolesGet Text-rgRoleId = lens _rgRoleId (\ s a -> s{_rgRoleId = a})---- | Immutable ID of the G Suite account.-rgCustomer :: Lens' RolesGet Text-rgCustomer-  = lens _rgCustomer (\ s a -> s{_rgCustomer = a})--instance GoogleRequest RolesGet where-        type Rs RolesGet = Role-        type Scopes RolesGet =-             '["https://www.googleapis.com/auth/admin.directory.rolemanagement",-               "https://www.googleapis.com/auth/admin.directory.rolemanagement.readonly"]-        requestClient RolesGet'{..}-          = go _rgCustomer _rgRoleId (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy RolesGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/Roles/Insert.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.Directory.Roles.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)------ Creates a role.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.roles.insert@.-module Network.Google.Resource.Directory.Roles.Insert-    (-    -- * REST Resource-      RolesInsertResource--    -- * Creating a Request-    , rolesInsert-    , RolesInsert--    -- * Request Lenses-    , riPayload-    , riCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.roles.insert@ method which the--- 'RolesInsert' request conforms to.-type RolesInsertResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "roles" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Role :> Post '[JSON] Role---- | Creates a role.------ /See:/ 'rolesInsert' smart constructor.-data RolesInsert =-  RolesInsert'-    { _riPayload  :: !Role-    , _riCustomer :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RolesInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'riPayload'------ * 'riCustomer'-rolesInsert-    :: Role -- ^ 'riPayload'-    -> Text -- ^ 'riCustomer'-    -> RolesInsert-rolesInsert pRiPayload_ pRiCustomer_ =-  RolesInsert' {_riPayload = pRiPayload_, _riCustomer = pRiCustomer_}----- | Multipart request metadata.-riPayload :: Lens' RolesInsert Role-riPayload-  = lens _riPayload (\ s a -> s{_riPayload = a})---- | Immutable ID of the G Suite account.-riCustomer :: Lens' RolesInsert Text-riCustomer-  = lens _riCustomer (\ s a -> s{_riCustomer = a})--instance GoogleRequest RolesInsert where-        type Rs RolesInsert = Role-        type Scopes RolesInsert =-             '["https://www.googleapis.com/auth/admin.directory.rolemanagement"]-        requestClient RolesInsert'{..}-          = go _riCustomer (Just AltJSON) _riPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy RolesInsertResource)-                      mempty
− gen/Network/Google/Resource/Directory/Roles/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.Directory.Roles.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)------ Retrieves a paginated list of all the roles in a domain.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.roles.list@.-module Network.Google.Resource.Directory.Roles.List-    (-    -- * REST Resource-      RolesListResource--    -- * Creating a Request-    , rolesList-    , RolesList--    -- * Request Lenses-    , rlCustomer-    , rlPageToken-    , rlMaxResults-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.roles.list@ method which the--- 'RolesList' request conforms to.-type RolesListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "roles" :>-                 QueryParam "pageToken" Text :>-                   QueryParam "maxResults" (Textual Int32) :>-                     QueryParam "alt" AltJSON :> Get '[JSON] Roles---- | Retrieves a paginated list of all the roles in a domain.------ /See:/ 'rolesList' smart constructor.-data RolesList =-  RolesList'-    { _rlCustomer   :: !Text-    , _rlPageToken  :: !(Maybe Text)-    , _rlMaxResults :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RolesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rlCustomer'------ * 'rlPageToken'------ * 'rlMaxResults'-rolesList-    :: Text -- ^ 'rlCustomer'-    -> RolesList-rolesList pRlCustomer_ =-  RolesList'-    { _rlCustomer = pRlCustomer_-    , _rlPageToken = Nothing-    , _rlMaxResults = Nothing-    }----- | Immutable ID of the G Suite account.-rlCustomer :: Lens' RolesList Text-rlCustomer-  = lens _rlCustomer (\ s a -> s{_rlCustomer = a})---- | Token to specify the next page in the list.-rlPageToken :: Lens' RolesList (Maybe Text)-rlPageToken-  = lens _rlPageToken (\ s a -> s{_rlPageToken = a})---- | Maximum number of results to return.-rlMaxResults :: Lens' RolesList (Maybe Int32)-rlMaxResults-  = lens _rlMaxResults (\ s a -> s{_rlMaxResults = a})-      . mapping _Coerce--instance GoogleRequest RolesList where-        type Rs RolesList = Roles-        type Scopes RolesList =-             '["https://www.googleapis.com/auth/admin.directory.rolemanagement",-               "https://www.googleapis.com/auth/admin.directory.rolemanagement.readonly"]-        requestClient RolesList'{..}-          = go _rlCustomer _rlPageToken _rlMaxResults-              (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy RolesListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Roles/Patch.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.Directory.Roles.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 role. This method supports patch semantics.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.roles.patch@.-module Network.Google.Resource.Directory.Roles.Patch-    (-    -- * REST Resource-      RolesPatchResource--    -- * Creating a Request-    , rolesPatch-    , RolesPatch--    -- * Request Lenses-    , rpPayload-    , rpRoleId-    , rpCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.roles.patch@ method which the--- 'RolesPatch' request conforms to.-type RolesPatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "roles" :>-                 Capture "roleId" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Role :> Patch '[JSON] Role---- | Updates a role. This method supports patch semantics.------ /See:/ 'rolesPatch' smart constructor.-data RolesPatch =-  RolesPatch'-    { _rpPayload  :: !Role-    , _rpRoleId   :: !Text-    , _rpCustomer :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RolesPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rpPayload'------ * 'rpRoleId'------ * 'rpCustomer'-rolesPatch-    :: Role -- ^ 'rpPayload'-    -> Text -- ^ 'rpRoleId'-    -> Text -- ^ 'rpCustomer'-    -> RolesPatch-rolesPatch pRpPayload_ pRpRoleId_ pRpCustomer_ =-  RolesPatch'-    { _rpPayload = pRpPayload_-    , _rpRoleId = pRpRoleId_-    , _rpCustomer = pRpCustomer_-    }----- | Multipart request metadata.-rpPayload :: Lens' RolesPatch Role-rpPayload-  = lens _rpPayload (\ s a -> s{_rpPayload = a})---- | Immutable ID of the role.-rpRoleId :: Lens' RolesPatch Text-rpRoleId = lens _rpRoleId (\ s a -> s{_rpRoleId = a})---- | Immutable ID of the G Suite account.-rpCustomer :: Lens' RolesPatch Text-rpCustomer-  = lens _rpCustomer (\ s a -> s{_rpCustomer = a})--instance GoogleRequest RolesPatch where-        type Rs RolesPatch = Role-        type Scopes RolesPatch =-             '["https://www.googleapis.com/auth/admin.directory.rolemanagement"]-        requestClient RolesPatch'{..}-          = go _rpCustomer _rpRoleId (Just AltJSON) _rpPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy RolesPatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/Roles/Update.hs 
@@ -1,114 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Roles.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 role.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.roles.update@.-module Network.Google.Resource.Directory.Roles.Update-    (-    -- * REST Resource-      RolesUpdateResource--    -- * Creating a Request-    , rolesUpdate-    , RolesUpdate--    -- * Request Lenses-    , ruPayload-    , ruRoleId-    , ruCustomer-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.roles.update@ method which the--- 'RolesUpdate' request conforms to.-type RolesUpdateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customer" Text :>-               "roles" :>-                 Capture "roleId" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Role :> Put '[JSON] Role---- | Updates a role.------ /See:/ 'rolesUpdate' smart constructor.-data RolesUpdate =-  RolesUpdate'-    { _ruPayload  :: !Role-    , _ruRoleId   :: !Text-    , _ruCustomer :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RolesUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ruPayload'------ * 'ruRoleId'------ * 'ruCustomer'-rolesUpdate-    :: Role -- ^ 'ruPayload'-    -> Text -- ^ 'ruRoleId'-    -> Text -- ^ 'ruCustomer'-    -> RolesUpdate-rolesUpdate pRuPayload_ pRuRoleId_ pRuCustomer_ =-  RolesUpdate'-    { _ruPayload = pRuPayload_-    , _ruRoleId = pRuRoleId_-    , _ruCustomer = pRuCustomer_-    }----- | Multipart request metadata.-ruPayload :: Lens' RolesUpdate Role-ruPayload-  = lens _ruPayload (\ s a -> s{_ruPayload = a})---- | Immutable ID of the role.-ruRoleId :: Lens' RolesUpdate Text-ruRoleId = lens _ruRoleId (\ s a -> s{_ruRoleId = a})---- | Immutable ID of the G Suite account.-ruCustomer :: Lens' RolesUpdate Text-ruCustomer-  = lens _ruCustomer (\ s a -> s{_ruCustomer = a})--instance GoogleRequest RolesUpdate where-        type Rs RolesUpdate = Role-        type Scopes RolesUpdate =-             '["https://www.googleapis.com/auth/admin.directory.rolemanagement"]-        requestClient RolesUpdate'{..}-          = go _ruCustomer _ruRoleId (Just AltJSON) _ruPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy RolesUpdateResource)-                      mempty
− gen/Network/Google/Resource/Directory/Schemas/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.Directory.Schemas.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)------ Delete schema------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.schemas.delete@.-module Network.Google.Resource.Directory.Schemas.Delete-    (-    -- * REST Resource-      SchemasDeleteResource--    -- * Creating a Request-    , schemasDelete-    , SchemasDelete--    -- * Request Lenses-    , sdCustomerId-    , sdSchemaKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.schemas.delete@ method which the--- 'SchemasDelete' request conforms to.-type SchemasDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "schemas" :>-                 Capture "schemaKey" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Delete schema------ /See:/ 'schemasDelete' smart constructor.-data SchemasDelete =-  SchemasDelete'-    { _sdCustomerId :: !Text-    , _sdSchemaKey  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SchemasDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sdCustomerId'------ * 'sdSchemaKey'-schemasDelete-    :: Text -- ^ 'sdCustomerId'-    -> Text -- ^ 'sdSchemaKey'-    -> SchemasDelete-schemasDelete pSdCustomerId_ pSdSchemaKey_ =-  SchemasDelete' {_sdCustomerId = pSdCustomerId_, _sdSchemaKey = pSdSchemaKey_}----- | Immutable ID of the G Suite account-sdCustomerId :: Lens' SchemasDelete Text-sdCustomerId-  = lens _sdCustomerId (\ s a -> s{_sdCustomerId = a})---- | Name or immutable ID of the schema-sdSchemaKey :: Lens' SchemasDelete Text-sdSchemaKey-  = lens _sdSchemaKey (\ s a -> s{_sdSchemaKey = a})--instance GoogleRequest SchemasDelete where-        type Rs SchemasDelete = ()-        type Scopes SchemasDelete =-             '["https://www.googleapis.com/auth/admin.directory.userschema"]-        requestClient SchemasDelete'{..}-          = go _sdCustomerId _sdSchemaKey (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy SchemasDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Schemas/Get.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.Directory.Schemas.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)------ Retrieve schema------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.schemas.get@.-module Network.Google.Resource.Directory.Schemas.Get-    (-    -- * REST Resource-      SchemasGetResource--    -- * Creating a Request-    , schemasGet-    , SchemasGet--    -- * Request Lenses-    , sgCustomerId-    , sgSchemaKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.schemas.get@ method which the--- 'SchemasGet' request conforms to.-type SchemasGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "schemas" :>-                 Capture "schemaKey" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Schema---- | Retrieve schema------ /See:/ 'schemasGet' smart constructor.-data SchemasGet =-  SchemasGet'-    { _sgCustomerId :: !Text-    , _sgSchemaKey  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SchemasGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sgCustomerId'------ * 'sgSchemaKey'-schemasGet-    :: Text -- ^ 'sgCustomerId'-    -> Text -- ^ 'sgSchemaKey'-    -> SchemasGet-schemasGet pSgCustomerId_ pSgSchemaKey_ =-  SchemasGet' {_sgCustomerId = pSgCustomerId_, _sgSchemaKey = pSgSchemaKey_}----- | Immutable ID of the G Suite account-sgCustomerId :: Lens' SchemasGet Text-sgCustomerId-  = lens _sgCustomerId (\ s a -> s{_sgCustomerId = a})---- | Name or immutable ID of the schema-sgSchemaKey :: Lens' SchemasGet Text-sgSchemaKey-  = lens _sgSchemaKey (\ s a -> s{_sgSchemaKey = a})--instance GoogleRequest SchemasGet where-        type Rs SchemasGet = Schema-        type Scopes SchemasGet =-             '["https://www.googleapis.com/auth/admin.directory.userschema",-               "https://www.googleapis.com/auth/admin.directory.userschema.readonly"]-        requestClient SchemasGet'{..}-          = go _sgCustomerId _sgSchemaKey (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy SchemasGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/Schemas/Insert.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.Directory.Schemas.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)------ Create schema.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.schemas.insert@.-module Network.Google.Resource.Directory.Schemas.Insert-    (-    -- * REST Resource-      SchemasInsertResource--    -- * Creating a Request-    , schemasInsert-    , SchemasInsert--    -- * Request Lenses-    , siPayload-    , siCustomerId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.schemas.insert@ method which the--- 'SchemasInsert' request conforms to.-type SchemasInsertResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "schemas" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Schema :> Post '[JSON] Schema---- | Create schema.------ /See:/ 'schemasInsert' smart constructor.-data SchemasInsert =-  SchemasInsert'-    { _siPayload    :: !Schema-    , _siCustomerId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SchemasInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'siPayload'------ * 'siCustomerId'-schemasInsert-    :: Schema -- ^ 'siPayload'-    -> Text -- ^ 'siCustomerId'-    -> SchemasInsert-schemasInsert pSiPayload_ pSiCustomerId_ =-  SchemasInsert' {_siPayload = pSiPayload_, _siCustomerId = pSiCustomerId_}----- | Multipart request metadata.-siPayload :: Lens' SchemasInsert Schema-siPayload-  = lens _siPayload (\ s a -> s{_siPayload = a})---- | Immutable ID of the G Suite account-siCustomerId :: Lens' SchemasInsert Text-siCustomerId-  = lens _siCustomerId (\ s a -> s{_siCustomerId = a})--instance GoogleRequest SchemasInsert where-        type Rs SchemasInsert = Schema-        type Scopes SchemasInsert =-             '["https://www.googleapis.com/auth/admin.directory.userschema"]-        requestClient SchemasInsert'{..}-          = go _siCustomerId (Just AltJSON) _siPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy SchemasInsertResource)-                      mempty
− gen/Network/Google/Resource/Directory/Schemas/List.hs 
@@ -1,88 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Schemas.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)------ Retrieve all schemas for a customer------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.schemas.list@.-module Network.Google.Resource.Directory.Schemas.List-    (-    -- * REST Resource-      SchemasListResource--    -- * Creating a Request-    , schemasList-    , SchemasList--    -- * Request Lenses-    , slCustomerId-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.schemas.list@ method which the--- 'SchemasList' request conforms to.-type SchemasListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "schemas" :>-                 QueryParam "alt" AltJSON :> Get '[JSON] Schemas---- | Retrieve all schemas for a customer------ /See:/ 'schemasList' smart constructor.-newtype SchemasList =-  SchemasList'-    { _slCustomerId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SchemasList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'slCustomerId'-schemasList-    :: Text -- ^ 'slCustomerId'-    -> SchemasList-schemasList pSlCustomerId_ = SchemasList' {_slCustomerId = pSlCustomerId_}----- | Immutable ID of the G Suite account-slCustomerId :: Lens' SchemasList Text-slCustomerId-  = lens _slCustomerId (\ s a -> s{_slCustomerId = a})--instance GoogleRequest SchemasList where-        type Rs SchemasList = Schemas-        type Scopes SchemasList =-             '["https://www.googleapis.com/auth/admin.directory.userschema",-               "https://www.googleapis.com/auth/admin.directory.userschema.readonly"]-        requestClient SchemasList'{..}-          = go _slCustomerId (Just AltJSON) directoryService-          where go-                  = buildClient (Proxy :: Proxy SchemasListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Schemas/Patch.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.Directory.Schemas.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)------ Update schema. This method supports patch semantics.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.schemas.patch@.-module Network.Google.Resource.Directory.Schemas.Patch-    (-    -- * REST Resource-      SchemasPatchResource--    -- * Creating a Request-    , schemasPatch-    , SchemasPatch--    -- * Request Lenses-    , spPayload-    , spCustomerId-    , spSchemaKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.schemas.patch@ method which the--- 'SchemasPatch' request conforms to.-type SchemasPatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "schemas" :>-                 Capture "schemaKey" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Schema :> Patch '[JSON] Schema---- | Update schema. This method supports patch semantics.------ /See:/ 'schemasPatch' smart constructor.-data SchemasPatch =-  SchemasPatch'-    { _spPayload    :: !Schema-    , _spCustomerId :: !Text-    , _spSchemaKey  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SchemasPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'spPayload'------ * 'spCustomerId'------ * 'spSchemaKey'-schemasPatch-    :: Schema -- ^ 'spPayload'-    -> Text -- ^ 'spCustomerId'-    -> Text -- ^ 'spSchemaKey'-    -> SchemasPatch-schemasPatch pSpPayload_ pSpCustomerId_ pSpSchemaKey_ =-  SchemasPatch'-    { _spPayload = pSpPayload_-    , _spCustomerId = pSpCustomerId_-    , _spSchemaKey = pSpSchemaKey_-    }----- | Multipart request metadata.-spPayload :: Lens' SchemasPatch Schema-spPayload-  = lens _spPayload (\ s a -> s{_spPayload = a})---- | Immutable ID of the G Suite account-spCustomerId :: Lens' SchemasPatch Text-spCustomerId-  = lens _spCustomerId (\ s a -> s{_spCustomerId = a})---- | Name or immutable ID of the schema.-spSchemaKey :: Lens' SchemasPatch Text-spSchemaKey-  = lens _spSchemaKey (\ s a -> s{_spSchemaKey = a})--instance GoogleRequest SchemasPatch where-        type Rs SchemasPatch = Schema-        type Scopes SchemasPatch =-             '["https://www.googleapis.com/auth/admin.directory.userschema"]-        requestClient SchemasPatch'{..}-          = go _spCustomerId _spSchemaKey (Just AltJSON)-              _spPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy SchemasPatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/Schemas/Update.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.Directory.Schemas.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)------ Update schema------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.schemas.update@.-module Network.Google.Resource.Directory.Schemas.Update-    (-    -- * REST Resource-      SchemasUpdateResource--    -- * Creating a Request-    , schemasUpdate-    , SchemasUpdate--    -- * Request Lenses-    , suPayload-    , suCustomerId-    , suSchemaKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.schemas.update@ method which the--- 'SchemasUpdate' request conforms to.-type SchemasUpdateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "customer" :>-             Capture "customerId" Text :>-               "schemas" :>-                 Capture "schemaKey" Text :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Schema :> Put '[JSON] Schema---- | Update schema------ /See:/ 'schemasUpdate' smart constructor.-data SchemasUpdate =-  SchemasUpdate'-    { _suPayload    :: !Schema-    , _suCustomerId :: !Text-    , _suSchemaKey  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SchemasUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'suPayload'------ * 'suCustomerId'------ * 'suSchemaKey'-schemasUpdate-    :: Schema -- ^ 'suPayload'-    -> Text -- ^ 'suCustomerId'-    -> Text -- ^ 'suSchemaKey'-    -> SchemasUpdate-schemasUpdate pSuPayload_ pSuCustomerId_ pSuSchemaKey_ =-  SchemasUpdate'-    { _suPayload = pSuPayload_-    , _suCustomerId = pSuCustomerId_-    , _suSchemaKey = pSuSchemaKey_-    }----- | Multipart request metadata.-suPayload :: Lens' SchemasUpdate Schema-suPayload-  = lens _suPayload (\ s a -> s{_suPayload = a})---- | Immutable ID of the G Suite account-suCustomerId :: Lens' SchemasUpdate Text-suCustomerId-  = lens _suCustomerId (\ s a -> s{_suCustomerId = a})---- | Name or immutable ID of the schema.-suSchemaKey :: Lens' SchemasUpdate Text-suSchemaKey-  = lens _suSchemaKey (\ s a -> s{_suSchemaKey = a})--instance GoogleRequest SchemasUpdate where-        type Rs SchemasUpdate = Schema-        type Scopes SchemasUpdate =-             '["https://www.googleapis.com/auth/admin.directory.userschema"]-        requestClient SchemasUpdate'{..}-          = go _suCustomerId _suSchemaKey (Just AltJSON)-              _suPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy SchemasUpdateResource)-                      mempty
− gen/Network/Google/Resource/Directory/Tokens/Delete.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.Directory.Tokens.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)------ Delete all access tokens issued by a user for an application.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.tokens.delete@.-module Network.Google.Resource.Directory.Tokens.Delete-    (-    -- * REST Resource-      TokensDeleteResource--    -- * Creating a Request-    , tokensDelete-    , TokensDelete--    -- * Request Lenses-    , tdClientId-    , tdUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.tokens.delete@ method which the--- 'TokensDelete' request conforms to.-type TokensDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "tokens" :>-                 Capture "clientId" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Delete all access tokens issued by a user for an application.------ /See:/ 'tokensDelete' smart constructor.-data TokensDelete =-  TokensDelete'-    { _tdClientId :: !Text-    , _tdUserKey  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TokensDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tdClientId'------ * 'tdUserKey'-tokensDelete-    :: Text -- ^ 'tdClientId'-    -> Text -- ^ 'tdUserKey'-    -> TokensDelete-tokensDelete pTdClientId_ pTdUserKey_ =-  TokensDelete' {_tdClientId = pTdClientId_, _tdUserKey = pTdUserKey_}----- | The Client ID of the application the token is issued to.-tdClientId :: Lens' TokensDelete Text-tdClientId-  = lens _tdClientId (\ s a -> s{_tdClientId = a})---- | Identifies the user in the API request. The value can be the user\'s--- primary email address, alias email address, or unique user ID.-tdUserKey :: Lens' TokensDelete Text-tdUserKey-  = lens _tdUserKey (\ s a -> s{_tdUserKey = a})--instance GoogleRequest TokensDelete where-        type Rs TokensDelete = ()-        type Scopes TokensDelete =-             '["https://www.googleapis.com/auth/admin.directory.user.security"]-        requestClient TokensDelete'{..}-          = go _tdUserKey _tdClientId (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy TokensDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Tokens/Get.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.Directory.Tokens.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)------ Get information about an access token issued by a user.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.tokens.get@.-module Network.Google.Resource.Directory.Tokens.Get-    (-    -- * REST Resource-      TokensGetResource--    -- * Creating a Request-    , tokensGet-    , TokensGet--    -- * Request Lenses-    , tgClientId-    , tgUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.tokens.get@ method which the--- 'TokensGet' request conforms to.-type TokensGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "tokens" :>-                 Capture "clientId" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Token---- | Get information about an access token issued by a user.------ /See:/ 'tokensGet' smart constructor.-data TokensGet =-  TokensGet'-    { _tgClientId :: !Text-    , _tgUserKey  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TokensGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tgClientId'------ * 'tgUserKey'-tokensGet-    :: Text -- ^ 'tgClientId'-    -> Text -- ^ 'tgUserKey'-    -> TokensGet-tokensGet pTgClientId_ pTgUserKey_ =-  TokensGet' {_tgClientId = pTgClientId_, _tgUserKey = pTgUserKey_}----- | The Client ID of the application the token is issued to.-tgClientId :: Lens' TokensGet Text-tgClientId-  = lens _tgClientId (\ s a -> s{_tgClientId = a})---- | Identifies the user in the API request. The value can be the user\'s--- primary email address, alias email address, or unique user ID.-tgUserKey :: Lens' TokensGet Text-tgUserKey-  = lens _tgUserKey (\ s a -> s{_tgUserKey = a})--instance GoogleRequest TokensGet where-        type Rs TokensGet = Token-        type Scopes TokensGet =-             '["https://www.googleapis.com/auth/admin.directory.user.security"]-        requestClient TokensGet'{..}-          = go _tgUserKey _tgClientId (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy TokensGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/Tokens/List.hs 
@@ -1,90 +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.Directory.Tokens.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)------ Returns the set of tokens specified user has issued to 3rd party--- applications.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.tokens.list@.-module Network.Google.Resource.Directory.Tokens.List-    (-    -- * REST Resource-      TokensListResource--    -- * Creating a Request-    , tokensList-    , TokensList--    -- * Request Lenses-    , tlUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.tokens.list@ method which the--- 'TokensList' request conforms to.-type TokensListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "tokens" :>-                 QueryParam "alt" AltJSON :> Get '[JSON] Tokens---- | Returns the set of tokens specified user has issued to 3rd party--- applications.------ /See:/ 'tokensList' smart constructor.-newtype TokensList =-  TokensList'-    { _tlUserKey :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TokensList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tlUserKey'-tokensList-    :: Text -- ^ 'tlUserKey'-    -> TokensList-tokensList pTlUserKey_ = TokensList' {_tlUserKey = pTlUserKey_}----- | Identifies the user in the API request. The value can be the user\'s--- primary email address, alias email address, or unique user ID.-tlUserKey :: Lens' TokensList Text-tlUserKey-  = lens _tlUserKey (\ s a -> s{_tlUserKey = a})--instance GoogleRequest TokensList where-        type Rs TokensList = Tokens-        type Scopes TokensList =-             '["https://www.googleapis.com/auth/admin.directory.user.security"]-        requestClient TokensList'{..}-          = go _tlUserKey (Just AltJSON) directoryService-          where go-                  = buildClient (Proxy :: Proxy TokensListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/Aliases/Delete.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.Directory.Users.Aliases.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)------ Remove a alias for the user------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.aliases.delete@.-module Network.Google.Resource.Directory.Users.Aliases.Delete-    (-    -- * REST Resource-      UsersAliasesDeleteResource--    -- * Creating a Request-    , usersAliasesDelete-    , UsersAliasesDelete--    -- * Request Lenses-    , uadAlias-    , uadUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.aliases.delete@ method which the--- 'UsersAliasesDelete' request conforms to.-type UsersAliasesDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "aliases" :>-                 Capture "alias" Text :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Remove a alias for the user------ /See:/ 'usersAliasesDelete' smart constructor.-data UsersAliasesDelete =-  UsersAliasesDelete'-    { _uadAlias   :: !Text-    , _uadUserKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersAliasesDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uadAlias'------ * 'uadUserKey'-usersAliasesDelete-    :: Text -- ^ 'uadAlias'-    -> Text -- ^ 'uadUserKey'-    -> UsersAliasesDelete-usersAliasesDelete pUadAlias_ pUadUserKey_ =-  UsersAliasesDelete' {_uadAlias = pUadAlias_, _uadUserKey = pUadUserKey_}----- | The alias to be removed-uadAlias :: Lens' UsersAliasesDelete Text-uadAlias = lens _uadAlias (\ s a -> s{_uadAlias = a})---- | Email or immutable ID of the user-uadUserKey :: Lens' UsersAliasesDelete Text-uadUserKey-  = lens _uadUserKey (\ s a -> s{_uadUserKey = a})--instance GoogleRequest UsersAliasesDelete where-        type Rs UsersAliasesDelete = ()-        type Scopes UsersAliasesDelete =-             '["https://www.googleapis.com/auth/admin.directory.user",-               "https://www.googleapis.com/auth/admin.directory.user.alias"]-        requestClient UsersAliasesDelete'{..}-          = go _uadUserKey _uadAlias (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersAliasesDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/Aliases/Insert.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.Directory.Users.Aliases.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)------ Add a alias for the user------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.aliases.insert@.-module Network.Google.Resource.Directory.Users.Aliases.Insert-    (-    -- * REST Resource-      UsersAliasesInsertResource--    -- * Creating a Request-    , usersAliasesInsert-    , UsersAliasesInsert--    -- * Request Lenses-    , uaiPayload-    , uaiUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.aliases.insert@ method which the--- 'UsersAliasesInsert' request conforms to.-type UsersAliasesInsertResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "aliases" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Alias :> Post '[JSON] Alias---- | Add a alias for the user------ /See:/ 'usersAliasesInsert' smart constructor.-data UsersAliasesInsert =-  UsersAliasesInsert'-    { _uaiPayload :: !Alias-    , _uaiUserKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersAliasesInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uaiPayload'------ * 'uaiUserKey'-usersAliasesInsert-    :: Alias -- ^ 'uaiPayload'-    -> Text -- ^ 'uaiUserKey'-    -> UsersAliasesInsert-usersAliasesInsert pUaiPayload_ pUaiUserKey_ =-  UsersAliasesInsert' {_uaiPayload = pUaiPayload_, _uaiUserKey = pUaiUserKey_}----- | Multipart request metadata.-uaiPayload :: Lens' UsersAliasesInsert Alias-uaiPayload-  = lens _uaiPayload (\ s a -> s{_uaiPayload = a})---- | Email or immutable ID of the user-uaiUserKey :: Lens' UsersAliasesInsert Text-uaiUserKey-  = lens _uaiUserKey (\ s a -> s{_uaiUserKey = a})--instance GoogleRequest UsersAliasesInsert where-        type Rs UsersAliasesInsert = Alias-        type Scopes UsersAliasesInsert =-             '["https://www.googleapis.com/auth/admin.directory.user",-               "https://www.googleapis.com/auth/admin.directory.user.alias"]-        requestClient UsersAliasesInsert'{..}-          = go _uaiUserKey (Just AltJSON) _uaiPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersAliasesInsertResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/Aliases/List.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.Directory.Users.Aliases.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)------ List all aliases for a user------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.aliases.list@.-module Network.Google.Resource.Directory.Users.Aliases.List-    (-    -- * REST Resource-      UsersAliasesListResource--    -- * Creating a Request-    , usersAliasesList-    , UsersAliasesList--    -- * Request Lenses-    , ualEvent-    , ualUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.aliases.list@ method which the--- 'UsersAliasesList' request conforms to.-type UsersAliasesListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "aliases" :>-                 QueryParam "event" UsersAliasesListEvent :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Aliases---- | List all aliases for a user------ /See:/ 'usersAliasesList' smart constructor.-data UsersAliasesList =-  UsersAliasesList'-    { _ualEvent   :: !(Maybe UsersAliasesListEvent)-    , _ualUserKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersAliasesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ualEvent'------ * 'ualUserKey'-usersAliasesList-    :: Text -- ^ 'ualUserKey'-    -> UsersAliasesList-usersAliasesList pUalUserKey_ =-  UsersAliasesList' {_ualEvent = Nothing, _ualUserKey = pUalUserKey_}----- | Event on which subscription is intended (if subscribing)-ualEvent :: Lens' UsersAliasesList (Maybe UsersAliasesListEvent)-ualEvent = lens _ualEvent (\ s a -> s{_ualEvent = a})---- | Email or immutable ID of the user-ualUserKey :: Lens' UsersAliasesList Text-ualUserKey-  = lens _ualUserKey (\ s a -> s{_ualUserKey = a})--instance GoogleRequest UsersAliasesList where-        type Rs UsersAliasesList = Aliases-        type Scopes UsersAliasesList =-             '["https://www.googleapis.com/auth/admin.directory.user",-               "https://www.googleapis.com/auth/admin.directory.user.alias",-               "https://www.googleapis.com/auth/admin.directory.user.alias.readonly",-               "https://www.googleapis.com/auth/admin.directory.user.readonly"]-        requestClient UsersAliasesList'{..}-          = go _ualUserKey _ualEvent (Just AltJSON)-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersAliasesListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/Aliases/Watch.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.Directory.Users.Aliases.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)------ Watch for changes in user aliases list------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.aliases.watch@.-module Network.Google.Resource.Directory.Users.Aliases.Watch-    (-    -- * REST Resource-      UsersAliasesWatchResource--    -- * Creating a Request-    , usersAliasesWatch-    , UsersAliasesWatch--    -- * Request Lenses-    , uawEvent-    , uawPayload-    , uawUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.aliases.watch@ method which the--- 'UsersAliasesWatch' request conforms to.-type UsersAliasesWatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "aliases" :>-                 "watch" :>-                   QueryParam "event" UsersAliasesWatchEvent :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] Channel :> Post '[JSON] Channel---- | Watch for changes in user aliases list------ /See:/ 'usersAliasesWatch' smart constructor.-data UsersAliasesWatch =-  UsersAliasesWatch'-    { _uawEvent   :: !(Maybe UsersAliasesWatchEvent)-    , _uawPayload :: !Channel-    , _uawUserKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersAliasesWatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uawEvent'------ * 'uawPayload'------ * 'uawUserKey'-usersAliasesWatch-    :: Channel -- ^ 'uawPayload'-    -> Text -- ^ 'uawUserKey'-    -> UsersAliasesWatch-usersAliasesWatch pUawPayload_ pUawUserKey_ =-  UsersAliasesWatch'-    { _uawEvent = Nothing-    , _uawPayload = pUawPayload_-    , _uawUserKey = pUawUserKey_-    }----- | Event on which subscription is intended (if subscribing)-uawEvent :: Lens' UsersAliasesWatch (Maybe UsersAliasesWatchEvent)-uawEvent = lens _uawEvent (\ s a -> s{_uawEvent = a})---- | Multipart request metadata.-uawPayload :: Lens' UsersAliasesWatch Channel-uawPayload-  = lens _uawPayload (\ s a -> s{_uawPayload = a})---- | Email or immutable ID of the user-uawUserKey :: Lens' UsersAliasesWatch Text-uawUserKey-  = lens _uawUserKey (\ s a -> s{_uawUserKey = a})--instance GoogleRequest UsersAliasesWatch where-        type Rs UsersAliasesWatch = Channel-        type Scopes UsersAliasesWatch =-             '["https://www.googleapis.com/auth/admin.directory.user",-               "https://www.googleapis.com/auth/admin.directory.user.alias",-               "https://www.googleapis.com/auth/admin.directory.user.alias.readonly",-               "https://www.googleapis.com/auth/admin.directory.user.readonly"]-        requestClient UsersAliasesWatch'{..}-          = go _uawUserKey _uawEvent (Just AltJSON) _uawPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersAliasesWatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/Delete.hs 
@@ -1,86 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Users.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)------ Delete user------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.delete@.-module Network.Google.Resource.Directory.Users.Delete-    (-    -- * REST Resource-      UsersDeleteResource--    -- * Creating a Request-    , usersDelete-    , UsersDelete--    -- * Request Lenses-    , udUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.delete@ method which the--- 'UsersDelete' request conforms to.-type UsersDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Delete user------ /See:/ 'usersDelete' smart constructor.-newtype UsersDelete =-  UsersDelete'-    { _udUserKey :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'udUserKey'-usersDelete-    :: Text -- ^ 'udUserKey'-    -> UsersDelete-usersDelete pUdUserKey_ = UsersDelete' {_udUserKey = pUdUserKey_}----- | Email or immutable ID of the user-udUserKey :: Lens' UsersDelete Text-udUserKey-  = lens _udUserKey (\ s a -> s{_udUserKey = a})--instance GoogleRequest UsersDelete where-        type Rs UsersDelete = ()-        type Scopes UsersDelete =-             '["https://www.googleapis.com/auth/admin.directory.user"]-        requestClient UsersDelete'{..}-          = go _udUserKey (Just AltJSON) directoryService-          where go-                  = buildClient (Proxy :: Proxy UsersDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/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.Directory.Users.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)------ retrieve user------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.get@.-module Network.Google.Resource.Directory.Users.Get-    (-    -- * REST Resource-      UsersGetResource--    -- * Creating a Request-    , usersGet-    , UsersGet--    -- * Request Lenses-    , ugViewType-    , ugCustomFieldMask-    , ugProjection-    , ugUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.get@ method which the--- 'UsersGet' request conforms to.-type UsersGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               QueryParam "viewType" UsersGetViewType :>-                 QueryParam "customFieldMask" Text :>-                   QueryParam "projection" UsersGetProjection :>-                     QueryParam "alt" AltJSON :> Get '[JSON] User---- | retrieve user------ /See:/ 'usersGet' smart constructor.-data UsersGet =-  UsersGet'-    { _ugViewType        :: !UsersGetViewType-    , _ugCustomFieldMask :: !(Maybe Text)-    , _ugProjection      :: !UsersGetProjection-    , _ugUserKey         :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ugViewType'------ * 'ugCustomFieldMask'------ * 'ugProjection'------ * 'ugUserKey'-usersGet-    :: Text -- ^ 'ugUserKey'-    -> UsersGet-usersGet pUgUserKey_ =-  UsersGet'-    { _ugViewType = UGVTAdminView-    , _ugCustomFieldMask = Nothing-    , _ugProjection = UGPBasic-    , _ugUserKey = pUgUserKey_-    }----- | Whether to fetch the ADMIN_VIEW or DOMAIN_PUBLIC view of the user.-ugViewType :: Lens' UsersGet UsersGetViewType-ugViewType-  = lens _ugViewType (\ s a -> s{_ugViewType = a})---- | Comma-separated list of schema names. All fields from these schemas are--- fetched. This should only be set when projection=custom.-ugCustomFieldMask :: Lens' UsersGet (Maybe Text)-ugCustomFieldMask-  = lens _ugCustomFieldMask-      (\ s a -> s{_ugCustomFieldMask = a})---- | What subset of fields to fetch for this user.-ugProjection :: Lens' UsersGet UsersGetProjection-ugProjection-  = lens _ugProjection (\ s a -> s{_ugProjection = a})---- | Email or immutable ID of the user-ugUserKey :: Lens' UsersGet Text-ugUserKey-  = lens _ugUserKey (\ s a -> s{_ugUserKey = a})--instance GoogleRequest UsersGet where-        type Rs UsersGet = User-        type Scopes UsersGet =-             '["https://www.googleapis.com/auth/admin.directory.user",-               "https://www.googleapis.com/auth/admin.directory.user.readonly"]-        requestClient UsersGet'{..}-          = go _ugUserKey (Just _ugViewType) _ugCustomFieldMask-              (Just _ugProjection)-              (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy UsersGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/Insert.hs 
@@ -1,86 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Directory.Users.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)------ create user.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.insert@.-module Network.Google.Resource.Directory.Users.Insert-    (-    -- * REST Resource-      UsersInsertResource--    -- * Creating a Request-    , usersInsert-    , UsersInsert--    -- * Request Lenses-    , uiPayload-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.insert@ method which the--- 'UsersInsert' request conforms to.-type UsersInsertResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             QueryParam "alt" AltJSON :>-               ReqBody '[JSON] User :> Post '[JSON] User---- | create user.------ /See:/ 'usersInsert' smart constructor.-newtype UsersInsert =-  UsersInsert'-    { _uiPayload :: User-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uiPayload'-usersInsert-    :: User -- ^ 'uiPayload'-    -> UsersInsert-usersInsert pUiPayload_ = UsersInsert' {_uiPayload = pUiPayload_}----- | Multipart request metadata.-uiPayload :: Lens' UsersInsert User-uiPayload-  = lens _uiPayload (\ s a -> s{_uiPayload = a})--instance GoogleRequest UsersInsert where-        type Rs UsersInsert = User-        type Scopes UsersInsert =-             '["https://www.googleapis.com/auth/admin.directory.user"]-        requestClient UsersInsert'{..}-          = go (Just AltJSON) _uiPayload directoryService-          where go-                  = buildClient (Proxy :: Proxy UsersInsertResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/List.hs 
@@ -1,227 +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.Directory.Users.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)------ Retrieve either deleted users or all users in a domain (paginated)------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.list@.-module Network.Google.Resource.Directory.Users.List-    (-    -- * REST Resource-      UsersListResource--    -- * Creating a Request-    , usersList-    , UsersList--    -- * Request Lenses-    , ulEvent-    , ulOrderBy-    , ulViewType-    , ulCustomFieldMask-    , ulDomain-    , ulShowDeleted-    , ulSortOrder-    , ulCustomer-    , ulQuery-    , ulProjection-    , ulPageToken-    , ulMaxResults-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.list@ method which the--- 'UsersList' request conforms to.-type UsersListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             QueryParam "event" UsersListEvent :>-               QueryParam "orderBy" UsersListOrderBy :>-                 QueryParam "viewType" UsersListViewType :>-                   QueryParam "customFieldMask" Text :>-                     QueryParam "domain" Text :>-                       QueryParam "showDeleted" Text :>-                         QueryParam "sortOrder" UsersListSortOrder :>-                           QueryParam "customer" Text :>-                             QueryParam "query" Text :>-                               QueryParam "projection" UsersListProjection :>-                                 QueryParam "pageToken" Text :>-                                   QueryParam "maxResults" (Textual Int32) :>-                                     QueryParam "alt" AltJSON :>-                                       Get '[JSON] Users---- | Retrieve either deleted users or all users in a domain (paginated)------ /See:/ 'usersList' smart constructor.-data UsersList =-  UsersList'-    { _ulEvent           :: !(Maybe UsersListEvent)-    , _ulOrderBy         :: !(Maybe UsersListOrderBy)-    , _ulViewType        :: !UsersListViewType-    , _ulCustomFieldMask :: !(Maybe Text)-    , _ulDomain          :: !(Maybe Text)-    , _ulShowDeleted     :: !(Maybe Text)-    , _ulSortOrder       :: !(Maybe UsersListSortOrder)-    , _ulCustomer        :: !(Maybe Text)-    , _ulQuery           :: !(Maybe Text)-    , _ulProjection      :: !UsersListProjection-    , _ulPageToken       :: !(Maybe Text)-    , _ulMaxResults      :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ulEvent'------ * 'ulOrderBy'------ * 'ulViewType'------ * 'ulCustomFieldMask'------ * 'ulDomain'------ * 'ulShowDeleted'------ * 'ulSortOrder'------ * 'ulCustomer'------ * 'ulQuery'------ * 'ulProjection'------ * 'ulPageToken'------ * 'ulMaxResults'-usersList-    :: UsersList-usersList =-  UsersList'-    { _ulEvent = Nothing-    , _ulOrderBy = Nothing-    , _ulViewType = AdminView-    , _ulCustomFieldMask = Nothing-    , _ulDomain = Nothing-    , _ulShowDeleted = Nothing-    , _ulSortOrder = Nothing-    , _ulCustomer = Nothing-    , _ulQuery = Nothing-    , _ulProjection = ULPBasic-    , _ulPageToken = Nothing-    , _ulMaxResults = Nothing-    }----- | Event on which subscription is intended (if subscribing)-ulEvent :: Lens' UsersList (Maybe UsersListEvent)-ulEvent = lens _ulEvent (\ s a -> s{_ulEvent = a})---- | Column to use for sorting results-ulOrderBy :: Lens' UsersList (Maybe UsersListOrderBy)-ulOrderBy-  = lens _ulOrderBy (\ s a -> s{_ulOrderBy = a})---- | Whether to fetch the ADMIN_VIEW or DOMAIN_PUBLIC view of the user.-ulViewType :: Lens' UsersList UsersListViewType-ulViewType-  = lens _ulViewType (\ s a -> s{_ulViewType = a})---- | Comma-separated list of schema names. All fields from these schemas are--- fetched. This should only be set when projection=custom.-ulCustomFieldMask :: Lens' UsersList (Maybe Text)-ulCustomFieldMask-  = lens _ulCustomFieldMask-      (\ s a -> s{_ulCustomFieldMask = a})---- | Name of the domain. Fill this field to get users from only this domain.--- To return all users in a multi-domain fill customer field instead.-ulDomain :: Lens' UsersList (Maybe Text)-ulDomain = lens _ulDomain (\ s a -> s{_ulDomain = a})---- | If set to true retrieves the list of deleted users. Default is false-ulShowDeleted :: Lens' UsersList (Maybe Text)-ulShowDeleted-  = lens _ulShowDeleted-      (\ s a -> s{_ulShowDeleted = a})---- | Whether to return results in ascending or descending order.-ulSortOrder :: Lens' UsersList (Maybe UsersListSortOrder)-ulSortOrder-  = lens _ulSortOrder (\ s a -> s{_ulSortOrder = a})---- | Immutable ID of the G Suite account. In case of multi-domain, to fetch--- all users for a customer, fill this field instead of domain.-ulCustomer :: Lens' UsersList (Maybe Text)-ulCustomer-  = lens _ulCustomer (\ s a -> s{_ulCustomer = a})---- | Query string search. Should be of the form \"\". Complete documentation--- is at--- https:\/\/developers.google.com\/admin-sdk\/directory\/v1\/guides\/search-users-ulQuery :: Lens' UsersList (Maybe Text)-ulQuery = lens _ulQuery (\ s a -> s{_ulQuery = a})---- | What subset of fields to fetch for this user.-ulProjection :: Lens' UsersList UsersListProjection-ulProjection-  = lens _ulProjection (\ s a -> s{_ulProjection = a})---- | Token to specify next page in the list-ulPageToken :: Lens' UsersList (Maybe Text)-ulPageToken-  = lens _ulPageToken (\ s a -> s{_ulPageToken = a})---- | Maximum number of results to return. Default is 100. Max allowed is 500-ulMaxResults :: Lens' UsersList (Maybe Int32)-ulMaxResults-  = lens _ulMaxResults (\ s a -> s{_ulMaxResults = a})-      . mapping _Coerce--instance GoogleRequest UsersList where-        type Rs UsersList = Users-        type Scopes UsersList =-             '["https://www.googleapis.com/auth/admin.directory.user",-               "https://www.googleapis.com/auth/admin.directory.user.readonly"]-        requestClient UsersList'{..}-          = go _ulEvent _ulOrderBy (Just _ulViewType)-              _ulCustomFieldMask-              _ulDomain-              _ulShowDeleted-              _ulSortOrder-              _ulCustomer-              _ulQuery-              (Just _ulProjection)-              _ulPageToken-              _ulMaxResults-              (Just AltJSON)-              directoryService-          where go-                  = buildClient (Proxy :: Proxy UsersListResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/MakeAdmin.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.Directory.Users.MakeAdmin--- 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)------ change admin status of a user------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.makeAdmin@.-module Network.Google.Resource.Directory.Users.MakeAdmin-    (-    -- * REST Resource-      UsersMakeAdminResource--    -- * Creating a Request-    , usersMakeAdmin-    , UsersMakeAdmin--    -- * Request Lenses-    , umaPayload-    , umaUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.makeAdmin@ method which the--- 'UsersMakeAdmin' request conforms to.-type UsersMakeAdminResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "makeAdmin" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] UserMakeAdmin :> Post '[JSON] ()---- | change admin status of a user------ /See:/ 'usersMakeAdmin' smart constructor.-data UsersMakeAdmin =-  UsersMakeAdmin'-    { _umaPayload :: !UserMakeAdmin-    , _umaUserKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersMakeAdmin' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'umaPayload'------ * 'umaUserKey'-usersMakeAdmin-    :: UserMakeAdmin -- ^ 'umaPayload'-    -> Text -- ^ 'umaUserKey'-    -> UsersMakeAdmin-usersMakeAdmin pUmaPayload_ pUmaUserKey_ =-  UsersMakeAdmin' {_umaPayload = pUmaPayload_, _umaUserKey = pUmaUserKey_}----- | Multipart request metadata.-umaPayload :: Lens' UsersMakeAdmin UserMakeAdmin-umaPayload-  = lens _umaPayload (\ s a -> s{_umaPayload = a})---- | Email or immutable ID of the user as admin-umaUserKey :: Lens' UsersMakeAdmin Text-umaUserKey-  = lens _umaUserKey (\ s a -> s{_umaUserKey = a})--instance GoogleRequest UsersMakeAdmin where-        type Rs UsersMakeAdmin = ()-        type Scopes UsersMakeAdmin =-             '["https://www.googleapis.com/auth/admin.directory.user"]-        requestClient UsersMakeAdmin'{..}-          = go _umaUserKey (Just AltJSON) _umaPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy UsersMakeAdminResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/Patch.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.Directory.Users.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)------ update user. This method supports patch semantics.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.patch@.-module Network.Google.Resource.Directory.Users.Patch-    (-    -- * REST Resource-      UsersPatchResource--    -- * Creating a Request-    , usersPatch-    , UsersPatch--    -- * Request Lenses-    , upPayload-    , upUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.patch@ method which the--- 'UsersPatch' request conforms to.-type UsersPatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] User :> Patch '[JSON] User---- | update user. This method supports patch semantics.------ /See:/ 'usersPatch' smart constructor.-data UsersPatch =-  UsersPatch'-    { _upPayload :: !User-    , _upUserKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'upPayload'------ * 'upUserKey'-usersPatch-    :: User -- ^ 'upPayload'-    -> Text -- ^ 'upUserKey'-    -> UsersPatch-usersPatch pUpPayload_ pUpUserKey_ =-  UsersPatch' {_upPayload = pUpPayload_, _upUserKey = pUpUserKey_}----- | Multipart request metadata.-upPayload :: Lens' UsersPatch User-upPayload-  = lens _upPayload (\ s a -> s{_upPayload = a})---- | Email or immutable ID of the user. If ID, it should match with id of--- user object-upUserKey :: Lens' UsersPatch Text-upUserKey-  = lens _upUserKey (\ s a -> s{_upUserKey = a})--instance GoogleRequest UsersPatch where-        type Rs UsersPatch = User-        type Scopes UsersPatch =-             '["https://www.googleapis.com/auth/admin.directory.user"]-        requestClient UsersPatch'{..}-          = go _upUserKey (Just AltJSON) _upPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy UsersPatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/Photos/Delete.hs 
@@ -1,89 +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.Directory.Users.Photos.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)------ Remove photos for the user------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.photos.delete@.-module Network.Google.Resource.Directory.Users.Photos.Delete-    (-    -- * REST Resource-      UsersPhotosDeleteResource--    -- * Creating a Request-    , usersPhotosDelete-    , UsersPhotosDelete--    -- * Request Lenses-    , updUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.photos.delete@ method which the--- 'UsersPhotosDelete' request conforms to.-type UsersPhotosDeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "photos" :>-                 "thumbnail" :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Remove photos for the user------ /See:/ 'usersPhotosDelete' smart constructor.-newtype UsersPhotosDelete =-  UsersPhotosDelete'-    { _updUserKey :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersPhotosDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'updUserKey'-usersPhotosDelete-    :: Text -- ^ 'updUserKey'-    -> UsersPhotosDelete-usersPhotosDelete pUpdUserKey_ = UsersPhotosDelete' {_updUserKey = pUpdUserKey_}----- | Email or immutable ID of the user-updUserKey :: Lens' UsersPhotosDelete Text-updUserKey-  = lens _updUserKey (\ s a -> s{_updUserKey = a})--instance GoogleRequest UsersPhotosDelete where-        type Rs UsersPhotosDelete = ()-        type Scopes UsersPhotosDelete =-             '["https://www.googleapis.com/auth/admin.directory.user"]-        requestClient UsersPhotosDelete'{..}-          = go _updUserKey (Just AltJSON) directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersPhotosDeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/Photos/Get.hs 
@@ -1,89 +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.Directory.Users.Photos.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)------ Retrieve photo of a user------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.photos.get@.-module Network.Google.Resource.Directory.Users.Photos.Get-    (-    -- * REST Resource-      UsersPhotosGetResource--    -- * Creating a Request-    , usersPhotosGet-    , UsersPhotosGet--    -- * Request Lenses-    , upgUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.photos.get@ method which the--- 'UsersPhotosGet' request conforms to.-type UsersPhotosGetResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "photos" :>-                 "thumbnail" :>-                   QueryParam "alt" AltJSON :> Get '[JSON] UserPhoto---- | Retrieve photo of a user------ /See:/ 'usersPhotosGet' smart constructor.-newtype UsersPhotosGet =-  UsersPhotosGet'-    { _upgUserKey :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersPhotosGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'upgUserKey'-usersPhotosGet-    :: Text -- ^ 'upgUserKey'-    -> UsersPhotosGet-usersPhotosGet pUpgUserKey_ = UsersPhotosGet' {_upgUserKey = pUpgUserKey_}----- | Email or immutable ID of the user-upgUserKey :: Lens' UsersPhotosGet Text-upgUserKey-  = lens _upgUserKey (\ s a -> s{_upgUserKey = a})--instance GoogleRequest UsersPhotosGet where-        type Rs UsersPhotosGet = UserPhoto-        type Scopes UsersPhotosGet =-             '["https://www.googleapis.com/auth/admin.directory.user",-               "https://www.googleapis.com/auth/admin.directory.user.readonly"]-        requestClient UsersPhotosGet'{..}-          = go _upgUserKey (Just AltJSON) directoryService-          where go-                  = buildClient (Proxy :: Proxy UsersPhotosGetResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/Photos/Patch.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.Directory.Users.Photos.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)------ Add a photo for the user. This method supports patch semantics.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.photos.patch@.-module Network.Google.Resource.Directory.Users.Photos.Patch-    (-    -- * REST Resource-      UsersPhotosPatchResource--    -- * Creating a Request-    , usersPhotosPatch-    , UsersPhotosPatch--    -- * Request Lenses-    , uppPayload-    , uppUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.photos.patch@ method which the--- 'UsersPhotosPatch' request conforms to.-type UsersPhotosPatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "photos" :>-                 "thumbnail" :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] UserPhoto :> Patch '[JSON] UserPhoto---- | Add a photo for the user. This method supports patch semantics.------ /See:/ 'usersPhotosPatch' smart constructor.-data UsersPhotosPatch =-  UsersPhotosPatch'-    { _uppPayload :: !UserPhoto-    , _uppUserKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersPhotosPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uppPayload'------ * 'uppUserKey'-usersPhotosPatch-    :: UserPhoto -- ^ 'uppPayload'-    -> Text -- ^ 'uppUserKey'-    -> UsersPhotosPatch-usersPhotosPatch pUppPayload_ pUppUserKey_ =-  UsersPhotosPatch' {_uppPayload = pUppPayload_, _uppUserKey = pUppUserKey_}----- | Multipart request metadata.-uppPayload :: Lens' UsersPhotosPatch UserPhoto-uppPayload-  = lens _uppPayload (\ s a -> s{_uppPayload = a})---- | Email or immutable ID of the user-uppUserKey :: Lens' UsersPhotosPatch Text-uppUserKey-  = lens _uppUserKey (\ s a -> s{_uppUserKey = a})--instance GoogleRequest UsersPhotosPatch where-        type Rs UsersPhotosPatch = UserPhoto-        type Scopes UsersPhotosPatch =-             '["https://www.googleapis.com/auth/admin.directory.user"]-        requestClient UsersPhotosPatch'{..}-          = go _uppUserKey (Just AltJSON) _uppPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersPhotosPatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/Photos/Update.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.Directory.Users.Photos.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)------ Add a photo for the user------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.photos.update@.-module Network.Google.Resource.Directory.Users.Photos.Update-    (-    -- * REST Resource-      UsersPhotosUpdateResource--    -- * Creating a Request-    , usersPhotosUpdate-    , UsersPhotosUpdate--    -- * Request Lenses-    , upuPayload-    , upuUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.photos.update@ method which the--- 'UsersPhotosUpdate' request conforms to.-type UsersPhotosUpdateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "photos" :>-                 "thumbnail" :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] UserPhoto :> Put '[JSON] UserPhoto---- | Add a photo for the user------ /See:/ 'usersPhotosUpdate' smart constructor.-data UsersPhotosUpdate =-  UsersPhotosUpdate'-    { _upuPayload :: !UserPhoto-    , _upuUserKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersPhotosUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'upuPayload'------ * 'upuUserKey'-usersPhotosUpdate-    :: UserPhoto -- ^ 'upuPayload'-    -> Text -- ^ 'upuUserKey'-    -> UsersPhotosUpdate-usersPhotosUpdate pUpuPayload_ pUpuUserKey_ =-  UsersPhotosUpdate' {_upuPayload = pUpuPayload_, _upuUserKey = pUpuUserKey_}----- | Multipart request metadata.-upuPayload :: Lens' UsersPhotosUpdate UserPhoto-upuPayload-  = lens _upuPayload (\ s a -> s{_upuPayload = a})---- | Email or immutable ID of the user-upuUserKey :: Lens' UsersPhotosUpdate Text-upuUserKey-  = lens _upuUserKey (\ s a -> s{_upuUserKey = a})--instance GoogleRequest UsersPhotosUpdate where-        type Rs UsersPhotosUpdate = UserPhoto-        type Scopes UsersPhotosUpdate =-             '["https://www.googleapis.com/auth/admin.directory.user"]-        requestClient UsersPhotosUpdate'{..}-          = go _upuUserKey (Just AltJSON) _upuPayload-              directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersPhotosUpdateResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/Undelete.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.Directory.Users.Undelete--- 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)------ Undelete a deleted user------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.undelete@.-module Network.Google.Resource.Directory.Users.Undelete-    (-    -- * REST Resource-      UsersUndeleteResource--    -- * Creating a Request-    , usersUndelete-    , UsersUndelete--    -- * Request Lenses-    , uuPayload-    , uuUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.undelete@ method which the--- 'UsersUndelete' request conforms to.-type UsersUndeleteResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "undelete" :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] UserUndelete :> Post '[JSON] ()---- | Undelete a deleted user------ /See:/ 'usersUndelete' smart constructor.-data UsersUndelete =-  UsersUndelete'-    { _uuPayload :: !UserUndelete-    , _uuUserKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersUndelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uuPayload'------ * 'uuUserKey'-usersUndelete-    :: UserUndelete -- ^ 'uuPayload'-    -> Text -- ^ 'uuUserKey'-    -> UsersUndelete-usersUndelete pUuPayload_ pUuUserKey_ =-  UsersUndelete' {_uuPayload = pUuPayload_, _uuUserKey = pUuUserKey_}----- | Multipart request metadata.-uuPayload :: Lens' UsersUndelete UserUndelete-uuPayload-  = lens _uuPayload (\ s a -> s{_uuPayload = a})---- | The immutable id of the user-uuUserKey :: Lens' UsersUndelete Text-uuUserKey-  = lens _uuUserKey (\ s a -> s{_uuUserKey = a})--instance GoogleRequest UsersUndelete where-        type Rs UsersUndelete = ()-        type Scopes UsersUndelete =-             '["https://www.googleapis.com/auth/admin.directory.user"]-        requestClient UsersUndelete'{..}-          = go _uuUserKey (Just AltJSON) _uuPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy UsersUndeleteResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/Update.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.Directory.Users.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)------ update user------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.update@.-module Network.Google.Resource.Directory.Users.Update-    (-    -- * REST Resource-      UsersUpdateResource--    -- * Creating a Request-    , usersUpdate-    , UsersUpdate--    -- * Request Lenses-    , uPayload-    , uUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.update@ method which the--- 'UsersUpdate' request conforms to.-type UsersUpdateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] User :> Put '[JSON] User---- | update user------ /See:/ 'usersUpdate' smart constructor.-data UsersUpdate =-  UsersUpdate'-    { _uPayload :: !User-    , _uUserKey :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UsersUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uPayload'------ * 'uUserKey'-usersUpdate-    :: User -- ^ 'uPayload'-    -> Text -- ^ 'uUserKey'-    -> UsersUpdate-usersUpdate pUPayload_ pUUserKey_ =-  UsersUpdate' {_uPayload = pUPayload_, _uUserKey = pUUserKey_}----- | Multipart request metadata.-uPayload :: Lens' UsersUpdate User-uPayload = lens _uPayload (\ s a -> s{_uPayload = a})---- | Email or immutable ID of the user. If ID, it should match with id of--- user object-uUserKey :: Lens' UsersUpdate Text-uUserKey = lens _uUserKey (\ s a -> s{_uUserKey = a})--instance GoogleRequest UsersUpdate where-        type Rs UsersUpdate = User-        type Scopes UsersUpdate =-             '["https://www.googleapis.com/auth/admin.directory.user"]-        requestClient UsersUpdate'{..}-          = go _uUserKey (Just AltJSON) _uPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy UsersUpdateResource)-                      mempty
− gen/Network/Google/Resource/Directory/Users/Watch.hs 
@@ -1,241 +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.Directory.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)------ Watch for changes in users list------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.users.watch@.-module Network.Google.Resource.Directory.Users.Watch-    (-    -- * REST Resource-      UsersWatchResource--    -- * Creating a Request-    , usersWatch-    , UsersWatch--    -- * Request Lenses-    , uwEvent-    , uwOrderBy-    , uwViewType-    , uwCustomFieldMask-    , uwDomain-    , uwShowDeleted-    , uwPayload-    , uwSortOrder-    , uwCustomer-    , uwQuery-    , uwProjection-    , uwPageToken-    , uwMaxResults-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.users.watch@ method which the--- 'UsersWatch' request conforms to.-type UsersWatchResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             "watch" :>-               QueryParam "event" UsersWatchEvent :>-                 QueryParam "orderBy" UsersWatchOrderBy :>-                   QueryParam "viewType" UsersWatchViewType :>-                     QueryParam "customFieldMask" Text :>-                       QueryParam "domain" Text :>-                         QueryParam "showDeleted" Text :>-                           QueryParam "sortOrder" UsersWatchSortOrder :>-                             QueryParam "customer" Text :>-                               QueryParam "query" Text :>-                                 QueryParam "projection" UsersWatchProjection :>-                                   QueryParam "pageToken" Text :>-                                     QueryParam "maxResults" (Textual Int32) :>-                                       QueryParam "alt" AltJSON :>-                                         ReqBody '[JSON] Channel :>-                                           Post '[JSON] Channel---- | Watch for changes in users list------ /See:/ 'usersWatch' smart constructor.-data UsersWatch =-  UsersWatch'-    { _uwEvent           :: !(Maybe UsersWatchEvent)-    , _uwOrderBy         :: !(Maybe UsersWatchOrderBy)-    , _uwViewType        :: !UsersWatchViewType-    , _uwCustomFieldMask :: !(Maybe Text)-    , _uwDomain          :: !(Maybe Text)-    , _uwShowDeleted     :: !(Maybe Text)-    , _uwPayload         :: !Channel-    , _uwSortOrder       :: !(Maybe UsersWatchSortOrder)-    , _uwCustomer        :: !(Maybe Text)-    , _uwQuery           :: !(Maybe Text)-    , _uwProjection      :: !UsersWatchProjection-    , _uwPageToken       :: !(Maybe Text)-    , _uwMaxResults      :: !(Maybe (Textual Int32))-    }-  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:------ * 'uwEvent'------ * 'uwOrderBy'------ * 'uwViewType'------ * 'uwCustomFieldMask'------ * 'uwDomain'------ * 'uwShowDeleted'------ * 'uwPayload'------ * 'uwSortOrder'------ * 'uwCustomer'------ * 'uwQuery'------ * 'uwProjection'------ * 'uwPageToken'------ * 'uwMaxResults'-usersWatch-    :: Channel -- ^ 'uwPayload'-    -> UsersWatch-usersWatch pUwPayload_ =-  UsersWatch'-    { _uwEvent = Nothing-    , _uwOrderBy = Nothing-    , _uwViewType = UWVTAdminView-    , _uwCustomFieldMask = Nothing-    , _uwDomain = Nothing-    , _uwShowDeleted = Nothing-    , _uwPayload = pUwPayload_-    , _uwSortOrder = Nothing-    , _uwCustomer = Nothing-    , _uwQuery = Nothing-    , _uwProjection = UWPBasic-    , _uwPageToken = Nothing-    , _uwMaxResults = Nothing-    }----- | Event on which subscription is intended (if subscribing)-uwEvent :: Lens' UsersWatch (Maybe UsersWatchEvent)-uwEvent = lens _uwEvent (\ s a -> s{_uwEvent = a})---- | Column to use for sorting results-uwOrderBy :: Lens' UsersWatch (Maybe UsersWatchOrderBy)-uwOrderBy-  = lens _uwOrderBy (\ s a -> s{_uwOrderBy = a})---- | Whether to fetch the ADMIN_VIEW or DOMAIN_PUBLIC view of the user.-uwViewType :: Lens' UsersWatch UsersWatchViewType-uwViewType-  = lens _uwViewType (\ s a -> s{_uwViewType = a})---- | Comma-separated list of schema names. All fields from these schemas are--- fetched. This should only be set when projection=custom.-uwCustomFieldMask :: Lens' UsersWatch (Maybe Text)-uwCustomFieldMask-  = lens _uwCustomFieldMask-      (\ s a -> s{_uwCustomFieldMask = a})---- | Name of the domain. Fill this field to get users from only this domain.--- To return all users in a multi-domain fill customer field instead.-uwDomain :: Lens' UsersWatch (Maybe Text)-uwDomain = lens _uwDomain (\ s a -> s{_uwDomain = a})---- | If set to true retrieves the list of deleted users. Default is false-uwShowDeleted :: Lens' UsersWatch (Maybe Text)-uwShowDeleted-  = lens _uwShowDeleted-      (\ s a -> s{_uwShowDeleted = a})---- | Multipart request metadata.-uwPayload :: Lens' UsersWatch Channel-uwPayload-  = lens _uwPayload (\ s a -> s{_uwPayload = a})---- | Whether to return results in ascending or descending order.-uwSortOrder :: Lens' UsersWatch (Maybe UsersWatchSortOrder)-uwSortOrder-  = lens _uwSortOrder (\ s a -> s{_uwSortOrder = a})---- | Immutable ID of the G Suite account. In case of multi-domain, to fetch--- all users for a customer, fill this field instead of domain.-uwCustomer :: Lens' UsersWatch (Maybe Text)-uwCustomer-  = lens _uwCustomer (\ s a -> s{_uwCustomer = a})---- | Query string search. Should be of the form \"\". Complete documentation--- is at--- https:\/\/developers.google.com\/admin-sdk\/directory\/v1\/guides\/search-users-uwQuery :: Lens' UsersWatch (Maybe Text)-uwQuery = lens _uwQuery (\ s a -> s{_uwQuery = a})---- | What subset of fields to fetch for this user.-uwProjection :: Lens' UsersWatch UsersWatchProjection-uwProjection-  = lens _uwProjection (\ s a -> s{_uwProjection = a})---- | Token to specify next page in the list-uwPageToken :: Lens' UsersWatch (Maybe Text)-uwPageToken-  = lens _uwPageToken (\ s a -> s{_uwPageToken = a})---- | Maximum number of results to return. Default is 100. Max allowed is 500-uwMaxResults :: Lens' UsersWatch (Maybe Int32)-uwMaxResults-  = lens _uwMaxResults (\ s a -> s{_uwMaxResults = a})-      . mapping _Coerce--instance GoogleRequest UsersWatch where-        type Rs UsersWatch = Channel-        type Scopes UsersWatch =-             '["https://www.googleapis.com/auth/admin.directory.user",-               "https://www.googleapis.com/auth/admin.directory.user.readonly"]-        requestClient UsersWatch'{..}-          = go _uwEvent _uwOrderBy (Just _uwViewType)-              _uwCustomFieldMask-              _uwDomain-              _uwShowDeleted-              _uwSortOrder-              _uwCustomer-              _uwQuery-              (Just _uwProjection)-              _uwPageToken-              _uwMaxResults-              (Just AltJSON)-              _uwPayload-              directoryService-          where go-                  = buildClient (Proxy :: Proxy UsersWatchResource)-                      mempty
− gen/Network/Google/Resource/Directory/VerificationCodes/Generate.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.Directory.VerificationCodes.Generate--- 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)------ Generate new backup verification codes for the user.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.verificationCodes.generate@.-module Network.Google.Resource.Directory.VerificationCodes.Generate-    (-    -- * REST Resource-      VerificationCodesGenerateResource--    -- * Creating a Request-    , verificationCodesGenerate-    , VerificationCodesGenerate--    -- * Request Lenses-    , vcgUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.verificationCodes.generate@ method which the--- 'VerificationCodesGenerate' request conforms to.-type VerificationCodesGenerateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "verificationCodes" :>-                 "generate" :>-                   QueryParam "alt" AltJSON :> Post '[JSON] ()---- | Generate new backup verification codes for the user.------ /See:/ 'verificationCodesGenerate' smart constructor.-newtype VerificationCodesGenerate =-  VerificationCodesGenerate'-    { _vcgUserKey :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VerificationCodesGenerate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vcgUserKey'-verificationCodesGenerate-    :: Text -- ^ 'vcgUserKey'-    -> VerificationCodesGenerate-verificationCodesGenerate pVcgUserKey_ =-  VerificationCodesGenerate' {_vcgUserKey = pVcgUserKey_}----- | Email or immutable ID of the user-vcgUserKey :: Lens' VerificationCodesGenerate Text-vcgUserKey-  = lens _vcgUserKey (\ s a -> s{_vcgUserKey = a})--instance GoogleRequest VerificationCodesGenerate-         where-        type Rs VerificationCodesGenerate = ()-        type Scopes VerificationCodesGenerate =-             '["https://www.googleapis.com/auth/admin.directory.user.security"]-        requestClient VerificationCodesGenerate'{..}-          = go _vcgUserKey (Just AltJSON) directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy VerificationCodesGenerateResource)-                      mempty
− gen/Network/Google/Resource/Directory/VerificationCodes/Invalidate.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.Directory.VerificationCodes.Invalidate--- 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)------ Invalidate the current backup verification codes for the user.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.verificationCodes.invalidate@.-module Network.Google.Resource.Directory.VerificationCodes.Invalidate-    (-    -- * REST Resource-      VerificationCodesInvalidateResource--    -- * Creating a Request-    , verificationCodesInvalidate-    , VerificationCodesInvalidate--    -- * Request Lenses-    , vciUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.verificationCodes.invalidate@ method which the--- 'VerificationCodesInvalidate' request conforms to.-type VerificationCodesInvalidateResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "verificationCodes" :>-                 "invalidate" :>-                   QueryParam "alt" AltJSON :> Post '[JSON] ()---- | Invalidate the current backup verification codes for the user.------ /See:/ 'verificationCodesInvalidate' smart constructor.-newtype VerificationCodesInvalidate =-  VerificationCodesInvalidate'-    { _vciUserKey :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VerificationCodesInvalidate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vciUserKey'-verificationCodesInvalidate-    :: Text -- ^ 'vciUserKey'-    -> VerificationCodesInvalidate-verificationCodesInvalidate pVciUserKey_ =-  VerificationCodesInvalidate' {_vciUserKey = pVciUserKey_}----- | Email or immutable ID of the user-vciUserKey :: Lens' VerificationCodesInvalidate Text-vciUserKey-  = lens _vciUserKey (\ s a -> s{_vciUserKey = a})--instance GoogleRequest VerificationCodesInvalidate-         where-        type Rs VerificationCodesInvalidate = ()-        type Scopes VerificationCodesInvalidate =-             '["https://www.googleapis.com/auth/admin.directory.user.security"]-        requestClient VerificationCodesInvalidate'{..}-          = go _vciUserKey (Just AltJSON) directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy VerificationCodesInvalidateResource)-                      mempty
− gen/Network/Google/Resource/Directory/VerificationCodes/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.Directory.VerificationCodes.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)------ Returns the current set of valid backup verification codes for the--- specified user.------ /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @directory.verificationCodes.list@.-module Network.Google.Resource.Directory.VerificationCodes.List-    (-    -- * REST Resource-      VerificationCodesListResource--    -- * Creating a Request-    , verificationCodesList-    , VerificationCodesList--    -- * Request Lenses-    , vclUserKey-    ) where--import           Network.Google.Directory.Types-import           Network.Google.Prelude---- | A resource alias for @directory.verificationCodes.list@ method which the--- 'VerificationCodesList' request conforms to.-type VerificationCodesListResource =-     "admin" :>-       "directory" :>-         "v1" :>-           "users" :>-             Capture "userKey" Text :>-               "verificationCodes" :>-                 QueryParam "alt" AltJSON :>-                   Get '[JSON] VerificationCodes---- | Returns the current set of valid backup verification codes for the--- specified user.------ /See:/ 'verificationCodesList' smart constructor.-newtype VerificationCodesList =-  VerificationCodesList'-    { _vclUserKey :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VerificationCodesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vclUserKey'-verificationCodesList-    :: Text -- ^ 'vclUserKey'-    -> VerificationCodesList-verificationCodesList pVclUserKey_ =-  VerificationCodesList' {_vclUserKey = pVclUserKey_}----- | Identifies the user in the API request. The value can be the user\'s--- primary email address, alias email address, or unique user ID.-vclUserKey :: Lens' VerificationCodesList Text-vclUserKey-  = lens _vclUserKey (\ s a -> s{_vclUserKey = a})--instance GoogleRequest VerificationCodesList where-        type Rs VerificationCodesList = VerificationCodes-        type Scopes VerificationCodesList =-             '["https://www.googleapis.com/auth/admin.directory.user.security"]-        requestClient VerificationCodesList'{..}-          = go _vclUserKey (Just AltJSON) directoryService-          where go-                  = buildClient-                      (Proxy :: Proxy VerificationCodesListResource)-                      mempty
gogol-admin-directory.cabal view
@@ -1,159 +1,186 @@-name:                  gogol-admin-directory-version:               0.5.0-synopsis:              Google Admin Directory SDK.-homepage:              https://github.com/brendanhay/gogol-bug-reports:           https://github.com/brendanhay/gogol/issues-license:               OtherLicense-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2015-2016 Brendan Hay-category:              Network, Google, Cloud-build-type:            Simple-cabal-version:         >= 1.10-extra-source-files:    README.md src/.gitkeep+cabal-version:      2.2+name:               gogol-admin-directory+version:            1.0.0+synopsis:           Google Admin SDK.+homepage:           https://github.com/brendanhay/gogol+bug-reports:        https://github.com/brendanhay/gogol/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+gogol@gmail.com>, Toni Cebrián <toni@tonicebrian.com> +copyright:          Copyright (c) 2015-2025 Brendan Hay+category:           Google+build-type:         Simple+extra-source-files:+  README.md+  src/.gitkeep+ description:-    Manages enterprise resources such as users and groups, administrative-    notifications, security features, and more.-    .-    /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 @directory_v1@-    of the API.+  Admin SDK lets administrators of enterprise domains to view and manage resources like user, groups etc. It also provides audit and usage reports of domain.+  .+  /Warning:/ This is an experimental prototype/preview release which is still+  under exploratory development and not intended for public use, caveat emptor!+  .+  This library is compatible with version @directory_v1@+  of the API.  source-repository head-    type:     git-    location: git://github.com/brendanhay/gogol.git+  type:     git+  location: git://github.com/brendanhay/gogol.git+  subdir:   gogol-admin-directory +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.Directory-        , Network.Google.Directory.Types-        , Network.Google.Resource.Admin.Channels.Stop-        , Network.Google.Resource.Directory.Asps.Delete-        , Network.Google.Resource.Directory.Asps.Get-        , Network.Google.Resource.Directory.Asps.List-        , Network.Google.Resource.Directory.ChromeosDevices.Action-        , Network.Google.Resource.Directory.ChromeosDevices.Get-        , Network.Google.Resource.Directory.ChromeosDevices.List-        , Network.Google.Resource.Directory.ChromeosDevices.MoveDevicesToOu-        , Network.Google.Resource.Directory.ChromeosDevices.Patch-        , Network.Google.Resource.Directory.ChromeosDevices.Update-        , Network.Google.Resource.Directory.Customers.Get-        , Network.Google.Resource.Directory.Customers.Patch-        , Network.Google.Resource.Directory.Customers.Update-        , Network.Google.Resource.Directory.DomainAliases.Delete-        , Network.Google.Resource.Directory.DomainAliases.Get-        , Network.Google.Resource.Directory.DomainAliases.Insert-        , Network.Google.Resource.Directory.DomainAliases.List-        , Network.Google.Resource.Directory.Domains.Delete-        , Network.Google.Resource.Directory.Domains.Get-        , Network.Google.Resource.Directory.Domains.Insert-        , Network.Google.Resource.Directory.Domains.List-        , Network.Google.Resource.Directory.Groups.Aliases.Delete-        , Network.Google.Resource.Directory.Groups.Aliases.Insert-        , Network.Google.Resource.Directory.Groups.Aliases.List-        , Network.Google.Resource.Directory.Groups.Delete-        , Network.Google.Resource.Directory.Groups.Get-        , Network.Google.Resource.Directory.Groups.Insert-        , Network.Google.Resource.Directory.Groups.List-        , Network.Google.Resource.Directory.Groups.Patch-        , Network.Google.Resource.Directory.Groups.Update-        , Network.Google.Resource.Directory.Members.Delete-        , Network.Google.Resource.Directory.Members.Get-        , Network.Google.Resource.Directory.Members.HasMember-        , Network.Google.Resource.Directory.Members.Insert-        , Network.Google.Resource.Directory.Members.List-        , Network.Google.Resource.Directory.Members.Patch-        , Network.Google.Resource.Directory.Members.Update-        , Network.Google.Resource.Directory.MobileDevices.Action-        , Network.Google.Resource.Directory.MobileDevices.Delete-        , Network.Google.Resource.Directory.MobileDevices.Get-        , Network.Google.Resource.Directory.MobileDevices.List-        , Network.Google.Resource.Directory.Notifications.Delete-        , Network.Google.Resource.Directory.Notifications.Get-        , Network.Google.Resource.Directory.Notifications.List-        , Network.Google.Resource.Directory.Notifications.Patch-        , Network.Google.Resource.Directory.Notifications.Update-        , Network.Google.Resource.Directory.OrgUnits.Delete-        , Network.Google.Resource.Directory.OrgUnits.Get-        , Network.Google.Resource.Directory.OrgUnits.Insert-        , Network.Google.Resource.Directory.OrgUnits.List-        , Network.Google.Resource.Directory.OrgUnits.Patch-        , Network.Google.Resource.Directory.OrgUnits.Update-        , Network.Google.Resource.Directory.Privileges.List-        , Network.Google.Resource.Directory.ResolvedAppAccessSettings.GetSettings-        , Network.Google.Resource.Directory.ResolvedAppAccessSettings.ListTrustedApps-        , Network.Google.Resource.Directory.Resources.Buildings.Delete-        , Network.Google.Resource.Directory.Resources.Buildings.Get-        , Network.Google.Resource.Directory.Resources.Buildings.Insert-        , Network.Google.Resource.Directory.Resources.Buildings.List-        , Network.Google.Resource.Directory.Resources.Buildings.Patch-        , Network.Google.Resource.Directory.Resources.Buildings.Update-        , Network.Google.Resource.Directory.Resources.Calendars.Delete-        , Network.Google.Resource.Directory.Resources.Calendars.Get-        , Network.Google.Resource.Directory.Resources.Calendars.Insert-        , Network.Google.Resource.Directory.Resources.Calendars.List-        , Network.Google.Resource.Directory.Resources.Calendars.Patch-        , Network.Google.Resource.Directory.Resources.Calendars.Update-        , Network.Google.Resource.Directory.Resources.Features.Delete-        , Network.Google.Resource.Directory.Resources.Features.Get-        , Network.Google.Resource.Directory.Resources.Features.Insert-        , Network.Google.Resource.Directory.Resources.Features.List-        , Network.Google.Resource.Directory.Resources.Features.Patch-        , Network.Google.Resource.Directory.Resources.Features.Rename-        , Network.Google.Resource.Directory.Resources.Features.Update-        , Network.Google.Resource.Directory.RoleAssignments.Delete-        , Network.Google.Resource.Directory.RoleAssignments.Get-        , Network.Google.Resource.Directory.RoleAssignments.Insert-        , Network.Google.Resource.Directory.RoleAssignments.List-        , Network.Google.Resource.Directory.Roles.Delete-        , Network.Google.Resource.Directory.Roles.Get-        , Network.Google.Resource.Directory.Roles.Insert-        , Network.Google.Resource.Directory.Roles.List-        , Network.Google.Resource.Directory.Roles.Patch-        , Network.Google.Resource.Directory.Roles.Update-        , Network.Google.Resource.Directory.Schemas.Delete-        , Network.Google.Resource.Directory.Schemas.Get-        , Network.Google.Resource.Directory.Schemas.Insert-        , Network.Google.Resource.Directory.Schemas.List-        , Network.Google.Resource.Directory.Schemas.Patch-        , Network.Google.Resource.Directory.Schemas.Update-        , Network.Google.Resource.Directory.Tokens.Delete-        , Network.Google.Resource.Directory.Tokens.Get-        , Network.Google.Resource.Directory.Tokens.List-        , Network.Google.Resource.Directory.Users.Aliases.Delete-        , Network.Google.Resource.Directory.Users.Aliases.Insert-        , Network.Google.Resource.Directory.Users.Aliases.List-        , Network.Google.Resource.Directory.Users.Aliases.Watch-        , Network.Google.Resource.Directory.Users.Delete-        , Network.Google.Resource.Directory.Users.Get-        , Network.Google.Resource.Directory.Users.Insert-        , Network.Google.Resource.Directory.Users.List-        , Network.Google.Resource.Directory.Users.MakeAdmin-        , Network.Google.Resource.Directory.Users.Patch-        , Network.Google.Resource.Directory.Users.Photos.Delete-        , Network.Google.Resource.Directory.Users.Photos.Get-        , Network.Google.Resource.Directory.Users.Photos.Patch-        , Network.Google.Resource.Directory.Users.Photos.Update-        , Network.Google.Resource.Directory.Users.Undelete-        , Network.Google.Resource.Directory.Users.Update-        , Network.Google.Resource.Directory.Users.Watch-        , Network.Google.Resource.Directory.VerificationCodes.Generate-        , Network.Google.Resource.Directory.VerificationCodes.Invalidate-        , Network.Google.Resource.Directory.VerificationCodes.List+  exposed-modules:+    Gogol.Admin.Directory+    Gogol.Admin.Directory.Admin.Channels.Stop+    Gogol.Admin.Directory.Admin.Customer.Devices.Chromeos.BatchChangeStatus+    Gogol.Admin.Directory.Admin.Customer.Devices.Chromeos.Commands.Get+    Gogol.Admin.Directory.Admin.Customer.Devices.Chromeos.IssueCommand+    Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.BatchCreatePrinters+    Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.BatchDeletePrinters+    Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.Create+    Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.Delete+    Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.Get+    Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.List+    Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.ListPrinterModels+    Gogol.Admin.Directory.Admin.Customers.Chrome.Printers.Patch+    Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.BatchCreatePrintServers+    Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.BatchDeletePrintServers+    Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.Create+    Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.Delete+    Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.Get+    Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.List+    Gogol.Admin.Directory.Admin.Customers.Chrome.PrintServers.Patch+    Gogol.Admin.Directory.Asps.Delete+    Gogol.Admin.Directory.Asps.Get+    Gogol.Admin.Directory.Asps.List+    Gogol.Admin.Directory.Chromeosdevices.Action+    Gogol.Admin.Directory.Chromeosdevices.Get+    Gogol.Admin.Directory.Chromeosdevices.List+    Gogol.Admin.Directory.Chromeosdevices.MoveDevicesToOu+    Gogol.Admin.Directory.Chromeosdevices.Patch+    Gogol.Admin.Directory.Chromeosdevices.Update+    Gogol.Admin.Directory.Customers.Get+    Gogol.Admin.Directory.Customers.Patch+    Gogol.Admin.Directory.Customers.Update+    Gogol.Admin.Directory.DomainAliases.Delete+    Gogol.Admin.Directory.DomainAliases.Get+    Gogol.Admin.Directory.DomainAliases.Insert+    Gogol.Admin.Directory.DomainAliases.List+    Gogol.Admin.Directory.Domains.Delete+    Gogol.Admin.Directory.Domains.Get+    Gogol.Admin.Directory.Domains.Insert+    Gogol.Admin.Directory.Domains.List+    Gogol.Admin.Directory.Groups.Aliases.Delete+    Gogol.Admin.Directory.Groups.Aliases.Insert+    Gogol.Admin.Directory.Groups.Aliases.List+    Gogol.Admin.Directory.Groups.Delete+    Gogol.Admin.Directory.Groups.Get+    Gogol.Admin.Directory.Groups.Insert+    Gogol.Admin.Directory.Groups.List+    Gogol.Admin.Directory.Groups.Patch+    Gogol.Admin.Directory.Groups.Update+    Gogol.Admin.Directory.Members.Delete+    Gogol.Admin.Directory.Members.Get+    Gogol.Admin.Directory.Members.HasMember+    Gogol.Admin.Directory.Members.Insert+    Gogol.Admin.Directory.Members.List+    Gogol.Admin.Directory.Members.Patch+    Gogol.Admin.Directory.Members.Update+    Gogol.Admin.Directory.Mobiledevices.Action+    Gogol.Admin.Directory.Mobiledevices.Delete+    Gogol.Admin.Directory.Mobiledevices.Get+    Gogol.Admin.Directory.Mobiledevices.List+    Gogol.Admin.Directory.Orgunits.Delete+    Gogol.Admin.Directory.Orgunits.Get+    Gogol.Admin.Directory.Orgunits.Insert+    Gogol.Admin.Directory.Orgunits.List+    Gogol.Admin.Directory.Orgunits.Patch+    Gogol.Admin.Directory.Orgunits.Update+    Gogol.Admin.Directory.Privileges.List+    Gogol.Admin.Directory.Resources.Buildings.Delete+    Gogol.Admin.Directory.Resources.Buildings.Get+    Gogol.Admin.Directory.Resources.Buildings.Insert+    Gogol.Admin.Directory.Resources.Buildings.List+    Gogol.Admin.Directory.Resources.Buildings.Patch+    Gogol.Admin.Directory.Resources.Buildings.Update+    Gogol.Admin.Directory.Resources.Calendars.Delete+    Gogol.Admin.Directory.Resources.Calendars.Get+    Gogol.Admin.Directory.Resources.Calendars.Insert+    Gogol.Admin.Directory.Resources.Calendars.List+    Gogol.Admin.Directory.Resources.Calendars.Patch+    Gogol.Admin.Directory.Resources.Calendars.Update+    Gogol.Admin.Directory.Resources.Features.Delete+    Gogol.Admin.Directory.Resources.Features.Get+    Gogol.Admin.Directory.Resources.Features.Insert+    Gogol.Admin.Directory.Resources.Features.List+    Gogol.Admin.Directory.Resources.Features.Patch+    Gogol.Admin.Directory.Resources.Features.Rename+    Gogol.Admin.Directory.Resources.Features.Update+    Gogol.Admin.Directory.RoleAssignments.Delete+    Gogol.Admin.Directory.RoleAssignments.Get+    Gogol.Admin.Directory.RoleAssignments.Insert+    Gogol.Admin.Directory.RoleAssignments.List+    Gogol.Admin.Directory.Roles.Delete+    Gogol.Admin.Directory.Roles.Get+    Gogol.Admin.Directory.Roles.Insert+    Gogol.Admin.Directory.Roles.List+    Gogol.Admin.Directory.Roles.Patch+    Gogol.Admin.Directory.Roles.Update+    Gogol.Admin.Directory.Schemas.Delete+    Gogol.Admin.Directory.Schemas.Get+    Gogol.Admin.Directory.Schemas.Insert+    Gogol.Admin.Directory.Schemas.List+    Gogol.Admin.Directory.Schemas.Patch+    Gogol.Admin.Directory.Schemas.Update+    Gogol.Admin.Directory.Tokens.Delete+    Gogol.Admin.Directory.Tokens.Get+    Gogol.Admin.Directory.Tokens.List+    Gogol.Admin.Directory.TwoStepVerification.TurnOff+    Gogol.Admin.Directory.Types+    Gogol.Admin.Directory.Users.Aliases.Delete+    Gogol.Admin.Directory.Users.Aliases.Insert+    Gogol.Admin.Directory.Users.Aliases.List+    Gogol.Admin.Directory.Users.Aliases.Watch+    Gogol.Admin.Directory.Users.Delete+    Gogol.Admin.Directory.Users.Get+    Gogol.Admin.Directory.Users.Insert+    Gogol.Admin.Directory.Users.List+    Gogol.Admin.Directory.Users.MakeAdmin+    Gogol.Admin.Directory.Users.Patch+    Gogol.Admin.Directory.Users.Photos.Delete+    Gogol.Admin.Directory.Users.Photos.Get+    Gogol.Admin.Directory.Users.Photos.Patch+    Gogol.Admin.Directory.Users.Photos.Update+    Gogol.Admin.Directory.Users.SignOut+    Gogol.Admin.Directory.Users.Undelete+    Gogol.Admin.Directory.Users.Update+    Gogol.Admin.Directory.Users.Watch+    Gogol.Admin.Directory.VerificationCodes.Generate+    Gogol.Admin.Directory.VerificationCodes.Invalidate+    Gogol.Admin.Directory.VerificationCodes.List -    other-modules:-          Network.Google.Directory.Types.Product-        , Network.Google.Directory.Types.Sum+  other-modules:+    Gogol.Admin.Directory.Internal.Product+    Gogol.Admin.Directory.Internal.Sum -    build-depends:-          gogol-core == 0.5.0.*-        , base       >= 4.7 && < 5+  build-depends:    gogol-core ^>=1.0.0