gogol-apps-calendar 0.3.0 → 0.4.0

raw patch · 29 files changed

+1547/−158 lines, 29 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• gen/Network/Google/AppsCalendar.hs +93/−0
• gen/Network/Google/AppsCalendar/Types.hs +107/−1
• gen/Network/Google/AppsCalendar/Types/Product.hs +763/−39
• gen/Network/Google/AppsCalendar/Types/Sum.hs +222/−1
• gen/Network/Google/Resource/Calendar/ACL/Insert.hs +20/−5
• gen/Network/Google/Resource/Calendar/ACL/Patch.hs +21/−6
• gen/Network/Google/Resource/Calendar/ACL/Update.hs +21/−6
• gen/Network/Google/Resource/Calendar/CalendarList/Delete.hs +2/−2
• gen/Network/Google/Resource/Calendar/CalendarList/Get.hs +2/−2
• gen/Network/Google/Resource/Calendar/CalendarList/Insert.hs +2/−2
• gen/Network/Google/Resource/Calendar/CalendarList/List.hs +2/−2
• gen/Network/Google/Resource/Calendar/CalendarList/Patch.hs +4/−4
• gen/Network/Google/Resource/Calendar/CalendarList/Update.hs +2/−2
• gen/Network/Google/Resource/Calendar/Channels/Stop.hs +4/−1
• gen/Network/Google/Resource/Calendar/Events/Delete.hs +20/−4
• gen/Network/Google/Resource/Calendar/Events/Get.hs +2/−0
• gen/Network/Google/Resource/Calendar/Events/Import.hs +28/−9
• gen/Network/Google/Resource/Calendar/Events/Insert.hs +50/−15
• gen/Network/Google/Resource/Calendar/Events/Instances.hs +2/−0
• gen/Network/Google/Resource/Calendar/Events/List.hs +11/−4
• gen/Network/Google/Resource/Calendar/Events/Move.hs +21/−4
• gen/Network/Google/Resource/Calendar/Events/Patch.hs +54/−18
• gen/Network/Google/Resource/Calendar/Events/QuickAdd.hs +21/−4
• gen/Network/Google/Resource/Calendar/Events/Update.hs +54/−18
• gen/Network/Google/Resource/Calendar/Events/Watch.hs +11/−4
• gen/Network/Google/Resource/Calendar/Settings/Get.hs +2/−1
• gen/Network/Google/Resource/Calendar/Settings/List.hs +2/−1
• gen/Network/Google/Resource/Calendar/Settings/Watch.hs +2/−1
• gogol-apps-calendar.cabal +2/−2

@@ -24,6 +24,9 @@     -- * OAuth Scopes     , calendarScope     , calendarReadOnlyScope+    , calendarEventsScope+    , calendarSettingsReadOnlyScope+    , calendarEventsReadOnlyScope      -- * API Declaration     , AppsCalendarAPI@@ -147,6 +150,7 @@     , CalendarListEntry     , calendarListEntry     , cleSummary+    , cleConferenceProperties     , cleEtag     , cleLocation     , cleKind@@ -165,6 +169,11 @@     , cleTimeZone     , cleDescription +    -- ** ConferenceParameters+    , ConferenceParameters+    , conferenceParameters+    , cpAddOnParameters+     -- ** Event     , Event     , event@@ -186,6 +195,7 @@     , eStart     , ePrivateCopy     , eEndTimeUnspecified+    , eConferenceData     , eExtendedProperties     , eVisibility     , eGuestsCanInviteOthers@@ -211,6 +221,21 @@     , calendarListEntryNotificationSettings     , clensNotifications +    -- ** ConferenceProperties+    , ConferenceProperties+    , conferenceProperties+    , cpAllowedConferenceSolutionTypes++    -- ** ConferenceSolution+    , ConferenceSolution+    , conferenceSolution+    , csIconURI+    , csKey+    , csName++    -- ** EventsPatchSendUpdates+    , EventsPatchSendUpdates (..)+     -- ** ACLRuleScope     , ACLRuleScope     , aclRuleScope@@ -222,6 +247,9 @@     , colorsEvent     , ceAddtional +    -- ** EventsQuickAddSendUpdates+    , EventsQuickAddSendUpdates (..)+     -- ** Settings     , Settings     , settings@@ -245,12 +273,37 @@     , eaTitle     , eaFileId +    -- ** EntryPoint+    , EntryPoint+    , entryPoint+    , epPasscode+    , epRegionCode+    , epURI+    , epMeetingCode+    , epPassword+    , epPin+    , epEntryPointFeatures+    , epEntryPointType+    , epLabel+    , epAccessCode+     -- ** TimePeriod     , TimePeriod     , timePeriod     , tpStart     , tpEnd +    -- ** EventsUpdateSendUpdates+    , EventsUpdateSendUpdates (..)++    -- ** ConferenceSolutionKey+    , ConferenceSolutionKey+    , conferenceSolutionKey+    , cskType++    -- ** EventsMoveSendUpdates+    , EventsMoveSendUpdates (..)+     -- ** EventCreator     , EventCreator     , eventCreator@@ -274,6 +327,9 @@     -- ** EventsListOrderBy     , EventsListOrderBy (..) +    -- ** EventsDeleteSendUpdates+    , EventsDeleteSendUpdates (..)+     -- ** Channel     , Channel     , channel@@ -288,12 +344,28 @@     , cId     , cType +    -- ** ConferenceRequestStatus+    , ConferenceRequestStatus+    , conferenceRequestStatus+    , crsStatusCode+     -- ** FreeBusyCalendar     , FreeBusyCalendar     , freeBusyCalendar     , fbcBusy     , fbcErrors +    -- ** ConferenceData+    , ConferenceData+    , conferenceData+    , cdSignature+    , cdConferenceSolution+    , cdCreateRequest+    , cdConferenceId+    , cdParameters+    , cdNotes+    , cdEntryPoints+     -- ** Setting     , Setting     , setting@@ -307,6 +379,9 @@     , freeBusyResponseGroups     , fbrgAddtional +    -- ** EventsInsertSendUpdates+    , EventsInsertSendUpdates (..)+     -- ** EventReminders     , EventReminders     , eventReminders@@ -318,6 +393,11 @@     , colorsCalendar     , ccAddtional +    -- ** ConferenceParametersAddOnParametersParameters+    , ConferenceParametersAddOnParametersParameters+    , conferenceParametersAddOnParametersParameters+    , cpaoppAddtional+     -- ** CalendarNotification     , CalendarNotification     , calendarNotification@@ -367,6 +447,7 @@     , Calendar     , calendar     , calSummary+    , calConferenceProperties     , calEtag     , calLocation     , calKind@@ -461,6 +542,13 @@     -- ** EventsWatchOrderBy     , EventsWatchOrderBy (..) +    -- ** CreateConferenceRequest+    , CreateConferenceRequest+    , createConferenceRequest+    , ccrStatus+    , ccrRequestId+    , ccrConferenceSolutionKey+     -- ** EventExtendedPropertiesShared     , EventExtendedPropertiesShared     , eventExtendedPropertiesShared@@ -496,6 +584,11 @@     , freeBusyGroup     , fbgCalendars     , fbgErrors++    -- ** ConferenceParametersAddOnParameters+    , ConferenceParametersAddOnParameters+    , conferenceParametersAddOnParameters+    , cpaopParameters      -- ** EventSource     , EventSource

@@ -22,11 +22,15 @@     -- * OAuth Scopes     , calendarScope     , calendarReadOnlyScope+    , calendarEventsScope+    , calendarSettingsReadOnlyScope+    , calendarEventsReadOnlyScope      -- * CalendarListEntry     , CalendarListEntry     , calendarListEntry     , cleSummary+    , cleConferenceProperties     , cleEtag     , cleLocation     , cleKind@@ -45,6 +49,11 @@     , cleTimeZone     , cleDescription +    -- * ConferenceParameters+    , ConferenceParameters+    , conferenceParameters+    , cpAddOnParameters+     -- * Event     , Event     , event@@ -66,6 +75,7 @@     , eStart     , ePrivateCopy     , eEndTimeUnspecified+    , eConferenceData     , eExtendedProperties     , eVisibility     , eGuestsCanInviteOthers@@ -91,6 +101,21 @@     , calendarListEntryNotificationSettings     , clensNotifications +    -- * ConferenceProperties+    , ConferenceProperties+    , conferenceProperties+    , cpAllowedConferenceSolutionTypes++    -- * ConferenceSolution+    , ConferenceSolution+    , conferenceSolution+    , csIconURI+    , csKey+    , csName++    -- * EventsPatchSendUpdates+    , EventsPatchSendUpdates (..)+     -- * ACLRuleScope     , ACLRuleScope     , aclRuleScope@@ -102,6 +127,9 @@     , colorsEvent     , ceAddtional +    -- * EventsQuickAddSendUpdates+    , EventsQuickAddSendUpdates (..)+     -- * Settings     , Settings     , settings@@ -125,12 +153,37 @@     , eaTitle     , eaFileId +    -- * EntryPoint+    , EntryPoint+    , entryPoint+    , epPasscode+    , epRegionCode+    , epURI+    , epMeetingCode+    , epPassword+    , epPin+    , epEntryPointFeatures+    , epEntryPointType+    , epLabel+    , epAccessCode+     -- * TimePeriod     , TimePeriod     , timePeriod     , tpStart     , tpEnd +    -- * EventsUpdateSendUpdates+    , EventsUpdateSendUpdates (..)++    -- * ConferenceSolutionKey+    , ConferenceSolutionKey+    , conferenceSolutionKey+    , cskType++    -- * EventsMoveSendUpdates+    , EventsMoveSendUpdates (..)+     -- * EventCreator     , EventCreator     , eventCreator@@ -154,6 +207,9 @@     -- * EventsListOrderBy     , EventsListOrderBy (..) +    -- * EventsDeleteSendUpdates+    , EventsDeleteSendUpdates (..)+     -- * Channel     , Channel     , channel@@ -168,12 +224,28 @@     , cId     , cType +    -- * ConferenceRequestStatus+    , ConferenceRequestStatus+    , conferenceRequestStatus+    , crsStatusCode+     -- * FreeBusyCalendar     , FreeBusyCalendar     , freeBusyCalendar     , fbcBusy     , fbcErrors +    -- * ConferenceData+    , ConferenceData+    , conferenceData+    , cdSignature+    , cdConferenceSolution+    , cdCreateRequest+    , cdConferenceId+    , cdParameters+    , cdNotes+    , cdEntryPoints+     -- * Setting     , Setting     , setting@@ -187,6 +259,9 @@     , freeBusyResponseGroups     , fbrgAddtional +    -- * EventsInsertSendUpdates+    , EventsInsertSendUpdates (..)+     -- * EventReminders     , EventReminders     , eventReminders@@ -198,6 +273,11 @@     , colorsCalendar     , ccAddtional +    -- * ConferenceParametersAddOnParametersParameters+    , ConferenceParametersAddOnParametersParameters+    , conferenceParametersAddOnParametersParameters+    , cpaoppAddtional+     -- * CalendarNotification     , CalendarNotification     , calendarNotification@@ -247,6 +327,7 @@     , Calendar     , calendar     , calSummary+    , calConferenceProperties     , calEtag     , calLocation     , calKind@@ -341,6 +422,13 @@     -- * EventsWatchOrderBy     , EventsWatchOrderBy (..) +    -- * CreateConferenceRequest+    , CreateConferenceRequest+    , createConferenceRequest+    , ccrStatus+    , ccrRequestId+    , ccrConferenceSolutionKey+     -- * EventExtendedPropertiesShared     , EventExtendedPropertiesShared     , eventExtendedPropertiesShared@@ -377,6 +465,11 @@     , fbgCalendars     , fbgErrors +    -- * ConferenceParametersAddOnParameters+    , ConferenceParametersAddOnParameters+    , conferenceParametersAddOnParameters+    , cpaopParameters+     -- * EventSource     , EventSource     , eventSource@@ -394,10 +487,23 @@   = defaultService (ServiceId "calendar:v3")       "www.googleapis.com" --- | Manage your calendars+-- | See, edit, share, and permanently delete all the calendars you can+-- access using Google Calendar calendarScope :: Proxy '["https://www.googleapis.com/auth/calendar"] calendarScope = Proxy;  -- | View your calendars calendarReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/calendar.readonly"] calendarReadOnlyScope = Proxy;++-- | View and edit events on all your calendars+calendarEventsScope :: Proxy '["https://www.googleapis.com/auth/calendar.events"]+calendarEventsScope = Proxy;++-- | View your Calendar settings+calendarSettingsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/calendar.settings.readonly"]+calendarSettingsReadOnlyScope = Proxy;++-- | View events on all your calendars+calendarEventsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/calendar.events.readonly"]+calendarEventsReadOnlyScope = Proxy;

