packages feed

gogol-apps-calendar 0.4.0 → 0.5.0

raw patch · 41 files changed

+646/−420 lines, 41 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description
gen/Network/Google/AppsCalendar/Types.hs view
@@ -490,20 +490,20 @@ -- | 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;+calendarScope = Proxy  -- | View your calendars calendarReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/calendar.readonly"]-calendarReadOnlyScope = Proxy;+calendarReadOnlyScope = Proxy  -- | View and edit events on all your calendars calendarEventsScope :: Proxy '["https://www.googleapis.com/auth/calendar.events"]-calendarEventsScope = Proxy;+calendarEventsScope = Proxy  -- | View your Calendar settings calendarSettingsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/calendar.settings.readonly"]-calendarSettingsReadOnlyScope = Proxy;+calendarSettingsReadOnlyScope = Proxy  -- | View events on all your calendars calendarEventsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/calendar.events.readonly"]-calendarEventsReadOnlyScope = Proxy;+calendarEventsReadOnlyScope = Proxy
gen/Network/Google/AppsCalendar/Types/Product.hs view
@@ -22,7 +22,8 @@  -- -- /See:/ 'calendarListEntry' smart constructor.-data CalendarListEntry = CalendarListEntry'+data CalendarListEntry =+  CalendarListEntry'     { _cleSummary              :: !(Maybe Text)     , _cleConferenceProperties :: !(Maybe ConferenceProperties)     , _cleEtag                 :: !(Maybe Text)@@ -42,8 +43,10 @@     , _cleColorId              :: !(Maybe Text)     , _cleTimeZone             :: !(Maybe Text)     , _cleDescription          :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarListEntry' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -88,7 +91,7 @@ calendarListEntry     :: CalendarListEntry calendarListEntry =-    CalendarListEntry'+  CalendarListEntry'     { _cleSummary = Nothing     , _cleConferenceProperties = Nothing     , _cleEtag = Nothing@@ -110,6 +113,7 @@     , _cleDescription = Nothing     } + -- | Title of the calendar. Read-only. cleSummary :: Lens' CalendarListEntry (Maybe Text) cleSummary@@ -289,10 +293,13 @@  -- -- /See:/ 'conferenceParameters' smart constructor.-newtype ConferenceParameters = ConferenceParameters'+newtype ConferenceParameters =+  ConferenceParameters'     { _cpAddOnParameters :: Maybe ConferenceParametersAddOnParameters-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -300,11 +307,9 @@ -- * 'cpAddOnParameters' conferenceParameters     :: ConferenceParameters-conferenceParameters =-    ConferenceParameters'-    { _cpAddOnParameters = Nothing-    }+conferenceParameters = ConferenceParameters' {_cpAddOnParameters = Nothing} + -- | Additional add-on specific data. cpAddOnParameters :: Lens' ConferenceParameters (Maybe ConferenceParametersAddOnParameters) cpAddOnParameters@@ -325,7 +330,8 @@  -- -- /See:/ 'event' smart constructor.-data Event = Event'+data Event =+  Event'     { _eSummary                 :: !(Maybe Text)     , _eOriginalStartTime       :: !(Maybe EventDateTime)     , _eCreator                 :: !(Maybe EventCreator)@@ -364,8 +370,10 @@     , _eHangoutLink             :: !(Maybe Text)     , _eDescription             :: !(Maybe Text)     , _eOrganizer               :: !(Maybe EventOrganizer)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Event' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -448,7 +456,7 @@ event     :: Event event =-    Event'+  Event'     { _eSummary = Nothing     , _eOriginalStartTime = Nothing     , _eCreator = Nothing@@ -489,6 +497,7 @@     , _eOrganizer = Nothing     } + -- | Title of the event. eSummary :: Lens' Event (Maybe Text) eSummary = lens _eSummary (\ s a -> s{_eSummary = a})@@ -871,10 +880,13 @@ -- calendar. -- -- /See:/ 'calendarListEntryNotificationSettings' smart constructor.-newtype CalendarListEntryNotificationSettings = CalendarListEntryNotificationSettings'+newtype CalendarListEntryNotificationSettings =+  CalendarListEntryNotificationSettings'     { _clensNotifications :: Maybe [CalendarNotification]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarListEntryNotificationSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -883,10 +895,9 @@ calendarListEntryNotificationSettings     :: CalendarListEntryNotificationSettings calendarListEntryNotificationSettings =-    CalendarListEntryNotificationSettings'-    { _clensNotifications = Nothing-    }+  CalendarListEntryNotificationSettings' {_clensNotifications = Nothing} + -- | The list of notifications set for this calendar. clensNotifications :: Lens' CalendarListEntryNotificationSettings [CalendarNotification] clensNotifications@@ -896,7 +907,8 @@       . _Coerce  instance FromJSON-         CalendarListEntryNotificationSettings where+           CalendarListEntryNotificationSettings+         where         parseJSON           = withObject "CalendarListEntryNotificationSettings"               (\ o ->@@ -912,10 +924,13 @@  -- -- /See:/ 'conferenceProperties' smart constructor.-newtype ConferenceProperties = ConferenceProperties'+newtype ConferenceProperties =+  ConferenceProperties'     { _cpAllowedConferenceSolutionTypes :: Maybe [Text]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -924,10 +939,9 @@ conferenceProperties     :: ConferenceProperties conferenceProperties =-    ConferenceProperties'-    { _cpAllowedConferenceSolutionTypes = Nothing-    }+  ConferenceProperties' {_cpAllowedConferenceSolutionTypes = Nothing} + -- | The types of conference solutions that are supported for this calendar. -- The possible values are: - \"eventHangout\" - \"eventNamedHangout\" - -- \"hangoutsMeet\" Optional.@@ -954,12 +968,15 @@  -- -- /See:/ 'conferenceSolution' smart constructor.-data ConferenceSolution = ConferenceSolution'+data ConferenceSolution =+  ConferenceSolution'     { _csIconURI :: !(Maybe Text)     , _csKey     :: !(Maybe ConferenceSolutionKey)     , _csName    :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -972,12 +989,10 @@ conferenceSolution     :: ConferenceSolution conferenceSolution =-    ConferenceSolution'-    { _csIconURI = Nothing-    , _csKey = Nothing-    , _csName = Nothing-    }+  ConferenceSolution'+    {_csIconURI = Nothing, _csKey = Nothing, _csName = Nothing} + -- | The user-visible icon for this solution. csIconURI :: Lens' ConferenceSolution (Maybe Text) csIconURI@@ -1010,11 +1025,14 @@ -- | The scope of the rule. -- -- /See:/ 'aclRuleScope' smart constructor.-data ACLRuleScope = ACLRuleScope'+data ACLRuleScope =+  ACLRuleScope'     { _arsValue :: !(Maybe Text)     , _arsType  :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ACLRuleScope' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1024,12 +1042,9 @@ -- * 'arsType' aclRuleScope     :: ACLRuleScope-aclRuleScope =-    ACLRuleScope'-    { _arsValue = Nothing-    , _arsType = Nothing-    }+aclRuleScope = ACLRuleScope' {_arsValue = Nothing, _arsType = Nothing} + -- | The email address of a user or group, or the name of a domain, depending -- on the scope type. Omitted for type \"default\". arsValue :: Lens' ACLRuleScope (Maybe Text)@@ -1061,10 +1076,13 @@ -- color field. Read-only. -- -- /See:/ 'colorsEvent' smart constructor.-newtype ColorsEvent = ColorsEvent'+newtype ColorsEvent =+  ColorsEvent'     { _ceAddtional :: HashMap Text ColorDefinition-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ColorsEvent' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1074,10 +1092,9 @@     :: HashMap Text ColorDefinition -- ^ 'ceAddtional'     -> ColorsEvent colorsEvent pCeAddtional_ =-    ColorsEvent'-    { _ceAddtional = _Coerce # pCeAddtional_-    }+  ColorsEvent' {_ceAddtional = _Coerce # pCeAddtional_} + -- | An event color definition. ceAddtional :: Lens' ColorsEvent (HashMap Text ColorDefinition) ceAddtional@@ -1094,14 +1111,17 @@  -- -- /See:/ 'settings' smart constructor.-data Settings = Settings'+data Settings =+  Settings'     { _sEtag          :: !(Maybe Text)     , _sNextPageToken :: !(Maybe Text)     , _sKind          :: !Text     , _sItems         :: !(Maybe [Setting])     , _sNextSyncToken :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Settings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1118,7 +1138,7 @@ settings     :: Settings settings =-    Settings'+  Settings'     { _sEtag = Nothing     , _sNextPageToken = Nothing     , _sKind = "calendar#settings"@@ -1126,6 +1146,7 @@     , _sNextSyncToken = Nothing     } + -- | Etag of the collection. sEtag :: Lens' Settings (Maybe Text) sEtag = lens _sEtag (\ s a -> s{_sEtag = a})@@ -1176,10 +1197,13 @@  -- -- /See:/ 'freeBusyRequestItem' smart constructor.-newtype FreeBusyRequestItem = FreeBusyRequestItem'+newtype FreeBusyRequestItem =+  FreeBusyRequestItem'     { _fbriId :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FreeBusyRequestItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1187,11 +1211,9 @@ -- * 'fbriId' freeBusyRequestItem     :: FreeBusyRequestItem-freeBusyRequestItem =-    FreeBusyRequestItem'-    { _fbriId = Nothing-    }+freeBusyRequestItem = FreeBusyRequestItem' {_fbriId = Nothing} + -- | The identifier of a calendar or a group. fbriId :: Lens' FreeBusyRequestItem (Maybe Text) fbriId = lens _fbriId (\ s a -> s{_fbriId = a})@@ -1207,14 +1229,17 @@  -- -- /See:/ 'eventAttachment' smart constructor.-data EventAttachment = EventAttachment'+data EventAttachment =+  EventAttachment'     { _eaFileURL  :: !(Maybe Text)     , _eaIconLink :: !(Maybe Text)     , _eaMimeType :: !(Maybe Text)     , _eaTitle    :: !(Maybe Text)     , _eaFileId   :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventAttachment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1231,7 +1256,7 @@ eventAttachment     :: EventAttachment eventAttachment =-    EventAttachment'+  EventAttachment'     { _eaFileURL = Nothing     , _eaIconLink = Nothing     , _eaMimeType = Nothing@@ -1239,6 +1264,7 @@     , _eaFileId = Nothing     } + -- | 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. Required when adding an attachment.@@ -1287,7 +1313,8 @@  -- -- /See:/ 'entryPoint' smart constructor.-data EntryPoint = EntryPoint'+data EntryPoint =+  EntryPoint'     { _epPasscode           :: !(Maybe Text)     , _epRegionCode         :: !(Maybe Text)     , _epURI                :: !(Maybe Text)@@ -1298,8 +1325,10 @@     , _epEntryPointType     :: !(Maybe Text)     , _epLabel              :: !(Maybe Text)     , _epAccessCode         :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -1326,7 +1355,7 @@ entryPoint     :: EntryPoint entryPoint =-    EntryPoint'+  EntryPoint'     { _epPasscode = Nothing     , _epRegionCode = Nothing     , _epURI = Nothing@@ -1339,6 +1368,7 @@     , _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@@ -1463,11 +1493,14 @@  -- -- /See:/ 'timePeriod' smart constructor.-data TimePeriod = TimePeriod'+data TimePeriod =+  TimePeriod'     { _tpStart :: !(Maybe DateTime')     , _tpEnd   :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TimePeriod' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1477,12 +1510,9 @@ -- * 'tpEnd' timePeriod     :: TimePeriod-timePeriod =-    TimePeriod'-    { _tpStart = Nothing-    , _tpEnd = Nothing-    }+timePeriod = TimePeriod' {_tpStart = Nothing, _tpEnd = Nothing} + -- | The (inclusive) start of the time period. tpStart :: Lens' TimePeriod (Maybe UTCTime) tpStart@@ -1509,10 +1539,13 @@  -- -- /See:/ 'conferenceSolutionKey' smart constructor.-newtype ConferenceSolutionKey = ConferenceSolutionKey'+newtype ConferenceSolutionKey =+  ConferenceSolutionKey'     { _cskType :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -1520,11 +1553,9 @@ -- * 'cskType' conferenceSolutionKey     :: ConferenceSolutionKey-conferenceSolutionKey =-    ConferenceSolutionKey'-    { _cskType = Nothing-    }+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: -@@ -1547,13 +1578,16 @@ -- | The creator of the event. Read-only. -- -- /See:/ 'eventCreator' smart constructor.-data EventCreator = EventCreator'+data EventCreator =+  EventCreator'     { _ecEmail       :: !(Maybe Text)     , _ecSelf        :: !Bool     , _ecDisplayName :: !(Maybe Text)     , _ecId          :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventCreator' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1568,13 +1602,14 @@ eventCreator     :: EventCreator eventCreator =-    EventCreator'+  EventCreator'     { _ecEmail = Nothing     , _ecSelf = False     , _ecDisplayName = Nothing     , _ecId = Nothing     } + -- | The creator\'s email address, if available. ecEmail :: Lens' EventCreator (Maybe Text) ecEmail = lens _ecEmail (\ s a -> s{_ecEmail = a})@@ -1614,11 +1649,14 @@  -- -- /See:/ 'error'' smart constructor.-data Error' = Error''+data Error' =+  Error''     { _eDomain :: !(Maybe Text)     , _eReason :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Error' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1628,12 +1666,9 @@ -- * 'eReason' error'     :: Error'-error' =-    Error''-    { _eDomain = Nothing-    , _eReason = Nothing-    }+error' = Error'' {_eDomain = Nothing, _eReason = Nothing} + -- | Domain, or broad category, of the error. eDomain :: Lens' Error' (Maybe Text) eDomain = lens _eDomain (\ s a -> s{_eDomain = a})@@ -1664,11 +1699,14 @@  -- -- /See:/ 'colorDefinition' smart constructor.-data ColorDefinition = ColorDefinition'+data ColorDefinition =+  ColorDefinition'     { _cdForegRound :: !(Maybe Text)     , _cdBackgRound :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ColorDefinition' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1679,11 +1717,9 @@ colorDefinition     :: ColorDefinition colorDefinition =-    ColorDefinition'-    { _cdForegRound = Nothing-    , _cdBackgRound = Nothing-    }+  ColorDefinition' {_cdForegRound = Nothing, _cdBackgRound = Nothing} + -- | The foreground color that can be used to write on top of a background -- with \'background\' color. cdForegRound :: Lens' ColorDefinition (Maybe Text)@@ -1711,7 +1747,8 @@  -- -- /See:/ 'channel' smart constructor.-data Channel = Channel'+data Channel =+  Channel'     { _cResourceURI :: !(Maybe Text)     , _cResourceId  :: !(Maybe Text)     , _cKind        :: !Text@@ -1722,8 +1759,10 @@     , _cParams      :: !(Maybe ChannelParams)     , _cId          :: !(Maybe Text)     , _cType        :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Channel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1750,7 +1789,7 @@ channel     :: Channel channel =-    Channel'+  Channel'     { _cResourceURI = Nothing     , _cResourceId = Nothing     , _cKind = "api#channel"@@ -1763,6 +1802,7 @@     , _cType = Nothing     } + -- | A version-specific identifier for the watched resource. cResourceURI :: Lens' Channel (Maybe Text) cResourceURI@@ -1842,10 +1882,13 @@  -- -- /See:/ 'conferenceRequestStatus' smart constructor.-newtype ConferenceRequestStatus = ConferenceRequestStatus'+newtype ConferenceRequestStatus =+  ConferenceRequestStatus'     { _crsStatusCode :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -1853,11 +1896,9 @@ -- * 'crsStatusCode' conferenceRequestStatus     :: ConferenceRequestStatus-conferenceRequestStatus =-    ConferenceRequestStatus'-    { _crsStatusCode = Nothing-    }+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@@ -1881,11 +1922,14 @@  -- -- /See:/ 'freeBusyCalendar' smart constructor.-data FreeBusyCalendar = FreeBusyCalendar'+data FreeBusyCalendar =+  FreeBusyCalendar'     { _fbcBusy   :: !(Maybe [TimePeriod])     , _fbcErrors :: !(Maybe [Error'])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FreeBusyCalendar' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1895,12 +1939,9 @@ -- * 'fbcErrors' freeBusyCalendar     :: FreeBusyCalendar-freeBusyCalendar =-    FreeBusyCalendar'-    { _fbcBusy = Nothing-    , _fbcErrors = Nothing-    }+freeBusyCalendar = FreeBusyCalendar' {_fbcBusy = Nothing, _fbcErrors = Nothing} + -- | List of time ranges during which this calendar should be regarded as -- busy. fbcBusy :: Lens' FreeBusyCalendar [TimePeriod]@@ -1932,7 +1973,8 @@  -- -- /See:/ 'conferenceData' smart constructor.-data ConferenceData = ConferenceData'+data ConferenceData =+  ConferenceData'     { _cdSignature          :: !(Maybe Text)     , _cdConferenceSolution :: !(Maybe ConferenceSolution)     , _cdCreateRequest      :: !(Maybe CreateConferenceRequest)@@ -1940,8 +1982,10 @@     , _cdParameters         :: !(Maybe ConferenceParameters)     , _cdNotes              :: !(Maybe Text)     , _cdEntryPoints        :: !(Maybe [EntryPoint])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -1962,7 +2006,7 @@ conferenceData     :: ConferenceData conferenceData =-    ConferenceData'+  ConferenceData'     { _cdSignature = Nothing     , _cdConferenceSolution = Nothing     , _cdCreateRequest = Nothing@@ -1972,6 +2016,7 @@     , _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@@ -2057,13 +2102,16 @@  -- -- /See:/ 'setting' smart constructor.-data Setting = Setting'+data Setting =+  Setting'     { _setEtag  :: !(Maybe Text)     , _setKind  :: !Text     , _setValue :: !(Maybe Text)     , _setId    :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Setting' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2078,13 +2126,14 @@ setting     :: Setting setting =-    Setting'+  Setting'     { _setEtag = Nothing     , _setKind = "calendar#setting"     , _setValue = Nothing     , _setId = Nothing     } + -- | ETag of the resource. setEtag :: Lens' Setting (Maybe Text) setEtag = lens _setEtag (\ s a -> s{_setEtag = a})@@ -2123,10 +2172,13 @@ -- | Expansion of groups. -- -- /See:/ 'freeBusyResponseGroups' smart constructor.-newtype FreeBusyResponseGroups = FreeBusyResponseGroups'+newtype FreeBusyResponseGroups =+  FreeBusyResponseGroups'     { _fbrgAddtional :: HashMap Text FreeBusyGroup-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FreeBusyResponseGroups' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2136,10 +2188,9 @@     :: HashMap Text FreeBusyGroup -- ^ 'fbrgAddtional'     -> FreeBusyResponseGroups freeBusyResponseGroups pFbrgAddtional_ =-    FreeBusyResponseGroups'-    { _fbrgAddtional = _Coerce # pFbrgAddtional_-    }+  FreeBusyResponseGroups' {_fbrgAddtional = _Coerce # pFbrgAddtional_} + -- | List of calendars that are members of this group. fbrgAddtional :: Lens' FreeBusyResponseGroups (HashMap Text FreeBusyGroup) fbrgAddtional@@ -2159,11 +2210,14 @@ -- | Information about the event\'s reminders for the authenticated user. -- -- /See:/ 'eventReminders' smart constructor.-data EventReminders = EventReminders'+data EventReminders =+  EventReminders'     { _erOverrides  :: !(Maybe [EventReminder])     , _erUseDefault :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventReminders' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2174,11 +2228,9 @@ eventReminders     :: EventReminders eventReminders =-    EventReminders'-    { _erOverrides = Nothing-    , _erUseDefault = Nothing-    }+  EventReminders' {_erOverrides = Nothing, _erUseDefault = Nothing} + -- | If the event doesn\'t use the default reminders, this lists the -- reminders specific to the event, or, if not set, indicates that no -- reminders are set for this event. The maximum number of override@@ -2214,10 +2266,13 @@ -- IDs in its color field. Read-only. -- -- /See:/ 'colorsCalendar' smart constructor.-newtype ColorsCalendar = ColorsCalendar'+newtype ColorsCalendar =+  ColorsCalendar'     { _ccAddtional :: HashMap Text ColorDefinition-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ColorsCalendar' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2227,10 +2282,9 @@     :: HashMap Text ColorDefinition -- ^ 'ccAddtional'     -> ColorsCalendar colorsCalendar pCcAddtional_ =-    ColorsCalendar'-    { _ccAddtional = _Coerce # pCcAddtional_-    }+  ColorsCalendar' {_ccAddtional = _Coerce # pCcAddtional_} + -- | A calendar color defintion. ccAddtional :: Lens' ColorsCalendar (HashMap Text ColorDefinition) ccAddtional@@ -2247,10 +2301,13 @@  -- -- /See:/ 'conferenceParametersAddOnParametersParameters' smart constructor.-newtype ConferenceParametersAddOnParametersParameters = ConferenceParametersAddOnParametersParameters'+newtype ConferenceParametersAddOnParametersParameters =+  ConferenceParametersAddOnParametersParameters'     { _cpaoppAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -2260,10 +2317,10 @@     :: HashMap Text Text -- ^ 'cpaoppAddtional'     -> ConferenceParametersAddOnParametersParameters conferenceParametersAddOnParametersParameters pCpaoppAddtional_ =-    ConferenceParametersAddOnParametersParameters'-    { _cpaoppAddtional = _Coerce # pCpaoppAddtional_-    }+  ConferenceParametersAddOnParametersParameters'+    {_cpaoppAddtional = _Coerce # pCpaoppAddtional_} + cpaoppAddtional :: Lens' ConferenceParametersAddOnParametersParameters (HashMap Text Text) cpaoppAddtional   = lens _cpaoppAddtional@@ -2271,7 +2328,8 @@       . _Coerce  instance FromJSON-         ConferenceParametersAddOnParametersParameters where+           ConferenceParametersAddOnParametersParameters+         where         parseJSON           = withObject               "ConferenceParametersAddOnParametersParameters"@@ -2280,16 +2338,20 @@                    (parseJSONObject o))  instance ToJSON-         ConferenceParametersAddOnParametersParameters where+           ConferenceParametersAddOnParametersParameters+         where         toJSON = toJSON . _cpaoppAddtional  -- -- /See:/ 'calendarNotification' smart constructor.-data CalendarNotification = CalendarNotification'+data CalendarNotification =+  CalendarNotification'     { _cnMethod :: !(Maybe Text)     , _cnType   :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarNotification' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2300,11 +2362,9 @@ calendarNotification     :: CalendarNotification calendarNotification =-    CalendarNotification'-    { _cnMethod = Nothing-    , _cnType = Nothing-    }+  CalendarNotification' {_cnMethod = Nothing, _cnType = Nothing} + -- | The method used to deliver the notification. Possible values are: - -- \"email\" - Notifications are sent via email. - \"sms\" - Deprecated. -- Once this feature is shutdown, the API will no longer return@@ -2344,10 +2404,13 @@ -- this calendar. -- -- /See:/ 'eventExtendedPropertiesPrivate' smart constructor.-newtype EventExtendedPropertiesPrivate = EventExtendedPropertiesPrivate'+newtype EventExtendedPropertiesPrivate =+  EventExtendedPropertiesPrivate'     { _eeppAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventExtendedPropertiesPrivate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2357,10 +2420,9 @@     :: HashMap Text Text -- ^ 'eeppAddtional'     -> EventExtendedPropertiesPrivate eventExtendedPropertiesPrivate pEeppAddtional_ =-    EventExtendedPropertiesPrivate'-    { _eeppAddtional = _Coerce # pEeppAddtional_-    }+  EventExtendedPropertiesPrivate' {_eeppAddtional = _Coerce # pEeppAddtional_} + -- | The name of the private property and the corresponding value. eeppAddtional :: Lens' EventExtendedPropertiesPrivate (HashMap Text Text) eeppAddtional@@ -2382,10 +2444,13 @@ -- | Additional parameters controlling delivery channel behavior. Optional. -- -- /See:/ 'channelParams' smart constructor.-newtype ChannelParams = ChannelParams'+newtype ChannelParams =+  ChannelParams'     { _cpAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChannelParams' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2395,10 +2460,9 @@     :: HashMap Text Text -- ^ 'cpAddtional'     -> ChannelParams channelParams pCpAddtional_ =-    ChannelParams'-    { _cpAddtional = _Coerce # pCpAddtional_-    }+  ChannelParams' {_cpAddtional = _Coerce # pCpAddtional_} + -- | Declares a new parameter by name. cpAddtional :: Lens' ChannelParams (HashMap Text Text) cpAddtional@@ -2415,7 +2479,8 @@  -- -- /See:/ 'events' smart constructor.-data Events = Events'+data Events =+  Events'     { _eveSummary          :: !(Maybe Text)     , _eveEtag             :: !(Maybe Text)     , _eveNextPageToken    :: !(Maybe Text)@@ -2427,8 +2492,10 @@     , _eveTimeZone         :: !(Maybe Text)     , _eveNextSyncToken    :: !(Maybe Text)     , _eveDescription      :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Events' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2457,7 +2524,7 @@ events     :: Events events =-    Events'+  Events'     { _eveSummary = Nothing     , _eveEtag = Nothing     , _eveNextPageToken = Nothing@@ -2471,6 +2538,7 @@     , _eveDescription = Nothing     } + -- | Title of the calendar. Read-only. eveSummary :: Lens' Events (Maybe Text) eveSummary@@ -2583,7 +2651,8 @@  -- -- /See:/ 'eventAttendee' smart constructor.-data EventAttendee = EventAttendee'+data EventAttendee =+  EventAttendee'     { _eaEmail            :: !(Maybe Text)     , _eaResponseStatus   :: !(Maybe Text)     , _eaSelf             :: !Bool@@ -2594,8 +2663,10 @@     , _eaComment          :: !(Maybe Text)     , _eaOptional         :: !Bool     , _eaOrganizer        :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventAttendee' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2622,7 +2693,7 @@ eventAttendee     :: EventAttendee eventAttendee =-    EventAttendee'+  EventAttendee'     { _eaEmail = Nothing     , _eaResponseStatus = Nothing     , _eaSelf = False@@ -2635,6 +2706,7 @@     , _eaOrganizer = Nothing     } + -- | 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. Required when adding an attendee.@@ -2728,7 +2800,8 @@  -- -- /See:/ 'calendar' smart constructor.-data Calendar = Calendar'+data Calendar =+  Calendar'     { _calSummary              :: !(Maybe Text)     , _calConferenceProperties :: !(Maybe ConferenceProperties)     , _calEtag                 :: !(Maybe Text)@@ -2737,8 +2810,10 @@     , _calId                   :: !(Maybe Text)     , _calTimeZone             :: !(Maybe Text)     , _calDescription          :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Calendar' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2761,7 +2836,7 @@ calendar     :: Calendar calendar =-    Calendar'+  Calendar'     { _calSummary = Nothing     , _calConferenceProperties = Nothing     , _calEtag = Nothing@@ -2772,6 +2847,7 @@     , _calDescription = Nothing     } + -- | Title of the calendar. calSummary :: Lens' Calendar (Maybe Text) calSummary@@ -2842,14 +2918,17 @@  -- -- /See:/ 'freeBusyResponse' smart constructor.-data FreeBusyResponse = FreeBusyResponse'+data FreeBusyResponse =+  FreeBusyResponse'     { _fbrGroups    :: !(Maybe FreeBusyResponseGroups)     , _fbrTimeMin   :: !(Maybe DateTime')     , _fbrKind      :: !Text     , _fbrCalendars :: !(Maybe FreeBusyResponseCalendars)     , _fbrTimeMax   :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FreeBusyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2866,7 +2945,7 @@ freeBusyResponse     :: FreeBusyResponse freeBusyResponse =-    FreeBusyResponse'+  FreeBusyResponse'     { _fbrGroups = Nothing     , _fbrTimeMin = Nothing     , _fbrKind = "calendar#freeBusy"@@ -2874,6 +2953,7 @@     , _fbrTimeMax = Nothing     } + -- | Expansion of groups. fbrGroups :: Lens' FreeBusyResponse (Maybe FreeBusyResponseGroups) fbrGroups@@ -2922,11 +3002,14 @@  -- -- /See:/ 'eventReminder' smart constructor.-data EventReminder = EventReminder'+data EventReminder =+  EventReminder'     { _erMethod  :: !(Maybe Text)     , _erMinutes :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventReminder' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2936,12 +3019,9 @@ -- * 'erMinutes' eventReminder     :: EventReminder-eventReminder =-    EventReminder'-    { _erMethod = Nothing-    , _erMinutes = Nothing-    }+eventReminder = EventReminder' {_erMethod = Nothing, _erMinutes = Nothing} + -- | The method used by this reminder. Possible values are: - \"email\" - -- Reminders are sent via email. - \"sms\" - Deprecated. Once this feature -- is shutdown, the API will no longer return reminders using this method.@@ -2978,11 +3058,14 @@ -- | Extended properties of the event. -- -- /See:/ 'eventExtendedProperties' smart constructor.-data EventExtendedProperties = EventExtendedProperties'+data EventExtendedProperties =+  EventExtendedProperties'     { _eepPrivate :: !(Maybe EventExtendedPropertiesPrivate)     , _eepShared  :: !(Maybe EventExtendedPropertiesShared)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventExtendedProperties' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2993,11 +3076,9 @@ eventExtendedProperties     :: EventExtendedProperties eventExtendedProperties =-    EventExtendedProperties'-    { _eepPrivate = Nothing-    , _eepShared = Nothing-    }+  EventExtendedProperties' {_eepPrivate = Nothing, _eepShared = Nothing} + -- | Properties that are private to the copy of the event that appears on -- this calendar. eepPrivate :: Lens' EventExtendedProperties (Maybe EventExtendedPropertiesPrivate)@@ -3026,12 +3107,15 @@  -- -- /See:/ 'eventDateTime' smart constructor.-data EventDateTime = EventDateTime'+data EventDateTime =+  EventDateTime'     { _edtDate     :: !(Maybe Date')     , _edtTimeZone :: !(Maybe Text)     , _edtDateTime :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventDateTime' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -3044,12 +3128,10 @@ eventDateTime     :: EventDateTime eventDateTime =-    EventDateTime'-    { _edtDate = Nothing-    , _edtTimeZone = Nothing-    , _edtDateTime = Nothing-    }+  EventDateTime'+    {_edtDate = Nothing, _edtTimeZone = Nothing, _edtDateTime = Nothing} + -- | The date, in the format \"yyyy-mm-dd\", if this is an all-day event. edtDate :: Lens' EventDateTime (Maybe Day) edtDate@@ -3095,13 +3177,16 @@ -- except when importing an event. -- -- /See:/ 'eventOrganizer' smart constructor.-data EventOrganizer = EventOrganizer'+data EventOrganizer =+  EventOrganizer'     { _eoEmail       :: !(Maybe Text)     , _eoSelf        :: !Bool     , _eoDisplayName :: !(Maybe Text)     , _eoId          :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventOrganizer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -3116,13 +3201,14 @@ eventOrganizer     :: EventOrganizer eventOrganizer =-    EventOrganizer'+  EventOrganizer'     { _eoEmail = Nothing     , _eoSelf = False     , _eoDisplayName = Nothing     , _eoId = Nothing     } + -- | The organizer\'s email address, if available. It must be a valid email -- address as per RFC5322. eoEmail :: Lens' EventOrganizer (Maybe Text)@@ -3163,14 +3249,17 @@  -- -- /See:/ 'calendarList' smart constructor.-data CalendarList = CalendarList'+data CalendarList =+  CalendarList'     { _clEtag          :: !(Maybe Text)     , _clNextPageToken :: !(Maybe Text)     , _clKind          :: !Text     , _clItems         :: !(Maybe [CalendarListEntry])     , _clNextSyncToken :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -3187,7 +3276,7 @@ calendarList     :: CalendarList calendarList =-    CalendarList'+  CalendarList'     { _clEtag = Nothing     , _clNextPageToken = Nothing     , _clKind = "calendar#calendarList"@@ -3195,6 +3284,7 @@     , _clNextSyncToken = Nothing     } + -- | ETag of the collection. clEtag :: Lens' CalendarList (Maybe Text) clEtag = lens _clEtag (\ s a -> s{_clEtag = a})@@ -3246,7 +3336,8 @@ -- | A gadget that extends this event. -- -- /See:/ 'eventGadget' smart constructor.-data EventGadget = EventGadget'+data EventGadget =+  EventGadget'     { _egHeight      :: !(Maybe (Textual Int32))     , _egDisplay     :: !(Maybe Text)     , _egPreferences :: !(Maybe EventGadgetPreferences)@@ -3255,8 +3346,10 @@     , _egWidth       :: !(Maybe (Textual Int32))     , _egTitle       :: !(Maybe Text)     , _egType        :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventGadget' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -3279,7 +3372,7 @@ eventGadget     :: EventGadget eventGadget =-    EventGadget'+  EventGadget'     { _egHeight = Nothing     , _egDisplay = Nothing     , _egPreferences = Nothing@@ -3290,6 +3383,7 @@     , _egType = Nothing     } + -- | The gadget\'s height in pixels. The height must be an integer greater -- than 0. Optional. egHeight :: Lens' EventGadget (Maybe Int32)@@ -3362,10 +3456,13 @@ -- | Preferences. -- -- /See:/ 'eventGadgetPreferences' smart constructor.-newtype EventGadgetPreferences = EventGadgetPreferences'+newtype EventGadgetPreferences =+  EventGadgetPreferences'     { _egpAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventGadgetPreferences' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -3375,10 +3472,9 @@     :: HashMap Text Text -- ^ 'egpAddtional'     -> EventGadgetPreferences eventGadgetPreferences pEgpAddtional_ =-    EventGadgetPreferences'-    { _egpAddtional = _Coerce # pEgpAddtional_-    }+  EventGadgetPreferences' {_egpAddtional = _Coerce # pEgpAddtional_} + -- | The preference name and corresponding value. egpAddtional :: Lens' EventGadgetPreferences (HashMap Text Text) egpAddtional@@ -3396,15 +3492,18 @@  -- -- /See:/ 'freeBusyRequest' smart constructor.-data FreeBusyRequest = FreeBusyRequest'+data FreeBusyRequest =+  FreeBusyRequest'     { _fCalendarExpansionMax :: !(Maybe (Textual Int32))     , _fTimeMin              :: !(Maybe DateTime')     , _fItems                :: !(Maybe [FreeBusyRequestItem])     , _fGroupExpansionMax    :: !(Maybe (Textual Int32))     , _fTimeZone             :: !Text     , _fTimeMax              :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FreeBusyRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -3423,7 +3522,7 @@ freeBusyRequest     :: FreeBusyRequest freeBusyRequest =-    FreeBusyRequest'+  FreeBusyRequest'     { _fCalendarExpansionMax = Nothing     , _fTimeMin = Nothing     , _fItems = Nothing@@ -3432,6 +3531,7 @@     , _fTimeMax = Nothing     } + -- | Maximal number of calendars for which FreeBusy information is to be -- provided. Optional. Maximum value is 50. fCalendarExpansionMax :: Lens' FreeBusyRequest (Maybe Int32)@@ -3497,14 +3597,17 @@  -- -- /See:/ 'aclRule' smart constructor.-data ACLRule = ACLRule'+data ACLRule =+  ACLRule'     { _arEtag  :: !(Maybe Text)     , _arKind  :: !Text     , _arRole  :: !(Maybe Text)     , _arScope :: !(Maybe ACLRuleScope)     , _arId    :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ACLRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -3521,7 +3624,7 @@ aclRule     :: ACLRule aclRule =-    ACLRule'+  ACLRule'     { _arEtag = Nothing     , _arKind = "calendar#aclRule"     , _arRole = Nothing@@ -3529,6 +3632,7 @@     , _arId = Nothing     } + -- | ETag of the resource. arEtag :: Lens' ACLRule (Maybe Text) arEtag = lens _arEtag (\ s a -> s{_arEtag = a})@@ -3578,12 +3682,15 @@  -- -- /See:/ 'createConferenceRequest' smart constructor.-data CreateConferenceRequest = CreateConferenceRequest'+data CreateConferenceRequest =+  CreateConferenceRequest'     { _ccrStatus                :: !(Maybe ConferenceRequestStatus)     , _ccrRequestId             :: !(Maybe Text)     , _ccrConferenceSolutionKey :: !(Maybe ConferenceSolutionKey)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -3596,12 +3703,13 @@ createConferenceRequest     :: CreateConferenceRequest createConferenceRequest =-    CreateConferenceRequest'+  CreateConferenceRequest'     { _ccrStatus = Nothing     , _ccrRequestId = Nothing     , _ccrConferenceSolutionKey = Nothing     } + -- | The status of the conference create request. ccrStatus :: Lens' CreateConferenceRequest (Maybe ConferenceRequestStatus) ccrStatus@@ -3641,10 +3749,13 @@ -- attendees\' calendars. -- -- /See:/ 'eventExtendedPropertiesShared' smart constructor.-newtype EventExtendedPropertiesShared = EventExtendedPropertiesShared'+newtype EventExtendedPropertiesShared =+  EventExtendedPropertiesShared'     { _eepsAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventExtendedPropertiesShared' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -3654,10 +3765,9 @@     :: HashMap Text Text -- ^ 'eepsAddtional'     -> EventExtendedPropertiesShared eventExtendedPropertiesShared pEepsAddtional_ =-    EventExtendedPropertiesShared'-    { _eepsAddtional = _Coerce # pEepsAddtional_-    }+  EventExtendedPropertiesShared' {_eepsAddtional = _Coerce # pEepsAddtional_} + -- | The name of the shared property and the corresponding value. eepsAddtional :: Lens' EventExtendedPropertiesShared (HashMap Text Text) eepsAddtional@@ -3678,10 +3788,13 @@ -- | List of free\/busy information for calendars. -- -- /See:/ 'freeBusyResponseCalendars' smart constructor.-newtype FreeBusyResponseCalendars = FreeBusyResponseCalendars'+newtype FreeBusyResponseCalendars =+  FreeBusyResponseCalendars'     { _fbrcAddtional :: HashMap Text FreeBusyCalendar-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FreeBusyResponseCalendars' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -3691,10 +3804,9 @@     :: HashMap Text FreeBusyCalendar -- ^ 'fbrcAddtional'     -> FreeBusyResponseCalendars freeBusyResponseCalendars pFbrcAddtional_ =-    FreeBusyResponseCalendars'-    { _fbrcAddtional = _Coerce # pFbrcAddtional_-    }+  FreeBusyResponseCalendars' {_fbrcAddtional = _Coerce # pFbrcAddtional_} + -- | Free\/busy expansions for a single calendar. fbrcAddtional :: Lens' FreeBusyResponseCalendars (HashMap Text FreeBusyCalendar) fbrcAddtional@@ -3713,14 +3825,17 @@  -- -- /See:/ 'acl' smart constructor.-data ACL = ACL'+data ACL =+  ACL'     { _aEtag          :: !(Maybe Text)     , _aNextPageToken :: !(Maybe Text)     , _aKind          :: !Text     , _aItems         :: !(Maybe [ACLRule])     , _aNextSyncToken :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ACL' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -3737,7 +3852,7 @@ acl     :: ACL acl =-    ACL'+  ACL'     { _aEtag = Nothing     , _aNextPageToken = Nothing     , _aKind = "calendar#acl"@@ -3745,6 +3860,7 @@     , _aNextSyncToken = Nothing     } + -- | ETag of the collection. aEtag :: Lens' ACL (Maybe Text) aEtag = lens _aEtag (\ s a -> s{_aEtag = a})@@ -3795,13 +3911,16 @@  -- -- /See:/ 'colors' smart constructor.-data Colors = Colors'+data Colors =+  Colors'     { _colEvent    :: !(Maybe ColorsEvent)     , _colKind     :: !Text     , _colCalendar :: !(Maybe ColorsCalendar)     , _colUpdated  :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Colors' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -3816,13 +3935,14 @@ colors     :: Colors colors =-    Colors'+  Colors'     { _colEvent = Nothing     , _colKind = "calendar#colors"     , _colCalendar = Nothing     , _colUpdated = Nothing     } + -- | A global palette of event colors, mapping from the color ID to its -- definition. An event resource may refer to one of these color IDs in its -- color field. Read-only.@@ -3868,11 +3988,14 @@  -- -- /See:/ 'freeBusyGroup' smart constructor.-data FreeBusyGroup = FreeBusyGroup'+data FreeBusyGroup =+  FreeBusyGroup'     { _fbgCalendars :: !(Maybe [Text])     , _fbgErrors    :: !(Maybe [Error'])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FreeBusyGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -3882,12 +4005,9 @@ -- * 'fbgErrors' freeBusyGroup     :: FreeBusyGroup-freeBusyGroup =-    FreeBusyGroup'-    { _fbgCalendars = Nothing-    , _fbgErrors = Nothing-    }+freeBusyGroup = FreeBusyGroup' {_fbgCalendars = Nothing, _fbgErrors = Nothing} + -- | List of calendars\' identifiers within a group. fbgCalendars :: Lens' FreeBusyGroup [Text] fbgCalendars@@ -3919,10 +4039,13 @@  -- -- /See:/ 'conferenceParametersAddOnParameters' smart constructor.-newtype ConferenceParametersAddOnParameters = ConferenceParametersAddOnParameters'+newtype ConferenceParametersAddOnParameters =+  ConferenceParametersAddOnParameters'     { _cpaopParameters :: Maybe ConferenceParametersAddOnParametersParameters-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -3931,10 +4054,9 @@ conferenceParametersAddOnParameters     :: ConferenceParametersAddOnParameters conferenceParametersAddOnParameters =-    ConferenceParametersAddOnParameters'-    { _cpaopParameters = Nothing-    }+  ConferenceParametersAddOnParameters' {_cpaopParameters = Nothing} + cpaopParameters :: Lens' ConferenceParametersAddOnParameters (Maybe ConferenceParametersAddOnParametersParameters) cpaopParameters   = lens _cpaopParameters@@ -3959,11 +4081,14 @@ -- scheme. Can only be seen or modified by the creator of the event. -- -- /See:/ 'eventSource' smart constructor.-data EventSource = EventSource'+data EventSource =+  EventSource'     { _esURL   :: !(Maybe Text)     , _esTitle :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventSource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -3973,11 +4098,8 @@ -- * 'esTitle' eventSource     :: EventSource-eventSource =-    EventSource'-    { _esURL = Nothing-    , _esTitle = Nothing-    }+eventSource = EventSource' {_esURL = Nothing, _esTitle = Nothing}+  -- | URL of the source pointing to a resource. The URL scheme must be HTTP or -- HTTPS.
gen/Network/Google/Resource/Calendar/ACL/Delete.hs view
@@ -54,11 +54,14 @@ -- | Deletes an access control rule. -- -- /See:/ 'aclDelete' smart constructor.-data ACLDelete = ACLDelete'+data ACLDelete =+  ACLDelete'     { _adCalendarId :: !Text     , _adRuleId     :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ACLDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Text -- ^ 'adRuleId'     -> ACLDelete aclDelete pAdCalendarId_ pAdRuleId_ =-    ACLDelete'-    { _adCalendarId = pAdCalendarId_-    , _adRuleId = pAdRuleId_-    }+  ACLDelete' {_adCalendarId = pAdCalendarId_, _adRuleId = pAdRuleId_}+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/ACL/Get.hs view
@@ -54,11 +54,14 @@ -- | Returns an access control rule. -- -- /See:/ 'aclGet' smart constructor.-data ACLGet = ACLGet'+data ACLGet =+  ACLGet'     { _agCalendarId :: !Text     , _agRuleId     :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ACLGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Text -- ^ 'agRuleId'     -> ACLGet aclGet pAgCalendarId_ pAgRuleId_ =-    ACLGet'-    { _agCalendarId = pAgCalendarId_-    , _agRuleId = pAgRuleId_-    }+  ACLGet' {_agCalendarId = pAgCalendarId_, _agRuleId = pAgRuleId_}+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/ACL/Insert.hs view
@@ -56,12 +56,15 @@ -- | Creates an access control rule. -- -- /See:/ 'aclInsert' smart constructor.-data ACLInsert = ACLInsert'+data ACLInsert =+  ACLInsert'     { _aiCalendarId        :: !Text     , _aiPayload           :: !ACLRule     , _aiSendNotifications :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ACLInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,11 +79,12 @@     -> ACLRule -- ^ 'aiPayload'     -> ACLInsert aclInsert pAiCalendarId_ pAiPayload_ =-    ACLInsert'+  ACLInsert'     { _aiCalendarId = pAiCalendarId_     , _aiPayload = pAiPayload_     , _aiSendNotifications = Nothing     }+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/ACL/List.hs view
@@ -60,14 +60,17 @@ -- | Returns the rules in the access control list for the calendar. -- -- /See:/ 'aclList' smart constructor.-data ACLList = ACLList'+data ACLList =+  ACLList'     { _alSyncToken   :: !(Maybe Text)     , _alCalendarId  :: !Text     , _alShowDeleted :: !(Maybe Bool)     , _alPageToken   :: !(Maybe Text)     , _alMaxResults  :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ACLList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -85,13 +88,14 @@     :: Text -- ^ 'alCalendarId'     -> ACLList aclList pAlCalendarId_ =-    ACLList'+  ACLList'     { _alSyncToken = Nothing     , _alCalendarId = pAlCalendarId_     , _alShowDeleted = Nothing     , _alPageToken = Nothing     , _alMaxResults = Nothing     }+  -- | Token obtained from the nextSyncToken field returned on the last page of -- results from the previous list request. It makes the result of this list
gen/Network/Google/Resource/Calendar/ACL/Patch.hs view
@@ -58,13 +58,16 @@ -- | Updates an access control rule. This method supports patch semantics. -- -- /See:/ 'aclPatch' smart constructor.-data ACLPatch = ACLPatch'+data ACLPatch =+  ACLPatch'     { _apCalendarId        :: !Text     , _apRuleId            :: !Text     , _apPayload           :: !ACLRule     , _apSendNotifications :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ACLPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,12 +85,13 @@     -> ACLRule -- ^ 'apPayload'     -> ACLPatch aclPatch pApCalendarId_ pApRuleId_ pApPayload_ =-    ACLPatch'+  ACLPatch'     { _apCalendarId = pApCalendarId_     , _apRuleId = pApRuleId_     , _apPayload = pApPayload_     , _apSendNotifications = Nothing     }+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/ACL/Update.hs view
@@ -58,13 +58,16 @@ -- | Updates an access control rule. -- -- /See:/ 'aclUpdate' smart constructor.-data ACLUpdate = ACLUpdate'+data ACLUpdate =+  ACLUpdate'     { _auCalendarId        :: !Text     , _auRuleId            :: !Text     , _auPayload           :: !ACLRule     , _auSendNotifications :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ACLUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,12 +85,13 @@     -> ACLRule -- ^ 'auPayload'     -> ACLUpdate aclUpdate pAuCalendarId_ pAuRuleId_ pAuPayload_ =-    ACLUpdate'+  ACLUpdate'     { _auCalendarId = pAuCalendarId_     , _auRuleId = pAuRuleId_     , _auPayload = pAuPayload_     , _auSendNotifications = Nothing     }+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/ACL/Watch.hs view
@@ -63,15 +63,18 @@ -- | Watch for changes to ACL resources. -- -- /See:/ 'aclWatch' smart constructor.-data ACLWatch = ACLWatch'+data ACLWatch =+  ACLWatch'     { _awSyncToken   :: !(Maybe Text)     , _awCalendarId  :: !Text     , _awShowDeleted :: !(Maybe Bool)     , _awPayload     :: !Channel     , _awPageToken   :: !(Maybe Text)     , _awMaxResults  :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ACLWatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -92,7 +95,7 @@     -> Channel -- ^ 'awPayload'     -> ACLWatch aclWatch pAwCalendarId_ pAwPayload_ =-    ACLWatch'+  ACLWatch'     { _awSyncToken = Nothing     , _awCalendarId = pAwCalendarId_     , _awShowDeleted = Nothing@@ -100,6 +103,7 @@     , _awPageToken = Nothing     , _awMaxResults = Nothing     }+  -- | Token obtained from the nextSyncToken field returned on the last page of -- results from the previous list request. It makes the result of this list
gen/Network/Google/Resource/Calendar/CalendarList/Delete.hs view
@@ -53,10 +53,13 @@ -- | Removes a calendar from the user\'s calendar list. -- -- /See:/ 'calendarListDelete' smart constructor.-newtype CalendarListDelete = CalendarListDelete'+newtype CalendarListDelete =+  CalendarListDelete'     { _cldCalendarId :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarListDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,9 +69,8 @@     :: Text -- ^ 'cldCalendarId'     -> CalendarListDelete calendarListDelete pCldCalendarId_ =-    CalendarListDelete'-    { _cldCalendarId = pCldCalendarId_-    }+  CalendarListDelete' {_cldCalendarId = pCldCalendarId_}+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/CalendarList/Get.hs view
@@ -54,10 +54,13 @@ -- | Returns a calendar from the user\'s calendar list. -- -- /See:/ 'calendarListGet' smart constructor.-newtype CalendarListGet = CalendarListGet'+newtype CalendarListGet =+  CalendarListGet'     { _clgCalendarId :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarListGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,9 +70,8 @@     :: Text -- ^ 'clgCalendarId'     -> CalendarListGet calendarListGet pClgCalendarId_ =-    CalendarListGet'-    { _clgCalendarId = pClgCalendarId_-    }+  CalendarListGet' {_clgCalendarId = pClgCalendarId_}+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/CalendarList/Insert.hs view
@@ -56,11 +56,14 @@ -- | Inserts an existing calendar into the user\'s calendar list. -- -- /See:/ 'calendarListInsert' smart constructor.-data CalendarListInsert = CalendarListInsert'+data CalendarListInsert =+  CalendarListInsert'     { _cliPayload        :: !CalendarListEntry     , _cliColorRgbFormat :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarListInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +75,8 @@     :: CalendarListEntry -- ^ 'cliPayload'     -> CalendarListInsert calendarListInsert pCliPayload_ =-    CalendarListInsert'-    { _cliPayload = pCliPayload_-    , _cliColorRgbFormat = Nothing-    }+  CalendarListInsert' {_cliPayload = pCliPayload_, _cliColorRgbFormat = Nothing}+  -- | Multipart request metadata. cliPayload :: Lens' CalendarListInsert CalendarListEntry
gen/Network/Google/Resource/Calendar/CalendarList/List.hs view
@@ -65,15 +65,18 @@ -- | Returns the calendars on the user\'s calendar list. -- -- /See:/ 'calendarListList' smart constructor.-data CalendarListList = CalendarListList'+data CalendarListList =+  CalendarListList'     { _cllSyncToken     :: !(Maybe Text)     , _cllMinAccessRole :: !(Maybe CalendarListListMinAccessRole)     , _cllShowDeleted   :: !(Maybe Bool)     , _cllShowHidden    :: !(Maybe Bool)     , _cllPageToken     :: !(Maybe Text)     , _cllMaxResults    :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarListList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -92,7 +95,7 @@ calendarListList     :: CalendarListList calendarListList =-    CalendarListList'+  CalendarListList'     { _cllSyncToken = Nothing     , _cllMinAccessRole = Nothing     , _cllShowDeleted = Nothing@@ -100,6 +103,7 @@     , _cllPageToken = Nothing     , _cllMaxResults = Nothing     }+  -- | Token obtained from the nextSyncToken field returned on the last page of -- results from the previous list request. It makes the result of this list
gen/Network/Google/Resource/Calendar/CalendarList/Patch.hs view
@@ -60,12 +60,15 @@ -- supports patch semantics. -- -- /See:/ 'calendarListPatch' smart constructor.-data CalendarListPatch = CalendarListPatch'+data CalendarListPatch =+  CalendarListPatch'     { _clpCalendarId     :: !Text     , _clpPayload        :: !CalendarListEntry     , _clpColorRgbFormat :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarListPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -80,11 +83,12 @@     -> CalendarListEntry -- ^ 'clpPayload'     -> CalendarListPatch calendarListPatch pClpCalendarId_ pClpPayload_ =-    CalendarListPatch'+  CalendarListPatch'     { _clpCalendarId = pClpCalendarId_     , _clpPayload = pClpPayload_     , _clpColorRgbFormat = Nothing     }+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/CalendarList/Update.hs view
@@ -58,12 +58,15 @@ -- | Updates an existing calendar on the user\'s calendar list. -- -- /See:/ 'calendarListUpdate' smart constructor.-data CalendarListUpdate = CalendarListUpdate'+data CalendarListUpdate =+  CalendarListUpdate'     { _cluCalendarId     :: !Text     , _cluPayload        :: !CalendarListEntry     , _cluColorRgbFormat :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarListUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,11 +81,12 @@     -> CalendarListEntry -- ^ 'cluPayload'     -> CalendarListUpdate calendarListUpdate pCluCalendarId_ pCluPayload_ =-    CalendarListUpdate'+  CalendarListUpdate'     { _cluCalendarId = pCluCalendarId_     , _cluPayload = pCluPayload_     , _cluColorRgbFormat = Nothing     }+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/CalendarList/Watch.hs view
@@ -68,7 +68,8 @@ -- | Watch for changes to CalendarList resources. -- -- /See:/ 'calendarListWatch' smart constructor.-data CalendarListWatch = CalendarListWatch'+data CalendarListWatch =+  CalendarListWatch'     { _clwSyncToken     :: !(Maybe Text)     , _clwMinAccessRole :: !(Maybe CalendarListWatchMinAccessRole)     , _clwShowDeleted   :: !(Maybe Bool)@@ -76,8 +77,10 @@     , _clwShowHidden    :: !(Maybe Bool)     , _clwPageToken     :: !(Maybe Text)     , _clwMaxResults    :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarListWatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -99,7 +102,7 @@     :: Channel -- ^ 'clwPayload'     -> CalendarListWatch calendarListWatch pClwPayload_ =-    CalendarListWatch'+  CalendarListWatch'     { _clwSyncToken = Nothing     , _clwMinAccessRole = Nothing     , _clwShowDeleted = Nothing@@ -108,6 +111,7 @@     , _clwPageToken = Nothing     , _clwMaxResults = Nothing     }+  -- | Token obtained from the nextSyncToken field returned on the last page of -- results from the previous list request. It makes the result of this list
gen/Network/Google/Resource/Calendar/Calendars/Clear.hs view
@@ -54,10 +54,13 @@ -- with the primary calendar of an account. -- -- /See:/ 'calendarsClear' smart constructor.-newtype CalendarsClear = CalendarsClear'+newtype CalendarsClear =+  CalendarsClear'     { _ccCalendarId :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarsClear' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,10 +69,8 @@ calendarsClear     :: Text -- ^ 'ccCalendarId'     -> CalendarsClear-calendarsClear pCcCalendarId_ =-    CalendarsClear'-    { _ccCalendarId = pCcCalendarId_-    }+calendarsClear pCcCalendarId_ = CalendarsClear' {_ccCalendarId = pCcCalendarId_}+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/Calendars/Delete.hs view
@@ -53,10 +53,13 @@ -- events on primary calendars. -- -- /See:/ 'calendarsDelete' smart constructor.-newtype CalendarsDelete = CalendarsDelete'+newtype CalendarsDelete =+  CalendarsDelete'     { _cdCalendarId :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,9 +69,8 @@     :: Text -- ^ 'cdCalendarId'     -> CalendarsDelete calendarsDelete pCdCalendarId_ =-    CalendarsDelete'-    { _cdCalendarId = pCdCalendarId_-    }+  CalendarsDelete' {_cdCalendarId = pCdCalendarId_}+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/Calendars/Get.hs view
@@ -51,10 +51,13 @@ -- | Returns metadata for a calendar. -- -- /See:/ 'calendarsGet' smart constructor.-newtype CalendarsGet = CalendarsGet'+newtype CalendarsGet =+  CalendarsGet'     { _cgCalendarId :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +66,8 @@ calendarsGet     :: Text -- ^ 'cgCalendarId'     -> CalendarsGet-calendarsGet pCgCalendarId_ =-    CalendarsGet'-    { _cgCalendarId = pCgCalendarId_-    }+calendarsGet pCgCalendarId_ = CalendarsGet' {_cgCalendarId = pCgCalendarId_}+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/Calendars/Insert.hs view
@@ -51,10 +51,13 @@ -- | Creates a secondary calendar. -- -- /See:/ 'calendarsInsert' smart constructor.-newtype CalendarsInsert = CalendarsInsert'+newtype CalendarsInsert =+  CalendarsInsert'     { _ciPayload :: Calendar-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarsInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +66,8 @@ calendarsInsert     :: Calendar -- ^ 'ciPayload'     -> CalendarsInsert-calendarsInsert pCiPayload_ =-    CalendarsInsert'-    { _ciPayload = pCiPayload_-    }+calendarsInsert pCiPayload_ = CalendarsInsert' {_ciPayload = pCiPayload_}+  -- | Multipart request metadata. ciPayload :: Lens' CalendarsInsert Calendar
gen/Network/Google/Resource/Calendar/Calendars/Patch.hs view
@@ -53,11 +53,14 @@ -- | Updates metadata for a calendar. This method supports patch semantics. -- -- /See:/ 'calendarsPatch' smart constructor.-data CalendarsPatch = CalendarsPatch'+data CalendarsPatch =+  CalendarsPatch'     { _cpCalendarId :: !Text     , _cpPayload    :: !Calendar-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,10 +73,8 @@     -> Calendar -- ^ 'cpPayload'     -> CalendarsPatch calendarsPatch pCpCalendarId_ pCpPayload_ =-    CalendarsPatch'-    { _cpCalendarId = pCpCalendarId_-    , _cpPayload = pCpPayload_-    }+  CalendarsPatch' {_cpCalendarId = pCpCalendarId_, _cpPayload = pCpPayload_}+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/Calendars/Update.hs view
@@ -53,11 +53,14 @@ -- | Updates metadata for a calendar. -- -- /See:/ 'calendarsUpdate' smart constructor.-data CalendarsUpdate = CalendarsUpdate'+data CalendarsUpdate =+  CalendarsUpdate'     { _cuCalendarId :: !Text     , _cuPayload    :: !Calendar-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CalendarsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,10 +73,8 @@     -> Calendar -- ^ 'cuPayload'     -> CalendarsUpdate calendarsUpdate pCuCalendarId_ pCuPayload_ =-    CalendarsUpdate'-    { _cuCalendarId = pCuCalendarId_-    , _cuPayload = pCuPayload_-    }+  CalendarsUpdate' {_cuCalendarId = pCuCalendarId_, _cuPayload = pCuPayload_}+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/Channels/Stop.hs view
@@ -52,10 +52,13 @@ -- | Stop watching resources through this channel -- -- /See:/ 'channelsStop' smart constructor.-newtype ChannelsStop = ChannelsStop'+newtype ChannelsStop =+  ChannelsStop'     { _csPayload :: Channel-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChannelsStop' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,10 +67,8 @@ channelsStop     :: Channel -- ^ 'csPayload'     -> ChannelsStop-channelsStop pCsPayload_ =-    ChannelsStop'-    { _csPayload = pCsPayload_-    }+channelsStop pCsPayload_ = ChannelsStop' {_csPayload = pCsPayload_}+  -- | Multipart request metadata. csPayload :: Lens' ChannelsStop Channel
gen/Network/Google/Resource/Calendar/Colors/Get.hs view
@@ -49,14 +49,16 @@ -- -- /See:/ 'colorsGet' smart constructor. data ColorsGet =-    ColorsGet'-    deriving (Eq,Show,Data,Typeable,Generic)+  ColorsGet'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ColorsGet' with the minimum fields required to make a request. -- colorsGet     :: ColorsGet colorsGet = ColorsGet'+  instance GoogleRequest ColorsGet where         type Rs ColorsGet = Colors
gen/Network/Google/Resource/Calendar/Events/Delete.hs view
@@ -58,13 +58,16 @@ -- | Deletes an event. -- -- /See:/ 'eventsDelete' smart constructor.-data EventsDelete = EventsDelete'+data EventsDelete =+  EventsDelete'     { _edCalendarId        :: !Text     , _edSendNotifications :: !(Maybe Bool)     , _edSendUpdates       :: !(Maybe EventsDeleteSendUpdates)     , _edEventId           :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -81,12 +84,13 @@     -> Text -- ^ 'edEventId'     -> EventsDelete eventsDelete pEdCalendarId_ pEdEventId_ =-    EventsDelete'+  EventsDelete'     { _edCalendarId = pEdCalendarId_     , _edSendNotifications = Nothing     , _edSendUpdates = Nothing     , _edEventId = pEdEventId_     }+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/Events/Get.hs view
@@ -60,14 +60,17 @@ -- | Returns an event. -- -- /See:/ 'eventsGet' smart constructor.-data EventsGet = EventsGet'+data EventsGet =+  EventsGet'     { _egCalendarId         :: !Text     , _egMaxAttendees       :: !(Maybe (Textual Int32))     , _egTimeZone           :: !(Maybe Text)     , _egAlwaysIncludeEmail :: !(Maybe Bool)     , _egEventId            :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -86,13 +89,14 @@     -> Text -- ^ 'egEventId'     -> EventsGet eventsGet pEgCalendarId_ pEgEventId_ =-    EventsGet'+  EventsGet'     { _egCalendarId = pEgCalendarId_     , _egMaxAttendees = Nothing     , _egTimeZone = Nothing     , _egAlwaysIncludeEmail = Nothing     , _egEventId = pEgEventId_     }+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/Events/Import.hs view
@@ -61,13 +61,16 @@ -- existing event to a calendar. -- -- /See:/ 'eventsImport' smart constructor.-data EventsImport = EventsImport'+data EventsImport =+  EventsImport'     { _eiConferenceDataVersion :: !(Maybe (Textual Int32))     , _eiCalendarId            :: !Text     , _eiPayload               :: !Event     , _eiSupportsAttachments   :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -84,12 +87,13 @@     -> Event -- ^ 'eiPayload'     -> EventsImport eventsImport pEiCalendarId_ pEiPayload_ =-    EventsImport'+  EventsImport'     { _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
gen/Network/Google/Resource/Calendar/Events/Insert.hs view
@@ -64,7 +64,8 @@ -- | Creates an event. -- -- /See:/ 'eventsInsert' smart constructor.-data EventsInsert = EventsInsert'+data EventsInsert =+  EventsInsert'     { _eveConferenceDataVersion :: !(Maybe (Textual Int32))     , _eveCalendarId            :: !Text     , _evePayload               :: !Event@@ -72,8 +73,10 @@     , _eveSendNotifications     :: !(Maybe Bool)     , _eveSupportsAttachments   :: !(Maybe Bool)     , _eveSendUpdates           :: !(Maybe EventsInsertSendUpdates)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -96,7 +99,7 @@     -> Event -- ^ 'evePayload'     -> EventsInsert eventsInsert pEveCalendarId_ pEvePayload_ =-    EventsInsert'+  EventsInsert'     { _eveConferenceDataVersion = Nothing     , _eveCalendarId = pEveCalendarId_     , _evePayload = pEvePayload_@@ -105,6 +108,7 @@     , _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
gen/Network/Google/Resource/Calendar/Events/Instances.hs view
@@ -74,7 +74,8 @@ -- | Returns instances of the specified recurring event. -- -- /See:/ 'eventsInstances' smart constructor.-data EventsInstances = EventsInstances'+data EventsInstances =+  EventsInstances'     { _eCalendarId         :: !Text     , _eTimeMin            :: !(Maybe DateTime')     , _eShowDeleted        :: !(Maybe Bool)@@ -86,8 +87,10 @@     , _eAlwaysIncludeEmail :: !(Maybe Bool)     , _eTimeMax            :: !(Maybe DateTime')     , _eEventId            :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventsInstances' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -118,7 +121,7 @@     -> Text -- ^ 'eEventId'     -> EventsInstances eventsInstances pECalendarId_ pEEventId_ =-    EventsInstances'+  EventsInstances'     { _eCalendarId = pECalendarId_     , _eTimeMin = Nothing     , _eShowDeleted = Nothing@@ -131,6 +134,7 @@     , _eTimeMax = Nothing     , _eEventId = pEEventId_     }+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/Events/List.hs view
@@ -92,7 +92,8 @@ -- | Returns events on the specified calendar. -- -- /See:/ 'eventsList' smart constructor.-data EventsList = EventsList'+data EventsList =+  EventsList'     { _elSyncToken               :: !(Maybe Text)     , _elCalendarId              :: !Text     , _elTimeMin                 :: !(Maybe DateTime')@@ -111,8 +112,10 @@     , _elMaxResults              :: !(Textual Int32)     , _elAlwaysIncludeEmail      :: !(Maybe Bool)     , _elTimeMax                 :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -156,7 +159,7 @@     :: Text -- ^ 'elCalendarId'     -> EventsList eventsList pElCalendarId_ =-    EventsList'+  EventsList'     { _elSyncToken = Nothing     , _elCalendarId = pElCalendarId_     , _elTimeMin = Nothing@@ -177,6 +180,7 @@     , _elTimeMax = Nothing     } + -- | Token obtained from the nextSyncToken field returned on the last page of -- results from the previous list request. It makes the result of this list -- request contain only entries that have changed since then. All events@@ -201,11 +205,12 @@ elCalendarId   = lens _elCalendarId (\ s a -> s{_elCalendarId = a}) --- | Lower bound (inclusive) for an event\'s end time to filter by. Optional.--- 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.+-- | Lower bound (inclusive) for an event\'s start time to filter by.+-- Optional. The default is not to filter by start time. Must be an RFC3339+-- timestamp with mandatory time zone offset, for example,+-- 2011-06-03T10:00:00-07:00, 2011-06-03T10:00:00Z. Milliseconds may be+-- provided but are ignored. If timeMax is set, timeMin must be smaller+-- than timeMax. elTimeMin :: Lens' EventsList (Maybe UTCTime) elTimeMin   = lens _elTimeMin (\ s a -> s{_elTimeMin = a}) .@@ -325,12 +330,11 @@   = lens _elAlwaysIncludeEmail       (\ s a -> s{_elAlwaysIncludeEmail = a}) --- | Upper bound (exclusive) for an event\'s start time to filter by.--- 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. If timeMin is set, timeMax must be greater--- than timeMin.+-- | Upper bound (exclusive) for an event\'s end time to filter by. Optional.+-- The default is not to filter by end time. Must be an RFC3339 timestamp+-- with mandatory time zone offset, for example, 2011-06-03T10:00:00-07:00,+-- 2011-06-03T10:00:00Z. Milliseconds may be provided but are ignored. If+-- timeMin is set, timeMax must be greater than timeMin. elTimeMax :: Lens' EventsList (Maybe UTCTime) elTimeMax   = lens _elTimeMax (\ s a -> s{_elTimeMax = a}) .
gen/Network/Google/Resource/Calendar/Events/Move.hs view
@@ -61,14 +61,17 @@ -- | Moves an event to another calendar, i.e. changes an event\'s organizer. -- -- /See:/ 'eventsMove' smart constructor.-data EventsMove = EventsMove'+data EventsMove =+  EventsMove'     { _emDestination       :: !Text     , _emCalendarId        :: !Text     , _emSendNotifications :: !(Maybe Bool)     , _emSendUpdates       :: !(Maybe EventsMoveSendUpdates)     , _emEventId           :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventsMove' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -88,13 +91,14 @@     -> Text -- ^ 'emEventId'     -> EventsMove eventsMove pEmDestination_ pEmCalendarId_ pEmEventId_ =-    EventsMove'+  EventsMove'     { _emDestination = pEmDestination_     , _emCalendarId = pEmCalendarId_     , _emSendNotifications = Nothing     , _emSendUpdates = Nothing     , _emEventId = pEmEventId_     }+  -- | Calendar identifier of the target calendar where the event is to be -- moved to.
gen/Network/Google/Resource/Calendar/Events/Patch.hs view
@@ -68,7 +68,8 @@ -- | Updates an event. This method supports patch semantics. -- -- /See:/ 'eventsPatch' smart constructor.-data EventsPatch = EventsPatch'+data EventsPatch =+  EventsPatch'     { _epConferenceDataVersion :: !(Maybe (Textual Int32))     , _epCalendarId            :: !Text     , _epPayload               :: !Event@@ -78,8 +79,10 @@     , _epSendUpdates           :: !(Maybe EventsPatchSendUpdates)     , _epAlwaysIncludeEmail    :: !(Maybe Bool)     , _epEventId               :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -107,7 +110,7 @@     -> Text -- ^ 'epEventId'     -> EventsPatch eventsPatch pEpCalendarId_ pEpPayload_ pEpEventId_ =-    EventsPatch'+  EventsPatch'     { _epConferenceDataVersion = Nothing     , _epCalendarId = pEpCalendarId_     , _epPayload = pEpPayload_@@ -118,6 +121,7 @@     , _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
gen/Network/Google/Resource/Calendar/Events/QuickAdd.hs view
@@ -59,13 +59,16 @@ -- | Creates an event based on a simple text string. -- -- /See:/ 'eventsQuickAdd' smart constructor.-data EventsQuickAdd = EventsQuickAdd'+data EventsQuickAdd =+  EventsQuickAdd'     { _eqaCalendarId        :: !Text     , _eqaText              :: !Text     , _eqaSendNotifications :: !(Maybe Bool)     , _eqaSendUpdates       :: !(Maybe EventsQuickAddSendUpdates)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventsQuickAdd' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,12 +85,13 @@     -> Text -- ^ 'eqaText'     -> EventsQuickAdd eventsQuickAdd pEqaCalendarId_ pEqaText_ =-    EventsQuickAdd'+  EventsQuickAdd'     { _eqaCalendarId = pEqaCalendarId_     , _eqaText = pEqaText_     , _eqaSendNotifications = Nothing     , _eqaSendUpdates = Nothing     }+  -- | Calendar identifier. To retrieve calendar IDs call the calendarList.list -- method. If you want to access the primary calendar of the currently
gen/Network/Google/Resource/Calendar/Events/Update.hs view
@@ -68,7 +68,8 @@ -- | Updates an event. -- -- /See:/ 'eventsUpdate' smart constructor.-data EventsUpdate = EventsUpdate'+data EventsUpdate =+  EventsUpdate'     { _euConferenceDataVersion :: !(Maybe (Textual Int32))     , _euCalendarId            :: !Text     , _euPayload               :: !Event@@ -78,8 +79,10 @@     , _euSendUpdates           :: !(Maybe EventsUpdateSendUpdates)     , _euAlwaysIncludeEmail    :: !(Maybe Bool)     , _euEventId               :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -107,7 +110,7 @@     -> Text -- ^ 'euEventId'     -> EventsUpdate eventsUpdate pEuCalendarId_ pEuPayload_ pEuEventId_ =-    EventsUpdate'+  EventsUpdate'     { _euConferenceDataVersion = Nothing     , _euCalendarId = pEuCalendarId_     , _euPayload = pEuPayload_@@ -118,6 +121,7 @@     , _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
gen/Network/Google/Resource/Calendar/Events/Watch.hs view
@@ -97,7 +97,8 @@ -- | Watch for changes to Events resources. -- -- /See:/ 'eventsWatch' smart constructor.-data EventsWatch = EventsWatch'+data EventsWatch =+  EventsWatch'     { _ewSyncToken               :: !(Maybe Text)     , _ewCalendarId              :: !Text     , _ewTimeMin                 :: !(Maybe DateTime')@@ -117,8 +118,10 @@     , _ewMaxResults              :: !(Textual Int32)     , _ewAlwaysIncludeEmail      :: !(Maybe Bool)     , _ewTimeMax                 :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventsWatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -165,7 +168,7 @@     -> Channel -- ^ 'ewPayload'     -> EventsWatch eventsWatch pEwCalendarId_ pEwPayload_ =-    EventsWatch'+  EventsWatch'     { _ewSyncToken = Nothing     , _ewCalendarId = pEwCalendarId_     , _ewTimeMin = Nothing@@ -187,6 +190,7 @@     , _ewTimeMax = Nothing     } + -- | Token obtained from the nextSyncToken field returned on the last page of -- results from the previous list request. It makes the result of this list -- request contain only entries that have changed since then. All events@@ -211,11 +215,12 @@ ewCalendarId   = lens _ewCalendarId (\ s a -> s{_ewCalendarId = a}) --- | Lower bound (inclusive) for an event\'s end time to filter by. Optional.--- 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.+-- | Lower bound (inclusive) for an event\'s start time to filter by.+-- Optional. The default is not to filter by start time. Must be an RFC3339+-- timestamp with mandatory time zone offset, for example,+-- 2011-06-03T10:00:00-07:00, 2011-06-03T10:00:00Z. Milliseconds may be+-- provided but are ignored. If timeMax is set, timeMin must be smaller+-- than timeMax. ewTimeMin :: Lens' EventsWatch (Maybe UTCTime) ewTimeMin   = lens _ewTimeMin (\ s a -> s{_ewTimeMin = a}) .@@ -340,12 +345,11 @@   = lens _ewAlwaysIncludeEmail       (\ s a -> s{_ewAlwaysIncludeEmail = a}) --- | Upper bound (exclusive) for an event\'s start time to filter by.--- 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. If timeMin is set, timeMax must be greater--- than timeMin.+-- | Upper bound (exclusive) for an event\'s end time to filter by. Optional.+-- The default is not to filter by end time. Must be an RFC3339 timestamp+-- with mandatory time zone offset, for example, 2011-06-03T10:00:00-07:00,+-- 2011-06-03T10:00:00Z. Milliseconds may be provided but are ignored. If+-- timeMin is set, timeMax must be greater than timeMin. ewTimeMax :: Lens' EventsWatch (Maybe UTCTime) ewTimeMax   = lens _ewTimeMax (\ s a -> s{_ewTimeMax = a}) .
gen/Network/Google/Resource/Calendar/FreeBusy/Query.hs view
@@ -52,10 +52,13 @@ -- | Returns free\/busy information for a set of calendars. -- -- /See:/ 'freeBusyQuery' smart constructor.-newtype FreeBusyQuery = FreeBusyQuery'+newtype FreeBusyQuery =+  FreeBusyQuery'     { _fbqPayload :: FreeBusyRequest-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FreeBusyQuery' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,10 +67,8 @@ freeBusyQuery     :: FreeBusyRequest -- ^ 'fbqPayload'     -> FreeBusyQuery-freeBusyQuery pFbqPayload_ =-    FreeBusyQuery'-    { _fbqPayload = pFbqPayload_-    }+freeBusyQuery pFbqPayload_ = FreeBusyQuery' {_fbqPayload = pFbqPayload_}+  -- | Multipart request metadata. fbqPayload :: Lens' FreeBusyQuery FreeBusyRequest
gen/Network/Google/Resource/Calendar/Settings/Get.hs view
@@ -53,10 +53,13 @@ -- | Returns a single user setting. -- -- /See:/ 'settingsGet' smart constructor.-newtype SettingsGet = SettingsGet'+newtype SettingsGet =+  SettingsGet'     { _sgSetting :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SettingsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,10 +68,8 @@ settingsGet     :: Text -- ^ 'sgSetting'     -> SettingsGet-settingsGet pSgSetting_ =-    SettingsGet'-    { _sgSetting = pSgSetting_-    }+settingsGet pSgSetting_ = SettingsGet' {_sgSetting = pSgSetting_}+  -- | The id of the user setting. sgSetting :: Lens' SettingsGet Text
gen/Network/Google/Resource/Calendar/Settings/List.hs view
@@ -57,12 +57,15 @@ -- | Returns all user settings for the authenticated user. -- -- /See:/ 'settingsList' smart constructor.-data SettingsList = SettingsList'+data SettingsList =+  SettingsList'     { _slSyncToken  :: !(Maybe Text)     , _slPageToken  :: !(Maybe Text)     , _slMaxResults :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SettingsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,11 +78,9 @@ settingsList     :: SettingsList settingsList =-    SettingsList'-    { _slSyncToken = Nothing-    , _slPageToken = Nothing-    , _slMaxResults = Nothing-    }+  SettingsList'+    {_slSyncToken = Nothing, _slPageToken = Nothing, _slMaxResults = Nothing}+  -- | Token obtained from the nextSyncToken field returned on the last page of -- results from the previous list request. It makes the result of this list
gen/Network/Google/Resource/Calendar/Settings/Watch.hs view
@@ -60,13 +60,16 @@ -- | Watch for changes to Settings resources. -- -- /See:/ 'settingsWatch' smart constructor.-data SettingsWatch = SettingsWatch'+data SettingsWatch =+  SettingsWatch'     { _swSyncToken  :: !(Maybe Text)     , _swPayload    :: !Channel     , _swPageToken  :: !(Maybe Text)     , _swMaxResults :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SettingsWatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,12 +85,13 @@     :: Channel -- ^ 'swPayload'     -> SettingsWatch settingsWatch pSwPayload_ =-    SettingsWatch'+  SettingsWatch'     { _swSyncToken = Nothing     , _swPayload = pSwPayload_     , _swPageToken = Nothing     , _swMaxResults = Nothing     }+  -- | Token obtained from the nextSyncToken field returned on the last page of -- results from the previous list request. It makes the result of this list
gogol-apps-calendar.cabal view
@@ -1,5 +1,5 @@ name:                  gogol-apps-calendar-version:               0.4.0+version:               0.5.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.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5