packages feed

gogol-books 0.5.0 → 1.0.0

raw patch · 113 files changed

+15165/−18564 lines, 113 filesdep −basedep ~gogol-coresetup-changed

Dependencies removed: base

Dependency ranges changed: gogol-core

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`0.5.0`+`1.0.0`   ## Description
Setup.hs view
@@ -1,2 +1,3 @@-import           Distribution.Simple+import Distribution.Simple+ main = defaultMain
+ gen/Gogol/Books.hs view
@@ -0,0 +1,865 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The Google Books API allows clients to access the Google Books repository.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference>+module Gogol.Books+  ( -- * Configuration+    booksService,++    -- * OAuth Scopes+    Books'FullControl,++    -- * Resources++    -- ** books.bookshelves.get+    BooksBookshelvesGetResource,+    BooksBookshelvesGet (..),+    newBooksBookshelvesGet,++    -- ** books.bookshelves.list+    BooksBookshelvesListResource,+    BooksBookshelvesList (..),+    newBooksBookshelvesList,++    -- ** books.bookshelves.volumes.list+    BooksBookshelvesVolumesListResource,+    BooksBookshelvesVolumesList (..),+    newBooksBookshelvesVolumesList,++    -- ** books.cloudloading.addBook+    BooksCloudloadingAddBookResource,+    BooksCloudloadingAddBook (..),+    newBooksCloudloadingAddBook,++    -- ** books.cloudloading.deleteBook+    BooksCloudloadingDeleteBookResource,+    BooksCloudloadingDeleteBook (..),+    newBooksCloudloadingDeleteBook,++    -- ** books.cloudloading.updateBook+    BooksCloudloadingUpdateBookResource,+    BooksCloudloadingUpdateBook (..),+    newBooksCloudloadingUpdateBook,++    -- ** books.dictionary.listOfflineMetadata+    BooksDictionaryListOfflineMetadataResource,+    BooksDictionaryListOfflineMetadata (..),+    newBooksDictionaryListOfflineMetadata,++    -- ** books.familysharing.getFamilyInfo+    BooksFamilysharingGetFamilyInfoResource,+    BooksFamilysharingGetFamilyInfo (..),+    newBooksFamilysharingGetFamilyInfo,++    -- ** books.familysharing.share+    BooksFamilysharingShareResource,+    BooksFamilysharingShare (..),+    newBooksFamilysharingShare,++    -- ** books.familysharing.unshare+    BooksFamilysharingUnshareResource,+    BooksFamilysharingUnshare (..),+    newBooksFamilysharingUnshare,++    -- ** books.layers.annotationData.get+    BooksLayersAnnotationDataGetResource,+    BooksLayersAnnotationDataGet (..),+    newBooksLayersAnnotationDataGet,++    -- ** books.layers.annotationData.list+    BooksLayersAnnotationDataListResource,+    BooksLayersAnnotationDataList (..),+    newBooksLayersAnnotationDataList,++    -- ** books.layers.get+    BooksLayersGetResource,+    BooksLayersGet (..),+    newBooksLayersGet,++    -- ** books.layers.list+    BooksLayersListResource,+    BooksLayersList (..),+    newBooksLayersList,++    -- ** books.layers.volumeAnnotations.get+    BooksLayersVolumeAnnotationsGetResource,+    BooksLayersVolumeAnnotationsGet (..),+    newBooksLayersVolumeAnnotationsGet,++    -- ** books.layers.volumeAnnotations.list+    BooksLayersVolumeAnnotationsListResource,+    BooksLayersVolumeAnnotationsList (..),+    newBooksLayersVolumeAnnotationsList,++    -- ** books.myconfig.getUserSettings+    BooksMyconfigGetUserSettingsResource,+    BooksMyconfigGetUserSettings (..),+    newBooksMyconfigGetUserSettings,++    -- ** books.myconfig.releaseDownloadAccess+    BooksMyconfigReleaseDownloadAccessResource,+    BooksMyconfigReleaseDownloadAccess (..),+    newBooksMyconfigReleaseDownloadAccess,++    -- ** books.myconfig.requestAccess+    BooksMyconfigRequestAccessResource,+    BooksMyconfigRequestAccess (..),+    newBooksMyconfigRequestAccess,++    -- ** books.myconfig.syncVolumeLicenses+    BooksMyconfigSyncVolumeLicensesResource,+    BooksMyconfigSyncVolumeLicenses (..),+    newBooksMyconfigSyncVolumeLicenses,++    -- ** books.myconfig.updateUserSettings+    BooksMyconfigUpdateUserSettingsResource,+    BooksMyconfigUpdateUserSettings (..),+    newBooksMyconfigUpdateUserSettings,++    -- ** books.mylibrary.annotations.delete+    BooksMylibraryAnnotationsDeleteResource,+    BooksMylibraryAnnotationsDelete (..),+    newBooksMylibraryAnnotationsDelete,++    -- ** books.mylibrary.annotations.insert+    BooksMylibraryAnnotationsInsertResource,+    BooksMylibraryAnnotationsInsert (..),+    newBooksMylibraryAnnotationsInsert,++    -- ** books.mylibrary.annotations.list+    BooksMylibraryAnnotationsListResource,+    BooksMylibraryAnnotationsList (..),+    newBooksMylibraryAnnotationsList,++    -- ** books.mylibrary.annotations.summary+    BooksMylibraryAnnotationsSummaryResource,+    BooksMylibraryAnnotationsSummary (..),+    newBooksMylibraryAnnotationsSummary,++    -- ** books.mylibrary.annotations.update+    BooksMylibraryAnnotationsUpdateResource,+    BooksMylibraryAnnotationsUpdate (..),+    newBooksMylibraryAnnotationsUpdate,++    -- ** books.mylibrary.bookshelves.addVolume+    BooksMylibraryBookshelvesAddVolumeResource,+    BooksMylibraryBookshelvesAddVolume (..),+    newBooksMylibraryBookshelvesAddVolume,++    -- ** books.mylibrary.bookshelves.clearVolumes+    BooksMylibraryBookshelvesClearVolumesResource,+    BooksMylibraryBookshelvesClearVolumes (..),+    newBooksMylibraryBookshelvesClearVolumes,++    -- ** books.mylibrary.bookshelves.get+    BooksMylibraryBookshelvesGetResource,+    BooksMylibraryBookshelvesGet (..),+    newBooksMylibraryBookshelvesGet,++    -- ** books.mylibrary.bookshelves.list+    BooksMylibraryBookshelvesListResource,+    BooksMylibraryBookshelvesList (..),+    newBooksMylibraryBookshelvesList,++    -- ** books.mylibrary.bookshelves.moveVolume+    BooksMylibraryBookshelvesMoveVolumeResource,+    BooksMylibraryBookshelvesMoveVolume (..),+    newBooksMylibraryBookshelvesMoveVolume,++    -- ** books.mylibrary.bookshelves.removeVolume+    BooksMylibraryBookshelvesRemoveVolumeResource,+    BooksMylibraryBookshelvesRemoveVolume (..),+    newBooksMylibraryBookshelvesRemoveVolume,++    -- ** books.mylibrary.bookshelves.volumes.list+    BooksMylibraryBookshelvesVolumesListResource,+    BooksMylibraryBookshelvesVolumesList (..),+    newBooksMylibraryBookshelvesVolumesList,++    -- ** books.mylibrary.readingpositions.get+    BooksMylibraryReadingpositionsGetResource,+    BooksMylibraryReadingpositionsGet (..),+    newBooksMylibraryReadingpositionsGet,++    -- ** books.mylibrary.readingpositions.setPosition+    BooksMylibraryReadingpositionsSetPositionResource,+    BooksMylibraryReadingpositionsSetPosition (..),+    newBooksMylibraryReadingpositionsSetPosition,++    -- ** books.notification.get+    BooksNotificationGetResource,+    BooksNotificationGet (..),+    newBooksNotificationGet,++    -- ** books.onboarding.listCategories+    BooksOnboardingListCategoriesResource,+    BooksOnboardingListCategories (..),+    newBooksOnboardingListCategories,++    -- ** books.onboarding.listCategoryVolumes+    BooksOnboardingListCategoryVolumesResource,+    BooksOnboardingListCategoryVolumes (..),+    newBooksOnboardingListCategoryVolumes,++    -- ** books.personalizedstream.get+    BooksPersonalizedstreamGetResource,+    BooksPersonalizedstreamGet (..),+    newBooksPersonalizedstreamGet,++    -- ** books.promooffer.accept+    BooksPromoofferAcceptResource,+    BooksPromoofferAccept (..),+    newBooksPromoofferAccept,++    -- ** books.promooffer.dismiss+    BooksPromoofferDismissResource,+    BooksPromoofferDismiss (..),+    newBooksPromoofferDismiss,++    -- ** books.promooffer.get+    BooksPromoofferGetResource,+    BooksPromoofferGet (..),+    newBooksPromoofferGet,++    -- ** books.series.get+    BooksSeriesGetResource,+    BooksSeriesGet (..),+    newBooksSeriesGet,++    -- ** books.series.membership.get+    BooksSeriesMembershipGetResource,+    BooksSeriesMembershipGet (..),+    newBooksSeriesMembershipGet,++    -- ** books.volumes.associated.list+    BooksVolumesAssociatedListResource,+    BooksVolumesAssociatedList (..),+    newBooksVolumesAssociatedList,++    -- ** books.volumes.get+    BooksVolumesGetResource,+    BooksVolumesGet (..),+    newBooksVolumesGet,++    -- ** books.volumes.list+    BooksVolumesListResource,+    BooksVolumesList (..),+    newBooksVolumesList,++    -- ** books.volumes.mybooks.list+    BooksVolumesMybooksListResource,+    BooksVolumesMybooksList (..),+    newBooksVolumesMybooksList,++    -- ** books.volumes.recommended.list+    BooksVolumesRecommendedListResource,+    BooksVolumesRecommendedList (..),+    newBooksVolumesRecommendedList,++    -- ** books.volumes.recommended.rate+    BooksVolumesRecommendedRateResource,+    BooksVolumesRecommendedRate (..),+    newBooksVolumesRecommendedRate,++    -- ** books.volumes.useruploaded.list+    BooksVolumesUseruploadedListResource,+    BooksVolumesUseruploadedList (..),+    newBooksVolumesUseruploadedList,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** Annotation+    Annotation (..),+    newAnnotation,++    -- ** Annotation_ClientVersionRanges+    Annotation_ClientVersionRanges (..),+    newAnnotation_ClientVersionRanges,++    -- ** Annotation_CurrentVersionRanges+    Annotation_CurrentVersionRanges (..),+    newAnnotation_CurrentVersionRanges,++    -- ** Annotation_LayerSummary+    Annotation_LayerSummary (..),+    newAnnotation_LayerSummary,++    -- ** Annotations+    Annotations (..),+    newAnnotations,++    -- ** AnnotationsSummary+    AnnotationsSummary (..),+    newAnnotationsSummary,++    -- ** AnnotationsSummary_LayersItem+    AnnotationsSummary_LayersItem (..),+    newAnnotationsSummary_LayersItem,++    -- ** Annotationsdata+    Annotationsdata (..),+    newAnnotationsdata,++    -- ** BooksAnnotationsRange+    BooksAnnotationsRange (..),+    newBooksAnnotationsRange,++    -- ** BooksCloudloadingResource+    BooksCloudloadingResource (..),+    newBooksCloudloadingResource,++    -- ** BooksVolumesRecommendedRateResponse+    BooksVolumesRecommendedRateResponse (..),+    newBooksVolumesRecommendedRateResponse,++    -- ** Bookshelf+    Bookshelf (..),+    newBookshelf,++    -- ** Bookshelves+    Bookshelves (..),+    newBookshelves,++    -- ** Category+    Category (..),+    newCategory,++    -- ** Category_ItemsItem+    Category_ItemsItem (..),+    newCategory_ItemsItem,++    -- ** ConcurrentAccessRestriction+    ConcurrentAccessRestriction (..),+    newConcurrentAccessRestriction,++    -- ** DictionaryAnnotationdata+    DictionaryAnnotationdata (..),+    newDictionaryAnnotationdata,++    -- ** Dictlayerdata+    Dictlayerdata (..),+    newDictlayerdata,++    -- ** Dictlayerdata_Common+    Dictlayerdata_Common (..),+    newDictlayerdata_Common,++    -- ** Dictlayerdata_Dict+    Dictlayerdata_Dict (..),+    newDictlayerdata_Dict,++    -- ** Dictlayerdata_Dict_Source+    Dictlayerdata_Dict_Source (..),+    newDictlayerdata_Dict_Source,++    -- ** Dictlayerdata_Dict_WordsItem+    Dictlayerdata_Dict_WordsItem (..),+    newDictlayerdata_Dict_WordsItem,++    -- ** Dictlayerdata_Dict_WordsItem_DerivativesItem+    Dictlayerdata_Dict_WordsItem_DerivativesItem (..),+    newDictlayerdata_Dict_WordsItem_DerivativesItem,++    -- ** Dictlayerdata_Dict_WordsItem_DerivativesItem_Source+    Dictlayerdata_Dict_WordsItem_DerivativesItem_Source (..),+    newDictlayerdata_Dict_WordsItem_DerivativesItem_Source,++    -- ** Dictlayerdata_Dict_WordsItem_ExamplesItem+    Dictlayerdata_Dict_WordsItem_ExamplesItem (..),+    newDictlayerdata_Dict_WordsItem_ExamplesItem,++    -- ** Dictlayerdata_Dict_WordsItem_ExamplesItem_Source+    Dictlayerdata_Dict_WordsItem_ExamplesItem_Source (..),+    newDictlayerdata_Dict_WordsItem_ExamplesItem_Source,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem+    Dictlayerdata_Dict_WordsItem_SensesItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem+    Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem_Source+    Dictlayerdata_Dict_WordsItem_SensesItem_Source (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_Source,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem+    Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source+    Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source,++    -- ** Dictlayerdata_Dict_WordsItem_Source+    Dictlayerdata_Dict_WordsItem_Source (..),+    newDictlayerdata_Dict_WordsItem_Source,++    -- ** Discoveryclusters+    Discoveryclusters (..),+    newDiscoveryclusters,++    -- ** Discoveryclusters_ClustersItem+    Discoveryclusters_ClustersItem (..),+    newDiscoveryclusters_ClustersItem,++    -- ** Discoveryclusters_ClustersItem_Banner_with_content_container+    Discoveryclusters_ClustersItem_Banner_with_content_container (..),+    newDiscoveryclusters_ClustersItem_Banner_with_content_container,++    -- ** DownloadAccessRestriction+    DownloadAccessRestriction (..),+    newDownloadAccessRestriction,++    -- ** DownloadAccesses+    DownloadAccesses (..),+    newDownloadAccesses,++    -- ** Empty+    Empty (..),+    newEmpty,++    -- ** FamilyInfo+    FamilyInfo (..),+    newFamilyInfo,++    -- ** FamilyInfo_Membership+    FamilyInfo_Membership (..),+    newFamilyInfo_Membership,++    -- ** GeoAnnotationdata+    GeoAnnotationdata (..),+    newGeoAnnotationdata,++    -- ** Geolayerdata+    Geolayerdata (..),+    newGeolayerdata,++    -- ** Geolayerdata_Common+    Geolayerdata_Common (..),+    newGeolayerdata_Common,++    -- ** Geolayerdata_Geo+    Geolayerdata_Geo (..),+    newGeolayerdata_Geo,++    -- ** Geolayerdata_Geo_Viewport+    Geolayerdata_Geo_Viewport (..),+    newGeolayerdata_Geo_Viewport,++    -- ** Geolayerdata_Geo_Viewport_Hi+    Geolayerdata_Geo_Viewport_Hi (..),+    newGeolayerdata_Geo_Viewport_Hi,++    -- ** Geolayerdata_Geo_Viewport_Lo+    Geolayerdata_Geo_Viewport_Lo (..),+    newGeolayerdata_Geo_Viewport_Lo,++    -- ** Layersummaries+    Layersummaries (..),+    newLayersummaries,++    -- ** Layersummary+    Layersummary (..),+    newLayersummary,++    -- ** Metadata+    Metadata (..),+    newMetadata,++    -- ** Metadata_ItemsItem+    Metadata_ItemsItem (..),+    newMetadata_ItemsItem,++    -- ** Notification+    Notification (..),+    newNotification,++    -- ** Offers+    Offers (..),+    newOffers,++    -- ** Offers_ItemsItem+    Offers_ItemsItem (..),+    newOffers_ItemsItem,++    -- ** Offers_ItemsItem_ItemsItem+    Offers_ItemsItem_ItemsItem (..),+    newOffers_ItemsItem_ItemsItem,++    -- ** ReadingPosition+    ReadingPosition (..),+    newReadingPosition,++    -- ** RequestAccessData+    RequestAccessData (..),+    newRequestAccessData,++    -- ** Review+    Review (..),+    newReview,++    -- ** Review_Author+    Review_Author (..),+    newReview_Author,++    -- ** Review_Source+    Review_Source (..),+    newReview_Source,++    -- ** Series+    Series (..),+    newSeries,++    -- ** Series_SeriesItem+    Series_SeriesItem (..),+    newSeries_SeriesItem,++    -- ** Series_SeriesItem_SeriesSubscriptionReleaseInfo+    Series_SeriesItem_SeriesSubscriptionReleaseInfo (..),+    newSeries_SeriesItem_SeriesSubscriptionReleaseInfo,++    -- ** Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo+    Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo (..),+    newSeries_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo,++    -- ** Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo+    Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo (..),+    newSeries_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo,++    -- ** Seriesmembership+    Seriesmembership (..),+    newSeriesmembership,++    -- ** Usersettings+    Usersettings (..),+    newUsersettings,++    -- ** Usersettings_NotesExport+    Usersettings_NotesExport (..),+    newUsersettings_NotesExport,++    -- ** Usersettings_Notification+    Usersettings_Notification (..),+    newUsersettings_Notification,++    -- ** Usersettings_Notification_MatchMyInterests+    Usersettings_Notification_MatchMyInterests (..),+    newUsersettings_Notification_MatchMyInterests,++    -- ** Usersettings_Notification_MoreFromAuthors+    Usersettings_Notification_MoreFromAuthors (..),+    newUsersettings_Notification_MoreFromAuthors,++    -- ** Usersettings_Notification_MoreFromSeries+    Usersettings_Notification_MoreFromSeries (..),+    newUsersettings_Notification_MoreFromSeries,++    -- ** Usersettings_Notification_PriceDrop+    Usersettings_Notification_PriceDrop (..),+    newUsersettings_Notification_PriceDrop,++    -- ** Usersettings_Notification_RewardExpirations+    Usersettings_Notification_RewardExpirations (..),+    newUsersettings_Notification_RewardExpirations,++    -- ** Volume+    Volume (..),+    newVolume,++    -- ** Volume_AccessInfo+    Volume_AccessInfo (..),+    newVolume_AccessInfo,++    -- ** Volume_AccessInfo_Epub+    Volume_AccessInfo_Epub (..),+    newVolume_AccessInfo_Epub,++    -- ** Volume_AccessInfo_Pdf+    Volume_AccessInfo_Pdf (..),+    newVolume_AccessInfo_Pdf,++    -- ** Volume_LayerInfo+    Volume_LayerInfo (..),+    newVolume_LayerInfo,++    -- ** Volume_LayerInfo_LayersItem+    Volume_LayerInfo_LayersItem (..),+    newVolume_LayerInfo_LayersItem,++    -- ** Volume_RecommendedInfo+    Volume_RecommendedInfo (..),+    newVolume_RecommendedInfo,++    -- ** Volume_SaleInfo+    Volume_SaleInfo (..),+    newVolume_SaleInfo,++    -- ** Volume_SaleInfo_ListPrice+    Volume_SaleInfo_ListPrice (..),+    newVolume_SaleInfo_ListPrice,++    -- ** Volume_SaleInfo_OffersItem+    Volume_SaleInfo_OffersItem (..),+    newVolume_SaleInfo_OffersItem,++    -- ** Volume_SaleInfo_OffersItem_ListPrice+    Volume_SaleInfo_OffersItem_ListPrice (..),+    newVolume_SaleInfo_OffersItem_ListPrice,++    -- ** Volume_SaleInfo_OffersItem_RentalDuration+    Volume_SaleInfo_OffersItem_RentalDuration (..),+    newVolume_SaleInfo_OffersItem_RentalDuration,++    -- ** Volume_SaleInfo_OffersItem_RetailPrice+    Volume_SaleInfo_OffersItem_RetailPrice (..),+    newVolume_SaleInfo_OffersItem_RetailPrice,++    -- ** Volume_SaleInfo_RetailPrice+    Volume_SaleInfo_RetailPrice (..),+    newVolume_SaleInfo_RetailPrice,++    -- ** Volume_SearchInfo+    Volume_SearchInfo (..),+    newVolume_SearchInfo,++    -- ** Volume_UserInfo+    Volume_UserInfo (..),+    newVolume_UserInfo,++    -- ** Volume_UserInfo_Copy+    Volume_UserInfo_Copy (..),+    newVolume_UserInfo_Copy,++    -- ** Volume_UserInfo_FamilySharing+    Volume_UserInfo_FamilySharing (..),+    newVolume_UserInfo_FamilySharing,++    -- ** Volume_UserInfo_RentalPeriod+    Volume_UserInfo_RentalPeriod (..),+    newVolume_UserInfo_RentalPeriod,++    -- ** Volume_UserInfo_UserUploadedVolumeInfo+    Volume_UserInfo_UserUploadedVolumeInfo (..),+    newVolume_UserInfo_UserUploadedVolumeInfo,++    -- ** Volume_VolumeInfo+    Volume_VolumeInfo (..),+    newVolume_VolumeInfo,++    -- ** Volume_VolumeInfo_Dimensions+    Volume_VolumeInfo_Dimensions (..),+    newVolume_VolumeInfo_Dimensions,++    -- ** Volume_VolumeInfo_ImageLinks+    Volume_VolumeInfo_ImageLinks (..),+    newVolume_VolumeInfo_ImageLinks,++    -- ** Volume_VolumeInfo_IndustryIdentifiersItem+    Volume_VolumeInfo_IndustryIdentifiersItem (..),+    newVolume_VolumeInfo_IndustryIdentifiersItem,++    -- ** Volume_VolumeInfo_PanelizationSummary+    Volume_VolumeInfo_PanelizationSummary (..),+    newVolume_VolumeInfo_PanelizationSummary,++    -- ** Volume_VolumeInfo_ReadingModes+    Volume_VolumeInfo_ReadingModes (..),+    newVolume_VolumeInfo_ReadingModes,++    -- ** Volume2+    Volume2 (..),+    newVolume2,++    -- ** Volumeannotation+    Volumeannotation (..),+    newVolumeannotation,++    -- ** Volumeannotation_ContentRanges+    Volumeannotation_ContentRanges (..),+    newVolumeannotation_ContentRanges,++    -- ** Volumeannotations+    Volumeannotations (..),+    newVolumeannotations,++    -- ** Volumes+    Volumes (..),+    newVolumes,++    -- ** Volumeseriesinfo+    Volumeseriesinfo (..),+    newVolumeseriesinfo,++    -- ** Volumeseriesinfo_VolumeSeriesItem+    Volumeseriesinfo_VolumeSeriesItem (..),+    newVolumeseriesinfo_VolumeSeriesItem,++    -- ** Volumeseriesinfo_VolumeSeriesItem_IssueItem+    Volumeseriesinfo_VolumeSeriesItem_IssueItem (..),+    newVolumeseriesinfo_VolumeSeriesItem_IssueItem,++    -- ** MyconfigRequestAccessLicenseTypes+    MyconfigRequestAccessLicenseTypes (..),++    -- ** MyconfigSyncVolumeLicensesFeatures+    MyconfigSyncVolumeLicensesFeatures (..),++    -- ** MylibraryBookshelvesAddVolumeReason+    MylibraryBookshelvesAddVolumeReason (..),++    -- ** MylibraryBookshelvesRemoveVolumeReason+    MylibraryBookshelvesRemoveVolumeReason (..),++    -- ** MylibraryBookshelvesVolumesListProjection+    MylibraryBookshelvesVolumesListProjection (..),++    -- ** MylibraryReadingpositionsSetPositionAction+    MylibraryReadingpositionsSetPositionAction (..),++    -- ** OnboardingListCategoryVolumesMaxAllowedMaturityRating+    OnboardingListCategoryVolumesMaxAllowedMaturityRating (..),++    -- ** PersonalizedstreamGetMaxAllowedMaturityRating+    PersonalizedstreamGetMaxAllowedMaturityRating (..),++    -- ** VolumesAssociatedListAssociation+    VolumesAssociatedListAssociation (..),++    -- ** VolumesAssociatedListMaxAllowedMaturityRating+    VolumesAssociatedListMaxAllowedMaturityRating (..),++    -- ** VolumesGetProjection+    VolumesGetProjection (..),++    -- ** VolumesListDownload+    VolumesListDownload (..),++    -- ** VolumesListFilter+    VolumesListFilter (..),++    -- ** VolumesListLibraryRestrict+    VolumesListLibraryRestrict (..),++    -- ** VolumesListMaxAllowedMaturityRating+    VolumesListMaxAllowedMaturityRating (..),++    -- ** VolumesListOrderBy+    VolumesListOrderBy (..),++    -- ** VolumesListPrintType+    VolumesListPrintType (..),++    -- ** VolumesListProjection+    VolumesListProjection (..),++    -- ** VolumesMybooksListAcquireMethod+    VolumesMybooksListAcquireMethod (..),++    -- ** VolumesMybooksListProcessingState+    VolumesMybooksListProcessingState (..),++    -- ** VolumesRecommendedListMaxAllowedMaturityRating+    VolumesRecommendedListMaxAllowedMaturityRating (..),++    -- ** VolumesRecommendedRateRating+    VolumesRecommendedRateRating (..),++    -- ** VolumesUseruploadedListProcessingState+    VolumesUseruploadedListProcessingState (..),+  )+where++import Gogol.Books.Bookshelves.Get+import Gogol.Books.Bookshelves.List+import Gogol.Books.Bookshelves.Volumes.List+import Gogol.Books.Cloudloading.AddBook+import Gogol.Books.Cloudloading.DeleteBook+import Gogol.Books.Cloudloading.UpdateBook+import Gogol.Books.Dictionary.ListOfflineMetadata+import Gogol.Books.Familysharing.GetFamilyInfo+import Gogol.Books.Familysharing.Share+import Gogol.Books.Familysharing.Unshare+import Gogol.Books.Layers.AnnotationData.Get+import Gogol.Books.Layers.AnnotationData.List+import Gogol.Books.Layers.Get+import Gogol.Books.Layers.List+import Gogol.Books.Layers.VolumeAnnotations.Get+import Gogol.Books.Layers.VolumeAnnotations.List+import Gogol.Books.Myconfig.GetUserSettings+import Gogol.Books.Myconfig.ReleaseDownloadAccess+import Gogol.Books.Myconfig.RequestAccess+import Gogol.Books.Myconfig.SyncVolumeLicenses+import Gogol.Books.Myconfig.UpdateUserSettings+import Gogol.Books.Mylibrary.Annotations.Delete+import Gogol.Books.Mylibrary.Annotations.Insert+import Gogol.Books.Mylibrary.Annotations.List+import Gogol.Books.Mylibrary.Annotations.Summary+import Gogol.Books.Mylibrary.Annotations.Update+import Gogol.Books.Mylibrary.Bookshelves.AddVolume+import Gogol.Books.Mylibrary.Bookshelves.ClearVolumes+import Gogol.Books.Mylibrary.Bookshelves.Get+import Gogol.Books.Mylibrary.Bookshelves.List+import Gogol.Books.Mylibrary.Bookshelves.MoveVolume+import Gogol.Books.Mylibrary.Bookshelves.RemoveVolume+import Gogol.Books.Mylibrary.Bookshelves.Volumes.List+import Gogol.Books.Mylibrary.Readingpositions.Get+import Gogol.Books.Mylibrary.Readingpositions.SetPosition+import Gogol.Books.Notification.Get+import Gogol.Books.Onboarding.ListCategories+import Gogol.Books.Onboarding.ListCategoryVolumes+import Gogol.Books.Personalizedstream.Get+import Gogol.Books.Promooffer.Accept+import Gogol.Books.Promooffer.Dismiss+import Gogol.Books.Promooffer.Get+import Gogol.Books.Series.Get+import Gogol.Books.Series.Membership.Get+import Gogol.Books.Types+import Gogol.Books.Volumes.Associated.List+import Gogol.Books.Volumes.Get+import Gogol.Books.Volumes.List+import Gogol.Books.Volumes.Mybooks.List+import Gogol.Books.Volumes.Recommended.List+import Gogol.Books.Volumes.Recommended.Rate+import Gogol.Books.Volumes.Useruploaded.List
+ gen/Gogol/Books/Bookshelves/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.Books.Bookshelves.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 metadata for a specific bookshelf for the specified user.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.bookshelves.get@.+module Gogol.Books.Bookshelves.Get+  ( -- * Resource+    BooksBookshelvesGetResource,++    -- ** Constructing a Request+    BooksBookshelvesGet (..),+    newBooksBookshelvesGet,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.bookshelves.get@ method which the+-- 'BooksBookshelvesGet' request conforms to.+type BooksBookshelvesGetResource =+  "books"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "bookshelves"+    Core.:> Core.Capture "shelf" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "source" 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] Bookshelf++-- | Retrieves metadata for a specific bookshelf for the specified user.+--+-- /See:/ 'newBooksBookshelvesGet' smart constructor.+data BooksBookshelvesGet = BooksBookshelvesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ID of bookshelf to retrieve.+    shelf :: Core.Text,+    -- | String to identify the originator of this request.+    source :: (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),+    -- | ID of user for whom to retrieve bookshelves.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksBookshelvesGet' with the minimum fields required to make a request.+newBooksBookshelvesGet ::+  -- |  ID of bookshelf to retrieve. See 'shelf'.+  Core.Text ->+  -- |  ID of user for whom to retrieve bookshelves. See 'userId'.+  Core.Text ->+  BooksBookshelvesGet+newBooksBookshelvesGet shelf userId =+  BooksBookshelvesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      shelf = shelf,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = userId+    }++instance Core.GoogleRequest BooksBookshelvesGet where+  type Rs BooksBookshelvesGet = Bookshelf+  type Scopes BooksBookshelvesGet = '[Books'FullControl]+  requestClient BooksBookshelvesGet {..} =+    go+      userId+      shelf+      xgafv+      accessToken+      callback+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksBookshelvesGetResource)+          Core.mempty
+ gen/Gogol/Books/Bookshelves/List.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Bookshelves.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 public bookshelves for the specified user.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.bookshelves.list@.+module Gogol.Books.Bookshelves.List+  ( -- * Resource+    BooksBookshelvesListResource,++    -- ** Constructing a Request+    BooksBookshelvesList (..),+    newBooksBookshelvesList,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.bookshelves.list@ method which the+-- 'BooksBookshelvesList' request conforms to.+type BooksBookshelvesListResource =+  "books"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "bookshelves"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "source" 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] Bookshelves++-- | Retrieves a list of public bookshelves for the specified user.+--+-- /See:/ 'newBooksBookshelvesList' smart constructor.+data BooksBookshelvesList = BooksBookshelvesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | String to identify the originator of this request.+    source :: (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),+    -- | ID of user for whom to retrieve bookshelves.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksBookshelvesList' with the minimum fields required to make a request.+newBooksBookshelvesList ::+  -- |  ID of user for whom to retrieve bookshelves. See 'userId'.+  Core.Text ->+  BooksBookshelvesList+newBooksBookshelvesList userId =+  BooksBookshelvesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = userId+    }++instance Core.GoogleRequest BooksBookshelvesList where+  type Rs BooksBookshelvesList = Bookshelves+  type Scopes BooksBookshelvesList = '[Books'FullControl]+  requestClient BooksBookshelvesList {..} =+    go+      userId+      xgafv+      accessToken+      callback+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksBookshelvesListResource)+          Core.mempty
+ gen/Gogol/Books/Bookshelves/Volumes/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.Books.Bookshelves.Volumes.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 volumes in a specific bookshelf for the specified user.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.bookshelves.volumes.list@.+module Gogol.Books.Bookshelves.Volumes.List+  ( -- * Resource+    BooksBookshelvesVolumesListResource,++    -- ** Constructing a Request+    BooksBookshelvesVolumesList (..),+    newBooksBookshelvesVolumesList,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.bookshelves.volumes.list@ method which the+-- 'BooksBookshelvesVolumesList' request conforms to.+type BooksBookshelvesVolumesListResource =+  "books"+    Core.:> "v1"+    Core.:> "users"+    Core.:> Core.Capture "userId" Core.Text+    Core.:> "bookshelves"+    Core.:> Core.Capture "shelf" Core.Text+    Core.:> "volumes"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParam "showPreorders" Core.Bool+    Core.:> Core.QueryParam "source" Core.Text+    Core.:> Core.QueryParam "startIndex" Core.Word32+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Volumes++-- | Retrieves volumes in a specific bookshelf for the specified user.+--+-- /See:/ 'newBooksBookshelvesVolumesList' smart constructor.+data BooksBookshelvesVolumesList = BooksBookshelvesVolumesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Maximum number of results to return+    maxResults :: (Core.Maybe Core.Word32),+    -- | ID of bookshelf to retrieve volumes.+    shelf :: Core.Text,+    -- | Set to true to show pre-ordered books. Defaults to false.+    showPreorders :: (Core.Maybe Core.Bool),+    -- | String to identify the originator of this request.+    source :: (Core.Maybe Core.Text),+    -- | Index of the first element to return (starts at 0)+    startIndex :: (Core.Maybe Core.Word32),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | ID of user for whom to retrieve bookshelf volumes.+    userId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksBookshelvesVolumesList' with the minimum fields required to make a request.+newBooksBookshelvesVolumesList ::+  -- |  ID of bookshelf to retrieve volumes. See 'shelf'.+  Core.Text ->+  -- |  ID of user for whom to retrieve bookshelf volumes. See 'userId'.+  Core.Text ->+  BooksBookshelvesVolumesList+newBooksBookshelvesVolumesList shelf userId =+  BooksBookshelvesVolumesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      maxResults = Core.Nothing,+      shelf = shelf,+      showPreorders = Core.Nothing,+      source = Core.Nothing,+      startIndex = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userId = userId+    }++instance Core.GoogleRequest BooksBookshelvesVolumesList where+  type Rs BooksBookshelvesVolumesList = Volumes+  type Scopes BooksBookshelvesVolumesList = '[Books'FullControl]+  requestClient BooksBookshelvesVolumesList {..} =+    go+      userId+      shelf+      xgafv+      accessToken+      callback+      maxResults+      showPreorders+      source+      startIndex+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksBookshelvesVolumesListResource)+          Core.mempty
+ gen/Gogol/Books/Cloudloading/AddBook.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.Books.Cloudloading.AddBook+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Add a user-upload volume and triggers processing.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.cloudloading.addBook@.+module Gogol.Books.Cloudloading.AddBook+  ( -- * Resource+    BooksCloudloadingAddBookResource,++    -- ** Constructing a Request+    BooksCloudloadingAddBook (..),+    newBooksCloudloadingAddBook,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.cloudloading.addBook@ method which the+-- 'BooksCloudloadingAddBook' request conforms to.+type BooksCloudloadingAddBookResource =+  "books"+    Core.:> "v1"+    Core.:> "cloudloading"+    Core.:> "addBook"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "drive_document_id" Core.Text+    Core.:> Core.QueryParam "mime_type" Core.Text+    Core.:> Core.QueryParam "name" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_client_token" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Post '[Core.JSON] BooksCloudloadingResource++-- | Add a user-upload volume and triggers processing.+--+-- /See:/ 'newBooksCloudloadingAddBook' smart constructor.+data BooksCloudloadingAddBook = BooksCloudloadingAddBook+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | A drive document id. The upload/client/token must not be set.+    driveDocumentId :: (Core.Maybe Core.Text),+    -- | The document MIME type. It can be set only if the drive/document/id is set.+    mimeType :: (Core.Maybe Core.Text),+    -- | The document name. It can be set only if the drive/document/id is set.+    name :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Scotty upload token.+    uploadClientToken :: (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 'BooksCloudloadingAddBook' with the minimum fields required to make a request.+newBooksCloudloadingAddBook ::+  BooksCloudloadingAddBook+newBooksCloudloadingAddBook =+  BooksCloudloadingAddBook+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      driveDocumentId = Core.Nothing,+      mimeType = Core.Nothing,+      name = Core.Nothing,+      uploadType = Core.Nothing,+      uploadClientToken = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksCloudloadingAddBook where+  type Rs BooksCloudloadingAddBook = BooksCloudloadingResource+  type Scopes BooksCloudloadingAddBook = '[Books'FullControl]+  requestClient BooksCloudloadingAddBook {..} =+    go+      xgafv+      accessToken+      callback+      driveDocumentId+      mimeType+      name+      uploadType+      uploadClientToken+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksCloudloadingAddBookResource)+          Core.mempty
+ gen/Gogol/Books/Cloudloading/DeleteBook.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.Books.Cloudloading.DeleteBook+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Remove the book and its contents+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.cloudloading.deleteBook@.+module Gogol.Books.Cloudloading.DeleteBook+  ( -- * Resource+    BooksCloudloadingDeleteBookResource,++    -- ** Constructing a Request+    BooksCloudloadingDeleteBook (..),+    newBooksCloudloadingDeleteBook,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.cloudloading.deleteBook@ method which the+-- 'BooksCloudloadingDeleteBook' request conforms to.+type BooksCloudloadingDeleteBookResource =+  "books"+    Core.:> "v1"+    Core.:> "cloudloading"+    Core.:> "deleteBook"+    Core.:> Core.QueryParam "volumeId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Post '[Core.JSON] Empty++-- | Remove the book and its contents+--+-- /See:/ 'newBooksCloudloadingDeleteBook' smart constructor.+data BooksCloudloadingDeleteBook = BooksCloudloadingDeleteBook+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | The id of the book to be removed.+    volumeId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksCloudloadingDeleteBook' with the minimum fields required to make a request.+newBooksCloudloadingDeleteBook ::+  -- |  The id of the book to be removed. See 'volumeId'.+  Core.Text ->+  BooksCloudloadingDeleteBook+newBooksCloudloadingDeleteBook volumeId =+  BooksCloudloadingDeleteBook+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = volumeId+    }++instance Core.GoogleRequest BooksCloudloadingDeleteBook where+  type Rs BooksCloudloadingDeleteBook = Empty+  type Scopes BooksCloudloadingDeleteBook = '[Books'FullControl]+  requestClient BooksCloudloadingDeleteBook {..} =+    go+      (Core.Just volumeId)+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksCloudloadingDeleteBookResource)+          Core.mempty
+ gen/Gogol/Books/Cloudloading/UpdateBook.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.Books.Cloudloading.UpdateBook+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.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-upload volume.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.cloudloading.updateBook@.+module Gogol.Books.Cloudloading.UpdateBook+  ( -- * Resource+    BooksCloudloadingUpdateBookResource,++    -- ** Constructing a Request+    BooksCloudloadingUpdateBook (..),+    newBooksCloudloadingUpdateBook,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.cloudloading.updateBook@ method which the+-- 'BooksCloudloadingUpdateBook' request conforms to.+type BooksCloudloadingUpdateBookResource =+  "books"+    Core.:> "v1"+    Core.:> "cloudloading"+    Core.:> "updateBook"+    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] BooksCloudloadingResource+    Core.:> Core.Post '[Core.JSON] BooksCloudloadingResource++-- | Updates a user-upload volume.+--+-- /See:/ 'newBooksCloudloadingUpdateBook' smart constructor.+data BooksCloudloadingUpdateBook = BooksCloudloadingUpdateBook+  { -- | 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 :: BooksCloudloadingResource,+    -- | Legacy upload protocol 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 'BooksCloudloadingUpdateBook' with the minimum fields required to make a request.+newBooksCloudloadingUpdateBook ::+  -- |  Multipart request metadata. See 'payload'.+  BooksCloudloadingResource ->+  BooksCloudloadingUpdateBook+newBooksCloudloadingUpdateBook payload =+  BooksCloudloadingUpdateBook+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksCloudloadingUpdateBook where+  type Rs BooksCloudloadingUpdateBook = BooksCloudloadingResource+  type Scopes BooksCloudloadingUpdateBook = '[Books'FullControl]+  requestClient BooksCloudloadingUpdateBook {..} =+    go+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksCloudloadingUpdateBookResource)+          Core.mempty
+ gen/Gogol/Books/Dictionary/ListOfflineMetadata.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.Books.Dictionary.ListOfflineMetadata+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.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 list of offline dictionary metadata available+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.dictionary.listOfflineMetadata@.+module Gogol.Books.Dictionary.ListOfflineMetadata+  ( -- * Resource+    BooksDictionaryListOfflineMetadataResource,++    -- ** Constructing a Request+    BooksDictionaryListOfflineMetadata (..),+    newBooksDictionaryListOfflineMetadata,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.dictionary.listOfflineMetadata@ method which the+-- 'BooksDictionaryListOfflineMetadata' request conforms to.+type BooksDictionaryListOfflineMetadataResource =+  "books"+    Core.:> "v1"+    Core.:> "dictionary"+    Core.:> "listOfflineMetadata"+    Core.:> Core.QueryParam "cpksver" 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] Metadata++-- | Returns a list of offline dictionary metadata available+--+-- /See:/ 'newBooksDictionaryListOfflineMetadata' smart constructor.+data BooksDictionaryListOfflineMetadata = BooksDictionaryListOfflineMetadata+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The device\/version ID from which to request the data.+    cpksver :: 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 'BooksDictionaryListOfflineMetadata' with the minimum fields required to make a request.+newBooksDictionaryListOfflineMetadata ::+  -- |  The device\/version ID from which to request the data. See 'cpksver'.+  Core.Text ->+  BooksDictionaryListOfflineMetadata+newBooksDictionaryListOfflineMetadata cpksver =+  BooksDictionaryListOfflineMetadata+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      cpksver = cpksver,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksDictionaryListOfflineMetadata where+  type Rs BooksDictionaryListOfflineMetadata = Metadata+  type+    Scopes BooksDictionaryListOfflineMetadata =+      '[Books'FullControl]+  requestClient BooksDictionaryListOfflineMetadata {..} =+    go+      (Core.Just cpksver)+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy BooksDictionaryListOfflineMetadataResource+          )+          Core.mempty
+ gen/Gogol/Books/Familysharing/GetFamilyInfo.hs view
@@ -0,0 +1,108 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Familysharing.GetFamilyInfo+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.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 regarding the family that the user is part of.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.familysharing.getFamilyInfo@.+module Gogol.Books.Familysharing.GetFamilyInfo+  ( -- * Resource+    BooksFamilysharingGetFamilyInfoResource,++    -- ** Constructing a Request+    BooksFamilysharingGetFamilyInfo (..),+    newBooksFamilysharingGetFamilyInfo,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.familysharing.getFamilyInfo@ method which the+-- 'BooksFamilysharingGetFamilyInfo' request conforms to.+type BooksFamilysharingGetFamilyInfoResource =+  "books"+    Core.:> "v1"+    Core.:> "familysharing"+    Core.:> "getFamilyInfo"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "source" 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] FamilyInfo++-- | Gets information regarding the family that the user is part of.+--+-- /See:/ 'newBooksFamilysharingGetFamilyInfo' smart constructor.+data BooksFamilysharingGetFamilyInfo = BooksFamilysharingGetFamilyInfo+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | String to identify the originator of this request.+    source :: (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 'BooksFamilysharingGetFamilyInfo' with the minimum fields required to make a request.+newBooksFamilysharingGetFamilyInfo ::+  BooksFamilysharingGetFamilyInfo+newBooksFamilysharingGetFamilyInfo =+  BooksFamilysharingGetFamilyInfo+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksFamilysharingGetFamilyInfo where+  type Rs BooksFamilysharingGetFamilyInfo = FamilyInfo+  type Scopes BooksFamilysharingGetFamilyInfo = '[Books'FullControl]+  requestClient BooksFamilysharingGetFamilyInfo {..} =+    go+      xgafv+      accessToken+      callback+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksFamilysharingGetFamilyInfoResource)+          Core.mempty
+ gen/Gogol/Books/Familysharing/Share.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.Books.Familysharing.Share+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Initiates sharing of the content with the user\'s family. Empty response indicates success.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.familysharing.share@.+module Gogol.Books.Familysharing.Share+  ( -- * Resource+    BooksFamilysharingShareResource,++    -- ** Constructing a Request+    BooksFamilysharingShare (..),+    newBooksFamilysharingShare,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.familysharing.share@ method which the+-- 'BooksFamilysharingShare' request conforms to.+type BooksFamilysharingShareResource =+  "books"+    Core.:> "v1"+    Core.:> "familysharing"+    Core.:> "share"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "docId" Core.Text+    Core.:> Core.QueryParam "source" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "volumeId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Post '[Core.JSON] Empty++-- | Initiates sharing of the content with the user\'s family. Empty response indicates success.+--+-- /See:/ 'newBooksFamilysharingShare' smart constructor.+data BooksFamilysharingShare = BooksFamilysharingShare+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The docid to share.+    docId :: (Core.Maybe Core.Text),+    -- | String to identify the originator of this request.+    source :: (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 volume to share.+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksFamilysharingShare' with the minimum fields required to make a request.+newBooksFamilysharingShare ::+  BooksFamilysharingShare+newBooksFamilysharingShare =+  BooksFamilysharingShare+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      docId = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.GoogleRequest BooksFamilysharingShare where+  type Rs BooksFamilysharingShare = Empty+  type Scopes BooksFamilysharingShare = '[Books'FullControl]+  requestClient BooksFamilysharingShare {..} =+    go+      xgafv+      accessToken+      callback+      docId+      source+      uploadType+      uploadProtocol+      volumeId+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksFamilysharingShareResource)+          Core.mempty
+ gen/Gogol/Books/Familysharing/Unshare.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.Books.Familysharing.Unshare+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Initiates revoking content that has already been shared with the user\'s family. Empty response indicates success.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.familysharing.unshare@.+module Gogol.Books.Familysharing.Unshare+  ( -- * Resource+    BooksFamilysharingUnshareResource,++    -- ** Constructing a Request+    BooksFamilysharingUnshare (..),+    newBooksFamilysharingUnshare,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.familysharing.unshare@ method which the+-- 'BooksFamilysharingUnshare' request conforms to.+type BooksFamilysharingUnshareResource =+  "books"+    Core.:> "v1"+    Core.:> "familysharing"+    Core.:> "unshare"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "docId" Core.Text+    Core.:> Core.QueryParam "source" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "volumeId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Post '[Core.JSON] Empty++-- | Initiates revoking content that has already been shared with the user\'s family. Empty response indicates success.+--+-- /See:/ 'newBooksFamilysharingUnshare' smart constructor.+data BooksFamilysharingUnshare = BooksFamilysharingUnshare+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The docid to unshare.+    docId :: (Core.Maybe Core.Text),+    -- | String to identify the originator of this request.+    source :: (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 volume to unshare.+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksFamilysharingUnshare' with the minimum fields required to make a request.+newBooksFamilysharingUnshare ::+  BooksFamilysharingUnshare+newBooksFamilysharingUnshare =+  BooksFamilysharingUnshare+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      docId = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.GoogleRequest BooksFamilysharingUnshare where+  type Rs BooksFamilysharingUnshare = Empty+  type Scopes BooksFamilysharingUnshare = '[Books'FullControl]+  requestClient BooksFamilysharingUnshare {..} =+    go+      xgafv+      accessToken+      callback+      docId+      source+      uploadType+      uploadProtocol+      volumeId+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksFamilysharingUnshareResource)+          Core.mempty
+ gen/Gogol/Books/Internal/Product.hs view
@@ -0,0 +1,5926 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.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.Books.Internal.Product+  ( -- * Annotation+    Annotation (..),+    newAnnotation,++    -- * Annotation_ClientVersionRanges+    Annotation_ClientVersionRanges (..),+    newAnnotation_ClientVersionRanges,++    -- * Annotation_CurrentVersionRanges+    Annotation_CurrentVersionRanges (..),+    newAnnotation_CurrentVersionRanges,++    -- * Annotation_LayerSummary+    Annotation_LayerSummary (..),+    newAnnotation_LayerSummary,++    -- * Annotations+    Annotations (..),+    newAnnotations,++    -- * AnnotationsSummary+    AnnotationsSummary (..),+    newAnnotationsSummary,++    -- * AnnotationsSummary_LayersItem+    AnnotationsSummary_LayersItem (..),+    newAnnotationsSummary_LayersItem,++    -- * Annotationsdata+    Annotationsdata (..),+    newAnnotationsdata,++    -- * BooksAnnotationsRange+    BooksAnnotationsRange (..),+    newBooksAnnotationsRange,++    -- * BooksCloudloadingResource+    BooksCloudloadingResource (..),+    newBooksCloudloadingResource,++    -- * BooksVolumesRecommendedRateResponse+    BooksVolumesRecommendedRateResponse (..),+    newBooksVolumesRecommendedRateResponse,++    -- * Bookshelf+    Bookshelf (..),+    newBookshelf,++    -- * Bookshelves+    Bookshelves (..),+    newBookshelves,++    -- * Category+    Category (..),+    newCategory,++    -- * Category_ItemsItem+    Category_ItemsItem (..),+    newCategory_ItemsItem,++    -- * ConcurrentAccessRestriction+    ConcurrentAccessRestriction (..),+    newConcurrentAccessRestriction,++    -- * DictionaryAnnotationdata+    DictionaryAnnotationdata (..),+    newDictionaryAnnotationdata,++    -- * Dictlayerdata+    Dictlayerdata (..),+    newDictlayerdata,++    -- * Dictlayerdata_Common+    Dictlayerdata_Common (..),+    newDictlayerdata_Common,++    -- * Dictlayerdata_Dict+    Dictlayerdata_Dict (..),+    newDictlayerdata_Dict,++    -- * Dictlayerdata_Dict_Source+    Dictlayerdata_Dict_Source (..),+    newDictlayerdata_Dict_Source,++    -- * Dictlayerdata_Dict_WordsItem+    Dictlayerdata_Dict_WordsItem (..),+    newDictlayerdata_Dict_WordsItem,++    -- * Dictlayerdata_Dict_WordsItem_DerivativesItem+    Dictlayerdata_Dict_WordsItem_DerivativesItem (..),+    newDictlayerdata_Dict_WordsItem_DerivativesItem,++    -- * Dictlayerdata_Dict_WordsItem_DerivativesItem_Source+    Dictlayerdata_Dict_WordsItem_DerivativesItem_Source (..),+    newDictlayerdata_Dict_WordsItem_DerivativesItem_Source,++    -- * Dictlayerdata_Dict_WordsItem_ExamplesItem+    Dictlayerdata_Dict_WordsItem_ExamplesItem (..),+    newDictlayerdata_Dict_WordsItem_ExamplesItem,++    -- * Dictlayerdata_Dict_WordsItem_ExamplesItem_Source+    Dictlayerdata_Dict_WordsItem_ExamplesItem_Source (..),+    newDictlayerdata_Dict_WordsItem_ExamplesItem_Source,++    -- * Dictlayerdata_Dict_WordsItem_SensesItem+    Dictlayerdata_Dict_WordsItem_SensesItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem,++    -- * Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem+    Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem,++    -- * Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem,++    -- * Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem,++    -- * Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source,++    -- * Dictlayerdata_Dict_WordsItem_SensesItem_Source+    Dictlayerdata_Dict_WordsItem_SensesItem_Source (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_Source,++    -- * Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem+    Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem,++    -- * Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source+    Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source,++    -- * Dictlayerdata_Dict_WordsItem_Source+    Dictlayerdata_Dict_WordsItem_Source (..),+    newDictlayerdata_Dict_WordsItem_Source,++    -- * Discoveryclusters+    Discoveryclusters (..),+    newDiscoveryclusters,++    -- * Discoveryclusters_ClustersItem+    Discoveryclusters_ClustersItem (..),+    newDiscoveryclusters_ClustersItem,++    -- * Discoveryclusters_ClustersItem_Banner_with_content_container+    Discoveryclusters_ClustersItem_Banner_with_content_container (..),+    newDiscoveryclusters_ClustersItem_Banner_with_content_container,++    -- * DownloadAccessRestriction+    DownloadAccessRestriction (..),+    newDownloadAccessRestriction,++    -- * DownloadAccesses+    DownloadAccesses (..),+    newDownloadAccesses,++    -- * Empty+    Empty (..),+    newEmpty,++    -- * FamilyInfo+    FamilyInfo (..),+    newFamilyInfo,++    -- * FamilyInfo_Membership+    FamilyInfo_Membership (..),+    newFamilyInfo_Membership,++    -- * GeoAnnotationdata+    GeoAnnotationdata (..),+    newGeoAnnotationdata,++    -- * Geolayerdata+    Geolayerdata (..),+    newGeolayerdata,++    -- * Geolayerdata_Common+    Geolayerdata_Common (..),+    newGeolayerdata_Common,++    -- * Geolayerdata_Geo+    Geolayerdata_Geo (..),+    newGeolayerdata_Geo,++    -- * Geolayerdata_Geo_Viewport+    Geolayerdata_Geo_Viewport (..),+    newGeolayerdata_Geo_Viewport,++    -- * Geolayerdata_Geo_Viewport_Hi+    Geolayerdata_Geo_Viewport_Hi (..),+    newGeolayerdata_Geo_Viewport_Hi,++    -- * Geolayerdata_Geo_Viewport_Lo+    Geolayerdata_Geo_Viewport_Lo (..),+    newGeolayerdata_Geo_Viewport_Lo,++    -- * Layersummaries+    Layersummaries (..),+    newLayersummaries,++    -- * Layersummary+    Layersummary (..),+    newLayersummary,++    -- * Metadata+    Metadata (..),+    newMetadata,++    -- * Metadata_ItemsItem+    Metadata_ItemsItem (..),+    newMetadata_ItemsItem,++    -- * Notification+    Notification (..),+    newNotification,++    -- * Offers+    Offers (..),+    newOffers,++    -- * Offers_ItemsItem+    Offers_ItemsItem (..),+    newOffers_ItemsItem,++    -- * Offers_ItemsItem_ItemsItem+    Offers_ItemsItem_ItemsItem (..),+    newOffers_ItemsItem_ItemsItem,++    -- * ReadingPosition+    ReadingPosition (..),+    newReadingPosition,++    -- * RequestAccessData+    RequestAccessData (..),+    newRequestAccessData,++    -- * Review+    Review (..),+    newReview,++    -- * Review_Author+    Review_Author (..),+    newReview_Author,++    -- * Review_Source+    Review_Source (..),+    newReview_Source,++    -- * Series+    Series (..),+    newSeries,++    -- * Series_SeriesItem+    Series_SeriesItem (..),+    newSeries_SeriesItem,++    -- * Series_SeriesItem_SeriesSubscriptionReleaseInfo+    Series_SeriesItem_SeriesSubscriptionReleaseInfo (..),+    newSeries_SeriesItem_SeriesSubscriptionReleaseInfo,++    -- * Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo+    Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo (..),+    newSeries_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo,++    -- * Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo+    Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo (..),+    newSeries_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo,++    -- * Seriesmembership+    Seriesmembership (..),+    newSeriesmembership,++    -- * Usersettings+    Usersettings (..),+    newUsersettings,++    -- * Usersettings_NotesExport+    Usersettings_NotesExport (..),+    newUsersettings_NotesExport,++    -- * Usersettings_Notification+    Usersettings_Notification (..),+    newUsersettings_Notification,++    -- * Usersettings_Notification_MatchMyInterests+    Usersettings_Notification_MatchMyInterests (..),+    newUsersettings_Notification_MatchMyInterests,++    -- * Usersettings_Notification_MoreFromAuthors+    Usersettings_Notification_MoreFromAuthors (..),+    newUsersettings_Notification_MoreFromAuthors,++    -- * Usersettings_Notification_MoreFromSeries+    Usersettings_Notification_MoreFromSeries (..),+    newUsersettings_Notification_MoreFromSeries,++    -- * Usersettings_Notification_PriceDrop+    Usersettings_Notification_PriceDrop (..),+    newUsersettings_Notification_PriceDrop,++    -- * Usersettings_Notification_RewardExpirations+    Usersettings_Notification_RewardExpirations (..),+    newUsersettings_Notification_RewardExpirations,++    -- * Volume+    Volume (..),+    newVolume,++    -- * Volume_AccessInfo+    Volume_AccessInfo (..),+    newVolume_AccessInfo,++    -- * Volume_AccessInfo_Epub+    Volume_AccessInfo_Epub (..),+    newVolume_AccessInfo_Epub,++    -- * Volume_AccessInfo_Pdf+    Volume_AccessInfo_Pdf (..),+    newVolume_AccessInfo_Pdf,++    -- * Volume_LayerInfo+    Volume_LayerInfo (..),+    newVolume_LayerInfo,++    -- * Volume_LayerInfo_LayersItem+    Volume_LayerInfo_LayersItem (..),+    newVolume_LayerInfo_LayersItem,++    -- * Volume_RecommendedInfo+    Volume_RecommendedInfo (..),+    newVolume_RecommendedInfo,++    -- * Volume_SaleInfo+    Volume_SaleInfo (..),+    newVolume_SaleInfo,++    -- * Volume_SaleInfo_ListPrice+    Volume_SaleInfo_ListPrice (..),+    newVolume_SaleInfo_ListPrice,++    -- * Volume_SaleInfo_OffersItem+    Volume_SaleInfo_OffersItem (..),+    newVolume_SaleInfo_OffersItem,++    -- * Volume_SaleInfo_OffersItem_ListPrice+    Volume_SaleInfo_OffersItem_ListPrice (..),+    newVolume_SaleInfo_OffersItem_ListPrice,++    -- * Volume_SaleInfo_OffersItem_RentalDuration+    Volume_SaleInfo_OffersItem_RentalDuration (..),+    newVolume_SaleInfo_OffersItem_RentalDuration,++    -- * Volume_SaleInfo_OffersItem_RetailPrice+    Volume_SaleInfo_OffersItem_RetailPrice (..),+    newVolume_SaleInfo_OffersItem_RetailPrice,++    -- * Volume_SaleInfo_RetailPrice+    Volume_SaleInfo_RetailPrice (..),+    newVolume_SaleInfo_RetailPrice,++    -- * Volume_SearchInfo+    Volume_SearchInfo (..),+    newVolume_SearchInfo,++    -- * Volume_UserInfo+    Volume_UserInfo (..),+    newVolume_UserInfo,++    -- * Volume_UserInfo_Copy+    Volume_UserInfo_Copy (..),+    newVolume_UserInfo_Copy,++    -- * Volume_UserInfo_FamilySharing+    Volume_UserInfo_FamilySharing (..),+    newVolume_UserInfo_FamilySharing,++    -- * Volume_UserInfo_RentalPeriod+    Volume_UserInfo_RentalPeriod (..),+    newVolume_UserInfo_RentalPeriod,++    -- * Volume_UserInfo_UserUploadedVolumeInfo+    Volume_UserInfo_UserUploadedVolumeInfo (..),+    newVolume_UserInfo_UserUploadedVolumeInfo,++    -- * Volume_VolumeInfo+    Volume_VolumeInfo (..),+    newVolume_VolumeInfo,++    -- * Volume_VolumeInfo_Dimensions+    Volume_VolumeInfo_Dimensions (..),+    newVolume_VolumeInfo_Dimensions,++    -- * Volume_VolumeInfo_ImageLinks+    Volume_VolumeInfo_ImageLinks (..),+    newVolume_VolumeInfo_ImageLinks,++    -- * Volume_VolumeInfo_IndustryIdentifiersItem+    Volume_VolumeInfo_IndustryIdentifiersItem (..),+    newVolume_VolumeInfo_IndustryIdentifiersItem,++    -- * Volume_VolumeInfo_PanelizationSummary+    Volume_VolumeInfo_PanelizationSummary (..),+    newVolume_VolumeInfo_PanelizationSummary,++    -- * Volume_VolumeInfo_ReadingModes+    Volume_VolumeInfo_ReadingModes (..),+    newVolume_VolumeInfo_ReadingModes,++    -- * Volume2+    Volume2 (..),+    newVolume2,++    -- * Volumeannotation+    Volumeannotation (..),+    newVolumeannotation,++    -- * Volumeannotation_ContentRanges+    Volumeannotation_ContentRanges (..),+    newVolumeannotation_ContentRanges,++    -- * Volumeannotations+    Volumeannotations (..),+    newVolumeannotations,++    -- * Volumes+    Volumes (..),+    newVolumes,++    -- * Volumeseriesinfo+    Volumeseriesinfo (..),+    newVolumeseriesinfo,++    -- * Volumeseriesinfo_VolumeSeriesItem+    Volumeseriesinfo_VolumeSeriesItem (..),+    newVolumeseriesinfo_VolumeSeriesItem,++    -- * Volumeseriesinfo_VolumeSeriesItem_IssueItem+    Volumeseriesinfo_VolumeSeriesItem_IssueItem (..),+    newVolumeseriesinfo_VolumeSeriesItem_IssueItem,+  )+where++import Gogol.Books.Internal.Sum+import Gogol.Prelude qualified as Core++--+-- /See:/ 'newAnnotation' smart constructor.+data Annotation = Annotation+  { -- | Anchor text after excerpt. For requests, if the user bookmarked a screen that has no flowing text on it, then this field should be empty.+    afterSelectedText :: (Core.Maybe Core.Text),+    -- | Anchor text before excerpt. For requests, if the user bookmarked a screen that has no flowing text on it, then this field should be empty.+    beforeSelectedText :: (Core.Maybe Core.Text),+    -- | Selection ranges sent from the client.+    clientVersionRanges :: (Core.Maybe Annotation_ClientVersionRanges),+    -- | Timestamp for the created time of this annotation.+    created :: (Core.Maybe Core.Text),+    -- | Selection ranges for the most recent content version.+    currentVersionRanges :: (Core.Maybe Annotation_CurrentVersionRanges),+    -- | User-created data for this annotation.+    data' :: (Core.Maybe Core.Text),+    -- | Indicates that this annotation is deleted.+    deleted :: (Core.Maybe Core.Bool),+    -- | The highlight style for this annotation.+    highlightStyle :: (Core.Maybe Core.Text),+    -- | Id of this annotation, in the form of a GUID.+    id :: (Core.Maybe Core.Text),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text),+    -- | The layer this annotation is for.+    layerId :: (Core.Maybe Core.Text),+    layerSummary :: (Core.Maybe Annotation_LayerSummary),+    -- | Pages that this annotation spans.+    pageIds :: (Core.Maybe [Core.Text]),+    -- | Excerpt from the volume.+    selectedText :: (Core.Maybe Core.Text),+    -- | URL to this resource.+    selfLink :: (Core.Maybe Core.Text),+    -- | Timestamp for the last time this annotation was modified.+    updated :: (Core.Maybe Core.Text),+    -- | The volume that this annotation belongs to.+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Annotation' with the minimum fields required to make a request.+newAnnotation ::+  Annotation+newAnnotation =+  Annotation+    { afterSelectedText = Core.Nothing,+      beforeSelectedText = Core.Nothing,+      clientVersionRanges = Core.Nothing,+      created = Core.Nothing,+      currentVersionRanges = Core.Nothing,+      data' = Core.Nothing,+      deleted = Core.Nothing,+      highlightStyle = Core.Nothing,+      id = Core.Nothing,+      kind = Core.Nothing,+      layerId = Core.Nothing,+      layerSummary = Core.Nothing,+      pageIds = Core.Nothing,+      selectedText = Core.Nothing,+      selfLink = Core.Nothing,+      updated = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.FromJSON Annotation where+  parseJSON =+    Core.withObject+      "Annotation"+      ( \o ->+          Annotation+            Core.<$> (o Core..:? "afterSelectedText")+            Core.<*> (o Core..:? "beforeSelectedText")+            Core.<*> (o Core..:? "clientVersionRanges")+            Core.<*> (o Core..:? "created")+            Core.<*> (o Core..:? "currentVersionRanges")+            Core.<*> (o Core..:? "data")+            Core.<*> (o Core..:? "deleted")+            Core.<*> (o Core..:? "highlightStyle")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "layerId")+            Core.<*> (o Core..:? "layerSummary")+            Core.<*> (o Core..:? "pageIds")+            Core.<*> (o Core..:? "selectedText")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "volumeId")+      )++instance Core.ToJSON Annotation where+  toJSON Annotation {..} =+    Core.object+      ( Core.catMaybes+          [ ("afterSelectedText" Core..=) Core.<$> afterSelectedText,+            ("beforeSelectedText" Core..=) Core.<$> beforeSelectedText,+            ("clientVersionRanges" Core..=) Core.<$> clientVersionRanges,+            ("created" Core..=) Core.<$> created,+            ("currentVersionRanges" Core..=) Core.<$> currentVersionRanges,+            ("data" Core..=) Core.<$> data',+            ("deleted" Core..=) Core.<$> deleted,+            ("highlightStyle" Core..=) Core.<$> highlightStyle,+            ("id" Core..=) Core.<$> id,+            ("kind" Core..=) Core.<$> kind,+            ("layerId" Core..=) Core.<$> layerId,+            ("layerSummary" Core..=) Core.<$> layerSummary,+            ("pageIds" Core..=) Core.<$> pageIds,+            ("selectedText" Core..=) Core.<$> selectedText,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("updated" Core..=) Core.<$> updated,+            ("volumeId" Core..=) Core.<$> volumeId+          ]+      )++-- | Selection ranges sent from the client.+--+-- /See:/ 'newAnnotation_ClientVersionRanges' smart constructor.+data Annotation_ClientVersionRanges = Annotation_ClientVersionRanges+  { -- | Range in CFI format for this annotation sent by client.+    cfiRange :: (Core.Maybe BooksAnnotationsRange),+    -- | Content version the client sent in.+    contentVersion :: (Core.Maybe Core.Text),+    -- | Range in GB image format for this annotation sent by client.+    gbImageRange :: (Core.Maybe BooksAnnotationsRange),+    -- | Range in GB text format for this annotation sent by client.+    gbTextRange :: (Core.Maybe BooksAnnotationsRange),+    -- | Range in image CFI format for this annotation sent by client.+    imageCfiRange :: (Core.Maybe BooksAnnotationsRange)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Annotation_ClientVersionRanges' with the minimum fields required to make a request.+newAnnotation_ClientVersionRanges ::+  Annotation_ClientVersionRanges+newAnnotation_ClientVersionRanges =+  Annotation_ClientVersionRanges+    { cfiRange = Core.Nothing,+      contentVersion = Core.Nothing,+      gbImageRange = Core.Nothing,+      gbTextRange = Core.Nothing,+      imageCfiRange = Core.Nothing+    }++instance Core.FromJSON Annotation_ClientVersionRanges where+  parseJSON =+    Core.withObject+      "Annotation_ClientVersionRanges"+      ( \o ->+          Annotation_ClientVersionRanges+            Core.<$> (o Core..:? "cfiRange")+            Core.<*> (o Core..:? "contentVersion")+            Core.<*> (o Core..:? "gbImageRange")+            Core.<*> (o Core..:? "gbTextRange")+            Core.<*> (o Core..:? "imageCfiRange")+      )++instance Core.ToJSON Annotation_ClientVersionRanges where+  toJSON Annotation_ClientVersionRanges {..} =+    Core.object+      ( Core.catMaybes+          [ ("cfiRange" Core..=) Core.<$> cfiRange,+            ("contentVersion" Core..=) Core.<$> contentVersion,+            ("gbImageRange" Core..=) Core.<$> gbImageRange,+            ("gbTextRange" Core..=) Core.<$> gbTextRange,+            ("imageCfiRange" Core..=) Core.<$> imageCfiRange+          ]+      )++-- | Selection ranges for the most recent content version.+--+-- /See:/ 'newAnnotation_CurrentVersionRanges' smart constructor.+data Annotation_CurrentVersionRanges = Annotation_CurrentVersionRanges+  { -- | Range in CFI format for this annotation for version above.+    cfiRange :: (Core.Maybe BooksAnnotationsRange),+    -- | Content version applicable to ranges below.+    contentVersion :: (Core.Maybe Core.Text),+    -- | Range in GB image format for this annotation for version above.+    gbImageRange :: (Core.Maybe BooksAnnotationsRange),+    -- | Range in GB text format for this annotation for version above.+    gbTextRange :: (Core.Maybe BooksAnnotationsRange),+    -- | Range in image CFI format for this annotation for version above.+    imageCfiRange :: (Core.Maybe BooksAnnotationsRange)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Annotation_CurrentVersionRanges' with the minimum fields required to make a request.+newAnnotation_CurrentVersionRanges ::+  Annotation_CurrentVersionRanges+newAnnotation_CurrentVersionRanges =+  Annotation_CurrentVersionRanges+    { cfiRange = Core.Nothing,+      contentVersion = Core.Nothing,+      gbImageRange = Core.Nothing,+      gbTextRange = Core.Nothing,+      imageCfiRange = Core.Nothing+    }++instance Core.FromJSON Annotation_CurrentVersionRanges where+  parseJSON =+    Core.withObject+      "Annotation_CurrentVersionRanges"+      ( \o ->+          Annotation_CurrentVersionRanges+            Core.<$> (o Core..:? "cfiRange")+            Core.<*> (o Core..:? "contentVersion")+            Core.<*> (o Core..:? "gbImageRange")+            Core.<*> (o Core..:? "gbTextRange")+            Core.<*> (o Core..:? "imageCfiRange")+      )++instance Core.ToJSON Annotation_CurrentVersionRanges where+  toJSON Annotation_CurrentVersionRanges {..} =+    Core.object+      ( Core.catMaybes+          [ ("cfiRange" Core..=) Core.<$> cfiRange,+            ("contentVersion" Core..=) Core.<$> contentVersion,+            ("gbImageRange" Core..=) Core.<$> gbImageRange,+            ("gbTextRange" Core..=) Core.<$> gbTextRange,+            ("imageCfiRange" Core..=) Core.<$> imageCfiRange+          ]+      )++--+-- /See:/ 'newAnnotation_LayerSummary' smart constructor.+data Annotation_LayerSummary = Annotation_LayerSummary+  { -- | Maximum allowed characters on this layer, especially for the \"copy\" layer.+    allowedCharacterCount :: (Core.Maybe Core.Int32),+    -- | Type of limitation on this layer. \"limited\" or \"unlimited\" for the \"copy\" layer.+    limitType :: (Core.Maybe Core.Text),+    -- | Remaining allowed characters on this layer, especially for the \"copy\" layer.+    remainingCharacterCount :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Annotation_LayerSummary' with the minimum fields required to make a request.+newAnnotation_LayerSummary ::+  Annotation_LayerSummary+newAnnotation_LayerSummary =+  Annotation_LayerSummary+    { allowedCharacterCount = Core.Nothing,+      limitType = Core.Nothing,+      remainingCharacterCount = Core.Nothing+    }++instance Core.FromJSON Annotation_LayerSummary where+  parseJSON =+    Core.withObject+      "Annotation_LayerSummary"+      ( \o ->+          Annotation_LayerSummary+            Core.<$> (o Core..:? "allowedCharacterCount")+            Core.<*> (o Core..:? "limitType")+            Core.<*> (o Core..:? "remainingCharacterCount")+      )++instance Core.ToJSON Annotation_LayerSummary where+  toJSON Annotation_LayerSummary {..} =+    Core.object+      ( Core.catMaybes+          [ ("allowedCharacterCount" Core..=) Core.<$> allowedCharacterCount,+            ("limitType" Core..=) Core.<$> limitType,+            ("remainingCharacterCount" Core..=)+              Core.<$> remainingCharacterCount+          ]+      )++--+-- /See:/ 'newAnnotations' smart constructor.+data Annotations = Annotations+  { -- | A list of annotations.+    items :: (Core.Maybe [Annotation]),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text),+    -- | Token to pass in for pagination for the next page. This will not be present if this request does not have more results.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | Total number of annotations found. This may be greater than the number of notes returned in this response if results have been paginated.+    totalItems :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Annotations' with the minimum fields required to make a request.+newAnnotations ::+  Annotations+newAnnotations =+  Annotations+    { items = Core.Nothing,+      kind = Core.Nothing,+      nextPageToken = Core.Nothing,+      totalItems = Core.Nothing+    }++instance Core.FromJSON Annotations where+  parseJSON =+    Core.withObject+      "Annotations"+      ( \o ->+          Annotations+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "totalItems")+      )++instance Core.ToJSON Annotations where+  toJSON Annotations {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("kind" Core..=) Core.<$> kind,+            ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("totalItems" Core..=) Core.<$> totalItems+          ]+      )++--+-- /See:/ 'newAnnotationsSummary' smart constructor.+data AnnotationsSummary = AnnotationsSummary+  { kind :: (Core.Maybe Core.Text),+    layers :: (Core.Maybe [AnnotationsSummary_LayersItem])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnnotationsSummary' with the minimum fields required to make a request.+newAnnotationsSummary ::+  AnnotationsSummary+newAnnotationsSummary =+  AnnotationsSummary {kind = Core.Nothing, layers = Core.Nothing}++instance Core.FromJSON AnnotationsSummary where+  parseJSON =+    Core.withObject+      "AnnotationsSummary"+      ( \o ->+          AnnotationsSummary+            Core.<$> (o Core..:? "kind")+            Core.<*> (o Core..:? "layers")+      )++instance Core.ToJSON AnnotationsSummary where+  toJSON AnnotationsSummary {..} =+    Core.object+      ( Core.catMaybes+          [ ("kind" Core..=) Core.<$> kind,+            ("layers" Core..=) Core.<$> layers+          ]+      )++--+-- /See:/ 'newAnnotationsSummary_LayersItem' smart constructor.+data AnnotationsSummary_LayersItem = AnnotationsSummary_LayersItem+  { allowedCharacterCount :: (Core.Maybe Core.Int32),+    layerId :: (Core.Maybe Core.Text),+    limitType :: (Core.Maybe Core.Text),+    remainingCharacterCount :: (Core.Maybe Core.Int32),+    updated :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AnnotationsSummary_LayersItem' with the minimum fields required to make a request.+newAnnotationsSummary_LayersItem ::+  AnnotationsSummary_LayersItem+newAnnotationsSummary_LayersItem =+  AnnotationsSummary_LayersItem+    { allowedCharacterCount =+        Core.Nothing,+      layerId = Core.Nothing,+      limitType = Core.Nothing,+      remainingCharacterCount = Core.Nothing,+      updated = Core.Nothing+    }++instance Core.FromJSON AnnotationsSummary_LayersItem where+  parseJSON =+    Core.withObject+      "AnnotationsSummary_LayersItem"+      ( \o ->+          AnnotationsSummary_LayersItem+            Core.<$> (o Core..:? "allowedCharacterCount")+            Core.<*> (o Core..:? "layerId")+            Core.<*> (o Core..:? "limitType")+            Core.<*> (o Core..:? "remainingCharacterCount")+            Core.<*> (o Core..:? "updated")+      )++instance Core.ToJSON AnnotationsSummary_LayersItem where+  toJSON AnnotationsSummary_LayersItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("allowedCharacterCount" Core..=) Core.<$> allowedCharacterCount,+            ("layerId" Core..=) Core.<$> layerId,+            ("limitType" Core..=) Core.<$> limitType,+            ("remainingCharacterCount" Core..=)+              Core.<$> remainingCharacterCount,+            ("updated" Core..=) Core.<$> updated+          ]+      )++--+-- /See:/ 'newAnnotationsdata' smart constructor.+data Annotationsdata = Annotationsdata+  { -- | A list of Annotation Data.+    items :: (Core.Maybe [GeoAnnotationdata]),+    -- | Resource type+    kind :: (Core.Maybe Core.Text),+    -- | Token to pass in for pagination for the next page. This will not be present if this request does not have more results.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | The total number of volume annotations found.+    totalItems :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Annotationsdata' with the minimum fields required to make a request.+newAnnotationsdata ::+  Annotationsdata+newAnnotationsdata =+  Annotationsdata+    { items = Core.Nothing,+      kind = Core.Nothing,+      nextPageToken = Core.Nothing,+      totalItems = Core.Nothing+    }++instance Core.FromJSON Annotationsdata where+  parseJSON =+    Core.withObject+      "Annotationsdata"+      ( \o ->+          Annotationsdata+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "totalItems")+      )++instance Core.ToJSON Annotationsdata where+  toJSON Annotationsdata {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("kind" Core..=) Core.<$> kind,+            ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("totalItems" Core..=) Core.<$> totalItems+          ]+      )++--+-- /See:/ 'newBooksAnnotationsRange' smart constructor.+data BooksAnnotationsRange = BooksAnnotationsRange+  { -- | The offset from the ending position.+    endOffset :: (Core.Maybe Core.Text),+    -- | The ending position for the range.+    endPosition :: (Core.Maybe Core.Text),+    -- | The offset from the starting position.+    startOffset :: (Core.Maybe Core.Text),+    -- | The starting position for the range.+    startPosition :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksAnnotationsRange' with the minimum fields required to make a request.+newBooksAnnotationsRange ::+  BooksAnnotationsRange+newBooksAnnotationsRange =+  BooksAnnotationsRange+    { endOffset = Core.Nothing,+      endPosition = Core.Nothing,+      startOffset = Core.Nothing,+      startPosition = Core.Nothing+    }++instance Core.FromJSON BooksAnnotationsRange where+  parseJSON =+    Core.withObject+      "BooksAnnotationsRange"+      ( \o ->+          BooksAnnotationsRange+            Core.<$> (o Core..:? "endOffset")+            Core.<*> (o Core..:? "endPosition")+            Core.<*> (o Core..:? "startOffset")+            Core.<*> (o Core..:? "startPosition")+      )++instance Core.ToJSON BooksAnnotationsRange where+  toJSON BooksAnnotationsRange {..} =+    Core.object+      ( Core.catMaybes+          [ ("endOffset" Core..=) Core.<$> endOffset,+            ("endPosition" Core..=) Core.<$> endPosition,+            ("startOffset" Core..=) Core.<$> startOffset,+            ("startPosition" Core..=) Core.<$> startPosition+          ]+      )++--+-- /See:/ 'newBooksCloudloadingResource' smart constructor.+data BooksCloudloadingResource = BooksCloudloadingResource+  { author :: (Core.Maybe Core.Text),+    processingState :: (Core.Maybe Core.Text),+    title :: (Core.Maybe Core.Text),+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksCloudloadingResource' with the minimum fields required to make a request.+newBooksCloudloadingResource ::+  BooksCloudloadingResource+newBooksCloudloadingResource =+  BooksCloudloadingResource+    { author = Core.Nothing,+      processingState = Core.Nothing,+      title = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.FromJSON BooksCloudloadingResource where+  parseJSON =+    Core.withObject+      "BooksCloudloadingResource"+      ( \o ->+          BooksCloudloadingResource+            Core.<$> (o Core..:? "author")+            Core.<*> (o Core..:? "processingState")+            Core.<*> (o Core..:? "title")+            Core.<*> (o Core..:? "volumeId")+      )++instance Core.ToJSON BooksCloudloadingResource where+  toJSON BooksCloudloadingResource {..} =+    Core.object+      ( Core.catMaybes+          [ ("author" Core..=) Core.<$> author,+            ("processingState" Core..=) Core.<$> processingState,+            ("title" Core..=) Core.<$> title,+            ("volumeId" Core..=) Core.<$> volumeId+          ]+      )++--+-- /See:/ 'newBooksVolumesRecommendedRateResponse' smart constructor.+newtype BooksVolumesRecommendedRateResponse = BooksVolumesRecommendedRateResponse+  { consistencyToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksVolumesRecommendedRateResponse' with the minimum fields required to make a request.+newBooksVolumesRecommendedRateResponse ::+  BooksVolumesRecommendedRateResponse+newBooksVolumesRecommendedRateResponse =+  BooksVolumesRecommendedRateResponse+    { consistencyToken =+        Core.Nothing+    }++instance Core.FromJSON BooksVolumesRecommendedRateResponse where+  parseJSON =+    Core.withObject+      "BooksVolumesRecommendedRateResponse"+      ( \o ->+          BooksVolumesRecommendedRateResponse+            Core.<$> (o Core..:? "consistency_token")+      )++instance Core.ToJSON BooksVolumesRecommendedRateResponse where+  toJSON BooksVolumesRecommendedRateResponse {..} =+    Core.object+      ( Core.catMaybes+          [("consistency_token" Core..=) Core.<$> consistencyToken]+      )++--+-- /See:/ 'newBookshelf' smart constructor.+data Bookshelf = Bookshelf+  { -- | Whether this bookshelf is PUBLIC or PRIVATE.+    access :: (Core.Maybe Core.Text),+    -- | Created time for this bookshelf (formatted UTC timestamp with millisecond resolution).+    created :: (Core.Maybe Core.Text),+    -- | Description of this bookshelf.+    description :: (Core.Maybe Core.Text),+    -- | Id of this bookshelf, only unique by user.+    id :: (Core.Maybe Core.Int32),+    -- | Resource type for bookshelf metadata.+    kind :: (Core.Maybe Core.Text),+    -- | URL to this resource.+    selfLink :: (Core.Maybe Core.Text),+    -- | Title of this bookshelf.+    title :: (Core.Maybe Core.Text),+    -- | Last modified time of this bookshelf (formatted UTC timestamp with millisecond resolution).+    updated :: (Core.Maybe Core.Text),+    -- | Number of volumes in this bookshelf.+    volumeCount :: (Core.Maybe Core.Int32),+    -- | Last time a volume was added or removed from this bookshelf (formatted UTC timestamp with millisecond resolution).+    volumesLastUpdated :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Bookshelf' with the minimum fields required to make a request.+newBookshelf ::+  Bookshelf+newBookshelf =+  Bookshelf+    { access = Core.Nothing,+      created = Core.Nothing,+      description = Core.Nothing,+      id = Core.Nothing,+      kind = Core.Nothing,+      selfLink = Core.Nothing,+      title = Core.Nothing,+      updated = Core.Nothing,+      volumeCount = Core.Nothing,+      volumesLastUpdated = Core.Nothing+    }++instance Core.FromJSON Bookshelf where+  parseJSON =+    Core.withObject+      "Bookshelf"+      ( \o ->+          Bookshelf+            Core.<$> (o Core..:? "access")+            Core.<*> (o Core..:? "created")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "title")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "volumeCount")+            Core.<*> (o Core..:? "volumesLastUpdated")+      )++instance Core.ToJSON Bookshelf where+  toJSON Bookshelf {..} =+    Core.object+      ( Core.catMaybes+          [ ("access" Core..=) Core.<$> access,+            ("created" Core..=) Core.<$> created,+            ("description" Core..=) Core.<$> description,+            ("id" Core..=) Core.<$> id,+            ("kind" Core..=) Core.<$> kind,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("title" Core..=) Core.<$> title,+            ("updated" Core..=) Core.<$> updated,+            ("volumeCount" Core..=) Core.<$> volumeCount,+            ("volumesLastUpdated" Core..=) Core.<$> volumesLastUpdated+          ]+      )++--+-- /See:/ 'newBookshelves' smart constructor.+data Bookshelves = Bookshelves+  { -- | A list of bookshelves.+    items :: (Core.Maybe [Bookshelf]),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Bookshelves' with the minimum fields required to make a request.+newBookshelves ::+  Bookshelves+newBookshelves =+  Bookshelves {items = Core.Nothing, kind = Core.Nothing}++instance Core.FromJSON Bookshelves where+  parseJSON =+    Core.withObject+      "Bookshelves"+      ( \o ->+          Bookshelves+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "kind")+      )++instance Core.ToJSON Bookshelves where+  toJSON Bookshelves {..} =+    Core.object+      ( Core.catMaybes+          [("items" Core..=) Core.<$> items, ("kind" Core..=) Core.<$> kind]+      )++--+-- /See:/ 'newCategory' smart constructor.+data Category = Category+  { -- | A list of onboarding categories.+    items :: (Core.Maybe [Category_ItemsItem]),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Category' with the minimum fields required to make a request.+newCategory ::+  Category+newCategory = Category {items = Core.Nothing, kind = Core.Nothing}++instance Core.FromJSON Category where+  parseJSON =+    Core.withObject+      "Category"+      ( \o ->+          Category+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "kind")+      )++instance Core.ToJSON Category where+  toJSON Category {..} =+    Core.object+      ( Core.catMaybes+          [("items" Core..=) Core.<$> items, ("kind" Core..=) Core.<$> kind]+      )++--+-- /See:/ 'newCategory_ItemsItem' smart constructor.+data Category_ItemsItem = Category_ItemsItem+  { badgeUrl :: (Core.Maybe Core.Text),+    categoryId :: (Core.Maybe Core.Text),+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Category_ItemsItem' with the minimum fields required to make a request.+newCategory_ItemsItem ::+  Category_ItemsItem+newCategory_ItemsItem =+  Category_ItemsItem+    { badgeUrl = Core.Nothing,+      categoryId = Core.Nothing,+      name = Core.Nothing+    }++instance Core.FromJSON Category_ItemsItem where+  parseJSON =+    Core.withObject+      "Category_ItemsItem"+      ( \o ->+          Category_ItemsItem+            Core.<$> (o Core..:? "badgeUrl")+            Core.<*> (o Core..:? "categoryId")+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON Category_ItemsItem where+  toJSON Category_ItemsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("badgeUrl" Core..=) Core.<$> badgeUrl,+            ("categoryId" Core..=) Core.<$> categoryId,+            ("name" Core..=) Core.<$> name+          ]+      )++--+-- /See:/ 'newConcurrentAccessRestriction' smart constructor.+data ConcurrentAccessRestriction = ConcurrentAccessRestriction+  { -- | Whether access is granted for this (user, device, volume).+    deviceAllowed :: (Core.Maybe Core.Bool),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text),+    -- | The maximum number of concurrent access licenses for this volume.+    maxConcurrentDevices :: (Core.Maybe Core.Int32),+    -- | Error\/warning message.+    message :: (Core.Maybe Core.Text),+    -- | Client nonce for verification. Download access and client-validation only.+    nonce :: (Core.Maybe Core.Text),+    -- | Error\/warning reason code.+    reasonCode :: (Core.Maybe Core.Text),+    -- | Whether this volume has any concurrent access restrictions.+    restricted :: (Core.Maybe Core.Bool),+    -- | Response signature.+    signature :: (Core.Maybe Core.Text),+    -- | Client app identifier for verification. Download access and client-validation only.+    source :: (Core.Maybe Core.Text),+    -- | Time in seconds for license auto-expiration.+    timeWindowSeconds :: (Core.Maybe Core.Int32),+    -- | Identifies the volume for which this entry applies.+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ConcurrentAccessRestriction' with the minimum fields required to make a request.+newConcurrentAccessRestriction ::+  ConcurrentAccessRestriction+newConcurrentAccessRestriction =+  ConcurrentAccessRestriction+    { deviceAllowed = Core.Nothing,+      kind = Core.Nothing,+      maxConcurrentDevices = Core.Nothing,+      message = Core.Nothing,+      nonce = Core.Nothing,+      reasonCode = Core.Nothing,+      restricted = Core.Nothing,+      signature = Core.Nothing,+      source = Core.Nothing,+      timeWindowSeconds = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.FromJSON ConcurrentAccessRestriction where+  parseJSON =+    Core.withObject+      "ConcurrentAccessRestriction"+      ( \o ->+          ConcurrentAccessRestriction+            Core.<$> (o Core..:? "deviceAllowed")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "maxConcurrentDevices")+            Core.<*> (o Core..:? "message")+            Core.<*> (o Core..:? "nonce")+            Core.<*> (o Core..:? "reasonCode")+            Core.<*> (o Core..:? "restricted")+            Core.<*> (o Core..:? "signature")+            Core.<*> (o Core..:? "source")+            Core.<*> (o Core..:? "timeWindowSeconds")+            Core.<*> (o Core..:? "volumeId")+      )++instance Core.ToJSON ConcurrentAccessRestriction where+  toJSON ConcurrentAccessRestriction {..} =+    Core.object+      ( Core.catMaybes+          [ ("deviceAllowed" Core..=) Core.<$> deviceAllowed,+            ("kind" Core..=) Core.<$> kind,+            ("maxConcurrentDevices" Core..=) Core.<$> maxConcurrentDevices,+            ("message" Core..=) Core.<$> message,+            ("nonce" Core..=) Core.<$> nonce,+            ("reasonCode" Core..=) Core.<$> reasonCode,+            ("restricted" Core..=) Core.<$> restricted,+            ("signature" Core..=) Core.<$> signature,+            ("source" Core..=) Core.<$> source,+            ("timeWindowSeconds" Core..=) Core.<$> timeWindowSeconds,+            ("volumeId" Core..=) Core.<$> volumeId+          ]+      )++--+-- /See:/ 'newDictionaryAnnotationdata' smart constructor.+data DictionaryAnnotationdata = DictionaryAnnotationdata+  { -- | The type of annotation this data is for.+    annotationType :: (Core.Maybe Core.Text),+    -- | JSON encoded data for this dictionary annotation data. Emitted with name \'data\' in JSON output. Either this or geo_data will be populated.+    data' :: (Core.Maybe Dictlayerdata),+    -- | Base64 encoded data for this annotation data.+    encodedData :: (Core.Maybe Core.Base64),+    -- | Unique id for this annotation data.+    id :: (Core.Maybe Core.Text),+    -- | Resource Type+    kind :: (Core.Maybe Core.Text),+    -- | The Layer id for this data. *+    layerId :: (Core.Maybe Core.Text),+    -- | URL for this resource. *+    selfLink :: (Core.Maybe Core.Text),+    -- | Timestamp for the last time this data was updated. (RFC 3339 UTC date-time format).+    updated :: (Core.Maybe Core.Text),+    -- | The volume id for this data. *+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DictionaryAnnotationdata' with the minimum fields required to make a request.+newDictionaryAnnotationdata ::+  DictionaryAnnotationdata+newDictionaryAnnotationdata =+  DictionaryAnnotationdata+    { annotationType = Core.Nothing,+      data' = Core.Nothing,+      encodedData = Core.Nothing,+      id = Core.Nothing,+      kind = Core.Nothing,+      layerId = Core.Nothing,+      selfLink = Core.Nothing,+      updated = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.FromJSON DictionaryAnnotationdata where+  parseJSON =+    Core.withObject+      "DictionaryAnnotationdata"+      ( \o ->+          DictionaryAnnotationdata+            Core.<$> (o Core..:? "annotationType")+            Core.<*> (o Core..:? "data")+            Core.<*> (o Core..:? "encodedData")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "layerId")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "volumeId")+      )++instance Core.ToJSON DictionaryAnnotationdata where+  toJSON DictionaryAnnotationdata {..} =+    Core.object+      ( Core.catMaybes+          [ ("annotationType" Core..=) Core.<$> annotationType,+            ("data" Core..=) Core.<$> data',+            ("encodedData" Core..=) Core.<$> encodedData,+            ("id" Core..=) Core.<$> id,+            ("kind" Core..=) Core.<$> kind,+            ("layerId" Core..=) Core.<$> layerId,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("updated" Core..=) Core.<$> updated,+            ("volumeId" Core..=) Core.<$> volumeId+          ]+      )++--+-- /See:/ 'newDictlayerdata' smart constructor.+data Dictlayerdata = Dictlayerdata+  { common :: (Core.Maybe Dictlayerdata_Common),+    dict :: (Core.Maybe Dictlayerdata_Dict),+    kind :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata' with the minimum fields required to make a request.+newDictlayerdata ::+  Dictlayerdata+newDictlayerdata =+  Dictlayerdata+    { common = Core.Nothing,+      dict = Core.Nothing,+      kind = Core.Nothing+    }++instance Core.FromJSON Dictlayerdata where+  parseJSON =+    Core.withObject+      "Dictlayerdata"+      ( \o ->+          Dictlayerdata+            Core.<$> (o Core..:? "common")+            Core.<*> (o Core..:? "dict")+            Core.<*> (o Core..:? "kind")+      )++instance Core.ToJSON Dictlayerdata where+  toJSON Dictlayerdata {..} =+    Core.object+      ( Core.catMaybes+          [ ("common" Core..=) Core.<$> common,+            ("dict" Core..=) Core.<$> dict,+            ("kind" Core..=) Core.<$> kind+          ]+      )++--+-- /See:/ 'newDictlayerdata_Common' smart constructor.+newtype Dictlayerdata_Common = Dictlayerdata_Common+  { -- | The display title and localized canonical name to use when searching for this entity on Google search.+    title :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Common' with the minimum fields required to make a request.+newDictlayerdata_Common ::+  Dictlayerdata_Common+newDictlayerdata_Common =+  Dictlayerdata_Common {title = Core.Nothing}++instance Core.FromJSON Dictlayerdata_Common where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Common"+      (\o -> Dictlayerdata_Common Core.<$> (o Core..:? "title"))++instance Core.ToJSON Dictlayerdata_Common where+  toJSON Dictlayerdata_Common {..} =+    Core.object (Core.catMaybes [("title" Core..=) Core.<$> title])++--+-- /See:/ 'newDictlayerdata_Dict' smart constructor.+data Dictlayerdata_Dict = Dictlayerdata_Dict+  { -- | The source, url and attribution for this dictionary data.+    source :: (Core.Maybe Dictlayerdata_Dict_Source),+    words :: (Core.Maybe [Dictlayerdata_Dict_WordsItem])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict' with the minimum fields required to make a request.+newDictlayerdata_Dict ::+  Dictlayerdata_Dict+newDictlayerdata_Dict =+  Dictlayerdata_Dict {source = Core.Nothing, words = Core.Nothing}++instance Core.FromJSON Dictlayerdata_Dict where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict"+      ( \o ->+          Dictlayerdata_Dict+            Core.<$> (o Core..:? "source")+            Core.<*> (o Core..:? "words")+      )++instance Core.ToJSON Dictlayerdata_Dict where+  toJSON Dictlayerdata_Dict {..} =+    Core.object+      ( Core.catMaybes+          [ ("source" Core..=) Core.<$> source,+            ("words" Core..=) Core.<$> words+          ]+      )++-- | The source, url and attribution for this dictionary data.+--+-- /See:/ 'newDictlayerdata_Dict_Source' smart constructor.+data Dictlayerdata_Dict_Source = Dictlayerdata_Dict_Source+  { attribution :: (Core.Maybe Core.Text),+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_Source' with the minimum fields required to make a request.+newDictlayerdata_Dict_Source ::+  Dictlayerdata_Dict_Source+newDictlayerdata_Dict_Source =+  Dictlayerdata_Dict_Source+    { attribution = Core.Nothing,+      url = Core.Nothing+    }++instance Core.FromJSON Dictlayerdata_Dict_Source where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_Source"+      ( \o ->+          Dictlayerdata_Dict_Source+            Core.<$> (o Core..:? "attribution")+            Core.<*> (o Core..:? "url")+      )++instance Core.ToJSON Dictlayerdata_Dict_Source where+  toJSON Dictlayerdata_Dict_Source {..} =+    Core.object+      ( Core.catMaybes+          [ ("attribution" Core..=) Core.<$> attribution,+            ("url" Core..=) Core.<$> url+          ]+      )++--+-- /See:/ 'newDictlayerdata_Dict_WordsItem' smart constructor.+data Dictlayerdata_Dict_WordsItem = Dictlayerdata_Dict_WordsItem+  { derivatives :: (Core.Maybe [Dictlayerdata_Dict_WordsItem_DerivativesItem]),+    examples :: (Core.Maybe [Dictlayerdata_Dict_WordsItem_ExamplesItem]),+    senses :: (Core.Maybe [Dictlayerdata_Dict_WordsItem_SensesItem]),+    -- | The words with different meanings but not related words, e.g. \"go\" (game) and \"go\" (verb).+    source :: (Core.Maybe Dictlayerdata_Dict_WordsItem_Source)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_WordsItem' with the minimum fields required to make a request.+newDictlayerdata_Dict_WordsItem ::+  Dictlayerdata_Dict_WordsItem+newDictlayerdata_Dict_WordsItem =+  Dictlayerdata_Dict_WordsItem+    { derivatives = Core.Nothing,+      examples = Core.Nothing,+      senses = Core.Nothing,+      source = Core.Nothing+    }++instance Core.FromJSON Dictlayerdata_Dict_WordsItem where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_WordsItem"+      ( \o ->+          Dictlayerdata_Dict_WordsItem+            Core.<$> (o Core..:? "derivatives")+            Core.<*> (o Core..:? "examples")+            Core.<*> (o Core..:? "senses")+            Core.<*> (o Core..:? "source")+      )++instance Core.ToJSON Dictlayerdata_Dict_WordsItem where+  toJSON Dictlayerdata_Dict_WordsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("derivatives" Core..=) Core.<$> derivatives,+            ("examples" Core..=) Core.<$> examples,+            ("senses" Core..=) Core.<$> senses,+            ("source" Core..=) Core.<$> source+          ]+      )++--+-- /See:/ 'newDictlayerdata_Dict_WordsItem_DerivativesItem' smart constructor.+data Dictlayerdata_Dict_WordsItem_DerivativesItem = Dictlayerdata_Dict_WordsItem_DerivativesItem+  { source :: (Core.Maybe Dictlayerdata_Dict_WordsItem_DerivativesItem_Source),+    text :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_WordsItem_DerivativesItem' with the minimum fields required to make a request.+newDictlayerdata_Dict_WordsItem_DerivativesItem ::+  Dictlayerdata_Dict_WordsItem_DerivativesItem+newDictlayerdata_Dict_WordsItem_DerivativesItem =+  Dictlayerdata_Dict_WordsItem_DerivativesItem+    { source =+        Core.Nothing,+      text = Core.Nothing+    }++instance Core.FromJSON Dictlayerdata_Dict_WordsItem_DerivativesItem where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_WordsItem_DerivativesItem"+      ( \o ->+          Dictlayerdata_Dict_WordsItem_DerivativesItem+            Core.<$> (o Core..:? "source")+            Core.<*> (o Core..:? "text")+      )++instance Core.ToJSON Dictlayerdata_Dict_WordsItem_DerivativesItem where+  toJSON Dictlayerdata_Dict_WordsItem_DerivativesItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("source" Core..=) Core.<$> source,+            ("text" Core..=) Core.<$> text+          ]+      )++--+-- /See:/ 'newDictlayerdata_Dict_WordsItem_DerivativesItem_Source' smart constructor.+data Dictlayerdata_Dict_WordsItem_DerivativesItem_Source = Dictlayerdata_Dict_WordsItem_DerivativesItem_Source+  { attribution :: (Core.Maybe Core.Text),+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_WordsItem_DerivativesItem_Source' with the minimum fields required to make a request.+newDictlayerdata_Dict_WordsItem_DerivativesItem_Source ::+  Dictlayerdata_Dict_WordsItem_DerivativesItem_Source+newDictlayerdata_Dict_WordsItem_DerivativesItem_Source =+  Dictlayerdata_Dict_WordsItem_DerivativesItem_Source+    { attribution =+        Core.Nothing,+      url = Core.Nothing+    }++instance+  Core.FromJSON+    Dictlayerdata_Dict_WordsItem_DerivativesItem_Source+  where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_WordsItem_DerivativesItem_Source"+      ( \o ->+          Dictlayerdata_Dict_WordsItem_DerivativesItem_Source+            Core.<$> (o Core..:? "attribution")+            Core.<*> (o Core..:? "url")+      )++instance+  Core.ToJSON+    Dictlayerdata_Dict_WordsItem_DerivativesItem_Source+  where+  toJSON Dictlayerdata_Dict_WordsItem_DerivativesItem_Source {..} =+    Core.object+      ( Core.catMaybes+          [ ("attribution" Core..=) Core.<$> attribution,+            ("url" Core..=) Core.<$> url+          ]+      )++--+-- /See:/ 'newDictlayerdata_Dict_WordsItem_ExamplesItem' smart constructor.+data Dictlayerdata_Dict_WordsItem_ExamplesItem = Dictlayerdata_Dict_WordsItem_ExamplesItem+  { source :: (Core.Maybe Dictlayerdata_Dict_WordsItem_ExamplesItem_Source),+    text :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_WordsItem_ExamplesItem' with the minimum fields required to make a request.+newDictlayerdata_Dict_WordsItem_ExamplesItem ::+  Dictlayerdata_Dict_WordsItem_ExamplesItem+newDictlayerdata_Dict_WordsItem_ExamplesItem =+  Dictlayerdata_Dict_WordsItem_ExamplesItem+    { source = Core.Nothing,+      text = Core.Nothing+    }++instance Core.FromJSON Dictlayerdata_Dict_WordsItem_ExamplesItem where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_WordsItem_ExamplesItem"+      ( \o ->+          Dictlayerdata_Dict_WordsItem_ExamplesItem+            Core.<$> (o Core..:? "source")+            Core.<*> (o Core..:? "text")+      )++instance Core.ToJSON Dictlayerdata_Dict_WordsItem_ExamplesItem where+  toJSON Dictlayerdata_Dict_WordsItem_ExamplesItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("source" Core..=) Core.<$> source,+            ("text" Core..=) Core.<$> text+          ]+      )++--+-- /See:/ 'newDictlayerdata_Dict_WordsItem_ExamplesItem_Source' smart constructor.+data Dictlayerdata_Dict_WordsItem_ExamplesItem_Source = Dictlayerdata_Dict_WordsItem_ExamplesItem_Source+  { attribution :: (Core.Maybe Core.Text),+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_WordsItem_ExamplesItem_Source' with the minimum fields required to make a request.+newDictlayerdata_Dict_WordsItem_ExamplesItem_Source ::+  Dictlayerdata_Dict_WordsItem_ExamplesItem_Source+newDictlayerdata_Dict_WordsItem_ExamplesItem_Source =+  Dictlayerdata_Dict_WordsItem_ExamplesItem_Source+    { attribution =+        Core.Nothing,+      url = Core.Nothing+    }++instance+  Core.FromJSON+    Dictlayerdata_Dict_WordsItem_ExamplesItem_Source+  where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_WordsItem_ExamplesItem_Source"+      ( \o ->+          Dictlayerdata_Dict_WordsItem_ExamplesItem_Source+            Core.<$> (o Core..:? "attribution")+            Core.<*> (o Core..:? "url")+      )++instance+  Core.ToJSON+    Dictlayerdata_Dict_WordsItem_ExamplesItem_Source+  where+  toJSON Dictlayerdata_Dict_WordsItem_ExamplesItem_Source {..} =+    Core.object+      ( Core.catMaybes+          [ ("attribution" Core..=) Core.<$> attribution,+            ("url" Core..=) Core.<$> url+          ]+      )++--+-- /See:/ 'newDictlayerdata_Dict_WordsItem_SensesItem' smart constructor.+data Dictlayerdata_Dict_WordsItem_SensesItem = Dictlayerdata_Dict_WordsItem_SensesItem+  { conjugations ::+      ( Core.Maybe+          [Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem]+      ),+    definitions ::+      ( Core.Maybe+          [Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem]+      ),+    partOfSpeech :: (Core.Maybe Core.Text),+    pronunciation :: (Core.Maybe Core.Text),+    pronunciationUrl :: (Core.Maybe Core.Text),+    source :: (Core.Maybe Dictlayerdata_Dict_WordsItem_SensesItem_Source),+    syllabification :: (Core.Maybe Core.Text),+    synonyms :: (Core.Maybe [Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_WordsItem_SensesItem' with the minimum fields required to make a request.+newDictlayerdata_Dict_WordsItem_SensesItem ::+  Dictlayerdata_Dict_WordsItem_SensesItem+newDictlayerdata_Dict_WordsItem_SensesItem =+  Dictlayerdata_Dict_WordsItem_SensesItem+    { conjugations =+        Core.Nothing,+      definitions = Core.Nothing,+      partOfSpeech = Core.Nothing,+      pronunciation = Core.Nothing,+      pronunciationUrl = Core.Nothing,+      source = Core.Nothing,+      syllabification = Core.Nothing,+      synonyms = Core.Nothing+    }++instance Core.FromJSON Dictlayerdata_Dict_WordsItem_SensesItem where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_WordsItem_SensesItem"+      ( \o ->+          Dictlayerdata_Dict_WordsItem_SensesItem+            Core.<$> (o Core..:? "conjugations")+            Core.<*> (o Core..:? "definitions")+            Core.<*> (o Core..:? "partOfSpeech")+            Core.<*> (o Core..:? "pronunciation")+            Core.<*> (o Core..:? "pronunciationUrl")+            Core.<*> (o Core..:? "source")+            Core.<*> (o Core..:? "syllabification")+            Core.<*> (o Core..:? "synonyms")+      )++instance Core.ToJSON Dictlayerdata_Dict_WordsItem_SensesItem where+  toJSON Dictlayerdata_Dict_WordsItem_SensesItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("conjugations" Core..=) Core.<$> conjugations,+            ("definitions" Core..=) Core.<$> definitions,+            ("partOfSpeech" Core..=) Core.<$> partOfSpeech,+            ("pronunciation" Core..=) Core.<$> pronunciation,+            ("pronunciationUrl" Core..=) Core.<$> pronunciationUrl,+            ("source" Core..=) Core.<$> source,+            ("syllabification" Core..=) Core.<$> syllabification,+            ("synonyms" Core..=) Core.<$> synonyms+          ]+      )++--+-- /See:/ 'newDictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem' smart constructor.+data Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem = Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem+  { type' :: (Core.Maybe Core.Text),+    value :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem' with the minimum fields required to make a request.+newDictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem ::+  Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem+newDictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem =+  Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem+    { type' =+        Core.Nothing,+      value = Core.Nothing+    }++instance+  Core.FromJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem+  where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem"+      ( \o ->+          Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem+            Core.<$> (o Core..:? "type")+            Core.<*> (o Core..:? "value")+      )++instance+  Core.ToJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem+  where+  toJSON Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("type" Core..=) Core.<$> type',+            ("value" Core..=) Core.<$> value+          ]+      )++--+-- /See:/ 'newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem' smart constructor.+data Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem = Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem+  { definition :: (Core.Maybe Core.Text),+    examples ::+      ( Core.Maybe+          [Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem]+      )+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem' with the minimum fields required to make a request.+newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem ::+  Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem+newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem =+  Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem+    { definition =+        Core.Nothing,+      examples = Core.Nothing+    }++instance+  Core.FromJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem+  where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem"+      ( \o ->+          Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem+            Core.<$> (o Core..:? "definition")+            Core.<*> (o Core..:? "examples")+      )++instance+  Core.ToJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem+  where+  toJSON Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("definition" Core..=) Core.<$> definition,+            ("examples" Core..=) Core.<$> examples+          ]+      )++--+-- /See:/ 'newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem' smart constructor.+data Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem = Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem+  { source ::+      ( Core.Maybe+          Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source+      ),+    text :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem' with the minimum fields required to make a request.+newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem ::+  Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem+newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem =+  Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem+    { source =+        Core.Nothing,+      text = Core.Nothing+    }++instance+  Core.FromJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem+  where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem"+      ( \o ->+          Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem+            Core.<$> (o Core..:? "source")+            Core.<*> (o Core..:? "text")+      )++instance+  Core.ToJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem+  where+  toJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem {..} =+      Core.object+        ( Core.catMaybes+            [ ("source" Core..=) Core.<$> source,+              ("text" Core..=) Core.<$> text+            ]+        )++--+-- /See:/ 'newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source' smart constructor.+data Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source = Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source+  { attribution :: (Core.Maybe Core.Text),+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source' with the minimum fields required to make a request.+newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source ::+  Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source+newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source =+  Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source+    { attribution =+        Core.Nothing,+      url = Core.Nothing+    }++instance+  Core.FromJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source+  where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source"+      ( \o ->+          Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source+            Core.<$> (o Core..:? "attribution")+            Core.<*> (o Core..:? "url")+      )++instance+  Core.ToJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source+  where+  toJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source {..} =+      Core.object+        ( Core.catMaybes+            [ ("attribution" Core..=) Core.<$> attribution,+              ("url" Core..=) Core.<$> url+            ]+        )++--+-- /See:/ 'newDictlayerdata_Dict_WordsItem_SensesItem_Source' smart constructor.+data Dictlayerdata_Dict_WordsItem_SensesItem_Source = Dictlayerdata_Dict_WordsItem_SensesItem_Source+  { attribution :: (Core.Maybe Core.Text),+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_WordsItem_SensesItem_Source' with the minimum fields required to make a request.+newDictlayerdata_Dict_WordsItem_SensesItem_Source ::+  Dictlayerdata_Dict_WordsItem_SensesItem_Source+newDictlayerdata_Dict_WordsItem_SensesItem_Source =+  Dictlayerdata_Dict_WordsItem_SensesItem_Source+    { attribution =+        Core.Nothing,+      url = Core.Nothing+    }++instance+  Core.FromJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_Source+  where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_WordsItem_SensesItem_Source"+      ( \o ->+          Dictlayerdata_Dict_WordsItem_SensesItem_Source+            Core.<$> (o Core..:? "attribution")+            Core.<*> (o Core..:? "url")+      )++instance Core.ToJSON Dictlayerdata_Dict_WordsItem_SensesItem_Source where+  toJSON Dictlayerdata_Dict_WordsItem_SensesItem_Source {..} =+    Core.object+      ( Core.catMaybes+          [ ("attribution" Core..=) Core.<$> attribution,+            ("url" Core..=) Core.<$> url+          ]+      )++--+-- /See:/ 'newDictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem' smart constructor.+data Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem = Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem+  { source ::+      ( Core.Maybe+          Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source+      ),+    text :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem' with the minimum fields required to make a request.+newDictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem ::+  Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem+newDictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem =+  Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem+    { source =+        Core.Nothing,+      text = Core.Nothing+    }++instance+  Core.FromJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem+  where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem"+      ( \o ->+          Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem+            Core.<$> (o Core..:? "source")+            Core.<*> (o Core..:? "text")+      )++instance+  Core.ToJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem+  where+  toJSON Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("source" Core..=) Core.<$> source,+            ("text" Core..=) Core.<$> text+          ]+      )++--+-- /See:/ 'newDictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source' smart constructor.+data Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source = Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source+  { attribution :: (Core.Maybe Core.Text),+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source' with the minimum fields required to make a request.+newDictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source ::+  Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source+newDictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source =+  Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source+    { attribution =+        Core.Nothing,+      url = Core.Nothing+    }++instance+  Core.FromJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source+  where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source"+      ( \o ->+          Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source+            Core.<$> (o Core..:? "attribution")+            Core.<*> (o Core..:? "url")+      )++instance+  Core.ToJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source+  where+  toJSON+    Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source {..} =+      Core.object+        ( Core.catMaybes+            [ ("attribution" Core..=) Core.<$> attribution,+              ("url" Core..=) Core.<$> url+            ]+        )++-- | The words with different meanings but not related words, e.g. \"go\" (game) and \"go\" (verb).+--+-- /See:/ 'newDictlayerdata_Dict_WordsItem_Source' smart constructor.+data Dictlayerdata_Dict_WordsItem_Source = Dictlayerdata_Dict_WordsItem_Source+  { attribution :: (Core.Maybe Core.Text),+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Dictlayerdata_Dict_WordsItem_Source' with the minimum fields required to make a request.+newDictlayerdata_Dict_WordsItem_Source ::+  Dictlayerdata_Dict_WordsItem_Source+newDictlayerdata_Dict_WordsItem_Source =+  Dictlayerdata_Dict_WordsItem_Source+    { attribution = Core.Nothing,+      url = Core.Nothing+    }++instance Core.FromJSON Dictlayerdata_Dict_WordsItem_Source where+  parseJSON =+    Core.withObject+      "Dictlayerdata_Dict_WordsItem_Source"+      ( \o ->+          Dictlayerdata_Dict_WordsItem_Source+            Core.<$> (o Core..:? "attribution")+            Core.<*> (o Core..:? "url")+      )++instance Core.ToJSON Dictlayerdata_Dict_WordsItem_Source where+  toJSON Dictlayerdata_Dict_WordsItem_Source {..} =+    Core.object+      ( Core.catMaybes+          [ ("attribution" Core..=) Core.<$> attribution,+            ("url" Core..=) Core.<$> url+          ]+      )++--+-- /See:/ 'newDiscoveryclusters' smart constructor.+data Discoveryclusters = Discoveryclusters+  { clusters :: (Core.Maybe [Discoveryclusters_ClustersItem]),+    -- | Resorce type.+    kind :: (Core.Maybe Core.Text),+    totalClusters :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Discoveryclusters' with the minimum fields required to make a request.+newDiscoveryclusters ::+  Discoveryclusters+newDiscoveryclusters =+  Discoveryclusters+    { clusters = Core.Nothing,+      kind = Core.Nothing,+      totalClusters = Core.Nothing+    }++instance Core.FromJSON Discoveryclusters where+  parseJSON =+    Core.withObject+      "Discoveryclusters"+      ( \o ->+          Discoveryclusters+            Core.<$> (o Core..:? "clusters")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "totalClusters")+      )++instance Core.ToJSON Discoveryclusters where+  toJSON Discoveryclusters {..} =+    Core.object+      ( Core.catMaybes+          [ ("clusters" Core..=) Core.<$> clusters,+            ("kind" Core..=) Core.<$> kind,+            ("totalClusters" Core..=) Core.<$> totalClusters+          ]+      )++--+-- /See:/ 'newDiscoveryclusters_ClustersItem' smart constructor.+data Discoveryclusters_ClustersItem = Discoveryclusters_ClustersItem+  { bannerWithContentContainer ::+      ( Core.Maybe+          Discoveryclusters_ClustersItem_Banner_with_content_container+      ),+    subTitle :: (Core.Maybe Core.Text),+    title :: (Core.Maybe Core.Text),+    totalVolumes :: (Core.Maybe Core.Int32),+    uid :: (Core.Maybe Core.Text),+    volumes :: (Core.Maybe [Volume])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Discoveryclusters_ClustersItem' with the minimum fields required to make a request.+newDiscoveryclusters_ClustersItem ::+  Discoveryclusters_ClustersItem+newDiscoveryclusters_ClustersItem =+  Discoveryclusters_ClustersItem+    { bannerWithContentContainer =+        Core.Nothing,+      subTitle = Core.Nothing,+      title = Core.Nothing,+      totalVolumes = Core.Nothing,+      uid = Core.Nothing,+      volumes = Core.Nothing+    }++instance Core.FromJSON Discoveryclusters_ClustersItem where+  parseJSON =+    Core.withObject+      "Discoveryclusters_ClustersItem"+      ( \o ->+          Discoveryclusters_ClustersItem+            Core.<$> (o Core..:? "banner_with_content_container")+            Core.<*> (o Core..:? "subTitle")+            Core.<*> (o Core..:? "title")+            Core.<*> (o Core..:? "totalVolumes")+            Core.<*> (o Core..:? "uid")+            Core.<*> (o Core..:? "volumes")+      )++instance Core.ToJSON Discoveryclusters_ClustersItem where+  toJSON Discoveryclusters_ClustersItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("banner_with_content_container" Core..=)+              Core.<$> bannerWithContentContainer,+            ("subTitle" Core..=) Core.<$> subTitle,+            ("title" Core..=) Core.<$> title,+            ("totalVolumes" Core..=) Core.<$> totalVolumes,+            ("uid" Core..=) Core.<$> uid,+            ("volumes" Core..=) Core.<$> volumes+          ]+      )++--+-- /See:/ 'newDiscoveryclusters_ClustersItem_Banner_with_content_container' smart constructor.+data Discoveryclusters_ClustersItem_Banner_with_content_container = Discoveryclusters_ClustersItem_Banner_with_content_container+  { fillColorArgb :: (Core.Maybe Core.Text),+    imageUrl :: (Core.Maybe Core.Text),+    maskColorArgb :: (Core.Maybe Core.Text),+    moreButtonText :: (Core.Maybe Core.Text),+    moreButtonUrl :: (Core.Maybe Core.Text),+    textColorArgb :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Discoveryclusters_ClustersItem_Banner_with_content_container' with the minimum fields required to make a request.+newDiscoveryclusters_ClustersItem_Banner_with_content_container ::+  Discoveryclusters_ClustersItem_Banner_with_content_container+newDiscoveryclusters_ClustersItem_Banner_with_content_container =+  Discoveryclusters_ClustersItem_Banner_with_content_container+    { fillColorArgb =+        Core.Nothing,+      imageUrl = Core.Nothing,+      maskColorArgb = Core.Nothing,+      moreButtonText = Core.Nothing,+      moreButtonUrl = Core.Nothing,+      textColorArgb = Core.Nothing+    }++instance+  Core.FromJSON+    Discoveryclusters_ClustersItem_Banner_with_content_container+  where+  parseJSON =+    Core.withObject+      "Discoveryclusters_ClustersItem_Banner_with_content_container"+      ( \o ->+          Discoveryclusters_ClustersItem_Banner_with_content_container+            Core.<$> (o Core..:? "fillColorArgb")+            Core.<*> (o Core..:? "imageUrl")+            Core.<*> (o Core..:? "maskColorArgb")+            Core.<*> (o Core..:? "moreButtonText")+            Core.<*> (o Core..:? "moreButtonUrl")+            Core.<*> (o Core..:? "textColorArgb")+      )++instance+  Core.ToJSON+    Discoveryclusters_ClustersItem_Banner_with_content_container+  where+  toJSON+    Discoveryclusters_ClustersItem_Banner_with_content_container {..} =+      Core.object+        ( Core.catMaybes+            [ ("fillColorArgb" Core..=) Core.<$> fillColorArgb,+              ("imageUrl" Core..=) Core.<$> imageUrl,+              ("maskColorArgb" Core..=) Core.<$> maskColorArgb,+              ("moreButtonText" Core..=) Core.<$> moreButtonText,+              ("moreButtonUrl" Core..=) Core.<$> moreButtonUrl,+              ("textColorArgb" Core..=) Core.<$> textColorArgb+            ]+        )++--+-- /See:/ 'newDownloadAccessRestriction' smart constructor.+data DownloadAccessRestriction = DownloadAccessRestriction+  { -- | If restricted, whether access is granted for this (user, device, volume).+    deviceAllowed :: (Core.Maybe Core.Bool),+    -- | If restricted, the number of content download licenses already acquired (including the requesting client, if licensed).+    downloadsAcquired :: (Core.Maybe Core.Int32),+    -- | If deviceAllowed, whether access was just acquired with this request.+    justAcquired :: (Core.Maybe Core.Bool),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text),+    -- | If restricted, the maximum number of content download licenses for this volume.+    maxDownloadDevices :: (Core.Maybe Core.Int32),+    -- | Error\/warning message.+    message :: (Core.Maybe Core.Text),+    -- | Client nonce for verification. Download access and client-validation only.+    nonce :: (Core.Maybe Core.Text),+    -- | Error\/warning reason code. Additional codes may be added in the future. 0 OK 100 ACCESS/DENIED/PUBLISHER/LIMIT 101 ACCESS/DENIED/LIMIT 200 WARNING/USED/LAST/ACCESS+    reasonCode :: (Core.Maybe Core.Text),+    -- | Whether this volume has any download access restrictions.+    restricted :: (Core.Maybe Core.Bool),+    -- | Response signature.+    signature :: (Core.Maybe Core.Text),+    -- | Client app identifier for verification. Download access and client-validation only.+    source :: (Core.Maybe Core.Text),+    -- | Identifies the volume for which this entry applies.+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DownloadAccessRestriction' with the minimum fields required to make a request.+newDownloadAccessRestriction ::+  DownloadAccessRestriction+newDownloadAccessRestriction =+  DownloadAccessRestriction+    { deviceAllowed = Core.Nothing,+      downloadsAcquired = Core.Nothing,+      justAcquired = Core.Nothing,+      kind = Core.Nothing,+      maxDownloadDevices = Core.Nothing,+      message = Core.Nothing,+      nonce = Core.Nothing,+      reasonCode = Core.Nothing,+      restricted = Core.Nothing,+      signature = Core.Nothing,+      source = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.FromJSON DownloadAccessRestriction where+  parseJSON =+    Core.withObject+      "DownloadAccessRestriction"+      ( \o ->+          DownloadAccessRestriction+            Core.<$> (o Core..:? "deviceAllowed")+            Core.<*> (o Core..:? "downloadsAcquired")+            Core.<*> (o Core..:? "justAcquired")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "maxDownloadDevices")+            Core.<*> (o Core..:? "message")+            Core.<*> (o Core..:? "nonce")+            Core.<*> (o Core..:? "reasonCode")+            Core.<*> (o Core..:? "restricted")+            Core.<*> (o Core..:? "signature")+            Core.<*> (o Core..:? "source")+            Core.<*> (o Core..:? "volumeId")+      )++instance Core.ToJSON DownloadAccessRestriction where+  toJSON DownloadAccessRestriction {..} =+    Core.object+      ( Core.catMaybes+          [ ("deviceAllowed" Core..=) Core.<$> deviceAllowed,+            ("downloadsAcquired" Core..=) Core.<$> downloadsAcquired,+            ("justAcquired" Core..=) Core.<$> justAcquired,+            ("kind" Core..=) Core.<$> kind,+            ("maxDownloadDevices" Core..=) Core.<$> maxDownloadDevices,+            ("message" Core..=) Core.<$> message,+            ("nonce" Core..=) Core.<$> nonce,+            ("reasonCode" Core..=) Core.<$> reasonCode,+            ("restricted" Core..=) Core.<$> restricted,+            ("signature" Core..=) Core.<$> signature,+            ("source" Core..=) Core.<$> source,+            ("volumeId" Core..=) Core.<$> volumeId+          ]+      )++--+-- /See:/ 'newDownloadAccesses' smart constructor.+data DownloadAccesses = DownloadAccesses+  { -- | A list of download access responses.+    downloadAccessList :: (Core.Maybe [DownloadAccessRestriction]),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DownloadAccesses' with the minimum fields required to make a request.+newDownloadAccesses ::+  DownloadAccesses+newDownloadAccesses =+  DownloadAccesses+    { downloadAccessList = Core.Nothing,+      kind = Core.Nothing+    }++instance Core.FromJSON DownloadAccesses where+  parseJSON =+    Core.withObject+      "DownloadAccesses"+      ( \o ->+          DownloadAccesses+            Core.<$> (o Core..:? "downloadAccessList")+            Core.<*> (o Core..:? "kind")+      )++instance Core.ToJSON DownloadAccesses where+  toJSON DownloadAccesses {..} =+    Core.object+      ( Core.catMaybes+          [ ("downloadAccessList" Core..=) Core.<$> downloadAccessList,+            ("kind" Core..=) 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++--+-- /See:/ 'newFamilyInfo' smart constructor.+data FamilyInfo = FamilyInfo+  { -- | Resource type.+    kind :: (Core.Maybe Core.Text),+    -- | Family membership info of the user that made the request.+    membership :: (Core.Maybe FamilyInfo_Membership)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FamilyInfo' with the minimum fields required to make a request.+newFamilyInfo ::+  FamilyInfo+newFamilyInfo =+  FamilyInfo {kind = Core.Nothing, membership = Core.Nothing}++instance Core.FromJSON FamilyInfo where+  parseJSON =+    Core.withObject+      "FamilyInfo"+      ( \o ->+          FamilyInfo+            Core.<$> (o Core..:? "kind")+            Core.<*> (o Core..:? "membership")+      )++instance Core.ToJSON FamilyInfo where+  toJSON FamilyInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("kind" Core..=) Core.<$> kind,+            ("membership" Core..=) Core.<$> membership+          ]+      )++-- | Family membership info of the user that made the request.+--+-- /See:/ 'newFamilyInfo_Membership' smart constructor.+data FamilyInfo_Membership = FamilyInfo_Membership+  { -- | Restrictions on user buying and acquiring content.+    acquirePermission :: (Core.Maybe Core.Text),+    -- | The age group of the user.+    ageGroup :: (Core.Maybe Core.Text),+    -- | The maximum allowed maturity rating for the user.+    allowedMaturityRating :: (Core.Maybe Core.Text),+    isInFamily :: (Core.Maybe Core.Bool),+    -- | The role of the user in the family.+    role' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FamilyInfo_Membership' with the minimum fields required to make a request.+newFamilyInfo_Membership ::+  FamilyInfo_Membership+newFamilyInfo_Membership =+  FamilyInfo_Membership+    { acquirePermission = Core.Nothing,+      ageGroup = Core.Nothing,+      allowedMaturityRating = Core.Nothing,+      isInFamily = Core.Nothing,+      role' = Core.Nothing+    }++instance Core.FromJSON FamilyInfo_Membership where+  parseJSON =+    Core.withObject+      "FamilyInfo_Membership"+      ( \o ->+          FamilyInfo_Membership+            Core.<$> (o Core..:? "acquirePermission")+            Core.<*> (o Core..:? "ageGroup")+            Core.<*> (o Core..:? "allowedMaturityRating")+            Core.<*> (o Core..:? "isInFamily")+            Core.<*> (o Core..:? "role")+      )++instance Core.ToJSON FamilyInfo_Membership where+  toJSON FamilyInfo_Membership {..} =+    Core.object+      ( Core.catMaybes+          [ ("acquirePermission" Core..=) Core.<$> acquirePermission,+            ("ageGroup" Core..=) Core.<$> ageGroup,+            ("allowedMaturityRating" Core..=) Core.<$> allowedMaturityRating,+            ("isInFamily" Core..=) Core.<$> isInFamily,+            ("role" Core..=) Core.<$> role'+          ]+      )++--+-- /See:/ 'newGeoAnnotationdata' smart constructor.+data GeoAnnotationdata = GeoAnnotationdata+  { -- | The type of annotation this data is for.+    annotationType :: (Core.Maybe Core.Text),+    -- | JSON encoded data for this geo annotation data. Emitted with name \'data\' in JSON output. Either this or dict_data will be populated.+    data' :: (Core.Maybe Geolayerdata),+    -- | Base64 encoded data for this annotation data.+    encodedData :: (Core.Maybe Core.Base64),+    -- | Unique id for this annotation data.+    id :: (Core.Maybe Core.Text),+    -- | Resource Type+    kind :: (Core.Maybe Core.Text),+    -- | The Layer id for this data. *+    layerId :: (Core.Maybe Core.Text),+    -- | URL for this resource. *+    selfLink :: (Core.Maybe Core.Text),+    -- | Timestamp for the last time this data was updated. (RFC 3339 UTC date-time format).+    updated :: (Core.Maybe Core.Text),+    -- | The volume id for this data. *+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GeoAnnotationdata' with the minimum fields required to make a request.+newGeoAnnotationdata ::+  GeoAnnotationdata+newGeoAnnotationdata =+  GeoAnnotationdata+    { annotationType = Core.Nothing,+      data' = Core.Nothing,+      encodedData = Core.Nothing,+      id = Core.Nothing,+      kind = Core.Nothing,+      layerId = Core.Nothing,+      selfLink = Core.Nothing,+      updated = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.FromJSON GeoAnnotationdata where+  parseJSON =+    Core.withObject+      "GeoAnnotationdata"+      ( \o ->+          GeoAnnotationdata+            Core.<$> (o Core..:? "annotationType")+            Core.<*> (o Core..:? "data")+            Core.<*> (o Core..:? "encodedData")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "layerId")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "volumeId")+      )++instance Core.ToJSON GeoAnnotationdata where+  toJSON GeoAnnotationdata {..} =+    Core.object+      ( Core.catMaybes+          [ ("annotationType" Core..=) Core.<$> annotationType,+            ("data" Core..=) Core.<$> data',+            ("encodedData" Core..=) Core.<$> encodedData,+            ("id" Core..=) Core.<$> id,+            ("kind" Core..=) Core.<$> kind,+            ("layerId" Core..=) Core.<$> layerId,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("updated" Core..=) Core.<$> updated,+            ("volumeId" Core..=) Core.<$> volumeId+          ]+      )++--+-- /See:/ 'newGeolayerdata' smart constructor.+data Geolayerdata = Geolayerdata+  { common :: (Core.Maybe Geolayerdata_Common),+    geo :: (Core.Maybe Geolayerdata_Geo),+    kind :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Geolayerdata' with the minimum fields required to make a request.+newGeolayerdata ::+  Geolayerdata+newGeolayerdata =+  Geolayerdata+    { common = Core.Nothing,+      geo = Core.Nothing,+      kind = Core.Nothing+    }++instance Core.FromJSON Geolayerdata where+  parseJSON =+    Core.withObject+      "Geolayerdata"+      ( \o ->+          Geolayerdata+            Core.<$> (o Core..:? "common")+            Core.<*> (o Core..:? "geo")+            Core.<*> (o Core..:? "kind")+      )++instance Core.ToJSON Geolayerdata where+  toJSON Geolayerdata {..} =+    Core.object+      ( Core.catMaybes+          [ ("common" Core..=) Core.<$> common,+            ("geo" Core..=) Core.<$> geo,+            ("kind" Core..=) Core.<$> kind+          ]+      )++--+-- /See:/ 'newGeolayerdata_Common' smart constructor.+data Geolayerdata_Common = Geolayerdata_Common+  { -- | The language of the information url and description.+    lang :: (Core.Maybe Core.Text),+    -- | The URL for the preview image information.+    previewImageUrl :: (Core.Maybe Core.Text),+    -- | The description for this location.+    snippet :: (Core.Maybe Core.Text),+    -- | The URL for information for this location. Ex: wikipedia link.+    snippetUrl :: (Core.Maybe Core.Text),+    -- | The display title and localized canonical name to use when searching for this entity on Google search.+    title :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Geolayerdata_Common' with the minimum fields required to make a request.+newGeolayerdata_Common ::+  Geolayerdata_Common+newGeolayerdata_Common =+  Geolayerdata_Common+    { lang = Core.Nothing,+      previewImageUrl = Core.Nothing,+      snippet = Core.Nothing,+      snippetUrl = Core.Nothing,+      title = Core.Nothing+    }++instance Core.FromJSON Geolayerdata_Common where+  parseJSON =+    Core.withObject+      "Geolayerdata_Common"+      ( \o ->+          Geolayerdata_Common+            Core.<$> (o Core..:? "lang")+            Core.<*> (o Core..:? "previewImageUrl")+            Core.<*> (o Core..:? "snippet")+            Core.<*> (o Core..:? "snippetUrl")+            Core.<*> (o Core..:? "title")+      )++instance Core.ToJSON Geolayerdata_Common where+  toJSON Geolayerdata_Common {..} =+    Core.object+      ( Core.catMaybes+          [ ("lang" Core..=) Core.<$> lang,+            ("previewImageUrl" Core..=) Core.<$> previewImageUrl,+            ("snippet" Core..=) Core.<$> snippet,+            ("snippetUrl" Core..=) Core.<$> snippetUrl,+            ("title" Core..=) Core.<$> title+          ]+      )++--+-- /See:/ 'newGeolayerdata_Geo' smart constructor.+data Geolayerdata_Geo = Geolayerdata_Geo+  { -- | The boundary of the location as a set of loops containing pairs of latitude, longitude coordinates.+    boundary :: (Core.Maybe [Core.Text]),+    -- | The cache policy active for this data. EX: UNRESTRICTED, RESTRICTED, NEVER+    cachePolicy :: (Core.Maybe Core.Text),+    -- | The country code of the location.+    countryCode :: (Core.Maybe Core.Text),+    -- | The latitude of the location.+    latitude :: (Core.Maybe Core.Double),+    -- | The longitude of the location.+    longitude :: (Core.Maybe Core.Double),+    -- | The type of map that should be used for this location. EX: HYBRID, ROADMAP, SATELLITE, TERRAIN+    mapType :: (Core.Maybe Core.Text),+    -- | The viewport for showing this location. This is a latitude, longitude rectangle.+    viewport :: (Core.Maybe Geolayerdata_Geo_Viewport),+    -- | The Zoom level to use for the map. Zoom levels between 0 (the lowest zoom level, in which the entire world can be seen on one map) to 21+ (down to individual buildings). See: https: \/\/developers.google.com\/maps\/documentation\/staticmaps\/#Zoomlevels+    zoom :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Geolayerdata_Geo' with the minimum fields required to make a request.+newGeolayerdata_Geo ::+  Geolayerdata_Geo+newGeolayerdata_Geo =+  Geolayerdata_Geo+    { boundary = Core.Nothing,+      cachePolicy = Core.Nothing,+      countryCode = Core.Nothing,+      latitude = Core.Nothing,+      longitude = Core.Nothing,+      mapType = Core.Nothing,+      viewport = Core.Nothing,+      zoom = Core.Nothing+    }++instance Core.FromJSON Geolayerdata_Geo where+  parseJSON =+    Core.withObject+      "Geolayerdata_Geo"+      ( \o ->+          Geolayerdata_Geo+            Core.<$> (o Core..:? "boundary")+            Core.<*> (o Core..:? "cachePolicy")+            Core.<*> (o Core..:? "countryCode")+            Core.<*> (o Core..:? "latitude")+            Core.<*> (o Core..:? "longitude")+            Core.<*> (o Core..:? "mapType")+            Core.<*> (o Core..:? "viewport")+            Core.<*> (o Core..:? "zoom")+      )++instance Core.ToJSON Geolayerdata_Geo where+  toJSON Geolayerdata_Geo {..} =+    Core.object+      ( Core.catMaybes+          [ ("boundary" Core..=) Core.<$> boundary,+            ("cachePolicy" Core..=) Core.<$> cachePolicy,+            ("countryCode" Core..=) Core.<$> countryCode,+            ("latitude" Core..=) Core.<$> latitude,+            ("longitude" Core..=) Core.<$> longitude,+            ("mapType" Core..=) Core.<$> mapType,+            ("viewport" Core..=) Core.<$> viewport,+            ("zoom" Core..=) Core.<$> zoom+          ]+      )++-- | The viewport for showing this location. This is a latitude, longitude rectangle.+--+-- /See:/ 'newGeolayerdata_Geo_Viewport' smart constructor.+data Geolayerdata_Geo_Viewport = Geolayerdata_Geo_Viewport+  { hi :: (Core.Maybe Geolayerdata_Geo_Viewport_Hi),+    lo :: (Core.Maybe Geolayerdata_Geo_Viewport_Lo)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Geolayerdata_Geo_Viewport' with the minimum fields required to make a request.+newGeolayerdata_Geo_Viewport ::+  Geolayerdata_Geo_Viewport+newGeolayerdata_Geo_Viewport =+  Geolayerdata_Geo_Viewport {hi = Core.Nothing, lo = Core.Nothing}++instance Core.FromJSON Geolayerdata_Geo_Viewport where+  parseJSON =+    Core.withObject+      "Geolayerdata_Geo_Viewport"+      ( \o ->+          Geolayerdata_Geo_Viewport+            Core.<$> (o Core..:? "hi")+            Core.<*> (o Core..:? "lo")+      )++instance Core.ToJSON Geolayerdata_Geo_Viewport where+  toJSON Geolayerdata_Geo_Viewport {..} =+    Core.object+      ( Core.catMaybes+          [("hi" Core..=) Core.<$> hi, ("lo" Core..=) Core.<$> lo]+      )++--+-- /See:/ 'newGeolayerdata_Geo_Viewport_Hi' smart constructor.+data Geolayerdata_Geo_Viewport_Hi = Geolayerdata_Geo_Viewport_Hi+  { latitude :: (Core.Maybe Core.Double),+    longitude :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Geolayerdata_Geo_Viewport_Hi' with the minimum fields required to make a request.+newGeolayerdata_Geo_Viewport_Hi ::+  Geolayerdata_Geo_Viewport_Hi+newGeolayerdata_Geo_Viewport_Hi =+  Geolayerdata_Geo_Viewport_Hi+    { latitude = Core.Nothing,+      longitude = Core.Nothing+    }++instance Core.FromJSON Geolayerdata_Geo_Viewport_Hi where+  parseJSON =+    Core.withObject+      "Geolayerdata_Geo_Viewport_Hi"+      ( \o ->+          Geolayerdata_Geo_Viewport_Hi+            Core.<$> (o Core..:? "latitude")+            Core.<*> (o Core..:? "longitude")+      )++instance Core.ToJSON Geolayerdata_Geo_Viewport_Hi where+  toJSON Geolayerdata_Geo_Viewport_Hi {..} =+    Core.object+      ( Core.catMaybes+          [ ("latitude" Core..=) Core.<$> latitude,+            ("longitude" Core..=) Core.<$> longitude+          ]+      )++--+-- /See:/ 'newGeolayerdata_Geo_Viewport_Lo' smart constructor.+data Geolayerdata_Geo_Viewport_Lo = Geolayerdata_Geo_Viewport_Lo+  { latitude :: (Core.Maybe Core.Double),+    longitude :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Geolayerdata_Geo_Viewport_Lo' with the minimum fields required to make a request.+newGeolayerdata_Geo_Viewport_Lo ::+  Geolayerdata_Geo_Viewport_Lo+newGeolayerdata_Geo_Viewport_Lo =+  Geolayerdata_Geo_Viewport_Lo+    { latitude = Core.Nothing,+      longitude = Core.Nothing+    }++instance Core.FromJSON Geolayerdata_Geo_Viewport_Lo where+  parseJSON =+    Core.withObject+      "Geolayerdata_Geo_Viewport_Lo"+      ( \o ->+          Geolayerdata_Geo_Viewport_Lo+            Core.<$> (o Core..:? "latitude")+            Core.<*> (o Core..:? "longitude")+      )++instance Core.ToJSON Geolayerdata_Geo_Viewport_Lo where+  toJSON Geolayerdata_Geo_Viewport_Lo {..} =+    Core.object+      ( Core.catMaybes+          [ ("latitude" Core..=) Core.<$> latitude,+            ("longitude" Core..=) Core.<$> longitude+          ]+      )++--+-- /See:/ 'newLayersummaries' smart constructor.+data Layersummaries = Layersummaries+  { -- | A list of layer summary items.+    items :: (Core.Maybe [Layersummary]),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text),+    -- | The total number of layer summaries found.+    totalItems :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Layersummaries' with the minimum fields required to make a request.+newLayersummaries ::+  Layersummaries+newLayersummaries =+  Layersummaries+    { items = Core.Nothing,+      kind = Core.Nothing,+      totalItems = Core.Nothing+    }++instance Core.FromJSON Layersummaries where+  parseJSON =+    Core.withObject+      "Layersummaries"+      ( \o ->+          Layersummaries+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "totalItems")+      )++instance Core.ToJSON Layersummaries where+  toJSON Layersummaries {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("kind" Core..=) Core.<$> kind,+            ("totalItems" Core..=) Core.<$> totalItems+          ]+      )++--+-- /See:/ 'newLayersummary' smart constructor.+data Layersummary = Layersummary+  { -- | The number of annotations for this layer.+    annotationCount :: (Core.Maybe Core.Int32),+    -- | The list of annotation types contained for this layer.+    annotationTypes :: (Core.Maybe [Core.Text]),+    -- | Link to get data for this annotation.+    annotationsDataLink :: (Core.Maybe Core.Text),+    -- | The link to get the annotations for this layer.+    annotationsLink :: (Core.Maybe Core.Text),+    -- | The content version this resource is for.+    contentVersion :: (Core.Maybe Core.Text),+    -- | The number of data items for this layer.+    dataCount :: (Core.Maybe Core.Int32),+    -- | Unique id of this layer summary.+    id :: (Core.Maybe Core.Text),+    -- | Resource Type+    kind :: (Core.Maybe Core.Text),+    -- | The layer id for this summary.+    layerId :: (Core.Maybe Core.Text),+    -- | URL to this resource.+    selfLink :: (Core.Maybe Core.Text),+    -- | Timestamp for the last time an item in this layer was updated. (RFC 3339 UTC date-time format).+    updated :: (Core.Maybe Core.Text),+    -- | The current version of this layer\'s volume annotations. Note that this version applies only to the data in the books.layers.volumeAnnotations.* responses. The actual annotation data is versioned separately.+    volumeAnnotationsVersion :: (Core.Maybe Core.Text),+    -- | The volume id this resource is for.+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Layersummary' with the minimum fields required to make a request.+newLayersummary ::+  Layersummary+newLayersummary =+  Layersummary+    { annotationCount = Core.Nothing,+      annotationTypes = Core.Nothing,+      annotationsDataLink = Core.Nothing,+      annotationsLink = Core.Nothing,+      contentVersion = Core.Nothing,+      dataCount = Core.Nothing,+      id = Core.Nothing,+      kind = Core.Nothing,+      layerId = Core.Nothing,+      selfLink = Core.Nothing,+      updated = Core.Nothing,+      volumeAnnotationsVersion = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.FromJSON Layersummary where+  parseJSON =+    Core.withObject+      "Layersummary"+      ( \o ->+          Layersummary+            Core.<$> (o Core..:? "annotationCount")+            Core.<*> (o Core..:? "annotationTypes")+            Core.<*> (o Core..:? "annotationsDataLink")+            Core.<*> (o Core..:? "annotationsLink")+            Core.<*> (o Core..:? "contentVersion")+            Core.<*> (o Core..:? "dataCount")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "layerId")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "volumeAnnotationsVersion")+            Core.<*> (o Core..:? "volumeId")+      )++instance Core.ToJSON Layersummary where+  toJSON Layersummary {..} =+    Core.object+      ( Core.catMaybes+          [ ("annotationCount" Core..=) Core.<$> annotationCount,+            ("annotationTypes" Core..=) Core.<$> annotationTypes,+            ("annotationsDataLink" Core..=) Core.<$> annotationsDataLink,+            ("annotationsLink" Core..=) Core.<$> annotationsLink,+            ("contentVersion" Core..=) Core.<$> contentVersion,+            ("dataCount" Core..=) Core.<$> dataCount,+            ("id" Core..=) Core.<$> id,+            ("kind" Core..=) Core.<$> kind,+            ("layerId" Core..=) Core.<$> layerId,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("updated" Core..=) Core.<$> updated,+            ("volumeAnnotationsVersion" Core..=)+              Core.<$> volumeAnnotationsVersion,+            ("volumeId" Core..=) Core.<$> volumeId+          ]+      )++--+-- /See:/ 'newMetadata' smart constructor.+data Metadata = Metadata+  { -- | A list of offline dictionary metadata.+    items :: (Core.Maybe [Metadata_ItemsItem]),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Metadata' with the minimum fields required to make a request.+newMetadata ::+  Metadata+newMetadata = Metadata {items = Core.Nothing, kind = Core.Nothing}++instance Core.FromJSON Metadata where+  parseJSON =+    Core.withObject+      "Metadata"+      ( \o ->+          Metadata+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "kind")+      )++instance Core.ToJSON Metadata where+  toJSON Metadata {..} =+    Core.object+      ( Core.catMaybes+          [("items" Core..=) Core.<$> items, ("kind" Core..=) Core.<$> kind]+      )++--+-- /See:/ 'newMetadata_ItemsItem' smart constructor.+data Metadata_ItemsItem = Metadata_ItemsItem+  { downloadUrl :: (Core.Maybe Core.Text),+    encryptedKey :: (Core.Maybe Core.Text),+    language :: (Core.Maybe Core.Text),+    size :: (Core.Maybe Core.Int64),+    version :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Metadata_ItemsItem' with the minimum fields required to make a request.+newMetadata_ItemsItem ::+  Metadata_ItemsItem+newMetadata_ItemsItem =+  Metadata_ItemsItem+    { downloadUrl = Core.Nothing,+      encryptedKey = Core.Nothing,+      language = Core.Nothing,+      size = Core.Nothing,+      version = Core.Nothing+    }++instance Core.FromJSON Metadata_ItemsItem where+  parseJSON =+    Core.withObject+      "Metadata_ItemsItem"+      ( \o ->+          Metadata_ItemsItem+            Core.<$> (o Core..:? "download_url")+            Core.<*> (o Core..:? "encrypted_key")+            Core.<*> (o Core..:? "language")+            Core.<*> (o Core..:? "size" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "version" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON Metadata_ItemsItem where+  toJSON Metadata_ItemsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("download_url" Core..=) Core.<$> downloadUrl,+            ("encrypted_key" Core..=) Core.<$> encryptedKey,+            ("language" Core..=) Core.<$> language,+            ("size" Core..=) Core.. Core.AsText Core.<$> size,+            ("version" Core..=) Core.. Core.AsText Core.<$> version+          ]+      )++--+-- /See:/ 'newNotification' smart constructor.+data Notification = Notification+  { body :: (Core.Maybe Core.Text),+    -- | The list of crm experiment ids.+    crmExperimentIds :: (Core.Maybe [Core.Int64]),+    docId :: (Core.Maybe Core.Text),+    docType :: (Core.Maybe Core.Text),+    dontShowNotification :: (Core.Maybe Core.Bool),+    iconUrl :: (Core.Maybe Core.Text),+    isDocumentMature :: (Core.Maybe Core.Bool),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text),+    notificationGroup :: (Core.Maybe Core.Text),+    notificationType :: (Core.Maybe Core.Text),+    pcampaignId :: (Core.Maybe Core.Text),+    reason :: (Core.Maybe Core.Text),+    showNotificationSettingsAction :: (Core.Maybe Core.Bool),+    targetUrl :: (Core.Maybe Core.Text),+    timeToExpireMs :: (Core.Maybe Core.Int64),+    title :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Notification' with the minimum fields required to make a request.+newNotification ::+  Notification+newNotification =+  Notification+    { body = Core.Nothing,+      crmExperimentIds = Core.Nothing,+      docId = Core.Nothing,+      docType = Core.Nothing,+      dontShowNotification = Core.Nothing,+      iconUrl = Core.Nothing,+      isDocumentMature = Core.Nothing,+      kind = Core.Nothing,+      notificationGroup = Core.Nothing,+      notificationType = Core.Nothing,+      pcampaignId = Core.Nothing,+      reason = Core.Nothing,+      showNotificationSettingsAction = Core.Nothing,+      targetUrl = Core.Nothing,+      timeToExpireMs = Core.Nothing,+      title = Core.Nothing+    }++instance Core.FromJSON Notification where+  parseJSON =+    Core.withObject+      "Notification"+      ( \o ->+          Notification+            Core.<$> (o Core..:? "body")+            Core.<*> ( o+                         Core..:? "crmExperimentIds"+                         Core.<&> Core.fmap (Core.fmap Core.fromAsText)+                     )+            Core.<*> (o Core..:? "doc_id")+            Core.<*> (o Core..:? "doc_type")+            Core.<*> (o Core..:? "dont_show_notification")+            Core.<*> (o Core..:? "iconUrl")+            Core.<*> (o Core..:? "is_document_mature")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "notificationGroup")+            Core.<*> (o Core..:? "notification_type")+            Core.<*> (o Core..:? "pcampaign_id")+            Core.<*> (o Core..:? "reason")+            Core.<*> (o Core..:? "show_notification_settings_action")+            Core.<*> (o Core..:? "targetUrl")+            Core.<*> (o Core..:? "timeToExpireMs" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "title")+      )++instance Core.ToJSON Notification where+  toJSON Notification {..} =+    Core.object+      ( Core.catMaybes+          [ ("body" Core..=) Core.<$> body,+            ("crmExperimentIds" Core..=)+              Core.. Core.fmap Core.AsText+              Core.<$> crmExperimentIds,+            ("doc_id" Core..=) Core.<$> docId,+            ("doc_type" Core..=) Core.<$> docType,+            ("dont_show_notification" Core..=) Core.<$> dontShowNotification,+            ("iconUrl" Core..=) Core.<$> iconUrl,+            ("is_document_mature" Core..=) Core.<$> isDocumentMature,+            ("kind" Core..=) Core.<$> kind,+            ("notificationGroup" Core..=) Core.<$> notificationGroup,+            ("notification_type" Core..=) Core.<$> notificationType,+            ("pcampaign_id" Core..=) Core.<$> pcampaignId,+            ("reason" Core..=) Core.<$> reason,+            ("show_notification_settings_action" Core..=)+              Core.<$> showNotificationSettingsAction,+            ("targetUrl" Core..=) Core.<$> targetUrl,+            ("timeToExpireMs" Core..=)+              Core.. Core.AsText+              Core.<$> timeToExpireMs,+            ("title" Core..=) Core.<$> title+          ]+      )++--+-- /See:/ 'newOffers' smart constructor.+data Offers = Offers+  { -- | A list of offers.+    items :: (Core.Maybe [Offers_ItemsItem]),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Offers' with the minimum fields required to make a request.+newOffers ::+  Offers+newOffers = Offers {items = Core.Nothing, kind = Core.Nothing}++instance Core.FromJSON Offers where+  parseJSON =+    Core.withObject+      "Offers"+      ( \o ->+          Offers Core.<$> (o Core..:? "items") Core.<*> (o Core..:? "kind")+      )++instance Core.ToJSON Offers where+  toJSON Offers {..} =+    Core.object+      ( Core.catMaybes+          [("items" Core..=) Core.<$> items, ("kind" Core..=) Core.<$> kind]+      )++--+-- /See:/ 'newOffers_ItemsItem' smart constructor.+data Offers_ItemsItem = Offers_ItemsItem+  { artUrl :: (Core.Maybe Core.Text),+    gservicesKey :: (Core.Maybe Core.Text),+    id :: (Core.Maybe Core.Text),+    items :: (Core.Maybe [Offers_ItemsItem_ItemsItem])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Offers_ItemsItem' with the minimum fields required to make a request.+newOffers_ItemsItem ::+  Offers_ItemsItem+newOffers_ItemsItem =+  Offers_ItemsItem+    { artUrl = Core.Nothing,+      gservicesKey = Core.Nothing,+      id = Core.Nothing,+      items = Core.Nothing+    }++instance Core.FromJSON Offers_ItemsItem where+  parseJSON =+    Core.withObject+      "Offers_ItemsItem"+      ( \o ->+          Offers_ItemsItem+            Core.<$> (o Core..:? "artUrl")+            Core.<*> (o Core..:? "gservicesKey")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "items")+      )++instance Core.ToJSON Offers_ItemsItem where+  toJSON Offers_ItemsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("artUrl" Core..=) Core.<$> artUrl,+            ("gservicesKey" Core..=) Core.<$> gservicesKey,+            ("id" Core..=) Core.<$> id,+            ("items" Core..=) Core.<$> items+          ]+      )++--+-- /See:/ 'newOffers_ItemsItem_ItemsItem' smart constructor.+data Offers_ItemsItem_ItemsItem = Offers_ItemsItem_ItemsItem+  { author :: (Core.Maybe Core.Text),+    canonicalVolumeLink :: (Core.Maybe Core.Text),+    coverUrl :: (Core.Maybe Core.Text),+    description :: (Core.Maybe Core.Text),+    title :: (Core.Maybe Core.Text),+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Offers_ItemsItem_ItemsItem' with the minimum fields required to make a request.+newOffers_ItemsItem_ItemsItem ::+  Offers_ItemsItem_ItemsItem+newOffers_ItemsItem_ItemsItem =+  Offers_ItemsItem_ItemsItem+    { author = Core.Nothing,+      canonicalVolumeLink = Core.Nothing,+      coverUrl = Core.Nothing,+      description = Core.Nothing,+      title = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.FromJSON Offers_ItemsItem_ItemsItem where+  parseJSON =+    Core.withObject+      "Offers_ItemsItem_ItemsItem"+      ( \o ->+          Offers_ItemsItem_ItemsItem+            Core.<$> (o Core..:? "author")+            Core.<*> (o Core..:? "canonicalVolumeLink")+            Core.<*> (o Core..:? "coverUrl")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "title")+            Core.<*> (o Core..:? "volumeId")+      )++instance Core.ToJSON Offers_ItemsItem_ItemsItem where+  toJSON Offers_ItemsItem_ItemsItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("author" Core..=) Core.<$> author,+            ("canonicalVolumeLink" Core..=) Core.<$> canonicalVolumeLink,+            ("coverUrl" Core..=) Core.<$> coverUrl,+            ("description" Core..=) Core.<$> description,+            ("title" Core..=) Core.<$> title,+            ("volumeId" Core..=) Core.<$> volumeId+          ]+      )++--+-- /See:/ 'newReadingPosition' smart constructor.+data ReadingPosition = ReadingPosition+  { -- | Position in an EPUB as a CFI.+    epubCfiPosition :: (Core.Maybe Core.Text),+    -- | Position in a volume for image-based content.+    gbImagePosition :: (Core.Maybe Core.Text),+    -- | Position in a volume for text-based content.+    gbTextPosition :: (Core.Maybe Core.Text),+    -- | Resource type for a reading position.+    kind :: (Core.Maybe Core.Text),+    -- | Position in a PDF file.+    pdfPosition :: (Core.Maybe Core.Text),+    -- | Timestamp when this reading position was last updated (formatted UTC timestamp with millisecond resolution).+    updated :: (Core.Maybe Core.Text),+    -- | Volume id associated with this reading position.+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ReadingPosition' with the minimum fields required to make a request.+newReadingPosition ::+  ReadingPosition+newReadingPosition =+  ReadingPosition+    { epubCfiPosition = Core.Nothing,+      gbImagePosition = Core.Nothing,+      gbTextPosition = Core.Nothing,+      kind = Core.Nothing,+      pdfPosition = Core.Nothing,+      updated = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.FromJSON ReadingPosition where+  parseJSON =+    Core.withObject+      "ReadingPosition"+      ( \o ->+          ReadingPosition+            Core.<$> (o Core..:? "epubCfiPosition")+            Core.<*> (o Core..:? "gbImagePosition")+            Core.<*> (o Core..:? "gbTextPosition")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "pdfPosition")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "volumeId")+      )++instance Core.ToJSON ReadingPosition where+  toJSON ReadingPosition {..} =+    Core.object+      ( Core.catMaybes+          [ ("epubCfiPosition" Core..=) Core.<$> epubCfiPosition,+            ("gbImagePosition" Core..=) Core.<$> gbImagePosition,+            ("gbTextPosition" Core..=) Core.<$> gbTextPosition,+            ("kind" Core..=) Core.<$> kind,+            ("pdfPosition" Core..=) Core.<$> pdfPosition,+            ("updated" Core..=) Core.<$> updated,+            ("volumeId" Core..=) Core.<$> volumeId+          ]+      )++--+-- /See:/ 'newRequestAccessData' smart constructor.+data RequestAccessData = RequestAccessData+  { -- | A concurrent access response.+    concurrentAccess :: (Core.Maybe ConcurrentAccessRestriction),+    -- | A download access response.+    downloadAccess :: (Core.Maybe DownloadAccessRestriction),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RequestAccessData' with the minimum fields required to make a request.+newRequestAccessData ::+  RequestAccessData+newRequestAccessData =+  RequestAccessData+    { concurrentAccess = Core.Nothing,+      downloadAccess = Core.Nothing,+      kind = Core.Nothing+    }++instance Core.FromJSON RequestAccessData where+  parseJSON =+    Core.withObject+      "RequestAccessData"+      ( \o ->+          RequestAccessData+            Core.<$> (o Core..:? "concurrentAccess")+            Core.<*> (o Core..:? "downloadAccess")+            Core.<*> (o Core..:? "kind")+      )++instance Core.ToJSON RequestAccessData where+  toJSON RequestAccessData {..} =+    Core.object+      ( Core.catMaybes+          [ ("concurrentAccess" Core..=) Core.<$> concurrentAccess,+            ("downloadAccess" Core..=) Core.<$> downloadAccess,+            ("kind" Core..=) Core.<$> kind+          ]+      )++--+-- /See:/ 'newReview' smart constructor.+data Review = Review+  { -- | Author of this review.+    author :: (Core.Maybe Review_Author),+    -- | Review text.+    content :: (Core.Maybe Core.Text),+    -- | Date of this review.+    date :: (Core.Maybe Core.Text),+    -- | URL for the full review text, for reviews gathered from the web.+    fullTextUrl :: (Core.Maybe Core.Text),+    -- | Resource type for a review.+    kind :: (Core.Maybe Core.Text),+    -- | Star rating for this review. Possible values are ONE, TWO, THREE, FOUR, FIVE or NOT_RATED.+    rating :: (Core.Maybe Core.Text),+    -- | Information regarding the source of this review, when the review is not from a Google Books user.+    source :: (Core.Maybe Review_Source),+    -- | Title for this review.+    title :: (Core.Maybe Core.Text),+    -- | Source type for this review. Possible values are EDITORIAL, WEB/USER or GOOGLE/USER.+    type' :: (Core.Maybe Core.Text),+    -- | Volume that this review is for.+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Review' with the minimum fields required to make a request.+newReview ::+  Review+newReview =+  Review+    { author = Core.Nothing,+      content = Core.Nothing,+      date = Core.Nothing,+      fullTextUrl = Core.Nothing,+      kind = Core.Nothing,+      rating = Core.Nothing,+      source = Core.Nothing,+      title = Core.Nothing,+      type' = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.FromJSON Review where+  parseJSON =+    Core.withObject+      "Review"+      ( \o ->+          Review+            Core.<$> (o Core..:? "author")+            Core.<*> (o Core..:? "content")+            Core.<*> (o Core..:? "date")+            Core.<*> (o Core..:? "fullTextUrl")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "rating")+            Core.<*> (o Core..:? "source")+            Core.<*> (o Core..:? "title")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "volumeId")+      )++instance Core.ToJSON Review where+  toJSON Review {..} =+    Core.object+      ( Core.catMaybes+          [ ("author" Core..=) Core.<$> author,+            ("content" Core..=) Core.<$> content,+            ("date" Core..=) Core.<$> date,+            ("fullTextUrl" Core..=) Core.<$> fullTextUrl,+            ("kind" Core..=) Core.<$> kind,+            ("rating" Core..=) Core.<$> rating,+            ("source" Core..=) Core.<$> source,+            ("title" Core..=) Core.<$> title,+            ("type" Core..=) Core.<$> type',+            ("volumeId" Core..=) Core.<$> volumeId+          ]+      )++-- | Author of this review.+--+-- /See:/ 'newReview_Author' smart constructor.+newtype Review_Author = Review_Author+  { -- | Name of this person.+    displayName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Review_Author' with the minimum fields required to make a request.+newReview_Author ::+  Review_Author+newReview_Author = Review_Author {displayName = Core.Nothing}++instance Core.FromJSON Review_Author where+  parseJSON =+    Core.withObject+      "Review_Author"+      (\o -> Review_Author Core.<$> (o Core..:? "displayName"))++instance Core.ToJSON Review_Author where+  toJSON Review_Author {..} =+    Core.object+      (Core.catMaybes [("displayName" Core..=) Core.<$> displayName])++-- | Information regarding the source of this review, when the review is not from a Google Books user.+--+-- /See:/ 'newReview_Source' smart constructor.+data Review_Source = Review_Source+  { -- | Name of the source.+    description :: (Core.Maybe Core.Text),+    -- | Extra text about the source of the review.+    extraDescription :: (Core.Maybe Core.Text),+    -- | URL of the source of the review.+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Review_Source' with the minimum fields required to make a request.+newReview_Source ::+  Review_Source+newReview_Source =+  Review_Source+    { description = Core.Nothing,+      extraDescription = Core.Nothing,+      url = Core.Nothing+    }++instance Core.FromJSON Review_Source where+  parseJSON =+    Core.withObject+      "Review_Source"+      ( \o ->+          Review_Source+            Core.<$> (o Core..:? "description")+            Core.<*> (o Core..:? "extraDescription")+            Core.<*> (o Core..:? "url")+      )++instance Core.ToJSON Review_Source where+  toJSON Review_Source {..} =+    Core.object+      ( Core.catMaybes+          [ ("description" Core..=) Core.<$> description,+            ("extraDescription" Core..=) Core.<$> extraDescription,+            ("url" Core..=) Core.<$> url+          ]+      )++--+-- /See:/ 'newSeries' smart constructor.+data Series = Series+  { -- | Resource type.+    kind :: (Core.Maybe Core.Text),+    series :: (Core.Maybe [Series_SeriesItem])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Series' with the minimum fields required to make a request.+newSeries ::+  Series+newSeries = Series {kind = Core.Nothing, series = Core.Nothing}++instance Core.FromJSON Series where+  parseJSON =+    Core.withObject+      "Series"+      ( \o ->+          Series Core.<$> (o Core..:? "kind") Core.<*> (o Core..:? "series")+      )++instance Core.ToJSON Series where+  toJSON Series {..} =+    Core.object+      ( Core.catMaybes+          [ ("kind" Core..=) Core.<$> kind,+            ("series" Core..=) Core.<$> series+          ]+      )++--+-- /See:/ 'newSeries_SeriesItem' smart constructor.+data Series_SeriesItem = Series_SeriesItem+  { bannerImageUrl :: (Core.Maybe Core.Text),+    eligibleForSubscription :: (Core.Maybe Core.Bool),+    imageUrl :: (Core.Maybe Core.Text),+    isComplete :: (Core.Maybe Core.Bool),+    seriesFormatType :: (Core.Maybe Core.Text),+    seriesId :: (Core.Maybe Core.Text),+    seriesSubscriptionReleaseInfo :: (Core.Maybe Series_SeriesItem_SeriesSubscriptionReleaseInfo),+    seriesType :: (Core.Maybe Core.Text),+    subscriptionId :: (Core.Maybe Core.Text),+    title :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Series_SeriesItem' with the minimum fields required to make a request.+newSeries_SeriesItem ::+  Series_SeriesItem+newSeries_SeriesItem =+  Series_SeriesItem+    { bannerImageUrl = Core.Nothing,+      eligibleForSubscription = Core.Nothing,+      imageUrl = Core.Nothing,+      isComplete = Core.Nothing,+      seriesFormatType = Core.Nothing,+      seriesId = Core.Nothing,+      seriesSubscriptionReleaseInfo = Core.Nothing,+      seriesType = Core.Nothing,+      subscriptionId = Core.Nothing,+      title = Core.Nothing+    }++instance Core.FromJSON Series_SeriesItem where+  parseJSON =+    Core.withObject+      "Series_SeriesItem"+      ( \o ->+          Series_SeriesItem+            Core.<$> (o Core..:? "bannerImageUrl")+            Core.<*> (o Core..:? "eligibleForSubscription")+            Core.<*> (o Core..:? "imageUrl")+            Core.<*> (o Core..:? "isComplete")+            Core.<*> (o Core..:? "seriesFormatType")+            Core.<*> (o Core..:? "seriesId")+            Core.<*> (o Core..:? "seriesSubscriptionReleaseInfo")+            Core.<*> (o Core..:? "seriesType")+            Core.<*> (o Core..:? "subscriptionId")+            Core.<*> (o Core..:? "title")+      )++instance Core.ToJSON Series_SeriesItem where+  toJSON Series_SeriesItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("bannerImageUrl" Core..=) Core.<$> bannerImageUrl,+            ("eligibleForSubscription" Core..=)+              Core.<$> eligibleForSubscription,+            ("imageUrl" Core..=) Core.<$> imageUrl,+            ("isComplete" Core..=) Core.<$> isComplete,+            ("seriesFormatType" Core..=) Core.<$> seriesFormatType,+            ("seriesId" Core..=) Core.<$> seriesId,+            ("seriesSubscriptionReleaseInfo" Core..=)+              Core.<$> seriesSubscriptionReleaseInfo,+            ("seriesType" Core..=) Core.<$> seriesType,+            ("subscriptionId" Core..=) Core.<$> subscriptionId,+            ("title" Core..=) Core.<$> title+          ]+      )++--+-- /See:/ 'newSeries_SeriesItem_SeriesSubscriptionReleaseInfo' smart constructor.+data Series_SeriesItem_SeriesSubscriptionReleaseInfo = Series_SeriesItem_SeriesSubscriptionReleaseInfo+  { cancelTime :: (Core.Maybe Core.Text),+    currentReleaseInfo ::+      ( Core.Maybe+          Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo+      ),+    nextReleaseInfo ::+      ( Core.Maybe+          Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo+      ),+    seriesSubscriptionType :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Series_SeriesItem_SeriesSubscriptionReleaseInfo' with the minimum fields required to make a request.+newSeries_SeriesItem_SeriesSubscriptionReleaseInfo ::+  Series_SeriesItem_SeriesSubscriptionReleaseInfo+newSeries_SeriesItem_SeriesSubscriptionReleaseInfo =+  Series_SeriesItem_SeriesSubscriptionReleaseInfo+    { cancelTime =+        Core.Nothing,+      currentReleaseInfo = Core.Nothing,+      nextReleaseInfo = Core.Nothing,+      seriesSubscriptionType = Core.Nothing+    }++instance+  Core.FromJSON+    Series_SeriesItem_SeriesSubscriptionReleaseInfo+  where+  parseJSON =+    Core.withObject+      "Series_SeriesItem_SeriesSubscriptionReleaseInfo"+      ( \o ->+          Series_SeriesItem_SeriesSubscriptionReleaseInfo+            Core.<$> (o Core..:? "cancelTime")+            Core.<*> (o Core..:? "currentReleaseInfo")+            Core.<*> (o Core..:? "nextReleaseInfo")+            Core.<*> (o Core..:? "seriesSubscriptionType")+      )++instance+  Core.ToJSON+    Series_SeriesItem_SeriesSubscriptionReleaseInfo+  where+  toJSON Series_SeriesItem_SeriesSubscriptionReleaseInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("cancelTime" Core..=) Core.<$> cancelTime,+            ("currentReleaseInfo" Core..=) Core.<$> currentReleaseInfo,+            ("nextReleaseInfo" Core..=) Core.<$> nextReleaseInfo,+            ("seriesSubscriptionType" Core..=)+              Core.<$> seriesSubscriptionType+          ]+      )++--+-- /See:/ 'newSeries_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo' smart constructor.+data Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo = Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo+  { amountInMicros :: (Core.Maybe Core.Double),+    currencyCode :: (Core.Maybe Core.Text),+    releaseNumber :: (Core.Maybe Core.Text),+    releaseTime :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo' with the minimum fields required to make a request.+newSeries_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo ::+  Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo+newSeries_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo =+  Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo+    { amountInMicros =+        Core.Nothing,+      currencyCode = Core.Nothing,+      releaseNumber = Core.Nothing,+      releaseTime = Core.Nothing+    }++instance+  Core.FromJSON+    Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo+  where+  parseJSON =+    Core.withObject+      "Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo"+      ( \o ->+          Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo+            Core.<$> (o Core..:? "amountInMicros")+            Core.<*> (o Core..:? "currencyCode")+            Core.<*> (o Core..:? "releaseNumber")+            Core.<*> (o Core..:? "releaseTime")+      )++instance+  Core.ToJSON+    Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo+  where+  toJSON+    Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo {..} =+      Core.object+        ( Core.catMaybes+            [ ("amountInMicros" Core..=) Core.<$> amountInMicros,+              ("currencyCode" Core..=) Core.<$> currencyCode,+              ("releaseNumber" Core..=) Core.<$> releaseNumber,+              ("releaseTime" Core..=) Core.<$> releaseTime+            ]+        )++--+-- /See:/ 'newSeries_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo' smart constructor.+data Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo = Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo+  { amountInMicros :: (Core.Maybe Core.Double),+    currencyCode :: (Core.Maybe Core.Text),+    releaseNumber :: (Core.Maybe Core.Text),+    releaseTime :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo' with the minimum fields required to make a request.+newSeries_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo ::+  Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo+newSeries_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo =+  Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo+    { amountInMicros =+        Core.Nothing,+      currencyCode = Core.Nothing,+      releaseNumber = Core.Nothing,+      releaseTime = Core.Nothing+    }++instance+  Core.FromJSON+    Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo+  where+  parseJSON =+    Core.withObject+      "Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo"+      ( \o ->+          Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo+            Core.<$> (o Core..:? "amountInMicros")+            Core.<*> (o Core..:? "currencyCode")+            Core.<*> (o Core..:? "releaseNumber")+            Core.<*> (o Core..:? "releaseTime")+      )++instance+  Core.ToJSON+    Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo+  where+  toJSON+    Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo {..} =+      Core.object+        ( Core.catMaybes+            [ ("amountInMicros" Core..=) Core.<$> amountInMicros,+              ("currencyCode" Core..=) Core.<$> currencyCode,+              ("releaseNumber" Core..=) Core.<$> releaseNumber,+              ("releaseTime" Core..=) Core.<$> releaseTime+            ]+        )++--+-- /See:/ 'newSeriesmembership' smart constructor.+data Seriesmembership = Seriesmembership+  { -- | Resorce type.+    kind :: (Core.Maybe Core.Text),+    member :: (Core.Maybe [Volume]),+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Seriesmembership' with the minimum fields required to make a request.+newSeriesmembership ::+  Seriesmembership+newSeriesmembership =+  Seriesmembership+    { kind = Core.Nothing,+      member = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON Seriesmembership where+  parseJSON =+    Core.withObject+      "Seriesmembership"+      ( \o ->+          Seriesmembership+            Core.<$> (o Core..:? "kind")+            Core.<*> (o Core..:? "member")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON Seriesmembership where+  toJSON Seriesmembership {..} =+    Core.object+      ( Core.catMaybes+          [ ("kind" Core..=) Core.<$> kind,+            ("member" Core..=) Core.<$> member,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++--+-- /See:/ 'newUsersettings' smart constructor.+data Usersettings = Usersettings+  { -- | Resource type.+    kind :: (Core.Maybe Core.Text),+    -- | User settings in sub-objects, each for different purposes.+    notesExport :: (Core.Maybe Usersettings_NotesExport),+    notification :: (Core.Maybe Usersettings_Notification)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Usersettings' with the minimum fields required to make a request.+newUsersettings ::+  Usersettings+newUsersettings =+  Usersettings+    { kind = Core.Nothing,+      notesExport = Core.Nothing,+      notification = Core.Nothing+    }++instance Core.FromJSON Usersettings where+  parseJSON =+    Core.withObject+      "Usersettings"+      ( \o ->+          Usersettings+            Core.<$> (o Core..:? "kind")+            Core.<*> (o Core..:? "notesExport")+            Core.<*> (o Core..:? "notification")+      )++instance Core.ToJSON Usersettings where+  toJSON Usersettings {..} =+    Core.object+      ( Core.catMaybes+          [ ("kind" Core..=) Core.<$> kind,+            ("notesExport" Core..=) Core.<$> notesExport,+            ("notification" Core..=) Core.<$> notification+          ]+      )++-- | User settings in sub-objects, each for different purposes.+--+-- /See:/ 'newUsersettings_NotesExport' smart constructor.+data Usersettings_NotesExport = Usersettings_NotesExport+  { folderName :: (Core.Maybe Core.Text),+    isEnabled :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Usersettings_NotesExport' with the minimum fields required to make a request.+newUsersettings_NotesExport ::+  Usersettings_NotesExport+newUsersettings_NotesExport =+  Usersettings_NotesExport+    { folderName = Core.Nothing,+      isEnabled = Core.Nothing+    }++instance Core.FromJSON Usersettings_NotesExport where+  parseJSON =+    Core.withObject+      "Usersettings_NotesExport"+      ( \o ->+          Usersettings_NotesExport+            Core.<$> (o Core..:? "folderName")+            Core.<*> (o Core..:? "isEnabled")+      )++instance Core.ToJSON Usersettings_NotesExport where+  toJSON Usersettings_NotesExport {..} =+    Core.object+      ( Core.catMaybes+          [ ("folderName" Core..=) Core.<$> folderName,+            ("isEnabled" Core..=) Core.<$> isEnabled+          ]+      )++--+-- /See:/ 'newUsersettings_Notification' smart constructor.+data Usersettings_Notification = Usersettings_Notification+  { matchMyInterests :: (Core.Maybe Usersettings_Notification_MatchMyInterests),+    moreFromAuthors :: (Core.Maybe Usersettings_Notification_MoreFromAuthors),+    moreFromSeries :: (Core.Maybe Usersettings_Notification_MoreFromSeries),+    priceDrop :: (Core.Maybe Usersettings_Notification_PriceDrop),+    rewardExpirations :: (Core.Maybe Usersettings_Notification_RewardExpirations)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Usersettings_Notification' with the minimum fields required to make a request.+newUsersettings_Notification ::+  Usersettings_Notification+newUsersettings_Notification =+  Usersettings_Notification+    { matchMyInterests = Core.Nothing,+      moreFromAuthors = Core.Nothing,+      moreFromSeries = Core.Nothing,+      priceDrop = Core.Nothing,+      rewardExpirations = Core.Nothing+    }++instance Core.FromJSON Usersettings_Notification where+  parseJSON =+    Core.withObject+      "Usersettings_Notification"+      ( \o ->+          Usersettings_Notification+            Core.<$> (o Core..:? "matchMyInterests")+            Core.<*> (o Core..:? "moreFromAuthors")+            Core.<*> (o Core..:? "moreFromSeries")+            Core.<*> (o Core..:? "priceDrop")+            Core.<*> (o Core..:? "rewardExpirations")+      )++instance Core.ToJSON Usersettings_Notification where+  toJSON Usersettings_Notification {..} =+    Core.object+      ( Core.catMaybes+          [ ("matchMyInterests" Core..=) Core.<$> matchMyInterests,+            ("moreFromAuthors" Core..=) Core.<$> moreFromAuthors,+            ("moreFromSeries" Core..=) Core.<$> moreFromSeries,+            ("priceDrop" Core..=) Core.<$> priceDrop,+            ("rewardExpirations" Core..=) Core.<$> rewardExpirations+          ]+      )++--+-- /See:/ 'newUsersettings_Notification_MatchMyInterests' smart constructor.+newtype Usersettings_Notification_MatchMyInterests = Usersettings_Notification_MatchMyInterests+  { optedState :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Usersettings_Notification_MatchMyInterests' with the minimum fields required to make a request.+newUsersettings_Notification_MatchMyInterests ::+  Usersettings_Notification_MatchMyInterests+newUsersettings_Notification_MatchMyInterests =+  Usersettings_Notification_MatchMyInterests+    { optedState =+        Core.Nothing+    }++instance Core.FromJSON Usersettings_Notification_MatchMyInterests where+  parseJSON =+    Core.withObject+      "Usersettings_Notification_MatchMyInterests"+      ( \o ->+          Usersettings_Notification_MatchMyInterests+            Core.<$> (o Core..:? "opted_state")+      )++instance Core.ToJSON Usersettings_Notification_MatchMyInterests where+  toJSON Usersettings_Notification_MatchMyInterests {..} =+    Core.object+      (Core.catMaybes [("opted_state" Core..=) Core.<$> optedState])++--+-- /See:/ 'newUsersettings_Notification_MoreFromAuthors' smart constructor.+newtype Usersettings_Notification_MoreFromAuthors = Usersettings_Notification_MoreFromAuthors+  { optedState :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Usersettings_Notification_MoreFromAuthors' with the minimum fields required to make a request.+newUsersettings_Notification_MoreFromAuthors ::+  Usersettings_Notification_MoreFromAuthors+newUsersettings_Notification_MoreFromAuthors =+  Usersettings_Notification_MoreFromAuthors+    { optedState =+        Core.Nothing+    }++instance Core.FromJSON Usersettings_Notification_MoreFromAuthors where+  parseJSON =+    Core.withObject+      "Usersettings_Notification_MoreFromAuthors"+      ( \o ->+          Usersettings_Notification_MoreFromAuthors+            Core.<$> (o Core..:? "opted_state")+      )++instance Core.ToJSON Usersettings_Notification_MoreFromAuthors where+  toJSON Usersettings_Notification_MoreFromAuthors {..} =+    Core.object+      (Core.catMaybes [("opted_state" Core..=) Core.<$> optedState])++--+-- /See:/ 'newUsersettings_Notification_MoreFromSeries' smart constructor.+newtype Usersettings_Notification_MoreFromSeries = Usersettings_Notification_MoreFromSeries+  { optedState :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Usersettings_Notification_MoreFromSeries' with the minimum fields required to make a request.+newUsersettings_Notification_MoreFromSeries ::+  Usersettings_Notification_MoreFromSeries+newUsersettings_Notification_MoreFromSeries =+  Usersettings_Notification_MoreFromSeries+    { optedState =+        Core.Nothing+    }++instance Core.FromJSON Usersettings_Notification_MoreFromSeries where+  parseJSON =+    Core.withObject+      "Usersettings_Notification_MoreFromSeries"+      ( \o ->+          Usersettings_Notification_MoreFromSeries+            Core.<$> (o Core..:? "opted_state")+      )++instance Core.ToJSON Usersettings_Notification_MoreFromSeries where+  toJSON Usersettings_Notification_MoreFromSeries {..} =+    Core.object+      (Core.catMaybes [("opted_state" Core..=) Core.<$> optedState])++--+-- /See:/ 'newUsersettings_Notification_PriceDrop' smart constructor.+newtype Usersettings_Notification_PriceDrop = Usersettings_Notification_PriceDrop+  { optedState :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Usersettings_Notification_PriceDrop' with the minimum fields required to make a request.+newUsersettings_Notification_PriceDrop ::+  Usersettings_Notification_PriceDrop+newUsersettings_Notification_PriceDrop =+  Usersettings_Notification_PriceDrop {optedState = Core.Nothing}++instance Core.FromJSON Usersettings_Notification_PriceDrop where+  parseJSON =+    Core.withObject+      "Usersettings_Notification_PriceDrop"+      ( \o ->+          Usersettings_Notification_PriceDrop+            Core.<$> (o Core..:? "opted_state")+      )++instance Core.ToJSON Usersettings_Notification_PriceDrop where+  toJSON Usersettings_Notification_PriceDrop {..} =+    Core.object+      (Core.catMaybes [("opted_state" Core..=) Core.<$> optedState])++--+-- /See:/ 'newUsersettings_Notification_RewardExpirations' smart constructor.+newtype Usersettings_Notification_RewardExpirations = Usersettings_Notification_RewardExpirations+  { optedState :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Usersettings_Notification_RewardExpirations' with the minimum fields required to make a request.+newUsersettings_Notification_RewardExpirations ::+  Usersettings_Notification_RewardExpirations+newUsersettings_Notification_RewardExpirations =+  Usersettings_Notification_RewardExpirations+    { optedState =+        Core.Nothing+    }++instance Core.FromJSON Usersettings_Notification_RewardExpirations where+  parseJSON =+    Core.withObject+      "Usersettings_Notification_RewardExpirations"+      ( \o ->+          Usersettings_Notification_RewardExpirations+            Core.<$> (o Core..:? "opted_state")+      )++instance Core.ToJSON Usersettings_Notification_RewardExpirations where+  toJSON Usersettings_Notification_RewardExpirations {..} =+    Core.object+      (Core.catMaybes [("opted_state" Core..=) Core.<$> optedState])++--+-- /See:/ 'newVolume' smart constructor.+data Volume = Volume+  { -- | Any information about a volume related to reading or obtaining that volume text. This information can depend on country (books may be public domain in one country but not in another, e.g.).+    accessInfo :: (Core.Maybe Volume_AccessInfo),+    -- | Opaque identifier for a specific version of a volume resource. (In LITE projection)+    etag :: (Core.Maybe Core.Text),+    -- | Unique identifier for a volume. (In LITE projection.)+    id :: (Core.Maybe Core.Text),+    -- | Resource type for a volume. (In LITE projection.)+    kind :: (Core.Maybe Core.Text),+    -- | What layers exist in this volume and high level information about them.+    layerInfo :: (Core.Maybe Volume_LayerInfo),+    -- | Recommendation related information for this volume.+    recommendedInfo :: (Core.Maybe Volume_RecommendedInfo),+    -- | Any information about a volume related to the eBookstore and\/or purchaseability. This information can depend on the country where the request originates from (i.e. books may not be for sale in certain countries).+    saleInfo :: (Core.Maybe Volume_SaleInfo),+    -- | Search result information related to this volume.+    searchInfo :: (Core.Maybe Volume_SearchInfo),+    -- | URL to this resource. (In LITE projection.)+    selfLink :: (Core.Maybe Core.Text),+    -- | User specific information related to this volume. (e.g. page this user last read or whether they purchased this book)+    userInfo :: (Core.Maybe Volume_UserInfo),+    -- | General volume information.+    volumeInfo :: (Core.Maybe Volume_VolumeInfo)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume' with the minimum fields required to make a request.+newVolume ::+  Volume+newVolume =+  Volume+    { accessInfo = Core.Nothing,+      etag = Core.Nothing,+      id = Core.Nothing,+      kind = Core.Nothing,+      layerInfo = Core.Nothing,+      recommendedInfo = Core.Nothing,+      saleInfo = Core.Nothing,+      searchInfo = Core.Nothing,+      selfLink = Core.Nothing,+      userInfo = Core.Nothing,+      volumeInfo = Core.Nothing+    }++instance Core.FromJSON Volume where+  parseJSON =+    Core.withObject+      "Volume"+      ( \o ->+          Volume+            Core.<$> (o Core..:? "accessInfo")+            Core.<*> (o Core..:? "etag")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "layerInfo")+            Core.<*> (o Core..:? "recommendedInfo")+            Core.<*> (o Core..:? "saleInfo")+            Core.<*> (o Core..:? "searchInfo")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "userInfo")+            Core.<*> (o Core..:? "volumeInfo")+      )++instance Core.ToJSON Volume where+  toJSON Volume {..} =+    Core.object+      ( Core.catMaybes+          [ ("accessInfo" Core..=) Core.<$> accessInfo,+            ("etag" Core..=) Core.<$> etag,+            ("id" Core..=) Core.<$> id,+            ("kind" Core..=) Core.<$> kind,+            ("layerInfo" Core..=) Core.<$> layerInfo,+            ("recommendedInfo" Core..=) Core.<$> recommendedInfo,+            ("saleInfo" Core..=) Core.<$> saleInfo,+            ("searchInfo" Core..=) Core.<$> searchInfo,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("userInfo" Core..=) Core.<$> userInfo,+            ("volumeInfo" Core..=) Core.<$> volumeInfo+          ]+      )++-- | Any information about a volume related to reading or obtaining that volume text. This information can depend on country (books may be public domain in one country but not in another, e.g.).+--+-- /See:/ 'newVolume_AccessInfo' smart constructor.+data Volume_AccessInfo = Volume_AccessInfo+  { -- | Combines the access and viewability of this volume into a single status field for this user. Values can be FULL/PURCHASED, FULL/PUBLIC_DOMAIN, SAMPLE or NONE. (In LITE projection.)+    accessViewStatus :: (Core.Maybe Core.Text),+    -- | The two-letter ISO_3166-1 country code for which this access information is valid. (In LITE projection.)+    country :: (Core.Maybe Core.Text),+    -- | Information about a volume\'s download license access restrictions.+    downloadAccess :: (Core.Maybe DownloadAccessRestriction),+    -- | URL to the Google Drive viewer if this volume is uploaded by the user by selecting the file from Google Drive.+    driveImportedContentLink :: (Core.Maybe Core.Text),+    -- | Whether this volume can be embedded in a viewport using the Embedded Viewer API.+    embeddable :: (Core.Maybe Core.Bool),+    -- | Information about epub content. (In LITE projection.)+    epub :: (Core.Maybe Volume_AccessInfo_Epub),+    -- | Whether this volume requires that the client explicitly request offline download license rather than have it done automatically when loading the content, if the client supports it.+    explicitOfflineLicenseManagement :: (Core.Maybe Core.Bool),+    -- | Information about pdf content. (In LITE projection.)+    pdf :: (Core.Maybe Volume_AccessInfo_Pdf),+    -- | Whether or not this book is public domain in the country listed above.+    publicDomain :: (Core.Maybe Core.Bool),+    -- | Whether quote sharing is allowed for this volume.+    quoteSharingAllowed :: (Core.Maybe Core.Bool),+    -- | Whether text-to-speech is permitted for this volume. Values can be ALLOWED, ALLOWED/FOR/ACCESSIBILITY, or NOT_ALLOWED.+    textToSpeechPermission :: (Core.Maybe Core.Text),+    -- | For ordered but not yet processed orders, we give a URL that can be used to go to the appropriate Google Wallet page.+    viewOrderUrl :: (Core.Maybe Core.Text),+    -- | The read access of a volume. Possible values are PARTIAL, ALL/PAGES, NO/PAGES or UNKNOWN. This value depends on the country listed above. A value of PARTIAL means that the publisher has allowed some portion of the volume to be viewed publicly, without purchase. This can apply to eBooks as well as non-eBooks. Public domain books will always have a value of ALL_PAGES.+    viewability :: (Core.Maybe Core.Text),+    -- | URL to read this volume on the Google Books site. Link will not allow users to read non-viewable volumes.+    webReaderLink :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_AccessInfo' with the minimum fields required to make a request.+newVolume_AccessInfo ::+  Volume_AccessInfo+newVolume_AccessInfo =+  Volume_AccessInfo+    { accessViewStatus = Core.Nothing,+      country = Core.Nothing,+      downloadAccess = Core.Nothing,+      driveImportedContentLink = Core.Nothing,+      embeddable = Core.Nothing,+      epub = Core.Nothing,+      explicitOfflineLicenseManagement = Core.Nothing,+      pdf = Core.Nothing,+      publicDomain = Core.Nothing,+      quoteSharingAllowed = Core.Nothing,+      textToSpeechPermission = Core.Nothing,+      viewOrderUrl = Core.Nothing,+      viewability = Core.Nothing,+      webReaderLink = Core.Nothing+    }++instance Core.FromJSON Volume_AccessInfo where+  parseJSON =+    Core.withObject+      "Volume_AccessInfo"+      ( \o ->+          Volume_AccessInfo+            Core.<$> (o Core..:? "accessViewStatus")+            Core.<*> (o Core..:? "country")+            Core.<*> (o Core..:? "downloadAccess")+            Core.<*> (o Core..:? "driveImportedContentLink")+            Core.<*> (o Core..:? "embeddable")+            Core.<*> (o Core..:? "epub")+            Core.<*> (o Core..:? "explicitOfflineLicenseManagement")+            Core.<*> (o Core..:? "pdf")+            Core.<*> (o Core..:? "publicDomain")+            Core.<*> (o Core..:? "quoteSharingAllowed")+            Core.<*> (o Core..:? "textToSpeechPermission")+            Core.<*> (o Core..:? "viewOrderUrl")+            Core.<*> (o Core..:? "viewability")+            Core.<*> (o Core..:? "webReaderLink")+      )++instance Core.ToJSON Volume_AccessInfo where+  toJSON Volume_AccessInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("accessViewStatus" Core..=) Core.<$> accessViewStatus,+            ("country" Core..=) Core.<$> country,+            ("downloadAccess" Core..=) Core.<$> downloadAccess,+            ("driveImportedContentLink" Core..=)+              Core.<$> driveImportedContentLink,+            ("embeddable" Core..=) Core.<$> embeddable,+            ("epub" Core..=) Core.<$> epub,+            ("explicitOfflineLicenseManagement" Core..=)+              Core.<$> explicitOfflineLicenseManagement,+            ("pdf" Core..=) Core.<$> pdf,+            ("publicDomain" Core..=) Core.<$> publicDomain,+            ("quoteSharingAllowed" Core..=) Core.<$> quoteSharingAllowed,+            ("textToSpeechPermission" Core..=) Core.<$> textToSpeechPermission,+            ("viewOrderUrl" Core..=) Core.<$> viewOrderUrl,+            ("viewability" Core..=) Core.<$> viewability,+            ("webReaderLink" Core..=) Core.<$> webReaderLink+          ]+      )++-- | Information about epub content. (In LITE projection.)+--+-- /See:/ 'newVolume_AccessInfo_Epub' smart constructor.+data Volume_AccessInfo_Epub = Volume_AccessInfo_Epub+  { -- | URL to retrieve ACS token for epub download. (In LITE projection.)+    acsTokenLink :: (Core.Maybe Core.Text),+    -- | URL to download epub. (In LITE projection.)+    downloadLink :: (Core.Maybe Core.Text),+    -- | Is a flowing text epub available either as public domain or for purchase. (In LITE projection.)+    isAvailable :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_AccessInfo_Epub' with the minimum fields required to make a request.+newVolume_AccessInfo_Epub ::+  Volume_AccessInfo_Epub+newVolume_AccessInfo_Epub =+  Volume_AccessInfo_Epub+    { acsTokenLink = Core.Nothing,+      downloadLink = Core.Nothing,+      isAvailable = Core.Nothing+    }++instance Core.FromJSON Volume_AccessInfo_Epub where+  parseJSON =+    Core.withObject+      "Volume_AccessInfo_Epub"+      ( \o ->+          Volume_AccessInfo_Epub+            Core.<$> (o Core..:? "acsTokenLink")+            Core.<*> (o Core..:? "downloadLink")+            Core.<*> (o Core..:? "isAvailable")+      )++instance Core.ToJSON Volume_AccessInfo_Epub where+  toJSON Volume_AccessInfo_Epub {..} =+    Core.object+      ( Core.catMaybes+          [ ("acsTokenLink" Core..=) Core.<$> acsTokenLink,+            ("downloadLink" Core..=) Core.<$> downloadLink,+            ("isAvailable" Core..=) Core.<$> isAvailable+          ]+      )++-- | Information about pdf content. (In LITE projection.)+--+-- /See:/ 'newVolume_AccessInfo_Pdf' smart constructor.+data Volume_AccessInfo_Pdf = Volume_AccessInfo_Pdf+  { -- | URL to retrieve ACS token for pdf download. (In LITE projection.)+    acsTokenLink :: (Core.Maybe Core.Text),+    -- | URL to download pdf. (In LITE projection.)+    downloadLink :: (Core.Maybe Core.Text),+    -- | Is a scanned image pdf available either as public domain or for purchase. (In LITE projection.)+    isAvailable :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_AccessInfo_Pdf' with the minimum fields required to make a request.+newVolume_AccessInfo_Pdf ::+  Volume_AccessInfo_Pdf+newVolume_AccessInfo_Pdf =+  Volume_AccessInfo_Pdf+    { acsTokenLink = Core.Nothing,+      downloadLink = Core.Nothing,+      isAvailable = Core.Nothing+    }++instance Core.FromJSON Volume_AccessInfo_Pdf where+  parseJSON =+    Core.withObject+      "Volume_AccessInfo_Pdf"+      ( \o ->+          Volume_AccessInfo_Pdf+            Core.<$> (o Core..:? "acsTokenLink")+            Core.<*> (o Core..:? "downloadLink")+            Core.<*> (o Core..:? "isAvailable")+      )++instance Core.ToJSON Volume_AccessInfo_Pdf where+  toJSON Volume_AccessInfo_Pdf {..} =+    Core.object+      ( Core.catMaybes+          [ ("acsTokenLink" Core..=) Core.<$> acsTokenLink,+            ("downloadLink" Core..=) Core.<$> downloadLink,+            ("isAvailable" Core..=) Core.<$> isAvailable+          ]+      )++-- | What layers exist in this volume and high level information about them.+--+-- /See:/ 'newVolume_LayerInfo' smart constructor.+newtype Volume_LayerInfo = Volume_LayerInfo+  { -- | A layer should appear here if and only if the layer exists for this book.+    layers :: (Core.Maybe [Volume_LayerInfo_LayersItem])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_LayerInfo' with the minimum fields required to make a request.+newVolume_LayerInfo ::+  Volume_LayerInfo+newVolume_LayerInfo = Volume_LayerInfo {layers = Core.Nothing}++instance Core.FromJSON Volume_LayerInfo where+  parseJSON =+    Core.withObject+      "Volume_LayerInfo"+      (\o -> Volume_LayerInfo Core.<$> (o Core..:? "layers"))++instance Core.ToJSON Volume_LayerInfo where+  toJSON Volume_LayerInfo {..} =+    Core.object (Core.catMaybes [("layers" Core..=) Core.<$> layers])++--+-- /See:/ 'newVolume_LayerInfo_LayersItem' smart constructor.+data Volume_LayerInfo_LayersItem = Volume_LayerInfo_LayersItem+  { -- | The layer id of this layer (e.g. \"geo\").+    layerId :: (Core.Maybe Core.Text),+    -- | The current version of this layer\'s volume annotations. Note that this version applies only to the data in the books.layers.volumeAnnotations.* responses. The actual annotation data is versioned separately.+    volumeAnnotationsVersion :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_LayerInfo_LayersItem' with the minimum fields required to make a request.+newVolume_LayerInfo_LayersItem ::+  Volume_LayerInfo_LayersItem+newVolume_LayerInfo_LayersItem =+  Volume_LayerInfo_LayersItem+    { layerId = Core.Nothing,+      volumeAnnotationsVersion = Core.Nothing+    }++instance Core.FromJSON Volume_LayerInfo_LayersItem where+  parseJSON =+    Core.withObject+      "Volume_LayerInfo_LayersItem"+      ( \o ->+          Volume_LayerInfo_LayersItem+            Core.<$> (o Core..:? "layerId")+            Core.<*> (o Core..:? "volumeAnnotationsVersion")+      )++instance Core.ToJSON Volume_LayerInfo_LayersItem where+  toJSON Volume_LayerInfo_LayersItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("layerId" Core..=) Core.<$> layerId,+            ("volumeAnnotationsVersion" Core..=)+              Core.<$> volumeAnnotationsVersion+          ]+      )++-- | Recommendation related information for this volume.+--+-- /See:/ 'newVolume_RecommendedInfo' smart constructor.+newtype Volume_RecommendedInfo = Volume_RecommendedInfo+  { -- | A text explaining why this volume is recommended.+    explanation :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_RecommendedInfo' with the minimum fields required to make a request.+newVolume_RecommendedInfo ::+  Volume_RecommendedInfo+newVolume_RecommendedInfo =+  Volume_RecommendedInfo {explanation = Core.Nothing}++instance Core.FromJSON Volume_RecommendedInfo where+  parseJSON =+    Core.withObject+      "Volume_RecommendedInfo"+      (\o -> Volume_RecommendedInfo Core.<$> (o Core..:? "explanation"))++instance Core.ToJSON Volume_RecommendedInfo where+  toJSON Volume_RecommendedInfo {..} =+    Core.object+      (Core.catMaybes [("explanation" Core..=) Core.<$> explanation])++-- | Any information about a volume related to the eBookstore and\/or purchaseability. This information can depend on the country where the request originates from (i.e. books may not be for sale in certain countries).+--+-- /See:/ 'newVolume_SaleInfo' smart constructor.+data Volume_SaleInfo = Volume_SaleInfo+  { -- | URL to purchase this volume on the Google Books site. (In LITE projection)+    buyLink :: (Core.Maybe Core.Text),+    -- | The two-letter ISO_3166-1 country code for which this sale information is valid. (In LITE projection.)+    country :: (Core.Maybe Core.Text),+    -- | Whether or not this volume is an eBook (can be added to the My eBooks shelf).+    isEbook :: (Core.Maybe Core.Bool),+    -- | Suggested retail price. (In LITE projection.)+    listPrice :: (Core.Maybe Volume_SaleInfo_ListPrice),+    -- | Offers available for this volume (sales and rentals).+    offers :: (Core.Maybe [Volume_SaleInfo_OffersItem]),+    -- | The date on which this book is available for sale.+    onSaleDate :: (Core.Maybe Core.Text),+    -- | The actual selling price of the book. This is the same as the suggested retail or list price unless there are offers or discounts on this volume. (In LITE projection.)+    retailPrice :: (Core.Maybe Volume_SaleInfo_RetailPrice),+    -- | Whether or not this book is available for sale or offered for free in the Google eBookstore for the country listed above. Possible values are FOR/SALE, FOR/RENTAL/ONLY, FOR/SALE/AND/RENTAL, FREE, NOT/FOR/SALE, or FOR_PREORDER.+    saleability :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_SaleInfo' with the minimum fields required to make a request.+newVolume_SaleInfo ::+  Volume_SaleInfo+newVolume_SaleInfo =+  Volume_SaleInfo+    { buyLink = Core.Nothing,+      country = Core.Nothing,+      isEbook = Core.Nothing,+      listPrice = Core.Nothing,+      offers = Core.Nothing,+      onSaleDate = Core.Nothing,+      retailPrice = Core.Nothing,+      saleability = Core.Nothing+    }++instance Core.FromJSON Volume_SaleInfo where+  parseJSON =+    Core.withObject+      "Volume_SaleInfo"+      ( \o ->+          Volume_SaleInfo+            Core.<$> (o Core..:? "buyLink")+            Core.<*> (o Core..:? "country")+            Core.<*> (o Core..:? "isEbook")+            Core.<*> (o Core..:? "listPrice")+            Core.<*> (o Core..:? "offers")+            Core.<*> (o Core..:? "onSaleDate")+            Core.<*> (o Core..:? "retailPrice")+            Core.<*> (o Core..:? "saleability")+      )++instance Core.ToJSON Volume_SaleInfo where+  toJSON Volume_SaleInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("buyLink" Core..=) Core.<$> buyLink,+            ("country" Core..=) Core.<$> country,+            ("isEbook" Core..=) Core.<$> isEbook,+            ("listPrice" Core..=) Core.<$> listPrice,+            ("offers" Core..=) Core.<$> offers,+            ("onSaleDate" Core..=) Core.<$> onSaleDate,+            ("retailPrice" Core..=) Core.<$> retailPrice,+            ("saleability" Core..=) Core.<$> saleability+          ]+      )++-- | Suggested retail price. (In LITE projection.)+--+-- /See:/ 'newVolume_SaleInfo_ListPrice' smart constructor.+data Volume_SaleInfo_ListPrice = Volume_SaleInfo_ListPrice+  { -- | Amount in the currency listed below. (In LITE projection.)+    amount :: (Core.Maybe Core.Double),+    -- | An ISO 4217, three-letter currency code. (In LITE projection.)+    currencyCode :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_SaleInfo_ListPrice' with the minimum fields required to make a request.+newVolume_SaleInfo_ListPrice ::+  Volume_SaleInfo_ListPrice+newVolume_SaleInfo_ListPrice =+  Volume_SaleInfo_ListPrice+    { amount = Core.Nothing,+      currencyCode = Core.Nothing+    }++instance Core.FromJSON Volume_SaleInfo_ListPrice where+  parseJSON =+    Core.withObject+      "Volume_SaleInfo_ListPrice"+      ( \o ->+          Volume_SaleInfo_ListPrice+            Core.<$> (o Core..:? "amount")+            Core.<*> (o Core..:? "currencyCode")+      )++instance Core.ToJSON Volume_SaleInfo_ListPrice where+  toJSON Volume_SaleInfo_ListPrice {..} =+    Core.object+      ( Core.catMaybes+          [ ("amount" Core..=) Core.<$> amount,+            ("currencyCode" Core..=) Core.<$> currencyCode+          ]+      )++--+-- /See:/ 'newVolume_SaleInfo_OffersItem' smart constructor.+data Volume_SaleInfo_OffersItem = Volume_SaleInfo_OffersItem+  { -- | The finsky offer type (e.g., PURCHASE=0 RENTAL=3)+    finskyOfferType :: (Core.Maybe Core.Int32),+    -- | Indicates whether the offer is giftable.+    giftable :: (Core.Maybe Core.Bool),+    -- | Offer list (=undiscounted) price in Micros.+    listPrice :: (Core.Maybe Volume_SaleInfo_OffersItem_ListPrice),+    -- | The rental duration (for rental offers only).+    rentalDuration :: (Core.Maybe Volume_SaleInfo_OffersItem_RentalDuration),+    -- | Offer retail (=discounted) price in Micros+    retailPrice :: (Core.Maybe Volume_SaleInfo_OffersItem_RetailPrice)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_SaleInfo_OffersItem' with the minimum fields required to make a request.+newVolume_SaleInfo_OffersItem ::+  Volume_SaleInfo_OffersItem+newVolume_SaleInfo_OffersItem =+  Volume_SaleInfo_OffersItem+    { finskyOfferType = Core.Nothing,+      giftable = Core.Nothing,+      listPrice = Core.Nothing,+      rentalDuration = Core.Nothing,+      retailPrice = Core.Nothing+    }++instance Core.FromJSON Volume_SaleInfo_OffersItem where+  parseJSON =+    Core.withObject+      "Volume_SaleInfo_OffersItem"+      ( \o ->+          Volume_SaleInfo_OffersItem+            Core.<$> (o Core..:? "finskyOfferType")+            Core.<*> (o Core..:? "giftable")+            Core.<*> (o Core..:? "listPrice")+            Core.<*> (o Core..:? "rentalDuration")+            Core.<*> (o Core..:? "retailPrice")+      )++instance Core.ToJSON Volume_SaleInfo_OffersItem where+  toJSON Volume_SaleInfo_OffersItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("finskyOfferType" Core..=) Core.<$> finskyOfferType,+            ("giftable" Core..=) Core.<$> giftable,+            ("listPrice" Core..=) Core.<$> listPrice,+            ("rentalDuration" Core..=) Core.<$> rentalDuration,+            ("retailPrice" Core..=) Core.<$> retailPrice+          ]+      )++-- | Offer list (=undiscounted) price in Micros.+--+-- /See:/ 'newVolume_SaleInfo_OffersItem_ListPrice' smart constructor.+data Volume_SaleInfo_OffersItem_ListPrice = Volume_SaleInfo_OffersItem_ListPrice+  { amountInMicros :: (Core.Maybe Core.Double),+    currencyCode :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_SaleInfo_OffersItem_ListPrice' with the minimum fields required to make a request.+newVolume_SaleInfo_OffersItem_ListPrice ::+  Volume_SaleInfo_OffersItem_ListPrice+newVolume_SaleInfo_OffersItem_ListPrice =+  Volume_SaleInfo_OffersItem_ListPrice+    { amountInMicros =+        Core.Nothing,+      currencyCode = Core.Nothing+    }++instance Core.FromJSON Volume_SaleInfo_OffersItem_ListPrice where+  parseJSON =+    Core.withObject+      "Volume_SaleInfo_OffersItem_ListPrice"+      ( \o ->+          Volume_SaleInfo_OffersItem_ListPrice+            Core.<$> (o Core..:? "amountInMicros")+            Core.<*> (o Core..:? "currencyCode")+      )++instance Core.ToJSON Volume_SaleInfo_OffersItem_ListPrice where+  toJSON Volume_SaleInfo_OffersItem_ListPrice {..} =+    Core.object+      ( Core.catMaybes+          [ ("amountInMicros" Core..=) Core.<$> amountInMicros,+            ("currencyCode" Core..=) Core.<$> currencyCode+          ]+      )++-- | The rental duration (for rental offers only).+--+-- /See:/ 'newVolume_SaleInfo_OffersItem_RentalDuration' smart constructor.+data Volume_SaleInfo_OffersItem_RentalDuration = Volume_SaleInfo_OffersItem_RentalDuration+  { count :: (Core.Maybe Core.Double),+    unit :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_SaleInfo_OffersItem_RentalDuration' with the minimum fields required to make a request.+newVolume_SaleInfo_OffersItem_RentalDuration ::+  Volume_SaleInfo_OffersItem_RentalDuration+newVolume_SaleInfo_OffersItem_RentalDuration =+  Volume_SaleInfo_OffersItem_RentalDuration+    { count = Core.Nothing,+      unit = Core.Nothing+    }++instance Core.FromJSON Volume_SaleInfo_OffersItem_RentalDuration where+  parseJSON =+    Core.withObject+      "Volume_SaleInfo_OffersItem_RentalDuration"+      ( \o ->+          Volume_SaleInfo_OffersItem_RentalDuration+            Core.<$> (o Core..:? "count")+            Core.<*> (o Core..:? "unit")+      )++instance Core.ToJSON Volume_SaleInfo_OffersItem_RentalDuration where+  toJSON Volume_SaleInfo_OffersItem_RentalDuration {..} =+    Core.object+      ( Core.catMaybes+          [("count" Core..=) Core.<$> count, ("unit" Core..=) Core.<$> unit]+      )++-- | Offer retail (=discounted) price in Micros+--+-- /See:/ 'newVolume_SaleInfo_OffersItem_RetailPrice' smart constructor.+data Volume_SaleInfo_OffersItem_RetailPrice = Volume_SaleInfo_OffersItem_RetailPrice+  { amountInMicros :: (Core.Maybe Core.Double),+    currencyCode :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_SaleInfo_OffersItem_RetailPrice' with the minimum fields required to make a request.+newVolume_SaleInfo_OffersItem_RetailPrice ::+  Volume_SaleInfo_OffersItem_RetailPrice+newVolume_SaleInfo_OffersItem_RetailPrice =+  Volume_SaleInfo_OffersItem_RetailPrice+    { amountInMicros =+        Core.Nothing,+      currencyCode = Core.Nothing+    }++instance Core.FromJSON Volume_SaleInfo_OffersItem_RetailPrice where+  parseJSON =+    Core.withObject+      "Volume_SaleInfo_OffersItem_RetailPrice"+      ( \o ->+          Volume_SaleInfo_OffersItem_RetailPrice+            Core.<$> (o Core..:? "amountInMicros")+            Core.<*> (o Core..:? "currencyCode")+      )++instance Core.ToJSON Volume_SaleInfo_OffersItem_RetailPrice where+  toJSON Volume_SaleInfo_OffersItem_RetailPrice {..} =+    Core.object+      ( Core.catMaybes+          [ ("amountInMicros" Core..=) Core.<$> amountInMicros,+            ("currencyCode" Core..=) Core.<$> currencyCode+          ]+      )++-- | The actual selling price of the book. This is the same as the suggested retail or list price unless there are offers or discounts on this volume. (In LITE projection.)+--+-- /See:/ 'newVolume_SaleInfo_RetailPrice' smart constructor.+data Volume_SaleInfo_RetailPrice = Volume_SaleInfo_RetailPrice+  { -- | Amount in the currency listed below. (In LITE projection.)+    amount :: (Core.Maybe Core.Double),+    -- | An ISO 4217, three-letter currency code. (In LITE projection.)+    currencyCode :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_SaleInfo_RetailPrice' with the minimum fields required to make a request.+newVolume_SaleInfo_RetailPrice ::+  Volume_SaleInfo_RetailPrice+newVolume_SaleInfo_RetailPrice =+  Volume_SaleInfo_RetailPrice+    { amount = Core.Nothing,+      currencyCode = Core.Nothing+    }++instance Core.FromJSON Volume_SaleInfo_RetailPrice where+  parseJSON =+    Core.withObject+      "Volume_SaleInfo_RetailPrice"+      ( \o ->+          Volume_SaleInfo_RetailPrice+            Core.<$> (o Core..:? "amount")+            Core.<*> (o Core..:? "currencyCode")+      )++instance Core.ToJSON Volume_SaleInfo_RetailPrice where+  toJSON Volume_SaleInfo_RetailPrice {..} =+    Core.object+      ( Core.catMaybes+          [ ("amount" Core..=) Core.<$> amount,+            ("currencyCode" Core..=) Core.<$> currencyCode+          ]+      )++-- | Search result information related to this volume.+--+-- /See:/ 'newVolume_SearchInfo' smart constructor.+newtype Volume_SearchInfo = Volume_SearchInfo+  { -- | A text snippet containing the search query.+    textSnippet :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_SearchInfo' with the minimum fields required to make a request.+newVolume_SearchInfo ::+  Volume_SearchInfo+newVolume_SearchInfo =+  Volume_SearchInfo {textSnippet = Core.Nothing}++instance Core.FromJSON Volume_SearchInfo where+  parseJSON =+    Core.withObject+      "Volume_SearchInfo"+      (\o -> Volume_SearchInfo Core.<$> (o Core..:? "textSnippet"))++instance Core.ToJSON Volume_SearchInfo where+  toJSON Volume_SearchInfo {..} =+    Core.object+      (Core.catMaybes [("textSnippet" Core..=) Core.<$> textSnippet])++-- | User specific information related to this volume. (e.g. page this user last read or whether they purchased this book)+--+-- /See:/ 'newVolume_UserInfo' smart constructor.+data Volume_UserInfo = Volume_UserInfo+  { -- | Timestamp when this volume was acquired by the user. (RFC 3339 UTC date-time format) Acquiring includes purchase, user upload, receiving family sharing, etc.+    acquiredTime :: (Core.Maybe Core.Text),+    -- | How this volume was acquired.+    acquisitionType :: (Core.Maybe Core.Int32),+    -- | Copy\/Paste accounting information.+    copy :: (Core.Maybe Volume_UserInfo_Copy),+    -- | Whether this volume is purchased, sample, pd download etc.+    entitlementType :: (Core.Maybe Core.Int32),+    -- | Information on the ability to share with the family.+    familySharing :: (Core.Maybe Volume_UserInfo_FamilySharing),+    -- | Whether or not the user shared this volume with the family.+    isFamilySharedFromUser :: (Core.Maybe Core.Bool),+    -- | Whether or not the user received this volume through family sharing.+    isFamilySharedToUser :: (Core.Maybe Core.Bool),+    -- | Deprecated: Replaced by familySharing.+    isFamilySharingAllowed :: (Core.Maybe Core.Bool),+    -- | Deprecated: Replaced by familySharing.+    isFamilySharingDisabledByFop :: (Core.Maybe Core.Bool),+    -- | Whether or not this volume is currently in \"my books.\"+    isInMyBooks :: (Core.Maybe Core.Bool),+    -- | Whether or not this volume was pre-ordered by the authenticated user making the request. (In LITE projection.)+    isPreordered :: (Core.Maybe Core.Bool),+    -- | Whether or not this volume was purchased by the authenticated user making the request. (In LITE projection.)+    isPurchased :: (Core.Maybe Core.Bool),+    -- | Whether or not this volume was user uploaded.+    isUploaded :: (Core.Maybe Core.Bool),+    -- | The user\'s current reading position in the volume, if one is available. (In LITE projection.)+    readingPosition :: (Core.Maybe ReadingPosition),+    -- | Period during this book is\/was a valid rental.+    rentalPeriod :: (Core.Maybe Volume_UserInfo_RentalPeriod),+    -- | Whether this book is an active or an expired rental.+    rentalState :: (Core.Maybe Core.Text),+    -- | This user\'s review of this volume, if one exists.+    review :: (Core.Maybe Review),+    -- | Timestamp when this volume was last modified by a user action, such as a reading position update, volume purchase or writing a review. (RFC 3339 UTC date-time format).+    updated :: (Core.Maybe Core.Text),+    userUploadedVolumeInfo :: (Core.Maybe Volume_UserInfo_UserUploadedVolumeInfo)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_UserInfo' with the minimum fields required to make a request.+newVolume_UserInfo ::+  Volume_UserInfo+newVolume_UserInfo =+  Volume_UserInfo+    { acquiredTime = Core.Nothing,+      acquisitionType = Core.Nothing,+      copy = Core.Nothing,+      entitlementType = Core.Nothing,+      familySharing = Core.Nothing,+      isFamilySharedFromUser = Core.Nothing,+      isFamilySharedToUser = Core.Nothing,+      isFamilySharingAllowed = Core.Nothing,+      isFamilySharingDisabledByFop = Core.Nothing,+      isInMyBooks = Core.Nothing,+      isPreordered = Core.Nothing,+      isPurchased = Core.Nothing,+      isUploaded = Core.Nothing,+      readingPosition = Core.Nothing,+      rentalPeriod = Core.Nothing,+      rentalState = Core.Nothing,+      review = Core.Nothing,+      updated = Core.Nothing,+      userUploadedVolumeInfo = Core.Nothing+    }++instance Core.FromJSON Volume_UserInfo where+  parseJSON =+    Core.withObject+      "Volume_UserInfo"+      ( \o ->+          Volume_UserInfo+            Core.<$> (o Core..:? "acquiredTime")+            Core.<*> (o Core..:? "acquisitionType")+            Core.<*> (o Core..:? "copy")+            Core.<*> (o Core..:? "entitlementType")+            Core.<*> (o Core..:? "familySharing")+            Core.<*> (o Core..:? "isFamilySharedFromUser")+            Core.<*> (o Core..:? "isFamilySharedToUser")+            Core.<*> (o Core..:? "isFamilySharingAllowed")+            Core.<*> (o Core..:? "isFamilySharingDisabledByFop")+            Core.<*> (o Core..:? "isInMyBooks")+            Core.<*> (o Core..:? "isPreordered")+            Core.<*> (o Core..:? "isPurchased")+            Core.<*> (o Core..:? "isUploaded")+            Core.<*> (o Core..:? "readingPosition")+            Core.<*> (o Core..:? "rentalPeriod")+            Core.<*> (o Core..:? "rentalState")+            Core.<*> (o Core..:? "review")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "userUploadedVolumeInfo")+      )++instance Core.ToJSON Volume_UserInfo where+  toJSON Volume_UserInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("acquiredTime" Core..=) Core.<$> acquiredTime,+            ("acquisitionType" Core..=) Core.<$> acquisitionType,+            ("copy" Core..=) Core.<$> copy,+            ("entitlementType" Core..=) Core.<$> entitlementType,+            ("familySharing" Core..=) Core.<$> familySharing,+            ("isFamilySharedFromUser" Core..=) Core.<$> isFamilySharedFromUser,+            ("isFamilySharedToUser" Core..=) Core.<$> isFamilySharedToUser,+            ("isFamilySharingAllowed" Core..=) Core.<$> isFamilySharingAllowed,+            ("isFamilySharingDisabledByFop" Core..=)+              Core.<$> isFamilySharingDisabledByFop,+            ("isInMyBooks" Core..=) Core.<$> isInMyBooks,+            ("isPreordered" Core..=) Core.<$> isPreordered,+            ("isPurchased" Core..=) Core.<$> isPurchased,+            ("isUploaded" Core..=) Core.<$> isUploaded,+            ("readingPosition" Core..=) Core.<$> readingPosition,+            ("rentalPeriod" Core..=) Core.<$> rentalPeriod,+            ("rentalState" Core..=) Core.<$> rentalState,+            ("review" Core..=) Core.<$> review,+            ("updated" Core..=) Core.<$> updated,+            ("userUploadedVolumeInfo" Core..=)+              Core.<$> userUploadedVolumeInfo+          ]+      )++-- | Copy\/Paste accounting information.+--+-- /See:/ 'newVolume_UserInfo_Copy' smart constructor.+data Volume_UserInfo_Copy = Volume_UserInfo_Copy+  { allowedCharacterCount :: (Core.Maybe Core.Int32),+    limitType :: (Core.Maybe Core.Text),+    remainingCharacterCount :: (Core.Maybe Core.Int32),+    updated :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_UserInfo_Copy' with the minimum fields required to make a request.+newVolume_UserInfo_Copy ::+  Volume_UserInfo_Copy+newVolume_UserInfo_Copy =+  Volume_UserInfo_Copy+    { allowedCharacterCount = Core.Nothing,+      limitType = Core.Nothing,+      remainingCharacterCount = Core.Nothing,+      updated = Core.Nothing+    }++instance Core.FromJSON Volume_UserInfo_Copy where+  parseJSON =+    Core.withObject+      "Volume_UserInfo_Copy"+      ( \o ->+          Volume_UserInfo_Copy+            Core.<$> (o Core..:? "allowedCharacterCount")+            Core.<*> (o Core..:? "limitType")+            Core.<*> (o Core..:? "remainingCharacterCount")+            Core.<*> (o Core..:? "updated")+      )++instance Core.ToJSON Volume_UserInfo_Copy where+  toJSON Volume_UserInfo_Copy {..} =+    Core.object+      ( Core.catMaybes+          [ ("allowedCharacterCount" Core..=) Core.<$> allowedCharacterCount,+            ("limitType" Core..=) Core.<$> limitType,+            ("remainingCharacterCount" Core..=)+              Core.<$> remainingCharacterCount,+            ("updated" Core..=) Core.<$> updated+          ]+      )++-- | Information on the ability to share with the family.+--+-- /See:/ 'newVolume_UserInfo_FamilySharing' smart constructor.+data Volume_UserInfo_FamilySharing = Volume_UserInfo_FamilySharing+  { -- | The role of the user in the family.+    familyRole :: (Core.Maybe Core.Text),+    -- | Whether or not this volume can be shared with the family by the user. This includes sharing eligibility of both the volume and the user. If the value is true, the user can initiate a family sharing action.+    isSharingAllowed :: (Core.Maybe Core.Bool),+    -- | Whether or not sharing this volume is temporarily disabled due to issues with the Family Wallet.+    isSharingDisabledByFop :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_UserInfo_FamilySharing' with the minimum fields required to make a request.+newVolume_UserInfo_FamilySharing ::+  Volume_UserInfo_FamilySharing+newVolume_UserInfo_FamilySharing =+  Volume_UserInfo_FamilySharing+    { familyRole = Core.Nothing,+      isSharingAllowed = Core.Nothing,+      isSharingDisabledByFop = Core.Nothing+    }++instance Core.FromJSON Volume_UserInfo_FamilySharing where+  parseJSON =+    Core.withObject+      "Volume_UserInfo_FamilySharing"+      ( \o ->+          Volume_UserInfo_FamilySharing+            Core.<$> (o Core..:? "familyRole")+            Core.<*> (o Core..:? "isSharingAllowed")+            Core.<*> (o Core..:? "isSharingDisabledByFop")+      )++instance Core.ToJSON Volume_UserInfo_FamilySharing where+  toJSON Volume_UserInfo_FamilySharing {..} =+    Core.object+      ( Core.catMaybes+          [ ("familyRole" Core..=) Core.<$> familyRole,+            ("isSharingAllowed" Core..=) Core.<$> isSharingAllowed,+            ("isSharingDisabledByFop" Core..=)+              Core.<$> isSharingDisabledByFop+          ]+      )++-- | Period during this book is\/was a valid rental.+--+-- /See:/ 'newVolume_UserInfo_RentalPeriod' smart constructor.+data Volume_UserInfo_RentalPeriod = Volume_UserInfo_RentalPeriod+  { endUtcSec :: (Core.Maybe Core.Int64),+    startUtcSec :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_UserInfo_RentalPeriod' with the minimum fields required to make a request.+newVolume_UserInfo_RentalPeriod ::+  Volume_UserInfo_RentalPeriod+newVolume_UserInfo_RentalPeriod =+  Volume_UserInfo_RentalPeriod+    { endUtcSec = Core.Nothing,+      startUtcSec = Core.Nothing+    }++instance Core.FromJSON Volume_UserInfo_RentalPeriod where+  parseJSON =+    Core.withObject+      "Volume_UserInfo_RentalPeriod"+      ( \o ->+          Volume_UserInfo_RentalPeriod+            Core.<$> (o Core..:? "endUtcSec" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "startUtcSec" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON Volume_UserInfo_RentalPeriod where+  toJSON Volume_UserInfo_RentalPeriod {..} =+    Core.object+      ( Core.catMaybes+          [ ("endUtcSec" Core..=) Core.. Core.AsText Core.<$> endUtcSec,+            ("startUtcSec" Core..=) Core.. Core.AsText Core.<$> startUtcSec+          ]+      )++--+-- /See:/ 'newVolume_UserInfo_UserUploadedVolumeInfo' smart constructor.+newtype Volume_UserInfo_UserUploadedVolumeInfo = Volume_UserInfo_UserUploadedVolumeInfo+  { processingState :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_UserInfo_UserUploadedVolumeInfo' with the minimum fields required to make a request.+newVolume_UserInfo_UserUploadedVolumeInfo ::+  Volume_UserInfo_UserUploadedVolumeInfo+newVolume_UserInfo_UserUploadedVolumeInfo =+  Volume_UserInfo_UserUploadedVolumeInfo+    { processingState =+        Core.Nothing+    }++instance Core.FromJSON Volume_UserInfo_UserUploadedVolumeInfo where+  parseJSON =+    Core.withObject+      "Volume_UserInfo_UserUploadedVolumeInfo"+      ( \o ->+          Volume_UserInfo_UserUploadedVolumeInfo+            Core.<$> (o Core..:? "processingState")+      )++instance Core.ToJSON Volume_UserInfo_UserUploadedVolumeInfo where+  toJSON Volume_UserInfo_UserUploadedVolumeInfo {..} =+    Core.object+      ( Core.catMaybes+          [("processingState" Core..=) Core.<$> processingState]+      )++-- | General volume information.+--+-- /See:/ 'newVolume_VolumeInfo' smart constructor.+data Volume_VolumeInfo = Volume_VolumeInfo+  { -- | Whether anonymous logging should be allowed.+    allowAnonLogging :: (Core.Maybe Core.Bool),+    -- | The names of the authors and\/or editors for this volume. (In LITE projection)+    authors :: (Core.Maybe [Core.Text]),+    -- | The mean review rating for this volume. (min = 1.0, max = 5.0)+    averageRating :: (Core.Maybe Core.Double),+    -- | Canonical URL for a volume. (In LITE projection.)+    canonicalVolumeLink :: (Core.Maybe Core.Text),+    -- | A list of subject categories, such as \"Fiction\", \"Suspense\", etc.+    categories :: (Core.Maybe [Core.Text]),+    -- | Whether the volume has comics content.+    comicsContent :: (Core.Maybe Core.Bool),+    -- | An identifier for the version of the volume content (text & images). (In LITE projection)+    contentVersion :: (Core.Maybe Core.Text),+    -- | A synopsis of the volume. The text of the description is formatted in HTML and includes simple formatting elements, such as b, i, and br tags. (In LITE projection.)+    description :: (Core.Maybe Core.Text),+    -- | Physical dimensions of this volume.+    dimensions :: (Core.Maybe Volume_VolumeInfo_Dimensions),+    -- | A list of image links for all the sizes that are available. (In LITE projection.)+    imageLinks :: (Core.Maybe Volume_VolumeInfo_ImageLinks),+    -- | Industry standard identifiers for this volume.+    industryIdentifiers :: (Core.Maybe [Volume_VolumeInfo_IndustryIdentifiersItem]),+    -- | URL to view information about this volume on the Google Books site. (In LITE projection)+    infoLink :: (Core.Maybe Core.Text),+    -- | Best language for this volume (based on content). It is the two-letter ISO 639-1 code such as \'fr\', \'en\', etc.+    language :: (Core.Maybe Core.Text),+    -- | The main category to which this volume belongs. It will be the category from the categories list returned below that has the highest weight.+    mainCategory :: (Core.Maybe Core.Text),+    maturityRating :: (Core.Maybe Core.Text),+    -- | Total number of pages as per publisher metadata.+    pageCount :: (Core.Maybe Core.Int32),+    -- | A top-level summary of the panelization info in this volume.+    panelizationSummary :: (Core.Maybe Volume_VolumeInfo_PanelizationSummary),+    -- | URL to preview this volume on the Google Books site.+    previewLink :: (Core.Maybe Core.Text),+    -- | Type of publication of this volume. Possible values are BOOK or MAGAZINE.+    printType :: (Core.Maybe Core.Text),+    -- | Total number of printed pages in generated pdf representation.+    printedPageCount :: (Core.Maybe Core.Int32),+    -- | Date of publication. (In LITE projection.)+    publishedDate :: (Core.Maybe Core.Text),+    -- | Publisher of this volume. (In LITE projection.)+    publisher :: (Core.Maybe Core.Text),+    -- | The number of review ratings for this volume.+    ratingsCount :: (Core.Maybe Core.Int32),+    -- | The reading modes available for this volume.+    readingModes :: (Core.Maybe Volume_VolumeInfo_ReadingModes),+    -- | Total number of sample pages as per publisher metadata.+    samplePageCount :: (Core.Maybe Core.Int32),+    seriesInfo :: (Core.Maybe Volumeseriesinfo),+    -- | Volume subtitle. (In LITE projection.)+    subtitle :: (Core.Maybe Core.Text),+    -- | Volume title. (In LITE projection.)+    title :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_VolumeInfo' with the minimum fields required to make a request.+newVolume_VolumeInfo ::+  Volume_VolumeInfo+newVolume_VolumeInfo =+  Volume_VolumeInfo+    { allowAnonLogging = Core.Nothing,+      authors = Core.Nothing,+      averageRating = Core.Nothing,+      canonicalVolumeLink = Core.Nothing,+      categories = Core.Nothing,+      comicsContent = Core.Nothing,+      contentVersion = Core.Nothing,+      description = Core.Nothing,+      dimensions = Core.Nothing,+      imageLinks = Core.Nothing,+      industryIdentifiers = Core.Nothing,+      infoLink = Core.Nothing,+      language = Core.Nothing,+      mainCategory = Core.Nothing,+      maturityRating = Core.Nothing,+      pageCount = Core.Nothing,+      panelizationSummary = Core.Nothing,+      previewLink = Core.Nothing,+      printType = Core.Nothing,+      printedPageCount = Core.Nothing,+      publishedDate = Core.Nothing,+      publisher = Core.Nothing,+      ratingsCount = Core.Nothing,+      readingModes = Core.Nothing,+      samplePageCount = Core.Nothing,+      seriesInfo = Core.Nothing,+      subtitle = Core.Nothing,+      title = Core.Nothing+    }++instance Core.FromJSON Volume_VolumeInfo where+  parseJSON =+    Core.withObject+      "Volume_VolumeInfo"+      ( \o ->+          Volume_VolumeInfo+            Core.<$> (o Core..:? "allowAnonLogging")+            Core.<*> (o Core..:? "authors")+            Core.<*> (o Core..:? "averageRating")+            Core.<*> (o Core..:? "canonicalVolumeLink")+            Core.<*> (o Core..:? "categories")+            Core.<*> (o Core..:? "comicsContent")+            Core.<*> (o Core..:? "contentVersion")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "dimensions")+            Core.<*> (o Core..:? "imageLinks")+            Core.<*> (o Core..:? "industryIdentifiers")+            Core.<*> (o Core..:? "infoLink")+            Core.<*> (o Core..:? "language")+            Core.<*> (o Core..:? "mainCategory")+            Core.<*> (o Core..:? "maturityRating")+            Core.<*> (o Core..:? "pageCount")+            Core.<*> (o Core..:? "panelizationSummary")+            Core.<*> (o Core..:? "previewLink")+            Core.<*> (o Core..:? "printType")+            Core.<*> (o Core..:? "printedPageCount")+            Core.<*> (o Core..:? "publishedDate")+            Core.<*> (o Core..:? "publisher")+            Core.<*> (o Core..:? "ratingsCount")+            Core.<*> (o Core..:? "readingModes")+            Core.<*> (o Core..:? "samplePageCount")+            Core.<*> (o Core..:? "seriesInfo")+            Core.<*> (o Core..:? "subtitle")+            Core.<*> (o Core..:? "title")+      )++instance Core.ToJSON Volume_VolumeInfo where+  toJSON Volume_VolumeInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("allowAnonLogging" Core..=) Core.<$> allowAnonLogging,+            ("authors" Core..=) Core.<$> authors,+            ("averageRating" Core..=) Core.<$> averageRating,+            ("canonicalVolumeLink" Core..=) Core.<$> canonicalVolumeLink,+            ("categories" Core..=) Core.<$> categories,+            ("comicsContent" Core..=) Core.<$> comicsContent,+            ("contentVersion" Core..=) Core.<$> contentVersion,+            ("description" Core..=) Core.<$> description,+            ("dimensions" Core..=) Core.<$> dimensions,+            ("imageLinks" Core..=) Core.<$> imageLinks,+            ("industryIdentifiers" Core..=) Core.<$> industryIdentifiers,+            ("infoLink" Core..=) Core.<$> infoLink,+            ("language" Core..=) Core.<$> language,+            ("mainCategory" Core..=) Core.<$> mainCategory,+            ("maturityRating" Core..=) Core.<$> maturityRating,+            ("pageCount" Core..=) Core.<$> pageCount,+            ("panelizationSummary" Core..=) Core.<$> panelizationSummary,+            ("previewLink" Core..=) Core.<$> previewLink,+            ("printType" Core..=) Core.<$> printType,+            ("printedPageCount" Core..=) Core.<$> printedPageCount,+            ("publishedDate" Core..=) Core.<$> publishedDate,+            ("publisher" Core..=) Core.<$> publisher,+            ("ratingsCount" Core..=) Core.<$> ratingsCount,+            ("readingModes" Core..=) Core.<$> readingModes,+            ("samplePageCount" Core..=) Core.<$> samplePageCount,+            ("seriesInfo" Core..=) Core.<$> seriesInfo,+            ("subtitle" Core..=) Core.<$> subtitle,+            ("title" Core..=) Core.<$> title+          ]+      )++-- | Physical dimensions of this volume.+--+-- /See:/ 'newVolume_VolumeInfo_Dimensions' smart constructor.+data Volume_VolumeInfo_Dimensions = Volume_VolumeInfo_Dimensions+  { -- | Height or length of this volume (in cm).+    height :: (Core.Maybe Core.Text),+    -- | Thickness of this volume (in cm).+    thickness :: (Core.Maybe Core.Text),+    -- | Width of this volume (in cm).+    width :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_VolumeInfo_Dimensions' with the minimum fields required to make a request.+newVolume_VolumeInfo_Dimensions ::+  Volume_VolumeInfo_Dimensions+newVolume_VolumeInfo_Dimensions =+  Volume_VolumeInfo_Dimensions+    { height = Core.Nothing,+      thickness = Core.Nothing,+      width = Core.Nothing+    }++instance Core.FromJSON Volume_VolumeInfo_Dimensions where+  parseJSON =+    Core.withObject+      "Volume_VolumeInfo_Dimensions"+      ( \o ->+          Volume_VolumeInfo_Dimensions+            Core.<$> (o Core..:? "height")+            Core.<*> (o Core..:? "thickness")+            Core.<*> (o Core..:? "width")+      )++instance Core.ToJSON Volume_VolumeInfo_Dimensions where+  toJSON Volume_VolumeInfo_Dimensions {..} =+    Core.object+      ( Core.catMaybes+          [ ("height" Core..=) Core.<$> height,+            ("thickness" Core..=) Core.<$> thickness,+            ("width" Core..=) Core.<$> width+          ]+      )++-- | A list of image links for all the sizes that are available. (In LITE projection.)+--+-- /See:/ 'newVolume_VolumeInfo_ImageLinks' smart constructor.+data Volume_VolumeInfo_ImageLinks = Volume_VolumeInfo_ImageLinks+  { -- | Image link for extra large size (width of ~1280 pixels). (In LITE projection)+    extraLarge :: (Core.Maybe Core.Text),+    -- | Image link for large size (width of ~800 pixels). (In LITE projection)+    large :: (Core.Maybe Core.Text),+    -- | Image link for medium size (width of ~575 pixels). (In LITE projection)+    medium :: (Core.Maybe Core.Text),+    -- | Image link for small size (width of ~300 pixels). (In LITE projection)+    small :: (Core.Maybe Core.Text),+    -- | Image link for small thumbnail size (width of ~80 pixels). (In LITE projection)+    smallThumbnail :: (Core.Maybe Core.Text),+    -- | Image link for thumbnail size (width of ~128 pixels). (In LITE projection)+    thumbnail :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_VolumeInfo_ImageLinks' with the minimum fields required to make a request.+newVolume_VolumeInfo_ImageLinks ::+  Volume_VolumeInfo_ImageLinks+newVolume_VolumeInfo_ImageLinks =+  Volume_VolumeInfo_ImageLinks+    { extraLarge = Core.Nothing,+      large = Core.Nothing,+      medium = Core.Nothing,+      small = Core.Nothing,+      smallThumbnail = Core.Nothing,+      thumbnail = Core.Nothing+    }++instance Core.FromJSON Volume_VolumeInfo_ImageLinks where+  parseJSON =+    Core.withObject+      "Volume_VolumeInfo_ImageLinks"+      ( \o ->+          Volume_VolumeInfo_ImageLinks+            Core.<$> (o Core..:? "extraLarge")+            Core.<*> (o Core..:? "large")+            Core.<*> (o Core..:? "medium")+            Core.<*> (o Core..:? "small")+            Core.<*> (o Core..:? "smallThumbnail")+            Core.<*> (o Core..:? "thumbnail")+      )++instance Core.ToJSON Volume_VolumeInfo_ImageLinks where+  toJSON Volume_VolumeInfo_ImageLinks {..} =+    Core.object+      ( Core.catMaybes+          [ ("extraLarge" Core..=) Core.<$> extraLarge,+            ("large" Core..=) Core.<$> large,+            ("medium" Core..=) Core.<$> medium,+            ("small" Core..=) Core.<$> small,+            ("smallThumbnail" Core..=) Core.<$> smallThumbnail,+            ("thumbnail" Core..=) Core.<$> thumbnail+          ]+      )++--+-- /See:/ 'newVolume_VolumeInfo_IndustryIdentifiersItem' smart constructor.+data Volume_VolumeInfo_IndustryIdentifiersItem = Volume_VolumeInfo_IndustryIdentifiersItem+  { -- | Industry specific volume identifier.+    identifier :: (Core.Maybe Core.Text),+    -- | Identifier type. Possible values are ISBN/10, ISBN/13, ISSN and OTHER.+    type' :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_VolumeInfo_IndustryIdentifiersItem' with the minimum fields required to make a request.+newVolume_VolumeInfo_IndustryIdentifiersItem ::+  Volume_VolumeInfo_IndustryIdentifiersItem+newVolume_VolumeInfo_IndustryIdentifiersItem =+  Volume_VolumeInfo_IndustryIdentifiersItem+    { identifier =+        Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON Volume_VolumeInfo_IndustryIdentifiersItem where+  parseJSON =+    Core.withObject+      "Volume_VolumeInfo_IndustryIdentifiersItem"+      ( \o ->+          Volume_VolumeInfo_IndustryIdentifiersItem+            Core.<$> (o Core..:? "identifier")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON Volume_VolumeInfo_IndustryIdentifiersItem where+  toJSON Volume_VolumeInfo_IndustryIdentifiersItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("identifier" Core..=) Core.<$> identifier,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | A top-level summary of the panelization info in this volume.+--+-- /See:/ 'newVolume_VolumeInfo_PanelizationSummary' smart constructor.+data Volume_VolumeInfo_PanelizationSummary = Volume_VolumeInfo_PanelizationSummary+  { containsEpubBubbles :: (Core.Maybe Core.Bool),+    containsImageBubbles :: (Core.Maybe Core.Bool),+    epubBubbleVersion :: (Core.Maybe Core.Text),+    imageBubbleVersion :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_VolumeInfo_PanelizationSummary' with the minimum fields required to make a request.+newVolume_VolumeInfo_PanelizationSummary ::+  Volume_VolumeInfo_PanelizationSummary+newVolume_VolumeInfo_PanelizationSummary =+  Volume_VolumeInfo_PanelizationSummary+    { containsEpubBubbles =+        Core.Nothing,+      containsImageBubbles = Core.Nothing,+      epubBubbleVersion = Core.Nothing,+      imageBubbleVersion = Core.Nothing+    }++instance Core.FromJSON Volume_VolumeInfo_PanelizationSummary where+  parseJSON =+    Core.withObject+      "Volume_VolumeInfo_PanelizationSummary"+      ( \o ->+          Volume_VolumeInfo_PanelizationSummary+            Core.<$> (o Core..:? "containsEpubBubbles")+            Core.<*> (o Core..:? "containsImageBubbles")+            Core.<*> (o Core..:? "epubBubbleVersion")+            Core.<*> (o Core..:? "imageBubbleVersion")+      )++instance Core.ToJSON Volume_VolumeInfo_PanelizationSummary where+  toJSON Volume_VolumeInfo_PanelizationSummary {..} =+    Core.object+      ( Core.catMaybes+          [ ("containsEpubBubbles" Core..=) Core.<$> containsEpubBubbles,+            ("containsImageBubbles" Core..=) Core.<$> containsImageBubbles,+            ("epubBubbleVersion" Core..=) Core.<$> epubBubbleVersion,+            ("imageBubbleVersion" Core..=) Core.<$> imageBubbleVersion+          ]+      )++-- | The reading modes available for this volume.+--+-- /See:/ 'newVolume_VolumeInfo_ReadingModes' smart constructor.+data Volume_VolumeInfo_ReadingModes = Volume_VolumeInfo_ReadingModes+  { image :: (Core.Maybe Core.Bool),+    text :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume_VolumeInfo_ReadingModes' with the minimum fields required to make a request.+newVolume_VolumeInfo_ReadingModes ::+  Volume_VolumeInfo_ReadingModes+newVolume_VolumeInfo_ReadingModes =+  Volume_VolumeInfo_ReadingModes+    { image = Core.Nothing,+      text = Core.Nothing+    }++instance Core.FromJSON Volume_VolumeInfo_ReadingModes where+  parseJSON =+    Core.withObject+      "Volume_VolumeInfo_ReadingModes"+      ( \o ->+          Volume_VolumeInfo_ReadingModes+            Core.<$> (o Core..:? "image")+            Core.<*> (o Core..:? "text")+      )++instance Core.ToJSON Volume_VolumeInfo_ReadingModes where+  toJSON Volume_VolumeInfo_ReadingModes {..} =+    Core.object+      ( Core.catMaybes+          [("image" Core..=) Core.<$> image, ("text" Core..=) Core.<$> text]+      )++--+-- /See:/ 'newVolume2' smart constructor.+data Volume2 = Volume2+  { -- | A list of volumes.+    items :: (Core.Maybe [Volume]),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text),+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volume2' with the minimum fields required to make a request.+newVolume2 ::+  Volume2+newVolume2 =+  Volume2+    { items = Core.Nothing,+      kind = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON Volume2 where+  parseJSON =+    Core.withObject+      "Volume2"+      ( \o ->+          Volume2+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON Volume2 where+  toJSON Volume2 {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("kind" Core..=) Core.<$> kind,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++--+-- /See:/ 'newVolumeannotation' smart constructor.+data Volumeannotation = Volumeannotation+  { -- | The annotation data id for this volume annotation.+    annotationDataId :: (Core.Maybe Core.Text),+    -- | Link to get data for this annotation.+    annotationDataLink :: (Core.Maybe Core.Text),+    -- | The type of annotation this is.+    annotationType :: (Core.Maybe Core.Text),+    -- | The content ranges to identify the selected text.+    contentRanges :: (Core.Maybe Volumeannotation_ContentRanges),+    -- | Data for this annotation.+    data' :: (Core.Maybe Core.Text),+    -- | Indicates that this annotation is deleted.+    deleted :: (Core.Maybe Core.Bool),+    -- | Unique id of this volume annotation.+    id :: (Core.Maybe Core.Text),+    -- | Resource Type+    kind :: (Core.Maybe Core.Text),+    -- | The Layer this annotation is for.+    layerId :: (Core.Maybe Core.Text),+    -- | Pages the annotation spans.+    pageIds :: (Core.Maybe [Core.Text]),+    -- | Excerpt from the volume.+    selectedText :: (Core.Maybe Core.Text),+    -- | URL to this resource.+    selfLink :: (Core.Maybe Core.Text),+    -- | Timestamp for the last time this anntoation was updated. (RFC 3339 UTC date-time format).+    updated :: (Core.Maybe Core.Text),+    -- | The Volume this annotation is for.+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volumeannotation' with the minimum fields required to make a request.+newVolumeannotation ::+  Volumeannotation+newVolumeannotation =+  Volumeannotation+    { annotationDataId = Core.Nothing,+      annotationDataLink = Core.Nothing,+      annotationType = Core.Nothing,+      contentRanges = Core.Nothing,+      data' = Core.Nothing,+      deleted = Core.Nothing,+      id = Core.Nothing,+      kind = Core.Nothing,+      layerId = Core.Nothing,+      pageIds = Core.Nothing,+      selectedText = Core.Nothing,+      selfLink = Core.Nothing,+      updated = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.FromJSON Volumeannotation where+  parseJSON =+    Core.withObject+      "Volumeannotation"+      ( \o ->+          Volumeannotation+            Core.<$> (o Core..:? "annotationDataId")+            Core.<*> (o Core..:? "annotationDataLink")+            Core.<*> (o Core..:? "annotationType")+            Core.<*> (o Core..:? "contentRanges")+            Core.<*> (o Core..:? "data")+            Core.<*> (o Core..:? "deleted")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "layerId")+            Core.<*> (o Core..:? "pageIds")+            Core.<*> (o Core..:? "selectedText")+            Core.<*> (o Core..:? "selfLink")+            Core.<*> (o Core..:? "updated")+            Core.<*> (o Core..:? "volumeId")+      )++instance Core.ToJSON Volumeannotation where+  toJSON Volumeannotation {..} =+    Core.object+      ( Core.catMaybes+          [ ("annotationDataId" Core..=) Core.<$> annotationDataId,+            ("annotationDataLink" Core..=) Core.<$> annotationDataLink,+            ("annotationType" Core..=) Core.<$> annotationType,+            ("contentRanges" Core..=) Core.<$> contentRanges,+            ("data" Core..=) Core.<$> data',+            ("deleted" Core..=) Core.<$> deleted,+            ("id" Core..=) Core.<$> id,+            ("kind" Core..=) Core.<$> kind,+            ("layerId" Core..=) Core.<$> layerId,+            ("pageIds" Core..=) Core.<$> pageIds,+            ("selectedText" Core..=) Core.<$> selectedText,+            ("selfLink" Core..=) Core.<$> selfLink,+            ("updated" Core..=) Core.<$> updated,+            ("volumeId" Core..=) Core.<$> volumeId+          ]+      )++-- | The content ranges to identify the selected text.+--+-- /See:/ 'newVolumeannotation_ContentRanges' smart constructor.+data Volumeannotation_ContentRanges = Volumeannotation_ContentRanges+  { -- | Range in CFI format for this annotation for version above.+    cfiRange :: (Core.Maybe BooksAnnotationsRange),+    -- | Content version applicable to ranges below.+    contentVersion :: (Core.Maybe Core.Text),+    -- | Range in GB image format for this annotation for version above.+    gbImageRange :: (Core.Maybe BooksAnnotationsRange),+    -- | Range in GB text format for this annotation for version above.+    gbTextRange :: (Core.Maybe BooksAnnotationsRange)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volumeannotation_ContentRanges' with the minimum fields required to make a request.+newVolumeannotation_ContentRanges ::+  Volumeannotation_ContentRanges+newVolumeannotation_ContentRanges =+  Volumeannotation_ContentRanges+    { cfiRange = Core.Nothing,+      contentVersion = Core.Nothing,+      gbImageRange = Core.Nothing,+      gbTextRange = Core.Nothing+    }++instance Core.FromJSON Volumeannotation_ContentRanges where+  parseJSON =+    Core.withObject+      "Volumeannotation_ContentRanges"+      ( \o ->+          Volumeannotation_ContentRanges+            Core.<$> (o Core..:? "cfiRange")+            Core.<*> (o Core..:? "contentVersion")+            Core.<*> (o Core..:? "gbImageRange")+            Core.<*> (o Core..:? "gbTextRange")+      )++instance Core.ToJSON Volumeannotation_ContentRanges where+  toJSON Volumeannotation_ContentRanges {..} =+    Core.object+      ( Core.catMaybes+          [ ("cfiRange" Core..=) Core.<$> cfiRange,+            ("contentVersion" Core..=) Core.<$> contentVersion,+            ("gbImageRange" Core..=) Core.<$> gbImageRange,+            ("gbTextRange" Core..=) Core.<$> gbTextRange+          ]+      )++--+-- /See:/ 'newVolumeannotations' smart constructor.+data Volumeannotations = Volumeannotations+  { -- | A list of volume annotations.+    items :: (Core.Maybe [Volumeannotation]),+    -- | Resource type+    kind :: (Core.Maybe Core.Text),+    -- | Token to pass in for pagination for the next page. This will not be present if this request does not have more results.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | The total number of volume annotations found.+    totalItems :: (Core.Maybe Core.Int32),+    -- | The version string for all of the volume annotations in this layer (not just the ones in this response). Note: the version string doesn\'t apply to the annotation data, just the information in this response (e.g. the location of annotations in the book).+    version :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volumeannotations' with the minimum fields required to make a request.+newVolumeannotations ::+  Volumeannotations+newVolumeannotations =+  Volumeannotations+    { items = Core.Nothing,+      kind = Core.Nothing,+      nextPageToken = Core.Nothing,+      totalItems = Core.Nothing,+      version = Core.Nothing+    }++instance Core.FromJSON Volumeannotations where+  parseJSON =+    Core.withObject+      "Volumeannotations"+      ( \o ->+          Volumeannotations+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "totalItems")+            Core.<*> (o Core..:? "version")+      )++instance Core.ToJSON Volumeannotations where+  toJSON Volumeannotations {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("kind" Core..=) Core.<$> kind,+            ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("totalItems" Core..=) Core.<$> totalItems,+            ("version" Core..=) Core.<$> version+          ]+      )++--+-- /See:/ 'newVolumes' smart constructor.+data Volumes = Volumes+  { -- | A list of volumes.+    items :: (Core.Maybe [Volume]),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text),+    -- | Total number of volumes found. This might be greater than the number of volumes returned in this response if results have been paginated.+    totalItems :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volumes' with the minimum fields required to make a request.+newVolumes ::+  Volumes+newVolumes =+  Volumes+    { items = Core.Nothing,+      kind = Core.Nothing,+      totalItems = Core.Nothing+    }++instance Core.FromJSON Volumes where+  parseJSON =+    Core.withObject+      "Volumes"+      ( \o ->+          Volumes+            Core.<$> (o Core..:? "items")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "totalItems")+      )++instance Core.ToJSON Volumes where+  toJSON Volumes {..} =+    Core.object+      ( Core.catMaybes+          [ ("items" Core..=) Core.<$> items,+            ("kind" Core..=) Core.<$> kind,+            ("totalItems" Core..=) Core.<$> totalItems+          ]+      )++--+-- /See:/ 'newVolumeseriesinfo' smart constructor.+data Volumeseriesinfo = Volumeseriesinfo+  { -- | The display number string. This should be used only for display purposes and the actual sequence should be inferred from the below orderNumber.+    bookDisplayNumber :: (Core.Maybe Core.Text),+    -- | Resource type.+    kind :: (Core.Maybe Core.Text),+    -- | Short book title in the context of the series.+    shortSeriesBookTitle :: (Core.Maybe Core.Text),+    volumeSeries :: (Core.Maybe [Volumeseriesinfo_VolumeSeriesItem])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volumeseriesinfo' with the minimum fields required to make a request.+newVolumeseriesinfo ::+  Volumeseriesinfo+newVolumeseriesinfo =+  Volumeseriesinfo+    { bookDisplayNumber = Core.Nothing,+      kind = Core.Nothing,+      shortSeriesBookTitle = Core.Nothing,+      volumeSeries = Core.Nothing+    }++instance Core.FromJSON Volumeseriesinfo where+  parseJSON =+    Core.withObject+      "Volumeseriesinfo"+      ( \o ->+          Volumeseriesinfo+            Core.<$> (o Core..:? "bookDisplayNumber")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "shortSeriesBookTitle")+            Core.<*> (o Core..:? "volumeSeries")+      )++instance Core.ToJSON Volumeseriesinfo where+  toJSON Volumeseriesinfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("bookDisplayNumber" Core..=) Core.<$> bookDisplayNumber,+            ("kind" Core..=) Core.<$> kind,+            ("shortSeriesBookTitle" Core..=) Core.<$> shortSeriesBookTitle,+            ("volumeSeries" Core..=) Core.<$> volumeSeries+          ]+      )++--+-- /See:/ 'newVolumeseriesinfo_VolumeSeriesItem' smart constructor.+data Volumeseriesinfo_VolumeSeriesItem = Volumeseriesinfo_VolumeSeriesItem+  { -- | List of issues. Applicable only for Collection Edition and Omnibus.+    issue :: (Core.Maybe [Volumeseriesinfo_VolumeSeriesItem_IssueItem]),+    -- | The book order number in the series.+    orderNumber :: (Core.Maybe Core.Int32),+    -- | The book type in the context of series. Examples - Single Issue, Collection Edition, etc.+    seriesBookType :: (Core.Maybe Core.Text),+    -- | The series id.+    seriesId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volumeseriesinfo_VolumeSeriesItem' with the minimum fields required to make a request.+newVolumeseriesinfo_VolumeSeriesItem ::+  Volumeseriesinfo_VolumeSeriesItem+newVolumeseriesinfo_VolumeSeriesItem =+  Volumeseriesinfo_VolumeSeriesItem+    { issue = Core.Nothing,+      orderNumber = Core.Nothing,+      seriesBookType = Core.Nothing,+      seriesId = Core.Nothing+    }++instance Core.FromJSON Volumeseriesinfo_VolumeSeriesItem where+  parseJSON =+    Core.withObject+      "Volumeseriesinfo_VolumeSeriesItem"+      ( \o ->+          Volumeseriesinfo_VolumeSeriesItem+            Core.<$> (o Core..:? "issue")+            Core.<*> (o Core..:? "orderNumber")+            Core.<*> (o Core..:? "seriesBookType")+            Core.<*> (o Core..:? "seriesId")+      )++instance Core.ToJSON Volumeseriesinfo_VolumeSeriesItem where+  toJSON Volumeseriesinfo_VolumeSeriesItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("issue" Core..=) Core.<$> issue,+            ("orderNumber" Core..=) Core.<$> orderNumber,+            ("seriesBookType" Core..=) Core.<$> seriesBookType,+            ("seriesId" Core..=) Core.<$> seriesId+          ]+      )++--+-- /See:/ 'newVolumeseriesinfo_VolumeSeriesItem_IssueItem' smart constructor.+data Volumeseriesinfo_VolumeSeriesItem_IssueItem = Volumeseriesinfo_VolumeSeriesItem_IssueItem+  { issueDisplayNumber :: (Core.Maybe Core.Text),+    issueOrderNumber :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Volumeseriesinfo_VolumeSeriesItem_IssueItem' with the minimum fields required to make a request.+newVolumeseriesinfo_VolumeSeriesItem_IssueItem ::+  Volumeseriesinfo_VolumeSeriesItem_IssueItem+newVolumeseriesinfo_VolumeSeriesItem_IssueItem =+  Volumeseriesinfo_VolumeSeriesItem_IssueItem+    { issueDisplayNumber =+        Core.Nothing,+      issueOrderNumber = Core.Nothing+    }++instance Core.FromJSON Volumeseriesinfo_VolumeSeriesItem_IssueItem where+  parseJSON =+    Core.withObject+      "Volumeseriesinfo_VolumeSeriesItem_IssueItem"+      ( \o ->+          Volumeseriesinfo_VolumeSeriesItem_IssueItem+            Core.<$> (o Core..:? "issueDisplayNumber")+            Core.<*> (o Core..:? "issueOrderNumber")+      )++instance Core.ToJSON Volumeseriesinfo_VolumeSeriesItem_IssueItem where+  toJSON Volumeseriesinfo_VolumeSeriesItem_IssueItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("issueDisplayNumber" Core..=) Core.<$> issueDisplayNumber,+            ("issueOrderNumber" Core..=) Core.<$> issueOrderNumber+          ]+      )
+ gen/Gogol/Books/Internal/Sum.hs view
@@ -0,0 +1,1056 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.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.Books.Internal.Sum+  ( -- * Xgafv+    Xgafv+      ( Xgafv_1,+        Xgafv_2,+        ..+      ),++    -- * MyconfigRequestAccessLicenseTypes+    MyconfigRequestAccessLicenseTypes+      ( MyconfigRequestAccessLicenseTypes_LICENSETYPESUNDEFINED,+        MyconfigRequestAccessLicenseTypes_Both,+        MyconfigRequestAccessLicenseTypes_Concurrent,+        MyconfigRequestAccessLicenseTypes_Download,+        ..+      ),++    -- * MyconfigSyncVolumeLicensesFeatures+    MyconfigSyncVolumeLicensesFeatures+      ( MyconfigSyncVolumeLicensesFeatures_FEATURESUNDEFINED,+        MyconfigSyncVolumeLicensesFeatures_Rentals,+        ..+      ),++    -- * MylibraryBookshelvesAddVolumeReason+    MylibraryBookshelvesAddVolumeReason+      ( MylibraryBookshelvesAddVolumeReason_REASONUNDEFINED,+        MylibraryBookshelvesAddVolumeReason_IOSPREX,+        MylibraryBookshelvesAddVolumeReason_IOSSEARCH,+        MylibraryBookshelvesAddVolumeReason_Onboarding,+        ..+      ),++    -- * MylibraryBookshelvesRemoveVolumeReason+    MylibraryBookshelvesRemoveVolumeReason+      ( MylibraryBookshelvesRemoveVolumeReason_REASONUNDEFINED,+        MylibraryBookshelvesRemoveVolumeReason_Onboarding,+        ..+      ),++    -- * MylibraryBookshelvesVolumesListProjection+    MylibraryBookshelvesVolumesListProjection+      ( MylibraryBookshelvesVolumesListProjection_PROJECTIONUNDEFINED,+        MylibraryBookshelvesVolumesListProjection_Full,+        MylibraryBookshelvesVolumesListProjection_Lite,+        ..+      ),++    -- * MylibraryReadingpositionsSetPositionAction+    MylibraryReadingpositionsSetPositionAction+      ( MylibraryReadingpositionsSetPositionAction_ACTIONUNDEFINED,+        MylibraryReadingpositionsSetPositionAction_Bookmark,+        MylibraryReadingpositionsSetPositionAction_Chapter,+        MylibraryReadingpositionsSetPositionAction_NextPage,+        MylibraryReadingpositionsSetPositionAction_PrevPage,+        MylibraryReadingpositionsSetPositionAction_Scroll,+        MylibraryReadingpositionsSetPositionAction_Search,+        ..+      ),++    -- * OnboardingListCategoryVolumesMaxAllowedMaturityRating+    OnboardingListCategoryVolumesMaxAllowedMaturityRating+      ( OnboardingListCategoryVolumesMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED,+        OnboardingListCategoryVolumesMaxAllowedMaturityRating_Mature,+        OnboardingListCategoryVolumesMaxAllowedMaturityRating_NotMature,+        ..+      ),++    -- * PersonalizedstreamGetMaxAllowedMaturityRating+    PersonalizedstreamGetMaxAllowedMaturityRating+      ( PersonalizedstreamGetMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED,+        PersonalizedstreamGetMaxAllowedMaturityRating_Mature,+        PersonalizedstreamGetMaxAllowedMaturityRating_NotMature,+        ..+      ),++    -- * VolumesAssociatedListAssociation+    VolumesAssociatedListAssociation+      ( VolumesAssociatedListAssociation_ASSOCIATIONUNDEFINED,+        VolumesAssociatedListAssociation_EndOfSample,+        VolumesAssociatedListAssociation_EndOfVolume,+        VolumesAssociatedListAssociation_RelatedForPlay,+        ..+      ),++    -- * VolumesAssociatedListMaxAllowedMaturityRating+    VolumesAssociatedListMaxAllowedMaturityRating+      ( VolumesAssociatedListMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED,+        VolumesAssociatedListMaxAllowedMaturityRating_Mature,+        VolumesAssociatedListMaxAllowedMaturityRating_NotMature,+        ..+      ),++    -- * VolumesGetProjection+    VolumesGetProjection+      ( VolumesGetProjection_PROJECTIONUNDEFINED,+        VolumesGetProjection_Full,+        VolumesGetProjection_Lite,+        ..+      ),++    -- * VolumesListDownload+    VolumesListDownload+      ( VolumesListDownload_DOWNLOADUNDEFINED,+        VolumesListDownload_Epub,+        ..+      ),++    -- * VolumesListFilter+    VolumesListFilter+      ( VolumesListFilter_FILTERUNDEFINED,+        VolumesListFilter_Ebooks,+        VolumesListFilter_FreeEbooks,+        VolumesListFilter_Full,+        VolumesListFilter_PaidEbooks,+        VolumesListFilter_Partial,+        ..+      ),++    -- * VolumesListLibraryRestrict+    VolumesListLibraryRestrict+      ( VolumesListLibraryRestrict_LIBRARYRESTRICTUNDEFINED,+        VolumesListLibraryRestrict_MyLibrary,+        VolumesListLibraryRestrict_NoRestrict,+        ..+      ),++    -- * VolumesListMaxAllowedMaturityRating+    VolumesListMaxAllowedMaturityRating+      ( VolumesListMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED,+        VolumesListMaxAllowedMaturityRating_Mature,+        VolumesListMaxAllowedMaturityRating_NotMature,+        ..+      ),++    -- * VolumesListOrderBy+    VolumesListOrderBy+      ( VolumesListOrderBy_ORDERBYUNDEFINED,+        VolumesListOrderBy_Newest,+        VolumesListOrderBy_Relevance,+        ..+      ),++    -- * VolumesListPrintType+    VolumesListPrintType+      ( VolumesListPrintType_PRINTTYPEUNDEFINED,+        VolumesListPrintType_All,+        VolumesListPrintType_Books,+        VolumesListPrintType_Magazines,+        ..+      ),++    -- * VolumesListProjection+    VolumesListProjection+      ( VolumesListProjection_PROJECTIONUNDEFINED,+        VolumesListProjection_Full,+        VolumesListProjection_Lite,+        ..+      ),++    -- * VolumesMybooksListAcquireMethod+    VolumesMybooksListAcquireMethod+      ( VolumesMybooksListAcquireMethod_ACQUIREMETHODUNDEFINED,+        VolumesMybooksListAcquireMethod_FAMILYSHARED,+        VolumesMybooksListAcquireMethod_Preordered,+        VolumesMybooksListAcquireMethod_PREVIOUSLYRENTED,+        VolumesMybooksListAcquireMethod_PUBLICDOMAIN,+        VolumesMybooksListAcquireMethod_Purchased,+        VolumesMybooksListAcquireMethod_Rented,+        VolumesMybooksListAcquireMethod_Sample,+        VolumesMybooksListAcquireMethod_Uploaded,+        ..+      ),++    -- * VolumesMybooksListProcessingState+    VolumesMybooksListProcessingState+      ( VolumesMybooksListProcessingState_PROCESSINGSTATEUNDEFINED,+        VolumesMybooksListProcessingState_COMPLETEDFAILED,+        VolumesMybooksListProcessingState_COMPLETEDSUCCESS,+        VolumesMybooksListProcessingState_Running,+        ..+      ),++    -- * VolumesRecommendedListMaxAllowedMaturityRating+    VolumesRecommendedListMaxAllowedMaturityRating+      ( VolumesRecommendedListMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED,+        VolumesRecommendedListMaxAllowedMaturityRating_Mature,+        VolumesRecommendedListMaxAllowedMaturityRating_NotMature,+        ..+      ),++    -- * VolumesRecommendedRateRating+    VolumesRecommendedRateRating+      ( VolumesRecommendedRateRating_RATINGUNDEFINED,+        VolumesRecommendedRateRating_HAVEIT,+        VolumesRecommendedRateRating_NOTINTERESTED,+        ..+      ),++    -- * VolumesUseruploadedListProcessingState+    VolumesUseruploadedListProcessingState+      ( VolumesUseruploadedListProcessingState_PROCESSINGSTATEUNDEFINED,+        VolumesUseruploadedListProcessingState_COMPLETEDFAILED,+        VolumesUseruploadedListProcessingState_COMPLETEDSUCCESS,+        VolumesUseruploadedListProcessingState_Running,+        ..+      ),+  )+where++import Gogol.Prelude qualified as Core++-- | V1 error format.+newtype Xgafv = Xgafv {fromXgafv :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | v1 error format+pattern Xgafv_1 :: Xgafv+pattern Xgafv_1 = Xgafv "1"++-- | v2 error format+pattern Xgafv_2 :: Xgafv+pattern Xgafv_2 = Xgafv "2"++{-# COMPLETE+  Xgafv_1,+  Xgafv_2,+  Xgafv+  #-}++-- | The type of access license to request. If not specified, the default is BOTH.+newtype MyconfigRequestAccessLicenseTypes = MyconfigRequestAccessLicenseTypes {fromMyconfigRequestAccessLicenseTypes :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern MyconfigRequestAccessLicenseTypes_LICENSETYPESUNDEFINED :: MyconfigRequestAccessLicenseTypes+pattern MyconfigRequestAccessLicenseTypes_LICENSETYPESUNDEFINED = MyconfigRequestAccessLicenseTypes "LICENSE_TYPES_UNDEFINED"++-- | Both concurrent and download licenses.+pattern MyconfigRequestAccessLicenseTypes_Both :: MyconfigRequestAccessLicenseTypes+pattern MyconfigRequestAccessLicenseTypes_Both = MyconfigRequestAccessLicenseTypes "BOTH"++-- | Concurrent access license.+pattern MyconfigRequestAccessLicenseTypes_Concurrent :: MyconfigRequestAccessLicenseTypes+pattern MyconfigRequestAccessLicenseTypes_Concurrent = MyconfigRequestAccessLicenseTypes "CONCURRENT"++-- | Offline download access license.+pattern MyconfigRequestAccessLicenseTypes_Download :: MyconfigRequestAccessLicenseTypes+pattern MyconfigRequestAccessLicenseTypes_Download = MyconfigRequestAccessLicenseTypes "DOWNLOAD"++{-# COMPLETE+  MyconfigRequestAccessLicenseTypes_LICENSETYPESUNDEFINED,+  MyconfigRequestAccessLicenseTypes_Both,+  MyconfigRequestAccessLicenseTypes_Concurrent,+  MyconfigRequestAccessLicenseTypes_Download,+  MyconfigRequestAccessLicenseTypes+  #-}++-- | List of features supported by the client, i.e., \'RENTALS\'+newtype MyconfigSyncVolumeLicensesFeatures = MyconfigSyncVolumeLicensesFeatures {fromMyconfigSyncVolumeLicensesFeatures :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern MyconfigSyncVolumeLicensesFeatures_FEATURESUNDEFINED :: MyconfigSyncVolumeLicensesFeatures+pattern MyconfigSyncVolumeLicensesFeatures_FEATURESUNDEFINED = MyconfigSyncVolumeLicensesFeatures "FEATURES_UNDEFINED"++-- | Client supports rentals.+pattern MyconfigSyncVolumeLicensesFeatures_Rentals :: MyconfigSyncVolumeLicensesFeatures+pattern MyconfigSyncVolumeLicensesFeatures_Rentals = MyconfigSyncVolumeLicensesFeatures "RENTALS"++{-# COMPLETE+  MyconfigSyncVolumeLicensesFeatures_FEATURESUNDEFINED,+  MyconfigSyncVolumeLicensesFeatures_Rentals,+  MyconfigSyncVolumeLicensesFeatures+  #-}++-- | The reason for which the book is added to the library.+newtype MylibraryBookshelvesAddVolumeReason = MylibraryBookshelvesAddVolumeReason {fromMylibraryBookshelvesAddVolumeReason :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern MylibraryBookshelvesAddVolumeReason_REASONUNDEFINED :: MylibraryBookshelvesAddVolumeReason+pattern MylibraryBookshelvesAddVolumeReason_REASONUNDEFINED = MylibraryBookshelvesAddVolumeReason "REASON_UNDEFINED"++-- | Volumes added from the PREX flow on iOS.+pattern MylibraryBookshelvesAddVolumeReason_IOSPREX :: MylibraryBookshelvesAddVolumeReason+pattern MylibraryBookshelvesAddVolumeReason_IOSPREX = MylibraryBookshelvesAddVolumeReason "IOS_PREX"++-- | Volumes added from the Search flow on iOS.+pattern MylibraryBookshelvesAddVolumeReason_IOSSEARCH :: MylibraryBookshelvesAddVolumeReason+pattern MylibraryBookshelvesAddVolumeReason_IOSSEARCH = MylibraryBookshelvesAddVolumeReason "IOS_SEARCH"++-- | Volumes added from the Onboarding flow.+pattern MylibraryBookshelvesAddVolumeReason_Onboarding :: MylibraryBookshelvesAddVolumeReason+pattern MylibraryBookshelvesAddVolumeReason_Onboarding = MylibraryBookshelvesAddVolumeReason "ONBOARDING"++{-# COMPLETE+  MylibraryBookshelvesAddVolumeReason_REASONUNDEFINED,+  MylibraryBookshelvesAddVolumeReason_IOSPREX,+  MylibraryBookshelvesAddVolumeReason_IOSSEARCH,+  MylibraryBookshelvesAddVolumeReason_Onboarding,+  MylibraryBookshelvesAddVolumeReason+  #-}++-- | The reason for which the book is removed from the library.+newtype MylibraryBookshelvesRemoveVolumeReason = MylibraryBookshelvesRemoveVolumeReason {fromMylibraryBookshelvesRemoveVolumeReason :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern MylibraryBookshelvesRemoveVolumeReason_REASONUNDEFINED :: MylibraryBookshelvesRemoveVolumeReason+pattern MylibraryBookshelvesRemoveVolumeReason_REASONUNDEFINED = MylibraryBookshelvesRemoveVolumeReason "REASON_UNDEFINED"++-- | Samples removed from the Onboarding flow.+pattern MylibraryBookshelvesRemoveVolumeReason_Onboarding :: MylibraryBookshelvesRemoveVolumeReason+pattern MylibraryBookshelvesRemoveVolumeReason_Onboarding = MylibraryBookshelvesRemoveVolumeReason "ONBOARDING"++{-# COMPLETE+  MylibraryBookshelvesRemoveVolumeReason_REASONUNDEFINED,+  MylibraryBookshelvesRemoveVolumeReason_Onboarding,+  MylibraryBookshelvesRemoveVolumeReason+  #-}++-- | Restrict information returned to a set of selected fields.+newtype MylibraryBookshelvesVolumesListProjection = MylibraryBookshelvesVolumesListProjection {fromMylibraryBookshelvesVolumesListProjection :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern MylibraryBookshelvesVolumesListProjection_PROJECTIONUNDEFINED :: MylibraryBookshelvesVolumesListProjection+pattern MylibraryBookshelvesVolumesListProjection_PROJECTIONUNDEFINED = MylibraryBookshelvesVolumesListProjection "PROJECTION_UNDEFINED"++-- | Includes all volume data.+pattern MylibraryBookshelvesVolumesListProjection_Full :: MylibraryBookshelvesVolumesListProjection+pattern MylibraryBookshelvesVolumesListProjection_Full = MylibraryBookshelvesVolumesListProjection "FULL"++-- | Includes a subset of fields in volumeInfo and accessInfo.+pattern MylibraryBookshelvesVolumesListProjection_Lite :: MylibraryBookshelvesVolumesListProjection+pattern MylibraryBookshelvesVolumesListProjection_Lite = MylibraryBookshelvesVolumesListProjection "LITE"++{-# COMPLETE+  MylibraryBookshelvesVolumesListProjection_PROJECTIONUNDEFINED,+  MylibraryBookshelvesVolumesListProjection_Full,+  MylibraryBookshelvesVolumesListProjection_Lite,+  MylibraryBookshelvesVolumesListProjection+  #-}++-- | Action that caused this reading position to be set.+newtype MylibraryReadingpositionsSetPositionAction = MylibraryReadingpositionsSetPositionAction {fromMylibraryReadingpositionsSetPositionAction :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern MylibraryReadingpositionsSetPositionAction_ACTIONUNDEFINED :: MylibraryReadingpositionsSetPositionAction+pattern MylibraryReadingpositionsSetPositionAction_ACTIONUNDEFINED = MylibraryReadingpositionsSetPositionAction "ACTION_UNDEFINED"++-- | User chose bookmark within volume.+pattern MylibraryReadingpositionsSetPositionAction_Bookmark :: MylibraryReadingpositionsSetPositionAction+pattern MylibraryReadingpositionsSetPositionAction_Bookmark = MylibraryReadingpositionsSetPositionAction "bookmark"++-- | User selected chapter from list.+pattern MylibraryReadingpositionsSetPositionAction_Chapter :: MylibraryReadingpositionsSetPositionAction+pattern MylibraryReadingpositionsSetPositionAction_Chapter = MylibraryReadingpositionsSetPositionAction "chapter"++-- | Next page event.+pattern MylibraryReadingpositionsSetPositionAction_NextPage :: MylibraryReadingpositionsSetPositionAction+pattern MylibraryReadingpositionsSetPositionAction_NextPage = MylibraryReadingpositionsSetPositionAction "next-page"++-- | Previous page event.+pattern MylibraryReadingpositionsSetPositionAction_PrevPage :: MylibraryReadingpositionsSetPositionAction+pattern MylibraryReadingpositionsSetPositionAction_PrevPage = MylibraryReadingpositionsSetPositionAction "prev-page"++-- | User navigated to page.+pattern MylibraryReadingpositionsSetPositionAction_Scroll :: MylibraryReadingpositionsSetPositionAction+pattern MylibraryReadingpositionsSetPositionAction_Scroll = MylibraryReadingpositionsSetPositionAction "scroll"++-- | User chose search results within volume.+pattern MylibraryReadingpositionsSetPositionAction_Search :: MylibraryReadingpositionsSetPositionAction+pattern MylibraryReadingpositionsSetPositionAction_Search = MylibraryReadingpositionsSetPositionAction "search"++{-# COMPLETE+  MylibraryReadingpositionsSetPositionAction_ACTIONUNDEFINED,+  MylibraryReadingpositionsSetPositionAction_Bookmark,+  MylibraryReadingpositionsSetPositionAction_Chapter,+  MylibraryReadingpositionsSetPositionAction_NextPage,+  MylibraryReadingpositionsSetPositionAction_PrevPage,+  MylibraryReadingpositionsSetPositionAction_Scroll,+  MylibraryReadingpositionsSetPositionAction_Search,+  MylibraryReadingpositionsSetPositionAction+  #-}++-- | The maximum allowed maturity rating of returned volumes. Books with a higher maturity rating are filtered out.+newtype OnboardingListCategoryVolumesMaxAllowedMaturityRating = OnboardingListCategoryVolumesMaxAllowedMaturityRating {fromOnboardingListCategoryVolumesMaxAllowedMaturityRating :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern OnboardingListCategoryVolumesMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED :: OnboardingListCategoryVolumesMaxAllowedMaturityRating+pattern OnboardingListCategoryVolumesMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED = OnboardingListCategoryVolumesMaxAllowedMaturityRating "MAX_ALLOWED_MATURITY_RATING_UNDEFINED"++-- | Show books which are rated mature or lower.+pattern OnboardingListCategoryVolumesMaxAllowedMaturityRating_Mature :: OnboardingListCategoryVolumesMaxAllowedMaturityRating+pattern OnboardingListCategoryVolumesMaxAllowedMaturityRating_Mature = OnboardingListCategoryVolumesMaxAllowedMaturityRating "MATURE"++-- | Show books which are rated not mature.+pattern OnboardingListCategoryVolumesMaxAllowedMaturityRating_NotMature :: OnboardingListCategoryVolumesMaxAllowedMaturityRating+pattern OnboardingListCategoryVolumesMaxAllowedMaturityRating_NotMature = OnboardingListCategoryVolumesMaxAllowedMaturityRating "not-mature"++{-# COMPLETE+  OnboardingListCategoryVolumesMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED,+  OnboardingListCategoryVolumesMaxAllowedMaturityRating_Mature,+  OnboardingListCategoryVolumesMaxAllowedMaturityRating_NotMature,+  OnboardingListCategoryVolumesMaxAllowedMaturityRating+  #-}++-- | The maximum allowed maturity rating of returned recommendations. Books with a higher maturity rating are filtered out.+newtype PersonalizedstreamGetMaxAllowedMaturityRating = PersonalizedstreamGetMaxAllowedMaturityRating {fromPersonalizedstreamGetMaxAllowedMaturityRating :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern PersonalizedstreamGetMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED :: PersonalizedstreamGetMaxAllowedMaturityRating+pattern PersonalizedstreamGetMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED = PersonalizedstreamGetMaxAllowedMaturityRating "MAX_ALLOWED_MATURITY_RATING_UNDEFINED"++-- | Show books which are rated mature or lower.+pattern PersonalizedstreamGetMaxAllowedMaturityRating_Mature :: PersonalizedstreamGetMaxAllowedMaturityRating+pattern PersonalizedstreamGetMaxAllowedMaturityRating_Mature = PersonalizedstreamGetMaxAllowedMaturityRating "MATURE"++-- | Show books which are rated not mature.+pattern PersonalizedstreamGetMaxAllowedMaturityRating_NotMature :: PersonalizedstreamGetMaxAllowedMaturityRating+pattern PersonalizedstreamGetMaxAllowedMaturityRating_NotMature = PersonalizedstreamGetMaxAllowedMaturityRating "not-mature"++{-# COMPLETE+  PersonalizedstreamGetMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED,+  PersonalizedstreamGetMaxAllowedMaturityRating_Mature,+  PersonalizedstreamGetMaxAllowedMaturityRating_NotMature,+  PersonalizedstreamGetMaxAllowedMaturityRating+  #-}++-- | Association type.+newtype VolumesAssociatedListAssociation = VolumesAssociatedListAssociation {fromVolumesAssociatedListAssociation :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesAssociatedListAssociation_ASSOCIATIONUNDEFINED :: VolumesAssociatedListAssociation+pattern VolumesAssociatedListAssociation_ASSOCIATIONUNDEFINED = VolumesAssociatedListAssociation "ASSOCIATION_UNDEFINED"++-- | Recommendations for display end-of-sample.+pattern VolumesAssociatedListAssociation_EndOfSample :: VolumesAssociatedListAssociation+pattern VolumesAssociatedListAssociation_EndOfSample = VolumesAssociatedListAssociation "end-of-sample"++-- | Recommendations for display end-of-volume.+pattern VolumesAssociatedListAssociation_EndOfVolume :: VolumesAssociatedListAssociation+pattern VolumesAssociatedListAssociation_EndOfVolume = VolumesAssociatedListAssociation "end-of-volume"++-- | Related volumes for Play Store.+pattern VolumesAssociatedListAssociation_RelatedForPlay :: VolumesAssociatedListAssociation+pattern VolumesAssociatedListAssociation_RelatedForPlay = VolumesAssociatedListAssociation "related-for-play"++{-# COMPLETE+  VolumesAssociatedListAssociation_ASSOCIATIONUNDEFINED,+  VolumesAssociatedListAssociation_EndOfSample,+  VolumesAssociatedListAssociation_EndOfVolume,+  VolumesAssociatedListAssociation_RelatedForPlay,+  VolumesAssociatedListAssociation+  #-}++-- | The maximum allowed maturity rating of returned recommendations. Books with a higher maturity rating are filtered out.+newtype VolumesAssociatedListMaxAllowedMaturityRating = VolumesAssociatedListMaxAllowedMaturityRating {fromVolumesAssociatedListMaxAllowedMaturityRating :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesAssociatedListMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED :: VolumesAssociatedListMaxAllowedMaturityRating+pattern VolumesAssociatedListMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED = VolumesAssociatedListMaxAllowedMaturityRating "MAX_ALLOWED_MATURITY_RATING_UNDEFINED"++-- | Show books which are rated mature or lower.+pattern VolumesAssociatedListMaxAllowedMaturityRating_Mature :: VolumesAssociatedListMaxAllowedMaturityRating+pattern VolumesAssociatedListMaxAllowedMaturityRating_Mature = VolumesAssociatedListMaxAllowedMaturityRating "MATURE"++-- | Show books which are rated not mature.+pattern VolumesAssociatedListMaxAllowedMaturityRating_NotMature :: VolumesAssociatedListMaxAllowedMaturityRating+pattern VolumesAssociatedListMaxAllowedMaturityRating_NotMature = VolumesAssociatedListMaxAllowedMaturityRating "not-mature"++{-# COMPLETE+  VolumesAssociatedListMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED,+  VolumesAssociatedListMaxAllowedMaturityRating_Mature,+  VolumesAssociatedListMaxAllowedMaturityRating_NotMature,+  VolumesAssociatedListMaxAllowedMaturityRating+  #-}++-- | Restrict information returned to a set of selected fields.+newtype VolumesGetProjection = VolumesGetProjection {fromVolumesGetProjection :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesGetProjection_PROJECTIONUNDEFINED :: VolumesGetProjection+pattern VolumesGetProjection_PROJECTIONUNDEFINED = VolumesGetProjection "PROJECTION_UNDEFINED"++-- | Includes all volume data.+pattern VolumesGetProjection_Full :: VolumesGetProjection+pattern VolumesGetProjection_Full = VolumesGetProjection "FULL"++-- | Includes a subset of fields in volumeInfo and accessInfo.+pattern VolumesGetProjection_Lite :: VolumesGetProjection+pattern VolumesGetProjection_Lite = VolumesGetProjection "LITE"++{-# COMPLETE+  VolumesGetProjection_PROJECTIONUNDEFINED,+  VolumesGetProjection_Full,+  VolumesGetProjection_Lite,+  VolumesGetProjection+  #-}++-- | Restrict to volumes by download availability.+newtype VolumesListDownload = VolumesListDownload {fromVolumesListDownload :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesListDownload_DOWNLOADUNDEFINED :: VolumesListDownload+pattern VolumesListDownload_DOWNLOADUNDEFINED = VolumesListDownload "DOWNLOAD_UNDEFINED"++-- | All volumes with epub.+pattern VolumesListDownload_Epub :: VolumesListDownload+pattern VolumesListDownload_Epub = VolumesListDownload "EPUB"++{-# COMPLETE+  VolumesListDownload_DOWNLOADUNDEFINED,+  VolumesListDownload_Epub,+  VolumesListDownload+  #-}++-- | Filter search results.+newtype VolumesListFilter = VolumesListFilter {fromVolumesListFilter :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesListFilter_FILTERUNDEFINED :: VolumesListFilter+pattern VolumesListFilter_FILTERUNDEFINED = VolumesListFilter "FILTER_UNDEFINED"++-- | All Google eBooks.+pattern VolumesListFilter_Ebooks :: VolumesListFilter+pattern VolumesListFilter_Ebooks = VolumesListFilter "ebooks"++-- | Google eBook with full volume text viewability.+pattern VolumesListFilter_FreeEbooks :: VolumesListFilter+pattern VolumesListFilter_FreeEbooks = VolumesListFilter "free-ebooks"++-- | Public can view entire volume text.+pattern VolumesListFilter_Full :: VolumesListFilter+pattern VolumesListFilter_Full = VolumesListFilter "full"++-- | Google eBook with a price.+pattern VolumesListFilter_PaidEbooks :: VolumesListFilter+pattern VolumesListFilter_PaidEbooks = VolumesListFilter "paid-ebooks"++-- | Public able to see parts of text.+pattern VolumesListFilter_Partial :: VolumesListFilter+pattern VolumesListFilter_Partial = VolumesListFilter "partial"++{-# COMPLETE+  VolumesListFilter_FILTERUNDEFINED,+  VolumesListFilter_Ebooks,+  VolumesListFilter_FreeEbooks,+  VolumesListFilter_Full,+  VolumesListFilter_PaidEbooks,+  VolumesListFilter_Partial,+  VolumesListFilter+  #-}++-- | Restrict search to this user\'s library.+newtype VolumesListLibraryRestrict = VolumesListLibraryRestrict {fromVolumesListLibraryRestrict :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesListLibraryRestrict_LIBRARYRESTRICTUNDEFINED :: VolumesListLibraryRestrict+pattern VolumesListLibraryRestrict_LIBRARYRESTRICTUNDEFINED = VolumesListLibraryRestrict "LIBRARY_RESTRICT_UNDEFINED"++-- | Restrict to the user\'s library, any shelf.+pattern VolumesListLibraryRestrict_MyLibrary :: VolumesListLibraryRestrict+pattern VolumesListLibraryRestrict_MyLibrary = VolumesListLibraryRestrict "my-library"++-- | Do not restrict based on user\'s library.+pattern VolumesListLibraryRestrict_NoRestrict :: VolumesListLibraryRestrict+pattern VolumesListLibraryRestrict_NoRestrict = VolumesListLibraryRestrict "no-restrict"++{-# COMPLETE+  VolumesListLibraryRestrict_LIBRARYRESTRICTUNDEFINED,+  VolumesListLibraryRestrict_MyLibrary,+  VolumesListLibraryRestrict_NoRestrict,+  VolumesListLibraryRestrict+  #-}++-- | The maximum allowed maturity rating of returned recommendations. Books with a higher maturity rating are filtered out.+newtype VolumesListMaxAllowedMaturityRating = VolumesListMaxAllowedMaturityRating {fromVolumesListMaxAllowedMaturityRating :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesListMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED :: VolumesListMaxAllowedMaturityRating+pattern VolumesListMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED = VolumesListMaxAllowedMaturityRating "MAX_ALLOWED_MATURITY_RATING_UNDEFINED"++-- | Show books which are rated mature or lower.+pattern VolumesListMaxAllowedMaturityRating_Mature :: VolumesListMaxAllowedMaturityRating+pattern VolumesListMaxAllowedMaturityRating_Mature = VolumesListMaxAllowedMaturityRating "MATURE"++-- | Show books which are rated not mature.+pattern VolumesListMaxAllowedMaturityRating_NotMature :: VolumesListMaxAllowedMaturityRating+pattern VolumesListMaxAllowedMaturityRating_NotMature = VolumesListMaxAllowedMaturityRating "not-mature"++{-# COMPLETE+  VolumesListMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED,+  VolumesListMaxAllowedMaturityRating_Mature,+  VolumesListMaxAllowedMaturityRating_NotMature,+  VolumesListMaxAllowedMaturityRating+  #-}++-- | Sort search results.+newtype VolumesListOrderBy = VolumesListOrderBy {fromVolumesListOrderBy :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesListOrderBy_ORDERBYUNDEFINED :: VolumesListOrderBy+pattern VolumesListOrderBy_ORDERBYUNDEFINED = VolumesListOrderBy "ORDER_BY_UNDEFINED"++-- | Most recently published.+pattern VolumesListOrderBy_Newest :: VolumesListOrderBy+pattern VolumesListOrderBy_Newest = VolumesListOrderBy "newest"++-- | Relevance to search terms.+pattern VolumesListOrderBy_Relevance :: VolumesListOrderBy+pattern VolumesListOrderBy_Relevance = VolumesListOrderBy "relevance"++{-# COMPLETE+  VolumesListOrderBy_ORDERBYUNDEFINED,+  VolumesListOrderBy_Newest,+  VolumesListOrderBy_Relevance,+  VolumesListOrderBy+  #-}++-- | Restrict to books or magazines.+newtype VolumesListPrintType = VolumesListPrintType {fromVolumesListPrintType :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesListPrintType_PRINTTYPEUNDEFINED :: VolumesListPrintType+pattern VolumesListPrintType_PRINTTYPEUNDEFINED = VolumesListPrintType "PRINT_TYPE_UNDEFINED"++-- | All volume content types.+pattern VolumesListPrintType_All :: VolumesListPrintType+pattern VolumesListPrintType_All = VolumesListPrintType "ALL"++-- | Just books.+pattern VolumesListPrintType_Books :: VolumesListPrintType+pattern VolumesListPrintType_Books = VolumesListPrintType "BOOKS"++-- | Just magazines.+pattern VolumesListPrintType_Magazines :: VolumesListPrintType+pattern VolumesListPrintType_Magazines = VolumesListPrintType "MAGAZINES"++{-# COMPLETE+  VolumesListPrintType_PRINTTYPEUNDEFINED,+  VolumesListPrintType_All,+  VolumesListPrintType_Books,+  VolumesListPrintType_Magazines,+  VolumesListPrintType+  #-}++-- | Restrict information returned to a set of selected fields.+newtype VolumesListProjection = VolumesListProjection {fromVolumesListProjection :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesListProjection_PROJECTIONUNDEFINED :: VolumesListProjection+pattern VolumesListProjection_PROJECTIONUNDEFINED = VolumesListProjection "PROJECTION_UNDEFINED"++-- | Includes all volume data.+pattern VolumesListProjection_Full :: VolumesListProjection+pattern VolumesListProjection_Full = VolumesListProjection "FULL"++-- | Includes a subset of fields in volumeInfo and accessInfo.+pattern VolumesListProjection_Lite :: VolumesListProjection+pattern VolumesListProjection_Lite = VolumesListProjection "LITE"++{-# COMPLETE+  VolumesListProjection_PROJECTIONUNDEFINED,+  VolumesListProjection_Full,+  VolumesListProjection_Lite,+  VolumesListProjection+  #-}++-- | How the book was acquired+newtype VolumesMybooksListAcquireMethod = VolumesMybooksListAcquireMethod {fromVolumesMybooksListAcquireMethod :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesMybooksListAcquireMethod_ACQUIREMETHODUNDEFINED :: VolumesMybooksListAcquireMethod+pattern VolumesMybooksListAcquireMethod_ACQUIREMETHODUNDEFINED = VolumesMybooksListAcquireMethod "ACQUIRE_METHOD_UNDEFINED"++-- | Books acquired via Family Sharing+pattern VolumesMybooksListAcquireMethod_FAMILYSHARED :: VolumesMybooksListAcquireMethod+pattern VolumesMybooksListAcquireMethod_FAMILYSHARED = VolumesMybooksListAcquireMethod "FAMILY_SHARED"++-- | Preordered books (not yet available)+pattern VolumesMybooksListAcquireMethod_Preordered :: VolumesMybooksListAcquireMethod+pattern VolumesMybooksListAcquireMethod_Preordered = VolumesMybooksListAcquireMethod "PREORDERED"++-- | User-rented books past their expiration time+pattern VolumesMybooksListAcquireMethod_PREVIOUSLYRENTED :: VolumesMybooksListAcquireMethod+pattern VolumesMybooksListAcquireMethod_PREVIOUSLYRENTED = VolumesMybooksListAcquireMethod "PREVIOUSLY_RENTED"++-- | Public domain books+pattern VolumesMybooksListAcquireMethod_PUBLICDOMAIN :: VolumesMybooksListAcquireMethod+pattern VolumesMybooksListAcquireMethod_PUBLICDOMAIN = VolumesMybooksListAcquireMethod "PUBLIC_DOMAIN"++-- | Purchased books+pattern VolumesMybooksListAcquireMethod_Purchased :: VolumesMybooksListAcquireMethod+pattern VolumesMybooksListAcquireMethod_Purchased = VolumesMybooksListAcquireMethod "PURCHASED"++-- | User-rented books+pattern VolumesMybooksListAcquireMethod_Rented :: VolumesMybooksListAcquireMethod+pattern VolumesMybooksListAcquireMethod_Rented = VolumesMybooksListAcquireMethod "RENTED"++-- | Sample books+pattern VolumesMybooksListAcquireMethod_Sample :: VolumesMybooksListAcquireMethod+pattern VolumesMybooksListAcquireMethod_Sample = VolumesMybooksListAcquireMethod "SAMPLE"++-- | User uploaded books+pattern VolumesMybooksListAcquireMethod_Uploaded :: VolumesMybooksListAcquireMethod+pattern VolumesMybooksListAcquireMethod_Uploaded = VolumesMybooksListAcquireMethod "UPLOADED"++{-# COMPLETE+  VolumesMybooksListAcquireMethod_ACQUIREMETHODUNDEFINED,+  VolumesMybooksListAcquireMethod_FAMILYSHARED,+  VolumesMybooksListAcquireMethod_Preordered,+  VolumesMybooksListAcquireMethod_PREVIOUSLYRENTED,+  VolumesMybooksListAcquireMethod_PUBLICDOMAIN,+  VolumesMybooksListAcquireMethod_Purchased,+  VolumesMybooksListAcquireMethod_Rented,+  VolumesMybooksListAcquireMethod_Sample,+  VolumesMybooksListAcquireMethod_Uploaded,+  VolumesMybooksListAcquireMethod+  #-}++-- | The processing state of the user uploaded volumes to be returned. Applicable only if the UPLOADED is specified in the acquireMethod.+newtype VolumesMybooksListProcessingState = VolumesMybooksListProcessingState {fromVolumesMybooksListProcessingState :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesMybooksListProcessingState_PROCESSINGSTATEUNDEFINED :: VolumesMybooksListProcessingState+pattern VolumesMybooksListProcessingState_PROCESSINGSTATEUNDEFINED = VolumesMybooksListProcessingState "PROCESSING_STATE_UNDEFINED"++-- | The volume processing hase failed.+pattern VolumesMybooksListProcessingState_COMPLETEDFAILED :: VolumesMybooksListProcessingState+pattern VolumesMybooksListProcessingState_COMPLETEDFAILED = VolumesMybooksListProcessingState "COMPLETED_FAILED"++-- | The volume processing was completed.+pattern VolumesMybooksListProcessingState_COMPLETEDSUCCESS :: VolumesMybooksListProcessingState+pattern VolumesMybooksListProcessingState_COMPLETEDSUCCESS = VolumesMybooksListProcessingState "COMPLETED_SUCCESS"++-- | The volume processing is not completed.+pattern VolumesMybooksListProcessingState_Running :: VolumesMybooksListProcessingState+pattern VolumesMybooksListProcessingState_Running = VolumesMybooksListProcessingState "RUNNING"++{-# COMPLETE+  VolumesMybooksListProcessingState_PROCESSINGSTATEUNDEFINED,+  VolumesMybooksListProcessingState_COMPLETEDFAILED,+  VolumesMybooksListProcessingState_COMPLETEDSUCCESS,+  VolumesMybooksListProcessingState_Running,+  VolumesMybooksListProcessingState+  #-}++-- | The maximum allowed maturity rating of returned recommendations. Books with a higher maturity rating are filtered out.+newtype VolumesRecommendedListMaxAllowedMaturityRating = VolumesRecommendedListMaxAllowedMaturityRating {fromVolumesRecommendedListMaxAllowedMaturityRating :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesRecommendedListMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED :: VolumesRecommendedListMaxAllowedMaturityRating+pattern VolumesRecommendedListMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED = VolumesRecommendedListMaxAllowedMaturityRating "MAX_ALLOWED_MATURITY_RATING_UNDEFINED"++-- | Show books which are rated mature or lower.+pattern VolumesRecommendedListMaxAllowedMaturityRating_Mature :: VolumesRecommendedListMaxAllowedMaturityRating+pattern VolumesRecommendedListMaxAllowedMaturityRating_Mature = VolumesRecommendedListMaxAllowedMaturityRating "MATURE"++-- | Show books which are rated not mature.+pattern VolumesRecommendedListMaxAllowedMaturityRating_NotMature :: VolumesRecommendedListMaxAllowedMaturityRating+pattern VolumesRecommendedListMaxAllowedMaturityRating_NotMature = VolumesRecommendedListMaxAllowedMaturityRating "not-mature"++{-# COMPLETE+  VolumesRecommendedListMaxAllowedMaturityRating_MAXALLOWEDMATURITYRATINGUNDEFINED,+  VolumesRecommendedListMaxAllowedMaturityRating_Mature,+  VolumesRecommendedListMaxAllowedMaturityRating_NotMature,+  VolumesRecommendedListMaxAllowedMaturityRating+  #-}++-- | Rating to be given to the volume.+newtype VolumesRecommendedRateRating = VolumesRecommendedRateRating {fromVolumesRecommendedRateRating :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesRecommendedRateRating_RATINGUNDEFINED :: VolumesRecommendedRateRating+pattern VolumesRecommendedRateRating_RATINGUNDEFINED = VolumesRecommendedRateRating "RATING_UNDEFINED"++-- | Rating indicating a dismissal due to ownership.+pattern VolumesRecommendedRateRating_HAVEIT :: VolumesRecommendedRateRating+pattern VolumesRecommendedRateRating_HAVEIT = VolumesRecommendedRateRating "HAVE_IT"++-- | Rating indicating a negative dismissal of a volume.+pattern VolumesRecommendedRateRating_NOTINTERESTED :: VolumesRecommendedRateRating+pattern VolumesRecommendedRateRating_NOTINTERESTED = VolumesRecommendedRateRating "NOT_INTERESTED"++{-# COMPLETE+  VolumesRecommendedRateRating_RATINGUNDEFINED,+  VolumesRecommendedRateRating_HAVEIT,+  VolumesRecommendedRateRating_NOTINTERESTED,+  VolumesRecommendedRateRating+  #-}++-- | The processing state of the user uploaded volumes to be returned.+newtype VolumesUseruploadedListProcessingState = VolumesUseruploadedListProcessingState {fromVolumesUseruploadedListProcessingState :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++pattern VolumesUseruploadedListProcessingState_PROCESSINGSTATEUNDEFINED :: VolumesUseruploadedListProcessingState+pattern VolumesUseruploadedListProcessingState_PROCESSINGSTATEUNDEFINED = VolumesUseruploadedListProcessingState "PROCESSING_STATE_UNDEFINED"++-- | The volume processing hase failed.+pattern VolumesUseruploadedListProcessingState_COMPLETEDFAILED :: VolumesUseruploadedListProcessingState+pattern VolumesUseruploadedListProcessingState_COMPLETEDFAILED = VolumesUseruploadedListProcessingState "COMPLETED_FAILED"++-- | The volume processing was completed.+pattern VolumesUseruploadedListProcessingState_COMPLETEDSUCCESS :: VolumesUseruploadedListProcessingState+pattern VolumesUseruploadedListProcessingState_COMPLETEDSUCCESS = VolumesUseruploadedListProcessingState "COMPLETED_SUCCESS"++-- | The volume processing is not completed.+pattern VolumesUseruploadedListProcessingState_Running :: VolumesUseruploadedListProcessingState+pattern VolumesUseruploadedListProcessingState_Running = VolumesUseruploadedListProcessingState "RUNNING"++{-# COMPLETE+  VolumesUseruploadedListProcessingState_PROCESSINGSTATEUNDEFINED,+  VolumesUseruploadedListProcessingState_COMPLETEDFAILED,+  VolumesUseruploadedListProcessingState_COMPLETEDSUCCESS,+  VolumesUseruploadedListProcessingState_Running,+  VolumesUseruploadedListProcessingState+  #-}
+ gen/Gogol/Books/Layers/AnnotationData/Get.hs view
@@ -0,0 +1,166 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Layers.AnnotationData.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the annotation data.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.layers.annotationData.get@.+module Gogol.Books.Layers.AnnotationData.Get+  ( -- * Resource+    BooksLayersAnnotationDataGetResource,++    -- ** Constructing a Request+    BooksLayersAnnotationDataGet (..),+    newBooksLayersAnnotationDataGet,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.layers.annotationData.get@ method which the+-- 'BooksLayersAnnotationDataGet' request conforms to.+type BooksLayersAnnotationDataGetResource =+  "books"+    Core.:> "v1"+    Core.:> "volumes"+    Core.:> Core.Capture "volumeId" Core.Text+    Core.:> "layers"+    Core.:> Core.Capture "layerId" Core.Text+    Core.:> "data"+    Core.:> Core.Capture "annotationDataId" Core.Text+    Core.:> Core.QueryParam "contentVersion" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "allowWebDefinitions" Core.Bool+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "h" Core.Int32+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam "scale" Core.Int32+    Core.:> Core.QueryParam "source" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "w" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] DictionaryAnnotationdata++-- | Gets the annotation data.+--+-- /See:/ 'newBooksLayersAnnotationDataGet' smart constructor.+data BooksLayersAnnotationDataGet = BooksLayersAnnotationDataGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | For the dictionary layer. Whether or not to allow web definitions.+    allowWebDefinitions :: (Core.Maybe Core.Bool),+    -- | The ID of the annotation data to retrieve.+    annotationDataId :: Core.Text,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The content version for the volume you are trying to retrieve.+    contentVersion :: Core.Text,+    -- | The requested pixel height for any images. If height is provided width must also be provided.+    h :: (Core.Maybe Core.Int32),+    -- | The ID for the layer to get the annotations.+    layerId :: Core.Text,+    -- | The locale information for the data. ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'.+    locale :: (Core.Maybe Core.Text),+    -- | The requested scale for the image.+    scale :: (Core.Maybe Core.Int32),+    -- | String to identify the originator of this request.+    source :: (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 volume to retrieve annotations for.+    volumeId :: Core.Text,+    -- | The requested pixel width for any images. If width is provided height must also be provided.+    w :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksLayersAnnotationDataGet' with the minimum fields required to make a request.+newBooksLayersAnnotationDataGet ::+  -- |  The ID of the annotation data to retrieve. See 'annotationDataId'.+  Core.Text ->+  -- |  The content version for the volume you are trying to retrieve. See 'contentVersion'.+  Core.Text ->+  -- |  The ID for the layer to get the annotations. See 'layerId'.+  Core.Text ->+  -- |  The volume to retrieve annotations for. See 'volumeId'.+  Core.Text ->+  BooksLayersAnnotationDataGet+newBooksLayersAnnotationDataGet+  annotationDataId+  contentVersion+  layerId+  volumeId =+    BooksLayersAnnotationDataGet+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        allowWebDefinitions = Core.Nothing,+        annotationDataId = annotationDataId,+        callback = Core.Nothing,+        contentVersion = contentVersion,+        h = Core.Nothing,+        layerId = layerId,+        locale = Core.Nothing,+        scale = Core.Nothing,+        source = Core.Nothing,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing,+        volumeId = volumeId,+        w = Core.Nothing+      }++instance Core.GoogleRequest BooksLayersAnnotationDataGet where+  type Rs BooksLayersAnnotationDataGet = DictionaryAnnotationdata+  type Scopes BooksLayersAnnotationDataGet = '[Books'FullControl]+  requestClient BooksLayersAnnotationDataGet {..} =+    go+      volumeId+      layerId+      annotationDataId+      (Core.Just contentVersion)+      xgafv+      accessToken+      allowWebDefinitions+      callback+      h+      locale+      scale+      source+      uploadType+      uploadProtocol+      w+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksLayersAnnotationDataGetResource)+          Core.mempty
+ gen/Gogol/Books/Layers/AnnotationData/List.hs view
@@ -0,0 +1,175 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Layers.AnnotationData.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)+--+-- Gets the annotation data for a volume and layer.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.layers.annotationData.list@.+module Gogol.Books.Layers.AnnotationData.List+  ( -- * Resource+    BooksLayersAnnotationDataListResource,++    -- ** Constructing a Request+    BooksLayersAnnotationDataList (..),+    newBooksLayersAnnotationDataList,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.layers.annotationData.list@ method which the+-- 'BooksLayersAnnotationDataList' request conforms to.+type BooksLayersAnnotationDataListResource =+  "books"+    Core.:> "v1"+    Core.:> "volumes"+    Core.:> Core.Capture "volumeId" Core.Text+    Core.:> "layers"+    Core.:> Core.Capture "layerId" Core.Text+    Core.:> "data"+    Core.:> Core.QueryParam "contentVersion" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParams "annotationDataId" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "h" Core.Int32+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "scale" Core.Int32+    Core.:> Core.QueryParam "source" Core.Text+    Core.:> Core.QueryParam "updatedMax" Core.Text+    Core.:> Core.QueryParam "updatedMin" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "w" Core.Int32+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Annotationsdata++-- | Gets the annotation data for a volume and layer.+--+-- /See:/ 'newBooksLayersAnnotationDataList' smart constructor.+data BooksLayersAnnotationDataList = BooksLayersAnnotationDataList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The list of Annotation Data Ids to retrieve. Pagination is ignored if this is set.+    annotationDataId :: (Core.Maybe [Core.Text]),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The content version for the requested volume.+    contentVersion :: Core.Text,+    -- | The requested pixel height for any images. If height is provided width must also be provided.+    h :: (Core.Maybe Core.Int32),+    -- | The ID for the layer to get the annotation data.+    layerId :: Core.Text,+    -- | The locale information for the data. ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'.+    locale :: (Core.Maybe Core.Text),+    -- | Maximum number of results to return+    maxResults :: (Core.Maybe Core.Word32),+    -- | The value of the nextToken from the previous page.+    pageToken :: (Core.Maybe Core.Text),+    -- | The requested scale for the image.+    scale :: (Core.Maybe Core.Int32),+    -- | String to identify the originator of this request.+    source :: (Core.Maybe Core.Text),+    -- | RFC 3339 timestamp to restrict to items updated prior to this timestamp (exclusive).+    updatedMax :: (Core.Maybe Core.Text),+    -- | RFC 3339 timestamp to restrict to items updated since this timestamp (inclusive).+    updatedMin :: (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 volume to retrieve annotation data for.+    volumeId :: Core.Text,+    -- | The requested pixel width for any images. If width is provided height must also be provided.+    w :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksLayersAnnotationDataList' with the minimum fields required to make a request.+newBooksLayersAnnotationDataList ::+  -- |  The content version for the requested volume. See 'contentVersion'.+  Core.Text ->+  -- |  The ID for the layer to get the annotation data. See 'layerId'.+  Core.Text ->+  -- |  The volume to retrieve annotation data for. See 'volumeId'.+  Core.Text ->+  BooksLayersAnnotationDataList+newBooksLayersAnnotationDataList contentVersion layerId volumeId =+  BooksLayersAnnotationDataList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      annotationDataId = Core.Nothing,+      callback = Core.Nothing,+      contentVersion = contentVersion,+      h = Core.Nothing,+      layerId = layerId,+      locale = Core.Nothing,+      maxResults = Core.Nothing,+      pageToken = Core.Nothing,+      scale = Core.Nothing,+      source = Core.Nothing,+      updatedMax = Core.Nothing,+      updatedMin = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = volumeId,+      w = Core.Nothing+    }++instance Core.GoogleRequest BooksLayersAnnotationDataList where+  type Rs BooksLayersAnnotationDataList = Annotationsdata+  type Scopes BooksLayersAnnotationDataList = '[Books'FullControl]+  requestClient BooksLayersAnnotationDataList {..} =+    go+      volumeId+      layerId+      (Core.Just contentVersion)+      xgafv+      accessToken+      (annotationDataId Core.^. Core._Default)+      callback+      h+      locale+      maxResults+      pageToken+      scale+      source+      updatedMax+      updatedMin+      uploadType+      uploadProtocol+      w+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksLayersAnnotationDataListResource)+          Core.mempty
+ gen/Gogol/Books/Layers/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.Books.Layers.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the layer summary for a volume.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.layers.get@.+module Gogol.Books.Layers.Get+  ( -- * Resource+    BooksLayersGetResource,++    -- ** Constructing a Request+    BooksLayersGet (..),+    newBooksLayersGet,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.layers.get@ method which the+-- 'BooksLayersGet' request conforms to.+type BooksLayersGetResource =+  "books"+    Core.:> "v1"+    Core.:> "volumes"+    Core.:> Core.Capture "volumeId" Core.Text+    Core.:> "layersummary"+    Core.:> Core.Capture "summaryId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "contentVersion" Core.Text+    Core.:> Core.QueryParam "source" 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] Layersummary++-- | Gets the layer summary for a volume.+--+-- /See:/ 'newBooksLayersGet' smart constructor.+data BooksLayersGet = BooksLayersGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The content version for the requested volume.+    contentVersion :: (Core.Maybe Core.Text),+    -- | String to identify the originator of this request.+    source :: (Core.Maybe Core.Text),+    -- | The ID for the layer to get the summary for.+    summaryId :: 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 volume to retrieve layers for.+    volumeId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksLayersGet' with the minimum fields required to make a request.+newBooksLayersGet ::+  -- |  The ID for the layer to get the summary for. See 'summaryId'.+  Core.Text ->+  -- |  The volume to retrieve layers for. See 'volumeId'.+  Core.Text ->+  BooksLayersGet+newBooksLayersGet summaryId volumeId =+  BooksLayersGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      contentVersion = Core.Nothing,+      source = Core.Nothing,+      summaryId = summaryId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = volumeId+    }++instance Core.GoogleRequest BooksLayersGet where+  type Rs BooksLayersGet = Layersummary+  type Scopes BooksLayersGet = '[Books'FullControl]+  requestClient BooksLayersGet {..} =+    go+      volumeId+      summaryId+      xgafv+      accessToken+      callback+      contentVersion+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksLayersGetResource)+          Core.mempty
+ gen/Gogol/Books/Layers/List.hs view
@@ -0,0 +1,130 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Layers.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List the layer summaries for a volume.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.layers.list@.+module Gogol.Books.Layers.List+  ( -- * Resource+    BooksLayersListResource,++    -- ** Constructing a Request+    BooksLayersList (..),+    newBooksLayersList,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.layers.list@ method which the+-- 'BooksLayersList' request conforms to.+type BooksLayersListResource =+  "books"+    Core.:> "v1"+    Core.:> "volumes"+    Core.:> Core.Capture "volumeId" Core.Text+    Core.:> "layersummary"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "contentVersion" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "source" 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] Layersummaries++-- | List the layer summaries for a volume.+--+-- /See:/ 'newBooksLayersList' smart constructor.+data BooksLayersList = BooksLayersList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The content version for the requested volume.+    contentVersion :: (Core.Maybe Core.Text),+    -- | Maximum number of results to return+    maxResults :: (Core.Maybe Core.Word32),+    -- | The value of the nextToken from the previous page.+    pageToken :: (Core.Maybe Core.Text),+    -- | String to identify the originator of this request.+    source :: (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 volume to retrieve layers for.+    volumeId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksLayersList' with the minimum fields required to make a request.+newBooksLayersList ::+  -- |  The volume to retrieve layers for. See 'volumeId'.+  Core.Text ->+  BooksLayersList+newBooksLayersList volumeId =+  BooksLayersList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      contentVersion = Core.Nothing,+      maxResults = Core.Nothing,+      pageToken = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = volumeId+    }++instance Core.GoogleRequest BooksLayersList where+  type Rs BooksLayersList = Layersummaries+  type Scopes BooksLayersList = '[Books'FullControl]+  requestClient BooksLayersList {..} =+    go+      volumeId+      xgafv+      accessToken+      callback+      contentVersion+      maxResults+      pageToken+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksLayersListResource)+          Core.mempty
+ gen/Gogol/Books/Layers/VolumeAnnotations/Get.hs view
@@ -0,0 +1,135 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Layers.VolumeAnnotations.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the volume annotation.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.layers.volumeAnnotations.get@.+module Gogol.Books.Layers.VolumeAnnotations.Get+  ( -- * Resource+    BooksLayersVolumeAnnotationsGetResource,++    -- ** Constructing a Request+    BooksLayersVolumeAnnotationsGet (..),+    newBooksLayersVolumeAnnotationsGet,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.layers.volumeAnnotations.get@ method which the+-- 'BooksLayersVolumeAnnotationsGet' request conforms to.+type BooksLayersVolumeAnnotationsGetResource =+  "books"+    Core.:> "v1"+    Core.:> "volumes"+    Core.:> Core.Capture "volumeId" Core.Text+    Core.:> "layers"+    Core.:> Core.Capture "layerId" Core.Text+    Core.:> "annotations"+    Core.:> Core.Capture "annotationId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam "source" 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] Volumeannotation++-- | Gets the volume annotation.+--+-- /See:/ 'newBooksLayersVolumeAnnotationsGet' smart constructor.+data BooksLayersVolumeAnnotationsGet = BooksLayersVolumeAnnotationsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The ID of the volume annotation to retrieve.+    annotationId :: Core.Text,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The ID for the layer to get the annotations.+    layerId :: Core.Text,+    -- | The locale information for the data. ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'.+    locale :: (Core.Maybe Core.Text),+    -- | String to identify the originator of this request.+    source :: (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 volume to retrieve annotations for.+    volumeId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksLayersVolumeAnnotationsGet' with the minimum fields required to make a request.+newBooksLayersVolumeAnnotationsGet ::+  -- |  The ID of the volume annotation to retrieve. See 'annotationId'.+  Core.Text ->+  -- |  The ID for the layer to get the annotations. See 'layerId'.+  Core.Text ->+  -- |  The volume to retrieve annotations for. See 'volumeId'.+  Core.Text ->+  BooksLayersVolumeAnnotationsGet+newBooksLayersVolumeAnnotationsGet annotationId layerId volumeId =+  BooksLayersVolumeAnnotationsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      annotationId = annotationId,+      callback = Core.Nothing,+      layerId = layerId,+      locale = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = volumeId+    }++instance Core.GoogleRequest BooksLayersVolumeAnnotationsGet where+  type Rs BooksLayersVolumeAnnotationsGet = Volumeannotation+  type Scopes BooksLayersVolumeAnnotationsGet = '[Books'FullControl]+  requestClient BooksLayersVolumeAnnotationsGet {..} =+    go+      volumeId+      layerId+      annotationId+      xgafv+      accessToken+      callback+      locale+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksLayersVolumeAnnotationsGetResource)+          Core.mempty
+ gen/Gogol/Books/Layers/VolumeAnnotations/List.hs view
@@ -0,0 +1,186 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Layers.VolumeAnnotations.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)+--+-- Gets the volume annotations for a volume and layer.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.layers.volumeAnnotations.list@.+module Gogol.Books.Layers.VolumeAnnotations.List+  ( -- * Resource+    BooksLayersVolumeAnnotationsListResource,++    -- ** Constructing a Request+    BooksLayersVolumeAnnotationsList (..),+    newBooksLayersVolumeAnnotationsList,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.layers.volumeAnnotations.list@ method which the+-- 'BooksLayersVolumeAnnotationsList' request conforms to.+type BooksLayersVolumeAnnotationsListResource =+  "books"+    Core.:> "v1"+    Core.:> "volumes"+    Core.:> Core.Capture "volumeId" Core.Text+    Core.:> "layers"+    Core.:> Core.Capture "layerId" Core.Text+    Core.:> Core.QueryParam "contentVersion" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "endOffset" Core.Text+    Core.:> Core.QueryParam "endPosition" Core.Text+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "showDeleted" Core.Bool+    Core.:> Core.QueryParam "source" Core.Text+    Core.:> Core.QueryParam "startOffset" Core.Text+    Core.:> Core.QueryParam "startPosition" Core.Text+    Core.:> Core.QueryParam "updatedMax" Core.Text+    Core.:> Core.QueryParam "updatedMin" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam+              "volumeAnnotationsVersion"+              Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Volumeannotations++-- | Gets the volume annotations for a volume and layer.+--+-- /See:/ 'newBooksLayersVolumeAnnotationsList' smart constructor.+data BooksLayersVolumeAnnotationsList = BooksLayersVolumeAnnotationsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The content version for the requested volume.+    contentVersion :: Core.Text,+    -- | The end offset to end retrieving data from.+    endOffset :: (Core.Maybe Core.Text),+    -- | The end position to end retrieving data from.+    endPosition :: (Core.Maybe Core.Text),+    -- | The ID for the layer to get the annotations.+    layerId :: Core.Text,+    -- | The locale information for the data. ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'.+    locale :: (Core.Maybe Core.Text),+    -- | Maximum number of results to return+    maxResults :: (Core.Maybe Core.Word32),+    -- | The value of the nextToken from the previous page.+    pageToken :: (Core.Maybe Core.Text),+    -- | Set to true to return deleted annotations. updatedMin must be in the request to use this. Defaults to false.+    showDeleted :: (Core.Maybe Core.Bool),+    -- | String to identify the originator of this request.+    source :: (Core.Maybe Core.Text),+    -- | The start offset to start retrieving data from.+    startOffset :: (Core.Maybe Core.Text),+    -- | The start position to start retrieving data from.+    startPosition :: (Core.Maybe Core.Text),+    -- | RFC 3339 timestamp to restrict to items updated prior to this timestamp (exclusive).+    updatedMax :: (Core.Maybe Core.Text),+    -- | RFC 3339 timestamp to restrict to items updated since this timestamp (inclusive).+    updatedMin :: (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 version of the volume annotations that you are requesting.+    volumeAnnotationsVersion :: (Core.Maybe Core.Text),+    -- | The volume to retrieve annotations for.+    volumeId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksLayersVolumeAnnotationsList' with the minimum fields required to make a request.+newBooksLayersVolumeAnnotationsList ::+  -- |  The content version for the requested volume. See 'contentVersion'.+  Core.Text ->+  -- |  The ID for the layer to get the annotations. See 'layerId'.+  Core.Text ->+  -- |  The volume to retrieve annotations for. See 'volumeId'.+  Core.Text ->+  BooksLayersVolumeAnnotationsList+newBooksLayersVolumeAnnotationsList contentVersion layerId volumeId =+  BooksLayersVolumeAnnotationsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      contentVersion = contentVersion,+      endOffset = Core.Nothing,+      endPosition = Core.Nothing,+      layerId = layerId,+      locale = Core.Nothing,+      maxResults = Core.Nothing,+      pageToken = Core.Nothing,+      showDeleted = Core.Nothing,+      source = Core.Nothing,+      startOffset = Core.Nothing,+      startPosition = Core.Nothing,+      updatedMax = Core.Nothing,+      updatedMin = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeAnnotationsVersion = Core.Nothing,+      volumeId = volumeId+    }++instance Core.GoogleRequest BooksLayersVolumeAnnotationsList where+  type Rs BooksLayersVolumeAnnotationsList = Volumeannotations+  type Scopes BooksLayersVolumeAnnotationsList = '[Books'FullControl]+  requestClient BooksLayersVolumeAnnotationsList {..} =+    go+      volumeId+      layerId+      (Core.Just contentVersion)+      xgafv+      accessToken+      callback+      endOffset+      endPosition+      locale+      maxResults+      pageToken+      showDeleted+      source+      startOffset+      startPosition+      updatedMax+      updatedMin+      uploadType+      uploadProtocol+      volumeAnnotationsVersion+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksLayersVolumeAnnotationsListResource)+          Core.mempty
+ gen/Gogol/Books/Myconfig/GetUserSettings.hs view
@@ -0,0 +1,108 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Myconfig.GetUserSettings+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the current settings for the user.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.myconfig.getUserSettings@.+module Gogol.Books.Myconfig.GetUserSettings+  ( -- * Resource+    BooksMyconfigGetUserSettingsResource,++    -- ** Constructing a Request+    BooksMyconfigGetUserSettings (..),+    newBooksMyconfigGetUserSettings,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.myconfig.getUserSettings@ method which the+-- 'BooksMyconfigGetUserSettings' request conforms to.+type BooksMyconfigGetUserSettingsResource =+  "books"+    Core.:> "v1"+    Core.:> "myconfig"+    Core.:> "getUserSettings"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "country" 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] Usersettings++-- | Gets the current settings for the user.+--+-- /See:/ 'newBooksMyconfigGetUserSettings' smart constructor.+data BooksMyconfigGetUserSettings = BooksMyconfigGetUserSettings+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Unused. Added only to workaround TEX mandatory request template requirement+    country :: (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 'BooksMyconfigGetUserSettings' with the minimum fields required to make a request.+newBooksMyconfigGetUserSettings ::+  BooksMyconfigGetUserSettings+newBooksMyconfigGetUserSettings =+  BooksMyconfigGetUserSettings+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      country = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksMyconfigGetUserSettings where+  type Rs BooksMyconfigGetUserSettings = Usersettings+  type Scopes BooksMyconfigGetUserSettings = '[Books'FullControl]+  requestClient BooksMyconfigGetUserSettings {..} =+    go+      xgafv+      accessToken+      callback+      country+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksMyconfigGetUserSettingsResource)+          Core.mempty
+ gen/Gogol/Books/Myconfig/ReleaseDownloadAccess.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.Books.Myconfig.ReleaseDownloadAccess+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Release downloaded content access restriction.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.myconfig.releaseDownloadAccess@.+module Gogol.Books.Myconfig.ReleaseDownloadAccess+  ( -- * Resource+    BooksMyconfigReleaseDownloadAccessResource,++    -- ** Constructing a Request+    BooksMyconfigReleaseDownloadAccess (..),+    newBooksMyconfigReleaseDownloadAccess,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.myconfig.releaseDownloadAccess@ method which the+-- 'BooksMyconfigReleaseDownloadAccess' request conforms to.+type BooksMyconfigReleaseDownloadAccessResource =+  "books"+    Core.:> "v1"+    Core.:> "myconfig"+    Core.:> "releaseDownloadAccess"+    Core.:> Core.QueryParam "cpksver" Core.Text+    Core.:> Core.QueryParams "volumeIds" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam "source" 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] DownloadAccesses++-- | Release downloaded content access restriction.+--+-- /See:/ 'newBooksMyconfigReleaseDownloadAccess' smart constructor.+data BooksMyconfigReleaseDownloadAccess = BooksMyconfigReleaseDownloadAccess+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The device\/version ID from which to release the restriction.+    cpksver :: Core.Text,+    -- | ISO-639-1, ISO-3166-1 codes for message localization, i.e. en_US.+    locale :: (Core.Maybe Core.Text),+    -- | String to identify the originator of this request.+    source :: (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 volume(s) to release restrictions for.+    volumeIds :: [Core.Text]+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksMyconfigReleaseDownloadAccess' with the minimum fields required to make a request.+newBooksMyconfigReleaseDownloadAccess ::+  -- |  The device\/version ID from which to release the restriction. See 'cpksver'.+  Core.Text ->+  -- |  The volume(s) to release restrictions for. See 'volumeIds'.+  [Core.Text] ->+  BooksMyconfigReleaseDownloadAccess+newBooksMyconfigReleaseDownloadAccess cpksver volumeIds =+  BooksMyconfigReleaseDownloadAccess+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      cpksver = cpksver,+      locale = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeIds = volumeIds+    }++instance Core.GoogleRequest BooksMyconfigReleaseDownloadAccess where+  type Rs BooksMyconfigReleaseDownloadAccess = DownloadAccesses+  type+    Scopes BooksMyconfigReleaseDownloadAccess =+      '[Books'FullControl]+  requestClient BooksMyconfigReleaseDownloadAccess {..} =+    go+      (Core.Just cpksver)+      volumeIds+      xgafv+      accessToken+      callback+      locale+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy BooksMyconfigReleaseDownloadAccessResource+          )+          Core.mempty
+ gen/Gogol/Books/Myconfig/RequestAccess.hs view
@@ -0,0 +1,141 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Myconfig.RequestAccess+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Request concurrent and download access restrictions.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.myconfig.requestAccess@.+module Gogol.Books.Myconfig.RequestAccess+  ( -- * Resource+    BooksMyconfigRequestAccessResource,++    -- ** Constructing a Request+    BooksMyconfigRequestAccess (..),+    newBooksMyconfigRequestAccess,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.myconfig.requestAccess@ method which the+-- 'BooksMyconfigRequestAccess' request conforms to.+type BooksMyconfigRequestAccessResource =+  "books"+    Core.:> "v1"+    Core.:> "myconfig"+    Core.:> "requestAccess"+    Core.:> Core.QueryParam "cpksver" Core.Text+    Core.:> Core.QueryParam "nonce" Core.Text+    Core.:> Core.QueryParam "source" Core.Text+    Core.:> Core.QueryParam "volumeId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "licenseTypes" MyconfigRequestAccessLicenseTypes+    Core.:> Core.QueryParam "locale" 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] RequestAccessData++-- | Request concurrent and download access restrictions.+--+-- /See:/ 'newBooksMyconfigRequestAccess' smart constructor.+data BooksMyconfigRequestAccess = BooksMyconfigRequestAccess+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The device\/version ID from which to request the restrictions.+    cpksver :: Core.Text,+    -- | The type of access license to request. If not specified, the default is BOTH.+    licenseTypes :: (Core.Maybe MyconfigRequestAccessLicenseTypes),+    -- | ISO-639-1, ISO-3166-1 codes for message localization, i.e. en_US.+    locale :: (Core.Maybe Core.Text),+    -- | The client nonce value.+    nonce :: Core.Text,+    -- | String to identify the originator of this request.+    source :: 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 volume to request concurrent\/download restrictions for.+    volumeId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksMyconfigRequestAccess' with the minimum fields required to make a request.+newBooksMyconfigRequestAccess ::+  -- |  The device\/version ID from which to request the restrictions. See 'cpksver'.+  Core.Text ->+  -- |  The client nonce value. See 'nonce'.+  Core.Text ->+  -- |  String to identify the originator of this request. See 'source'.+  Core.Text ->+  -- |  The volume to request concurrent\/download restrictions for. See 'volumeId'.+  Core.Text ->+  BooksMyconfigRequestAccess+newBooksMyconfigRequestAccess cpksver nonce source volumeId =+  BooksMyconfigRequestAccess+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      cpksver = cpksver,+      licenseTypes = Core.Nothing,+      locale = Core.Nothing,+      nonce = nonce,+      source = source,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = volumeId+    }++instance Core.GoogleRequest BooksMyconfigRequestAccess where+  type Rs BooksMyconfigRequestAccess = RequestAccessData+  type Scopes BooksMyconfigRequestAccess = '[Books'FullControl]+  requestClient BooksMyconfigRequestAccess {..} =+    go+      (Core.Just cpksver)+      (Core.Just nonce)+      (Core.Just source)+      (Core.Just volumeId)+      xgafv+      accessToken+      callback+      licenseTypes+      locale+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksMyconfigRequestAccessResource)+          Core.mempty
+ gen/Gogol/Books/Myconfig/SyncVolumeLicenses.hs view
@@ -0,0 +1,149 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Myconfig.SyncVolumeLicenses+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Request downloaded content access for specified volumes on the My eBooks shelf.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.myconfig.syncVolumeLicenses@.+module Gogol.Books.Myconfig.SyncVolumeLicenses+  ( -- * Resource+    BooksMyconfigSyncVolumeLicensesResource,++    -- ** Constructing a Request+    BooksMyconfigSyncVolumeLicenses (..),+    newBooksMyconfigSyncVolumeLicenses,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.myconfig.syncVolumeLicenses@ method which the+-- 'BooksMyconfigSyncVolumeLicenses' request conforms to.+type BooksMyconfigSyncVolumeLicensesResource =+  "books"+    Core.:> "v1"+    Core.:> "myconfig"+    Core.:> "syncVolumeLicenses"+    Core.:> Core.QueryParam "cpksver" Core.Text+    Core.:> Core.QueryParam "nonce" Core.Text+    Core.:> Core.QueryParam "source" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParams "features" MyconfigSyncVolumeLicensesFeatures+    Core.:> Core.QueryParam "includeNonComicsSeries" Core.Bool+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam "showPreorders" Core.Bool+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParams "volumeIds" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Post '[Core.JSON] Volumes++-- | Request downloaded content access for specified volumes on the My eBooks shelf.+--+-- /See:/ 'newBooksMyconfigSyncVolumeLicenses' smart constructor.+data BooksMyconfigSyncVolumeLicenses = BooksMyconfigSyncVolumeLicenses+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The device\/version ID from which to release the restriction.+    cpksver :: Core.Text,+    -- | List of features supported by the client, i.e., \'RENTALS\'+    features :: (Core.Maybe [MyconfigSyncVolumeLicensesFeatures]),+    -- | Set to true to include non-comics series. Defaults to false.+    includeNonComicsSeries :: (Core.Maybe Core.Bool),+    -- | ISO-639-1, ISO-3166-1 codes for message localization, i.e. en_US.+    locale :: (Core.Maybe Core.Text),+    -- | The client nonce value.+    nonce :: Core.Text,+    -- | Set to true to show pre-ordered books. Defaults to false.+    showPreorders :: (Core.Maybe Core.Bool),+    -- | String to identify the originator of this request.+    source :: 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 volume(s) to request download restrictions for.+    volumeIds :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksMyconfigSyncVolumeLicenses' with the minimum fields required to make a request.+newBooksMyconfigSyncVolumeLicenses ::+  -- |  The device\/version ID from which to release the restriction. See 'cpksver'.+  Core.Text ->+  -- |  The client nonce value. See 'nonce'.+  Core.Text ->+  -- |  String to identify the originator of this request. See 'source'.+  Core.Text ->+  BooksMyconfigSyncVolumeLicenses+newBooksMyconfigSyncVolumeLicenses cpksver nonce source =+  BooksMyconfigSyncVolumeLicenses+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      cpksver = cpksver,+      features = Core.Nothing,+      includeNonComicsSeries = Core.Nothing,+      locale = Core.Nothing,+      nonce = nonce,+      showPreorders = Core.Nothing,+      source = source,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeIds = Core.Nothing+    }++instance Core.GoogleRequest BooksMyconfigSyncVolumeLicenses where+  type Rs BooksMyconfigSyncVolumeLicenses = Volumes+  type Scopes BooksMyconfigSyncVolumeLicenses = '[Books'FullControl]+  requestClient BooksMyconfigSyncVolumeLicenses {..} =+    go+      (Core.Just cpksver)+      (Core.Just nonce)+      (Core.Just source)+      xgafv+      accessToken+      callback+      (features Core.^. Core._Default)+      includeNonComicsSeries+      locale+      showPreorders+      uploadType+      uploadProtocol+      (volumeIds Core.^. Core._Default)+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksMyconfigSyncVolumeLicensesResource)+          Core.mempty
+ gen/Gogol/Books/Myconfig/UpdateUserSettings.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.Books.Myconfig.UpdateUserSettings+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Sets the settings for the user. If a sub-object is specified, it will overwrite the existing sub-object stored in the server. Unspecified sub-objects will retain the existing value.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.myconfig.updateUserSettings@.+module Gogol.Books.Myconfig.UpdateUserSettings+  ( -- * Resource+    BooksMyconfigUpdateUserSettingsResource,++    -- ** Constructing a Request+    BooksMyconfigUpdateUserSettings (..),+    newBooksMyconfigUpdateUserSettings,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.myconfig.updateUserSettings@ method which the+-- 'BooksMyconfigUpdateUserSettings' request conforms to.+type BooksMyconfigUpdateUserSettingsResource =+  "books"+    Core.:> "v1"+    Core.:> "myconfig"+    Core.:> "updateUserSettings"+    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] Usersettings+    Core.:> Core.Post '[Core.JSON] Usersettings++-- | Sets the settings for the user. If a sub-object is specified, it will overwrite the existing sub-object stored in the server. Unspecified sub-objects will retain the existing value.+--+-- /See:/ 'newBooksMyconfigUpdateUserSettings' smart constructor.+data BooksMyconfigUpdateUserSettings = BooksMyconfigUpdateUserSettings+  { -- | 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 :: Usersettings,+    -- | Legacy upload protocol 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 'BooksMyconfigUpdateUserSettings' with the minimum fields required to make a request.+newBooksMyconfigUpdateUserSettings ::+  -- |  Multipart request metadata. See 'payload'.+  Usersettings ->+  BooksMyconfigUpdateUserSettings+newBooksMyconfigUpdateUserSettings payload =+  BooksMyconfigUpdateUserSettings+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksMyconfigUpdateUserSettings where+  type Rs BooksMyconfigUpdateUserSettings = Usersettings+  type Scopes BooksMyconfigUpdateUserSettings = '[Books'FullControl]+  requestClient BooksMyconfigUpdateUserSettings {..} =+    go+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksMyconfigUpdateUserSettingsResource)+          Core.mempty
+ gen/Gogol/Books/Mylibrary/Annotations/Delete.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Mylibrary.Annotations.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 annotation.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.mylibrary.annotations.delete@.+module Gogol.Books.Mylibrary.Annotations.Delete+  ( -- * Resource+    BooksMylibraryAnnotationsDeleteResource,++    -- ** Constructing a Request+    BooksMylibraryAnnotationsDelete (..),+    newBooksMylibraryAnnotationsDelete,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.mylibrary.annotations.delete@ method which the+-- 'BooksMylibraryAnnotationsDelete' request conforms to.+type BooksMylibraryAnnotationsDeleteResource =+  "books"+    Core.:> "v1"+    Core.:> "mylibrary"+    Core.:> "annotations"+    Core.:> Core.Capture "annotationId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "source" 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 an annotation.+--+-- /See:/ 'newBooksMylibraryAnnotationsDelete' smart constructor.+data BooksMylibraryAnnotationsDelete = BooksMylibraryAnnotationsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The ID for the annotation to delete.+    annotationId :: Core.Text,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | String to identify the originator of this request.+    source :: (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 'BooksMylibraryAnnotationsDelete' with the minimum fields required to make a request.+newBooksMylibraryAnnotationsDelete ::+  -- |  The ID for the annotation to delete. See 'annotationId'.+  Core.Text ->+  BooksMylibraryAnnotationsDelete+newBooksMylibraryAnnotationsDelete annotationId =+  BooksMylibraryAnnotationsDelete+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      annotationId = annotationId,+      callback = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksMylibraryAnnotationsDelete where+  type Rs BooksMylibraryAnnotationsDelete = Empty+  type Scopes BooksMylibraryAnnotationsDelete = '[Books'FullControl]+  requestClient BooksMylibraryAnnotationsDelete {..} =+    go+      annotationId+      xgafv+      accessToken+      callback+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksMylibraryAnnotationsDeleteResource)+          Core.mempty
+ gen/Gogol/Books/Mylibrary/Annotations/Insert.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.Books.Mylibrary.Annotations.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 new annotation.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.mylibrary.annotations.insert@.+module Gogol.Books.Mylibrary.Annotations.Insert+  ( -- * Resource+    BooksMylibraryAnnotationsInsertResource,++    -- ** Constructing a Request+    BooksMylibraryAnnotationsInsert (..),+    newBooksMylibraryAnnotationsInsert,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.mylibrary.annotations.insert@ method which the+-- 'BooksMylibraryAnnotationsInsert' request conforms to.+type BooksMylibraryAnnotationsInsertResource =+  "books"+    Core.:> "v1"+    Core.:> "mylibrary"+    Core.:> "annotations"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "annotationId" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "country" Core.Text+    Core.:> Core.QueryParam "showOnlySummaryInResponse" Core.Bool+    Core.:> Core.QueryParam "source" 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] Annotation+    Core.:> Core.Post '[Core.JSON] Annotation++-- | Inserts a new annotation.+--+-- /See:/ 'newBooksMylibraryAnnotationsInsert' smart constructor.+data BooksMylibraryAnnotationsInsert = BooksMylibraryAnnotationsInsert+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The ID for the annotation to insert.+    annotationId :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ISO-3166-1 code to override the IP-based location.+    country :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: Annotation,+    -- | Requests that only the summary of the specified layer be provided in the response.+    showOnlySummaryInResponse :: (Core.Maybe Core.Bool),+    -- | String to identify the originator of this request.+    source :: (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 'BooksMylibraryAnnotationsInsert' with the minimum fields required to make a request.+newBooksMylibraryAnnotationsInsert ::+  -- |  Multipart request metadata. See 'payload'.+  Annotation ->+  BooksMylibraryAnnotationsInsert+newBooksMylibraryAnnotationsInsert payload =+  BooksMylibraryAnnotationsInsert+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      annotationId = Core.Nothing,+      callback = Core.Nothing,+      country = Core.Nothing,+      payload = payload,+      showOnlySummaryInResponse = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksMylibraryAnnotationsInsert where+  type Rs BooksMylibraryAnnotationsInsert = Annotation+  type Scopes BooksMylibraryAnnotationsInsert = '[Books'FullControl]+  requestClient BooksMylibraryAnnotationsInsert {..} =+    go+      xgafv+      accessToken+      annotationId+      callback+      country+      showOnlySummaryInResponse+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksMylibraryAnnotationsInsertResource)+          Core.mempty
+ gen/Gogol/Books/Mylibrary/Annotations/List.hs view
@@ -0,0 +1,153 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Mylibrary.Annotations.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 annotations, possibly filtered.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.mylibrary.annotations.list@.+module Gogol.Books.Mylibrary.Annotations.List+  ( -- * Resource+    BooksMylibraryAnnotationsListResource,++    -- ** Constructing a Request+    BooksMylibraryAnnotationsList (..),+    newBooksMylibraryAnnotationsList,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.mylibrary.annotations.list@ method which the+-- 'BooksMylibraryAnnotationsList' request conforms to.+type BooksMylibraryAnnotationsListResource =+  "books"+    Core.:> "v1"+    Core.:> "mylibrary"+    Core.:> "annotations"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "contentVersion" Core.Text+    Core.:> Core.QueryParam "layerId" Core.Text+    Core.:> Core.QueryParams "layerIds" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "showDeleted" Core.Bool+    Core.:> Core.QueryParam "source" Core.Text+    Core.:> Core.QueryParam "updatedMax" Core.Text+    Core.:> Core.QueryParam "updatedMin" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "volumeId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Annotations++-- | Retrieves a list of annotations, possibly filtered.+--+-- /See:/ 'newBooksMylibraryAnnotationsList' smart constructor.+data BooksMylibraryAnnotationsList = BooksMylibraryAnnotationsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The content version for the requested volume.+    contentVersion :: (Core.Maybe Core.Text),+    -- | The layer ID to limit annotation by.+    layerId :: (Core.Maybe Core.Text),+    -- | The layer ID(s) to limit annotation by.+    layerIds :: (Core.Maybe [Core.Text]),+    -- | Maximum number of results to return+    maxResults :: (Core.Maybe Core.Word32),+    -- | The value of the nextToken from the previous page.+    pageToken :: (Core.Maybe Core.Text),+    -- | Set to true to return deleted annotations. updatedMin must be in the request to use this. Defaults to false.+    showDeleted :: (Core.Maybe Core.Bool),+    -- | String to identify the originator of this request.+    source :: (Core.Maybe Core.Text),+    -- | RFC 3339 timestamp to restrict to items updated prior to this timestamp (exclusive).+    updatedMax :: (Core.Maybe Core.Text),+    -- | RFC 3339 timestamp to restrict to items updated since this timestamp (inclusive).+    updatedMin :: (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 volume to restrict annotations to.+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksMylibraryAnnotationsList' with the minimum fields required to make a request.+newBooksMylibraryAnnotationsList ::+  BooksMylibraryAnnotationsList+newBooksMylibraryAnnotationsList =+  BooksMylibraryAnnotationsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      contentVersion = Core.Nothing,+      layerId = Core.Nothing,+      layerIds = Core.Nothing,+      maxResults = Core.Nothing,+      pageToken = Core.Nothing,+      showDeleted = Core.Nothing,+      source = Core.Nothing,+      updatedMax = Core.Nothing,+      updatedMin = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.GoogleRequest BooksMylibraryAnnotationsList where+  type Rs BooksMylibraryAnnotationsList = Annotations+  type Scopes BooksMylibraryAnnotationsList = '[Books'FullControl]+  requestClient BooksMylibraryAnnotationsList {..} =+    go+      xgafv+      accessToken+      callback+      contentVersion+      layerId+      (layerIds Core.^. Core._Default)+      maxResults+      pageToken+      showDeleted+      source+      updatedMax+      updatedMin+      uploadType+      uploadProtocol+      volumeId+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksMylibraryAnnotationsListResource)+          Core.mempty
+ gen/Gogol/Books/Mylibrary/Annotations/Summary.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.Books.Mylibrary.Annotations.Summary+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the summary of specified layers.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.mylibrary.annotations.summary@.+module Gogol.Books.Mylibrary.Annotations.Summary+  ( -- * Resource+    BooksMylibraryAnnotationsSummaryResource,++    -- ** Constructing a Request+    BooksMylibraryAnnotationsSummary (..),+    newBooksMylibraryAnnotationsSummary,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.mylibrary.annotations.summary@ method which the+-- 'BooksMylibraryAnnotationsSummary' request conforms to.+type BooksMylibraryAnnotationsSummaryResource =+  "books"+    Core.:> "v1"+    Core.:> "mylibrary"+    Core.:> "annotations"+    Core.:> "summary"+    Core.:> Core.QueryParams "layerIds" Core.Text+    Core.:> Core.QueryParam "volumeId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "source" 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] AnnotationsSummary++-- | Gets the summary of specified layers.+--+-- /See:/ 'newBooksMylibraryAnnotationsSummary' smart constructor.+data BooksMylibraryAnnotationsSummary = BooksMylibraryAnnotationsSummary+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Array of layer IDs to get the summary for.+    layerIds :: [Core.Text],+    -- | Optional. String to identify the originator of this request.+    source :: (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),+    -- | Volume id to get the summary for.+    volumeId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksMylibraryAnnotationsSummary' with the minimum fields required to make a request.+newBooksMylibraryAnnotationsSummary ::+  -- |  Array of layer IDs to get the summary for. See 'layerIds'.+  [Core.Text] ->+  -- |  Volume id to get the summary for. See 'volumeId'.+  Core.Text ->+  BooksMylibraryAnnotationsSummary+newBooksMylibraryAnnotationsSummary layerIds volumeId =+  BooksMylibraryAnnotationsSummary+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      layerIds = layerIds,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = volumeId+    }++instance Core.GoogleRequest BooksMylibraryAnnotationsSummary where+  type Rs BooksMylibraryAnnotationsSummary = AnnotationsSummary+  type Scopes BooksMylibraryAnnotationsSummary = '[Books'FullControl]+  requestClient BooksMylibraryAnnotationsSummary {..} =+    go+      layerIds+      (Core.Just volumeId)+      xgafv+      accessToken+      callback+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksMylibraryAnnotationsSummaryResource)+          Core.mempty
+ gen/Gogol/Books/Mylibrary/Annotations/Update.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.Books.Mylibrary.Annotations.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 existing annotation.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.mylibrary.annotations.update@.+module Gogol.Books.Mylibrary.Annotations.Update+  ( -- * Resource+    BooksMylibraryAnnotationsUpdateResource,++    -- ** Constructing a Request+    BooksMylibraryAnnotationsUpdate (..),+    newBooksMylibraryAnnotationsUpdate,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.mylibrary.annotations.update@ method which the+-- 'BooksMylibraryAnnotationsUpdate' request conforms to.+type BooksMylibraryAnnotationsUpdateResource =+  "books"+    Core.:> "v1"+    Core.:> "mylibrary"+    Core.:> "annotations"+    Core.:> Core.Capture "annotationId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "source" 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] Annotation+    Core.:> Core.Put '[Core.JSON] Annotation++-- | Updates an existing annotation.+--+-- /See:/ 'newBooksMylibraryAnnotationsUpdate' smart constructor.+data BooksMylibraryAnnotationsUpdate = BooksMylibraryAnnotationsUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | The ID for the annotation to update.+    annotationId :: Core.Text,+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: Annotation,+    -- | String to identify the originator of this request.+    source :: (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 'BooksMylibraryAnnotationsUpdate' with the minimum fields required to make a request.+newBooksMylibraryAnnotationsUpdate ::+  -- |  The ID for the annotation to update. See 'annotationId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Annotation ->+  BooksMylibraryAnnotationsUpdate+newBooksMylibraryAnnotationsUpdate annotationId payload =+  BooksMylibraryAnnotationsUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      annotationId = annotationId,+      callback = Core.Nothing,+      payload = payload,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksMylibraryAnnotationsUpdate where+  type Rs BooksMylibraryAnnotationsUpdate = Annotation+  type Scopes BooksMylibraryAnnotationsUpdate = '[Books'FullControl]+  requestClient BooksMylibraryAnnotationsUpdate {..} =+    go+      annotationId+      xgafv+      accessToken+      callback+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksMylibraryAnnotationsUpdateResource)+          Core.mempty
+ gen/Gogol/Books/Mylibrary/Bookshelves/AddVolume.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.Books.Mylibrary.Bookshelves.AddVolume+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.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 volume to a bookshelf.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.mylibrary.bookshelves.addVolume@.+module Gogol.Books.Mylibrary.Bookshelves.AddVolume+  ( -- * Resource+    BooksMylibraryBookshelvesAddVolumeResource,++    -- ** Constructing a Request+    BooksMylibraryBookshelvesAddVolume (..),+    newBooksMylibraryBookshelvesAddVolume,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.mylibrary.bookshelves.addVolume@ method which the+-- 'BooksMylibraryBookshelvesAddVolume' request conforms to.+type BooksMylibraryBookshelvesAddVolumeResource =+  "books"+    Core.:> "v1"+    Core.:> "mylibrary"+    Core.:> "bookshelves"+    Core.:> Core.Capture "shelf" Core.Text+    Core.:> "addVolume"+    Core.:> Core.QueryParam "volumeId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "reason" MylibraryBookshelvesAddVolumeReason+    Core.:> Core.QueryParam "source" 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] Empty++-- | Adds a volume to a bookshelf.+--+-- /See:/ 'newBooksMylibraryBookshelvesAddVolume' smart constructor.+data BooksMylibraryBookshelvesAddVolume = BooksMylibraryBookshelvesAddVolume+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The reason for which the book is added to the library.+    reason :: (Core.Maybe MylibraryBookshelvesAddVolumeReason),+    -- | ID of bookshelf to which to add a volume.+    shelf :: Core.Text,+    -- | String to identify the originator of this request.+    source :: (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),+    -- | ID of volume to add.+    volumeId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksMylibraryBookshelvesAddVolume' with the minimum fields required to make a request.+newBooksMylibraryBookshelvesAddVolume ::+  -- |  ID of bookshelf to which to add a volume. See 'shelf'.+  Core.Text ->+  -- |  ID of volume to add. See 'volumeId'.+  Core.Text ->+  BooksMylibraryBookshelvesAddVolume+newBooksMylibraryBookshelvesAddVolume shelf volumeId =+  BooksMylibraryBookshelvesAddVolume+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      reason = Core.Nothing,+      shelf = shelf,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = volumeId+    }++instance Core.GoogleRequest BooksMylibraryBookshelvesAddVolume where+  type Rs BooksMylibraryBookshelvesAddVolume = Empty+  type+    Scopes BooksMylibraryBookshelvesAddVolume =+      '[Books'FullControl]+  requestClient BooksMylibraryBookshelvesAddVolume {..} =+    go+      shelf+      (Core.Just volumeId)+      xgafv+      accessToken+      callback+      reason+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy BooksMylibraryBookshelvesAddVolumeResource+          )+          Core.mempty
+ gen/Gogol/Books/Mylibrary/Bookshelves/ClearVolumes.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.Books.Mylibrary.Bookshelves.ClearVolumes+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Clears all volumes from a bookshelf.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.mylibrary.bookshelves.clearVolumes@.+module Gogol.Books.Mylibrary.Bookshelves.ClearVolumes+  ( -- * Resource+    BooksMylibraryBookshelvesClearVolumesResource,++    -- ** Constructing a Request+    BooksMylibraryBookshelvesClearVolumes (..),+    newBooksMylibraryBookshelvesClearVolumes,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.mylibrary.bookshelves.clearVolumes@ method which the+-- 'BooksMylibraryBookshelvesClearVolumes' request conforms to.+type BooksMylibraryBookshelvesClearVolumesResource =+  "books"+    Core.:> "v1"+    Core.:> "mylibrary"+    Core.:> "bookshelves"+    Core.:> Core.Capture "shelf" Core.Text+    Core.:> "clearVolumes"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "source" 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] Empty++-- | Clears all volumes from a bookshelf.+--+-- /See:/ 'newBooksMylibraryBookshelvesClearVolumes' smart constructor.+data BooksMylibraryBookshelvesClearVolumes = BooksMylibraryBookshelvesClearVolumes+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ID of bookshelf from which to remove a volume.+    shelf :: Core.Text,+    -- | String to identify the originator of this request.+    source :: (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 'BooksMylibraryBookshelvesClearVolumes' with the minimum fields required to make a request.+newBooksMylibraryBookshelvesClearVolumes ::+  -- |  ID of bookshelf from which to remove a volume. See 'shelf'.+  Core.Text ->+  BooksMylibraryBookshelvesClearVolumes+newBooksMylibraryBookshelvesClearVolumes shelf =+  BooksMylibraryBookshelvesClearVolumes+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      shelf = shelf,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksMylibraryBookshelvesClearVolumes where+  type Rs BooksMylibraryBookshelvesClearVolumes = Empty+  type+    Scopes BooksMylibraryBookshelvesClearVolumes =+      '[Books'FullControl]+  requestClient BooksMylibraryBookshelvesClearVolumes {..} =+    go+      shelf+      xgafv+      accessToken+      callback+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy BooksMylibraryBookshelvesClearVolumesResource+          )+          Core.mempty
+ gen/Gogol/Books/Mylibrary/Bookshelves/Get.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Mylibrary.Bookshelves.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 metadata for a specific bookshelf belonging to the authenticated user.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.mylibrary.bookshelves.get@.+module Gogol.Books.Mylibrary.Bookshelves.Get+  ( -- * Resource+    BooksMylibraryBookshelvesGetResource,++    -- ** Constructing a Request+    BooksMylibraryBookshelvesGet (..),+    newBooksMylibraryBookshelvesGet,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.mylibrary.bookshelves.get@ method which the+-- 'BooksMylibraryBookshelvesGet' request conforms to.+type BooksMylibraryBookshelvesGetResource =+  "books"+    Core.:> "v1"+    Core.:> "mylibrary"+    Core.:> "bookshelves"+    Core.:> Core.Capture "shelf" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "source" 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] Bookshelf++-- | Retrieves metadata for a specific bookshelf belonging to the authenticated user.+--+-- /See:/ 'newBooksMylibraryBookshelvesGet' smart constructor.+data BooksMylibraryBookshelvesGet = BooksMylibraryBookshelvesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ID of bookshelf to retrieve.+    shelf :: Core.Text,+    -- | String to identify the originator of this request.+    source :: (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 'BooksMylibraryBookshelvesGet' with the minimum fields required to make a request.+newBooksMylibraryBookshelvesGet ::+  -- |  ID of bookshelf to retrieve. See 'shelf'.+  Core.Text ->+  BooksMylibraryBookshelvesGet+newBooksMylibraryBookshelvesGet shelf =+  BooksMylibraryBookshelvesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      shelf = shelf,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksMylibraryBookshelvesGet where+  type Rs BooksMylibraryBookshelvesGet = Bookshelf+  type Scopes BooksMylibraryBookshelvesGet = '[Books'FullControl]+  requestClient BooksMylibraryBookshelvesGet {..} =+    go+      shelf+      xgafv+      accessToken+      callback+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksMylibraryBookshelvesGetResource)+          Core.mempty
+ gen/Gogol/Books/Mylibrary/Bookshelves/List.hs view
@@ -0,0 +1,108 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Mylibrary.Bookshelves.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 bookshelves belonging to the authenticated user.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.mylibrary.bookshelves.list@.+module Gogol.Books.Mylibrary.Bookshelves.List+  ( -- * Resource+    BooksMylibraryBookshelvesListResource,++    -- ** Constructing a Request+    BooksMylibraryBookshelvesList (..),+    newBooksMylibraryBookshelvesList,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.mylibrary.bookshelves.list@ method which the+-- 'BooksMylibraryBookshelvesList' request conforms to.+type BooksMylibraryBookshelvesListResource =+  "books"+    Core.:> "v1"+    Core.:> "mylibrary"+    Core.:> "bookshelves"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "source" 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] Bookshelves++-- | Retrieves a list of bookshelves belonging to the authenticated user.+--+-- /See:/ 'newBooksMylibraryBookshelvesList' smart constructor.+data BooksMylibraryBookshelvesList = BooksMylibraryBookshelvesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | String to identify the originator of this request.+    source :: (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 'BooksMylibraryBookshelvesList' with the minimum fields required to make a request.+newBooksMylibraryBookshelvesList ::+  BooksMylibraryBookshelvesList+newBooksMylibraryBookshelvesList =+  BooksMylibraryBookshelvesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksMylibraryBookshelvesList where+  type Rs BooksMylibraryBookshelvesList = Bookshelves+  type Scopes BooksMylibraryBookshelvesList = '[Books'FullControl]+  requestClient BooksMylibraryBookshelvesList {..} =+    go+      xgafv+      accessToken+      callback+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksMylibraryBookshelvesListResource)+          Core.mempty
+ gen/Gogol/Books/Mylibrary/Bookshelves/MoveVolume.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.Books.Mylibrary.Bookshelves.MoveVolume+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.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 a volume within a bookshelf.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.mylibrary.bookshelves.moveVolume@.+module Gogol.Books.Mylibrary.Bookshelves.MoveVolume+  ( -- * Resource+    BooksMylibraryBookshelvesMoveVolumeResource,++    -- ** Constructing a Request+    BooksMylibraryBookshelvesMoveVolume (..),+    newBooksMylibraryBookshelvesMoveVolume,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.mylibrary.bookshelves.moveVolume@ method which the+-- 'BooksMylibraryBookshelvesMoveVolume' request conforms to.+type BooksMylibraryBookshelvesMoveVolumeResource =+  "books"+    Core.:> "v1"+    Core.:> "mylibrary"+    Core.:> "bookshelves"+    Core.:> Core.Capture "shelf" Core.Text+    Core.:> "moveVolume"+    Core.:> Core.QueryParam "volumeId" Core.Text+    Core.:> Core.QueryParam "volumePosition" Core.Int32+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "source" 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] Empty++-- | Moves a volume within a bookshelf.+--+-- /See:/ 'newBooksMylibraryBookshelvesMoveVolume' smart constructor.+data BooksMylibraryBookshelvesMoveVolume = BooksMylibraryBookshelvesMoveVolume+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ID of bookshelf with the volume.+    shelf :: Core.Text,+    -- | String to identify the originator of this request.+    source :: (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),+    -- | ID of volume to move.+    volumeId :: Core.Text,+    -- | Position on shelf to move the item (0 puts the item before the current first item, 1 puts it between the first and the second and so on.)+    volumePosition :: Core.Int32+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksMylibraryBookshelvesMoveVolume' with the minimum fields required to make a request.+newBooksMylibraryBookshelvesMoveVolume ::+  -- |  ID of bookshelf with the volume. See 'shelf'.+  Core.Text ->+  -- |  ID of volume to move. See 'volumeId'.+  Core.Text ->+  -- |  Position on shelf to move the item (0 puts the item before the current first item, 1 puts it between the first and the second and so on.) See 'volumePosition'.+  Core.Int32 ->+  BooksMylibraryBookshelvesMoveVolume+newBooksMylibraryBookshelvesMoveVolume+  shelf+  volumeId+  volumePosition =+    BooksMylibraryBookshelvesMoveVolume+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        shelf = shelf,+        source = Core.Nothing,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing,+        volumeId = volumeId,+        volumePosition = volumePosition+      }++instance Core.GoogleRequest BooksMylibraryBookshelvesMoveVolume where+  type Rs BooksMylibraryBookshelvesMoveVolume = Empty+  type+    Scopes BooksMylibraryBookshelvesMoveVolume =+      '[Books'FullControl]+  requestClient BooksMylibraryBookshelvesMoveVolume {..} =+    go+      shelf+      (Core.Just volumeId)+      (Core.Just volumePosition)+      xgafv+      accessToken+      callback+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy BooksMylibraryBookshelvesMoveVolumeResource+          )+          Core.mempty
+ gen/Gogol/Books/Mylibrary/Bookshelves/RemoveVolume.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.Books.Mylibrary.Bookshelves.RemoveVolume+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.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 volume from a bookshelf.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.mylibrary.bookshelves.removeVolume@.+module Gogol.Books.Mylibrary.Bookshelves.RemoveVolume+  ( -- * Resource+    BooksMylibraryBookshelvesRemoveVolumeResource,++    -- ** Constructing a Request+    BooksMylibraryBookshelvesRemoveVolume (..),+    newBooksMylibraryBookshelvesRemoveVolume,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.mylibrary.bookshelves.removeVolume@ method which the+-- 'BooksMylibraryBookshelvesRemoveVolume' request conforms to.+type BooksMylibraryBookshelvesRemoveVolumeResource =+  "books"+    Core.:> "v1"+    Core.:> "mylibrary"+    Core.:> "bookshelves"+    Core.:> Core.Capture "shelf" Core.Text+    Core.:> "removeVolume"+    Core.:> Core.QueryParam "volumeId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "reason" MylibraryBookshelvesRemoveVolumeReason+    Core.:> Core.QueryParam "source" 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] Empty++-- | Removes a volume from a bookshelf.+--+-- /See:/ 'newBooksMylibraryBookshelvesRemoveVolume' smart constructor.+data BooksMylibraryBookshelvesRemoveVolume = BooksMylibraryBookshelvesRemoveVolume+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The reason for which the book is removed from the library.+    reason :: (Core.Maybe MylibraryBookshelvesRemoveVolumeReason),+    -- | ID of bookshelf from which to remove a volume.+    shelf :: Core.Text,+    -- | String to identify the originator of this request.+    source :: (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),+    -- | ID of volume to remove.+    volumeId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksMylibraryBookshelvesRemoveVolume' with the minimum fields required to make a request.+newBooksMylibraryBookshelvesRemoveVolume ::+  -- |  ID of bookshelf from which to remove a volume. See 'shelf'.+  Core.Text ->+  -- |  ID of volume to remove. See 'volumeId'.+  Core.Text ->+  BooksMylibraryBookshelvesRemoveVolume+newBooksMylibraryBookshelvesRemoveVolume shelf volumeId =+  BooksMylibraryBookshelvesRemoveVolume+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      reason = Core.Nothing,+      shelf = shelf,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = volumeId+    }++instance Core.GoogleRequest BooksMylibraryBookshelvesRemoveVolume where+  type Rs BooksMylibraryBookshelvesRemoveVolume = Empty+  type+    Scopes BooksMylibraryBookshelvesRemoveVolume =+      '[Books'FullControl]+  requestClient BooksMylibraryBookshelvesRemoveVolume {..} =+    go+      shelf+      (Core.Just volumeId)+      xgafv+      accessToken+      callback+      reason+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy BooksMylibraryBookshelvesRemoveVolumeResource+          )+          Core.mempty
+ gen/Gogol/Books/Mylibrary/Bookshelves/Volumes/List.hs view
@@ -0,0 +1,152 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Mylibrary.Bookshelves.Volumes.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)+--+-- Gets volume information for volumes on a bookshelf.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.mylibrary.bookshelves.volumes.list@.+module Gogol.Books.Mylibrary.Bookshelves.Volumes.List+  ( -- * Resource+    BooksMylibraryBookshelvesVolumesListResource,++    -- ** Constructing a Request+    BooksMylibraryBookshelvesVolumesList (..),+    newBooksMylibraryBookshelvesVolumesList,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.mylibrary.bookshelves.volumes.list@ method which the+-- 'BooksMylibraryBookshelvesVolumesList' request conforms to.+type BooksMylibraryBookshelvesVolumesListResource =+  "books"+    Core.:> "v1"+    Core.:> "mylibrary"+    Core.:> "bookshelves"+    Core.:> Core.Capture "shelf" Core.Text+    Core.:> "volumes"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "country" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParam+              "projection"+              MylibraryBookshelvesVolumesListProjection+    Core.:> Core.QueryParam "q" Core.Text+    Core.:> Core.QueryParam "showPreorders" Core.Bool+    Core.:> Core.QueryParam "source" Core.Text+    Core.:> Core.QueryParam "startIndex" Core.Word32+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Volumes++-- | Gets volume information for volumes on a bookshelf.+--+-- /See:/ 'newBooksMylibraryBookshelvesVolumesList' smart constructor.+data BooksMylibraryBookshelvesVolumesList = BooksMylibraryBookshelvesVolumesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ISO-3166-1 code to override the IP-based location.+    country :: (Core.Maybe Core.Text),+    -- | Maximum number of results to return+    maxResults :: (Core.Maybe Core.Word32),+    -- | Restrict information returned to a set of selected fields.+    projection :: (Core.Maybe MylibraryBookshelvesVolumesListProjection),+    -- | Full-text search query string in this bookshelf.+    q :: (Core.Maybe Core.Text),+    -- | The bookshelf ID or name retrieve volumes for.+    shelf :: Core.Text,+    -- | Set to true to show pre-ordered books. Defaults to false.+    showPreorders :: (Core.Maybe Core.Bool),+    -- | String to identify the originator of this request.+    source :: (Core.Maybe Core.Text),+    -- | Index of the first element to return (starts at 0)+    startIndex :: (Core.Maybe Core.Word32),+    -- | Legacy upload protocol 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 'BooksMylibraryBookshelvesVolumesList' with the minimum fields required to make a request.+newBooksMylibraryBookshelvesVolumesList ::+  -- |  The bookshelf ID or name retrieve volumes for. See 'shelf'.+  Core.Text ->+  BooksMylibraryBookshelvesVolumesList+newBooksMylibraryBookshelvesVolumesList shelf =+  BooksMylibraryBookshelvesVolumesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      country = Core.Nothing,+      maxResults = Core.Nothing,+      projection = Core.Nothing,+      q = Core.Nothing,+      shelf = shelf,+      showPreorders = Core.Nothing,+      source = Core.Nothing,+      startIndex = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksMylibraryBookshelvesVolumesList where+  type Rs BooksMylibraryBookshelvesVolumesList = Volumes+  type+    Scopes BooksMylibraryBookshelvesVolumesList =+      '[Books'FullControl]+  requestClient BooksMylibraryBookshelvesVolumesList {..} =+    go+      shelf+      xgafv+      accessToken+      callback+      country+      maxResults+      projection+      q+      showPreorders+      source+      startIndex+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy BooksMylibraryBookshelvesVolumesListResource+          )+          Core.mempty
+ gen/Gogol/Books/Mylibrary/Readingpositions/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.Books.Mylibrary.Readingpositions.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 my reading position information for a volume.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.mylibrary.readingpositions.get@.+module Gogol.Books.Mylibrary.Readingpositions.Get+  ( -- * Resource+    BooksMylibraryReadingpositionsGetResource,++    -- ** Constructing a Request+    BooksMylibraryReadingpositionsGet (..),+    newBooksMylibraryReadingpositionsGet,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.mylibrary.readingpositions.get@ method which the+-- 'BooksMylibraryReadingpositionsGet' request conforms to.+type BooksMylibraryReadingpositionsGetResource =+  "books"+    Core.:> "v1"+    Core.:> "mylibrary"+    Core.:> "readingpositions"+    Core.:> Core.Capture "volumeId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "contentVersion" Core.Text+    Core.:> Core.QueryParam "source" 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] ReadingPosition++-- | Retrieves my reading position information for a volume.+--+-- /See:/ 'newBooksMylibraryReadingpositionsGet' smart constructor.+data BooksMylibraryReadingpositionsGet = BooksMylibraryReadingpositionsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Volume content version for which this reading position is requested.+    contentVersion :: (Core.Maybe Core.Text),+    -- | String to identify the originator of this request.+    source :: (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),+    -- | ID of volume for which to retrieve a reading position.+    volumeId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksMylibraryReadingpositionsGet' with the minimum fields required to make a request.+newBooksMylibraryReadingpositionsGet ::+  -- |  ID of volume for which to retrieve a reading position. See 'volumeId'.+  Core.Text ->+  BooksMylibraryReadingpositionsGet+newBooksMylibraryReadingpositionsGet volumeId =+  BooksMylibraryReadingpositionsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      contentVersion = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = volumeId+    }++instance Core.GoogleRequest BooksMylibraryReadingpositionsGet where+  type Rs BooksMylibraryReadingpositionsGet = ReadingPosition+  type+    Scopes BooksMylibraryReadingpositionsGet =+      '[Books'FullControl]+  requestClient BooksMylibraryReadingpositionsGet {..} =+    go+      volumeId+      xgafv+      accessToken+      callback+      contentVersion+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy BooksMylibraryReadingpositionsGetResource+          )+          Core.mempty
+ gen/Gogol/Books/Mylibrary/Readingpositions/SetPosition.hs view
@@ -0,0 +1,155 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Mylibrary.Readingpositions.SetPosition+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Sets my reading position information for a volume.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.mylibrary.readingpositions.setPosition@.+module Gogol.Books.Mylibrary.Readingpositions.SetPosition+  ( -- * Resource+    BooksMylibraryReadingpositionsSetPositionResource,++    -- ** Constructing a Request+    BooksMylibraryReadingpositionsSetPosition (..),+    newBooksMylibraryReadingpositionsSetPosition,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.mylibrary.readingpositions.setPosition@ method which the+-- 'BooksMylibraryReadingpositionsSetPosition' request conforms to.+type BooksMylibraryReadingpositionsSetPositionResource =+  "books"+    Core.:> "v1"+    Core.:> "mylibrary"+    Core.:> "readingpositions"+    Core.:> Core.Capture "volumeId" Core.Text+    Core.:> "setPosition"+    Core.:> Core.QueryParam "position" Core.Text+    Core.:> Core.QueryParam "timestamp" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "action" MylibraryReadingpositionsSetPositionAction+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "contentVersion" Core.Text+    Core.:> Core.QueryParam "deviceCookie" Core.Text+    Core.:> Core.QueryParam "source" 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] Empty++-- | Sets my reading position information for a volume.+--+-- /See:/ 'newBooksMylibraryReadingpositionsSetPosition' smart constructor.+data BooksMylibraryReadingpositionsSetPosition = BooksMylibraryReadingpositionsSetPosition+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | Action that caused this reading position to be set.+    action :: (Core.Maybe MylibraryReadingpositionsSetPositionAction),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Volume content version for which this reading position applies.+    contentVersion :: (Core.Maybe Core.Text),+    -- | Random persistent device cookie optional on set position.+    deviceCookie :: (Core.Maybe Core.Text),+    -- | Position string for the new volume reading position.+    position :: Core.Text,+    -- | String to identify the originator of this request.+    source :: (Core.Maybe Core.Text),+    -- | RFC 3339 UTC format timestamp associated with this reading position.+    timestamp :: 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),+    -- | ID of volume for which to update the reading position.+    volumeId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksMylibraryReadingpositionsSetPosition' with the minimum fields required to make a request.+newBooksMylibraryReadingpositionsSetPosition ::+  -- |  Position string for the new volume reading position. See 'position'.+  Core.Text ->+  -- |  RFC 3339 UTC format timestamp associated with this reading position. See 'timestamp'.+  Core.Text ->+  -- |  ID of volume for which to update the reading position. See 'volumeId'.+  Core.Text ->+  BooksMylibraryReadingpositionsSetPosition+newBooksMylibraryReadingpositionsSetPosition+  position+  timestamp+  volumeId =+    BooksMylibraryReadingpositionsSetPosition+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        action = Core.Nothing,+        callback = Core.Nothing,+        contentVersion = Core.Nothing,+        deviceCookie = Core.Nothing,+        position = position,+        source = Core.Nothing,+        timestamp = timestamp,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing,+        volumeId = volumeId+      }++instance+  Core.GoogleRequest+    BooksMylibraryReadingpositionsSetPosition+  where+  type Rs BooksMylibraryReadingpositionsSetPosition = Empty+  type+    Scopes BooksMylibraryReadingpositionsSetPosition =+      '[Books'FullControl]+  requestClient BooksMylibraryReadingpositionsSetPosition {..} =+    go+      volumeId+      (Core.Just position)+      (Core.Just timestamp)+      xgafv+      accessToken+      action+      callback+      contentVersion+      deviceCookie+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy BooksMylibraryReadingpositionsSetPositionResource+          )+          Core.mempty
+ gen/Gogol/Books/Notification/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.Books.Notification.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 notification details for a given notification id.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.notification.get@.+module Gogol.Books.Notification.Get+  ( -- * Resource+    BooksNotificationGetResource,++    -- ** Constructing a Request+    BooksNotificationGet (..),+    newBooksNotificationGet,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.notification.get@ method which the+-- 'BooksNotificationGet' request conforms to.+type BooksNotificationGetResource =+  "books"+    Core.:> "v1"+    Core.:> "notification"+    Core.:> "get"+    Core.:> Core.QueryParam "notification_id" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam "source" 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] Notification++-- | Returns notification details for a given notification id.+--+-- /See:/ 'newBooksNotificationGet' smart constructor.+data BooksNotificationGet = BooksNotificationGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'. Used for generating notification title and body.+    locale :: (Core.Maybe Core.Text),+    -- | String to identify the notification.+    notificationId :: Core.Text,+    -- | String to identify the originator of this request.+    source :: (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 'BooksNotificationGet' with the minimum fields required to make a request.+newBooksNotificationGet ::+  -- |  String to identify the notification. See 'notificationId'.+  Core.Text ->+  BooksNotificationGet+newBooksNotificationGet notificationId =+  BooksNotificationGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      locale = Core.Nothing,+      notificationId = notificationId,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksNotificationGet where+  type Rs BooksNotificationGet = Notification+  type Scopes BooksNotificationGet = '[Books'FullControl]+  requestClient BooksNotificationGet {..} =+    go+      (Core.Just notificationId)+      xgafv+      accessToken+      callback+      locale+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksNotificationGetResource)+          Core.mempty
+ gen/Gogol/Books/Onboarding/ListCategories.hs view
@@ -0,0 +1,108 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Onboarding.ListCategories+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.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 categories for onboarding experience.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.onboarding.listCategories@.+module Gogol.Books.Onboarding.ListCategories+  ( -- * Resource+    BooksOnboardingListCategoriesResource,++    -- ** Constructing a Request+    BooksOnboardingListCategories (..),+    newBooksOnboardingListCategories,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.onboarding.listCategories@ method which the+-- 'BooksOnboardingListCategories' request conforms to.+type BooksOnboardingListCategoriesResource =+  "books"+    Core.:> "v1"+    Core.:> "onboarding"+    Core.:> "listCategories"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "locale" 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] Category++-- | List categories for onboarding experience.+--+-- /See:/ 'newBooksOnboardingListCategories' smart constructor.+data BooksOnboardingListCategories = BooksOnboardingListCategories+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ISO-639-1 language and ISO-3166-1 country code. Default is en-US if unset.+    locale :: (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 'BooksOnboardingListCategories' with the minimum fields required to make a request.+newBooksOnboardingListCategories ::+  BooksOnboardingListCategories+newBooksOnboardingListCategories =+  BooksOnboardingListCategories+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      locale = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksOnboardingListCategories where+  type Rs BooksOnboardingListCategories = Category+  type Scopes BooksOnboardingListCategories = '[Books'FullControl]+  requestClient BooksOnboardingListCategories {..} =+    go+      xgafv+      accessToken+      callback+      locale+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksOnboardingListCategoriesResource)+          Core.mempty
+ gen/Gogol/Books/Onboarding/ListCategoryVolumes.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.Books.Onboarding.ListCategoryVolumes+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.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 available volumes under categories for onboarding experience.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.onboarding.listCategoryVolumes@.+module Gogol.Books.Onboarding.ListCategoryVolumes+  ( -- * Resource+    BooksOnboardingListCategoryVolumesResource,++    -- ** Constructing a Request+    BooksOnboardingListCategoryVolumes (..),+    newBooksOnboardingListCategoryVolumes,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.onboarding.listCategoryVolumes@ method which the+-- 'BooksOnboardingListCategoryVolumes' request conforms to.+type BooksOnboardingListCategoryVolumesResource =+  "books"+    Core.:> "v1"+    Core.:> "onboarding"+    Core.:> "listCategoryVolumes"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParams "categoryId" Core.Text+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam+              "maxAllowedMaturityRating"+              OnboardingListCategoryVolumesMaxAllowedMaturityRating+    Core.:> Core.QueryParam "pageSize" Core.Word32+    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] Volume2++-- | List available volumes under categories for onboarding experience.+--+-- /See:/ 'newBooksOnboardingListCategoryVolumes' smart constructor.+data BooksOnboardingListCategoryVolumes = BooksOnboardingListCategoryVolumes+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | List of category ids requested.+    categoryId :: (Core.Maybe [Core.Text]),+    -- | ISO-639-1 language and ISO-3166-1 country code. Default is en-US if unset.+    locale :: (Core.Maybe Core.Text),+    -- | The maximum allowed maturity rating of returned volumes. Books with a higher maturity rating are filtered out.+    maxAllowedMaturityRating :: (Core.Maybe OnboardingListCategoryVolumesMaxAllowedMaturityRating),+    -- | Number of maximum results per page to be included in the response.+    pageSize :: (Core.Maybe Core.Word32),+    -- | The value of the nextToken from the previous page.+    pageToken :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksOnboardingListCategoryVolumes' with the minimum fields required to make a request.+newBooksOnboardingListCategoryVolumes ::+  BooksOnboardingListCategoryVolumes+newBooksOnboardingListCategoryVolumes =+  BooksOnboardingListCategoryVolumes+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      categoryId = Core.Nothing,+      locale = Core.Nothing,+      maxAllowedMaturityRating = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksOnboardingListCategoryVolumes where+  type Rs BooksOnboardingListCategoryVolumes = Volume2+  type+    Scopes BooksOnboardingListCategoryVolumes =+      '[Books'FullControl]+  requestClient BooksOnboardingListCategoryVolumes {..} =+    go+      xgafv+      accessToken+      callback+      (categoryId Core.^. Core._Default)+      locale+      maxAllowedMaturityRating+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy BooksOnboardingListCategoryVolumesResource+          )+          Core.mempty
+ gen/Gogol/Books/Personalizedstream/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.Books.Personalizedstream.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 stream of personalized book clusters+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.personalizedstream.get@.+module Gogol.Books.Personalizedstream.Get+  ( -- * Resource+    BooksPersonalizedstreamGetResource,++    -- ** Constructing a Request+    BooksPersonalizedstreamGet (..),+    newBooksPersonalizedstreamGet,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.personalizedstream.get@ method which the+-- 'BooksPersonalizedstreamGet' request conforms to.+type BooksPersonalizedstreamGetResource =+  "books"+    Core.:> "v1"+    Core.:> "personalizedstream"+    Core.:> "get"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam+              "maxAllowedMaturityRating"+              PersonalizedstreamGetMaxAllowedMaturityRating+    Core.:> Core.QueryParam "source" 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] Discoveryclusters++-- | Returns a stream of personalized book clusters+--+-- /See:/ 'newBooksPersonalizedstreamGet' smart constructor.+data BooksPersonalizedstreamGet = BooksPersonalizedstreamGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'. Used for generating recommendations.+    locale :: (Core.Maybe Core.Text),+    -- | The maximum allowed maturity rating of returned recommendations. Books with a higher maturity rating are filtered out.+    maxAllowedMaturityRating :: (Core.Maybe PersonalizedstreamGetMaxAllowedMaturityRating),+    -- | String to identify the originator of this request.+    source :: (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 'BooksPersonalizedstreamGet' with the minimum fields required to make a request.+newBooksPersonalizedstreamGet ::+  BooksPersonalizedstreamGet+newBooksPersonalizedstreamGet =+  BooksPersonalizedstreamGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      locale = Core.Nothing,+      maxAllowedMaturityRating = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksPersonalizedstreamGet where+  type Rs BooksPersonalizedstreamGet = Discoveryclusters+  type Scopes BooksPersonalizedstreamGet = '[Books'FullControl]+  requestClient BooksPersonalizedstreamGet {..} =+    go+      xgafv+      accessToken+      callback+      locale+      maxAllowedMaturityRating+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksPersonalizedstreamGetResource)+          Core.mempty
+ gen/Gogol/Books/Promooffer/Accept.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.Books.Promooffer.Accept+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Accepts the promo offer.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.promooffer.accept@.+module Gogol.Books.Promooffer.Accept+  ( -- * Resource+    BooksPromoofferAcceptResource,++    -- ** Constructing a Request+    BooksPromoofferAccept (..),+    newBooksPromoofferAccept,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.promooffer.accept@ method which the+-- 'BooksPromoofferAccept' request conforms to.+type BooksPromoofferAcceptResource =+  "books"+    Core.:> "v1"+    Core.:> "promooffer"+    Core.:> "accept"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "androidId" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "device" Core.Text+    Core.:> Core.QueryParam "manufacturer" Core.Text+    Core.:> Core.QueryParam "model" Core.Text+    Core.:> Core.QueryParam "offerId" Core.Text+    Core.:> Core.QueryParam "product" Core.Text+    Core.:> Core.QueryParam "serial" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "volumeId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Post '[Core.JSON] Empty++-- | Accepts the promo offer.+--+-- /See:/ 'newBooksPromoofferAccept' smart constructor.+data BooksPromoofferAccept = BooksPromoofferAccept+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | device android_id+    androidId :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | device device+    device :: (Core.Maybe Core.Text),+    -- | device manufacturer+    manufacturer :: (Core.Maybe Core.Text),+    -- | device model+    model :: (Core.Maybe Core.Text),+    offerId :: (Core.Maybe Core.Text),+    -- | device product+    product :: (Core.Maybe Core.Text),+    -- | device serial+    serial :: (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),+    -- | Volume id to exercise the offer+    volumeId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksPromoofferAccept' with the minimum fields required to make a request.+newBooksPromoofferAccept ::+  BooksPromoofferAccept+newBooksPromoofferAccept =+  BooksPromoofferAccept+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      androidId = Core.Nothing,+      callback = Core.Nothing,+      device = Core.Nothing,+      manufacturer = Core.Nothing,+      model = Core.Nothing,+      offerId = Core.Nothing,+      product = Core.Nothing,+      serial = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.GoogleRequest BooksPromoofferAccept where+  type Rs BooksPromoofferAccept = Empty+  type Scopes BooksPromoofferAccept = '[Books'FullControl]+  requestClient BooksPromoofferAccept {..} =+    go+      xgafv+      accessToken+      androidId+      callback+      device+      manufacturer+      model+      offerId+      product+      serial+      uploadType+      uploadProtocol+      volumeId+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksPromoofferAcceptResource)+          Core.mempty
+ gen/Gogol/Books/Promooffer/Dismiss.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.Books.Promooffer.Dismiss+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Marks the promo offer as dismissed.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.promooffer.dismiss@.+module Gogol.Books.Promooffer.Dismiss+  ( -- * Resource+    BooksPromoofferDismissResource,++    -- ** Constructing a Request+    BooksPromoofferDismiss (..),+    newBooksPromoofferDismiss,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.promooffer.dismiss@ method which the+-- 'BooksPromoofferDismiss' request conforms to.+type BooksPromoofferDismissResource =+  "books"+    Core.:> "v1"+    Core.:> "promooffer"+    Core.:> "dismiss"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "androidId" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "device" Core.Text+    Core.:> Core.QueryParam "manufacturer" Core.Text+    Core.:> Core.QueryParam "model" Core.Text+    Core.:> Core.QueryParam "offerId" Core.Text+    Core.:> Core.QueryParam "product" Core.Text+    Core.:> Core.QueryParam "serial" 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] Empty++-- | Marks the promo offer as dismissed.+--+-- /See:/ 'newBooksPromoofferDismiss' smart constructor.+data BooksPromoofferDismiss = BooksPromoofferDismiss+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | device android_id+    androidId :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | device device+    device :: (Core.Maybe Core.Text),+    -- | device manufacturer+    manufacturer :: (Core.Maybe Core.Text),+    -- | device model+    model :: (Core.Maybe Core.Text),+    -- | Offer to dimiss+    offerId :: (Core.Maybe Core.Text),+    -- | device product+    product :: (Core.Maybe Core.Text),+    -- | device serial+    serial :: (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 'BooksPromoofferDismiss' with the minimum fields required to make a request.+newBooksPromoofferDismiss ::+  BooksPromoofferDismiss+newBooksPromoofferDismiss =+  BooksPromoofferDismiss+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      androidId = Core.Nothing,+      callback = Core.Nothing,+      device = Core.Nothing,+      manufacturer = Core.Nothing,+      model = Core.Nothing,+      offerId = Core.Nothing,+      product = Core.Nothing,+      serial = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksPromoofferDismiss where+  type Rs BooksPromoofferDismiss = Empty+  type Scopes BooksPromoofferDismiss = '[Books'FullControl]+  requestClient BooksPromoofferDismiss {..} =+    go+      xgafv+      accessToken+      androidId+      callback+      device+      manufacturer+      model+      offerId+      product+      serial+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksPromoofferDismissResource)+          Core.mempty
+ gen/Gogol/Books/Promooffer/Get.hs view
@@ -0,0 +1,133 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Promooffer.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 list of promo offers available to the user+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.promooffer.get@.+module Gogol.Books.Promooffer.Get+  ( -- * Resource+    BooksPromoofferGetResource,++    -- ** Constructing a Request+    BooksPromoofferGet (..),+    newBooksPromoofferGet,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.promooffer.get@ method which the+-- 'BooksPromoofferGet' request conforms to.+type BooksPromoofferGetResource =+  "books"+    Core.:> "v1"+    Core.:> "promooffer"+    Core.:> "get"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "androidId" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "device" Core.Text+    Core.:> Core.QueryParam "manufacturer" Core.Text+    Core.:> Core.QueryParam "model" Core.Text+    Core.:> Core.QueryParam "product" Core.Text+    Core.:> Core.QueryParam "serial" 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] Offers++-- | Returns a list of promo offers available to the user+--+-- /See:/ 'newBooksPromoofferGet' smart constructor.+data BooksPromoofferGet = BooksPromoofferGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | device android_id+    androidId :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | device device+    device :: (Core.Maybe Core.Text),+    -- | device manufacturer+    manufacturer :: (Core.Maybe Core.Text),+    -- | device model+    model :: (Core.Maybe Core.Text),+    -- | device product+    product :: (Core.Maybe Core.Text),+    -- | device serial+    serial :: (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 'BooksPromoofferGet' with the minimum fields required to make a request.+newBooksPromoofferGet ::+  BooksPromoofferGet+newBooksPromoofferGet =+  BooksPromoofferGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      androidId = Core.Nothing,+      callback = Core.Nothing,+      device = Core.Nothing,+      manufacturer = Core.Nothing,+      model = Core.Nothing,+      product = Core.Nothing,+      serial = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksPromoofferGet where+  type Rs BooksPromoofferGet = Offers+  type Scopes BooksPromoofferGet = '[Books'FullControl]+  requestClient BooksPromoofferGet {..} =+    go+      xgafv+      accessToken+      androidId+      callback+      device+      manufacturer+      model+      product+      serial+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksPromoofferGetResource)+          Core.mempty
+ gen/Gogol/Books/Series/Get.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.Books.Series.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 Series metadata for the given series ids.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.series.get@.+module Gogol.Books.Series.Get+  ( -- * Resource+    BooksSeriesGetResource,++    -- ** Constructing a Request+    BooksSeriesGet (..),+    newBooksSeriesGet,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.series.get@ method which the+-- 'BooksSeriesGet' request conforms to.+type BooksSeriesGetResource =+  "books"+    Core.:> "v1"+    Core.:> "series"+    Core.:> "get"+    Core.:> Core.QueryParams "series_id" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Series++-- | Returns Series metadata for the given series ids.+--+-- /See:/ 'newBooksSeriesGet' smart constructor.+data BooksSeriesGet = BooksSeriesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | String that identifies the series+    seriesId :: [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 'BooksSeriesGet' with the minimum fields required to make a request.+newBooksSeriesGet ::+  -- |  String that identifies the series See 'seriesId'.+  [Core.Text] ->+  BooksSeriesGet+newBooksSeriesGet seriesId =+  BooksSeriesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      seriesId = seriesId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksSeriesGet where+  type Rs BooksSeriesGet = Series+  type Scopes BooksSeriesGet = '[Books'FullControl]+  requestClient BooksSeriesGet {..} =+    go+      seriesId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksSeriesGetResource)+          Core.mempty
+ gen/Gogol/Books/Series/Membership/Get.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.Books.Series.Membership.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 Series membership data given the series id.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.series.membership.get@.+module Gogol.Books.Series.Membership.Get+  ( -- * Resource+    BooksSeriesMembershipGetResource,++    -- ** Constructing a Request+    BooksSeriesMembershipGet (..),+    newBooksSeriesMembershipGet,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.series.membership.get@ method which the+-- 'BooksSeriesMembershipGet' request conforms to.+type BooksSeriesMembershipGetResource =+  "books"+    Core.:> "v1"+    Core.:> "series"+    Core.:> "membership"+    Core.:> "get"+    Core.:> Core.QueryParam "series_id" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "page_size" Core.Word32+    Core.:> Core.QueryParam "page_token" 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] Seriesmembership++-- | Returns Series membership data given the series id.+--+-- /See:/ 'newBooksSeriesMembershipGet' smart constructor.+data BooksSeriesMembershipGet = BooksSeriesMembershipGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Number of maximum results per page to be included in the response.+    pageSize :: (Core.Maybe Core.Word32),+    -- | The value of the nextToken from the previous page.+    pageToken :: (Core.Maybe Core.Text),+    -- | String that identifies the series+    seriesId :: 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 'BooksSeriesMembershipGet' with the minimum fields required to make a request.+newBooksSeriesMembershipGet ::+  -- |  String that identifies the series See 'seriesId'.+  Core.Text ->+  BooksSeriesMembershipGet+newBooksSeriesMembershipGet seriesId =+  BooksSeriesMembershipGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      seriesId = seriesId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksSeriesMembershipGet where+  type Rs BooksSeriesMembershipGet = Seriesmembership+  type Scopes BooksSeriesMembershipGet = '[Books'FullControl]+  requestClient BooksSeriesMembershipGet {..} =+    go+      (Core.Just seriesId)+      xgafv+      accessToken+      callback+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksSeriesMembershipGetResource)+          Core.mempty
+ gen/Gogol/Books/Types.hs view
@@ -0,0 +1,565 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.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.Books.Types+  ( -- * Configuration+    booksService,++    -- * OAuth Scopes+    Books'FullControl,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** Annotation+    Annotation (..),+    newAnnotation,++    -- ** Annotation_ClientVersionRanges+    Annotation_ClientVersionRanges (..),+    newAnnotation_ClientVersionRanges,++    -- ** Annotation_CurrentVersionRanges+    Annotation_CurrentVersionRanges (..),+    newAnnotation_CurrentVersionRanges,++    -- ** Annotation_LayerSummary+    Annotation_LayerSummary (..),+    newAnnotation_LayerSummary,++    -- ** Annotations+    Annotations (..),+    newAnnotations,++    -- ** AnnotationsSummary+    AnnotationsSummary (..),+    newAnnotationsSummary,++    -- ** AnnotationsSummary_LayersItem+    AnnotationsSummary_LayersItem (..),+    newAnnotationsSummary_LayersItem,++    -- ** Annotationsdata+    Annotationsdata (..),+    newAnnotationsdata,++    -- ** BooksAnnotationsRange+    BooksAnnotationsRange (..),+    newBooksAnnotationsRange,++    -- ** BooksCloudloadingResource+    BooksCloudloadingResource (..),+    newBooksCloudloadingResource,++    -- ** BooksVolumesRecommendedRateResponse+    BooksVolumesRecommendedRateResponse (..),+    newBooksVolumesRecommendedRateResponse,++    -- ** Bookshelf+    Bookshelf (..),+    newBookshelf,++    -- ** Bookshelves+    Bookshelves (..),+    newBookshelves,++    -- ** Category+    Category (..),+    newCategory,++    -- ** Category_ItemsItem+    Category_ItemsItem (..),+    newCategory_ItemsItem,++    -- ** ConcurrentAccessRestriction+    ConcurrentAccessRestriction (..),+    newConcurrentAccessRestriction,++    -- ** DictionaryAnnotationdata+    DictionaryAnnotationdata (..),+    newDictionaryAnnotationdata,++    -- ** Dictlayerdata+    Dictlayerdata (..),+    newDictlayerdata,++    -- ** Dictlayerdata_Common+    Dictlayerdata_Common (..),+    newDictlayerdata_Common,++    -- ** Dictlayerdata_Dict+    Dictlayerdata_Dict (..),+    newDictlayerdata_Dict,++    -- ** Dictlayerdata_Dict_Source+    Dictlayerdata_Dict_Source (..),+    newDictlayerdata_Dict_Source,++    -- ** Dictlayerdata_Dict_WordsItem+    Dictlayerdata_Dict_WordsItem (..),+    newDictlayerdata_Dict_WordsItem,++    -- ** Dictlayerdata_Dict_WordsItem_DerivativesItem+    Dictlayerdata_Dict_WordsItem_DerivativesItem (..),+    newDictlayerdata_Dict_WordsItem_DerivativesItem,++    -- ** Dictlayerdata_Dict_WordsItem_DerivativesItem_Source+    Dictlayerdata_Dict_WordsItem_DerivativesItem_Source (..),+    newDictlayerdata_Dict_WordsItem_DerivativesItem_Source,++    -- ** Dictlayerdata_Dict_WordsItem_ExamplesItem+    Dictlayerdata_Dict_WordsItem_ExamplesItem (..),+    newDictlayerdata_Dict_WordsItem_ExamplesItem,++    -- ** Dictlayerdata_Dict_WordsItem_ExamplesItem_Source+    Dictlayerdata_Dict_WordsItem_ExamplesItem_Source (..),+    newDictlayerdata_Dict_WordsItem_ExamplesItem_Source,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem+    Dictlayerdata_Dict_WordsItem_SensesItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem+    Dictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_ConjugationsItem,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source+    Dictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_DefinitionsItem_ExamplesItem_Source,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem_Source+    Dictlayerdata_Dict_WordsItem_SensesItem_Source (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_Source,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem+    Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem,++    -- ** Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source+    Dictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source (..),+    newDictlayerdata_Dict_WordsItem_SensesItem_SynonymsItem_Source,++    -- ** Dictlayerdata_Dict_WordsItem_Source+    Dictlayerdata_Dict_WordsItem_Source (..),+    newDictlayerdata_Dict_WordsItem_Source,++    -- ** Discoveryclusters+    Discoveryclusters (..),+    newDiscoveryclusters,++    -- ** Discoveryclusters_ClustersItem+    Discoveryclusters_ClustersItem (..),+    newDiscoveryclusters_ClustersItem,++    -- ** Discoveryclusters_ClustersItem_Banner_with_content_container+    Discoveryclusters_ClustersItem_Banner_with_content_container (..),+    newDiscoveryclusters_ClustersItem_Banner_with_content_container,++    -- ** DownloadAccessRestriction+    DownloadAccessRestriction (..),+    newDownloadAccessRestriction,++    -- ** DownloadAccesses+    DownloadAccesses (..),+    newDownloadAccesses,++    -- ** Empty+    Empty (..),+    newEmpty,++    -- ** FamilyInfo+    FamilyInfo (..),+    newFamilyInfo,++    -- ** FamilyInfo_Membership+    FamilyInfo_Membership (..),+    newFamilyInfo_Membership,++    -- ** GeoAnnotationdata+    GeoAnnotationdata (..),+    newGeoAnnotationdata,++    -- ** Geolayerdata+    Geolayerdata (..),+    newGeolayerdata,++    -- ** Geolayerdata_Common+    Geolayerdata_Common (..),+    newGeolayerdata_Common,++    -- ** Geolayerdata_Geo+    Geolayerdata_Geo (..),+    newGeolayerdata_Geo,++    -- ** Geolayerdata_Geo_Viewport+    Geolayerdata_Geo_Viewport (..),+    newGeolayerdata_Geo_Viewport,++    -- ** Geolayerdata_Geo_Viewport_Hi+    Geolayerdata_Geo_Viewport_Hi (..),+    newGeolayerdata_Geo_Viewport_Hi,++    -- ** Geolayerdata_Geo_Viewport_Lo+    Geolayerdata_Geo_Viewport_Lo (..),+    newGeolayerdata_Geo_Viewport_Lo,++    -- ** Layersummaries+    Layersummaries (..),+    newLayersummaries,++    -- ** Layersummary+    Layersummary (..),+    newLayersummary,++    -- ** Metadata+    Metadata (..),+    newMetadata,++    -- ** Metadata_ItemsItem+    Metadata_ItemsItem (..),+    newMetadata_ItemsItem,++    -- ** Notification+    Notification (..),+    newNotification,++    -- ** Offers+    Offers (..),+    newOffers,++    -- ** Offers_ItemsItem+    Offers_ItemsItem (..),+    newOffers_ItemsItem,++    -- ** Offers_ItemsItem_ItemsItem+    Offers_ItemsItem_ItemsItem (..),+    newOffers_ItemsItem_ItemsItem,++    -- ** ReadingPosition+    ReadingPosition (..),+    newReadingPosition,++    -- ** RequestAccessData+    RequestAccessData (..),+    newRequestAccessData,++    -- ** Review+    Review (..),+    newReview,++    -- ** Review_Author+    Review_Author (..),+    newReview_Author,++    -- ** Review_Source+    Review_Source (..),+    newReview_Source,++    -- ** Series+    Series (..),+    newSeries,++    -- ** Series_SeriesItem+    Series_SeriesItem (..),+    newSeries_SeriesItem,++    -- ** Series_SeriesItem_SeriesSubscriptionReleaseInfo+    Series_SeriesItem_SeriesSubscriptionReleaseInfo (..),+    newSeries_SeriesItem_SeriesSubscriptionReleaseInfo,++    -- ** Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo+    Series_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo (..),+    newSeries_SeriesItem_SeriesSubscriptionReleaseInfo_CurrentReleaseInfo,++    -- ** Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo+    Series_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo (..),+    newSeries_SeriesItem_SeriesSubscriptionReleaseInfo_NextReleaseInfo,++    -- ** Seriesmembership+    Seriesmembership (..),+    newSeriesmembership,++    -- ** Usersettings+    Usersettings (..),+    newUsersettings,++    -- ** Usersettings_NotesExport+    Usersettings_NotesExport (..),+    newUsersettings_NotesExport,++    -- ** Usersettings_Notification+    Usersettings_Notification (..),+    newUsersettings_Notification,++    -- ** Usersettings_Notification_MatchMyInterests+    Usersettings_Notification_MatchMyInterests (..),+    newUsersettings_Notification_MatchMyInterests,++    -- ** Usersettings_Notification_MoreFromAuthors+    Usersettings_Notification_MoreFromAuthors (..),+    newUsersettings_Notification_MoreFromAuthors,++    -- ** Usersettings_Notification_MoreFromSeries+    Usersettings_Notification_MoreFromSeries (..),+    newUsersettings_Notification_MoreFromSeries,++    -- ** Usersettings_Notification_PriceDrop+    Usersettings_Notification_PriceDrop (..),+    newUsersettings_Notification_PriceDrop,++    -- ** Usersettings_Notification_RewardExpirations+    Usersettings_Notification_RewardExpirations (..),+    newUsersettings_Notification_RewardExpirations,++    -- ** Volume+    Volume (..),+    newVolume,++    -- ** Volume_AccessInfo+    Volume_AccessInfo (..),+    newVolume_AccessInfo,++    -- ** Volume_AccessInfo_Epub+    Volume_AccessInfo_Epub (..),+    newVolume_AccessInfo_Epub,++    -- ** Volume_AccessInfo_Pdf+    Volume_AccessInfo_Pdf (..),+    newVolume_AccessInfo_Pdf,++    -- ** Volume_LayerInfo+    Volume_LayerInfo (..),+    newVolume_LayerInfo,++    -- ** Volume_LayerInfo_LayersItem+    Volume_LayerInfo_LayersItem (..),+    newVolume_LayerInfo_LayersItem,++    -- ** Volume_RecommendedInfo+    Volume_RecommendedInfo (..),+    newVolume_RecommendedInfo,++    -- ** Volume_SaleInfo+    Volume_SaleInfo (..),+    newVolume_SaleInfo,++    -- ** Volume_SaleInfo_ListPrice+    Volume_SaleInfo_ListPrice (..),+    newVolume_SaleInfo_ListPrice,++    -- ** Volume_SaleInfo_OffersItem+    Volume_SaleInfo_OffersItem (..),+    newVolume_SaleInfo_OffersItem,++    -- ** Volume_SaleInfo_OffersItem_ListPrice+    Volume_SaleInfo_OffersItem_ListPrice (..),+    newVolume_SaleInfo_OffersItem_ListPrice,++    -- ** Volume_SaleInfo_OffersItem_RentalDuration+    Volume_SaleInfo_OffersItem_RentalDuration (..),+    newVolume_SaleInfo_OffersItem_RentalDuration,++    -- ** Volume_SaleInfo_OffersItem_RetailPrice+    Volume_SaleInfo_OffersItem_RetailPrice (..),+    newVolume_SaleInfo_OffersItem_RetailPrice,++    -- ** Volume_SaleInfo_RetailPrice+    Volume_SaleInfo_RetailPrice (..),+    newVolume_SaleInfo_RetailPrice,++    -- ** Volume_SearchInfo+    Volume_SearchInfo (..),+    newVolume_SearchInfo,++    -- ** Volume_UserInfo+    Volume_UserInfo (..),+    newVolume_UserInfo,++    -- ** Volume_UserInfo_Copy+    Volume_UserInfo_Copy (..),+    newVolume_UserInfo_Copy,++    -- ** Volume_UserInfo_FamilySharing+    Volume_UserInfo_FamilySharing (..),+    newVolume_UserInfo_FamilySharing,++    -- ** Volume_UserInfo_RentalPeriod+    Volume_UserInfo_RentalPeriod (..),+    newVolume_UserInfo_RentalPeriod,++    -- ** Volume_UserInfo_UserUploadedVolumeInfo+    Volume_UserInfo_UserUploadedVolumeInfo (..),+    newVolume_UserInfo_UserUploadedVolumeInfo,++    -- ** Volume_VolumeInfo+    Volume_VolumeInfo (..),+    newVolume_VolumeInfo,++    -- ** Volume_VolumeInfo_Dimensions+    Volume_VolumeInfo_Dimensions (..),+    newVolume_VolumeInfo_Dimensions,++    -- ** Volume_VolumeInfo_ImageLinks+    Volume_VolumeInfo_ImageLinks (..),+    newVolume_VolumeInfo_ImageLinks,++    -- ** Volume_VolumeInfo_IndustryIdentifiersItem+    Volume_VolumeInfo_IndustryIdentifiersItem (..),+    newVolume_VolumeInfo_IndustryIdentifiersItem,++    -- ** Volume_VolumeInfo_PanelizationSummary+    Volume_VolumeInfo_PanelizationSummary (..),+    newVolume_VolumeInfo_PanelizationSummary,++    -- ** Volume_VolumeInfo_ReadingModes+    Volume_VolumeInfo_ReadingModes (..),+    newVolume_VolumeInfo_ReadingModes,++    -- ** Volume2+    Volume2 (..),+    newVolume2,++    -- ** Volumeannotation+    Volumeannotation (..),+    newVolumeannotation,++    -- ** Volumeannotation_ContentRanges+    Volumeannotation_ContentRanges (..),+    newVolumeannotation_ContentRanges,++    -- ** Volumeannotations+    Volumeannotations (..),+    newVolumeannotations,++    -- ** Volumes+    Volumes (..),+    newVolumes,++    -- ** Volumeseriesinfo+    Volumeseriesinfo (..),+    newVolumeseriesinfo,++    -- ** Volumeseriesinfo_VolumeSeriesItem+    Volumeseriesinfo_VolumeSeriesItem (..),+    newVolumeseriesinfo_VolumeSeriesItem,++    -- ** Volumeseriesinfo_VolumeSeriesItem_IssueItem+    Volumeseriesinfo_VolumeSeriesItem_IssueItem (..),+    newVolumeseriesinfo_VolumeSeriesItem_IssueItem,++    -- ** MyconfigRequestAccessLicenseTypes+    MyconfigRequestAccessLicenseTypes (..),++    -- ** MyconfigSyncVolumeLicensesFeatures+    MyconfigSyncVolumeLicensesFeatures (..),++    -- ** MylibraryBookshelvesAddVolumeReason+    MylibraryBookshelvesAddVolumeReason (..),++    -- ** MylibraryBookshelvesRemoveVolumeReason+    MylibraryBookshelvesRemoveVolumeReason (..),++    -- ** MylibraryBookshelvesVolumesListProjection+    MylibraryBookshelvesVolumesListProjection (..),++    -- ** MylibraryReadingpositionsSetPositionAction+    MylibraryReadingpositionsSetPositionAction (..),++    -- ** OnboardingListCategoryVolumesMaxAllowedMaturityRating+    OnboardingListCategoryVolumesMaxAllowedMaturityRating (..),++    -- ** PersonalizedstreamGetMaxAllowedMaturityRating+    PersonalizedstreamGetMaxAllowedMaturityRating (..),++    -- ** VolumesAssociatedListAssociation+    VolumesAssociatedListAssociation (..),++    -- ** VolumesAssociatedListMaxAllowedMaturityRating+    VolumesAssociatedListMaxAllowedMaturityRating (..),++    -- ** VolumesGetProjection+    VolumesGetProjection (..),++    -- ** VolumesListDownload+    VolumesListDownload (..),++    -- ** VolumesListFilter+    VolumesListFilter (..),++    -- ** VolumesListLibraryRestrict+    VolumesListLibraryRestrict (..),++    -- ** VolumesListMaxAllowedMaturityRating+    VolumesListMaxAllowedMaturityRating (..),++    -- ** VolumesListOrderBy+    VolumesListOrderBy (..),++    -- ** VolumesListPrintType+    VolumesListPrintType (..),++    -- ** VolumesListProjection+    VolumesListProjection (..),++    -- ** VolumesMybooksListAcquireMethod+    VolumesMybooksListAcquireMethod (..),++    -- ** VolumesMybooksListProcessingState+    VolumesMybooksListProcessingState (..),++    -- ** VolumesRecommendedListMaxAllowedMaturityRating+    VolumesRecommendedListMaxAllowedMaturityRating (..),++    -- ** VolumesRecommendedRateRating+    VolumesRecommendedRateRating (..),++    -- ** VolumesUseruploadedListProcessingState+    VolumesUseruploadedListProcessingState (..),+  )+where++import Gogol.Books.Internal.Product+import Gogol.Books.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Default request referring to version @v1@ of the Books API. This contains the host and root path used as a starting point for constructing service requests.+booksService :: Core.ServiceConfig+booksService =+  Core.defaultService+    (Core.ServiceId "books:v1")+    "books.googleapis.com"++-- | Manage your books+type Books'FullControl = "https://www.googleapis.com/auth/books"
+ gen/Gogol/Books/Volumes/Associated/List.hs view
@@ -0,0 +1,132 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Volumes.Associated.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)+--+-- Return a list of associated books.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.volumes.associated.list@.+module Gogol.Books.Volumes.Associated.List+  ( -- * Resource+    BooksVolumesAssociatedListResource,++    -- ** Constructing a Request+    BooksVolumesAssociatedList (..),+    newBooksVolumesAssociatedList,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.volumes.associated.list@ method which the+-- 'BooksVolumesAssociatedList' request conforms to.+type BooksVolumesAssociatedListResource =+  "books"+    Core.:> "v1"+    Core.:> "volumes"+    Core.:> Core.Capture "volumeId" Core.Text+    Core.:> "associated"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "association" VolumesAssociatedListAssociation+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam+              "maxAllowedMaturityRating"+              VolumesAssociatedListMaxAllowedMaturityRating+    Core.:> Core.QueryParam "source" 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] Volumes++-- | Return a list of associated books.+--+-- /See:/ 'newBooksVolumesAssociatedList' smart constructor.+data BooksVolumesAssociatedList = BooksVolumesAssociatedList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | Association type.+    association :: (Core.Maybe VolumesAssociatedListAssociation),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'. Used for generating recommendations.+    locale :: (Core.Maybe Core.Text),+    -- | The maximum allowed maturity rating of returned recommendations. Books with a higher maturity rating are filtered out.+    maxAllowedMaturityRating :: (Core.Maybe VolumesAssociatedListMaxAllowedMaturityRating),+    -- | String to identify the originator of this request.+    source :: (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),+    -- | ID of the source volume.+    volumeId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksVolumesAssociatedList' with the minimum fields required to make a request.+newBooksVolumesAssociatedList ::+  -- |  ID of the source volume. See 'volumeId'.+  Core.Text ->+  BooksVolumesAssociatedList+newBooksVolumesAssociatedList volumeId =+  BooksVolumesAssociatedList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      association = Core.Nothing,+      callback = Core.Nothing,+      locale = Core.Nothing,+      maxAllowedMaturityRating = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = volumeId+    }++instance Core.GoogleRequest BooksVolumesAssociatedList where+  type Rs BooksVolumesAssociatedList = Volumes+  type Scopes BooksVolumesAssociatedList = '[Books'FullControl]+  requestClient BooksVolumesAssociatedList {..} =+    go+      volumeId+      xgafv+      accessToken+      association+      callback+      locale+      maxAllowedMaturityRating+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksVolumesAssociatedListResource)+          Core.mempty
+ gen/Gogol/Books/Volumes/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.Books.Volumes.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 volume information for a single volume.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.volumes.get@.+module Gogol.Books.Volumes.Get+  ( -- * Resource+    BooksVolumesGetResource,++    -- ** Constructing a Request+    BooksVolumesGet (..),+    newBooksVolumesGet,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.volumes.get@ method which the+-- 'BooksVolumesGet' request conforms to.+type BooksVolumesGetResource =+  "books"+    Core.:> "v1"+    Core.:> "volumes"+    Core.:> Core.Capture "volumeId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "country" Core.Text+    Core.:> Core.QueryParam "includeNonComicsSeries" Core.Bool+    Core.:> Core.QueryParam "partner" Core.Text+    Core.:> Core.QueryParam "projection" VolumesGetProjection+    Core.:> Core.QueryParam "source" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "user_library_consistent_read" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Volume++-- | Gets volume information for a single volume.+--+-- /See:/ 'newBooksVolumesGet' smart constructor.+data BooksVolumesGet = BooksVolumesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ISO-3166-1 code to override the IP-based location.+    country :: (Core.Maybe Core.Text),+    -- | Set to true to include non-comics series. Defaults to false.+    includeNonComicsSeries :: (Core.Maybe Core.Bool),+    -- | Brand results for partner ID.+    partner :: (Core.Maybe Core.Text),+    -- | Restrict information returned to a set of selected fields.+    projection :: (Core.Maybe VolumesGetProjection),+    -- | string to identify the originator of this request.+    source :: (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),+    userLibraryConsistentRead :: (Core.Maybe Core.Bool),+    -- | ID of volume to retrieve.+    volumeId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksVolumesGet' with the minimum fields required to make a request.+newBooksVolumesGet ::+  -- |  ID of volume to retrieve. See 'volumeId'.+  Core.Text ->+  BooksVolumesGet+newBooksVolumesGet volumeId =+  BooksVolumesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      country = Core.Nothing,+      includeNonComicsSeries = Core.Nothing,+      partner = Core.Nothing,+      projection = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      userLibraryConsistentRead = Core.Nothing,+      volumeId = volumeId+    }++instance Core.GoogleRequest BooksVolumesGet where+  type Rs BooksVolumesGet = Volume+  type Scopes BooksVolumesGet = '[Books'FullControl]+  requestClient BooksVolumesGet {..} =+    go+      volumeId+      xgafv+      accessToken+      callback+      country+      includeNonComicsSeries+      partner+      projection+      source+      uploadType+      uploadProtocol+      userLibraryConsistentRead+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksVolumesGetResource)+          Core.mempty
+ gen/Gogol/Books/Volumes/List.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.Books.Volumes.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)+--+-- Performs a book search.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.volumes.list@.+module Gogol.Books.Volumes.List+  ( -- * Resource+    BooksVolumesListResource,++    -- ** Constructing a Request+    BooksVolumesList (..),+    newBooksVolumesList,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.volumes.list@ method which the+-- 'BooksVolumesList' request conforms to.+type BooksVolumesListResource =+  "books"+    Core.:> "v1"+    Core.:> "volumes"+    Core.:> Core.QueryParam "q" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "download" VolumesListDownload+    Core.:> Core.QueryParam "filter" VolumesListFilter+    Core.:> Core.QueryParam "langRestrict" Core.Text+    Core.:> Core.QueryParam "libraryRestrict" VolumesListLibraryRestrict+    Core.:> Core.QueryParam+              "maxAllowedMaturityRating"+              VolumesListMaxAllowedMaturityRating+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParam "orderBy" VolumesListOrderBy+    Core.:> Core.QueryParam "partner" Core.Text+    Core.:> Core.QueryParam "printType" VolumesListPrintType+    Core.:> Core.QueryParam "projection" VolumesListProjection+    Core.:> Core.QueryParam "showPreorders" Core.Bool+    Core.:> Core.QueryParam "source" Core.Text+    Core.:> Core.QueryParam "startIndex" Core.Word32+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Volumes++-- | Performs a book search.+--+-- /See:/ 'newBooksVolumesList' smart constructor.+data BooksVolumesList = BooksVolumesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Restrict to volumes by download availability.+    download :: (Core.Maybe VolumesListDownload),+    -- | Filter search results.+    filter :: (Core.Maybe VolumesListFilter),+    -- | Restrict results to books with this language code.+    langRestrict :: (Core.Maybe Core.Text),+    -- | Restrict search to this user\'s library.+    libraryRestrict :: (Core.Maybe VolumesListLibraryRestrict),+    -- | The maximum allowed maturity rating of returned recommendations. Books with a higher maturity rating are filtered out.+    maxAllowedMaturityRating :: (Core.Maybe VolumesListMaxAllowedMaturityRating),+    -- | Maximum number of results to return.+    maxResults :: (Core.Maybe Core.Word32),+    -- | Sort search results.+    orderBy :: (Core.Maybe VolumesListOrderBy),+    -- | Restrict and brand results for partner ID.+    partner :: (Core.Maybe Core.Text),+    -- | Restrict to books or magazines.+    printType :: (Core.Maybe VolumesListPrintType),+    -- | Restrict information returned to a set of selected fields.+    projection :: (Core.Maybe VolumesListProjection),+    -- | Full-text search query string.+    q :: Core.Text,+    -- | Set to true to show books available for preorder. Defaults to false.+    showPreorders :: (Core.Maybe Core.Bool),+    -- | String to identify the originator of this request.+    source :: (Core.Maybe Core.Text),+    -- | Index of the first result to return (starts at 0)+    startIndex :: (Core.Maybe Core.Word32),+    -- | Legacy upload protocol 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 'BooksVolumesList' with the minimum fields required to make a request.+newBooksVolumesList ::+  -- |  Full-text search query string. See 'q'.+  Core.Text ->+  BooksVolumesList+newBooksVolumesList q =+  BooksVolumesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      download = Core.Nothing,+      filter = Core.Nothing,+      langRestrict = Core.Nothing,+      libraryRestrict = Core.Nothing,+      maxAllowedMaturityRating = Core.Nothing,+      maxResults = Core.Nothing,+      orderBy = Core.Nothing,+      partner = Core.Nothing,+      printType = Core.Nothing,+      projection = Core.Nothing,+      q = q,+      showPreorders = Core.Nothing,+      source = Core.Nothing,+      startIndex = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksVolumesList where+  type Rs BooksVolumesList = Volumes+  type Scopes BooksVolumesList = '[Books'FullControl]+  requestClient BooksVolumesList {..} =+    go+      (Core.Just q)+      xgafv+      accessToken+      callback+      download+      filter+      langRestrict+      libraryRestrict+      maxAllowedMaturityRating+      maxResults+      orderBy+      partner+      printType+      projection+      showPreorders+      source+      startIndex+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksVolumesListResource)+          Core.mempty
+ gen/Gogol/Books/Volumes/Mybooks/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.Books.Volumes.Mybooks.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)+--+-- Return a list of books in My Library.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.volumes.mybooks.list@.+module Gogol.Books.Volumes.Mybooks.List+  ( -- * Resource+    BooksVolumesMybooksListResource,++    -- ** Constructing a Request+    BooksVolumesMybooksList (..),+    newBooksVolumesMybooksList,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.volumes.mybooks.list@ method which the+-- 'BooksVolumesMybooksList' request conforms to.+type BooksVolumesMybooksListResource =+  "books"+    Core.:> "v1"+    Core.:> "volumes"+    Core.:> "mybooks"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParams "acquireMethod" VolumesMybooksListAcquireMethod+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "country" Core.Text+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParams+              "processingState"+              VolumesMybooksListProcessingState+    Core.:> Core.QueryParam "source" Core.Text+    Core.:> Core.QueryParam "startIndex" Core.Word32+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Volumes++-- | Return a list of books in My Library.+--+-- /See:/ 'newBooksVolumesMybooksList' smart constructor.+data BooksVolumesMybooksList = BooksVolumesMybooksList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | How the book was acquired+    acquireMethod :: (Core.Maybe [VolumesMybooksListAcquireMethod]),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ISO-3166-1 code to override the IP-based location.+    country :: (Core.Maybe Core.Text),+    -- | ISO-639-1 language and ISO-3166-1 country code. Ex:\'en_US\'. Used for generating recommendations.+    locale :: (Core.Maybe Core.Text),+    -- | Maximum number of results to return.+    maxResults :: (Core.Maybe Core.Word32),+    -- | The processing state of the user uploaded volumes to be returned. Applicable only if the UPLOADED is specified in the acquireMethod.+    processingState :: (Core.Maybe [VolumesMybooksListProcessingState]),+    -- | String to identify the originator of this request.+    source :: (Core.Maybe Core.Text),+    -- | Index of the first result to return (starts at 0)+    startIndex :: (Core.Maybe Core.Word32),+    -- | Legacy upload protocol 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 'BooksVolumesMybooksList' with the minimum fields required to make a request.+newBooksVolumesMybooksList ::+  BooksVolumesMybooksList+newBooksVolumesMybooksList =+  BooksVolumesMybooksList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      acquireMethod = Core.Nothing,+      callback = Core.Nothing,+      country = Core.Nothing,+      locale = Core.Nothing,+      maxResults = Core.Nothing,+      processingState = Core.Nothing,+      source = Core.Nothing,+      startIndex = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksVolumesMybooksList where+  type Rs BooksVolumesMybooksList = Volumes+  type Scopes BooksVolumesMybooksList = '[Books'FullControl]+  requestClient BooksVolumesMybooksList {..} =+    go+      xgafv+      accessToken+      (acquireMethod Core.^. Core._Default)+      callback+      country+      locale+      maxResults+      (processingState Core.^. Core._Default)+      source+      startIndex+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksVolumesMybooksListResource)+          Core.mempty
+ gen/Gogol/Books/Volumes/Recommended/List.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Volumes.Recommended.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)+--+-- Return a list of recommended books for the current user.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.volumes.recommended.list@.+module Gogol.Books.Volumes.Recommended.List+  ( -- * Resource+    BooksVolumesRecommendedListResource,++    -- ** Constructing a Request+    BooksVolumesRecommendedList (..),+    newBooksVolumesRecommendedList,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.volumes.recommended.list@ method which the+-- 'BooksVolumesRecommendedList' request conforms to.+type BooksVolumesRecommendedListResource =+  "books"+    Core.:> "v1"+    Core.:> "volumes"+    Core.:> "recommended"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam+              "maxAllowedMaturityRating"+              VolumesRecommendedListMaxAllowedMaturityRating+    Core.:> Core.QueryParam "source" 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] Volumes++-- | Return a list of recommended books for the current user.+--+-- /See:/ 'newBooksVolumesRecommendedList' smart constructor.+data BooksVolumesRecommendedList = BooksVolumesRecommendedList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'. Used for generating recommendations.+    locale :: (Core.Maybe Core.Text),+    -- | The maximum allowed maturity rating of returned recommendations. Books with a higher maturity rating are filtered out.+    maxAllowedMaturityRating :: (Core.Maybe VolumesRecommendedListMaxAllowedMaturityRating),+    -- | String to identify the originator of this request.+    source :: (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 'BooksVolumesRecommendedList' with the minimum fields required to make a request.+newBooksVolumesRecommendedList ::+  BooksVolumesRecommendedList+newBooksVolumesRecommendedList =+  BooksVolumesRecommendedList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      locale = Core.Nothing,+      maxAllowedMaturityRating = Core.Nothing,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest BooksVolumesRecommendedList where+  type Rs BooksVolumesRecommendedList = Volumes+  type Scopes BooksVolumesRecommendedList = '[Books'FullControl]+  requestClient BooksVolumesRecommendedList {..} =+    go+      xgafv+      accessToken+      callback+      locale+      maxAllowedMaturityRating+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksVolumesRecommendedListResource)+          Core.mempty
+ gen/Gogol/Books/Volumes/Recommended/Rate.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.Books.Volumes.Recommended.Rate+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Rate a recommended book for the current user.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.volumes.recommended.rate@.+module Gogol.Books.Volumes.Recommended.Rate+  ( -- * Resource+    BooksVolumesRecommendedRateResource,++    -- ** Constructing a Request+    BooksVolumesRecommendedRate (..),+    newBooksVolumesRecommendedRate,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.volumes.recommended.rate@ method which the+-- 'BooksVolumesRecommendedRate' request conforms to.+type BooksVolumesRecommendedRateResource =+  "books"+    Core.:> "v1"+    Core.:> "volumes"+    Core.:> "recommended"+    Core.:> "rate"+    Core.:> Core.QueryParam "rating" VolumesRecommendedRateRating+    Core.:> Core.QueryParam "volumeId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam "source" 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] BooksVolumesRecommendedRateResponse++-- | Rate a recommended book for the current user.+--+-- /See:/ 'newBooksVolumesRecommendedRate' smart constructor.+data BooksVolumesRecommendedRate = BooksVolumesRecommendedRate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'. Used for generating recommendations.+    locale :: (Core.Maybe Core.Text),+    -- | Rating to be given to the volume.+    rating :: VolumesRecommendedRateRating,+    -- | String to identify the originator of this request.+    source :: (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),+    -- | ID of the source volume.+    volumeId :: Core.Text+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksVolumesRecommendedRate' with the minimum fields required to make a request.+newBooksVolumesRecommendedRate ::+  -- |  Rating to be given to the volume. See 'rating'.+  VolumesRecommendedRateRating ->+  -- |  ID of the source volume. See 'volumeId'.+  Core.Text ->+  BooksVolumesRecommendedRate+newBooksVolumesRecommendedRate rating volumeId =+  BooksVolumesRecommendedRate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      locale = Core.Nothing,+      rating = rating,+      source = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = volumeId+    }++instance Core.GoogleRequest BooksVolumesRecommendedRate where+  type+    Rs BooksVolumesRecommendedRate =+      BooksVolumesRecommendedRateResponse+  type Scopes BooksVolumesRecommendedRate = '[Books'FullControl]+  requestClient BooksVolumesRecommendedRate {..} =+    go+      (Core.Just rating)+      (Core.Just volumeId)+      xgafv+      accessToken+      callback+      locale+      source+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksVolumesRecommendedRateResource)+          Core.mempty
+ gen/Gogol/Books/Volumes/Useruploaded/List.hs view
@@ -0,0 +1,135 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Books.Volumes.Useruploaded.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)+--+-- Return a list of books uploaded by the current user.+--+-- /See:/ <https://code.google.com/apis/books/docs/v1/getting_started.html Books API Reference> for @books.volumes.useruploaded.list@.+module Gogol.Books.Volumes.Useruploaded.List+  ( -- * Resource+    BooksVolumesUseruploadedListResource,++    -- ** Constructing a Request+    BooksVolumesUseruploadedList (..),+    newBooksVolumesUseruploadedList,+  )+where++import Gogol.Books.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @books.volumes.useruploaded.list@ method which the+-- 'BooksVolumesUseruploadedList' request conforms to.+type BooksVolumesUseruploadedListResource =+  "books"+    Core.:> "v1"+    Core.:> "volumes"+    Core.:> "useruploaded"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "locale" Core.Text+    Core.:> Core.QueryParam "maxResults" Core.Word32+    Core.:> Core.QueryParams+              "processingState"+              VolumesUseruploadedListProcessingState+    Core.:> Core.QueryParam "source" Core.Text+    Core.:> Core.QueryParam "startIndex" Core.Word32+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParams "volumeId" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Volumes++-- | Return a list of books uploaded by the current user.+--+-- /See:/ 'newBooksVolumesUseruploadedList' smart constructor.+data BooksVolumesUseruploadedList = BooksVolumesUseruploadedList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'. Used for generating recommendations.+    locale :: (Core.Maybe Core.Text),+    -- | Maximum number of results to return.+    maxResults :: (Core.Maybe Core.Word32),+    -- | The processing state of the user uploaded volumes to be returned.+    processingState :: (Core.Maybe [VolumesUseruploadedListProcessingState]),+    -- | String to identify the originator of this request.+    source :: (Core.Maybe Core.Text),+    -- | Index of the first result to return (starts at 0)+    startIndex :: (Core.Maybe Core.Word32),+    -- | Legacy upload protocol 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 ids of the volumes to be returned. If not specified all that match the processingState are returned.+    volumeId :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BooksVolumesUseruploadedList' with the minimum fields required to make a request.+newBooksVolumesUseruploadedList ::+  BooksVolumesUseruploadedList+newBooksVolumesUseruploadedList =+  BooksVolumesUseruploadedList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      locale = Core.Nothing,+      maxResults = Core.Nothing,+      processingState = Core.Nothing,+      source = Core.Nothing,+      startIndex = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      volumeId = Core.Nothing+    }++instance Core.GoogleRequest BooksVolumesUseruploadedList where+  type Rs BooksVolumesUseruploadedList = Volumes+  type Scopes BooksVolumesUseruploadedList = '[Books'FullControl]+  requestClient BooksVolumesUseruploadedList {..} =+    go+      xgafv+      accessToken+      callback+      locale+      maxResults+      (processingState Core.^. Core._Default)+      source+      startIndex+      uploadType+      uploadProtocol+      (volumeId Core.^. Core._Default)+      (Core.Just Core.AltJSON)+      booksService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy BooksVolumesUseruploadedListResource)+          Core.mempty
− gen/Network/Google/Books.hs 
@@ -1,1256 +0,0 @@-{-# LANGUAGE DataKinds         #-}-{-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE TypeOperators     #-}--{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- |--- Module      : Network.Google.Books--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Searches for books and manages your Google Books library.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference>-module Network.Google.Books-    (-    -- * Service Configuration-      booksService--    -- * OAuth Scopes-    , booksScope--    -- * API Declaration-    , BooksAPI--    -- * Resources--    -- ** books.bookshelves.get-    , module Network.Google.Resource.Books.Bookshelves.Get--    -- ** books.bookshelves.list-    , module Network.Google.Resource.Books.Bookshelves.List--    -- ** books.bookshelves.volumes.list-    , module Network.Google.Resource.Books.Bookshelves.Volumes.List--    -- ** books.cloudloading.addBook-    , module Network.Google.Resource.Books.CloudLoading.AddBook--    -- ** books.cloudloading.deleteBook-    , module Network.Google.Resource.Books.CloudLoading.DeleteBook--    -- ** books.cloudloading.updateBook-    , module Network.Google.Resource.Books.CloudLoading.UpdateBook--    -- ** books.dictionary.listOfflineMetadata-    , module Network.Google.Resource.Books.Dictionary.ListOfflineMetadata--    -- ** books.familysharing.getFamilyInfo-    , module Network.Google.Resource.Books.Familysharing.GetFamilyInfo--    -- ** books.familysharing.share-    , module Network.Google.Resource.Books.Familysharing.Share--    -- ** books.familysharing.unshare-    , module Network.Google.Resource.Books.Familysharing.Unshare--    -- ** books.layers.annotationData.get-    , module Network.Google.Resource.Books.Layers.AnnotationData.Get--    -- ** books.layers.annotationData.list-    , module Network.Google.Resource.Books.Layers.AnnotationData.List--    -- ** books.layers.get-    , module Network.Google.Resource.Books.Layers.Get--    -- ** books.layers.list-    , module Network.Google.Resource.Books.Layers.List--    -- ** books.layers.volumeAnnotations.get-    , module Network.Google.Resource.Books.Layers.VolumeAnnotations.Get--    -- ** books.layers.volumeAnnotations.list-    , module Network.Google.Resource.Books.Layers.VolumeAnnotations.List--    -- ** books.myconfig.getUserSettings-    , module Network.Google.Resource.Books.MyConfig.GetUserSettings--    -- ** books.myconfig.releaseDownloadAccess-    , module Network.Google.Resource.Books.MyConfig.ReleaseDownloadAccess--    -- ** books.myconfig.requestAccess-    , module Network.Google.Resource.Books.MyConfig.RequestAccess--    -- ** books.myconfig.syncVolumeLicenses-    , module Network.Google.Resource.Books.MyConfig.SyncVolumeLicenses--    -- ** books.myconfig.updateUserSettings-    , module Network.Google.Resource.Books.MyConfig.UpdateUserSettings--    -- ** books.mylibrary.annotations.delete-    , module Network.Google.Resource.Books.MyLibrary.Annotations.Delete--    -- ** books.mylibrary.annotations.insert-    , module Network.Google.Resource.Books.MyLibrary.Annotations.Insert--    -- ** books.mylibrary.annotations.list-    , module Network.Google.Resource.Books.MyLibrary.Annotations.List--    -- ** books.mylibrary.annotations.summary-    , module Network.Google.Resource.Books.MyLibrary.Annotations.Summary--    -- ** books.mylibrary.annotations.update-    , module Network.Google.Resource.Books.MyLibrary.Annotations.Update--    -- ** books.mylibrary.bookshelves.addVolume-    , module Network.Google.Resource.Books.MyLibrary.Bookshelves.AddVolume--    -- ** books.mylibrary.bookshelves.clearVolumes-    , module Network.Google.Resource.Books.MyLibrary.Bookshelves.ClearVolumes--    -- ** books.mylibrary.bookshelves.get-    , module Network.Google.Resource.Books.MyLibrary.Bookshelves.Get--    -- ** books.mylibrary.bookshelves.list-    , module Network.Google.Resource.Books.MyLibrary.Bookshelves.List--    -- ** books.mylibrary.bookshelves.moveVolume-    , module Network.Google.Resource.Books.MyLibrary.Bookshelves.MoveVolume--    -- ** books.mylibrary.bookshelves.removeVolume-    , module Network.Google.Resource.Books.MyLibrary.Bookshelves.RemoveVolume--    -- ** books.mylibrary.bookshelves.volumes.list-    , module Network.Google.Resource.Books.MyLibrary.Bookshelves.Volumes.List--    -- ** books.mylibrary.readingpositions.get-    , module Network.Google.Resource.Books.MyLibrary.ReadingPositions.Get--    -- ** books.mylibrary.readingpositions.setPosition-    , module Network.Google.Resource.Books.MyLibrary.ReadingPositions.SetPosition--    -- ** books.notification.get-    , module Network.Google.Resource.Books.Notification.Get--    -- ** books.onboarding.listCategories-    , module Network.Google.Resource.Books.Onboarding.ListCategories--    -- ** books.onboarding.listCategoryVolumes-    , module Network.Google.Resource.Books.Onboarding.ListCategoryVolumes--    -- ** books.personalizedstream.get-    , module Network.Google.Resource.Books.Personalizedstream.Get--    -- ** books.promooffer.accept-    , module Network.Google.Resource.Books.PromoOffer.Accept--    -- ** books.promooffer.dismiss-    , module Network.Google.Resource.Books.PromoOffer.Dismiss--    -- ** books.promooffer.get-    , module Network.Google.Resource.Books.PromoOffer.Get--    -- ** books.series.get-    , module Network.Google.Resource.Books.Series.Get--    -- ** books.series.membership.get-    , module Network.Google.Resource.Books.Series.Membership.Get--    -- ** books.volumes.associated.list-    , module Network.Google.Resource.Books.Volumes.Associated.List--    -- ** books.volumes.get-    , module Network.Google.Resource.Books.Volumes.Get--    -- ** books.volumes.list-    , module Network.Google.Resource.Books.Volumes.List--    -- ** books.volumes.mybooks.list-    , module Network.Google.Resource.Books.Volumes.Mybooks.List--    -- ** books.volumes.recommended.list-    , module Network.Google.Resource.Books.Volumes.Recommended.List--    -- ** books.volumes.recommended.rate-    , module Network.Google.Resource.Books.Volumes.Recommended.Rate--    -- ** books.volumes.useruploaded.list-    , module Network.Google.Resource.Books.Volumes.UserUploaded.List--    -- * Types--    -- ** UserSettings-    , UserSettings-    , userSettings-    , usNotification-    , usKind-    , usNotesExport--    -- ** Annotations-    , Annotations-    , annotations-    , aTotalItems-    , aNextPageToken-    , aKind-    , aItems--    -- ** VolumesListProjection-    , VolumesListProjection (..)--    -- ** MyLibraryBookshelvesVolumesListProjection-    , MyLibraryBookshelvesVolumesListProjection (..)--    -- ** VolumesListOrderBy-    , VolumesListOrderBy (..)--    -- ** AnnotationsData-    , AnnotationsData-    , annotationsData-    , adTotalItems-    , adNextPageToken-    , adKind-    , adItems--    -- ** UserSettingsNotificationMoreFromAuthors-    , UserSettingsNotificationMoreFromAuthors-    , userSettingsNotificationMoreFromAuthors-    , usnmfaOptedState--    -- ** Volumeannotations-    , Volumeannotations-    , volumeannotations-    , vTotalItems-    , vNextPageToken-    , vKind-    , vItems-    , vVersion--    -- ** ReviewSource-    , ReviewSource-    , reviewSource-    , rsExtraDescription-    , rsURL-    , rsDescription--    -- ** AnnotationData-    , AnnotationData-    , annotationData-    , annEncodedData-    , annKind-    , annData-    , annSelfLink-    , annAnnotationType-    , annVolumeId-    , annId-    , annUpdated-    , annLayerId--    -- ** Volumeannotation-    , Volumeannotation-    , volumeannotation-    , volSelectedText-    , volAnnotationDataLink-    , volPageIds-    , volKind-    , volData-    , volSelfLink-    , volAnnotationType-    , volAnnotationDataId-    , volContentRanges-    , volVolumeId-    , volId-    , volDeleted-    , volUpdated-    , volLayerId--    -- ** BooksCloudLoadingResource-    , BooksCloudLoadingResource-    , booksCloudLoadingResource-    , bclrProcessingState-    , bclrVolumeId-    , bclrAuthor-    , bclrTitle--    -- ** VolumeseriesInfoVolumeSeriesItemIssueItem-    , VolumeseriesInfoVolumeSeriesItemIssueItem-    , volumeseriesInfoVolumeSeriesItemIssueItem-    , vivsiiiIssueOrderNumber-    , vivsiiiIssueDisplayNumber--    -- ** Annotation-    , Annotation-    , annotation-    , aaSelectedText-    , aaLayerSummary-    , aaHighlightStyle-    , aaClientVersionRanges-    , aaPageIds-    , aaKind-    , aaData-    , aaCreated-    , aaAfterSelectedText-    , aaSelfLink-    , aaCurrentVersionRanges-    , aaVolumeId-    , aaBeforeSelectedText-    , aaId-    , aaDeleted-    , aaUpdated-    , aaLayerId--    -- ** ReviewAuthor-    , ReviewAuthor-    , reviewAuthor-    , raDisplayName--    -- ** GeolayerDataGeoViewport-    , GeolayerDataGeoViewport-    , geolayerDataGeoViewport-    , gdgvHi-    , gdgvLo--    -- ** VolumeUserInfo-    , VolumeUserInfo-    , volumeUserInfo-    , vuiIsFamilySharingAllowed-    , vuiIsFamilySharedToUser-    , vuiCopy-    , vuiUserUploadedVolumeInfo-    , vuiIsPurchased-    , vuiEntitlementType-    , vuiAcquisitionType-    , vuiAcquiredTime-    , vuiRentalState-    , vuiIsPreOrdered-    , vuiReview-    , vuiIsFamilySharedFromUser-    , vuiRentalPeriod-    , vuiUpdated-    , vuiIsUploaded-    , vuiIsInMyBooks-    , vuiReadingPosition-    , vuiFamilySharing-    , vuiIsFamilySharingDisabledByFop--    -- ** Layersummary-    , Layersummary-    , layersummary-    , lAnnotationsDataLink-    , lAnnotationsLink-    , lKind-    , lDataCount-    , lContentVersion-    , lVolumeAnnotationsVersion-    , lAnnotationCount-    , lAnnotationTypes-    , lSelfLink-    , lVolumeId-    , lId-    , lUpdated-    , lLayerId--    -- ** VolumesListLibraryRestrict-    , VolumesListLibraryRestrict (..)--    -- ** VolumeannotationContentRanges-    , VolumeannotationContentRanges-    , volumeannotationContentRanges-    , vcrGbImageRange-    , vcrContentVersion-    , vcrGbTextRange-    , vcrCfiRange--    -- ** VolumeAccessInfo-    , VolumeAccessInfo-    , volumeAccessInfo-    , vaiWebReaderLink-    , vaiCountry-    , vaiDriveImportedContentLink-    , vaiExplicitOfflineLicenseManagement-    , vaiViewability-    , vaiQuoteSharingAllowed-    , vaiEpub-    , vaiPdf-    , vaiTextToSpeechPermission-    , vaiEmbeddable-    , vaiAccessViewStatus-    , vaiDownloadAccess-    , vaiViewOrderURL-    , vaiPublicDomain--    -- ** VolumeVolumeInfoPanelizationSummary-    , VolumeVolumeInfoPanelizationSummary-    , volumeVolumeInfoPanelizationSummary-    , vvipsEpubBubbleVersion-    , vvipsContainsImageBubbles-    , vvipsContainsEpubBubbles-    , vvipsImageBubbleVersion--    -- ** MyLibraryBookshelvesRemoveVolumeReason-    , MyLibraryBookshelvesRemoveVolumeReason (..)--    -- ** VolumeVolumeInfoImageLinks-    , VolumeVolumeInfoImageLinks-    , volumeVolumeInfoImageLinks-    , vviilThumbnail-    , vviilSmall-    , vviilExtraLarge-    , vviilLarge-    , vviilMedium-    , vviilSmallThumbnail--    -- ** OnboardingListCategoryVolumesMaxAllowedMaturityRating-    , OnboardingListCategoryVolumesMaxAllowedMaturityRating (..)--    -- ** VolumeUserInfoUserUploadedVolumeInfo-    , VolumeUserInfoUserUploadedVolumeInfo-    , volumeUserInfoUserUploadedVolumeInfo-    , vuiuuviProcessingState--    -- ** VolumeUserInfoCopy-    , VolumeUserInfoCopy-    , volumeUserInfoCopy-    , vuicLimitType-    , vuicAllowedCharacterCount-    , vuicUpdated-    , vuicRemainingCharacterCount--    -- ** BooksVolumesRecommendedRateResponse-    , BooksVolumesRecommendedRateResponse-    , booksVolumesRecommendedRateResponse-    , bvrrrConsistencyToken--    -- ** UserSettingsNotificationPriceDrop-    , UserSettingsNotificationPriceDrop-    , userSettingsNotificationPriceDrop-    , usnpdOptedState--    -- ** VolumeseriesInfo-    , VolumeseriesInfo-    , volumeseriesInfo-    , viBookDisplayNumber-    , viKind-    , viShortSeriesBookTitle-    , viVolumeSeries--    -- ** Bookshelf-    , Bookshelf-    , bookshelf-    , bAccess-    , bVolumesLastUpdated-    , bKind-    , bCreated-    , bVolumeCount-    , bSelfLink-    , bId-    , bUpdated-    , bTitle-    , bDescription--    -- ** Notification-    , Notification-    , notification-    , nDocType-    , nTargetURL-    , nShowNotificationSettingsAction-    , nDocId-    , nKind-    , nBody-    , nCrmExperimentIds-    , nTimeToExpireMs-    , nPcampaignId-    , nReason-    , nIsDocumentMature-    , nDontShowNotification-    , nNotificationType-    , nNotificationGroup-    , nIconURL-    , nTitle--    -- ** VolumesListDownload-    , VolumesListDownload (..)--    -- ** AnnotationsSummaryLayersItem-    , AnnotationsSummaryLayersItem-    , annotationsSummaryLayersItem-    , asliLimitType-    , asliAllowedCharacterCount-    , asliUpdated-    , asliLayerId-    , asliRemainingCharacterCount--    -- ** VolumeSaleInfoOffersItemRentalDuration-    , VolumeSaleInfoOffersItemRentalDuration-    , volumeSaleInfoOffersItemRentalDuration-    , vsioirdCount-    , vsioirdUnit--    -- ** DictlayerDataDictWordsItemExamplesItem-    , DictlayerDataDictWordsItemExamplesItem-    , dictlayerDataDictWordsItemExamplesItem-    , dddwieiText-    , dddwieiSource--    -- ** OffersItemsItem-    , OffersItemsItem-    , offersItemsItem-    , oiiItems-    , oiiArtURL-    , oiiId-    , oiiGServicesKey--    -- ** AnnotationLayerSummary-    , AnnotationLayerSummary-    , annotationLayerSummary-    , alsLimitType-    , alsAllowedCharacterCount-    , alsRemainingCharacterCount--    -- ** VolumeSearchInfo-    , VolumeSearchInfo-    , volumeSearchInfo-    , vsiTextSnippet--    -- ** AnnotationsSummary-    , AnnotationsSummary-    , annotationsSummary-    , asKind-    , asLayers--    -- ** VolumesGetProjection-    , VolumesGetProjection (..)--    -- ** Category-    , Category-    , category-    , cKind-    , cItems--    -- ** VolumesAssociatedListAssociation-    , VolumesAssociatedListAssociation (..)--    -- ** DiscoveryclustersClustersItemBanner_with_content_container-    , DiscoveryclustersClustersItemBanner_with_content_container-    , discoveryclustersClustersItemBanner_with_content_container-    , dcibFillColorArgb-    , dcibMoreButtonURL-    , dcibTextColorArgb-    , dcibMoreButtonText-    , dcibImageURL-    , dcibMaskColorArgb--    -- ** Volume-    , Volume-    , volume-    , vvUserInfo-    , vvEtag-    , vvAccessInfo-    , vvKind-    , vvSearchInfo-    , vvSelfLink-    , vvLayerInfo-    , vvSaleInfo-    , vvId-    , vvRecommendedInfo-    , vvVolumeInfo--    -- ** GeolayerDataGeoBoundaryItemItem-    , GeolayerDataGeoBoundaryItemItem-    , geolayerDataGeoBoundaryItemItem-    , gdgbiiLatitude-    , gdgbiiLongitude--    -- ** Series-    , Series-    , series-    , sKind-    , sSeries--    -- ** OffersItemsItemItemsItem-    , OffersItemsItemItemsItem-    , offersItemsItemItemsItem-    , oiiiiCanonicalVolumeLink-    , oiiiiCoverURL-    , oiiiiVolumeId-    , oiiiiAuthor-    , oiiiiTitle-    , oiiiiDescription--    -- ** DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource-    , DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource-    , dictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource-    , dddwisidieisURL-    , dddwisidieisAttribution--    -- ** GeolayerDataCommon-    , GeolayerDataCommon-    , geolayerDataCommon-    , gdcSnippet-    , gdcSnippetURL-    , gdcLang-    , gdcTitle-    , gdcPreviewImageURL--    -- ** GeolayerDataGeo-    , GeolayerDataGeo-    , geolayerDataGeo-    , gdgMapType-    , gdgCachePolicy-    , gdgViewport-    , gdgBoundary-    , gdgLatitude-    , gdgZoom-    , gdgCountryCode-    , gdgLongitude--    -- ** DictlayerDataDictWordsItem-    , DictlayerDataDictWordsItem-    , dictlayerDataDictWordsItem-    , dddwiSenses-    , dddwiSource-    , dddwiDerivatives-    , dddwiExamples--    -- ** CategoryItemsItem-    , CategoryItemsItem-    , categoryItemsItem-    , ciiName-    , ciiCategoryId-    , ciiBadgeURL--    -- ** DictlayerDataDictWordsItemDerivativesItemSource-    , DictlayerDataDictWordsItemDerivativesItemSource-    , dictlayerDataDictWordsItemDerivativesItemSource-    , dddwidisURL-    , dddwidisAttribution--    -- ** VolumesRecommendedRateRating-    , VolumesRecommendedRateRating (..)--    -- ** GeolayerData-    , GeolayerData-    , geolayerData-    , gdKind-    , gdGeo-    , gdCommon--    -- ** DictlayerDataDictWordsItemSource-    , DictlayerDataDictWordsItemSource-    , dictlayerDataDictWordsItemSource-    , dddwisURL-    , dddwisAttribution--    -- ** DictlayerDataDictWordsItemDerivativesItem-    , DictlayerDataDictWordsItemDerivativesItem-    , dictlayerDataDictWordsItemDerivativesItem-    , dddwidiText-    , dddwidiSource--    -- ** VolumesUserUploadedListProcessingState-    , VolumesUserUploadedListProcessingState (..)--    -- ** MyConfigSyncVolumeLicensesFeatures-    , MyConfigSyncVolumeLicensesFeatures (..)--    -- ** DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem-    , DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem-    , dictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem-    , dddwisidieiText-    , dddwisidieiSource--    -- ** UserSettingsNotificationRewardExpirations-    , UserSettingsNotificationRewardExpirations-    , userSettingsNotificationRewardExpirations-    , usnreOptedState--    -- ** DictlayerData-    , DictlayerData-    , dictlayerData-    , ddKind-    , ddDict-    , ddCommon--    -- ** VolumesAssociatedListMaxAllowedMaturityRating-    , VolumesAssociatedListMaxAllowedMaturityRating (..)--    -- ** DictlayerDataDictWordsItemSensesItemSynonymsItemSource-    , DictlayerDataDictWordsItemSensesItemSynonymsItemSource-    , dictlayerDataDictWordsItemSensesItemSynonymsItemSource-    , dddwisisisURL-    , dddwisisisAttribution--    -- ** Seriesmembership-    , Seriesmembership-    , seriesmembership-    , serNextPageToken-    , serKind-    , serMember--    -- ** VolumesListFilter-    , VolumesListFilter (..)--    -- ** UserSettingsNotification-    , UserSettingsNotification-    , userSettingsNotification-    , usnRewardExpirations-    , usnPriceDrop-    , usnMatchMyInterests-    , usnMoreFromAuthors-    , usnMoreFromSeries--    -- ** DictlayerDataDictWordsItemSensesItemSynonymsItem-    , DictlayerDataDictWordsItemSensesItemSynonymsItem-    , dictlayerDataDictWordsItemSensesItemSynonymsItem-    , dddwisisiText-    , dddwisisiSource--    -- ** GeolayerDataGeoViewportLo-    , GeolayerDataGeoViewportLo-    , geolayerDataGeoViewportLo-    , gdgvlLatitude-    , gdgvlLongitude--    -- ** VolumesRecommendedListMaxAllowedMaturityRating-    , VolumesRecommendedListMaxAllowedMaturityRating (..)--    -- ** VolumeSaleInfoOffersItemListPrice-    , VolumeSaleInfoOffersItemListPrice-    , volumeSaleInfoOffersItemListPrice-    , vsioilpCurrencyCode-    , vsioilpAmountInMicros--    -- ** DownloadAccessRestriction-    , DownloadAccessRestriction-    , downloadAccessRestriction-    , darJustAcquired-    , darSignature-    , darKind-    , darMaxDownloadDevices-    , darDownloadsAcquired-    , darReasonCode-    , darVolumeId-    , darRestricted-    , darSource-    , darDeviceAllowed-    , darMessage-    , darNonce--    -- ** DictlayerDataCommon-    , DictlayerDataCommon-    , dictlayerDataCommon-    , ddcTitle--    -- ** DiscoveryclustersClustersItem-    , DiscoveryclustersClustersItem-    , discoveryclustersClustersItem-    , dciBannerWithContentContainer-    , dciUid-    , dciTotalVolumes-    , dciSubTitle-    , dciTitle-    , dciVolumes--    -- ** VolumeSaleInfoRetailPrice-    , VolumeSaleInfoRetailPrice-    , volumeSaleInfoRetailPrice-    , vsirpAmount-    , vsirpCurrencyCode--    -- ** VolumeSaleInfoListPrice-    , VolumeSaleInfoListPrice-    , volumeSaleInfoListPrice-    , vsilpAmount-    , vsilpCurrencyCode--    -- ** DictlayerDataDictWordsItemSensesItemConjugationsItem-    , DictlayerDataDictWordsItemSensesItemConjugationsItem-    , dictlayerDataDictWordsItemSensesItemConjugationsItem-    , dddwisiciValue-    , dddwisiciType--    -- ** FamilyInfoMembership-    , FamilyInfoMembership-    , familyInfoMembership-    , fimAllowedMaturityRating-    , fimAcquirePermission-    , fimRole-    , fimAgeGroup-    , fimIsInFamily--    -- ** Volume2-    , Volume2-    , volume2-    , voloNextPageToken-    , voloKind-    , voloItems--    -- ** Review-    , Review-    , review-    , rRating-    , rKind-    , rContent-    , rDate-    , rVolumeId-    , rAuthor-    , rSource-    , rFullTextURL-    , rTitle-    , rType--    -- ** VolumeUserInfoRentalPeriod-    , VolumeUserInfoRentalPeriod-    , volumeUserInfoRentalPeriod-    , vuirpEndUtcSec-    , vuirpStartUtcSec--    -- ** VolumeSaleInfo-    , VolumeSaleInfo-    , volumeSaleInfo-    , vsiCountry-    , vsiOnSaleDate-    , vsiListPrice-    , vsiRetailPrice-    , vsiOffers-    , vsiBuyLink-    , vsiIsEbook-    , vsiSaleability--    -- ** MyLibraryBookshelvesAddVolumeReason-    , MyLibraryBookshelvesAddVolumeReason (..)--    -- ** SeriesSeriesItem-    , SeriesSeriesItem-    , seriesSeriesItem-    , ssiSeriesId-    , ssiImageURL-    , ssiBannerImageURL-    , ssiTitle-    , ssiSeriesType--    -- ** Metadata-    , Metadata-    , metadata-    , mKind-    , mItems--    -- ** VolumeLayerInfo-    , VolumeLayerInfo-    , volumeLayerInfo-    , vliLayers--    -- ** VolumeVolumeInfoDimensions-    , VolumeVolumeInfoDimensions-    , volumeVolumeInfoDimensions-    , vvidHeight-    , vvidWidth-    , vvidThickness--    -- ** RequestAccess-    , RequestAccess-    , requestAccess-    , raConcurrentAccess-    , raKind-    , raDownloadAccess--    -- ** FamilyInfo-    , FamilyInfo-    , familyInfo-    , fiMembership-    , fiKind--    -- ** AnnotationClientVersionRanges-    , AnnotationClientVersionRanges-    , annotationClientVersionRanges-    , acvrGbImageRange-    , acvrContentVersion-    , acvrImageCfiRange-    , acvrGbTextRange-    , acvrCfiRange--    -- ** VolumesMybooksListAcquireMethod-    , VolumesMybooksListAcquireMethod (..)--    -- ** DictlayerDataDictWordsItemSensesItemDefinitionsItem-    , DictlayerDataDictWordsItemSensesItemDefinitionsItem-    , dictlayerDataDictWordsItemSensesItemDefinitionsItem-    , dddwisidiDefinition-    , dddwisidiExamples--    -- ** VolumeLayerInfoLayersItem-    , VolumeLayerInfoLayersItem-    , volumeLayerInfoLayersItem-    , vliliVolumeAnnotationsVersion-    , vliliLayerId--    -- ** AnnotationCurrentVersionRanges-    , AnnotationCurrentVersionRanges-    , annotationCurrentVersionRanges-    , aGbImageRange-    , aContentVersion-    , aImageCfiRange-    , aGbTextRange-    , aCfiRange--    -- ** PersonalizedstreamGetMaxAllowedMaturityRating-    , PersonalizedstreamGetMaxAllowedMaturityRating (..)--    -- ** VolumesListPrintType-    , VolumesListPrintType (..)--    -- ** VolumeAccessInfoPdf-    , VolumeAccessInfoPdf-    , volumeAccessInfoPdf-    , vaipAcsTokenLink-    , vaipIsAvailable-    , vaipDownloadLink--    -- ** DictlayerDataDictWordsItemExamplesItemSource-    , DictlayerDataDictWordsItemExamplesItemSource-    , dictlayerDataDictWordsItemExamplesItemSource-    , dddwieisURL-    , dddwieisAttribution--    -- ** VolumeAccessInfoEpub-    , VolumeAccessInfoEpub-    , volumeAccessInfoEpub-    , vaieAcsTokenLink-    , vaieIsAvailable-    , vaieDownloadLink--    -- ** ReadingPosition-    , ReadingPosition-    , readingPosition-    , rpEpubCfiPosition-    , rpKind-    , rpGbImagePosition-    , rpPdfPosition-    , rpVolumeId-    , rpUpdated-    , rpGbTextPosition--    -- ** VolumeSaleInfoOffersItem-    , VolumeSaleInfoOffersItem-    , volumeSaleInfoOffersItem-    , vsioiFinskyOfferType-    , vsioiRentalDuration-    , vsioiListPrice-    , vsioiRetailPrice-    , vsioiGiftable--    -- ** DictlayerDataDict-    , DictlayerDataDict-    , dictlayerDataDict-    , dddSource-    , dddWords--    -- ** DictlayerDataDictWordsItemSensesItem-    , DictlayerDataDictWordsItemSensesItem-    , dictlayerDataDictWordsItemSensesItem-    , dddwisiPronunciationURL-    , dddwisiConjugations-    , dddwisiPronunciation-    , dddwisiSynonyms-    , dddwisiSource-    , dddwisiPartOfSpeech-    , dddwisiDefinitions-    , dddwisiSyllabification--    -- ** VolumeRecommendedInfo-    , VolumeRecommendedInfo-    , volumeRecommendedInfo-    , vriExplanation--    -- ** Offers-    , Offers-    , offers-    , oKind-    , oItems--    -- ** VolumesMybooksListProcessingState-    , VolumesMybooksListProcessingState (..)--    -- ** Discoveryclusters-    , Discoveryclusters-    , discoveryclusters-    , dKind-    , dTotalClusters-    , dClusters--    -- ** VolumeseriesInfoVolumeSeriesItem-    , VolumeseriesInfoVolumeSeriesItem-    , volumeseriesInfoVolumeSeriesItem-    , vivsiSeriesId-    , vivsiSeriesBookType-    , vivsiOrderNumber-    , vivsiIssue--    -- ** UserSettingsNotesExport-    , UserSettingsNotesExport-    , userSettingsNotesExport-    , usneFolderName-    , usneIsEnabled--    -- ** ConcurrentAccessRestriction-    , ConcurrentAccessRestriction-    , concurrentAccessRestriction-    , carMaxConcurrentDevices-    , carSignature-    , carTimeWindowSeconds-    , carKind-    , carReasonCode-    , carVolumeId-    , carRestricted-    , carSource-    , carDeviceAllowed-    , carMessage-    , carNonce--    -- ** Volumes-    , Volumes-    , volumes-    , v1TotalItems-    , v1Kind-    , v1Items--    -- ** UserSettingsNotificationMatchMyInterests-    , UserSettingsNotificationMatchMyInterests-    , userSettingsNotificationMatchMyInterests-    , usnmmiOptedState--    -- ** Bookshelves-    , Bookshelves-    , bookshelves-    , booKind-    , booItems--    -- ** MyConfigRequestAccessLicenseTypes-    , MyConfigRequestAccessLicenseTypes (..)--    -- ** DictlayerDataDictSource-    , DictlayerDataDictSource-    , dictlayerDataDictSource-    , dddsURL-    , dddsAttribution--    -- ** DownloadAccesses-    , DownloadAccesses-    , downloadAccesses-    , daKind-    , daDownloadAccessList--    -- ** GeolayerDataGeoViewportHi-    , GeolayerDataGeoViewportHi-    , geolayerDataGeoViewportHi-    , gdgvhLatitude-    , gdgvhLongitude--    -- ** MyLibraryReadingPositionsSetPositionAction-    , MyLibraryReadingPositionsSetPositionAction (..)--    -- ** VolumeVolumeInfo-    , VolumeVolumeInfo-    , volumeVolumeInfo-    , vviImageLinks-    , vviPanelizationSummary-    , vviAverageRating-    , vviRatingsCount-    , vviCanonicalVolumeLink-    , vviReadingModes-    , vviIndustryIdentifiers-    , vviSeriesInfo-    , vviPrintedPageCount-    , vviMainCategory-    , vviContentVersion-    , vviSamplePageCount-    , vviCategories-    , vviAuthors-    , vviComicsContent-    , vviAllowAnonLogging-    , vviSubtitle-    , vviPublishedDate-    , vviMaturityRating-    , vviPreviewLink-    , vviLanguage-    , vviTitle-    , vviPageCount-    , vviDimensions-    , vviInfoLink-    , vviPublisher-    , vviDescription-    , vviPrintType--    -- ** MetadataItemsItem-    , MetadataItemsItem-    , metadataItemsItem-    , miiSize-    , miiVersion-    , miiLanguage-    , miiDownloadURL-    , miiEncryptedKey--    -- ** DictlayerDataDictWordsItemSensesItemSource-    , DictlayerDataDictWordsItemSensesItemSource-    , dictlayerDataDictWordsItemSensesItemSource-    , dddwisisURL-    , dddwisisAttribution--    -- ** VolumeSaleInfoOffersItemRetailPrice-    , VolumeSaleInfoOffersItemRetailPrice-    , volumeSaleInfoOffersItemRetailPrice-    , vsioirpCurrencyCode-    , vsioirpAmountInMicros--    -- ** VolumeUserInfoFamilySharing-    , VolumeUserInfoFamilySharing-    , volumeUserInfoFamilySharing-    , vuifsFamilyRole-    , vuifsIsSharingAllowed-    , vuifsIsSharingDisabledByFop--    -- ** UserSettingsNotificationMoreFromSeries-    , UserSettingsNotificationMoreFromSeries-    , userSettingsNotificationMoreFromSeries-    , usnmfsOptedState--    -- ** VolumeVolumeInfoIndustryIdentifiersItem-    , VolumeVolumeInfoIndustryIdentifiersItem-    , volumeVolumeInfoIndustryIdentifiersItem-    , vviiiiIdentifier-    , vviiiiType--    -- ** BooksAnnotationsRange-    , BooksAnnotationsRange-    , booksAnnotationsRange-    , barStartOffSet-    , barEndOffSet-    , barEndPosition-    , barStartPosition--    -- ** VolumesListMaxAllowedMaturityRating-    , VolumesListMaxAllowedMaturityRating (..)--    -- ** Layersummaries-    , Layersummaries-    , layersummaries-    , layTotalItems-    , layKind-    , layItems-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude-import           Network.Google.Resource.Books.Bookshelves.Get-import           Network.Google.Resource.Books.Bookshelves.List-import           Network.Google.Resource.Books.Bookshelves.Volumes.List-import           Network.Google.Resource.Books.CloudLoading.AddBook-import           Network.Google.Resource.Books.CloudLoading.DeleteBook-import           Network.Google.Resource.Books.CloudLoading.UpdateBook-import           Network.Google.Resource.Books.Dictionary.ListOfflineMetadata-import           Network.Google.Resource.Books.Familysharing.GetFamilyInfo-import           Network.Google.Resource.Books.Familysharing.Share-import           Network.Google.Resource.Books.Familysharing.Unshare-import           Network.Google.Resource.Books.Layers.AnnotationData.Get-import           Network.Google.Resource.Books.Layers.AnnotationData.List-import           Network.Google.Resource.Books.Layers.Get-import           Network.Google.Resource.Books.Layers.List-import           Network.Google.Resource.Books.Layers.VolumeAnnotations.Get-import           Network.Google.Resource.Books.Layers.VolumeAnnotations.List-import           Network.Google.Resource.Books.MyConfig.GetUserSettings-import           Network.Google.Resource.Books.MyConfig.ReleaseDownloadAccess-import           Network.Google.Resource.Books.MyConfig.RequestAccess-import           Network.Google.Resource.Books.MyConfig.SyncVolumeLicenses-import           Network.Google.Resource.Books.MyConfig.UpdateUserSettings-import           Network.Google.Resource.Books.MyLibrary.Annotations.Delete-import           Network.Google.Resource.Books.MyLibrary.Annotations.Insert-import           Network.Google.Resource.Books.MyLibrary.Annotations.List-import           Network.Google.Resource.Books.MyLibrary.Annotations.Summary-import           Network.Google.Resource.Books.MyLibrary.Annotations.Update-import           Network.Google.Resource.Books.MyLibrary.Bookshelves.AddVolume-import           Network.Google.Resource.Books.MyLibrary.Bookshelves.ClearVolumes-import           Network.Google.Resource.Books.MyLibrary.Bookshelves.Get-import           Network.Google.Resource.Books.MyLibrary.Bookshelves.List-import           Network.Google.Resource.Books.MyLibrary.Bookshelves.MoveVolume-import           Network.Google.Resource.Books.MyLibrary.Bookshelves.RemoveVolume-import           Network.Google.Resource.Books.MyLibrary.Bookshelves.Volumes.List-import           Network.Google.Resource.Books.MyLibrary.ReadingPositions.Get-import           Network.Google.Resource.Books.MyLibrary.ReadingPositions.SetPosition-import           Network.Google.Resource.Books.Notification.Get-import           Network.Google.Resource.Books.Onboarding.ListCategories-import           Network.Google.Resource.Books.Onboarding.ListCategoryVolumes-import           Network.Google.Resource.Books.Personalizedstream.Get-import           Network.Google.Resource.Books.PromoOffer.Accept-import           Network.Google.Resource.Books.PromoOffer.Dismiss-import           Network.Google.Resource.Books.PromoOffer.Get-import           Network.Google.Resource.Books.Series.Get-import           Network.Google.Resource.Books.Series.Membership.Get-import           Network.Google.Resource.Books.Volumes.Associated.List-import           Network.Google.Resource.Books.Volumes.Get-import           Network.Google.Resource.Books.Volumes.List-import           Network.Google.Resource.Books.Volumes.Mybooks.List-import           Network.Google.Resource.Books.Volumes.Recommended.List-import           Network.Google.Resource.Books.Volumes.Recommended.Rate-import           Network.Google.Resource.Books.Volumes.UserUploaded.List--{- $resources-TODO--}---- | Represents the entirety of the methods and resources available for the Books API service.-type BooksAPI =-     NotificationGetResource :<|>-       SeriesMembershipGetResource-       :<|> SeriesGetResource-       :<|> OnboardingListCategoriesResource-       :<|> OnboardingListCategoryVolumesResource-       :<|> MyLibraryAnnotationsSummaryResource-       :<|> MyLibraryAnnotationsInsertResource-       :<|> MyLibraryAnnotationsListResource-       :<|> MyLibraryAnnotationsDeleteResource-       :<|> MyLibraryAnnotationsUpdateResource-       :<|> MyLibraryReadingPositionsGetResource-       :<|> MyLibraryReadingPositionsSetPositionResource-       :<|> MyLibraryBookshelvesVolumesListResource-       :<|> MyLibraryBookshelvesClearVolumesResource-       :<|> MyLibraryBookshelvesListResource-       :<|> MyLibraryBookshelvesGetResource-       :<|> MyLibraryBookshelvesRemoveVolumeResource-       :<|> MyLibraryBookshelvesAddVolumeResource-       :<|> MyLibraryBookshelvesMoveVolumeResource-       :<|> PromoOfferAcceptResource-       :<|> PromoOfferGetResource-       :<|> PromoOfferDismissResource-       :<|> CloudLoadingAddBookResource-       :<|> CloudLoadingUpdateBookResource-       :<|> CloudLoadingDeleteBookResource-       :<|> LayersVolumeAnnotationsListResource-       :<|> LayersVolumeAnnotationsGetResource-       :<|> LayersAnnotationDataListResource-       :<|> LayersAnnotationDataGetResource-       :<|> LayersListResource-       :<|> LayersGetResource-       :<|> DictionaryListOfflineMetadataResource-       :<|> VolumesUserUploadedListResource-       :<|> VolumesRecommendedListResource-       :<|> VolumesRecommendedRateResource-       :<|> VolumesAssociatedListResource-       :<|> VolumesMybooksListResource-       :<|> VolumesListResource-       :<|> VolumesGetResource-       :<|> BookshelvesVolumesListResource-       :<|> BookshelvesListResource-       :<|> BookshelvesGetResource-       :<|> FamilysharingShareResource-       :<|> FamilysharingGetFamilyInfoResource-       :<|> FamilysharingUnshareResource-       :<|> PersonalizedstreamGetResource-       :<|> MyConfigSyncVolumeLicensesResource-       :<|> MyConfigGetUserSettingsResource-       :<|> MyConfigRequestAccessResource-       :<|> MyConfigUpdateUserSettingsResource-       :<|> MyConfigReleaseDownloadAccessResource
− gen/Network/Google/Books/Types.hs 
@@ -1,996 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.Books.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.Books.Types-    (-    -- * Service Configuration-      booksService--    -- * OAuth Scopes-    , booksScope--    -- * UserSettings-    , UserSettings-    , userSettings-    , usNotification-    , usKind-    , usNotesExport--    -- * Annotations-    , Annotations-    , annotations-    , aTotalItems-    , aNextPageToken-    , aKind-    , aItems--    -- * VolumesListProjection-    , VolumesListProjection (..)--    -- * MyLibraryBookshelvesVolumesListProjection-    , MyLibraryBookshelvesVolumesListProjection (..)--    -- * VolumesListOrderBy-    , VolumesListOrderBy (..)--    -- * AnnotationsData-    , AnnotationsData-    , annotationsData-    , adTotalItems-    , adNextPageToken-    , adKind-    , adItems--    -- * UserSettingsNotificationMoreFromAuthors-    , UserSettingsNotificationMoreFromAuthors-    , userSettingsNotificationMoreFromAuthors-    , usnmfaOptedState--    -- * Volumeannotations-    , Volumeannotations-    , volumeannotations-    , vTotalItems-    , vNextPageToken-    , vKind-    , vItems-    , vVersion--    -- * ReviewSource-    , ReviewSource-    , reviewSource-    , rsExtraDescription-    , rsURL-    , rsDescription--    -- * AnnotationData-    , AnnotationData-    , annotationData-    , annEncodedData-    , annKind-    , annData-    , annSelfLink-    , annAnnotationType-    , annVolumeId-    , annId-    , annUpdated-    , annLayerId--    -- * Volumeannotation-    , Volumeannotation-    , volumeannotation-    , volSelectedText-    , volAnnotationDataLink-    , volPageIds-    , volKind-    , volData-    , volSelfLink-    , volAnnotationType-    , volAnnotationDataId-    , volContentRanges-    , volVolumeId-    , volId-    , volDeleted-    , volUpdated-    , volLayerId--    -- * BooksCloudLoadingResource-    , BooksCloudLoadingResource-    , booksCloudLoadingResource-    , bclrProcessingState-    , bclrVolumeId-    , bclrAuthor-    , bclrTitle--    -- * VolumeseriesInfoVolumeSeriesItemIssueItem-    , VolumeseriesInfoVolumeSeriesItemIssueItem-    , volumeseriesInfoVolumeSeriesItemIssueItem-    , vivsiiiIssueOrderNumber-    , vivsiiiIssueDisplayNumber--    -- * Annotation-    , Annotation-    , annotation-    , aaSelectedText-    , aaLayerSummary-    , aaHighlightStyle-    , aaClientVersionRanges-    , aaPageIds-    , aaKind-    , aaData-    , aaCreated-    , aaAfterSelectedText-    , aaSelfLink-    , aaCurrentVersionRanges-    , aaVolumeId-    , aaBeforeSelectedText-    , aaId-    , aaDeleted-    , aaUpdated-    , aaLayerId--    -- * ReviewAuthor-    , ReviewAuthor-    , reviewAuthor-    , raDisplayName--    -- * GeolayerDataGeoViewport-    , GeolayerDataGeoViewport-    , geolayerDataGeoViewport-    , gdgvHi-    , gdgvLo--    -- * VolumeUserInfo-    , VolumeUserInfo-    , volumeUserInfo-    , vuiIsFamilySharingAllowed-    , vuiIsFamilySharedToUser-    , vuiCopy-    , vuiUserUploadedVolumeInfo-    , vuiIsPurchased-    , vuiEntitlementType-    , vuiAcquisitionType-    , vuiAcquiredTime-    , vuiRentalState-    , vuiIsPreOrdered-    , vuiReview-    , vuiIsFamilySharedFromUser-    , vuiRentalPeriod-    , vuiUpdated-    , vuiIsUploaded-    , vuiIsInMyBooks-    , vuiReadingPosition-    , vuiFamilySharing-    , vuiIsFamilySharingDisabledByFop--    -- * Layersummary-    , Layersummary-    , layersummary-    , lAnnotationsDataLink-    , lAnnotationsLink-    , lKind-    , lDataCount-    , lContentVersion-    , lVolumeAnnotationsVersion-    , lAnnotationCount-    , lAnnotationTypes-    , lSelfLink-    , lVolumeId-    , lId-    , lUpdated-    , lLayerId--    -- * VolumesListLibraryRestrict-    , VolumesListLibraryRestrict (..)--    -- * VolumeannotationContentRanges-    , VolumeannotationContentRanges-    , volumeannotationContentRanges-    , vcrGbImageRange-    , vcrContentVersion-    , vcrGbTextRange-    , vcrCfiRange--    -- * VolumeAccessInfo-    , VolumeAccessInfo-    , volumeAccessInfo-    , vaiWebReaderLink-    , vaiCountry-    , vaiDriveImportedContentLink-    , vaiExplicitOfflineLicenseManagement-    , vaiViewability-    , vaiQuoteSharingAllowed-    , vaiEpub-    , vaiPdf-    , vaiTextToSpeechPermission-    , vaiEmbeddable-    , vaiAccessViewStatus-    , vaiDownloadAccess-    , vaiViewOrderURL-    , vaiPublicDomain--    -- * VolumeVolumeInfoPanelizationSummary-    , VolumeVolumeInfoPanelizationSummary-    , volumeVolumeInfoPanelizationSummary-    , vvipsEpubBubbleVersion-    , vvipsContainsImageBubbles-    , vvipsContainsEpubBubbles-    , vvipsImageBubbleVersion--    -- * MyLibraryBookshelvesRemoveVolumeReason-    , MyLibraryBookshelvesRemoveVolumeReason (..)--    -- * VolumeVolumeInfoImageLinks-    , VolumeVolumeInfoImageLinks-    , volumeVolumeInfoImageLinks-    , vviilThumbnail-    , vviilSmall-    , vviilExtraLarge-    , vviilLarge-    , vviilMedium-    , vviilSmallThumbnail--    -- * OnboardingListCategoryVolumesMaxAllowedMaturityRating-    , OnboardingListCategoryVolumesMaxAllowedMaturityRating (..)--    -- * VolumeUserInfoUserUploadedVolumeInfo-    , VolumeUserInfoUserUploadedVolumeInfo-    , volumeUserInfoUserUploadedVolumeInfo-    , vuiuuviProcessingState--    -- * VolumeUserInfoCopy-    , VolumeUserInfoCopy-    , volumeUserInfoCopy-    , vuicLimitType-    , vuicAllowedCharacterCount-    , vuicUpdated-    , vuicRemainingCharacterCount--    -- * BooksVolumesRecommendedRateResponse-    , BooksVolumesRecommendedRateResponse-    , booksVolumesRecommendedRateResponse-    , bvrrrConsistencyToken--    -- * UserSettingsNotificationPriceDrop-    , UserSettingsNotificationPriceDrop-    , userSettingsNotificationPriceDrop-    , usnpdOptedState--    -- * VolumeseriesInfo-    , VolumeseriesInfo-    , volumeseriesInfo-    , viBookDisplayNumber-    , viKind-    , viShortSeriesBookTitle-    , viVolumeSeries--    -- * Bookshelf-    , Bookshelf-    , bookshelf-    , bAccess-    , bVolumesLastUpdated-    , bKind-    , bCreated-    , bVolumeCount-    , bSelfLink-    , bId-    , bUpdated-    , bTitle-    , bDescription--    -- * Notification-    , Notification-    , notification-    , nDocType-    , nTargetURL-    , nShowNotificationSettingsAction-    , nDocId-    , nKind-    , nBody-    , nCrmExperimentIds-    , nTimeToExpireMs-    , nPcampaignId-    , nReason-    , nIsDocumentMature-    , nDontShowNotification-    , nNotificationType-    , nNotificationGroup-    , nIconURL-    , nTitle--    -- * VolumesListDownload-    , VolumesListDownload (..)--    -- * AnnotationsSummaryLayersItem-    , AnnotationsSummaryLayersItem-    , annotationsSummaryLayersItem-    , asliLimitType-    , asliAllowedCharacterCount-    , asliUpdated-    , asliLayerId-    , asliRemainingCharacterCount--    -- * VolumeSaleInfoOffersItemRentalDuration-    , VolumeSaleInfoOffersItemRentalDuration-    , volumeSaleInfoOffersItemRentalDuration-    , vsioirdCount-    , vsioirdUnit--    -- * DictlayerDataDictWordsItemExamplesItem-    , DictlayerDataDictWordsItemExamplesItem-    , dictlayerDataDictWordsItemExamplesItem-    , dddwieiText-    , dddwieiSource--    -- * OffersItemsItem-    , OffersItemsItem-    , offersItemsItem-    , oiiItems-    , oiiArtURL-    , oiiId-    , oiiGServicesKey--    -- * AnnotationLayerSummary-    , AnnotationLayerSummary-    , annotationLayerSummary-    , alsLimitType-    , alsAllowedCharacterCount-    , alsRemainingCharacterCount--    -- * VolumeSearchInfo-    , VolumeSearchInfo-    , volumeSearchInfo-    , vsiTextSnippet--    -- * AnnotationsSummary-    , AnnotationsSummary-    , annotationsSummary-    , asKind-    , asLayers--    -- * VolumesGetProjection-    , VolumesGetProjection (..)--    -- * Category-    , Category-    , category-    , cKind-    , cItems--    -- * VolumesAssociatedListAssociation-    , VolumesAssociatedListAssociation (..)--    -- * DiscoveryclustersClustersItemBanner_with_content_container-    , DiscoveryclustersClustersItemBanner_with_content_container-    , discoveryclustersClustersItemBanner_with_content_container-    , dcibFillColorArgb-    , dcibMoreButtonURL-    , dcibTextColorArgb-    , dcibMoreButtonText-    , dcibImageURL-    , dcibMaskColorArgb--    -- * Volume-    , Volume-    , volume-    , vvUserInfo-    , vvEtag-    , vvAccessInfo-    , vvKind-    , vvSearchInfo-    , vvSelfLink-    , vvLayerInfo-    , vvSaleInfo-    , vvId-    , vvRecommendedInfo-    , vvVolumeInfo--    -- * GeolayerDataGeoBoundaryItemItem-    , GeolayerDataGeoBoundaryItemItem-    , geolayerDataGeoBoundaryItemItem-    , gdgbiiLatitude-    , gdgbiiLongitude--    -- * Series-    , Series-    , series-    , sKind-    , sSeries--    -- * OffersItemsItemItemsItem-    , OffersItemsItemItemsItem-    , offersItemsItemItemsItem-    , oiiiiCanonicalVolumeLink-    , oiiiiCoverURL-    , oiiiiVolumeId-    , oiiiiAuthor-    , oiiiiTitle-    , oiiiiDescription--    -- * DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource-    , DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource-    , dictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource-    , dddwisidieisURL-    , dddwisidieisAttribution--    -- * GeolayerDataCommon-    , GeolayerDataCommon-    , geolayerDataCommon-    , gdcSnippet-    , gdcSnippetURL-    , gdcLang-    , gdcTitle-    , gdcPreviewImageURL--    -- * GeolayerDataGeo-    , GeolayerDataGeo-    , geolayerDataGeo-    , gdgMapType-    , gdgCachePolicy-    , gdgViewport-    , gdgBoundary-    , gdgLatitude-    , gdgZoom-    , gdgCountryCode-    , gdgLongitude--    -- * DictlayerDataDictWordsItem-    , DictlayerDataDictWordsItem-    , dictlayerDataDictWordsItem-    , dddwiSenses-    , dddwiSource-    , dddwiDerivatives-    , dddwiExamples--    -- * CategoryItemsItem-    , CategoryItemsItem-    , categoryItemsItem-    , ciiName-    , ciiCategoryId-    , ciiBadgeURL--    -- * DictlayerDataDictWordsItemDerivativesItemSource-    , DictlayerDataDictWordsItemDerivativesItemSource-    , dictlayerDataDictWordsItemDerivativesItemSource-    , dddwidisURL-    , dddwidisAttribution--    -- * VolumesRecommendedRateRating-    , VolumesRecommendedRateRating (..)--    -- * GeolayerData-    , GeolayerData-    , geolayerData-    , gdKind-    , gdGeo-    , gdCommon--    -- * DictlayerDataDictWordsItemSource-    , DictlayerDataDictWordsItemSource-    , dictlayerDataDictWordsItemSource-    , dddwisURL-    , dddwisAttribution--    -- * DictlayerDataDictWordsItemDerivativesItem-    , DictlayerDataDictWordsItemDerivativesItem-    , dictlayerDataDictWordsItemDerivativesItem-    , dddwidiText-    , dddwidiSource--    -- * VolumesUserUploadedListProcessingState-    , VolumesUserUploadedListProcessingState (..)--    -- * MyConfigSyncVolumeLicensesFeatures-    , MyConfigSyncVolumeLicensesFeatures (..)--    -- * DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem-    , DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem-    , dictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem-    , dddwisidieiText-    , dddwisidieiSource--    -- * UserSettingsNotificationRewardExpirations-    , UserSettingsNotificationRewardExpirations-    , userSettingsNotificationRewardExpirations-    , usnreOptedState--    -- * DictlayerData-    , DictlayerData-    , dictlayerData-    , ddKind-    , ddDict-    , ddCommon--    -- * VolumesAssociatedListMaxAllowedMaturityRating-    , VolumesAssociatedListMaxAllowedMaturityRating (..)--    -- * DictlayerDataDictWordsItemSensesItemSynonymsItemSource-    , DictlayerDataDictWordsItemSensesItemSynonymsItemSource-    , dictlayerDataDictWordsItemSensesItemSynonymsItemSource-    , dddwisisisURL-    , dddwisisisAttribution--    -- * Seriesmembership-    , Seriesmembership-    , seriesmembership-    , serNextPageToken-    , serKind-    , serMember--    -- * VolumesListFilter-    , VolumesListFilter (..)--    -- * UserSettingsNotification-    , UserSettingsNotification-    , userSettingsNotification-    , usnRewardExpirations-    , usnPriceDrop-    , usnMatchMyInterests-    , usnMoreFromAuthors-    , usnMoreFromSeries--    -- * DictlayerDataDictWordsItemSensesItemSynonymsItem-    , DictlayerDataDictWordsItemSensesItemSynonymsItem-    , dictlayerDataDictWordsItemSensesItemSynonymsItem-    , dddwisisiText-    , dddwisisiSource--    -- * GeolayerDataGeoViewportLo-    , GeolayerDataGeoViewportLo-    , geolayerDataGeoViewportLo-    , gdgvlLatitude-    , gdgvlLongitude--    -- * VolumesRecommendedListMaxAllowedMaturityRating-    , VolumesRecommendedListMaxAllowedMaturityRating (..)--    -- * VolumeSaleInfoOffersItemListPrice-    , VolumeSaleInfoOffersItemListPrice-    , volumeSaleInfoOffersItemListPrice-    , vsioilpCurrencyCode-    , vsioilpAmountInMicros--    -- * DownloadAccessRestriction-    , DownloadAccessRestriction-    , downloadAccessRestriction-    , darJustAcquired-    , darSignature-    , darKind-    , darMaxDownloadDevices-    , darDownloadsAcquired-    , darReasonCode-    , darVolumeId-    , darRestricted-    , darSource-    , darDeviceAllowed-    , darMessage-    , darNonce--    -- * DictlayerDataCommon-    , DictlayerDataCommon-    , dictlayerDataCommon-    , ddcTitle--    -- * DiscoveryclustersClustersItem-    , DiscoveryclustersClustersItem-    , discoveryclustersClustersItem-    , dciBannerWithContentContainer-    , dciUid-    , dciTotalVolumes-    , dciSubTitle-    , dciTitle-    , dciVolumes--    -- * VolumeSaleInfoRetailPrice-    , VolumeSaleInfoRetailPrice-    , volumeSaleInfoRetailPrice-    , vsirpAmount-    , vsirpCurrencyCode--    -- * VolumeSaleInfoListPrice-    , VolumeSaleInfoListPrice-    , volumeSaleInfoListPrice-    , vsilpAmount-    , vsilpCurrencyCode--    -- * DictlayerDataDictWordsItemSensesItemConjugationsItem-    , DictlayerDataDictWordsItemSensesItemConjugationsItem-    , dictlayerDataDictWordsItemSensesItemConjugationsItem-    , dddwisiciValue-    , dddwisiciType--    -- * FamilyInfoMembership-    , FamilyInfoMembership-    , familyInfoMembership-    , fimAllowedMaturityRating-    , fimAcquirePermission-    , fimRole-    , fimAgeGroup-    , fimIsInFamily--    -- * Volume2-    , Volume2-    , volume2-    , voloNextPageToken-    , voloKind-    , voloItems--    -- * Review-    , Review-    , review-    , rRating-    , rKind-    , rContent-    , rDate-    , rVolumeId-    , rAuthor-    , rSource-    , rFullTextURL-    , rTitle-    , rType--    -- * VolumeUserInfoRentalPeriod-    , VolumeUserInfoRentalPeriod-    , volumeUserInfoRentalPeriod-    , vuirpEndUtcSec-    , vuirpStartUtcSec--    -- * VolumeSaleInfo-    , VolumeSaleInfo-    , volumeSaleInfo-    , vsiCountry-    , vsiOnSaleDate-    , vsiListPrice-    , vsiRetailPrice-    , vsiOffers-    , vsiBuyLink-    , vsiIsEbook-    , vsiSaleability--    -- * MyLibraryBookshelvesAddVolumeReason-    , MyLibraryBookshelvesAddVolumeReason (..)--    -- * SeriesSeriesItem-    , SeriesSeriesItem-    , seriesSeriesItem-    , ssiSeriesId-    , ssiImageURL-    , ssiBannerImageURL-    , ssiTitle-    , ssiSeriesType--    -- * Metadata-    , Metadata-    , metadata-    , mKind-    , mItems--    -- * VolumeLayerInfo-    , VolumeLayerInfo-    , volumeLayerInfo-    , vliLayers--    -- * VolumeVolumeInfoDimensions-    , VolumeVolumeInfoDimensions-    , volumeVolumeInfoDimensions-    , vvidHeight-    , vvidWidth-    , vvidThickness--    -- * RequestAccess-    , RequestAccess-    , requestAccess-    , raConcurrentAccess-    , raKind-    , raDownloadAccess--    -- * FamilyInfo-    , FamilyInfo-    , familyInfo-    , fiMembership-    , fiKind--    -- * AnnotationClientVersionRanges-    , AnnotationClientVersionRanges-    , annotationClientVersionRanges-    , acvrGbImageRange-    , acvrContentVersion-    , acvrImageCfiRange-    , acvrGbTextRange-    , acvrCfiRange--    -- * VolumesMybooksListAcquireMethod-    , VolumesMybooksListAcquireMethod (..)--    -- * DictlayerDataDictWordsItemSensesItemDefinitionsItem-    , DictlayerDataDictWordsItemSensesItemDefinitionsItem-    , dictlayerDataDictWordsItemSensesItemDefinitionsItem-    , dddwisidiDefinition-    , dddwisidiExamples--    -- * VolumeLayerInfoLayersItem-    , VolumeLayerInfoLayersItem-    , volumeLayerInfoLayersItem-    , vliliVolumeAnnotationsVersion-    , vliliLayerId--    -- * AnnotationCurrentVersionRanges-    , AnnotationCurrentVersionRanges-    , annotationCurrentVersionRanges-    , aGbImageRange-    , aContentVersion-    , aImageCfiRange-    , aGbTextRange-    , aCfiRange--    -- * PersonalizedstreamGetMaxAllowedMaturityRating-    , PersonalizedstreamGetMaxAllowedMaturityRating (..)--    -- * VolumesListPrintType-    , VolumesListPrintType (..)--    -- * VolumeAccessInfoPdf-    , VolumeAccessInfoPdf-    , volumeAccessInfoPdf-    , vaipAcsTokenLink-    , vaipIsAvailable-    , vaipDownloadLink--    -- * DictlayerDataDictWordsItemExamplesItemSource-    , DictlayerDataDictWordsItemExamplesItemSource-    , dictlayerDataDictWordsItemExamplesItemSource-    , dddwieisURL-    , dddwieisAttribution--    -- * VolumeAccessInfoEpub-    , VolumeAccessInfoEpub-    , volumeAccessInfoEpub-    , vaieAcsTokenLink-    , vaieIsAvailable-    , vaieDownloadLink--    -- * ReadingPosition-    , ReadingPosition-    , readingPosition-    , rpEpubCfiPosition-    , rpKind-    , rpGbImagePosition-    , rpPdfPosition-    , rpVolumeId-    , rpUpdated-    , rpGbTextPosition--    -- * VolumeSaleInfoOffersItem-    , VolumeSaleInfoOffersItem-    , volumeSaleInfoOffersItem-    , vsioiFinskyOfferType-    , vsioiRentalDuration-    , vsioiListPrice-    , vsioiRetailPrice-    , vsioiGiftable--    -- * DictlayerDataDict-    , DictlayerDataDict-    , dictlayerDataDict-    , dddSource-    , dddWords--    -- * DictlayerDataDictWordsItemSensesItem-    , DictlayerDataDictWordsItemSensesItem-    , dictlayerDataDictWordsItemSensesItem-    , dddwisiPronunciationURL-    , dddwisiConjugations-    , dddwisiPronunciation-    , dddwisiSynonyms-    , dddwisiSource-    , dddwisiPartOfSpeech-    , dddwisiDefinitions-    , dddwisiSyllabification--    -- * VolumeRecommendedInfo-    , VolumeRecommendedInfo-    , volumeRecommendedInfo-    , vriExplanation--    -- * Offers-    , Offers-    , offers-    , oKind-    , oItems--    -- * VolumesMybooksListProcessingState-    , VolumesMybooksListProcessingState (..)--    -- * Discoveryclusters-    , Discoveryclusters-    , discoveryclusters-    , dKind-    , dTotalClusters-    , dClusters--    -- * VolumeseriesInfoVolumeSeriesItem-    , VolumeseriesInfoVolumeSeriesItem-    , volumeseriesInfoVolumeSeriesItem-    , vivsiSeriesId-    , vivsiSeriesBookType-    , vivsiOrderNumber-    , vivsiIssue--    -- * UserSettingsNotesExport-    , UserSettingsNotesExport-    , userSettingsNotesExport-    , usneFolderName-    , usneIsEnabled--    -- * ConcurrentAccessRestriction-    , ConcurrentAccessRestriction-    , concurrentAccessRestriction-    , carMaxConcurrentDevices-    , carSignature-    , carTimeWindowSeconds-    , carKind-    , carReasonCode-    , carVolumeId-    , carRestricted-    , carSource-    , carDeviceAllowed-    , carMessage-    , carNonce--    -- * Volumes-    , Volumes-    , volumes-    , v1TotalItems-    , v1Kind-    , v1Items--    -- * UserSettingsNotificationMatchMyInterests-    , UserSettingsNotificationMatchMyInterests-    , userSettingsNotificationMatchMyInterests-    , usnmmiOptedState--    -- * Bookshelves-    , Bookshelves-    , bookshelves-    , booKind-    , booItems--    -- * MyConfigRequestAccessLicenseTypes-    , MyConfigRequestAccessLicenseTypes (..)--    -- * DictlayerDataDictSource-    , DictlayerDataDictSource-    , dictlayerDataDictSource-    , dddsURL-    , dddsAttribution--    -- * DownloadAccesses-    , DownloadAccesses-    , downloadAccesses-    , daKind-    , daDownloadAccessList--    -- * GeolayerDataGeoViewportHi-    , GeolayerDataGeoViewportHi-    , geolayerDataGeoViewportHi-    , gdgvhLatitude-    , gdgvhLongitude--    -- * MyLibraryReadingPositionsSetPositionAction-    , MyLibraryReadingPositionsSetPositionAction (..)--    -- * VolumeVolumeInfo-    , VolumeVolumeInfo-    , volumeVolumeInfo-    , vviImageLinks-    , vviPanelizationSummary-    , vviAverageRating-    , vviRatingsCount-    , vviCanonicalVolumeLink-    , vviReadingModes-    , vviIndustryIdentifiers-    , vviSeriesInfo-    , vviPrintedPageCount-    , vviMainCategory-    , vviContentVersion-    , vviSamplePageCount-    , vviCategories-    , vviAuthors-    , vviComicsContent-    , vviAllowAnonLogging-    , vviSubtitle-    , vviPublishedDate-    , vviMaturityRating-    , vviPreviewLink-    , vviLanguage-    , vviTitle-    , vviPageCount-    , vviDimensions-    , vviInfoLink-    , vviPublisher-    , vviDescription-    , vviPrintType--    -- * MetadataItemsItem-    , MetadataItemsItem-    , metadataItemsItem-    , miiSize-    , miiVersion-    , miiLanguage-    , miiDownloadURL-    , miiEncryptedKey--    -- * DictlayerDataDictWordsItemSensesItemSource-    , DictlayerDataDictWordsItemSensesItemSource-    , dictlayerDataDictWordsItemSensesItemSource-    , dddwisisURL-    , dddwisisAttribution--    -- * VolumeSaleInfoOffersItemRetailPrice-    , VolumeSaleInfoOffersItemRetailPrice-    , volumeSaleInfoOffersItemRetailPrice-    , vsioirpCurrencyCode-    , vsioirpAmountInMicros--    -- * VolumeUserInfoFamilySharing-    , VolumeUserInfoFamilySharing-    , volumeUserInfoFamilySharing-    , vuifsFamilyRole-    , vuifsIsSharingAllowed-    , vuifsIsSharingDisabledByFop--    -- * UserSettingsNotificationMoreFromSeries-    , UserSettingsNotificationMoreFromSeries-    , userSettingsNotificationMoreFromSeries-    , usnmfsOptedState--    -- * VolumeVolumeInfoIndustryIdentifiersItem-    , VolumeVolumeInfoIndustryIdentifiersItem-    , volumeVolumeInfoIndustryIdentifiersItem-    , vviiiiIdentifier-    , vviiiiType--    -- * BooksAnnotationsRange-    , BooksAnnotationsRange-    , booksAnnotationsRange-    , barStartOffSet-    , barEndOffSet-    , barEndPosition-    , barStartPosition--    -- * VolumesListMaxAllowedMaturityRating-    , VolumesListMaxAllowedMaturityRating (..)--    -- * Layersummaries-    , Layersummaries-    , layersummaries-    , layTotalItems-    , layKind-    , layItems-    ) where--import           Network.Google.Books.Types.Product-import           Network.Google.Books.Types.Sum-import           Network.Google.Prelude---- | Default request referring to version 'v1' of the Books API. This contains the host and root path used as a starting point for constructing service requests.-booksService :: ServiceConfig-booksService-  = defaultService (ServiceId "books:v1")-      "www.googleapis.com"---- | Manage your books-booksScope :: Proxy '["https://www.googleapis.com/auth/books"]-booksScope = Proxy
− gen/Network/Google/Books/Types/Product.hs 
@@ -1,8424 +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.Books.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.Books.Types.Product where--import           Network.Google.Books.Types.Sum-import           Network.Google.Prelude------- /See:/ 'userSettings' smart constructor.-data UserSettings =-  UserSettings'-    { _usNotification :: !(Maybe UserSettingsNotification)-    , _usKind         :: !Text-    , _usNotesExport  :: !(Maybe UserSettingsNotesExport)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usNotification'------ * 'usKind'------ * 'usNotesExport'-userSettings-    :: UserSettings-userSettings =-  UserSettings'-    { _usNotification = Nothing-    , _usKind = "books#usersettings"-    , _usNotesExport = Nothing-    }---usNotification :: Lens' UserSettings (Maybe UserSettingsNotification)-usNotification-  = lens _usNotification-      (\ s a -> s{_usNotification = a})---- | Resource type.-usKind :: Lens' UserSettings Text-usKind = lens _usKind (\ s a -> s{_usKind = a})---- | User settings in sub-objects, each for different purposes.-usNotesExport :: Lens' UserSettings (Maybe UserSettingsNotesExport)-usNotesExport-  = lens _usNotesExport-      (\ s a -> s{_usNotesExport = a})--instance FromJSON UserSettings where-        parseJSON-          = withObject "UserSettings"-              (\ o ->-                 UserSettings' <$>-                   (o .:? "notification") <*>-                     (o .:? "kind" .!= "books#usersettings")-                     <*> (o .:? "notesExport"))--instance ToJSON UserSettings where-        toJSON UserSettings'{..}-          = object-              (catMaybes-                 [("notification" .=) <$> _usNotification,-                  Just ("kind" .= _usKind),-                  ("notesExport" .=) <$> _usNotesExport])------- /See:/ 'annotations' smart constructor.-data Annotations =-  Annotations'-    { _aTotalItems    :: !(Maybe (Textual Int32))-    , _aNextPageToken :: !(Maybe Text)-    , _aKind          :: !Text-    , _aItems         :: !(Maybe [Annotation])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Annotations' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aTotalItems'------ * 'aNextPageToken'------ * 'aKind'------ * 'aItems'-annotations-    :: Annotations-annotations =-  Annotations'-    { _aTotalItems = Nothing-    , _aNextPageToken = Nothing-    , _aKind = "books#annotations"-    , _aItems = Nothing-    }----- | Total number of annotations found. This may be greater than the number--- of notes returned in this response if results have been paginated.-aTotalItems :: Lens' Annotations (Maybe Int32)-aTotalItems-  = lens _aTotalItems (\ s a -> s{_aTotalItems = a}) .-      mapping _Coerce---- | Token to pass in for pagination for the next page. This will not be--- present if this request does not have more results.-aNextPageToken :: Lens' Annotations (Maybe Text)-aNextPageToken-  = lens _aNextPageToken-      (\ s a -> s{_aNextPageToken = a})---- | Resource type.-aKind :: Lens' Annotations Text-aKind = lens _aKind (\ s a -> s{_aKind = a})---- | A list of annotations.-aItems :: Lens' Annotations [Annotation]-aItems-  = lens _aItems (\ s a -> s{_aItems = a}) . _Default .-      _Coerce--instance FromJSON Annotations where-        parseJSON-          = withObject "Annotations"-              (\ o ->-                 Annotations' <$>-                   (o .:? "totalItems") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "books#annotations")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON Annotations where-        toJSON Annotations'{..}-          = object-              (catMaybes-                 [("totalItems" .=) <$> _aTotalItems,-                  ("nextPageToken" .=) <$> _aNextPageToken,-                  Just ("kind" .= _aKind), ("items" .=) <$> _aItems])------- /See:/ 'annotationsData' smart constructor.-data AnnotationsData =-  AnnotationsData'-    { _adTotalItems    :: !(Maybe (Textual Int32))-    , _adNextPageToken :: !(Maybe Text)-    , _adKind          :: !Text-    , _adItems         :: !(Maybe [AnnotationData])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AnnotationsData' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'adTotalItems'------ * 'adNextPageToken'------ * 'adKind'------ * 'adItems'-annotationsData-    :: AnnotationsData-annotationsData =-  AnnotationsData'-    { _adTotalItems = Nothing-    , _adNextPageToken = Nothing-    , _adKind = "books#annotationsdata"-    , _adItems = Nothing-    }----- | The total number of volume annotations found.-adTotalItems :: Lens' AnnotationsData (Maybe Int32)-adTotalItems-  = lens _adTotalItems (\ s a -> s{_adTotalItems = a})-      . mapping _Coerce---- | Token to pass in for pagination for the next page. This will not be--- present if this request does not have more results.-adNextPageToken :: Lens' AnnotationsData (Maybe Text)-adNextPageToken-  = lens _adNextPageToken-      (\ s a -> s{_adNextPageToken = a})---- | Resource type-adKind :: Lens' AnnotationsData Text-adKind = lens _adKind (\ s a -> s{_adKind = a})---- | A list of Annotation Data.-adItems :: Lens' AnnotationsData [AnnotationData]-adItems-  = lens _adItems (\ s a -> s{_adItems = a}) . _Default-      . _Coerce--instance FromJSON AnnotationsData where-        parseJSON-          = withObject "AnnotationsData"-              (\ o ->-                 AnnotationsData' <$>-                   (o .:? "totalItems") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "books#annotationsdata")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON AnnotationsData where-        toJSON AnnotationsData'{..}-          = object-              (catMaybes-                 [("totalItems" .=) <$> _adTotalItems,-                  ("nextPageToken" .=) <$> _adNextPageToken,-                  Just ("kind" .= _adKind), ("items" .=) <$> _adItems])------- /See:/ 'userSettingsNotificationMoreFromAuthors' smart constructor.-newtype UserSettingsNotificationMoreFromAuthors =-  UserSettingsNotificationMoreFromAuthors'-    { _usnmfaOptedState :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserSettingsNotificationMoreFromAuthors' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usnmfaOptedState'-userSettingsNotificationMoreFromAuthors-    :: UserSettingsNotificationMoreFromAuthors-userSettingsNotificationMoreFromAuthors =-  UserSettingsNotificationMoreFromAuthors' {_usnmfaOptedState = Nothing}---usnmfaOptedState :: Lens' UserSettingsNotificationMoreFromAuthors (Maybe Text)-usnmfaOptedState-  = lens _usnmfaOptedState-      (\ s a -> s{_usnmfaOptedState = a})--instance FromJSON-           UserSettingsNotificationMoreFromAuthors-         where-        parseJSON-          = withObject-              "UserSettingsNotificationMoreFromAuthors"-              (\ o ->-                 UserSettingsNotificationMoreFromAuthors' <$>-                   (o .:? "opted_state"))--instance ToJSON-           UserSettingsNotificationMoreFromAuthors-         where-        toJSON UserSettingsNotificationMoreFromAuthors'{..}-          = object-              (catMaybes-                 [("opted_state" .=) <$> _usnmfaOptedState])------- /See:/ 'volumeannotations' smart constructor.-data Volumeannotations =-  Volumeannotations'-    { _vTotalItems    :: !(Maybe (Textual Int32))-    , _vNextPageToken :: !(Maybe Text)-    , _vKind          :: !Text-    , _vItems         :: !(Maybe [Volumeannotation])-    , _vVersion       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Volumeannotations' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vTotalItems'------ * 'vNextPageToken'------ * 'vKind'------ * 'vItems'------ * 'vVersion'-volumeannotations-    :: Volumeannotations-volumeannotations =-  Volumeannotations'-    { _vTotalItems = Nothing-    , _vNextPageToken = Nothing-    , _vKind = "books#volumeannotations"-    , _vItems = Nothing-    , _vVersion = Nothing-    }----- | The total number of volume annotations found.-vTotalItems :: Lens' Volumeannotations (Maybe Int32)-vTotalItems-  = lens _vTotalItems (\ s a -> s{_vTotalItems = a}) .-      mapping _Coerce---- | Token to pass in for pagination for the next page. This will not be--- present if this request does not have more results.-vNextPageToken :: Lens' Volumeannotations (Maybe Text)-vNextPageToken-  = lens _vNextPageToken-      (\ s a -> s{_vNextPageToken = a})---- | Resource type-vKind :: Lens' Volumeannotations Text-vKind = lens _vKind (\ s a -> s{_vKind = a})---- | A list of volume annotations.-vItems :: Lens' Volumeannotations [Volumeannotation]-vItems-  = lens _vItems (\ s a -> s{_vItems = a}) . _Default .-      _Coerce---- | The version string for all of the volume annotations in this layer (not--- just the ones in this response). Note: the version string doesn\'t apply--- to the annotation data, just the information in this response (e.g. the--- location of annotations in the book).-vVersion :: Lens' Volumeannotations (Maybe Text)-vVersion = lens _vVersion (\ s a -> s{_vVersion = a})--instance FromJSON Volumeannotations where-        parseJSON-          = withObject "Volumeannotations"-              (\ o ->-                 Volumeannotations' <$>-                   (o .:? "totalItems") <*> (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "books#volumeannotations")-                     <*> (o .:? "items" .!= mempty)-                     <*> (o .:? "version"))--instance ToJSON Volumeannotations where-        toJSON Volumeannotations'{..}-          = object-              (catMaybes-                 [("totalItems" .=) <$> _vTotalItems,-                  ("nextPageToken" .=) <$> _vNextPageToken,-                  Just ("kind" .= _vKind), ("items" .=) <$> _vItems,-                  ("version" .=) <$> _vVersion])---- | Information regarding the source of this review, when the review is not--- from a Google Books user.------ /See:/ 'reviewSource' smart constructor.-data ReviewSource =-  ReviewSource'-    { _rsExtraDescription :: !(Maybe Text)-    , _rsURL              :: !(Maybe Text)-    , _rsDescription      :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ReviewSource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rsExtraDescription'------ * 'rsURL'------ * 'rsDescription'-reviewSource-    :: ReviewSource-reviewSource =-  ReviewSource'-    {_rsExtraDescription = Nothing, _rsURL = Nothing, _rsDescription = Nothing}----- | Extra text about the source of the review.-rsExtraDescription :: Lens' ReviewSource (Maybe Text)-rsExtraDescription-  = lens _rsExtraDescription-      (\ s a -> s{_rsExtraDescription = a})---- | URL of the source of the review.-rsURL :: Lens' ReviewSource (Maybe Text)-rsURL = lens _rsURL (\ s a -> s{_rsURL = a})---- | Name of the source.-rsDescription :: Lens' ReviewSource (Maybe Text)-rsDescription-  = lens _rsDescription-      (\ s a -> s{_rsDescription = a})--instance FromJSON ReviewSource where-        parseJSON-          = withObject "ReviewSource"-              (\ o ->-                 ReviewSource' <$>-                   (o .:? "extraDescription") <*> (o .:? "url") <*>-                     (o .:? "description"))--instance ToJSON ReviewSource where-        toJSON ReviewSource'{..}-          = object-              (catMaybes-                 [("extraDescription" .=) <$> _rsExtraDescription,-                  ("url" .=) <$> _rsURL,-                  ("description" .=) <$> _rsDescription])------- /See:/ 'annotationData' smart constructor.-data AnnotationData =-  AnnotationData'-    { _annEncodedData    :: !(Maybe Bytes)-    , _annKind           :: !Text-    , _annData           :: !(Maybe JSONValue)-    , _annSelfLink       :: !(Maybe Text)-    , _annAnnotationType :: !(Maybe Text)-    , _annVolumeId       :: !(Maybe Text)-    , _annId             :: !(Maybe Text)-    , _annUpdated        :: !(Maybe DateTime')-    , _annLayerId        :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AnnotationData' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'annEncodedData'------ * 'annKind'------ * 'annData'------ * 'annSelfLink'------ * 'annAnnotationType'------ * 'annVolumeId'------ * 'annId'------ * 'annUpdated'------ * 'annLayerId'-annotationData-    :: AnnotationData-annotationData =-  AnnotationData'-    { _annEncodedData = Nothing-    , _annKind = "books#annotationdata"-    , _annData = Nothing-    , _annSelfLink = Nothing-    , _annAnnotationType = Nothing-    , _annVolumeId = Nothing-    , _annId = Nothing-    , _annUpdated = Nothing-    , _annLayerId = Nothing-    }----- | Base64 encoded data for this annotation data.-annEncodedData :: Lens' AnnotationData (Maybe ByteString)-annEncodedData-  = lens _annEncodedData-      (\ s a -> s{_annEncodedData = a})-      . mapping _Bytes---- | Resource Type-annKind :: Lens' AnnotationData Text-annKind = lens _annKind (\ s a -> s{_annKind = a})--annData :: Lens' AnnotationData (Maybe JSONValue)-annData = lens _annData (\ s a -> s{_annData = a})---- | URL for this resource. *-annSelfLink :: Lens' AnnotationData (Maybe Text)-annSelfLink-  = lens _annSelfLink (\ s a -> s{_annSelfLink = a})---- | The type of annotation this data is for.-annAnnotationType :: Lens' AnnotationData (Maybe Text)-annAnnotationType-  = lens _annAnnotationType-      (\ s a -> s{_annAnnotationType = a})---- | The volume id for this data. *-annVolumeId :: Lens' AnnotationData (Maybe Text)-annVolumeId-  = lens _annVolumeId (\ s a -> s{_annVolumeId = a})---- | Unique id for this annotation data.-annId :: Lens' AnnotationData (Maybe Text)-annId = lens _annId (\ s a -> s{_annId = a})---- | Timestamp for the last time this data was updated. (RFC 3339 UTC--- date-time format).-annUpdated :: Lens' AnnotationData (Maybe UTCTime)-annUpdated-  = lens _annUpdated (\ s a -> s{_annUpdated = a}) .-      mapping _DateTime---- | The Layer id for this data. *-annLayerId :: Lens' AnnotationData (Maybe Text)-annLayerId-  = lens _annLayerId (\ s a -> s{_annLayerId = a})--instance FromJSON AnnotationData where-        parseJSON-          = withObject "AnnotationData"-              (\ o ->-                 AnnotationData' <$>-                   (o .:? "encoded_data") <*>-                     (o .:? "kind" .!= "books#annotationdata")-                     <*> (o .:? "data")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "annotationType")-                     <*> (o .:? "volumeId")-                     <*> (o .:? "id")-                     <*> (o .:? "updated")-                     <*> (o .:? "layerId"))--instance ToJSON AnnotationData where-        toJSON AnnotationData'{..}-          = object-              (catMaybes-                 [("encoded_data" .=) <$> _annEncodedData,-                  Just ("kind" .= _annKind), ("data" .=) <$> _annData,-                  ("selfLink" .=) <$> _annSelfLink,-                  ("annotationType" .=) <$> _annAnnotationType,-                  ("volumeId" .=) <$> _annVolumeId,-                  ("id" .=) <$> _annId, ("updated" .=) <$> _annUpdated,-                  ("layerId" .=) <$> _annLayerId])------- /See:/ 'volumeannotation' smart constructor.-data Volumeannotation =-  Volumeannotation'-    { _volSelectedText       :: !(Maybe Text)-    , _volAnnotationDataLink :: !(Maybe Text)-    , _volPageIds            :: !(Maybe [Text])-    , _volKind               :: !Text-    , _volData               :: !(Maybe Text)-    , _volSelfLink           :: !(Maybe Text)-    , _volAnnotationType     :: !(Maybe Text)-    , _volAnnotationDataId   :: !(Maybe Text)-    , _volContentRanges      :: !(Maybe VolumeannotationContentRanges)-    , _volVolumeId           :: !(Maybe Text)-    , _volId                 :: !(Maybe Text)-    , _volDeleted            :: !(Maybe Bool)-    , _volUpdated            :: !(Maybe DateTime')-    , _volLayerId            :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Volumeannotation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'volSelectedText'------ * 'volAnnotationDataLink'------ * 'volPageIds'------ * 'volKind'------ * 'volData'------ * 'volSelfLink'------ * 'volAnnotationType'------ * 'volAnnotationDataId'------ * 'volContentRanges'------ * 'volVolumeId'------ * 'volId'------ * 'volDeleted'------ * 'volUpdated'------ * 'volLayerId'-volumeannotation-    :: Volumeannotation-volumeannotation =-  Volumeannotation'-    { _volSelectedText = Nothing-    , _volAnnotationDataLink = Nothing-    , _volPageIds = Nothing-    , _volKind = "books#volumeannotation"-    , _volData = Nothing-    , _volSelfLink = Nothing-    , _volAnnotationType = Nothing-    , _volAnnotationDataId = Nothing-    , _volContentRanges = Nothing-    , _volVolumeId = Nothing-    , _volId = Nothing-    , _volDeleted = Nothing-    , _volUpdated = Nothing-    , _volLayerId = Nothing-    }----- | Excerpt from the volume.-volSelectedText :: Lens' Volumeannotation (Maybe Text)-volSelectedText-  = lens _volSelectedText-      (\ s a -> s{_volSelectedText = a})---- | Link to get data for this annotation.-volAnnotationDataLink :: Lens' Volumeannotation (Maybe Text)-volAnnotationDataLink-  = lens _volAnnotationDataLink-      (\ s a -> s{_volAnnotationDataLink = a})---- | Pages the annotation spans.-volPageIds :: Lens' Volumeannotation [Text]-volPageIds-  = lens _volPageIds (\ s a -> s{_volPageIds = a}) .-      _Default-      . _Coerce---- | Resource Type-volKind :: Lens' Volumeannotation Text-volKind = lens _volKind (\ s a -> s{_volKind = a})---- | Data for this annotation.-volData :: Lens' Volumeannotation (Maybe Text)-volData = lens _volData (\ s a -> s{_volData = a})---- | URL to this resource.-volSelfLink :: Lens' Volumeannotation (Maybe Text)-volSelfLink-  = lens _volSelfLink (\ s a -> s{_volSelfLink = a})---- | The type of annotation this is.-volAnnotationType :: Lens' Volumeannotation (Maybe Text)-volAnnotationType-  = lens _volAnnotationType-      (\ s a -> s{_volAnnotationType = a})---- | The annotation data id for this volume annotation.-volAnnotationDataId :: Lens' Volumeannotation (Maybe Text)-volAnnotationDataId-  = lens _volAnnotationDataId-      (\ s a -> s{_volAnnotationDataId = a})---- | The content ranges to identify the selected text.-volContentRanges :: Lens' Volumeannotation (Maybe VolumeannotationContentRanges)-volContentRanges-  = lens _volContentRanges-      (\ s a -> s{_volContentRanges = a})---- | The Volume this annotation is for.-volVolumeId :: Lens' Volumeannotation (Maybe Text)-volVolumeId-  = lens _volVolumeId (\ s a -> s{_volVolumeId = a})---- | Unique id of this volume annotation.-volId :: Lens' Volumeannotation (Maybe Text)-volId = lens _volId (\ s a -> s{_volId = a})---- | Indicates that this annotation is deleted.-volDeleted :: Lens' Volumeannotation (Maybe Bool)-volDeleted-  = lens _volDeleted (\ s a -> s{_volDeleted = a})---- | Timestamp for the last time this anntoation was updated. (RFC 3339 UTC--- date-time format).-volUpdated :: Lens' Volumeannotation (Maybe UTCTime)-volUpdated-  = lens _volUpdated (\ s a -> s{_volUpdated = a}) .-      mapping _DateTime---- | The Layer this annotation is for.-volLayerId :: Lens' Volumeannotation (Maybe Text)-volLayerId-  = lens _volLayerId (\ s a -> s{_volLayerId = a})--instance FromJSON Volumeannotation where-        parseJSON-          = withObject "Volumeannotation"-              (\ o ->-                 Volumeannotation' <$>-                   (o .:? "selectedText") <*>-                     (o .:? "annotationDataLink")-                     <*> (o .:? "pageIds" .!= mempty)-                     <*> (o .:? "kind" .!= "books#volumeannotation")-                     <*> (o .:? "data")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "annotationType")-                     <*> (o .:? "annotationDataId")-                     <*> (o .:? "contentRanges")-                     <*> (o .:? "volumeId")-                     <*> (o .:? "id")-                     <*> (o .:? "deleted")-                     <*> (o .:? "updated")-                     <*> (o .:? "layerId"))--instance ToJSON Volumeannotation where-        toJSON Volumeannotation'{..}-          = object-              (catMaybes-                 [("selectedText" .=) <$> _volSelectedText,-                  ("annotationDataLink" .=) <$> _volAnnotationDataLink,-                  ("pageIds" .=) <$> _volPageIds,-                  Just ("kind" .= _volKind), ("data" .=) <$> _volData,-                  ("selfLink" .=) <$> _volSelfLink,-                  ("annotationType" .=) <$> _volAnnotationType,-                  ("annotationDataId" .=) <$> _volAnnotationDataId,-                  ("contentRanges" .=) <$> _volContentRanges,-                  ("volumeId" .=) <$> _volVolumeId,-                  ("id" .=) <$> _volId, ("deleted" .=) <$> _volDeleted,-                  ("updated" .=) <$> _volUpdated,-                  ("layerId" .=) <$> _volLayerId])------- /See:/ 'booksCloudLoadingResource' smart constructor.-data BooksCloudLoadingResource =-  BooksCloudLoadingResource'-    { _bclrProcessingState :: !(Maybe Text)-    , _bclrVolumeId        :: !(Maybe Text)-    , _bclrAuthor          :: !(Maybe Text)-    , _bclrTitle           :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'BooksCloudLoadingResource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bclrProcessingState'------ * 'bclrVolumeId'------ * 'bclrAuthor'------ * 'bclrTitle'-booksCloudLoadingResource-    :: BooksCloudLoadingResource-booksCloudLoadingResource =-  BooksCloudLoadingResource'-    { _bclrProcessingState = Nothing-    , _bclrVolumeId = Nothing-    , _bclrAuthor = Nothing-    , _bclrTitle = Nothing-    }---bclrProcessingState :: Lens' BooksCloudLoadingResource (Maybe Text)-bclrProcessingState-  = lens _bclrProcessingState-      (\ s a -> s{_bclrProcessingState = a})--bclrVolumeId :: Lens' BooksCloudLoadingResource (Maybe Text)-bclrVolumeId-  = lens _bclrVolumeId (\ s a -> s{_bclrVolumeId = a})--bclrAuthor :: Lens' BooksCloudLoadingResource (Maybe Text)-bclrAuthor-  = lens _bclrAuthor (\ s a -> s{_bclrAuthor = a})--bclrTitle :: Lens' BooksCloudLoadingResource (Maybe Text)-bclrTitle-  = lens _bclrTitle (\ s a -> s{_bclrTitle = a})--instance FromJSON BooksCloudLoadingResource where-        parseJSON-          = withObject "BooksCloudLoadingResource"-              (\ o ->-                 BooksCloudLoadingResource' <$>-                   (o .:? "processingState") <*> (o .:? "volumeId") <*>-                     (o .:? "author")-                     <*> (o .:? "title"))--instance ToJSON BooksCloudLoadingResource where-        toJSON BooksCloudLoadingResource'{..}-          = object-              (catMaybes-                 [("processingState" .=) <$> _bclrProcessingState,-                  ("volumeId" .=) <$> _bclrVolumeId,-                  ("author" .=) <$> _bclrAuthor,-                  ("title" .=) <$> _bclrTitle])------- /See:/ 'volumeseriesInfoVolumeSeriesItemIssueItem' smart constructor.-data VolumeseriesInfoVolumeSeriesItemIssueItem =-  VolumeseriesInfoVolumeSeriesItemIssueItem'-    { _vivsiiiIssueOrderNumber   :: !(Maybe (Textual Int32))-    , _vivsiiiIssueDisplayNumber :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeseriesInfoVolumeSeriesItemIssueItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vivsiiiIssueOrderNumber'------ * 'vivsiiiIssueDisplayNumber'-volumeseriesInfoVolumeSeriesItemIssueItem-    :: VolumeseriesInfoVolumeSeriesItemIssueItem-volumeseriesInfoVolumeSeriesItemIssueItem =-  VolumeseriesInfoVolumeSeriesItemIssueItem'-    {_vivsiiiIssueOrderNumber = Nothing, _vivsiiiIssueDisplayNumber = Nothing}---vivsiiiIssueOrderNumber :: Lens' VolumeseriesInfoVolumeSeriesItemIssueItem (Maybe Int32)-vivsiiiIssueOrderNumber-  = lens _vivsiiiIssueOrderNumber-      (\ s a -> s{_vivsiiiIssueOrderNumber = a})-      . mapping _Coerce--vivsiiiIssueDisplayNumber :: Lens' VolumeseriesInfoVolumeSeriesItemIssueItem (Maybe Text)-vivsiiiIssueDisplayNumber-  = lens _vivsiiiIssueDisplayNumber-      (\ s a -> s{_vivsiiiIssueDisplayNumber = a})--instance FromJSON-           VolumeseriesInfoVolumeSeriesItemIssueItem-         where-        parseJSON-          = withObject-              "VolumeseriesInfoVolumeSeriesItemIssueItem"-              (\ o ->-                 VolumeseriesInfoVolumeSeriesItemIssueItem' <$>-                   (o .:? "issueOrderNumber") <*>-                     (o .:? "issueDisplayNumber"))--instance ToJSON-           VolumeseriesInfoVolumeSeriesItemIssueItem-         where-        toJSON VolumeseriesInfoVolumeSeriesItemIssueItem'{..}-          = object-              (catMaybes-                 [("issueOrderNumber" .=) <$>-                    _vivsiiiIssueOrderNumber,-                  ("issueDisplayNumber" .=) <$>-                    _vivsiiiIssueDisplayNumber])------- /See:/ 'annotation' smart constructor.-data Annotation =-  Annotation'-    { _aaSelectedText         :: !(Maybe Text)-    , _aaLayerSummary         :: !(Maybe AnnotationLayerSummary)-    , _aaHighlightStyle       :: !(Maybe Text)-    , _aaClientVersionRanges  :: !(Maybe AnnotationClientVersionRanges)-    , _aaPageIds              :: !(Maybe [Text])-    , _aaKind                 :: !Text-    , _aaData                 :: !(Maybe Text)-    , _aaCreated              :: !(Maybe DateTime')-    , _aaAfterSelectedText    :: !(Maybe Text)-    , _aaSelfLink             :: !(Maybe Text)-    , _aaCurrentVersionRanges :: !(Maybe AnnotationCurrentVersionRanges)-    , _aaVolumeId             :: !(Maybe Text)-    , _aaBeforeSelectedText   :: !(Maybe Text)-    , _aaId                   :: !(Maybe Text)-    , _aaDeleted              :: !(Maybe Bool)-    , _aaUpdated              :: !(Maybe DateTime')-    , _aaLayerId              :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Annotation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aaSelectedText'------ * 'aaLayerSummary'------ * 'aaHighlightStyle'------ * 'aaClientVersionRanges'------ * 'aaPageIds'------ * 'aaKind'------ * 'aaData'------ * 'aaCreated'------ * 'aaAfterSelectedText'------ * 'aaSelfLink'------ * 'aaCurrentVersionRanges'------ * 'aaVolumeId'------ * 'aaBeforeSelectedText'------ * 'aaId'------ * 'aaDeleted'------ * 'aaUpdated'------ * 'aaLayerId'-annotation-    :: Annotation-annotation =-  Annotation'-    { _aaSelectedText = Nothing-    , _aaLayerSummary = Nothing-    , _aaHighlightStyle = Nothing-    , _aaClientVersionRanges = Nothing-    , _aaPageIds = Nothing-    , _aaKind = "books#annotation"-    , _aaData = Nothing-    , _aaCreated = Nothing-    , _aaAfterSelectedText = Nothing-    , _aaSelfLink = Nothing-    , _aaCurrentVersionRanges = Nothing-    , _aaVolumeId = Nothing-    , _aaBeforeSelectedText = Nothing-    , _aaId = Nothing-    , _aaDeleted = Nothing-    , _aaUpdated = Nothing-    , _aaLayerId = Nothing-    }----- | Excerpt from the volume.-aaSelectedText :: Lens' Annotation (Maybe Text)-aaSelectedText-  = lens _aaSelectedText-      (\ s a -> s{_aaSelectedText = a})--aaLayerSummary :: Lens' Annotation (Maybe AnnotationLayerSummary)-aaLayerSummary-  = lens _aaLayerSummary-      (\ s a -> s{_aaLayerSummary = a})---- | The highlight style for this annotation.-aaHighlightStyle :: Lens' Annotation (Maybe Text)-aaHighlightStyle-  = lens _aaHighlightStyle-      (\ s a -> s{_aaHighlightStyle = a})---- | Selection ranges sent from the client.-aaClientVersionRanges :: Lens' Annotation (Maybe AnnotationClientVersionRanges)-aaClientVersionRanges-  = lens _aaClientVersionRanges-      (\ s a -> s{_aaClientVersionRanges = a})---- | Pages that this annotation spans.-aaPageIds :: Lens' Annotation [Text]-aaPageIds-  = lens _aaPageIds (\ s a -> s{_aaPageIds = a}) .-      _Default-      . _Coerce---- | Resource type.-aaKind :: Lens' Annotation Text-aaKind = lens _aaKind (\ s a -> s{_aaKind = a})---- | User-created data for this annotation.-aaData :: Lens' Annotation (Maybe Text)-aaData = lens _aaData (\ s a -> s{_aaData = a})---- | Timestamp for the created time of this annotation.-aaCreated :: Lens' Annotation (Maybe UTCTime)-aaCreated-  = lens _aaCreated (\ s a -> s{_aaCreated = a}) .-      mapping _DateTime---- | Anchor text after excerpt. For requests, if the user bookmarked a screen--- that has no flowing text on it, then this field should be empty.-aaAfterSelectedText :: Lens' Annotation (Maybe Text)-aaAfterSelectedText-  = lens _aaAfterSelectedText-      (\ s a -> s{_aaAfterSelectedText = a})---- | URL to this resource.-aaSelfLink :: Lens' Annotation (Maybe Text)-aaSelfLink-  = lens _aaSelfLink (\ s a -> s{_aaSelfLink = a})---- | Selection ranges for the most recent content version.-aaCurrentVersionRanges :: Lens' Annotation (Maybe AnnotationCurrentVersionRanges)-aaCurrentVersionRanges-  = lens _aaCurrentVersionRanges-      (\ s a -> s{_aaCurrentVersionRanges = a})---- | The volume that this annotation belongs to.-aaVolumeId :: Lens' Annotation (Maybe Text)-aaVolumeId-  = lens _aaVolumeId (\ s a -> s{_aaVolumeId = a})---- | Anchor text before excerpt. For requests, if the user bookmarked a--- screen that has no flowing text on it, then this field should be empty.-aaBeforeSelectedText :: Lens' Annotation (Maybe Text)-aaBeforeSelectedText-  = lens _aaBeforeSelectedText-      (\ s a -> s{_aaBeforeSelectedText = a})---- | Id of this annotation, in the form of a GUID.-aaId :: Lens' Annotation (Maybe Text)-aaId = lens _aaId (\ s a -> s{_aaId = a})---- | Indicates that this annotation is deleted.-aaDeleted :: Lens' Annotation (Maybe Bool)-aaDeleted-  = lens _aaDeleted (\ s a -> s{_aaDeleted = a})---- | Timestamp for the last time this annotation was modified.-aaUpdated :: Lens' Annotation (Maybe UTCTime)-aaUpdated-  = lens _aaUpdated (\ s a -> s{_aaUpdated = a}) .-      mapping _DateTime---- | The layer this annotation is for.-aaLayerId :: Lens' Annotation (Maybe Text)-aaLayerId-  = lens _aaLayerId (\ s a -> s{_aaLayerId = a})--instance FromJSON Annotation where-        parseJSON-          = withObject "Annotation"-              (\ o ->-                 Annotation' <$>-                   (o .:? "selectedText") <*> (o .:? "layerSummary") <*>-                     (o .:? "highlightStyle")-                     <*> (o .:? "clientVersionRanges")-                     <*> (o .:? "pageIds" .!= mempty)-                     <*> (o .:? "kind" .!= "books#annotation")-                     <*> (o .:? "data")-                     <*> (o .:? "created")-                     <*> (o .:? "afterSelectedText")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "currentVersionRanges")-                     <*> (o .:? "volumeId")-                     <*> (o .:? "beforeSelectedText")-                     <*> (o .:? "id")-                     <*> (o .:? "deleted")-                     <*> (o .:? "updated")-                     <*> (o .:? "layerId"))--instance ToJSON Annotation where-        toJSON Annotation'{..}-          = object-              (catMaybes-                 [("selectedText" .=) <$> _aaSelectedText,-                  ("layerSummary" .=) <$> _aaLayerSummary,-                  ("highlightStyle" .=) <$> _aaHighlightStyle,-                  ("clientVersionRanges" .=) <$>-                    _aaClientVersionRanges,-                  ("pageIds" .=) <$> _aaPageIds,-                  Just ("kind" .= _aaKind), ("data" .=) <$> _aaData,-                  ("created" .=) <$> _aaCreated,-                  ("afterSelectedText" .=) <$> _aaAfterSelectedText,-                  ("selfLink" .=) <$> _aaSelfLink,-                  ("currentVersionRanges" .=) <$>-                    _aaCurrentVersionRanges,-                  ("volumeId" .=) <$> _aaVolumeId,-                  ("beforeSelectedText" .=) <$> _aaBeforeSelectedText,-                  ("id" .=) <$> _aaId, ("deleted" .=) <$> _aaDeleted,-                  ("updated" .=) <$> _aaUpdated,-                  ("layerId" .=) <$> _aaLayerId])---- | Author of this review.------ /See:/ 'reviewAuthor' smart constructor.-newtype ReviewAuthor =-  ReviewAuthor'-    { _raDisplayName :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ReviewAuthor' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'raDisplayName'-reviewAuthor-    :: ReviewAuthor-reviewAuthor = ReviewAuthor' {_raDisplayName = Nothing}----- | Name of this person.-raDisplayName :: Lens' ReviewAuthor (Maybe Text)-raDisplayName-  = lens _raDisplayName-      (\ s a -> s{_raDisplayName = a})--instance FromJSON ReviewAuthor where-        parseJSON-          = withObject "ReviewAuthor"-              (\ o -> ReviewAuthor' <$> (o .:? "displayName"))--instance ToJSON ReviewAuthor where-        toJSON ReviewAuthor'{..}-          = object-              (catMaybes [("displayName" .=) <$> _raDisplayName])---- | The viewport for showing this location. This is a latitude, longitude--- rectangle.------ /See:/ 'geolayerDataGeoViewport' smart constructor.-data GeolayerDataGeoViewport =-  GeolayerDataGeoViewport'-    { _gdgvHi :: !(Maybe GeolayerDataGeoViewportHi)-    , _gdgvLo :: !(Maybe GeolayerDataGeoViewportLo)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GeolayerDataGeoViewport' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdgvHi'------ * 'gdgvLo'-geolayerDataGeoViewport-    :: GeolayerDataGeoViewport-geolayerDataGeoViewport =-  GeolayerDataGeoViewport' {_gdgvHi = Nothing, _gdgvLo = Nothing}---gdgvHi :: Lens' GeolayerDataGeoViewport (Maybe GeolayerDataGeoViewportHi)-gdgvHi = lens _gdgvHi (\ s a -> s{_gdgvHi = a})--gdgvLo :: Lens' GeolayerDataGeoViewport (Maybe GeolayerDataGeoViewportLo)-gdgvLo = lens _gdgvLo (\ s a -> s{_gdgvLo = a})--instance FromJSON GeolayerDataGeoViewport where-        parseJSON-          = withObject "GeolayerDataGeoViewport"-              (\ o ->-                 GeolayerDataGeoViewport' <$>-                   (o .:? "hi") <*> (o .:? "lo"))--instance ToJSON GeolayerDataGeoViewport where-        toJSON GeolayerDataGeoViewport'{..}-          = object-              (catMaybes-                 [("hi" .=) <$> _gdgvHi, ("lo" .=) <$> _gdgvLo])---- | User specific information related to this volume. (e.g. page this user--- last read or whether they purchased this book)------ /See:/ 'volumeUserInfo' smart constructor.-data VolumeUserInfo =-  VolumeUserInfo'-    { _vuiIsFamilySharingAllowed       :: !(Maybe Bool)-    , _vuiIsFamilySharedToUser         :: !(Maybe Bool)-    , _vuiCopy                         :: !(Maybe VolumeUserInfoCopy)-    , _vuiUserUploadedVolumeInfo       :: !(Maybe VolumeUserInfoUserUploadedVolumeInfo)-    , _vuiIsPurchased                  :: !(Maybe Bool)-    , _vuiEntitlementType              :: !(Maybe (Textual Int32))-    , _vuiAcquisitionType              :: !(Maybe (Textual Int32))-    , _vuiAcquiredTime                 :: !(Maybe DateTime')-    , _vuiRentalState                  :: !(Maybe Text)-    , _vuiIsPreOrdered                 :: !(Maybe Bool)-    , _vuiReview                       :: !(Maybe Review)-    , _vuiIsFamilySharedFromUser       :: !(Maybe Bool)-    , _vuiRentalPeriod                 :: !(Maybe VolumeUserInfoRentalPeriod)-    , _vuiUpdated                      :: !(Maybe DateTime')-    , _vuiIsUploaded                   :: !(Maybe Bool)-    , _vuiIsInMyBooks                  :: !(Maybe Bool)-    , _vuiReadingPosition              :: !(Maybe ReadingPosition)-    , _vuiFamilySharing                :: !(Maybe VolumeUserInfoFamilySharing)-    , _vuiIsFamilySharingDisabledByFop :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeUserInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vuiIsFamilySharingAllowed'------ * 'vuiIsFamilySharedToUser'------ * 'vuiCopy'------ * 'vuiUserUploadedVolumeInfo'------ * 'vuiIsPurchased'------ * 'vuiEntitlementType'------ * 'vuiAcquisitionType'------ * 'vuiAcquiredTime'------ * 'vuiRentalState'------ * 'vuiIsPreOrdered'------ * 'vuiReview'------ * 'vuiIsFamilySharedFromUser'------ * 'vuiRentalPeriod'------ * 'vuiUpdated'------ * 'vuiIsUploaded'------ * 'vuiIsInMyBooks'------ * 'vuiReadingPosition'------ * 'vuiFamilySharing'------ * 'vuiIsFamilySharingDisabledByFop'-volumeUserInfo-    :: VolumeUserInfo-volumeUserInfo =-  VolumeUserInfo'-    { _vuiIsFamilySharingAllowed = Nothing-    , _vuiIsFamilySharedToUser = Nothing-    , _vuiCopy = Nothing-    , _vuiUserUploadedVolumeInfo = Nothing-    , _vuiIsPurchased = Nothing-    , _vuiEntitlementType = Nothing-    , _vuiAcquisitionType = Nothing-    , _vuiAcquiredTime = Nothing-    , _vuiRentalState = Nothing-    , _vuiIsPreOrdered = Nothing-    , _vuiReview = Nothing-    , _vuiIsFamilySharedFromUser = Nothing-    , _vuiRentalPeriod = Nothing-    , _vuiUpdated = Nothing-    , _vuiIsUploaded = Nothing-    , _vuiIsInMyBooks = Nothing-    , _vuiReadingPosition = Nothing-    , _vuiFamilySharing = Nothing-    , _vuiIsFamilySharingDisabledByFop = Nothing-    }----- | Deprecated: Replaced by familySharing.-vuiIsFamilySharingAllowed :: Lens' VolumeUserInfo (Maybe Bool)-vuiIsFamilySharingAllowed-  = lens _vuiIsFamilySharingAllowed-      (\ s a -> s{_vuiIsFamilySharingAllowed = a})---- | Whether or not the user received this volume through family sharing.-vuiIsFamilySharedToUser :: Lens' VolumeUserInfo (Maybe Bool)-vuiIsFamilySharedToUser-  = lens _vuiIsFamilySharedToUser-      (\ s a -> s{_vuiIsFamilySharedToUser = a})---- | Copy\/Paste accounting information.-vuiCopy :: Lens' VolumeUserInfo (Maybe VolumeUserInfoCopy)-vuiCopy = lens _vuiCopy (\ s a -> s{_vuiCopy = a})--vuiUserUploadedVolumeInfo :: Lens' VolumeUserInfo (Maybe VolumeUserInfoUserUploadedVolumeInfo)-vuiUserUploadedVolumeInfo-  = lens _vuiUserUploadedVolumeInfo-      (\ s a -> s{_vuiUserUploadedVolumeInfo = a})---- | Whether or not this volume was purchased by the authenticated user--- making the request. (In LITE projection.)-vuiIsPurchased :: Lens' VolumeUserInfo (Maybe Bool)-vuiIsPurchased-  = lens _vuiIsPurchased-      (\ s a -> s{_vuiIsPurchased = a})---- | Whether this volume is purchased, sample, pd download etc.-vuiEntitlementType :: Lens' VolumeUserInfo (Maybe Int32)-vuiEntitlementType-  = lens _vuiEntitlementType-      (\ s a -> s{_vuiEntitlementType = a})-      . mapping _Coerce---- | How this volume was acquired.-vuiAcquisitionType :: Lens' VolumeUserInfo (Maybe Int32)-vuiAcquisitionType-  = lens _vuiAcquisitionType-      (\ s a -> s{_vuiAcquisitionType = a})-      . mapping _Coerce---- | Timestamp when this volume was acquired by the user. (RFC 3339 UTC--- date-time format) Acquiring includes purchase, user upload, receiving--- family sharing, etc.-vuiAcquiredTime :: Lens' VolumeUserInfo (Maybe UTCTime)-vuiAcquiredTime-  = lens _vuiAcquiredTime-      (\ s a -> s{_vuiAcquiredTime = a})-      . mapping _DateTime---- | Whether this book is an active or an expired rental.-vuiRentalState :: Lens' VolumeUserInfo (Maybe Text)-vuiRentalState-  = lens _vuiRentalState-      (\ s a -> s{_vuiRentalState = a})---- | Whether or not this volume was pre-ordered by the authenticated user--- making the request. (In LITE projection.)-vuiIsPreOrdered :: Lens' VolumeUserInfo (Maybe Bool)-vuiIsPreOrdered-  = lens _vuiIsPreOrdered-      (\ s a -> s{_vuiIsPreOrdered = a})---- | This user\'s review of this volume, if one exists.-vuiReview :: Lens' VolumeUserInfo (Maybe Review)-vuiReview-  = lens _vuiReview (\ s a -> s{_vuiReview = a})---- | Whether or not the user shared this volume with the family.-vuiIsFamilySharedFromUser :: Lens' VolumeUserInfo (Maybe Bool)-vuiIsFamilySharedFromUser-  = lens _vuiIsFamilySharedFromUser-      (\ s a -> s{_vuiIsFamilySharedFromUser = a})---- | Period during this book is\/was a valid rental.-vuiRentalPeriod :: Lens' VolumeUserInfo (Maybe VolumeUserInfoRentalPeriod)-vuiRentalPeriod-  = lens _vuiRentalPeriod-      (\ s a -> s{_vuiRentalPeriod = a})---- | Timestamp when this volume was last modified by a user action, such as a--- reading position update, volume purchase or writing a review. (RFC 3339--- UTC date-time format).-vuiUpdated :: Lens' VolumeUserInfo (Maybe UTCTime)-vuiUpdated-  = lens _vuiUpdated (\ s a -> s{_vuiUpdated = a}) .-      mapping _DateTime---- | Whether or not this volume was user uploaded.-vuiIsUploaded :: Lens' VolumeUserInfo (Maybe Bool)-vuiIsUploaded-  = lens _vuiIsUploaded-      (\ s a -> s{_vuiIsUploaded = a})---- | Whether or not this volume is currently in \"my books.\"-vuiIsInMyBooks :: Lens' VolumeUserInfo (Maybe Bool)-vuiIsInMyBooks-  = lens _vuiIsInMyBooks-      (\ s a -> s{_vuiIsInMyBooks = a})---- | The user\'s current reading position in the volume, if one is available.--- (In LITE projection.)-vuiReadingPosition :: Lens' VolumeUserInfo (Maybe ReadingPosition)-vuiReadingPosition-  = lens _vuiReadingPosition-      (\ s a -> s{_vuiReadingPosition = a})---- | Information on the ability to share with the family.-vuiFamilySharing :: Lens' VolumeUserInfo (Maybe VolumeUserInfoFamilySharing)-vuiFamilySharing-  = lens _vuiFamilySharing-      (\ s a -> s{_vuiFamilySharing = a})---- | Deprecated: Replaced by familySharing.-vuiIsFamilySharingDisabledByFop :: Lens' VolumeUserInfo (Maybe Bool)-vuiIsFamilySharingDisabledByFop-  = lens _vuiIsFamilySharingDisabledByFop-      (\ s a -> s{_vuiIsFamilySharingDisabledByFop = a})--instance FromJSON VolumeUserInfo where-        parseJSON-          = withObject "VolumeUserInfo"-              (\ o ->-                 VolumeUserInfo' <$>-                   (o .:? "isFamilySharingAllowed") <*>-                     (o .:? "isFamilySharedToUser")-                     <*> (o .:? "copy")-                     <*> (o .:? "userUploadedVolumeInfo")-                     <*> (o .:? "isPurchased")-                     <*> (o .:? "entitlementType")-                     <*> (o .:? "acquisitionType")-                     <*> (o .:? "acquiredTime")-                     <*> (o .:? "rentalState")-                     <*> (o .:? "isPreordered")-                     <*> (o .:? "review")-                     <*> (o .:? "isFamilySharedFromUser")-                     <*> (o .:? "rentalPeriod")-                     <*> (o .:? "updated")-                     <*> (o .:? "isUploaded")-                     <*> (o .:? "isInMyBooks")-                     <*> (o .:? "readingPosition")-                     <*> (o .:? "familySharing")-                     <*> (o .:? "isFamilySharingDisabledByFop"))--instance ToJSON VolumeUserInfo where-        toJSON VolumeUserInfo'{..}-          = object-              (catMaybes-                 [("isFamilySharingAllowed" .=) <$>-                    _vuiIsFamilySharingAllowed,-                  ("isFamilySharedToUser" .=) <$>-                    _vuiIsFamilySharedToUser,-                  ("copy" .=) <$> _vuiCopy,-                  ("userUploadedVolumeInfo" .=) <$>-                    _vuiUserUploadedVolumeInfo,-                  ("isPurchased" .=) <$> _vuiIsPurchased,-                  ("entitlementType" .=) <$> _vuiEntitlementType,-                  ("acquisitionType" .=) <$> _vuiAcquisitionType,-                  ("acquiredTime" .=) <$> _vuiAcquiredTime,-                  ("rentalState" .=) <$> _vuiRentalState,-                  ("isPreordered" .=) <$> _vuiIsPreOrdered,-                  ("review" .=) <$> _vuiReview,-                  ("isFamilySharedFromUser" .=) <$>-                    _vuiIsFamilySharedFromUser,-                  ("rentalPeriod" .=) <$> _vuiRentalPeriod,-                  ("updated" .=) <$> _vuiUpdated,-                  ("isUploaded" .=) <$> _vuiIsUploaded,-                  ("isInMyBooks" .=) <$> _vuiIsInMyBooks,-                  ("readingPosition" .=) <$> _vuiReadingPosition,-                  ("familySharing" .=) <$> _vuiFamilySharing,-                  ("isFamilySharingDisabledByFop" .=) <$>-                    _vuiIsFamilySharingDisabledByFop])------- /See:/ 'layersummary' smart constructor.-data Layersummary =-  Layersummary'-    { _lAnnotationsDataLink      :: !(Maybe Text)-    , _lAnnotationsLink          :: !(Maybe Text)-    , _lKind                     :: !Text-    , _lDataCount                :: !(Maybe (Textual Int32))-    , _lContentVersion           :: !(Maybe Text)-    , _lVolumeAnnotationsVersion :: !(Maybe Text)-    , _lAnnotationCount          :: !(Maybe (Textual Int32))-    , _lAnnotationTypes          :: !(Maybe [Text])-    , _lSelfLink                 :: !(Maybe Text)-    , _lVolumeId                 :: !(Maybe Text)-    , _lId                       :: !(Maybe Text)-    , _lUpdated                  :: !(Maybe DateTime')-    , _lLayerId                  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Layersummary' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lAnnotationsDataLink'------ * 'lAnnotationsLink'------ * 'lKind'------ * 'lDataCount'------ * 'lContentVersion'------ * 'lVolumeAnnotationsVersion'------ * 'lAnnotationCount'------ * 'lAnnotationTypes'------ * 'lSelfLink'------ * 'lVolumeId'------ * 'lId'------ * 'lUpdated'------ * 'lLayerId'-layersummary-    :: Layersummary-layersummary =-  Layersummary'-    { _lAnnotationsDataLink = Nothing-    , _lAnnotationsLink = Nothing-    , _lKind = "books#layersummary"-    , _lDataCount = Nothing-    , _lContentVersion = Nothing-    , _lVolumeAnnotationsVersion = Nothing-    , _lAnnotationCount = Nothing-    , _lAnnotationTypes = Nothing-    , _lSelfLink = Nothing-    , _lVolumeId = Nothing-    , _lId = Nothing-    , _lUpdated = Nothing-    , _lLayerId = Nothing-    }----- | Link to get data for this annotation.-lAnnotationsDataLink :: Lens' Layersummary (Maybe Text)-lAnnotationsDataLink-  = lens _lAnnotationsDataLink-      (\ s a -> s{_lAnnotationsDataLink = a})---- | The link to get the annotations for this layer.-lAnnotationsLink :: Lens' Layersummary (Maybe Text)-lAnnotationsLink-  = lens _lAnnotationsLink-      (\ s a -> s{_lAnnotationsLink = a})---- | Resource Type-lKind :: Lens' Layersummary Text-lKind = lens _lKind (\ s a -> s{_lKind = a})---- | The number of data items for this layer.-lDataCount :: Lens' Layersummary (Maybe Int32)-lDataCount-  = lens _lDataCount (\ s a -> s{_lDataCount = a}) .-      mapping _Coerce---- | The content version this resource is for.-lContentVersion :: Lens' Layersummary (Maybe Text)-lContentVersion-  = lens _lContentVersion-      (\ s a -> s{_lContentVersion = a})---- | The current version of this layer\'s volume annotations. Note that this--- version applies only to the data in the books.layers.volumeAnnotations.*--- responses. The actual annotation data is versioned separately.-lVolumeAnnotationsVersion :: Lens' Layersummary (Maybe Text)-lVolumeAnnotationsVersion-  = lens _lVolumeAnnotationsVersion-      (\ s a -> s{_lVolumeAnnotationsVersion = a})---- | The number of annotations for this layer.-lAnnotationCount :: Lens' Layersummary (Maybe Int32)-lAnnotationCount-  = lens _lAnnotationCount-      (\ s a -> s{_lAnnotationCount = a})-      . mapping _Coerce---- | The list of annotation types contained for this layer.-lAnnotationTypes :: Lens' Layersummary [Text]-lAnnotationTypes-  = lens _lAnnotationTypes-      (\ s a -> s{_lAnnotationTypes = a})-      . _Default-      . _Coerce---- | URL to this resource.-lSelfLink :: Lens' Layersummary (Maybe Text)-lSelfLink-  = lens _lSelfLink (\ s a -> s{_lSelfLink = a})---- | The volume id this resource is for.-lVolumeId :: Lens' Layersummary (Maybe Text)-lVolumeId-  = lens _lVolumeId (\ s a -> s{_lVolumeId = a})---- | Unique id of this layer summary.-lId :: Lens' Layersummary (Maybe Text)-lId = lens _lId (\ s a -> s{_lId = a})---- | Timestamp for the last time an item in this layer was updated. (RFC 3339--- UTC date-time format).-lUpdated :: Lens' Layersummary (Maybe UTCTime)-lUpdated-  = lens _lUpdated (\ s a -> s{_lUpdated = a}) .-      mapping _DateTime---- | The layer id for this summary.-lLayerId :: Lens' Layersummary (Maybe Text)-lLayerId = lens _lLayerId (\ s a -> s{_lLayerId = a})--instance FromJSON Layersummary where-        parseJSON-          = withObject "Layersummary"-              (\ o ->-                 Layersummary' <$>-                   (o .:? "annotationsDataLink") <*>-                     (o .:? "annotationsLink")-                     <*> (o .:? "kind" .!= "books#layersummary")-                     <*> (o .:? "dataCount")-                     <*> (o .:? "contentVersion")-                     <*> (o .:? "volumeAnnotationsVersion")-                     <*> (o .:? "annotationCount")-                     <*> (o .:? "annotationTypes" .!= mempty)-                     <*> (o .:? "selfLink")-                     <*> (o .:? "volumeId")-                     <*> (o .:? "id")-                     <*> (o .:? "updated")-                     <*> (o .:? "layerId"))--instance ToJSON Layersummary where-        toJSON Layersummary'{..}-          = object-              (catMaybes-                 [("annotationsDataLink" .=) <$>-                    _lAnnotationsDataLink,-                  ("annotationsLink" .=) <$> _lAnnotationsLink,-                  Just ("kind" .= _lKind),-                  ("dataCount" .=) <$> _lDataCount,-                  ("contentVersion" .=) <$> _lContentVersion,-                  ("volumeAnnotationsVersion" .=) <$>-                    _lVolumeAnnotationsVersion,-                  ("annotationCount" .=) <$> _lAnnotationCount,-                  ("annotationTypes" .=) <$> _lAnnotationTypes,-                  ("selfLink" .=) <$> _lSelfLink,-                  ("volumeId" .=) <$> _lVolumeId, ("id" .=) <$> _lId,-                  ("updated" .=) <$> _lUpdated,-                  ("layerId" .=) <$> _lLayerId])---- | The content ranges to identify the selected text.------ /See:/ 'volumeannotationContentRanges' smart constructor.-data VolumeannotationContentRanges =-  VolumeannotationContentRanges'-    { _vcrGbImageRange   :: !(Maybe BooksAnnotationsRange)-    , _vcrContentVersion :: !(Maybe Text)-    , _vcrGbTextRange    :: !(Maybe BooksAnnotationsRange)-    , _vcrCfiRange       :: !(Maybe BooksAnnotationsRange)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeannotationContentRanges' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vcrGbImageRange'------ * 'vcrContentVersion'------ * 'vcrGbTextRange'------ * 'vcrCfiRange'-volumeannotationContentRanges-    :: VolumeannotationContentRanges-volumeannotationContentRanges =-  VolumeannotationContentRanges'-    { _vcrGbImageRange = Nothing-    , _vcrContentVersion = Nothing-    , _vcrGbTextRange = Nothing-    , _vcrCfiRange = Nothing-    }----- | Range in GB image format for this annotation for version above.-vcrGbImageRange :: Lens' VolumeannotationContentRanges (Maybe BooksAnnotationsRange)-vcrGbImageRange-  = lens _vcrGbImageRange-      (\ s a -> s{_vcrGbImageRange = a})---- | Content version applicable to ranges below.-vcrContentVersion :: Lens' VolumeannotationContentRanges (Maybe Text)-vcrContentVersion-  = lens _vcrContentVersion-      (\ s a -> s{_vcrContentVersion = a})---- | Range in GB text format for this annotation for version above.-vcrGbTextRange :: Lens' VolumeannotationContentRanges (Maybe BooksAnnotationsRange)-vcrGbTextRange-  = lens _vcrGbTextRange-      (\ s a -> s{_vcrGbTextRange = a})---- | Range in CFI format for this annotation for version above.-vcrCfiRange :: Lens' VolumeannotationContentRanges (Maybe BooksAnnotationsRange)-vcrCfiRange-  = lens _vcrCfiRange (\ s a -> s{_vcrCfiRange = a})--instance FromJSON VolumeannotationContentRanges where-        parseJSON-          = withObject "VolumeannotationContentRanges"-              (\ o ->-                 VolumeannotationContentRanges' <$>-                   (o .:? "gbImageRange") <*> (o .:? "contentVersion")-                     <*> (o .:? "gbTextRange")-                     <*> (o .:? "cfiRange"))--instance ToJSON VolumeannotationContentRanges where-        toJSON VolumeannotationContentRanges'{..}-          = object-              (catMaybes-                 [("gbImageRange" .=) <$> _vcrGbImageRange,-                  ("contentVersion" .=) <$> _vcrContentVersion,-                  ("gbTextRange" .=) <$> _vcrGbTextRange,-                  ("cfiRange" .=) <$> _vcrCfiRange])---- | Any information about a volume related to reading or obtaining that--- volume text. This information can depend on country (books may be public--- domain in one country but not in another, e.g.).------ /See:/ 'volumeAccessInfo' smart constructor.-data VolumeAccessInfo =-  VolumeAccessInfo'-    { _vaiWebReaderLink                    :: !(Maybe Text)-    , _vaiCountry                          :: !(Maybe Text)-    , _vaiDriveImportedContentLink         :: !(Maybe Text)-    , _vaiExplicitOfflineLicenseManagement :: !(Maybe Bool)-    , _vaiViewability                      :: !(Maybe Text)-    , _vaiQuoteSharingAllowed              :: !(Maybe Bool)-    , _vaiEpub                             :: !(Maybe VolumeAccessInfoEpub)-    , _vaiPdf                              :: !(Maybe VolumeAccessInfoPdf)-    , _vaiTextToSpeechPermission           :: !(Maybe Text)-    , _vaiEmbeddable                       :: !(Maybe Bool)-    , _vaiAccessViewStatus                 :: !(Maybe Text)-    , _vaiDownloadAccess                   :: !(Maybe DownloadAccessRestriction)-    , _vaiViewOrderURL                     :: !(Maybe Text)-    , _vaiPublicDomain                     :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeAccessInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vaiWebReaderLink'------ * 'vaiCountry'------ * 'vaiDriveImportedContentLink'------ * 'vaiExplicitOfflineLicenseManagement'------ * 'vaiViewability'------ * 'vaiQuoteSharingAllowed'------ * 'vaiEpub'------ * 'vaiPdf'------ * 'vaiTextToSpeechPermission'------ * 'vaiEmbeddable'------ * 'vaiAccessViewStatus'------ * 'vaiDownloadAccess'------ * 'vaiViewOrderURL'------ * 'vaiPublicDomain'-volumeAccessInfo-    :: VolumeAccessInfo-volumeAccessInfo =-  VolumeAccessInfo'-    { _vaiWebReaderLink = Nothing-    , _vaiCountry = Nothing-    , _vaiDriveImportedContentLink = Nothing-    , _vaiExplicitOfflineLicenseManagement = Nothing-    , _vaiViewability = Nothing-    , _vaiQuoteSharingAllowed = Nothing-    , _vaiEpub = Nothing-    , _vaiPdf = Nothing-    , _vaiTextToSpeechPermission = Nothing-    , _vaiEmbeddable = Nothing-    , _vaiAccessViewStatus = Nothing-    , _vaiDownloadAccess = Nothing-    , _vaiViewOrderURL = Nothing-    , _vaiPublicDomain = Nothing-    }----- | URL to read this volume on the Google Books site. Link will not allow--- users to read non-viewable volumes.-vaiWebReaderLink :: Lens' VolumeAccessInfo (Maybe Text)-vaiWebReaderLink-  = lens _vaiWebReaderLink-      (\ s a -> s{_vaiWebReaderLink = a})---- | The two-letter ISO_3166-1 country code for which this access information--- is valid. (In LITE projection.)-vaiCountry :: Lens' VolumeAccessInfo (Maybe Text)-vaiCountry-  = lens _vaiCountry (\ s a -> s{_vaiCountry = a})---- | URL to the Google Drive viewer if this volume is uploaded by the user by--- selecting the file from Google Drive.-vaiDriveImportedContentLink :: Lens' VolumeAccessInfo (Maybe Text)-vaiDriveImportedContentLink-  = lens _vaiDriveImportedContentLink-      (\ s a -> s{_vaiDriveImportedContentLink = a})---- | Whether this volume requires that the client explicitly request offline--- download license rather than have it done automatically when loading the--- content, if the client supports it.-vaiExplicitOfflineLicenseManagement :: Lens' VolumeAccessInfo (Maybe Bool)-vaiExplicitOfflineLicenseManagement-  = lens _vaiExplicitOfflineLicenseManagement-      (\ s a ->-         s{_vaiExplicitOfflineLicenseManagement = a})---- | The read access of a volume. Possible values are PARTIAL, ALL_PAGES,--- NO_PAGES or UNKNOWN. This value depends on the country listed above. A--- value of PARTIAL means that the publisher has allowed some portion of--- the volume to be viewed publicly, without purchase. This can apply to--- eBooks as well as non-eBooks. Public domain books will always have a--- value of ALL_PAGES.-vaiViewability :: Lens' VolumeAccessInfo (Maybe Text)-vaiViewability-  = lens _vaiViewability-      (\ s a -> s{_vaiViewability = a})---- | Whether quote sharing is allowed for this volume.-vaiQuoteSharingAllowed :: Lens' VolumeAccessInfo (Maybe Bool)-vaiQuoteSharingAllowed-  = lens _vaiQuoteSharingAllowed-      (\ s a -> s{_vaiQuoteSharingAllowed = a})---- | Information about epub content. (In LITE projection.)-vaiEpub :: Lens' VolumeAccessInfo (Maybe VolumeAccessInfoEpub)-vaiEpub = lens _vaiEpub (\ s a -> s{_vaiEpub = a})---- | Information about pdf content. (In LITE projection.)-vaiPdf :: Lens' VolumeAccessInfo (Maybe VolumeAccessInfoPdf)-vaiPdf = lens _vaiPdf (\ s a -> s{_vaiPdf = a})---- | Whether text-to-speech is permitted for this volume. Values can be--- ALLOWED, ALLOWED_FOR_ACCESSIBILITY, or NOT_ALLOWED.-vaiTextToSpeechPermission :: Lens' VolumeAccessInfo (Maybe Text)-vaiTextToSpeechPermission-  = lens _vaiTextToSpeechPermission-      (\ s a -> s{_vaiTextToSpeechPermission = a})---- | Whether this volume can be embedded in a viewport using the Embedded--- Viewer API.-vaiEmbeddable :: Lens' VolumeAccessInfo (Maybe Bool)-vaiEmbeddable-  = lens _vaiEmbeddable-      (\ s a -> s{_vaiEmbeddable = a})---- | Combines the access and viewability of this volume into a single status--- field for this user. Values can be FULL_PURCHASED, FULL_PUBLIC_DOMAIN,--- SAMPLE or NONE. (In LITE projection.)-vaiAccessViewStatus :: Lens' VolumeAccessInfo (Maybe Text)-vaiAccessViewStatus-  = lens _vaiAccessViewStatus-      (\ s a -> s{_vaiAccessViewStatus = a})---- | Information about a volume\'s download license access restrictions.-vaiDownloadAccess :: Lens' VolumeAccessInfo (Maybe DownloadAccessRestriction)-vaiDownloadAccess-  = lens _vaiDownloadAccess-      (\ s a -> s{_vaiDownloadAccess = a})---- | For ordered but not yet processed orders, we give a URL that can be used--- to go to the appropriate Google Wallet page.-vaiViewOrderURL :: Lens' VolumeAccessInfo (Maybe Text)-vaiViewOrderURL-  = lens _vaiViewOrderURL-      (\ s a -> s{_vaiViewOrderURL = a})---- | Whether or not this book is public domain in the country listed above.-vaiPublicDomain :: Lens' VolumeAccessInfo (Maybe Bool)-vaiPublicDomain-  = lens _vaiPublicDomain-      (\ s a -> s{_vaiPublicDomain = a})--instance FromJSON VolumeAccessInfo where-        parseJSON-          = withObject "VolumeAccessInfo"-              (\ o ->-                 VolumeAccessInfo' <$>-                   (o .:? "webReaderLink") <*> (o .:? "country") <*>-                     (o .:? "driveImportedContentLink")-                     <*> (o .:? "explicitOfflineLicenseManagement")-                     <*> (o .:? "viewability")-                     <*> (o .:? "quoteSharingAllowed")-                     <*> (o .:? "epub")-                     <*> (o .:? "pdf")-                     <*> (o .:? "textToSpeechPermission")-                     <*> (o .:? "embeddable")-                     <*> (o .:? "accessViewStatus")-                     <*> (o .:? "downloadAccess")-                     <*> (o .:? "viewOrderUrl")-                     <*> (o .:? "publicDomain"))--instance ToJSON VolumeAccessInfo where-        toJSON VolumeAccessInfo'{..}-          = object-              (catMaybes-                 [("webReaderLink" .=) <$> _vaiWebReaderLink,-                  ("country" .=) <$> _vaiCountry,-                  ("driveImportedContentLink" .=) <$>-                    _vaiDriveImportedContentLink,-                  ("explicitOfflineLicenseManagement" .=) <$>-                    _vaiExplicitOfflineLicenseManagement,-                  ("viewability" .=) <$> _vaiViewability,-                  ("quoteSharingAllowed" .=) <$>-                    _vaiQuoteSharingAllowed,-                  ("epub" .=) <$> _vaiEpub, ("pdf" .=) <$> _vaiPdf,-                  ("textToSpeechPermission" .=) <$>-                    _vaiTextToSpeechPermission,-                  ("embeddable" .=) <$> _vaiEmbeddable,-                  ("accessViewStatus" .=) <$> _vaiAccessViewStatus,-                  ("downloadAccess" .=) <$> _vaiDownloadAccess,-                  ("viewOrderUrl" .=) <$> _vaiViewOrderURL,-                  ("publicDomain" .=) <$> _vaiPublicDomain])---- | A top-level summary of the panelization info in this volume.------ /See:/ 'volumeVolumeInfoPanelizationSummary' smart constructor.-data VolumeVolumeInfoPanelizationSummary =-  VolumeVolumeInfoPanelizationSummary'-    { _vvipsEpubBubbleVersion    :: !(Maybe Text)-    , _vvipsContainsImageBubbles :: !(Maybe Bool)-    , _vvipsContainsEpubBubbles  :: !(Maybe Bool)-    , _vvipsImageBubbleVersion   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeVolumeInfoPanelizationSummary' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vvipsEpubBubbleVersion'------ * 'vvipsContainsImageBubbles'------ * 'vvipsContainsEpubBubbles'------ * 'vvipsImageBubbleVersion'-volumeVolumeInfoPanelizationSummary-    :: VolumeVolumeInfoPanelizationSummary-volumeVolumeInfoPanelizationSummary =-  VolumeVolumeInfoPanelizationSummary'-    { _vvipsEpubBubbleVersion = Nothing-    , _vvipsContainsImageBubbles = Nothing-    , _vvipsContainsEpubBubbles = Nothing-    , _vvipsImageBubbleVersion = Nothing-    }---vvipsEpubBubbleVersion :: Lens' VolumeVolumeInfoPanelizationSummary (Maybe Text)-vvipsEpubBubbleVersion-  = lens _vvipsEpubBubbleVersion-      (\ s a -> s{_vvipsEpubBubbleVersion = a})--vvipsContainsImageBubbles :: Lens' VolumeVolumeInfoPanelizationSummary (Maybe Bool)-vvipsContainsImageBubbles-  = lens _vvipsContainsImageBubbles-      (\ s a -> s{_vvipsContainsImageBubbles = a})--vvipsContainsEpubBubbles :: Lens' VolumeVolumeInfoPanelizationSummary (Maybe Bool)-vvipsContainsEpubBubbles-  = lens _vvipsContainsEpubBubbles-      (\ s a -> s{_vvipsContainsEpubBubbles = a})--vvipsImageBubbleVersion :: Lens' VolumeVolumeInfoPanelizationSummary (Maybe Text)-vvipsImageBubbleVersion-  = lens _vvipsImageBubbleVersion-      (\ s a -> s{_vvipsImageBubbleVersion = a})--instance FromJSON VolumeVolumeInfoPanelizationSummary-         where-        parseJSON-          = withObject "VolumeVolumeInfoPanelizationSummary"-              (\ o ->-                 VolumeVolumeInfoPanelizationSummary' <$>-                   (o .:? "epubBubbleVersion") <*>-                     (o .:? "containsImageBubbles")-                     <*> (o .:? "containsEpubBubbles")-                     <*> (o .:? "imageBubbleVersion"))--instance ToJSON VolumeVolumeInfoPanelizationSummary-         where-        toJSON VolumeVolumeInfoPanelizationSummary'{..}-          = object-              (catMaybes-                 [("epubBubbleVersion" .=) <$>-                    _vvipsEpubBubbleVersion,-                  ("containsImageBubbles" .=) <$>-                    _vvipsContainsImageBubbles,-                  ("containsEpubBubbles" .=) <$>-                    _vvipsContainsEpubBubbles,-                  ("imageBubbleVersion" .=) <$>-                    _vvipsImageBubbleVersion])---- | A list of image links for all the sizes that are available. (In LITE--- projection.)------ /See:/ 'volumeVolumeInfoImageLinks' smart constructor.-data VolumeVolumeInfoImageLinks =-  VolumeVolumeInfoImageLinks'-    { _vviilThumbnail      :: !(Maybe Text)-    , _vviilSmall          :: !(Maybe Text)-    , _vviilExtraLarge     :: !(Maybe Text)-    , _vviilLarge          :: !(Maybe Text)-    , _vviilMedium         :: !(Maybe Text)-    , _vviilSmallThumbnail :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeVolumeInfoImageLinks' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vviilThumbnail'------ * 'vviilSmall'------ * 'vviilExtraLarge'------ * 'vviilLarge'------ * 'vviilMedium'------ * 'vviilSmallThumbnail'-volumeVolumeInfoImageLinks-    :: VolumeVolumeInfoImageLinks-volumeVolumeInfoImageLinks =-  VolumeVolumeInfoImageLinks'-    { _vviilThumbnail = Nothing-    , _vviilSmall = Nothing-    , _vviilExtraLarge = Nothing-    , _vviilLarge = Nothing-    , _vviilMedium = Nothing-    , _vviilSmallThumbnail = Nothing-    }----- | Image link for thumbnail size (width of ~128 pixels). (In LITE--- projection)-vviilThumbnail :: Lens' VolumeVolumeInfoImageLinks (Maybe Text)-vviilThumbnail-  = lens _vviilThumbnail-      (\ s a -> s{_vviilThumbnail = a})---- | Image link for small size (width of ~300 pixels). (In LITE projection)-vviilSmall :: Lens' VolumeVolumeInfoImageLinks (Maybe Text)-vviilSmall-  = lens _vviilSmall (\ s a -> s{_vviilSmall = a})---- | Image link for extra large size (width of ~1280 pixels). (In LITE--- projection)-vviilExtraLarge :: Lens' VolumeVolumeInfoImageLinks (Maybe Text)-vviilExtraLarge-  = lens _vviilExtraLarge-      (\ s a -> s{_vviilExtraLarge = a})---- | Image link for large size (width of ~800 pixels). (In LITE projection)-vviilLarge :: Lens' VolumeVolumeInfoImageLinks (Maybe Text)-vviilLarge-  = lens _vviilLarge (\ s a -> s{_vviilLarge = a})---- | Image link for medium size (width of ~575 pixels). (In LITE projection)-vviilMedium :: Lens' VolumeVolumeInfoImageLinks (Maybe Text)-vviilMedium-  = lens _vviilMedium (\ s a -> s{_vviilMedium = a})---- | Image link for small thumbnail size (width of ~80 pixels). (In LITE--- projection)-vviilSmallThumbnail :: Lens' VolumeVolumeInfoImageLinks (Maybe Text)-vviilSmallThumbnail-  = lens _vviilSmallThumbnail-      (\ s a -> s{_vviilSmallThumbnail = a})--instance FromJSON VolumeVolumeInfoImageLinks where-        parseJSON-          = withObject "VolumeVolumeInfoImageLinks"-              (\ o ->-                 VolumeVolumeInfoImageLinks' <$>-                   (o .:? "thumbnail") <*> (o .:? "small") <*>-                     (o .:? "extraLarge")-                     <*> (o .:? "large")-                     <*> (o .:? "medium")-                     <*> (o .:? "smallThumbnail"))--instance ToJSON VolumeVolumeInfoImageLinks where-        toJSON VolumeVolumeInfoImageLinks'{..}-          = object-              (catMaybes-                 [("thumbnail" .=) <$> _vviilThumbnail,-                  ("small" .=) <$> _vviilSmall,-                  ("extraLarge" .=) <$> _vviilExtraLarge,-                  ("large" .=) <$> _vviilLarge,-                  ("medium" .=) <$> _vviilMedium,-                  ("smallThumbnail" .=) <$> _vviilSmallThumbnail])------- /See:/ 'volumeUserInfoUserUploadedVolumeInfo' smart constructor.-newtype VolumeUserInfoUserUploadedVolumeInfo =-  VolumeUserInfoUserUploadedVolumeInfo'-    { _vuiuuviProcessingState :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeUserInfoUserUploadedVolumeInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vuiuuviProcessingState'-volumeUserInfoUserUploadedVolumeInfo-    :: VolumeUserInfoUserUploadedVolumeInfo-volumeUserInfoUserUploadedVolumeInfo =-  VolumeUserInfoUserUploadedVolumeInfo' {_vuiuuviProcessingState = Nothing}---vuiuuviProcessingState :: Lens' VolumeUserInfoUserUploadedVolumeInfo (Maybe Text)-vuiuuviProcessingState-  = lens _vuiuuviProcessingState-      (\ s a -> s{_vuiuuviProcessingState = a})--instance FromJSON-           VolumeUserInfoUserUploadedVolumeInfo-         where-        parseJSON-          = withObject "VolumeUserInfoUserUploadedVolumeInfo"-              (\ o ->-                 VolumeUserInfoUserUploadedVolumeInfo' <$>-                   (o .:? "processingState"))--instance ToJSON VolumeUserInfoUserUploadedVolumeInfo-         where-        toJSON VolumeUserInfoUserUploadedVolumeInfo'{..}-          = object-              (catMaybes-                 [("processingState" .=) <$> _vuiuuviProcessingState])---- | Copy\/Paste accounting information.------ /See:/ 'volumeUserInfoCopy' smart constructor.-data VolumeUserInfoCopy =-  VolumeUserInfoCopy'-    { _vuicLimitType               :: !(Maybe Text)-    , _vuicAllowedCharacterCount   :: !(Maybe (Textual Int32))-    , _vuicUpdated                 :: !(Maybe DateTime')-    , _vuicRemainingCharacterCount :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeUserInfoCopy' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vuicLimitType'------ * 'vuicAllowedCharacterCount'------ * 'vuicUpdated'------ * 'vuicRemainingCharacterCount'-volumeUserInfoCopy-    :: VolumeUserInfoCopy-volumeUserInfoCopy =-  VolumeUserInfoCopy'-    { _vuicLimitType = Nothing-    , _vuicAllowedCharacterCount = Nothing-    , _vuicUpdated = Nothing-    , _vuicRemainingCharacterCount = Nothing-    }---vuicLimitType :: Lens' VolumeUserInfoCopy (Maybe Text)-vuicLimitType-  = lens _vuicLimitType-      (\ s a -> s{_vuicLimitType = a})--vuicAllowedCharacterCount :: Lens' VolumeUserInfoCopy (Maybe Int32)-vuicAllowedCharacterCount-  = lens _vuicAllowedCharacterCount-      (\ s a -> s{_vuicAllowedCharacterCount = a})-      . mapping _Coerce--vuicUpdated :: Lens' VolumeUserInfoCopy (Maybe UTCTime)-vuicUpdated-  = lens _vuicUpdated (\ s a -> s{_vuicUpdated = a}) .-      mapping _DateTime--vuicRemainingCharacterCount :: Lens' VolumeUserInfoCopy (Maybe Int32)-vuicRemainingCharacterCount-  = lens _vuicRemainingCharacterCount-      (\ s a -> s{_vuicRemainingCharacterCount = a})-      . mapping _Coerce--instance FromJSON VolumeUserInfoCopy where-        parseJSON-          = withObject "VolumeUserInfoCopy"-              (\ o ->-                 VolumeUserInfoCopy' <$>-                   (o .:? "limitType") <*>-                     (o .:? "allowedCharacterCount")-                     <*> (o .:? "updated")-                     <*> (o .:? "remainingCharacterCount"))--instance ToJSON VolumeUserInfoCopy where-        toJSON VolumeUserInfoCopy'{..}-          = object-              (catMaybes-                 [("limitType" .=) <$> _vuicLimitType,-                  ("allowedCharacterCount" .=) <$>-                    _vuicAllowedCharacterCount,-                  ("updated" .=) <$> _vuicUpdated,-                  ("remainingCharacterCount" .=) <$>-                    _vuicRemainingCharacterCount])------- /See:/ 'booksVolumesRecommendedRateResponse' smart constructor.-newtype BooksVolumesRecommendedRateResponse =-  BooksVolumesRecommendedRateResponse'-    { _bvrrrConsistencyToken :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'BooksVolumesRecommendedRateResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bvrrrConsistencyToken'-booksVolumesRecommendedRateResponse-    :: BooksVolumesRecommendedRateResponse-booksVolumesRecommendedRateResponse =-  BooksVolumesRecommendedRateResponse' {_bvrrrConsistencyToken = Nothing}---bvrrrConsistencyToken :: Lens' BooksVolumesRecommendedRateResponse (Maybe Text)-bvrrrConsistencyToken-  = lens _bvrrrConsistencyToken-      (\ s a -> s{_bvrrrConsistencyToken = a})--instance FromJSON BooksVolumesRecommendedRateResponse-         where-        parseJSON-          = withObject "BooksVolumesRecommendedRateResponse"-              (\ o ->-                 BooksVolumesRecommendedRateResponse' <$>-                   (o .:? "consistency_token"))--instance ToJSON BooksVolumesRecommendedRateResponse-         where-        toJSON BooksVolumesRecommendedRateResponse'{..}-          = object-              (catMaybes-                 [("consistency_token" .=) <$>-                    _bvrrrConsistencyToken])------- /See:/ 'userSettingsNotificationPriceDrop' smart constructor.-newtype UserSettingsNotificationPriceDrop =-  UserSettingsNotificationPriceDrop'-    { _usnpdOptedState :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserSettingsNotificationPriceDrop' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usnpdOptedState'-userSettingsNotificationPriceDrop-    :: UserSettingsNotificationPriceDrop-userSettingsNotificationPriceDrop =-  UserSettingsNotificationPriceDrop' {_usnpdOptedState = Nothing}---usnpdOptedState :: Lens' UserSettingsNotificationPriceDrop (Maybe Text)-usnpdOptedState-  = lens _usnpdOptedState-      (\ s a -> s{_usnpdOptedState = a})--instance FromJSON UserSettingsNotificationPriceDrop-         where-        parseJSON-          = withObject "UserSettingsNotificationPriceDrop"-              (\ o ->-                 UserSettingsNotificationPriceDrop' <$>-                   (o .:? "opted_state"))--instance ToJSON UserSettingsNotificationPriceDrop-         where-        toJSON UserSettingsNotificationPriceDrop'{..}-          = object-              (catMaybes [("opted_state" .=) <$> _usnpdOptedState])------- /See:/ 'volumeseriesInfo' smart constructor.-data VolumeseriesInfo =-  VolumeseriesInfo'-    { _viBookDisplayNumber    :: !(Maybe Text)-    , _viKind                 :: !Text-    , _viShortSeriesBookTitle :: !(Maybe Text)-    , _viVolumeSeries         :: !(Maybe [VolumeseriesInfoVolumeSeriesItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeseriesInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'viBookDisplayNumber'------ * 'viKind'------ * 'viShortSeriesBookTitle'------ * 'viVolumeSeries'-volumeseriesInfo-    :: VolumeseriesInfo-volumeseriesInfo =-  VolumeseriesInfo'-    { _viBookDisplayNumber = Nothing-    , _viKind = "books#volume_series_info"-    , _viShortSeriesBookTitle = Nothing-    , _viVolumeSeries = Nothing-    }----- | The display number string. This should be used only for display purposes--- and the actual sequence should be inferred from the below orderNumber.-viBookDisplayNumber :: Lens' VolumeseriesInfo (Maybe Text)-viBookDisplayNumber-  = lens _viBookDisplayNumber-      (\ s a -> s{_viBookDisplayNumber = a})---- | Resource type.-viKind :: Lens' VolumeseriesInfo Text-viKind = lens _viKind (\ s a -> s{_viKind = a})---- | Short book title in the context of the series.-viShortSeriesBookTitle :: Lens' VolumeseriesInfo (Maybe Text)-viShortSeriesBookTitle-  = lens _viShortSeriesBookTitle-      (\ s a -> s{_viShortSeriesBookTitle = a})--viVolumeSeries :: Lens' VolumeseriesInfo [VolumeseriesInfoVolumeSeriesItem]-viVolumeSeries-  = lens _viVolumeSeries-      (\ s a -> s{_viVolumeSeries = a})-      . _Default-      . _Coerce--instance FromJSON VolumeseriesInfo where-        parseJSON-          = withObject "VolumeseriesInfo"-              (\ o ->-                 VolumeseriesInfo' <$>-                   (o .:? "bookDisplayNumber") <*>-                     (o .:? "kind" .!= "books#volume_series_info")-                     <*> (o .:? "shortSeriesBookTitle")-                     <*> (o .:? "volumeSeries" .!= mempty))--instance ToJSON VolumeseriesInfo where-        toJSON VolumeseriesInfo'{..}-          = object-              (catMaybes-                 [("bookDisplayNumber" .=) <$> _viBookDisplayNumber,-                  Just ("kind" .= _viKind),-                  ("shortSeriesBookTitle" .=) <$>-                    _viShortSeriesBookTitle,-                  ("volumeSeries" .=) <$> _viVolumeSeries])------- /See:/ 'bookshelf' smart constructor.-data Bookshelf =-  Bookshelf'-    { _bAccess             :: !(Maybe Text)-    , _bVolumesLastUpdated :: !(Maybe DateTime')-    , _bKind               :: !Text-    , _bCreated            :: !(Maybe DateTime')-    , _bVolumeCount        :: !(Maybe (Textual Int32))-    , _bSelfLink           :: !(Maybe Text)-    , _bId                 :: !(Maybe (Textual Int32))-    , _bUpdated            :: !(Maybe DateTime')-    , _bTitle              :: !(Maybe Text)-    , _bDescription        :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Bookshelf' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bAccess'------ * 'bVolumesLastUpdated'------ * 'bKind'------ * 'bCreated'------ * 'bVolumeCount'------ * 'bSelfLink'------ * 'bId'------ * 'bUpdated'------ * 'bTitle'------ * 'bDescription'-bookshelf-    :: Bookshelf-bookshelf =-  Bookshelf'-    { _bAccess = Nothing-    , _bVolumesLastUpdated = Nothing-    , _bKind = "books#bookshelf"-    , _bCreated = Nothing-    , _bVolumeCount = Nothing-    , _bSelfLink = Nothing-    , _bId = Nothing-    , _bUpdated = Nothing-    , _bTitle = Nothing-    , _bDescription = Nothing-    }----- | Whether this bookshelf is PUBLIC or PRIVATE.-bAccess :: Lens' Bookshelf (Maybe Text)-bAccess = lens _bAccess (\ s a -> s{_bAccess = a})---- | Last time a volume was added or removed from this bookshelf (formatted--- UTC timestamp with millisecond resolution).-bVolumesLastUpdated :: Lens' Bookshelf (Maybe UTCTime)-bVolumesLastUpdated-  = lens _bVolumesLastUpdated-      (\ s a -> s{_bVolumesLastUpdated = a})-      . mapping _DateTime---- | Resource type for bookshelf metadata.-bKind :: Lens' Bookshelf Text-bKind = lens _bKind (\ s a -> s{_bKind = a})---- | Created time for this bookshelf (formatted UTC timestamp with--- millisecond resolution).-bCreated :: Lens' Bookshelf (Maybe UTCTime)-bCreated-  = lens _bCreated (\ s a -> s{_bCreated = a}) .-      mapping _DateTime---- | Number of volumes in this bookshelf.-bVolumeCount :: Lens' Bookshelf (Maybe Int32)-bVolumeCount-  = lens _bVolumeCount (\ s a -> s{_bVolumeCount = a})-      . mapping _Coerce---- | URL to this resource.-bSelfLink :: Lens' Bookshelf (Maybe Text)-bSelfLink-  = lens _bSelfLink (\ s a -> s{_bSelfLink = a})---- | Id of this bookshelf, only unique by user.-bId :: Lens' Bookshelf (Maybe Int32)-bId-  = lens _bId (\ s a -> s{_bId = a}) . mapping _Coerce---- | Last modified time of this bookshelf (formatted UTC timestamp with--- millisecond resolution).-bUpdated :: Lens' Bookshelf (Maybe UTCTime)-bUpdated-  = lens _bUpdated (\ s a -> s{_bUpdated = a}) .-      mapping _DateTime---- | Title of this bookshelf.-bTitle :: Lens' Bookshelf (Maybe Text)-bTitle = lens _bTitle (\ s a -> s{_bTitle = a})---- | Description of this bookshelf.-bDescription :: Lens' Bookshelf (Maybe Text)-bDescription-  = lens _bDescription (\ s a -> s{_bDescription = a})--instance FromJSON Bookshelf where-        parseJSON-          = withObject "Bookshelf"-              (\ o ->-                 Bookshelf' <$>-                   (o .:? "access") <*> (o .:? "volumesLastUpdated") <*>-                     (o .:? "kind" .!= "books#bookshelf")-                     <*> (o .:? "created")-                     <*> (o .:? "volumeCount")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "id")-                     <*> (o .:? "updated")-                     <*> (o .:? "title")-                     <*> (o .:? "description"))--instance ToJSON Bookshelf where-        toJSON Bookshelf'{..}-          = object-              (catMaybes-                 [("access" .=) <$> _bAccess,-                  ("volumesLastUpdated" .=) <$> _bVolumesLastUpdated,-                  Just ("kind" .= _bKind),-                  ("created" .=) <$> _bCreated,-                  ("volumeCount" .=) <$> _bVolumeCount,-                  ("selfLink" .=) <$> _bSelfLink, ("id" .=) <$> _bId,-                  ("updated" .=) <$> _bUpdated,-                  ("title" .=) <$> _bTitle,-                  ("description" .=) <$> _bDescription])------- /See:/ 'notification' smart constructor.-data Notification =-  Notification'-    { _nDocType                        :: !(Maybe Text)-    , _nTargetURL                      :: !(Maybe Text)-    , _nShowNotificationSettingsAction :: !(Maybe Bool)-    , _nDocId                          :: !(Maybe Text)-    , _nKind                           :: !Text-    , _nBody                           :: !(Maybe Text)-    , _nCrmExperimentIds               :: !(Maybe [Textual Int64])-    , _nTimeToExpireMs                 :: !(Maybe (Textual Int64))-    , _nPcampaignId                    :: !(Maybe Text)-    , _nReason                         :: !(Maybe Text)-    , _nIsDocumentMature               :: !(Maybe Bool)-    , _nDontShowNotification           :: !(Maybe Bool)-    , _nNotificationType               :: !(Maybe Text)-    , _nNotificationGroup              :: !(Maybe Text)-    , _nIconURL                        :: !(Maybe Text)-    , _nTitle                          :: !(Maybe Text)-    }-  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:------ * 'nDocType'------ * 'nTargetURL'------ * 'nShowNotificationSettingsAction'------ * 'nDocId'------ * 'nKind'------ * 'nBody'------ * 'nCrmExperimentIds'------ * 'nTimeToExpireMs'------ * 'nPcampaignId'------ * 'nReason'------ * 'nIsDocumentMature'------ * 'nDontShowNotification'------ * 'nNotificationType'------ * 'nNotificationGroup'------ * 'nIconURL'------ * 'nTitle'-notification-    :: Notification-notification =-  Notification'-    { _nDocType = Nothing-    , _nTargetURL = Nothing-    , _nShowNotificationSettingsAction = Nothing-    , _nDocId = Nothing-    , _nKind = "books#notification"-    , _nBody = Nothing-    , _nCrmExperimentIds = Nothing-    , _nTimeToExpireMs = Nothing-    , _nPcampaignId = Nothing-    , _nReason = Nothing-    , _nIsDocumentMature = Nothing-    , _nDontShowNotification = Nothing-    , _nNotificationType = Nothing-    , _nNotificationGroup = Nothing-    , _nIconURL = Nothing-    , _nTitle = Nothing-    }---nDocType :: Lens' Notification (Maybe Text)-nDocType = lens _nDocType (\ s a -> s{_nDocType = a})--nTargetURL :: Lens' Notification (Maybe Text)-nTargetURL-  = lens _nTargetURL (\ s a -> s{_nTargetURL = a})--nShowNotificationSettingsAction :: Lens' Notification (Maybe Bool)-nShowNotificationSettingsAction-  = lens _nShowNotificationSettingsAction-      (\ s a -> s{_nShowNotificationSettingsAction = a})--nDocId :: Lens' Notification (Maybe Text)-nDocId = lens _nDocId (\ s a -> s{_nDocId = a})---- | Resource type.-nKind :: Lens' Notification Text-nKind = lens _nKind (\ s a -> s{_nKind = a})--nBody :: Lens' Notification (Maybe Text)-nBody = lens _nBody (\ s a -> s{_nBody = a})---- | The list of crm experiment ids.-nCrmExperimentIds :: Lens' Notification [Int64]-nCrmExperimentIds-  = lens _nCrmExperimentIds-      (\ s a -> s{_nCrmExperimentIds = a})-      . _Default-      . _Coerce--nTimeToExpireMs :: Lens' Notification (Maybe Int64)-nTimeToExpireMs-  = lens _nTimeToExpireMs-      (\ s a -> s{_nTimeToExpireMs = a})-      . mapping _Coerce--nPcampaignId :: Lens' Notification (Maybe Text)-nPcampaignId-  = lens _nPcampaignId (\ s a -> s{_nPcampaignId = a})--nReason :: Lens' Notification (Maybe Text)-nReason = lens _nReason (\ s a -> s{_nReason = a})--nIsDocumentMature :: Lens' Notification (Maybe Bool)-nIsDocumentMature-  = lens _nIsDocumentMature-      (\ s a -> s{_nIsDocumentMature = a})--nDontShowNotification :: Lens' Notification (Maybe Bool)-nDontShowNotification-  = lens _nDontShowNotification-      (\ s a -> s{_nDontShowNotification = a})--nNotificationType :: Lens' Notification (Maybe Text)-nNotificationType-  = lens _nNotificationType-      (\ s a -> s{_nNotificationType = a})--nNotificationGroup :: Lens' Notification (Maybe Text)-nNotificationGroup-  = lens _nNotificationGroup-      (\ s a -> s{_nNotificationGroup = a})--nIconURL :: Lens' Notification (Maybe Text)-nIconURL = lens _nIconURL (\ s a -> s{_nIconURL = a})--nTitle :: Lens' Notification (Maybe Text)-nTitle = lens _nTitle (\ s a -> s{_nTitle = a})--instance FromJSON Notification where-        parseJSON-          = withObject "Notification"-              (\ o ->-                 Notification' <$>-                   (o .:? "doc_type") <*> (o .:? "targetUrl") <*>-                     (o .:? "show_notification_settings_action")-                     <*> (o .:? "doc_id")-                     <*> (o .:? "kind" .!= "books#notification")-                     <*> (o .:? "body")-                     <*> (o .:? "crmExperimentIds" .!= mempty)-                     <*> (o .:? "timeToExpireMs")-                     <*> (o .:? "pcampaign_id")-                     <*> (o .:? "reason")-                     <*> (o .:? "is_document_mature")-                     <*> (o .:? "dont_show_notification")-                     <*> (o .:? "notification_type")-                     <*> (o .:? "notificationGroup")-                     <*> (o .:? "iconUrl")-                     <*> (o .:? "title"))--instance ToJSON Notification where-        toJSON Notification'{..}-          = object-              (catMaybes-                 [("doc_type" .=) <$> _nDocType,-                  ("targetUrl" .=) <$> _nTargetURL,-                  ("show_notification_settings_action" .=) <$>-                    _nShowNotificationSettingsAction,-                  ("doc_id" .=) <$> _nDocId, Just ("kind" .= _nKind),-                  ("body" .=) <$> _nBody,-                  ("crmExperimentIds" .=) <$> _nCrmExperimentIds,-                  ("timeToExpireMs" .=) <$> _nTimeToExpireMs,-                  ("pcampaign_id" .=) <$> _nPcampaignId,-                  ("reason" .=) <$> _nReason,-                  ("is_document_mature" .=) <$> _nIsDocumentMature,-                  ("dont_show_notification" .=) <$>-                    _nDontShowNotification,-                  ("notification_type" .=) <$> _nNotificationType,-                  ("notificationGroup" .=) <$> _nNotificationGroup,-                  ("iconUrl" .=) <$> _nIconURL,-                  ("title" .=) <$> _nTitle])------- /See:/ 'annotationsSummaryLayersItem' smart constructor.-data AnnotationsSummaryLayersItem =-  AnnotationsSummaryLayersItem'-    { _asliLimitType               :: !(Maybe Text)-    , _asliAllowedCharacterCount   :: !(Maybe (Textual Int32))-    , _asliUpdated                 :: !(Maybe DateTime')-    , _asliLayerId                 :: !(Maybe Text)-    , _asliRemainingCharacterCount :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AnnotationsSummaryLayersItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'asliLimitType'------ * 'asliAllowedCharacterCount'------ * 'asliUpdated'------ * 'asliLayerId'------ * 'asliRemainingCharacterCount'-annotationsSummaryLayersItem-    :: AnnotationsSummaryLayersItem-annotationsSummaryLayersItem =-  AnnotationsSummaryLayersItem'-    { _asliLimitType = Nothing-    , _asliAllowedCharacterCount = Nothing-    , _asliUpdated = Nothing-    , _asliLayerId = Nothing-    , _asliRemainingCharacterCount = Nothing-    }---asliLimitType :: Lens' AnnotationsSummaryLayersItem (Maybe Text)-asliLimitType-  = lens _asliLimitType-      (\ s a -> s{_asliLimitType = a})--asliAllowedCharacterCount :: Lens' AnnotationsSummaryLayersItem (Maybe Int32)-asliAllowedCharacterCount-  = lens _asliAllowedCharacterCount-      (\ s a -> s{_asliAllowedCharacterCount = a})-      . mapping _Coerce--asliUpdated :: Lens' AnnotationsSummaryLayersItem (Maybe UTCTime)-asliUpdated-  = lens _asliUpdated (\ s a -> s{_asliUpdated = a}) .-      mapping _DateTime--asliLayerId :: Lens' AnnotationsSummaryLayersItem (Maybe Text)-asliLayerId-  = lens _asliLayerId (\ s a -> s{_asliLayerId = a})--asliRemainingCharacterCount :: Lens' AnnotationsSummaryLayersItem (Maybe Int32)-asliRemainingCharacterCount-  = lens _asliRemainingCharacterCount-      (\ s a -> s{_asliRemainingCharacterCount = a})-      . mapping _Coerce--instance FromJSON AnnotationsSummaryLayersItem where-        parseJSON-          = withObject "AnnotationsSummaryLayersItem"-              (\ o ->-                 AnnotationsSummaryLayersItem' <$>-                   (o .:? "limitType") <*>-                     (o .:? "allowedCharacterCount")-                     <*> (o .:? "updated")-                     <*> (o .:? "layerId")-                     <*> (o .:? "remainingCharacterCount"))--instance ToJSON AnnotationsSummaryLayersItem where-        toJSON AnnotationsSummaryLayersItem'{..}-          = object-              (catMaybes-                 [("limitType" .=) <$> _asliLimitType,-                  ("allowedCharacterCount" .=) <$>-                    _asliAllowedCharacterCount,-                  ("updated" .=) <$> _asliUpdated,-                  ("layerId" .=) <$> _asliLayerId,-                  ("remainingCharacterCount" .=) <$>-                    _asliRemainingCharacterCount])---- | The rental duration (for rental offers only).------ /See:/ 'volumeSaleInfoOffersItemRentalDuration' smart constructor.-data VolumeSaleInfoOffersItemRentalDuration =-  VolumeSaleInfoOffersItemRentalDuration'-    { _vsioirdCount :: !(Maybe (Textual Double))-    , _vsioirdUnit  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeSaleInfoOffersItemRentalDuration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vsioirdCount'------ * 'vsioirdUnit'-volumeSaleInfoOffersItemRentalDuration-    :: VolumeSaleInfoOffersItemRentalDuration-volumeSaleInfoOffersItemRentalDuration =-  VolumeSaleInfoOffersItemRentalDuration'-    {_vsioirdCount = Nothing, _vsioirdUnit = Nothing}---vsioirdCount :: Lens' VolumeSaleInfoOffersItemRentalDuration (Maybe Double)-vsioirdCount-  = lens _vsioirdCount (\ s a -> s{_vsioirdCount = a})-      . mapping _Coerce--vsioirdUnit :: Lens' VolumeSaleInfoOffersItemRentalDuration (Maybe Text)-vsioirdUnit-  = lens _vsioirdUnit (\ s a -> s{_vsioirdUnit = a})--instance FromJSON-           VolumeSaleInfoOffersItemRentalDuration-         where-        parseJSON-          = withObject "VolumeSaleInfoOffersItemRentalDuration"-              (\ o ->-                 VolumeSaleInfoOffersItemRentalDuration' <$>-                   (o .:? "count") <*> (o .:? "unit"))--instance ToJSON-           VolumeSaleInfoOffersItemRentalDuration-         where-        toJSON VolumeSaleInfoOffersItemRentalDuration'{..}-          = object-              (catMaybes-                 [("count" .=) <$> _vsioirdCount,-                  ("unit" .=) <$> _vsioirdUnit])------- /See:/ 'dictlayerDataDictWordsItemExamplesItem' smart constructor.-data DictlayerDataDictWordsItemExamplesItem =-  DictlayerDataDictWordsItemExamplesItem'-    { _dddwieiText   :: !(Maybe Text)-    , _dddwieiSource :: !(Maybe DictlayerDataDictWordsItemExamplesItemSource)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictWordsItemExamplesItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddwieiText'------ * 'dddwieiSource'-dictlayerDataDictWordsItemExamplesItem-    :: DictlayerDataDictWordsItemExamplesItem-dictlayerDataDictWordsItemExamplesItem =-  DictlayerDataDictWordsItemExamplesItem'-    {_dddwieiText = Nothing, _dddwieiSource = Nothing}---dddwieiText :: Lens' DictlayerDataDictWordsItemExamplesItem (Maybe Text)-dddwieiText-  = lens _dddwieiText (\ s a -> s{_dddwieiText = a})--dddwieiSource :: Lens' DictlayerDataDictWordsItemExamplesItem (Maybe DictlayerDataDictWordsItemExamplesItemSource)-dddwieiSource-  = lens _dddwieiSource-      (\ s a -> s{_dddwieiSource = a})--instance FromJSON-           DictlayerDataDictWordsItemExamplesItem-         where-        parseJSON-          = withObject "DictlayerDataDictWordsItemExamplesItem"-              (\ o ->-                 DictlayerDataDictWordsItemExamplesItem' <$>-                   (o .:? "text") <*> (o .:? "source"))--instance ToJSON-           DictlayerDataDictWordsItemExamplesItem-         where-        toJSON DictlayerDataDictWordsItemExamplesItem'{..}-          = object-              (catMaybes-                 [("text" .=) <$> _dddwieiText,-                  ("source" .=) <$> _dddwieiSource])------- /See:/ 'offersItemsItem' smart constructor.-data OffersItemsItem =-  OffersItemsItem'-    { _oiiItems        :: !(Maybe [OffersItemsItemItemsItem])-    , _oiiArtURL       :: !(Maybe Text)-    , _oiiId           :: !(Maybe Text)-    , _oiiGServicesKey :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OffersItemsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oiiItems'------ * 'oiiArtURL'------ * 'oiiId'------ * 'oiiGServicesKey'-offersItemsItem-    :: OffersItemsItem-offersItemsItem =-  OffersItemsItem'-    { _oiiItems = Nothing-    , _oiiArtURL = Nothing-    , _oiiId = Nothing-    , _oiiGServicesKey = Nothing-    }---oiiItems :: Lens' OffersItemsItem [OffersItemsItemItemsItem]-oiiItems-  = lens _oiiItems (\ s a -> s{_oiiItems = a}) .-      _Default-      . _Coerce--oiiArtURL :: Lens' OffersItemsItem (Maybe Text)-oiiArtURL-  = lens _oiiArtURL (\ s a -> s{_oiiArtURL = a})--oiiId :: Lens' OffersItemsItem (Maybe Text)-oiiId = lens _oiiId (\ s a -> s{_oiiId = a})--oiiGServicesKey :: Lens' OffersItemsItem (Maybe Text)-oiiGServicesKey-  = lens _oiiGServicesKey-      (\ s a -> s{_oiiGServicesKey = a})--instance FromJSON OffersItemsItem where-        parseJSON-          = withObject "OffersItemsItem"-              (\ o ->-                 OffersItemsItem' <$>-                   (o .:? "items" .!= mempty) <*> (o .:? "artUrl") <*>-                     (o .:? "id")-                     <*> (o .:? "gservicesKey"))--instance ToJSON OffersItemsItem where-        toJSON OffersItemsItem'{..}-          = object-              (catMaybes-                 [("items" .=) <$> _oiiItems,-                  ("artUrl" .=) <$> _oiiArtURL, ("id" .=) <$> _oiiId,-                  ("gservicesKey" .=) <$> _oiiGServicesKey])------- /See:/ 'annotationLayerSummary' smart constructor.-data AnnotationLayerSummary =-  AnnotationLayerSummary'-    { _alsLimitType               :: !(Maybe Text)-    , _alsAllowedCharacterCount   :: !(Maybe (Textual Int32))-    , _alsRemainingCharacterCount :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AnnotationLayerSummary' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'alsLimitType'------ * 'alsAllowedCharacterCount'------ * 'alsRemainingCharacterCount'-annotationLayerSummary-    :: AnnotationLayerSummary-annotationLayerSummary =-  AnnotationLayerSummary'-    { _alsLimitType = Nothing-    , _alsAllowedCharacterCount = Nothing-    , _alsRemainingCharacterCount = Nothing-    }----- | Type of limitation on this layer. \"limited\" or \"unlimited\" for the--- \"copy\" layer.-alsLimitType :: Lens' AnnotationLayerSummary (Maybe Text)-alsLimitType-  = lens _alsLimitType (\ s a -> s{_alsLimitType = a})---- | Maximum allowed characters on this layer, especially for the \"copy\"--- layer.-alsAllowedCharacterCount :: Lens' AnnotationLayerSummary (Maybe Int32)-alsAllowedCharacterCount-  = lens _alsAllowedCharacterCount-      (\ s a -> s{_alsAllowedCharacterCount = a})-      . mapping _Coerce---- | Remaining allowed characters on this layer, especially for the \"copy\"--- layer.-alsRemainingCharacterCount :: Lens' AnnotationLayerSummary (Maybe Int32)-alsRemainingCharacterCount-  = lens _alsRemainingCharacterCount-      (\ s a -> s{_alsRemainingCharacterCount = a})-      . mapping _Coerce--instance FromJSON AnnotationLayerSummary where-        parseJSON-          = withObject "AnnotationLayerSummary"-              (\ o ->-                 AnnotationLayerSummary' <$>-                   (o .:? "limitType") <*>-                     (o .:? "allowedCharacterCount")-                     <*> (o .:? "remainingCharacterCount"))--instance ToJSON AnnotationLayerSummary where-        toJSON AnnotationLayerSummary'{..}-          = object-              (catMaybes-                 [("limitType" .=) <$> _alsLimitType,-                  ("allowedCharacterCount" .=) <$>-                    _alsAllowedCharacterCount,-                  ("remainingCharacterCount" .=) <$>-                    _alsRemainingCharacterCount])---- | Search result information related to this volume.------ /See:/ 'volumeSearchInfo' smart constructor.-newtype VolumeSearchInfo =-  VolumeSearchInfo'-    { _vsiTextSnippet :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeSearchInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vsiTextSnippet'-volumeSearchInfo-    :: VolumeSearchInfo-volumeSearchInfo = VolumeSearchInfo' {_vsiTextSnippet = Nothing}----- | A text snippet containing the search query.-vsiTextSnippet :: Lens' VolumeSearchInfo (Maybe Text)-vsiTextSnippet-  = lens _vsiTextSnippet-      (\ s a -> s{_vsiTextSnippet = a})--instance FromJSON VolumeSearchInfo where-        parseJSON-          = withObject "VolumeSearchInfo"-              (\ o -> VolumeSearchInfo' <$> (o .:? "textSnippet"))--instance ToJSON VolumeSearchInfo where-        toJSON VolumeSearchInfo'{..}-          = object-              (catMaybes [("textSnippet" .=) <$> _vsiTextSnippet])------- /See:/ 'annotationsSummary' smart constructor.-data AnnotationsSummary =-  AnnotationsSummary'-    { _asKind   :: !Text-    , _asLayers :: !(Maybe [AnnotationsSummaryLayersItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AnnotationsSummary' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'asKind'------ * 'asLayers'-annotationsSummary-    :: AnnotationsSummary-annotationsSummary =-  AnnotationsSummary'-    {_asKind = "books#annotationsSummary", _asLayers = Nothing}---asKind :: Lens' AnnotationsSummary Text-asKind = lens _asKind (\ s a -> s{_asKind = a})--asLayers :: Lens' AnnotationsSummary [AnnotationsSummaryLayersItem]-asLayers-  = lens _asLayers (\ s a -> s{_asLayers = a}) .-      _Default-      . _Coerce--instance FromJSON AnnotationsSummary where-        parseJSON-          = withObject "AnnotationsSummary"-              (\ o ->-                 AnnotationsSummary' <$>-                   (o .:? "kind" .!= "books#annotationsSummary") <*>-                     (o .:? "layers" .!= mempty))--instance ToJSON AnnotationsSummary where-        toJSON AnnotationsSummary'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _asKind),-                  ("layers" .=) <$> _asLayers])------- /See:/ 'category' smart constructor.-data Category =-  Category'-    { _cKind  :: !Text-    , _cItems :: !(Maybe [CategoryItemsItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Category' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cKind'------ * 'cItems'-category-    :: Category-category = Category' {_cKind = "onboarding#category", _cItems = Nothing}----- | Resource type.-cKind :: Lens' Category Text-cKind = lens _cKind (\ s a -> s{_cKind = a})---- | A list of onboarding categories.-cItems :: Lens' Category [CategoryItemsItem]-cItems-  = lens _cItems (\ s a -> s{_cItems = a}) . _Default .-      _Coerce--instance FromJSON Category where-        parseJSON-          = withObject "Category"-              (\ o ->-                 Category' <$>-                   (o .:? "kind" .!= "onboarding#category") <*>-                     (o .:? "items" .!= mempty))--instance ToJSON Category where-        toJSON Category'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _cKind), ("items" .=) <$> _cItems])------- /See:/ 'discoveryclustersClustersItemBanner_with_content_container' smart constructor.-data DiscoveryclustersClustersItemBanner_with_content_container =-  DiscoveryclustersClustersItemBanner_with_content_container'-    { _dcibFillColorArgb  :: !(Maybe Text)-    , _dcibMoreButtonURL  :: !(Maybe Text)-    , _dcibTextColorArgb  :: !(Maybe Text)-    , _dcibMoreButtonText :: !(Maybe Text)-    , _dcibImageURL       :: !(Maybe Text)-    , _dcibMaskColorArgb  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DiscoveryclustersClustersItemBanner_with_content_container' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcibFillColorArgb'------ * 'dcibMoreButtonURL'------ * 'dcibTextColorArgb'------ * 'dcibMoreButtonText'------ * 'dcibImageURL'------ * 'dcibMaskColorArgb'-discoveryclustersClustersItemBanner_with_content_container-    :: DiscoveryclustersClustersItemBanner_with_content_container-discoveryclustersClustersItemBanner_with_content_container =-  DiscoveryclustersClustersItemBanner_with_content_container'-    { _dcibFillColorArgb = Nothing-    , _dcibMoreButtonURL = Nothing-    , _dcibTextColorArgb = Nothing-    , _dcibMoreButtonText = Nothing-    , _dcibImageURL = Nothing-    , _dcibMaskColorArgb = Nothing-    }---dcibFillColorArgb :: Lens' DiscoveryclustersClustersItemBanner_with_content_container (Maybe Text)-dcibFillColorArgb-  = lens _dcibFillColorArgb-      (\ s a -> s{_dcibFillColorArgb = a})--dcibMoreButtonURL :: Lens' DiscoveryclustersClustersItemBanner_with_content_container (Maybe Text)-dcibMoreButtonURL-  = lens _dcibMoreButtonURL-      (\ s a -> s{_dcibMoreButtonURL = a})--dcibTextColorArgb :: Lens' DiscoveryclustersClustersItemBanner_with_content_container (Maybe Text)-dcibTextColorArgb-  = lens _dcibTextColorArgb-      (\ s a -> s{_dcibTextColorArgb = a})--dcibMoreButtonText :: Lens' DiscoveryclustersClustersItemBanner_with_content_container (Maybe Text)-dcibMoreButtonText-  = lens _dcibMoreButtonText-      (\ s a -> s{_dcibMoreButtonText = a})--dcibImageURL :: Lens' DiscoveryclustersClustersItemBanner_with_content_container (Maybe Text)-dcibImageURL-  = lens _dcibImageURL (\ s a -> s{_dcibImageURL = a})--dcibMaskColorArgb :: Lens' DiscoveryclustersClustersItemBanner_with_content_container (Maybe Text)-dcibMaskColorArgb-  = lens _dcibMaskColorArgb-      (\ s a -> s{_dcibMaskColorArgb = a})--instance FromJSON-           DiscoveryclustersClustersItemBanner_with_content_container-         where-        parseJSON-          = withObject-              "DiscoveryclustersClustersItemBannerWithContentContainer"-              (\ o ->-                 DiscoveryclustersClustersItemBanner_with_content_container'-                   <$>-                   (o .:? "fillColorArgb") <*> (o .:? "moreButtonUrl")-                     <*> (o .:? "textColorArgb")-                     <*> (o .:? "moreButtonText")-                     <*> (o .:? "imageUrl")-                     <*> (o .:? "maskColorArgb"))--instance ToJSON-           DiscoveryclustersClustersItemBanner_with_content_container-         where-        toJSON-          DiscoveryclustersClustersItemBanner_with_content_container'{..}-          = object-              (catMaybes-                 [("fillColorArgb" .=) <$> _dcibFillColorArgb,-                  ("moreButtonUrl" .=) <$> _dcibMoreButtonURL,-                  ("textColorArgb" .=) <$> _dcibTextColorArgb,-                  ("moreButtonText" .=) <$> _dcibMoreButtonText,-                  ("imageUrl" .=) <$> _dcibImageURL,-                  ("maskColorArgb" .=) <$> _dcibMaskColorArgb])------- /See:/ 'volume' smart constructor.-data Volume =-  Volume'-    { _vvUserInfo        :: !(Maybe VolumeUserInfo)-    , _vvEtag            :: !(Maybe Text)-    , _vvAccessInfo      :: !(Maybe VolumeAccessInfo)-    , _vvKind            :: !Text-    , _vvSearchInfo      :: !(Maybe VolumeSearchInfo)-    , _vvSelfLink        :: !(Maybe Text)-    , _vvLayerInfo       :: !(Maybe VolumeLayerInfo)-    , _vvSaleInfo        :: !(Maybe VolumeSaleInfo)-    , _vvId              :: !(Maybe Text)-    , _vvRecommendedInfo :: !(Maybe VolumeRecommendedInfo)-    , _vvVolumeInfo      :: !(Maybe VolumeVolumeInfo)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Volume' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vvUserInfo'------ * 'vvEtag'------ * 'vvAccessInfo'------ * 'vvKind'------ * 'vvSearchInfo'------ * 'vvSelfLink'------ * 'vvLayerInfo'------ * 'vvSaleInfo'------ * 'vvId'------ * 'vvRecommendedInfo'------ * 'vvVolumeInfo'-volume-    :: Volume-volume =-  Volume'-    { _vvUserInfo = Nothing-    , _vvEtag = Nothing-    , _vvAccessInfo = Nothing-    , _vvKind = "books#volume"-    , _vvSearchInfo = Nothing-    , _vvSelfLink = Nothing-    , _vvLayerInfo = Nothing-    , _vvSaleInfo = Nothing-    , _vvId = Nothing-    , _vvRecommendedInfo = Nothing-    , _vvVolumeInfo = Nothing-    }----- | User specific information related to this volume. (e.g. page this user--- last read or whether they purchased this book)-vvUserInfo :: Lens' Volume (Maybe VolumeUserInfo)-vvUserInfo-  = lens _vvUserInfo (\ s a -> s{_vvUserInfo = a})---- | Opaque identifier for a specific version of a volume resource. (In LITE--- projection)-vvEtag :: Lens' Volume (Maybe Text)-vvEtag = lens _vvEtag (\ s a -> s{_vvEtag = a})---- | Any information about a volume related to reading or obtaining that--- volume text. This information can depend on country (books may be public--- domain in one country but not in another, e.g.).-vvAccessInfo :: Lens' Volume (Maybe VolumeAccessInfo)-vvAccessInfo-  = lens _vvAccessInfo (\ s a -> s{_vvAccessInfo = a})---- | Resource type for a volume. (In LITE projection.)-vvKind :: Lens' Volume Text-vvKind = lens _vvKind (\ s a -> s{_vvKind = a})---- | Search result information related to this volume.-vvSearchInfo :: Lens' Volume (Maybe VolumeSearchInfo)-vvSearchInfo-  = lens _vvSearchInfo (\ s a -> s{_vvSearchInfo = a})---- | URL to this resource. (In LITE projection.)-vvSelfLink :: Lens' Volume (Maybe Text)-vvSelfLink-  = lens _vvSelfLink (\ s a -> s{_vvSelfLink = a})---- | What layers exist in this volume and high level information about them.-vvLayerInfo :: Lens' Volume (Maybe VolumeLayerInfo)-vvLayerInfo-  = lens _vvLayerInfo (\ s a -> s{_vvLayerInfo = a})---- | Any information about a volume related to the eBookstore and\/or--- purchaseability. This information can depend on the country where the--- request originates from (i.e. books may not be for sale in certain--- countries).-vvSaleInfo :: Lens' Volume (Maybe VolumeSaleInfo)-vvSaleInfo-  = lens _vvSaleInfo (\ s a -> s{_vvSaleInfo = a})---- | Unique identifier for a volume. (In LITE projection.)-vvId :: Lens' Volume (Maybe Text)-vvId = lens _vvId (\ s a -> s{_vvId = a})---- | Recommendation related information for this volume.-vvRecommendedInfo :: Lens' Volume (Maybe VolumeRecommendedInfo)-vvRecommendedInfo-  = lens _vvRecommendedInfo-      (\ s a -> s{_vvRecommendedInfo = a})---- | General volume information.-vvVolumeInfo :: Lens' Volume (Maybe VolumeVolumeInfo)-vvVolumeInfo-  = lens _vvVolumeInfo (\ s a -> s{_vvVolumeInfo = a})--instance FromJSON Volume where-        parseJSON-          = withObject "Volume"-              (\ o ->-                 Volume' <$>-                   (o .:? "userInfo") <*> (o .:? "etag") <*>-                     (o .:? "accessInfo")-                     <*> (o .:? "kind" .!= "books#volume")-                     <*> (o .:? "searchInfo")-                     <*> (o .:? "selfLink")-                     <*> (o .:? "layerInfo")-                     <*> (o .:? "saleInfo")-                     <*> (o .:? "id")-                     <*> (o .:? "recommendedInfo")-                     <*> (o .:? "volumeInfo"))--instance ToJSON Volume where-        toJSON Volume'{..}-          = object-              (catMaybes-                 [("userInfo" .=) <$> _vvUserInfo,-                  ("etag" .=) <$> _vvEtag,-                  ("accessInfo" .=) <$> _vvAccessInfo,-                  Just ("kind" .= _vvKind),-                  ("searchInfo" .=) <$> _vvSearchInfo,-                  ("selfLink" .=) <$> _vvSelfLink,-                  ("layerInfo" .=) <$> _vvLayerInfo,-                  ("saleInfo" .=) <$> _vvSaleInfo, ("id" .=) <$> _vvId,-                  ("recommendedInfo" .=) <$> _vvRecommendedInfo,-                  ("volumeInfo" .=) <$> _vvVolumeInfo])------- /See:/ 'geolayerDataGeoBoundaryItemItem' smart constructor.-data GeolayerDataGeoBoundaryItemItem =-  GeolayerDataGeoBoundaryItemItem'-    { _gdgbiiLatitude  :: !(Maybe (Textual Word32))-    , _gdgbiiLongitude :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GeolayerDataGeoBoundaryItemItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdgbiiLatitude'------ * 'gdgbiiLongitude'-geolayerDataGeoBoundaryItemItem-    :: GeolayerDataGeoBoundaryItemItem-geolayerDataGeoBoundaryItemItem =-  GeolayerDataGeoBoundaryItemItem'-    {_gdgbiiLatitude = Nothing, _gdgbiiLongitude = Nothing}---gdgbiiLatitude :: Lens' GeolayerDataGeoBoundaryItemItem (Maybe Word32)-gdgbiiLatitude-  = lens _gdgbiiLatitude-      (\ s a -> s{_gdgbiiLatitude = a})-      . mapping _Coerce--gdgbiiLongitude :: Lens' GeolayerDataGeoBoundaryItemItem (Maybe Word32)-gdgbiiLongitude-  = lens _gdgbiiLongitude-      (\ s a -> s{_gdgbiiLongitude = a})-      . mapping _Coerce--instance FromJSON GeolayerDataGeoBoundaryItemItem-         where-        parseJSON-          = withObject "GeolayerDataGeoBoundaryItemItem"-              (\ o ->-                 GeolayerDataGeoBoundaryItemItem' <$>-                   (o .:? "latitude") <*> (o .:? "longitude"))--instance ToJSON GeolayerDataGeoBoundaryItemItem where-        toJSON GeolayerDataGeoBoundaryItemItem'{..}-          = object-              (catMaybes-                 [("latitude" .=) <$> _gdgbiiLatitude,-                  ("longitude" .=) <$> _gdgbiiLongitude])------- /See:/ 'series' smart constructor.-data Series =-  Series'-    { _sKind   :: !Text-    , _sSeries :: !(Maybe [SeriesSeriesItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Series' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sKind'------ * 'sSeries'-series-    :: Series-series = Series' {_sKind = "books#series", _sSeries = Nothing}----- | Resource type.-sKind :: Lens' Series Text-sKind = lens _sKind (\ s a -> s{_sKind = a})--sSeries :: Lens' Series [SeriesSeriesItem]-sSeries-  = lens _sSeries (\ s a -> s{_sSeries = a}) . _Default-      . _Coerce--instance FromJSON Series where-        parseJSON-          = withObject "Series"-              (\ o ->-                 Series' <$>-                   (o .:? "kind" .!= "books#series") <*>-                     (o .:? "series" .!= mempty))--instance ToJSON Series where-        toJSON Series'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _sKind),-                  ("series" .=) <$> _sSeries])------- /See:/ 'offersItemsItemItemsItem' smart constructor.-data OffersItemsItemItemsItem =-  OffersItemsItemItemsItem'-    { _oiiiiCanonicalVolumeLink :: !(Maybe Text)-    , _oiiiiCoverURL            :: !(Maybe Text)-    , _oiiiiVolumeId            :: !(Maybe Text)-    , _oiiiiAuthor              :: !(Maybe Text)-    , _oiiiiTitle               :: !(Maybe Text)-    , _oiiiiDescription         :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OffersItemsItemItemsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oiiiiCanonicalVolumeLink'------ * 'oiiiiCoverURL'------ * 'oiiiiVolumeId'------ * 'oiiiiAuthor'------ * 'oiiiiTitle'------ * 'oiiiiDescription'-offersItemsItemItemsItem-    :: OffersItemsItemItemsItem-offersItemsItemItemsItem =-  OffersItemsItemItemsItem'-    { _oiiiiCanonicalVolumeLink = Nothing-    , _oiiiiCoverURL = Nothing-    , _oiiiiVolumeId = Nothing-    , _oiiiiAuthor = Nothing-    , _oiiiiTitle = Nothing-    , _oiiiiDescription = Nothing-    }---oiiiiCanonicalVolumeLink :: Lens' OffersItemsItemItemsItem (Maybe Text)-oiiiiCanonicalVolumeLink-  = lens _oiiiiCanonicalVolumeLink-      (\ s a -> s{_oiiiiCanonicalVolumeLink = a})--oiiiiCoverURL :: Lens' OffersItemsItemItemsItem (Maybe Text)-oiiiiCoverURL-  = lens _oiiiiCoverURL-      (\ s a -> s{_oiiiiCoverURL = a})--oiiiiVolumeId :: Lens' OffersItemsItemItemsItem (Maybe Text)-oiiiiVolumeId-  = lens _oiiiiVolumeId-      (\ s a -> s{_oiiiiVolumeId = a})--oiiiiAuthor :: Lens' OffersItemsItemItemsItem (Maybe Text)-oiiiiAuthor-  = lens _oiiiiAuthor (\ s a -> s{_oiiiiAuthor = a})--oiiiiTitle :: Lens' OffersItemsItemItemsItem (Maybe Text)-oiiiiTitle-  = lens _oiiiiTitle (\ s a -> s{_oiiiiTitle = a})--oiiiiDescription :: Lens' OffersItemsItemItemsItem (Maybe Text)-oiiiiDescription-  = lens _oiiiiDescription-      (\ s a -> s{_oiiiiDescription = a})--instance FromJSON OffersItemsItemItemsItem where-        parseJSON-          = withObject "OffersItemsItemItemsItem"-              (\ o ->-                 OffersItemsItemItemsItem' <$>-                   (o .:? "canonicalVolumeLink") <*> (o .:? "coverUrl")-                     <*> (o .:? "volumeId")-                     <*> (o .:? "author")-                     <*> (o .:? "title")-                     <*> (o .:? "description"))--instance ToJSON OffersItemsItemItemsItem where-        toJSON OffersItemsItemItemsItem'{..}-          = object-              (catMaybes-                 [("canonicalVolumeLink" .=) <$>-                    _oiiiiCanonicalVolumeLink,-                  ("coverUrl" .=) <$> _oiiiiCoverURL,-                  ("volumeId" .=) <$> _oiiiiVolumeId,-                  ("author" .=) <$> _oiiiiAuthor,-                  ("title" .=) <$> _oiiiiTitle,-                  ("description" .=) <$> _oiiiiDescription])------- /See:/ 'dictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource' smart constructor.-data DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource =-  DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource'-    { _dddwisidieisURL         :: !(Maybe Text)-    , _dddwisidieisAttribution :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddwisidieisURL'------ * 'dddwisidieisAttribution'-dictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource-    :: DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource-dictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource =-  DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource'-    {_dddwisidieisURL = Nothing, _dddwisidieisAttribution = Nothing}---dddwisidieisURL :: Lens' DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource (Maybe Text)-dddwisidieisURL-  = lens _dddwisidieisURL-      (\ s a -> s{_dddwisidieisURL = a})--dddwisidieisAttribution :: Lens' DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource (Maybe Text)-dddwisidieisAttribution-  = lens _dddwisidieisAttribution-      (\ s a -> s{_dddwisidieisAttribution = a})--instance FromJSON-           DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource-         where-        parseJSON-          = withObject-              "DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource"-              (\ o ->-                 DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource'-                   <$> (o .:? "url") <*> (o .:? "attribution"))--instance ToJSON-           DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource-         where-        toJSON-          DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource'{..}-          = object-              (catMaybes-                 [("url" .=) <$> _dddwisidieisURL,-                  ("attribution" .=) <$> _dddwisidieisAttribution])------- /See:/ 'geolayerDataCommon' smart constructor.-data GeolayerDataCommon =-  GeolayerDataCommon'-    { _gdcSnippet         :: !(Maybe Text)-    , _gdcSnippetURL      :: !(Maybe Text)-    , _gdcLang            :: !(Maybe Text)-    , _gdcTitle           :: !(Maybe Text)-    , _gdcPreviewImageURL :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GeolayerDataCommon' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdcSnippet'------ * 'gdcSnippetURL'------ * 'gdcLang'------ * 'gdcTitle'------ * 'gdcPreviewImageURL'-geolayerDataCommon-    :: GeolayerDataCommon-geolayerDataCommon =-  GeolayerDataCommon'-    { _gdcSnippet = Nothing-    , _gdcSnippetURL = Nothing-    , _gdcLang = Nothing-    , _gdcTitle = Nothing-    , _gdcPreviewImageURL = Nothing-    }----- | The description for this location.-gdcSnippet :: Lens' GeolayerDataCommon (Maybe Text)-gdcSnippet-  = lens _gdcSnippet (\ s a -> s{_gdcSnippet = a})---- | The URL for information for this location. Ex: wikipedia link.-gdcSnippetURL :: Lens' GeolayerDataCommon (Maybe Text)-gdcSnippetURL-  = lens _gdcSnippetURL-      (\ s a -> s{_gdcSnippetURL = a})---- | The language of the information url and description.-gdcLang :: Lens' GeolayerDataCommon (Maybe Text)-gdcLang = lens _gdcLang (\ s a -> s{_gdcLang = a})---- | The display title and localized canonical name to use when searching for--- this entity on Google search.-gdcTitle :: Lens' GeolayerDataCommon (Maybe Text)-gdcTitle = lens _gdcTitle (\ s a -> s{_gdcTitle = a})---- | The URL for the preview image information.-gdcPreviewImageURL :: Lens' GeolayerDataCommon (Maybe Text)-gdcPreviewImageURL-  = lens _gdcPreviewImageURL-      (\ s a -> s{_gdcPreviewImageURL = a})--instance FromJSON GeolayerDataCommon where-        parseJSON-          = withObject "GeolayerDataCommon"-              (\ o ->-                 GeolayerDataCommon' <$>-                   (o .:? "snippet") <*> (o .:? "snippetUrl") <*>-                     (o .:? "lang")-                     <*> (o .:? "title")-                     <*> (o .:? "previewImageUrl"))--instance ToJSON GeolayerDataCommon where-        toJSON GeolayerDataCommon'{..}-          = object-              (catMaybes-                 [("snippet" .=) <$> _gdcSnippet,-                  ("snippetUrl" .=) <$> _gdcSnippetURL,-                  ("lang" .=) <$> _gdcLang, ("title" .=) <$> _gdcTitle,-                  ("previewImageUrl" .=) <$> _gdcPreviewImageURL])------- /See:/ 'geolayerDataGeo' smart constructor.-data GeolayerDataGeo =-  GeolayerDataGeo'-    { _gdgMapType     :: !(Maybe Text)-    , _gdgCachePolicy :: !(Maybe Text)-    , _gdgViewport    :: !(Maybe GeolayerDataGeoViewport)-    , _gdgBoundary    :: !(Maybe [[GeolayerDataGeoBoundaryItemItem]])-    , _gdgLatitude    :: !(Maybe (Textual Double))-    , _gdgZoom        :: !(Maybe (Textual Int32))-    , _gdgCountryCode :: !(Maybe Text)-    , _gdgLongitude   :: !(Maybe (Textual Double))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GeolayerDataGeo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdgMapType'------ * 'gdgCachePolicy'------ * 'gdgViewport'------ * 'gdgBoundary'------ * 'gdgLatitude'------ * 'gdgZoom'------ * 'gdgCountryCode'------ * 'gdgLongitude'-geolayerDataGeo-    :: GeolayerDataGeo-geolayerDataGeo =-  GeolayerDataGeo'-    { _gdgMapType = Nothing-    , _gdgCachePolicy = Nothing-    , _gdgViewport = Nothing-    , _gdgBoundary = Nothing-    , _gdgLatitude = Nothing-    , _gdgZoom = Nothing-    , _gdgCountryCode = Nothing-    , _gdgLongitude = Nothing-    }----- | The type of map that should be used for this location. EX: HYBRID,--- ROADMAP, SATELLITE, TERRAIN-gdgMapType :: Lens' GeolayerDataGeo (Maybe Text)-gdgMapType-  = lens _gdgMapType (\ s a -> s{_gdgMapType = a})---- | The cache policy active for this data. EX: UNRESTRICTED, RESTRICTED,--- NEVER-gdgCachePolicy :: Lens' GeolayerDataGeo (Maybe Text)-gdgCachePolicy-  = lens _gdgCachePolicy-      (\ s a -> s{_gdgCachePolicy = a})---- | The viewport for showing this location. This is a latitude, longitude--- rectangle.-gdgViewport :: Lens' GeolayerDataGeo (Maybe GeolayerDataGeoViewport)-gdgViewport-  = lens _gdgViewport (\ s a -> s{_gdgViewport = a})---- | The boundary of the location as a set of loops containing pairs of--- latitude, longitude coordinates.-gdgBoundary :: Lens' GeolayerDataGeo [[GeolayerDataGeoBoundaryItemItem]]-gdgBoundary-  = lens _gdgBoundary (\ s a -> s{_gdgBoundary = a}) .-      _Default-      . _Coerce---- | The latitude of the location.-gdgLatitude :: Lens' GeolayerDataGeo (Maybe Double)-gdgLatitude-  = lens _gdgLatitude (\ s a -> s{_gdgLatitude = a}) .-      mapping _Coerce---- | The Zoom level to use for the map. Zoom levels between 0 (the lowest--- zoom level, in which the entire world can be seen on one map) to 21+--- (down to individual buildings). See:--- https:\/\/developers.google.com\/maps\/documentation\/staticmaps\/#Zoomlevels-gdgZoom :: Lens' GeolayerDataGeo (Maybe Int32)-gdgZoom-  = lens _gdgZoom (\ s a -> s{_gdgZoom = a}) .-      mapping _Coerce---- | The country code of the location.-gdgCountryCode :: Lens' GeolayerDataGeo (Maybe Text)-gdgCountryCode-  = lens _gdgCountryCode-      (\ s a -> s{_gdgCountryCode = a})---- | The longitude of the location.-gdgLongitude :: Lens' GeolayerDataGeo (Maybe Double)-gdgLongitude-  = lens _gdgLongitude (\ s a -> s{_gdgLongitude = a})-      . mapping _Coerce--instance FromJSON GeolayerDataGeo where-        parseJSON-          = withObject "GeolayerDataGeo"-              (\ o ->-                 GeolayerDataGeo' <$>-                   (o .:? "mapType") <*> (o .:? "cachePolicy") <*>-                     (o .:? "viewport")-                     <*> (o .:? "boundary" .!= mempty)-                     <*> (o .:? "latitude")-                     <*> (o .:? "zoom")-                     <*> (o .:? "countryCode")-                     <*> (o .:? "longitude"))--instance ToJSON GeolayerDataGeo where-        toJSON GeolayerDataGeo'{..}-          = object-              (catMaybes-                 [("mapType" .=) <$> _gdgMapType,-                  ("cachePolicy" .=) <$> _gdgCachePolicy,-                  ("viewport" .=) <$> _gdgViewport,-                  ("boundary" .=) <$> _gdgBoundary,-                  ("latitude" .=) <$> _gdgLatitude,-                  ("zoom" .=) <$> _gdgZoom,-                  ("countryCode" .=) <$> _gdgCountryCode,-                  ("longitude" .=) <$> _gdgLongitude])------- /See:/ 'dictlayerDataDictWordsItem' smart constructor.-data DictlayerDataDictWordsItem =-  DictlayerDataDictWordsItem'-    { _dddwiSenses      :: !(Maybe [DictlayerDataDictWordsItemSensesItem])-    , _dddwiSource      :: !(Maybe DictlayerDataDictWordsItemSource)-    , _dddwiDerivatives :: !(Maybe [DictlayerDataDictWordsItemDerivativesItem])-    , _dddwiExamples    :: !(Maybe [DictlayerDataDictWordsItemExamplesItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictWordsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddwiSenses'------ * 'dddwiSource'------ * 'dddwiDerivatives'------ * 'dddwiExamples'-dictlayerDataDictWordsItem-    :: DictlayerDataDictWordsItem-dictlayerDataDictWordsItem =-  DictlayerDataDictWordsItem'-    { _dddwiSenses = Nothing-    , _dddwiSource = Nothing-    , _dddwiDerivatives = Nothing-    , _dddwiExamples = Nothing-    }---dddwiSenses :: Lens' DictlayerDataDictWordsItem [DictlayerDataDictWordsItemSensesItem]-dddwiSenses-  = lens _dddwiSenses (\ s a -> s{_dddwiSenses = a}) .-      _Default-      . _Coerce---- | The words with different meanings but not related words, e.g. \"go\"--- (game) and \"go\" (verb).-dddwiSource :: Lens' DictlayerDataDictWordsItem (Maybe DictlayerDataDictWordsItemSource)-dddwiSource-  = lens _dddwiSource (\ s a -> s{_dddwiSource = a})--dddwiDerivatives :: Lens' DictlayerDataDictWordsItem [DictlayerDataDictWordsItemDerivativesItem]-dddwiDerivatives-  = lens _dddwiDerivatives-      (\ s a -> s{_dddwiDerivatives = a})-      . _Default-      . _Coerce--dddwiExamples :: Lens' DictlayerDataDictWordsItem [DictlayerDataDictWordsItemExamplesItem]-dddwiExamples-  = lens _dddwiExamples-      (\ s a -> s{_dddwiExamples = a})-      . _Default-      . _Coerce--instance FromJSON DictlayerDataDictWordsItem where-        parseJSON-          = withObject "DictlayerDataDictWordsItem"-              (\ o ->-                 DictlayerDataDictWordsItem' <$>-                   (o .:? "senses" .!= mempty) <*> (o .:? "source") <*>-                     (o .:? "derivatives" .!= mempty)-                     <*> (o .:? "examples" .!= mempty))--instance ToJSON DictlayerDataDictWordsItem where-        toJSON DictlayerDataDictWordsItem'{..}-          = object-              (catMaybes-                 [("senses" .=) <$> _dddwiSenses,-                  ("source" .=) <$> _dddwiSource,-                  ("derivatives" .=) <$> _dddwiDerivatives,-                  ("examples" .=) <$> _dddwiExamples])------- /See:/ 'categoryItemsItem' smart constructor.-data CategoryItemsItem =-  CategoryItemsItem'-    { _ciiName       :: !(Maybe Text)-    , _ciiCategoryId :: !(Maybe Text)-    , _ciiBadgeURL   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CategoryItemsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ciiName'------ * 'ciiCategoryId'------ * 'ciiBadgeURL'-categoryItemsItem-    :: CategoryItemsItem-categoryItemsItem =-  CategoryItemsItem'-    {_ciiName = Nothing, _ciiCategoryId = Nothing, _ciiBadgeURL = Nothing}---ciiName :: Lens' CategoryItemsItem (Maybe Text)-ciiName = lens _ciiName (\ s a -> s{_ciiName = a})--ciiCategoryId :: Lens' CategoryItemsItem (Maybe Text)-ciiCategoryId-  = lens _ciiCategoryId-      (\ s a -> s{_ciiCategoryId = a})--ciiBadgeURL :: Lens' CategoryItemsItem (Maybe Text)-ciiBadgeURL-  = lens _ciiBadgeURL (\ s a -> s{_ciiBadgeURL = a})--instance FromJSON CategoryItemsItem where-        parseJSON-          = withObject "CategoryItemsItem"-              (\ o ->-                 CategoryItemsItem' <$>-                   (o .:? "name") <*> (o .:? "categoryId") <*>-                     (o .:? "badgeUrl"))--instance ToJSON CategoryItemsItem where-        toJSON CategoryItemsItem'{..}-          = object-              (catMaybes-                 [("name" .=) <$> _ciiName,-                  ("categoryId" .=) <$> _ciiCategoryId,-                  ("badgeUrl" .=) <$> _ciiBadgeURL])------- /See:/ 'dictlayerDataDictWordsItemDerivativesItemSource' smart constructor.-data DictlayerDataDictWordsItemDerivativesItemSource =-  DictlayerDataDictWordsItemDerivativesItemSource'-    { _dddwidisURL         :: !(Maybe Text)-    , _dddwidisAttribution :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictWordsItemDerivativesItemSource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddwidisURL'------ * 'dddwidisAttribution'-dictlayerDataDictWordsItemDerivativesItemSource-    :: DictlayerDataDictWordsItemDerivativesItemSource-dictlayerDataDictWordsItemDerivativesItemSource =-  DictlayerDataDictWordsItemDerivativesItemSource'-    {_dddwidisURL = Nothing, _dddwidisAttribution = Nothing}---dddwidisURL :: Lens' DictlayerDataDictWordsItemDerivativesItemSource (Maybe Text)-dddwidisURL-  = lens _dddwidisURL (\ s a -> s{_dddwidisURL = a})--dddwidisAttribution :: Lens' DictlayerDataDictWordsItemDerivativesItemSource (Maybe Text)-dddwidisAttribution-  = lens _dddwidisAttribution-      (\ s a -> s{_dddwidisAttribution = a})--instance FromJSON-           DictlayerDataDictWordsItemDerivativesItemSource-         where-        parseJSON-          = withObject-              "DictlayerDataDictWordsItemDerivativesItemSource"-              (\ o ->-                 DictlayerDataDictWordsItemDerivativesItemSource' <$>-                   (o .:? "url") <*> (o .:? "attribution"))--instance ToJSON-           DictlayerDataDictWordsItemDerivativesItemSource-         where-        toJSON-          DictlayerDataDictWordsItemDerivativesItemSource'{..}-          = object-              (catMaybes-                 [("url" .=) <$> _dddwidisURL,-                  ("attribution" .=) <$> _dddwidisAttribution])------- /See:/ 'geolayerData' smart constructor.-data GeolayerData =-  GeolayerData'-    { _gdKind   :: !Text-    , _gdGeo    :: !(Maybe GeolayerDataGeo)-    , _gdCommon :: !(Maybe GeolayerDataCommon)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GeolayerData' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdKind'------ * 'gdGeo'------ * 'gdCommon'-geolayerData-    :: GeolayerData-geolayerData =-  GeolayerData'-    {_gdKind = "books#geolayerdata", _gdGeo = Nothing, _gdCommon = Nothing}---gdKind :: Lens' GeolayerData Text-gdKind = lens _gdKind (\ s a -> s{_gdKind = a})--gdGeo :: Lens' GeolayerData (Maybe GeolayerDataGeo)-gdGeo = lens _gdGeo (\ s a -> s{_gdGeo = a})--gdCommon :: Lens' GeolayerData (Maybe GeolayerDataCommon)-gdCommon = lens _gdCommon (\ s a -> s{_gdCommon = a})--instance FromJSON GeolayerData where-        parseJSON-          = withObject "GeolayerData"-              (\ o ->-                 GeolayerData' <$>-                   (o .:? "kind" .!= "books#geolayerdata") <*>-                     (o .:? "geo")-                     <*> (o .:? "common"))--instance ToJSON GeolayerData where-        toJSON GeolayerData'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _gdKind), ("geo" .=) <$> _gdGeo,-                  ("common" .=) <$> _gdCommon])---- | The words with different meanings but not related words, e.g. \"go\"--- (game) and \"go\" (verb).------ /See:/ 'dictlayerDataDictWordsItemSource' smart constructor.-data DictlayerDataDictWordsItemSource =-  DictlayerDataDictWordsItemSource'-    { _dddwisURL         :: !(Maybe Text)-    , _dddwisAttribution :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictWordsItemSource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddwisURL'------ * 'dddwisAttribution'-dictlayerDataDictWordsItemSource-    :: DictlayerDataDictWordsItemSource-dictlayerDataDictWordsItemSource =-  DictlayerDataDictWordsItemSource'-    {_dddwisURL = Nothing, _dddwisAttribution = Nothing}---dddwisURL :: Lens' DictlayerDataDictWordsItemSource (Maybe Text)-dddwisURL-  = lens _dddwisURL (\ s a -> s{_dddwisURL = a})--dddwisAttribution :: Lens' DictlayerDataDictWordsItemSource (Maybe Text)-dddwisAttribution-  = lens _dddwisAttribution-      (\ s a -> s{_dddwisAttribution = a})--instance FromJSON DictlayerDataDictWordsItemSource-         where-        parseJSON-          = withObject "DictlayerDataDictWordsItemSource"-              (\ o ->-                 DictlayerDataDictWordsItemSource' <$>-                   (o .:? "url") <*> (o .:? "attribution"))--instance ToJSON DictlayerDataDictWordsItemSource-         where-        toJSON DictlayerDataDictWordsItemSource'{..}-          = object-              (catMaybes-                 [("url" .=) <$> _dddwisURL,-                  ("attribution" .=) <$> _dddwisAttribution])------- /See:/ 'dictlayerDataDictWordsItemDerivativesItem' smart constructor.-data DictlayerDataDictWordsItemDerivativesItem =-  DictlayerDataDictWordsItemDerivativesItem'-    { _dddwidiText   :: !(Maybe Text)-    , _dddwidiSource :: !(Maybe DictlayerDataDictWordsItemDerivativesItemSource)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictWordsItemDerivativesItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddwidiText'------ * 'dddwidiSource'-dictlayerDataDictWordsItemDerivativesItem-    :: DictlayerDataDictWordsItemDerivativesItem-dictlayerDataDictWordsItemDerivativesItem =-  DictlayerDataDictWordsItemDerivativesItem'-    {_dddwidiText = Nothing, _dddwidiSource = Nothing}---dddwidiText :: Lens' DictlayerDataDictWordsItemDerivativesItem (Maybe Text)-dddwidiText-  = lens _dddwidiText (\ s a -> s{_dddwidiText = a})--dddwidiSource :: Lens' DictlayerDataDictWordsItemDerivativesItem (Maybe DictlayerDataDictWordsItemDerivativesItemSource)-dddwidiSource-  = lens _dddwidiSource-      (\ s a -> s{_dddwidiSource = a})--instance FromJSON-           DictlayerDataDictWordsItemDerivativesItem-         where-        parseJSON-          = withObject-              "DictlayerDataDictWordsItemDerivativesItem"-              (\ o ->-                 DictlayerDataDictWordsItemDerivativesItem' <$>-                   (o .:? "text") <*> (o .:? "source"))--instance ToJSON-           DictlayerDataDictWordsItemDerivativesItem-         where-        toJSON DictlayerDataDictWordsItemDerivativesItem'{..}-          = object-              (catMaybes-                 [("text" .=) <$> _dddwidiText,-                  ("source" .=) <$> _dddwidiSource])------- /See:/ 'dictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem' smart constructor.-data DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem =-  DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem'-    { _dddwisidieiText   :: !(Maybe Text)-    , _dddwisidieiSource :: !(Maybe DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddwisidieiText'------ * 'dddwisidieiSource'-dictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem-    :: DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem-dictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem =-  DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem'-    {_dddwisidieiText = Nothing, _dddwisidieiSource = Nothing}---dddwisidieiText :: Lens' DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem (Maybe Text)-dddwisidieiText-  = lens _dddwisidieiText-      (\ s a -> s{_dddwisidieiText = a})--dddwisidieiSource :: Lens' DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem (Maybe DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItemSource)-dddwisidieiSource-  = lens _dddwisidieiSource-      (\ s a -> s{_dddwisidieiSource = a})--instance FromJSON-           DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem-         where-        parseJSON-          = withObject-              "DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem"-              (\ o ->-                 DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem'-                   <$> (o .:? "text") <*> (o .:? "source"))--instance ToJSON-           DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem-         where-        toJSON-          DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem'{..}-          = object-              (catMaybes-                 [("text" .=) <$> _dddwisidieiText,-                  ("source" .=) <$> _dddwisidieiSource])------- /See:/ 'userSettingsNotificationRewardExpirations' smart constructor.-newtype UserSettingsNotificationRewardExpirations =-  UserSettingsNotificationRewardExpirations'-    { _usnreOptedState :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserSettingsNotificationRewardExpirations' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usnreOptedState'-userSettingsNotificationRewardExpirations-    :: UserSettingsNotificationRewardExpirations-userSettingsNotificationRewardExpirations =-  UserSettingsNotificationRewardExpirations' {_usnreOptedState = Nothing}---usnreOptedState :: Lens' UserSettingsNotificationRewardExpirations (Maybe Text)-usnreOptedState-  = lens _usnreOptedState-      (\ s a -> s{_usnreOptedState = a})--instance FromJSON-           UserSettingsNotificationRewardExpirations-         where-        parseJSON-          = withObject-              "UserSettingsNotificationRewardExpirations"-              (\ o ->-                 UserSettingsNotificationRewardExpirations' <$>-                   (o .:? "opted_state"))--instance ToJSON-           UserSettingsNotificationRewardExpirations-         where-        toJSON UserSettingsNotificationRewardExpirations'{..}-          = object-              (catMaybes [("opted_state" .=) <$> _usnreOptedState])------- /See:/ 'dictlayerData' smart constructor.-data DictlayerData =-  DictlayerData'-    { _ddKind   :: !Text-    , _ddDict   :: !(Maybe DictlayerDataDict)-    , _ddCommon :: !(Maybe DictlayerDataCommon)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerData' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddKind'------ * 'ddDict'------ * 'ddCommon'-dictlayerData-    :: DictlayerData-dictlayerData =-  DictlayerData'-    {_ddKind = "books#dictlayerdata", _ddDict = Nothing, _ddCommon = Nothing}---ddKind :: Lens' DictlayerData Text-ddKind = lens _ddKind (\ s a -> s{_ddKind = a})--ddDict :: Lens' DictlayerData (Maybe DictlayerDataDict)-ddDict = lens _ddDict (\ s a -> s{_ddDict = a})--ddCommon :: Lens' DictlayerData (Maybe DictlayerDataCommon)-ddCommon = lens _ddCommon (\ s a -> s{_ddCommon = a})--instance FromJSON DictlayerData where-        parseJSON-          = withObject "DictlayerData"-              (\ o ->-                 DictlayerData' <$>-                   (o .:? "kind" .!= "books#dictlayerdata") <*>-                     (o .:? "dict")-                     <*> (o .:? "common"))--instance ToJSON DictlayerData where-        toJSON DictlayerData'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _ddKind), ("dict" .=) <$> _ddDict,-                  ("common" .=) <$> _ddCommon])------- /See:/ 'dictlayerDataDictWordsItemSensesItemSynonymsItemSource' smart constructor.-data DictlayerDataDictWordsItemSensesItemSynonymsItemSource =-  DictlayerDataDictWordsItemSensesItemSynonymsItemSource'-    { _dddwisisisURL         :: !(Maybe Text)-    , _dddwisisisAttribution :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictWordsItemSensesItemSynonymsItemSource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddwisisisURL'------ * 'dddwisisisAttribution'-dictlayerDataDictWordsItemSensesItemSynonymsItemSource-    :: DictlayerDataDictWordsItemSensesItemSynonymsItemSource-dictlayerDataDictWordsItemSensesItemSynonymsItemSource =-  DictlayerDataDictWordsItemSensesItemSynonymsItemSource'-    {_dddwisisisURL = Nothing, _dddwisisisAttribution = Nothing}---dddwisisisURL :: Lens' DictlayerDataDictWordsItemSensesItemSynonymsItemSource (Maybe Text)-dddwisisisURL-  = lens _dddwisisisURL-      (\ s a -> s{_dddwisisisURL = a})--dddwisisisAttribution :: Lens' DictlayerDataDictWordsItemSensesItemSynonymsItemSource (Maybe Text)-dddwisisisAttribution-  = lens _dddwisisisAttribution-      (\ s a -> s{_dddwisisisAttribution = a})--instance FromJSON-           DictlayerDataDictWordsItemSensesItemSynonymsItemSource-         where-        parseJSON-          = withObject-              "DictlayerDataDictWordsItemSensesItemSynonymsItemSource"-              (\ o ->-                 DictlayerDataDictWordsItemSensesItemSynonymsItemSource'-                   <$> (o .:? "url") <*> (o .:? "attribution"))--instance ToJSON-           DictlayerDataDictWordsItemSensesItemSynonymsItemSource-         where-        toJSON-          DictlayerDataDictWordsItemSensesItemSynonymsItemSource'{..}-          = object-              (catMaybes-                 [("url" .=) <$> _dddwisisisURL,-                  ("attribution" .=) <$> _dddwisisisAttribution])------- /See:/ 'seriesmembership' smart constructor.-data Seriesmembership =-  Seriesmembership'-    { _serNextPageToken :: !(Maybe Text)-    , _serKind          :: !Text-    , _serMember        :: !(Maybe [Volume])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Seriesmembership' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'serNextPageToken'------ * 'serKind'------ * 'serMember'-seriesmembership-    :: Seriesmembership-seriesmembership =-  Seriesmembership'-    { _serNextPageToken = Nothing-    , _serKind = "books#series#membership"-    , _serMember = Nothing-    }---serNextPageToken :: Lens' Seriesmembership (Maybe Text)-serNextPageToken-  = lens _serNextPageToken-      (\ s a -> s{_serNextPageToken = a})---- | Resorce type.-serKind :: Lens' Seriesmembership Text-serKind = lens _serKind (\ s a -> s{_serKind = a})--serMember :: Lens' Seriesmembership [Volume]-serMember-  = lens _serMember (\ s a -> s{_serMember = a}) .-      _Default-      . _Coerce--instance FromJSON Seriesmembership where-        parseJSON-          = withObject "Seriesmembership"-              (\ o ->-                 Seriesmembership' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "books#series#membership")-                     <*> (o .:? "member" .!= mempty))--instance ToJSON Seriesmembership where-        toJSON Seriesmembership'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _serNextPageToken,-                  Just ("kind" .= _serKind),-                  ("member" .=) <$> _serMember])------- /See:/ 'userSettingsNotification' smart constructor.-data UserSettingsNotification =-  UserSettingsNotification'-    { _usnRewardExpirations :: !(Maybe UserSettingsNotificationRewardExpirations)-    , _usnPriceDrop         :: !(Maybe UserSettingsNotificationPriceDrop)-    , _usnMatchMyInterests  :: !(Maybe UserSettingsNotificationMatchMyInterests)-    , _usnMoreFromAuthors   :: !(Maybe UserSettingsNotificationMoreFromAuthors)-    , _usnMoreFromSeries    :: !(Maybe UserSettingsNotificationMoreFromSeries)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserSettingsNotification' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usnRewardExpirations'------ * 'usnPriceDrop'------ * 'usnMatchMyInterests'------ * 'usnMoreFromAuthors'------ * 'usnMoreFromSeries'-userSettingsNotification-    :: UserSettingsNotification-userSettingsNotification =-  UserSettingsNotification'-    { _usnRewardExpirations = Nothing-    , _usnPriceDrop = Nothing-    , _usnMatchMyInterests = Nothing-    , _usnMoreFromAuthors = Nothing-    , _usnMoreFromSeries = Nothing-    }---usnRewardExpirations :: Lens' UserSettingsNotification (Maybe UserSettingsNotificationRewardExpirations)-usnRewardExpirations-  = lens _usnRewardExpirations-      (\ s a -> s{_usnRewardExpirations = a})--usnPriceDrop :: Lens' UserSettingsNotification (Maybe UserSettingsNotificationPriceDrop)-usnPriceDrop-  = lens _usnPriceDrop (\ s a -> s{_usnPriceDrop = a})--usnMatchMyInterests :: Lens' UserSettingsNotification (Maybe UserSettingsNotificationMatchMyInterests)-usnMatchMyInterests-  = lens _usnMatchMyInterests-      (\ s a -> s{_usnMatchMyInterests = a})--usnMoreFromAuthors :: Lens' UserSettingsNotification (Maybe UserSettingsNotificationMoreFromAuthors)-usnMoreFromAuthors-  = lens _usnMoreFromAuthors-      (\ s a -> s{_usnMoreFromAuthors = a})--usnMoreFromSeries :: Lens' UserSettingsNotification (Maybe UserSettingsNotificationMoreFromSeries)-usnMoreFromSeries-  = lens _usnMoreFromSeries-      (\ s a -> s{_usnMoreFromSeries = a})--instance FromJSON UserSettingsNotification where-        parseJSON-          = withObject "UserSettingsNotification"-              (\ o ->-                 UserSettingsNotification' <$>-                   (o .:? "rewardExpirations") <*> (o .:? "priceDrop")-                     <*> (o .:? "matchMyInterests")-                     <*> (o .:? "moreFromAuthors")-                     <*> (o .:? "moreFromSeries"))--instance ToJSON UserSettingsNotification where-        toJSON UserSettingsNotification'{..}-          = object-              (catMaybes-                 [("rewardExpirations" .=) <$> _usnRewardExpirations,-                  ("priceDrop" .=) <$> _usnPriceDrop,-                  ("matchMyInterests" .=) <$> _usnMatchMyInterests,-                  ("moreFromAuthors" .=) <$> _usnMoreFromAuthors,-                  ("moreFromSeries" .=) <$> _usnMoreFromSeries])------- /See:/ 'dictlayerDataDictWordsItemSensesItemSynonymsItem' smart constructor.-data DictlayerDataDictWordsItemSensesItemSynonymsItem =-  DictlayerDataDictWordsItemSensesItemSynonymsItem'-    { _dddwisisiText   :: !(Maybe Text)-    , _dddwisisiSource :: !(Maybe DictlayerDataDictWordsItemSensesItemSynonymsItemSource)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictWordsItemSensesItemSynonymsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddwisisiText'------ * 'dddwisisiSource'-dictlayerDataDictWordsItemSensesItemSynonymsItem-    :: DictlayerDataDictWordsItemSensesItemSynonymsItem-dictlayerDataDictWordsItemSensesItemSynonymsItem =-  DictlayerDataDictWordsItemSensesItemSynonymsItem'-    {_dddwisisiText = Nothing, _dddwisisiSource = Nothing}---dddwisisiText :: Lens' DictlayerDataDictWordsItemSensesItemSynonymsItem (Maybe Text)-dddwisisiText-  = lens _dddwisisiText-      (\ s a -> s{_dddwisisiText = a})--dddwisisiSource :: Lens' DictlayerDataDictWordsItemSensesItemSynonymsItem (Maybe DictlayerDataDictWordsItemSensesItemSynonymsItemSource)-dddwisisiSource-  = lens _dddwisisiSource-      (\ s a -> s{_dddwisisiSource = a})--instance FromJSON-           DictlayerDataDictWordsItemSensesItemSynonymsItem-         where-        parseJSON-          = withObject-              "DictlayerDataDictWordsItemSensesItemSynonymsItem"-              (\ o ->-                 DictlayerDataDictWordsItemSensesItemSynonymsItem' <$>-                   (o .:? "text") <*> (o .:? "source"))--instance ToJSON-           DictlayerDataDictWordsItemSensesItemSynonymsItem-         where-        toJSON-          DictlayerDataDictWordsItemSensesItemSynonymsItem'{..}-          = object-              (catMaybes-                 [("text" .=) <$> _dddwisisiText,-                  ("source" .=) <$> _dddwisisiSource])------- /See:/ 'geolayerDataGeoViewportLo' smart constructor.-data GeolayerDataGeoViewportLo =-  GeolayerDataGeoViewportLo'-    { _gdgvlLatitude  :: !(Maybe (Textual Double))-    , _gdgvlLongitude :: !(Maybe (Textual Double))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GeolayerDataGeoViewportLo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdgvlLatitude'------ * 'gdgvlLongitude'-geolayerDataGeoViewportLo-    :: GeolayerDataGeoViewportLo-geolayerDataGeoViewportLo =-  GeolayerDataGeoViewportLo'-    {_gdgvlLatitude = Nothing, _gdgvlLongitude = Nothing}---gdgvlLatitude :: Lens' GeolayerDataGeoViewportLo (Maybe Double)-gdgvlLatitude-  = lens _gdgvlLatitude-      (\ s a -> s{_gdgvlLatitude = a})-      . mapping _Coerce--gdgvlLongitude :: Lens' GeolayerDataGeoViewportLo (Maybe Double)-gdgvlLongitude-  = lens _gdgvlLongitude-      (\ s a -> s{_gdgvlLongitude = a})-      . mapping _Coerce--instance FromJSON GeolayerDataGeoViewportLo where-        parseJSON-          = withObject "GeolayerDataGeoViewportLo"-              (\ o ->-                 GeolayerDataGeoViewportLo' <$>-                   (o .:? "latitude") <*> (o .:? "longitude"))--instance ToJSON GeolayerDataGeoViewportLo where-        toJSON GeolayerDataGeoViewportLo'{..}-          = object-              (catMaybes-                 [("latitude" .=) <$> _gdgvlLatitude,-                  ("longitude" .=) <$> _gdgvlLongitude])---- | Offer list (=undiscounted) price in Micros.------ /See:/ 'volumeSaleInfoOffersItemListPrice' smart constructor.-data VolumeSaleInfoOffersItemListPrice =-  VolumeSaleInfoOffersItemListPrice'-    { _vsioilpCurrencyCode   :: !(Maybe Text)-    , _vsioilpAmountInMicros :: !(Maybe (Textual Double))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeSaleInfoOffersItemListPrice' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vsioilpCurrencyCode'------ * 'vsioilpAmountInMicros'-volumeSaleInfoOffersItemListPrice-    :: VolumeSaleInfoOffersItemListPrice-volumeSaleInfoOffersItemListPrice =-  VolumeSaleInfoOffersItemListPrice'-    {_vsioilpCurrencyCode = Nothing, _vsioilpAmountInMicros = Nothing}---vsioilpCurrencyCode :: Lens' VolumeSaleInfoOffersItemListPrice (Maybe Text)-vsioilpCurrencyCode-  = lens _vsioilpCurrencyCode-      (\ s a -> s{_vsioilpCurrencyCode = a})--vsioilpAmountInMicros :: Lens' VolumeSaleInfoOffersItemListPrice (Maybe Double)-vsioilpAmountInMicros-  = lens _vsioilpAmountInMicros-      (\ s a -> s{_vsioilpAmountInMicros = a})-      . mapping _Coerce--instance FromJSON VolumeSaleInfoOffersItemListPrice-         where-        parseJSON-          = withObject "VolumeSaleInfoOffersItemListPrice"-              (\ o ->-                 VolumeSaleInfoOffersItemListPrice' <$>-                   (o .:? "currencyCode") <*> (o .:? "amountInMicros"))--instance ToJSON VolumeSaleInfoOffersItemListPrice-         where-        toJSON VolumeSaleInfoOffersItemListPrice'{..}-          = object-              (catMaybes-                 [("currencyCode" .=) <$> _vsioilpCurrencyCode,-                  ("amountInMicros" .=) <$> _vsioilpAmountInMicros])------- /See:/ 'downloadAccessRestriction' smart constructor.-data DownloadAccessRestriction =-  DownloadAccessRestriction'-    { _darJustAcquired       :: !(Maybe Bool)-    , _darSignature          :: !(Maybe Text)-    , _darKind               :: !Text-    , _darMaxDownloadDevices :: !(Maybe (Textual Int32))-    , _darDownloadsAcquired  :: !(Maybe (Textual Int32))-    , _darReasonCode         :: !(Maybe Text)-    , _darVolumeId           :: !(Maybe Text)-    , _darRestricted         :: !(Maybe Bool)-    , _darSource             :: !(Maybe Text)-    , _darDeviceAllowed      :: !(Maybe Bool)-    , _darMessage            :: !(Maybe Text)-    , _darNonce              :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DownloadAccessRestriction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'darJustAcquired'------ * 'darSignature'------ * 'darKind'------ * 'darMaxDownloadDevices'------ * 'darDownloadsAcquired'------ * 'darReasonCode'------ * 'darVolumeId'------ * 'darRestricted'------ * 'darSource'------ * 'darDeviceAllowed'------ * 'darMessage'------ * 'darNonce'-downloadAccessRestriction-    :: DownloadAccessRestriction-downloadAccessRestriction =-  DownloadAccessRestriction'-    { _darJustAcquired = Nothing-    , _darSignature = Nothing-    , _darKind = "books#downloadAccessRestriction"-    , _darMaxDownloadDevices = Nothing-    , _darDownloadsAcquired = Nothing-    , _darReasonCode = Nothing-    , _darVolumeId = Nothing-    , _darRestricted = Nothing-    , _darSource = Nothing-    , _darDeviceAllowed = Nothing-    , _darMessage = Nothing-    , _darNonce = Nothing-    }----- | If deviceAllowed, whether access was just acquired with this request.-darJustAcquired :: Lens' DownloadAccessRestriction (Maybe Bool)-darJustAcquired-  = lens _darJustAcquired-      (\ s a -> s{_darJustAcquired = a})---- | Response signature.-darSignature :: Lens' DownloadAccessRestriction (Maybe Text)-darSignature-  = lens _darSignature (\ s a -> s{_darSignature = a})---- | Resource type.-darKind :: Lens' DownloadAccessRestriction Text-darKind = lens _darKind (\ s a -> s{_darKind = a})---- | If restricted, the maximum number of content download licenses for this--- volume.-darMaxDownloadDevices :: Lens' DownloadAccessRestriction (Maybe Int32)-darMaxDownloadDevices-  = lens _darMaxDownloadDevices-      (\ s a -> s{_darMaxDownloadDevices = a})-      . mapping _Coerce---- | If restricted, the number of content download licenses already acquired--- (including the requesting client, if licensed).-darDownloadsAcquired :: Lens' DownloadAccessRestriction (Maybe Int32)-darDownloadsAcquired-  = lens _darDownloadsAcquired-      (\ s a -> s{_darDownloadsAcquired = a})-      . mapping _Coerce---- | Error\/warning reason code. Additional codes may be added in the future.--- 0 OK 100 ACCESS_DENIED_PUBLISHER_LIMIT 101 ACCESS_DENIED_LIMIT 200--- WARNING_USED_LAST_ACCESS-darReasonCode :: Lens' DownloadAccessRestriction (Maybe Text)-darReasonCode-  = lens _darReasonCode-      (\ s a -> s{_darReasonCode = a})---- | Identifies the volume for which this entry applies.-darVolumeId :: Lens' DownloadAccessRestriction (Maybe Text)-darVolumeId-  = lens _darVolumeId (\ s a -> s{_darVolumeId = a})---- | Whether this volume has any download access restrictions.-darRestricted :: Lens' DownloadAccessRestriction (Maybe Bool)-darRestricted-  = lens _darRestricted-      (\ s a -> s{_darRestricted = a})---- | Client app identifier for verification. Download access and--- client-validation only.-darSource :: Lens' DownloadAccessRestriction (Maybe Text)-darSource-  = lens _darSource (\ s a -> s{_darSource = a})---- | If restricted, whether access is granted for this (user, device,--- volume).-darDeviceAllowed :: Lens' DownloadAccessRestriction (Maybe Bool)-darDeviceAllowed-  = lens _darDeviceAllowed-      (\ s a -> s{_darDeviceAllowed = a})---- | Error\/warning message.-darMessage :: Lens' DownloadAccessRestriction (Maybe Text)-darMessage-  = lens _darMessage (\ s a -> s{_darMessage = a})---- | Client nonce for verification. Download access and client-validation--- only.-darNonce :: Lens' DownloadAccessRestriction (Maybe Text)-darNonce = lens _darNonce (\ s a -> s{_darNonce = a})--instance FromJSON DownloadAccessRestriction where-        parseJSON-          = withObject "DownloadAccessRestriction"-              (\ o ->-                 DownloadAccessRestriction' <$>-                   (o .:? "justAcquired") <*> (o .:? "signature") <*>-                     (o .:? "kind" .!= "books#downloadAccessRestriction")-                     <*> (o .:? "maxDownloadDevices")-                     <*> (o .:? "downloadsAcquired")-                     <*> (o .:? "reasonCode")-                     <*> (o .:? "volumeId")-                     <*> (o .:? "restricted")-                     <*> (o .:? "source")-                     <*> (o .:? "deviceAllowed")-                     <*> (o .:? "message")-                     <*> (o .:? "nonce"))--instance ToJSON DownloadAccessRestriction where-        toJSON DownloadAccessRestriction'{..}-          = object-              (catMaybes-                 [("justAcquired" .=) <$> _darJustAcquired,-                  ("signature" .=) <$> _darSignature,-                  Just ("kind" .= _darKind),-                  ("maxDownloadDevices" .=) <$> _darMaxDownloadDevices,-                  ("downloadsAcquired" .=) <$> _darDownloadsAcquired,-                  ("reasonCode" .=) <$> _darReasonCode,-                  ("volumeId" .=) <$> _darVolumeId,-                  ("restricted" .=) <$> _darRestricted,-                  ("source" .=) <$> _darSource,-                  ("deviceAllowed" .=) <$> _darDeviceAllowed,-                  ("message" .=) <$> _darMessage,-                  ("nonce" .=) <$> _darNonce])------- /See:/ 'dictlayerDataCommon' smart constructor.-newtype DictlayerDataCommon =-  DictlayerDataCommon'-    { _ddcTitle :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataCommon' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddcTitle'-dictlayerDataCommon-    :: DictlayerDataCommon-dictlayerDataCommon = DictlayerDataCommon' {_ddcTitle = Nothing}----- | The display title and localized canonical name to use when searching for--- this entity on Google search.-ddcTitle :: Lens' DictlayerDataCommon (Maybe Text)-ddcTitle = lens _ddcTitle (\ s a -> s{_ddcTitle = a})--instance FromJSON DictlayerDataCommon where-        parseJSON-          = withObject "DictlayerDataCommon"-              (\ o -> DictlayerDataCommon' <$> (o .:? "title"))--instance ToJSON DictlayerDataCommon where-        toJSON DictlayerDataCommon'{..}-          = object (catMaybes [("title" .=) <$> _ddcTitle])------- /See:/ 'discoveryclustersClustersItem' smart constructor.-data DiscoveryclustersClustersItem =-  DiscoveryclustersClustersItem'-    { _dciBannerWithContentContainer :: !(Maybe DiscoveryclustersClustersItemBanner_with_content_container)-    , _dciUid                        :: !(Maybe Text)-    , _dciTotalVolumes               :: !(Maybe (Textual Int32))-    , _dciSubTitle                   :: !(Maybe Text)-    , _dciTitle                      :: !(Maybe Text)-    , _dciVolumes                    :: !(Maybe [Volume])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DiscoveryclustersClustersItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dciBannerWithContentContainer'------ * 'dciUid'------ * 'dciTotalVolumes'------ * 'dciSubTitle'------ * 'dciTitle'------ * 'dciVolumes'-discoveryclustersClustersItem-    :: DiscoveryclustersClustersItem-discoveryclustersClustersItem =-  DiscoveryclustersClustersItem'-    { _dciBannerWithContentContainer = Nothing-    , _dciUid = Nothing-    , _dciTotalVolumes = Nothing-    , _dciSubTitle = Nothing-    , _dciTitle = Nothing-    , _dciVolumes = Nothing-    }---dciBannerWithContentContainer :: Lens' DiscoveryclustersClustersItem (Maybe DiscoveryclustersClustersItemBanner_with_content_container)-dciBannerWithContentContainer-  = lens _dciBannerWithContentContainer-      (\ s a -> s{_dciBannerWithContentContainer = a})--dciUid :: Lens' DiscoveryclustersClustersItem (Maybe Text)-dciUid = lens _dciUid (\ s a -> s{_dciUid = a})--dciTotalVolumes :: Lens' DiscoveryclustersClustersItem (Maybe Int32)-dciTotalVolumes-  = lens _dciTotalVolumes-      (\ s a -> s{_dciTotalVolumes = a})-      . mapping _Coerce--dciSubTitle :: Lens' DiscoveryclustersClustersItem (Maybe Text)-dciSubTitle-  = lens _dciSubTitle (\ s a -> s{_dciSubTitle = a})--dciTitle :: Lens' DiscoveryclustersClustersItem (Maybe Text)-dciTitle = lens _dciTitle (\ s a -> s{_dciTitle = a})--dciVolumes :: Lens' DiscoveryclustersClustersItem [Volume]-dciVolumes-  = lens _dciVolumes (\ s a -> s{_dciVolumes = a}) .-      _Default-      . _Coerce--instance FromJSON DiscoveryclustersClustersItem where-        parseJSON-          = withObject "DiscoveryclustersClustersItem"-              (\ o ->-                 DiscoveryclustersClustersItem' <$>-                   (o .:? "banner_with_content_container") <*>-                     (o .:? "uid")-                     <*> (o .:? "totalVolumes")-                     <*> (o .:? "subTitle")-                     <*> (o .:? "title")-                     <*> (o .:? "volumes" .!= mempty))--instance ToJSON DiscoveryclustersClustersItem where-        toJSON DiscoveryclustersClustersItem'{..}-          = object-              (catMaybes-                 [("banner_with_content_container" .=) <$>-                    _dciBannerWithContentContainer,-                  ("uid" .=) <$> _dciUid,-                  ("totalVolumes" .=) <$> _dciTotalVolumes,-                  ("subTitle" .=) <$> _dciSubTitle,-                  ("title" .=) <$> _dciTitle,-                  ("volumes" .=) <$> _dciVolumes])---- | The actual selling price of the book. This is the same as the suggested--- retail or list price unless there are offers or discounts on this--- volume. (In LITE projection.)------ /See:/ 'volumeSaleInfoRetailPrice' smart constructor.-data VolumeSaleInfoRetailPrice =-  VolumeSaleInfoRetailPrice'-    { _vsirpAmount       :: !(Maybe (Textual Double))-    , _vsirpCurrencyCode :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeSaleInfoRetailPrice' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vsirpAmount'------ * 'vsirpCurrencyCode'-volumeSaleInfoRetailPrice-    :: VolumeSaleInfoRetailPrice-volumeSaleInfoRetailPrice =-  VolumeSaleInfoRetailPrice'-    {_vsirpAmount = Nothing, _vsirpCurrencyCode = Nothing}----- | Amount in the currency listed below. (In LITE projection.)-vsirpAmount :: Lens' VolumeSaleInfoRetailPrice (Maybe Double)-vsirpAmount-  = lens _vsirpAmount (\ s a -> s{_vsirpAmount = a}) .-      mapping _Coerce---- | An ISO 4217, three-letter currency code. (In LITE projection.)-vsirpCurrencyCode :: Lens' VolumeSaleInfoRetailPrice (Maybe Text)-vsirpCurrencyCode-  = lens _vsirpCurrencyCode-      (\ s a -> s{_vsirpCurrencyCode = a})--instance FromJSON VolumeSaleInfoRetailPrice where-        parseJSON-          = withObject "VolumeSaleInfoRetailPrice"-              (\ o ->-                 VolumeSaleInfoRetailPrice' <$>-                   (o .:? "amount") <*> (o .:? "currencyCode"))--instance ToJSON VolumeSaleInfoRetailPrice where-        toJSON VolumeSaleInfoRetailPrice'{..}-          = object-              (catMaybes-                 [("amount" .=) <$> _vsirpAmount,-                  ("currencyCode" .=) <$> _vsirpCurrencyCode])---- | Suggested retail price. (In LITE projection.)------ /See:/ 'volumeSaleInfoListPrice' smart constructor.-data VolumeSaleInfoListPrice =-  VolumeSaleInfoListPrice'-    { _vsilpAmount       :: !(Maybe (Textual Double))-    , _vsilpCurrencyCode :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeSaleInfoListPrice' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vsilpAmount'------ * 'vsilpCurrencyCode'-volumeSaleInfoListPrice-    :: VolumeSaleInfoListPrice-volumeSaleInfoListPrice =-  VolumeSaleInfoListPrice'-    {_vsilpAmount = Nothing, _vsilpCurrencyCode = Nothing}----- | Amount in the currency listed below. (In LITE projection.)-vsilpAmount :: Lens' VolumeSaleInfoListPrice (Maybe Double)-vsilpAmount-  = lens _vsilpAmount (\ s a -> s{_vsilpAmount = a}) .-      mapping _Coerce---- | An ISO 4217, three-letter currency code. (In LITE projection.)-vsilpCurrencyCode :: Lens' VolumeSaleInfoListPrice (Maybe Text)-vsilpCurrencyCode-  = lens _vsilpCurrencyCode-      (\ s a -> s{_vsilpCurrencyCode = a})--instance FromJSON VolumeSaleInfoListPrice where-        parseJSON-          = withObject "VolumeSaleInfoListPrice"-              (\ o ->-                 VolumeSaleInfoListPrice' <$>-                   (o .:? "amount") <*> (o .:? "currencyCode"))--instance ToJSON VolumeSaleInfoListPrice where-        toJSON VolumeSaleInfoListPrice'{..}-          = object-              (catMaybes-                 [("amount" .=) <$> _vsilpAmount,-                  ("currencyCode" .=) <$> _vsilpCurrencyCode])------- /See:/ 'dictlayerDataDictWordsItemSensesItemConjugationsItem' smart constructor.-data DictlayerDataDictWordsItemSensesItemConjugationsItem =-  DictlayerDataDictWordsItemSensesItemConjugationsItem'-    { _dddwisiciValue :: !(Maybe Text)-    , _dddwisiciType  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictWordsItemSensesItemConjugationsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddwisiciValue'------ * 'dddwisiciType'-dictlayerDataDictWordsItemSensesItemConjugationsItem-    :: DictlayerDataDictWordsItemSensesItemConjugationsItem-dictlayerDataDictWordsItemSensesItemConjugationsItem =-  DictlayerDataDictWordsItemSensesItemConjugationsItem'-    {_dddwisiciValue = Nothing, _dddwisiciType = Nothing}---dddwisiciValue :: Lens' DictlayerDataDictWordsItemSensesItemConjugationsItem (Maybe Text)-dddwisiciValue-  = lens _dddwisiciValue-      (\ s a -> s{_dddwisiciValue = a})--dddwisiciType :: Lens' DictlayerDataDictWordsItemSensesItemConjugationsItem (Maybe Text)-dddwisiciType-  = lens _dddwisiciType-      (\ s a -> s{_dddwisiciType = a})--instance FromJSON-           DictlayerDataDictWordsItemSensesItemConjugationsItem-         where-        parseJSON-          = withObject-              "DictlayerDataDictWordsItemSensesItemConjugationsItem"-              (\ o ->-                 DictlayerDataDictWordsItemSensesItemConjugationsItem'-                   <$> (o .:? "value") <*> (o .:? "type"))--instance ToJSON-           DictlayerDataDictWordsItemSensesItemConjugationsItem-         where-        toJSON-          DictlayerDataDictWordsItemSensesItemConjugationsItem'{..}-          = object-              (catMaybes-                 [("value" .=) <$> _dddwisiciValue,-                  ("type" .=) <$> _dddwisiciType])---- | Family membership info of the user that made the request.------ /See:/ 'familyInfoMembership' smart constructor.-data FamilyInfoMembership =-  FamilyInfoMembership'-    { _fimAllowedMaturityRating :: !(Maybe Text)-    , _fimAcquirePermission     :: !(Maybe Text)-    , _fimRole                  :: !(Maybe Text)-    , _fimAgeGroup              :: !(Maybe Text)-    , _fimIsInFamily            :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FamilyInfoMembership' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fimAllowedMaturityRating'------ * 'fimAcquirePermission'------ * 'fimRole'------ * 'fimAgeGroup'------ * 'fimIsInFamily'-familyInfoMembership-    :: FamilyInfoMembership-familyInfoMembership =-  FamilyInfoMembership'-    { _fimAllowedMaturityRating = Nothing-    , _fimAcquirePermission = Nothing-    , _fimRole = Nothing-    , _fimAgeGroup = Nothing-    , _fimIsInFamily = Nothing-    }----- | The maximum allowed maturity rating for the user.-fimAllowedMaturityRating :: Lens' FamilyInfoMembership (Maybe Text)-fimAllowedMaturityRating-  = lens _fimAllowedMaturityRating-      (\ s a -> s{_fimAllowedMaturityRating = a})---- | Restrictions on user buying and acquiring content.-fimAcquirePermission :: Lens' FamilyInfoMembership (Maybe Text)-fimAcquirePermission-  = lens _fimAcquirePermission-      (\ s a -> s{_fimAcquirePermission = a})---- | The role of the user in the family.-fimRole :: Lens' FamilyInfoMembership (Maybe Text)-fimRole = lens _fimRole (\ s a -> s{_fimRole = a})---- | The age group of the user.-fimAgeGroup :: Lens' FamilyInfoMembership (Maybe Text)-fimAgeGroup-  = lens _fimAgeGroup (\ s a -> s{_fimAgeGroup = a})--fimIsInFamily :: Lens' FamilyInfoMembership (Maybe Bool)-fimIsInFamily-  = lens _fimIsInFamily-      (\ s a -> s{_fimIsInFamily = a})--instance FromJSON FamilyInfoMembership where-        parseJSON-          = withObject "FamilyInfoMembership"-              (\ o ->-                 FamilyInfoMembership' <$>-                   (o .:? "allowedMaturityRating") <*>-                     (o .:? "acquirePermission")-                     <*> (o .:? "role")-                     <*> (o .:? "ageGroup")-                     <*> (o .:? "isInFamily"))--instance ToJSON FamilyInfoMembership where-        toJSON FamilyInfoMembership'{..}-          = object-              (catMaybes-                 [("allowedMaturityRating" .=) <$>-                    _fimAllowedMaturityRating,-                  ("acquirePermission" .=) <$> _fimAcquirePermission,-                  ("role" .=) <$> _fimRole,-                  ("ageGroup" .=) <$> _fimAgeGroup,-                  ("isInFamily" .=) <$> _fimIsInFamily])------- /See:/ 'volume2' smart constructor.-data Volume2 =-  Volume2'-    { _voloNextPageToken :: !(Maybe Text)-    , _voloKind          :: !Text-    , _voloItems         :: !(Maybe [Volume])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Volume2' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'voloNextPageToken'------ * 'voloKind'------ * 'voloItems'-volume2-    :: Volume2-volume2 =-  Volume2'-    { _voloNextPageToken = Nothing-    , _voloKind = "onboarding#volume"-    , _voloItems = Nothing-    }---voloNextPageToken :: Lens' Volume2 (Maybe Text)-voloNextPageToken-  = lens _voloNextPageToken-      (\ s a -> s{_voloNextPageToken = a})---- | Resource type.-voloKind :: Lens' Volume2 Text-voloKind = lens _voloKind (\ s a -> s{_voloKind = a})---- | A list of volumes.-voloItems :: Lens' Volume2 [Volume]-voloItems-  = lens _voloItems (\ s a -> s{_voloItems = a}) .-      _Default-      . _Coerce--instance FromJSON Volume2 where-        parseJSON-          = withObject "Volume2"-              (\ o ->-                 Volume2' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "kind" .!= "onboarding#volume")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON Volume2 where-        toJSON Volume2'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _voloNextPageToken,-                  Just ("kind" .= _voloKind),-                  ("items" .=) <$> _voloItems])------- /See:/ 'review' smart constructor.-data Review =-  Review'-    { _rRating      :: !(Maybe Text)-    , _rKind        :: !Text-    , _rContent     :: !(Maybe Text)-    , _rDate        :: !(Maybe Text)-    , _rVolumeId    :: !(Maybe Text)-    , _rAuthor      :: !(Maybe ReviewAuthor)-    , _rSource      :: !(Maybe ReviewSource)-    , _rFullTextURL :: !(Maybe Text)-    , _rTitle       :: !(Maybe Text)-    , _rType        :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Review' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rRating'------ * 'rKind'------ * 'rContent'------ * 'rDate'------ * 'rVolumeId'------ * 'rAuthor'------ * 'rSource'------ * 'rFullTextURL'------ * 'rTitle'------ * 'rType'-review-    :: Review-review =-  Review'-    { _rRating = Nothing-    , _rKind = "books#review"-    , _rContent = Nothing-    , _rDate = Nothing-    , _rVolumeId = Nothing-    , _rAuthor = Nothing-    , _rSource = Nothing-    , _rFullTextURL = Nothing-    , _rTitle = Nothing-    , _rType = Nothing-    }----- | Star rating for this review. Possible values are ONE, TWO, THREE, FOUR,--- FIVE or NOT_RATED.-rRating :: Lens' Review (Maybe Text)-rRating = lens _rRating (\ s a -> s{_rRating = a})---- | Resource type for a review.-rKind :: Lens' Review Text-rKind = lens _rKind (\ s a -> s{_rKind = a})---- | Review text.-rContent :: Lens' Review (Maybe Text)-rContent = lens _rContent (\ s a -> s{_rContent = a})---- | Date of this review.-rDate :: Lens' Review (Maybe Text)-rDate = lens _rDate (\ s a -> s{_rDate = a})---- | Volume that this review is for.-rVolumeId :: Lens' Review (Maybe Text)-rVolumeId-  = lens _rVolumeId (\ s a -> s{_rVolumeId = a})---- | Author of this review.-rAuthor :: Lens' Review (Maybe ReviewAuthor)-rAuthor = lens _rAuthor (\ s a -> s{_rAuthor = a})---- | Information regarding the source of this review, when the review is not--- from a Google Books user.-rSource :: Lens' Review (Maybe ReviewSource)-rSource = lens _rSource (\ s a -> s{_rSource = a})---- | URL for the full review text, for reviews gathered from the web.-rFullTextURL :: Lens' Review (Maybe Text)-rFullTextURL-  = lens _rFullTextURL (\ s a -> s{_rFullTextURL = a})---- | Title for this review.-rTitle :: Lens' Review (Maybe Text)-rTitle = lens _rTitle (\ s a -> s{_rTitle = a})---- | Source type for this review. Possible values are EDITORIAL, WEB_USER or--- GOOGLE_USER.-rType :: Lens' Review (Maybe Text)-rType = lens _rType (\ s a -> s{_rType = a})--instance FromJSON Review where-        parseJSON-          = withObject "Review"-              (\ o ->-                 Review' <$>-                   (o .:? "rating") <*>-                     (o .:? "kind" .!= "books#review")-                     <*> (o .:? "content")-                     <*> (o .:? "date")-                     <*> (o .:? "volumeId")-                     <*> (o .:? "author")-                     <*> (o .:? "source")-                     <*> (o .:? "fullTextUrl")-                     <*> (o .:? "title")-                     <*> (o .:? "type"))--instance ToJSON Review where-        toJSON Review'{..}-          = object-              (catMaybes-                 [("rating" .=) <$> _rRating, Just ("kind" .= _rKind),-                  ("content" .=) <$> _rContent, ("date" .=) <$> _rDate,-                  ("volumeId" .=) <$> _rVolumeId,-                  ("author" .=) <$> _rAuthor,-                  ("source" .=) <$> _rSource,-                  ("fullTextUrl" .=) <$> _rFullTextURL,-                  ("title" .=) <$> _rTitle, ("type" .=) <$> _rType])---- | Period during this book is\/was a valid rental.------ /See:/ 'volumeUserInfoRentalPeriod' smart constructor.-data VolumeUserInfoRentalPeriod =-  VolumeUserInfoRentalPeriod'-    { _vuirpEndUtcSec   :: !(Maybe (Textual Int64))-    , _vuirpStartUtcSec :: !(Maybe (Textual Int64))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeUserInfoRentalPeriod' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vuirpEndUtcSec'------ * 'vuirpStartUtcSec'-volumeUserInfoRentalPeriod-    :: VolumeUserInfoRentalPeriod-volumeUserInfoRentalPeriod =-  VolumeUserInfoRentalPeriod'-    {_vuirpEndUtcSec = Nothing, _vuirpStartUtcSec = Nothing}---vuirpEndUtcSec :: Lens' VolumeUserInfoRentalPeriod (Maybe Int64)-vuirpEndUtcSec-  = lens _vuirpEndUtcSec-      (\ s a -> s{_vuirpEndUtcSec = a})-      . mapping _Coerce--vuirpStartUtcSec :: Lens' VolumeUserInfoRentalPeriod (Maybe Int64)-vuirpStartUtcSec-  = lens _vuirpStartUtcSec-      (\ s a -> s{_vuirpStartUtcSec = a})-      . mapping _Coerce--instance FromJSON VolumeUserInfoRentalPeriod where-        parseJSON-          = withObject "VolumeUserInfoRentalPeriod"-              (\ o ->-                 VolumeUserInfoRentalPeriod' <$>-                   (o .:? "endUtcSec") <*> (o .:? "startUtcSec"))--instance ToJSON VolumeUserInfoRentalPeriod where-        toJSON VolumeUserInfoRentalPeriod'{..}-          = object-              (catMaybes-                 [("endUtcSec" .=) <$> _vuirpEndUtcSec,-                  ("startUtcSec" .=) <$> _vuirpStartUtcSec])---- | Any information about a volume related to the eBookstore and\/or--- purchaseability. This information can depend on the country where the--- request originates from (i.e. books may not be for sale in certain--- countries).------ /See:/ 'volumeSaleInfo' smart constructor.-data VolumeSaleInfo =-  VolumeSaleInfo'-    { _vsiCountry     :: !(Maybe Text)-    , _vsiOnSaleDate  :: !(Maybe DateTime')-    , _vsiListPrice   :: !(Maybe VolumeSaleInfoListPrice)-    , _vsiRetailPrice :: !(Maybe VolumeSaleInfoRetailPrice)-    , _vsiOffers      :: !(Maybe [VolumeSaleInfoOffersItem])-    , _vsiBuyLink     :: !(Maybe Text)-    , _vsiIsEbook     :: !(Maybe Bool)-    , _vsiSaleability :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeSaleInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vsiCountry'------ * 'vsiOnSaleDate'------ * 'vsiListPrice'------ * 'vsiRetailPrice'------ * 'vsiOffers'------ * 'vsiBuyLink'------ * 'vsiIsEbook'------ * 'vsiSaleability'-volumeSaleInfo-    :: VolumeSaleInfo-volumeSaleInfo =-  VolumeSaleInfo'-    { _vsiCountry = Nothing-    , _vsiOnSaleDate = Nothing-    , _vsiListPrice = Nothing-    , _vsiRetailPrice = Nothing-    , _vsiOffers = Nothing-    , _vsiBuyLink = Nothing-    , _vsiIsEbook = Nothing-    , _vsiSaleability = Nothing-    }----- | The two-letter ISO_3166-1 country code for which this sale information--- is valid. (In LITE projection.)-vsiCountry :: Lens' VolumeSaleInfo (Maybe Text)-vsiCountry-  = lens _vsiCountry (\ s a -> s{_vsiCountry = a})---- | The date on which this book is available for sale.-vsiOnSaleDate :: Lens' VolumeSaleInfo (Maybe UTCTime)-vsiOnSaleDate-  = lens _vsiOnSaleDate-      (\ s a -> s{_vsiOnSaleDate = a})-      . mapping _DateTime---- | Suggested retail price. (In LITE projection.)-vsiListPrice :: Lens' VolumeSaleInfo (Maybe VolumeSaleInfoListPrice)-vsiListPrice-  = lens _vsiListPrice (\ s a -> s{_vsiListPrice = a})---- | The actual selling price of the book. This is the same as the suggested--- retail or list price unless there are offers or discounts on this--- volume. (In LITE projection.)-vsiRetailPrice :: Lens' VolumeSaleInfo (Maybe VolumeSaleInfoRetailPrice)-vsiRetailPrice-  = lens _vsiRetailPrice-      (\ s a -> s{_vsiRetailPrice = a})---- | Offers available for this volume (sales and rentals).-vsiOffers :: Lens' VolumeSaleInfo [VolumeSaleInfoOffersItem]-vsiOffers-  = lens _vsiOffers (\ s a -> s{_vsiOffers = a}) .-      _Default-      . _Coerce---- | URL to purchase this volume on the Google Books site. (In LITE--- projection)-vsiBuyLink :: Lens' VolumeSaleInfo (Maybe Text)-vsiBuyLink-  = lens _vsiBuyLink (\ s a -> s{_vsiBuyLink = a})---- | Whether or not this volume is an eBook (can be added to the My eBooks--- shelf).-vsiIsEbook :: Lens' VolumeSaleInfo (Maybe Bool)-vsiIsEbook-  = lens _vsiIsEbook (\ s a -> s{_vsiIsEbook = a})---- | Whether or not this book is available for sale or offered for free in--- the Google eBookstore for the country listed above. Possible values are--- FOR_SALE, FOR_RENTAL_ONLY, FOR_SALE_AND_RENTAL, FREE, NOT_FOR_SALE, or--- FOR_PREORDER.-vsiSaleability :: Lens' VolumeSaleInfo (Maybe Text)-vsiSaleability-  = lens _vsiSaleability-      (\ s a -> s{_vsiSaleability = a})--instance FromJSON VolumeSaleInfo where-        parseJSON-          = withObject "VolumeSaleInfo"-              (\ o ->-                 VolumeSaleInfo' <$>-                   (o .:? "country") <*> (o .:? "onSaleDate") <*>-                     (o .:? "listPrice")-                     <*> (o .:? "retailPrice")-                     <*> (o .:? "offers" .!= mempty)-                     <*> (o .:? "buyLink")-                     <*> (o .:? "isEbook")-                     <*> (o .:? "saleability"))--instance ToJSON VolumeSaleInfo where-        toJSON VolumeSaleInfo'{..}-          = object-              (catMaybes-                 [("country" .=) <$> _vsiCountry,-                  ("onSaleDate" .=) <$> _vsiOnSaleDate,-                  ("listPrice" .=) <$> _vsiListPrice,-                  ("retailPrice" .=) <$> _vsiRetailPrice,-                  ("offers" .=) <$> _vsiOffers,-                  ("buyLink" .=) <$> _vsiBuyLink,-                  ("isEbook" .=) <$> _vsiIsEbook,-                  ("saleability" .=) <$> _vsiSaleability])------- /See:/ 'seriesSeriesItem' smart constructor.-data SeriesSeriesItem =-  SeriesSeriesItem'-    { _ssiSeriesId       :: !(Maybe Text)-    , _ssiImageURL       :: !(Maybe Text)-    , _ssiBannerImageURL :: !(Maybe Text)-    , _ssiTitle          :: !(Maybe Text)-    , _ssiSeriesType     :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SeriesSeriesItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ssiSeriesId'------ * 'ssiImageURL'------ * 'ssiBannerImageURL'------ * 'ssiTitle'------ * 'ssiSeriesType'-seriesSeriesItem-    :: SeriesSeriesItem-seriesSeriesItem =-  SeriesSeriesItem'-    { _ssiSeriesId = Nothing-    , _ssiImageURL = Nothing-    , _ssiBannerImageURL = Nothing-    , _ssiTitle = Nothing-    , _ssiSeriesType = Nothing-    }---ssiSeriesId :: Lens' SeriesSeriesItem (Maybe Text)-ssiSeriesId-  = lens _ssiSeriesId (\ s a -> s{_ssiSeriesId = a})--ssiImageURL :: Lens' SeriesSeriesItem (Maybe Text)-ssiImageURL-  = lens _ssiImageURL (\ s a -> s{_ssiImageURL = a})--ssiBannerImageURL :: Lens' SeriesSeriesItem (Maybe Text)-ssiBannerImageURL-  = lens _ssiBannerImageURL-      (\ s a -> s{_ssiBannerImageURL = a})--ssiTitle :: Lens' SeriesSeriesItem (Maybe Text)-ssiTitle = lens _ssiTitle (\ s a -> s{_ssiTitle = a})--ssiSeriesType :: Lens' SeriesSeriesItem (Maybe Text)-ssiSeriesType-  = lens _ssiSeriesType-      (\ s a -> s{_ssiSeriesType = a})--instance FromJSON SeriesSeriesItem where-        parseJSON-          = withObject "SeriesSeriesItem"-              (\ o ->-                 SeriesSeriesItem' <$>-                   (o .:? "seriesId") <*> (o .:? "imageUrl") <*>-                     (o .:? "bannerImageUrl")-                     <*> (o .:? "title")-                     <*> (o .:? "seriesType"))--instance ToJSON SeriesSeriesItem where-        toJSON SeriesSeriesItem'{..}-          = object-              (catMaybes-                 [("seriesId" .=) <$> _ssiSeriesId,-                  ("imageUrl" .=) <$> _ssiImageURL,-                  ("bannerImageUrl" .=) <$> _ssiBannerImageURL,-                  ("title" .=) <$> _ssiTitle,-                  ("seriesType" .=) <$> _ssiSeriesType])------- /See:/ 'metadata' smart constructor.-data Metadata =-  Metadata'-    { _mKind  :: !Text-    , _mItems :: !(Maybe [MetadataItemsItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Metadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mKind'------ * 'mItems'-metadata-    :: Metadata-metadata = Metadata' {_mKind = "dictionary#metadata", _mItems = Nothing}----- | Resource type.-mKind :: Lens' Metadata Text-mKind = lens _mKind (\ s a -> s{_mKind = a})---- | A list of offline dictionary metadata.-mItems :: Lens' Metadata [MetadataItemsItem]-mItems-  = lens _mItems (\ s a -> s{_mItems = a}) . _Default .-      _Coerce--instance FromJSON Metadata where-        parseJSON-          = withObject "Metadata"-              (\ o ->-                 Metadata' <$>-                   (o .:? "kind" .!= "dictionary#metadata") <*>-                     (o .:? "items" .!= mempty))--instance ToJSON Metadata where-        toJSON Metadata'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _mKind), ("items" .=) <$> _mItems])---- | What layers exist in this volume and high level information about them.------ /See:/ 'volumeLayerInfo' smart constructor.-newtype VolumeLayerInfo =-  VolumeLayerInfo'-    { _vliLayers :: Maybe [VolumeLayerInfoLayersItem]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeLayerInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vliLayers'-volumeLayerInfo-    :: VolumeLayerInfo-volumeLayerInfo = VolumeLayerInfo' {_vliLayers = Nothing}----- | A layer should appear here if and only if the layer exists for this--- book.-vliLayers :: Lens' VolumeLayerInfo [VolumeLayerInfoLayersItem]-vliLayers-  = lens _vliLayers (\ s a -> s{_vliLayers = a}) .-      _Default-      . _Coerce--instance FromJSON VolumeLayerInfo where-        parseJSON-          = withObject "VolumeLayerInfo"-              (\ o ->-                 VolumeLayerInfo' <$> (o .:? "layers" .!= mempty))--instance ToJSON VolumeLayerInfo where-        toJSON VolumeLayerInfo'{..}-          = object (catMaybes [("layers" .=) <$> _vliLayers])---- | Physical dimensions of this volume.------ /See:/ 'volumeVolumeInfoDimensions' smart constructor.-data VolumeVolumeInfoDimensions =-  VolumeVolumeInfoDimensions'-    { _vvidHeight    :: !(Maybe Text)-    , _vvidWidth     :: !(Maybe Text)-    , _vvidThickness :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeVolumeInfoDimensions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vvidHeight'------ * 'vvidWidth'------ * 'vvidThickness'-volumeVolumeInfoDimensions-    :: VolumeVolumeInfoDimensions-volumeVolumeInfoDimensions =-  VolumeVolumeInfoDimensions'-    {_vvidHeight = Nothing, _vvidWidth = Nothing, _vvidThickness = Nothing}----- | Height or length of this volume (in cm).-vvidHeight :: Lens' VolumeVolumeInfoDimensions (Maybe Text)-vvidHeight-  = lens _vvidHeight (\ s a -> s{_vvidHeight = a})---- | Width of this volume (in cm).-vvidWidth :: Lens' VolumeVolumeInfoDimensions (Maybe Text)-vvidWidth-  = lens _vvidWidth (\ s a -> s{_vvidWidth = a})---- | Thickness of this volume (in cm).-vvidThickness :: Lens' VolumeVolumeInfoDimensions (Maybe Text)-vvidThickness-  = lens _vvidThickness-      (\ s a -> s{_vvidThickness = a})--instance FromJSON VolumeVolumeInfoDimensions where-        parseJSON-          = withObject "VolumeVolumeInfoDimensions"-              (\ o ->-                 VolumeVolumeInfoDimensions' <$>-                   (o .:? "height") <*> (o .:? "width") <*>-                     (o .:? "thickness"))--instance ToJSON VolumeVolumeInfoDimensions where-        toJSON VolumeVolumeInfoDimensions'{..}-          = object-              (catMaybes-                 [("height" .=) <$> _vvidHeight,-                  ("width" .=) <$> _vvidWidth,-                  ("thickness" .=) <$> _vvidThickness])------- /See:/ 'requestAccess' smart constructor.-data RequestAccess =-  RequestAccess'-    { _raConcurrentAccess :: !(Maybe ConcurrentAccessRestriction)-    , _raKind             :: !Text-    , _raDownloadAccess   :: !(Maybe DownloadAccessRestriction)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RequestAccess' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'raConcurrentAccess'------ * 'raKind'------ * 'raDownloadAccess'-requestAccess-    :: RequestAccess-requestAccess =-  RequestAccess'-    { _raConcurrentAccess = Nothing-    , _raKind = "books#requestAccess"-    , _raDownloadAccess = Nothing-    }----- | A concurrent access response.-raConcurrentAccess :: Lens' RequestAccess (Maybe ConcurrentAccessRestriction)-raConcurrentAccess-  = lens _raConcurrentAccess-      (\ s a -> s{_raConcurrentAccess = a})---- | Resource type.-raKind :: Lens' RequestAccess Text-raKind = lens _raKind (\ s a -> s{_raKind = a})---- | A download access response.-raDownloadAccess :: Lens' RequestAccess (Maybe DownloadAccessRestriction)-raDownloadAccess-  = lens _raDownloadAccess-      (\ s a -> s{_raDownloadAccess = a})--instance FromJSON RequestAccess where-        parseJSON-          = withObject "RequestAccess"-              (\ o ->-                 RequestAccess' <$>-                   (o .:? "concurrentAccess") <*>-                     (o .:? "kind" .!= "books#requestAccess")-                     <*> (o .:? "downloadAccess"))--instance ToJSON RequestAccess where-        toJSON RequestAccess'{..}-          = object-              (catMaybes-                 [("concurrentAccess" .=) <$> _raConcurrentAccess,-                  Just ("kind" .= _raKind),-                  ("downloadAccess" .=) <$> _raDownloadAccess])------- /See:/ 'familyInfo' smart constructor.-data FamilyInfo =-  FamilyInfo'-    { _fiMembership :: !(Maybe FamilyInfoMembership)-    , _fiKind       :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FamilyInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fiMembership'------ * 'fiKind'-familyInfo-    :: FamilyInfo-familyInfo = FamilyInfo' {_fiMembership = Nothing, _fiKind = "books#familyInfo"}----- | Family membership info of the user that made the request.-fiMembership :: Lens' FamilyInfo (Maybe FamilyInfoMembership)-fiMembership-  = lens _fiMembership (\ s a -> s{_fiMembership = a})---- | Resource type.-fiKind :: Lens' FamilyInfo Text-fiKind = lens _fiKind (\ s a -> s{_fiKind = a})--instance FromJSON FamilyInfo where-        parseJSON-          = withObject "FamilyInfo"-              (\ o ->-                 FamilyInfo' <$>-                   (o .:? "membership") <*>-                     (o .:? "kind" .!= "books#familyInfo"))--instance ToJSON FamilyInfo where-        toJSON FamilyInfo'{..}-          = object-              (catMaybes-                 [("membership" .=) <$> _fiMembership,-                  Just ("kind" .= _fiKind)])---- | Selection ranges sent from the client.------ /See:/ 'annotationClientVersionRanges' smart constructor.-data AnnotationClientVersionRanges =-  AnnotationClientVersionRanges'-    { _acvrGbImageRange   :: !(Maybe BooksAnnotationsRange)-    , _acvrContentVersion :: !(Maybe Text)-    , _acvrImageCfiRange  :: !(Maybe BooksAnnotationsRange)-    , _acvrGbTextRange    :: !(Maybe BooksAnnotationsRange)-    , _acvrCfiRange       :: !(Maybe BooksAnnotationsRange)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AnnotationClientVersionRanges' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'acvrGbImageRange'------ * 'acvrContentVersion'------ * 'acvrImageCfiRange'------ * 'acvrGbTextRange'------ * 'acvrCfiRange'-annotationClientVersionRanges-    :: AnnotationClientVersionRanges-annotationClientVersionRanges =-  AnnotationClientVersionRanges'-    { _acvrGbImageRange = Nothing-    , _acvrContentVersion = Nothing-    , _acvrImageCfiRange = Nothing-    , _acvrGbTextRange = Nothing-    , _acvrCfiRange = Nothing-    }----- | Range in GB image format for this annotation sent by client.-acvrGbImageRange :: Lens' AnnotationClientVersionRanges (Maybe BooksAnnotationsRange)-acvrGbImageRange-  = lens _acvrGbImageRange-      (\ s a -> s{_acvrGbImageRange = a})---- | Content version the client sent in.-acvrContentVersion :: Lens' AnnotationClientVersionRanges (Maybe Text)-acvrContentVersion-  = lens _acvrContentVersion-      (\ s a -> s{_acvrContentVersion = a})---- | Range in image CFI format for this annotation sent by client.-acvrImageCfiRange :: Lens' AnnotationClientVersionRanges (Maybe BooksAnnotationsRange)-acvrImageCfiRange-  = lens _acvrImageCfiRange-      (\ s a -> s{_acvrImageCfiRange = a})---- | Range in GB text format for this annotation sent by client.-acvrGbTextRange :: Lens' AnnotationClientVersionRanges (Maybe BooksAnnotationsRange)-acvrGbTextRange-  = lens _acvrGbTextRange-      (\ s a -> s{_acvrGbTextRange = a})---- | Range in CFI format for this annotation sent by client.-acvrCfiRange :: Lens' AnnotationClientVersionRanges (Maybe BooksAnnotationsRange)-acvrCfiRange-  = lens _acvrCfiRange (\ s a -> s{_acvrCfiRange = a})--instance FromJSON AnnotationClientVersionRanges where-        parseJSON-          = withObject "AnnotationClientVersionRanges"-              (\ o ->-                 AnnotationClientVersionRanges' <$>-                   (o .:? "gbImageRange") <*> (o .:? "contentVersion")-                     <*> (o .:? "imageCfiRange")-                     <*> (o .:? "gbTextRange")-                     <*> (o .:? "cfiRange"))--instance ToJSON AnnotationClientVersionRanges where-        toJSON AnnotationClientVersionRanges'{..}-          = object-              (catMaybes-                 [("gbImageRange" .=) <$> _acvrGbImageRange,-                  ("contentVersion" .=) <$> _acvrContentVersion,-                  ("imageCfiRange" .=) <$> _acvrImageCfiRange,-                  ("gbTextRange" .=) <$> _acvrGbTextRange,-                  ("cfiRange" .=) <$> _acvrCfiRange])------- /See:/ 'dictlayerDataDictWordsItemSensesItemDefinitionsItem' smart constructor.-data DictlayerDataDictWordsItemSensesItemDefinitionsItem =-  DictlayerDataDictWordsItemSensesItemDefinitionsItem'-    { _dddwisidiDefinition :: !(Maybe Text)-    , _dddwisidiExamples   :: !(Maybe [DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictWordsItemSensesItemDefinitionsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddwisidiDefinition'------ * 'dddwisidiExamples'-dictlayerDataDictWordsItemSensesItemDefinitionsItem-    :: DictlayerDataDictWordsItemSensesItemDefinitionsItem-dictlayerDataDictWordsItemSensesItemDefinitionsItem =-  DictlayerDataDictWordsItemSensesItemDefinitionsItem'-    {_dddwisidiDefinition = Nothing, _dddwisidiExamples = Nothing}---dddwisidiDefinition :: Lens' DictlayerDataDictWordsItemSensesItemDefinitionsItem (Maybe Text)-dddwisidiDefinition-  = lens _dddwisidiDefinition-      (\ s a -> s{_dddwisidiDefinition = a})--dddwisidiExamples :: Lens' DictlayerDataDictWordsItemSensesItemDefinitionsItem [DictlayerDataDictWordsItemSensesItemDefinitionsItemExamplesItem]-dddwisidiExamples-  = lens _dddwisidiExamples-      (\ s a -> s{_dddwisidiExamples = a})-      . _Default-      . _Coerce--instance FromJSON-           DictlayerDataDictWordsItemSensesItemDefinitionsItem-         where-        parseJSON-          = withObject-              "DictlayerDataDictWordsItemSensesItemDefinitionsItem"-              (\ o ->-                 DictlayerDataDictWordsItemSensesItemDefinitionsItem'-                   <$>-                   (o .:? "definition") <*>-                     (o .:? "examples" .!= mempty))--instance ToJSON-           DictlayerDataDictWordsItemSensesItemDefinitionsItem-         where-        toJSON-          DictlayerDataDictWordsItemSensesItemDefinitionsItem'{..}-          = object-              (catMaybes-                 [("definition" .=) <$> _dddwisidiDefinition,-                  ("examples" .=) <$> _dddwisidiExamples])------- /See:/ 'volumeLayerInfoLayersItem' smart constructor.-data VolumeLayerInfoLayersItem =-  VolumeLayerInfoLayersItem'-    { _vliliVolumeAnnotationsVersion :: !(Maybe Text)-    , _vliliLayerId                  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeLayerInfoLayersItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vliliVolumeAnnotationsVersion'------ * 'vliliLayerId'-volumeLayerInfoLayersItem-    :: VolumeLayerInfoLayersItem-volumeLayerInfoLayersItem =-  VolumeLayerInfoLayersItem'-    {_vliliVolumeAnnotationsVersion = Nothing, _vliliLayerId = Nothing}----- | The current version of this layer\'s volume annotations. Note that this--- version applies only to the data in the books.layers.volumeAnnotations.*--- responses. The actual annotation data is versioned separately.-vliliVolumeAnnotationsVersion :: Lens' VolumeLayerInfoLayersItem (Maybe Text)-vliliVolumeAnnotationsVersion-  = lens _vliliVolumeAnnotationsVersion-      (\ s a -> s{_vliliVolumeAnnotationsVersion = a})---- | The layer id of this layer (e.g. \"geo\").-vliliLayerId :: Lens' VolumeLayerInfoLayersItem (Maybe Text)-vliliLayerId-  = lens _vliliLayerId (\ s a -> s{_vliliLayerId = a})--instance FromJSON VolumeLayerInfoLayersItem where-        parseJSON-          = withObject "VolumeLayerInfoLayersItem"-              (\ o ->-                 VolumeLayerInfoLayersItem' <$>-                   (o .:? "volumeAnnotationsVersion") <*>-                     (o .:? "layerId"))--instance ToJSON VolumeLayerInfoLayersItem where-        toJSON VolumeLayerInfoLayersItem'{..}-          = object-              (catMaybes-                 [("volumeAnnotationsVersion" .=) <$>-                    _vliliVolumeAnnotationsVersion,-                  ("layerId" .=) <$> _vliliLayerId])---- | Selection ranges for the most recent content version.------ /See:/ 'annotationCurrentVersionRanges' smart constructor.-data AnnotationCurrentVersionRanges =-  AnnotationCurrentVersionRanges'-    { _aGbImageRange   :: !(Maybe BooksAnnotationsRange)-    , _aContentVersion :: !(Maybe Text)-    , _aImageCfiRange  :: !(Maybe BooksAnnotationsRange)-    , _aGbTextRange    :: !(Maybe BooksAnnotationsRange)-    , _aCfiRange       :: !(Maybe BooksAnnotationsRange)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AnnotationCurrentVersionRanges' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aGbImageRange'------ * 'aContentVersion'------ * 'aImageCfiRange'------ * 'aGbTextRange'------ * 'aCfiRange'-annotationCurrentVersionRanges-    :: AnnotationCurrentVersionRanges-annotationCurrentVersionRanges =-  AnnotationCurrentVersionRanges'-    { _aGbImageRange = Nothing-    , _aContentVersion = Nothing-    , _aImageCfiRange = Nothing-    , _aGbTextRange = Nothing-    , _aCfiRange = Nothing-    }----- | Range in GB image format for this annotation for version above.-aGbImageRange :: Lens' AnnotationCurrentVersionRanges (Maybe BooksAnnotationsRange)-aGbImageRange-  = lens _aGbImageRange-      (\ s a -> s{_aGbImageRange = a})---- | Content version applicable to ranges below.-aContentVersion :: Lens' AnnotationCurrentVersionRanges (Maybe Text)-aContentVersion-  = lens _aContentVersion-      (\ s a -> s{_aContentVersion = a})---- | Range in image CFI format for this annotation for version above.-aImageCfiRange :: Lens' AnnotationCurrentVersionRanges (Maybe BooksAnnotationsRange)-aImageCfiRange-  = lens _aImageCfiRange-      (\ s a -> s{_aImageCfiRange = a})---- | Range in GB text format for this annotation for version above.-aGbTextRange :: Lens' AnnotationCurrentVersionRanges (Maybe BooksAnnotationsRange)-aGbTextRange-  = lens _aGbTextRange (\ s a -> s{_aGbTextRange = a})---- | Range in CFI format for this annotation for version above.-aCfiRange :: Lens' AnnotationCurrentVersionRanges (Maybe BooksAnnotationsRange)-aCfiRange-  = lens _aCfiRange (\ s a -> s{_aCfiRange = a})--instance FromJSON AnnotationCurrentVersionRanges-         where-        parseJSON-          = withObject "AnnotationCurrentVersionRanges"-              (\ o ->-                 AnnotationCurrentVersionRanges' <$>-                   (o .:? "gbImageRange") <*> (o .:? "contentVersion")-                     <*> (o .:? "imageCfiRange")-                     <*> (o .:? "gbTextRange")-                     <*> (o .:? "cfiRange"))--instance ToJSON AnnotationCurrentVersionRanges where-        toJSON AnnotationCurrentVersionRanges'{..}-          = object-              (catMaybes-                 [("gbImageRange" .=) <$> _aGbImageRange,-                  ("contentVersion" .=) <$> _aContentVersion,-                  ("imageCfiRange" .=) <$> _aImageCfiRange,-                  ("gbTextRange" .=) <$> _aGbTextRange,-                  ("cfiRange" .=) <$> _aCfiRange])---- | Information about pdf content. (In LITE projection.)------ /See:/ 'volumeAccessInfoPdf' smart constructor.-data VolumeAccessInfoPdf =-  VolumeAccessInfoPdf'-    { _vaipAcsTokenLink :: !(Maybe Text)-    , _vaipIsAvailable  :: !(Maybe Bool)-    , _vaipDownloadLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeAccessInfoPdf' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vaipAcsTokenLink'------ * 'vaipIsAvailable'------ * 'vaipDownloadLink'-volumeAccessInfoPdf-    :: VolumeAccessInfoPdf-volumeAccessInfoPdf =-  VolumeAccessInfoPdf'-    { _vaipAcsTokenLink = Nothing-    , _vaipIsAvailable = Nothing-    , _vaipDownloadLink = Nothing-    }----- | URL to retrieve ACS token for pdf download. (In LITE projection.)-vaipAcsTokenLink :: Lens' VolumeAccessInfoPdf (Maybe Text)-vaipAcsTokenLink-  = lens _vaipAcsTokenLink-      (\ s a -> s{_vaipAcsTokenLink = a})---- | Is a scanned image pdf available either as public domain or for--- purchase. (In LITE projection.)-vaipIsAvailable :: Lens' VolumeAccessInfoPdf (Maybe Bool)-vaipIsAvailable-  = lens _vaipIsAvailable-      (\ s a -> s{_vaipIsAvailable = a})---- | URL to download pdf. (In LITE projection.)-vaipDownloadLink :: Lens' VolumeAccessInfoPdf (Maybe Text)-vaipDownloadLink-  = lens _vaipDownloadLink-      (\ s a -> s{_vaipDownloadLink = a})--instance FromJSON VolumeAccessInfoPdf where-        parseJSON-          = withObject "VolumeAccessInfoPdf"-              (\ o ->-                 VolumeAccessInfoPdf' <$>-                   (o .:? "acsTokenLink") <*> (o .:? "isAvailable") <*>-                     (o .:? "downloadLink"))--instance ToJSON VolumeAccessInfoPdf where-        toJSON VolumeAccessInfoPdf'{..}-          = object-              (catMaybes-                 [("acsTokenLink" .=) <$> _vaipAcsTokenLink,-                  ("isAvailable" .=) <$> _vaipIsAvailable,-                  ("downloadLink" .=) <$> _vaipDownloadLink])------- /See:/ 'dictlayerDataDictWordsItemExamplesItemSource' smart constructor.-data DictlayerDataDictWordsItemExamplesItemSource =-  DictlayerDataDictWordsItemExamplesItemSource'-    { _dddwieisURL         :: !(Maybe Text)-    , _dddwieisAttribution :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictWordsItemExamplesItemSource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddwieisURL'------ * 'dddwieisAttribution'-dictlayerDataDictWordsItemExamplesItemSource-    :: DictlayerDataDictWordsItemExamplesItemSource-dictlayerDataDictWordsItemExamplesItemSource =-  DictlayerDataDictWordsItemExamplesItemSource'-    {_dddwieisURL = Nothing, _dddwieisAttribution = Nothing}---dddwieisURL :: Lens' DictlayerDataDictWordsItemExamplesItemSource (Maybe Text)-dddwieisURL-  = lens _dddwieisURL (\ s a -> s{_dddwieisURL = a})--dddwieisAttribution :: Lens' DictlayerDataDictWordsItemExamplesItemSource (Maybe Text)-dddwieisAttribution-  = lens _dddwieisAttribution-      (\ s a -> s{_dddwieisAttribution = a})--instance FromJSON-           DictlayerDataDictWordsItemExamplesItemSource-         where-        parseJSON-          = withObject-              "DictlayerDataDictWordsItemExamplesItemSource"-              (\ o ->-                 DictlayerDataDictWordsItemExamplesItemSource' <$>-                   (o .:? "url") <*> (o .:? "attribution"))--instance ToJSON-           DictlayerDataDictWordsItemExamplesItemSource-         where-        toJSON-          DictlayerDataDictWordsItemExamplesItemSource'{..}-          = object-              (catMaybes-                 [("url" .=) <$> _dddwieisURL,-                  ("attribution" .=) <$> _dddwieisAttribution])---- | Information about epub content. (In LITE projection.)------ /See:/ 'volumeAccessInfoEpub' smart constructor.-data VolumeAccessInfoEpub =-  VolumeAccessInfoEpub'-    { _vaieAcsTokenLink :: !(Maybe Text)-    , _vaieIsAvailable  :: !(Maybe Bool)-    , _vaieDownloadLink :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeAccessInfoEpub' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vaieAcsTokenLink'------ * 'vaieIsAvailable'------ * 'vaieDownloadLink'-volumeAccessInfoEpub-    :: VolumeAccessInfoEpub-volumeAccessInfoEpub =-  VolumeAccessInfoEpub'-    { _vaieAcsTokenLink = Nothing-    , _vaieIsAvailable = Nothing-    , _vaieDownloadLink = Nothing-    }----- | URL to retrieve ACS token for epub download. (In LITE projection.)-vaieAcsTokenLink :: Lens' VolumeAccessInfoEpub (Maybe Text)-vaieAcsTokenLink-  = lens _vaieAcsTokenLink-      (\ s a -> s{_vaieAcsTokenLink = a})---- | Is a flowing text epub available either as public domain or for--- purchase. (In LITE projection.)-vaieIsAvailable :: Lens' VolumeAccessInfoEpub (Maybe Bool)-vaieIsAvailable-  = lens _vaieIsAvailable-      (\ s a -> s{_vaieIsAvailable = a})---- | URL to download epub. (In LITE projection.)-vaieDownloadLink :: Lens' VolumeAccessInfoEpub (Maybe Text)-vaieDownloadLink-  = lens _vaieDownloadLink-      (\ s a -> s{_vaieDownloadLink = a})--instance FromJSON VolumeAccessInfoEpub where-        parseJSON-          = withObject "VolumeAccessInfoEpub"-              (\ o ->-                 VolumeAccessInfoEpub' <$>-                   (o .:? "acsTokenLink") <*> (o .:? "isAvailable") <*>-                     (o .:? "downloadLink"))--instance ToJSON VolumeAccessInfoEpub where-        toJSON VolumeAccessInfoEpub'{..}-          = object-              (catMaybes-                 [("acsTokenLink" .=) <$> _vaieAcsTokenLink,-                  ("isAvailable" .=) <$> _vaieIsAvailable,-                  ("downloadLink" .=) <$> _vaieDownloadLink])------- /See:/ 'readingPosition' smart constructor.-data ReadingPosition =-  ReadingPosition'-    { _rpEpubCfiPosition :: !(Maybe Text)-    , _rpKind            :: !Text-    , _rpGbImagePosition :: !(Maybe Text)-    , _rpPdfPosition     :: !(Maybe Text)-    , _rpVolumeId        :: !(Maybe Text)-    , _rpUpdated         :: !(Maybe DateTime')-    , _rpGbTextPosition  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ReadingPosition' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rpEpubCfiPosition'------ * 'rpKind'------ * 'rpGbImagePosition'------ * 'rpPdfPosition'------ * 'rpVolumeId'------ * 'rpUpdated'------ * 'rpGbTextPosition'-readingPosition-    :: ReadingPosition-readingPosition =-  ReadingPosition'-    { _rpEpubCfiPosition = Nothing-    , _rpKind = "books#readingPosition"-    , _rpGbImagePosition = Nothing-    , _rpPdfPosition = Nothing-    , _rpVolumeId = Nothing-    , _rpUpdated = Nothing-    , _rpGbTextPosition = Nothing-    }----- | Position in an EPUB as a CFI.-rpEpubCfiPosition :: Lens' ReadingPosition (Maybe Text)-rpEpubCfiPosition-  = lens _rpEpubCfiPosition-      (\ s a -> s{_rpEpubCfiPosition = a})---- | Resource type for a reading position.-rpKind :: Lens' ReadingPosition Text-rpKind = lens _rpKind (\ s a -> s{_rpKind = a})---- | Position in a volume for image-based content.-rpGbImagePosition :: Lens' ReadingPosition (Maybe Text)-rpGbImagePosition-  = lens _rpGbImagePosition-      (\ s a -> s{_rpGbImagePosition = a})---- | Position in a PDF file.-rpPdfPosition :: Lens' ReadingPosition (Maybe Text)-rpPdfPosition-  = lens _rpPdfPosition-      (\ s a -> s{_rpPdfPosition = a})---- | Volume id associated with this reading position.-rpVolumeId :: Lens' ReadingPosition (Maybe Text)-rpVolumeId-  = lens _rpVolumeId (\ s a -> s{_rpVolumeId = a})---- | Timestamp when this reading position was last updated (formatted UTC--- timestamp with millisecond resolution).-rpUpdated :: Lens' ReadingPosition (Maybe UTCTime)-rpUpdated-  = lens _rpUpdated (\ s a -> s{_rpUpdated = a}) .-      mapping _DateTime---- | Position in a volume for text-based content.-rpGbTextPosition :: Lens' ReadingPosition (Maybe Text)-rpGbTextPosition-  = lens _rpGbTextPosition-      (\ s a -> s{_rpGbTextPosition = a})--instance FromJSON ReadingPosition where-        parseJSON-          = withObject "ReadingPosition"-              (\ o ->-                 ReadingPosition' <$>-                   (o .:? "epubCfiPosition") <*>-                     (o .:? "kind" .!= "books#readingPosition")-                     <*> (o .:? "gbImagePosition")-                     <*> (o .:? "pdfPosition")-                     <*> (o .:? "volumeId")-                     <*> (o .:? "updated")-                     <*> (o .:? "gbTextPosition"))--instance ToJSON ReadingPosition where-        toJSON ReadingPosition'{..}-          = object-              (catMaybes-                 [("epubCfiPosition" .=) <$> _rpEpubCfiPosition,-                  Just ("kind" .= _rpKind),-                  ("gbImagePosition" .=) <$> _rpGbImagePosition,-                  ("pdfPosition" .=) <$> _rpPdfPosition,-                  ("volumeId" .=) <$> _rpVolumeId,-                  ("updated" .=) <$> _rpUpdated,-                  ("gbTextPosition" .=) <$> _rpGbTextPosition])------- /See:/ 'volumeSaleInfoOffersItem' smart constructor.-data VolumeSaleInfoOffersItem =-  VolumeSaleInfoOffersItem'-    { _vsioiFinskyOfferType :: !(Maybe (Textual Int32))-    , _vsioiRentalDuration  :: !(Maybe VolumeSaleInfoOffersItemRentalDuration)-    , _vsioiListPrice       :: !(Maybe VolumeSaleInfoOffersItemListPrice)-    , _vsioiRetailPrice     :: !(Maybe VolumeSaleInfoOffersItemRetailPrice)-    , _vsioiGiftable        :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeSaleInfoOffersItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vsioiFinskyOfferType'------ * 'vsioiRentalDuration'------ * 'vsioiListPrice'------ * 'vsioiRetailPrice'------ * 'vsioiGiftable'-volumeSaleInfoOffersItem-    :: VolumeSaleInfoOffersItem-volumeSaleInfoOffersItem =-  VolumeSaleInfoOffersItem'-    { _vsioiFinskyOfferType = Nothing-    , _vsioiRentalDuration = Nothing-    , _vsioiListPrice = Nothing-    , _vsioiRetailPrice = Nothing-    , _vsioiGiftable = Nothing-    }----- | The finsky offer type (e.g., PURCHASE=0 RENTAL=3)-vsioiFinskyOfferType :: Lens' VolumeSaleInfoOffersItem (Maybe Int32)-vsioiFinskyOfferType-  = lens _vsioiFinskyOfferType-      (\ s a -> s{_vsioiFinskyOfferType = a})-      . mapping _Coerce---- | The rental duration (for rental offers only).-vsioiRentalDuration :: Lens' VolumeSaleInfoOffersItem (Maybe VolumeSaleInfoOffersItemRentalDuration)-vsioiRentalDuration-  = lens _vsioiRentalDuration-      (\ s a -> s{_vsioiRentalDuration = a})---- | Offer list (=undiscounted) price in Micros.-vsioiListPrice :: Lens' VolumeSaleInfoOffersItem (Maybe VolumeSaleInfoOffersItemListPrice)-vsioiListPrice-  = lens _vsioiListPrice-      (\ s a -> s{_vsioiListPrice = a})---- | Offer retail (=discounted) price in Micros-vsioiRetailPrice :: Lens' VolumeSaleInfoOffersItem (Maybe VolumeSaleInfoOffersItemRetailPrice)-vsioiRetailPrice-  = lens _vsioiRetailPrice-      (\ s a -> s{_vsioiRetailPrice = a})---- | Indicates whether the offer is giftable.-vsioiGiftable :: Lens' VolumeSaleInfoOffersItem (Maybe Bool)-vsioiGiftable-  = lens _vsioiGiftable-      (\ s a -> s{_vsioiGiftable = a})--instance FromJSON VolumeSaleInfoOffersItem where-        parseJSON-          = withObject "VolumeSaleInfoOffersItem"-              (\ o ->-                 VolumeSaleInfoOffersItem' <$>-                   (o .:? "finskyOfferType") <*>-                     (o .:? "rentalDuration")-                     <*> (o .:? "listPrice")-                     <*> (o .:? "retailPrice")-                     <*> (o .:? "giftable"))--instance ToJSON VolumeSaleInfoOffersItem where-        toJSON VolumeSaleInfoOffersItem'{..}-          = object-              (catMaybes-                 [("finskyOfferType" .=) <$> _vsioiFinskyOfferType,-                  ("rentalDuration" .=) <$> _vsioiRentalDuration,-                  ("listPrice" .=) <$> _vsioiListPrice,-                  ("retailPrice" .=) <$> _vsioiRetailPrice,-                  ("giftable" .=) <$> _vsioiGiftable])------- /See:/ 'dictlayerDataDict' smart constructor.-data DictlayerDataDict =-  DictlayerDataDict'-    { _dddSource :: !(Maybe DictlayerDataDictSource)-    , _dddWords  :: !(Maybe [DictlayerDataDictWordsItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDict' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddSource'------ * 'dddWords'-dictlayerDataDict-    :: DictlayerDataDict-dictlayerDataDict =-  DictlayerDataDict' {_dddSource = Nothing, _dddWords = Nothing}----- | The source, url and attribution for this dictionary data.-dddSource :: Lens' DictlayerDataDict (Maybe DictlayerDataDictSource)-dddSource-  = lens _dddSource (\ s a -> s{_dddSource = a})--dddWords :: Lens' DictlayerDataDict [DictlayerDataDictWordsItem]-dddWords-  = lens _dddWords (\ s a -> s{_dddWords = a}) .-      _Default-      . _Coerce--instance FromJSON DictlayerDataDict where-        parseJSON-          = withObject "DictlayerDataDict"-              (\ o ->-                 DictlayerDataDict' <$>-                   (o .:? "source") <*> (o .:? "words" .!= mempty))--instance ToJSON DictlayerDataDict where-        toJSON DictlayerDataDict'{..}-          = object-              (catMaybes-                 [("source" .=) <$> _dddSource,-                  ("words" .=) <$> _dddWords])------- /See:/ 'dictlayerDataDictWordsItemSensesItem' smart constructor.-data DictlayerDataDictWordsItemSensesItem =-  DictlayerDataDictWordsItemSensesItem'-    { _dddwisiPronunciationURL :: !(Maybe Text)-    , _dddwisiConjugations     :: !(Maybe [DictlayerDataDictWordsItemSensesItemConjugationsItem])-    , _dddwisiPronunciation    :: !(Maybe Text)-    , _dddwisiSynonyms         :: !(Maybe [DictlayerDataDictWordsItemSensesItemSynonymsItem])-    , _dddwisiSource           :: !(Maybe DictlayerDataDictWordsItemSensesItemSource)-    , _dddwisiPartOfSpeech     :: !(Maybe Text)-    , _dddwisiDefinitions      :: !(Maybe [DictlayerDataDictWordsItemSensesItemDefinitionsItem])-    , _dddwisiSyllabification  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictWordsItemSensesItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddwisiPronunciationURL'------ * 'dddwisiConjugations'------ * 'dddwisiPronunciation'------ * 'dddwisiSynonyms'------ * 'dddwisiSource'------ * 'dddwisiPartOfSpeech'------ * 'dddwisiDefinitions'------ * 'dddwisiSyllabification'-dictlayerDataDictWordsItemSensesItem-    :: DictlayerDataDictWordsItemSensesItem-dictlayerDataDictWordsItemSensesItem =-  DictlayerDataDictWordsItemSensesItem'-    { _dddwisiPronunciationURL = Nothing-    , _dddwisiConjugations = Nothing-    , _dddwisiPronunciation = Nothing-    , _dddwisiSynonyms = Nothing-    , _dddwisiSource = Nothing-    , _dddwisiPartOfSpeech = Nothing-    , _dddwisiDefinitions = Nothing-    , _dddwisiSyllabification = Nothing-    }---dddwisiPronunciationURL :: Lens' DictlayerDataDictWordsItemSensesItem (Maybe Text)-dddwisiPronunciationURL-  = lens _dddwisiPronunciationURL-      (\ s a -> s{_dddwisiPronunciationURL = a})--dddwisiConjugations :: Lens' DictlayerDataDictWordsItemSensesItem [DictlayerDataDictWordsItemSensesItemConjugationsItem]-dddwisiConjugations-  = lens _dddwisiConjugations-      (\ s a -> s{_dddwisiConjugations = a})-      . _Default-      . _Coerce--dddwisiPronunciation :: Lens' DictlayerDataDictWordsItemSensesItem (Maybe Text)-dddwisiPronunciation-  = lens _dddwisiPronunciation-      (\ s a -> s{_dddwisiPronunciation = a})--dddwisiSynonyms :: Lens' DictlayerDataDictWordsItemSensesItem [DictlayerDataDictWordsItemSensesItemSynonymsItem]-dddwisiSynonyms-  = lens _dddwisiSynonyms-      (\ s a -> s{_dddwisiSynonyms = a})-      . _Default-      . _Coerce--dddwisiSource :: Lens' DictlayerDataDictWordsItemSensesItem (Maybe DictlayerDataDictWordsItemSensesItemSource)-dddwisiSource-  = lens _dddwisiSource-      (\ s a -> s{_dddwisiSource = a})--dddwisiPartOfSpeech :: Lens' DictlayerDataDictWordsItemSensesItem (Maybe Text)-dddwisiPartOfSpeech-  = lens _dddwisiPartOfSpeech-      (\ s a -> s{_dddwisiPartOfSpeech = a})--dddwisiDefinitions :: Lens' DictlayerDataDictWordsItemSensesItem [DictlayerDataDictWordsItemSensesItemDefinitionsItem]-dddwisiDefinitions-  = lens _dddwisiDefinitions-      (\ s a -> s{_dddwisiDefinitions = a})-      . _Default-      . _Coerce--dddwisiSyllabification :: Lens' DictlayerDataDictWordsItemSensesItem (Maybe Text)-dddwisiSyllabification-  = lens _dddwisiSyllabification-      (\ s a -> s{_dddwisiSyllabification = a})--instance FromJSON-           DictlayerDataDictWordsItemSensesItem-         where-        parseJSON-          = withObject "DictlayerDataDictWordsItemSensesItem"-              (\ o ->-                 DictlayerDataDictWordsItemSensesItem' <$>-                   (o .:? "pronunciationUrl") <*>-                     (o .:? "conjugations" .!= mempty)-                     <*> (o .:? "pronunciation")-                     <*> (o .:? "synonyms" .!= mempty)-                     <*> (o .:? "source")-                     <*> (o .:? "partOfSpeech")-                     <*> (o .:? "definitions" .!= mempty)-                     <*> (o .:? "syllabification"))--instance ToJSON DictlayerDataDictWordsItemSensesItem-         where-        toJSON DictlayerDataDictWordsItemSensesItem'{..}-          = object-              (catMaybes-                 [("pronunciationUrl" .=) <$>-                    _dddwisiPronunciationURL,-                  ("conjugations" .=) <$> _dddwisiConjugations,-                  ("pronunciation" .=) <$> _dddwisiPronunciation,-                  ("synonyms" .=) <$> _dddwisiSynonyms,-                  ("source" .=) <$> _dddwisiSource,-                  ("partOfSpeech" .=) <$> _dddwisiPartOfSpeech,-                  ("definitions" .=) <$> _dddwisiDefinitions,-                  ("syllabification" .=) <$> _dddwisiSyllabification])---- | Recommendation related information for this volume.------ /See:/ 'volumeRecommendedInfo' smart constructor.-newtype VolumeRecommendedInfo =-  VolumeRecommendedInfo'-    { _vriExplanation :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeRecommendedInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vriExplanation'-volumeRecommendedInfo-    :: VolumeRecommendedInfo-volumeRecommendedInfo = VolumeRecommendedInfo' {_vriExplanation = Nothing}----- | A text explaining why this volume is recommended.-vriExplanation :: Lens' VolumeRecommendedInfo (Maybe Text)-vriExplanation-  = lens _vriExplanation-      (\ s a -> s{_vriExplanation = a})--instance FromJSON VolumeRecommendedInfo where-        parseJSON-          = withObject "VolumeRecommendedInfo"-              (\ o ->-                 VolumeRecommendedInfo' <$> (o .:? "explanation"))--instance ToJSON VolumeRecommendedInfo where-        toJSON VolumeRecommendedInfo'{..}-          = object-              (catMaybes [("explanation" .=) <$> _vriExplanation])------- /See:/ 'offers' smart constructor.-data Offers =-  Offers'-    { _oKind  :: !Text-    , _oItems :: !(Maybe [OffersItemsItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Offers' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oKind'------ * 'oItems'-offers-    :: Offers-offers = Offers' {_oKind = "promooffer#offers", _oItems = Nothing}----- | Resource type.-oKind :: Lens' Offers Text-oKind = lens _oKind (\ s a -> s{_oKind = a})---- | A list of offers.-oItems :: Lens' Offers [OffersItemsItem]-oItems-  = lens _oItems (\ s a -> s{_oItems = a}) . _Default .-      _Coerce--instance FromJSON Offers where-        parseJSON-          = withObject "Offers"-              (\ o ->-                 Offers' <$>-                   (o .:? "kind" .!= "promooffer#offers") <*>-                     (o .:? "items" .!= mempty))--instance ToJSON Offers where-        toJSON Offers'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _oKind), ("items" .=) <$> _oItems])------- /See:/ 'discoveryclusters' smart constructor.-data Discoveryclusters =-  Discoveryclusters'-    { _dKind          :: !Text-    , _dTotalClusters :: !(Maybe (Textual Int32))-    , _dClusters      :: !(Maybe [DiscoveryclustersClustersItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Discoveryclusters' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dKind'------ * 'dTotalClusters'------ * 'dClusters'-discoveryclusters-    :: Discoveryclusters-discoveryclusters =-  Discoveryclusters'-    { _dKind = "books#discovery#clusters"-    , _dTotalClusters = Nothing-    , _dClusters = Nothing-    }----- | Resorce type.-dKind :: Lens' Discoveryclusters Text-dKind = lens _dKind (\ s a -> s{_dKind = a})--dTotalClusters :: Lens' Discoveryclusters (Maybe Int32)-dTotalClusters-  = lens _dTotalClusters-      (\ s a -> s{_dTotalClusters = a})-      . mapping _Coerce--dClusters :: Lens' Discoveryclusters [DiscoveryclustersClustersItem]-dClusters-  = lens _dClusters (\ s a -> s{_dClusters = a}) .-      _Default-      . _Coerce--instance FromJSON Discoveryclusters where-        parseJSON-          = withObject "Discoveryclusters"-              (\ o ->-                 Discoveryclusters' <$>-                   (o .:? "kind" .!= "books#discovery#clusters") <*>-                     (o .:? "totalClusters")-                     <*> (o .:? "clusters" .!= mempty))--instance ToJSON Discoveryclusters where-        toJSON Discoveryclusters'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _dKind),-                  ("totalClusters" .=) <$> _dTotalClusters,-                  ("clusters" .=) <$> _dClusters])------- /See:/ 'volumeseriesInfoVolumeSeriesItem' smart constructor.-data VolumeseriesInfoVolumeSeriesItem =-  VolumeseriesInfoVolumeSeriesItem'-    { _vivsiSeriesId       :: !(Maybe Text)-    , _vivsiSeriesBookType :: !(Maybe Text)-    , _vivsiOrderNumber    :: !(Maybe (Textual Int32))-    , _vivsiIssue          :: !(Maybe [VolumeseriesInfoVolumeSeriesItemIssueItem])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeseriesInfoVolumeSeriesItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vivsiSeriesId'------ * 'vivsiSeriesBookType'------ * 'vivsiOrderNumber'------ * 'vivsiIssue'-volumeseriesInfoVolumeSeriesItem-    :: VolumeseriesInfoVolumeSeriesItem-volumeseriesInfoVolumeSeriesItem =-  VolumeseriesInfoVolumeSeriesItem'-    { _vivsiSeriesId = Nothing-    , _vivsiSeriesBookType = Nothing-    , _vivsiOrderNumber = Nothing-    , _vivsiIssue = Nothing-    }----- | The series id.-vivsiSeriesId :: Lens' VolumeseriesInfoVolumeSeriesItem (Maybe Text)-vivsiSeriesId-  = lens _vivsiSeriesId-      (\ s a -> s{_vivsiSeriesId = a})---- | The book type in the context of series. Examples - Single Issue,--- Collection Edition, etc.-vivsiSeriesBookType :: Lens' VolumeseriesInfoVolumeSeriesItem (Maybe Text)-vivsiSeriesBookType-  = lens _vivsiSeriesBookType-      (\ s a -> s{_vivsiSeriesBookType = a})---- | The book order number in the series.-vivsiOrderNumber :: Lens' VolumeseriesInfoVolumeSeriesItem (Maybe Int32)-vivsiOrderNumber-  = lens _vivsiOrderNumber-      (\ s a -> s{_vivsiOrderNumber = a})-      . mapping _Coerce---- | List of issues. Applicable only for Collection Edition and Omnibus.-vivsiIssue :: Lens' VolumeseriesInfoVolumeSeriesItem [VolumeseriesInfoVolumeSeriesItemIssueItem]-vivsiIssue-  = lens _vivsiIssue (\ s a -> s{_vivsiIssue = a}) .-      _Default-      . _Coerce--instance FromJSON VolumeseriesInfoVolumeSeriesItem-         where-        parseJSON-          = withObject "VolumeseriesInfoVolumeSeriesItem"-              (\ o ->-                 VolumeseriesInfoVolumeSeriesItem' <$>-                   (o .:? "seriesId") <*> (o .:? "seriesBookType") <*>-                     (o .:? "orderNumber")-                     <*> (o .:? "issue" .!= mempty))--instance ToJSON VolumeseriesInfoVolumeSeriesItem-         where-        toJSON VolumeseriesInfoVolumeSeriesItem'{..}-          = object-              (catMaybes-                 [("seriesId" .=) <$> _vivsiSeriesId,-                  ("seriesBookType" .=) <$> _vivsiSeriesBookType,-                  ("orderNumber" .=) <$> _vivsiOrderNumber,-                  ("issue" .=) <$> _vivsiIssue])---- | User settings in sub-objects, each for different purposes.------ /See:/ 'userSettingsNotesExport' smart constructor.-data UserSettingsNotesExport =-  UserSettingsNotesExport'-    { _usneFolderName :: !(Maybe Text)-    , _usneIsEnabled  :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserSettingsNotesExport' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usneFolderName'------ * 'usneIsEnabled'-userSettingsNotesExport-    :: UserSettingsNotesExport-userSettingsNotesExport =-  UserSettingsNotesExport' {_usneFolderName = Nothing, _usneIsEnabled = Nothing}---usneFolderName :: Lens' UserSettingsNotesExport (Maybe Text)-usneFolderName-  = lens _usneFolderName-      (\ s a -> s{_usneFolderName = a})--usneIsEnabled :: Lens' UserSettingsNotesExport (Maybe Bool)-usneIsEnabled-  = lens _usneIsEnabled-      (\ s a -> s{_usneIsEnabled = a})--instance FromJSON UserSettingsNotesExport where-        parseJSON-          = withObject "UserSettingsNotesExport"-              (\ o ->-                 UserSettingsNotesExport' <$>-                   (o .:? "folderName") <*> (o .:? "isEnabled"))--instance ToJSON UserSettingsNotesExport where-        toJSON UserSettingsNotesExport'{..}-          = object-              (catMaybes-                 [("folderName" .=) <$> _usneFolderName,-                  ("isEnabled" .=) <$> _usneIsEnabled])------- /See:/ 'concurrentAccessRestriction' smart constructor.-data ConcurrentAccessRestriction =-  ConcurrentAccessRestriction'-    { _carMaxConcurrentDevices :: !(Maybe (Textual Int32))-    , _carSignature            :: !(Maybe Text)-    , _carTimeWindowSeconds    :: !(Maybe (Textual Int32))-    , _carKind                 :: !Text-    , _carReasonCode           :: !(Maybe Text)-    , _carVolumeId             :: !(Maybe Text)-    , _carRestricted           :: !(Maybe Bool)-    , _carSource               :: !(Maybe Text)-    , _carDeviceAllowed        :: !(Maybe Bool)-    , _carMessage              :: !(Maybe Text)-    , _carNonce                :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ConcurrentAccessRestriction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'carMaxConcurrentDevices'------ * 'carSignature'------ * 'carTimeWindowSeconds'------ * 'carKind'------ * 'carReasonCode'------ * 'carVolumeId'------ * 'carRestricted'------ * 'carSource'------ * 'carDeviceAllowed'------ * 'carMessage'------ * 'carNonce'-concurrentAccessRestriction-    :: ConcurrentAccessRestriction-concurrentAccessRestriction =-  ConcurrentAccessRestriction'-    { _carMaxConcurrentDevices = Nothing-    , _carSignature = Nothing-    , _carTimeWindowSeconds = Nothing-    , _carKind = "books#concurrentAccessRestriction"-    , _carReasonCode = Nothing-    , _carVolumeId = Nothing-    , _carRestricted = Nothing-    , _carSource = Nothing-    , _carDeviceAllowed = Nothing-    , _carMessage = Nothing-    , _carNonce = Nothing-    }----- | The maximum number of concurrent access licenses for this volume.-carMaxConcurrentDevices :: Lens' ConcurrentAccessRestriction (Maybe Int32)-carMaxConcurrentDevices-  = lens _carMaxConcurrentDevices-      (\ s a -> s{_carMaxConcurrentDevices = a})-      . mapping _Coerce---- | Response signature.-carSignature :: Lens' ConcurrentAccessRestriction (Maybe Text)-carSignature-  = lens _carSignature (\ s a -> s{_carSignature = a})---- | Time in seconds for license auto-expiration.-carTimeWindowSeconds :: Lens' ConcurrentAccessRestriction (Maybe Int32)-carTimeWindowSeconds-  = lens _carTimeWindowSeconds-      (\ s a -> s{_carTimeWindowSeconds = a})-      . mapping _Coerce---- | Resource type.-carKind :: Lens' ConcurrentAccessRestriction Text-carKind = lens _carKind (\ s a -> s{_carKind = a})---- | Error\/warning reason code.-carReasonCode :: Lens' ConcurrentAccessRestriction (Maybe Text)-carReasonCode-  = lens _carReasonCode-      (\ s a -> s{_carReasonCode = a})---- | Identifies the volume for which this entry applies.-carVolumeId :: Lens' ConcurrentAccessRestriction (Maybe Text)-carVolumeId-  = lens _carVolumeId (\ s a -> s{_carVolumeId = a})---- | Whether this volume has any concurrent access restrictions.-carRestricted :: Lens' ConcurrentAccessRestriction (Maybe Bool)-carRestricted-  = lens _carRestricted-      (\ s a -> s{_carRestricted = a})---- | Client app identifier for verification. Download access and--- client-validation only.-carSource :: Lens' ConcurrentAccessRestriction (Maybe Text)-carSource-  = lens _carSource (\ s a -> s{_carSource = a})---- | Whether access is granted for this (user, device, volume).-carDeviceAllowed :: Lens' ConcurrentAccessRestriction (Maybe Bool)-carDeviceAllowed-  = lens _carDeviceAllowed-      (\ s a -> s{_carDeviceAllowed = a})---- | Error\/warning message.-carMessage :: Lens' ConcurrentAccessRestriction (Maybe Text)-carMessage-  = lens _carMessage (\ s a -> s{_carMessage = a})---- | Client nonce for verification. Download access and client-validation--- only.-carNonce :: Lens' ConcurrentAccessRestriction (Maybe Text)-carNonce = lens _carNonce (\ s a -> s{_carNonce = a})--instance FromJSON ConcurrentAccessRestriction where-        parseJSON-          = withObject "ConcurrentAccessRestriction"-              (\ o ->-                 ConcurrentAccessRestriction' <$>-                   (o .:? "maxConcurrentDevices") <*>-                     (o .:? "signature")-                     <*> (o .:? "timeWindowSeconds")-                     <*>-                     (o .:? "kind" .!=-                        "books#concurrentAccessRestriction")-                     <*> (o .:? "reasonCode")-                     <*> (o .:? "volumeId")-                     <*> (o .:? "restricted")-                     <*> (o .:? "source")-                     <*> (o .:? "deviceAllowed")-                     <*> (o .:? "message")-                     <*> (o .:? "nonce"))--instance ToJSON ConcurrentAccessRestriction where-        toJSON ConcurrentAccessRestriction'{..}-          = object-              (catMaybes-                 [("maxConcurrentDevices" .=) <$>-                    _carMaxConcurrentDevices,-                  ("signature" .=) <$> _carSignature,-                  ("timeWindowSeconds" .=) <$> _carTimeWindowSeconds,-                  Just ("kind" .= _carKind),-                  ("reasonCode" .=) <$> _carReasonCode,-                  ("volumeId" .=) <$> _carVolumeId,-                  ("restricted" .=) <$> _carRestricted,-                  ("source" .=) <$> _carSource,-                  ("deviceAllowed" .=) <$> _carDeviceAllowed,-                  ("message" .=) <$> _carMessage,-                  ("nonce" .=) <$> _carNonce])------- /See:/ 'volumes' smart constructor.-data Volumes =-  Volumes'-    { _v1TotalItems :: !(Maybe (Textual Int32))-    , _v1Kind       :: !Text-    , _v1Items      :: !(Maybe [Volume])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Volumes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'v1TotalItems'------ * 'v1Kind'------ * 'v1Items'-volumes-    :: Volumes-volumes =-  Volumes'-    {_v1TotalItems = Nothing, _v1Kind = "books#volumes", _v1Items = Nothing}----- | Total number of volumes found. This might be greater than the number of--- volumes returned in this response if results have been paginated.-v1TotalItems :: Lens' Volumes (Maybe Int32)-v1TotalItems-  = lens _v1TotalItems (\ s a -> s{_v1TotalItems = a})-      . mapping _Coerce---- | Resource type.-v1Kind :: Lens' Volumes Text-v1Kind = lens _v1Kind (\ s a -> s{_v1Kind = a})---- | A list of volumes.-v1Items :: Lens' Volumes [Volume]-v1Items-  = lens _v1Items (\ s a -> s{_v1Items = a}) . _Default-      . _Coerce--instance FromJSON Volumes where-        parseJSON-          = withObject "Volumes"-              (\ o ->-                 Volumes' <$>-                   (o .:? "totalItems") <*>-                     (o .:? "kind" .!= "books#volumes")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON Volumes where-        toJSON Volumes'{..}-          = object-              (catMaybes-                 [("totalItems" .=) <$> _v1TotalItems,-                  Just ("kind" .= _v1Kind), ("items" .=) <$> _v1Items])------- /See:/ 'userSettingsNotificationMatchMyInterests' smart constructor.-newtype UserSettingsNotificationMatchMyInterests =-  UserSettingsNotificationMatchMyInterests'-    { _usnmmiOptedState :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserSettingsNotificationMatchMyInterests' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usnmmiOptedState'-userSettingsNotificationMatchMyInterests-    :: UserSettingsNotificationMatchMyInterests-userSettingsNotificationMatchMyInterests =-  UserSettingsNotificationMatchMyInterests' {_usnmmiOptedState = Nothing}---usnmmiOptedState :: Lens' UserSettingsNotificationMatchMyInterests (Maybe Text)-usnmmiOptedState-  = lens _usnmmiOptedState-      (\ s a -> s{_usnmmiOptedState = a})--instance FromJSON-           UserSettingsNotificationMatchMyInterests-         where-        parseJSON-          = withObject-              "UserSettingsNotificationMatchMyInterests"-              (\ o ->-                 UserSettingsNotificationMatchMyInterests' <$>-                   (o .:? "opted_state"))--instance ToJSON-           UserSettingsNotificationMatchMyInterests-         where-        toJSON UserSettingsNotificationMatchMyInterests'{..}-          = object-              (catMaybes-                 [("opted_state" .=) <$> _usnmmiOptedState])------- /See:/ 'bookshelves' smart constructor.-data Bookshelves =-  Bookshelves'-    { _booKind  :: !Text-    , _booItems :: !(Maybe [Bookshelf])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Bookshelves' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'booKind'------ * 'booItems'-bookshelves-    :: Bookshelves-bookshelves = Bookshelves' {_booKind = "books#bookshelves", _booItems = Nothing}----- | Resource type.-booKind :: Lens' Bookshelves Text-booKind = lens _booKind (\ s a -> s{_booKind = a})---- | A list of bookshelves.-booItems :: Lens' Bookshelves [Bookshelf]-booItems-  = lens _booItems (\ s a -> s{_booItems = a}) .-      _Default-      . _Coerce--instance FromJSON Bookshelves where-        parseJSON-          = withObject "Bookshelves"-              (\ o ->-                 Bookshelves' <$>-                   (o .:? "kind" .!= "books#bookshelves") <*>-                     (o .:? "items" .!= mempty))--instance ToJSON Bookshelves where-        toJSON Bookshelves'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _booKind),-                  ("items" .=) <$> _booItems])---- | The source, url and attribution for this dictionary data.------ /See:/ 'dictlayerDataDictSource' smart constructor.-data DictlayerDataDictSource =-  DictlayerDataDictSource'-    { _dddsURL         :: !(Maybe Text)-    , _dddsAttribution :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictSource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddsURL'------ * 'dddsAttribution'-dictlayerDataDictSource-    :: DictlayerDataDictSource-dictlayerDataDictSource =-  DictlayerDataDictSource' {_dddsURL = Nothing, _dddsAttribution = Nothing}---dddsURL :: Lens' DictlayerDataDictSource (Maybe Text)-dddsURL = lens _dddsURL (\ s a -> s{_dddsURL = a})--dddsAttribution :: Lens' DictlayerDataDictSource (Maybe Text)-dddsAttribution-  = lens _dddsAttribution-      (\ s a -> s{_dddsAttribution = a})--instance FromJSON DictlayerDataDictSource where-        parseJSON-          = withObject "DictlayerDataDictSource"-              (\ o ->-                 DictlayerDataDictSource' <$>-                   (o .:? "url") <*> (o .:? "attribution"))--instance ToJSON DictlayerDataDictSource where-        toJSON DictlayerDataDictSource'{..}-          = object-              (catMaybes-                 [("url" .=) <$> _dddsURL,-                  ("attribution" .=) <$> _dddsAttribution])------- /See:/ 'downloadAccesses' smart constructor.-data DownloadAccesses =-  DownloadAccesses'-    { _daKind               :: !Text-    , _daDownloadAccessList :: !(Maybe [DownloadAccessRestriction])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DownloadAccesses' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'daKind'------ * 'daDownloadAccessList'-downloadAccesses-    :: DownloadAccesses-downloadAccesses =-  DownloadAccesses'-    {_daKind = "books#downloadAccesses", _daDownloadAccessList = Nothing}----- | Resource type.-daKind :: Lens' DownloadAccesses Text-daKind = lens _daKind (\ s a -> s{_daKind = a})---- | A list of download access responses.-daDownloadAccessList :: Lens' DownloadAccesses [DownloadAccessRestriction]-daDownloadAccessList-  = lens _daDownloadAccessList-      (\ s a -> s{_daDownloadAccessList = a})-      . _Default-      . _Coerce--instance FromJSON DownloadAccesses where-        parseJSON-          = withObject "DownloadAccesses"-              (\ o ->-                 DownloadAccesses' <$>-                   (o .:? "kind" .!= "books#downloadAccesses") <*>-                     (o .:? "downloadAccessList" .!= mempty))--instance ToJSON DownloadAccesses where-        toJSON DownloadAccesses'{..}-          = object-              (catMaybes-                 [Just ("kind" .= _daKind),-                  ("downloadAccessList" .=) <$> _daDownloadAccessList])------- /See:/ 'geolayerDataGeoViewportHi' smart constructor.-data GeolayerDataGeoViewportHi =-  GeolayerDataGeoViewportHi'-    { _gdgvhLatitude  :: !(Maybe (Textual Double))-    , _gdgvhLongitude :: !(Maybe (Textual Double))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GeolayerDataGeoViewportHi' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdgvhLatitude'------ * 'gdgvhLongitude'-geolayerDataGeoViewportHi-    :: GeolayerDataGeoViewportHi-geolayerDataGeoViewportHi =-  GeolayerDataGeoViewportHi'-    {_gdgvhLatitude = Nothing, _gdgvhLongitude = Nothing}---gdgvhLatitude :: Lens' GeolayerDataGeoViewportHi (Maybe Double)-gdgvhLatitude-  = lens _gdgvhLatitude-      (\ s a -> s{_gdgvhLatitude = a})-      . mapping _Coerce--gdgvhLongitude :: Lens' GeolayerDataGeoViewportHi (Maybe Double)-gdgvhLongitude-  = lens _gdgvhLongitude-      (\ s a -> s{_gdgvhLongitude = a})-      . mapping _Coerce--instance FromJSON GeolayerDataGeoViewportHi where-        parseJSON-          = withObject "GeolayerDataGeoViewportHi"-              (\ o ->-                 GeolayerDataGeoViewportHi' <$>-                   (o .:? "latitude") <*> (o .:? "longitude"))--instance ToJSON GeolayerDataGeoViewportHi where-        toJSON GeolayerDataGeoViewportHi'{..}-          = object-              (catMaybes-                 [("latitude" .=) <$> _gdgvhLatitude,-                  ("longitude" .=) <$> _gdgvhLongitude])---- | General volume information.------ /See:/ 'volumeVolumeInfo' smart constructor.-data VolumeVolumeInfo =-  VolumeVolumeInfo'-    { _vviImageLinks          :: !(Maybe VolumeVolumeInfoImageLinks)-    , _vviPanelizationSummary :: !(Maybe VolumeVolumeInfoPanelizationSummary)-    , _vviAverageRating       :: !(Maybe (Textual Double))-    , _vviRatingsCount        :: !(Maybe (Textual Int32))-    , _vviCanonicalVolumeLink :: !(Maybe Text)-    , _vviReadingModes        :: !(Maybe JSONValue)-    , _vviIndustryIdentifiers :: !(Maybe [VolumeVolumeInfoIndustryIdentifiersItem])-    , _vviSeriesInfo          :: !(Maybe VolumeseriesInfo)-    , _vviPrintedPageCount    :: !(Maybe (Textual Int32))-    , _vviMainCategory        :: !(Maybe Text)-    , _vviContentVersion      :: !(Maybe Text)-    , _vviSamplePageCount     :: !(Maybe (Textual Int32))-    , _vviCategories          :: !(Maybe [Text])-    , _vviAuthors             :: !(Maybe [Text])-    , _vviComicsContent       :: !(Maybe Bool)-    , _vviAllowAnonLogging    :: !(Maybe Bool)-    , _vviSubtitle            :: !(Maybe Text)-    , _vviPublishedDate       :: !(Maybe Text)-    , _vviMaturityRating      :: !(Maybe Text)-    , _vviPreviewLink         :: !(Maybe Text)-    , _vviLanguage            :: !(Maybe Text)-    , _vviTitle               :: !(Maybe Text)-    , _vviPageCount           :: !(Maybe (Textual Int32))-    , _vviDimensions          :: !(Maybe VolumeVolumeInfoDimensions)-    , _vviInfoLink            :: !(Maybe Text)-    , _vviPublisher           :: !(Maybe Text)-    , _vviDescription         :: !(Maybe Text)-    , _vviPrintType           :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeVolumeInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vviImageLinks'------ * 'vviPanelizationSummary'------ * 'vviAverageRating'------ * 'vviRatingsCount'------ * 'vviCanonicalVolumeLink'------ * 'vviReadingModes'------ * 'vviIndustryIdentifiers'------ * 'vviSeriesInfo'------ * 'vviPrintedPageCount'------ * 'vviMainCategory'------ * 'vviContentVersion'------ * 'vviSamplePageCount'------ * 'vviCategories'------ * 'vviAuthors'------ * 'vviComicsContent'------ * 'vviAllowAnonLogging'------ * 'vviSubtitle'------ * 'vviPublishedDate'------ * 'vviMaturityRating'------ * 'vviPreviewLink'------ * 'vviLanguage'------ * 'vviTitle'------ * 'vviPageCount'------ * 'vviDimensions'------ * 'vviInfoLink'------ * 'vviPublisher'------ * 'vviDescription'------ * 'vviPrintType'-volumeVolumeInfo-    :: VolumeVolumeInfo-volumeVolumeInfo =-  VolumeVolumeInfo'-    { _vviImageLinks = Nothing-    , _vviPanelizationSummary = Nothing-    , _vviAverageRating = Nothing-    , _vviRatingsCount = Nothing-    , _vviCanonicalVolumeLink = Nothing-    , _vviReadingModes = Nothing-    , _vviIndustryIdentifiers = Nothing-    , _vviSeriesInfo = Nothing-    , _vviPrintedPageCount = Nothing-    , _vviMainCategory = Nothing-    , _vviContentVersion = Nothing-    , _vviSamplePageCount = Nothing-    , _vviCategories = Nothing-    , _vviAuthors = Nothing-    , _vviComicsContent = Nothing-    , _vviAllowAnonLogging = Nothing-    , _vviSubtitle = Nothing-    , _vviPublishedDate = Nothing-    , _vviMaturityRating = Nothing-    , _vviPreviewLink = Nothing-    , _vviLanguage = Nothing-    , _vviTitle = Nothing-    , _vviPageCount = Nothing-    , _vviDimensions = Nothing-    , _vviInfoLink = Nothing-    , _vviPublisher = Nothing-    , _vviDescription = Nothing-    , _vviPrintType = Nothing-    }----- | A list of image links for all the sizes that are available. (In LITE--- projection.)-vviImageLinks :: Lens' VolumeVolumeInfo (Maybe VolumeVolumeInfoImageLinks)-vviImageLinks-  = lens _vviImageLinks-      (\ s a -> s{_vviImageLinks = a})---- | A top-level summary of the panelization info in this volume.-vviPanelizationSummary :: Lens' VolumeVolumeInfo (Maybe VolumeVolumeInfoPanelizationSummary)-vviPanelizationSummary-  = lens _vviPanelizationSummary-      (\ s a -> s{_vviPanelizationSummary = a})---- | The mean review rating for this volume. (min = 1.0, max = 5.0)-vviAverageRating :: Lens' VolumeVolumeInfo (Maybe Double)-vviAverageRating-  = lens _vviAverageRating-      (\ s a -> s{_vviAverageRating = a})-      . mapping _Coerce---- | The number of review ratings for this volume.-vviRatingsCount :: Lens' VolumeVolumeInfo (Maybe Int32)-vviRatingsCount-  = lens _vviRatingsCount-      (\ s a -> s{_vviRatingsCount = a})-      . mapping _Coerce---- | Canonical URL for a volume. (In LITE projection.)-vviCanonicalVolumeLink :: Lens' VolumeVolumeInfo (Maybe Text)-vviCanonicalVolumeLink-  = lens _vviCanonicalVolumeLink-      (\ s a -> s{_vviCanonicalVolumeLink = a})---- | The reading modes available for this volume.-vviReadingModes :: Lens' VolumeVolumeInfo (Maybe JSONValue)-vviReadingModes-  = lens _vviReadingModes-      (\ s a -> s{_vviReadingModes = a})---- | Industry standard identifiers for this volume.-vviIndustryIdentifiers :: Lens' VolumeVolumeInfo [VolumeVolumeInfoIndustryIdentifiersItem]-vviIndustryIdentifiers-  = lens _vviIndustryIdentifiers-      (\ s a -> s{_vviIndustryIdentifiers = a})-      . _Default-      . _Coerce--vviSeriesInfo :: Lens' VolumeVolumeInfo (Maybe VolumeseriesInfo)-vviSeriesInfo-  = lens _vviSeriesInfo-      (\ s a -> s{_vviSeriesInfo = a})---- | Total number of printed pages in generated pdf representation.-vviPrintedPageCount :: Lens' VolumeVolumeInfo (Maybe Int32)-vviPrintedPageCount-  = lens _vviPrintedPageCount-      (\ s a -> s{_vviPrintedPageCount = a})-      . mapping _Coerce---- | The main category to which this volume belongs. It will be the category--- from the categories list returned below that has the highest weight.-vviMainCategory :: Lens' VolumeVolumeInfo (Maybe Text)-vviMainCategory-  = lens _vviMainCategory-      (\ s a -> s{_vviMainCategory = a})---- | An identifier for the version of the volume content (text & images). (In--- LITE projection)-vviContentVersion :: Lens' VolumeVolumeInfo (Maybe Text)-vviContentVersion-  = lens _vviContentVersion-      (\ s a -> s{_vviContentVersion = a})---- | Total number of sample pages as per publisher metadata.-vviSamplePageCount :: Lens' VolumeVolumeInfo (Maybe Int32)-vviSamplePageCount-  = lens _vviSamplePageCount-      (\ s a -> s{_vviSamplePageCount = a})-      . mapping _Coerce---- | A list of subject categories, such as \"Fiction\", \"Suspense\", etc.-vviCategories :: Lens' VolumeVolumeInfo [Text]-vviCategories-  = lens _vviCategories-      (\ s a -> s{_vviCategories = a})-      . _Default-      . _Coerce---- | The names of the authors and\/or editors for this volume. (In LITE--- projection)-vviAuthors :: Lens' VolumeVolumeInfo [Text]-vviAuthors-  = lens _vviAuthors (\ s a -> s{_vviAuthors = a}) .-      _Default-      . _Coerce---- | Whether the volume has comics content.-vviComicsContent :: Lens' VolumeVolumeInfo (Maybe Bool)-vviComicsContent-  = lens _vviComicsContent-      (\ s a -> s{_vviComicsContent = a})---- | Whether anonymous logging should be allowed.-vviAllowAnonLogging :: Lens' VolumeVolumeInfo (Maybe Bool)-vviAllowAnonLogging-  = lens _vviAllowAnonLogging-      (\ s a -> s{_vviAllowAnonLogging = a})---- | Volume subtitle. (In LITE projection.)-vviSubtitle :: Lens' VolumeVolumeInfo (Maybe Text)-vviSubtitle-  = lens _vviSubtitle (\ s a -> s{_vviSubtitle = a})---- | Date of publication. (In LITE projection.)-vviPublishedDate :: Lens' VolumeVolumeInfo (Maybe Text)-vviPublishedDate-  = lens _vviPublishedDate-      (\ s a -> s{_vviPublishedDate = a})--vviMaturityRating :: Lens' VolumeVolumeInfo (Maybe Text)-vviMaturityRating-  = lens _vviMaturityRating-      (\ s a -> s{_vviMaturityRating = a})---- | URL to preview this volume on the Google Books site.-vviPreviewLink :: Lens' VolumeVolumeInfo (Maybe Text)-vviPreviewLink-  = lens _vviPreviewLink-      (\ s a -> s{_vviPreviewLink = a})---- | Best language for this volume (based on content). It is the two-letter--- ISO 639-1 code such as \'fr\', \'en\', etc.-vviLanguage :: Lens' VolumeVolumeInfo (Maybe Text)-vviLanguage-  = lens _vviLanguage (\ s a -> s{_vviLanguage = a})---- | Volume title. (In LITE projection.)-vviTitle :: Lens' VolumeVolumeInfo (Maybe Text)-vviTitle = lens _vviTitle (\ s a -> s{_vviTitle = a})---- | Total number of pages as per publisher metadata.-vviPageCount :: Lens' VolumeVolumeInfo (Maybe Int32)-vviPageCount-  = lens _vviPageCount (\ s a -> s{_vviPageCount = a})-      . mapping _Coerce---- | Physical dimensions of this volume.-vviDimensions :: Lens' VolumeVolumeInfo (Maybe VolumeVolumeInfoDimensions)-vviDimensions-  = lens _vviDimensions-      (\ s a -> s{_vviDimensions = a})---- | URL to view information about this volume on the Google Books site. (In--- LITE projection)-vviInfoLink :: Lens' VolumeVolumeInfo (Maybe Text)-vviInfoLink-  = lens _vviInfoLink (\ s a -> s{_vviInfoLink = a})---- | Publisher of this volume. (In LITE projection.)-vviPublisher :: Lens' VolumeVolumeInfo (Maybe Text)-vviPublisher-  = lens _vviPublisher (\ s a -> s{_vviPublisher = a})---- | A synopsis of the volume. The text of the description is formatted in--- HTML and includes simple formatting elements, such as b, i, and br tags.--- (In LITE projection.)-vviDescription :: Lens' VolumeVolumeInfo (Maybe Text)-vviDescription-  = lens _vviDescription-      (\ s a -> s{_vviDescription = a})---- | Type of publication of this volume. Possible values are BOOK or--- MAGAZINE.-vviPrintType :: Lens' VolumeVolumeInfo (Maybe Text)-vviPrintType-  = lens _vviPrintType (\ s a -> s{_vviPrintType = a})--instance FromJSON VolumeVolumeInfo where-        parseJSON-          = withObject "VolumeVolumeInfo"-              (\ o ->-                 VolumeVolumeInfo' <$>-                   (o .:? "imageLinks") <*>-                     (o .:? "panelizationSummary")-                     <*> (o .:? "averageRating")-                     <*> (o .:? "ratingsCount")-                     <*> (o .:? "canonicalVolumeLink")-                     <*> (o .:? "readingModes")-                     <*> (o .:? "industryIdentifiers" .!= mempty)-                     <*> (o .:? "seriesInfo")-                     <*> (o .:? "printedPageCount")-                     <*> (o .:? "mainCategory")-                     <*> (o .:? "contentVersion")-                     <*> (o .:? "samplePageCount")-                     <*> (o .:? "categories" .!= mempty)-                     <*> (o .:? "authors" .!= mempty)-                     <*> (o .:? "comicsContent")-                     <*> (o .:? "allowAnonLogging")-                     <*> (o .:? "subtitle")-                     <*> (o .:? "publishedDate")-                     <*> (o .:? "maturityRating")-                     <*> (o .:? "previewLink")-                     <*> (o .:? "language")-                     <*> (o .:? "title")-                     <*> (o .:? "pageCount")-                     <*> (o .:? "dimensions")-                     <*> (o .:? "infoLink")-                     <*> (o .:? "publisher")-                     <*> (o .:? "description")-                     <*> (o .:? "printType"))--instance ToJSON VolumeVolumeInfo where-        toJSON VolumeVolumeInfo'{..}-          = object-              (catMaybes-                 [("imageLinks" .=) <$> _vviImageLinks,-                  ("panelizationSummary" .=) <$>-                    _vviPanelizationSummary,-                  ("averageRating" .=) <$> _vviAverageRating,-                  ("ratingsCount" .=) <$> _vviRatingsCount,-                  ("canonicalVolumeLink" .=) <$>-                    _vviCanonicalVolumeLink,-                  ("readingModes" .=) <$> _vviReadingModes,-                  ("industryIdentifiers" .=) <$>-                    _vviIndustryIdentifiers,-                  ("seriesInfo" .=) <$> _vviSeriesInfo,-                  ("printedPageCount" .=) <$> _vviPrintedPageCount,-                  ("mainCategory" .=) <$> _vviMainCategory,-                  ("contentVersion" .=) <$> _vviContentVersion,-                  ("samplePageCount" .=) <$> _vviSamplePageCount,-                  ("categories" .=) <$> _vviCategories,-                  ("authors" .=) <$> _vviAuthors,-                  ("comicsContent" .=) <$> _vviComicsContent,-                  ("allowAnonLogging" .=) <$> _vviAllowAnonLogging,-                  ("subtitle" .=) <$> _vviSubtitle,-                  ("publishedDate" .=) <$> _vviPublishedDate,-                  ("maturityRating" .=) <$> _vviMaturityRating,-                  ("previewLink" .=) <$> _vviPreviewLink,-                  ("language" .=) <$> _vviLanguage,-                  ("title" .=) <$> _vviTitle,-                  ("pageCount" .=) <$> _vviPageCount,-                  ("dimensions" .=) <$> _vviDimensions,-                  ("infoLink" .=) <$> _vviInfoLink,-                  ("publisher" .=) <$> _vviPublisher,-                  ("description" .=) <$> _vviDescription,-                  ("printType" .=) <$> _vviPrintType])------- /See:/ 'metadataItemsItem' smart constructor.-data MetadataItemsItem =-  MetadataItemsItem'-    { _miiSize         :: !(Maybe (Textual Int64))-    , _miiVersion      :: !(Maybe (Textual Int64))-    , _miiLanguage     :: !(Maybe Text)-    , _miiDownloadURL  :: !(Maybe Text)-    , _miiEncryptedKey :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MetadataItemsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'miiSize'------ * 'miiVersion'------ * 'miiLanguage'------ * 'miiDownloadURL'------ * 'miiEncryptedKey'-metadataItemsItem-    :: MetadataItemsItem-metadataItemsItem =-  MetadataItemsItem'-    { _miiSize = Nothing-    , _miiVersion = Nothing-    , _miiLanguage = Nothing-    , _miiDownloadURL = Nothing-    , _miiEncryptedKey = Nothing-    }---miiSize :: Lens' MetadataItemsItem (Maybe Int64)-miiSize-  = lens _miiSize (\ s a -> s{_miiSize = a}) .-      mapping _Coerce--miiVersion :: Lens' MetadataItemsItem (Maybe Int64)-miiVersion-  = lens _miiVersion (\ s a -> s{_miiVersion = a}) .-      mapping _Coerce--miiLanguage :: Lens' MetadataItemsItem (Maybe Text)-miiLanguage-  = lens _miiLanguage (\ s a -> s{_miiLanguage = a})--miiDownloadURL :: Lens' MetadataItemsItem (Maybe Text)-miiDownloadURL-  = lens _miiDownloadURL-      (\ s a -> s{_miiDownloadURL = a})--miiEncryptedKey :: Lens' MetadataItemsItem (Maybe Text)-miiEncryptedKey-  = lens _miiEncryptedKey-      (\ s a -> s{_miiEncryptedKey = a})--instance FromJSON MetadataItemsItem where-        parseJSON-          = withObject "MetadataItemsItem"-              (\ o ->-                 MetadataItemsItem' <$>-                   (o .:? "size") <*> (o .:? "version") <*>-                     (o .:? "language")-                     <*> (o .:? "download_url")-                     <*> (o .:? "encrypted_key"))--instance ToJSON MetadataItemsItem where-        toJSON MetadataItemsItem'{..}-          = object-              (catMaybes-                 [("size" .=) <$> _miiSize,-                  ("version" .=) <$> _miiVersion,-                  ("language" .=) <$> _miiLanguage,-                  ("download_url" .=) <$> _miiDownloadURL,-                  ("encrypted_key" .=) <$> _miiEncryptedKey])------- /See:/ 'dictlayerDataDictWordsItemSensesItemSource' smart constructor.-data DictlayerDataDictWordsItemSensesItemSource =-  DictlayerDataDictWordsItemSensesItemSource'-    { _dddwisisURL         :: !(Maybe Text)-    , _dddwisisAttribution :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictlayerDataDictWordsItemSensesItemSource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddwisisURL'------ * 'dddwisisAttribution'-dictlayerDataDictWordsItemSensesItemSource-    :: DictlayerDataDictWordsItemSensesItemSource-dictlayerDataDictWordsItemSensesItemSource =-  DictlayerDataDictWordsItemSensesItemSource'-    {_dddwisisURL = Nothing, _dddwisisAttribution = Nothing}---dddwisisURL :: Lens' DictlayerDataDictWordsItemSensesItemSource (Maybe Text)-dddwisisURL-  = lens _dddwisisURL (\ s a -> s{_dddwisisURL = a})--dddwisisAttribution :: Lens' DictlayerDataDictWordsItemSensesItemSource (Maybe Text)-dddwisisAttribution-  = lens _dddwisisAttribution-      (\ s a -> s{_dddwisisAttribution = a})--instance FromJSON-           DictlayerDataDictWordsItemSensesItemSource-         where-        parseJSON-          = withObject-              "DictlayerDataDictWordsItemSensesItemSource"-              (\ o ->-                 DictlayerDataDictWordsItemSensesItemSource' <$>-                   (o .:? "url") <*> (o .:? "attribution"))--instance ToJSON-           DictlayerDataDictWordsItemSensesItemSource-         where-        toJSON-          DictlayerDataDictWordsItemSensesItemSource'{..}-          = object-              (catMaybes-                 [("url" .=) <$> _dddwisisURL,-                  ("attribution" .=) <$> _dddwisisAttribution])---- | Offer retail (=discounted) price in Micros------ /See:/ 'volumeSaleInfoOffersItemRetailPrice' smart constructor.-data VolumeSaleInfoOffersItemRetailPrice =-  VolumeSaleInfoOffersItemRetailPrice'-    { _vsioirpCurrencyCode   :: !(Maybe Text)-    , _vsioirpAmountInMicros :: !(Maybe (Textual Double))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeSaleInfoOffersItemRetailPrice' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vsioirpCurrencyCode'------ * 'vsioirpAmountInMicros'-volumeSaleInfoOffersItemRetailPrice-    :: VolumeSaleInfoOffersItemRetailPrice-volumeSaleInfoOffersItemRetailPrice =-  VolumeSaleInfoOffersItemRetailPrice'-    {_vsioirpCurrencyCode = Nothing, _vsioirpAmountInMicros = Nothing}---vsioirpCurrencyCode :: Lens' VolumeSaleInfoOffersItemRetailPrice (Maybe Text)-vsioirpCurrencyCode-  = lens _vsioirpCurrencyCode-      (\ s a -> s{_vsioirpCurrencyCode = a})--vsioirpAmountInMicros :: Lens' VolumeSaleInfoOffersItemRetailPrice (Maybe Double)-vsioirpAmountInMicros-  = lens _vsioirpAmountInMicros-      (\ s a -> s{_vsioirpAmountInMicros = a})-      . mapping _Coerce--instance FromJSON VolumeSaleInfoOffersItemRetailPrice-         where-        parseJSON-          = withObject "VolumeSaleInfoOffersItemRetailPrice"-              (\ o ->-                 VolumeSaleInfoOffersItemRetailPrice' <$>-                   (o .:? "currencyCode") <*> (o .:? "amountInMicros"))--instance ToJSON VolumeSaleInfoOffersItemRetailPrice-         where-        toJSON VolumeSaleInfoOffersItemRetailPrice'{..}-          = object-              (catMaybes-                 [("currencyCode" .=) <$> _vsioirpCurrencyCode,-                  ("amountInMicros" .=) <$> _vsioirpAmountInMicros])---- | Information on the ability to share with the family.------ /See:/ 'volumeUserInfoFamilySharing' smart constructor.-data VolumeUserInfoFamilySharing =-  VolumeUserInfoFamilySharing'-    { _vuifsFamilyRole             :: !(Maybe Text)-    , _vuifsIsSharingAllowed       :: !(Maybe Bool)-    , _vuifsIsSharingDisabledByFop :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeUserInfoFamilySharing' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vuifsFamilyRole'------ * 'vuifsIsSharingAllowed'------ * 'vuifsIsSharingDisabledByFop'-volumeUserInfoFamilySharing-    :: VolumeUserInfoFamilySharing-volumeUserInfoFamilySharing =-  VolumeUserInfoFamilySharing'-    { _vuifsFamilyRole = Nothing-    , _vuifsIsSharingAllowed = Nothing-    , _vuifsIsSharingDisabledByFop = Nothing-    }----- | The role of the user in the family.-vuifsFamilyRole :: Lens' VolumeUserInfoFamilySharing (Maybe Text)-vuifsFamilyRole-  = lens _vuifsFamilyRole-      (\ s a -> s{_vuifsFamilyRole = a})---- | Whether or not this volume can be shared with the family by the user.--- This includes sharing eligibility of both the volume and the user. If--- the value is true, the user can initiate a family sharing action.-vuifsIsSharingAllowed :: Lens' VolumeUserInfoFamilySharing (Maybe Bool)-vuifsIsSharingAllowed-  = lens _vuifsIsSharingAllowed-      (\ s a -> s{_vuifsIsSharingAllowed = a})---- | Whether or not sharing this volume is temporarily disabled due to issues--- with the Family Wallet.-vuifsIsSharingDisabledByFop :: Lens' VolumeUserInfoFamilySharing (Maybe Bool)-vuifsIsSharingDisabledByFop-  = lens _vuifsIsSharingDisabledByFop-      (\ s a -> s{_vuifsIsSharingDisabledByFop = a})--instance FromJSON VolumeUserInfoFamilySharing where-        parseJSON-          = withObject "VolumeUserInfoFamilySharing"-              (\ o ->-                 VolumeUserInfoFamilySharing' <$>-                   (o .:? "familyRole") <*> (o .:? "isSharingAllowed")-                     <*> (o .:? "isSharingDisabledByFop"))--instance ToJSON VolumeUserInfoFamilySharing where-        toJSON VolumeUserInfoFamilySharing'{..}-          = object-              (catMaybes-                 [("familyRole" .=) <$> _vuifsFamilyRole,-                  ("isSharingAllowed" .=) <$> _vuifsIsSharingAllowed,-                  ("isSharingDisabledByFop" .=) <$>-                    _vuifsIsSharingDisabledByFop])------- /See:/ 'userSettingsNotificationMoreFromSeries' smart constructor.-newtype UserSettingsNotificationMoreFromSeries =-  UserSettingsNotificationMoreFromSeries'-    { _usnmfsOptedState :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UserSettingsNotificationMoreFromSeries' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'usnmfsOptedState'-userSettingsNotificationMoreFromSeries-    :: UserSettingsNotificationMoreFromSeries-userSettingsNotificationMoreFromSeries =-  UserSettingsNotificationMoreFromSeries' {_usnmfsOptedState = Nothing}---usnmfsOptedState :: Lens' UserSettingsNotificationMoreFromSeries (Maybe Text)-usnmfsOptedState-  = lens _usnmfsOptedState-      (\ s a -> s{_usnmfsOptedState = a})--instance FromJSON-           UserSettingsNotificationMoreFromSeries-         where-        parseJSON-          = withObject "UserSettingsNotificationMoreFromSeries"-              (\ o ->-                 UserSettingsNotificationMoreFromSeries' <$>-                   (o .:? "opted_state"))--instance ToJSON-           UserSettingsNotificationMoreFromSeries-         where-        toJSON UserSettingsNotificationMoreFromSeries'{..}-          = object-              (catMaybes-                 [("opted_state" .=) <$> _usnmfsOptedState])------- /See:/ 'volumeVolumeInfoIndustryIdentifiersItem' smart constructor.-data VolumeVolumeInfoIndustryIdentifiersItem =-  VolumeVolumeInfoIndustryIdentifiersItem'-    { _vviiiiIdentifier :: !(Maybe Text)-    , _vviiiiType       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeVolumeInfoIndustryIdentifiersItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vviiiiIdentifier'------ * 'vviiiiType'-volumeVolumeInfoIndustryIdentifiersItem-    :: VolumeVolumeInfoIndustryIdentifiersItem-volumeVolumeInfoIndustryIdentifiersItem =-  VolumeVolumeInfoIndustryIdentifiersItem'-    {_vviiiiIdentifier = Nothing, _vviiiiType = Nothing}----- | Industry specific volume identifier.-vviiiiIdentifier :: Lens' VolumeVolumeInfoIndustryIdentifiersItem (Maybe Text)-vviiiiIdentifier-  = lens _vviiiiIdentifier-      (\ s a -> s{_vviiiiIdentifier = a})---- | Identifier type. Possible values are ISBN_10, ISBN_13, ISSN and OTHER.-vviiiiType :: Lens' VolumeVolumeInfoIndustryIdentifiersItem (Maybe Text)-vviiiiType-  = lens _vviiiiType (\ s a -> s{_vviiiiType = a})--instance FromJSON-           VolumeVolumeInfoIndustryIdentifiersItem-         where-        parseJSON-          = withObject-              "VolumeVolumeInfoIndustryIdentifiersItem"-              (\ o ->-                 VolumeVolumeInfoIndustryIdentifiersItem' <$>-                   (o .:? "identifier") <*> (o .:? "type"))--instance ToJSON-           VolumeVolumeInfoIndustryIdentifiersItem-         where-        toJSON VolumeVolumeInfoIndustryIdentifiersItem'{..}-          = object-              (catMaybes-                 [("identifier" .=) <$> _vviiiiIdentifier,-                  ("type" .=) <$> _vviiiiType])------- /See:/ 'booksAnnotationsRange' smart constructor.-data BooksAnnotationsRange =-  BooksAnnotationsRange'-    { _barStartOffSet   :: !(Maybe Text)-    , _barEndOffSet     :: !(Maybe Text)-    , _barEndPosition   :: !(Maybe Text)-    , _barStartPosition :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'BooksAnnotationsRange' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'barStartOffSet'------ * 'barEndOffSet'------ * 'barEndPosition'------ * 'barStartPosition'-booksAnnotationsRange-    :: BooksAnnotationsRange-booksAnnotationsRange =-  BooksAnnotationsRange'-    { _barStartOffSet = Nothing-    , _barEndOffSet = Nothing-    , _barEndPosition = Nothing-    , _barStartPosition = Nothing-    }----- | The offset from the starting position.-barStartOffSet :: Lens' BooksAnnotationsRange (Maybe Text)-barStartOffSet-  = lens _barStartOffSet-      (\ s a -> s{_barStartOffSet = a})---- | The offset from the ending position.-barEndOffSet :: Lens' BooksAnnotationsRange (Maybe Text)-barEndOffSet-  = lens _barEndOffSet (\ s a -> s{_barEndOffSet = a})---- | The ending position for the range.-barEndPosition :: Lens' BooksAnnotationsRange (Maybe Text)-barEndPosition-  = lens _barEndPosition-      (\ s a -> s{_barEndPosition = a})---- | The starting position for the range.-barStartPosition :: Lens' BooksAnnotationsRange (Maybe Text)-barStartPosition-  = lens _barStartPosition-      (\ s a -> s{_barStartPosition = a})--instance FromJSON BooksAnnotationsRange where-        parseJSON-          = withObject "BooksAnnotationsRange"-              (\ o ->-                 BooksAnnotationsRange' <$>-                   (o .:? "startOffset") <*> (o .:? "endOffset") <*>-                     (o .:? "endPosition")-                     <*> (o .:? "startPosition"))--instance ToJSON BooksAnnotationsRange where-        toJSON BooksAnnotationsRange'{..}-          = object-              (catMaybes-                 [("startOffset" .=) <$> _barStartOffSet,-                  ("endOffset" .=) <$> _barEndOffSet,-                  ("endPosition" .=) <$> _barEndPosition,-                  ("startPosition" .=) <$> _barStartPosition])------- /See:/ 'layersummaries' smart constructor.-data Layersummaries =-  Layersummaries'-    { _layTotalItems :: !(Maybe (Textual Int32))-    , _layKind       :: !Text-    , _layItems      :: !(Maybe [Layersummary])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Layersummaries' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'layTotalItems'------ * 'layKind'------ * 'layItems'-layersummaries-    :: Layersummaries-layersummaries =-  Layersummaries'-    { _layTotalItems = Nothing-    , _layKind = "books#layersummaries"-    , _layItems = Nothing-    }----- | The total number of layer summaries found.-layTotalItems :: Lens' Layersummaries (Maybe Int32)-layTotalItems-  = lens _layTotalItems-      (\ s a -> s{_layTotalItems = a})-      . mapping _Coerce---- | Resource type.-layKind :: Lens' Layersummaries Text-layKind = lens _layKind (\ s a -> s{_layKind = a})---- | A list of layer summary items.-layItems :: Lens' Layersummaries [Layersummary]-layItems-  = lens _layItems (\ s a -> s{_layItems = a}) .-      _Default-      . _Coerce--instance FromJSON Layersummaries where-        parseJSON-          = withObject "Layersummaries"-              (\ o ->-                 Layersummaries' <$>-                   (o .:? "totalItems") <*>-                     (o .:? "kind" .!= "books#layersummaries")-                     <*> (o .:? "items" .!= mempty))--instance ToJSON Layersummaries where-        toJSON Layersummaries'{..}-          = object-              (catMaybes-                 [("totalItems" .=) <$> _layTotalItems,-                  Just ("kind" .= _layKind),-                  ("items" .=) <$> _layItems])
− gen/Network/Google/Books/Types/Sum.hs 
@@ -1,773 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.Books.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.Books.Types.Sum where--import           Network.Google.Prelude hiding (Bytes)---- | Restrict information returned to a set of selected fields.-data VolumesListProjection-    = Full-      -- ^ @full@-      -- Includes all volume data.-    | Lite-      -- ^ @lite@-      -- Includes a subset of fields in volumeInfo and accessInfo.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesListProjection--instance FromHttpApiData VolumesListProjection where-    parseQueryParam = \case-        "full" -> Right Full-        "lite" -> Right Lite-        x -> Left ("Unable to parse VolumesListProjection from: " <> x)--instance ToHttpApiData VolumesListProjection where-    toQueryParam = \case-        Full -> "full"-        Lite -> "lite"--instance FromJSON VolumesListProjection where-    parseJSON = parseJSONText "VolumesListProjection"--instance ToJSON VolumesListProjection where-    toJSON = toJSONText---- | Restrict information returned to a set of selected fields.-data MyLibraryBookshelvesVolumesListProjection-    = MLBVLPFull-      -- ^ @full@-      -- Includes all volume data.-    | MLBVLPLite-      -- ^ @lite@-      -- Includes a subset of fields in volumeInfo and accessInfo.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable MyLibraryBookshelvesVolumesListProjection--instance FromHttpApiData MyLibraryBookshelvesVolumesListProjection where-    parseQueryParam = \case-        "full" -> Right MLBVLPFull-        "lite" -> Right MLBVLPLite-        x -> Left ("Unable to parse MyLibraryBookshelvesVolumesListProjection from: " <> x)--instance ToHttpApiData MyLibraryBookshelvesVolumesListProjection where-    toQueryParam = \case-        MLBVLPFull -> "full"-        MLBVLPLite -> "lite"--instance FromJSON MyLibraryBookshelvesVolumesListProjection where-    parseJSON = parseJSONText "MyLibraryBookshelvesVolumesListProjection"--instance ToJSON MyLibraryBookshelvesVolumesListProjection where-    toJSON = toJSONText---- | Sort search results.-data VolumesListOrderBy-    = Newest-      -- ^ @newest@-      -- Most recently published.-    | Relevance-      -- ^ @relevance@-      -- Relevance to search terms.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesListOrderBy--instance FromHttpApiData VolumesListOrderBy where-    parseQueryParam = \case-        "newest" -> Right Newest-        "relevance" -> Right Relevance-        x -> Left ("Unable to parse VolumesListOrderBy from: " <> x)--instance ToHttpApiData VolumesListOrderBy where-    toQueryParam = \case-        Newest -> "newest"-        Relevance -> "relevance"--instance FromJSON VolumesListOrderBy where-    parseJSON = parseJSONText "VolumesListOrderBy"--instance ToJSON VolumesListOrderBy where-    toJSON = toJSONText---- | Restrict search to this user\'s library.-data VolumesListLibraryRestrict-    = MyLibrary-      -- ^ @my-library@-      -- Restrict to the user\'s library, any shelf.-    | NoRestrict-      -- ^ @no-restrict@-      -- Do not restrict based on user\'s library.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesListLibraryRestrict--instance FromHttpApiData VolumesListLibraryRestrict where-    parseQueryParam = \case-        "my-library" -> Right MyLibrary-        "no-restrict" -> Right NoRestrict-        x -> Left ("Unable to parse VolumesListLibraryRestrict from: " <> x)--instance ToHttpApiData VolumesListLibraryRestrict where-    toQueryParam = \case-        MyLibrary -> "my-library"-        NoRestrict -> "no-restrict"--instance FromJSON VolumesListLibraryRestrict where-    parseJSON = parseJSONText "VolumesListLibraryRestrict"--instance ToJSON VolumesListLibraryRestrict where-    toJSON = toJSONText---- | The reason for which the book is removed from the library.-data MyLibraryBookshelvesRemoveVolumeReason-    = Onboarding-      -- ^ @ONBOARDING@-      -- Samples removed from the Onboarding flow.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable MyLibraryBookshelvesRemoveVolumeReason--instance FromHttpApiData MyLibraryBookshelvesRemoveVolumeReason where-    parseQueryParam = \case-        "ONBOARDING" -> Right Onboarding-        x -> Left ("Unable to parse MyLibraryBookshelvesRemoveVolumeReason from: " <> x)--instance ToHttpApiData MyLibraryBookshelvesRemoveVolumeReason where-    toQueryParam = \case-        Onboarding -> "ONBOARDING"--instance FromJSON MyLibraryBookshelvesRemoveVolumeReason where-    parseJSON = parseJSONText "MyLibraryBookshelvesRemoveVolumeReason"--instance ToJSON MyLibraryBookshelvesRemoveVolumeReason where-    toJSON = toJSONText---- | The maximum allowed maturity rating of returned volumes. Books with a--- higher maturity rating are filtered out.-data OnboardingListCategoryVolumesMaxAllowedMaturityRating-    = Mature-      -- ^ @mature@-      -- Show books which are rated mature or lower.-    | NotMature-      -- ^ @not-mature@-      -- Show books which are rated not mature.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable OnboardingListCategoryVolumesMaxAllowedMaturityRating--instance FromHttpApiData OnboardingListCategoryVolumesMaxAllowedMaturityRating where-    parseQueryParam = \case-        "mature" -> Right Mature-        "not-mature" -> Right NotMature-        x -> Left ("Unable to parse OnboardingListCategoryVolumesMaxAllowedMaturityRating from: " <> x)--instance ToHttpApiData OnboardingListCategoryVolumesMaxAllowedMaturityRating where-    toQueryParam = \case-        Mature -> "mature"-        NotMature -> "not-mature"--instance FromJSON OnboardingListCategoryVolumesMaxAllowedMaturityRating where-    parseJSON = parseJSONText "OnboardingListCategoryVolumesMaxAllowedMaturityRating"--instance ToJSON OnboardingListCategoryVolumesMaxAllowedMaturityRating where-    toJSON = toJSONText---- | Restrict to volumes by download availability.-data VolumesListDownload-    = Epub-      -- ^ @epub@-      -- All volumes with epub.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesListDownload--instance FromHttpApiData VolumesListDownload where-    parseQueryParam = \case-        "epub" -> Right Epub-        x -> Left ("Unable to parse VolumesListDownload from: " <> x)--instance ToHttpApiData VolumesListDownload where-    toQueryParam = \case-        Epub -> "epub"--instance FromJSON VolumesListDownload where-    parseJSON = parseJSONText "VolumesListDownload"--instance ToJSON VolumesListDownload where-    toJSON = toJSONText---- | Restrict information returned to a set of selected fields.-data VolumesGetProjection-    = VGPFull-      -- ^ @full@-      -- Includes all volume data.-    | VGPLite-      -- ^ @lite@-      -- Includes a subset of fields in volumeInfo and accessInfo.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesGetProjection--instance FromHttpApiData VolumesGetProjection where-    parseQueryParam = \case-        "full" -> Right VGPFull-        "lite" -> Right VGPLite-        x -> Left ("Unable to parse VolumesGetProjection from: " <> x)--instance ToHttpApiData VolumesGetProjection where-    toQueryParam = \case-        VGPFull -> "full"-        VGPLite -> "lite"--instance FromJSON VolumesGetProjection where-    parseJSON = parseJSONText "VolumesGetProjection"--instance ToJSON VolumesGetProjection where-    toJSON = toJSONText---- | Association type.-data VolumesAssociatedListAssociation-    = EndOfSample-      -- ^ @end-of-sample@-      -- Recommendations for display end-of-sample.-    | EndOfVolume-      -- ^ @end-of-volume@-      -- Recommendations for display end-of-volume.-    | RelatedForPlay-      -- ^ @related-for-play@-      -- Related volumes for Play Store.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesAssociatedListAssociation--instance FromHttpApiData VolumesAssociatedListAssociation where-    parseQueryParam = \case-        "end-of-sample" -> Right EndOfSample-        "end-of-volume" -> Right EndOfVolume-        "related-for-play" -> Right RelatedForPlay-        x -> Left ("Unable to parse VolumesAssociatedListAssociation from: " <> x)--instance ToHttpApiData VolumesAssociatedListAssociation where-    toQueryParam = \case-        EndOfSample -> "end-of-sample"-        EndOfVolume -> "end-of-volume"-        RelatedForPlay -> "related-for-play"--instance FromJSON VolumesAssociatedListAssociation where-    parseJSON = parseJSONText "VolumesAssociatedListAssociation"--instance ToJSON VolumesAssociatedListAssociation where-    toJSON = toJSONText---- | Rating to be given to the volume.-data VolumesRecommendedRateRating-    = HaveIt-      -- ^ @HAVE_IT@-      -- Rating indicating a dismissal due to ownership.-    | NotInterested-      -- ^ @NOT_INTERESTED@-      -- Rating indicating a negative dismissal of a volume.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesRecommendedRateRating--instance FromHttpApiData VolumesRecommendedRateRating where-    parseQueryParam = \case-        "HAVE_IT" -> Right HaveIt-        "NOT_INTERESTED" -> Right NotInterested-        x -> Left ("Unable to parse VolumesRecommendedRateRating from: " <> x)--instance ToHttpApiData VolumesRecommendedRateRating where-    toQueryParam = \case-        HaveIt -> "HAVE_IT"-        NotInterested -> "NOT_INTERESTED"--instance FromJSON VolumesRecommendedRateRating where-    parseJSON = parseJSONText "VolumesRecommendedRateRating"--instance ToJSON VolumesRecommendedRateRating where-    toJSON = toJSONText---- | The processing state of the user uploaded volumes to be returned.-data VolumesUserUploadedListProcessingState-    = CompletedFailed-      -- ^ @COMPLETED_FAILED@-      -- The volume processing hase failed.-    | CompletedSuccess-      -- ^ @COMPLETED_SUCCESS@-      -- The volume processing was completed.-    | Running-      -- ^ @RUNNING@-      -- The volume processing is not completed.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesUserUploadedListProcessingState--instance FromHttpApiData VolumesUserUploadedListProcessingState where-    parseQueryParam = \case-        "COMPLETED_FAILED" -> Right CompletedFailed-        "COMPLETED_SUCCESS" -> Right CompletedSuccess-        "RUNNING" -> Right Running-        x -> Left ("Unable to parse VolumesUserUploadedListProcessingState from: " <> x)--instance ToHttpApiData VolumesUserUploadedListProcessingState where-    toQueryParam = \case-        CompletedFailed -> "COMPLETED_FAILED"-        CompletedSuccess -> "COMPLETED_SUCCESS"-        Running -> "RUNNING"--instance FromJSON VolumesUserUploadedListProcessingState where-    parseJSON = parseJSONText "VolumesUserUploadedListProcessingState"--instance ToJSON VolumesUserUploadedListProcessingState where-    toJSON = toJSONText---- | List of features supported by the client, i.e., \'RENTALS\'-data MyConfigSyncVolumeLicensesFeatures-    = Rentals-      -- ^ @RENTALS@-      -- Client supports rentals.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable MyConfigSyncVolumeLicensesFeatures--instance FromHttpApiData MyConfigSyncVolumeLicensesFeatures where-    parseQueryParam = \case-        "RENTALS" -> Right Rentals-        x -> Left ("Unable to parse MyConfigSyncVolumeLicensesFeatures from: " <> x)--instance ToHttpApiData MyConfigSyncVolumeLicensesFeatures where-    toQueryParam = \case-        Rentals -> "RENTALS"--instance FromJSON MyConfigSyncVolumeLicensesFeatures where-    parseJSON = parseJSONText "MyConfigSyncVolumeLicensesFeatures"--instance ToJSON MyConfigSyncVolumeLicensesFeatures where-    toJSON = toJSONText---- | The maximum allowed maturity rating of returned recommendations. Books--- with a higher maturity rating are filtered out.-data VolumesAssociatedListMaxAllowedMaturityRating-    = VALMAMRMature-      -- ^ @mature@-      -- Show books which are rated mature or lower.-    | VALMAMRNotMature-      -- ^ @not-mature@-      -- Show books which are rated not mature.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesAssociatedListMaxAllowedMaturityRating--instance FromHttpApiData VolumesAssociatedListMaxAllowedMaturityRating where-    parseQueryParam = \case-        "mature" -> Right VALMAMRMature-        "not-mature" -> Right VALMAMRNotMature-        x -> Left ("Unable to parse VolumesAssociatedListMaxAllowedMaturityRating from: " <> x)--instance ToHttpApiData VolumesAssociatedListMaxAllowedMaturityRating where-    toQueryParam = \case-        VALMAMRMature -> "mature"-        VALMAMRNotMature -> "not-mature"--instance FromJSON VolumesAssociatedListMaxAllowedMaturityRating where-    parseJSON = parseJSONText "VolumesAssociatedListMaxAllowedMaturityRating"--instance ToJSON VolumesAssociatedListMaxAllowedMaturityRating where-    toJSON = toJSONText---- | Filter search results.-data VolumesListFilter-    = VLFEbooks-      -- ^ @ebooks@-      -- All Google eBooks.-    | VLFFreeEbooks-      -- ^ @free-ebooks@-      -- Google eBook with full volume text viewability.-    | VLFFull-      -- ^ @full@-      -- Public can view entire volume text.-    | VLFPaidEbooks-      -- ^ @paid-ebooks@-      -- Google eBook with a price.-    | VLFPartial-      -- ^ @partial@-      -- Public able to see parts of text.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesListFilter--instance FromHttpApiData VolumesListFilter where-    parseQueryParam = \case-        "ebooks" -> Right VLFEbooks-        "free-ebooks" -> Right VLFFreeEbooks-        "full" -> Right VLFFull-        "paid-ebooks" -> Right VLFPaidEbooks-        "partial" -> Right VLFPartial-        x -> Left ("Unable to parse VolumesListFilter from: " <> x)--instance ToHttpApiData VolumesListFilter where-    toQueryParam = \case-        VLFEbooks -> "ebooks"-        VLFFreeEbooks -> "free-ebooks"-        VLFFull -> "full"-        VLFPaidEbooks -> "paid-ebooks"-        VLFPartial -> "partial"--instance FromJSON VolumesListFilter where-    parseJSON = parseJSONText "VolumesListFilter"--instance ToJSON VolumesListFilter where-    toJSON = toJSONText---- | The maximum allowed maturity rating of returned recommendations. Books--- with a higher maturity rating are filtered out.-data VolumesRecommendedListMaxAllowedMaturityRating-    = VRLMAMRMature-      -- ^ @mature@-      -- Show books which are rated mature or lower.-    | VRLMAMRNotMature-      -- ^ @not-mature@-      -- Show books which are rated not mature.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesRecommendedListMaxAllowedMaturityRating--instance FromHttpApiData VolumesRecommendedListMaxAllowedMaturityRating where-    parseQueryParam = \case-        "mature" -> Right VRLMAMRMature-        "not-mature" -> Right VRLMAMRNotMature-        x -> Left ("Unable to parse VolumesRecommendedListMaxAllowedMaturityRating from: " <> x)--instance ToHttpApiData VolumesRecommendedListMaxAllowedMaturityRating where-    toQueryParam = \case-        VRLMAMRMature -> "mature"-        VRLMAMRNotMature -> "not-mature"--instance FromJSON VolumesRecommendedListMaxAllowedMaturityRating where-    parseJSON = parseJSONText "VolumesRecommendedListMaxAllowedMaturityRating"--instance ToJSON VolumesRecommendedListMaxAllowedMaturityRating where-    toJSON = toJSONText---- | The reason for which the book is added to the library.-data MyLibraryBookshelvesAddVolumeReason-    = MLBAVRIosPrex-      -- ^ @IOS_PREX@-      -- Volumes added from the PREX flow on iOS.-    | MLBAVRIosSearch-      -- ^ @IOS_SEARCH@-      -- Volumes added from the Search flow on iOS.-    | MLBAVROnboarding-      -- ^ @ONBOARDING@-      -- Volumes added from the Onboarding flow.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable MyLibraryBookshelvesAddVolumeReason--instance FromHttpApiData MyLibraryBookshelvesAddVolumeReason where-    parseQueryParam = \case-        "IOS_PREX" -> Right MLBAVRIosPrex-        "IOS_SEARCH" -> Right MLBAVRIosSearch-        "ONBOARDING" -> Right MLBAVROnboarding-        x -> Left ("Unable to parse MyLibraryBookshelvesAddVolumeReason from: " <> x)--instance ToHttpApiData MyLibraryBookshelvesAddVolumeReason where-    toQueryParam = \case-        MLBAVRIosPrex -> "IOS_PREX"-        MLBAVRIosSearch -> "IOS_SEARCH"-        MLBAVROnboarding -> "ONBOARDING"--instance FromJSON MyLibraryBookshelvesAddVolumeReason where-    parseJSON = parseJSONText "MyLibraryBookshelvesAddVolumeReason"--instance ToJSON MyLibraryBookshelvesAddVolumeReason where-    toJSON = toJSONText---- | How the book was acquired-data VolumesMybooksListAcquireMethod-    = FamilyShared-      -- ^ @FAMILY_SHARED@-      -- Books acquired via Family Sharing-    | PreOrdered-      -- ^ @PREORDERED@-      -- Preordered books (not yet available)-    | PreviouslyRented-      -- ^ @PREVIOUSLY_RENTED@-      -- User-rented books past their expiration time-    | PublicDomain-      -- ^ @PUBLIC_DOMAIN@-      -- Public domain books-    | Purchased-      -- ^ @PURCHASED@-      -- Purchased books-    | Rented-      -- ^ @RENTED@-      -- User-rented books-    | Sample-      -- ^ @SAMPLE@-      -- Sample books-    | Uploaded-      -- ^ @UPLOADED@-      -- User uploaded books-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesMybooksListAcquireMethod--instance FromHttpApiData VolumesMybooksListAcquireMethod where-    parseQueryParam = \case-        "FAMILY_SHARED" -> Right FamilyShared-        "PREORDERED" -> Right PreOrdered-        "PREVIOUSLY_RENTED" -> Right PreviouslyRented-        "PUBLIC_DOMAIN" -> Right PublicDomain-        "PURCHASED" -> Right Purchased-        "RENTED" -> Right Rented-        "SAMPLE" -> Right Sample-        "UPLOADED" -> Right Uploaded-        x -> Left ("Unable to parse VolumesMybooksListAcquireMethod from: " <> x)--instance ToHttpApiData VolumesMybooksListAcquireMethod where-    toQueryParam = \case-        FamilyShared -> "FAMILY_SHARED"-        PreOrdered -> "PREORDERED"-        PreviouslyRented -> "PREVIOUSLY_RENTED"-        PublicDomain -> "PUBLIC_DOMAIN"-        Purchased -> "PURCHASED"-        Rented -> "RENTED"-        Sample -> "SAMPLE"-        Uploaded -> "UPLOADED"--instance FromJSON VolumesMybooksListAcquireMethod where-    parseJSON = parseJSONText "VolumesMybooksListAcquireMethod"--instance ToJSON VolumesMybooksListAcquireMethod where-    toJSON = toJSONText---- | The maximum allowed maturity rating of returned recommendations. Books--- with a higher maturity rating are filtered out.-data PersonalizedstreamGetMaxAllowedMaturityRating-    = PGMAMRMature-      -- ^ @mature@-      -- Show books which are rated mature or lower.-    | PGMAMRNotMature-      -- ^ @not-mature@-      -- Show books which are rated not mature.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable PersonalizedstreamGetMaxAllowedMaturityRating--instance FromHttpApiData PersonalizedstreamGetMaxAllowedMaturityRating where-    parseQueryParam = \case-        "mature" -> Right PGMAMRMature-        "not-mature" -> Right PGMAMRNotMature-        x -> Left ("Unable to parse PersonalizedstreamGetMaxAllowedMaturityRating from: " <> x)--instance ToHttpApiData PersonalizedstreamGetMaxAllowedMaturityRating where-    toQueryParam = \case-        PGMAMRMature -> "mature"-        PGMAMRNotMature -> "not-mature"--instance FromJSON PersonalizedstreamGetMaxAllowedMaturityRating where-    parseJSON = parseJSONText "PersonalizedstreamGetMaxAllowedMaturityRating"--instance ToJSON PersonalizedstreamGetMaxAllowedMaturityRating where-    toJSON = toJSONText---- | Restrict to books or magazines.-data VolumesListPrintType-    = All-      -- ^ @all@-      -- All volume content types.-    | Books-      -- ^ @books@-      -- Just books.-    | Magazines-      -- ^ @magazines@-      -- Just magazines.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesListPrintType--instance FromHttpApiData VolumesListPrintType where-    parseQueryParam = \case-        "all" -> Right All-        "books" -> Right Books-        "magazines" -> Right Magazines-        x -> Left ("Unable to parse VolumesListPrintType from: " <> x)--instance ToHttpApiData VolumesListPrintType where-    toQueryParam = \case-        All -> "all"-        Books -> "books"-        Magazines -> "magazines"--instance FromJSON VolumesListPrintType where-    parseJSON = parseJSONText "VolumesListPrintType"--instance ToJSON VolumesListPrintType where-    toJSON = toJSONText---- | The processing state of the user uploaded volumes to be returned.--- Applicable only if the UPLOADED is specified in the acquireMethod.-data VolumesMybooksListProcessingState-    = VMLPSCompletedFailed-      -- ^ @COMPLETED_FAILED@-      -- The volume processing hase failed.-    | VMLPSCompletedSuccess-      -- ^ @COMPLETED_SUCCESS@-      -- The volume processing was completed.-    | VMLPSRunning-      -- ^ @RUNNING@-      -- The volume processing is not completed.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesMybooksListProcessingState--instance FromHttpApiData VolumesMybooksListProcessingState where-    parseQueryParam = \case-        "COMPLETED_FAILED" -> Right VMLPSCompletedFailed-        "COMPLETED_SUCCESS" -> Right VMLPSCompletedSuccess-        "RUNNING" -> Right VMLPSRunning-        x -> Left ("Unable to parse VolumesMybooksListProcessingState from: " <> x)--instance ToHttpApiData VolumesMybooksListProcessingState where-    toQueryParam = \case-        VMLPSCompletedFailed -> "COMPLETED_FAILED"-        VMLPSCompletedSuccess -> "COMPLETED_SUCCESS"-        VMLPSRunning -> "RUNNING"--instance FromJSON VolumesMybooksListProcessingState where-    parseJSON = parseJSONText "VolumesMybooksListProcessingState"--instance ToJSON VolumesMybooksListProcessingState where-    toJSON = toJSONText---- | The type of access license to request. If not specified, the default is--- BOTH.-data MyConfigRequestAccessLicenseTypes-    = Both-      -- ^ @BOTH@-      -- Both concurrent and download licenses.-    | Concurrent-      -- ^ @CONCURRENT@-      -- Concurrent access license.-    | Download-      -- ^ @DOWNLOAD@-      -- Offline download access license.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable MyConfigRequestAccessLicenseTypes--instance FromHttpApiData MyConfigRequestAccessLicenseTypes where-    parseQueryParam = \case-        "BOTH" -> Right Both-        "CONCURRENT" -> Right Concurrent-        "DOWNLOAD" -> Right Download-        x -> Left ("Unable to parse MyConfigRequestAccessLicenseTypes from: " <> x)--instance ToHttpApiData MyConfigRequestAccessLicenseTypes where-    toQueryParam = \case-        Both -> "BOTH"-        Concurrent -> "CONCURRENT"-        Download -> "DOWNLOAD"--instance FromJSON MyConfigRequestAccessLicenseTypes where-    parseJSON = parseJSONText "MyConfigRequestAccessLicenseTypes"--instance ToJSON MyConfigRequestAccessLicenseTypes where-    toJSON = toJSONText---- | Action that caused this reading position to be set.-data MyLibraryReadingPositionsSetPositionAction-    = Bookmark-      -- ^ @bookmark@-      -- User chose bookmark within volume.-    | Chapter-      -- ^ @chapter@-      -- User selected chapter from list.-    | NextPage-      -- ^ @next-page@-      -- Next page event.-    | PrevPage-      -- ^ @prev-page@-      -- Previous page event.-    | Scroll-      -- ^ @scroll@-      -- User navigated to page.-    | Search-      -- ^ @search@-      -- User chose search results within volume.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable MyLibraryReadingPositionsSetPositionAction--instance FromHttpApiData MyLibraryReadingPositionsSetPositionAction where-    parseQueryParam = \case-        "bookmark" -> Right Bookmark-        "chapter" -> Right Chapter-        "next-page" -> Right NextPage-        "prev-page" -> Right PrevPage-        "scroll" -> Right Scroll-        "search" -> Right Search-        x -> Left ("Unable to parse MyLibraryReadingPositionsSetPositionAction from: " <> x)--instance ToHttpApiData MyLibraryReadingPositionsSetPositionAction where-    toQueryParam = \case-        Bookmark -> "bookmark"-        Chapter -> "chapter"-        NextPage -> "next-page"-        PrevPage -> "prev-page"-        Scroll -> "scroll"-        Search -> "search"--instance FromJSON MyLibraryReadingPositionsSetPositionAction where-    parseJSON = parseJSONText "MyLibraryReadingPositionsSetPositionAction"--instance ToJSON MyLibraryReadingPositionsSetPositionAction where-    toJSON = toJSONText---- | The maximum allowed maturity rating of returned recommendations. Books--- with a higher maturity rating are filtered out.-data VolumesListMaxAllowedMaturityRating-    = VLMAMRMature-      -- ^ @mature@-      -- Show books which are rated mature or lower.-    | VLMAMRNotMature-      -- ^ @not-mature@-      -- Show books which are rated not mature.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable VolumesListMaxAllowedMaturityRating--instance FromHttpApiData VolumesListMaxAllowedMaturityRating where-    parseQueryParam = \case-        "mature" -> Right VLMAMRMature-        "not-mature" -> Right VLMAMRNotMature-        x -> Left ("Unable to parse VolumesListMaxAllowedMaturityRating from: " <> x)--instance ToHttpApiData VolumesListMaxAllowedMaturityRating where-    toQueryParam = \case-        VLMAMRMature -> "mature"-        VLMAMRNotMature -> "not-mature"--instance FromJSON VolumesListMaxAllowedMaturityRating where-    parseJSON = parseJSONText "VolumesListMaxAllowedMaturityRating"--instance ToJSON VolumesListMaxAllowedMaturityRating where-    toJSON = toJSONText
− gen/Network/Google/Resource/Books/Bookshelves/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.Books.Bookshelves.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 metadata for a specific bookshelf for the specified user.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.bookshelves.get@.-module Network.Google.Resource.Books.Bookshelves.Get-    (-    -- * REST Resource-      BookshelvesGetResource--    -- * Creating a Request-    , bookshelvesGet-    , BookshelvesGet--    -- * Request Lenses-    , bgUserId-    , bgShelf-    , bgSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.bookshelves.get@ method which the--- 'BookshelvesGet' request conforms to.-type BookshelvesGetResource =-     "books" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "bookshelves" :>-               Capture "shelf" Text :>-                 QueryParam "source" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Bookshelf---- | Retrieves metadata for a specific bookshelf for the specified user.------ /See:/ 'bookshelvesGet' smart constructor.-data BookshelvesGet =-  BookshelvesGet'-    { _bgUserId :: !Text-    , _bgShelf  :: !Text-    , _bgSource :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'BookshelvesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bgUserId'------ * 'bgShelf'------ * 'bgSource'-bookshelvesGet-    :: Text -- ^ 'bgUserId'-    -> Text -- ^ 'bgShelf'-    -> BookshelvesGet-bookshelvesGet pBgUserId_ pBgShelf_ =-  BookshelvesGet'-    {_bgUserId = pBgUserId_, _bgShelf = pBgShelf_, _bgSource = Nothing}----- | ID of user for whom to retrieve bookshelves.-bgUserId :: Lens' BookshelvesGet Text-bgUserId = lens _bgUserId (\ s a -> s{_bgUserId = a})---- | ID of bookshelf to retrieve.-bgShelf :: Lens' BookshelvesGet Text-bgShelf = lens _bgShelf (\ s a -> s{_bgShelf = a})---- | String to identify the originator of this request.-bgSource :: Lens' BookshelvesGet (Maybe Text)-bgSource = lens _bgSource (\ s a -> s{_bgSource = a})--instance GoogleRequest BookshelvesGet where-        type Rs BookshelvesGet = Bookshelf-        type Scopes BookshelvesGet =-             '["https://www.googleapis.com/auth/books"]-        requestClient BookshelvesGet'{..}-          = go _bgUserId _bgShelf _bgSource (Just AltJSON)-              booksService-          where go-                  = buildClient (Proxy :: Proxy BookshelvesGetResource)-                      mempty
− gen/Network/Google/Resource/Books/Bookshelves/List.hs 
@@ -1,96 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Books.Bookshelves.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 public bookshelves for the specified user.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.bookshelves.list@.-module Network.Google.Resource.Books.Bookshelves.List-    (-    -- * REST Resource-      BookshelvesListResource--    -- * Creating a Request-    , bookshelvesList-    , BookshelvesList--    -- * Request Lenses-    , blUserId-    , blSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.bookshelves.list@ method which the--- 'BookshelvesList' request conforms to.-type BookshelvesListResource =-     "books" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "bookshelves" :>-               QueryParam "source" Text :>-                 QueryParam "alt" AltJSON :> Get '[JSON] Bookshelves---- | Retrieves a list of public bookshelves for the specified user.------ /See:/ 'bookshelvesList' smart constructor.-data BookshelvesList =-  BookshelvesList'-    { _blUserId :: !Text-    , _blSource :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'BookshelvesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'blUserId'------ * 'blSource'-bookshelvesList-    :: Text -- ^ 'blUserId'-    -> BookshelvesList-bookshelvesList pBlUserId_ =-  BookshelvesList' {_blUserId = pBlUserId_, _blSource = Nothing}----- | ID of user for whom to retrieve bookshelves.-blUserId :: Lens' BookshelvesList Text-blUserId = lens _blUserId (\ s a -> s{_blUserId = a})---- | String to identify the originator of this request.-blSource :: Lens' BookshelvesList (Maybe Text)-blSource = lens _blSource (\ s a -> s{_blSource = a})--instance GoogleRequest BookshelvesList where-        type Rs BookshelvesList = Bookshelves-        type Scopes BookshelvesList =-             '["https://www.googleapis.com/auth/books"]-        requestClient BookshelvesList'{..}-          = go _blUserId _blSource (Just AltJSON) booksService-          where go-                  = buildClient-                      (Proxy :: Proxy BookshelvesListResource)-                      mempty
− gen/Network/Google/Resource/Books/Bookshelves/Volumes/List.hs 
@@ -1,155 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Books.Bookshelves.Volumes.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 volumes in a specific bookshelf for the specified user.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.bookshelves.volumes.list@.-module Network.Google.Resource.Books.Bookshelves.Volumes.List-    (-    -- * REST Resource-      BookshelvesVolumesListResource--    -- * Creating a Request-    , bookshelvesVolumesList-    , BookshelvesVolumesList--    -- * Request Lenses-    , bvlUserId-    , bvlShelf-    , bvlSource-    , bvlStartIndex-    , bvlMaxResults-    , bvlShowPreOrders-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.bookshelves.volumes.list@ method which the--- 'BookshelvesVolumesList' request conforms to.-type BookshelvesVolumesListResource =-     "books" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "bookshelves" :>-               Capture "shelf" Text :>-                 "volumes" :>-                   QueryParam "source" Text :>-                     QueryParam "startIndex" (Textual Word32) :>-                       QueryParam "maxResults" (Textual Word32) :>-                         QueryParam "showPreorders" Bool :>-                           QueryParam "alt" AltJSON :> Get '[JSON] Volumes---- | Retrieves volumes in a specific bookshelf for the specified user.------ /See:/ 'bookshelvesVolumesList' smart constructor.-data BookshelvesVolumesList =-  BookshelvesVolumesList'-    { _bvlUserId        :: !Text-    , _bvlShelf         :: !Text-    , _bvlSource        :: !(Maybe Text)-    , _bvlStartIndex    :: !(Maybe (Textual Word32))-    , _bvlMaxResults    :: !(Maybe (Textual Word32))-    , _bvlShowPreOrders :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'BookshelvesVolumesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bvlUserId'------ * 'bvlShelf'------ * 'bvlSource'------ * 'bvlStartIndex'------ * 'bvlMaxResults'------ * 'bvlShowPreOrders'-bookshelvesVolumesList-    :: Text -- ^ 'bvlUserId'-    -> Text -- ^ 'bvlShelf'-    -> BookshelvesVolumesList-bookshelvesVolumesList pBvlUserId_ pBvlShelf_ =-  BookshelvesVolumesList'-    { _bvlUserId = pBvlUserId_-    , _bvlShelf = pBvlShelf_-    , _bvlSource = Nothing-    , _bvlStartIndex = Nothing-    , _bvlMaxResults = Nothing-    , _bvlShowPreOrders = Nothing-    }----- | ID of user for whom to retrieve bookshelf volumes.-bvlUserId :: Lens' BookshelvesVolumesList Text-bvlUserId-  = lens _bvlUserId (\ s a -> s{_bvlUserId = a})---- | ID of bookshelf to retrieve volumes.-bvlShelf :: Lens' BookshelvesVolumesList Text-bvlShelf = lens _bvlShelf (\ s a -> s{_bvlShelf = a})---- | String to identify the originator of this request.-bvlSource :: Lens' BookshelvesVolumesList (Maybe Text)-bvlSource-  = lens _bvlSource (\ s a -> s{_bvlSource = a})---- | Index of the first element to return (starts at 0)-bvlStartIndex :: Lens' BookshelvesVolumesList (Maybe Word32)-bvlStartIndex-  = lens _bvlStartIndex-      (\ s a -> s{_bvlStartIndex = a})-      . mapping _Coerce---- | Maximum number of results to return-bvlMaxResults :: Lens' BookshelvesVolumesList (Maybe Word32)-bvlMaxResults-  = lens _bvlMaxResults-      (\ s a -> s{_bvlMaxResults = a})-      . mapping _Coerce---- | Set to true to show pre-ordered books. Defaults to false.-bvlShowPreOrders :: Lens' BookshelvesVolumesList (Maybe Bool)-bvlShowPreOrders-  = lens _bvlShowPreOrders-      (\ s a -> s{_bvlShowPreOrders = a})--instance GoogleRequest BookshelvesVolumesList where-        type Rs BookshelvesVolumesList = Volumes-        type Scopes BookshelvesVolumesList =-             '["https://www.googleapis.com/auth/books"]-        requestClient BookshelvesVolumesList'{..}-          = go _bvlUserId _bvlShelf _bvlSource _bvlStartIndex-              _bvlMaxResults-              _bvlShowPreOrders-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy BookshelvesVolumesListResource)-                      mempty
− gen/Network/Google/Resource/Books/CloudLoading/AddBook.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.Books.CloudLoading.AddBook--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ -- |------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.cloudloading.addBook@.-module Network.Google.Resource.Books.CloudLoading.AddBook-    (-    -- * REST Resource-      CloudLoadingAddBookResource--    -- * Creating a Request-    , cloudLoadingAddBook-    , CloudLoadingAddBook--    -- * Request Lenses-    , clabMimeType-    , clabUploadClientToken-    , clabName-    , clabDriveDocumentId-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.cloudloading.addBook@ method which the--- 'CloudLoadingAddBook' request conforms to.-type CloudLoadingAddBookResource =-     "books" :>-       "v1" :>-         "cloudloading" :>-           "addBook" :>-             QueryParam "mime_type" Text :>-               QueryParam "upload_client_token" Text :>-                 QueryParam "name" Text :>-                   QueryParam "drive_document_id" Text :>-                     QueryParam "alt" AltJSON :>-                       Post '[JSON] BooksCloudLoadingResource---- |------ /See:/ 'cloudLoadingAddBook' smart constructor.-data CloudLoadingAddBook =-  CloudLoadingAddBook'-    { _clabMimeType          :: !(Maybe Text)-    , _clabUploadClientToken :: !(Maybe Text)-    , _clabName              :: !(Maybe Text)-    , _clabDriveDocumentId   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CloudLoadingAddBook' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'clabMimeType'------ * 'clabUploadClientToken'------ * 'clabName'------ * 'clabDriveDocumentId'-cloudLoadingAddBook-    :: CloudLoadingAddBook-cloudLoadingAddBook =-  CloudLoadingAddBook'-    { _clabMimeType = Nothing-    , _clabUploadClientToken = Nothing-    , _clabName = Nothing-    , _clabDriveDocumentId = Nothing-    }----- | The document MIME type. It can be set only if the drive_document_id is--- set.-clabMimeType :: Lens' CloudLoadingAddBook (Maybe Text)-clabMimeType-  = lens _clabMimeType (\ s a -> s{_clabMimeType = a})--clabUploadClientToken :: Lens' CloudLoadingAddBook (Maybe Text)-clabUploadClientToken-  = lens _clabUploadClientToken-      (\ s a -> s{_clabUploadClientToken = a})---- | The document name. It can be set only if the drive_document_id is set.-clabName :: Lens' CloudLoadingAddBook (Maybe Text)-clabName = lens _clabName (\ s a -> s{_clabName = a})---- | A drive document id. The upload_client_token must not be set.-clabDriveDocumentId :: Lens' CloudLoadingAddBook (Maybe Text)-clabDriveDocumentId-  = lens _clabDriveDocumentId-      (\ s a -> s{_clabDriveDocumentId = a})--instance GoogleRequest CloudLoadingAddBook where-        type Rs CloudLoadingAddBook =-             BooksCloudLoadingResource-        type Scopes CloudLoadingAddBook =-             '["https://www.googleapis.com/auth/books"]-        requestClient CloudLoadingAddBook'{..}-          = go _clabMimeType _clabUploadClientToken _clabName-              _clabDriveDocumentId-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy CloudLoadingAddBookResource)-                      mempty
− gen/Network/Google/Resource/Books/CloudLoading/DeleteBook.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.Books.CloudLoading.DeleteBook--- Copyright   : (c) 2015-2016 Brendan 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 the book and its contents------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.cloudloading.deleteBook@.-module Network.Google.Resource.Books.CloudLoading.DeleteBook-    (-    -- * REST Resource-      CloudLoadingDeleteBookResource--    -- * Creating a Request-    , cloudLoadingDeleteBook-    , CloudLoadingDeleteBook--    -- * Request Lenses-    , cldbVolumeId-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.cloudloading.deleteBook@ method which the--- 'CloudLoadingDeleteBook' request conforms to.-type CloudLoadingDeleteBookResource =-     "books" :>-       "v1" :>-         "cloudloading" :>-           "deleteBook" :>-             QueryParam "volumeId" Text :>-               QueryParam "alt" AltJSON :> Post '[JSON] ()---- | Remove the book and its contents------ /See:/ 'cloudLoadingDeleteBook' smart constructor.-newtype CloudLoadingDeleteBook =-  CloudLoadingDeleteBook'-    { _cldbVolumeId :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CloudLoadingDeleteBook' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cldbVolumeId'-cloudLoadingDeleteBook-    :: Text -- ^ 'cldbVolumeId'-    -> CloudLoadingDeleteBook-cloudLoadingDeleteBook pCldbVolumeId_ =-  CloudLoadingDeleteBook' {_cldbVolumeId = pCldbVolumeId_}----- | The id of the book to be removed.-cldbVolumeId :: Lens' CloudLoadingDeleteBook Text-cldbVolumeId-  = lens _cldbVolumeId (\ s a -> s{_cldbVolumeId = a})--instance GoogleRequest CloudLoadingDeleteBook where-        type Rs CloudLoadingDeleteBook = ()-        type Scopes CloudLoadingDeleteBook =-             '["https://www.googleapis.com/auth/books"]-        requestClient CloudLoadingDeleteBook'{..}-          = go (Just _cldbVolumeId) (Just AltJSON) booksService-          where go-                  = buildClient-                      (Proxy :: Proxy CloudLoadingDeleteBookResource)-                      mempty
− gen/Network/Google/Resource/Books/CloudLoading/UpdateBook.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.Books.CloudLoading.UpdateBook--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ -- |------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.cloudloading.updateBook@.-module Network.Google.Resource.Books.CloudLoading.UpdateBook-    (-    -- * REST Resource-      CloudLoadingUpdateBookResource--    -- * Creating a Request-    , cloudLoadingUpdateBook-    , CloudLoadingUpdateBook--    -- * Request Lenses-    , clubPayload-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.cloudloading.updateBook@ method which the--- 'CloudLoadingUpdateBook' request conforms to.-type CloudLoadingUpdateBookResource =-     "books" :>-       "v1" :>-         "cloudloading" :>-           "updateBook" :>-             QueryParam "alt" AltJSON :>-               ReqBody '[JSON] BooksCloudLoadingResource :>-                 Post '[JSON] BooksCloudLoadingResource---- |------ /See:/ 'cloudLoadingUpdateBook' smart constructor.-newtype CloudLoadingUpdateBook =-  CloudLoadingUpdateBook'-    { _clubPayload :: BooksCloudLoadingResource-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CloudLoadingUpdateBook' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'clubPayload'-cloudLoadingUpdateBook-    :: BooksCloudLoadingResource -- ^ 'clubPayload'-    -> CloudLoadingUpdateBook-cloudLoadingUpdateBook pClubPayload_ =-  CloudLoadingUpdateBook' {_clubPayload = pClubPayload_}----- | Multipart request metadata.-clubPayload :: Lens' CloudLoadingUpdateBook BooksCloudLoadingResource-clubPayload-  = lens _clubPayload (\ s a -> s{_clubPayload = a})--instance GoogleRequest CloudLoadingUpdateBook where-        type Rs CloudLoadingUpdateBook =-             BooksCloudLoadingResource-        type Scopes CloudLoadingUpdateBook =-             '["https://www.googleapis.com/auth/books"]-        requestClient CloudLoadingUpdateBook'{..}-          = go (Just AltJSON) _clubPayload booksService-          where go-                  = buildClient-                      (Proxy :: Proxy CloudLoadingUpdateBookResource)-                      mempty
− gen/Network/Google/Resource/Books/Dictionary/ListOfflineMetadata.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.Books.Dictionary.ListOfflineMetadata--- Copyright   : (c) 2015-2016 Brendan 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 a list of offline dictionary metadata available------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.dictionary.listOfflineMetadata@.-module Network.Google.Resource.Books.Dictionary.ListOfflineMetadata-    (-    -- * REST Resource-      DictionaryListOfflineMetadataResource--    -- * Creating a Request-    , dictionaryListOfflineMetadata-    , DictionaryListOfflineMetadata--    -- * Request Lenses-    , dlomCpksver-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.dictionary.listOfflineMetadata@ method which the--- 'DictionaryListOfflineMetadata' request conforms to.-type DictionaryListOfflineMetadataResource =-     "books" :>-       "v1" :>-         "dictionary" :>-           "listOfflineMetadata" :>-             QueryParam "cpksver" Text :>-               QueryParam "alt" AltJSON :> Get '[JSON] Metadata---- | Returns a list of offline dictionary metadata available------ /See:/ 'dictionaryListOfflineMetadata' smart constructor.-newtype DictionaryListOfflineMetadata =-  DictionaryListOfflineMetadata'-    { _dlomCpksver :: Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DictionaryListOfflineMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dlomCpksver'-dictionaryListOfflineMetadata-    :: Text -- ^ 'dlomCpksver'-    -> DictionaryListOfflineMetadata-dictionaryListOfflineMetadata pDlomCpksver_ =-  DictionaryListOfflineMetadata' {_dlomCpksver = pDlomCpksver_}----- | The device\/version ID from which to request the data.-dlomCpksver :: Lens' DictionaryListOfflineMetadata Text-dlomCpksver-  = lens _dlomCpksver (\ s a -> s{_dlomCpksver = a})--instance GoogleRequest DictionaryListOfflineMetadata-         where-        type Rs DictionaryListOfflineMetadata = Metadata-        type Scopes DictionaryListOfflineMetadata =-             '["https://www.googleapis.com/auth/books"]-        requestClient DictionaryListOfflineMetadata'{..}-          = go (Just _dlomCpksver) (Just AltJSON) booksService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy DictionaryListOfflineMetadataResource)-                      mempty
− gen/Network/Google/Resource/Books/Familysharing/GetFamilyInfo.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.Books.Familysharing.GetFamilyInfo--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets information regarding the family that the user is part of.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.familysharing.getFamilyInfo@.-module Network.Google.Resource.Books.Familysharing.GetFamilyInfo-    (-    -- * REST Resource-      FamilysharingGetFamilyInfoResource--    -- * Creating a Request-    , familysharingGetFamilyInfo-    , FamilysharingGetFamilyInfo--    -- * Request Lenses-    , fgfiSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.familysharing.getFamilyInfo@ method which the--- 'FamilysharingGetFamilyInfo' request conforms to.-type FamilysharingGetFamilyInfoResource =-     "books" :>-       "v1" :>-         "familysharing" :>-           "getFamilyInfo" :>-             QueryParam "source" Text :>-               QueryParam "alt" AltJSON :> Get '[JSON] FamilyInfo---- | Gets information regarding the family that the user is part of.------ /See:/ 'familysharingGetFamilyInfo' smart constructor.-newtype FamilysharingGetFamilyInfo =-  FamilysharingGetFamilyInfo'-    { _fgfiSource :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FamilysharingGetFamilyInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fgfiSource'-familysharingGetFamilyInfo-    :: FamilysharingGetFamilyInfo-familysharingGetFamilyInfo = FamilysharingGetFamilyInfo' {_fgfiSource = Nothing}----- | String to identify the originator of this request.-fgfiSource :: Lens' FamilysharingGetFamilyInfo (Maybe Text)-fgfiSource-  = lens _fgfiSource (\ s a -> s{_fgfiSource = a})--instance GoogleRequest FamilysharingGetFamilyInfo-         where-        type Rs FamilysharingGetFamilyInfo = FamilyInfo-        type Scopes FamilysharingGetFamilyInfo =-             '["https://www.googleapis.com/auth/books"]-        requestClient FamilysharingGetFamilyInfo'{..}-          = go _fgfiSource (Just AltJSON) booksService-          where go-                  = buildClient-                      (Proxy :: Proxy FamilysharingGetFamilyInfoResource)-                      mempty
− gen/Network/Google/Resource/Books/Familysharing/Share.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.Books.Familysharing.Share--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Initiates sharing of the content with the user\'s family. Empty response--- indicates success.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.familysharing.share@.-module Network.Google.Resource.Books.Familysharing.Share-    (-    -- * REST Resource-      FamilysharingShareResource--    -- * Creating a Request-    , familysharingShare-    , FamilysharingShare--    -- * Request Lenses-    , fsVolumeId-    , fsSource-    , fsDocId-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.familysharing.share@ method which the--- 'FamilysharingShare' request conforms to.-type FamilysharingShareResource =-     "books" :>-       "v1" :>-         "familysharing" :>-           "share" :>-             QueryParam "volumeId" Text :>-               QueryParam "source" Text :>-                 QueryParam "docId" Text :>-                   QueryParam "alt" AltJSON :> Post '[JSON] ()---- | Initiates sharing of the content with the user\'s family. Empty response--- indicates success.------ /See:/ 'familysharingShare' smart constructor.-data FamilysharingShare =-  FamilysharingShare'-    { _fsVolumeId :: !(Maybe Text)-    , _fsSource   :: !(Maybe Text)-    , _fsDocId    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FamilysharingShare' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fsVolumeId'------ * 'fsSource'------ * 'fsDocId'-familysharingShare-    :: FamilysharingShare-familysharingShare =-  FamilysharingShare'-    {_fsVolumeId = Nothing, _fsSource = Nothing, _fsDocId = Nothing}----- | The volume to share.-fsVolumeId :: Lens' FamilysharingShare (Maybe Text)-fsVolumeId-  = lens _fsVolumeId (\ s a -> s{_fsVolumeId = a})---- | String to identify the originator of this request.-fsSource :: Lens' FamilysharingShare (Maybe Text)-fsSource = lens _fsSource (\ s a -> s{_fsSource = a})---- | The docid to share.-fsDocId :: Lens' FamilysharingShare (Maybe Text)-fsDocId = lens _fsDocId (\ s a -> s{_fsDocId = a})--instance GoogleRequest FamilysharingShare where-        type Rs FamilysharingShare = ()-        type Scopes FamilysharingShare =-             '["https://www.googleapis.com/auth/books"]-        requestClient FamilysharingShare'{..}-          = go _fsVolumeId _fsSource _fsDocId (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy FamilysharingShareResource)-                      mempty
− gen/Network/Google/Resource/Books/Familysharing/Unshare.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.Books.Familysharing.Unshare--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Initiates revoking content that has already been shared with the user\'s--- family. Empty response indicates success.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.familysharing.unshare@.-module Network.Google.Resource.Books.Familysharing.Unshare-    (-    -- * REST Resource-      FamilysharingUnshareResource--    -- * Creating a Request-    , familysharingUnshare-    , FamilysharingUnshare--    -- * Request Lenses-    , fuVolumeId-    , fuSource-    , fuDocId-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.familysharing.unshare@ method which the--- 'FamilysharingUnshare' request conforms to.-type FamilysharingUnshareResource =-     "books" :>-       "v1" :>-         "familysharing" :>-           "unshare" :>-             QueryParam "volumeId" Text :>-               QueryParam "source" Text :>-                 QueryParam "docId" Text :>-                   QueryParam "alt" AltJSON :> Post '[JSON] ()---- | Initiates revoking content that has already been shared with the user\'s--- family. Empty response indicates success.------ /See:/ 'familysharingUnshare' smart constructor.-data FamilysharingUnshare =-  FamilysharingUnshare'-    { _fuVolumeId :: !(Maybe Text)-    , _fuSource   :: !(Maybe Text)-    , _fuDocId    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FamilysharingUnshare' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fuVolumeId'------ * 'fuSource'------ * 'fuDocId'-familysharingUnshare-    :: FamilysharingUnshare-familysharingUnshare =-  FamilysharingUnshare'-    {_fuVolumeId = Nothing, _fuSource = Nothing, _fuDocId = Nothing}----- | The volume to unshare.-fuVolumeId :: Lens' FamilysharingUnshare (Maybe Text)-fuVolumeId-  = lens _fuVolumeId (\ s a -> s{_fuVolumeId = a})---- | String to identify the originator of this request.-fuSource :: Lens' FamilysharingUnshare (Maybe Text)-fuSource = lens _fuSource (\ s a -> s{_fuSource = a})---- | The docid to unshare.-fuDocId :: Lens' FamilysharingUnshare (Maybe Text)-fuDocId = lens _fuDocId (\ s a -> s{_fuDocId = a})--instance GoogleRequest FamilysharingUnshare where-        type Rs FamilysharingUnshare = ()-        type Scopes FamilysharingUnshare =-             '["https://www.googleapis.com/auth/books"]-        requestClient FamilysharingUnshare'{..}-          = go _fuVolumeId _fuSource _fuDocId (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy FamilysharingUnshareResource)-                      mempty
− gen/Network/Google/Resource/Books/Layers/AnnotationData/Get.hs 
@@ -1,212 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Books.Layers.AnnotationData.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the annotation data.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.layers.annotationData.get@.-module Network.Google.Resource.Books.Layers.AnnotationData.Get-    (-    -- * REST Resource-      LayersAnnotationDataGetResource--    -- * Creating a Request-    , layersAnnotationDataGet-    , LayersAnnotationDataGet--    -- * Request Lenses-    , ladgW-    , ladgScale-    , ladgLocale-    , ladgContentVersion-    , ladgAllowWebDefinitions-    , ladgAnnotationDataId-    , ladgVolumeId-    , ladgSource-    , ladgH-    , ladgLayerId-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.layers.annotationData.get@ method which the--- 'LayersAnnotationDataGet' request conforms to.-type LayersAnnotationDataGetResource =-     "books" :>-       "v1" :>-         "volumes" :>-           Capture "volumeId" Text :>-             "layers" :>-               Capture "layerId" Text :>-                 "data" :>-                   Capture "annotationDataId" Text :>-                     QueryParam "contentVersion" Text :>-                       QueryParam "w" (Textual Int32) :>-                         QueryParam "scale" (Textual Int32) :>-                           QueryParam "locale" Text :>-                             QueryParam "allowWebDefinitions" Bool :>-                               QueryParam "source" Text :>-                                 QueryParam "h" (Textual Int32) :>-                                   QueryParam "alt" AltJSON :>-                                     Get '[JSON] AnnotationData---- | Gets the annotation data.------ /See:/ 'layersAnnotationDataGet' smart constructor.-data LayersAnnotationDataGet =-  LayersAnnotationDataGet'-    { _ladgW                   :: !(Maybe (Textual Int32))-    , _ladgScale               :: !(Maybe (Textual Int32))-    , _ladgLocale              :: !(Maybe Text)-    , _ladgContentVersion      :: !Text-    , _ladgAllowWebDefinitions :: !(Maybe Bool)-    , _ladgAnnotationDataId    :: !Text-    , _ladgVolumeId            :: !Text-    , _ladgSource              :: !(Maybe Text)-    , _ladgH                   :: !(Maybe (Textual Int32))-    , _ladgLayerId             :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LayersAnnotationDataGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ladgW'------ * 'ladgScale'------ * 'ladgLocale'------ * 'ladgContentVersion'------ * 'ladgAllowWebDefinitions'------ * 'ladgAnnotationDataId'------ * 'ladgVolumeId'------ * 'ladgSource'------ * 'ladgH'------ * 'ladgLayerId'-layersAnnotationDataGet-    :: Text -- ^ 'ladgContentVersion'-    -> Text -- ^ 'ladgAnnotationDataId'-    -> Text -- ^ 'ladgVolumeId'-    -> Text -- ^ 'ladgLayerId'-    -> LayersAnnotationDataGet-layersAnnotationDataGet pLadgContentVersion_ pLadgAnnotationDataId_ pLadgVolumeId_ pLadgLayerId_ =-  LayersAnnotationDataGet'-    { _ladgW = Nothing-    , _ladgScale = Nothing-    , _ladgLocale = Nothing-    , _ladgContentVersion = pLadgContentVersion_-    , _ladgAllowWebDefinitions = Nothing-    , _ladgAnnotationDataId = pLadgAnnotationDataId_-    , _ladgVolumeId = pLadgVolumeId_-    , _ladgSource = Nothing-    , _ladgH = Nothing-    , _ladgLayerId = pLadgLayerId_-    }----- | The requested pixel width for any images. If width is provided height--- must also be provided.-ladgW :: Lens' LayersAnnotationDataGet (Maybe Int32)-ladgW-  = lens _ladgW (\ s a -> s{_ladgW = a}) .-      mapping _Coerce---- | The requested scale for the image.-ladgScale :: Lens' LayersAnnotationDataGet (Maybe Int32)-ladgScale-  = lens _ladgScale (\ s a -> s{_ladgScale = a}) .-      mapping _Coerce---- | The locale information for the data. ISO-639-1 language and ISO-3166-1--- country code. Ex: \'en_US\'.-ladgLocale :: Lens' LayersAnnotationDataGet (Maybe Text)-ladgLocale-  = lens _ladgLocale (\ s a -> s{_ladgLocale = a})---- | The content version for the volume you are trying to retrieve.-ladgContentVersion :: Lens' LayersAnnotationDataGet Text-ladgContentVersion-  = lens _ladgContentVersion-      (\ s a -> s{_ladgContentVersion = a})---- | For the dictionary layer. Whether or not to allow web definitions.-ladgAllowWebDefinitions :: Lens' LayersAnnotationDataGet (Maybe Bool)-ladgAllowWebDefinitions-  = lens _ladgAllowWebDefinitions-      (\ s a -> s{_ladgAllowWebDefinitions = a})---- | The ID of the annotation data to retrieve.-ladgAnnotationDataId :: Lens' LayersAnnotationDataGet Text-ladgAnnotationDataId-  = lens _ladgAnnotationDataId-      (\ s a -> s{_ladgAnnotationDataId = a})---- | The volume to retrieve annotations for.-ladgVolumeId :: Lens' LayersAnnotationDataGet Text-ladgVolumeId-  = lens _ladgVolumeId (\ s a -> s{_ladgVolumeId = a})---- | String to identify the originator of this request.-ladgSource :: Lens' LayersAnnotationDataGet (Maybe Text)-ladgSource-  = lens _ladgSource (\ s a -> s{_ladgSource = a})---- | The requested pixel height for any images. If height is provided width--- must also be provided.-ladgH :: Lens' LayersAnnotationDataGet (Maybe Int32)-ladgH-  = lens _ladgH (\ s a -> s{_ladgH = a}) .-      mapping _Coerce---- | The ID for the layer to get the annotations.-ladgLayerId :: Lens' LayersAnnotationDataGet Text-ladgLayerId-  = lens _ladgLayerId (\ s a -> s{_ladgLayerId = a})--instance GoogleRequest LayersAnnotationDataGet where-        type Rs LayersAnnotationDataGet = AnnotationData-        type Scopes LayersAnnotationDataGet =-             '["https://www.googleapis.com/auth/books"]-        requestClient LayersAnnotationDataGet'{..}-          = go _ladgVolumeId _ladgLayerId _ladgAnnotationDataId-              (Just _ladgContentVersion)-              _ladgW-              _ladgScale-              _ladgLocale-              _ladgAllowWebDefinitions-              _ladgSource-              _ladgH-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy LayersAnnotationDataGetResource)-                      mempty
− gen/Network/Google/Resource/Books/Layers/AnnotationData/List.hs 
@@ -1,258 +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.Books.Layers.AnnotationData.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)------ Gets the annotation data for a volume and layer.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.layers.annotationData.list@.-module Network.Google.Resource.Books.Layers.AnnotationData.List-    (-    -- * REST Resource-      LayersAnnotationDataListResource--    -- * Creating a Request-    , layersAnnotationDataList-    , LayersAnnotationDataList--    -- * Request Lenses-    , ladlW-    , ladlScale-    , ladlLocale-    , ladlContentVersion-    , ladlUpdatedMax-    , ladlUpdatedMin-    , ladlAnnotationDataId-    , ladlVolumeId-    , ladlSource-    , ladlH-    , ladlPageToken-    , ladlLayerId-    , ladlMaxResults-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.layers.annotationData.list@ method which the--- 'LayersAnnotationDataList' request conforms to.-type LayersAnnotationDataListResource =-     "books" :>-       "v1" :>-         "volumes" :>-           Capture "volumeId" Text :>-             "layers" :>-               Capture "layerId" Text :>-                 "data" :>-                   QueryParam "contentVersion" Text :>-                     QueryParam "w" (Textual Int32) :>-                       QueryParam "scale" (Textual Int32) :>-                         QueryParam "locale" Text :>-                           QueryParam "updatedMax" Text :>-                             QueryParam "updatedMin" Text :>-                               QueryParams "annotationDataId" Text :>-                                 QueryParam "source" Text :>-                                   QueryParam "h" (Textual Int32) :>-                                     QueryParam "pageToken" Text :>-                                       QueryParam "maxResults" (Textual Word32)-                                         :>-                                         QueryParam "alt" AltJSON :>-                                           Get '[JSON] AnnotationsData---- | Gets the annotation data for a volume and layer.------ /See:/ 'layersAnnotationDataList' smart constructor.-data LayersAnnotationDataList =-  LayersAnnotationDataList'-    { _ladlW                :: !(Maybe (Textual Int32))-    , _ladlScale            :: !(Maybe (Textual Int32))-    , _ladlLocale           :: !(Maybe Text)-    , _ladlContentVersion   :: !Text-    , _ladlUpdatedMax       :: !(Maybe Text)-    , _ladlUpdatedMin       :: !(Maybe Text)-    , _ladlAnnotationDataId :: !(Maybe [Text])-    , _ladlVolumeId         :: !Text-    , _ladlSource           :: !(Maybe Text)-    , _ladlH                :: !(Maybe (Textual Int32))-    , _ladlPageToken        :: !(Maybe Text)-    , _ladlLayerId          :: !Text-    , _ladlMaxResults       :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LayersAnnotationDataList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ladlW'------ * 'ladlScale'------ * 'ladlLocale'------ * 'ladlContentVersion'------ * 'ladlUpdatedMax'------ * 'ladlUpdatedMin'------ * 'ladlAnnotationDataId'------ * 'ladlVolumeId'------ * 'ladlSource'------ * 'ladlH'------ * 'ladlPageToken'------ * 'ladlLayerId'------ * 'ladlMaxResults'-layersAnnotationDataList-    :: Text -- ^ 'ladlContentVersion'-    -> Text -- ^ 'ladlVolumeId'-    -> Text -- ^ 'ladlLayerId'-    -> LayersAnnotationDataList-layersAnnotationDataList pLadlContentVersion_ pLadlVolumeId_ pLadlLayerId_ =-  LayersAnnotationDataList'-    { _ladlW = Nothing-    , _ladlScale = Nothing-    , _ladlLocale = Nothing-    , _ladlContentVersion = pLadlContentVersion_-    , _ladlUpdatedMax = Nothing-    , _ladlUpdatedMin = Nothing-    , _ladlAnnotationDataId = Nothing-    , _ladlVolumeId = pLadlVolumeId_-    , _ladlSource = Nothing-    , _ladlH = Nothing-    , _ladlPageToken = Nothing-    , _ladlLayerId = pLadlLayerId_-    , _ladlMaxResults = Nothing-    }----- | The requested pixel width for any images. If width is provided height--- must also be provided.-ladlW :: Lens' LayersAnnotationDataList (Maybe Int32)-ladlW-  = lens _ladlW (\ s a -> s{_ladlW = a}) .-      mapping _Coerce---- | The requested scale for the image.-ladlScale :: Lens' LayersAnnotationDataList (Maybe Int32)-ladlScale-  = lens _ladlScale (\ s a -> s{_ladlScale = a}) .-      mapping _Coerce---- | The locale information for the data. ISO-639-1 language and ISO-3166-1--- country code. Ex: \'en_US\'.-ladlLocale :: Lens' LayersAnnotationDataList (Maybe Text)-ladlLocale-  = lens _ladlLocale (\ s a -> s{_ladlLocale = a})---- | The content version for the requested volume.-ladlContentVersion :: Lens' LayersAnnotationDataList Text-ladlContentVersion-  = lens _ladlContentVersion-      (\ s a -> s{_ladlContentVersion = a})---- | RFC 3339 timestamp to restrict to items updated prior to this timestamp--- (exclusive).-ladlUpdatedMax :: Lens' LayersAnnotationDataList (Maybe Text)-ladlUpdatedMax-  = lens _ladlUpdatedMax-      (\ s a -> s{_ladlUpdatedMax = a})---- | RFC 3339 timestamp to restrict to items updated since this timestamp--- (inclusive).-ladlUpdatedMin :: Lens' LayersAnnotationDataList (Maybe Text)-ladlUpdatedMin-  = lens _ladlUpdatedMin-      (\ s a -> s{_ladlUpdatedMin = a})---- | The list of Annotation Data Ids to retrieve. Pagination is ignored if--- this is set.-ladlAnnotationDataId :: Lens' LayersAnnotationDataList [Text]-ladlAnnotationDataId-  = lens _ladlAnnotationDataId-      (\ s a -> s{_ladlAnnotationDataId = a})-      . _Default-      . _Coerce---- | The volume to retrieve annotation data for.-ladlVolumeId :: Lens' LayersAnnotationDataList Text-ladlVolumeId-  = lens _ladlVolumeId (\ s a -> s{_ladlVolumeId = a})---- | String to identify the originator of this request.-ladlSource :: Lens' LayersAnnotationDataList (Maybe Text)-ladlSource-  = lens _ladlSource (\ s a -> s{_ladlSource = a})---- | The requested pixel height for any images. If height is provided width--- must also be provided.-ladlH :: Lens' LayersAnnotationDataList (Maybe Int32)-ladlH-  = lens _ladlH (\ s a -> s{_ladlH = a}) .-      mapping _Coerce---- | The value of the nextToken from the previous page.-ladlPageToken :: Lens' LayersAnnotationDataList (Maybe Text)-ladlPageToken-  = lens _ladlPageToken-      (\ s a -> s{_ladlPageToken = a})---- | The ID for the layer to get the annotation data.-ladlLayerId :: Lens' LayersAnnotationDataList Text-ladlLayerId-  = lens _ladlLayerId (\ s a -> s{_ladlLayerId = a})---- | Maximum number of results to return-ladlMaxResults :: Lens' LayersAnnotationDataList (Maybe Word32)-ladlMaxResults-  = lens _ladlMaxResults-      (\ s a -> s{_ladlMaxResults = a})-      . mapping _Coerce--instance GoogleRequest LayersAnnotationDataList where-        type Rs LayersAnnotationDataList = AnnotationsData-        type Scopes LayersAnnotationDataList =-             '["https://www.googleapis.com/auth/books"]-        requestClient LayersAnnotationDataList'{..}-          = go _ladlVolumeId _ladlLayerId-              (Just _ladlContentVersion)-              _ladlW-              _ladlScale-              _ladlLocale-              _ladlUpdatedMax-              _ladlUpdatedMin-              (_ladlAnnotationDataId ^. _Default)-              _ladlSource-              _ladlH-              _ladlPageToken-              _ladlMaxResults-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy LayersAnnotationDataListResource)-                      mempty
− gen/Network/Google/Resource/Books/Layers/Get.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.Books.Layers.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the layer summary for a volume.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.layers.get@.-module Network.Google.Resource.Books.Layers.Get-    (-    -- * REST Resource-      LayersGetResource--    -- * Creating a Request-    , layersGet-    , LayersGet--    -- * Request Lenses-    , lgContentVersion-    , lgVolumeId-    , lgSource-    , lgSummaryId-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.layers.get@ method which the--- 'LayersGet' request conforms to.-type LayersGetResource =-     "books" :>-       "v1" :>-         "volumes" :>-           Capture "volumeId" Text :>-             "layersummary" :>-               Capture "summaryId" Text :>-                 QueryParam "contentVersion" Text :>-                   QueryParam "source" Text :>-                     QueryParam "alt" AltJSON :> Get '[JSON] Layersummary---- | Gets the layer summary for a volume.------ /See:/ 'layersGet' smart constructor.-data LayersGet =-  LayersGet'-    { _lgContentVersion :: !(Maybe Text)-    , _lgVolumeId       :: !Text-    , _lgSource         :: !(Maybe Text)-    , _lgSummaryId      :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LayersGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lgContentVersion'------ * 'lgVolumeId'------ * 'lgSource'------ * 'lgSummaryId'-layersGet-    :: Text -- ^ 'lgVolumeId'-    -> Text -- ^ 'lgSummaryId'-    -> LayersGet-layersGet pLgVolumeId_ pLgSummaryId_ =-  LayersGet'-    { _lgContentVersion = Nothing-    , _lgVolumeId = pLgVolumeId_-    , _lgSource = Nothing-    , _lgSummaryId = pLgSummaryId_-    }----- | The content version for the requested volume.-lgContentVersion :: Lens' LayersGet (Maybe Text)-lgContentVersion-  = lens _lgContentVersion-      (\ s a -> s{_lgContentVersion = a})---- | The volume to retrieve layers for.-lgVolumeId :: Lens' LayersGet Text-lgVolumeId-  = lens _lgVolumeId (\ s a -> s{_lgVolumeId = a})---- | String to identify the originator of this request.-lgSource :: Lens' LayersGet (Maybe Text)-lgSource = lens _lgSource (\ s a -> s{_lgSource = a})---- | The ID for the layer to get the summary for.-lgSummaryId :: Lens' LayersGet Text-lgSummaryId-  = lens _lgSummaryId (\ s a -> s{_lgSummaryId = a})--instance GoogleRequest LayersGet where-        type Rs LayersGet = Layersummary-        type Scopes LayersGet =-             '["https://www.googleapis.com/auth/books"]-        requestClient LayersGet'{..}-          = go _lgVolumeId _lgSummaryId _lgContentVersion-              _lgSource-              (Just AltJSON)-              booksService-          where go-                  = buildClient (Proxy :: Proxy LayersGetResource)-                      mempty
− gen/Network/Google/Resource/Books/Layers/List.hs 
@@ -1,139 +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.Books.Layers.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 layer summaries for a volume.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.layers.list@.-module Network.Google.Resource.Books.Layers.List-    (-    -- * REST Resource-      LayersListResource--    -- * Creating a Request-    , layersList-    , LayersList--    -- * Request Lenses-    , llContentVersion-    , llVolumeId-    , llSource-    , llPageToken-    , llMaxResults-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.layers.list@ method which the--- 'LayersList' request conforms to.-type LayersListResource =-     "books" :>-       "v1" :>-         "volumes" :>-           Capture "volumeId" Text :>-             "layersummary" :>-               QueryParam "contentVersion" Text :>-                 QueryParam "source" Text :>-                   QueryParam "pageToken" Text :>-                     QueryParam "maxResults" (Textual Word32) :>-                       QueryParam "alt" AltJSON :>-                         Get '[JSON] Layersummaries---- | List the layer summaries for a volume.------ /See:/ 'layersList' smart constructor.-data LayersList =-  LayersList'-    { _llContentVersion :: !(Maybe Text)-    , _llVolumeId       :: !Text-    , _llSource         :: !(Maybe Text)-    , _llPageToken      :: !(Maybe Text)-    , _llMaxResults     :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LayersList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'llContentVersion'------ * 'llVolumeId'------ * 'llSource'------ * 'llPageToken'------ * 'llMaxResults'-layersList-    :: Text -- ^ 'llVolumeId'-    -> LayersList-layersList pLlVolumeId_ =-  LayersList'-    { _llContentVersion = Nothing-    , _llVolumeId = pLlVolumeId_-    , _llSource = Nothing-    , _llPageToken = Nothing-    , _llMaxResults = Nothing-    }----- | The content version for the requested volume.-llContentVersion :: Lens' LayersList (Maybe Text)-llContentVersion-  = lens _llContentVersion-      (\ s a -> s{_llContentVersion = a})---- | The volume to retrieve layers for.-llVolumeId :: Lens' LayersList Text-llVolumeId-  = lens _llVolumeId (\ s a -> s{_llVolumeId = a})---- | String to identify the originator of this request.-llSource :: Lens' LayersList (Maybe Text)-llSource = lens _llSource (\ s a -> s{_llSource = a})---- | The value of the nextToken from the previous page.-llPageToken :: Lens' LayersList (Maybe Text)-llPageToken-  = lens _llPageToken (\ s a -> s{_llPageToken = a})---- | Maximum number of results to return-llMaxResults :: Lens' LayersList (Maybe Word32)-llMaxResults-  = lens _llMaxResults (\ s a -> s{_llMaxResults = a})-      . mapping _Coerce--instance GoogleRequest LayersList where-        type Rs LayersList = Layersummaries-        type Scopes LayersList =-             '["https://www.googleapis.com/auth/books"]-        requestClient LayersList'{..}-          = go _llVolumeId _llContentVersion _llSource-              _llPageToken-              _llMaxResults-              (Just AltJSON)-              booksService-          where go-                  = buildClient (Proxy :: Proxy LayersListResource)-                      mempty
− gen/Network/Google/Resource/Books/Layers/VolumeAnnotations/Get.hs 
@@ -1,145 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Books.Layers.VolumeAnnotations.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the volume annotation.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.layers.volumeAnnotations.get@.-module Network.Google.Resource.Books.Layers.VolumeAnnotations.Get-    (-    -- * REST Resource-      LayersVolumeAnnotationsGetResource--    -- * Creating a Request-    , layersVolumeAnnotationsGet-    , LayersVolumeAnnotationsGet--    -- * Request Lenses-    , lvagLocale-    , lvagAnnotationId-    , lvagVolumeId-    , lvagSource-    , lvagLayerId-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.layers.volumeAnnotations.get@ method which the--- 'LayersVolumeAnnotationsGet' request conforms to.-type LayersVolumeAnnotationsGetResource =-     "books" :>-       "v1" :>-         "volumes" :>-           Capture "volumeId" Text :>-             "layers" :>-               Capture "layerId" Text :>-                 "annotations" :>-                   Capture "annotationId" Text :>-                     QueryParam "locale" Text :>-                       QueryParam "source" Text :>-                         QueryParam "alt" AltJSON :>-                           Get '[JSON] Volumeannotation---- | Gets the volume annotation.------ /See:/ 'layersVolumeAnnotationsGet' smart constructor.-data LayersVolumeAnnotationsGet =-  LayersVolumeAnnotationsGet'-    { _lvagLocale       :: !(Maybe Text)-    , _lvagAnnotationId :: !Text-    , _lvagVolumeId     :: !Text-    , _lvagSource       :: !(Maybe Text)-    , _lvagLayerId      :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LayersVolumeAnnotationsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lvagLocale'------ * 'lvagAnnotationId'------ * 'lvagVolumeId'------ * 'lvagSource'------ * 'lvagLayerId'-layersVolumeAnnotationsGet-    :: Text -- ^ 'lvagAnnotationId'-    -> Text -- ^ 'lvagVolumeId'-    -> Text -- ^ 'lvagLayerId'-    -> LayersVolumeAnnotationsGet-layersVolumeAnnotationsGet pLvagAnnotationId_ pLvagVolumeId_ pLvagLayerId_ =-  LayersVolumeAnnotationsGet'-    { _lvagLocale = Nothing-    , _lvagAnnotationId = pLvagAnnotationId_-    , _lvagVolumeId = pLvagVolumeId_-    , _lvagSource = Nothing-    , _lvagLayerId = pLvagLayerId_-    }----- | The locale information for the data. ISO-639-1 language and ISO-3166-1--- country code. Ex: \'en_US\'.-lvagLocale :: Lens' LayersVolumeAnnotationsGet (Maybe Text)-lvagLocale-  = lens _lvagLocale (\ s a -> s{_lvagLocale = a})---- | The ID of the volume annotation to retrieve.-lvagAnnotationId :: Lens' LayersVolumeAnnotationsGet Text-lvagAnnotationId-  = lens _lvagAnnotationId-      (\ s a -> s{_lvagAnnotationId = a})---- | The volume to retrieve annotations for.-lvagVolumeId :: Lens' LayersVolumeAnnotationsGet Text-lvagVolumeId-  = lens _lvagVolumeId (\ s a -> s{_lvagVolumeId = a})---- | String to identify the originator of this request.-lvagSource :: Lens' LayersVolumeAnnotationsGet (Maybe Text)-lvagSource-  = lens _lvagSource (\ s a -> s{_lvagSource = a})---- | The ID for the layer to get the annotations.-lvagLayerId :: Lens' LayersVolumeAnnotationsGet Text-lvagLayerId-  = lens _lvagLayerId (\ s a -> s{_lvagLayerId = a})--instance GoogleRequest LayersVolumeAnnotationsGet-         where-        type Rs LayersVolumeAnnotationsGet = Volumeannotation-        type Scopes LayersVolumeAnnotationsGet =-             '["https://www.googleapis.com/auth/books"]-        requestClient LayersVolumeAnnotationsGet'{..}-          = go _lvagVolumeId _lvagLayerId _lvagAnnotationId-              _lvagLocale-              _lvagSource-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy LayersVolumeAnnotationsGetResource)-                      mempty
− gen/Network/Google/Resource/Books/Layers/VolumeAnnotations/List.hs 
@@ -1,281 +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.Books.Layers.VolumeAnnotations.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)------ Gets the volume annotations for a volume and layer.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.layers.volumeAnnotations.list@.-module Network.Google.Resource.Books.Layers.VolumeAnnotations.List-    (-    -- * REST Resource-      LayersVolumeAnnotationsListResource--    -- * Creating a Request-    , layersVolumeAnnotationsList-    , LayersVolumeAnnotationsList--    -- * Request Lenses-    , lvalStartOffSet-    , lvalLocale-    , lvalContentVersion-    , lvalShowDeleted-    , lvalVolumeAnnotationsVersion-    , lvalUpdatedMax-    , lvalUpdatedMin-    , lvalEndOffSet-    , lvalVolumeId-    , lvalSource-    , lvalPageToken-    , lvalEndPosition-    , lvalLayerId-    , lvalMaxResults-    , lvalStartPosition-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.layers.volumeAnnotations.list@ method which the--- 'LayersVolumeAnnotationsList' request conforms to.-type LayersVolumeAnnotationsListResource =-     "books" :>-       "v1" :>-         "volumes" :>-           Capture "volumeId" Text :>-             "layers" :>-               Capture "layerId" Text :>-                 QueryParam "contentVersion" Text :>-                   QueryParam "startOffset" Text :>-                     QueryParam "locale" Text :>-                       QueryParam "showDeleted" Bool :>-                         QueryParam "volumeAnnotationsVersion" Text :>-                           QueryParam "updatedMax" Text :>-                             QueryParam "updatedMin" Text :>-                               QueryParam "endOffset" Text :>-                                 QueryParam "source" Text :>-                                   QueryParam "pageToken" Text :>-                                     QueryParam "endPosition" Text :>-                                       QueryParam "maxResults" (Textual Word32)-                                         :>-                                         QueryParam "startPosition" Text :>-                                           QueryParam "alt" AltJSON :>-                                             Get '[JSON] Volumeannotations---- | Gets the volume annotations for a volume and layer.------ /See:/ 'layersVolumeAnnotationsList' smart constructor.-data LayersVolumeAnnotationsList =-  LayersVolumeAnnotationsList'-    { _lvalStartOffSet              :: !(Maybe Text)-    , _lvalLocale                   :: !(Maybe Text)-    , _lvalContentVersion           :: !Text-    , _lvalShowDeleted              :: !(Maybe Bool)-    , _lvalVolumeAnnotationsVersion :: !(Maybe Text)-    , _lvalUpdatedMax               :: !(Maybe Text)-    , _lvalUpdatedMin               :: !(Maybe Text)-    , _lvalEndOffSet                :: !(Maybe Text)-    , _lvalVolumeId                 :: !Text-    , _lvalSource                   :: !(Maybe Text)-    , _lvalPageToken                :: !(Maybe Text)-    , _lvalEndPosition              :: !(Maybe Text)-    , _lvalLayerId                  :: !Text-    , _lvalMaxResults               :: !(Maybe (Textual Word32))-    , _lvalStartPosition            :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LayersVolumeAnnotationsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lvalStartOffSet'------ * 'lvalLocale'------ * 'lvalContentVersion'------ * 'lvalShowDeleted'------ * 'lvalVolumeAnnotationsVersion'------ * 'lvalUpdatedMax'------ * 'lvalUpdatedMin'------ * 'lvalEndOffSet'------ * 'lvalVolumeId'------ * 'lvalSource'------ * 'lvalPageToken'------ * 'lvalEndPosition'------ * 'lvalLayerId'------ * 'lvalMaxResults'------ * 'lvalStartPosition'-layersVolumeAnnotationsList-    :: Text -- ^ 'lvalContentVersion'-    -> Text -- ^ 'lvalVolumeId'-    -> Text -- ^ 'lvalLayerId'-    -> LayersVolumeAnnotationsList-layersVolumeAnnotationsList pLvalContentVersion_ pLvalVolumeId_ pLvalLayerId_ =-  LayersVolumeAnnotationsList'-    { _lvalStartOffSet = Nothing-    , _lvalLocale = Nothing-    , _lvalContentVersion = pLvalContentVersion_-    , _lvalShowDeleted = Nothing-    , _lvalVolumeAnnotationsVersion = Nothing-    , _lvalUpdatedMax = Nothing-    , _lvalUpdatedMin = Nothing-    , _lvalEndOffSet = Nothing-    , _lvalVolumeId = pLvalVolumeId_-    , _lvalSource = Nothing-    , _lvalPageToken = Nothing-    , _lvalEndPosition = Nothing-    , _lvalLayerId = pLvalLayerId_-    , _lvalMaxResults = Nothing-    , _lvalStartPosition = Nothing-    }----- | The start offset to start retrieving data from.-lvalStartOffSet :: Lens' LayersVolumeAnnotationsList (Maybe Text)-lvalStartOffSet-  = lens _lvalStartOffSet-      (\ s a -> s{_lvalStartOffSet = a})---- | The locale information for the data. ISO-639-1 language and ISO-3166-1--- country code. Ex: \'en_US\'.-lvalLocale :: Lens' LayersVolumeAnnotationsList (Maybe Text)-lvalLocale-  = lens _lvalLocale (\ s a -> s{_lvalLocale = a})---- | The content version for the requested volume.-lvalContentVersion :: Lens' LayersVolumeAnnotationsList Text-lvalContentVersion-  = lens _lvalContentVersion-      (\ s a -> s{_lvalContentVersion = a})---- | Set to true to return deleted annotations. updatedMin must be in the--- request to use this. Defaults to false.-lvalShowDeleted :: Lens' LayersVolumeAnnotationsList (Maybe Bool)-lvalShowDeleted-  = lens _lvalShowDeleted-      (\ s a -> s{_lvalShowDeleted = a})---- | The version of the volume annotations that you are requesting.-lvalVolumeAnnotationsVersion :: Lens' LayersVolumeAnnotationsList (Maybe Text)-lvalVolumeAnnotationsVersion-  = lens _lvalVolumeAnnotationsVersion-      (\ s a -> s{_lvalVolumeAnnotationsVersion = a})---- | RFC 3339 timestamp to restrict to items updated prior to this timestamp--- (exclusive).-lvalUpdatedMax :: Lens' LayersVolumeAnnotationsList (Maybe Text)-lvalUpdatedMax-  = lens _lvalUpdatedMax-      (\ s a -> s{_lvalUpdatedMax = a})---- | RFC 3339 timestamp to restrict to items updated since this timestamp--- (inclusive).-lvalUpdatedMin :: Lens' LayersVolumeAnnotationsList (Maybe Text)-lvalUpdatedMin-  = lens _lvalUpdatedMin-      (\ s a -> s{_lvalUpdatedMin = a})---- | The end offset to end retrieving data from.-lvalEndOffSet :: Lens' LayersVolumeAnnotationsList (Maybe Text)-lvalEndOffSet-  = lens _lvalEndOffSet-      (\ s a -> s{_lvalEndOffSet = a})---- | The volume to retrieve annotations for.-lvalVolumeId :: Lens' LayersVolumeAnnotationsList Text-lvalVolumeId-  = lens _lvalVolumeId (\ s a -> s{_lvalVolumeId = a})---- | String to identify the originator of this request.-lvalSource :: Lens' LayersVolumeAnnotationsList (Maybe Text)-lvalSource-  = lens _lvalSource (\ s a -> s{_lvalSource = a})---- | The value of the nextToken from the previous page.-lvalPageToken :: Lens' LayersVolumeAnnotationsList (Maybe Text)-lvalPageToken-  = lens _lvalPageToken-      (\ s a -> s{_lvalPageToken = a})---- | The end position to end retrieving data from.-lvalEndPosition :: Lens' LayersVolumeAnnotationsList (Maybe Text)-lvalEndPosition-  = lens _lvalEndPosition-      (\ s a -> s{_lvalEndPosition = a})---- | The ID for the layer to get the annotations.-lvalLayerId :: Lens' LayersVolumeAnnotationsList Text-lvalLayerId-  = lens _lvalLayerId (\ s a -> s{_lvalLayerId = a})---- | Maximum number of results to return-lvalMaxResults :: Lens' LayersVolumeAnnotationsList (Maybe Word32)-lvalMaxResults-  = lens _lvalMaxResults-      (\ s a -> s{_lvalMaxResults = a})-      . mapping _Coerce---- | The start position to start retrieving data from.-lvalStartPosition :: Lens' LayersVolumeAnnotationsList (Maybe Text)-lvalStartPosition-  = lens _lvalStartPosition-      (\ s a -> s{_lvalStartPosition = a})--instance GoogleRequest LayersVolumeAnnotationsList-         where-        type Rs LayersVolumeAnnotationsList =-             Volumeannotations-        type Scopes LayersVolumeAnnotationsList =-             '["https://www.googleapis.com/auth/books"]-        requestClient LayersVolumeAnnotationsList'{..}-          = go _lvalVolumeId _lvalLayerId-              (Just _lvalContentVersion)-              _lvalStartOffSet-              _lvalLocale-              _lvalShowDeleted-              _lvalVolumeAnnotationsVersion-              _lvalUpdatedMax-              _lvalUpdatedMin-              _lvalEndOffSet-              _lvalSource-              _lvalPageToken-              _lvalEndPosition-              _lvalMaxResults-              _lvalStartPosition-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy LayersVolumeAnnotationsListResource)-                      mempty
− gen/Network/Google/Resource/Books/MyConfig/GetUserSettings.hs 
@@ -1,73 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Books.MyConfig.GetUserSettings--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the current settings for the user.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.myconfig.getUserSettings@.-module Network.Google.Resource.Books.MyConfig.GetUserSettings-    (-    -- * REST Resource-      MyConfigGetUserSettingsResource--    -- * Creating a Request-    , myConfigGetUserSettings-    , MyConfigGetUserSettings--    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.myconfig.getUserSettings@ method which the--- 'MyConfigGetUserSettings' request conforms to.-type MyConfigGetUserSettingsResource =-     "books" :>-       "v1" :>-         "myconfig" :>-           "getUserSettings" :>-             QueryParam "alt" AltJSON :> Get '[JSON] UserSettings---- | Gets the current settings for the user.------ /See:/ 'myConfigGetUserSettings' smart constructor.-data MyConfigGetUserSettings =-  MyConfigGetUserSettings'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyConfigGetUserSettings' with the minimum fields required to make a request.----myConfigGetUserSettings-    :: MyConfigGetUserSettings-myConfigGetUserSettings = MyConfigGetUserSettings'---instance GoogleRequest MyConfigGetUserSettings where-        type Rs MyConfigGetUserSettings = UserSettings-        type Scopes MyConfigGetUserSettings =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyConfigGetUserSettings'{}-          = go (Just AltJSON) booksService-          where go-                  = buildClient-                      (Proxy :: Proxy MyConfigGetUserSettingsResource)-                      mempty
− gen/Network/Google/Resource/Books/MyConfig/ReleaseDownloadAccess.hs 
@@ -1,134 +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.Books.MyConfig.ReleaseDownloadAccess--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Release downloaded content access restriction.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.myconfig.releaseDownloadAccess@.-module Network.Google.Resource.Books.MyConfig.ReleaseDownloadAccess-    (-    -- * REST Resource-      MyConfigReleaseDownloadAccessResource--    -- * Creating a Request-    , myConfigReleaseDownloadAccess-    , MyConfigReleaseDownloadAccess--    -- * Request Lenses-    , mcrdaCpksver-    , mcrdaLocale-    , mcrdaVolumeIds-    , mcrdaSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.myconfig.releaseDownloadAccess@ method which the--- 'MyConfigReleaseDownloadAccess' request conforms to.-type MyConfigReleaseDownloadAccessResource =-     "books" :>-       "v1" :>-         "myconfig" :>-           "releaseDownloadAccess" :>-             QueryParams "volumeIds" Text :>-               QueryParam "cpksver" Text :>-                 QueryParam "locale" Text :>-                   QueryParam "source" Text :>-                     QueryParam "alt" AltJSON :>-                       Post '[JSON] DownloadAccesses---- | Release downloaded content access restriction.------ /See:/ 'myConfigReleaseDownloadAccess' smart constructor.-data MyConfigReleaseDownloadAccess =-  MyConfigReleaseDownloadAccess'-    { _mcrdaCpksver   :: !Text-    , _mcrdaLocale    :: !(Maybe Text)-    , _mcrdaVolumeIds :: ![Text]-    , _mcrdaSource    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyConfigReleaseDownloadAccess' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcrdaCpksver'------ * 'mcrdaLocale'------ * 'mcrdaVolumeIds'------ * 'mcrdaSource'-myConfigReleaseDownloadAccess-    :: Text -- ^ 'mcrdaCpksver'-    -> [Text] -- ^ 'mcrdaVolumeIds'-    -> MyConfigReleaseDownloadAccess-myConfigReleaseDownloadAccess pMcrdaCpksver_ pMcrdaVolumeIds_ =-  MyConfigReleaseDownloadAccess'-    { _mcrdaCpksver = pMcrdaCpksver_-    , _mcrdaLocale = Nothing-    , _mcrdaVolumeIds = _Coerce # pMcrdaVolumeIds_-    , _mcrdaSource = Nothing-    }----- | The device\/version ID from which to release the restriction.-mcrdaCpksver :: Lens' MyConfigReleaseDownloadAccess Text-mcrdaCpksver-  = lens _mcrdaCpksver (\ s a -> s{_mcrdaCpksver = a})---- | ISO-639-1, ISO-3166-1 codes for message localization, i.e. en_US.-mcrdaLocale :: Lens' MyConfigReleaseDownloadAccess (Maybe Text)-mcrdaLocale-  = lens _mcrdaLocale (\ s a -> s{_mcrdaLocale = a})---- | The volume(s) to release restrictions for.-mcrdaVolumeIds :: Lens' MyConfigReleaseDownloadAccess [Text]-mcrdaVolumeIds-  = lens _mcrdaVolumeIds-      (\ s a -> s{_mcrdaVolumeIds = a})-      . _Coerce---- | String to identify the originator of this request.-mcrdaSource :: Lens' MyConfigReleaseDownloadAccess (Maybe Text)-mcrdaSource-  = lens _mcrdaSource (\ s a -> s{_mcrdaSource = a})--instance GoogleRequest MyConfigReleaseDownloadAccess-         where-        type Rs MyConfigReleaseDownloadAccess =-             DownloadAccesses-        type Scopes MyConfigReleaseDownloadAccess =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyConfigReleaseDownloadAccess'{..}-          = go _mcrdaVolumeIds (Just _mcrdaCpksver)-              _mcrdaLocale-              _mcrdaSource-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy MyConfigReleaseDownloadAccessResource)-                      mempty
− gen/Network/Google/Resource/Books/MyConfig/RequestAccess.hs 
@@ -1,159 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Books.MyConfig.RequestAccess--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Request concurrent and download access restrictions.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.myconfig.requestAccess@.-module Network.Google.Resource.Books.MyConfig.RequestAccess-    (-    -- * REST Resource-      MyConfigRequestAccessResource--    -- * Creating a Request-    , myConfigRequestAccess-    , MyConfigRequestAccess--    -- * Request Lenses-    , mcraCpksver-    , mcraLocale-    , mcraLicenseTypes-    , mcraVolumeId-    , mcraSource-    , mcraNonce-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.myconfig.requestAccess@ method which the--- 'MyConfigRequestAccess' request conforms to.-type MyConfigRequestAccessResource =-     "books" :>-       "v1" :>-         "myconfig" :>-           "requestAccess" :>-             QueryParam "source" Text :>-               QueryParam "volumeId" Text :>-                 QueryParam "nonce" Text :>-                   QueryParam "cpksver" Text :>-                     QueryParam "locale" Text :>-                       QueryParam "licenseTypes"-                         MyConfigRequestAccessLicenseTypes-                         :>-                         QueryParam "alt" AltJSON :>-                           Post '[JSON] RequestAccess---- | Request concurrent and download access restrictions.------ /See:/ 'myConfigRequestAccess' smart constructor.-data MyConfigRequestAccess =-  MyConfigRequestAccess'-    { _mcraCpksver      :: !Text-    , _mcraLocale       :: !(Maybe Text)-    , _mcraLicenseTypes :: !(Maybe MyConfigRequestAccessLicenseTypes)-    , _mcraVolumeId     :: !Text-    , _mcraSource       :: !Text-    , _mcraNonce        :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyConfigRequestAccess' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcraCpksver'------ * 'mcraLocale'------ * 'mcraLicenseTypes'------ * 'mcraVolumeId'------ * 'mcraSource'------ * 'mcraNonce'-myConfigRequestAccess-    :: Text -- ^ 'mcraCpksver'-    -> Text -- ^ 'mcraVolumeId'-    -> Text -- ^ 'mcraSource'-    -> Text -- ^ 'mcraNonce'-    -> MyConfigRequestAccess-myConfigRequestAccess pMcraCpksver_ pMcraVolumeId_ pMcraSource_ pMcraNonce_ =-  MyConfigRequestAccess'-    { _mcraCpksver = pMcraCpksver_-    , _mcraLocale = Nothing-    , _mcraLicenseTypes = Nothing-    , _mcraVolumeId = pMcraVolumeId_-    , _mcraSource = pMcraSource_-    , _mcraNonce = pMcraNonce_-    }----- | The device\/version ID from which to request the restrictions.-mcraCpksver :: Lens' MyConfigRequestAccess Text-mcraCpksver-  = lens _mcraCpksver (\ s a -> s{_mcraCpksver = a})---- | ISO-639-1, ISO-3166-1 codes for message localization, i.e. en_US.-mcraLocale :: Lens' MyConfigRequestAccess (Maybe Text)-mcraLocale-  = lens _mcraLocale (\ s a -> s{_mcraLocale = a})---- | The type of access license to request. If not specified, the default is--- BOTH.-mcraLicenseTypes :: Lens' MyConfigRequestAccess (Maybe MyConfigRequestAccessLicenseTypes)-mcraLicenseTypes-  = lens _mcraLicenseTypes-      (\ s a -> s{_mcraLicenseTypes = a})---- | The volume to request concurrent\/download restrictions for.-mcraVolumeId :: Lens' MyConfigRequestAccess Text-mcraVolumeId-  = lens _mcraVolumeId (\ s a -> s{_mcraVolumeId = a})---- | String to identify the originator of this request.-mcraSource :: Lens' MyConfigRequestAccess Text-mcraSource-  = lens _mcraSource (\ s a -> s{_mcraSource = a})---- | The client nonce value.-mcraNonce :: Lens' MyConfigRequestAccess Text-mcraNonce-  = lens _mcraNonce (\ s a -> s{_mcraNonce = a})--instance GoogleRequest MyConfigRequestAccess where-        type Rs MyConfigRequestAccess = RequestAccess-        type Scopes MyConfigRequestAccess =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyConfigRequestAccess'{..}-          = go (Just _mcraSource) (Just _mcraVolumeId)-              (Just _mcraNonce)-              (Just _mcraCpksver)-              _mcraLocale-              _mcraLicenseTypes-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy MyConfigRequestAccessResource)-                      mempty
− gen/Network/Google/Resource/Books/MyConfig/SyncVolumeLicenses.hs 
@@ -1,190 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Books.MyConfig.SyncVolumeLicenses--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Request downloaded content access for specified volumes on the My eBooks--- shelf.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.myconfig.syncVolumeLicenses@.-module Network.Google.Resource.Books.MyConfig.SyncVolumeLicenses-    (-    -- * REST Resource-      MyConfigSyncVolumeLicensesResource--    -- * Creating a Request-    , myConfigSyncVolumeLicenses-    , MyConfigSyncVolumeLicenses--    -- * Request Lenses-    , mcsvlCpksver-    , mcsvlLocale-    , mcsvlIncludeNonComicsSeries-    , mcsvlVolumeIds-    , mcsvlFeatures-    , mcsvlSource-    , mcsvlShowPreOrders-    , mcsvlNonce-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.myconfig.syncVolumeLicenses@ method which the--- 'MyConfigSyncVolumeLicenses' request conforms to.-type MyConfigSyncVolumeLicensesResource =-     "books" :>-       "v1" :>-         "myconfig" :>-           "syncVolumeLicenses" :>-             QueryParam "source" Text :>-               QueryParam "nonce" Text :>-                 QueryParam "cpksver" Text :>-                   QueryParam "locale" Text :>-                     QueryParam "includeNonComicsSeries" Bool :>-                       QueryParams "volumeIds" Text :>-                         QueryParams "features"-                           MyConfigSyncVolumeLicensesFeatures-                           :>-                           QueryParam "showPreorders" Bool :>-                             QueryParam "alt" AltJSON :> Post '[JSON] Volumes---- | Request downloaded content access for specified volumes on the My eBooks--- shelf.------ /See:/ 'myConfigSyncVolumeLicenses' smart constructor.-data MyConfigSyncVolumeLicenses =-  MyConfigSyncVolumeLicenses'-    { _mcsvlCpksver                :: !Text-    , _mcsvlLocale                 :: !(Maybe Text)-    , _mcsvlIncludeNonComicsSeries :: !(Maybe Bool)-    , _mcsvlVolumeIds              :: !(Maybe [Text])-    , _mcsvlFeatures               :: !(Maybe [MyConfigSyncVolumeLicensesFeatures])-    , _mcsvlSource                 :: !Text-    , _mcsvlShowPreOrders          :: !(Maybe Bool)-    , _mcsvlNonce                  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyConfigSyncVolumeLicenses' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcsvlCpksver'------ * 'mcsvlLocale'------ * 'mcsvlIncludeNonComicsSeries'------ * 'mcsvlVolumeIds'------ * 'mcsvlFeatures'------ * 'mcsvlSource'------ * 'mcsvlShowPreOrders'------ * 'mcsvlNonce'-myConfigSyncVolumeLicenses-    :: Text -- ^ 'mcsvlCpksver'-    -> Text -- ^ 'mcsvlSource'-    -> Text -- ^ 'mcsvlNonce'-    -> MyConfigSyncVolumeLicenses-myConfigSyncVolumeLicenses pMcsvlCpksver_ pMcsvlSource_ pMcsvlNonce_ =-  MyConfigSyncVolumeLicenses'-    { _mcsvlCpksver = pMcsvlCpksver_-    , _mcsvlLocale = Nothing-    , _mcsvlIncludeNonComicsSeries = Nothing-    , _mcsvlVolumeIds = Nothing-    , _mcsvlFeatures = Nothing-    , _mcsvlSource = pMcsvlSource_-    , _mcsvlShowPreOrders = Nothing-    , _mcsvlNonce = pMcsvlNonce_-    }----- | The device\/version ID from which to release the restriction.-mcsvlCpksver :: Lens' MyConfigSyncVolumeLicenses Text-mcsvlCpksver-  = lens _mcsvlCpksver (\ s a -> s{_mcsvlCpksver = a})---- | ISO-639-1, ISO-3166-1 codes for message localization, i.e. en_US.-mcsvlLocale :: Lens' MyConfigSyncVolumeLicenses (Maybe Text)-mcsvlLocale-  = lens _mcsvlLocale (\ s a -> s{_mcsvlLocale = a})---- | Set to true to include non-comics series. Defaults to false.-mcsvlIncludeNonComicsSeries :: Lens' MyConfigSyncVolumeLicenses (Maybe Bool)-mcsvlIncludeNonComicsSeries-  = lens _mcsvlIncludeNonComicsSeries-      (\ s a -> s{_mcsvlIncludeNonComicsSeries = a})---- | The volume(s) to request download restrictions for.-mcsvlVolumeIds :: Lens' MyConfigSyncVolumeLicenses [Text]-mcsvlVolumeIds-  = lens _mcsvlVolumeIds-      (\ s a -> s{_mcsvlVolumeIds = a})-      . _Default-      . _Coerce---- | List of features supported by the client, i.e., \'RENTALS\'-mcsvlFeatures :: Lens' MyConfigSyncVolumeLicenses [MyConfigSyncVolumeLicensesFeatures]-mcsvlFeatures-  = lens _mcsvlFeatures-      (\ s a -> s{_mcsvlFeatures = a})-      . _Default-      . _Coerce---- | String to identify the originator of this request.-mcsvlSource :: Lens' MyConfigSyncVolumeLicenses Text-mcsvlSource-  = lens _mcsvlSource (\ s a -> s{_mcsvlSource = a})---- | Set to true to show pre-ordered books. Defaults to false.-mcsvlShowPreOrders :: Lens' MyConfigSyncVolumeLicenses (Maybe Bool)-mcsvlShowPreOrders-  = lens _mcsvlShowPreOrders-      (\ s a -> s{_mcsvlShowPreOrders = a})---- | The client nonce value.-mcsvlNonce :: Lens' MyConfigSyncVolumeLicenses Text-mcsvlNonce-  = lens _mcsvlNonce (\ s a -> s{_mcsvlNonce = a})--instance GoogleRequest MyConfigSyncVolumeLicenses-         where-        type Rs MyConfigSyncVolumeLicenses = Volumes-        type Scopes MyConfigSyncVolumeLicenses =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyConfigSyncVolumeLicenses'{..}-          = go (Just _mcsvlSource) (Just _mcsvlNonce)-              (Just _mcsvlCpksver)-              _mcsvlLocale-              _mcsvlIncludeNonComicsSeries-              (_mcsvlVolumeIds ^. _Default)-              (_mcsvlFeatures ^. _Default)-              _mcsvlShowPreOrders-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy MyConfigSyncVolumeLicensesResource)-                      mempty
− gen/Network/Google/Resource/Books/MyConfig/UpdateUserSettings.hs 
@@ -1,94 +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.Books.MyConfig.UpdateUserSettings--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Sets the settings for the user. If a sub-object is specified, it will--- overwrite the existing sub-object stored in the server. Unspecified--- sub-objects will retain the existing value.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.myconfig.updateUserSettings@.-module Network.Google.Resource.Books.MyConfig.UpdateUserSettings-    (-    -- * REST Resource-      MyConfigUpdateUserSettingsResource--    -- * Creating a Request-    , myConfigUpdateUserSettings-    , MyConfigUpdateUserSettings--    -- * Request Lenses-    , mcuusPayload-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.myconfig.updateUserSettings@ method which the--- 'MyConfigUpdateUserSettings' request conforms to.-type MyConfigUpdateUserSettingsResource =-     "books" :>-       "v1" :>-         "myconfig" :>-           "updateUserSettings" :>-             QueryParam "alt" AltJSON :>-               ReqBody '[JSON] UserSettings :>-                 Post '[JSON] UserSettings---- | Sets the settings for the user. If a sub-object is specified, it will--- overwrite the existing sub-object stored in the server. Unspecified--- sub-objects will retain the existing value.------ /See:/ 'myConfigUpdateUserSettings' smart constructor.-newtype MyConfigUpdateUserSettings =-  MyConfigUpdateUserSettings'-    { _mcuusPayload :: UserSettings-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyConfigUpdateUserSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mcuusPayload'-myConfigUpdateUserSettings-    :: UserSettings -- ^ 'mcuusPayload'-    -> MyConfigUpdateUserSettings-myConfigUpdateUserSettings pMcuusPayload_ =-  MyConfigUpdateUserSettings' {_mcuusPayload = pMcuusPayload_}----- | Multipart request metadata.-mcuusPayload :: Lens' MyConfigUpdateUserSettings UserSettings-mcuusPayload-  = lens _mcuusPayload (\ s a -> s{_mcuusPayload = a})--instance GoogleRequest MyConfigUpdateUserSettings-         where-        type Rs MyConfigUpdateUserSettings = UserSettings-        type Scopes MyConfigUpdateUserSettings =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyConfigUpdateUserSettings'{..}-          = go (Just AltJSON) _mcuusPayload booksService-          where go-                  = buildClient-                      (Proxy :: Proxy MyConfigUpdateUserSettingsResource)-                      mempty
− gen/Network/Google/Resource/Books/MyLibrary/Annotations/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.Books.MyLibrary.Annotations.Delete--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes an annotation.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.mylibrary.annotations.delete@.-module Network.Google.Resource.Books.MyLibrary.Annotations.Delete-    (-    -- * REST Resource-      MyLibraryAnnotationsDeleteResource--    -- * Creating a Request-    , myLibraryAnnotationsDelete-    , MyLibraryAnnotationsDelete--    -- * Request Lenses-    , mladAnnotationId-    , mladSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.mylibrary.annotations.delete@ method which the--- 'MyLibraryAnnotationsDelete' request conforms to.-type MyLibraryAnnotationsDeleteResource =-     "books" :>-       "v1" :>-         "mylibrary" :>-           "annotations" :>-             Capture "annotationId" Text :>-               QueryParam "source" Text :>-                 QueryParam "alt" AltJSON :> Delete '[JSON] ()---- | Deletes an annotation.------ /See:/ 'myLibraryAnnotationsDelete' smart constructor.-data MyLibraryAnnotationsDelete =-  MyLibraryAnnotationsDelete'-    { _mladAnnotationId :: !Text-    , _mladSource       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyLibraryAnnotationsDelete' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mladAnnotationId'------ * 'mladSource'-myLibraryAnnotationsDelete-    :: Text -- ^ 'mladAnnotationId'-    -> MyLibraryAnnotationsDelete-myLibraryAnnotationsDelete pMladAnnotationId_ =-  MyLibraryAnnotationsDelete'-    {_mladAnnotationId = pMladAnnotationId_, _mladSource = Nothing}----- | The ID for the annotation to delete.-mladAnnotationId :: Lens' MyLibraryAnnotationsDelete Text-mladAnnotationId-  = lens _mladAnnotationId-      (\ s a -> s{_mladAnnotationId = a})---- | String to identify the originator of this request.-mladSource :: Lens' MyLibraryAnnotationsDelete (Maybe Text)-mladSource-  = lens _mladSource (\ s a -> s{_mladSource = a})--instance GoogleRequest MyLibraryAnnotationsDelete-         where-        type Rs MyLibraryAnnotationsDelete = ()-        type Scopes MyLibraryAnnotationsDelete =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyLibraryAnnotationsDelete'{..}-          = go _mladAnnotationId _mladSource (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy MyLibraryAnnotationsDeleteResource)-                      mempty
− gen/Network/Google/Resource/Books/MyLibrary/Annotations/Insert.hs 
@@ -1,143 +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.Books.MyLibrary.Annotations.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 new annotation.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.mylibrary.annotations.insert@.-module Network.Google.Resource.Books.MyLibrary.Annotations.Insert-    (-    -- * REST Resource-      MyLibraryAnnotationsInsertResource--    -- * Creating a Request-    , myLibraryAnnotationsInsert-    , MyLibraryAnnotationsInsert--    -- * Request Lenses-    , mlaiCountry-    , mlaiPayload-    , mlaiShowOnlySummaryInResponse-    , mlaiAnnotationId-    , mlaiSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.mylibrary.annotations.insert@ method which the--- 'MyLibraryAnnotationsInsert' request conforms to.-type MyLibraryAnnotationsInsertResource =-     "books" :>-       "v1" :>-         "mylibrary" :>-           "annotations" :>-             QueryParam "country" Text :>-               QueryParam "showOnlySummaryInResponse" Bool :>-                 QueryParam "annotationId" Text :>-                   QueryParam "source" Text :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] Annotation :> Post '[JSON] Annotation---- | Inserts a new annotation.------ /See:/ 'myLibraryAnnotationsInsert' smart constructor.-data MyLibraryAnnotationsInsert =-  MyLibraryAnnotationsInsert'-    { _mlaiCountry                   :: !(Maybe Text)-    , _mlaiPayload                   :: !Annotation-    , _mlaiShowOnlySummaryInResponse :: !(Maybe Bool)-    , _mlaiAnnotationId              :: !(Maybe Text)-    , _mlaiSource                    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyLibraryAnnotationsInsert' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlaiCountry'------ * 'mlaiPayload'------ * 'mlaiShowOnlySummaryInResponse'------ * 'mlaiAnnotationId'------ * 'mlaiSource'-myLibraryAnnotationsInsert-    :: Annotation -- ^ 'mlaiPayload'-    -> MyLibraryAnnotationsInsert-myLibraryAnnotationsInsert pMlaiPayload_ =-  MyLibraryAnnotationsInsert'-    { _mlaiCountry = Nothing-    , _mlaiPayload = pMlaiPayload_-    , _mlaiShowOnlySummaryInResponse = Nothing-    , _mlaiAnnotationId = Nothing-    , _mlaiSource = Nothing-    }----- | ISO-3166-1 code to override the IP-based location.-mlaiCountry :: Lens' MyLibraryAnnotationsInsert (Maybe Text)-mlaiCountry-  = lens _mlaiCountry (\ s a -> s{_mlaiCountry = a})---- | Multipart request metadata.-mlaiPayload :: Lens' MyLibraryAnnotationsInsert Annotation-mlaiPayload-  = lens _mlaiPayload (\ s a -> s{_mlaiPayload = a})---- | Requests that only the summary of the specified layer be provided in the--- response.-mlaiShowOnlySummaryInResponse :: Lens' MyLibraryAnnotationsInsert (Maybe Bool)-mlaiShowOnlySummaryInResponse-  = lens _mlaiShowOnlySummaryInResponse-      (\ s a -> s{_mlaiShowOnlySummaryInResponse = a})---- | The ID for the annotation to insert.-mlaiAnnotationId :: Lens' MyLibraryAnnotationsInsert (Maybe Text)-mlaiAnnotationId-  = lens _mlaiAnnotationId-      (\ s a -> s{_mlaiAnnotationId = a})---- | String to identify the originator of this request.-mlaiSource :: Lens' MyLibraryAnnotationsInsert (Maybe Text)-mlaiSource-  = lens _mlaiSource (\ s a -> s{_mlaiSource = a})--instance GoogleRequest MyLibraryAnnotationsInsert-         where-        type Rs MyLibraryAnnotationsInsert = Annotation-        type Scopes MyLibraryAnnotationsInsert =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyLibraryAnnotationsInsert'{..}-          = go _mlaiCountry _mlaiShowOnlySummaryInResponse-              _mlaiAnnotationId-              _mlaiSource-              (Just AltJSON)-              _mlaiPayload-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy MyLibraryAnnotationsInsertResource)-                      mempty
− gen/Network/Google/Resource/Books/MyLibrary/Annotations/List.hs 
@@ -1,211 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Books.MyLibrary.Annotations.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 annotations, possibly filtered.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.mylibrary.annotations.list@.-module Network.Google.Resource.Books.MyLibrary.Annotations.List-    (-    -- * REST Resource-      MyLibraryAnnotationsListResource--    -- * Creating a Request-    , myLibraryAnnotationsList-    , MyLibraryAnnotationsList--    -- * Request Lenses-    , mlalContentVersion-    , mlalShowDeleted-    , mlalUpdatedMax-    , mlalUpdatedMin-    , mlalLayerIds-    , mlalVolumeId-    , mlalSource-    , mlalPageToken-    , mlalLayerId-    , mlalMaxResults-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.mylibrary.annotations.list@ method which the--- 'MyLibraryAnnotationsList' request conforms to.-type MyLibraryAnnotationsListResource =-     "books" :>-       "v1" :>-         "mylibrary" :>-           "annotations" :>-             QueryParam "contentVersion" Text :>-               QueryParam "showDeleted" Bool :>-                 QueryParam "updatedMax" Text :>-                   QueryParam "updatedMin" Text :>-                     QueryParams "layerIds" Text :>-                       QueryParam "volumeId" Text :>-                         QueryParam "source" Text :>-                           QueryParam "pageToken" Text :>-                             QueryParam "layerId" Text :>-                               QueryParam "maxResults" (Textual Word32) :>-                                 QueryParam "alt" AltJSON :>-                                   Get '[JSON] Annotations---- | Retrieves a list of annotations, possibly filtered.------ /See:/ 'myLibraryAnnotationsList' smart constructor.-data MyLibraryAnnotationsList =-  MyLibraryAnnotationsList'-    { _mlalContentVersion :: !(Maybe Text)-    , _mlalShowDeleted    :: !(Maybe Bool)-    , _mlalUpdatedMax     :: !(Maybe Text)-    , _mlalUpdatedMin     :: !(Maybe Text)-    , _mlalLayerIds       :: !(Maybe [Text])-    , _mlalVolumeId       :: !(Maybe Text)-    , _mlalSource         :: !(Maybe Text)-    , _mlalPageToken      :: !(Maybe Text)-    , _mlalLayerId        :: !(Maybe Text)-    , _mlalMaxResults     :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyLibraryAnnotationsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlalContentVersion'------ * 'mlalShowDeleted'------ * 'mlalUpdatedMax'------ * 'mlalUpdatedMin'------ * 'mlalLayerIds'------ * 'mlalVolumeId'------ * 'mlalSource'------ * 'mlalPageToken'------ * 'mlalLayerId'------ * 'mlalMaxResults'-myLibraryAnnotationsList-    :: MyLibraryAnnotationsList-myLibraryAnnotationsList =-  MyLibraryAnnotationsList'-    { _mlalContentVersion = Nothing-    , _mlalShowDeleted = Nothing-    , _mlalUpdatedMax = Nothing-    , _mlalUpdatedMin = Nothing-    , _mlalLayerIds = Nothing-    , _mlalVolumeId = Nothing-    , _mlalSource = Nothing-    , _mlalPageToken = Nothing-    , _mlalLayerId = Nothing-    , _mlalMaxResults = Nothing-    }----- | The content version for the requested volume.-mlalContentVersion :: Lens' MyLibraryAnnotationsList (Maybe Text)-mlalContentVersion-  = lens _mlalContentVersion-      (\ s a -> s{_mlalContentVersion = a})---- | Set to true to return deleted annotations. updatedMin must be in the--- request to use this. Defaults to false.-mlalShowDeleted :: Lens' MyLibraryAnnotationsList (Maybe Bool)-mlalShowDeleted-  = lens _mlalShowDeleted-      (\ s a -> s{_mlalShowDeleted = a})---- | RFC 3339 timestamp to restrict to items updated prior to this timestamp--- (exclusive).-mlalUpdatedMax :: Lens' MyLibraryAnnotationsList (Maybe Text)-mlalUpdatedMax-  = lens _mlalUpdatedMax-      (\ s a -> s{_mlalUpdatedMax = a})---- | RFC 3339 timestamp to restrict to items updated since this timestamp--- (inclusive).-mlalUpdatedMin :: Lens' MyLibraryAnnotationsList (Maybe Text)-mlalUpdatedMin-  = lens _mlalUpdatedMin-      (\ s a -> s{_mlalUpdatedMin = a})---- | The layer ID(s) to limit annotation by.-mlalLayerIds :: Lens' MyLibraryAnnotationsList [Text]-mlalLayerIds-  = lens _mlalLayerIds (\ s a -> s{_mlalLayerIds = a})-      . _Default-      . _Coerce---- | The volume to restrict annotations to.-mlalVolumeId :: Lens' MyLibraryAnnotationsList (Maybe Text)-mlalVolumeId-  = lens _mlalVolumeId (\ s a -> s{_mlalVolumeId = a})---- | String to identify the originator of this request.-mlalSource :: Lens' MyLibraryAnnotationsList (Maybe Text)-mlalSource-  = lens _mlalSource (\ s a -> s{_mlalSource = a})---- | The value of the nextToken from the previous page.-mlalPageToken :: Lens' MyLibraryAnnotationsList (Maybe Text)-mlalPageToken-  = lens _mlalPageToken-      (\ s a -> s{_mlalPageToken = a})---- | The layer ID to limit annotation by.-mlalLayerId :: Lens' MyLibraryAnnotationsList (Maybe Text)-mlalLayerId-  = lens _mlalLayerId (\ s a -> s{_mlalLayerId = a})---- | Maximum number of results to return-mlalMaxResults :: Lens' MyLibraryAnnotationsList (Maybe Word32)-mlalMaxResults-  = lens _mlalMaxResults-      (\ s a -> s{_mlalMaxResults = a})-      . mapping _Coerce--instance GoogleRequest MyLibraryAnnotationsList where-        type Rs MyLibraryAnnotationsList = Annotations-        type Scopes MyLibraryAnnotationsList =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyLibraryAnnotationsList'{..}-          = go _mlalContentVersion _mlalShowDeleted-              _mlalUpdatedMax-              _mlalUpdatedMin-              (_mlalLayerIds ^. _Default)-              _mlalVolumeId-              _mlalSource-              _mlalPageToken-              _mlalLayerId-              _mlalMaxResults-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy MyLibraryAnnotationsListResource)-                      mempty
− gen/Network/Google/Resource/Books/MyLibrary/Annotations/Summary.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.Books.MyLibrary.Annotations.Summary--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets the summary of specified layers.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.mylibrary.annotations.summary@.-module Network.Google.Resource.Books.MyLibrary.Annotations.Summary-    (-    -- * REST Resource-      MyLibraryAnnotationsSummaryResource--    -- * Creating a Request-    , myLibraryAnnotationsSummary-    , MyLibraryAnnotationsSummary--    -- * Request Lenses-    , mlasLayerIds-    , mlasVolumeId-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.mylibrary.annotations.summary@ method which the--- 'MyLibraryAnnotationsSummary' request conforms to.-type MyLibraryAnnotationsSummaryResource =-     "books" :>-       "v1" :>-         "mylibrary" :>-           "annotations" :>-             "summary" :>-               QueryParams "layerIds" Text :>-                 QueryParam "volumeId" Text :>-                   QueryParam "alt" AltJSON :>-                     Post '[JSON] AnnotationsSummary---- | Gets the summary of specified layers.------ /See:/ 'myLibraryAnnotationsSummary' smart constructor.-data MyLibraryAnnotationsSummary =-  MyLibraryAnnotationsSummary'-    { _mlasLayerIds :: ![Text]-    , _mlasVolumeId :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyLibraryAnnotationsSummary' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlasLayerIds'------ * 'mlasVolumeId'-myLibraryAnnotationsSummary-    :: [Text] -- ^ 'mlasLayerIds'-    -> Text -- ^ 'mlasVolumeId'-    -> MyLibraryAnnotationsSummary-myLibraryAnnotationsSummary pMlasLayerIds_ pMlasVolumeId_ =-  MyLibraryAnnotationsSummary'-    {_mlasLayerIds = _Coerce # pMlasLayerIds_, _mlasVolumeId = pMlasVolumeId_}----- | Array of layer IDs to get the summary for.-mlasLayerIds :: Lens' MyLibraryAnnotationsSummary [Text]-mlasLayerIds-  = lens _mlasLayerIds (\ s a -> s{_mlasLayerIds = a})-      . _Coerce---- | Volume id to get the summary for.-mlasVolumeId :: Lens' MyLibraryAnnotationsSummary Text-mlasVolumeId-  = lens _mlasVolumeId (\ s a -> s{_mlasVolumeId = a})--instance GoogleRequest MyLibraryAnnotationsSummary-         where-        type Rs MyLibraryAnnotationsSummary =-             AnnotationsSummary-        type Scopes MyLibraryAnnotationsSummary =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyLibraryAnnotationsSummary'{..}-          = go _mlasLayerIds (Just _mlasVolumeId)-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy MyLibraryAnnotationsSummaryResource)-                      mempty
− gen/Network/Google/Resource/Books/MyLibrary/Annotations/Update.hs 
@@ -1,117 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Books.MyLibrary.Annotations.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 an existing annotation.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.mylibrary.annotations.update@.-module Network.Google.Resource.Books.MyLibrary.Annotations.Update-    (-    -- * REST Resource-      MyLibraryAnnotationsUpdateResource--    -- * Creating a Request-    , myLibraryAnnotationsUpdate-    , MyLibraryAnnotationsUpdate--    -- * Request Lenses-    , mlauPayload-    , mlauAnnotationId-    , mlauSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.mylibrary.annotations.update@ method which the--- 'MyLibraryAnnotationsUpdate' request conforms to.-type MyLibraryAnnotationsUpdateResource =-     "books" :>-       "v1" :>-         "mylibrary" :>-           "annotations" :>-             Capture "annotationId" Text :>-               QueryParam "source" Text :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] Annotation :> Put '[JSON] Annotation---- | Updates an existing annotation.------ /See:/ 'myLibraryAnnotationsUpdate' smart constructor.-data MyLibraryAnnotationsUpdate =-  MyLibraryAnnotationsUpdate'-    { _mlauPayload      :: !Annotation-    , _mlauAnnotationId :: !Text-    , _mlauSource       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyLibraryAnnotationsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlauPayload'------ * 'mlauAnnotationId'------ * 'mlauSource'-myLibraryAnnotationsUpdate-    :: Annotation -- ^ 'mlauPayload'-    -> Text -- ^ 'mlauAnnotationId'-    -> MyLibraryAnnotationsUpdate-myLibraryAnnotationsUpdate pMlauPayload_ pMlauAnnotationId_ =-  MyLibraryAnnotationsUpdate'-    { _mlauPayload = pMlauPayload_-    , _mlauAnnotationId = pMlauAnnotationId_-    , _mlauSource = Nothing-    }----- | Multipart request metadata.-mlauPayload :: Lens' MyLibraryAnnotationsUpdate Annotation-mlauPayload-  = lens _mlauPayload (\ s a -> s{_mlauPayload = a})---- | The ID for the annotation to update.-mlauAnnotationId :: Lens' MyLibraryAnnotationsUpdate Text-mlauAnnotationId-  = lens _mlauAnnotationId-      (\ s a -> s{_mlauAnnotationId = a})---- | String to identify the originator of this request.-mlauSource :: Lens' MyLibraryAnnotationsUpdate (Maybe Text)-mlauSource-  = lens _mlauSource (\ s a -> s{_mlauSource = a})--instance GoogleRequest MyLibraryAnnotationsUpdate-         where-        type Rs MyLibraryAnnotationsUpdate = Annotation-        type Scopes MyLibraryAnnotationsUpdate =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyLibraryAnnotationsUpdate'{..}-          = go _mlauAnnotationId _mlauSource (Just AltJSON)-              _mlauPayload-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy MyLibraryAnnotationsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Books/MyLibrary/Bookshelves/AddVolume.hs 
@@ -1,133 +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.Books.MyLibrary.Bookshelves.AddVolume--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Adds a volume to a bookshelf.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.mylibrary.bookshelves.addVolume@.-module Network.Google.Resource.Books.MyLibrary.Bookshelves.AddVolume-    (-    -- * REST Resource-      MyLibraryBookshelvesAddVolumeResource--    -- * Creating a Request-    , myLibraryBookshelvesAddVolume-    , MyLibraryBookshelvesAddVolume--    -- * Request Lenses-    , mlbavReason-    , mlbavShelf-    , mlbavVolumeId-    , mlbavSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.mylibrary.bookshelves.addVolume@ method which the--- 'MyLibraryBookshelvesAddVolume' request conforms to.-type MyLibraryBookshelvesAddVolumeResource =-     "books" :>-       "v1" :>-         "mylibrary" :>-           "bookshelves" :>-             Capture "shelf" Text :>-               "addVolume" :>-                 QueryParam "volumeId" Text :>-                   QueryParam "reason"-                     MyLibraryBookshelvesAddVolumeReason-                     :>-                     QueryParam "source" Text :>-                       QueryParam "alt" AltJSON :> Post '[JSON] ()---- | Adds a volume to a bookshelf.------ /See:/ 'myLibraryBookshelvesAddVolume' smart constructor.-data MyLibraryBookshelvesAddVolume =-  MyLibraryBookshelvesAddVolume'-    { _mlbavReason   :: !(Maybe MyLibraryBookshelvesAddVolumeReason)-    , _mlbavShelf    :: !Text-    , _mlbavVolumeId :: !Text-    , _mlbavSource   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyLibraryBookshelvesAddVolume' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlbavReason'------ * 'mlbavShelf'------ * 'mlbavVolumeId'------ * 'mlbavSource'-myLibraryBookshelvesAddVolume-    :: Text -- ^ 'mlbavShelf'-    -> Text -- ^ 'mlbavVolumeId'-    -> MyLibraryBookshelvesAddVolume-myLibraryBookshelvesAddVolume pMlbavShelf_ pMlbavVolumeId_ =-  MyLibraryBookshelvesAddVolume'-    { _mlbavReason = Nothing-    , _mlbavShelf = pMlbavShelf_-    , _mlbavVolumeId = pMlbavVolumeId_-    , _mlbavSource = Nothing-    }----- | The reason for which the book is added to the library.-mlbavReason :: Lens' MyLibraryBookshelvesAddVolume (Maybe MyLibraryBookshelvesAddVolumeReason)-mlbavReason-  = lens _mlbavReason (\ s a -> s{_mlbavReason = a})---- | ID of bookshelf to which to add a volume.-mlbavShelf :: Lens' MyLibraryBookshelvesAddVolume Text-mlbavShelf-  = lens _mlbavShelf (\ s a -> s{_mlbavShelf = a})---- | ID of volume to add.-mlbavVolumeId :: Lens' MyLibraryBookshelvesAddVolume Text-mlbavVolumeId-  = lens _mlbavVolumeId-      (\ s a -> s{_mlbavVolumeId = a})---- | String to identify the originator of this request.-mlbavSource :: Lens' MyLibraryBookshelvesAddVolume (Maybe Text)-mlbavSource-  = lens _mlbavSource (\ s a -> s{_mlbavSource = a})--instance GoogleRequest MyLibraryBookshelvesAddVolume-         where-        type Rs MyLibraryBookshelvesAddVolume = ()-        type Scopes MyLibraryBookshelvesAddVolume =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyLibraryBookshelvesAddVolume'{..}-          = go _mlbavShelf (Just _mlbavVolumeId) _mlbavReason-              _mlbavSource-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy MyLibraryBookshelvesAddVolumeResource)-                      mempty
− gen/Network/Google/Resource/Books/MyLibrary/Bookshelves/ClearVolumes.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.Books.MyLibrary.Bookshelves.ClearVolumes--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Clears all volumes from a bookshelf.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.mylibrary.bookshelves.clearVolumes@.-module Network.Google.Resource.Books.MyLibrary.Bookshelves.ClearVolumes-    (-    -- * REST Resource-      MyLibraryBookshelvesClearVolumesResource--    -- * Creating a Request-    , myLibraryBookshelvesClearVolumes-    , MyLibraryBookshelvesClearVolumes--    -- * Request Lenses-    , mlbcvShelf-    , mlbcvSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.mylibrary.bookshelves.clearVolumes@ method which the--- 'MyLibraryBookshelvesClearVolumes' request conforms to.-type MyLibraryBookshelvesClearVolumesResource =-     "books" :>-       "v1" :>-         "mylibrary" :>-           "bookshelves" :>-             Capture "shelf" Text :>-               "clearVolumes" :>-                 QueryParam "source" Text :>-                   QueryParam "alt" AltJSON :> Post '[JSON] ()---- | Clears all volumes from a bookshelf.------ /See:/ 'myLibraryBookshelvesClearVolumes' smart constructor.-data MyLibraryBookshelvesClearVolumes =-  MyLibraryBookshelvesClearVolumes'-    { _mlbcvShelf  :: !Text-    , _mlbcvSource :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyLibraryBookshelvesClearVolumes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlbcvShelf'------ * 'mlbcvSource'-myLibraryBookshelvesClearVolumes-    :: Text -- ^ 'mlbcvShelf'-    -> MyLibraryBookshelvesClearVolumes-myLibraryBookshelvesClearVolumes pMlbcvShelf_ =-  MyLibraryBookshelvesClearVolumes'-    {_mlbcvShelf = pMlbcvShelf_, _mlbcvSource = Nothing}----- | ID of bookshelf from which to remove a volume.-mlbcvShelf :: Lens' MyLibraryBookshelvesClearVolumes Text-mlbcvShelf-  = lens _mlbcvShelf (\ s a -> s{_mlbcvShelf = a})---- | String to identify the originator of this request.-mlbcvSource :: Lens' MyLibraryBookshelvesClearVolumes (Maybe Text)-mlbcvSource-  = lens _mlbcvSource (\ s a -> s{_mlbcvSource = a})--instance GoogleRequest-           MyLibraryBookshelvesClearVolumes-         where-        type Rs MyLibraryBookshelvesClearVolumes = ()-        type Scopes MyLibraryBookshelvesClearVolumes =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyLibraryBookshelvesClearVolumes'{..}-          = go _mlbcvShelf _mlbcvSource (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy MyLibraryBookshelvesClearVolumesResource)-                      mempty
− gen/Network/Google/Resource/Books/MyLibrary/Bookshelves/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.Books.MyLibrary.Bookshelves.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 metadata for a specific bookshelf belonging to the--- authenticated user.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.mylibrary.bookshelves.get@.-module Network.Google.Resource.Books.MyLibrary.Bookshelves.Get-    (-    -- * REST Resource-      MyLibraryBookshelvesGetResource--    -- * Creating a Request-    , myLibraryBookshelvesGet-    , MyLibraryBookshelvesGet--    -- * Request Lenses-    , mlbgShelf-    , mlbgSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.mylibrary.bookshelves.get@ method which the--- 'MyLibraryBookshelvesGet' request conforms to.-type MyLibraryBookshelvesGetResource =-     "books" :>-       "v1" :>-         "mylibrary" :>-           "bookshelves" :>-             Capture "shelf" Text :>-               QueryParam "source" Text :>-                 QueryParam "alt" AltJSON :> Get '[JSON] Bookshelf---- | Retrieves metadata for a specific bookshelf belonging to the--- authenticated user.------ /See:/ 'myLibraryBookshelvesGet' smart constructor.-data MyLibraryBookshelvesGet =-  MyLibraryBookshelvesGet'-    { _mlbgShelf  :: !Text-    , _mlbgSource :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyLibraryBookshelvesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlbgShelf'------ * 'mlbgSource'-myLibraryBookshelvesGet-    :: Text -- ^ 'mlbgShelf'-    -> MyLibraryBookshelvesGet-myLibraryBookshelvesGet pMlbgShelf_ =-  MyLibraryBookshelvesGet' {_mlbgShelf = pMlbgShelf_, _mlbgSource = Nothing}----- | ID of bookshelf to retrieve.-mlbgShelf :: Lens' MyLibraryBookshelvesGet Text-mlbgShelf-  = lens _mlbgShelf (\ s a -> s{_mlbgShelf = a})---- | String to identify the originator of this request.-mlbgSource :: Lens' MyLibraryBookshelvesGet (Maybe Text)-mlbgSource-  = lens _mlbgSource (\ s a -> s{_mlbgSource = a})--instance GoogleRequest MyLibraryBookshelvesGet where-        type Rs MyLibraryBookshelvesGet = Bookshelf-        type Scopes MyLibraryBookshelvesGet =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyLibraryBookshelvesGet'{..}-          = go _mlbgShelf _mlbgSource (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy MyLibraryBookshelvesGetResource)-                      mempty
− gen/Network/Google/Resource/Books/MyLibrary/Bookshelves/List.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.Books.MyLibrary.Bookshelves.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 bookshelves belonging to the authenticated user.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.mylibrary.bookshelves.list@.-module Network.Google.Resource.Books.MyLibrary.Bookshelves.List-    (-    -- * REST Resource-      MyLibraryBookshelvesListResource--    -- * Creating a Request-    , myLibraryBookshelvesList-    , MyLibraryBookshelvesList--    -- * Request Lenses-    , mlblSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.mylibrary.bookshelves.list@ method which the--- 'MyLibraryBookshelvesList' request conforms to.-type MyLibraryBookshelvesListResource =-     "books" :>-       "v1" :>-         "mylibrary" :>-           "bookshelves" :>-             QueryParam "source" Text :>-               QueryParam "alt" AltJSON :> Get '[JSON] Bookshelves---- | Retrieves a list of bookshelves belonging to the authenticated user.------ /See:/ 'myLibraryBookshelvesList' smart constructor.-newtype MyLibraryBookshelvesList =-  MyLibraryBookshelvesList'-    { _mlblSource :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyLibraryBookshelvesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlblSource'-myLibraryBookshelvesList-    :: MyLibraryBookshelvesList-myLibraryBookshelvesList = MyLibraryBookshelvesList' {_mlblSource = Nothing}----- | String to identify the originator of this request.-mlblSource :: Lens' MyLibraryBookshelvesList (Maybe Text)-mlblSource-  = lens _mlblSource (\ s a -> s{_mlblSource = a})--instance GoogleRequest MyLibraryBookshelvesList where-        type Rs MyLibraryBookshelvesList = Bookshelves-        type Scopes MyLibraryBookshelvesList =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyLibraryBookshelvesList'{..}-          = go _mlblSource (Just AltJSON) booksService-          where go-                  = buildClient-                      (Proxy :: Proxy MyLibraryBookshelvesListResource)-                      mempty
− gen/Network/Google/Resource/Books/MyLibrary/Bookshelves/MoveVolume.hs 
@@ -1,136 +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.Books.MyLibrary.Bookshelves.MoveVolume--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Moves a volume within a bookshelf.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.mylibrary.bookshelves.moveVolume@.-module Network.Google.Resource.Books.MyLibrary.Bookshelves.MoveVolume-    (-    -- * REST Resource-      MyLibraryBookshelvesMoveVolumeResource--    -- * Creating a Request-    , myLibraryBookshelvesMoveVolume-    , MyLibraryBookshelvesMoveVolume--    -- * Request Lenses-    , mlbmvShelf-    , mlbmvVolumeId-    , mlbmvSource-    , mlbmvVolumePosition-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.mylibrary.bookshelves.moveVolume@ method which the--- 'MyLibraryBookshelvesMoveVolume' request conforms to.-type MyLibraryBookshelvesMoveVolumeResource =-     "books" :>-       "v1" :>-         "mylibrary" :>-           "bookshelves" :>-             Capture "shelf" Text :>-               "moveVolume" :>-                 QueryParam "volumeId" Text :>-                   QueryParam "volumePosition" (Textual Int32) :>-                     QueryParam "source" Text :>-                       QueryParam "alt" AltJSON :> Post '[JSON] ()---- | Moves a volume within a bookshelf.------ /See:/ 'myLibraryBookshelvesMoveVolume' smart constructor.-data MyLibraryBookshelvesMoveVolume =-  MyLibraryBookshelvesMoveVolume'-    { _mlbmvShelf          :: !Text-    , _mlbmvVolumeId       :: !Text-    , _mlbmvSource         :: !(Maybe Text)-    , _mlbmvVolumePosition :: !(Textual Int32)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyLibraryBookshelvesMoveVolume' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlbmvShelf'------ * 'mlbmvVolumeId'------ * 'mlbmvSource'------ * 'mlbmvVolumePosition'-myLibraryBookshelvesMoveVolume-    :: Text -- ^ 'mlbmvShelf'-    -> Text -- ^ 'mlbmvVolumeId'-    -> Int32 -- ^ 'mlbmvVolumePosition'-    -> MyLibraryBookshelvesMoveVolume-myLibraryBookshelvesMoveVolume pMlbmvShelf_ pMlbmvVolumeId_ pMlbmvVolumePosition_ =-  MyLibraryBookshelvesMoveVolume'-    { _mlbmvShelf = pMlbmvShelf_-    , _mlbmvVolumeId = pMlbmvVolumeId_-    , _mlbmvSource = Nothing-    , _mlbmvVolumePosition = _Coerce # pMlbmvVolumePosition_-    }----- | ID of bookshelf with the volume.-mlbmvShelf :: Lens' MyLibraryBookshelvesMoveVolume Text-mlbmvShelf-  = lens _mlbmvShelf (\ s a -> s{_mlbmvShelf = a})---- | ID of volume to move.-mlbmvVolumeId :: Lens' MyLibraryBookshelvesMoveVolume Text-mlbmvVolumeId-  = lens _mlbmvVolumeId-      (\ s a -> s{_mlbmvVolumeId = a})---- | String to identify the originator of this request.-mlbmvSource :: Lens' MyLibraryBookshelvesMoveVolume (Maybe Text)-mlbmvSource-  = lens _mlbmvSource (\ s a -> s{_mlbmvSource = a})---- | Position on shelf to move the item (0 puts the item before the current--- first item, 1 puts it between the first and the second and so on.)-mlbmvVolumePosition :: Lens' MyLibraryBookshelvesMoveVolume Int32-mlbmvVolumePosition-  = lens _mlbmvVolumePosition-      (\ s a -> s{_mlbmvVolumePosition = a})-      . _Coerce--instance GoogleRequest MyLibraryBookshelvesMoveVolume-         where-        type Rs MyLibraryBookshelvesMoveVolume = ()-        type Scopes MyLibraryBookshelvesMoveVolume =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyLibraryBookshelvesMoveVolume'{..}-          = go _mlbmvShelf (Just _mlbmvVolumeId)-              (Just _mlbmvVolumePosition)-              _mlbmvSource-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy MyLibraryBookshelvesMoveVolumeResource)-                      mempty
− gen/Network/Google/Resource/Books/MyLibrary/Bookshelves/RemoveVolume.hs 
@@ -1,134 +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.Books.MyLibrary.Bookshelves.RemoveVolume--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Removes a volume from a bookshelf.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.mylibrary.bookshelves.removeVolume@.-module Network.Google.Resource.Books.MyLibrary.Bookshelves.RemoveVolume-    (-    -- * REST Resource-      MyLibraryBookshelvesRemoveVolumeResource--    -- * Creating a Request-    , myLibraryBookshelvesRemoveVolume-    , MyLibraryBookshelvesRemoveVolume--    -- * Request Lenses-    , mlbrvReason-    , mlbrvShelf-    , mlbrvVolumeId-    , mlbrvSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.mylibrary.bookshelves.removeVolume@ method which the--- 'MyLibraryBookshelvesRemoveVolume' request conforms to.-type MyLibraryBookshelvesRemoveVolumeResource =-     "books" :>-       "v1" :>-         "mylibrary" :>-           "bookshelves" :>-             Capture "shelf" Text :>-               "removeVolume" :>-                 QueryParam "volumeId" Text :>-                   QueryParam "reason"-                     MyLibraryBookshelvesRemoveVolumeReason-                     :>-                     QueryParam "source" Text :>-                       QueryParam "alt" AltJSON :> Post '[JSON] ()---- | Removes a volume from a bookshelf.------ /See:/ 'myLibraryBookshelvesRemoveVolume' smart constructor.-data MyLibraryBookshelvesRemoveVolume =-  MyLibraryBookshelvesRemoveVolume'-    { _mlbrvReason   :: !(Maybe MyLibraryBookshelvesRemoveVolumeReason)-    , _mlbrvShelf    :: !Text-    , _mlbrvVolumeId :: !Text-    , _mlbrvSource   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyLibraryBookshelvesRemoveVolume' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlbrvReason'------ * 'mlbrvShelf'------ * 'mlbrvVolumeId'------ * 'mlbrvSource'-myLibraryBookshelvesRemoveVolume-    :: Text -- ^ 'mlbrvShelf'-    -> Text -- ^ 'mlbrvVolumeId'-    -> MyLibraryBookshelvesRemoveVolume-myLibraryBookshelvesRemoveVolume pMlbrvShelf_ pMlbrvVolumeId_ =-  MyLibraryBookshelvesRemoveVolume'-    { _mlbrvReason = Nothing-    , _mlbrvShelf = pMlbrvShelf_-    , _mlbrvVolumeId = pMlbrvVolumeId_-    , _mlbrvSource = Nothing-    }----- | The reason for which the book is removed from the library.-mlbrvReason :: Lens' MyLibraryBookshelvesRemoveVolume (Maybe MyLibraryBookshelvesRemoveVolumeReason)-mlbrvReason-  = lens _mlbrvReason (\ s a -> s{_mlbrvReason = a})---- | ID of bookshelf from which to remove a volume.-mlbrvShelf :: Lens' MyLibraryBookshelvesRemoveVolume Text-mlbrvShelf-  = lens _mlbrvShelf (\ s a -> s{_mlbrvShelf = a})---- | ID of volume to remove.-mlbrvVolumeId :: Lens' MyLibraryBookshelvesRemoveVolume Text-mlbrvVolumeId-  = lens _mlbrvVolumeId-      (\ s a -> s{_mlbrvVolumeId = a})---- | String to identify the originator of this request.-mlbrvSource :: Lens' MyLibraryBookshelvesRemoveVolume (Maybe Text)-mlbrvSource-  = lens _mlbrvSource (\ s a -> s{_mlbrvSource = a})--instance GoogleRequest-           MyLibraryBookshelvesRemoveVolume-         where-        type Rs MyLibraryBookshelvesRemoveVolume = ()-        type Scopes MyLibraryBookshelvesRemoveVolume =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyLibraryBookshelvesRemoveVolume'{..}-          = go _mlbrvShelf (Just _mlbrvVolumeId) _mlbrvReason-              _mlbrvSource-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy MyLibraryBookshelvesRemoveVolumeResource)-                      mempty
− gen/Network/Google/Resource/Books/MyLibrary/Bookshelves/Volumes/List.hs 
@@ -1,184 +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.Books.MyLibrary.Bookshelves.Volumes.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)------ Gets volume information for volumes on a bookshelf.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.mylibrary.bookshelves.volumes.list@.-module Network.Google.Resource.Books.MyLibrary.Bookshelves.Volumes.List-    (-    -- * REST Resource-      MyLibraryBookshelvesVolumesListResource--    -- * Creating a Request-    , myLibraryBookshelvesVolumesList-    , MyLibraryBookshelvesVolumesList--    -- * Request Lenses-    , mlbvlCountry-    , mlbvlQ-    , mlbvlShelf-    , mlbvlSource-    , mlbvlProjection-    , mlbvlStartIndex-    , mlbvlMaxResults-    , mlbvlShowPreOrders-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.mylibrary.bookshelves.volumes.list@ method which the--- 'MyLibraryBookshelvesVolumesList' request conforms to.-type MyLibraryBookshelvesVolumesListResource =-     "books" :>-       "v1" :>-         "mylibrary" :>-           "bookshelves" :>-             Capture "shelf" Text :>-               "volumes" :>-                 QueryParam "country" Text :>-                   QueryParam "q" Text :>-                     QueryParam "source" Text :>-                       QueryParam "projection"-                         MyLibraryBookshelvesVolumesListProjection-                         :>-                         QueryParam "startIndex" (Textual Word32) :>-                           QueryParam "maxResults" (Textual Word32) :>-                             QueryParam "showPreorders" Bool :>-                               QueryParam "alt" AltJSON :> Get '[JSON] Volumes---- | Gets volume information for volumes on a bookshelf.------ /See:/ 'myLibraryBookshelvesVolumesList' smart constructor.-data MyLibraryBookshelvesVolumesList =-  MyLibraryBookshelvesVolumesList'-    { _mlbvlCountry       :: !(Maybe Text)-    , _mlbvlQ             :: !(Maybe Text)-    , _mlbvlShelf         :: !Text-    , _mlbvlSource        :: !(Maybe Text)-    , _mlbvlProjection    :: !(Maybe MyLibraryBookshelvesVolumesListProjection)-    , _mlbvlStartIndex    :: !(Maybe (Textual Word32))-    , _mlbvlMaxResults    :: !(Maybe (Textual Word32))-    , _mlbvlShowPreOrders :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyLibraryBookshelvesVolumesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlbvlCountry'------ * 'mlbvlQ'------ * 'mlbvlShelf'------ * 'mlbvlSource'------ * 'mlbvlProjection'------ * 'mlbvlStartIndex'------ * 'mlbvlMaxResults'------ * 'mlbvlShowPreOrders'-myLibraryBookshelvesVolumesList-    :: Text -- ^ 'mlbvlShelf'-    -> MyLibraryBookshelvesVolumesList-myLibraryBookshelvesVolumesList pMlbvlShelf_ =-  MyLibraryBookshelvesVolumesList'-    { _mlbvlCountry = Nothing-    , _mlbvlQ = Nothing-    , _mlbvlShelf = pMlbvlShelf_-    , _mlbvlSource = Nothing-    , _mlbvlProjection = Nothing-    , _mlbvlStartIndex = Nothing-    , _mlbvlMaxResults = Nothing-    , _mlbvlShowPreOrders = Nothing-    }----- | ISO-3166-1 code to override the IP-based location.-mlbvlCountry :: Lens' MyLibraryBookshelvesVolumesList (Maybe Text)-mlbvlCountry-  = lens _mlbvlCountry (\ s a -> s{_mlbvlCountry = a})---- | Full-text search query string in this bookshelf.-mlbvlQ :: Lens' MyLibraryBookshelvesVolumesList (Maybe Text)-mlbvlQ = lens _mlbvlQ (\ s a -> s{_mlbvlQ = a})---- | The bookshelf ID or name retrieve volumes for.-mlbvlShelf :: Lens' MyLibraryBookshelvesVolumesList Text-mlbvlShelf-  = lens _mlbvlShelf (\ s a -> s{_mlbvlShelf = a})---- | String to identify the originator of this request.-mlbvlSource :: Lens' MyLibraryBookshelvesVolumesList (Maybe Text)-mlbvlSource-  = lens _mlbvlSource (\ s a -> s{_mlbvlSource = a})---- | Restrict information returned to a set of selected fields.-mlbvlProjection :: Lens' MyLibraryBookshelvesVolumesList (Maybe MyLibraryBookshelvesVolumesListProjection)-mlbvlProjection-  = lens _mlbvlProjection-      (\ s a -> s{_mlbvlProjection = a})---- | Index of the first element to return (starts at 0)-mlbvlStartIndex :: Lens' MyLibraryBookshelvesVolumesList (Maybe Word32)-mlbvlStartIndex-  = lens _mlbvlStartIndex-      (\ s a -> s{_mlbvlStartIndex = a})-      . mapping _Coerce---- | Maximum number of results to return-mlbvlMaxResults :: Lens' MyLibraryBookshelvesVolumesList (Maybe Word32)-mlbvlMaxResults-  = lens _mlbvlMaxResults-      (\ s a -> s{_mlbvlMaxResults = a})-      . mapping _Coerce---- | Set to true to show pre-ordered books. Defaults to false.-mlbvlShowPreOrders :: Lens' MyLibraryBookshelvesVolumesList (Maybe Bool)-mlbvlShowPreOrders-  = lens _mlbvlShowPreOrders-      (\ s a -> s{_mlbvlShowPreOrders = a})--instance GoogleRequest-           MyLibraryBookshelvesVolumesList-         where-        type Rs MyLibraryBookshelvesVolumesList = Volumes-        type Scopes MyLibraryBookshelvesVolumesList =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyLibraryBookshelvesVolumesList'{..}-          = go _mlbvlShelf _mlbvlCountry _mlbvlQ _mlbvlSource-              _mlbvlProjection-              _mlbvlStartIndex-              _mlbvlMaxResults-              _mlbvlShowPreOrders-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy MyLibraryBookshelvesVolumesListResource)-                      mempty
− gen/Network/Google/Resource/Books/MyLibrary/ReadingPositions/Get.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.Books.MyLibrary.ReadingPositions.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 my reading position information for a volume.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.mylibrary.readingpositions.get@.-module Network.Google.Resource.Books.MyLibrary.ReadingPositions.Get-    (-    -- * REST Resource-      MyLibraryReadingPositionsGetResource--    -- * Creating a Request-    , myLibraryReadingPositionsGet-    , MyLibraryReadingPositionsGet--    -- * Request Lenses-    , mlrpgContentVersion-    , mlrpgVolumeId-    , mlrpgSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.mylibrary.readingpositions.get@ method which the--- 'MyLibraryReadingPositionsGet' request conforms to.-type MyLibraryReadingPositionsGetResource =-     "books" :>-       "v1" :>-         "mylibrary" :>-           "readingpositions" :>-             Capture "volumeId" Text :>-               QueryParam "contentVersion" Text :>-                 QueryParam "source" Text :>-                   QueryParam "alt" AltJSON :>-                     Get '[JSON] ReadingPosition---- | Retrieves my reading position information for a volume.------ /See:/ 'myLibraryReadingPositionsGet' smart constructor.-data MyLibraryReadingPositionsGet =-  MyLibraryReadingPositionsGet'-    { _mlrpgContentVersion :: !(Maybe Text)-    , _mlrpgVolumeId       :: !Text-    , _mlrpgSource         :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyLibraryReadingPositionsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlrpgContentVersion'------ * 'mlrpgVolumeId'------ * 'mlrpgSource'-myLibraryReadingPositionsGet-    :: Text -- ^ 'mlrpgVolumeId'-    -> MyLibraryReadingPositionsGet-myLibraryReadingPositionsGet pMlrpgVolumeId_ =-  MyLibraryReadingPositionsGet'-    { _mlrpgContentVersion = Nothing-    , _mlrpgVolumeId = pMlrpgVolumeId_-    , _mlrpgSource = Nothing-    }----- | Volume content version for which this reading position is requested.-mlrpgContentVersion :: Lens' MyLibraryReadingPositionsGet (Maybe Text)-mlrpgContentVersion-  = lens _mlrpgContentVersion-      (\ s a -> s{_mlrpgContentVersion = a})---- | ID of volume for which to retrieve a reading position.-mlrpgVolumeId :: Lens' MyLibraryReadingPositionsGet Text-mlrpgVolumeId-  = lens _mlrpgVolumeId-      (\ s a -> s{_mlrpgVolumeId = a})---- | String to identify the originator of this request.-mlrpgSource :: Lens' MyLibraryReadingPositionsGet (Maybe Text)-mlrpgSource-  = lens _mlrpgSource (\ s a -> s{_mlrpgSource = a})--instance GoogleRequest MyLibraryReadingPositionsGet-         where-        type Rs MyLibraryReadingPositionsGet =-             ReadingPosition-        type Scopes MyLibraryReadingPositionsGet =-             '["https://www.googleapis.com/auth/books"]-        requestClient MyLibraryReadingPositionsGet'{..}-          = go _mlrpgVolumeId _mlrpgContentVersion _mlrpgSource-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy MyLibraryReadingPositionsGetResource)-                      mempty
− gen/Network/Google/Resource/Books/MyLibrary/ReadingPositions/SetPosition.hs 
@@ -1,177 +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.Books.MyLibrary.ReadingPositions.SetPosition--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Sets my reading position information for a volume.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.mylibrary.readingpositions.setPosition@.-module Network.Google.Resource.Books.MyLibrary.ReadingPositions.SetPosition-    (-    -- * REST Resource-      MyLibraryReadingPositionsSetPositionResource--    -- * Creating a Request-    , myLibraryReadingPositionsSetPosition-    , MyLibraryReadingPositionsSetPosition--    -- * Request Lenses-    , mlrpspDeviceCookie-    , mlrpspContentVersion-    , mlrpspAction-    , mlrpspVolumeId-    , mlrpspSource-    , mlrpspTimestamp-    , mlrpspPosition-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.mylibrary.readingpositions.setPosition@ method which the--- 'MyLibraryReadingPositionsSetPosition' request conforms to.-type MyLibraryReadingPositionsSetPositionResource =-     "books" :>-       "v1" :>-         "mylibrary" :>-           "readingpositions" :>-             Capture "volumeId" Text :>-               "setPosition" :>-                 QueryParam "timestamp" Text :>-                   QueryParam "position" Text :>-                     QueryParam "deviceCookie" Text :>-                       QueryParam "contentVersion" Text :>-                         QueryParam "action"-                           MyLibraryReadingPositionsSetPositionAction-                           :>-                           QueryParam "source" Text :>-                             QueryParam "alt" AltJSON :> Post '[JSON] ()---- | Sets my reading position information for a volume.------ /See:/ 'myLibraryReadingPositionsSetPosition' smart constructor.-data MyLibraryReadingPositionsSetPosition =-  MyLibraryReadingPositionsSetPosition'-    { _mlrpspDeviceCookie   :: !(Maybe Text)-    , _mlrpspContentVersion :: !(Maybe Text)-    , _mlrpspAction         :: !(Maybe MyLibraryReadingPositionsSetPositionAction)-    , _mlrpspVolumeId       :: !Text-    , _mlrpspSource         :: !(Maybe Text)-    , _mlrpspTimestamp      :: !Text-    , _mlrpspPosition       :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MyLibraryReadingPositionsSetPosition' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlrpspDeviceCookie'------ * 'mlrpspContentVersion'------ * 'mlrpspAction'------ * 'mlrpspVolumeId'------ * 'mlrpspSource'------ * 'mlrpspTimestamp'------ * 'mlrpspPosition'-myLibraryReadingPositionsSetPosition-    :: Text -- ^ 'mlrpspVolumeId'-    -> Text -- ^ 'mlrpspTimestamp'-    -> Text -- ^ 'mlrpspPosition'-    -> MyLibraryReadingPositionsSetPosition-myLibraryReadingPositionsSetPosition pMlrpspVolumeId_ pMlrpspTimestamp_ pMlrpspPosition_ =-  MyLibraryReadingPositionsSetPosition'-    { _mlrpspDeviceCookie = Nothing-    , _mlrpspContentVersion = Nothing-    , _mlrpspAction = Nothing-    , _mlrpspVolumeId = pMlrpspVolumeId_-    , _mlrpspSource = Nothing-    , _mlrpspTimestamp = pMlrpspTimestamp_-    , _mlrpspPosition = pMlrpspPosition_-    }----- | Random persistent device cookie optional on set position.-mlrpspDeviceCookie :: Lens' MyLibraryReadingPositionsSetPosition (Maybe Text)-mlrpspDeviceCookie-  = lens _mlrpspDeviceCookie-      (\ s a -> s{_mlrpspDeviceCookie = a})---- | Volume content version for which this reading position applies.-mlrpspContentVersion :: Lens' MyLibraryReadingPositionsSetPosition (Maybe Text)-mlrpspContentVersion-  = lens _mlrpspContentVersion-      (\ s a -> s{_mlrpspContentVersion = a})---- | Action that caused this reading position to be set.-mlrpspAction :: Lens' MyLibraryReadingPositionsSetPosition (Maybe MyLibraryReadingPositionsSetPositionAction)-mlrpspAction-  = lens _mlrpspAction (\ s a -> s{_mlrpspAction = a})---- | ID of volume for which to update the reading position.-mlrpspVolumeId :: Lens' MyLibraryReadingPositionsSetPosition Text-mlrpspVolumeId-  = lens _mlrpspVolumeId-      (\ s a -> s{_mlrpspVolumeId = a})---- | String to identify the originator of this request.-mlrpspSource :: Lens' MyLibraryReadingPositionsSetPosition (Maybe Text)-mlrpspSource-  = lens _mlrpspSource (\ s a -> s{_mlrpspSource = a})---- | RFC 3339 UTC format timestamp associated with this reading position.-mlrpspTimestamp :: Lens' MyLibraryReadingPositionsSetPosition Text-mlrpspTimestamp-  = lens _mlrpspTimestamp-      (\ s a -> s{_mlrpspTimestamp = a})---- | Position string for the new volume reading position.-mlrpspPosition :: Lens' MyLibraryReadingPositionsSetPosition Text-mlrpspPosition-  = lens _mlrpspPosition-      (\ s a -> s{_mlrpspPosition = a})--instance GoogleRequest-           MyLibraryReadingPositionsSetPosition-         where-        type Rs MyLibraryReadingPositionsSetPosition = ()-        type Scopes MyLibraryReadingPositionsSetPosition =-             '["https://www.googleapis.com/auth/books"]-        requestClient-          MyLibraryReadingPositionsSetPosition'{..}-          = go _mlrpspVolumeId (Just _mlrpspTimestamp)-              (Just _mlrpspPosition)-              _mlrpspDeviceCookie-              _mlrpspContentVersion-              _mlrpspAction-              _mlrpspSource-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy MyLibraryReadingPositionsSetPositionResource)-                      mempty
− gen/Network/Google/Resource/Books/Notification/Get.hs 
@@ -1,114 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Books.Notification.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)------ Returns notification details for a given notification id.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.notification.get@.-module Network.Google.Resource.Books.Notification.Get-    (-    -- * REST Resource-      NotificationGetResource--    -- * Creating a Request-    , notificationGet-    , NotificationGet--    -- * Request Lenses-    , ngLocale-    , ngNotificationId-    , ngSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.notification.get@ method which the--- 'NotificationGet' request conforms to.-type NotificationGetResource =-     "books" :>-       "v1" :>-         "notification" :>-           "get" :>-             QueryParam "notification_id" Text :>-               QueryParam "locale" Text :>-                 QueryParam "source" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Notification---- | Returns notification details for a given notification id.------ /See:/ 'notificationGet' smart constructor.-data NotificationGet =-  NotificationGet'-    { _ngLocale         :: !(Maybe Text)-    , _ngNotificationId :: !Text-    , _ngSource         :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'NotificationGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ngLocale'------ * 'ngNotificationId'------ * 'ngSource'-notificationGet-    :: Text -- ^ 'ngNotificationId'-    -> NotificationGet-notificationGet pNgNotificationId_ =-  NotificationGet'-    { _ngLocale = Nothing-    , _ngNotificationId = pNgNotificationId_-    , _ngSource = Nothing-    }----- | ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'. Used for--- generating notification title and body.-ngLocale :: Lens' NotificationGet (Maybe Text)-ngLocale = lens _ngLocale (\ s a -> s{_ngLocale = a})---- | String to identify the notification.-ngNotificationId :: Lens' NotificationGet Text-ngNotificationId-  = lens _ngNotificationId-      (\ s a -> s{_ngNotificationId = a})---- | String to identify the originator of this request.-ngSource :: Lens' NotificationGet (Maybe Text)-ngSource = lens _ngSource (\ s a -> s{_ngSource = a})--instance GoogleRequest NotificationGet where-        type Rs NotificationGet = Notification-        type Scopes NotificationGet =-             '["https://www.googleapis.com/auth/books"]-        requestClient NotificationGet'{..}-          = go (Just _ngNotificationId) _ngLocale _ngSource-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy NotificationGetResource)-                      mempty
− gen/Network/Google/Resource/Books/Onboarding/ListCategories.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.Books.Onboarding.ListCategories--- Copyright   : (c) 2015-2016 Brendan 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 categories for onboarding experience.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.onboarding.listCategories@.-module Network.Google.Resource.Books.Onboarding.ListCategories-    (-    -- * REST Resource-      OnboardingListCategoriesResource--    -- * Creating a Request-    , onboardingListCategories-    , OnboardingListCategories--    -- * Request Lenses-    , olcLocale-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.onboarding.listCategories@ method which the--- 'OnboardingListCategories' request conforms to.-type OnboardingListCategoriesResource =-     "books" :>-       "v1" :>-         "onboarding" :>-           "listCategories" :>-             QueryParam "locale" Text :>-               QueryParam "alt" AltJSON :> Get '[JSON] Category---- | List categories for onboarding experience.------ /See:/ 'onboardingListCategories' smart constructor.-newtype OnboardingListCategories =-  OnboardingListCategories'-    { _olcLocale :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OnboardingListCategories' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'olcLocale'-onboardingListCategories-    :: OnboardingListCategories-onboardingListCategories = OnboardingListCategories' {_olcLocale = Nothing}----- | ISO-639-1 language and ISO-3166-1 country code. Default is en-US if--- unset.-olcLocale :: Lens' OnboardingListCategories (Maybe Text)-olcLocale-  = lens _olcLocale (\ s a -> s{_olcLocale = a})--instance GoogleRequest OnboardingListCategories where-        type Rs OnboardingListCategories = Category-        type Scopes OnboardingListCategories =-             '["https://www.googleapis.com/auth/books"]-        requestClient OnboardingListCategories'{..}-          = go _olcLocale (Just AltJSON) booksService-          where go-                  = buildClient-                      (Proxy :: Proxy OnboardingListCategoriesResource)-                      mempty
− gen/Network/Google/Resource/Books/Onboarding/ListCategoryVolumes.hs 
@@ -1,150 +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.Books.Onboarding.ListCategoryVolumes--- Copyright   : (c) 2015-2016 Brendan 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 available volumes under categories for onboarding experience.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.onboarding.listCategoryVolumes@.-module Network.Google.Resource.Books.Onboarding.ListCategoryVolumes-    (-    -- * REST Resource-      OnboardingListCategoryVolumesResource--    -- * Creating a Request-    , onboardingListCategoryVolumes-    , OnboardingListCategoryVolumes--    -- * Request Lenses-    , olcvLocale-    , olcvMaxAllowedMaturityRating-    , olcvCategoryId-    , olcvPageToken-    , olcvPageSize-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.onboarding.listCategoryVolumes@ method which the--- 'OnboardingListCategoryVolumes' request conforms to.-type OnboardingListCategoryVolumesResource =-     "books" :>-       "v1" :>-         "onboarding" :>-           "listCategoryVolumes" :>-             QueryParam "locale" Text :>-               QueryParam "maxAllowedMaturityRating"-                 OnboardingListCategoryVolumesMaxAllowedMaturityRating-                 :>-                 QueryParams "categoryId" Text :>-                   QueryParam "pageToken" Text :>-                     QueryParam "pageSize" (Textual Word32) :>-                       QueryParam "alt" AltJSON :> Get '[JSON] Volume2---- | List available volumes under categories for onboarding experience.------ /See:/ 'onboardingListCategoryVolumes' smart constructor.-data OnboardingListCategoryVolumes =-  OnboardingListCategoryVolumes'-    { _olcvLocale                   :: !(Maybe Text)-    , _olcvMaxAllowedMaturityRating :: !(Maybe OnboardingListCategoryVolumesMaxAllowedMaturityRating)-    , _olcvCategoryId               :: !(Maybe [Text])-    , _olcvPageToken                :: !(Maybe Text)-    , _olcvPageSize                 :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'OnboardingListCategoryVolumes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'olcvLocale'------ * 'olcvMaxAllowedMaturityRating'------ * 'olcvCategoryId'------ * 'olcvPageToken'------ * 'olcvPageSize'-onboardingListCategoryVolumes-    :: OnboardingListCategoryVolumes-onboardingListCategoryVolumes =-  OnboardingListCategoryVolumes'-    { _olcvLocale = Nothing-    , _olcvMaxAllowedMaturityRating = Nothing-    , _olcvCategoryId = Nothing-    , _olcvPageToken = Nothing-    , _olcvPageSize = Nothing-    }----- | ISO-639-1 language and ISO-3166-1 country code. Default is en-US if--- unset.-olcvLocale :: Lens' OnboardingListCategoryVolumes (Maybe Text)-olcvLocale-  = lens _olcvLocale (\ s a -> s{_olcvLocale = a})---- | The maximum allowed maturity rating of returned volumes. Books with a--- higher maturity rating are filtered out.-olcvMaxAllowedMaturityRating :: Lens' OnboardingListCategoryVolumes (Maybe OnboardingListCategoryVolumesMaxAllowedMaturityRating)-olcvMaxAllowedMaturityRating-  = lens _olcvMaxAllowedMaturityRating-      (\ s a -> s{_olcvMaxAllowedMaturityRating = a})---- | List of category ids requested.-olcvCategoryId :: Lens' OnboardingListCategoryVolumes [Text]-olcvCategoryId-  = lens _olcvCategoryId-      (\ s a -> s{_olcvCategoryId = a})-      . _Default-      . _Coerce---- | The value of the nextToken from the previous page.-olcvPageToken :: Lens' OnboardingListCategoryVolumes (Maybe Text)-olcvPageToken-  = lens _olcvPageToken-      (\ s a -> s{_olcvPageToken = a})---- | Number of maximum results per page to be included in the response.-olcvPageSize :: Lens' OnboardingListCategoryVolumes (Maybe Word32)-olcvPageSize-  = lens _olcvPageSize (\ s a -> s{_olcvPageSize = a})-      . mapping _Coerce--instance GoogleRequest OnboardingListCategoryVolumes-         where-        type Rs OnboardingListCategoryVolumes = Volume2-        type Scopes OnboardingListCategoryVolumes =-             '["https://www.googleapis.com/auth/books"]-        requestClient OnboardingListCategoryVolumes'{..}-          = go _olcvLocale _olcvMaxAllowedMaturityRating-              (_olcvCategoryId ^. _Default)-              _olcvPageToken-              _olcvPageSize-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy OnboardingListCategoryVolumesResource)-                      mempty
− gen/Network/Google/Resource/Books/Personalizedstream/Get.hs 
@@ -1,117 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Books.Personalizedstream.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)------ Returns a stream of personalized book clusters------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.personalizedstream.get@.-module Network.Google.Resource.Books.Personalizedstream.Get-    (-    -- * REST Resource-      PersonalizedstreamGetResource--    -- * Creating a Request-    , personalizedstreamGet-    , PersonalizedstreamGet--    -- * Request Lenses-    , pgLocale-    , pgMaxAllowedMaturityRating-    , pgSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.personalizedstream.get@ method which the--- 'PersonalizedstreamGet' request conforms to.-type PersonalizedstreamGetResource =-     "books" :>-       "v1" :>-         "personalizedstream" :>-           "get" :>-             QueryParam "locale" Text :>-               QueryParam "maxAllowedMaturityRating"-                 PersonalizedstreamGetMaxAllowedMaturityRating-                 :>-                 QueryParam "source" Text :>-                   QueryParam "alt" AltJSON :>-                     Get '[JSON] Discoveryclusters---- | Returns a stream of personalized book clusters------ /See:/ 'personalizedstreamGet' smart constructor.-data PersonalizedstreamGet =-  PersonalizedstreamGet'-    { _pgLocale                   :: !(Maybe Text)-    , _pgMaxAllowedMaturityRating :: !(Maybe PersonalizedstreamGetMaxAllowedMaturityRating)-    , _pgSource                   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PersonalizedstreamGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pgLocale'------ * 'pgMaxAllowedMaturityRating'------ * 'pgSource'-personalizedstreamGet-    :: PersonalizedstreamGet-personalizedstreamGet =-  PersonalizedstreamGet'-    { _pgLocale = Nothing-    , _pgMaxAllowedMaturityRating = Nothing-    , _pgSource = Nothing-    }----- | ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'. Used for--- generating recommendations.-pgLocale :: Lens' PersonalizedstreamGet (Maybe Text)-pgLocale = lens _pgLocale (\ s a -> s{_pgLocale = a})---- | The maximum allowed maturity rating of returned recommendations. Books--- with a higher maturity rating are filtered out.-pgMaxAllowedMaturityRating :: Lens' PersonalizedstreamGet (Maybe PersonalizedstreamGetMaxAllowedMaturityRating)-pgMaxAllowedMaturityRating-  = lens _pgMaxAllowedMaturityRating-      (\ s a -> s{_pgMaxAllowedMaturityRating = a})---- | String to identify the originator of this request.-pgSource :: Lens' PersonalizedstreamGet (Maybe Text)-pgSource = lens _pgSource (\ s a -> s{_pgSource = a})--instance GoogleRequest PersonalizedstreamGet where-        type Rs PersonalizedstreamGet = Discoveryclusters-        type Scopes PersonalizedstreamGet =-             '["https://www.googleapis.com/auth/books"]-        requestClient PersonalizedstreamGet'{..}-          = go _pgLocale _pgMaxAllowedMaturityRating _pgSource-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy PersonalizedstreamGetResource)-                      mempty
− gen/Network/Google/Resource/Books/PromoOffer/Accept.hs 
@@ -1,171 +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.Books.PromoOffer.Accept--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ -- |------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.promooffer.accept@.-module Network.Google.Resource.Books.PromoOffer.Accept-    (-    -- * REST Resource-      PromoOfferAcceptResource--    -- * Creating a Request-    , promoOfferAccept-    , PromoOfferAccept--    -- * Request Lenses-    , poaManufacturer-    , poaSerial-    , poaDevice-    , poaModel-    , poaVolumeId-    , poaOfferId-    , poaProduct-    , poaAndroidId-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.promooffer.accept@ method which the--- 'PromoOfferAccept' request conforms to.-type PromoOfferAcceptResource =-     "books" :>-       "v1" :>-         "promooffer" :>-           "accept" :>-             QueryParam "manufacturer" Text :>-               QueryParam "serial" Text :>-                 QueryParam "device" Text :>-                   QueryParam "model" Text :>-                     QueryParam "volumeId" Text :>-                       QueryParam "offerId" Text :>-                         QueryParam "product" Text :>-                           QueryParam "androidId" Text :>-                             QueryParam "alt" AltJSON :> Post '[JSON] ()---- |------ /See:/ 'promoOfferAccept' smart constructor.-data PromoOfferAccept =-  PromoOfferAccept'-    { _poaManufacturer :: !(Maybe Text)-    , _poaSerial       :: !(Maybe Text)-    , _poaDevice       :: !(Maybe Text)-    , _poaModel        :: !(Maybe Text)-    , _poaVolumeId     :: !(Maybe Text)-    , _poaOfferId      :: !(Maybe Text)-    , _poaProduct      :: !(Maybe Text)-    , _poaAndroidId    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PromoOfferAccept' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'poaManufacturer'------ * 'poaSerial'------ * 'poaDevice'------ * 'poaModel'------ * 'poaVolumeId'------ * 'poaOfferId'------ * 'poaProduct'------ * 'poaAndroidId'-promoOfferAccept-    :: PromoOfferAccept-promoOfferAccept =-  PromoOfferAccept'-    { _poaManufacturer = Nothing-    , _poaSerial = Nothing-    , _poaDevice = Nothing-    , _poaModel = Nothing-    , _poaVolumeId = Nothing-    , _poaOfferId = Nothing-    , _poaProduct = Nothing-    , _poaAndroidId = Nothing-    }----- | device manufacturer-poaManufacturer :: Lens' PromoOfferAccept (Maybe Text)-poaManufacturer-  = lens _poaManufacturer-      (\ s a -> s{_poaManufacturer = a})---- | device serial-poaSerial :: Lens' PromoOfferAccept (Maybe Text)-poaSerial-  = lens _poaSerial (\ s a -> s{_poaSerial = a})---- | device device-poaDevice :: Lens' PromoOfferAccept (Maybe Text)-poaDevice-  = lens _poaDevice (\ s a -> s{_poaDevice = a})---- | device model-poaModel :: Lens' PromoOfferAccept (Maybe Text)-poaModel = lens _poaModel (\ s a -> s{_poaModel = a})---- | Volume id to exercise the offer-poaVolumeId :: Lens' PromoOfferAccept (Maybe Text)-poaVolumeId-  = lens _poaVolumeId (\ s a -> s{_poaVolumeId = a})--poaOfferId :: Lens' PromoOfferAccept (Maybe Text)-poaOfferId-  = lens _poaOfferId (\ s a -> s{_poaOfferId = a})---- | device product-poaProduct :: Lens' PromoOfferAccept (Maybe Text)-poaProduct-  = lens _poaProduct (\ s a -> s{_poaProduct = a})---- | device android_id-poaAndroidId :: Lens' PromoOfferAccept (Maybe Text)-poaAndroidId-  = lens _poaAndroidId (\ s a -> s{_poaAndroidId = a})--instance GoogleRequest PromoOfferAccept where-        type Rs PromoOfferAccept = ()-        type Scopes PromoOfferAccept =-             '["https://www.googleapis.com/auth/books"]-        requestClient PromoOfferAccept'{..}-          = go _poaManufacturer _poaSerial _poaDevice _poaModel-              _poaVolumeId-              _poaOfferId-              _poaProduct-              _poaAndroidId-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy PromoOfferAcceptResource)-                      mempty
− gen/Network/Google/Resource/Books/PromoOffer/Dismiss.hs 
@@ -1,160 +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.Books.PromoOffer.Dismiss--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ -- |------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.promooffer.dismiss@.-module Network.Google.Resource.Books.PromoOffer.Dismiss-    (-    -- * REST Resource-      PromoOfferDismissResource--    -- * Creating a Request-    , promoOfferDismiss-    , PromoOfferDismiss--    -- * Request Lenses-    , podManufacturer-    , podSerial-    , podDevice-    , podModel-    , podOfferId-    , podProduct-    , podAndroidId-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.promooffer.dismiss@ method which the--- 'PromoOfferDismiss' request conforms to.-type PromoOfferDismissResource =-     "books" :>-       "v1" :>-         "promooffer" :>-           "dismiss" :>-             QueryParam "manufacturer" Text :>-               QueryParam "serial" Text :>-                 QueryParam "device" Text :>-                   QueryParam "model" Text :>-                     QueryParam "offerId" Text :>-                       QueryParam "product" Text :>-                         QueryParam "androidId" Text :>-                           QueryParam "alt" AltJSON :> Post '[JSON] ()---- |------ /See:/ 'promoOfferDismiss' smart constructor.-data PromoOfferDismiss =-  PromoOfferDismiss'-    { _podManufacturer :: !(Maybe Text)-    , _podSerial       :: !(Maybe Text)-    , _podDevice       :: !(Maybe Text)-    , _podModel        :: !(Maybe Text)-    , _podOfferId      :: !(Maybe Text)-    , _podProduct      :: !(Maybe Text)-    , _podAndroidId    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PromoOfferDismiss' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'podManufacturer'------ * 'podSerial'------ * 'podDevice'------ * 'podModel'------ * 'podOfferId'------ * 'podProduct'------ * 'podAndroidId'-promoOfferDismiss-    :: PromoOfferDismiss-promoOfferDismiss =-  PromoOfferDismiss'-    { _podManufacturer = Nothing-    , _podSerial = Nothing-    , _podDevice = Nothing-    , _podModel = Nothing-    , _podOfferId = Nothing-    , _podProduct = Nothing-    , _podAndroidId = Nothing-    }----- | device manufacturer-podManufacturer :: Lens' PromoOfferDismiss (Maybe Text)-podManufacturer-  = lens _podManufacturer-      (\ s a -> s{_podManufacturer = a})---- | device serial-podSerial :: Lens' PromoOfferDismiss (Maybe Text)-podSerial-  = lens _podSerial (\ s a -> s{_podSerial = a})---- | device device-podDevice :: Lens' PromoOfferDismiss (Maybe Text)-podDevice-  = lens _podDevice (\ s a -> s{_podDevice = a})---- | device model-podModel :: Lens' PromoOfferDismiss (Maybe Text)-podModel = lens _podModel (\ s a -> s{_podModel = a})---- | Offer to dimiss-podOfferId :: Lens' PromoOfferDismiss (Maybe Text)-podOfferId-  = lens _podOfferId (\ s a -> s{_podOfferId = a})---- | device product-podProduct :: Lens' PromoOfferDismiss (Maybe Text)-podProduct-  = lens _podProduct (\ s a -> s{_podProduct = a})---- | device android_id-podAndroidId :: Lens' PromoOfferDismiss (Maybe Text)-podAndroidId-  = lens _podAndroidId (\ s a -> s{_podAndroidId = a})--instance GoogleRequest PromoOfferDismiss where-        type Rs PromoOfferDismiss = ()-        type Scopes PromoOfferDismiss =-             '["https://www.googleapis.com/auth/books"]-        requestClient PromoOfferDismiss'{..}-          = go _podManufacturer _podSerial _podDevice _podModel-              _podOfferId-              _podProduct-              _podAndroidId-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy PromoOfferDismissResource)-                      mempty
− gen/Network/Google/Resource/Books/PromoOffer/Get.hs 
@@ -1,147 +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.Books.PromoOffer.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)------ Returns a list of promo offers available to the user------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.promooffer.get@.-module Network.Google.Resource.Books.PromoOffer.Get-    (-    -- * REST Resource-      PromoOfferGetResource--    -- * Creating a Request-    , promoOfferGet-    , PromoOfferGet--    -- * Request Lenses-    , pogManufacturer-    , pogSerial-    , pogDevice-    , pogModel-    , pogProduct-    , pogAndroidId-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.promooffer.get@ method which the--- 'PromoOfferGet' request conforms to.-type PromoOfferGetResource =-     "books" :>-       "v1" :>-         "promooffer" :>-           "get" :>-             QueryParam "manufacturer" Text :>-               QueryParam "serial" Text :>-                 QueryParam "device" Text :>-                   QueryParam "model" Text :>-                     QueryParam "product" Text :>-                       QueryParam "androidId" Text :>-                         QueryParam "alt" AltJSON :> Get '[JSON] Offers---- | Returns a list of promo offers available to the user------ /See:/ 'promoOfferGet' smart constructor.-data PromoOfferGet =-  PromoOfferGet'-    { _pogManufacturer :: !(Maybe Text)-    , _pogSerial       :: !(Maybe Text)-    , _pogDevice       :: !(Maybe Text)-    , _pogModel        :: !(Maybe Text)-    , _pogProduct      :: !(Maybe Text)-    , _pogAndroidId    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PromoOfferGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pogManufacturer'------ * 'pogSerial'------ * 'pogDevice'------ * 'pogModel'------ * 'pogProduct'------ * 'pogAndroidId'-promoOfferGet-    :: PromoOfferGet-promoOfferGet =-  PromoOfferGet'-    { _pogManufacturer = Nothing-    , _pogSerial = Nothing-    , _pogDevice = Nothing-    , _pogModel = Nothing-    , _pogProduct = Nothing-    , _pogAndroidId = Nothing-    }----- | device manufacturer-pogManufacturer :: Lens' PromoOfferGet (Maybe Text)-pogManufacturer-  = lens _pogManufacturer-      (\ s a -> s{_pogManufacturer = a})---- | device serial-pogSerial :: Lens' PromoOfferGet (Maybe Text)-pogSerial-  = lens _pogSerial (\ s a -> s{_pogSerial = a})---- | device device-pogDevice :: Lens' PromoOfferGet (Maybe Text)-pogDevice-  = lens _pogDevice (\ s a -> s{_pogDevice = a})---- | device model-pogModel :: Lens' PromoOfferGet (Maybe Text)-pogModel = lens _pogModel (\ s a -> s{_pogModel = a})---- | device product-pogProduct :: Lens' PromoOfferGet (Maybe Text)-pogProduct-  = lens _pogProduct (\ s a -> s{_pogProduct = a})---- | device android_id-pogAndroidId :: Lens' PromoOfferGet (Maybe Text)-pogAndroidId-  = lens _pogAndroidId (\ s a -> s{_pogAndroidId = a})--instance GoogleRequest PromoOfferGet where-        type Rs PromoOfferGet = Offers-        type Scopes PromoOfferGet =-             '["https://www.googleapis.com/auth/books"]-        requestClient PromoOfferGet'{..}-          = go _pogManufacturer _pogSerial _pogDevice _pogModel-              _pogProduct-              _pogAndroidId-              (Just AltJSON)-              booksService-          where go-                  = buildClient (Proxy :: Proxy PromoOfferGetResource)-                      mempty
− gen/Network/Google/Resource/Books/Series/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.Books.Series.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)------ Returns Series metadata for the given series ids.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.series.get@.-module Network.Google.Resource.Books.Series.Get-    (-    -- * REST Resource-      SeriesGetResource--    -- * Creating a Request-    , seriesGet-    , SeriesGet--    -- * Request Lenses-    , sgSeriesId-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.series.get@ method which the--- 'SeriesGet' request conforms to.-type SeriesGetResource =-     "books" :>-       "v1" :>-         "series" :>-           "get" :>-             QueryParams "series_id" Text :>-               QueryParam "alt" AltJSON :> Get '[JSON] Series---- | Returns Series metadata for the given series ids.------ /See:/ 'seriesGet' smart constructor.-newtype SeriesGet =-  SeriesGet'-    { _sgSeriesId :: [Text]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SeriesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sgSeriesId'-seriesGet-    :: [Text] -- ^ 'sgSeriesId'-    -> SeriesGet-seriesGet pSgSeriesId_ = SeriesGet' {_sgSeriesId = _Coerce # pSgSeriesId_}----- | String that identifies the series-sgSeriesId :: Lens' SeriesGet [Text]-sgSeriesId-  = lens _sgSeriesId (\ s a -> s{_sgSeriesId = a}) .-      _Coerce--instance GoogleRequest SeriesGet where-        type Rs SeriesGet = Series-        type Scopes SeriesGet =-             '["https://www.googleapis.com/auth/books"]-        requestClient SeriesGet'{..}-          = go _sgSeriesId (Just AltJSON) booksService-          where go-                  = buildClient (Proxy :: Proxy SeriesGetResource)-                      mempty
− gen/Network/Google/Resource/Books/Series/Membership/Get.hs 
@@ -1,117 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Books.Series.Membership.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)------ Returns Series membership data given the series id.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.series.membership.get@.-module Network.Google.Resource.Books.Series.Membership.Get-    (-    -- * REST Resource-      SeriesMembershipGetResource--    -- * Creating a Request-    , seriesMembershipGet-    , SeriesMembershipGet--    -- * Request Lenses-    , smgPageToken-    , smgPageSize-    , smgSeriesId-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.series.membership.get@ method which the--- 'SeriesMembershipGet' request conforms to.-type SeriesMembershipGetResource =-     "books" :>-       "v1" :>-         "series" :>-           "membership" :>-             "get" :>-               QueryParam "series_id" Text :>-                 QueryParam "page_token" Text :>-                   QueryParam "page_size" (Textual Word32) :>-                     QueryParam "alt" AltJSON :>-                       Get '[JSON] Seriesmembership---- | Returns Series membership data given the series id.------ /See:/ 'seriesMembershipGet' smart constructor.-data SeriesMembershipGet =-  SeriesMembershipGet'-    { _smgPageToken :: !(Maybe Text)-    , _smgPageSize  :: !(Maybe (Textual Word32))-    , _smgSeriesId  :: !Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SeriesMembershipGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'smgPageToken'------ * 'smgPageSize'------ * 'smgSeriesId'-seriesMembershipGet-    :: Text -- ^ 'smgSeriesId'-    -> SeriesMembershipGet-seriesMembershipGet pSmgSeriesId_ =-  SeriesMembershipGet'-    { _smgPageToken = Nothing-    , _smgPageSize = Nothing-    , _smgSeriesId = pSmgSeriesId_-    }----- | The value of the nextToken from the previous page.-smgPageToken :: Lens' SeriesMembershipGet (Maybe Text)-smgPageToken-  = lens _smgPageToken (\ s a -> s{_smgPageToken = a})---- | Number of maximum results per page to be included in the response.-smgPageSize :: Lens' SeriesMembershipGet (Maybe Word32)-smgPageSize-  = lens _smgPageSize (\ s a -> s{_smgPageSize = a}) .-      mapping _Coerce---- | String that identifies the series-smgSeriesId :: Lens' SeriesMembershipGet Text-smgSeriesId-  = lens _smgSeriesId (\ s a -> s{_smgSeriesId = a})--instance GoogleRequest SeriesMembershipGet where-        type Rs SeriesMembershipGet = Seriesmembership-        type Scopes SeriesMembershipGet =-             '["https://www.googleapis.com/auth/books"]-        requestClient SeriesMembershipGet'{..}-          = go (Just _smgSeriesId) _smgPageToken _smgPageSize-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy SeriesMembershipGetResource)-                      mempty
− gen/Network/Google/Resource/Books/Volumes/Associated/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.Books.Volumes.Associated.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)------ Return a list of associated books.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.volumes.associated.list@.-module Network.Google.Resource.Books.Volumes.Associated.List-    (-    -- * REST Resource-      VolumesAssociatedListResource--    -- * Creating a Request-    , volumesAssociatedList-    , VolumesAssociatedList--    -- * Request Lenses-    , valLocale-    , valMaxAllowedMaturityRating-    , valVolumeId-    , valSource-    , valAssociation-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.volumes.associated.list@ method which the--- 'VolumesAssociatedList' request conforms to.-type VolumesAssociatedListResource =-     "books" :>-       "v1" :>-         "volumes" :>-           Capture "volumeId" Text :>-             "associated" :>-               QueryParam "locale" Text :>-                 QueryParam "maxAllowedMaturityRating"-                   VolumesAssociatedListMaxAllowedMaturityRating-                   :>-                   QueryParam "source" Text :>-                     QueryParam "association"-                       VolumesAssociatedListAssociation-                       :> QueryParam "alt" AltJSON :> Get '[JSON] Volumes---- | Return a list of associated books.------ /See:/ 'volumesAssociatedList' smart constructor.-data VolumesAssociatedList =-  VolumesAssociatedList'-    { _valLocale                   :: !(Maybe Text)-    , _valMaxAllowedMaturityRating :: !(Maybe VolumesAssociatedListMaxAllowedMaturityRating)-    , _valVolumeId                 :: !Text-    , _valSource                   :: !(Maybe Text)-    , _valAssociation              :: !(Maybe VolumesAssociatedListAssociation)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumesAssociatedList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'valLocale'------ * 'valMaxAllowedMaturityRating'------ * 'valVolumeId'------ * 'valSource'------ * 'valAssociation'-volumesAssociatedList-    :: Text -- ^ 'valVolumeId'-    -> VolumesAssociatedList-volumesAssociatedList pValVolumeId_ =-  VolumesAssociatedList'-    { _valLocale = Nothing-    , _valMaxAllowedMaturityRating = Nothing-    , _valVolumeId = pValVolumeId_-    , _valSource = Nothing-    , _valAssociation = Nothing-    }----- | ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'. Used for--- generating recommendations.-valLocale :: Lens' VolumesAssociatedList (Maybe Text)-valLocale-  = lens _valLocale (\ s a -> s{_valLocale = a})---- | The maximum allowed maturity rating of returned recommendations. Books--- with a higher maturity rating are filtered out.-valMaxAllowedMaturityRating :: Lens' VolumesAssociatedList (Maybe VolumesAssociatedListMaxAllowedMaturityRating)-valMaxAllowedMaturityRating-  = lens _valMaxAllowedMaturityRating-      (\ s a -> s{_valMaxAllowedMaturityRating = a})---- | ID of the source volume.-valVolumeId :: Lens' VolumesAssociatedList Text-valVolumeId-  = lens _valVolumeId (\ s a -> s{_valVolumeId = a})---- | String to identify the originator of this request.-valSource :: Lens' VolumesAssociatedList (Maybe Text)-valSource-  = lens _valSource (\ s a -> s{_valSource = a})---- | Association type.-valAssociation :: Lens' VolumesAssociatedList (Maybe VolumesAssociatedListAssociation)-valAssociation-  = lens _valAssociation-      (\ s a -> s{_valAssociation = a})--instance GoogleRequest VolumesAssociatedList where-        type Rs VolumesAssociatedList = Volumes-        type Scopes VolumesAssociatedList =-             '["https://www.googleapis.com/auth/books"]-        requestClient VolumesAssociatedList'{..}-          = go _valVolumeId _valLocale-              _valMaxAllowedMaturityRating-              _valSource-              _valAssociation-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy VolumesAssociatedListResource)-                      mempty
− gen/Network/Google/Resource/Books/Volumes/Get.hs 
@@ -1,160 +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.Books.Volumes.Get--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Gets volume information for a single volume.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.volumes.get@.-module Network.Google.Resource.Books.Volumes.Get-    (-    -- * REST Resource-      VolumesGetResource--    -- * Creating a Request-    , volumesGet-    , VolumesGet--    -- * Request Lenses-    , vgCountry-    , vgIncludeNonComicsSeries-    , vgPartner-    , vgVolumeId-    , vgSource-    , vgProjection-    , vgUserLibraryConsistentRead-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.volumes.get@ method which the--- 'VolumesGet' request conforms to.-type VolumesGetResource =-     "books" :>-       "v1" :>-         "volumes" :>-           Capture "volumeId" Text :>-             QueryParam "country" Text :>-               QueryParam "includeNonComicsSeries" Bool :>-                 QueryParam "partner" Text :>-                   QueryParam "source" Text :>-                     QueryParam "projection" VolumesGetProjection :>-                       QueryParam "user_library_consistent_read" Bool :>-                         QueryParam "alt" AltJSON :> Get '[JSON] Volume---- | Gets volume information for a single volume.------ /See:/ 'volumesGet' smart constructor.-data VolumesGet =-  VolumesGet'-    { _vgCountry                   :: !(Maybe Text)-    , _vgIncludeNonComicsSeries    :: !(Maybe Bool)-    , _vgPartner                   :: !(Maybe Text)-    , _vgVolumeId                  :: !Text-    , _vgSource                    :: !(Maybe Text)-    , _vgProjection                :: !(Maybe VolumesGetProjection)-    , _vgUserLibraryConsistentRead :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vgCountry'------ * 'vgIncludeNonComicsSeries'------ * 'vgPartner'------ * 'vgVolumeId'------ * 'vgSource'------ * 'vgProjection'------ * 'vgUserLibraryConsistentRead'-volumesGet-    :: Text -- ^ 'vgVolumeId'-    -> VolumesGet-volumesGet pVgVolumeId_ =-  VolumesGet'-    { _vgCountry = Nothing-    , _vgIncludeNonComicsSeries = Nothing-    , _vgPartner = Nothing-    , _vgVolumeId = pVgVolumeId_-    , _vgSource = Nothing-    , _vgProjection = Nothing-    , _vgUserLibraryConsistentRead = Nothing-    }----- | ISO-3166-1 code to override the IP-based location.-vgCountry :: Lens' VolumesGet (Maybe Text)-vgCountry-  = lens _vgCountry (\ s a -> s{_vgCountry = a})---- | Set to true to include non-comics series. Defaults to false.-vgIncludeNonComicsSeries :: Lens' VolumesGet (Maybe Bool)-vgIncludeNonComicsSeries-  = lens _vgIncludeNonComicsSeries-      (\ s a -> s{_vgIncludeNonComicsSeries = a})---- | Brand results for partner ID.-vgPartner :: Lens' VolumesGet (Maybe Text)-vgPartner-  = lens _vgPartner (\ s a -> s{_vgPartner = a})---- | ID of volume to retrieve.-vgVolumeId :: Lens' VolumesGet Text-vgVolumeId-  = lens _vgVolumeId (\ s a -> s{_vgVolumeId = a})---- | String to identify the originator of this request.-vgSource :: Lens' VolumesGet (Maybe Text)-vgSource = lens _vgSource (\ s a -> s{_vgSource = a})---- | Restrict information returned to a set of selected fields.-vgProjection :: Lens' VolumesGet (Maybe VolumesGetProjection)-vgProjection-  = lens _vgProjection (\ s a -> s{_vgProjection = a})--vgUserLibraryConsistentRead :: Lens' VolumesGet (Maybe Bool)-vgUserLibraryConsistentRead-  = lens _vgUserLibraryConsistentRead-      (\ s a -> s{_vgUserLibraryConsistentRead = a})--instance GoogleRequest VolumesGet where-        type Rs VolumesGet = Volume-        type Scopes VolumesGet =-             '["https://www.googleapis.com/auth/books"]-        requestClient VolumesGet'{..}-          = go _vgVolumeId _vgCountry _vgIncludeNonComicsSeries-              _vgPartner-              _vgSource-              _vgProjection-              _vgUserLibraryConsistentRead-              (Just AltJSON)-              booksService-          where go-                  = buildClient (Proxy :: Proxy VolumesGetResource)-                      mempty
− gen/Network/Google/Resource/Books/Volumes/List.hs 
@@ -1,255 +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.Books.Volumes.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)------ Performs a book search.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.volumes.list@.-module Network.Google.Resource.Books.Volumes.List-    (-    -- * REST Resource-      VolumesListResource--    -- * Creating a Request-    , volumesList-    , VolumesList--    -- * Request Lenses-    , vlOrderBy-    , vlMaxAllowedMaturityRating-    , vlLibraryRestrict-    , vlPartner-    , vlQ-    , vlDownload-    , vlSource-    , vlProjection-    , vlFilter-    , vlLangRestrict-    , vlStartIndex-    , vlMaxResults-    , vlShowPreOrders-    , vlPrintType-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.volumes.list@ method which the--- 'VolumesList' request conforms to.-type VolumesListResource =-     "books" :>-       "v1" :>-         "volumes" :>-           QueryParam "q" Text :>-             QueryParam "orderBy" VolumesListOrderBy :>-               QueryParam "maxAllowedMaturityRating"-                 VolumesListMaxAllowedMaturityRating-                 :>-                 QueryParam "libraryRestrict"-                   VolumesListLibraryRestrict-                   :>-                   QueryParam "partner" Text :>-                     QueryParam "download" VolumesListDownload :>-                       QueryParam "source" Text :>-                         QueryParam "projection" VolumesListProjection :>-                           QueryParam "filter" VolumesListFilter :>-                             QueryParam "langRestrict" Text :>-                               QueryParam "startIndex" (Textual Word32) :>-                                 QueryParam "maxResults" (Textual Word32) :>-                                   QueryParam "showPreorders" Bool :>-                                     QueryParam "printType" VolumesListPrintType-                                       :>-                                       QueryParam "alt" AltJSON :>-                                         Get '[JSON] Volumes---- | Performs a book search.------ /See:/ 'volumesList' smart constructor.-data VolumesList =-  VolumesList'-    { _vlOrderBy                  :: !(Maybe VolumesListOrderBy)-    , _vlMaxAllowedMaturityRating :: !(Maybe VolumesListMaxAllowedMaturityRating)-    , _vlLibraryRestrict          :: !(Maybe VolumesListLibraryRestrict)-    , _vlPartner                  :: !(Maybe Text)-    , _vlQ                        :: !Text-    , _vlDownload                 :: !(Maybe VolumesListDownload)-    , _vlSource                   :: !(Maybe Text)-    , _vlProjection               :: !(Maybe VolumesListProjection)-    , _vlFilter                   :: !(Maybe VolumesListFilter)-    , _vlLangRestrict             :: !(Maybe Text)-    , _vlStartIndex               :: !(Maybe (Textual Word32))-    , _vlMaxResults               :: !(Maybe (Textual Word32))-    , _vlShowPreOrders            :: !(Maybe Bool)-    , _vlPrintType                :: !(Maybe VolumesListPrintType)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vlOrderBy'------ * 'vlMaxAllowedMaturityRating'------ * 'vlLibraryRestrict'------ * 'vlPartner'------ * 'vlQ'------ * 'vlDownload'------ * 'vlSource'------ * 'vlProjection'------ * 'vlFilter'------ * 'vlLangRestrict'------ * 'vlStartIndex'------ * 'vlMaxResults'------ * 'vlShowPreOrders'------ * 'vlPrintType'-volumesList-    :: Text -- ^ 'vlQ'-    -> VolumesList-volumesList pVlQ_ =-  VolumesList'-    { _vlOrderBy = Nothing-    , _vlMaxAllowedMaturityRating = Nothing-    , _vlLibraryRestrict = Nothing-    , _vlPartner = Nothing-    , _vlQ = pVlQ_-    , _vlDownload = Nothing-    , _vlSource = Nothing-    , _vlProjection = Nothing-    , _vlFilter = Nothing-    , _vlLangRestrict = Nothing-    , _vlStartIndex = Nothing-    , _vlMaxResults = Nothing-    , _vlShowPreOrders = Nothing-    , _vlPrintType = Nothing-    }----- | Sort search results.-vlOrderBy :: Lens' VolumesList (Maybe VolumesListOrderBy)-vlOrderBy-  = lens _vlOrderBy (\ s a -> s{_vlOrderBy = a})---- | The maximum allowed maturity rating of returned recommendations. Books--- with a higher maturity rating are filtered out.-vlMaxAllowedMaturityRating :: Lens' VolumesList (Maybe VolumesListMaxAllowedMaturityRating)-vlMaxAllowedMaturityRating-  = lens _vlMaxAllowedMaturityRating-      (\ s a -> s{_vlMaxAllowedMaturityRating = a})---- | Restrict search to this user\'s library.-vlLibraryRestrict :: Lens' VolumesList (Maybe VolumesListLibraryRestrict)-vlLibraryRestrict-  = lens _vlLibraryRestrict-      (\ s a -> s{_vlLibraryRestrict = a})---- | Restrict and brand results for partner ID.-vlPartner :: Lens' VolumesList (Maybe Text)-vlPartner-  = lens _vlPartner (\ s a -> s{_vlPartner = a})---- | Full-text search query string.-vlQ :: Lens' VolumesList Text-vlQ = lens _vlQ (\ s a -> s{_vlQ = a})---- | Restrict to volumes by download availability.-vlDownload :: Lens' VolumesList (Maybe VolumesListDownload)-vlDownload-  = lens _vlDownload (\ s a -> s{_vlDownload = a})---- | String to identify the originator of this request.-vlSource :: Lens' VolumesList (Maybe Text)-vlSource = lens _vlSource (\ s a -> s{_vlSource = a})---- | Restrict information returned to a set of selected fields.-vlProjection :: Lens' VolumesList (Maybe VolumesListProjection)-vlProjection-  = lens _vlProjection (\ s a -> s{_vlProjection = a})---- | Filter search results.-vlFilter :: Lens' VolumesList (Maybe VolumesListFilter)-vlFilter = lens _vlFilter (\ s a -> s{_vlFilter = a})---- | Restrict results to books with this language code.-vlLangRestrict :: Lens' VolumesList (Maybe Text)-vlLangRestrict-  = lens _vlLangRestrict-      (\ s a -> s{_vlLangRestrict = a})---- | Index of the first result to return (starts at 0)-vlStartIndex :: Lens' VolumesList (Maybe Word32)-vlStartIndex-  = lens _vlStartIndex (\ s a -> s{_vlStartIndex = a})-      . mapping _Coerce---- | Maximum number of results to return.-vlMaxResults :: Lens' VolumesList (Maybe Word32)-vlMaxResults-  = lens _vlMaxResults (\ s a -> s{_vlMaxResults = a})-      . mapping _Coerce---- | Set to true to show books available for preorder. Defaults to false.-vlShowPreOrders :: Lens' VolumesList (Maybe Bool)-vlShowPreOrders-  = lens _vlShowPreOrders-      (\ s a -> s{_vlShowPreOrders = a})---- | Restrict to books or magazines.-vlPrintType :: Lens' VolumesList (Maybe VolumesListPrintType)-vlPrintType-  = lens _vlPrintType (\ s a -> s{_vlPrintType = a})--instance GoogleRequest VolumesList where-        type Rs VolumesList = Volumes-        type Scopes VolumesList =-             '["https://www.googleapis.com/auth/books"]-        requestClient VolumesList'{..}-          = go (Just _vlQ) _vlOrderBy-              _vlMaxAllowedMaturityRating-              _vlLibraryRestrict-              _vlPartner-              _vlDownload-              _vlSource-              _vlProjection-              _vlFilter-              _vlLangRestrict-              _vlStartIndex-              _vlMaxResults-              _vlShowPreOrders-              _vlPrintType-              (Just AltJSON)-              booksService-          where go-                  = buildClient (Proxy :: Proxy VolumesListResource)-                      mempty
− gen/Network/Google/Resource/Books/Volumes/Mybooks/List.hs 
@@ -1,179 +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.Books.Volumes.Mybooks.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)------ Return a list of books in My Library.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.volumes.mybooks.list@.-module Network.Google.Resource.Books.Volumes.Mybooks.List-    (-    -- * REST Resource-      VolumesMybooksListResource--    -- * Creating a Request-    , volumesMybooksList-    , VolumesMybooksList--    -- * Request Lenses-    , vmlProcessingState-    , vmlAcquireMethod-    , vmlCountry-    , vmlLocale-    , vmlSource-    , vmlStartIndex-    , vmlMaxResults-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.volumes.mybooks.list@ method which the--- 'VolumesMybooksList' request conforms to.-type VolumesMybooksListResource =-     "books" :>-       "v1" :>-         "volumes" :>-           "mybooks" :>-             QueryParams "processingState"-               VolumesMybooksListProcessingState-               :>-               QueryParams "acquireMethod"-                 VolumesMybooksListAcquireMethod-                 :>-                 QueryParam "country" Text :>-                   QueryParam "locale" Text :>-                     QueryParam "source" Text :>-                       QueryParam "startIndex" (Textual Word32) :>-                         QueryParam "maxResults" (Textual Word32) :>-                           QueryParam "alt" AltJSON :> Get '[JSON] Volumes---- | Return a list of books in My Library.------ /See:/ 'volumesMybooksList' smart constructor.-data VolumesMybooksList =-  VolumesMybooksList'-    { _vmlProcessingState :: !(Maybe [VolumesMybooksListProcessingState])-    , _vmlAcquireMethod   :: !(Maybe [VolumesMybooksListAcquireMethod])-    , _vmlCountry         :: !(Maybe Text)-    , _vmlLocale          :: !(Maybe Text)-    , _vmlSource          :: !(Maybe Text)-    , _vmlStartIndex      :: !(Maybe (Textual Word32))-    , _vmlMaxResults      :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumesMybooksList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vmlProcessingState'------ * 'vmlAcquireMethod'------ * 'vmlCountry'------ * 'vmlLocale'------ * 'vmlSource'------ * 'vmlStartIndex'------ * 'vmlMaxResults'-volumesMybooksList-    :: VolumesMybooksList-volumesMybooksList =-  VolumesMybooksList'-    { _vmlProcessingState = Nothing-    , _vmlAcquireMethod = Nothing-    , _vmlCountry = Nothing-    , _vmlLocale = Nothing-    , _vmlSource = Nothing-    , _vmlStartIndex = Nothing-    , _vmlMaxResults = Nothing-    }----- | The processing state of the user uploaded volumes to be returned.--- Applicable only if the UPLOADED is specified in the acquireMethod.-vmlProcessingState :: Lens' VolumesMybooksList [VolumesMybooksListProcessingState]-vmlProcessingState-  = lens _vmlProcessingState-      (\ s a -> s{_vmlProcessingState = a})-      . _Default-      . _Coerce---- | How the book was acquired-vmlAcquireMethod :: Lens' VolumesMybooksList [VolumesMybooksListAcquireMethod]-vmlAcquireMethod-  = lens _vmlAcquireMethod-      (\ s a -> s{_vmlAcquireMethod = a})-      . _Default-      . _Coerce---- | ISO-3166-1 code to override the IP-based location.-vmlCountry :: Lens' VolumesMybooksList (Maybe Text)-vmlCountry-  = lens _vmlCountry (\ s a -> s{_vmlCountry = a})---- | ISO-639-1 language and ISO-3166-1 country code. Ex:\'en_US\'. Used for--- generating recommendations.-vmlLocale :: Lens' VolumesMybooksList (Maybe Text)-vmlLocale-  = lens _vmlLocale (\ s a -> s{_vmlLocale = a})---- | String to identify the originator of this request.-vmlSource :: Lens' VolumesMybooksList (Maybe Text)-vmlSource-  = lens _vmlSource (\ s a -> s{_vmlSource = a})---- | Index of the first result to return (starts at 0)-vmlStartIndex :: Lens' VolumesMybooksList (Maybe Word32)-vmlStartIndex-  = lens _vmlStartIndex-      (\ s a -> s{_vmlStartIndex = a})-      . mapping _Coerce---- | Maximum number of results to return.-vmlMaxResults :: Lens' VolumesMybooksList (Maybe Word32)-vmlMaxResults-  = lens _vmlMaxResults-      (\ s a -> s{_vmlMaxResults = a})-      . mapping _Coerce--instance GoogleRequest VolumesMybooksList where-        type Rs VolumesMybooksList = Volumes-        type Scopes VolumesMybooksList =-             '["https://www.googleapis.com/auth/books"]-        requestClient VolumesMybooksList'{..}-          = go (_vmlProcessingState ^. _Default)-              (_vmlAcquireMethod ^. _Default)-              _vmlCountry-              _vmlLocale-              _vmlSource-              _vmlStartIndex-              _vmlMaxResults-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy VolumesMybooksListResource)-                      mempty
− gen/Network/Google/Resource/Books/Volumes/Recommended/List.hs 
@@ -1,119 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Books.Volumes.Recommended.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)------ Return a list of recommended books for the current user.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.volumes.recommended.list@.-module Network.Google.Resource.Books.Volumes.Recommended.List-    (-    -- * REST Resource-      VolumesRecommendedListResource--    -- * Creating a Request-    , volumesRecommendedList-    , VolumesRecommendedList--    -- * Request Lenses-    , vrlLocale-    , vrlMaxAllowedMaturityRating-    , vrlSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.volumes.recommended.list@ method which the--- 'VolumesRecommendedList' request conforms to.-type VolumesRecommendedListResource =-     "books" :>-       "v1" :>-         "volumes" :>-           "recommended" :>-             QueryParam "locale" Text :>-               QueryParam "maxAllowedMaturityRating"-                 VolumesRecommendedListMaxAllowedMaturityRating-                 :>-                 QueryParam "source" Text :>-                   QueryParam "alt" AltJSON :> Get '[JSON] Volumes---- | Return a list of recommended books for the current user.------ /See:/ 'volumesRecommendedList' smart constructor.-data VolumesRecommendedList =-  VolumesRecommendedList'-    { _vrlLocale                   :: !(Maybe Text)-    , _vrlMaxAllowedMaturityRating :: !(Maybe VolumesRecommendedListMaxAllowedMaturityRating)-    , _vrlSource                   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumesRecommendedList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vrlLocale'------ * 'vrlMaxAllowedMaturityRating'------ * 'vrlSource'-volumesRecommendedList-    :: VolumesRecommendedList-volumesRecommendedList =-  VolumesRecommendedList'-    { _vrlLocale = Nothing-    , _vrlMaxAllowedMaturityRating = Nothing-    , _vrlSource = Nothing-    }----- | ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'. Used for--- generating recommendations.-vrlLocale :: Lens' VolumesRecommendedList (Maybe Text)-vrlLocale-  = lens _vrlLocale (\ s a -> s{_vrlLocale = a})---- | The maximum allowed maturity rating of returned recommendations. Books--- with a higher maturity rating are filtered out.-vrlMaxAllowedMaturityRating :: Lens' VolumesRecommendedList (Maybe VolumesRecommendedListMaxAllowedMaturityRating)-vrlMaxAllowedMaturityRating-  = lens _vrlMaxAllowedMaturityRating-      (\ s a -> s{_vrlMaxAllowedMaturityRating = a})---- | String to identify the originator of this request.-vrlSource :: Lens' VolumesRecommendedList (Maybe Text)-vrlSource-  = lens _vrlSource (\ s a -> s{_vrlSource = a})--instance GoogleRequest VolumesRecommendedList where-        type Rs VolumesRecommendedList = Volumes-        type Scopes VolumesRecommendedList =-             '["https://www.googleapis.com/auth/books"]-        requestClient VolumesRecommendedList'{..}-          = go _vrlLocale _vrlMaxAllowedMaturityRating-              _vrlSource-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy VolumesRecommendedListResource)-                      mempty
− gen/Network/Google/Resource/Books/Volumes/Recommended/Rate.hs 
@@ -1,131 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Books.Volumes.Recommended.Rate--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Rate a recommended book for the current user.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.volumes.recommended.rate@.-module Network.Google.Resource.Books.Volumes.Recommended.Rate-    (-    -- * REST Resource-      VolumesRecommendedRateResource--    -- * Creating a Request-    , volumesRecommendedRate-    , VolumesRecommendedRate--    -- * Request Lenses-    , vrrRating-    , vrrLocale-    , vrrVolumeId-    , vrrSource-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.volumes.recommended.rate@ method which the--- 'VolumesRecommendedRate' request conforms to.-type VolumesRecommendedRateResource =-     "books" :>-       "v1" :>-         "volumes" :>-           "recommended" :>-             "rate" :>-               QueryParam "rating" VolumesRecommendedRateRating :>-                 QueryParam "volumeId" Text :>-                   QueryParam "locale" Text :>-                     QueryParam "source" Text :>-                       QueryParam "alt" AltJSON :>-                         Post '[JSON] BooksVolumesRecommendedRateResponse---- | Rate a recommended book for the current user.------ /See:/ 'volumesRecommendedRate' smart constructor.-data VolumesRecommendedRate =-  VolumesRecommendedRate'-    { _vrrRating   :: !VolumesRecommendedRateRating-    , _vrrLocale   :: !(Maybe Text)-    , _vrrVolumeId :: !Text-    , _vrrSource   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumesRecommendedRate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vrrRating'------ * 'vrrLocale'------ * 'vrrVolumeId'------ * 'vrrSource'-volumesRecommendedRate-    :: VolumesRecommendedRateRating -- ^ 'vrrRating'-    -> Text -- ^ 'vrrVolumeId'-    -> VolumesRecommendedRate-volumesRecommendedRate pVrrRating_ pVrrVolumeId_ =-  VolumesRecommendedRate'-    { _vrrRating = pVrrRating_-    , _vrrLocale = Nothing-    , _vrrVolumeId = pVrrVolumeId_-    , _vrrSource = Nothing-    }----- | Rating to be given to the volume.-vrrRating :: Lens' VolumesRecommendedRate VolumesRecommendedRateRating-vrrRating-  = lens _vrrRating (\ s a -> s{_vrrRating = a})---- | ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'. Used for--- generating recommendations.-vrrLocale :: Lens' VolumesRecommendedRate (Maybe Text)-vrrLocale-  = lens _vrrLocale (\ s a -> s{_vrrLocale = a})---- | ID of the source volume.-vrrVolumeId :: Lens' VolumesRecommendedRate Text-vrrVolumeId-  = lens _vrrVolumeId (\ s a -> s{_vrrVolumeId = a})---- | String to identify the originator of this request.-vrrSource :: Lens' VolumesRecommendedRate (Maybe Text)-vrrSource-  = lens _vrrSource (\ s a -> s{_vrrSource = a})--instance GoogleRequest VolumesRecommendedRate where-        type Rs VolumesRecommendedRate =-             BooksVolumesRecommendedRateResponse-        type Scopes VolumesRecommendedRate =-             '["https://www.googleapis.com/auth/books"]-        requestClient VolumesRecommendedRate'{..}-          = go (Just _vrrRating) (Just _vrrVolumeId) _vrrLocale-              _vrrSource-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy VolumesRecommendedRateResource)-                      mempty
− gen/Network/Google/Resource/Books/Volumes/UserUploaded/List.hs 
@@ -1,163 +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.Books.Volumes.UserUploaded.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)------ Return a list of books uploaded by the current user.------ /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference> for @books.volumes.useruploaded.list@.-module Network.Google.Resource.Books.Volumes.UserUploaded.List-    (-    -- * REST Resource-      VolumesUserUploadedListResource--    -- * Creating a Request-    , volumesUserUploadedList-    , VolumesUserUploadedList--    -- * Request Lenses-    , vuulProcessingState-    , vuulLocale-    , vuulVolumeId-    , vuulSource-    , vuulStartIndex-    , vuulMaxResults-    ) where--import           Network.Google.Books.Types-import           Network.Google.Prelude---- | A resource alias for @books.volumes.useruploaded.list@ method which the--- 'VolumesUserUploadedList' request conforms to.-type VolumesUserUploadedListResource =-     "books" :>-       "v1" :>-         "volumes" :>-           "useruploaded" :>-             QueryParams "processingState"-               VolumesUserUploadedListProcessingState-               :>-               QueryParam "locale" Text :>-                 QueryParams "volumeId" Text :>-                   QueryParam "source" Text :>-                     QueryParam "startIndex" (Textual Word32) :>-                       QueryParam "maxResults" (Textual Word32) :>-                         QueryParam "alt" AltJSON :> Get '[JSON] Volumes---- | Return a list of books uploaded by the current user.------ /See:/ 'volumesUserUploadedList' smart constructor.-data VolumesUserUploadedList =-  VolumesUserUploadedList'-    { _vuulProcessingState :: !(Maybe [VolumesUserUploadedListProcessingState])-    , _vuulLocale          :: !(Maybe Text)-    , _vuulVolumeId        :: !(Maybe [Text])-    , _vuulSource          :: !(Maybe Text)-    , _vuulStartIndex      :: !(Maybe (Textual Word32))-    , _vuulMaxResults      :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumesUserUploadedList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vuulProcessingState'------ * 'vuulLocale'------ * 'vuulVolumeId'------ * 'vuulSource'------ * 'vuulStartIndex'------ * 'vuulMaxResults'-volumesUserUploadedList-    :: VolumesUserUploadedList-volumesUserUploadedList =-  VolumesUserUploadedList'-    { _vuulProcessingState = Nothing-    , _vuulLocale = Nothing-    , _vuulVolumeId = Nothing-    , _vuulSource = Nothing-    , _vuulStartIndex = Nothing-    , _vuulMaxResults = Nothing-    }----- | The processing state of the user uploaded volumes to be returned.-vuulProcessingState :: Lens' VolumesUserUploadedList [VolumesUserUploadedListProcessingState]-vuulProcessingState-  = lens _vuulProcessingState-      (\ s a -> s{_vuulProcessingState = a})-      . _Default-      . _Coerce---- | ISO-639-1 language and ISO-3166-1 country code. Ex: \'en_US\'. Used for--- generating recommendations.-vuulLocale :: Lens' VolumesUserUploadedList (Maybe Text)-vuulLocale-  = lens _vuulLocale (\ s a -> s{_vuulLocale = a})---- | The ids of the volumes to be returned. If not specified all that match--- the processingState are returned.-vuulVolumeId :: Lens' VolumesUserUploadedList [Text]-vuulVolumeId-  = lens _vuulVolumeId (\ s a -> s{_vuulVolumeId = a})-      . _Default-      . _Coerce---- | String to identify the originator of this request.-vuulSource :: Lens' VolumesUserUploadedList (Maybe Text)-vuulSource-  = lens _vuulSource (\ s a -> s{_vuulSource = a})---- | Index of the first result to return (starts at 0)-vuulStartIndex :: Lens' VolumesUserUploadedList (Maybe Word32)-vuulStartIndex-  = lens _vuulStartIndex-      (\ s a -> s{_vuulStartIndex = a})-      . mapping _Coerce---- | Maximum number of results to return.-vuulMaxResults :: Lens' VolumesUserUploadedList (Maybe Word32)-vuulMaxResults-  = lens _vuulMaxResults-      (\ s a -> s{_vuulMaxResults = a})-      . mapping _Coerce--instance GoogleRequest VolumesUserUploadedList where-        type Rs VolumesUserUploadedList = Volumes-        type Scopes VolumesUserUploadedList =-             '["https://www.googleapis.com/auth/books"]-        requestClient VolumesUserUploadedList'{..}-          = go (_vuulProcessingState ^. _Default) _vuulLocale-              (_vuulVolumeId ^. _Default)-              _vuulSource-              _vuulStartIndex-              _vuulMaxResults-              (Just AltJSON)-              booksService-          where go-                  = buildClient-                      (Proxy :: Proxy VolumesUserUploadedListResource)-                      mempty
gogol-books.cabal view
@@ -1,96 +1,111 @@-name:                  gogol-books-version:               0.5.0-synopsis:              Google Books 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-books+version:            1.0.0+synopsis:           Google Books 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:-    Searches for books and manages your Google Books library.-    .-    /Warning:/ This is an experimental prototype/preview release which is still-    under exploratory development and not intended for public use, caveat emptor!-    .-    This library is compatible with version @v1@-    of the API.+  The Google Books API allows clients to access the Google Books repository.+  .+  /Warning:/ This is an experimental prototype/preview release which is still+  under exploratory development and not intended for public use, caveat emptor!+  .+  This library is compatible with version @v1@+  of the API.  source-repository head-    type:     git-    location: git://github.com/brendanhay/gogol.git+  type:     git+  location: git://github.com/brendanhay/gogol.git+  subdir:   gogol-books +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.Books-        , Network.Google.Books.Types-        , Network.Google.Resource.Books.Bookshelves.Get-        , Network.Google.Resource.Books.Bookshelves.List-        , Network.Google.Resource.Books.Bookshelves.Volumes.List-        , Network.Google.Resource.Books.CloudLoading.AddBook-        , Network.Google.Resource.Books.CloudLoading.DeleteBook-        , Network.Google.Resource.Books.CloudLoading.UpdateBook-        , Network.Google.Resource.Books.Dictionary.ListOfflineMetadata-        , Network.Google.Resource.Books.Familysharing.GetFamilyInfo-        , Network.Google.Resource.Books.Familysharing.Share-        , Network.Google.Resource.Books.Familysharing.Unshare-        , Network.Google.Resource.Books.Layers.AnnotationData.Get-        , Network.Google.Resource.Books.Layers.AnnotationData.List-        , Network.Google.Resource.Books.Layers.Get-        , Network.Google.Resource.Books.Layers.List-        , Network.Google.Resource.Books.Layers.VolumeAnnotations.Get-        , Network.Google.Resource.Books.Layers.VolumeAnnotations.List-        , Network.Google.Resource.Books.MyConfig.GetUserSettings-        , Network.Google.Resource.Books.MyConfig.ReleaseDownloadAccess-        , Network.Google.Resource.Books.MyConfig.RequestAccess-        , Network.Google.Resource.Books.MyConfig.SyncVolumeLicenses-        , Network.Google.Resource.Books.MyConfig.UpdateUserSettings-        , Network.Google.Resource.Books.MyLibrary.Annotations.Delete-        , Network.Google.Resource.Books.MyLibrary.Annotations.Insert-        , Network.Google.Resource.Books.MyLibrary.Annotations.List-        , Network.Google.Resource.Books.MyLibrary.Annotations.Summary-        , Network.Google.Resource.Books.MyLibrary.Annotations.Update-        , Network.Google.Resource.Books.MyLibrary.Bookshelves.AddVolume-        , Network.Google.Resource.Books.MyLibrary.Bookshelves.ClearVolumes-        , Network.Google.Resource.Books.MyLibrary.Bookshelves.Get-        , Network.Google.Resource.Books.MyLibrary.Bookshelves.List-        , Network.Google.Resource.Books.MyLibrary.Bookshelves.MoveVolume-        , Network.Google.Resource.Books.MyLibrary.Bookshelves.RemoveVolume-        , Network.Google.Resource.Books.MyLibrary.Bookshelves.Volumes.List-        , Network.Google.Resource.Books.MyLibrary.ReadingPositions.Get-        , Network.Google.Resource.Books.MyLibrary.ReadingPositions.SetPosition-        , Network.Google.Resource.Books.Notification.Get-        , Network.Google.Resource.Books.Onboarding.ListCategories-        , Network.Google.Resource.Books.Onboarding.ListCategoryVolumes-        , Network.Google.Resource.Books.Personalizedstream.Get-        , Network.Google.Resource.Books.PromoOffer.Accept-        , Network.Google.Resource.Books.PromoOffer.Dismiss-        , Network.Google.Resource.Books.PromoOffer.Get-        , Network.Google.Resource.Books.Series.Get-        , Network.Google.Resource.Books.Series.Membership.Get-        , Network.Google.Resource.Books.Volumes.Associated.List-        , Network.Google.Resource.Books.Volumes.Get-        , Network.Google.Resource.Books.Volumes.List-        , Network.Google.Resource.Books.Volumes.Mybooks.List-        , Network.Google.Resource.Books.Volumes.Recommended.List-        , Network.Google.Resource.Books.Volumes.Recommended.Rate-        , Network.Google.Resource.Books.Volumes.UserUploaded.List+  exposed-modules:+    Gogol.Books+    Gogol.Books.Bookshelves.Get+    Gogol.Books.Bookshelves.List+    Gogol.Books.Bookshelves.Volumes.List+    Gogol.Books.Cloudloading.AddBook+    Gogol.Books.Cloudloading.DeleteBook+    Gogol.Books.Cloudloading.UpdateBook+    Gogol.Books.Dictionary.ListOfflineMetadata+    Gogol.Books.Familysharing.GetFamilyInfo+    Gogol.Books.Familysharing.Share+    Gogol.Books.Familysharing.Unshare+    Gogol.Books.Layers.AnnotationData.Get+    Gogol.Books.Layers.AnnotationData.List+    Gogol.Books.Layers.Get+    Gogol.Books.Layers.List+    Gogol.Books.Layers.VolumeAnnotations.Get+    Gogol.Books.Layers.VolumeAnnotations.List+    Gogol.Books.Myconfig.GetUserSettings+    Gogol.Books.Myconfig.ReleaseDownloadAccess+    Gogol.Books.Myconfig.RequestAccess+    Gogol.Books.Myconfig.SyncVolumeLicenses+    Gogol.Books.Myconfig.UpdateUserSettings+    Gogol.Books.Mylibrary.Annotations.Delete+    Gogol.Books.Mylibrary.Annotations.Insert+    Gogol.Books.Mylibrary.Annotations.List+    Gogol.Books.Mylibrary.Annotations.Summary+    Gogol.Books.Mylibrary.Annotations.Update+    Gogol.Books.Mylibrary.Bookshelves.AddVolume+    Gogol.Books.Mylibrary.Bookshelves.ClearVolumes+    Gogol.Books.Mylibrary.Bookshelves.Get+    Gogol.Books.Mylibrary.Bookshelves.List+    Gogol.Books.Mylibrary.Bookshelves.MoveVolume+    Gogol.Books.Mylibrary.Bookshelves.RemoveVolume+    Gogol.Books.Mylibrary.Bookshelves.Volumes.List+    Gogol.Books.Mylibrary.Readingpositions.Get+    Gogol.Books.Mylibrary.Readingpositions.SetPosition+    Gogol.Books.Notification.Get+    Gogol.Books.Onboarding.ListCategories+    Gogol.Books.Onboarding.ListCategoryVolumes+    Gogol.Books.Personalizedstream.Get+    Gogol.Books.Promooffer.Accept+    Gogol.Books.Promooffer.Dismiss+    Gogol.Books.Promooffer.Get+    Gogol.Books.Series.Get+    Gogol.Books.Series.Membership.Get+    Gogol.Books.Types+    Gogol.Books.Volumes.Associated.List+    Gogol.Books.Volumes.Get+    Gogol.Books.Volumes.List+    Gogol.Books.Volumes.Mybooks.List+    Gogol.Books.Volumes.Recommended.List+    Gogol.Books.Volumes.Recommended.Rate+    Gogol.Books.Volumes.Useruploaded.List -    other-modules:-          Network.Google.Books.Types.Product-        , Network.Google.Books.Types.Sum+  other-modules:+    Gogol.Books.Internal.Product+    Gogol.Books.Internal.Sum -    build-depends:-          gogol-core == 0.5.0.*-        , base       >= 4.7 && < 5+  build-depends:    gogol-core ^>=1.0.0