gogol-gmail 0.4.0 → 0.5.0

raw patch · 73 files changed

+1104/−594 lines, 73 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/Gmail.hs +15/−0
• gen/Network/Google/Gmail/Types.hs +15/−10
• gen/Network/Google/Gmail/Types/Product.hs +353/−206
• gen/Network/Google/Resource/Gmail/Users/Drafts/Create.hs +9/−7
• gen/Network/Google/Resource/Gmail/Users/Drafts/Delete.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Drafts/Get.hs +7/−7
• gen/Network/Google/Resource/Gmail/Users/Drafts/List.hs +7/−3
• gen/Network/Google/Resource/Gmail/Users/Drafts/Send.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Drafts/Update.hs +10/−8
• gen/Network/Google/Resource/Gmail/Users/GetProFile.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/History/List.hs +7/−3
• gen/Network/Google/Resource/Gmail/Users/Labels/Create.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Labels/Delete.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Labels/Get.hs +7/−7
• gen/Network/Google/Resource/Gmail/Users/Labels/List.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Labels/Patch.hs +8/−7
• gen/Network/Google/Resource/Gmail/Users/Labels/Update.hs +8/−7
• gen/Network/Google/Resource/Gmail/Users/Messages/Attachments/Get.hs +8/−7
• gen/Network/Google/Resource/Gmail/Users/Messages/BatchDelete.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Messages/BatchModify.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Messages/Delete.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Messages/Get.hs +7/−3
• gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs +9/−4
• gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs +9/−4
• gen/Network/Google/Resource/Gmail/Users/Messages/List.hs +7/−3
• gen/Network/Google/Resource/Gmail/Users/Messages/Modify.hs +8/−7
• gen/Network/Google/Resource/Gmail/Users/Messages/Send.hs +9/−7
• gen/Network/Google/Resource/Gmail/Users/Messages/Trash.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Messages/Untrash.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Create.hs +8/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Delete.hs +8/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Get.hs +8/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/List.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Create.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Delete.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/Filters/Get.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/Filters/List.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Create.hs +10/−7
• gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Delete.hs +10/−7
• gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Get.hs +10/−7
• gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/List.hs +9/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/GetAutoForwarding.hs +7/−5
• gen/Network/Google/Resource/Gmail/Users/Settings/GetImap.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/GetLanguage.hs +92/−0
• gen/Network/Google/Resource/Gmail/Users/Settings/GetPop.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/GetVacation.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Create.hs +8/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Delete.hs +8/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Get.hs +8/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/List.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Patch.hs +7/−3
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Delete.hs +9/−4
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Get.hs +9/−4
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Insert.hs +9/−4
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/List.hs +10/−7
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/SetDefault.hs +9/−4
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Update.hs +7/−3
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Verify.hs +8/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/UpdateAutoForwarding.hs +10/−7
• gen/Network/Google/Resource/Gmail/Users/Settings/UpdateImap.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/UpdateLanguage.hs +113/−0
• gen/Network/Google/Resource/Gmail/Users/Settings/UpdatePop.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Settings/UpdateVacation.hs +8/−6
• gen/Network/Google/Resource/Gmail/Users/Stop.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Threads/Delete.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Threads/Get.hs +7/−3
• gen/Network/Google/Resource/Gmail/Users/Threads/List.hs +7/−3
• gen/Network/Google/Resource/Gmail/Users/Threads/Modify.hs +8/−7
• gen/Network/Google/Resource/Gmail/Users/Threads/Trash.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Threads/Untrash.hs +7/−6
• gen/Network/Google/Resource/Gmail/Users/Watch.hs +7/−6
• gogol-gmail.cabal +4/−2

@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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.

@@ -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

@@ -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,

@@ -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

@@ -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

@@ -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.

@@ -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]

@@ -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

@@ -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.

@@ -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.

@@ -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.

@@ -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

@@ -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

@@ -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.

@@ -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

@@ -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

@@ -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.

@@ -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

@@ -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

@@ -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

@@ -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,

@@ -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

@@ -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

@@ -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.

@@ -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.

@@ -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

@@ -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.

@@ -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.

@@ -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.

@@ -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

@@ -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.

@@ -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.

@@ -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.

@@ -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 =

@@ -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"]

@@ -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 =

@@ -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 =

@@ -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.

@@ -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.

@@ -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 <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets language settings.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> 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

@@ -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.

@@ -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.

@@ -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

@@ -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.

@@ -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.

@@ -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.

@@ -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

@@ -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",

@@ -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/",

@@ -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 =

@@ -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 =

@@ -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",

@@ -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

@@ -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.

@@ -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 =

@@ -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

@@ -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 <brendan.g.hay@gmail.com>+-- 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:/ <https://developers.google.com/gmail/api/ Gmail API Reference> 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

@@ -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

@@ -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

@@ -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.

@@ -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.

@@ -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

@@ -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,

@@ -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

@@ -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.

@@ -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.

@@ -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

@@ -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