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/Gmail.hs b/gen/Network/Google/Gmail.hs --- a/gen/Network/Google/Gmail.hs +++ b/gen/Network/Google/Gmail.hs @@ -158,6 +158,9 @@ -- ** gmail.users.settings.getImap , module Network.Google.Resource.Gmail.Users.Settings.GetImap + -- ** gmail.users.settings.getLanguage + , module Network.Google.Resource.Gmail.Users.Settings.GetLanguage + -- ** gmail.users.settings.getPop , module Network.Google.Resource.Gmail.Users.Settings.GetPop @@ -206,6 +209,9 @@ -- ** gmail.users.settings.updateImap , module Network.Google.Resource.Gmail.Users.Settings.UpdateImap + -- ** gmail.users.settings.updateLanguage + , module Network.Google.Resource.Gmail.Users.Settings.UpdateLanguage + -- ** gmail.users.settings.updatePop , module Network.Google.Resource.Gmail.Users.Settings.UpdatePop @@ -452,6 +458,11 @@ , listSendAsResponse , lsarSendAs + -- ** LanguageSettings + , LanguageSettings + , languageSettings + , lsDisplayLanguage + -- ** WatchResponse , WatchResponse , watchResponse @@ -648,6 +659,7 @@ import Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.List import Network.Google.Resource.Gmail.Users.Settings.GetAutoForwarding import Network.Google.Resource.Gmail.Users.Settings.GetImap +import Network.Google.Resource.Gmail.Users.Settings.GetLanguage import Network.Google.Resource.Gmail.Users.Settings.GetPop import Network.Google.Resource.Gmail.Users.Settings.GetVacation import Network.Google.Resource.Gmail.Users.Settings.SendAs.Create @@ -664,6 +676,7 @@ import Network.Google.Resource.Gmail.Users.Settings.SendAs.Verify import Network.Google.Resource.Gmail.Users.Settings.UpdateAutoForwarding import Network.Google.Resource.Gmail.Users.Settings.UpdateImap +import Network.Google.Resource.Gmail.Users.Settings.UpdateLanguage import Network.Google.Resource.Gmail.Users.Settings.UpdatePop import Network.Google.Resource.Gmail.Users.Settings.UpdateVacation import Network.Google.Resource.Gmail.Users.Stop @@ -707,10 +720,12 @@ :<|> UsersSettingsSendAsDeleteResource :<|> UsersSettingsSendAsUpdateResource :<|> UsersSettingsUpdateImapResource + :<|> UsersSettingsGetLanguageResource :<|> UsersSettingsGetVacationResource :<|> UsersSettingsGetAutoForwardingResource :<|> UsersSettingsUpdateAutoForwardingResource :<|> UsersSettingsUpdateVacationResource + :<|> UsersSettingsUpdateLanguageResource :<|> UsersSettingsGetImapResource :<|> UsersSettingsUpdatePopResource :<|> UsersSettingsGetPopResource diff --git a/gen/Network/Google/Gmail/Types.hs b/gen/Network/Google/Gmail/Types.hs --- a/gen/Network/Google/Gmail/Types.hs +++ b/gen/Network/Google/Gmail/Types.hs @@ -245,6 +245,11 @@ , listSendAsResponse , lsarSendAs + -- * LanguageSettings + , LanguageSettings + , languageSettings + , lsDisplayLanguage + -- * WatchResponse , WatchResponse , watchResponse @@ -411,41 +416,41 @@ -- | Manage your basic mail settings gmailSettingsBasicScope :: Proxy '["https://www.googleapis.com/auth/gmail.settings.basic"] -gmailSettingsBasicScope = Proxy; +gmailSettingsBasicScope = Proxy -- | Read, compose, send, and permanently delete all your email from Gmail mailGoogleComScope :: Proxy '["https://mail.google.com/"] -mailGoogleComScope = Proxy; +mailGoogleComScope = Proxy -- | View and modify but not delete your email gmailModifyScope :: Proxy '["https://www.googleapis.com/auth/gmail.modify"] -gmailModifyScope = Proxy; +gmailModifyScope = Proxy -- | View your email message metadata such as labels and headers, but not the -- email body gmailMetadataScope :: Proxy '["https://www.googleapis.com/auth/gmail.metadata"] -gmailMetadataScope = Proxy; +gmailMetadataScope = Proxy -- | Manage mailbox labels gmailLabelsScope :: Proxy '["https://www.googleapis.com/auth/gmail.labels"] -gmailLabelsScope = Proxy; +gmailLabelsScope = Proxy -- | Manage your sensitive mail settings, including who can manage your mail gmailSettingsSharingScope :: Proxy '["https://www.googleapis.com/auth/gmail.settings.sharing"] -gmailSettingsSharingScope = Proxy; +gmailSettingsSharingScope = Proxy -- | Send email on your behalf gmailSendScope :: Proxy '["https://www.googleapis.com/auth/gmail.send"] -gmailSendScope = Proxy; +gmailSendScope = Proxy -- | Insert mail into your mailbox gmailInsertScope :: Proxy '["https://www.googleapis.com/auth/gmail.insert"] -gmailInsertScope = Proxy; +gmailInsertScope = Proxy -- | Manage drafts and send emails gmailComposeScope :: Proxy '["https://www.googleapis.com/auth/gmail.compose"] -gmailComposeScope = Proxy; +gmailComposeScope = Proxy -- | View your email messages and settings gmailReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/gmail.readonly"] -gmailReadOnlyScope = Proxy; +gmailReadOnlyScope = Proxy diff --git a/gen/Network/Google/Gmail/Types/Product.hs b/gen/Network/Google/Gmail/Types/Product.hs --- a/gen/Network/Google/Gmail/Types/Product.hs +++ b/gen/Network/Google/Gmail/Types/Product.hs @@ -22,10 +22,13 @@ -- -- /See:/ 'batchDeleteMessagesRequest' smart constructor. -newtype BatchDeleteMessagesRequest = BatchDeleteMessagesRequest' +newtype BatchDeleteMessagesRequest = + BatchDeleteMessagesRequest' { _bdmrIds :: Maybe [Text] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BatchDeleteMessagesRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -33,11 +36,9 @@ -- * 'bdmrIds' batchDeleteMessagesRequest :: BatchDeleteMessagesRequest -batchDeleteMessagesRequest = - BatchDeleteMessagesRequest' - { _bdmrIds = Nothing - } +batchDeleteMessagesRequest = BatchDeleteMessagesRequest' {_bdmrIds = Nothing} + -- | The IDs of the messages to delete. bdmrIds :: Lens' BatchDeleteMessagesRequest [Text] bdmrIds @@ -60,11 +61,14 @@ -- \"Set up mail delegation\" for more information about delegates. -- -- /See:/ 'delegate' smart constructor. -data Delegate = Delegate' +data Delegate = + Delegate' { _dVerificationStatus :: !(Maybe DelegateVerificationStatus) , _dDelegateEmail :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Delegate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -74,12 +78,9 @@ -- * 'dDelegateEmail' delegate :: Delegate -delegate = - Delegate' - { _dVerificationStatus = Nothing - , _dDelegateEmail = Nothing - } +delegate = Delegate' {_dVerificationStatus = Nothing, _dDelegateEmail = Nothing} + -- | Indicates whether this address has been verified and can act as a -- delegate for the account. Read-only. dVerificationStatus :: Lens' Delegate (Maybe DelegateVerificationStatus) @@ -110,11 +111,14 @@ -- -- /See:/ 'modifyThreadRequest' smart constructor. -data ModifyThreadRequest = ModifyThreadRequest' +data ModifyThreadRequest = + ModifyThreadRequest' { _mtrRemoveLabelIds :: !(Maybe [Text]) , _mtrAddLabelIds :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyThreadRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -125,11 +129,9 @@ modifyThreadRequest :: ModifyThreadRequest modifyThreadRequest = - ModifyThreadRequest' - { _mtrRemoveLabelIds = Nothing - , _mtrAddLabelIds = Nothing - } + ModifyThreadRequest' {_mtrRemoveLabelIds = Nothing, _mtrAddLabelIds = Nothing} + -- | A list of IDs of labels to remove from this thread. mtrRemoveLabelIds :: Lens' ModifyThreadRequest [Text] mtrRemoveLabelIds @@ -164,10 +166,13 @@ -- | Response for the ListFilters method. -- -- /See:/ 'listFiltersResponse' smart constructor. -newtype ListFiltersResponse = ListFiltersResponse' +newtype ListFiltersResponse = + ListFiltersResponse' { _lfrFilter :: Maybe [Filter] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListFiltersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -175,11 +180,9 @@ -- * 'lfrFilter' listFiltersResponse :: ListFiltersResponse -listFiltersResponse = - ListFiltersResponse' - { _lfrFilter = Nothing - } +listFiltersResponse = ListFiltersResponse' {_lfrFilter = Nothing} + -- | List of a user\'s filters. lfrFilter :: Lens' ListFiltersResponse [Filter] lfrFilter @@ -199,11 +202,14 @@ -- -- /See:/ 'modifyMessageRequest' smart constructor. -data ModifyMessageRequest = ModifyMessageRequest' +data ModifyMessageRequest = + ModifyMessageRequest' { _mmrRemoveLabelIds :: !(Maybe [Text]) , _mmrAddLabelIds :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyMessageRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -214,11 +220,10 @@ modifyMessageRequest :: ModifyMessageRequest modifyMessageRequest = - ModifyMessageRequest' - { _mmrRemoveLabelIds = Nothing - , _mmrAddLabelIds = Nothing - } + ModifyMessageRequest' + {_mmrRemoveLabelIds = Nothing, _mmrAddLabelIds = Nothing} + -- | A list IDs of labels to remove from this message. mmrRemoveLabelIds :: Lens' ModifyMessageRequest [Text] mmrRemoveLabelIds @@ -253,10 +258,13 @@ -- | Response for the ListForwardingAddresses method. -- -- /See:/ 'listForwardingAddressesResponse' smart constructor. -newtype ListForwardingAddressesResponse = ListForwardingAddressesResponse' +newtype ListForwardingAddressesResponse = + ListForwardingAddressesResponse' { _lfarForwardingAddresses :: Maybe [ForwardingAddress] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListForwardingAddressesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -265,10 +273,9 @@ listForwardingAddressesResponse :: ListForwardingAddressesResponse listForwardingAddressesResponse = - ListForwardingAddressesResponse' - { _lfarForwardingAddresses = Nothing - } + ListForwardingAddressesResponse' {_lfarForwardingAddresses = Nothing} + -- | List of addresses that may be used for forwarding. lfarForwardingAddresses :: Lens' ListForwardingAddressesResponse [ForwardingAddress] lfarForwardingAddresses @@ -295,11 +302,14 @@ -- | POP settings for an account. -- -- /See:/ 'popSettings' smart constructor. -data PopSettings = PopSettings' +data PopSettings = + PopSettings' { _psAccessWindow :: !(Maybe PopSettingsAccessWindow) , _psDisPosition :: !(Maybe PopSettingsDisPosition) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PopSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -309,12 +319,9 @@ -- * 'psDisPosition' popSettings :: PopSettings -popSettings = - PopSettings' - { _psAccessWindow = Nothing - , _psDisPosition = Nothing - } +popSettings = PopSettings' {_psAccessWindow = Nothing, _psDisPosition = Nothing} + -- | The range of messages which are accessible via POP. psAccessWindow :: Lens' PopSettings (Maybe PopSettingsAccessWindow) psAccessWindow @@ -346,15 +353,18 @@ -- affect multiple messages in multiple ways. -- -- /See:/ 'history' smart constructor. -data History = History' +data History = + History' { _hLabelsRemoved :: !(Maybe [HistoryLabelRemoved]) , _hMessagesDeleted :: !(Maybe [HistoryMessageDeleted]) , _hMessagesAdded :: !(Maybe [HistoryMessageAdded]) , _hLabelsAdded :: !(Maybe [HistoryLabelAdded]) , _hId :: !(Maybe (Textual Word64)) , _hMessages :: !(Maybe [Message]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'History' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -373,7 +383,7 @@ history :: History history = - History' + History' { _hLabelsRemoved = Nothing , _hMessagesDeleted = Nothing , _hMessagesAdded = Nothing @@ -382,6 +392,7 @@ , _hMessages = Nothing } + -- | Labels removed from messages in this history record. hLabelsRemoved :: Lens' History [HistoryLabelRemoved] hLabelsRemoved @@ -453,10 +464,13 @@ -- | Response for the ListDelegates method. -- -- /See:/ 'listDelegatesResponse' smart constructor. -newtype ListDelegatesResponse = ListDelegatesResponse' +newtype ListDelegatesResponse = + ListDelegatesResponse' { _ldrDelegates :: Maybe [Delegate] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDelegatesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -464,11 +478,9 @@ -- * 'ldrDelegates' listDelegatesResponse :: ListDelegatesResponse -listDelegatesResponse = - ListDelegatesResponse' - { _ldrDelegates = Nothing - } +listDelegatesResponse = ListDelegatesResponse' {_ldrDelegates = Nothing} + -- | List of the user\'s delegates (with any verification status). ldrDelegates :: Lens' ListDelegatesResponse [Delegate] ldrDelegates @@ -490,11 +502,14 @@ -- -- /See:/ 'labelColor' smart constructor. -data LabelColor = LabelColor' +data LabelColor = + LabelColor' { _lcBackgRoundColor :: !(Maybe Text) , _lcTextColor :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'LabelColor' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -504,12 +519,9 @@ -- * 'lcTextColor' labelColor :: LabelColor -labelColor = - LabelColor' - { _lcBackgRoundColor = Nothing - , _lcTextColor = Nothing - } +labelColor = LabelColor' {_lcBackgRoundColor = Nothing, _lcTextColor = Nothing} + -- | The background color represented as hex string #RRGGBB (ex #000000). -- This field is required in order to set the color of a label. Only the -- following predefined set of color values are allowed: #000000, #434343, @@ -558,7 +570,8 @@ -- | Message matching criteria. -- -- /See:/ 'filterCriteria' smart constructor. -data FilterCriteria = FilterCriteria' +data FilterCriteria = + FilterCriteria' { _fcSizeComparison :: !(Maybe FilterCriteriaSizeComparison) , _fcSubject :: !(Maybe Text) , _fcSize :: !(Maybe (Textual Int32)) @@ -568,8 +581,10 @@ , _fcQuery :: !(Maybe Text) , _fcNegatedQuery :: !(Maybe Text) , _fcHasAttachment :: !(Maybe Bool) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FilterCriteria' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -594,7 +609,7 @@ filterCriteria :: FilterCriteria filterCriteria = - FilterCriteria' + FilterCriteria' { _fcSizeComparison = Nothing , _fcSubject = Nothing , _fcSize = Nothing @@ -606,6 +621,7 @@ , _fcHasAttachment = Nothing } + -- | How the message size in bytes should be in relation to the size field. fcSizeComparison :: Lens' FilterCriteria (Maybe FilterCriteriaSizeComparison) fcSizeComparison @@ -693,13 +709,16 @@ -- | Profile for a Gmail user. -- -- /See:/ 'proFile' smart constructor. -data ProFile = ProFile' +data ProFile = + ProFile' { _pfMessagesTotal :: !(Maybe (Textual Int32)) , _pfThreadsTotal :: !(Maybe (Textual Int32)) , _pfHistoryId :: !(Maybe (Textual Word64)) , _pfEmailAddress :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProFile' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -714,13 +733,14 @@ proFile :: ProFile proFile = - ProFile' + ProFile' { _pfMessagesTotal = Nothing , _pfThreadsTotal = Nothing , _pfHistoryId = Nothing , _pfEmailAddress = Nothing } + -- | The total number of messages in the mailbox. pfMessagesTotal :: Lens' ProFile (Maybe Int32) pfMessagesTotal @@ -767,11 +787,14 @@ -- -- /See:/ 'messagePartHeader' smart constructor. -data MessagePartHeader = MessagePartHeader' +data MessagePartHeader = + MessagePartHeader' { _mphValue :: !(Maybe Text) , _mphName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MessagePartHeader' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -781,12 +804,9 @@ -- * 'mphName' messagePartHeader :: MessagePartHeader -messagePartHeader = - MessagePartHeader' - { _mphValue = Nothing - , _mphName = Nothing - } +messagePartHeader = MessagePartHeader' {_mphValue = Nothing, _mphName = Nothing} + -- | The value of the header after the : separator. For example, -- someuser\'example.com. mphValue :: Lens' MessagePartHeader (Maybe Text) @@ -812,12 +832,15 @@ -- -- /See:/ 'listHistoryResponse' smart constructor. -data ListHistoryResponse = ListHistoryResponse' +data ListHistoryResponse = + ListHistoryResponse' { _lhrNextPageToken :: !(Maybe Text) , _lhrHistory :: !(Maybe [History]) , _lhrHistoryId :: !(Maybe (Textual Word64)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListHistoryResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -830,12 +853,13 @@ listHistoryResponse :: ListHistoryResponse listHistoryResponse = - ListHistoryResponse' + ListHistoryResponse' { _lhrNextPageToken = Nothing , _lhrHistory = Nothing , _lhrHistoryId = Nothing } + -- | Page token to retrieve the next page of results in the list. lhrNextPageToken :: Lens' ListHistoryResponse (Maybe Text) lhrNextPageToken @@ -879,7 +903,8 @@ -- the web interface. -- -- /See:/ 'sendAs' smart constructor. -data SendAs = SendAs' +data SendAs = + SendAs' { _saSignature :: !(Maybe Text) , _saReplyToAddress :: !(Maybe Text) , _saTreatAsAlias :: !(Maybe Bool) @@ -889,8 +914,10 @@ , _saSmtpMsa :: !(Maybe SmtpMsa) , _saIsPrimary :: !(Maybe Bool) , _saIsDefault :: !(Maybe Bool) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SendAs' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -915,7 +942,7 @@ sendAs :: SendAs sendAs = - SendAs' + SendAs' { _saSignature = Nothing , _saReplyToAddress = Nothing , _saTreatAsAlias = Nothing @@ -927,6 +954,7 @@ , _saIsDefault = Nothing } + -- | An optional HTML signature that is included in messages composed with -- this alias in the Gmail web UI. saSignature :: Lens' SendAs (Maybe Text) @@ -1030,12 +1058,15 @@ -- -- /See:/ 'listThreadsResponse' smart constructor. -data ListThreadsResponse = ListThreadsResponse' +data ListThreadsResponse = + ListThreadsResponse' { _ltrNextPageToken :: !(Maybe Text) , _ltrResultSizeEstimate :: !(Maybe (Textual Word32)) , _ltrThreads :: !(Maybe [Thread]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListThreadsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1048,12 +1079,13 @@ listThreadsResponse :: ListThreadsResponse listThreadsResponse = - ListThreadsResponse' + ListThreadsResponse' { _ltrNextPageToken = Nothing , _ltrResultSizeEstimate = Nothing , _ltrThreads = Nothing } + -- | Page token to retrieve the next page of results in the list. ltrNextPageToken :: Lens' ListThreadsResponse (Maybe Text) ltrNextPageToken @@ -1067,7 +1099,9 @@ (\ s a -> s{_ltrResultSizeEstimate = a}) . mapping _Coerce --- | List of threads. +-- | List of threads. Note that each thread resource does not contain a list +-- of messages. The list of messages for a given thread can be fetched +-- using the threads.get method. ltrThreads :: Lens' ListThreadsResponse [Thread] ltrThreads = lens _ltrThreads (\ s a -> s{_ltrThreads = a}) . @@ -1094,15 +1128,18 @@ -- | A single MIME message part. -- -- /See:/ 'messagePart' smart constructor. -data MessagePart = MessagePart' +data MessagePart = + MessagePart' { _mpParts :: !(Maybe [MessagePart]) , _mpBody :: !(Maybe MessagePartBody) , _mpMimeType :: !(Maybe Text) , _mpHeaders :: !(Maybe [MessagePartHeader]) , _mpPartId :: !(Maybe Text) , _mpFilename :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MessagePart' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1121,7 +1158,7 @@ messagePart :: MessagePart messagePart = - MessagePart' + MessagePart' { _mpParts = Nothing , _mpBody = Nothing , _mpMimeType = Nothing @@ -1130,6 +1167,7 @@ , _mpFilename = Nothing } + -- | The child MIME message parts of this part. This only applies to -- container MIME message parts, for example multipart\/*. For non- -- container MIME message part types, such as text\/plain, this field is @@ -1191,11 +1229,14 @@ -- -- /See:/ 'historyLabelAdded' smart constructor. -data HistoryLabelAdded = HistoryLabelAdded' +data HistoryLabelAdded = + HistoryLabelAdded' { _hlaLabelIds :: !(Maybe [Text]) , _hlaMessage :: !(Maybe Message) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'HistoryLabelAdded' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1206,11 +1247,9 @@ historyLabelAdded :: HistoryLabelAdded historyLabelAdded = - HistoryLabelAdded' - { _hlaLabelIds = Nothing - , _hlaMessage = Nothing - } + HistoryLabelAdded' {_hlaLabelIds = Nothing, _hlaMessage = Nothing} + -- | Label IDs added to the message. hlaLabelIds :: Lens' HistoryLabelAdded [Text] hlaLabelIds @@ -1238,10 +1277,13 @@ -- -- /See:/ 'listLabelsResponse' smart constructor. -newtype ListLabelsResponse = ListLabelsResponse' +newtype ListLabelsResponse = + ListLabelsResponse' { _llrLabels :: Maybe [Label] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListLabelsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1249,11 +1291,9 @@ -- * 'llrLabels' listLabelsResponse :: ListLabelsResponse -listLabelsResponse = - ListLabelsResponse' - { _llrLabels = Nothing - } +listLabelsResponse = ListLabelsResponse' {_llrLabels = Nothing} + -- | List of labels. llrLabels :: Lens' ListLabelsResponse [Label] llrLabels @@ -1275,7 +1315,8 @@ -- to the \"Vacation responder\" feature in the web interface. -- -- /See:/ 'vacationSettings' smart constructor. -data VacationSettings = VacationSettings' +data VacationSettings = + VacationSettings' { _vsEnableAutoReply :: !(Maybe Bool) , _vsResponseBodyPlainText :: !(Maybe Text) , _vsRestrictToDomain :: !(Maybe Bool) @@ -1284,8 +1325,10 @@ , _vsRestrictToContacts :: !(Maybe Bool) , _vsResponseSubject :: !(Maybe Text) , _vsEndTime :: !(Maybe (Textual Int64)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'VacationSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1308,7 +1351,7 @@ vacationSettings :: VacationSettings vacationSettings = - VacationSettings' + VacationSettings' { _vsEnableAutoReply = Nothing , _vsResponseBodyPlainText = Nothing , _vsRestrictToDomain = Nothing @@ -1319,6 +1362,7 @@ , _vsEndTime = Nothing } + -- | Flag that controls whether Gmail automatically replies to messages. vsEnableAutoReply :: Lens' VacationSettings (Maybe Bool) vsEnableAutoReply @@ -1409,10 +1453,13 @@ -- -- /See:/ 'historyMessageDeleted' smart constructor. -newtype HistoryMessageDeleted = HistoryMessageDeleted' +newtype HistoryMessageDeleted = + HistoryMessageDeleted' { _hmdMessage :: Maybe Message - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'HistoryMessageDeleted' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1420,11 +1467,9 @@ -- * 'hmdMessage' historyMessageDeleted :: HistoryMessageDeleted -historyMessageDeleted = - HistoryMessageDeleted' - { _hmdMessage = Nothing - } +historyMessageDeleted = HistoryMessageDeleted' {_hmdMessage = Nothing} + hmdMessage :: Lens' HistoryMessageDeleted (Maybe Message) hmdMessage = lens _hmdMessage (\ s a -> s{_hmdMessage = a}) @@ -1441,12 +1486,15 @@ -- | The body of a single MIME message part. -- -- /See:/ 'messagePartBody' smart constructor. -data MessagePartBody = MessagePartBody' +data MessagePartBody = + MessagePartBody' { _mpbSize :: !(Maybe (Textual Int32)) , _mpbData :: !(Maybe Bytes) , _mpbAttachmentId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MessagePartBody' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1459,12 +1507,10 @@ messagePartBody :: MessagePartBody messagePartBody = - MessagePartBody' - { _mpbSize = Nothing - , _mpbData = Nothing - , _mpbAttachmentId = Nothing - } + MessagePartBody' + {_mpbSize = Nothing, _mpbData = Nothing, _mpbAttachmentId = Nothing} + -- | Number of bytes for the message part data (encoding notwithstanding). mpbSize :: Lens' MessagePartBody (Maybe Int32) mpbSize @@ -1507,12 +1553,15 @@ -- | Auto-forwarding settings for an account. -- -- /See:/ 'autoForwarding' smart constructor. -data AutoForwarding = AutoForwarding' +data AutoForwarding = + AutoForwarding' { _afEnabled :: !(Maybe Bool) , _afDisPosition :: !(Maybe AutoForwardingDisPosition) , _afEmailAddress :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AutoForwarding' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1525,12 +1574,10 @@ autoForwarding :: AutoForwarding autoForwarding = - AutoForwarding' - { _afEnabled = Nothing - , _afDisPosition = Nothing - , _afEmailAddress = Nothing - } + AutoForwarding' + {_afEnabled = Nothing, _afDisPosition = Nothing, _afEmailAddress = Nothing} + -- | Whether all incoming mail is automatically forwarded to another address. afEnabled :: Lens' AutoForwarding (Maybe Bool) afEnabled @@ -1567,12 +1614,15 @@ -- -- /See:/ 'listDraftsResponse' smart constructor. -data ListDraftsResponse = ListDraftsResponse' +data ListDraftsResponse = + ListDraftsResponse' { _ldrNextPageToken :: !(Maybe Text) , _ldrResultSizeEstimate :: !(Maybe (Textual Word32)) , _ldrDrafts :: !(Maybe [Draft]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDraftsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1585,12 +1635,13 @@ listDraftsResponse :: ListDraftsResponse listDraftsResponse = - ListDraftsResponse' + ListDraftsResponse' { _ldrNextPageToken = Nothing , _ldrResultSizeEstimate = Nothing , _ldrDrafts = Nothing } + -- | Token to retrieve the next page of results in the list. ldrNextPageToken :: Lens' ListDraftsResponse (Maybe Text) ldrNextPageToken @@ -1631,10 +1682,13 @@ -- | Response for the ListSendAs method. -- -- /See:/ 'listSendAsResponse' smart constructor. -newtype ListSendAsResponse = ListSendAsResponse' +newtype ListSendAsResponse = + ListSendAsResponse' { _lsarSendAs :: Maybe [SendAs] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListSendAsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1642,11 +1696,9 @@ -- * 'lsarSendAs' listSendAsResponse :: ListSendAsResponse -listSendAsResponse = - ListSendAsResponse' - { _lsarSendAs = Nothing - } +listSendAsResponse = ListSendAsResponse' {_lsarSendAs = Nothing} + -- | List of send-as aliases. lsarSendAs :: Lens' ListSendAsResponse [SendAs] lsarSendAs @@ -1664,14 +1716,66 @@ toJSON ListSendAsResponse'{..} = object (catMaybes [("sendAs" .=) <$> _lsarSendAs]) +-- | Language settings for an account. These settings correspond to the +-- \"Language settings\" feature in the web interface. +-- +-- /See:/ 'languageSettings' smart constructor. +newtype LanguageSettings = + LanguageSettings' + { _lsDisplayLanguage :: Maybe Text + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LanguageSettings' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lsDisplayLanguage' +languageSettings + :: LanguageSettings +languageSettings = LanguageSettings' {_lsDisplayLanguage = Nothing} + + +-- | The language to display Gmail in, formatted as an RFC 3066 Language Tag +-- (for example en-GB, fr or ja for British English, French, or Japanese +-- respectively). The set of languages supported by Gmail evolves over +-- time, so please refer to the \"Language\" dropdown in the Gmail settings +-- for all available options, as described in the language settings help +-- article. A table of sample values is also provided in the Managing +-- Language Settings guide Not all Gmail clients can display the same set +-- of languages. In the case that a user\'s display language is not +-- available for use on a particular client, said client automatically +-- chooses to display in the closest supported variant (or a reasonable +-- default). +lsDisplayLanguage :: Lens' LanguageSettings (Maybe Text) +lsDisplayLanguage + = lens _lsDisplayLanguage + (\ s a -> s{_lsDisplayLanguage = a}) + +instance FromJSON LanguageSettings where + parseJSON + = withObject "LanguageSettings" + (\ o -> + LanguageSettings' <$> (o .:? "displayLanguage")) + +instance ToJSON LanguageSettings where + toJSON LanguageSettings'{..} + = object + (catMaybes + [("displayLanguage" .=) <$> _lsDisplayLanguage]) + -- | Push notification watch response. -- -- /See:/ 'watchResponse' smart constructor. -data WatchResponse = WatchResponse' +data WatchResponse = + WatchResponse' { _wrExpiration :: !(Maybe (Textual Int64)) , _wrHistoryId :: !(Maybe (Textual Word64)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'WatchResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1681,12 +1785,9 @@ -- * 'wrHistoryId' watchResponse :: WatchResponse -watchResponse = - WatchResponse' - { _wrExpiration = Nothing - , _wrHistoryId = Nothing - } +watchResponse = WatchResponse' {_wrExpiration = Nothing, _wrHistoryId = Nothing} + -- | When Gmail will stop sending notifications for mailbox updates (epoch -- millis). Call watch again before this time to renew the watch. wrExpiration :: Lens' WatchResponse (Maybe Int64) @@ -1716,12 +1817,15 @@ -- -- /See:/ 'batchModifyMessagesRequest' smart constructor. -data BatchModifyMessagesRequest = BatchModifyMessagesRequest' +data BatchModifyMessagesRequest = + BatchModifyMessagesRequest' { _bmmrIds :: !(Maybe [Text]) , _bmmrRemoveLabelIds :: !(Maybe [Text]) , _bmmrAddLabelIds :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BatchModifyMessagesRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1734,12 +1838,13 @@ batchModifyMessagesRequest :: BatchModifyMessagesRequest batchModifyMessagesRequest = - BatchModifyMessagesRequest' + BatchModifyMessagesRequest' { _bmmrIds = Nothing , _bmmrRemoveLabelIds = Nothing , _bmmrAddLabelIds = Nothing } + -- | The IDs of the messages to modify. There is a limit of 1000 ids per -- request. bmmrIds :: Lens' BatchModifyMessagesRequest [Text] @@ -1783,11 +1888,14 @@ -- | A draft email in the user\'s mailbox. -- -- /See:/ 'draft' smart constructor. -data Draft = Draft' +data Draft = + Draft' { _dId :: !(Maybe Text) , _dMessage :: !(Maybe Message) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Draft' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1797,12 +1905,9 @@ -- * 'dMessage' draft :: Draft -draft = - Draft' - { _dId = Nothing - , _dMessage = Nothing - } +draft = Draft' {_dId = Nothing, _dMessage = Nothing} + -- | The immutable ID of the draft. dId :: Lens' Draft (Maybe Text) dId = lens _dId (\ s a -> s{_dId = a}) @@ -1826,14 +1931,17 @@ -- | Configuration for communication with an SMTP service. -- -- /See:/ 'smtpMsa' smart constructor. -data SmtpMsa = SmtpMsa' +data SmtpMsa = + SmtpMsa' { _smSecurityMode :: !(Maybe SmtpMsaSecurityMode) , _smUsername :: !(Maybe Text) , _smPassword :: !(Maybe Text) , _smHost :: !(Maybe Text) , _smPort :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SmtpMsa' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1850,7 +1958,7 @@ smtpMsa :: SmtpMsa smtpMsa = - SmtpMsa' + SmtpMsa' { _smSecurityMode = Nothing , _smUsername = Nothing , _smPassword = Nothing @@ -1858,6 +1966,7 @@ , _smPort = Nothing } + -- | The protocol that will be used to secure communication with the SMTP -- service. Required. smSecurityMode :: Lens' SmtpMsa (Maybe SmtpMsaSecurityMode) @@ -1911,11 +2020,14 @@ -- | Settings for a forwarding address. -- -- /See:/ 'forwardingAddress' smart constructor. -data ForwardingAddress = ForwardingAddress' +data ForwardingAddress = + ForwardingAddress' { _faForwardingEmail :: !(Maybe Text) , _faVerificationStatus :: !(Maybe ForwardingAddressVerificationStatus) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ForwardingAddress' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1926,11 +2038,10 @@ forwardingAddress :: ForwardingAddress forwardingAddress = - ForwardingAddress' - { _faForwardingEmail = Nothing - , _faVerificationStatus = Nothing - } + ForwardingAddress' + {_faForwardingEmail = Nothing, _faVerificationStatus = Nothing} + -- | An email address to which messages can be forwarded. faForwardingEmail :: Lens' ForwardingAddress (Maybe Text) faForwardingEmail @@ -1963,12 +2074,15 @@ -- messages instead of an entire email thread. -- -- /See:/ 'filter'' smart constructor. -data Filter = Filter' +data Filter = + Filter' { _fAction :: !(Maybe FilterAction) , _fId :: !(Maybe Text) , _fCriteria :: !(Maybe FilterCriteria) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Filter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1980,13 +2094,9 @@ -- * 'fCriteria' filter' :: Filter -filter' = - Filter' - { _fAction = Nothing - , _fId = Nothing - , _fCriteria = Nothing - } +filter' = Filter' {_fAction = Nothing, _fId = Nothing, _fCriteria = Nothing} + -- | Action that the filter performs. fAction :: Lens' Filter (Maybe FilterAction) fAction = lens _fAction (\ s a -> s{_fAction = a}) @@ -2018,12 +2128,15 @@ -- | Set up or update a new push notification watch on this user\'s mailbox. -- -- /See:/ 'watchRequest' smart constructor. -data WatchRequest = WatchRequest' +data WatchRequest = + WatchRequest' { _wrLabelFilterAction :: !(Maybe WatchRequestLabelFilterAction) , _wrTopicName :: !(Maybe Text) , _wrLabelIds :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'WatchRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2036,12 +2149,13 @@ watchRequest :: WatchRequest watchRequest = - WatchRequest' + WatchRequest' { _wrLabelFilterAction = Nothing , _wrTopicName = Nothing , _wrLabelIds = Nothing } + -- | Filtering behavior of labelIds list specified. wrLabelFilterAction :: Lens' WatchRequest (Maybe WatchRequestLabelFilterAction) wrLabelFilterAction @@ -2087,13 +2201,16 @@ -- | IMAP settings for an account. -- -- /See:/ 'imapSettings' smart constructor. -data ImapSettings = ImapSettings' +data ImapSettings = + ImapSettings' { _isEnabled :: !(Maybe Bool) , _isExpungeBehavior :: !(Maybe ImapSettingsExpungeBehavior) , _isAutoExpunge :: !(Maybe Bool) , _isMaxFolderSize :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ImapSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2108,13 +2225,14 @@ imapSettings :: ImapSettings imapSettings = - ImapSettings' + ImapSettings' { _isEnabled = Nothing , _isExpungeBehavior = Nothing , _isAutoExpunge = Nothing , _isMaxFolderSize = Nothing } + -- | Whether IMAP is enabled for the account. isEnabled :: Lens' ImapSettings (Maybe Bool) isEnabled @@ -2164,10 +2282,13 @@ -- -- /See:/ 'listSmimeInfoResponse' smart constructor. -newtype ListSmimeInfoResponse = ListSmimeInfoResponse' +newtype ListSmimeInfoResponse = + ListSmimeInfoResponse' { _lsirSmimeInfo :: Maybe [SmimeInfo] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListSmimeInfoResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2175,11 +2296,9 @@ -- * 'lsirSmimeInfo' listSmimeInfoResponse :: ListSmimeInfoResponse -listSmimeInfoResponse = - ListSmimeInfoResponse' - { _lsirSmimeInfo = Nothing - } +listSmimeInfoResponse = ListSmimeInfoResponse' {_lsirSmimeInfo = Nothing} + -- | List of SmimeInfo. lsirSmimeInfo :: Lens' ListSmimeInfoResponse [SmimeInfo] lsirSmimeInfo @@ -2203,7 +2322,8 @@ -- | An email message. -- -- /See:/ 'message' smart constructor. -data Message = Message' +data Message = + Message' { _mRaw :: !(Maybe Bytes) , _mSnippet :: !(Maybe Text) , _mSizeEstimate :: !(Maybe (Textual Int32)) @@ -2213,8 +2333,10 @@ , _mLabelIds :: !(Maybe [Text]) , _mThreadId :: !(Maybe Text) , _mInternalDate :: !(Maybe (Textual Int64)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Message' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2239,7 +2361,7 @@ message :: Message message = - Message' + Message' { _mRaw = Nothing , _mSnippet = Nothing , _mSizeEstimate = Nothing @@ -2251,6 +2373,7 @@ , _mInternalDate = Nothing } + -- | The entire email message in an RFC 2822 formatted and base64url encoded -- string. Returned in messages.get and drafts.get responses when the -- format=RAW parameter is supplied. @@ -2339,11 +2462,14 @@ -- -- /See:/ 'historyLabelRemoved' smart constructor. -data HistoryLabelRemoved = HistoryLabelRemoved' +data HistoryLabelRemoved = + HistoryLabelRemoved' { _hlrLabelIds :: !(Maybe [Text]) , _hlrMessage :: !(Maybe Message) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'HistoryLabelRemoved' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2354,11 +2480,9 @@ historyLabelRemoved :: HistoryLabelRemoved historyLabelRemoved = - HistoryLabelRemoved' - { _hlrLabelIds = Nothing - , _hlrMessage = Nothing - } + HistoryLabelRemoved' {_hlrLabelIds = Nothing, _hlrMessage = Nothing} + -- | Label IDs removed from the message. hlrLabelIds :: Lens' HistoryLabelRemoved [Text] hlrLabelIds @@ -2387,13 +2511,16 @@ -- | A collection of messages representing a conversation. -- -- /See:/ 'thread' smart constructor. -data Thread = Thread' +data Thread = + Thread' { _tSnippet :: !(Maybe Text) , _tHistoryId :: !(Maybe (Textual Word64)) , _tId :: !(Maybe Text) , _tMessages :: !(Maybe [Message]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Thread' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2408,13 +2535,14 @@ thread :: Thread thread = - Thread' + Thread' { _tSnippet = Nothing , _tHistoryId = Nothing , _tId = Nothing , _tMessages = Nothing } + -- | A short part of the message text. tSnippet :: Lens' Thread (Maybe Text) tSnippet = lens _tSnippet (\ s a -> s{_tSnippet = a}) @@ -2456,12 +2584,15 @@ -- | A set of actions to perform on a message. -- -- /See:/ 'filterAction' smart constructor. -data FilterAction = FilterAction' +data FilterAction = + FilterAction' { _faForward :: !(Maybe Text) , _faRemoveLabelIds :: !(Maybe [Text]) , _faAddLabelIds :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FilterAction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2474,12 +2605,13 @@ filterAction :: FilterAction filterAction = - FilterAction' + FilterAction' { _faForward = Nothing , _faRemoveLabelIds = Nothing , _faAddLabelIds = Nothing } + -- | Email address that the message should be forwarded to. faForward :: Lens' FilterAction (Maybe Text) faForward @@ -2522,7 +2654,8 @@ -- mailbox. -- -- /See:/ 'label' smart constructor. -data Label = Label' +data Label = + Label' { _lThreadsUnread :: !(Maybe (Textual Int32)) , _lMessageListVisibility :: !(Maybe LabelMessageListVisibility) , _lMessagesTotal :: !(Maybe (Textual Int32)) @@ -2533,8 +2666,10 @@ , _lLabelListVisibility :: !(Maybe LabelLabelListVisibility) , _lId :: !(Maybe Text) , _lType :: !(Maybe LabelType) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Label' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2561,7 +2696,7 @@ label :: Label label = - Label' + Label' { _lThreadsUnread = Nothing , _lMessageListVisibility = Nothing , _lMessagesTotal = Nothing @@ -2574,6 +2709,7 @@ , _lType = Nothing } + -- | The number of unread threads with the label. lThreadsUnread :: Lens' Label (Maybe Int32) lThreadsUnread @@ -2674,7 +2810,8 @@ -- | An S\/MIME email config. -- -- /See:/ 'smimeInfo' smart constructor. -data SmimeInfo = SmimeInfo' +data SmimeInfo = + SmimeInfo' { _siPem :: !(Maybe Text) , _siExpiration :: !(Maybe (Textual Int64)) , _siEncryptedKeyPassword :: !(Maybe Text) @@ -2682,8 +2819,10 @@ , _siPkcs12 :: !(Maybe Bytes) , _siIssuerCn :: !(Maybe Text) , _siIsDefault :: !(Maybe Bool) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SmimeInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2704,7 +2843,7 @@ smimeInfo :: SmimeInfo smimeInfo = - SmimeInfo' + SmimeInfo' { _siPem = Nothing , _siExpiration = Nothing , _siEncryptedKeyPassword = Nothing @@ -2714,6 +2853,7 @@ , _siIsDefault = Nothing } + -- | PEM formatted X509 concatenated certificate string (standard base64 -- encoding). Format used for returning key, which includes public key as -- well as certificate chain (not private key). @@ -2783,12 +2923,15 @@ -- -- /See:/ 'listMessagesResponse' smart constructor. -data ListMessagesResponse = ListMessagesResponse' +data ListMessagesResponse = + ListMessagesResponse' { _lmrNextPageToken :: !(Maybe Text) , _lmrResultSizeEstimate :: !(Maybe (Textual Word32)) , _lmrMessages :: !(Maybe [Message]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListMessagesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2801,12 +2944,13 @@ listMessagesResponse :: ListMessagesResponse listMessagesResponse = - ListMessagesResponse' + ListMessagesResponse' { _lmrNextPageToken = Nothing , _lmrResultSizeEstimate = Nothing , _lmrMessages = Nothing } + -- | Token to retrieve the next page of results in the list. lmrNextPageToken :: Lens' ListMessagesResponse (Maybe Text) lmrNextPageToken @@ -2820,7 +2964,9 @@ (\ s a -> s{_lmrResultSizeEstimate = a}) . mapping _Coerce --- | List of messages. +-- | List of messages. Note that each message resource contains only an id +-- and a threadId. Additional message details can be fetched using the +-- messages.get method. lmrMessages :: Lens' ListMessagesResponse [Message] lmrMessages = lens _lmrMessages (\ s a -> s{_lmrMessages = a}) . @@ -2846,10 +2992,13 @@ -- -- /See:/ 'historyMessageAdded' smart constructor. -newtype HistoryMessageAdded = HistoryMessageAdded' +newtype HistoryMessageAdded = + HistoryMessageAdded' { _hmaMessage :: Maybe Message - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'HistoryMessageAdded' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2857,10 +3006,8 @@ -- * 'hmaMessage' historyMessageAdded :: HistoryMessageAdded -historyMessageAdded = - HistoryMessageAdded' - { _hmaMessage = Nothing - } +historyMessageAdded = HistoryMessageAdded' {_hmaMessage = Nothing} + hmaMessage :: Lens' HistoryMessageAdded (Maybe Message) hmaMessage diff --git a/gen/Network/Google/Resource/Gmail/Users/Drafts/Create.hs b/gen/Network/Google/Resource/Gmail/Users/Drafts/Create.hs --- a/gen/Network/Google/Resource/Gmail/Users/Drafts/Create.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Drafts/Create.hs @@ -64,11 +64,14 @@ -- | Creates a new draft with the DRAFT label. -- -- /See:/ 'usersDraftsCreate' smart constructor. -data UsersDraftsCreate = UsersDraftsCreate' +data UsersDraftsCreate = + UsersDraftsCreate' { _udcPayload :: !Draft , _udcUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDraftsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -80,11 +83,9 @@ :: Draft -- ^ 'udcPayload' -> UsersDraftsCreate usersDraftsCreate pUdcPayload_ = - UsersDraftsCreate' - { _udcPayload = pUdcPayload_ - , _udcUserId = "me" - } + UsersDraftsCreate' {_udcPayload = pUdcPayload_, _udcUserId = "me"} + -- | Multipart request metadata. udcPayload :: Lens' UsersDraftsCreate Draft udcPayload @@ -111,7 +112,8 @@ mempty instance GoogleRequest - (MediaUpload UsersDraftsCreate) where + (MediaUpload UsersDraftsCreate) + where type Rs (MediaUpload UsersDraftsCreate) = Draft type Scopes (MediaUpload UsersDraftsCreate) = Scopes UsersDraftsCreate diff --git a/gen/Network/Google/Resource/Gmail/Users/Drafts/Delete.hs b/gen/Network/Google/Resource/Gmail/Users/Drafts/Delete.hs --- a/gen/Network/Google/Resource/Gmail/Users/Drafts/Delete.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Drafts/Delete.hs @@ -56,11 +56,14 @@ -- trash it. -- -- /See:/ 'usersDraftsDelete' smart constructor. -data UsersDraftsDelete = UsersDraftsDelete' +data UsersDraftsDelete = + UsersDraftsDelete' { _uddUserId :: !Text , _uddId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDraftsDelete' 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 @@ :: Text -- ^ 'uddId' -> UsersDraftsDelete usersDraftsDelete pUddId_ = - UsersDraftsDelete' - { _uddUserId = "me" - , _uddId = pUddId_ - } + UsersDraftsDelete' {_uddUserId = "me", _uddId = pUddId_} + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Drafts/Get.hs b/gen/Network/Google/Resource/Gmail/Users/Drafts/Get.hs --- a/gen/Network/Google/Resource/Gmail/Users/Drafts/Get.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Drafts/Get.hs @@ -56,12 +56,15 @@ -- | Gets the specified draft. -- -- /See:/ 'usersDraftsGet' smart constructor. -data UsersDraftsGet = UsersDraftsGet' +data UsersDraftsGet = + UsersDraftsGet' { _udgFormat :: !UsersDraftsGetFormat , _udgUserId :: !Text , _udgId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDraftsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -75,11 +78,8 @@ :: Text -- ^ 'udgId' -> UsersDraftsGet usersDraftsGet pUdgId_ = - UsersDraftsGet' - { _udgFormat = UDGFFull - , _udgUserId = "me" - , _udgId = pUdgId_ - } + UsersDraftsGet' {_udgFormat = UDGFFull, _udgUserId = "me", _udgId = pUdgId_} + -- | The format to return the draft in. udgFormat :: Lens' UsersDraftsGet UsersDraftsGetFormat diff --git a/gen/Network/Google/Resource/Gmail/Users/Drafts/List.hs b/gen/Network/Google/Resource/Gmail/Users/Drafts/List.hs --- a/gen/Network/Google/Resource/Gmail/Users/Drafts/List.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Drafts/List.hs @@ -61,14 +61,17 @@ -- | Lists the drafts in the user\'s mailbox. -- -- /See:/ 'usersDraftsList' smart constructor. -data UsersDraftsList = UsersDraftsList' +data UsersDraftsList = + UsersDraftsList' { _udlQ :: !(Maybe Text) , _udlUserId :: !Text , _udlIncludeSpamTrash :: !Bool , _udlPageToken :: !(Maybe Text) , _udlMaxResults :: !(Textual Word32) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDraftsList' 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 @@ usersDraftsList :: UsersDraftsList usersDraftsList = - UsersDraftsList' + UsersDraftsList' { _udlQ = Nothing , _udlUserId = "me" , _udlIncludeSpamTrash = False , _udlPageToken = Nothing , _udlMaxResults = 100 } + -- | Only return draft messages matching the specified query. Supports the -- same query format as the Gmail search box. For example, diff --git a/gen/Network/Google/Resource/Gmail/Users/Drafts/Send.hs b/gen/Network/Google/Resource/Gmail/Users/Drafts/Send.hs --- a/gen/Network/Google/Resource/Gmail/Users/Drafts/Send.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Drafts/Send.hs @@ -69,11 +69,14 @@ -- Bcc headers. -- -- /See:/ 'usersDraftsSend' smart constructor. -data UsersDraftsSend = UsersDraftsSend' +data UsersDraftsSend = + UsersDraftsSend' { _udsPayload :: !Draft , _udsUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDraftsSend' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -85,10 +88,8 @@ :: Draft -- ^ 'udsPayload' -> UsersDraftsSend usersDraftsSend pUdsPayload_ = - UsersDraftsSend' - { _udsPayload = pUdsPayload_ - , _udsUserId = "me" - } + UsersDraftsSend' {_udsPayload = pUdsPayload_, _udsUserId = "me"} + -- | Multipart request metadata. udsPayload :: Lens' UsersDraftsSend Draft diff --git a/gen/Network/Google/Resource/Gmail/Users/Drafts/Update.hs b/gen/Network/Google/Resource/Gmail/Users/Drafts/Update.hs --- a/gen/Network/Google/Resource/Gmail/Users/Drafts/Update.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Drafts/Update.hs @@ -67,12 +67,15 @@ -- | Replaces a draft\'s content. -- -- /See:/ 'usersDraftsUpdate' smart constructor. -data UsersDraftsUpdate = UsersDraftsUpdate' +data UsersDraftsUpdate = + UsersDraftsUpdate' { _uduPayload :: !Draft , _uduUserId :: !Text , _uduId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDraftsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,12 +90,10 @@ -> Text -- ^ 'uduId' -> UsersDraftsUpdate usersDraftsUpdate pUduPayload_ pUduId_ = - UsersDraftsUpdate' - { _uduPayload = pUduPayload_ - , _uduUserId = "me" - , _uduId = pUduId_ - } + UsersDraftsUpdate' + {_uduPayload = pUduPayload_, _uduUserId = "me", _uduId = pUduId_} + -- | Multipart request metadata. uduPayload :: Lens' UsersDraftsUpdate Draft uduPayload @@ -123,7 +124,8 @@ mempty instance GoogleRequest - (MediaUpload UsersDraftsUpdate) where + (MediaUpload UsersDraftsUpdate) + where type Rs (MediaUpload UsersDraftsUpdate) = Draft type Scopes (MediaUpload UsersDraftsUpdate) = Scopes UsersDraftsUpdate diff --git a/gen/Network/Google/Resource/Gmail/Users/GetProFile.hs b/gen/Network/Google/Resource/Gmail/Users/GetProFile.hs --- a/gen/Network/Google/Resource/Gmail/Users/GetProFile.hs +++ b/gen/Network/Google/Resource/Gmail/Users/GetProFile.hs @@ -52,10 +52,13 @@ -- | Gets the current user\'s Gmail profile. -- -- /See:/ 'usersGetProFile' smart constructor. -newtype UsersGetProFile = UsersGetProFile' +newtype UsersGetProFile = + UsersGetProFile' { _ugpfUserId :: Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersGetProFile' 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 @@ -- * 'ugpfUserId' usersGetProFile :: UsersGetProFile -usersGetProFile = - UsersGetProFile' - { _ugpfUserId = "me" - } +usersGetProFile = UsersGetProFile' {_ugpfUserId = "me"} + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/History/List.hs b/gen/Network/Google/Resource/Gmail/Users/History/List.hs --- a/gen/Network/Google/Resource/Gmail/Users/History/List.hs +++ b/gen/Network/Google/Resource/Gmail/Users/History/List.hs @@ -67,15 +67,18 @@ -- are returned in chronological order (increasing historyId). -- -- /See:/ 'usersHistoryList' smart constructor. -data UsersHistoryList = UsersHistoryList' +data UsersHistoryList = + UsersHistoryList' { _uhlHistoryTypes :: !(Maybe [UsersHistoryListHistoryTypes]) , _uhlUserId :: !Text , _uhlStartHistoryId :: !(Maybe (Textual Word64)) , _uhlPageToken :: !(Maybe Text) , _uhlLabelId :: !(Maybe Text) , _uhlMaxResults :: !(Textual Word32) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersHistoryList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -94,7 +97,7 @@ usersHistoryList :: UsersHistoryList usersHistoryList = - UsersHistoryList' + UsersHistoryList' { _uhlHistoryTypes = Nothing , _uhlUserId = "me" , _uhlStartHistoryId = Nothing @@ -102,6 +105,7 @@ , _uhlLabelId = Nothing , _uhlMaxResults = 100 } + -- | History types to be returned by the function uhlHistoryTypes :: Lens' UsersHistoryList [UsersHistoryListHistoryTypes] diff --git a/gen/Network/Google/Resource/Gmail/Users/Labels/Create.hs b/gen/Network/Google/Resource/Gmail/Users/Labels/Create.hs --- a/gen/Network/Google/Resource/Gmail/Users/Labels/Create.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Labels/Create.hs @@ -54,11 +54,14 @@ -- | Creates a new label. -- -- /See:/ 'usersLabelsCreate' smart constructor. -data UsersLabelsCreate = UsersLabelsCreate' +data UsersLabelsCreate = + UsersLabelsCreate' { _ulcPayload :: !Label , _ulcUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersLabelsCreate' 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 @@ :: Label -- ^ 'ulcPayload' -> UsersLabelsCreate usersLabelsCreate pUlcPayload_ = - UsersLabelsCreate' - { _ulcPayload = pUlcPayload_ - , _ulcUserId = "me" - } + UsersLabelsCreate' {_ulcPayload = pUlcPayload_, _ulcUserId = "me"} + -- | Multipart request metadata. ulcPayload :: Lens' UsersLabelsCreate Label diff --git a/gen/Network/Google/Resource/Gmail/Users/Labels/Delete.hs b/gen/Network/Google/Resource/Gmail/Users/Labels/Delete.hs --- a/gen/Network/Google/Resource/Gmail/Users/Labels/Delete.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Labels/Delete.hs @@ -56,11 +56,14 @@ -- from any messages and threads that it is applied to. -- -- /See:/ 'usersLabelsDelete' smart constructor. -data UsersLabelsDelete = UsersLabelsDelete' +data UsersLabelsDelete = + UsersLabelsDelete' { _uldUserId :: !Text , _uldId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersLabelsDelete' 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 @@ :: Text -- ^ 'uldId' -> UsersLabelsDelete usersLabelsDelete pUldId_ = - UsersLabelsDelete' - { _uldUserId = "me" - , _uldId = pUldId_ - } + UsersLabelsDelete' {_uldUserId = "me", _uldId = pUldId_} + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Labels/Get.hs b/gen/Network/Google/Resource/Gmail/Users/Labels/Get.hs --- a/gen/Network/Google/Resource/Gmail/Users/Labels/Get.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Labels/Get.hs @@ -54,11 +54,14 @@ -- | Gets the specified label. -- -- /See:/ 'usersLabelsGet' smart constructor. -data UsersLabelsGet = UsersLabelsGet' +data UsersLabelsGet = + UsersLabelsGet' { _ulgUserId :: !Text , _ulgId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersLabelsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -69,11 +72,8 @@ usersLabelsGet :: Text -- ^ 'ulgId' -> UsersLabelsGet -usersLabelsGet pUlgId_ = - UsersLabelsGet' - { _ulgUserId = "me" - , _ulgId = pUlgId_ - } +usersLabelsGet pUlgId_ = UsersLabelsGet' {_ulgUserId = "me", _ulgId = pUlgId_} + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Labels/List.hs b/gen/Network/Google/Resource/Gmail/Users/Labels/List.hs --- a/gen/Network/Google/Resource/Gmail/Users/Labels/List.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Labels/List.hs @@ -53,10 +53,13 @@ -- | Lists all labels in the user\'s mailbox. -- -- /See:/ 'usersLabelsList' smart constructor. -newtype UsersLabelsList = UsersLabelsList' +newtype UsersLabelsList = + UsersLabelsList' { _ullUserId :: Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersLabelsList' 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 @@ -- * 'ullUserId' usersLabelsList :: UsersLabelsList -usersLabelsList = - UsersLabelsList' - { _ullUserId = "me" - } +usersLabelsList = UsersLabelsList' {_ullUserId = "me"} + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Labels/Patch.hs b/gen/Network/Google/Resource/Gmail/Users/Labels/Patch.hs --- a/gen/Network/Google/Resource/Gmail/Users/Labels/Patch.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Labels/Patch.hs @@ -56,12 +56,15 @@ -- | Updates the specified label. This method supports patch semantics. -- -- /See:/ 'usersLabelsPatch' smart constructor. -data UsersLabelsPatch = UsersLabelsPatch' +data UsersLabelsPatch = + UsersLabelsPatch' { _ulpPayload :: !Label , _ulpUserId :: !Text , _ulpId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersLabelsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -76,11 +79,9 @@ -> Text -- ^ 'ulpId' -> UsersLabelsPatch usersLabelsPatch pUlpPayload_ pUlpId_ = - UsersLabelsPatch' - { _ulpPayload = pUlpPayload_ - , _ulpUserId = "me" - , _ulpId = pUlpId_ - } + UsersLabelsPatch' + {_ulpPayload = pUlpPayload_, _ulpUserId = "me", _ulpId = pUlpId_} + -- | Multipart request metadata. ulpPayload :: Lens' UsersLabelsPatch Label diff --git a/gen/Network/Google/Resource/Gmail/Users/Labels/Update.hs b/gen/Network/Google/Resource/Gmail/Users/Labels/Update.hs --- a/gen/Network/Google/Resource/Gmail/Users/Labels/Update.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Labels/Update.hs @@ -56,12 +56,15 @@ -- | Updates the specified label. -- -- /See:/ 'usersLabelsUpdate' smart constructor. -data UsersLabelsUpdate = UsersLabelsUpdate' +data UsersLabelsUpdate = + UsersLabelsUpdate' { _uluPayload :: !Label , _uluUserId :: !Text , _uluId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersLabelsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -76,11 +79,9 @@ -> Text -- ^ 'uluId' -> UsersLabelsUpdate usersLabelsUpdate pUluPayload_ pUluId_ = - UsersLabelsUpdate' - { _uluPayload = pUluPayload_ - , _uluUserId = "me" - , _uluId = pUluId_ - } + UsersLabelsUpdate' + {_uluPayload = pUluPayload_, _uluUserId = "me", _uluId = pUluId_} + -- | Multipart request metadata. uluPayload :: Lens' UsersLabelsUpdate Label diff --git a/gen/Network/Google/Resource/Gmail/Users/Messages/Attachments/Get.hs b/gen/Network/Google/Resource/Gmail/Users/Messages/Attachments/Get.hs --- a/gen/Network/Google/Resource/Gmail/Users/Messages/Attachments/Get.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Messages/Attachments/Get.hs @@ -58,12 +58,15 @@ -- | Gets the specified message attachment. -- -- /See:/ 'usersMessagesAttachmentsGet' smart constructor. -data UsersMessagesAttachmentsGet = UsersMessagesAttachmentsGet' +data UsersMessagesAttachmentsGet = + UsersMessagesAttachmentsGet' { _umagUserId :: !Text , _umagId :: !Text , _umagMessageId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersMessagesAttachmentsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -78,11 +81,9 @@ -> Text -- ^ 'umagMessageId' -> UsersMessagesAttachmentsGet usersMessagesAttachmentsGet pUmagId_ pUmagMessageId_ = - UsersMessagesAttachmentsGet' - { _umagUserId = "me" - , _umagId = pUmagId_ - , _umagMessageId = pUmagMessageId_ - } + UsersMessagesAttachmentsGet' + {_umagUserId = "me", _umagId = pUmagId_, _umagMessageId = pUmagMessageId_} + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Messages/BatchDelete.hs b/gen/Network/Google/Resource/Gmail/Users/Messages/BatchDelete.hs --- a/gen/Network/Google/Resource/Gmail/Users/Messages/BatchDelete.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Messages/BatchDelete.hs @@ -58,11 +58,14 @@ -- messages were not already deleted or even existed at all. -- -- /See:/ 'usersMessagesBatchDelete' smart constructor. -data UsersMessagesBatchDelete = UsersMessagesBatchDelete' +data UsersMessagesBatchDelete = + UsersMessagesBatchDelete' { _umbdPayload :: !BatchDeleteMessagesRequest , _umbdUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersMessagesBatchDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -74,10 +77,8 @@ :: BatchDeleteMessagesRequest -- ^ 'umbdPayload' -> UsersMessagesBatchDelete usersMessagesBatchDelete pUmbdPayload_ = - UsersMessagesBatchDelete' - { _umbdPayload = pUmbdPayload_ - , _umbdUserId = "me" - } + UsersMessagesBatchDelete' {_umbdPayload = pUmbdPayload_, _umbdUserId = "me"} + -- | Multipart request metadata. umbdPayload :: Lens' UsersMessagesBatchDelete BatchDeleteMessagesRequest diff --git a/gen/Network/Google/Resource/Gmail/Users/Messages/BatchModify.hs b/gen/Network/Google/Resource/Gmail/Users/Messages/BatchModify.hs --- a/gen/Network/Google/Resource/Gmail/Users/Messages/BatchModify.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Messages/BatchModify.hs @@ -56,11 +56,14 @@ -- | Modifies the labels on the specified messages. -- -- /See:/ 'usersMessagesBatchModify' smart constructor. -data UsersMessagesBatchModify = UsersMessagesBatchModify' +data UsersMessagesBatchModify = + UsersMessagesBatchModify' { _umbmPayload :: !BatchModifyMessagesRequest , _umbmUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersMessagesBatchModify' 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 @@ :: BatchModifyMessagesRequest -- ^ 'umbmPayload' -> UsersMessagesBatchModify usersMessagesBatchModify pUmbmPayload_ = - UsersMessagesBatchModify' - { _umbmPayload = pUmbmPayload_ - , _umbmUserId = "me" - } + UsersMessagesBatchModify' {_umbmPayload = pUmbmPayload_, _umbmUserId = "me"} + -- | Multipart request metadata. umbmPayload :: Lens' UsersMessagesBatchModify BatchModifyMessagesRequest diff --git a/gen/Network/Google/Resource/Gmail/Users/Messages/Delete.hs b/gen/Network/Google/Resource/Gmail/Users/Messages/Delete.hs --- a/gen/Network/Google/Resource/Gmail/Users/Messages/Delete.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Messages/Delete.hs @@ -56,11 +56,14 @@ -- operation cannot be undone. Prefer messages.trash instead. -- -- /See:/ 'usersMessagesDelete' smart constructor. -data UsersMessagesDelete = UsersMessagesDelete' +data UsersMessagesDelete = + UsersMessagesDelete' { _umdUserId :: !Text , _umdId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersMessagesDelete' 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 @@ :: Text -- ^ 'umdId' -> UsersMessagesDelete usersMessagesDelete pUmdId_ = - UsersMessagesDelete' - { _umdUserId = "me" - , _umdId = pUmdId_ - } + UsersMessagesDelete' {_umdUserId = "me", _umdId = pUmdId_} + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Messages/Get.hs b/gen/Network/Google/Resource/Gmail/Users/Messages/Get.hs --- a/gen/Network/Google/Resource/Gmail/Users/Messages/Get.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Messages/Get.hs @@ -58,13 +58,16 @@ -- | Gets the specified message. -- -- /See:/ 'usersMessagesGet' smart constructor. -data UsersMessagesGet = UsersMessagesGet' +data UsersMessagesGet = + UsersMessagesGet' { _umgFormat :: !UsersMessagesGetFormat , _umgUserId :: !Text , _umgId :: !Text , _umgMetadataHeaders :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersMessagesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -80,12 +83,13 @@ :: Text -- ^ 'umgId' -> UsersMessagesGet usersMessagesGet pUmgId_ = - UsersMessagesGet' + UsersMessagesGet' { _umgFormat = Full , _umgUserId = "me" , _umgId = pUmgId_ , _umgMetadataHeaders = Nothing } + -- | The format to return the message in. umgFormat :: Lens' UsersMessagesGet UsersMessagesGetFormat diff --git a/gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs b/gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs --- a/gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs @@ -87,15 +87,18 @@ -- not send a message. -- -- /See:/ 'usersMessagesImport' smart constructor. -data UsersMessagesImport = UsersMessagesImport' +data UsersMessagesImport = + UsersMessagesImport' { _umiPayload :: !Message , _umiUserId :: !Text , _umiProcessForCalendar :: !Bool , _umiDeleted :: !Bool , _umiNeverMarkSpam :: !Bool , _umiInternalDateSource :: !UsersMessagesImportInternalDateSource - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersMessagesImport' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -115,7 +118,7 @@ :: Message -- ^ 'umiPayload' -> UsersMessagesImport usersMessagesImport pUmiPayload_ = - UsersMessagesImport' + UsersMessagesImport' { _umiPayload = pUmiPayload_ , _umiUserId = "me" , _umiProcessForCalendar = False @@ -124,6 +127,7 @@ , _umiInternalDateSource = DateHeader } + -- | Multipart request metadata. umiPayload :: Lens' UsersMessagesImport Message umiPayload @@ -181,7 +185,8 @@ mempty instance GoogleRequest - (MediaUpload UsersMessagesImport) where + (MediaUpload UsersMessagesImport) + where type Rs (MediaUpload UsersMessagesImport) = Message type Scopes (MediaUpload UsersMessagesImport) = Scopes UsersMessagesImport diff --git a/gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs b/gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs --- a/gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs @@ -79,13 +79,16 @@ -- message. -- -- /See:/ 'usersMessagesInsert' smart constructor. -data UsersMessagesInsert = UsersMessagesInsert' +data UsersMessagesInsert = + UsersMessagesInsert' { _uPayload :: !Message , _uUserId :: !Text , _uDeleted :: !Bool , _uInternalDateSource :: !UsersMessagesInsertInternalDateSource - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersMessagesInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -101,13 +104,14 @@ :: Message -- ^ 'uPayload' -> UsersMessagesInsert usersMessagesInsert pUPayload_ = - UsersMessagesInsert' + UsersMessagesInsert' { _uPayload = pUPayload_ , _uUserId = "me" , _uDeleted = False , _uInternalDateSource = UMIIDSReceivedTime } + -- | Multipart request metadata. uPayload :: Lens' UsersMessagesInsert Message uPayload = lens _uPayload (\ s a -> s{_uPayload = a}) @@ -146,7 +150,8 @@ mempty instance GoogleRequest - (MediaUpload UsersMessagesInsert) where + (MediaUpload UsersMessagesInsert) + where type Rs (MediaUpload UsersMessagesInsert) = Message type Scopes (MediaUpload UsersMessagesInsert) = Scopes UsersMessagesInsert diff --git a/gen/Network/Google/Resource/Gmail/Users/Messages/List.hs b/gen/Network/Google/Resource/Gmail/Users/Messages/List.hs --- a/gen/Network/Google/Resource/Gmail/Users/Messages/List.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Messages/List.hs @@ -63,15 +63,18 @@ -- | Lists the messages in the user\'s mailbox. -- -- /See:/ 'usersMessagesList' smart constructor. -data UsersMessagesList = UsersMessagesList' +data UsersMessagesList = + UsersMessagesList' { _umlQ :: !(Maybe Text) , _umlUserId :: !Text , _umlIncludeSpamTrash :: !Bool , _umlLabelIds :: !(Maybe [Text]) , _umlPageToken :: !(Maybe Text) , _umlMaxResults :: !(Textual Word32) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersMessagesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -90,7 +93,7 @@ usersMessagesList :: UsersMessagesList usersMessagesList = - UsersMessagesList' + UsersMessagesList' { _umlQ = Nothing , _umlUserId = "me" , _umlIncludeSpamTrash = False @@ -98,6 +101,7 @@ , _umlPageToken = Nothing , _umlMaxResults = 100 } + -- | Only return messages matching the specified query. Supports the same -- query format as the Gmail search box. For example, diff --git a/gen/Network/Google/Resource/Gmail/Users/Messages/Modify.hs b/gen/Network/Google/Resource/Gmail/Users/Messages/Modify.hs --- a/gen/Network/Google/Resource/Gmail/Users/Messages/Modify.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Messages/Modify.hs @@ -58,12 +58,15 @@ -- | Modifies the labels on the specified message. -- -- /See:/ 'usersMessagesModify' smart constructor. -data UsersMessagesModify = UsersMessagesModify' +data UsersMessagesModify = + UsersMessagesModify' { _ummPayload :: !ModifyMessageRequest , _ummUserId :: !Text , _ummId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersMessagesModify' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -78,11 +81,9 @@ -> Text -- ^ 'ummId' -> UsersMessagesModify usersMessagesModify pUmmPayload_ pUmmId_ = - UsersMessagesModify' - { _ummPayload = pUmmPayload_ - , _ummUserId = "me" - , _ummId = pUmmId_ - } + UsersMessagesModify' + {_ummPayload = pUmmPayload_, _ummUserId = "me", _ummId = pUmmId_} + -- | Multipart request metadata. ummPayload :: Lens' UsersMessagesModify ModifyMessageRequest diff --git a/gen/Network/Google/Resource/Gmail/Users/Messages/Send.hs b/gen/Network/Google/Resource/Gmail/Users/Messages/Send.hs --- a/gen/Network/Google/Resource/Gmail/Users/Messages/Send.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Messages/Send.hs @@ -69,11 +69,14 @@ -- headers. -- -- /See:/ 'usersMessagesSend' smart constructor. -data UsersMessagesSend = UsersMessagesSend' +data UsersMessagesSend = + UsersMessagesSend' { _umsPayload :: !Message , _umsUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersMessagesSend' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -85,11 +88,9 @@ :: Message -- ^ 'umsPayload' -> UsersMessagesSend usersMessagesSend pUmsPayload_ = - UsersMessagesSend' - { _umsPayload = pUmsPayload_ - , _umsUserId = "me" - } + UsersMessagesSend' {_umsPayload = pUmsPayload_, _umsUserId = "me"} + -- | Multipart request metadata. umsPayload :: Lens' UsersMessagesSend Message umsPayload @@ -117,7 +118,8 @@ mempty instance GoogleRequest - (MediaUpload UsersMessagesSend) where + (MediaUpload UsersMessagesSend) + where type Rs (MediaUpload UsersMessagesSend) = Message type Scopes (MediaUpload UsersMessagesSend) = Scopes UsersMessagesSend diff --git a/gen/Network/Google/Resource/Gmail/Users/Messages/Trash.hs b/gen/Network/Google/Resource/Gmail/Users/Messages/Trash.hs --- a/gen/Network/Google/Resource/Gmail/Users/Messages/Trash.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Messages/Trash.hs @@ -55,11 +55,14 @@ -- | Moves the specified message to the trash. -- -- /See:/ 'usersMessagesTrash' smart constructor. -data UsersMessagesTrash = UsersMessagesTrash' +data UsersMessagesTrash = + UsersMessagesTrash' { _umtUserId :: !Text , _umtId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersMessagesTrash' 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 -- ^ 'umtId' -> UsersMessagesTrash usersMessagesTrash pUmtId_ = - UsersMessagesTrash' - { _umtUserId = "me" - , _umtId = pUmtId_ - } + UsersMessagesTrash' {_umtUserId = "me", _umtId = pUmtId_} + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Messages/Untrash.hs b/gen/Network/Google/Resource/Gmail/Users/Messages/Untrash.hs --- a/gen/Network/Google/Resource/Gmail/Users/Messages/Untrash.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Messages/Untrash.hs @@ -55,11 +55,14 @@ -- | Removes the specified message from the trash. -- -- /See:/ 'usersMessagesUntrash' smart constructor. -data UsersMessagesUntrash = UsersMessagesUntrash' +data UsersMessagesUntrash = + UsersMessagesUntrash' { _umuUserId :: !Text , _umuId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersMessagesUntrash' 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 -- ^ 'umuId' -> UsersMessagesUntrash usersMessagesUntrash pUmuId_ = - UsersMessagesUntrash' - { _umuUserId = "me" - , _umuId = pUmuId_ - } + UsersMessagesUntrash' {_umuUserId = "me", _umuId = pUmuId_} + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Create.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Create.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Create.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Create.hs @@ -75,11 +75,14 @@ -- service account clients that have been delegated domain-wide authority. -- -- /See:/ 'usersSettingsDelegatesCreate' smart constructor. -data UsersSettingsDelegatesCreate = UsersSettingsDelegatesCreate' +data UsersSettingsDelegatesCreate = + UsersSettingsDelegatesCreate' { _usdcPayload :: !Delegate , _usdcUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsDelegatesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -91,10 +94,9 @@ :: Delegate -- ^ 'usdcPayload' -> UsersSettingsDelegatesCreate usersSettingsDelegatesCreate pUsdcPayload_ = - UsersSettingsDelegatesCreate' - { _usdcPayload = pUsdcPayload_ - , _usdcUserId = "me" - } + UsersSettingsDelegatesCreate' + {_usdcPayload = pUsdcPayload_, _usdcUserId = "me"} + -- | Multipart request metadata. usdcPayload :: Lens' UsersSettingsDelegatesCreate Delegate diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Delete.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Delete.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Delete.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Delete.hs @@ -63,11 +63,14 @@ -- service account clients that have been delegated domain-wide authority. -- -- /See:/ 'usersSettingsDelegatesDelete' smart constructor. -data UsersSettingsDelegatesDelete = UsersSettingsDelegatesDelete' +data UsersSettingsDelegatesDelete = + UsersSettingsDelegatesDelete' { _usddUserId :: !Text , _usddDelegateEmail :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsDelegatesDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -79,10 +82,9 @@ :: Text -- ^ 'usddDelegateEmail' -> UsersSettingsDelegatesDelete usersSettingsDelegatesDelete pUsddDelegateEmail_ = - UsersSettingsDelegatesDelete' - { _usddUserId = "me" - , _usddDelegateEmail = pUsddDelegateEmail_ - } + UsersSettingsDelegatesDelete' + {_usddUserId = "me", _usddDelegateEmail = pUsddDelegateEmail_} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Get.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Get.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Get.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Get.hs @@ -61,11 +61,14 @@ -- domain-wide authority. -- -- /See:/ 'usersSettingsDelegatesGet' smart constructor. -data UsersSettingsDelegatesGet = UsersSettingsDelegatesGet' +data UsersSettingsDelegatesGet = + UsersSettingsDelegatesGet' { _usdgUserId :: !Text , _usdgDelegateEmail :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsDelegatesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -77,10 +80,9 @@ :: Text -- ^ 'usdgDelegateEmail' -> UsersSettingsDelegatesGet usersSettingsDelegatesGet pUsdgDelegateEmail_ = - UsersSettingsDelegatesGet' - { _usdgUserId = "me" - , _usdgDelegateEmail = pUsdgDelegateEmail_ - } + UsersSettingsDelegatesGet' + {_usdgUserId = "me", _usdgDelegateEmail = pUsdgDelegateEmail_} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/List.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/List.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/List.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/List.hs @@ -58,10 +58,13 @@ -- domain-wide authority. -- -- /See:/ 'usersSettingsDelegatesList' smart constructor. -newtype UsersSettingsDelegatesList = UsersSettingsDelegatesList' +newtype UsersSettingsDelegatesList = + UsersSettingsDelegatesList' { _usdlUserId :: Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsDelegatesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -69,10 +72,8 @@ -- * 'usdlUserId' usersSettingsDelegatesList :: UsersSettingsDelegatesList -usersSettingsDelegatesList = - UsersSettingsDelegatesList' - { _usdlUserId = "me" - } +usersSettingsDelegatesList = UsersSettingsDelegatesList' {_usdlUserId = "me"} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Create.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Create.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Create.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Create.hs @@ -55,11 +55,14 @@ -- | Creates a filter. -- -- /See:/ 'usersSettingsFiltersCreate' smart constructor. -data UsersSettingsFiltersCreate = UsersSettingsFiltersCreate' +data UsersSettingsFiltersCreate = + UsersSettingsFiltersCreate' { _usfcPayload :: !Filter , _usfcUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsFiltersCreate' 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 @@ :: Filter -- ^ 'usfcPayload' -> UsersSettingsFiltersCreate usersSettingsFiltersCreate pUsfcPayload_ = - UsersSettingsFiltersCreate' - { _usfcPayload = pUsfcPayload_ - , _usfcUserId = "me" - } + UsersSettingsFiltersCreate' {_usfcPayload = pUsfcPayload_, _usfcUserId = "me"} + -- | Multipart request metadata. usfcPayload :: Lens' UsersSettingsFiltersCreate Filter diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Delete.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Delete.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Delete.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Delete.hs @@ -55,11 +55,14 @@ -- | Deletes a filter. -- -- /See:/ 'usersSettingsFiltersDelete' smart constructor. -data UsersSettingsFiltersDelete = UsersSettingsFiltersDelete' +data UsersSettingsFiltersDelete = + UsersSettingsFiltersDelete' { _usfdUserId :: !Text , _usfdId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsFiltersDelete' 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 -- ^ 'usfdId' -> UsersSettingsFiltersDelete usersSettingsFiltersDelete pUsfdId_ = - UsersSettingsFiltersDelete' - { _usfdUserId = "me" - , _usfdId = pUsfdId_ - } + UsersSettingsFiltersDelete' {_usfdUserId = "me", _usfdId = pUsfdId_} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Get.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Get.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Get.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Get.hs @@ -55,11 +55,14 @@ -- | Gets a filter. -- -- /See:/ 'usersSettingsFiltersGet' smart constructor. -data UsersSettingsFiltersGet = UsersSettingsFiltersGet' +data UsersSettingsFiltersGet = + UsersSettingsFiltersGet' { _usfgUserId :: !Text , _usfgId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsFiltersGet' 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 -- ^ 'usfgId' -> UsersSettingsFiltersGet usersSettingsFiltersGet pUsfgId_ = - UsersSettingsFiltersGet' - { _usfgUserId = "me" - , _usfgId = pUsfgId_ - } + UsersSettingsFiltersGet' {_usfgUserId = "me", _usfgId = pUsfgId_} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/List.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/List.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/List.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/Filters/List.hs @@ -54,10 +54,13 @@ -- | Lists the message filters of a Gmail user. -- -- /See:/ 'usersSettingsFiltersList' smart constructor. -newtype UsersSettingsFiltersList = UsersSettingsFiltersList' +newtype UsersSettingsFiltersList = + UsersSettingsFiltersList' { _usflUserId :: Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsFiltersList' 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 @@ -- * 'usflUserId' usersSettingsFiltersList :: UsersSettingsFiltersList -usersSettingsFiltersList = - UsersSettingsFiltersList' - { _usflUserId = "me" - } +usersSettingsFiltersList = UsersSettingsFiltersList' {_usflUserId = "me"} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Create.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Create.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Create.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Create.hs @@ -66,11 +66,14 @@ -- authority. -- -- /See:/ 'usersSettingsForwardingAddressesCreate' smart constructor. -data UsersSettingsForwardingAddressesCreate = UsersSettingsForwardingAddressesCreate' +data UsersSettingsForwardingAddressesCreate = + UsersSettingsForwardingAddressesCreate' { _usfacPayload :: !ForwardingAddress , _usfacUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsForwardingAddressesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -82,11 +85,10 @@ :: ForwardingAddress -- ^ 'usfacPayload' -> UsersSettingsForwardingAddressesCreate usersSettingsForwardingAddressesCreate pUsfacPayload_ = - UsersSettingsForwardingAddressesCreate' - { _usfacPayload = pUsfacPayload_ - , _usfacUserId = "me" - } + UsersSettingsForwardingAddressesCreate' + {_usfacPayload = pUsfacPayload_, _usfacUserId = "me"} + -- | Multipart request metadata. usfacPayload :: Lens' UsersSettingsForwardingAddressesCreate ForwardingAddress usfacPayload @@ -99,7 +101,8 @@ = lens _usfacUserId (\ s a -> s{_usfacUserId = a}) instance GoogleRequest - UsersSettingsForwardingAddressesCreate where + UsersSettingsForwardingAddressesCreate + where type Rs UsersSettingsForwardingAddressesCreate = ForwardingAddress type Scopes UsersSettingsForwardingAddressesCreate = diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Delete.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Delete.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Delete.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Delete.hs @@ -59,11 +59,14 @@ -- account clients that have been delegated domain-wide authority. -- -- /See:/ 'usersSettingsForwardingAddressesDelete' smart constructor. -data UsersSettingsForwardingAddressesDelete = UsersSettingsForwardingAddressesDelete' +data UsersSettingsForwardingAddressesDelete = + UsersSettingsForwardingAddressesDelete' { _usfadForwardingEmail :: !Text , _usfadUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsForwardingAddressesDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -75,11 +78,10 @@ :: Text -- ^ 'usfadForwardingEmail' -> UsersSettingsForwardingAddressesDelete usersSettingsForwardingAddressesDelete pUsfadForwardingEmail_ = - UsersSettingsForwardingAddressesDelete' - { _usfadForwardingEmail = pUsfadForwardingEmail_ - , _usfadUserId = "me" - } + UsersSettingsForwardingAddressesDelete' + {_usfadForwardingEmail = pUsfadForwardingEmail_, _usfadUserId = "me"} + -- | The forwarding address to be deleted. usfadForwardingEmail :: Lens' UsersSettingsForwardingAddressesDelete Text usfadForwardingEmail @@ -93,7 +95,8 @@ = lens _usfadUserId (\ s a -> s{_usfadUserId = a}) instance GoogleRequest - UsersSettingsForwardingAddressesDelete where + UsersSettingsForwardingAddressesDelete + where type Rs UsersSettingsForwardingAddressesDelete = () type Scopes UsersSettingsForwardingAddressesDelete = '["https://www.googleapis.com/auth/gmail.settings.sharing"] diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Get.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Get.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Get.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Get.hs @@ -56,11 +56,14 @@ -- | Gets the specified forwarding address. -- -- /See:/ 'usersSettingsForwardingAddressesGet' smart constructor. -data UsersSettingsForwardingAddressesGet = UsersSettingsForwardingAddressesGet' +data UsersSettingsForwardingAddressesGet = + UsersSettingsForwardingAddressesGet' { _usfagForwardingEmail :: !Text , _usfagUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsForwardingAddressesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -72,11 +75,10 @@ :: Text -- ^ 'usfagForwardingEmail' -> UsersSettingsForwardingAddressesGet usersSettingsForwardingAddressesGet pUsfagForwardingEmail_ = - UsersSettingsForwardingAddressesGet' - { _usfagForwardingEmail = pUsfagForwardingEmail_ - , _usfagUserId = "me" - } + UsersSettingsForwardingAddressesGet' + {_usfagForwardingEmail = pUsfagForwardingEmail_, _usfagUserId = "me"} + -- | The forwarding address to be retrieved. usfagForwardingEmail :: Lens' UsersSettingsForwardingAddressesGet Text usfagForwardingEmail @@ -90,7 +92,8 @@ = lens _usfagUserId (\ s a -> s{_usfagUserId = a}) instance GoogleRequest - UsersSettingsForwardingAddressesGet where + UsersSettingsForwardingAddressesGet + where type Rs UsersSettingsForwardingAddressesGet = ForwardingAddress type Scopes UsersSettingsForwardingAddressesGet = diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/List.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/List.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/List.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/List.hs @@ -54,10 +54,13 @@ -- | Lists the forwarding addresses for the specified account. -- -- /See:/ 'usersSettingsForwardingAddressesList' smart constructor. -newtype UsersSettingsForwardingAddressesList = UsersSettingsForwardingAddressesList' +newtype UsersSettingsForwardingAddressesList = + UsersSettingsForwardingAddressesList' { _usfalUserId :: Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsForwardingAddressesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -66,10 +69,9 @@ usersSettingsForwardingAddressesList :: UsersSettingsForwardingAddressesList usersSettingsForwardingAddressesList = - UsersSettingsForwardingAddressesList' - { _usfalUserId = "me" - } + UsersSettingsForwardingAddressesList' {_usfalUserId = "me"} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. usfalUserId :: Lens' UsersSettingsForwardingAddressesList Text @@ -77,7 +79,8 @@ = lens _usfalUserId (\ s a -> s{_usfalUserId = a}) instance GoogleRequest - UsersSettingsForwardingAddressesList where + UsersSettingsForwardingAddressesList + where type Rs UsersSettingsForwardingAddressesList = ListForwardingAddressesResponse type Scopes UsersSettingsForwardingAddressesList = diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/GetAutoForwarding.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/GetAutoForwarding.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/GetAutoForwarding.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/GetAutoForwarding.hs @@ -54,10 +54,13 @@ -- | Gets the auto-forwarding setting for the specified account. -- -- /See:/ 'usersSettingsGetAutoForwarding' smart constructor. -newtype UsersSettingsGetAutoForwarding = UsersSettingsGetAutoForwarding' +newtype UsersSettingsGetAutoForwarding = + UsersSettingsGetAutoForwarding' { _usgafUserId :: Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsGetAutoForwarding' 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 @@ usersSettingsGetAutoForwarding :: UsersSettingsGetAutoForwarding usersSettingsGetAutoForwarding = - UsersSettingsGetAutoForwarding' - { _usgafUserId = "me" - } + UsersSettingsGetAutoForwarding' {_usgafUserId = "me"} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/GetImap.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/GetImap.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/GetImap.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/GetImap.hs @@ -53,10 +53,13 @@ -- | Gets IMAP settings. -- -- /See:/ 'usersSettingsGetImap' smart constructor. -newtype UsersSettingsGetImap = UsersSettingsGetImap' +newtype UsersSettingsGetImap = + UsersSettingsGetImap' { _usgiUserId :: Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsGetImap' 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 @@ -- * 'usgiUserId' usersSettingsGetImap :: UsersSettingsGetImap -usersSettingsGetImap = - UsersSettingsGetImap' - { _usgiUserId = "me" - } +usersSettingsGetImap = UsersSettingsGetImap' {_usgiUserId = "me"} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/GetLanguage.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/GetLanguage.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/GetLanguage.hs @@ -0,0 +1,92 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.Gmail.Users.Settings.GetLanguage +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets language settings. +-- +-- /See:/ for @gmail.users.settings.getLanguage@. +module Network.Google.Resource.Gmail.Users.Settings.GetLanguage + ( + -- * REST Resource + UsersSettingsGetLanguageResource + + -- * Creating a Request + , usersSettingsGetLanguage + , UsersSettingsGetLanguage + + -- * Request Lenses + , usglUserId + ) where + +import Network.Google.Gmail.Types +import Network.Google.Prelude + +-- | A resource alias for @gmail.users.settings.getLanguage@ method which the +-- 'UsersSettingsGetLanguage' request conforms to. +type UsersSettingsGetLanguageResource = + "gmail" :> + "v1" :> + "users" :> + Capture "userId" Text :> + "settings" :> + "language" :> + QueryParam "alt" AltJSON :> + Get '[JSON] LanguageSettings + +-- | Gets language settings. +-- +-- /See:/ 'usersSettingsGetLanguage' smart constructor. +newtype UsersSettingsGetLanguage = + UsersSettingsGetLanguage' + { _usglUserId :: Text + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'UsersSettingsGetLanguage' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'usglUserId' +usersSettingsGetLanguage + :: UsersSettingsGetLanguage +usersSettingsGetLanguage = UsersSettingsGetLanguage' {_usglUserId = "me"} + + +-- | User\'s email address. The special value \"me\" can be used to indicate +-- the authenticated user. +usglUserId :: Lens' UsersSettingsGetLanguage Text +usglUserId + = lens _usglUserId (\ s a -> s{_usglUserId = a}) + +instance GoogleRequest UsersSettingsGetLanguage where + type Rs UsersSettingsGetLanguage = LanguageSettings + type Scopes UsersSettingsGetLanguage = + '["https://mail.google.com/", + "https://www.googleapis.com/auth/gmail.modify", + "https://www.googleapis.com/auth/gmail.readonly", + "https://www.googleapis.com/auth/gmail.settings.basic"] + requestClient UsersSettingsGetLanguage'{..} + = go _usglUserId (Just AltJSON) gmailService + where go + = buildClient + (Proxy :: Proxy UsersSettingsGetLanguageResource) + mempty diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/GetPop.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/GetPop.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/GetPop.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/GetPop.hs @@ -53,10 +53,13 @@ -- | Gets POP settings. -- -- /See:/ 'usersSettingsGetPop' smart constructor. -newtype UsersSettingsGetPop = UsersSettingsGetPop' +newtype UsersSettingsGetPop = + UsersSettingsGetPop' { _usgpUserId :: Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsGetPop' 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 @@ -- * 'usgpUserId' usersSettingsGetPop :: UsersSettingsGetPop -usersSettingsGetPop = - UsersSettingsGetPop' - { _usgpUserId = "me" - } +usersSettingsGetPop = UsersSettingsGetPop' {_usgpUserId = "me"} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/GetVacation.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/GetVacation.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/GetVacation.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/GetVacation.hs @@ -54,10 +54,13 @@ -- | Gets vacation responder settings. -- -- /See:/ 'usersSettingsGetVacation' smart constructor. -newtype UsersSettingsGetVacation = UsersSettingsGetVacation' +newtype UsersSettingsGetVacation = + UsersSettingsGetVacation' { _usgvUserId :: Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsGetVacation' 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 @@ -- * 'usgvUserId' usersSettingsGetVacation :: UsersSettingsGetVacation -usersSettingsGetVacation = - UsersSettingsGetVacation' - { _usgvUserId = "me" - } +usersSettingsGetVacation = UsersSettingsGetVacation' {_usgvUserId = "me"} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Create.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Create.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Create.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Create.hs @@ -71,11 +71,14 @@ -- clients that have been delegated domain-wide authority. -- -- /See:/ 'usersSettingsSendAsCreate' smart constructor. -data UsersSettingsSendAsCreate = UsersSettingsSendAsCreate' +data UsersSettingsSendAsCreate = + UsersSettingsSendAsCreate' { _ussacPayload :: !SendAs , _ussacUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsSendAsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,10 +90,9 @@ :: SendAs -- ^ 'ussacPayload' -> UsersSettingsSendAsCreate usersSettingsSendAsCreate pUssacPayload_ = - UsersSettingsSendAsCreate' - { _ussacPayload = pUssacPayload_ - , _ussacUserId = "me" - } + UsersSettingsSendAsCreate' + {_ussacPayload = pUssacPayload_, _ussacUserId = "me"} + -- | Multipart request metadata. ussacPayload :: Lens' UsersSettingsSendAsCreate SendAs diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Delete.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Delete.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Delete.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Delete.hs @@ -59,11 +59,14 @@ -- service account clients that have been delegated domain-wide authority. -- -- /See:/ 'usersSettingsSendAsDelete' smart constructor. -data UsersSettingsSendAsDelete = UsersSettingsSendAsDelete' +data UsersSettingsSendAsDelete = + UsersSettingsSendAsDelete' { _ussadUserId :: !Text , _ussadSendAsEmail :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsSendAsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -75,10 +78,9 @@ :: Text -- ^ 'ussadSendAsEmail' -> UsersSettingsSendAsDelete usersSettingsSendAsDelete pUssadSendAsEmail_ = - UsersSettingsSendAsDelete' - { _ussadUserId = "me" - , _ussadSendAsEmail = pUssadSendAsEmail_ - } + UsersSettingsSendAsDelete' + {_ussadUserId = "me", _ussadSendAsEmail = pUssadSendAsEmail_} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Get.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Get.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Get.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Get.hs @@ -57,11 +57,14 @@ -- specified address is not a member of the collection. -- -- /See:/ 'usersSettingsSendAsGet' smart constructor. -data UsersSettingsSendAsGet = UsersSettingsSendAsGet' +data UsersSettingsSendAsGet = + UsersSettingsSendAsGet' { _ussagUserId :: !Text , _ussagSendAsEmail :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsSendAsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -73,10 +76,9 @@ :: Text -- ^ 'ussagSendAsEmail' -> UsersSettingsSendAsGet usersSettingsSendAsGet pUssagSendAsEmail_ = - UsersSettingsSendAsGet' - { _ussagUserId = "me" - , _ussagSendAsEmail = pUssagSendAsEmail_ - } + UsersSettingsSendAsGet' + {_ussagUserId = "me", _ussagSendAsEmail = pUssagSendAsEmail_} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/List.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/List.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/List.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/List.hs @@ -58,10 +58,13 @@ -- custom \"from\" aliases. -- -- /See:/ 'usersSettingsSendAsList' smart constructor. -newtype UsersSettingsSendAsList = UsersSettingsSendAsList' +newtype UsersSettingsSendAsList = + UsersSettingsSendAsList' { _ussalUserId :: Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsSendAsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -69,10 +72,8 @@ -- * 'ussalUserId' usersSettingsSendAsList :: UsersSettingsSendAsList -usersSettingsSendAsList = - UsersSettingsSendAsList' - { _ussalUserId = "me" - } +usersSettingsSendAsList = UsersSettingsSendAsList' {_ussalUserId = "me"} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Patch.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Patch.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Patch.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Patch.hs @@ -65,12 +65,15 @@ -- supports patch semantics. -- -- /See:/ 'usersSettingsSendAsPatch' smart constructor. -data UsersSettingsSendAsPatch = UsersSettingsSendAsPatch' +data UsersSettingsSendAsPatch = + UsersSettingsSendAsPatch' { _ussapPayload :: !SendAs , _ussapUserId :: !Text , _ussapSendAsEmail :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsSendAsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -85,11 +88,12 @@ -> Text -- ^ 'ussapSendAsEmail' -> UsersSettingsSendAsPatch usersSettingsSendAsPatch pUssapPayload_ pUssapSendAsEmail_ = - UsersSettingsSendAsPatch' + UsersSettingsSendAsPatch' { _ussapPayload = pUssapPayload_ , _ussapUserId = "me" , _ussapSendAsEmail = pUssapSendAsEmail_ } + -- | Multipart request metadata. ussapPayload :: Lens' UsersSettingsSendAsPatch SendAs diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Delete.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Delete.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Delete.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Delete.hs @@ -58,12 +58,15 @@ -- | Deletes the specified S\/MIME config for the specified send-as alias. -- -- /See:/ 'usersSettingsSendAsSmimeInfoDelete' smart constructor. -data UsersSettingsSendAsSmimeInfoDelete = UsersSettingsSendAsSmimeInfoDelete' +data UsersSettingsSendAsSmimeInfoDelete = + UsersSettingsSendAsSmimeInfoDelete' { _ussasidUserId :: !Text , _ussasidSendAsEmail :: !Text , _ussasidId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsSendAsSmimeInfoDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -78,12 +81,13 @@ -> Text -- ^ 'ussasidId' -> UsersSettingsSendAsSmimeInfoDelete usersSettingsSendAsSmimeInfoDelete pUssasidSendAsEmail_ pUssasidId_ = - UsersSettingsSendAsSmimeInfoDelete' + UsersSettingsSendAsSmimeInfoDelete' { _ussasidUserId = "me" , _ussasidSendAsEmail = pUssasidSendAsEmail_ , _ussasidId = pUssasidId_ } + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. ussasidUserId :: Lens' UsersSettingsSendAsSmimeInfoDelete Text @@ -104,7 +108,8 @@ = lens _ussasidId (\ s a -> s{_ussasidId = a}) instance GoogleRequest - UsersSettingsSendAsSmimeInfoDelete where + UsersSettingsSendAsSmimeInfoDelete + where type Rs UsersSettingsSendAsSmimeInfoDelete = () type Scopes UsersSettingsSendAsSmimeInfoDelete = '["https://www.googleapis.com/auth/gmail.settings.basic", diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Get.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Get.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Get.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Get.hs @@ -58,12 +58,15 @@ -- | Gets the specified S\/MIME config for the specified send-as alias. -- -- /See:/ 'usersSettingsSendAsSmimeInfoGet' smart constructor. -data UsersSettingsSendAsSmimeInfoGet = UsersSettingsSendAsSmimeInfoGet' +data UsersSettingsSendAsSmimeInfoGet = + UsersSettingsSendAsSmimeInfoGet' { _ussasigUserId :: !Text , _ussasigSendAsEmail :: !Text , _ussasigId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsSendAsSmimeInfoGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -78,12 +81,13 @@ -> Text -- ^ 'ussasigId' -> UsersSettingsSendAsSmimeInfoGet usersSettingsSendAsSmimeInfoGet pUssasigSendAsEmail_ pUssasigId_ = - UsersSettingsSendAsSmimeInfoGet' + UsersSettingsSendAsSmimeInfoGet' { _ussasigUserId = "me" , _ussasigSendAsEmail = pUssasigSendAsEmail_ , _ussasigId = pUssasigId_ } + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. ussasigUserId :: Lens' UsersSettingsSendAsSmimeInfoGet Text @@ -104,7 +108,8 @@ = lens _ussasigId (\ s a -> s{_ussasigId = a}) instance GoogleRequest - UsersSettingsSendAsSmimeInfoGet where + UsersSettingsSendAsSmimeInfoGet + where type Rs UsersSettingsSendAsSmimeInfoGet = SmimeInfo type Scopes UsersSettingsSendAsSmimeInfoGet = '["https://mail.google.com/", diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Insert.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Insert.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Insert.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Insert.hs @@ -60,12 +60,15 @@ -- alias. Note that pkcs12 format is required for the key. -- -- /See:/ 'usersSettingsSendAsSmimeInfoInsert' smart constructor. -data UsersSettingsSendAsSmimeInfoInsert = UsersSettingsSendAsSmimeInfoInsert' +data UsersSettingsSendAsSmimeInfoInsert = + UsersSettingsSendAsSmimeInfoInsert' { _ussasiiPayload :: !SmimeInfo , _ussasiiUserId :: !Text , _ussasiiSendAsEmail :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsSendAsSmimeInfoInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -80,12 +83,13 @@ -> Text -- ^ 'ussasiiSendAsEmail' -> UsersSettingsSendAsSmimeInfoInsert usersSettingsSendAsSmimeInfoInsert pUssasiiPayload_ pUssasiiSendAsEmail_ = - UsersSettingsSendAsSmimeInfoInsert' + UsersSettingsSendAsSmimeInfoInsert' { _ussasiiPayload = pUssasiiPayload_ , _ussasiiUserId = "me" , _ussasiiSendAsEmail = pUssasiiSendAsEmail_ } + -- | Multipart request metadata. ussasiiPayload :: Lens' UsersSettingsSendAsSmimeInfoInsert SmimeInfo ussasiiPayload @@ -107,7 +111,8 @@ (\ s a -> s{_ussasiiSendAsEmail = a}) instance GoogleRequest - UsersSettingsSendAsSmimeInfoInsert where + UsersSettingsSendAsSmimeInfoInsert + where type Rs UsersSettingsSendAsSmimeInfoInsert = SmimeInfo type Scopes UsersSettingsSendAsSmimeInfoInsert = diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/List.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/List.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/List.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/List.hs @@ -57,11 +57,14 @@ -- | Lists S\/MIME configs for the specified send-as alias. -- -- /See:/ 'usersSettingsSendAsSmimeInfoList' smart constructor. -data UsersSettingsSendAsSmimeInfoList = UsersSettingsSendAsSmimeInfoList' +data UsersSettingsSendAsSmimeInfoList = + UsersSettingsSendAsSmimeInfoList' { _ussasilUserId :: !Text , _ussasilSendAsEmail :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsSendAsSmimeInfoList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -73,11 +76,10 @@ :: Text -- ^ 'ussasilSendAsEmail' -> UsersSettingsSendAsSmimeInfoList usersSettingsSendAsSmimeInfoList pUssasilSendAsEmail_ = - UsersSettingsSendAsSmimeInfoList' - { _ussasilUserId = "me" - , _ussasilSendAsEmail = pUssasilSendAsEmail_ - } + UsersSettingsSendAsSmimeInfoList' + {_ussasilUserId = "me", _ussasilSendAsEmail = pUssasilSendAsEmail_} + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. ussasilUserId :: Lens' UsersSettingsSendAsSmimeInfoList Text @@ -93,7 +95,8 @@ (\ s a -> s{_ussasilSendAsEmail = a}) instance GoogleRequest - UsersSettingsSendAsSmimeInfoList where + UsersSettingsSendAsSmimeInfoList + where type Rs UsersSettingsSendAsSmimeInfoList = ListSmimeInfoResponse type Scopes UsersSettingsSendAsSmimeInfoList = diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/SetDefault.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/SetDefault.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/SetDefault.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/SetDefault.hs @@ -59,12 +59,15 @@ -- | Sets the default S\/MIME config for the specified send-as alias. -- -- /See:/ 'usersSettingsSendAsSmimeInfoSetDefault' smart constructor. -data UsersSettingsSendAsSmimeInfoSetDefault = UsersSettingsSendAsSmimeInfoSetDefault' +data UsersSettingsSendAsSmimeInfoSetDefault = + UsersSettingsSendAsSmimeInfoSetDefault' { _ussasisdUserId :: !Text , _ussasisdSendAsEmail :: !Text , _ussasisdId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsSendAsSmimeInfoSetDefault' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -79,12 +82,13 @@ -> Text -- ^ 'ussasisdId' -> UsersSettingsSendAsSmimeInfoSetDefault usersSettingsSendAsSmimeInfoSetDefault pUssasisdSendAsEmail_ pUssasisdId_ = - UsersSettingsSendAsSmimeInfoSetDefault' + UsersSettingsSendAsSmimeInfoSetDefault' { _ussasisdUserId = "me" , _ussasisdSendAsEmail = pUssasisdSendAsEmail_ , _ussasisdId = pUssasisdId_ } + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. ussasisdUserId :: Lens' UsersSettingsSendAsSmimeInfoSetDefault Text @@ -105,7 +109,8 @@ = lens _ussasisdId (\ s a -> s{_ussasisdId = a}) instance GoogleRequest - UsersSettingsSendAsSmimeInfoSetDefault where + UsersSettingsSendAsSmimeInfoSetDefault + where type Rs UsersSettingsSendAsSmimeInfoSetDefault = () type Scopes UsersSettingsSendAsSmimeInfoSetDefault = '["https://www.googleapis.com/auth/gmail.settings.basic", diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Update.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Update.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Update.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Update.hs @@ -63,12 +63,15 @@ -- clients that have been delegated domain-wide authority. -- -- /See:/ 'usersSettingsSendAsUpdate' smart constructor. -data UsersSettingsSendAsUpdate = UsersSettingsSendAsUpdate' +data UsersSettingsSendAsUpdate = + UsersSettingsSendAsUpdate' { _ussauPayload :: !SendAs , _ussauUserId :: !Text , _ussauSendAsEmail :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsSendAsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -83,11 +86,12 @@ -> Text -- ^ 'ussauSendAsEmail' -> UsersSettingsSendAsUpdate usersSettingsSendAsUpdate pUssauPayload_ pUssauSendAsEmail_ = - UsersSettingsSendAsUpdate' + UsersSettingsSendAsUpdate' { _ussauPayload = pUssauPayload_ , _ussauUserId = "me" , _ussauSendAsEmail = pUssauSendAsEmail_ } + -- | Multipart request metadata. ussauPayload :: Lens' UsersSettingsSendAsUpdate SendAs diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Verify.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Verify.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Verify.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Verify.hs @@ -60,11 +60,14 @@ -- service account clients that have been delegated domain-wide authority. -- -- /See:/ 'usersSettingsSendAsVerify' smart constructor. -data UsersSettingsSendAsVerify = UsersSettingsSendAsVerify' +data UsersSettingsSendAsVerify = + UsersSettingsSendAsVerify' { _ussavUserId :: !Text , _ussavSendAsEmail :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsSendAsVerify' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -76,10 +79,9 @@ :: Text -- ^ 'ussavSendAsEmail' -> UsersSettingsSendAsVerify usersSettingsSendAsVerify pUssavSendAsEmail_ = - UsersSettingsSendAsVerify' - { _ussavUserId = "me" - , _ussavSendAsEmail = pUssavSendAsEmail_ - } + UsersSettingsSendAsVerify' + {_ussavUserId = "me", _ussavSendAsEmail = pUssavSendAsEmail_} + -- | User\'s email address. The special value \"me\" can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateAutoForwarding.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateAutoForwarding.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateAutoForwarding.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateAutoForwarding.hs @@ -62,11 +62,14 @@ -- have been delegated domain-wide authority. -- -- /See:/ 'usersSettingsUpdateAutoForwarding' smart constructor. -data UsersSettingsUpdateAutoForwarding = UsersSettingsUpdateAutoForwarding' +data UsersSettingsUpdateAutoForwarding = + UsersSettingsUpdateAutoForwarding' { _usuafPayload :: !AutoForwarding , _usuafUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsUpdateAutoForwarding' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -78,11 +81,10 @@ :: AutoForwarding -- ^ 'usuafPayload' -> UsersSettingsUpdateAutoForwarding usersSettingsUpdateAutoForwarding pUsuafPayload_ = - UsersSettingsUpdateAutoForwarding' - { _usuafPayload = pUsuafPayload_ - , _usuafUserId = "me" - } + UsersSettingsUpdateAutoForwarding' + {_usuafPayload = pUsuafPayload_, _usuafUserId = "me"} + -- | Multipart request metadata. usuafPayload :: Lens' UsersSettingsUpdateAutoForwarding AutoForwarding usuafPayload @@ -95,7 +97,8 @@ = lens _usuafUserId (\ s a -> s{_usuafUserId = a}) instance GoogleRequest - UsersSettingsUpdateAutoForwarding where + UsersSettingsUpdateAutoForwarding + where type Rs UsersSettingsUpdateAutoForwarding = AutoForwarding type Scopes UsersSettingsUpdateAutoForwarding = diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateImap.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateImap.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateImap.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateImap.hs @@ -56,11 +56,14 @@ -- | Updates IMAP settings. -- -- /See:/ 'usersSettingsUpdateImap' smart constructor. -data UsersSettingsUpdateImap = UsersSettingsUpdateImap' +data UsersSettingsUpdateImap = + UsersSettingsUpdateImap' { _usuiPayload :: !ImapSettings , _usuiUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsUpdateImap' 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 @@ :: ImapSettings -- ^ 'usuiPayload' -> UsersSettingsUpdateImap usersSettingsUpdateImap pUsuiPayload_ = - UsersSettingsUpdateImap' - { _usuiPayload = pUsuiPayload_ - , _usuiUserId = "me" - } + UsersSettingsUpdateImap' {_usuiPayload = pUsuiPayload_, _usuiUserId = "me"} + -- | Multipart request metadata. usuiPayload :: Lens' UsersSettingsUpdateImap ImapSettings diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateLanguage.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateLanguage.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateLanguage.hs @@ -0,0 +1,113 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.Gmail.Users.Settings.UpdateLanguage +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates language settings. If successful, the return object contains the +-- displayLanguage that was saved for the user, which may differ from the +-- value passed into the request. This is because the requested +-- displayLanguage may not be directly supported by Gmail but have a close +-- variant that is, and so the variant may be chosen and saved instead. +-- +-- /See:/ for @gmail.users.settings.updateLanguage@. +module Network.Google.Resource.Gmail.Users.Settings.UpdateLanguage + ( + -- * REST Resource + UsersSettingsUpdateLanguageResource + + -- * Creating a Request + , usersSettingsUpdateLanguage + , UsersSettingsUpdateLanguage + + -- * Request Lenses + , usulPayload + , usulUserId + ) where + +import Network.Google.Gmail.Types +import Network.Google.Prelude + +-- | A resource alias for @gmail.users.settings.updateLanguage@ method which the +-- 'UsersSettingsUpdateLanguage' request conforms to. +type UsersSettingsUpdateLanguageResource = + "gmail" :> + "v1" :> + "users" :> + Capture "userId" Text :> + "settings" :> + "language" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] LanguageSettings :> + Put '[JSON] LanguageSettings + +-- | Updates language settings. If successful, the return object contains the +-- displayLanguage that was saved for the user, which may differ from the +-- value passed into the request. This is because the requested +-- displayLanguage may not be directly supported by Gmail but have a close +-- variant that is, and so the variant may be chosen and saved instead. +-- +-- /See:/ 'usersSettingsUpdateLanguage' smart constructor. +data UsersSettingsUpdateLanguage = + UsersSettingsUpdateLanguage' + { _usulPayload :: !LanguageSettings + , _usulUserId :: !Text + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'UsersSettingsUpdateLanguage' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'usulPayload' +-- +-- * 'usulUserId' +usersSettingsUpdateLanguage + :: LanguageSettings -- ^ 'usulPayload' + -> UsersSettingsUpdateLanguage +usersSettingsUpdateLanguage pUsulPayload_ = + UsersSettingsUpdateLanguage' + {_usulPayload = pUsulPayload_, _usulUserId = "me"} + + +-- | Multipart request metadata. +usulPayload :: Lens' UsersSettingsUpdateLanguage LanguageSettings +usulPayload + = lens _usulPayload (\ s a -> s{_usulPayload = a}) + +-- | User\'s email address. The special value \"me\" can be used to indicate +-- the authenticated user. +usulUserId :: Lens' UsersSettingsUpdateLanguage Text +usulUserId + = lens _usulUserId (\ s a -> s{_usulUserId = a}) + +instance GoogleRequest UsersSettingsUpdateLanguage + where + type Rs UsersSettingsUpdateLanguage = + LanguageSettings + type Scopes UsersSettingsUpdateLanguage = + '["https://www.googleapis.com/auth/gmail.settings.basic"] + requestClient UsersSettingsUpdateLanguage'{..} + = go _usulUserId (Just AltJSON) _usulPayload + gmailService + where go + = buildClient + (Proxy :: Proxy UsersSettingsUpdateLanguageResource) + mempty diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/UpdatePop.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/UpdatePop.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/UpdatePop.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/UpdatePop.hs @@ -56,11 +56,14 @@ -- | Updates POP settings. -- -- /See:/ 'usersSettingsUpdatePop' smart constructor. -data UsersSettingsUpdatePop = UsersSettingsUpdatePop' +data UsersSettingsUpdatePop = + UsersSettingsUpdatePop' { _usupPayload :: !PopSettings , _usupUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsUpdatePop' 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 @@ :: PopSettings -- ^ 'usupPayload' -> UsersSettingsUpdatePop usersSettingsUpdatePop pUsupPayload_ = - UsersSettingsUpdatePop' - { _usupPayload = pUsupPayload_ - , _usupUserId = "me" - } + UsersSettingsUpdatePop' {_usupPayload = pUsupPayload_, _usupUserId = "me"} + -- | Multipart request metadata. usupPayload :: Lens' UsersSettingsUpdatePop PopSettings diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateVacation.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateVacation.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateVacation.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateVacation.hs @@ -56,11 +56,14 @@ -- | Updates vacation responder settings. -- -- /See:/ 'usersSettingsUpdateVacation' smart constructor. -data UsersSettingsUpdateVacation = UsersSettingsUpdateVacation' +data UsersSettingsUpdateVacation = + UsersSettingsUpdateVacation' { _usuvPayload :: !VacationSettings , _usuvUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSettingsUpdateVacation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -72,10 +75,9 @@ :: VacationSettings -- ^ 'usuvPayload' -> UsersSettingsUpdateVacation usersSettingsUpdateVacation pUsuvPayload_ = - UsersSettingsUpdateVacation' - { _usuvPayload = pUsuvPayload_ - , _usuvUserId = "me" - } + UsersSettingsUpdateVacation' + {_usuvPayload = pUsuvPayload_, _usuvUserId = "me"} + -- | Multipart request metadata. usuvPayload :: Lens' UsersSettingsUpdateVacation VacationSettings diff --git a/gen/Network/Google/Resource/Gmail/Users/Stop.hs b/gen/Network/Google/Resource/Gmail/Users/Stop.hs --- a/gen/Network/Google/Resource/Gmail/Users/Stop.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Stop.hs @@ -51,10 +51,13 @@ -- | Stop receiving push notifications for the given user mailbox. -- -- /See:/ 'usersStop' smart constructor. -newtype UsersStop = UsersStop' +newtype UsersStop = + UsersStop' { _usUserId :: Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersStop' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -62,10 +65,8 @@ -- * 'usUserId' usersStop :: UsersStop -usersStop = - UsersStop' - { _usUserId = "me" - } +usersStop = UsersStop' {_usUserId = "me"} + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Threads/Delete.hs b/gen/Network/Google/Resource/Gmail/Users/Threads/Delete.hs --- a/gen/Network/Google/Resource/Gmail/Users/Threads/Delete.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Threads/Delete.hs @@ -56,11 +56,14 @@ -- cannot be undone. Prefer threads.trash instead. -- -- /See:/ 'usersThreadsDelete' smart constructor. -data UsersThreadsDelete = UsersThreadsDelete' +data UsersThreadsDelete = + UsersThreadsDelete' { _utdUserId :: !Text , _utdId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersThreadsDelete' 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 @@ :: Text -- ^ 'utdId' -> UsersThreadsDelete usersThreadsDelete pUtdId_ = - UsersThreadsDelete' - { _utdUserId = "me" - , _utdId = pUtdId_ - } + UsersThreadsDelete' {_utdUserId = "me", _utdId = pUtdId_} + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Threads/Get.hs b/gen/Network/Google/Resource/Gmail/Users/Threads/Get.hs --- a/gen/Network/Google/Resource/Gmail/Users/Threads/Get.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Threads/Get.hs @@ -58,13 +58,16 @@ -- | Gets the specified thread. -- -- /See:/ 'usersThreadsGet' smart constructor. -data UsersThreadsGet = UsersThreadsGet' +data UsersThreadsGet = + UsersThreadsGet' { _utgFormat :: !UsersThreadsGetFormat , _utgUserId :: !Text , _utgId :: !Text , _utgMetadataHeaders :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersThreadsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -80,12 +83,13 @@ :: Text -- ^ 'utgId' -> UsersThreadsGet usersThreadsGet pUtgId_ = - UsersThreadsGet' + UsersThreadsGet' { _utgFormat = UTGFFull , _utgUserId = "me" , _utgId = pUtgId_ , _utgMetadataHeaders = Nothing } + -- | The format to return the messages in. utgFormat :: Lens' UsersThreadsGet UsersThreadsGetFormat diff --git a/gen/Network/Google/Resource/Gmail/Users/Threads/List.hs b/gen/Network/Google/Resource/Gmail/Users/Threads/List.hs --- a/gen/Network/Google/Resource/Gmail/Users/Threads/List.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Threads/List.hs @@ -63,15 +63,18 @@ -- | Lists the threads in the user\'s mailbox. -- -- /See:/ 'usersThreadsList' smart constructor. -data UsersThreadsList = UsersThreadsList' +data UsersThreadsList = + UsersThreadsList' { _utlQ :: !(Maybe Text) , _utlUserId :: !Text , _utlIncludeSpamTrash :: !Bool , _utlLabelIds :: !(Maybe [Text]) , _utlPageToken :: !(Maybe Text) , _utlMaxResults :: !(Textual Word32) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersThreadsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -90,7 +93,7 @@ usersThreadsList :: UsersThreadsList usersThreadsList = - UsersThreadsList' + UsersThreadsList' { _utlQ = Nothing , _utlUserId = "me" , _utlIncludeSpamTrash = False @@ -98,6 +101,7 @@ , _utlPageToken = Nothing , _utlMaxResults = 100 } + -- | Only return threads matching the specified query. Supports the same -- query format as the Gmail search box. For example, diff --git a/gen/Network/Google/Resource/Gmail/Users/Threads/Modify.hs b/gen/Network/Google/Resource/Gmail/Users/Threads/Modify.hs --- a/gen/Network/Google/Resource/Gmail/Users/Threads/Modify.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Threads/Modify.hs @@ -60,12 +60,15 @@ -- in the thread. -- -- /See:/ 'usersThreadsModify' smart constructor. -data UsersThreadsModify = UsersThreadsModify' +data UsersThreadsModify = + UsersThreadsModify' { _utmPayload :: !ModifyThreadRequest , _utmUserId :: !Text , _utmId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersThreadsModify' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -80,11 +83,9 @@ -> Text -- ^ 'utmId' -> UsersThreadsModify usersThreadsModify pUtmPayload_ pUtmId_ = - UsersThreadsModify' - { _utmPayload = pUtmPayload_ - , _utmUserId = "me" - , _utmId = pUtmId_ - } + UsersThreadsModify' + {_utmPayload = pUtmPayload_, _utmUserId = "me", _utmId = pUtmId_} + -- | Multipart request metadata. utmPayload :: Lens' UsersThreadsModify ModifyThreadRequest diff --git a/gen/Network/Google/Resource/Gmail/Users/Threads/Trash.hs b/gen/Network/Google/Resource/Gmail/Users/Threads/Trash.hs --- a/gen/Network/Google/Resource/Gmail/Users/Threads/Trash.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Threads/Trash.hs @@ -55,11 +55,14 @@ -- | Moves the specified thread to the trash. -- -- /See:/ 'usersThreadsTrash' smart constructor. -data UsersThreadsTrash = UsersThreadsTrash' +data UsersThreadsTrash = + UsersThreadsTrash' { _uttUserId :: !Text , _uttId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersThreadsTrash' 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 -- ^ 'uttId' -> UsersThreadsTrash usersThreadsTrash pUttId_ = - UsersThreadsTrash' - { _uttUserId = "me" - , _uttId = pUttId_ - } + UsersThreadsTrash' {_uttUserId = "me", _uttId = pUttId_} + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Threads/Untrash.hs b/gen/Network/Google/Resource/Gmail/Users/Threads/Untrash.hs --- a/gen/Network/Google/Resource/Gmail/Users/Threads/Untrash.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Threads/Untrash.hs @@ -55,11 +55,14 @@ -- | Removes the specified thread from the trash. -- -- /See:/ 'usersThreadsUntrash' smart constructor. -data UsersThreadsUntrash = UsersThreadsUntrash' +data UsersThreadsUntrash = + UsersThreadsUntrash' { _utuUserId :: !Text , _utuId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersThreadsUntrash' 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 -- ^ 'utuId' -> UsersThreadsUntrash usersThreadsUntrash pUtuId_ = - UsersThreadsUntrash' - { _utuUserId = "me" - , _utuId = pUtuId_ - } + UsersThreadsUntrash' {_utuUserId = "me", _utuId = pUtuId_} + -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. diff --git a/gen/Network/Google/Resource/Gmail/Users/Watch.hs b/gen/Network/Google/Resource/Gmail/Users/Watch.hs --- a/gen/Network/Google/Resource/Gmail/Users/Watch.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Watch.hs @@ -55,11 +55,14 @@ -- | Set up or update a push notification watch on the given user mailbox. -- -- /See:/ 'usersWatch' smart constructor. -data UsersWatch = UsersWatch' +data UsersWatch = + UsersWatch' { _uwPayload :: !WatchRequest , _uwUserId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersWatch' 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 @@ :: WatchRequest -- ^ 'uwPayload' -> UsersWatch usersWatch pUwPayload_ = - UsersWatch' - { _uwPayload = pUwPayload_ - , _uwUserId = "me" - } + UsersWatch' {_uwPayload = pUwPayload_, _uwUserId = "me"} + -- | Multipart request metadata. uwPayload :: Lens' UsersWatch WatchRequest diff --git a/gogol-gmail.cabal b/gogol-gmail.cabal --- a/gogol-gmail.cabal +++ b/gogol-gmail.cabal @@ -1,5 +1,5 @@ name: gogol-gmail -version: 0.4.0 +version: 0.5.0 synopsis: Google Gmail SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -75,6 +75,7 @@ , Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.List , Network.Google.Resource.Gmail.Users.Settings.GetAutoForwarding , Network.Google.Resource.Gmail.Users.Settings.GetImap + , Network.Google.Resource.Gmail.Users.Settings.GetLanguage , Network.Google.Resource.Gmail.Users.Settings.GetPop , Network.Google.Resource.Gmail.Users.Settings.GetVacation , Network.Google.Resource.Gmail.Users.Settings.SendAs.Create @@ -91,6 +92,7 @@ , Network.Google.Resource.Gmail.Users.Settings.SendAs.Verify , Network.Google.Resource.Gmail.Users.Settings.UpdateAutoForwarding , Network.Google.Resource.Gmail.Users.Settings.UpdateImap + , Network.Google.Resource.Gmail.Users.Settings.UpdateLanguage , Network.Google.Resource.Gmail.Users.Settings.UpdatePop , Network.Google.Resource.Gmail.Users.Settings.UpdateVacation , Network.Google.Resource.Gmail.Users.Stop @@ -107,5 +109,5 @@ , Network.Google.Gmail.Types.Sum build-depends: - gogol-core == 0.4.0.* + gogol-core == 0.5.0.* , base >= 4.7 && < 5