on develop help sign in
Regenerating gogol-books from updated service defintions
commit570e88307b3186129ca7a0f8e34711067b8e66df authorBrendan Hay <brendan.g.hay@gmail.com> dateSat 11 Feb 2017, 11:36 (10 years ago) parentdf24990
3 files changed+15−4
gogol-books/gen/Network/Google/Books.hs+1 gogol-books/gen/Network/Google/Books/Types.hs+1 gogol-books/gen/Network/Google/Books/Types/Product.hs+13−4
gogol-books/gen/Network/Google/Books.hs+1
@@ -452,6 +452,7 @@ module Network.Google.Books
452452 , nReason
453453 , nDontShowNotification
454454 , nNotificationType
455+ , nNotificationGroup
455456 , nIconURL
456457 , nTitle
457458
gogol-books/gen/Network/Google/Books/Types.hs+1
@@ -299,6 +299,7 @@ module Network.Google.Books.Types
299299 , nReason
300300 , nDontShowNotification
301301 , nNotificationType
302+ , nNotificationGroup
302303 , nIconURL
303304 , nTitle
304305
gogol-books/gen/Network/Google/Books/Types/Product.hs+13−4
@@ -404,7 +404,7 @@ instance ToJSON ReviewSource where
404404--
405405-- /See:/ 'annotationData' smart constructor.
406406data AnnotationData = AnnotationData'
407− { _annEncodedData :: !(Maybe Base64)
407+ { _annEncodedData :: !(Maybe Bytes)
408408 , _annKind :: !Text
409409 , _annData :: !(Maybe JSONValue)
410410 , _annSelfLink :: !(Maybe Text)
@@ -456,7 +456,7 @@ annEncodedData :: Lens' AnnotationData (Maybe ByteString)
456456annEncodedData
457457 = lens _annEncodedData
458458 (\ s a -> s{_annEncodedData = a})
459− . mapping _Base64
459+ . mapping _Bytes
460460
461461-- | Resource Type
462462annKind :: Lens' AnnotationData Text
@@ -2401,6 +2401,7 @@ data Notification = Notification'
24012401 , _nReason :: !(Maybe Text)
24022402 , _nDontShowNotification :: !(Maybe Bool)
24032403 , _nNotificationType :: !(Maybe Text)
2404+ , _nNotificationGroup :: !(Maybe Text)
24042405 , _nIconURL :: !(Maybe Text)
24052406 , _nTitle :: !(Maybe Text)
24062407 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -2431,6 +2432,8 @@ data Notification = Notification'
24312432--
24322433-- * 'nNotificationType'
24332434--
2435+-- * 'nNotificationGroup'
2436+--
24342437-- * 'nIconURL'
24352438--
24362439-- * 'nTitle'
@@ -2449,6 +2452,7 @@ notification =
24492452 , _nReason = Nothing
24502453 , _nDontShowNotification = Nothing
24512454 , _nNotificationType = Nothing
2455+ , _nNotificationGroup = Nothing
24522456 , _nIconURL = Nothing
24532457 , _nTitle = Nothing
24542458 }
@@ -2500,6 +2504,11 @@ nNotificationType
25002504 = lens _nNotificationType
25012505 (\ s a -> s{_nNotificationType = a})
25022506
2507+nNotificationGroup :: Lens' Notification (Maybe Text)
2508+nNotificationGroup
2509+ = lens _nNotificationGroup
2510+ (\ s a -> s{_nNotificationGroup = a})
2511+
25032512nIconURL :: Lens' Notification (Maybe Text)
25042513nIconURL = lens _nIconURL (\ s a -> s{_nIconURL = a})
25052514
@@ -2521,6 +2530,7 @@ instance FromJSON Notification where
25212530 <*> (o .:? "reason")
25222531 <*> (o .:? "dont_show_notification")
25232532 <*> (o .:? "notification_type")
2533+ <*> (o .:? "notificationGroup")
25242534 <*> (o .:? "iconUrl")
25252535 <*> (o .:? "title"))
25262536
@@ -2540,6 +2550,7 @@ instance ToJSON Notification where
25402550 ("dont_show_notification" .=) <$>
25412551 _nDontShowNotification,
25422552 ("notification_type" .=) <$> _nNotificationType,
2553+ ("notificationGroup" .=) <$> _nNotificationGroup,
25432554 ("iconUrl" .=) <$> _nIconURL,
25442555 ("title" .=) <$> _nTitle])
25452556
@@ -3300,8 +3311,6 @@ series =
33003311sKind :: Lens' Series Text
33013312sKind = lens _sKind (\ s a -> s{_sKind = a})
33023313
3303−-- | Series info list. The client always expects this element in the JSON
3304−-- output, hence declared here as OutputAlways.
33053314sSeries :: Lens' Series [SeriesSeriesItem]
33063315sSeries
33073316 = lens _sSeries (\ s a -> s{_sSeries = a}) . _Default