@@ -24,6 +24,7 @@ -- /See:/ 'calendarListEntry' smart constructor. data CalendarListEntry = CalendarListEntry'     { _cleSummary              :: !(Maybe Text)+    , _cleConferenceProperties :: !(Maybe ConferenceProperties)     , _cleEtag                 :: !(Maybe Text)     , _cleLocation             :: !(Maybe Text)     , _cleKind                 :: !Text@@ -49,6 +50,8 @@ -- -- * 'cleSummary' --+-- * 'cleConferenceProperties'+-- -- * 'cleEtag' -- -- * 'cleLocation'@@ -87,6 +90,7 @@ calendarListEntry =     CalendarListEntry'     { _cleSummary = Nothing+    , _cleConferenceProperties = Nothing     , _cleEtag = Nothing     , _cleLocation = Nothing     , _cleKind = "calendar#calendarListEntry"@@ -111,6 +115,13 @@ cleSummary   = lens _cleSummary (\ s a -> s{_cleSummary = a}) +-- | Conferencing properties for this calendar, for example what types of+-- conferences are allowed.+cleConferenceProperties :: Lens' CalendarListEntry (Maybe ConferenceProperties)+cleConferenceProperties+  = lens _cleConferenceProperties+      (\ s a -> s{_cleConferenceProperties = a})+ -- | ETag of the resource. cleEtag :: Lens' CalendarListEntry (Maybe Text) cleEtag = lens _cleEtag (\ s a -> s{_cleEtag = a})@@ -232,8 +243,9 @@           = withObject "CalendarListEntry"               (\ o ->                  CalendarListEntry' <$>-                   (o .:? "summary") <*> (o .:? "etag") <*>-                     (o .:? "location")+                   (o .:? "summary") <*> (o .:? "conferenceProperties")+                     <*> (o .:? "etag")+                     <*> (o .:? "location")                      <*> (o .:? "kind" .!= "calendar#calendarListEntry")                      <*> (o .:? "notificationSettings")                      <*> (o .:? "backgroundColor")@@ -255,6 +267,8 @@           = object               (catMaybes                  [("summary" .=) <$> _cleSummary,+                  ("conferenceProperties" .=) <$>+                    _cleConferenceProperties,                   ("etag" .=) <$> _cleEtag,                   ("location" .=) <$> _cleLocation,                   Just ("kind" .= _cleKind),@@ -274,6 +288,42 @@                   ("description" .=) <$> _cleDescription])  --+-- /See:/ 'conferenceParameters' smart constructor.+newtype ConferenceParameters = ConferenceParameters'+    { _cpAddOnParameters :: Maybe ConferenceParametersAddOnParameters+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ConferenceParameters' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpAddOnParameters'+conferenceParameters+    :: ConferenceParameters+conferenceParameters =+    ConferenceParameters'+    { _cpAddOnParameters = Nothing+    }++-- | Additional add-on specific data.+cpAddOnParameters :: Lens' ConferenceParameters (Maybe ConferenceParametersAddOnParameters)+cpAddOnParameters+  = lens _cpAddOnParameters+      (\ s a -> s{_cpAddOnParameters = a})++instance FromJSON ConferenceParameters where+        parseJSON+          = withObject "ConferenceParameters"+              (\ o ->+                 ConferenceParameters' <$> (o .:? "addOnParameters"))++instance ToJSON ConferenceParameters where+        toJSON ConferenceParameters'{..}+          = object+              (catMaybes+                 [("addOnParameters" .=) <$> _cpAddOnParameters])++-- -- /See:/ 'event' smart constructor. data Event = Event'     { _eSummary                 :: !(Maybe Text)@@ -294,6 +344,7 @@     , _eStart                   :: !(Maybe EventDateTime)     , _ePrivateCopy             :: !Bool     , _eEndTimeUnspecified      :: !Bool+    , _eConferenceData          :: !(Maybe ConferenceData)     , _eExtendedProperties      :: !(Maybe EventExtendedProperties)     , _eVisibility              :: !Text     , _eGuestsCanInviteOthers   :: !Bool@@ -355,6 +406,8 @@ -- -- * 'eEndTimeUnspecified' --+-- * 'eConferenceData'+-- -- * 'eExtendedProperties' -- -- * 'eVisibility'@@ -414,6 +467,7 @@     , _eStart = Nothing     , _ePrivateCopy = False     , _eEndTimeUnspecified = False+    , _eConferenceData = Nothing     , _eExtendedProperties = Nothing     , _eVisibility = "default"     , _eGuestsCanInviteOthers = True@@ -441,7 +495,9 @@  -- | For an instance of a recurring event, this is the time at which this -- event would start according to the recurrence data in the recurring--- event identified by recurringEventId. Immutable.+-- event identified by recurringEventId. It uniquely identifies the+-- instance within the recurring event series even if the instance was+-- moved to a different time. Immutable. eOriginalStartTime :: Lens' Event (Maybe EventDateTime) eOriginalStartTime   = lens _eOriginalStartTime@@ -454,7 +510,28 @@ -- | Status of the event. Optional. Possible values are: - \"confirmed\" - -- The event is confirmed. This is the default status. - \"tentative\" - -- The event is tentatively confirmed. - \"cancelled\" - The event is--- cancelled.+-- cancelled (deleted). The list method returns cancelled events only on+-- incremental sync (when syncToken or updatedMin are specified) or if the+-- showDeleted flag is set to true. The get method always returns them. A+-- cancelled status represents two different states depending on the event+-- type: - Cancelled exceptions of an uncancelled recurring event indicate+-- that this instance should no longer be presented to the user. Clients+-- should store these events for the lifetime of the parent recurring+-- event. Cancelled exceptions are only guaranteed to have values for the+-- id, recurringEventId and originalStartTime fields populated. The other+-- fields might be empty. - All other cancelled events represent deleted+-- events. Clients should remove their locally synced copies. Such+-- cancelled events will eventually disappear, so do not rely on them being+-- available indefinitely. Deleted events are only guaranteed to have the+-- id field populated. On the organizer\'s calendar, cancelled events+-- continue to expose event details (summary, location, etc.) so that they+-- can be restored (undeleted). Similarly, the events to which the user was+-- invited and that they manually removed continue to provide details.+-- However, incremental sync requests with showDeleted set to false will+-- not return these details. If an event changes its organizer (for example+-- via the move operation) and the original organizer is not on the+-- attendee list, it will leave behind a cancelled event where only the id+-- field is guaranteed to be populated. eStatus :: Lens' Event (Maybe Text) eStatus = lens _eStatus (\ s a -> s{_eStatus = a}) @@ -514,9 +591,11 @@       mapping _DateTime  -- | Whether the event blocks time on the calendar. Optional. Possible values--- are: - \"opaque\" - The event blocks time on the calendar. This is the--- default value. - \"transparent\" - The event does not block time on the--- calendar.+-- are: - \"opaque\" - Default value. The event does block time on the+-- calendar. This is equivalent to setting Show me as to Busy in the+-- Calendar UI. - \"transparent\" - The event does not block time on the+-- calendar. This is equivalent to setting Show me as to Available in the+-- Calendar UI. eTransparency :: Lens' Event Text eTransparency   = lens _eTransparency@@ -549,6 +628,16 @@   = lens _eEndTimeUnspecified       (\ s a -> s{_eEndTimeUnspecified = a}) +-- | The conference-related information, such as details of a Hangouts Meet+-- conference. To create new conference details use the createRequest+-- field. To persist your changes, remember to set the+-- conferenceDataVersion request parameter to 1 for all event modification+-- requests.+eConferenceData :: Lens' Event (Maybe ConferenceData)+eConferenceData+  = lens _eConferenceData+      (\ s a -> s{_eConferenceData = a})+ -- | Extended properties of the event. eExtendedProperties :: Lens' Event (Maybe EventExtendedProperties) eExtendedProperties@@ -713,6 +802,7 @@                      <*> (o .:? "start")                      <*> (o .:? "privateCopy" .!= False)                      <*> (o .:? "endTimeUnspecified" .!= False)+                     <*> (o .:? "conferenceData")                      <*> (o .:? "extendedProperties")                      <*> (o .:? "visibility" .!= "default")                      <*> (o .:? "guestsCanInviteOthers" .!= True)@@ -755,6 +845,7 @@                   ("start" .=) <$> _eStart,                   Just ("privateCopy" .= _ePrivateCopy),                   Just ("endTimeUnspecified" .= _eEndTimeUnspecified),+                  ("conferenceData" .=) <$> _eConferenceData,                   ("extendedProperties" .=) <$> _eExtendedProperties,                   Just ("visibility" .= _eVisibility),                   Just@@ -819,6 +910,103 @@               (catMaybes                  [("notifications" .=) <$> _clensNotifications]) +--+-- /See:/ 'conferenceProperties' smart constructor.+newtype ConferenceProperties = ConferenceProperties'+    { _cpAllowedConferenceSolutionTypes :: Maybe [Text]+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ConferenceProperties' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpAllowedConferenceSolutionTypes'+conferenceProperties+    :: ConferenceProperties+conferenceProperties =+    ConferenceProperties'+    { _cpAllowedConferenceSolutionTypes = Nothing+    }++-- | The types of conference solutions that are supported for this calendar.+-- The possible values are: - \"eventHangout\" - \"eventNamedHangout\" -+-- \"hangoutsMeet\" Optional.+cpAllowedConferenceSolutionTypes :: Lens' ConferenceProperties [Text]+cpAllowedConferenceSolutionTypes+  = lens _cpAllowedConferenceSolutionTypes+      (\ s a -> s{_cpAllowedConferenceSolutionTypes = a})+      . _Default+      . _Coerce++instance FromJSON ConferenceProperties where+        parseJSON+          = withObject "ConferenceProperties"+              (\ o ->+                 ConferenceProperties' <$>+                   (o .:? "allowedConferenceSolutionTypes" .!= mempty))++instance ToJSON ConferenceProperties where+        toJSON ConferenceProperties'{..}+          = object+              (catMaybes+                 [("allowedConferenceSolutionTypes" .=) <$>+                    _cpAllowedConferenceSolutionTypes])++--+-- /See:/ 'conferenceSolution' smart constructor.+data ConferenceSolution = ConferenceSolution'+    { _csIconURI :: !(Maybe Text)+    , _csKey     :: !(Maybe ConferenceSolutionKey)+    , _csName    :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ConferenceSolution' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csIconURI'+--+-- * 'csKey'+--+-- * 'csName'+conferenceSolution+    :: ConferenceSolution+conferenceSolution =+    ConferenceSolution'+    { _csIconURI = Nothing+    , _csKey = Nothing+    , _csName = Nothing+    }++-- | The user-visible icon for this solution.+csIconURI :: Lens' ConferenceSolution (Maybe Text)+csIconURI+  = lens _csIconURI (\ s a -> s{_csIconURI = a})++-- | The key which can uniquely identify the conference solution for this+-- event.+csKey :: Lens' ConferenceSolution (Maybe ConferenceSolutionKey)+csKey = lens _csKey (\ s a -> s{_csKey = a})++-- | The user-visible name of this solution. Not localized.+csName :: Lens' ConferenceSolution (Maybe Text)+csName = lens _csName (\ s a -> s{_csName = a})++instance FromJSON ConferenceSolution where+        parseJSON+          = withObject "ConferenceSolution"+              (\ o ->+                 ConferenceSolution' <$>+                   (o .:? "iconUri") <*> (o .:? "key") <*>+                     (o .:? "name"))++instance ToJSON ConferenceSolution where+        toJSON ConferenceSolution'{..}+          = object+              (catMaybes+                 [("iconUri" .=) <$> _csIconURI,+                  ("key" .=) <$> _csKey, ("name" .=) <$> _csName])+ -- | The scope of the rule. -- -- /See:/ 'aclRuleScope' smart constructor.@@ -1053,7 +1241,7 @@  -- | URL link to the attachment. For adding Google Drive file attachments use -- the same format as in alternateLink property of the Files resource in--- the Drive API.+-- the Drive API. Required when adding an attachment. eaFileURL :: Lens' EventAttachment (Maybe Text) eaFileURL   = lens _eaFileURL (\ s a -> s{_eaFileURL = a})@@ -1098,6 +1286,182 @@                   ("fileId" .=) <$> _eaFileId])  --+-- /See:/ 'entryPoint' smart constructor.+data EntryPoint = EntryPoint'+    { _epPasscode           :: !(Maybe Text)+    , _epRegionCode         :: !(Maybe Text)+    , _epURI                :: !(Maybe Text)+    , _epMeetingCode        :: !(Maybe Text)+    , _epPassword           :: !(Maybe Text)+    , _epPin                :: !(Maybe Text)+    , _epEntryPointFeatures :: !(Maybe [Text])+    , _epEntryPointType     :: !(Maybe Text)+    , _epLabel              :: !(Maybe Text)+    , _epAccessCode         :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'EntryPoint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'epPasscode'+--+-- * 'epRegionCode'+--+-- * 'epURI'+--+-- * 'epMeetingCode'+--+-- * 'epPassword'+--+-- * 'epPin'+--+-- * 'epEntryPointFeatures'+--+-- * 'epEntryPointType'+--+-- * 'epLabel'+--+-- * 'epAccessCode'+entryPoint+    :: EntryPoint+entryPoint =+    EntryPoint'+    { _epPasscode = Nothing+    , _epRegionCode = Nothing+    , _epURI = Nothing+    , _epMeetingCode = Nothing+    , _epPassword = Nothing+    , _epPin = Nothing+    , _epEntryPointFeatures = Nothing+    , _epEntryPointType = Nothing+    , _epLabel = Nothing+    , _epAccessCode = Nothing+    }++-- | The passcode to access the conference. The maximum length is 128+-- characters. When creating new conference data, populate only the subset+-- of {meetingCode, accessCode, passcode, password, pin} fields that match+-- the terminology that the conference provider uses. Only the populated+-- fields should be displayed.+epPasscode :: Lens' EntryPoint (Maybe Text)+epPasscode+  = lens _epPasscode (\ s a -> s{_epPasscode = a})++-- | The CLDR\/ISO 3166 region code for the country associated with this+-- phone access. Example: \"SE\" for Sweden. Calendar backend will populate+-- this field only for EntryPointType.PHONE.+epRegionCode :: Lens' EntryPoint (Maybe Text)+epRegionCode+  = lens _epRegionCode (\ s a -> s{_epRegionCode = a})++-- | The URI of the entry point. The maximum length is 1300 characters.+-- Format: - for video, http: or https: schema is required. - for phone,+-- tel: schema is required. The URI should include the entire dial sequence+-- (e.g., tel:+12345678900,,,123456789;1234). - for sip, sip: schema is+-- required, e.g., sip:12345678\'myprovider.com. - for more, http: or+-- https: schema is required.+epURI :: Lens' EntryPoint (Maybe Text)+epURI = lens _epURI (\ s a -> s{_epURI = a})++-- | The meeting code to access the conference. The maximum length is 128+-- characters. When creating new conference data, populate only the subset+-- of {meetingCode, accessCode, passcode, password, pin} fields that match+-- the terminology that the conference provider uses. Only the populated+-- fields should be displayed. Optional.+epMeetingCode :: Lens' EntryPoint (Maybe Text)+epMeetingCode+  = lens _epMeetingCode+      (\ s a -> s{_epMeetingCode = a})++-- | The password to access the conference. The maximum length is 128+-- characters. When creating new conference data, populate only the subset+-- of {meetingCode, accessCode, passcode, password, pin} fields that match+-- the terminology that the conference provider uses. Only the populated+-- fields should be displayed. Optional.+epPassword :: Lens' EntryPoint (Maybe Text)+epPassword+  = lens _epPassword (\ s a -> s{_epPassword = a})++-- | The PIN to access the conference. The maximum length is 128 characters.+-- When creating new conference data, populate only the subset of+-- {meetingCode, accessCode, passcode, password, pin} fields that match the+-- terminology that the conference provider uses. Only the populated fields+-- should be displayed. Optional.+epPin :: Lens' EntryPoint (Maybe Text)+epPin = lens _epPin (\ s a -> s{_epPin = a})++-- | Features of the entry point, such as being toll or toll-free. One entry+-- point can have multiple features. However, toll and toll-free cannot be+-- both set on the same entry point.+epEntryPointFeatures :: Lens' EntryPoint [Text]+epEntryPointFeatures+  = lens _epEntryPointFeatures+      (\ s a -> s{_epEntryPointFeatures = a})+      . _Default+      . _Coerce++-- | The type of the conference entry point. Possible values are: - \"video\"+-- - joining a conference over HTTP. A conference can have zero or one+-- video entry point. - \"phone\" - joining a conference by dialing a phone+-- number. A conference can have zero or more phone entry points. - \"sip\"+-- - joining a conference over SIP. A conference can have zero or one sip+-- entry point. - \"more\" - further conference joining instructions, for+-- example additional phone numbers. A conference can have zero or one more+-- entry point. A conference with only a more entry point is not a valid+-- conference.+epEntryPointType :: Lens' EntryPoint (Maybe Text)+epEntryPointType+  = lens _epEntryPointType+      (\ s a -> s{_epEntryPointType = a})++-- | The label for the URI. Visible to end users. Not localized. The maximum+-- length is 512 characters. Examples: - for video:+-- meet.google.com\/aaa-bbbb-ccc - for phone: +1 123 268 2601 - for sip:+-- 12345678\'altostrat.com - for more: should not be filled Optional.+epLabel :: Lens' EntryPoint (Maybe Text)+epLabel = lens _epLabel (\ s a -> s{_epLabel = a})++-- | The access code to access the conference. The maximum length is 128+-- characters. When creating new conference data, populate only the subset+-- of {meetingCode, accessCode, passcode, password, pin} fields that match+-- the terminology that the conference provider uses. Only the populated+-- fields should be displayed. Optional.+epAccessCode :: Lens' EntryPoint (Maybe Text)+epAccessCode+  = lens _epAccessCode (\ s a -> s{_epAccessCode = a})++instance FromJSON EntryPoint where+        parseJSON+          = withObject "EntryPoint"+              (\ o ->+                 EntryPoint' <$>+                   (o .:? "passcode") <*> (o .:? "regionCode") <*>+                     (o .:? "uri")+                     <*> (o .:? "meetingCode")+                     <*> (o .:? "password")+                     <*> (o .:? "pin")+                     <*> (o .:? "entryPointFeatures" .!= mempty)+                     <*> (o .:? "entryPointType")+                     <*> (o .:? "label")+                     <*> (o .:? "accessCode"))++instance ToJSON EntryPoint where+        toJSON EntryPoint'{..}+          = object+              (catMaybes+                 [("passcode" .=) <$> _epPasscode,+                  ("regionCode" .=) <$> _epRegionCode,+                  ("uri" .=) <$> _epURI,+                  ("meetingCode" .=) <$> _epMeetingCode,+                  ("password" .=) <$> _epPassword,+                  ("pin" .=) <$> _epPin,+                  ("entryPointFeatures" .=) <$> _epEntryPointFeatures,+                  ("entryPointType" .=) <$> _epEntryPointType,+                  ("label" .=) <$> _epLabel,+                  ("accessCode" .=) <$> _epAccessCode])++-- -- /See:/ 'timePeriod' smart constructor. data TimePeriod = TimePeriod'     { _tpStart :: !(Maybe DateTime')@@ -1143,6 +1507,43 @@               (catMaybes                  [("start" .=) <$> _tpStart, ("end" .=) <$> _tpEnd]) +--+-- /See:/ 'conferenceSolutionKey' smart constructor.+newtype ConferenceSolutionKey = ConferenceSolutionKey'+    { _cskType :: Maybe Text+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ConferenceSolutionKey' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cskType'+conferenceSolutionKey+    :: ConferenceSolutionKey+conferenceSolutionKey =+    ConferenceSolutionKey'+    { _cskType = Nothing+    }++-- | The conference solution type. If a client encounters an unfamiliar or+-- empty type, it should still be able to display the entry points.+-- However, it should disallow modifications. The possible values are: -+-- \"eventHangout\" for Hangouts for consumers+-- (http:\/\/hangouts.google.com) - \"eventNamedHangout\" for classic+-- Hangouts for G Suite users (http:\/\/hangouts.google.com) -+-- \"hangoutsMeet\" for Hangouts Meet (http:\/\/meet.google.com)+cskType :: Lens' ConferenceSolutionKey (Maybe Text)+cskType = lens _cskType (\ s a -> s{_cskType = a})++instance FromJSON ConferenceSolutionKey where+        parseJSON+          = withObject "ConferenceSolutionKey"+              (\ o -> ConferenceSolutionKey' <$> (o .:? "type"))++instance ToJSON ConferenceSolutionKey where+        toJSON ConferenceSolutionKey'{..}+          = object (catMaybes [("type" .=) <$> _cskType])+ -- | The creator of the event. Read-only. -- -- /See:/ 'eventCreator' smart constructor.@@ -1189,7 +1590,7 @@   = lens _ecDisplayName       (\ s a -> s{_ecDisplayName = a}) --- | The creator\'s Profile ID, if available. It corresponds to theid field+-- | The creator\'s Profile ID, if available. It corresponds to the id field -- in the People collection of the Google+ API ecId :: Lens' EventCreator (Maybe Text) ecId = lens _ecId (\ s a -> s{_ecId = a})@@ -1440,6 +1841,45 @@                   ("type" .=) <$> _cType])  --+-- /See:/ 'conferenceRequestStatus' smart constructor.+newtype ConferenceRequestStatus = ConferenceRequestStatus'+    { _crsStatusCode :: Maybe Text+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ConferenceRequestStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crsStatusCode'+conferenceRequestStatus+    :: ConferenceRequestStatus+conferenceRequestStatus =+    ConferenceRequestStatus'+    { _crsStatusCode = Nothing+    }++-- | The current status of the conference create request. Read-only. The+-- possible values are: - \"pending\": the conference create request is+-- still being processed. - \"success\": the conference create request+-- succeeded, the entry points are populated. - \"failure\": the conference+-- create request failed, there are no entry points.+crsStatusCode :: Lens' ConferenceRequestStatus (Maybe Text)+crsStatusCode+  = lens _crsStatusCode+      (\ s a -> s{_crsStatusCode = a})++instance FromJSON ConferenceRequestStatus where+        parseJSON+          = withObject "ConferenceRequestStatus"+              (\ o ->+                 ConferenceRequestStatus' <$> (o .:? "statusCode"))++instance ToJSON ConferenceRequestStatus where+        toJSON ConferenceRequestStatus'{..}+          = object+              (catMaybes [("statusCode" .=) <$> _crsStatusCode])++-- -- /See:/ 'freeBusyCalendar' smart constructor. data FreeBusyCalendar = FreeBusyCalendar'     { _fbcBusy   :: !(Maybe [TimePeriod])@@ -1491,6 +1931,131 @@                   ("errors" .=) <$> _fbcErrors])  --+-- /See:/ 'conferenceData' smart constructor.+data ConferenceData = ConferenceData'+    { _cdSignature          :: !(Maybe Text)+    , _cdConferenceSolution :: !(Maybe ConferenceSolution)+    , _cdCreateRequest      :: !(Maybe CreateConferenceRequest)+    , _cdConferenceId       :: !(Maybe Text)+    , _cdParameters         :: !(Maybe ConferenceParameters)+    , _cdNotes              :: !(Maybe Text)+    , _cdEntryPoints        :: !(Maybe [EntryPoint])+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ConferenceData' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdSignature'+--+-- * 'cdConferenceSolution'+--+-- * 'cdCreateRequest'+--+-- * 'cdConferenceId'+--+-- * 'cdParameters'+--+-- * 'cdNotes'+--+-- * 'cdEntryPoints'+conferenceData+    :: ConferenceData+conferenceData =+    ConferenceData'+    { _cdSignature = Nothing+    , _cdConferenceSolution = Nothing+    , _cdCreateRequest = Nothing+    , _cdConferenceId = Nothing+    , _cdParameters = Nothing+    , _cdNotes = Nothing+    , _cdEntryPoints = Nothing+    }++-- | The signature of the conference data. Genereated on server side. Must be+-- preserved while copying the conference data between events, otherwise+-- the conference data will not be copied. Unset for a conference with a+-- failed create request. Optional for a conference with a pending create+-- request.+cdSignature :: Lens' ConferenceData (Maybe Text)+cdSignature+  = lens _cdSignature (\ s a -> s{_cdSignature = a})++-- | The conference solution, such as Hangouts or Hangouts Meet. Unset for a+-- conference with a failed create request. Either conferenceSolution and+-- at least one entryPoint, or createRequest is required.+cdConferenceSolution :: Lens' ConferenceData (Maybe ConferenceSolution)+cdConferenceSolution+  = lens _cdConferenceSolution+      (\ s a -> s{_cdConferenceSolution = a})++-- | A request to generate a new conference and attach it to the event. The+-- data is generated asynchronously. To see whether the data is present+-- check the status field. Either conferenceSolution and at least one+-- entryPoint, or createRequest is required.+cdCreateRequest :: Lens' ConferenceData (Maybe CreateConferenceRequest)+cdCreateRequest+  = lens _cdCreateRequest+      (\ s a -> s{_cdCreateRequest = a})++-- | The ID of the conference. Can be used by developers to keep track of+-- conferences, should not be displayed to users. Values for solution+-- types: - \"eventHangout\": unset. - \"eventNamedHangout\": the name of+-- the Hangout. - \"hangoutsMeet\": the 10-letter meeting code, for example+-- \"aaa-bbbb-ccc\". Optional.+cdConferenceId :: Lens' ConferenceData (Maybe Text)+cdConferenceId+  = lens _cdConferenceId+      (\ s a -> s{_cdConferenceId = a})++-- | Additional properties related to a conference. An example would be a+-- solution-specific setting for enabling video streaming.+cdParameters :: Lens' ConferenceData (Maybe ConferenceParameters)+cdParameters+  = lens _cdParameters (\ s a -> s{_cdParameters = a})++-- | Additional notes (such as instructions from the domain administrator,+-- legal notices) to display to the user. Can contain HTML. The maximum+-- length is 2048 characters. Optional.+cdNotes :: Lens' ConferenceData (Maybe Text)+cdNotes = lens _cdNotes (\ s a -> s{_cdNotes = a})++-- | Information about individual conference entry points, such as URLs or+-- phone numbers. All of them must belong to the same conference. Either+-- conferenceSolution and at least one entryPoint, or createRequest is+-- required.+cdEntryPoints :: Lens' ConferenceData [EntryPoint]+cdEntryPoints+  = lens _cdEntryPoints+      (\ s a -> s{_cdEntryPoints = a})+      . _Default+      . _Coerce++instance FromJSON ConferenceData where+        parseJSON+          = withObject "ConferenceData"+              (\ o ->+                 ConferenceData' <$>+                   (o .:? "signature") <*> (o .:? "conferenceSolution")+                     <*> (o .:? "createRequest")+                     <*> (o .:? "conferenceId")+                     <*> (o .:? "parameters")+                     <*> (o .:? "notes")+                     <*> (o .:? "entryPoints" .!= mempty))++instance ToJSON ConferenceData where+        toJSON ConferenceData'{..}+          = object+              (catMaybes+                 [("signature" .=) <$> _cdSignature,+                  ("conferenceSolution" .=) <$> _cdConferenceSolution,+                  ("createRequest" .=) <$> _cdCreateRequest,+                  ("conferenceId" .=) <$> _cdConferenceId,+                  ("parameters" .=) <$> _cdParameters,+                  ("notes" .=) <$> _cdNotes,+                  ("entryPoints" .=) <$> _cdEntryPoints])++-- -- /See:/ 'setting' smart constructor. data Setting = Setting'     { _setEtag  :: !(Maybe Text)@@ -1681,6 +2246,44 @@         toJSON = toJSON . _ccAddtional  --+-- /See:/ 'conferenceParametersAddOnParametersParameters' smart constructor.+newtype ConferenceParametersAddOnParametersParameters = ConferenceParametersAddOnParametersParameters'+    { _cpaoppAddtional :: HashMap Text Text+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ConferenceParametersAddOnParametersParameters' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpaoppAddtional'+conferenceParametersAddOnParametersParameters+    :: HashMap Text Text -- ^ 'cpaoppAddtional'+    -> ConferenceParametersAddOnParametersParameters+conferenceParametersAddOnParametersParameters pCpaoppAddtional_ =+    ConferenceParametersAddOnParametersParameters'+    { _cpaoppAddtional = _Coerce # pCpaoppAddtional_+    }++cpaoppAddtional :: Lens' ConferenceParametersAddOnParametersParameters (HashMap Text Text)+cpaoppAddtional+  = lens _cpaoppAddtional+      (\ s a -> s{_cpaoppAddtional = a})+      . _Coerce++instance FromJSON+         ConferenceParametersAddOnParametersParameters where+        parseJSON+          = withObject+              "ConferenceParametersAddOnParametersParameters"+              (\ o ->+                 ConferenceParametersAddOnParametersParameters' <$>+                   (parseJSONObject o))++instance ToJSON+         ConferenceParametersAddOnParametersParameters where+        toJSON = toJSON . _cpaoppAddtional++-- -- /See:/ 'calendarNotification' smart constructor. data CalendarNotification = CalendarNotification'     { _cnMethod :: !(Maybe Text)@@ -1703,10 +2306,13 @@     }  -- | The method used to deliver the notification. Possible values are: ---- \"email\" - Reminders are sent via email. - \"sms\" - Reminders are sent--- via SMS. This value is read-only and is ignored on inserts and updates.--- SMS reminders are only available for Google Apps for Work, Education,--- and Government customers.+-- \"email\" - Notifications are sent via email. - \"sms\" - Deprecated.+-- Once this feature is shutdown, the API will no longer return+-- notifications using this method. Any newly added SMS notifications will+-- be ignored. See Google Calendar SMS notifications to be removed for more+-- information. Notifications are sent via SMS. This value is read-only and+-- is ignored on inserts and updates. SMS notifications are only available+-- for G Suite customers. Required when adding a notification. cnMethod :: Lens' CalendarNotification (Maybe Text) cnMethod = lens _cnMethod (\ s a -> s{_cnMethod = a}) @@ -1714,9 +2320,9 @@ -- Notification sent when a new event is put on the calendar. - -- \"eventChange\" - Notification sent when an event is changed. - -- \"eventCancellation\" - Notification sent when an event is cancelled. ---- \"eventResponse\" - Notification sent when an event is changed. ---- \"agenda\" - An agenda with the events of the day (sent out in the--- morning).+-- \"eventResponse\" - Notification sent when an attendee responds to the+-- event invitation. - \"agenda\" - An agenda with the events of the day+-- (sent out in the morning). Required when adding a notification. cnType :: Lens' CalendarNotification (Maybe Text) cnType = lens _cnType (\ s a -> s{_cnType = a}) @@ -2031,7 +2637,7 @@  -- | The attendee\'s email address, if available. This field must be present -- when adding an attendee. It must be a valid email address as per--- RFC5322.+-- RFC5322. Required when adding an attendee. eaEmail :: Lens' EventAttendee (Maybe Text) eaEmail = lens _eaEmail (\ s a -> s{_eaEmail = a}) @@ -2050,7 +2656,9 @@ eaSelf :: Lens' EventAttendee Bool eaSelf = lens _eaSelf (\ s a -> s{_eaSelf = a}) --- | Whether the attendee is a resource. Read-only. The default is False.+-- | Whether the attendee is a resource. Can only be set when the attendee is+-- added to the event for the first time. Subsequent modifications are+-- ignored. Optional. The default is False. eaResource :: Lens' EventAttendee Bool eaResource   = lens _eaResource (\ s a -> s{_eaResource = a})@@ -2068,7 +2676,7 @@   = lens _eaDisplayName       (\ s a -> s{_eaDisplayName = a}) --- | The attendee\'s Profile ID, if available. It corresponds to theid field+-- | The attendee\'s Profile ID, if available. It corresponds to the id field -- in the People collection of the Google+ API eaId :: Lens' EventAttendee (Maybe Text) eaId = lens _eaId (\ s a -> s{_eaId = a})@@ -2121,13 +2729,14 @@ -- -- /See:/ 'calendar' smart constructor. data Calendar = Calendar'-    { _calSummary     :: !(Maybe Text)-    , _calEtag        :: !(Maybe Text)-    , _calLocation    :: !(Maybe Text)-    , _calKind        :: !Text-    , _calId          :: !(Maybe Text)-    , _calTimeZone    :: !(Maybe Text)-    , _calDescription :: !(Maybe Text)+    { _calSummary              :: !(Maybe Text)+    , _calConferenceProperties :: !(Maybe ConferenceProperties)+    , _calEtag                 :: !(Maybe Text)+    , _calLocation             :: !(Maybe Text)+    , _calKind                 :: !Text+    , _calId                   :: !(Maybe Text)+    , _calTimeZone             :: !(Maybe Text)+    , _calDescription          :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'Calendar' with the minimum fields required to make a request.@@ -2136,6 +2745,8 @@ -- -- * 'calSummary' --+-- * 'calConferenceProperties'+-- -- * 'calEtag' -- -- * 'calLocation'@@ -2152,6 +2763,7 @@ calendar =     Calendar'     { _calSummary = Nothing+    , _calConferenceProperties = Nothing     , _calEtag = Nothing     , _calLocation = Nothing     , _calKind = "calendar#calendar"@@ -2165,6 +2777,13 @@ calSummary   = lens _calSummary (\ s a -> s{_calSummary = a}) +-- | Conferencing properties for this calendar, for example what types of+-- conferences are allowed.+calConferenceProperties :: Lens' Calendar (Maybe ConferenceProperties)+calConferenceProperties+  = lens _calConferenceProperties+      (\ s a -> s{_calConferenceProperties = a})+ -- | ETag of the resource. calEtag :: Lens' Calendar (Maybe Text) calEtag = lens _calEtag (\ s a -> s{_calEtag = a})@@ -2200,8 +2819,9 @@           = withObject "Calendar"               (\ o ->                  Calendar' <$>-                   (o .:? "summary") <*> (o .:? "etag") <*>-                     (o .:? "location")+                   (o .:? "summary") <*> (o .:? "conferenceProperties")+                     <*> (o .:? "etag")+                     <*> (o .:? "location")                      <*> (o .:? "kind" .!= "calendar#calendar")                      <*> (o .:? "id")                      <*> (o .:? "timeZone")@@ -2212,6 +2832,8 @@           = object               (catMaybes                  [("summary" .=) <$> _calSummary,+                  ("conferenceProperties" .=) <$>+                    _calConferenceProperties,                   ("etag" .=) <$> _calEtag,                   ("location" .=) <$> _calLocation,                   Just ("kind" .= _calKind), ("id" .=) <$> _calId,@@ -2321,15 +2943,19 @@     }  -- | The method used by this reminder. Possible values are: - \"email\" ---- Reminders are sent via email. - \"sms\" - Reminders are sent via SMS.--- These are only available for Google Apps for Work, Education, and--- Government customers. Requests to set SMS reminders for other account--- types are ignored. - \"popup\" - Reminders are sent via a UI popup.+-- Reminders are sent via email. - \"sms\" - Deprecated. Once this feature+-- is shutdown, the API will no longer return reminders using this method.+-- Any newly added SMS reminders will be ignored. See Google Calendar SMS+-- notifications to be removed for more information. Reminders are sent via+-- SMS. These are only available for G Suite customers. Requests to set SMS+-- reminders for other account types are ignored. - \"popup\" - Reminders+-- are sent via a UI popup. Required when adding a reminder. erMethod :: Lens' EventReminder (Maybe Text) erMethod = lens _erMethod (\ s a -> s{_erMethod = a})  -- | Number of minutes before the start of the event when the reminder should -- trigger. Valid values are between 0 and 40320 (4 weeks in minutes).+-- Required when adding a reminder. erMinutes :: Lens' EventReminder (Maybe Int32) erMinutes   = lens _erMinutes (\ s a -> s{_erMinutes = a}) .@@ -2513,8 +3139,8 @@   = lens _eoDisplayName       (\ s a -> s{_eoDisplayName = a}) --- | The organizer\'s Profile ID, if available. It corresponds to theid field--- in the People collection of the Google+ API+-- | The organizer\'s Profile ID, if available. It corresponds to the id+-- field in the People collection of the Google+ API eoId :: Lens' EventOrganizer (Maybe Text) eoId = lens _eoId (\ s a -> s{_eoId = a}) @@ -2807,14 +3433,14 @@     }  -- | Maximal number of calendars for which FreeBusy information is to be--- provided. Optional.+-- provided. Optional. Maximum value is 50. fCalendarExpansionMax :: Lens' FreeBusyRequest (Maybe Int32) fCalendarExpansionMax   = lens _fCalendarExpansionMax       (\ s a -> s{_fCalendarExpansionMax = a})       . mapping _Coerce --- | The start of the interval for the query.+-- | The start of the interval for the query formatted as per RFC3339. fTimeMin :: Lens' FreeBusyRequest (Maybe UTCTime) fTimeMin   = lens _fTimeMin (\ s a -> s{_fTimeMin = a}) .@@ -2827,8 +3453,8 @@       _Coerce  -- | Maximal number of calendar identifiers to be provided for a single--- group. Optional. An error will be returned for a group with more members--- than this value.+-- group. Optional. An error is returned for a group with more members than+-- this value. Maximum value is 100. fGroupExpansionMax :: Lens' FreeBusyRequest (Maybe Int32) fGroupExpansionMax   = lens _fGroupExpansionMax@@ -2840,7 +3466,7 @@ fTimeZone   = lens _fTimeZone (\ s a -> s{_fTimeZone = a}) --- | The end of the interval for the query.+-- | The end of the interval for the query formatted as per RFC3339. fTimeMax :: Lens' FreeBusyRequest (Maybe UTCTime) fTimeMax   = lens _fTimeMax (\ s a -> s{_fTimeMax = a}) .@@ -2950,6 +3576,67 @@                   ("role" .=) <$> _arRole, ("scope" .=) <$> _arScope,                   ("id" .=) <$> _arId]) +--+-- /See:/ 'createConferenceRequest' smart constructor.+data CreateConferenceRequest = CreateConferenceRequest'+    { _ccrStatus                :: !(Maybe ConferenceRequestStatus)+    , _ccrRequestId             :: !(Maybe Text)+    , _ccrConferenceSolutionKey :: !(Maybe ConferenceSolutionKey)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateConferenceRequest' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccrStatus'+--+-- * 'ccrRequestId'+--+-- * 'ccrConferenceSolutionKey'+createConferenceRequest+    :: CreateConferenceRequest+createConferenceRequest =+    CreateConferenceRequest'+    { _ccrStatus = Nothing+    , _ccrRequestId = Nothing+    , _ccrConferenceSolutionKey = Nothing+    }++-- | The status of the conference create request.+ccrStatus :: Lens' CreateConferenceRequest (Maybe ConferenceRequestStatus)+ccrStatus+  = lens _ccrStatus (\ s a -> s{_ccrStatus = a})++-- | The client-generated unique ID for this request. Clients should+-- regenerate this ID for every new request. If an ID provided is the same+-- as for the previous request, the request is ignored.+ccrRequestId :: Lens' CreateConferenceRequest (Maybe Text)+ccrRequestId+  = lens _ccrRequestId (\ s a -> s{_ccrRequestId = a})++-- | The conference solution, such as Hangouts or Hangouts Meet.+ccrConferenceSolutionKey :: Lens' CreateConferenceRequest (Maybe ConferenceSolutionKey)+ccrConferenceSolutionKey+  = lens _ccrConferenceSolutionKey+      (\ s a -> s{_ccrConferenceSolutionKey = a})++instance FromJSON CreateConferenceRequest where+        parseJSON+          = withObject "CreateConferenceRequest"+              (\ o ->+                 CreateConferenceRequest' <$>+                   (o .:? "status") <*> (o .:? "requestId") <*>+                     (o .:? "conferenceSolutionKey"))++instance ToJSON CreateConferenceRequest where+        toJSON CreateConferenceRequest'{..}+          = object+              (catMaybes+                 [("status" .=) <$> _ccrStatus,+                  ("requestId" .=) <$> _ccrRequestId,+                  ("conferenceSolutionKey" .=) <$>+                    _ccrConferenceSolutionKey])+ -- | Properties that are shared between copies of the event on other -- attendees\' calendars. --@@ -3229,6 +3916,43 @@               (catMaybes                  [("calendars" .=) <$> _fbgCalendars,                   ("errors" .=) <$> _fbgErrors])++--+-- /See:/ 'conferenceParametersAddOnParameters' smart constructor.+newtype ConferenceParametersAddOnParameters = ConferenceParametersAddOnParameters'+    { _cpaopParameters :: Maybe ConferenceParametersAddOnParametersParameters+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ConferenceParametersAddOnParameters' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpaopParameters'+conferenceParametersAddOnParameters+    :: ConferenceParametersAddOnParameters+conferenceParametersAddOnParameters =+    ConferenceParametersAddOnParameters'+    { _cpaopParameters = Nothing+    }++cpaopParameters :: Lens' ConferenceParametersAddOnParameters (Maybe ConferenceParametersAddOnParametersParameters)+cpaopParameters+  = lens _cpaopParameters+      (\ s a -> s{_cpaopParameters = a})++instance FromJSON ConferenceParametersAddOnParameters+         where+        parseJSON+          = withObject "ConferenceParametersAddOnParameters"+              (\ o ->+                 ConferenceParametersAddOnParameters' <$>+                   (o .:? "parameters"))++instance ToJSON ConferenceParametersAddOnParameters+         where+        toJSON ConferenceParametersAddOnParameters'{..}+          = object+              (catMaybes [("parameters" .=) <$> _cpaopParameters])  -- | Source from which the event was created. For example, a web page, an -- email message or any document identifiable by an URL with HTTP or HTTPS

@@ -16,8 +16,156 @@ -- module Network.Google.AppsCalendar.Types.Sum where -import           Network.Google.Prelude+import           Network.Google.Prelude hiding (Bytes) +-- | Guests who should receive notifications about the event update (for+-- example, title changes, etc.).+data EventsPatchSendUpdates+    = All+      -- ^ @all@+      -- Notifications are sent to all guests.+    | ExternalOnly+      -- ^ @externalOnly@+      -- Notifications are sent to non-Google Calendar guests only.+    | None+      -- ^ @none@+      -- No notifications are sent. This value should only be used for migration+      -- use cases (note that in most migration cases the import method should be+      -- used).+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable EventsPatchSendUpdates++instance FromHttpApiData EventsPatchSendUpdates where+    parseQueryParam = \case+        "all" -> Right All+        "externalOnly" -> Right ExternalOnly+        "none" -> Right None+        x -> Left ("Unable to parse EventsPatchSendUpdates from: " <> x)++instance ToHttpApiData EventsPatchSendUpdates where+    toQueryParam = \case+        All -> "all"+        ExternalOnly -> "externalOnly"+        None -> "none"++instance FromJSON EventsPatchSendUpdates where+    parseJSON = parseJSONText "EventsPatchSendUpdates"++instance ToJSON EventsPatchSendUpdates where+    toJSON = toJSONText++-- | Guests who should receive notifications about the creation of the new+-- event.+data EventsQuickAddSendUpdates+    = EQASUAll+      -- ^ @all@+      -- Notifications are sent to all guests.+    | EQASUExternalOnly+      -- ^ @externalOnly@+      -- Notifications are sent to non-Google Calendar guests only.+    | EQASUNone+      -- ^ @none@+      -- No notifications are sent. This value should only be used for migration+      -- use cases (note that in most migration cases the import method should be+      -- used).+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable EventsQuickAddSendUpdates++instance FromHttpApiData EventsQuickAddSendUpdates where+    parseQueryParam = \case+        "all" -> Right EQASUAll+        "externalOnly" -> Right EQASUExternalOnly+        "none" -> Right EQASUNone+        x -> Left ("Unable to parse EventsQuickAddSendUpdates from: " <> x)++instance ToHttpApiData EventsQuickAddSendUpdates where+    toQueryParam = \case+        EQASUAll -> "all"+        EQASUExternalOnly -> "externalOnly"+        EQASUNone -> "none"++instance FromJSON EventsQuickAddSendUpdates where+    parseJSON = parseJSONText "EventsQuickAddSendUpdates"++instance ToJSON EventsQuickAddSendUpdates where+    toJSON = toJSONText++-- | Guests who should receive notifications about the event update (for+-- example, title changes, etc.).+data EventsUpdateSendUpdates+    = EUSUAll+      -- ^ @all@+      -- Notifications are sent to all guests.+    | EUSUExternalOnly+      -- ^ @externalOnly@+      -- Notifications are sent to non-Google Calendar guests only.+    | EUSUNone+      -- ^ @none@+      -- No notifications are sent. This value should only be used for migration+      -- use cases (note that in most migration cases the import method should be+      -- used).+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable EventsUpdateSendUpdates++instance FromHttpApiData EventsUpdateSendUpdates where+    parseQueryParam = \case+        "all" -> Right EUSUAll+        "externalOnly" -> Right EUSUExternalOnly+        "none" -> Right EUSUNone+        x -> Left ("Unable to parse EventsUpdateSendUpdates from: " <> x)++instance ToHttpApiData EventsUpdateSendUpdates where+    toQueryParam = \case+        EUSUAll -> "all"+        EUSUExternalOnly -> "externalOnly"+        EUSUNone -> "none"++instance FromJSON EventsUpdateSendUpdates where+    parseJSON = parseJSONText "EventsUpdateSendUpdates"++instance ToJSON EventsUpdateSendUpdates where+    toJSON = toJSONText++-- | Guests who should receive notifications about the change of the event\'s+-- organizer.+data EventsMoveSendUpdates+    = EMSUAll+      -- ^ @all@+      -- Notifications are sent to all guests.+    | EMSUExternalOnly+      -- ^ @externalOnly@+      -- Notifications are sent to non-Google Calendar guests only.+    | EMSUNone+      -- ^ @none@+      -- No notifications are sent. This value should only be used for migration+      -- use cases (note that in most migration cases the import method should be+      -- used).+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable EventsMoveSendUpdates++instance FromHttpApiData EventsMoveSendUpdates where+    parseQueryParam = \case+        "all" -> Right EMSUAll+        "externalOnly" -> Right EMSUExternalOnly+        "none" -> Right EMSUNone+        x -> Left ("Unable to parse EventsMoveSendUpdates from: " <> x)++instance ToHttpApiData EventsMoveSendUpdates where+    toQueryParam = \case+        EMSUAll -> "all"+        EMSUExternalOnly -> "externalOnly"+        EMSUNone -> "none"++instance FromJSON EventsMoveSendUpdates where+    parseJSON = parseJSONText "EventsMoveSendUpdates"++instance ToJSON EventsMoveSendUpdates where+    toJSON = toJSONText+ -- | The order of the events returned in the result. Optional. The default is -- an unspecified, stable order. data EventsListOrderBy@@ -47,6 +195,79 @@     parseJSON = parseJSONText "EventsListOrderBy"  instance ToJSON EventsListOrderBy where+    toJSON = toJSONText++-- | Guests who should receive notifications about the deletion of the event.+data EventsDeleteSendUpdates+    = EDSUAll+      -- ^ @all@+      -- Notifications are sent to all guests.+    | EDSUExternalOnly+      -- ^ @externalOnly@+      -- Notifications are sent to non-Google Calendar guests only.+    | EDSUNone+      -- ^ @none@+      -- No notifications are sent. This value should only be used for migration+      -- use cases (note that in most migration cases the import method should be+      -- used).+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable EventsDeleteSendUpdates++instance FromHttpApiData EventsDeleteSendUpdates where+    parseQueryParam = \case+        "all" -> Right EDSUAll+        "externalOnly" -> Right EDSUExternalOnly+        "none" -> Right EDSUNone+        x -> Left ("Unable to parse EventsDeleteSendUpdates from: " <> x)++instance ToHttpApiData EventsDeleteSendUpdates where+    toQueryParam = \case+        EDSUAll -> "all"+        EDSUExternalOnly -> "externalOnly"+        EDSUNone -> "none"++instance FromJSON EventsDeleteSendUpdates where+    parseJSON = parseJSONText "EventsDeleteSendUpdates"++instance ToJSON EventsDeleteSendUpdates where+    toJSON = toJSONText++-- | Whether to send notifications about the creation of the new event. Note+-- that some emails might still be sent. The default is false.+data EventsInsertSendUpdates+    = EISUAll+      -- ^ @all@+      -- Notifications are sent to all guests.+    | EISUExternalOnly+      -- ^ @externalOnly@+      -- Notifications are sent to non-Google Calendar guests only.+    | EISUNone+      -- ^ @none@+      -- No notifications are sent. This value should only be used for migration+      -- use cases (note that in most migration cases the import method should be+      -- used).+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable EventsInsertSendUpdates++instance FromHttpApiData EventsInsertSendUpdates where+    parseQueryParam = \case+        "all" -> Right EISUAll+        "externalOnly" -> Right EISUExternalOnly+        "none" -> Right EISUNone+        x -> Left ("Unable to parse EventsInsertSendUpdates from: " <> x)++instance ToHttpApiData EventsInsertSendUpdates where+    toQueryParam = \case+        EISUAll -> "all"+        EISUExternalOnly -> "externalOnly"+        EISUNone -> "none"++instance FromJSON EventsInsertSendUpdates where+    parseJSON = parseJSONText "EventsInsertSendUpdates"++instance ToJSON EventsInsertSendUpdates where     toJSON = toJSONText  -- | The minimum access role for the user in the returned entries. Optional.

@@ -35,6 +35,7 @@     -- * Request Lenses     , aiCalendarId     , aiPayload+    , aiSendNotifications     ) where  import           Network.Google.AppsCalendar.Types@@ -48,15 +49,17 @@          "calendars" :>            Capture "calendarId" Text :>              "acl" :>-               QueryParam "alt" AltJSON :>-                 ReqBody '[JSON] ACLRule :> Post '[JSON] ACLRule+               QueryParam "sendNotifications" Bool :>+                 QueryParam "alt" AltJSON :>+                   ReqBody '[JSON] ACLRule :> Post '[JSON] ACLRule  -- | Creates an access control rule. -- -- /See:/ 'aclInsert' smart constructor. data ACLInsert = ACLInsert'-    { _aiCalendarId :: !Text-    , _aiPayload    :: !ACLRule+    { _aiCalendarId        :: !Text+    , _aiPayload           :: !ACLRule+    , _aiSendNotifications :: !(Maybe Bool)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'ACLInsert' with the minimum fields required to make a request.@@ -66,6 +69,8 @@ -- * 'aiCalendarId' -- -- * 'aiPayload'+--+-- * 'aiSendNotifications' aclInsert     :: Text -- ^ 'aiCalendarId'     -> ACLRule -- ^ 'aiPayload'@@ -74,6 +79,7 @@     ACLInsert'     { _aiCalendarId = pAiCalendarId_     , _aiPayload = pAiPayload_+    , _aiSendNotifications = Nothing     }  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list@@ -88,12 +94,21 @@ aiPayload   = lens _aiPayload (\ s a -> s{_aiPayload = a}) +-- | Whether to send notifications about the calendar sharing change.+-- Optional. The default is True.+aiSendNotifications :: Lens' ACLInsert (Maybe Bool)+aiSendNotifications+  = lens _aiSendNotifications+      (\ s a -> s{_aiSendNotifications = a})+ instance GoogleRequest ACLInsert where         type Rs ACLInsert = ACLRule         type Scopes ACLInsert =              '["https://www.googleapis.com/auth/calendar"]         requestClient ACLInsert'{..}-          = go _aiCalendarId (Just AltJSON) _aiPayload+          = go _aiCalendarId _aiSendNotifications+              (Just AltJSON)+              _aiPayload               appsCalendarService           where go                   = buildClient (Proxy :: Proxy ACLInsertResource)

@@ -36,6 +36,7 @@     , apCalendarId     , apRuleId     , apPayload+    , apSendNotifications     ) where  import           Network.Google.AppsCalendar.Types@@ -50,16 +51,18 @@            Capture "calendarId" Text :>              "acl" :>                Capture "ruleId" Text :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] ACLRule :> Patch '[JSON] ACLRule+                 QueryParam "sendNotifications" Bool :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] ACLRule :> Patch '[JSON] ACLRule  -- | Updates an access control rule. This method supports patch semantics. -- -- /See:/ 'aclPatch' smart constructor. data ACLPatch = ACLPatch'-    { _apCalendarId :: !Text-    , _apRuleId     :: !Text-    , _apPayload    :: !ACLRule+    { _apCalendarId        :: !Text+    , _apRuleId            :: !Text+    , _apPayload           :: !ACLRule+    , _apSendNotifications :: !(Maybe Bool)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'ACLPatch' with the minimum fields required to make a request.@@ -71,6 +74,8 @@ -- * 'apRuleId' -- -- * 'apPayload'+--+-- * 'apSendNotifications' aclPatch     :: Text -- ^ 'apCalendarId'     -> Text -- ^ 'apRuleId'@@ -81,6 +86,7 @@     { _apCalendarId = pApCalendarId_     , _apRuleId = pApRuleId_     , _apPayload = pApPayload_+    , _apSendNotifications = Nothing     }  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list@@ -99,12 +105,21 @@ apPayload   = lens _apPayload (\ s a -> s{_apPayload = a}) +-- | Whether to send notifications about the calendar sharing change. Note+-- that there are no notifications on access removal. Optional. The default+-- is True.+apSendNotifications :: Lens' ACLPatch (Maybe Bool)+apSendNotifications+  = lens _apSendNotifications+      (\ s a -> s{_apSendNotifications = a})+ instance GoogleRequest ACLPatch where         type Rs ACLPatch = ACLRule         type Scopes ACLPatch =              '["https://www.googleapis.com/auth/calendar"]         requestClient ACLPatch'{..}-          = go _apCalendarId _apRuleId (Just AltJSON)+          = go _apCalendarId _apRuleId _apSendNotifications+              (Just AltJSON)               _apPayload               appsCalendarService           where go

@@ -36,6 +36,7 @@     , auCalendarId     , auRuleId     , auPayload+    , auSendNotifications     ) where  import           Network.Google.AppsCalendar.Types@@ -50,16 +51,18 @@            Capture "calendarId" Text :>              "acl" :>                Capture "ruleId" Text :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] ACLRule :> Put '[JSON] ACLRule+                 QueryParam "sendNotifications" Bool :>+                   QueryParam "alt" AltJSON :>+                     ReqBody '[JSON] ACLRule :> Put '[JSON] ACLRule  -- | Updates an access control rule. -- -- /See:/ 'aclUpdate' smart constructor. data ACLUpdate = ACLUpdate'-    { _auCalendarId :: !Text-    , _auRuleId     :: !Text-    , _auPayload    :: !ACLRule+    { _auCalendarId        :: !Text+    , _auRuleId            :: !Text+    , _auPayload           :: !ACLRule+    , _auSendNotifications :: !(Maybe Bool)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'ACLUpdate' with the minimum fields required to make a request.@@ -71,6 +74,8 @@ -- * 'auRuleId' -- -- * 'auPayload'+--+-- * 'auSendNotifications' aclUpdate     :: Text -- ^ 'auCalendarId'     -> Text -- ^ 'auRuleId'@@ -81,6 +86,7 @@     { _auCalendarId = pAuCalendarId_     , _auRuleId = pAuRuleId_     , _auPayload = pAuPayload_+    , _auSendNotifications = Nothing     }  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list@@ -99,12 +105,21 @@ auPayload   = lens _auPayload (\ s a -> s{_auPayload = a}) +-- | Whether to send notifications about the calendar sharing change. Note+-- that there are no notifications on access removal. Optional. The default+-- is True.+auSendNotifications :: Lens' ACLUpdate (Maybe Bool)+auSendNotifications+  = lens _auSendNotifications+      (\ s a -> s{_auSendNotifications = a})+ instance GoogleRequest ACLUpdate where         type Rs ACLUpdate = ACLRule         type Scopes ACLUpdate =              '["https://www.googleapis.com/auth/calendar"]         requestClient ACLUpdate'{..}-          = go _auCalendarId _auRuleId (Just AltJSON)+          = go _auCalendarId _auRuleId _auSendNotifications+              (Just AltJSON)               _auPayload               appsCalendarService           where go

@@ -20,7 +20,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes an entry on the user\'s calendar list.+-- Removes a calendar from the user\'s calendar list. -- -- /See:/ <https://developers.google.com/google-apps/calendar/firstapp Calendar API Reference> for @calendar.calendarList.delete@. module Network.Google.Resource.Calendar.CalendarList.Delete@@ -50,7 +50,7 @@                Capture "calendarId" Text :>                  QueryParam "alt" AltJSON :> Delete '[JSON] () --- | Deletes an entry on the user\'s calendar list.+-- | Removes a calendar from the user\'s calendar list. -- -- /See:/ 'calendarListDelete' smart constructor. newtype CalendarListDelete = CalendarListDelete'

@@ -20,7 +20,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns an entry on the user\'s calendar list.+-- Returns a calendar from the user\'s calendar list. -- -- /See:/ <https://developers.google.com/google-apps/calendar/firstapp Calendar API Reference> for @calendar.calendarList.get@. module Network.Google.Resource.Calendar.CalendarList.Get@@ -51,7 +51,7 @@                  QueryParam "alt" AltJSON :>                    Get '[JSON] CalendarListEntry --- | Returns an entry on the user\'s calendar list.+-- | Returns a calendar from the user\'s calendar list. -- -- /See:/ 'calendarListGet' smart constructor. newtype CalendarListGet = CalendarListGet'

@@ -20,7 +20,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Adds an entry to the user\'s calendar list.+-- Inserts an existing calendar into the user\'s calendar list. -- -- /See:/ <https://developers.google.com/google-apps/calendar/firstapp Calendar API Reference> for @calendar.calendarList.insert@. module Network.Google.Resource.Calendar.CalendarList.Insert@@ -53,7 +53,7 @@                    ReqBody '[JSON] CalendarListEntry :>                      Post '[JSON] CalendarListEntry --- | Adds an entry to the user\'s calendar list.+-- | Inserts an existing calendar into the user\'s calendar list. -- -- /See:/ 'calendarListInsert' smart constructor. data CalendarListInsert = CalendarListInsert'

@@ -20,7 +20,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns entries on the user\'s calendar list.+-- Returns the calendars on the user\'s calendar list. -- -- /See:/ <https://developers.google.com/google-apps/calendar/firstapp Calendar API Reference> for @calendar.calendarList.list@. module Network.Google.Resource.Calendar.CalendarList.List@@ -62,7 +62,7 @@                          QueryParam "maxResults" (Textual Int32) :>                            QueryParam "alt" AltJSON :> Get '[JSON] CalendarList --- | Returns entries on the user\'s calendar list.+-- | Returns the calendars on the user\'s calendar list. -- -- /See:/ 'calendarListList' smart constructor. data CalendarListList = CalendarListList'

@@ -20,8 +20,8 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Updates an entry on the user\'s calendar list. This method supports--- patch semantics.+-- Updates an existing calendar on the user\'s calendar list. This method+-- supports patch semantics. -- -- /See:/ <https://developers.google.com/google-apps/calendar/firstapp Calendar API Reference> for @calendar.calendarList.patch@. module Network.Google.Resource.Calendar.CalendarList.Patch@@ -56,8 +56,8 @@                      ReqBody '[JSON] CalendarListEntry :>                        Patch '[JSON] CalendarListEntry --- | Updates an entry on the user\'s calendar list. This method supports--- patch semantics.+-- | Updates an existing calendar on the user\'s calendar list. This method+-- supports patch semantics. -- -- /See:/ 'calendarListPatch' smart constructor. data CalendarListPatch = CalendarListPatch'

@@ -20,7 +20,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Updates an entry on the user\'s calendar list.+-- Updates an existing calendar on the user\'s calendar list. -- -- /See:/ <https://developers.google.com/google-apps/calendar/firstapp Calendar API Reference> for @calendar.calendarList.update@. module Network.Google.Resource.Calendar.CalendarList.Update@@ -55,7 +55,7 @@                      ReqBody '[JSON] CalendarListEntry :>                        Put '[JSON] CalendarListEntry --- | Updates an entry on the user\'s calendar list.+-- | Updates an existing calendar on the user\'s calendar list. -- -- /See:/ 'calendarListUpdate' smart constructor. data CalendarListUpdate = CalendarListUpdate'

@@ -78,7 +78,10 @@         type Rs ChannelsStop = ()         type Scopes ChannelsStop =              '["https://www.googleapis.com/auth/calendar",-               "https://www.googleapis.com/auth/calendar.readonly"]+               "https://www.googleapis.com/auth/calendar.events",+               "https://www.googleapis.com/auth/calendar.events.readonly",+               "https://www.googleapis.com/auth/calendar.readonly",+               "https://www.googleapis.com/auth/calendar.settings.readonly"]         requestClient ChannelsStop'{..}           = go (Just AltJSON) _csPayload appsCalendarService           where go

@@ -35,6 +35,7 @@     -- * Request Lenses     , edCalendarId     , edSendNotifications+    , edSendUpdates     , edEventId     ) where @@ -51,7 +52,8 @@              "events" :>                Capture "eventId" Text :>                  QueryParam "sendNotifications" Bool :>-                   QueryParam "alt" AltJSON :> Delete '[JSON] ()+                   QueryParam "sendUpdates" EventsDeleteSendUpdates :>+                     QueryParam "alt" AltJSON :> Delete '[JSON] ()  -- | Deletes an event. --@@ -59,6 +61,7 @@ data EventsDelete = EventsDelete'     { _edCalendarId        :: !Text     , _edSendNotifications :: !(Maybe Bool)+    , _edSendUpdates       :: !(Maybe EventsDeleteSendUpdates)     , _edEventId           :: !Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -70,6 +73,8 @@ -- -- * 'edSendNotifications' --+-- * 'edSendUpdates'+-- -- * 'edEventId' eventsDelete     :: Text -- ^ 'edCalendarId'@@ -79,6 +84,7 @@     EventsDelete'     { _edCalendarId = pEdCalendarId_     , _edSendNotifications = Nothing+    , _edSendUpdates = Nothing     , _edEventId = pEdEventId_     } @@ -89,13 +95,21 @@ edCalendarId   = lens _edCalendarId (\ s a -> s{_edCalendarId = a}) --- | Whether to send notifications about the deletion of the event. Optional.--- The default is False.+-- | Deprecated. Please use sendUpdates instead. Whether to send+-- notifications about the deletion of the event. Note that some emails+-- might still be sent even if you set the value to false. The default is+-- false. edSendNotifications :: Lens' EventsDelete (Maybe Bool) edSendNotifications   = lens _edSendNotifications       (\ s a -> s{_edSendNotifications = a}) +-- | Guests who should receive notifications about the deletion of the event.+edSendUpdates :: Lens' EventsDelete (Maybe EventsDeleteSendUpdates)+edSendUpdates+  = lens _edSendUpdates+      (\ s a -> s{_edSendUpdates = a})+ -- | Event identifier. edEventId :: Lens' EventsDelete Text edEventId@@ -104,9 +118,11 @@ instance GoogleRequest EventsDelete where         type Rs EventsDelete = ()         type Scopes EventsDelete =-             '["https://www.googleapis.com/auth/calendar"]+             '["https://www.googleapis.com/auth/calendar",+               "https://www.googleapis.com/auth/calendar.events"]         requestClient EventsDelete'{..}           = go _edCalendarId _edEventId _edSendNotifications+              _edSendUpdates               (Just AltJSON)               appsCalendarService           where go

@@ -136,6 +136,8 @@         type Rs EventsGet = Event         type Scopes EventsGet =              '["https://www.googleapis.com/auth/calendar",+               "https://www.googleapis.com/auth/calendar.events",+               "https://www.googleapis.com/auth/calendar.events.readonly",                "https://www.googleapis.com/auth/calendar.readonly"]         requestClient EventsGet'{..}           = go _egCalendarId _egEventId _egMaxAttendees

@@ -34,6 +34,7 @@     , EventsImport      -- * Request Lenses+    , eiConferenceDataVersion     , eiCalendarId     , eiPayload     , eiSupportsAttachments@@ -51,24 +52,28 @@            Capture "calendarId" Text :>              "events" :>                "import" :>-                 QueryParam "supportsAttachments" Bool :>-                   QueryParam "alt" AltJSON :>-                     ReqBody '[JSON] Event :> Post '[JSON] Event+                 QueryParam "conferenceDataVersion" (Textual Int32) :>+                   QueryParam "supportsAttachments" Bool :>+                     QueryParam "alt" AltJSON :>+                       ReqBody '[JSON] Event :> Post '[JSON] Event  -- | Imports an event. This operation is used to add a private copy of an -- existing event to a calendar. -- -- /See:/ 'eventsImport' smart constructor. data EventsImport = EventsImport'-    { _eiCalendarId          :: !Text-    , _eiPayload             :: !Event-    , _eiSupportsAttachments :: !(Maybe Bool)+    { _eiConferenceDataVersion :: !(Maybe (Textual Int32))+    , _eiCalendarId            :: !Text+    , _eiPayload               :: !Event+    , _eiSupportsAttachments   :: !(Maybe Bool)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'EventsImport' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'eiConferenceDataVersion'+-- -- * 'eiCalendarId' -- -- * 'eiPayload'@@ -80,11 +85,23 @@     -> EventsImport eventsImport pEiCalendarId_ pEiPayload_ =     EventsImport'-    { _eiCalendarId = pEiCalendarId_+    { _eiConferenceDataVersion = Nothing+    , _eiCalendarId = pEiCalendarId_     , _eiPayload = pEiPayload_     , _eiSupportsAttachments = Nothing     } +-- | Version number of conference data supported by the API client. Version 0+-- assumes no conference data support and ignores conference data in the+-- event\'s body. Version 1 enables support for copying of ConferenceData+-- as well as for creating new conferences using the createRequest field of+-- conferenceData. The default is 0.+eiConferenceDataVersion :: Lens' EventsImport (Maybe Int32)+eiConferenceDataVersion+  = lens _eiConferenceDataVersion+      (\ s a -> s{_eiConferenceDataVersion = a})+      . mapping _Coerce+ -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently -- logged in user, use the \"primary\" keyword.@@ -107,9 +124,11 @@ instance GoogleRequest EventsImport where         type Rs EventsImport = Event         type Scopes EventsImport =-             '["https://www.googleapis.com/auth/calendar"]+             '["https://www.googleapis.com/auth/calendar",+               "https://www.googleapis.com/auth/calendar.events"]         requestClient EventsImport'{..}-          = go _eiCalendarId _eiSupportsAttachments+          = go _eiCalendarId _eiConferenceDataVersion+              _eiSupportsAttachments               (Just AltJSON)               _eiPayload               appsCalendarService

@@ -33,11 +33,13 @@     , EventsInsert      -- * Request Lenses+    , eveConferenceDataVersion     , eveCalendarId     , evePayload     , eveMaxAttendees     , eveSendNotifications     , eveSupportsAttachments+    , eveSendUpdates     ) where  import           Network.Google.AppsCalendar.Types@@ -51,27 +53,33 @@          "calendars" :>            Capture "calendarId" Text :>              "events" :>-               QueryParam "maxAttendees" (Textual Int32) :>-                 QueryParam "sendNotifications" Bool :>-                   QueryParam "supportsAttachments" Bool :>-                     QueryParam "alt" AltJSON :>-                       ReqBody '[JSON] Event :> Post '[JSON] Event+               QueryParam "conferenceDataVersion" (Textual Int32) :>+                 QueryParam "maxAttendees" (Textual Int32) :>+                   QueryParam "sendNotifications" Bool :>+                     QueryParam "supportsAttachments" Bool :>+                       QueryParam "sendUpdates" EventsInsertSendUpdates :>+                         QueryParam "alt" AltJSON :>+                           ReqBody '[JSON] Event :> Post '[JSON] Event  -- | Creates an event. -- -- /See:/ 'eventsInsert' smart constructor. data EventsInsert = EventsInsert'-    { _eveCalendarId          :: !Text-    , _evePayload             :: !Event-    , _eveMaxAttendees        :: !(Maybe (Textual Int32))-    , _eveSendNotifications   :: !(Maybe Bool)-    , _eveSupportsAttachments :: !(Maybe Bool)+    { _eveConferenceDataVersion :: !(Maybe (Textual Int32))+    , _eveCalendarId            :: !Text+    , _evePayload               :: !Event+    , _eveMaxAttendees          :: !(Maybe (Textual Int32))+    , _eveSendNotifications     :: !(Maybe Bool)+    , _eveSupportsAttachments   :: !(Maybe Bool)+    , _eveSendUpdates           :: !(Maybe EventsInsertSendUpdates)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'EventsInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'eveConferenceDataVersion'+-- -- * 'eveCalendarId' -- -- * 'evePayload'@@ -81,19 +89,34 @@ -- * 'eveSendNotifications' -- -- * 'eveSupportsAttachments'+--+-- * 'eveSendUpdates' eventsInsert     :: Text -- ^ 'eveCalendarId'     -> Event -- ^ 'evePayload'     -> EventsInsert eventsInsert pEveCalendarId_ pEvePayload_ =     EventsInsert'-    { _eveCalendarId = pEveCalendarId_+    { _eveConferenceDataVersion = Nothing+    , _eveCalendarId = pEveCalendarId_     , _evePayload = pEvePayload_     , _eveMaxAttendees = Nothing     , _eveSendNotifications = Nothing     , _eveSupportsAttachments = Nothing+    , _eveSendUpdates = Nothing     } +-- | Version number of conference data supported by the API client. Version 0+-- assumes no conference data support and ignores conference data in the+-- event\'s body. Version 1 enables support for copying of ConferenceData+-- as well as for creating new conferences using the createRequest field of+-- conferenceData. The default is 0.+eveConferenceDataVersion :: Lens' EventsInsert (Maybe Int32)+eveConferenceDataVersion+  = lens _eveConferenceDataVersion+      (\ s a -> s{_eveConferenceDataVersion = a})+      . mapping _Coerce+ -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently -- logged in user, use the \"primary\" keyword.@@ -116,8 +139,10 @@       (\ s a -> s{_eveMaxAttendees = a})       . mapping _Coerce --- | Whether to send notifications about the creation of the new event.--- Optional. The default is False.+-- | Deprecated. Please use sendUpdates instead. Whether to send+-- notifications about the creation of the new event. Note that some emails+-- might still be sent even if you set the value to false. The default is+-- false. eveSendNotifications :: Lens' EventsInsert (Maybe Bool) eveSendNotifications   = lens _eveSendNotifications@@ -130,14 +155,24 @@   = lens _eveSupportsAttachments       (\ s a -> s{_eveSupportsAttachments = a}) +-- | Whether to send notifications about the creation of the new event. Note+-- that some emails might still be sent. The default is false.+eveSendUpdates :: Lens' EventsInsert (Maybe EventsInsertSendUpdates)+eveSendUpdates+  = lens _eveSendUpdates+      (\ s a -> s{_eveSendUpdates = a})+ instance GoogleRequest EventsInsert where         type Rs EventsInsert = Event         type Scopes EventsInsert =-             '["https://www.googleapis.com/auth/calendar"]+             '["https://www.googleapis.com/auth/calendar",+               "https://www.googleapis.com/auth/calendar.events"]         requestClient EventsInsert'{..}-          = go _eveCalendarId _eveMaxAttendees+          = go _eveCalendarId _eveConferenceDataVersion+              _eveMaxAttendees               _eveSendNotifications               _eveSupportsAttachments+              _eveSendUpdates               (Just AltJSON)               _evePayload               appsCalendarService

@@ -215,6 +215,8 @@         type Rs EventsInstances = Events         type Scopes EventsInstances =              '["https://www.googleapis.com/auth/calendar",+               "https://www.googleapis.com/auth/calendar.events",+               "https://www.googleapis.com/auth/calendar.events.readonly",                "https://www.googleapis.com/auth/calendar.readonly"]         requestClient EventsInstances'{..}           = go _eCalendarId _eEventId _eTimeMin _eShowDeleted

@@ -205,6 +205,7 @@ -- The default is not to filter by end time. Must be an RFC3339 timestamp -- with mandatory time zone offset, e.g., 2011-06-03T10:00:00-07:00, -- 2011-06-03T10:00:00Z. Milliseconds may be provided but will be ignored.+-- If timeMax is set, timeMin must be smaller than timeMax. elTimeMin :: Lens' EventsList (Maybe UTCTime) elTimeMin   = lens _elTimeMin (\ s a -> s{_elTimeMin = a}) .@@ -302,9 +303,12 @@   = lens _elShowHiddenInvitations       (\ s a -> s{_elShowHiddenInvitations = a}) --- | Maximum number of events returned on one result page. By default the--- value is 250 events. The page size can never be larger than 2500 events.--- Optional.+-- | Maximum number of events returned on one result page. The number of+-- events in the resulting page may be less than this value, or none at+-- all, even if there are more events matching the query. Incomplete pages+-- can be detected by a non-empty nextPageToken field in the response. By+-- default the value is 250 events. The page size can never be larger than+-- 2500 events. Optional. elMaxResults :: Lens' EventsList Int32 elMaxResults   = lens _elMaxResults (\ s a -> s{_elMaxResults = a})@@ -325,7 +329,8 @@ -- Optional. The default is not to filter by start time. Must be an RFC3339 -- timestamp with mandatory time zone offset, e.g., -- 2011-06-03T10:00:00-07:00, 2011-06-03T10:00:00Z. Milliseconds may be--- provided but will be ignored.+-- provided but will be ignored. If timeMin is set, timeMax must be greater+-- than timeMin. elTimeMax :: Lens' EventsList (Maybe UTCTime) elTimeMax   = lens _elTimeMax (\ s a -> s{_elTimeMax = a}) .@@ -335,6 +340,8 @@         type Rs EventsList = Events         type Scopes EventsList =              '["https://www.googleapis.com/auth/calendar",+               "https://www.googleapis.com/auth/calendar.events",+               "https://www.googleapis.com/auth/calendar.events.readonly",                "https://www.googleapis.com/auth/calendar.readonly"]         requestClient EventsList'{..}           = go _elCalendarId _elSyncToken _elTimeMin _elOrderBy

@@ -36,6 +36,7 @@     , emDestination     , emCalendarId     , emSendNotifications+    , emSendUpdates     , emEventId     ) where @@ -54,7 +55,8 @@                  "move" :>                    QueryParam "destination" Text :>                      QueryParam "sendNotifications" Bool :>-                       QueryParam "alt" AltJSON :> Post '[JSON] Event+                       QueryParam "sendUpdates" EventsMoveSendUpdates :>+                         QueryParam "alt" AltJSON :> Post '[JSON] Event  -- | Moves an event to another calendar, i.e. changes an event\'s organizer. --@@ -63,6 +65,7 @@     { _emDestination       :: !Text     , _emCalendarId        :: !Text     , _emSendNotifications :: !(Maybe Bool)+    , _emSendUpdates       :: !(Maybe EventsMoveSendUpdates)     , _emEventId           :: !Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -76,6 +79,8 @@ -- -- * 'emSendNotifications' --+-- * 'emSendUpdates'+-- -- * 'emEventId' eventsMove     :: Text -- ^ 'emDestination'@@ -87,6 +92,7 @@     { _emDestination = pEmDestination_     , _emCalendarId = pEmCalendarId_     , _emSendNotifications = Nothing+    , _emSendUpdates = Nothing     , _emEventId = pEmEventId_     } @@ -103,13 +109,22 @@ emCalendarId   = lens _emCalendarId (\ s a -> s{_emCalendarId = a}) --- | Whether to send notifications about the change of the event\'s--- organizer. Optional. The default is False.+-- | Deprecated. Please use sendUpdates instead. Whether to send+-- notifications about the change of the event\'s organizer. Note that some+-- emails might still be sent even if you set the value to false. The+-- default is false. emSendNotifications :: Lens' EventsMove (Maybe Bool) emSendNotifications   = lens _emSendNotifications       (\ s a -> s{_emSendNotifications = a}) +-- | Guests who should receive notifications about the change of the event\'s+-- organizer.+emSendUpdates :: Lens' EventsMove (Maybe EventsMoveSendUpdates)+emSendUpdates+  = lens _emSendUpdates+      (\ s a -> s{_emSendUpdates = a})+ -- | Event identifier. emEventId :: Lens' EventsMove Text emEventId@@ -118,10 +133,12 @@ instance GoogleRequest EventsMove where         type Rs EventsMove = Event         type Scopes EventsMove =-             '["https://www.googleapis.com/auth/calendar"]+             '["https://www.googleapis.com/auth/calendar",+               "https://www.googleapis.com/auth/calendar.events"]         requestClient EventsMove'{..}           = go _emCalendarId _emEventId (Just _emDestination)               _emSendNotifications+              _emSendUpdates               (Just AltJSON)               appsCalendarService           where go

