@@ -1850,6 +1850,82 @@ instance ToJSON VolumeAccessInfo where
18501850 ("viewOrderUrl" .=) <$> _vaiViewOrderURL,
18511851 ("publicDomain" .=) <$> _vaiPublicDomain])
18521852
1853+-- | A top-level summary of the panelization info in this volume.
1854+--
1855+-- /See:/ 'volumeVolumeInfoPanelizationSummary' smart constructor.
1856+data VolumeVolumeInfoPanelizationSummary = VolumeVolumeInfoPanelizationSummary'
1857+ { _vvipsEpubBubbleVersion :: !(Maybe Text)
1858+ , _vvipsContainsImageBubbles :: !(Maybe Bool)
1859+ , _vvipsContainsEpubBubbles :: !(Maybe Bool)
1860+ , _vvipsImageBubbleVersion :: !(Maybe Text)
1861+ } deriving (Eq,Show,Data,Typeable,Generic)
1862+
1863+-- | Creates a value of 'VolumeVolumeInfoPanelizationSummary' with the minimum fields required to make a request.
1864+--
1865+-- Use one of the following lenses to modify other fields as desired:
1866+--
1867+-- * 'vvipsEpubBubbleVersion'
1868+--
1869+-- * 'vvipsContainsImageBubbles'
1870+--
1871+-- * 'vvipsContainsEpubBubbles'
1872+--
1873+-- * 'vvipsImageBubbleVersion'
1874+volumeVolumeInfoPanelizationSummary
1875+ :: VolumeVolumeInfoPanelizationSummary
1876+volumeVolumeInfoPanelizationSummary =
1877+ VolumeVolumeInfoPanelizationSummary'
1878+ { _vvipsEpubBubbleVersion = Nothing
1879+ , _vvipsContainsImageBubbles = Nothing
1880+ , _vvipsContainsEpubBubbles = Nothing
1881+ , _vvipsImageBubbleVersion = Nothing
1882+ }
1883+
1884+vvipsEpubBubbleVersion :: Lens' VolumeVolumeInfoPanelizationSummary (Maybe Text)
1885+vvipsEpubBubbleVersion
1886+ = lens _vvipsEpubBubbleVersion
1887+ (\ s a -> s{_vvipsEpubBubbleVersion = a})
1888+
1889+vvipsContainsImageBubbles :: Lens' VolumeVolumeInfoPanelizationSummary (Maybe Bool)
1890+vvipsContainsImageBubbles
1891+ = lens _vvipsContainsImageBubbles
1892+ (\ s a -> s{_vvipsContainsImageBubbles = a})
1893+
1894+vvipsContainsEpubBubbles :: Lens' VolumeVolumeInfoPanelizationSummary (Maybe Bool)
1895+vvipsContainsEpubBubbles
1896+ = lens _vvipsContainsEpubBubbles
1897+ (\ s a -> s{_vvipsContainsEpubBubbles = a})
1898+
1899+vvipsImageBubbleVersion :: Lens' VolumeVolumeInfoPanelizationSummary (Maybe Text)
1900+vvipsImageBubbleVersion
1901+ = lens _vvipsImageBubbleVersion
1902+ (\ s a -> s{_vvipsImageBubbleVersion = a})
1903+
1904+instance FromJSON VolumeVolumeInfoPanelizationSummary
1905+ where
1906+ parseJSON
1907+ = withObject "VolumeVolumeInfoPanelizationSummary"
1908+ (\ o ->
1909+ VolumeVolumeInfoPanelizationSummary' <$>
1910+ (o .:? "epubBubbleVersion") <*>
1911+ (o .:? "containsImageBubbles")
1912+ <*> (o .:? "containsEpubBubbles")
1913+ <*> (o .:? "imageBubbleVersion"))
1914+
1915+instance ToJSON VolumeVolumeInfoPanelizationSummary
1916+ where
1917+ toJSON VolumeVolumeInfoPanelizationSummary'{..}
1918+ = object
1919+ (catMaybes
1920+ [("epubBubbleVersion" .=) <$>
1921+ _vvipsEpubBubbleVersion,
1922+ ("containsImageBubbles" .=) <$>
1923+ _vvipsContainsImageBubbles,
1924+ ("containsEpubBubbles" .=) <$>
1925+ _vvipsContainsEpubBubbles,
1926+ ("imageBubbleVersion" .=) <$>
1927+ _vvipsImageBubbleVersion])
1928+
18531929-- | A list of image links for all the sizes that are available. (In LITE
18541930-- projection.)
18551931--
@@ -3224,6 +3300,8 @@ series =
32243300sKind :: Lens' Series Text
32253301sKind = lens _sKind (\ s a -> s{_sKind = a})
32263302
3303+-- | Series info list. The client always expects this element in the JSON
3304+-- output, hence declared here as OutputAlways.
32273305sSeries :: Lens' Series [SeriesSeriesItem]
32283306sSeries
32293307 = lens _sSeries (\ s a -> s{_sSeries = a}) . _Default
@@ -4130,8 +4208,9 @@ instance ToJSON Seriesmembership where
41304208
41314209--
41324210-- /See:/ 'userSettingsNotification' smart constructor.
4133−newtype UserSettingsNotification = UserSettingsNotification'
4134− { _usnMoreFromAuthors :: Maybe UserSettingsNotificationMoreFromAuthors
4211+data UserSettingsNotification = UserSettingsNotification'
4212+ { _usnMoreFromAuthors :: !(Maybe UserSettingsNotificationMoreFromAuthors)
4213+ , _usnMoreFromSeries :: !(Maybe UserSettingsNotificationMoreFromSeries)
41354214 } deriving (Eq,Show,Data,Typeable,Generic)
41364215
41374216-- | Creates a value of 'UserSettingsNotification' with the minimum fields required to make a request.
@@ -4139,11 +4218,14 @@ newtype UserSettingsNotification = UserSettingsNotification'
41394218-- Use one of the following lenses to modify other fields as desired:
41404219--
41414220-- * 'usnMoreFromAuthors'
4221+--
4222+-- * 'usnMoreFromSeries'
41424223userSettingsNotification
41434224 :: UserSettingsNotification
41444225userSettingsNotification =
41454226 UserSettingsNotification'
41464227 { _usnMoreFromAuthors = Nothing
4228+ , _usnMoreFromSeries = Nothing
41474229 }
41484230
41494231usnMoreFromAuthors :: Lens' UserSettingsNotification (Maybe UserSettingsNotificationMoreFromAuthors)
@@ -4151,18 +4233,25 @@ usnMoreFromAuthors
41514233 = lens _usnMoreFromAuthors
41524234 (\ s a -> s{_usnMoreFromAuthors = a})
41534235
4236+usnMoreFromSeries :: Lens' UserSettingsNotification (Maybe UserSettingsNotificationMoreFromSeries)
4237+usnMoreFromSeries
4238+ = lens _usnMoreFromSeries
4239+ (\ s a -> s{_usnMoreFromSeries = a})
4240+
41544241instance FromJSON UserSettingsNotification where
41554242 parseJSON
41564243 = withObject "UserSettingsNotification"
41574244 (\ o ->
41584245 UserSettingsNotification' <$>
4159− (o .:? "moreFromAuthors"))
4246+ (o .:? "moreFromAuthors") <*>
4247+ (o .:? "moreFromSeries"))
41604248
41614249instance ToJSON UserSettingsNotification where
41624250 toJSON UserSettingsNotification'{..}
41634251 = object
41644252 (catMaybes
4165− [("moreFromAuthors" .=) <$> _usnMoreFromAuthors])
4253+ [("moreFromAuthors" .=) <$> _usnMoreFromAuthors,
4254+ ("moreFromSeries" .=) <$> _usnMoreFromSeries])
41664255
41674256--
41684257-- /See:/ 'dictlayerDataDictWordsItemSensesItemSynonymsItem' smart constructor.
@@ -5959,6 +6048,7 @@ data VolumeSaleInfoOffersItem = VolumeSaleInfoOffersItem'
59596048 , _vsioiRentalDuration :: !(Maybe VolumeSaleInfoOffersItemRentalDuration)
59606049 , _vsioiListPrice :: !(Maybe VolumeSaleInfoOffersItemListPrice)
59616050 , _vsioiRetailPrice :: !(Maybe VolumeSaleInfoOffersItemRetailPrice)
6051+ , _vsioiGiftable :: !(Maybe Bool)
59626052 } deriving (Eq,Show,Data,Typeable,Generic)
59636053
59646054-- | Creates a value of 'VolumeSaleInfoOffersItem' with the minimum fields required to make a request.
@@ -5972,6 +6062,8 @@ data VolumeSaleInfoOffersItem = VolumeSaleInfoOffersItem'
59726062-- * 'vsioiListPrice'
59736063--
59746064-- * 'vsioiRetailPrice'
6065+--
6066+-- * 'vsioiGiftable'
59756067volumeSaleInfoOffersItem
59766068 :: VolumeSaleInfoOffersItem
59776069volumeSaleInfoOffersItem =
@@ -5980,6 +6072,7 @@ volumeSaleInfoOffersItem =
59806072 , _vsioiRentalDuration = Nothing
59816073 , _vsioiListPrice = Nothing
59826074 , _vsioiRetailPrice = Nothing
6075+ , _vsioiGiftable = Nothing
59836076 }
59846077
59856078-- | The finsky offer type (e.g., PURCHASE=0 RENTAL=3)
@@ -6007,6 +6100,12 @@ vsioiRetailPrice
60076100 = lens _vsioiRetailPrice
60086101 (\ s a -> s{_vsioiRetailPrice = a})
60096102
6103+-- | Indicates whether the offer is giftable.
6104+vsioiGiftable :: Lens' VolumeSaleInfoOffersItem (Maybe Bool)
6105+vsioiGiftable
6106+ = lens _vsioiGiftable
6107+ (\ s a -> s{_vsioiGiftable = a})
6108+
60106109instance FromJSON VolumeSaleInfoOffersItem where
60116110 parseJSON
60126111 = withObject "VolumeSaleInfoOffersItem"
@@ -6015,7 +6114,8 @@ instance FromJSON VolumeSaleInfoOffersItem where
60156114 (o .:? "finskyOfferType") <*>
60166115 (o .:? "rentalDuration")
60176116 <*> (o .:? "listPrice")
6018− <*> (o .:? "retailPrice"))
6117+ <*> (o .:? "retailPrice")
6118+ <*> (o .:? "giftable"))
60196119
60206120instance ToJSON VolumeSaleInfoOffersItem where
60216121 toJSON VolumeSaleInfoOffersItem'{..}
@@ -6024,7 +6124,8 @@ instance ToJSON VolumeSaleInfoOffersItem where
60246124 [("finskyOfferType" .=) <$> _vsioiFinskyOfferType,
60256125 ("rentalDuration" .=) <$> _vsioiRentalDuration,
60266126 ("listPrice" .=) <$> _vsioiListPrice,
6027− ("retailPrice" .=) <$> _vsioiRetailPrice])
6127+ ("retailPrice" .=) <$> _vsioiRetailPrice,
6128+ ("giftable" .=) <$> _vsioiGiftable])
60286129
60296130--
60306131-- /See:/ 'dictlayerDataDict' smart constructor.
@@ -6870,6 +6971,7 @@ instance ToJSON GeolayerDataGeoViewportHi where
68706971-- /See:/ 'volumeVolumeInfo' smart constructor.
68716972data VolumeVolumeInfo = VolumeVolumeInfo'
68726973 { _vviImageLinks :: !(Maybe VolumeVolumeInfoImageLinks)
6974+ , _vviPanelizationSummary :: !(Maybe VolumeVolumeInfoPanelizationSummary)
68736975 , _vviAverageRating :: !(Maybe (Textual Double))
68746976 , _vviRatingsCount :: !(Maybe (Textual Int32))
68756977 , _vviCanonicalVolumeLink :: !(Maybe Text)
@@ -6903,6 +7005,8 @@ data VolumeVolumeInfo = VolumeVolumeInfo'
69037005--
69047006-- * 'vviImageLinks'
69057007--
7008+-- * 'vviPanelizationSummary'
7009+--
69067010-- * 'vviAverageRating'
69077011--
69087012-- * 'vviRatingsCount'
@@ -6957,6 +7061,7 @@ volumeVolumeInfo
69577061volumeVolumeInfo =
69587062 VolumeVolumeInfo'
69597063 { _vviImageLinks = Nothing
7064+ , _vviPanelizationSummary = Nothing
69607065 , _vviAverageRating = Nothing
69617066 , _vviRatingsCount = Nothing
69627067 , _vviCanonicalVolumeLink = Nothing
@@ -6991,6 +7096,12 @@ vviImageLinks
69917096 = lens _vviImageLinks
69927097 (\ s a -> s{_vviImageLinks = a})
69937098
7099+-- | A top-level summary of the panelization info in this volume.
7100+vviPanelizationSummary :: Lens' VolumeVolumeInfo (Maybe VolumeVolumeInfoPanelizationSummary)
7101+vviPanelizationSummary
7102+ = lens _vviPanelizationSummary
7103+ (\ s a -> s{_vviPanelizationSummary = a})
7104+
69947105-- | The mean review rating for this volume. (min = 1.0, max = 5.0)
69957106vviAverageRating :: Lens' VolumeVolumeInfo (Maybe Double)
69967107vviAverageRating
@@ -7154,8 +7265,10 @@ instance FromJSON VolumeVolumeInfo where
71547265 = withObject "VolumeVolumeInfo"
71557266 (\ o ->
71567267 VolumeVolumeInfo' <$>
7157− (o .:? "imageLinks") <*> (o .:? "averageRating") <*>
7158− (o .:? "ratingsCount")
7268+ (o .:? "imageLinks") <*>
7269+ (o .:? "panelizationSummary")
7270+ <*> (o .:? "averageRating")
7271+ <*> (o .:? "ratingsCount")
71597272 <*> (o .:? "canonicalVolumeLink")
71607273 <*> (o .:? "readingModes")
71617274 <*> (o .:? "industryIdentifiers" .!= mempty)
@@ -7185,6 +7298,8 @@ instance ToJSON VolumeVolumeInfo where
71857298 = object
71867299 (catMaybes
71877300 [("imageLinks" .=) <$> _vviImageLinks,
7301+ ("panelizationSummary" .=) <$>
7302+ _vviPanelizationSummary,
71887303 ("averageRating" .=) <$> _vviAverageRating,
71897304 ("ratingsCount" .=) <$> _vviRatingsCount,
71907305 ("canonicalVolumeLink" .=) <$>
@@ -7455,6 +7570,44 @@ instance ToJSON VolumeUserInfoFamilySharing where
74557570 ("isSharingDisabledByFop" .=) <$>
74567571 _vuifsIsSharingDisabledByFop])
74577572
7573+--
7574+-- /See:/ 'userSettingsNotificationMoreFromSeries' smart constructor.
7575+newtype UserSettingsNotificationMoreFromSeries = UserSettingsNotificationMoreFromSeries'
7576+ { _usnmfsOptedState :: Maybe Text
7577+ } deriving (Eq,Show,Data,Typeable,Generic)
7578+
7579+-- | Creates a value of 'UserSettingsNotificationMoreFromSeries' with the minimum fields required to make a request.
7580+--
7581+-- Use one of the following lenses to modify other fields as desired:
7582+--
7583+-- * 'usnmfsOptedState'
7584+userSettingsNotificationMoreFromSeries
7585+ :: UserSettingsNotificationMoreFromSeries
7586+userSettingsNotificationMoreFromSeries =
7587+ UserSettingsNotificationMoreFromSeries'
7588+ { _usnmfsOptedState = Nothing
7589+ }
7590+
7591+usnmfsOptedState :: Lens' UserSettingsNotificationMoreFromSeries (Maybe Text)
7592+usnmfsOptedState
7593+ = lens _usnmfsOptedState
7594+ (\ s a -> s{_usnmfsOptedState = a})
7595+
7596+instance FromJSON
7597+ UserSettingsNotificationMoreFromSeries where
7598+ parseJSON
7599+ = withObject "UserSettingsNotificationMoreFromSeries"
7600+ (\ o ->
7601+ UserSettingsNotificationMoreFromSeries' <$>
7602+ (o .:? "opted_state"))
7603+
7604+instance ToJSON
7605+ UserSettingsNotificationMoreFromSeries where
7606+ toJSON UserSettingsNotificationMoreFromSeries'{..}
7607+ = object
7608+ (catMaybes
7609+ [("opted_state" .=) <$> _usnmfsOptedState])
7610+
74587611--
74597612-- /See:/ 'volumeVolumeInfoIndustryIdentifiersItem' smart constructor.
74607613data VolumeVolumeInfoIndustryIdentifiersItem = VolumeVolumeInfoIndustryIdentifiersItem'