diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/AppsCalendar/Types.hs b/gen/Network/Google/AppsCalendar/Types.hs --- a/gen/Network/Google/AppsCalendar/Types.hs +++ b/gen/Network/Google/AppsCalendar/Types.hs @@ -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 diff --git a/gen/Network/Google/AppsCalendar/Types/Product.hs b/gen/Network/Google/AppsCalendar/Types/Product.hs --- a/gen/Network/Google/AppsCalendar/Types/Product.hs +++ b/gen/Network/Google/AppsCalendar/Types/Product.hs @@ -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. diff --git a/gen/Network/Google/Resource/Calendar/ACL/Delete.hs b/gen/Network/Google/Resource/Calendar/ACL/Delete.hs --- a/gen/Network/Google/Resource/Calendar/ACL/Delete.hs +++ b/gen/Network/Google/Resource/Calendar/ACL/Delete.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/ACL/Get.hs b/gen/Network/Google/Resource/Calendar/ACL/Get.hs --- a/gen/Network/Google/Resource/Calendar/ACL/Get.hs +++ b/gen/Network/Google/Resource/Calendar/ACL/Get.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/ACL/Insert.hs b/gen/Network/Google/Resource/Calendar/ACL/Insert.hs --- a/gen/Network/Google/Resource/Calendar/ACL/Insert.hs +++ b/gen/Network/Google/Resource/Calendar/ACL/Insert.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/ACL/List.hs b/gen/Network/Google/Resource/Calendar/ACL/List.hs --- a/gen/Network/Google/Resource/Calendar/ACL/List.hs +++ b/gen/Network/Google/Resource/Calendar/ACL/List.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/ACL/Patch.hs b/gen/Network/Google/Resource/Calendar/ACL/Patch.hs --- a/gen/Network/Google/Resource/Calendar/ACL/Patch.hs +++ b/gen/Network/Google/Resource/Calendar/ACL/Patch.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/ACL/Update.hs b/gen/Network/Google/Resource/Calendar/ACL/Update.hs --- a/gen/Network/Google/Resource/Calendar/ACL/Update.hs +++ b/gen/Network/Google/Resource/Calendar/ACL/Update.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/ACL/Watch.hs b/gen/Network/Google/Resource/Calendar/ACL/Watch.hs --- a/gen/Network/Google/Resource/Calendar/ACL/Watch.hs +++ b/gen/Network/Google/Resource/Calendar/ACL/Watch.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/CalendarList/Delete.hs b/gen/Network/Google/Resource/Calendar/CalendarList/Delete.hs --- a/gen/Network/Google/Resource/Calendar/CalendarList/Delete.hs +++ b/gen/Network/Google/Resource/Calendar/CalendarList/Delete.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/CalendarList/Get.hs b/gen/Network/Google/Resource/Calendar/CalendarList/Get.hs --- a/gen/Network/Google/Resource/Calendar/CalendarList/Get.hs +++ b/gen/Network/Google/Resource/Calendar/CalendarList/Get.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/CalendarList/Insert.hs b/gen/Network/Google/Resource/Calendar/CalendarList/Insert.hs --- a/gen/Network/Google/Resource/Calendar/CalendarList/Insert.hs +++ b/gen/Network/Google/Resource/Calendar/CalendarList/Insert.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/CalendarList/List.hs b/gen/Network/Google/Resource/Calendar/CalendarList/List.hs --- a/gen/Network/Google/Resource/Calendar/CalendarList/List.hs +++ b/gen/Network/Google/Resource/Calendar/CalendarList/List.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/CalendarList/Patch.hs b/gen/Network/Google/Resource/Calendar/CalendarList/Patch.hs --- a/gen/Network/Google/Resource/Calendar/CalendarList/Patch.hs +++ b/gen/Network/Google/Resource/Calendar/CalendarList/Patch.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/CalendarList/Update.hs b/gen/Network/Google/Resource/Calendar/CalendarList/Update.hs --- a/gen/Network/Google/Resource/Calendar/CalendarList/Update.hs +++ b/gen/Network/Google/Resource/Calendar/CalendarList/Update.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/CalendarList/Watch.hs b/gen/Network/Google/Resource/Calendar/CalendarList/Watch.hs --- a/gen/Network/Google/Resource/Calendar/CalendarList/Watch.hs +++ b/gen/Network/Google/Resource/Calendar/CalendarList/Watch.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Calendars/Clear.hs b/gen/Network/Google/Resource/Calendar/Calendars/Clear.hs --- a/gen/Network/Google/Resource/Calendar/Calendars/Clear.hs +++ b/gen/Network/Google/Resource/Calendar/Calendars/Clear.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Calendars/Delete.hs b/gen/Network/Google/Resource/Calendar/Calendars/Delete.hs --- a/gen/Network/Google/Resource/Calendar/Calendars/Delete.hs +++ b/gen/Network/Google/Resource/Calendar/Calendars/Delete.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Calendars/Get.hs b/gen/Network/Google/Resource/Calendar/Calendars/Get.hs --- a/gen/Network/Google/Resource/Calendar/Calendars/Get.hs +++ b/gen/Network/Google/Resource/Calendar/Calendars/Get.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Calendars/Insert.hs b/gen/Network/Google/Resource/Calendar/Calendars/Insert.hs --- a/gen/Network/Google/Resource/Calendar/Calendars/Insert.hs +++ b/gen/Network/Google/Resource/Calendar/Calendars/Insert.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Calendars/Patch.hs b/gen/Network/Google/Resource/Calendar/Calendars/Patch.hs --- a/gen/Network/Google/Resource/Calendar/Calendars/Patch.hs +++ b/gen/Network/Google/Resource/Calendar/Calendars/Patch.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Calendars/Update.hs b/gen/Network/Google/Resource/Calendar/Calendars/Update.hs --- a/gen/Network/Google/Resource/Calendar/Calendars/Update.hs +++ b/gen/Network/Google/Resource/Calendar/Calendars/Update.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Channels/Stop.hs b/gen/Network/Google/Resource/Calendar/Channels/Stop.hs --- a/gen/Network/Google/Resource/Calendar/Channels/Stop.hs +++ b/gen/Network/Google/Resource/Calendar/Channels/Stop.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Colors/Get.hs b/gen/Network/Google/Resource/Calendar/Colors/Get.hs --- a/gen/Network/Google/Resource/Calendar/Colors/Get.hs +++ b/gen/Network/Google/Resource/Calendar/Colors/Get.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Events/Delete.hs b/gen/Network/Google/Resource/Calendar/Events/Delete.hs --- a/gen/Network/Google/Resource/Calendar/Events/Delete.hs +++ b/gen/Network/Google/Resource/Calendar/Events/Delete.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Events/Get.hs b/gen/Network/Google/Resource/Calendar/Events/Get.hs --- a/gen/Network/Google/Resource/Calendar/Events/Get.hs +++ b/gen/Network/Google/Resource/Calendar/Events/Get.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Events/Import.hs b/gen/Network/Google/Resource/Calendar/Events/Import.hs --- a/gen/Network/Google/Resource/Calendar/Events/Import.hs +++ b/gen/Network/Google/Resource/Calendar/Events/Import.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Events/Insert.hs b/gen/Network/Google/Resource/Calendar/Events/Insert.hs --- a/gen/Network/Google/Resource/Calendar/Events/Insert.hs +++ b/gen/Network/Google/Resource/Calendar/Events/Insert.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Events/Instances.hs b/gen/Network/Google/Resource/Calendar/Events/Instances.hs --- a/gen/Network/Google/Resource/Calendar/Events/Instances.hs +++ b/gen/Network/Google/Resource/Calendar/Events/Instances.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Events/List.hs b/gen/Network/Google/Resource/Calendar/Events/List.hs --- a/gen/Network/Google/Resource/Calendar/Events/List.hs +++ b/gen/Network/Google/Resource/Calendar/Events/List.hs @@ -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}) . diff --git a/gen/Network/Google/Resource/Calendar/Events/Move.hs b/gen/Network/Google/Resource/Calendar/Events/Move.hs --- a/gen/Network/Google/Resource/Calendar/Events/Move.hs +++ b/gen/Network/Google/Resource/Calendar/Events/Move.hs @@ -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. diff --git a/gen/Network/Google/Resource/Calendar/Events/Patch.hs b/gen/Network/Google/Resource/Calendar/Events/Patch.hs --- a/gen/Network/Google/Resource/Calendar/Events/Patch.hs +++ b/gen/Network/Google/Resource/Calendar/Events/Patch.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Events/QuickAdd.hs b/gen/Network/Google/Resource/Calendar/Events/QuickAdd.hs --- a/gen/Network/Google/Resource/Calendar/Events/QuickAdd.hs +++ b/gen/Network/Google/Resource/Calendar/Events/QuickAdd.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Events/Update.hs b/gen/Network/Google/Resource/Calendar/Events/Update.hs --- a/gen/Network/Google/Resource/Calendar/Events/Update.hs +++ b/gen/Network/Google/Resource/Calendar/Events/Update.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Events/Watch.hs b/gen/Network/Google/Resource/Calendar/Events/Watch.hs --- a/gen/Network/Google/Resource/Calendar/Events/Watch.hs +++ b/gen/Network/Google/Resource/Calendar/Events/Watch.hs @@ -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}) . diff --git a/gen/Network/Google/Resource/Calendar/FreeBusy/Query.hs b/gen/Network/Google/Resource/Calendar/FreeBusy/Query.hs --- a/gen/Network/Google/Resource/Calendar/FreeBusy/Query.hs +++ b/gen/Network/Google/Resource/Calendar/FreeBusy/Query.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Settings/Get.hs b/gen/Network/Google/Resource/Calendar/Settings/Get.hs --- a/gen/Network/Google/Resource/Calendar/Settings/Get.hs +++ b/gen/Network/Google/Resource/Calendar/Settings/Get.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Settings/List.hs b/gen/Network/Google/Resource/Calendar/Settings/List.hs --- a/gen/Network/Google/Resource/Calendar/Settings/List.hs +++ b/gen/Network/Google/Resource/Calendar/Settings/List.hs @@ -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 diff --git a/gen/Network/Google/Resource/Calendar/Settings/Watch.hs b/gen/Network/Google/Resource/Calendar/Settings/Watch.hs --- a/gen/Network/Google/Resource/Calendar/Settings/Watch.hs +++ b/gen/Network/Google/Resource/Calendar/Settings/Watch.hs @@ -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 diff --git a/gogol-apps-calendar.cabal b/gogol-apps-calendar.cabal --- a/gogol-apps-calendar.cabal +++ b/gogol-apps-calendar.cabal @@ -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