@@ -33,11 +33,13 @@     , EventsPatch      -- * Request Lenses+    , epConferenceDataVersion     , epCalendarId     , epPayload     , epMaxAttendees     , epSendNotifications     , epSupportsAttachments+    , epSendUpdates     , epAlwaysIncludeEmail     , epEventId     ) where@@ -54,30 +56,36 @@            Capture "calendarId" Text :>              "events" :>                Capture "eventId" Text :>-                 QueryParam "maxAttendees" (Textual Int32) :>-                   QueryParam "sendNotifications" Bool :>-                     QueryParam "supportsAttachments" Bool :>-                       QueryParam "alwaysIncludeEmail" Bool :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON] Event :> Patch '[JSON] Event+                 QueryParam "conferenceDataVersion" (Textual Int32) :>+                   QueryParam "maxAttendees" (Textual Int32) :>+                     QueryParam "sendNotifications" Bool :>+                       QueryParam "supportsAttachments" Bool :>+                         QueryParam "sendUpdates" EventsPatchSendUpdates :>+                           QueryParam "alwaysIncludeEmail" Bool :>+                             QueryParam "alt" AltJSON :>+                               ReqBody '[JSON] Event :> Patch '[JSON] Event  -- | Updates an event. This method supports patch semantics. -- -- /See:/ 'eventsPatch' smart constructor. data EventsPatch = EventsPatch'-    { _epCalendarId          :: !Text-    , _epPayload             :: !Event-    , _epMaxAttendees        :: !(Maybe (Textual Int32))-    , _epSendNotifications   :: !(Maybe Bool)-    , _epSupportsAttachments :: !(Maybe Bool)-    , _epAlwaysIncludeEmail  :: !(Maybe Bool)-    , _epEventId             :: !Text+    { _epConferenceDataVersion :: !(Maybe (Textual Int32))+    , _epCalendarId            :: !Text+    , _epPayload               :: !Event+    , _epMaxAttendees          :: !(Maybe (Textual Int32))+    , _epSendNotifications     :: !(Maybe Bool)+    , _epSupportsAttachments   :: !(Maybe Bool)+    , _epSendUpdates           :: !(Maybe EventsPatchSendUpdates)+    , _epAlwaysIncludeEmail    :: !(Maybe Bool)+    , _epEventId               :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'EventsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'epConferenceDataVersion'+-- -- * 'epCalendarId' -- -- * 'epPayload'@@ -88,6 +96,8 @@ -- -- * 'epSupportsAttachments' --+-- * 'epSendUpdates'+-- -- * 'epAlwaysIncludeEmail' -- -- * 'epEventId'@@ -98,15 +108,28 @@     -> EventsPatch eventsPatch pEpCalendarId_ pEpPayload_ pEpEventId_ =     EventsPatch'-    { _epCalendarId = pEpCalendarId_+    { _epConferenceDataVersion = Nothing+    , _epCalendarId = pEpCalendarId_     , _epPayload = pEpPayload_     , _epMaxAttendees = Nothing     , _epSendNotifications = Nothing     , _epSupportsAttachments = Nothing+    , _epSendUpdates = Nothing     , _epAlwaysIncludeEmail = Nothing     , _epEventId = pEpEventId_     } +-- | Version number of conference data supported by the API client. Version 0+-- assumes no conference data support and ignores conference data in the+-- event\'s body. Version 1 enables support for copying of ConferenceData+-- as well as for creating new conferences using the createRequest field of+-- conferenceData. The default is 0.+epConferenceDataVersion :: Lens' EventsPatch (Maybe Int32)+epConferenceDataVersion+  = lens _epConferenceDataVersion+      (\ s a -> s{_epConferenceDataVersion = a})+      . mapping _Coerce+ -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently -- logged in user, use the \"primary\" keyword.@@ -128,8 +151,10 @@       (\ s a -> s{_epMaxAttendees = a})       . mapping _Coerce --- | Whether to send notifications about the event update (e.g. attendee\'s--- responses, title changes, etc.). Optional. The default is False.+-- | Deprecated. Please use sendUpdates instead. Whether to send+-- notifications about the event update (for example, description changes,+-- etc.). Note that some emails might still be sent even if you set the+-- value to false. The default is false. epSendNotifications :: Lens' EventsPatch (Maybe Bool) epSendNotifications   = lens _epSendNotifications@@ -142,6 +167,13 @@   = lens _epSupportsAttachments       (\ s a -> s{_epSupportsAttachments = a}) +-- | Guests who should receive notifications about the event update (for+-- example, title changes, etc.).+epSendUpdates :: Lens' EventsPatch (Maybe EventsPatchSendUpdates)+epSendUpdates+  = lens _epSendUpdates+      (\ s a -> s{_epSendUpdates = a})+ -- | Whether to always include a value in the email field for the organizer, -- creator and attendees, even if no real email is available (i.e. a -- generated, non-working value will be provided). The use of this option@@ -161,11 +193,15 @@ instance GoogleRequest EventsPatch where         type Rs EventsPatch = Event         type Scopes EventsPatch =-             '["https://www.googleapis.com/auth/calendar"]+             '["https://www.googleapis.com/auth/calendar",+               "https://www.googleapis.com/auth/calendar.events"]         requestClient EventsPatch'{..}-          = go _epCalendarId _epEventId _epMaxAttendees+          = go _epCalendarId _epEventId+              _epConferenceDataVersion+              _epMaxAttendees               _epSendNotifications               _epSupportsAttachments+              _epSendUpdates               _epAlwaysIncludeEmail               (Just AltJSON)               _epPayload

@@ -36,6 +36,7 @@     , eqaCalendarId     , eqaText     , eqaSendNotifications+    , eqaSendUpdates     ) where  import           Network.Google.AppsCalendar.Types@@ -52,7 +53,8 @@                "quickAdd" :>                  QueryParam "text" Text :>                    QueryParam "sendNotifications" Bool :>-                     QueryParam "alt" AltJSON :> Post '[JSON] Event+                     QueryParam "sendUpdates" EventsQuickAddSendUpdates :>+                       QueryParam "alt" AltJSON :> Post '[JSON] Event  -- | Creates an event based on a simple text string. --@@ -61,6 +63,7 @@     { _eqaCalendarId        :: !Text     , _eqaText              :: !Text     , _eqaSendNotifications :: !(Maybe Bool)+    , _eqaSendUpdates       :: !(Maybe EventsQuickAddSendUpdates)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'EventsQuickAdd' with the minimum fields required to make a request.@@ -72,6 +75,8 @@ -- * 'eqaText' -- -- * 'eqaSendNotifications'+--+-- * 'eqaSendUpdates' eventsQuickAdd     :: Text -- ^ 'eqaCalendarId'     -> Text -- ^ 'eqaText'@@ -81,6 +86,7 @@     { _eqaCalendarId = pEqaCalendarId_     , _eqaText = pEqaText_     , _eqaSendNotifications = Nothing+    , _eqaSendUpdates = Nothing     }  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list@@ -95,20 +101,31 @@ eqaText :: Lens' EventsQuickAdd Text eqaText = lens _eqaText (\ s a -> s{_eqaText = a}) --- | Whether to send notifications about the creation of the event. Optional.--- The default is False.+-- | Deprecated. Please use sendUpdates instead. Whether to send+-- notifications about the creation of the event. Note that some emails+-- might still be sent even if you set the value to false. The default is+-- false. eqaSendNotifications :: Lens' EventsQuickAdd (Maybe Bool) eqaSendNotifications   = lens _eqaSendNotifications       (\ s a -> s{_eqaSendNotifications = a}) +-- | Guests who should receive notifications about the creation of the new+-- event.+eqaSendUpdates :: Lens' EventsQuickAdd (Maybe EventsQuickAddSendUpdates)+eqaSendUpdates+  = lens _eqaSendUpdates+      (\ s a -> s{_eqaSendUpdates = a})+ instance GoogleRequest EventsQuickAdd where         type Rs EventsQuickAdd = Event         type Scopes EventsQuickAdd =-             '["https://www.googleapis.com/auth/calendar"]+             '["https://www.googleapis.com/auth/calendar",+               "https://www.googleapis.com/auth/calendar.events"]         requestClient EventsQuickAdd'{..}           = go _eqaCalendarId (Just _eqaText)               _eqaSendNotifications+              _eqaSendUpdates               (Just AltJSON)               appsCalendarService           where go

@@ -33,11 +33,13 @@     , EventsUpdate      -- * Request Lenses+    , euConferenceDataVersion     , euCalendarId     , euPayload     , euMaxAttendees     , euSendNotifications     , euSupportsAttachments+    , euSendUpdates     , euAlwaysIncludeEmail     , euEventId     ) where@@ -54,30 +56,36 @@            Capture "calendarId" Text :>              "events" :>                Capture "eventId" Text :>-                 QueryParam "maxAttendees" (Textual Int32) :>-                   QueryParam "sendNotifications" Bool :>-                     QueryParam "supportsAttachments" Bool :>-                       QueryParam "alwaysIncludeEmail" Bool :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON] Event :> Put '[JSON] Event+                 QueryParam "conferenceDataVersion" (Textual Int32) :>+                   QueryParam "maxAttendees" (Textual Int32) :>+                     QueryParam "sendNotifications" Bool :>+                       QueryParam "supportsAttachments" Bool :>+                         QueryParam "sendUpdates" EventsUpdateSendUpdates :>+                           QueryParam "alwaysIncludeEmail" Bool :>+                             QueryParam "alt" AltJSON :>+                               ReqBody '[JSON] Event :> Put '[JSON] Event  -- | Updates an event. -- -- /See:/ 'eventsUpdate' smart constructor. data EventsUpdate = EventsUpdate'-    { _euCalendarId          :: !Text-    , _euPayload             :: !Event-    , _euMaxAttendees        :: !(Maybe (Textual Int32))-    , _euSendNotifications   :: !(Maybe Bool)-    , _euSupportsAttachments :: !(Maybe Bool)-    , _euAlwaysIncludeEmail  :: !(Maybe Bool)-    , _euEventId             :: !Text+    { _euConferenceDataVersion :: !(Maybe (Textual Int32))+    , _euCalendarId            :: !Text+    , _euPayload               :: !Event+    , _euMaxAttendees          :: !(Maybe (Textual Int32))+    , _euSendNotifications     :: !(Maybe Bool)+    , _euSupportsAttachments   :: !(Maybe Bool)+    , _euSendUpdates           :: !(Maybe EventsUpdateSendUpdates)+    , _euAlwaysIncludeEmail    :: !(Maybe Bool)+    , _euEventId               :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'EventsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'euConferenceDataVersion'+-- -- * 'euCalendarId' -- -- * 'euPayload'@@ -88,6 +96,8 @@ -- -- * 'euSupportsAttachments' --+-- * 'euSendUpdates'+-- -- * 'euAlwaysIncludeEmail' -- -- * 'euEventId'@@ -98,15 +108,28 @@     -> EventsUpdate eventsUpdate pEuCalendarId_ pEuPayload_ pEuEventId_ =     EventsUpdate'-    { _euCalendarId = pEuCalendarId_+    { _euConferenceDataVersion = Nothing+    , _euCalendarId = pEuCalendarId_     , _euPayload = pEuPayload_     , _euMaxAttendees = Nothing     , _euSendNotifications = Nothing     , _euSupportsAttachments = Nothing+    , _euSendUpdates = Nothing     , _euAlwaysIncludeEmail = Nothing     , _euEventId = pEuEventId_     } +-- | Version number of conference data supported by the API client. Version 0+-- assumes no conference data support and ignores conference data in the+-- event\'s body. Version 1 enables support for copying of ConferenceData+-- as well as for creating new conferences using the createRequest field of+-- conferenceData. The default is 0.+euConferenceDataVersion :: Lens' EventsUpdate (Maybe Int32)+euConferenceDataVersion+  = lens _euConferenceDataVersion+      (\ s a -> s{_euConferenceDataVersion = a})+      . mapping _Coerce+ -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently -- logged in user, use the \"primary\" keyword.@@ -128,8 +151,10 @@       (\ s a -> s{_euMaxAttendees = a})       . mapping _Coerce --- | Whether to send notifications about the event update (e.g. attendee\'s--- responses, title changes, etc.). Optional. The default is False.+-- | Deprecated. Please use sendUpdates instead. Whether to send+-- notifications about the event update (for example, description changes,+-- etc.). Note that some emails might still be sent even if you set the+-- value to false. The default is false. euSendNotifications :: Lens' EventsUpdate (Maybe Bool) euSendNotifications   = lens _euSendNotifications@@ -142,6 +167,13 @@   = lens _euSupportsAttachments       (\ s a -> s{_euSupportsAttachments = a}) +-- | Guests who should receive notifications about the event update (for+-- example, title changes, etc.).+euSendUpdates :: Lens' EventsUpdate (Maybe EventsUpdateSendUpdates)+euSendUpdates+  = lens _euSendUpdates+      (\ s a -> s{_euSendUpdates = a})+ -- | Whether to always include a value in the email field for the organizer, -- creator and attendees, even if no real email is available (i.e. a -- generated, non-working value will be provided). The use of this option@@ -161,11 +193,15 @@ instance GoogleRequest EventsUpdate where         type Rs EventsUpdate = Event         type Scopes EventsUpdate =-             '["https://www.googleapis.com/auth/calendar"]+             '["https://www.googleapis.com/auth/calendar",+               "https://www.googleapis.com/auth/calendar.events"]         requestClient EventsUpdate'{..}-          = go _euCalendarId _euEventId _euMaxAttendees+          = go _euCalendarId _euEventId+              _euConferenceDataVersion+              _euMaxAttendees               _euSendNotifications               _euSupportsAttachments+              _euSendUpdates               _euAlwaysIncludeEmail               (Just AltJSON)               _euPayload

@@ -215,6 +215,7 @@ -- The default is not to filter by end time. Must be an RFC3339 timestamp -- with mandatory time zone offset, e.g., 2011-06-03T10:00:00-07:00, -- 2011-06-03T10:00:00Z. Milliseconds may be provided but will be ignored.+-- If timeMax is set, timeMin must be smaller than timeMax. ewTimeMin :: Lens' EventsWatch (Maybe UTCTime) ewTimeMin   = lens _ewTimeMin (\ s a -> s{_ewTimeMin = a}) .@@ -317,9 +318,12 @@   = lens _ewShowHiddenInvitations       (\ s a -> s{_ewShowHiddenInvitations = a}) --- | Maximum number of events returned on one result page. By default the--- value is 250 events. The page size can never be larger than 2500 events.--- Optional.+-- | Maximum number of events returned on one result page. The number of+-- events in the resulting page may be less than this value, or none at+-- all, even if there are more events matching the query. Incomplete pages+-- can be detected by a non-empty nextPageToken field in the response. By+-- default the value is 250 events. The page size can never be larger than+-- 2500 events. Optional. ewMaxResults :: Lens' EventsWatch Int32 ewMaxResults   = lens _ewMaxResults (\ s a -> s{_ewMaxResults = a})@@ -340,7 +344,8 @@ -- Optional. The default is not to filter by start time. Must be an RFC3339 -- timestamp with mandatory time zone offset, e.g., -- 2011-06-03T10:00:00-07:00, 2011-06-03T10:00:00Z. Milliseconds may be--- provided but will be ignored.+-- provided but will be ignored. If timeMin is set, timeMax must be greater+-- than timeMin. ewTimeMax :: Lens' EventsWatch (Maybe UTCTime) ewTimeMax   = lens _ewTimeMax (\ s a -> s{_ewTimeMax = a}) .@@ -350,6 +355,8 @@         type Rs EventsWatch = Channel         type Scopes EventsWatch =              '["https://www.googleapis.com/auth/calendar",+               "https://www.googleapis.com/auth/calendar.events",+               "https://www.googleapis.com/auth/calendar.events.readonly",                "https://www.googleapis.com/auth/calendar.readonly"]         requestClient EventsWatch'{..}           = go _ewCalendarId _ewSyncToken _ewTimeMin _ewOrderBy

@@ -79,7 +79,8 @@         type Rs SettingsGet = Setting         type Scopes SettingsGet =              '["https://www.googleapis.com/auth/calendar",-               "https://www.googleapis.com/auth/calendar.readonly"]+               "https://www.googleapis.com/auth/calendar.readonly",+               "https://www.googleapis.com/auth/calendar.settings.readonly"]         requestClient SettingsGet'{..}           = go _sgSetting (Just AltJSON) appsCalendarService           where go

@@ -109,7 +109,8 @@         type Rs SettingsList = Settings         type Scopes SettingsList =              '["https://www.googleapis.com/auth/calendar",-               "https://www.googleapis.com/auth/calendar.readonly"]+               "https://www.googleapis.com/auth/calendar.readonly",+               "https://www.googleapis.com/auth/calendar.settings.readonly"]         requestClient SettingsList'{..}           = go _slSyncToken _slPageToken _slMaxResults               (Just AltJSON)

@@ -122,7 +122,8 @@         type Rs SettingsWatch = Channel         type Scopes SettingsWatch =              '["https://www.googleapis.com/auth/calendar",-               "https://www.googleapis.com/auth/calendar.readonly"]+               "https://www.googleapis.com/auth/calendar.readonly",+               "https://www.googleapis.com/auth/calendar.settings.readonly"]         requestClient SettingsWatch'{..}           = go _swSyncToken _swPageToken _swMaxResults               (Just AltJSON)

@@ -1,5 +1,5 @@ name:                  gogol-apps-calendar-version:               0.3.0+version:               0.4.0 synopsis:              Google Calendar SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -78,5 +78,5 @@         , Network.Google.AppsCalendar.Types.Sum      build-depends:-          gogol-core == 0.3.0.*+          gogol-core == 0.4.0.*         , base       >= 4.7 && < 5