Hello community, here is the log from the commit of package ghc-gogol-gmail for openSUSE:Factory checked in at 2017-08-31 20:53:40 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-gmail (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-gmail.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-gmail" Thu Aug 31 20:53:40 2017 rev:2 rq:513314 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-gmail/ghc-gogol-gmail.changes 2017-05-10 20:41:33.782657801 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-gmail.new/ghc-gogol-gmail.changes 2017-08-31 20:53:41.474787198 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:06:41 UTC 2017 - psimons@suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-gmail-0.1.1.tar.gz New: ---- gogol-gmail-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-gmail.spec ++++++ --- /var/tmp/diff_new_pack.QEfMEX/_old 2017-08-31 20:53:43.102558490 +0200 +++ /var/tmp/diff_new_pack.QEfMEX/_new 2017-08-31 20:53:43.106557929 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-gmail Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Gmail SDK License: MPL-2.0 ++++++ gogol-gmail-0.1.1.tar.gz -> gogol-gmail-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/README.md new/gogol-gmail-0.3.0/README.md --- old/gogol-gmail-0.1.1/README.md 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/README.md 2017-07-12 16:45:06.000000000 +0200 @@ -8,7 +8,7 @@ ## Version -`0.1.1` +`0.3.0` ## Description diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gen/Network/Google/Gmail/Types/Product.hs new/gogol-gmail-0.3.0/gen/Network/Google/Gmail/Types/Product.hs --- old/gogol-gmail-0.1.1/gen/Network/Google/Gmail/Types/Product.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/gen/Network/Google/Gmail/Types/Product.hs 2017-07-12 16:45:06.000000000 +0200 @@ -718,7 +718,7 @@ -- | Settings associated with a send-as alias, which can be either the -- primary login address associated with the account or a custom \"from\" -- address. Send-as aliases correspond to the \"Send Mail As\" feature in --- the web interface. See for more details. +-- the web interface. -- -- /See:/ 'sendAs' smart constructor. data SendAs = SendAs' @@ -784,8 +784,8 @@ (\ s a -> s{_saReplyToAddress = a}) -- | Whether Gmail should treat this address as an alias for the user\'s --- primary email address. See for more details. This setting only applies --- to custom \"from\" aliases. +-- primary email address. This setting only applies to custom \"from\" +-- aliases. saTreatAsAlias :: Lens' SendAs (Maybe Bool) saTreatAsAlias = lens _saTreatAsAlias @@ -1112,8 +1112,7 @@ = object (catMaybes [("labels" .=) <$> _llrLabels]) -- | Vacation auto-reply settings for an account. These settings correspond --- to the \"Vacation responder\" feature in the web interface. See for more --- details. +-- to the \"Vacation responder\" feature in the web interface. -- -- /See:/ 'vacationSettings' smart constructor. data VacationSettings = VacationSettings' @@ -1284,7 +1283,7 @@ -- /See:/ 'messagePartBody' smart constructor. data MessagePartBody = MessagePartBody' { _mpbSize :: !(Maybe (Textual Int32)) - , _mpbData :: !(Maybe Base64) + , _mpbData :: !(Maybe Bytes) , _mpbAttachmentId :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1306,20 +1305,20 @@ , _mpbAttachmentId = Nothing } --- | Total number of bytes in the body of the message part. +-- | Number of bytes for the message part data (encoding notwithstanding). mpbSize :: Lens' MessagePartBody (Maybe Int32) mpbSize = lens _mpbSize (\ s a -> s{_mpbSize = a}) . mapping _Coerce --- | The body data of a MIME message part. May be empty for MIME container --- types that have no message body or when the body data is sent as a --- separate attachment. An attachment ID is present if the body data is --- contained in a separate attachment. +-- | The body data of a MIME message part as a base64url encoded string. May +-- be empty for MIME container types that have no message body or when the +-- body data is sent as a separate attachment. An attachment ID is present +-- if the body data is contained in a separate attachment. mpbData :: Lens' MessagePartBody (Maybe ByteString) mpbData = lens _mpbData (\ s a -> s{_mpbData = a}) . - mapping _Base64 + mapping _Bytes -- | When present, contains the ID of an external attachment that can be -- retrieved in a separate messages.attachments.get request. When not @@ -1555,6 +1554,72 @@ [("expiration" .=) <$> _wrExpiration, ("historyId" .=) <$> _wrHistoryId]) +-- +-- /See:/ 'batchModifyMessagesRequest' smart constructor. +data BatchModifyMessagesRequest = BatchModifyMessagesRequest' + { _bmmrIds :: !(Maybe [Text]) + , _bmmrRemoveLabelIds :: !(Maybe [Text]) + , _bmmrAddLabelIds :: !(Maybe [Text]) + } 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: +-- +-- * 'bmmrIds' +-- +-- * 'bmmrRemoveLabelIds' +-- +-- * 'bmmrAddLabelIds' +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] +bmmrIds + = lens _bmmrIds (\ s a -> s{_bmmrIds = a}) . _Default + . _Coerce + +-- | A list of label IDs to remove from messages. +bmmrRemoveLabelIds :: Lens' BatchModifyMessagesRequest [Text] +bmmrRemoveLabelIds + = lens _bmmrRemoveLabelIds + (\ s a -> s{_bmmrRemoveLabelIds = a}) + . _Default + . _Coerce + +-- | A list of label IDs to add to messages. +bmmrAddLabelIds :: Lens' BatchModifyMessagesRequest [Text] +bmmrAddLabelIds + = lens _bmmrAddLabelIds + (\ s a -> s{_bmmrAddLabelIds = a}) + . _Default + . _Coerce + +instance FromJSON BatchModifyMessagesRequest where + parseJSON + = withObject "BatchModifyMessagesRequest" + (\ o -> + BatchModifyMessagesRequest' <$> + (o .:? "ids" .!= mempty) <*> + (o .:? "removeLabelIds" .!= mempty) + <*> (o .:? "addLabelIds" .!= mempty)) + +instance ToJSON BatchModifyMessagesRequest where + toJSON BatchModifyMessagesRequest'{..} + = object + (catMaybes + [("ids" .=) <$> _bmmrIds, + ("removeLabelIds" .=) <$> _bmmrRemoveLabelIds, + ("addLabelIds" .=) <$> _bmmrAddLabelIds]) + -- | A draft email in the user\'s mailbox. -- -- /See:/ 'draft' smart constructor. @@ -1941,7 +2006,7 @@ -- -- /See:/ 'message' smart constructor. data Message = Message' - { _mRaw :: !(Maybe Base64) + { _mRaw :: !(Maybe Bytes) , _mSnippet :: !(Maybe Text) , _mSizeEstimate :: !(Maybe (Textual Int32)) , _mPayload :: !(Maybe MessagePart) @@ -1993,8 +2058,7 @@ -- format=RAW parameter is supplied. mRaw :: Lens' Message (Maybe ByteString) mRaw - = lens _mRaw (\ s a -> s{_mRaw = a}) . - mapping _Base64 + = lens _mRaw (\ s a -> s{_mRaw = a}) . mapping _Bytes -- | A short part of the message text. mSnippet :: Lens' Message (Maybe Text) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gen/Network/Google/Gmail/Types.hs new/gogol-gmail-0.3.0/gen/Network/Google/Gmail/Types.hs --- old/gogol-gmail-0.1.1/gen/Network/Google/Gmail/Types.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/gen/Network/Google/Gmail/Types.hs 2017-07-12 16:45:06.000000000 +0200 @@ -23,6 +23,7 @@ , gmailSettingsBasicScope , mailGoogleComScope , gmailModifyScope + , gmailMetadataScope , gmailLabelsScope , gmailSettingsSharingScope , gmailSendScope @@ -233,6 +234,13 @@ -- * UsersThreadsGetFormat , UsersThreadsGetFormat (..) + -- * BatchModifyMessagesRequest + , BatchModifyMessagesRequest + , batchModifyMessagesRequest + , bmmrIds + , bmmrRemoveLabelIds + , bmmrAddLabelIds + -- * Draft , Draft , draft @@ -373,6 +381,11 @@ gmailModifyScope :: Proxy '["https://www.googleapis.com/auth/gmail.modify"] 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; + -- | Manage mailbox labels gmailLabelsScope :: Proxy '["https://www.googleapis.com/auth/gmail.labels"] gmailLabelsScope = Proxy; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gen/Network/Google/Gmail.hs new/gogol-gmail-0.3.0/gen/Network/Google/Gmail.hs --- old/gogol-gmail-0.1.1/gen/Network/Google/Gmail.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/gen/Network/Google/Gmail.hs 2017-07-12 16:45:06.000000000 +0200 @@ -25,6 +25,7 @@ , gmailSettingsBasicScope , mailGoogleComScope , gmailModifyScope + , gmailMetadataScope , gmailLabelsScope , gmailSettingsSharingScope , gmailSendScope @@ -85,6 +86,9 @@ -- ** gmail.users.messages.batchDelete , module Network.Google.Resource.Gmail.Users.Messages.BatchDelete + -- ** gmail.users.messages.batchModify + , module Network.Google.Resource.Gmail.Users.Messages.BatchModify + -- ** gmail.users.messages.delete , module Network.Google.Resource.Gmail.Users.Messages.Delete @@ -410,6 +414,13 @@ -- ** UsersThreadsGetFormat , UsersThreadsGetFormat (..) + -- ** BatchModifyMessagesRequest + , BatchModifyMessagesRequest + , batchModifyMessagesRequest + , bmmrIds + , bmmrRemoveLabelIds + , bmmrAddLabelIds + -- ** Draft , Draft , draft @@ -546,6 +557,7 @@ import Network.Google.Resource.Gmail.Users.Labels.Update import Network.Google.Resource.Gmail.Users.Messages.Attachments.Get import Network.Google.Resource.Gmail.Users.Messages.BatchDelete +import Network.Google.Resource.Gmail.Users.Messages.BatchModify import Network.Google.Resource.Gmail.Users.Messages.Delete import Network.Google.Resource.Gmail.Users.Messages.Get import Network.Google.Resource.Gmail.Users.Messages.Import @@ -641,6 +653,7 @@ :<|> UsersMessagesGetResource :<|> UsersMessagesTrashResource :<|> UsersMessagesSendResource + :<|> UsersMessagesBatchModifyResource :<|> UsersMessagesUntrashResource :<|> UsersMessagesImportResource :<|> UsersMessagesBatchDeleteResource diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/GetProFile.hs new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/GetProFile.hs --- old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/GetProFile.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/GetProFile.hs 2017-07-12 16:45:06.000000000 +0200 @@ -79,6 +79,7 @@ type Scopes UsersGetProFile = '["https://mail.google.com/", "https://www.googleapis.com/auth/gmail.compose", + "https://www.googleapis.com/auth/gmail.metadata", "https://www.googleapis.com/auth/gmail.modify", "https://www.googleapis.com/auth/gmail.readonly"] requestClient UsersGetProFile'{..} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/History/List.hs new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/History/List.hs --- old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/History/List.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/History/List.hs 2017-07-12 16:45:06.000000000 +0200 @@ -139,6 +139,7 @@ type Rs UsersHistoryList = ListHistoryResponse type Scopes UsersHistoryList = '["https://mail.google.com/", + "https://www.googleapis.com/auth/gmail.metadata", "https://www.googleapis.com/auth/gmail.modify", "https://www.googleapis.com/auth/gmail.readonly"] requestClient UsersHistoryList'{..} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Labels/Get.hs new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Labels/Get.hs --- old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Labels/Get.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Labels/Get.hs 2017-07-12 16:45:06.000000000 +0200 @@ -90,6 +90,7 @@ type Scopes UsersLabelsGet = '["https://mail.google.com/", "https://www.googleapis.com/auth/gmail.labels", + "https://www.googleapis.com/auth/gmail.metadata", "https://www.googleapis.com/auth/gmail.modify", "https://www.googleapis.com/auth/gmail.readonly"] requestClient UsersLabelsGet'{..} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Labels/List.hs new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Labels/List.hs --- old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Labels/List.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Labels/List.hs 2017-07-12 16:45:06.000000000 +0200 @@ -80,6 +80,7 @@ type Scopes UsersLabelsList = '["https://mail.google.com/", "https://www.googleapis.com/auth/gmail.labels", + "https://www.googleapis.com/auth/gmail.metadata", "https://www.googleapis.com/auth/gmail.modify", "https://www.googleapis.com/auth/gmail.readonly"] requestClient UsersLabelsList'{..} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Messages/BatchModify.hs new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Messages/BatchModify.hs --- old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Messages/BatchModify.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Messages/BatchModify.hs 2017-07-12 16:45:06.000000000 +0200 @@ -0,0 +1,102 @@ +{-# 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.Messages.BatchModify +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Modifies the labels on the specified messages. +-- +-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.messages.batchModify@. +module Network.Google.Resource.Gmail.Users.Messages.BatchModify + ( + -- * REST Resource + UsersMessagesBatchModifyResource + + -- * Creating a Request + , usersMessagesBatchModify + , UsersMessagesBatchModify + + -- * Request Lenses + , umbmPayload + , umbmUserId + ) where + +import Network.Google.Gmail.Types +import Network.Google.Prelude + +-- | A resource alias for @gmail.users.messages.batchModify@ method which the +-- 'UsersMessagesBatchModify' request conforms to. +type UsersMessagesBatchModifyResource = + "gmail" :> + "v1" :> + "users" :> + Capture "userId" Text :> + "messages" :> + "batchModify" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] BatchModifyMessagesRequest :> + Post '[JSON] () + +-- | Modifies the labels on the specified messages. +-- +-- /See:/ 'usersMessagesBatchModify' smart constructor. +data UsersMessagesBatchModify = UsersMessagesBatchModify' + { _umbmPayload :: !BatchModifyMessagesRequest + , _umbmUserId :: !Text + } 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: +-- +-- * 'umbmPayload' +-- +-- * 'umbmUserId' +usersMessagesBatchModify + :: BatchModifyMessagesRequest -- ^ 'umbmPayload' + -> UsersMessagesBatchModify +usersMessagesBatchModify pUmbmPayload_ = + UsersMessagesBatchModify' + { _umbmPayload = pUmbmPayload_ + , _umbmUserId = "me" + } + +-- | Multipart request metadata. +umbmPayload :: Lens' UsersMessagesBatchModify BatchModifyMessagesRequest +umbmPayload + = lens _umbmPayload (\ s a -> s{_umbmPayload = a}) + +-- | The user\'s email address. The special value me can be used to indicate +-- the authenticated user. +umbmUserId :: Lens' UsersMessagesBatchModify Text +umbmUserId + = lens _umbmUserId (\ s a -> s{_umbmUserId = a}) + +instance GoogleRequest UsersMessagesBatchModify where + type Rs UsersMessagesBatchModify = () + type Scopes UsersMessagesBatchModify = + '["https://mail.google.com/", + "https://www.googleapis.com/auth/gmail.modify"] + requestClient UsersMessagesBatchModify'{..} + = go _umbmUserId (Just AltJSON) _umbmPayload + gmailService + where go + = buildClient + (Proxy :: Proxy UsersMessagesBatchModifyResource) + mempty diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Messages/Get.hs new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Messages/Get.hs --- old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Messages/Get.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Messages/Get.hs 2017-07-12 16:45:06.000000000 +0200 @@ -114,6 +114,7 @@ type Rs UsersMessagesGet = Message type Scopes UsersMessagesGet = '["https://mail.google.com/", + "https://www.googleapis.com/auth/gmail.metadata", "https://www.googleapis.com/auth/gmail.modify", "https://www.googleapis.com/auth/gmail.readonly"] requestClient UsersMessagesGet'{..} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Messages/List.hs new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Messages/List.hs --- old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Messages/List.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Messages/List.hs 2017-07-12 16:45:06.000000000 +0200 @@ -101,7 +101,8 @@ -- | Only return messages matching the specified query. Supports the same -- query format as the Gmail search box. For example, --- \"from:someuser\'example.com rfc822msgid: is:unread\". +-- \"from:someuser\'example.com rfc822msgid: is:unread\". Parameter cannot +-- be used when accessing the api using the gmail.metadata scope. umlQ :: Lens' UsersMessagesList (Maybe Text) umlQ = lens _umlQ (\ s a -> s{_umlQ = a}) @@ -141,6 +142,7 @@ type Rs UsersMessagesList = ListMessagesResponse type Scopes UsersMessagesList = '["https://mail.google.com/", + "https://www.googleapis.com/auth/gmail.metadata", "https://www.googleapis.com/auth/gmail.modify", "https://www.googleapis.com/auth/gmail.readonly"] requestClient UsersMessagesList'{..} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Stop.hs new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Stop.hs --- old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Stop.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Stop.hs 2017-07-12 16:45:06.000000000 +0200 @@ -76,6 +76,7 @@ type Rs UsersStop = () type Scopes UsersStop = '["https://mail.google.com/", + "https://www.googleapis.com/auth/gmail.metadata", "https://www.googleapis.com/auth/gmail.modify", "https://www.googleapis.com/auth/gmail.readonly"] requestClient UsersStop'{..} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Threads/Get.hs new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Threads/Get.hs --- old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Threads/Get.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Threads/Get.hs 2017-07-12 16:45:06.000000000 +0200 @@ -114,6 +114,7 @@ type Rs UsersThreadsGet = Thread type Scopes UsersThreadsGet = '["https://mail.google.com/", + "https://www.googleapis.com/auth/gmail.metadata", "https://www.googleapis.com/auth/gmail.modify", "https://www.googleapis.com/auth/gmail.readonly"] requestClient UsersThreadsGet'{..} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Threads/List.hs new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Threads/List.hs --- old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Threads/List.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Threads/List.hs 2017-07-12 16:45:06.000000000 +0200 @@ -101,7 +101,8 @@ -- | Only return threads matching the specified query. Supports the same -- query format as the Gmail search box. For example, --- \"from:someuser\'example.com rfc822msgid: is:unread\". +-- \"from:someuser\'example.com rfc822msgid: is:unread\". Parameter cannot +-- be used when accessing the api using the gmail.metadata scope. utlQ :: Lens' UsersThreadsList (Maybe Text) utlQ = lens _utlQ (\ s a -> s{_utlQ = a}) @@ -141,6 +142,7 @@ type Rs UsersThreadsList = ListThreadsResponse type Scopes UsersThreadsList = '["https://mail.google.com/", + "https://www.googleapis.com/auth/gmail.metadata", "https://www.googleapis.com/auth/gmail.modify", "https://www.googleapis.com/auth/gmail.readonly"] requestClient UsersThreadsList'{..} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Watch.hs new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Watch.hs --- old/gogol-gmail-0.1.1/gen/Network/Google/Resource/Gmail/Users/Watch.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/gen/Network/Google/Resource/Gmail/Users/Watch.hs 2017-07-12 16:45:06.000000000 +0200 @@ -90,6 +90,7 @@ type Rs UsersWatch = WatchResponse type Scopes UsersWatch = '["https://mail.google.com/", + "https://www.googleapis.com/auth/gmail.metadata", "https://www.googleapis.com/auth/gmail.modify", "https://www.googleapis.com/auth/gmail.readonly"] requestClient UsersWatch'{..} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-gmail-0.1.1/gogol-gmail.cabal new/gogol-gmail-0.3.0/gogol-gmail.cabal --- old/gogol-gmail-0.1.1/gogol-gmail.cabal 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-gmail-0.3.0/gogol-gmail.cabal 2017-07-12 16:45:06.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-gmail -version: 0.1.1 +version: 0.3.0 synopsis: Google Gmail SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -51,6 +51,7 @@ , Network.Google.Resource.Gmail.Users.Labels.Update , Network.Google.Resource.Gmail.Users.Messages.Attachments.Get , Network.Google.Resource.Gmail.Users.Messages.BatchDelete + , Network.Google.Resource.Gmail.Users.Messages.BatchModify , Network.Google.Resource.Gmail.Users.Messages.Delete , Network.Google.Resource.Gmail.Users.Messages.Get , Network.Google.Resource.Gmail.Users.Messages.Import @@ -97,5 +98,5 @@ , Network.Google.Gmail.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5