@@ -1128,23 +1128,25 @@ instance ToJSON GeolayerDataGeoViewport where
1129-- /See:/ 'volumeUserInfo' smart constructor.
1129-- /See:/ 'volumeUserInfo' smart constructor.
1130data VolumeUserInfo = VolumeUserInfo'
1130data VolumeUserInfo = VolumeUserInfo'
1131− { _vuiIsFamilySharingAllowed :: !(Maybe Bool)
1131+ { _vuiIsFamilySharingAllowed :: !(Maybe Bool)
1132− , _vuiIsFamilySharedToUser :: !(Maybe Bool)
1132+ , _vuiIsFamilySharedToUser :: !(Maybe Bool)
1133− , _vuiCopy :: !(Maybe VolumeUserInfoCopy)
1133+ , _vuiCopy :: !(Maybe VolumeUserInfoCopy)
1134− , _vuiUserUploadedVolumeInfo :: !(Maybe VolumeUserInfoUserUploadedVolumeInfo)
1134+ , _vuiUserUploadedVolumeInfo :: !(Maybe VolumeUserInfoUserUploadedVolumeInfo)
1135− , _vuiIsPurchased :: !(Maybe Bool)
1135+ , _vuiIsPurchased :: !(Maybe Bool)
1136− , _vuiEntitlementType :: !(Maybe (Textual Int32))
1136+ , _vuiEntitlementType :: !(Maybe (Textual Int32))
1137− , _vuiAcquisitionType :: !(Maybe (Textual Int32))
1137+ , _vuiAcquisitionType :: !(Maybe (Textual Int32))
1138− , _vuiAcquiredTime :: !(Maybe DateTime')
1138+ , _vuiAcquiredTime :: !(Maybe DateTime')
1139− , _vuiRentalState :: !(Maybe Text)
1139+ , _vuiRentalState :: !(Maybe Text)
1140− , _vuiIsPreOrdered :: !(Maybe Bool)
1140+ , _vuiIsPreOrdered :: !(Maybe Bool)
1141− , _vuiReview :: !(Maybe Review)
1141+ , _vuiReview :: !(Maybe Review)
1142− , _vuiIsFamilySharedFromUser :: !(Maybe Bool)
1142+ , _vuiIsFamilySharedFromUser :: !(Maybe Bool)
1143− , _vuiRentalPeriod :: !(Maybe VolumeUserInfoRentalPeriod)
1143+ , _vuiRentalPeriod :: !(Maybe VolumeUserInfoRentalPeriod)
1144− , _vuiUpdated :: !(Maybe DateTime')
1144+ , _vuiUpdated :: !(Maybe DateTime')
1145− , _vuiIsUploaded :: !(Maybe Bool)
1145+ , _vuiIsUploaded :: !(Maybe Bool)
1146− , _vuiIsInMyBooks :: !(Maybe Bool)
1146+ , _vuiIsInMyBooks :: !(Maybe Bool)
1147− , _vuiReadingPosition :: !(Maybe ReadingPosition)
1147+ , _vuiReadingPosition :: !(Maybe ReadingPosition)
1148+ , _vuiFamilySharing :: !(Maybe VolumeUserInfoFamilySharing)
1149+ , _vuiIsFamilySharingDisabledByFop :: !(Maybe Bool)
1148 } deriving (Eq,Show,Data,Typeable,Generic)
1150 } deriving (Eq,Show,Data,Typeable,Generic)
1150-- | Creates a value of 'VolumeUserInfo' with the minimum fields required to make a request.
1152-- | Creates a value of 'VolumeUserInfo' with the minimum fields required to make a request.
@@ -1184,6 +1186,10 @@ data VolumeUserInfo = VolumeUserInfo'
1184-- * 'vuiIsInMyBooks'
1186-- * 'vuiIsInMyBooks'
1186-- * 'vuiReadingPosition'
1188-- * 'vuiReadingPosition'
1190+-- * 'vuiFamilySharing'
1192+-- * 'vuiIsFamilySharingDisabledByFop'
1187volumeUserInfo
1193volumeUserInfo
1188 :: VolumeUserInfo
1194 :: VolumeUserInfo
1189volumeUserInfo =
1195volumeUserInfo =
@@ -1205,11 +1211,11 @@ volumeUserInfo =
1205 , _vuiIsUploaded = Nothing
1211 , _vuiIsUploaded = Nothing
1206 , _vuiIsInMyBooks = Nothing
1212 , _vuiIsInMyBooks = Nothing
1207 , _vuiReadingPosition = Nothing
1213 , _vuiReadingPosition = Nothing
1214+ , _vuiFamilySharing = Nothing
1215+ , _vuiIsFamilySharingDisabledByFop = Nothing
1210−-- | Whether or not this volume can be shared with the family by the user.
1218+-- | Deprecated: Replaced by familySharing.
1211−-- This includes sharing eligibility of both the volume and the user. If
1212−-- the value is true, the user can initiate a family sharing action.
1213vuiIsFamilySharingAllowed :: Lens' VolumeUserInfo (Maybe Bool)
1219vuiIsFamilySharingAllowed :: Lens' VolumeUserInfo (Maybe Bool)
1214vuiIsFamilySharingAllowed
1220vuiIsFamilySharingAllowed
1215 = lens _vuiIsFamilySharingAllowed
1221 = lens _vuiIsFamilySharingAllowed
@@ -1317,6 +1323,18 @@ vuiReadingPosition
1317 = lens _vuiReadingPosition
1323 = lens _vuiReadingPosition
1318 (\ s a -> s{_vuiReadingPosition = a})
1324 (\ s a -> s{_vuiReadingPosition = a})
1326+-- | Information on the ability to share with the family.
1327+vuiFamilySharing :: Lens' VolumeUserInfo (Maybe VolumeUserInfoFamilySharing)
1329+ = lens _vuiFamilySharing
1330+ (\ s a -> s{_vuiFamilySharing = a})
1332+-- | Deprecated: Replaced by familySharing.
1333+vuiIsFamilySharingDisabledByFop :: Lens' VolumeUserInfo (Maybe Bool)
1334+vuiIsFamilySharingDisabledByFop
1335+ = lens _vuiIsFamilySharingDisabledByFop
1336+ (\ s a -> s{_vuiIsFamilySharingDisabledByFop = a})
1320instance FromJSON VolumeUserInfo where
1338instance FromJSON VolumeUserInfo where
1321 parseJSON
1339 parseJSON
1322 = withObject "VolumeUserInfo"
1340 = withObject "VolumeUserInfo"
@@ -1338,7 +1356,9 @@ instance FromJSON VolumeUserInfo where
1338 <*> (o .:? "updated")
1356 <*> (o .:? "updated")
1339 <*> (o .:? "isUploaded")
1357 <*> (o .:? "isUploaded")
1340 <*> (o .:? "isInMyBooks")
1358 <*> (o .:? "isInMyBooks")
1341− <*> (o .:? "readingPosition"))
1359+ <*> (o .:? "readingPosition")
1360+ <*> (o .:? "familySharing")
1361+ <*> (o .:? "isFamilySharingDisabledByFop"))
1343instance ToJSON VolumeUserInfo where
1363instance ToJSON VolumeUserInfo where
1344 toJSON VolumeUserInfo'{..}
1364 toJSON VolumeUserInfo'{..}
@@ -1364,7 +1384,10 @@ instance ToJSON VolumeUserInfo where
1364 ("updated" .=) <$> _vuiUpdated,
1384 ("updated" .=) <$> _vuiUpdated,
1365 ("isUploaded" .=) <$> _vuiIsUploaded,
1385 ("isUploaded" .=) <$> _vuiIsUploaded,
1366 ("isInMyBooks" .=) <$> _vuiIsInMyBooks,
1386 ("isInMyBooks" .=) <$> _vuiIsInMyBooks,
1367− ("readingPosition" .=) <$> _vuiReadingPosition])
1387+ ("readingPosition" .=) <$> _vuiReadingPosition,
1388+ ("familySharing" .=) <$> _vuiFamilySharing,
1389+ ("isFamilySharingDisabledByFop" .=) <$>
1390+ _vuiIsFamilySharingDisabledByFop])
1370-- /See:/ 'layersummary' smart constructor.
1393-- /See:/ 'layersummary' smart constructor.
@@ -2291,10 +2314,13 @@ instance ToJSON Bookshelf where
2292-- /See:/ 'notification' smart constructor.
2315-- /See:/ 'notification' smart constructor.
2293data Notification = Notification'
2316data Notification = Notification'
2317+ { _nDocType :: !(Maybe Text)
2294− { _nTargetURL :: !(Maybe Text)
2318+ , _nTargetURL :: !(Maybe Text)
2295 , _nShowNotificationSettingsAction :: !(Maybe Bool)
2319 , _nShowNotificationSettingsAction :: !(Maybe Bool)
2320+ , _nDocId :: !(Maybe Text)
2296 , _nKind :: !Text
2321 , _nKind :: !Text
2297 , _nBody :: !(Maybe Text)
2322 , _nBody :: !(Maybe Text)
2323+ , _nCrmExperimentIds :: !(Maybe [Textual Int64])
2298 , _nPcampaignId :: !(Maybe Text)
2324 , _nPcampaignId :: !(Maybe Text)
2299 , _nReason :: !(Maybe Text)
2325 , _nReason :: !(Maybe Text)
2300 , _nDontShowNotification :: !(Maybe Bool)
2326 , _nDontShowNotification :: !(Maybe Bool)
@@ -2307,14 +2333,20 @@ data Notification = Notification'
2308-- Use one of the following lenses to modify other fields as desired:
2334-- Use one of the following lenses to modify other fields as desired:
2310-- * 'nTargetURL'
2338-- * 'nTargetURL'
2312-- * 'nShowNotificationSettingsAction'
2340-- * 'nShowNotificationSettingsAction'
2314-- * 'nKind'
2344-- * 'nKind'
2316-- * 'nBody'
2346-- * 'nBody'
2348+-- * 'nCrmExperimentIds'
2318-- * 'nPcampaignId'
2350-- * 'nPcampaignId'
2320-- * 'nReason'
2352-- * 'nReason'
@@ -2330,10 +2362,13 @@ notification
2330 :: Notification
2362 :: Notification
2331notification =
2363notification =
2332 Notification'
2364 Notification'
2365+ { _nDocType = Nothing
2333− { _nTargetURL = Nothing
2366+ , _nTargetURL = Nothing
2334 , _nShowNotificationSettingsAction = Nothing
2367 , _nShowNotificationSettingsAction = Nothing
2368+ , _nDocId = Nothing
2335 , _nKind = "books#notification"
2369 , _nKind = "books#notification"
2336 , _nBody = Nothing
2370 , _nBody = Nothing
2371+ , _nCrmExperimentIds = Nothing
2337 , _nPcampaignId = Nothing
2372 , _nPcampaignId = Nothing
2338 , _nReason = Nothing
2373 , _nReason = Nothing
2339 , _nDontShowNotification = Nothing
2374 , _nDontShowNotification = Nothing
@@ -2342,6 +2377,9 @@ notification =
2342 , _nTitle = Nothing
2377 , _nTitle = Nothing
2380+nDocType :: Lens' Notification (Maybe Text)
2381+nDocType = lens _nDocType (\ s a -> s{_nDocType = a})
2345nTargetURL :: Lens' Notification (Maybe Text)
2383nTargetURL :: Lens' Notification (Maybe Text)
2346nTargetURL
2384nTargetURL
2347 = lens _nTargetURL (\ s a -> s{_nTargetURL = a})
2385 = lens _nTargetURL (\ s a -> s{_nTargetURL = a})
@@ -2351,6 +2389,9 @@ nShowNotificationSettingsAction
2351 = lens _nShowNotificationSettingsAction
2389 = lens _nShowNotificationSettingsAction
2352 (\ s a -> s{_nShowNotificationSettingsAction = a})
2390 (\ s a -> s{_nShowNotificationSettingsAction = a})
2392+nDocId :: Lens' Notification (Maybe Text)
2393+nDocId = lens _nDocId (\ s a -> s{_nDocId = a})
2354-- | Resource type.
2395-- | Resource type.
2355nKind :: Lens' Notification Text
2396nKind :: Lens' Notification Text
2356nKind = lens _nKind (\ s a -> s{_nKind = a})
2397nKind = lens _nKind (\ s a -> s{_nKind = a})
@@ -2358,6 +2399,14 @@ nKind = lens _nKind (\ s a -> s{_nKind = a})
2358nBody :: Lens' Notification (Maybe Text)
2399nBody :: Lens' Notification (Maybe Text)
2359nBody = lens _nBody (\ s a -> s{_nBody = a})
2400nBody = lens _nBody (\ s a -> s{_nBody = a})
2402+-- | The list of crm experiment ids.
2403+nCrmExperimentIds :: Lens' Notification [Int64]
2405+ = lens _nCrmExperimentIds
2406+ (\ s a -> s{_nCrmExperimentIds = a})
2361nPcampaignId :: Lens' Notification (Maybe Text)
2410nPcampaignId :: Lens' Notification (Maybe Text)
2362nPcampaignId
2411nPcampaignId
2363 = lens _nPcampaignId (\ s a -> s{_nPcampaignId = a})
2412 = lens _nPcampaignId (\ s a -> s{_nPcampaignId = a})
@@ -2386,10 +2435,12 @@ instance FromJSON Notification where
2386 = withObject "Notification"
2435 = withObject "Notification"
2388 Notification' <$>
2437 Notification' <$>
2389− (o .:? "targetUrl") <*>
2438+ (o .:? "doc_type") <*> (o .:? "targetUrl") <*>
2390 (o .:? "show_notification_settings_action")
2439 (o .:? "show_notification_settings_action")
2440+ <*> (o .:? "doc_id")
2391 <*> (o .:? "kind" .!= "books#notification")
2441 <*> (o .:? "kind" .!= "books#notification")
2392 <*> (o .:? "body")
2442 <*> (o .:? "body")
2443+ <*> (o .:? "crmExperimentIds" .!= mempty)
2393 <*> (o .:? "pcampaign_id")
2444 <*> (o .:? "pcampaign_id")
2394 <*> (o .:? "reason")
2445 <*> (o .:? "reason")
2395 <*> (o .:? "dont_show_notification")
2446 <*> (o .:? "dont_show_notification")
@@ -2401,10 +2452,13 @@ instance ToJSON Notification where
2401 toJSON Notification'{..}
2452 toJSON Notification'{..}
2402 = object
2453 = object
2403 (catMaybes
2454 (catMaybes
2455+ [("doc_type" .=) <$> _nDocType,
2404− [("targetUrl" .=) <$> _nTargetURL,
2456+ ("targetUrl" .=) <$> _nTargetURL,
2405 ("show_notification_settings_action" .=) <$>
2457 ("show_notification_settings_action" .=) <$>
2406 _nShowNotificationSettingsAction,
2458 _nShowNotificationSettingsAction,
2459+ ("doc_id" .=) <$> _nDocId, Just ("kind" .= _nKind),
2407− Just ("kind" .= _nKind), ("body" .=) <$> _nBody,
2460+ ("body" .=) <$> _nBody,
2461+ ("crmExperimentIds" .=) <$> _nCrmExperimentIds,
2408 ("pcampaign_id" .=) <$> _nPcampaignId,
2462 ("pcampaign_id" .=) <$> _nPcampaignId,
2409 ("reason" .=) <$> _nReason,
2463 ("reason" .=) <$> _nReason,
2410 ("dont_show_notification" .=) <$>
2464 ("dont_show_notification" .=) <$>
@@ -7336,6 +7390,71 @@ instance ToJSON VolumeSaleInfoOffersItemRetailPrice
7336 [("currencyCode" .=) <$> _vsioirpCurrencyCode,
7390 [("currencyCode" .=) <$> _vsioirpCurrencyCode,
7337 ("amountInMicros" .=) <$> _vsioirpAmountInMicros])
7391 ("amountInMicros" .=) <$> _vsioirpAmountInMicros])
7393+-- | Information on the ability to share with the family.
7395+-- /See:/ 'volumeUserInfoFamilySharing' smart constructor.
7396+data VolumeUserInfoFamilySharing = VolumeUserInfoFamilySharing'
7397+ { _vuifsFamilyRole :: !(Maybe Text)
7398+ , _vuifsIsSharingAllowed :: !(Maybe Bool)
7399+ , _vuifsIsSharingDisabledByFop :: !(Maybe Bool)
7400+ } deriving (Eq,Show,Data,Typeable,Generic)
7402+-- | Creates a value of 'VolumeUserInfoFamilySharing' with the minimum fields required to make a request.
7404+-- Use one of the following lenses to modify other fields as desired:
7406+-- * 'vuifsFamilyRole'
7408+-- * 'vuifsIsSharingAllowed'
7410+-- * 'vuifsIsSharingDisabledByFop'
7411+volumeUserInfoFamilySharing
7412+ :: VolumeUserInfoFamilySharing
7413+volumeUserInfoFamilySharing =
7414+ VolumeUserInfoFamilySharing'
7415+ { _vuifsFamilyRole = Nothing
7416+ , _vuifsIsSharingAllowed = Nothing
7417+ , _vuifsIsSharingDisabledByFop = Nothing
7420+-- | The role of the user in the family.
7421+vuifsFamilyRole :: Lens' VolumeUserInfoFamilySharing (Maybe Text)
7423+ = lens _vuifsFamilyRole
7424+ (\ s a -> s{_vuifsFamilyRole = a})
7426+-- | Whether or not this volume can be shared with the family by the user.
7427+-- This includes sharing eligibility of both the volume and the user. If
7428+-- the value is true, the user can initiate a family sharing action.
7429+vuifsIsSharingAllowed :: Lens' VolumeUserInfoFamilySharing (Maybe Bool)
7430+vuifsIsSharingAllowed
7431+ = lens _vuifsIsSharingAllowed
7432+ (\ s a -> s{_vuifsIsSharingAllowed = a})
7434+-- | Whether or not sharing this volume is temporarily disabled due to issues
7435+-- with the Family Wallet.
7436+vuifsIsSharingDisabledByFop :: Lens' VolumeUserInfoFamilySharing (Maybe Bool)
7437+vuifsIsSharingDisabledByFop
7438+ = lens _vuifsIsSharingDisabledByFop
7439+ (\ s a -> s{_vuifsIsSharingDisabledByFop = a})
7441+instance FromJSON VolumeUserInfoFamilySharing where
7443+ = withObject "VolumeUserInfoFamilySharing"
7445+ VolumeUserInfoFamilySharing' <$>
7446+ (o .:? "familyRole") <*> (o .:? "isSharingAllowed")
7447+ <*> (o .:? "isSharingDisabledByFop"))
7449+instance ToJSON VolumeUserInfoFamilySharing where
7450+ toJSON VolumeUserInfoFamilySharing'{..}
7453+ [("familyRole" .=) <$> _vuifsFamilyRole,
7454+ ("isSharingAllowed" .=) <$> _vuifsIsSharingAllowed,
7455+ ("isSharingDisabledByFop" .=) <$>
7456+ _vuifsIsSharingDisabledByFop])
7340-- /See:/ 'volumeVolumeInfoIndustryIdentifiersItem' smart constructor.
7459-- /See:/ 'volumeVolumeInfoIndustryIdentifiersItem' smart constructor.
7341data VolumeVolumeInfoIndustryIdentifiersItem = VolumeVolumeInfoIndustryIdentifiersItem'
7460data VolumeVolumeInfoIndustryIdentifiersItem = VolumeVolumeInfoIndustryIdentifiersItem'