570e883 · gogol · git.iko.soy

git.iko.soy/gogol

on develop help sign in

Regenerating gogol-books from updated service defintions

570e883Brendan Hay10 years ago

gogol-books/gen/Network/Google/Books.hs+1

compare with develop

unifiedsplit

@@ -452,6 +452,7 @@ module Network.Google.Books

452 , nReason

453 , nDontShowNotification

454 , nNotificationType

455+ , nNotificationGroup

455 , nIconURL

456 , nIconURL

456 , nTitle

457 , nTitle

457

458

gogol-books/gen/Network/Google/Books/Types.hs+1

@@ -299,6 +299,7 @@ module Network.Google.Books.Types

299 , nReason

300 , nDontShowNotification

301 , nNotificationType

302+ , nNotificationGroup

302 , nIconURL

303 , nIconURL

303 , nTitle

304 , nTitle

304

305

gogol-books/gen/Network/Google/Books/Types/Product.hs+13−4

@@ -404,7 +404,7 @@ instance ToJSON ReviewSource where

404--

405-- /See:/ 'annotationData' smart constructor.

406data AnnotationData = AnnotationData'

407− { _annEncodedData :: !(Maybe Base64)

407+ { _annEncodedData :: !(Maybe Bytes)

408 , _annKind :: !Text

409 , _annData :: !(Maybe JSONValue)

410 , _annSelfLink :: !(Maybe Text)

@@ -456,7 +456,7 @@ annEncodedData :: Lens' AnnotationData (Maybe ByteString)

456annEncodedData

457 = lens _annEncodedData

458 (\ s a -> s{_annEncodedData = a})

459− . mapping _Base64

459+ . mapping _Bytes

460

461-- | Resource Type

462annKind :: Lens' AnnotationData Text

@@ -2401,6 +2401,7 @@ data Notification = Notification'

2401 , _nReason :: !(Maybe Text)

2402 , _nDontShowNotification :: !(Maybe Bool)

2403 , _nNotificationType :: !(Maybe Text)

2404+ , _nNotificationGroup :: !(Maybe Text)

2404 , _nIconURL :: !(Maybe Text)

2405 , _nIconURL :: !(Maybe Text)

2405 , _nTitle :: !(Maybe Text)

2406 , _nTitle :: !(Maybe Text)

2406 } deriving (Eq,Show,Data,Typeable,Generic)

2407 } deriving (Eq,Show,Data,Typeable,Generic)

@@ -2431,6 +2432,8 @@ data Notification = Notification'

2431--

2432--

2432-- * 'nNotificationType'

2433-- * 'nNotificationType'

2433--

2434--

2435+-- * 'nNotificationGroup'

2436+--

2434-- * 'nIconURL'

2437-- * 'nIconURL'

2435--

2438--

2436-- * 'nTitle'

2439-- * 'nTitle'

@@ -2449,6 +2452,7 @@ notification =

2449 , _nReason = Nothing

2452 , _nReason = Nothing

2450 , _nDontShowNotification = Nothing

2453 , _nDontShowNotification = Nothing

2451 , _nNotificationType = Nothing

2454 , _nNotificationType = Nothing

2455+ , _nNotificationGroup = Nothing

2452 , _nIconURL = Nothing

2456 , _nIconURL = Nothing

2453 , _nTitle = Nothing

2457 , _nTitle = Nothing

2454 }

2458 }

@@ -2500,6 +2504,11 @@ nNotificationType

2500 = lens _nNotificationType

2504 = lens _nNotificationType

2501 (\ s a -> s{_nNotificationType = a})

2505 (\ s a -> s{_nNotificationType = a})

2502

2506

2507+nNotificationGroup :: Lens' Notification (Maybe Text)

2508+nNotificationGroup

2509+ = lens _nNotificationGroup

2510+ (\ s a -> s{_nNotificationGroup = a})

2511+

2503nIconURL :: Lens' Notification (Maybe Text)

2512nIconURL :: Lens' Notification (Maybe Text)

2504nIconURL = lens _nIconURL (\ s a -> s{_nIconURL = a})

2513nIconURL = lens _nIconURL (\ s a -> s{_nIconURL = a})

2505

2514

@@ -2521,6 +2530,7 @@ instance FromJSON Notification where

2521 <*> (o .:? "reason")

2530 <*> (o .:? "reason")

2522 <*> (o .:? "dont_show_notification")

2531 <*> (o .:? "dont_show_notification")

2523 <*> (o .:? "notification_type")

2532 <*> (o .:? "notification_type")

2533+ <*> (o .:? "notificationGroup")

2524 <*> (o .:? "iconUrl")

2534 <*> (o .:? "iconUrl")

2525 <*> (o .:? "title"))

2535 <*> (o .:? "title"))

2526

2536

@@ -2540,6 +2550,7 @@ instance ToJSON Notification where

2540 ("dont_show_notification" .=) <$>

2550 ("dont_show_notification" .=) <$>

2541 _nDontShowNotification,

2551 _nDontShowNotification,

2542 ("notification_type" .=) <$> _nNotificationType,

2552 ("notification_type" .=) <$> _nNotificationType,

2553+ ("notificationGroup" .=) <$> _nNotificationGroup,

2543 ("iconUrl" .=) <$> _nIconURL,

2554 ("iconUrl" .=) <$> _nIconURL,

2544 ("title" .=) <$> _nTitle])

2555 ("title" .=) <$> _nTitle])

2545

2556

@@ -3300,8 +3311,6 @@ series =

3300sKind :: Lens' Series Text

3311sKind :: Lens' Series Text

3301sKind = lens _sKind (\ s a -> s{_sKind = a})

3312sKind = lens _sKind (\ s a -> s{_sKind = a})

3302

3313

3303−-- | Series info list. The client always expects this element in the JSON

3304−-- output, hence declared here as OutputAlways.

3305sSeries :: Lens' Series [SeriesSeriesItem]

3314sSeries :: Lens' Series [SeriesSeriesItem]

3306sSeries

3315sSeries

3307 = lens _sSeries (\ s a -> s{_sSeries = a}) . _Default

3316 = lens _sSeries (\ s a -> s{_sSeries = a}) . _Default