gogol-gmail 0.3.0 → 0.4.0

raw patch · 25 files changed

+1649/−40 lines, 25 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• gen/Network/Google/Gmail.hs +86/−1
• gen/Network/Google/Gmail/Types.hs +42/−2
• gen/Network/Google/Gmail/Types/Product.hs +322/−3
• gen/Network/Google/Gmail/Types/Sum.hs +76/−1
• gen/Network/Google/Resource/Gmail/Users/History/List.hs +27/−9
• gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs +1/−2
• gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs +1/−2
• gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Create.hs +121/−0
• gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Delete.hs +110/−0
• gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Get.hs +112/−0
• gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/List.hs +97/−0
• gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Create.hs +6/−2
• gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Delete.hs +4/−2
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Create.hs +4/−2
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Delete.hs +4/−2
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Patch.hs +8/−4
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Delete.hs +120/−0
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Get.hs +123/−0
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Insert.hs +125/−0
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/List.hs +113/−0
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/SetDefault.hs +122/−0
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Update.hs +6/−2
• gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Verify.hs +4/−2
• gen/Network/Google/Resource/Gmail/Users/Settings/UpdateAutoForwarding.hs +4/−2
• gogol-gmail.cabal +11/−2

@@ -116,6 +116,18 @@     -- ** gmail.users.messages.untrash     , module Network.Google.Resource.Gmail.Users.Messages.Untrash +    -- ** gmail.users.settings.delegates.create+    , module Network.Google.Resource.Gmail.Users.Settings.Delegates.Create++    -- ** gmail.users.settings.delegates.delete+    , module Network.Google.Resource.Gmail.Users.Settings.Delegates.Delete++    -- ** gmail.users.settings.delegates.get+    , module Network.Google.Resource.Gmail.Users.Settings.Delegates.Get++    -- ** gmail.users.settings.delegates.list+    , module Network.Google.Resource.Gmail.Users.Settings.Delegates.List+     -- ** gmail.users.settings.filters.create     , module Network.Google.Resource.Gmail.Users.Settings.Filters.Create @@ -167,6 +179,21 @@     -- ** gmail.users.settings.sendAs.patch     , module Network.Google.Resource.Gmail.Users.Settings.SendAs.Patch +    -- ** gmail.users.settings.sendAs.smimeInfo.delete+    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Delete++    -- ** gmail.users.settings.sendAs.smimeInfo.get+    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Get++    -- ** gmail.users.settings.sendAs.smimeInfo.insert+    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Insert++    -- ** gmail.users.settings.sendAs.smimeInfo.list+    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.List++    -- ** gmail.users.settings.sendAs.smimeInfo.setDefault+    , module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.SetDefault+     -- ** gmail.users.settings.sendAs.update     , module Network.Google.Resource.Gmail.Users.Settings.SendAs.Update @@ -219,6 +246,12 @@     -- ** FilterCriteriaSizeComparison     , FilterCriteriaSizeComparison (..) +    -- ** Delegate+    , Delegate+    , delegate+    , dVerificationStatus+    , dDelegateEmail+     -- ** UsersMessagesGetFormat     , UsersMessagesGetFormat (..) @@ -263,9 +296,20 @@     , hId     , hMessages +    -- ** ListDelegatesResponse+    , ListDelegatesResponse+    , listDelegatesResponse+    , ldrDelegates+     -- ** ForwardingAddressVerificationStatus     , ForwardingAddressVerificationStatus (..) +    -- ** LabelColor+    , LabelColor+    , labelColor+    , lcBackgRoundColor+    , lcTextColor+     -- ** FilterCriteria     , FilterCriteria     , filterCriteria@@ -296,6 +340,9 @@     , mphValue     , mphName +    -- ** UsersHistoryListHistoryTypes+    , UsersHistoryListHistoryTypes (..)+     -- ** SendAsVerificationStatus     , SendAsVerificationStatus (..) @@ -411,6 +458,9 @@     , wrExpiration     , wrHistoryId +    -- ** DelegateVerificationStatus+    , DelegateVerificationStatus (..)+     -- ** UsersThreadsGetFormat     , UsersThreadsGetFormat (..) @@ -473,6 +523,11 @@     -- ** ImapSettingsExpungeBehavior     , ImapSettingsExpungeBehavior (..) +    -- ** ListSmimeInfoResponse+    , ListSmimeInfoResponse+    , listSmimeInfoResponse+    , lsirSmimeInfo+     -- ** SmtpMsaSecurityMode     , SmtpMsaSecurityMode (..) @@ -519,6 +574,7 @@     , lThreadsUnread     , lMessageListVisibility     , lMessagesTotal+    , lColor     , lMessagesUnread     , lName     , lThreadsTotal@@ -526,6 +582,17 @@     , lId     , lType +    -- ** SmimeInfo+    , SmimeInfo+    , smimeInfo+    , siPem+    , siExpiration+    , siEncryptedKeyPassword+    , siId+    , siPkcs12+    , siIssuerCn+    , siIsDefault+     -- ** ListMessagesResponse     , ListMessagesResponse     , listMessagesResponse@@ -567,6 +634,10 @@ import           Network.Google.Resource.Gmail.Users.Messages.Send import           Network.Google.Resource.Gmail.Users.Messages.Trash import           Network.Google.Resource.Gmail.Users.Messages.Untrash+import           Network.Google.Resource.Gmail.Users.Settings.Delegates.Create+import           Network.Google.Resource.Gmail.Users.Settings.Delegates.Delete+import           Network.Google.Resource.Gmail.Users.Settings.Delegates.Get+import           Network.Google.Resource.Gmail.Users.Settings.Delegates.List import           Network.Google.Resource.Gmail.Users.Settings.Filters.Create import           Network.Google.Resource.Gmail.Users.Settings.Filters.Delete import           Network.Google.Resource.Gmail.Users.Settings.Filters.Get@@ -584,6 +655,11 @@ import           Network.Google.Resource.Gmail.Users.Settings.SendAs.Get import           Network.Google.Resource.Gmail.Users.Settings.SendAs.List import           Network.Google.Resource.Gmail.Users.Settings.SendAs.Patch+import           Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Delete+import           Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Get+import           Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Insert+import           Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.List+import           Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.SetDefault import           Network.Google.Resource.Gmail.Users.Settings.SendAs.Update import           Network.Google.Resource.Gmail.Users.Settings.SendAs.Verify import           Network.Google.Resource.Gmail.Users.Settings.UpdateAutoForwarding@@ -606,7 +682,11 @@ -- | Represents the entirety of the methods and resources available for the Gmail API service. type GmailAPI =      UsersHistoryListResource :<|>-       UsersSettingsForwardingAddressesListResource+       UsersSettingsDelegatesListResource+       :<|> UsersSettingsDelegatesGetResource+       :<|> UsersSettingsDelegatesCreateResource+       :<|> UsersSettingsDelegatesDeleteResource+       :<|> UsersSettingsForwardingAddressesListResource        :<|> UsersSettingsForwardingAddressesGetResource        :<|> UsersSettingsForwardingAddressesCreateResource        :<|> UsersSettingsForwardingAddressesDeleteResource@@ -614,6 +694,11 @@        :<|> UsersSettingsFiltersGetResource        :<|> UsersSettingsFiltersCreateResource        :<|> UsersSettingsFiltersDeleteResource+       :<|> UsersSettingsSendAsSmimeInfoInsertResource+       :<|> UsersSettingsSendAsSmimeInfoListResource+       :<|> UsersSettingsSendAsSmimeInfoGetResource+       :<|> UsersSettingsSendAsSmimeInfoSetDefaultResource+       :<|> UsersSettingsSendAsSmimeInfoDeleteResource        :<|> UsersSettingsSendAsVerifyResource        :<|> UsersSettingsSendAsListResource        :<|> UsersSettingsSendAsPatchResource

@@ -39,6 +39,12 @@     -- * FilterCriteriaSizeComparison     , FilterCriteriaSizeComparison (..) +    -- * Delegate+    , Delegate+    , delegate+    , dVerificationStatus+    , dDelegateEmail+     -- * UsersMessagesGetFormat     , UsersMessagesGetFormat (..) @@ -83,9 +89,20 @@     , hId     , hMessages +    -- * ListDelegatesResponse+    , ListDelegatesResponse+    , listDelegatesResponse+    , ldrDelegates+     -- * ForwardingAddressVerificationStatus     , ForwardingAddressVerificationStatus (..) +    -- * LabelColor+    , LabelColor+    , labelColor+    , lcBackgRoundColor+    , lcTextColor+     -- * FilterCriteria     , FilterCriteria     , filterCriteria@@ -116,6 +133,9 @@     , mphValue     , mphName +    -- * UsersHistoryListHistoryTypes+    , UsersHistoryListHistoryTypes (..)+     -- * SendAsVerificationStatus     , SendAsVerificationStatus (..) @@ -231,6 +251,9 @@     , wrExpiration     , wrHistoryId +    -- * DelegateVerificationStatus+    , DelegateVerificationStatus (..)+     -- * UsersThreadsGetFormat     , UsersThreadsGetFormat (..) @@ -293,6 +316,11 @@     -- * ImapSettingsExpungeBehavior     , ImapSettingsExpungeBehavior (..) +    -- * ListSmimeInfoResponse+    , ListSmimeInfoResponse+    , listSmimeInfoResponse+    , lsirSmimeInfo+     -- * SmtpMsaSecurityMode     , SmtpMsaSecurityMode (..) @@ -339,6 +367,7 @@     , lThreadsUnread     , lMessageListVisibility     , lMessagesTotal+    , lColor     , lMessagesUnread     , lName     , lThreadsTotal@@ -346,6 +375,17 @@     , lId     , lType +    -- * SmimeInfo+    , SmimeInfo+    , smimeInfo+    , siPem+    , siExpiration+    , siEncryptedKeyPassword+    , siId+    , siPkcs12+    , siIssuerCn+    , siIsDefault+     -- * ListMessagesResponse     , ListMessagesResponse     , listMessagesResponse@@ -373,7 +413,7 @@ gmailSettingsBasicScope :: Proxy '["https://www.googleapis.com/auth/gmail.settings.basic"] gmailSettingsBasicScope = Proxy; --- | View and manage your mail+-- | Read, compose, send, and permanently delete all your email from Gmail mailGoogleComScope :: Proxy '["https://mail.google.com/"] mailGoogleComScope = Proxy; @@ -406,6 +446,6 @@ gmailComposeScope :: Proxy '["https://www.googleapis.com/auth/gmail.compose"] gmailComposeScope = Proxy; --- | View your emails messages and settings+-- | View your email messages and settings gmailReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/gmail.readonly"] gmailReadOnlyScope = Proxy;

@@ -55,7 +55,60 @@         toJSON BatchDeleteMessagesRequest'{..}           = object (catMaybes [("ids" .=) <$> _bdmrIds]) +-- | Settings for a delegate. Delegates can read, send, and delete messages,+-- as well as view and add contacts, for the delegator\'s account. See+-- \"Set up mail delegation\" for more information about delegates. --+-- /See:/ 'delegate' smart constructor.+data Delegate = Delegate'+    { _dVerificationStatus :: !(Maybe DelegateVerificationStatus)+    , _dDelegateEmail      :: !(Maybe Text)+    } 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:+--+-- * 'dVerificationStatus'+--+-- * 'dDelegateEmail'+delegate+    :: Delegate+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)+dVerificationStatus+  = lens _dVerificationStatus+      (\ s a -> s{_dVerificationStatus = a})++-- | The email address of the delegate.+dDelegateEmail :: Lens' Delegate (Maybe Text)+dDelegateEmail+  = lens _dDelegateEmail+      (\ s a -> s{_dDelegateEmail = a})++instance FromJSON Delegate where+        parseJSON+          = withObject "Delegate"+              (\ o ->+                 Delegate' <$>+                   (o .:? "verificationStatus") <*>+                     (o .:? "delegateEmail"))++instance ToJSON Delegate where+        toJSON Delegate'{..}+          = object+              (catMaybes+                 [("verificationStatus" .=) <$> _dVerificationStatus,+                  ("delegateEmail" .=) <$> _dDelegateEmail])++-- -- /See:/ 'modifyThreadRequest' smart constructor. data ModifyThreadRequest = ModifyThreadRequest'     { _mtrRemoveLabelIds :: !(Maybe [Text])@@ -397,6 +450,111 @@                   ("labelsAdded" .=) <$> _hLabelsAdded,                   ("id" .=) <$> _hId, ("messages" .=) <$> _hMessages]) +-- | Response for the ListDelegates method.+--+-- /See:/ 'listDelegatesResponse' smart constructor.+newtype ListDelegatesResponse = ListDelegatesResponse'+    { _ldrDelegates :: Maybe [Delegate]+    } 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:+--+-- * 'ldrDelegates'+listDelegatesResponse+    :: ListDelegatesResponse+listDelegatesResponse =+    ListDelegatesResponse'+    { _ldrDelegates = Nothing+    }++-- | List of the user\'s delegates (with any verification status).+ldrDelegates :: Lens' ListDelegatesResponse [Delegate]+ldrDelegates+  = lens _ldrDelegates (\ s a -> s{_ldrDelegates = a})+      . _Default+      . _Coerce++instance FromJSON ListDelegatesResponse where+        parseJSON+          = withObject "ListDelegatesResponse"+              (\ o ->+                 ListDelegatesResponse' <$>+                   (o .:? "delegates" .!= mempty))++instance ToJSON ListDelegatesResponse where+        toJSON ListDelegatesResponse'{..}+          = object+              (catMaybes [("delegates" .=) <$> _ldrDelegates])++--+-- /See:/ 'labelColor' smart constructor.+data LabelColor = LabelColor'+    { _lcBackgRoundColor :: !(Maybe Text)+    , _lcTextColor       :: !(Maybe Text)+    } 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:+--+-- * 'lcBackgRoundColor'+--+-- * 'lcTextColor'+labelColor+    :: LabelColor+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,+-- #666666, #999999, #cccccc, #efefef, #f3f3f3, #ffffff, #fb4c2f, #ffad47,+-- #fad165, #16a766, #43d692, #4a86e8, #a479e2, #f691b3, #f6c5be, #ffe6c7,+-- #fef1d1, #b9e4d0, #c6f3de, #c9daf8, #e4d7f5, #fcdee8, #efa093, #ffd6a2,+-- #fce8b3, #89d3b2, #a0eac9, #a4c2f4, #d0bcf1, #fbc8d9, #e66550, #ffbc6b,+-- #fcda83, #44b984, #68dfa9, #6d9eeb, #b694e8, #f7a7c0, #cc3a21, #eaa041,+-- #f2c960, #149e60, #3dc789, #3c78d8, #8e63ce, #e07798, #ac2b16, #cf8933,+-- #d5ae49, #0b804b, #2a9c68, #285bac, #653e9b, #b65775, #822111, #a46a21,+-- #aa8831, #076239, #1a764d, #1c4587, #41236d, #83334c+lcBackgRoundColor :: Lens' LabelColor (Maybe Text)+lcBackgRoundColor+  = lens _lcBackgRoundColor+      (\ s a -> s{_lcBackgRoundColor = a})++-- | The text color of the label, represented as hex string. 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, #666666,+-- #999999, #cccccc, #efefef, #f3f3f3, #ffffff, #fb4c2f, #ffad47, #fad165,+-- #16a766, #43d692, #4a86e8, #a479e2, #f691b3, #f6c5be, #ffe6c7, #fef1d1,+-- #b9e4d0, #c6f3de, #c9daf8, #e4d7f5, #fcdee8, #efa093, #ffd6a2, #fce8b3,+-- #89d3b2, #a0eac9, #a4c2f4, #d0bcf1, #fbc8d9, #e66550, #ffbc6b, #fcda83,+-- #44b984, #68dfa9, #6d9eeb, #b694e8, #f7a7c0, #cc3a21, #eaa041, #f2c960,+-- #149e60, #3dc789, #3c78d8, #8e63ce, #e07798, #ac2b16, #cf8933, #d5ae49,+-- #0b804b, #2a9c68, #285bac, #653e9b, #b65775, #822111, #a46a21, #aa8831,+-- #076239, #1a764d, #1c4587, #41236d, #83334c+lcTextColor :: Lens' LabelColor (Maybe Text)+lcTextColor+  = lens _lcTextColor (\ s a -> s{_lcTextColor = a})++instance FromJSON LabelColor where+        parseJSON+          = withObject "LabelColor"+              (\ o ->+                 LabelColor' <$>+                   (o .:? "backgroundColor") <*> (o .:? "textColor"))++instance ToJSON LabelColor where+        toJSON LabelColor'{..}+          = object+              (catMaybes+                 [("backgroundColor" .=) <$> _lcBackgRoundColor,+                  ("textColor" .=) <$> _lcTextColor])+ -- | Message matching criteria. -- -- /See:/ 'filterCriteria' smart constructor.@@ -801,7 +959,9 @@ -- | A name that appears in the \"From:\" header for mail sent using this -- alias. For custom \"from\" addresses, when this is empty, Gmail will -- populate the \"From:\" header with the name that is used for the primary--- address associated with the account.+-- address associated with the account. If the admin has disabled the+-- ability for users to update their name format, requests to update this+-- field for the primary login will silently fail. saDisplayName :: Lens' SendAs (Maybe Text) saDisplayName   = lens _saDisplayName@@ -1172,8 +1332,8 @@       (\ s a -> s{_vsResponseBodyPlainText = a})  -- | Flag that determines whether responses are sent to recipients who are--- outside of the user\'s domain. This feature is only available for Google--- Apps users.+-- outside of the user\'s domain. This feature is only available for G+-- Suite users. vsRestrictToDomain :: Lens' VacationSettings (Maybe Bool) vsRestrictToDomain   = lens _vsRestrictToDomain@@ -2002,6 +2162,44 @@                   ("autoExpunge" .=) <$> _isAutoExpunge,                   ("maxFolderSize" .=) <$> _isMaxFolderSize]) +--+-- /See:/ 'listSmimeInfoResponse' smart constructor.+newtype ListSmimeInfoResponse = ListSmimeInfoResponse'+    { _lsirSmimeInfo :: Maybe [SmimeInfo]+    } 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:+--+-- * 'lsirSmimeInfo'+listSmimeInfoResponse+    :: ListSmimeInfoResponse+listSmimeInfoResponse =+    ListSmimeInfoResponse'+    { _lsirSmimeInfo = Nothing+    }++-- | List of SmimeInfo.+lsirSmimeInfo :: Lens' ListSmimeInfoResponse [SmimeInfo]+lsirSmimeInfo+  = lens _lsirSmimeInfo+      (\ s a -> s{_lsirSmimeInfo = a})+      . _Default+      . _Coerce++instance FromJSON ListSmimeInfoResponse where+        parseJSON+          = withObject "ListSmimeInfoResponse"+              (\ o ->+                 ListSmimeInfoResponse' <$>+                   (o .:? "smimeInfo" .!= mempty))++instance ToJSON ListSmimeInfoResponse where+        toJSON ListSmimeInfoResponse'{..}+          = object+              (catMaybes [("smimeInfo" .=) <$> _lsirSmimeInfo])+ -- | An email message. -- -- /See:/ 'message' smart constructor.@@ -2328,6 +2526,7 @@     { _lThreadsUnread         :: !(Maybe (Textual Int32))     , _lMessageListVisibility :: !(Maybe LabelMessageListVisibility)     , _lMessagesTotal         :: !(Maybe (Textual Int32))+    , _lColor                 :: !(Maybe LabelColor)     , _lMessagesUnread        :: !(Maybe (Textual Int32))     , _lName                  :: !(Maybe Text)     , _lThreadsTotal          :: !(Maybe (Textual Int32))@@ -2346,6 +2545,8 @@ -- -- * 'lMessagesTotal' --+-- * 'lColor'+-- -- * 'lMessagesUnread' -- -- * 'lName'@@ -2364,6 +2565,7 @@     { _lThreadsUnread = Nothing     , _lMessageListVisibility = Nothing     , _lMessagesTotal = Nothing+    , _lColor = Nothing     , _lMessagesUnread = Nothing     , _lName = Nothing     , _lThreadsTotal = Nothing@@ -2393,6 +2595,11 @@       (\ s a -> s{_lMessagesTotal = a})       . mapping _Coerce +-- | The color to assign to the label. Color is only available for labels+-- that have their type set to user.+lColor :: Lens' Label (Maybe LabelColor)+lColor = lens _lColor (\ s a -> s{_lColor = a})+ -- | The number of unread messages with the label. lMessagesUnread :: Lens' Label (Maybe Int32) lMessagesUnread@@ -2441,6 +2648,7 @@                    (o .:? "threadsUnread") <*>                      (o .:? "messageListVisibility")                      <*> (o .:? "messagesTotal")+                     <*> (o .:? "color")                      <*> (o .:? "messagesUnread")                      <*> (o .:? "name")                      <*> (o .:? "threadsTotal")@@ -2456,11 +2664,122 @@                   ("messageListVisibility" .=) <$>                     _lMessageListVisibility,                   ("messagesTotal" .=) <$> _lMessagesTotal,+                  ("color" .=) <$> _lColor,                   ("messagesUnread" .=) <$> _lMessagesUnread,                   ("name" .=) <$> _lName,                   ("threadsTotal" .=) <$> _lThreadsTotal,                   ("labelListVisibility" .=) <$> _lLabelListVisibility,                   ("id" .=) <$> _lId, ("type" .=) <$> _lType])++-- | An S\/MIME email config.+--+-- /See:/ 'smimeInfo' smart constructor.+data SmimeInfo = SmimeInfo'+    { _siPem                  :: !(Maybe Text)+    , _siExpiration           :: !(Maybe (Textual Int64))+    , _siEncryptedKeyPassword :: !(Maybe Text)+    , _siId                   :: !(Maybe Text)+    , _siPkcs12               :: !(Maybe Bytes)+    , _siIssuerCn             :: !(Maybe Text)+    , _siIsDefault            :: !(Maybe Bool)+    } 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:+--+-- * 'siPem'+--+-- * 'siExpiration'+--+-- * 'siEncryptedKeyPassword'+--+-- * 'siId'+--+-- * 'siPkcs12'+--+-- * 'siIssuerCn'+--+-- * 'siIsDefault'+smimeInfo+    :: SmimeInfo+smimeInfo =+    SmimeInfo'+    { _siPem = Nothing+    , _siExpiration = Nothing+    , _siEncryptedKeyPassword = Nothing+    , _siId = Nothing+    , _siPkcs12 = Nothing+    , _siIssuerCn = Nothing+    , _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).+siPem :: Lens' SmimeInfo (Maybe Text)+siPem = lens _siPem (\ s a -> s{_siPem = a})++-- | When the certificate expires (in milliseconds since epoch).+siExpiration :: Lens' SmimeInfo (Maybe Int64)+siExpiration+  = lens _siExpiration (\ s a -> s{_siExpiration = a})+      . mapping _Coerce++-- | Encrypted key password, when key is encrypted.+siEncryptedKeyPassword :: Lens' SmimeInfo (Maybe Text)+siEncryptedKeyPassword+  = lens _siEncryptedKeyPassword+      (\ s a -> s{_siEncryptedKeyPassword = a})++-- | The immutable ID for the SmimeInfo.+siId :: Lens' SmimeInfo (Maybe Text)+siId = lens _siId (\ s a -> s{_siId = a})++-- | PKCS#12 format containing a single private\/public key pair and+-- certificate chain. This format is only accepted from client for creating+-- a new SmimeInfo and is never returned, because the private key is not+-- intended to be exported. PKCS#12 may be encrypted, in which case+-- encryptedKeyPassword should be set appropriately.+siPkcs12 :: Lens' SmimeInfo (Maybe ByteString)+siPkcs12+  = lens _siPkcs12 (\ s a -> s{_siPkcs12 = a}) .+      mapping _Bytes++-- | The S\/MIME certificate issuer\'s common name.+siIssuerCn :: Lens' SmimeInfo (Maybe Text)+siIssuerCn+  = lens _siIssuerCn (\ s a -> s{_siIssuerCn = a})++-- | Whether this SmimeInfo is the default one for this user\'s send-as+-- address.+siIsDefault :: Lens' SmimeInfo (Maybe Bool)+siIsDefault+  = lens _siIsDefault (\ s a -> s{_siIsDefault = a})++instance FromJSON SmimeInfo where+        parseJSON+          = withObject "SmimeInfo"+              (\ o ->+                 SmimeInfo' <$>+                   (o .:? "pem") <*> (o .:? "expiration") <*>+                     (o .:? "encryptedKeyPassword")+                     <*> (o .:? "id")+                     <*> (o .:? "pkcs12")+                     <*> (o .:? "issuerCn")+                     <*> (o .:? "isDefault"))++instance ToJSON SmimeInfo where+        toJSON SmimeInfo'{..}+          = object+              (catMaybes+                 [("pem" .=) <$> _siPem,+                  ("expiration" .=) <$> _siExpiration,+                  ("encryptedKeyPassword" .=) <$>+                    _siEncryptedKeyPassword,+                  ("id" .=) <$> _siId, ("pkcs12" .=) <$> _siPkcs12,+                  ("issuerCn" .=) <$> _siIssuerCn,+                  ("isDefault" .=) <$> _siIsDefault])  -- -- /See:/ 'listMessagesResponse' smart constructor.

@@ -16,7 +16,7 @@ -- module Network.Google.Gmail.Types.Sum where -import           Network.Google.Prelude+import           Network.Google.Prelude hiding (Bytes)  -- | How the message size in bytes should be in relation to the size field. data FilterCriteriaSizeComparison@@ -190,6 +190,41 @@ instance ToJSON AutoForwardingDisPosition where     toJSON = toJSONText +-- | History types to be returned by the function+data UsersHistoryListHistoryTypes+    = LabelAdded+      -- ^ @labelAdded@+    | LabelRemoved+      -- ^ @labelRemoved@+    | MessageAdded+      -- ^ @messageAdded@+    | MessageDeleted+      -- ^ @messageDeleted@+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable UsersHistoryListHistoryTypes++instance FromHttpApiData UsersHistoryListHistoryTypes where+    parseQueryParam = \case+        "labelAdded" -> Right LabelAdded+        "labelRemoved" -> Right LabelRemoved+        "messageAdded" -> Right MessageAdded+        "messageDeleted" -> Right MessageDeleted+        x -> Left ("Unable to parse UsersHistoryListHistoryTypes from: " <> x)++instance ToHttpApiData UsersHistoryListHistoryTypes where+    toQueryParam = \case+        LabelAdded -> "labelAdded"+        LabelRemoved -> "labelRemoved"+        MessageAdded -> "messageAdded"+        MessageDeleted -> "messageDeleted"++instance FromJSON UsersHistoryListHistoryTypes where+    parseJSON = parseJSONText "UsersHistoryListHistoryTypes"++instance ToJSON UsersHistoryListHistoryTypes where+    toJSON = toJSONText+ -- | Indicates whether this address has been verified for use as a send-as -- alias. Read-only. This setting only applies to custom \"from\" aliases. data SendAsVerificationStatus@@ -376,6 +411,46 @@     parseJSON = parseJSONText "LabelLabelListVisibility"  instance ToJSON LabelLabelListVisibility where+    toJSON = toJSONText++-- | Indicates whether this address has been verified and can act as a+-- delegate for the account. Read-only.+data DelegateVerificationStatus+    = DVSAccepted+      -- ^ @accepted@+    | DVSExpired+      -- ^ @expired@+    | DVSPending+      -- ^ @pending@+    | DVSRejected+      -- ^ @rejected@+    | DVSVerificationStatusUnspecified+      -- ^ @verificationStatusUnspecified@+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable DelegateVerificationStatus++instance FromHttpApiData DelegateVerificationStatus where+    parseQueryParam = \case+        "accepted" -> Right DVSAccepted+        "expired" -> Right DVSExpired+        "pending" -> Right DVSPending+        "rejected" -> Right DVSRejected+        "verificationStatusUnspecified" -> Right DVSVerificationStatusUnspecified+        x -> Left ("Unable to parse DelegateVerificationStatus from: " <> x)++instance ToHttpApiData DelegateVerificationStatus where+    toQueryParam = \case+        DVSAccepted -> "accepted"+        DVSExpired -> "expired"+        DVSPending -> "pending"+        DVSRejected -> "rejected"+        DVSVerificationStatusUnspecified -> "verificationStatusUnspecified"++instance FromJSON DelegateVerificationStatus where+    parseJSON = parseJSONText "DelegateVerificationStatus"++instance ToJSON DelegateVerificationStatus where     toJSON = toJSONText  -- | The format to return the messages in.

@@ -34,6 +34,7 @@     , UsersHistoryList      -- * Request Lenses+    , uhlHistoryTypes     , uhlUserId     , uhlStartHistoryId     , uhlPageToken@@ -52,19 +53,23 @@          "users" :>            Capture "userId" Text :>              "history" :>-               QueryParam "startHistoryId" (Textual Word64) :>-                 QueryParam "pageToken" Text :>-                   QueryParam "labelId" Text :>-                     QueryParam "maxResults" (Textual Word32) :>-                       QueryParam "alt" AltJSON :>-                         Get '[JSON] ListHistoryResponse+               QueryParams "historyTypes"+                 UsersHistoryListHistoryTypes+                 :>+                 QueryParam "startHistoryId" (Textual Word64) :>+                   QueryParam "pageToken" Text :>+                     QueryParam "labelId" Text :>+                       QueryParam "maxResults" (Textual Word32) :>+                         QueryParam "alt" AltJSON :>+                           Get '[JSON] ListHistoryResponse  -- | Lists the history of all changes to the given mailbox. History results -- are returned in chronological order (increasing historyId). -- -- /See:/ 'usersHistoryList' smart constructor. data UsersHistoryList = UsersHistoryList'-    { _uhlUserId         :: !Text+    { _uhlHistoryTypes   :: !(Maybe [UsersHistoryListHistoryTypes])+    , _uhlUserId         :: !Text     , _uhlStartHistoryId :: !(Maybe (Textual Word64))     , _uhlPageToken      :: !(Maybe Text)     , _uhlLabelId        :: !(Maybe Text)@@ -75,6 +80,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'uhlHistoryTypes'+-- -- * 'uhlUserId' -- -- * 'uhlStartHistoryId'@@ -88,13 +95,22 @@     :: UsersHistoryList usersHistoryList =     UsersHistoryList'-    { _uhlUserId = "me"+    { _uhlHistoryTypes = Nothing+    , _uhlUserId = "me"     , _uhlStartHistoryId = Nothing     , _uhlPageToken = Nothing     , _uhlLabelId = Nothing     , _uhlMaxResults = 100     } +-- | History types to be returned by the function+uhlHistoryTypes :: Lens' UsersHistoryList [UsersHistoryListHistoryTypes]+uhlHistoryTypes+  = lens _uhlHistoryTypes+      (\ s a -> s{_uhlHistoryTypes = a})+      . _Default+      . _Coerce+ -- | The user\'s email address. The special value me can be used to indicate -- the authenticated user. uhlUserId :: Lens' UsersHistoryList Text@@ -143,7 +159,9 @@                "https://www.googleapis.com/auth/gmail.modify",                "https://www.googleapis.com/auth/gmail.readonly"]         requestClient UsersHistoryList'{..}-          = go _uhlUserId _uhlStartHistoryId _uhlPageToken+          = go _uhlUserId (_uhlHistoryTypes ^. _Default)+              _uhlStartHistoryId+              _uhlPageToken               _uhlLabelId               (Just _uhlMaxResults)               (Just AltJSON)

@@ -143,8 +143,7 @@       (\ s a -> s{_umiProcessForCalendar = a})  -- | Mark the email as permanently deleted (not TRASH) and only visible in--- Google Apps Vault to a Vault administrator. Only used for Google Apps--- for Work accounts.+-- Google Vault to a Vault administrator. Only used for G Suite accounts. umiDeleted :: Lens' UsersMessagesImport Bool umiDeleted   = lens _umiDeleted (\ s a -> s{_umiDeleted = a})

@@ -118,8 +118,7 @@ uUserId = lens _uUserId (\ s a -> s{_uUserId = a})  -- | Mark the email as permanently deleted (not TRASH) and only visible in--- Google Apps Vault to a Vault administrator. Only used for Google Apps--- for Work accounts.+-- Google Vault to a Vault administrator. Only used for G Suite accounts. uDeleted :: Lens' UsersMessagesInsert Bool uDeleted = lens _uDeleted (\ s a -> s{_uDeleted = a}) 

@@ -0,0 +1,121 @@+{-# 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.Delegates.Create+-- 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)+--+-- Adds a delegate with its verification status set directly to accepted,+-- without sending any verification email. The delegate user must be a+-- member of the same G Suite organization as the delegator user. Gmail+-- imposes limtations on the number of delegates and delegators each user+-- in a G Suite organization can have. These limits depend on your+-- organization, but in general each user can have up to 25 delegates and+-- up to 10 delegators. Note that a delegate user must be referred to by+-- their primary email address, and not an email alias. Also note that when+-- a new delegate is created, there may be up to a one minute delay before+-- the new delegate is available for use. This method is only available to+-- service account clients that have been delegated domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.delegates.create@.+module Network.Google.Resource.Gmail.Users.Settings.Delegates.Create+    (+    -- * REST Resource+      UsersSettingsDelegatesCreateResource++    -- * Creating a Request+    , usersSettingsDelegatesCreate+    , UsersSettingsDelegatesCreate++    -- * Request Lenses+    , usdcPayload+    , usdcUserId+    ) where++import           Network.Google.Gmail.Types+import           Network.Google.Prelude++-- | A resource alias for @gmail.users.settings.delegates.create@ method which the+-- 'UsersSettingsDelegatesCreate' request conforms to.+type UsersSettingsDelegatesCreateResource =+     "gmail" :>+       "v1" :>+         "users" :>+           Capture "userId" Text :>+             "settings" :>+               "delegates" :>+                 QueryParam "alt" AltJSON :>+                   ReqBody '[JSON] Delegate :> Post '[JSON] Delegate++-- | Adds a delegate with its verification status set directly to accepted,+-- without sending any verification email. The delegate user must be a+-- member of the same G Suite organization as the delegator user. Gmail+-- imposes limtations on the number of delegates and delegators each user+-- in a G Suite organization can have. These limits depend on your+-- organization, but in general each user can have up to 25 delegates and+-- up to 10 delegators. Note that a delegate user must be referred to by+-- their primary email address, and not an email alias. Also note that when+-- a new delegate is created, there may be up to a one minute delay before+-- the new delegate is available for use. This method is only available to+-- service account clients that have been delegated domain-wide authority.+--+-- /See:/ 'usersSettingsDelegatesCreate' smart constructor.+data UsersSettingsDelegatesCreate = UsersSettingsDelegatesCreate'+    { _usdcPayload :: !Delegate+    , _usdcUserId  :: !Text+    } 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:+--+-- * 'usdcPayload'+--+-- * 'usdcUserId'+usersSettingsDelegatesCreate+    :: Delegate -- ^ 'usdcPayload'+    -> UsersSettingsDelegatesCreate+usersSettingsDelegatesCreate pUsdcPayload_ =+    UsersSettingsDelegatesCreate'+    { _usdcPayload = pUsdcPayload_+    , _usdcUserId = "me"+    }++-- | Multipart request metadata.+usdcPayload :: Lens' UsersSettingsDelegatesCreate Delegate+usdcPayload+  = lens _usdcPayload (\ s a -> s{_usdcPayload = a})++-- | User\'s email address. The special value \"me\" can be used to indicate+-- the authenticated user.+usdcUserId :: Lens' UsersSettingsDelegatesCreate Text+usdcUserId+  = lens _usdcUserId (\ s a -> s{_usdcUserId = a})++instance GoogleRequest UsersSettingsDelegatesCreate+         where+        type Rs UsersSettingsDelegatesCreate = Delegate+        type Scopes UsersSettingsDelegatesCreate =+             '["https://www.googleapis.com/auth/gmail.settings.sharing"]+        requestClient UsersSettingsDelegatesCreate'{..}+          = go _usdcUserId (Just AltJSON) _usdcPayload+              gmailService+          where go+                  = buildClient+                      (Proxy :: Proxy UsersSettingsDelegatesCreateResource)+                      mempty

@@ -0,0 +1,110 @@+{-# 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.Delegates.Delete+-- 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)+--+-- Removes the specified delegate (which can be of any verification+-- status), and revokes any verification that may have been required for+-- using it. Note that a delegate user must be referred to by their primary+-- email address, and not an email alias. This method is only available to+-- service account clients that have been delegated domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.delegates.delete@.+module Network.Google.Resource.Gmail.Users.Settings.Delegates.Delete+    (+    -- * REST Resource+      UsersSettingsDelegatesDeleteResource++    -- * Creating a Request+    , usersSettingsDelegatesDelete+    , UsersSettingsDelegatesDelete++    -- * Request Lenses+    , usddUserId+    , usddDelegateEmail+    ) where++import           Network.Google.Gmail.Types+import           Network.Google.Prelude++-- | A resource alias for @gmail.users.settings.delegates.delete@ method which the+-- 'UsersSettingsDelegatesDelete' request conforms to.+type UsersSettingsDelegatesDeleteResource =+     "gmail" :>+       "v1" :>+         "users" :>+           Capture "userId" Text :>+             "settings" :>+               "delegates" :>+                 Capture "delegateEmail" Text :>+                   QueryParam "alt" AltJSON :> Delete '[JSON] ()++-- | Removes the specified delegate (which can be of any verification+-- status), and revokes any verification that may have been required for+-- using it. Note that a delegate user must be referred to by their primary+-- email address, and not an email alias. This method is only available to+-- service account clients that have been delegated domain-wide authority.+--+-- /See:/ 'usersSettingsDelegatesDelete' smart constructor.+data UsersSettingsDelegatesDelete = UsersSettingsDelegatesDelete'+    { _usddUserId        :: !Text+    , _usddDelegateEmail :: !Text+    } 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:+--+-- * 'usddUserId'+--+-- * 'usddDelegateEmail'+usersSettingsDelegatesDelete+    :: Text -- ^ 'usddDelegateEmail'+    -> UsersSettingsDelegatesDelete+usersSettingsDelegatesDelete pUsddDelegateEmail_ =+    UsersSettingsDelegatesDelete'+    { _usddUserId = "me"+    , _usddDelegateEmail = pUsddDelegateEmail_+    }++-- | User\'s email address. The special value \"me\" can be used to indicate+-- the authenticated user.+usddUserId :: Lens' UsersSettingsDelegatesDelete Text+usddUserId+  = lens _usddUserId (\ s a -> s{_usddUserId = a})++-- | The email address of the user to be removed as a delegate.+usddDelegateEmail :: Lens' UsersSettingsDelegatesDelete Text+usddDelegateEmail+  = lens _usddDelegateEmail+      (\ s a -> s{_usddDelegateEmail = a})++instance GoogleRequest UsersSettingsDelegatesDelete+         where+        type Rs UsersSettingsDelegatesDelete = ()+        type Scopes UsersSettingsDelegatesDelete =+             '["https://www.googleapis.com/auth/gmail.settings.sharing"]+        requestClient UsersSettingsDelegatesDelete'{..}+          = go _usddUserId _usddDelegateEmail (Just AltJSON)+              gmailService+          where go+                  = buildClient+                      (Proxy :: Proxy UsersSettingsDelegatesDeleteResource)+                      mempty

@@ -0,0 +1,112 @@+{-# 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.Delegates.Get+-- 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 the specified delegate. Note that a delegate user must be referred+-- to by their primary email address, and not an email alias. This method+-- is only available to service account clients that have been delegated+-- domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.delegates.get@.+module Network.Google.Resource.Gmail.Users.Settings.Delegates.Get+    (+    -- * REST Resource+      UsersSettingsDelegatesGetResource++    -- * Creating a Request+    , usersSettingsDelegatesGet+    , UsersSettingsDelegatesGet++    -- * Request Lenses+    , usdgUserId+    , usdgDelegateEmail+    ) where++import           Network.Google.Gmail.Types+import           Network.Google.Prelude++-- | A resource alias for @gmail.users.settings.delegates.get@ method which the+-- 'UsersSettingsDelegatesGet' request conforms to.+type UsersSettingsDelegatesGetResource =+     "gmail" :>+       "v1" :>+         "users" :>+           Capture "userId" Text :>+             "settings" :>+               "delegates" :>+                 Capture "delegateEmail" Text :>+                   QueryParam "alt" AltJSON :> Get '[JSON] Delegate++-- | Gets the specified delegate. Note that a delegate user must be referred+-- to by their primary email address, and not an email alias. This method+-- is only available to service account clients that have been delegated+-- domain-wide authority.+--+-- /See:/ 'usersSettingsDelegatesGet' smart constructor.+data UsersSettingsDelegatesGet = UsersSettingsDelegatesGet'+    { _usdgUserId        :: !Text+    , _usdgDelegateEmail :: !Text+    } 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:+--+-- * 'usdgUserId'+--+-- * 'usdgDelegateEmail'+usersSettingsDelegatesGet+    :: Text -- ^ 'usdgDelegateEmail'+    -> UsersSettingsDelegatesGet+usersSettingsDelegatesGet pUsdgDelegateEmail_ =+    UsersSettingsDelegatesGet'+    { _usdgUserId = "me"+    , _usdgDelegateEmail = pUsdgDelegateEmail_+    }++-- | User\'s email address. The special value \"me\" can be used to indicate+-- the authenticated user.+usdgUserId :: Lens' UsersSettingsDelegatesGet Text+usdgUserId+  = lens _usdgUserId (\ s a -> s{_usdgUserId = a})++-- | The email address of the user whose delegate relationship is to be+-- retrieved.+usdgDelegateEmail :: Lens' UsersSettingsDelegatesGet Text+usdgDelegateEmail+  = lens _usdgDelegateEmail+      (\ s a -> s{_usdgDelegateEmail = a})++instance GoogleRequest UsersSettingsDelegatesGet+         where+        type Rs UsersSettingsDelegatesGet = Delegate+        type Scopes UsersSettingsDelegatesGet =+             '["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 UsersSettingsDelegatesGet'{..}+          = go _usdgUserId _usdgDelegateEmail (Just AltJSON)+              gmailService+          where go+                  = buildClient+                      (Proxy :: Proxy UsersSettingsDelegatesGetResource)+                      mempty

@@ -0,0 +1,97 @@+{-# 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.Delegates.List+-- 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)+--+-- Lists the delegates for the specified account. This method is only+-- available to service account clients that have been delegated+-- domain-wide authority.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.delegates.list@.+module Network.Google.Resource.Gmail.Users.Settings.Delegates.List+    (+    -- * REST Resource+      UsersSettingsDelegatesListResource++    -- * Creating a Request+    , usersSettingsDelegatesList+    , UsersSettingsDelegatesList++    -- * Request Lenses+    , usdlUserId+    ) where++import           Network.Google.Gmail.Types+import           Network.Google.Prelude++-- | A resource alias for @gmail.users.settings.delegates.list@ method which the+-- 'UsersSettingsDelegatesList' request conforms to.+type UsersSettingsDelegatesListResource =+     "gmail" :>+       "v1" :>+         "users" :>+           Capture "userId" Text :>+             "settings" :>+               "delegates" :>+                 QueryParam "alt" AltJSON :>+                   Get '[JSON] ListDelegatesResponse++-- | Lists the delegates for the specified account. This method is only+-- available to service account clients that have been delegated+-- domain-wide authority.+--+-- /See:/ 'usersSettingsDelegatesList' smart constructor.+newtype UsersSettingsDelegatesList = UsersSettingsDelegatesList'+    { _usdlUserId :: Text+    } 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:+--+-- * 'usdlUserId'+usersSettingsDelegatesList+    :: UsersSettingsDelegatesList+usersSettingsDelegatesList =+    UsersSettingsDelegatesList'+    { _usdlUserId = "me"+    }++-- | User\'s email address. The special value \"me\" can be used to indicate+-- the authenticated user.+usdlUserId :: Lens' UsersSettingsDelegatesList Text+usdlUserId+  = lens _usdlUserId (\ s a -> s{_usdlUserId = a})++instance GoogleRequest UsersSettingsDelegatesList+         where+        type Rs UsersSettingsDelegatesList =+             ListDelegatesResponse+        type Scopes UsersSettingsDelegatesList =+             '["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 UsersSettingsDelegatesList'{..}+          = go _usdlUserId (Just AltJSON) gmailService+          where go+                  = buildClient+                      (Proxy :: Proxy UsersSettingsDelegatesListResource)+                      mempty

@@ -23,7 +23,9 @@ -- Creates a forwarding address. If ownership verification is required, a -- message will be sent to the recipient and the resource\'s verification -- status will be set to pending; otherwise, the resource will be created--- with verification status set to accepted.+-- with verification status set to accepted. This method is only available+-- to service account clients that have been delegated domain-wide+-- authority. -- -- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.forwardingAddresses.create@. module Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Create@@ -59,7 +61,9 @@ -- | Creates a forwarding address. If ownership verification is required, a -- message will be sent to the recipient and the resource\'s verification -- status will be set to pending; otherwise, the resource will be created--- with verification status set to accepted.+-- with verification status set to accepted. This method is only available+-- to service account clients that have been delegated domain-wide+-- authority. -- -- /See:/ 'usersSettingsForwardingAddressesCreate' smart constructor. data UsersSettingsForwardingAddressesCreate = UsersSettingsForwardingAddressesCreate'

@@ -21,7 +21,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes the specified forwarding address and revokes any verification--- that may have been required.+-- that may have been required. This method is only available to service+-- account clients that have been delegated domain-wide authority. -- -- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.forwardingAddresses.delete@. module Network.Google.Resource.Gmail.Users.Settings.ForwardingAddresses.Delete@@ -54,7 +55,8 @@                    QueryParam "alt" AltJSON :> Delete '[JSON] ()  -- | Deletes the specified forwarding address and revokes any verification--- that may have been required.+-- that may have been required. This method is only available to service+-- account clients that have been delegated domain-wide authority. -- -- /See:/ 'usersSettingsForwardingAddressesDelete' smart constructor. data UsersSettingsForwardingAddressesDelete = UsersSettingsForwardingAddressesDelete'

@@ -27,7 +27,8 @@ -- the resource\'s verification status will be set to pending; otherwise, -- the resource will be created with verification status set to accepted. -- If a signature is provided, Gmail will sanitize the HTML before saving--- it with the alias.+-- it with the alias. This method is only available to service account+-- clients that have been delegated domain-wide authority. -- -- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.create@. module Network.Google.Resource.Gmail.Users.Settings.SendAs.Create@@ -66,7 +67,8 @@ -- the resource\'s verification status will be set to pending; otherwise, -- the resource will be created with verification status set to accepted. -- If a signature is provided, Gmail will sanitize the HTML before saving--- it with the alias.+-- it with the alias. This method is only available to service account+-- clients that have been delegated domain-wide authority. -- -- /See:/ 'usersSettingsSendAsCreate' smart constructor. data UsersSettingsSendAsCreate = UsersSettingsSendAsCreate'

@@ -21,7 +21,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes the specified send-as alias. Revokes any verification that may--- have been required for using it.+-- have been required for using it. This method is only available to+-- service account clients that have been delegated domain-wide authority. -- -- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.delete@. module Network.Google.Resource.Gmail.Users.Settings.SendAs.Delete@@ -54,7 +55,8 @@                    QueryParam "alt" AltJSON :> Delete '[JSON] ()  -- | Deletes the specified send-as alias. Revokes any verification that may--- have been required for using it.+-- have been required for using it. This method is only available to+-- service account clients that have been delegated domain-wide authority. -- -- /See:/ 'usersSettingsSendAsDelete' smart constructor. data UsersSettingsSendAsDelete = UsersSettingsSendAsDelete'

@@ -21,8 +21,10 @@ -- Portability : non-portable (GHC extensions) -- -- Updates a send-as alias. If a signature is provided, Gmail will sanitize--- the HTML before saving it with the alias. This method supports patch--- semantics.+-- the HTML before saving it with the alias. Addresses other than the+-- primary address for the account can only be updated by service account+-- clients that have been delegated domain-wide authority. This method+-- supports patch semantics. -- -- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.patch@. module Network.Google.Resource.Gmail.Users.Settings.SendAs.Patch@@ -57,8 +59,10 @@                      ReqBody '[JSON] SendAs :> Patch '[JSON] SendAs  -- | Updates a send-as alias. If a signature is provided, Gmail will sanitize--- the HTML before saving it with the alias. This method supports patch--- semantics.+-- the HTML before saving it with the alias. Addresses other than the+-- primary address for the account can only be updated by service account+-- clients that have been delegated domain-wide authority. This method+-- supports patch semantics. -- -- /See:/ 'usersSettingsSendAsPatch' smart constructor. data UsersSettingsSendAsPatch = UsersSettingsSendAsPatch'

@@ -0,0 +1,120 @@+{-# 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.SendAs.SmimeInfo.Delete+-- 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)+--+-- Deletes the specified S\/MIME config for the specified send-as alias.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.delete@.+module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Delete+    (+    -- * REST Resource+      UsersSettingsSendAsSmimeInfoDeleteResource++    -- * Creating a Request+    , usersSettingsSendAsSmimeInfoDelete+    , UsersSettingsSendAsSmimeInfoDelete++    -- * Request Lenses+    , ussasidUserId+    , ussasidSendAsEmail+    , ussasidId+    ) where++import           Network.Google.Gmail.Types+import           Network.Google.Prelude++-- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.delete@ method which the+-- 'UsersSettingsSendAsSmimeInfoDelete' request conforms to.+type UsersSettingsSendAsSmimeInfoDeleteResource =+     "gmail" :>+       "v1" :>+         "users" :>+           Capture "userId" Text :>+             "settings" :>+               "sendAs" :>+                 Capture "sendAsEmail" Text :>+                   "smimeInfo" :>+                     Capture "id" Text :>+                       QueryParam "alt" AltJSON :> Delete '[JSON] ()++-- | Deletes the specified S\/MIME config for the specified send-as alias.+--+-- /See:/ 'usersSettingsSendAsSmimeInfoDelete' smart constructor.+data UsersSettingsSendAsSmimeInfoDelete = UsersSettingsSendAsSmimeInfoDelete'+    { _ussasidUserId      :: !Text+    , _ussasidSendAsEmail :: !Text+    , _ussasidId          :: !Text+    } 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:+--+-- * 'ussasidUserId'+--+-- * 'ussasidSendAsEmail'+--+-- * 'ussasidId'+usersSettingsSendAsSmimeInfoDelete+    :: Text -- ^ 'ussasidSendAsEmail'+    -> Text -- ^ 'ussasidId'+    -> UsersSettingsSendAsSmimeInfoDelete+usersSettingsSendAsSmimeInfoDelete pUssasidSendAsEmail_ pUssasidId_ =+    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+ussasidUserId+  = lens _ussasidUserId+      (\ s a -> s{_ussasidUserId = a})++-- | The email address that appears in the \"From:\" header for mail sent+-- using this alias.+ussasidSendAsEmail :: Lens' UsersSettingsSendAsSmimeInfoDelete Text+ussasidSendAsEmail+  = lens _ussasidSendAsEmail+      (\ s a -> s{_ussasidSendAsEmail = a})++-- | The immutable ID for the SmimeInfo.+ussasidId :: Lens' UsersSettingsSendAsSmimeInfoDelete Text+ussasidId+  = lens _ussasidId (\ s a -> s{_ussasidId = a})++instance GoogleRequest+         UsersSettingsSendAsSmimeInfoDelete where+        type Rs UsersSettingsSendAsSmimeInfoDelete = ()+        type Scopes UsersSettingsSendAsSmimeInfoDelete =+             '["https://www.googleapis.com/auth/gmail.settings.basic",+               "https://www.googleapis.com/auth/gmail.settings.sharing"]+        requestClient UsersSettingsSendAsSmimeInfoDelete'{..}+          = go _ussasidUserId _ussasidSendAsEmail _ussasidId+              (Just AltJSON)+              gmailService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy UsersSettingsSendAsSmimeInfoDeleteResource)+                      mempty

@@ -0,0 +1,123 @@+{-# 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.SendAs.SmimeInfo.Get+-- 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 the specified S\/MIME config for the specified send-as alias.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.get@.+module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Get+    (+    -- * REST Resource+      UsersSettingsSendAsSmimeInfoGetResource++    -- * Creating a Request+    , usersSettingsSendAsSmimeInfoGet+    , UsersSettingsSendAsSmimeInfoGet++    -- * Request Lenses+    , ussasigUserId+    , ussasigSendAsEmail+    , ussasigId+    ) where++import           Network.Google.Gmail.Types+import           Network.Google.Prelude++-- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.get@ method which the+-- 'UsersSettingsSendAsSmimeInfoGet' request conforms to.+type UsersSettingsSendAsSmimeInfoGetResource =+     "gmail" :>+       "v1" :>+         "users" :>+           Capture "userId" Text :>+             "settings" :>+               "sendAs" :>+                 Capture "sendAsEmail" Text :>+                   "smimeInfo" :>+                     Capture "id" Text :>+                       QueryParam "alt" AltJSON :> Get '[JSON] SmimeInfo++-- | Gets the specified S\/MIME config for the specified send-as alias.+--+-- /See:/ 'usersSettingsSendAsSmimeInfoGet' smart constructor.+data UsersSettingsSendAsSmimeInfoGet = UsersSettingsSendAsSmimeInfoGet'+    { _ussasigUserId      :: !Text+    , _ussasigSendAsEmail :: !Text+    , _ussasigId          :: !Text+    } 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:+--+-- * 'ussasigUserId'+--+-- * 'ussasigSendAsEmail'+--+-- * 'ussasigId'+usersSettingsSendAsSmimeInfoGet+    :: Text -- ^ 'ussasigSendAsEmail'+    -> Text -- ^ 'ussasigId'+    -> UsersSettingsSendAsSmimeInfoGet+usersSettingsSendAsSmimeInfoGet pUssasigSendAsEmail_ pUssasigId_ =+    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+ussasigUserId+  = lens _ussasigUserId+      (\ s a -> s{_ussasigUserId = a})++-- | The email address that appears in the \"From:\" header for mail sent+-- using this alias.+ussasigSendAsEmail :: Lens' UsersSettingsSendAsSmimeInfoGet Text+ussasigSendAsEmail+  = lens _ussasigSendAsEmail+      (\ s a -> s{_ussasigSendAsEmail = a})++-- | The immutable ID for the SmimeInfo.+ussasigId :: Lens' UsersSettingsSendAsSmimeInfoGet Text+ussasigId+  = lens _ussasigId (\ s a -> s{_ussasigId = a})++instance GoogleRequest+         UsersSettingsSendAsSmimeInfoGet where+        type Rs UsersSettingsSendAsSmimeInfoGet = SmimeInfo+        type Scopes UsersSettingsSendAsSmimeInfoGet =+             '["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",+               "https://www.googleapis.com/auth/gmail.settings.sharing"]+        requestClient UsersSettingsSendAsSmimeInfoGet'{..}+          = go _ussasigUserId _ussasigSendAsEmail _ussasigId+              (Just AltJSON)+              gmailService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy UsersSettingsSendAsSmimeInfoGetResource)+                      mempty

@@ -0,0 +1,125 @@+{-# 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.SendAs.SmimeInfo.Insert+-- 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)+--+-- Insert (upload) the given S\/MIME config for the specified send-as+-- alias. Note that pkcs12 format is required for the key.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.insert@.+module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Insert+    (+    -- * REST Resource+      UsersSettingsSendAsSmimeInfoInsertResource++    -- * Creating a Request+    , usersSettingsSendAsSmimeInfoInsert+    , UsersSettingsSendAsSmimeInfoInsert++    -- * Request Lenses+    , ussasiiPayload+    , ussasiiUserId+    , ussasiiSendAsEmail+    ) where++import           Network.Google.Gmail.Types+import           Network.Google.Prelude++-- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.insert@ method which the+-- 'UsersSettingsSendAsSmimeInfoInsert' request conforms to.+type UsersSettingsSendAsSmimeInfoInsertResource =+     "gmail" :>+       "v1" :>+         "users" :>+           Capture "userId" Text :>+             "settings" :>+               "sendAs" :>+                 Capture "sendAsEmail" Text :>+                   "smimeInfo" :>+                     QueryParam "alt" AltJSON :>+                       ReqBody '[JSON] SmimeInfo :> Post '[JSON] SmimeInfo++-- | Insert (upload) the given S\/MIME config for the specified send-as+-- alias. Note that pkcs12 format is required for the key.+--+-- /See:/ 'usersSettingsSendAsSmimeInfoInsert' smart constructor.+data UsersSettingsSendAsSmimeInfoInsert = UsersSettingsSendAsSmimeInfoInsert'+    { _ussasiiPayload     :: !SmimeInfo+    , _ussasiiUserId      :: !Text+    , _ussasiiSendAsEmail :: !Text+    } 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:+--+-- * 'ussasiiPayload'+--+-- * 'ussasiiUserId'+--+-- * 'ussasiiSendAsEmail'+usersSettingsSendAsSmimeInfoInsert+    :: SmimeInfo -- ^ 'ussasiiPayload'+    -> Text -- ^ 'ussasiiSendAsEmail'+    -> UsersSettingsSendAsSmimeInfoInsert+usersSettingsSendAsSmimeInfoInsert pUssasiiPayload_ pUssasiiSendAsEmail_ =+    UsersSettingsSendAsSmimeInfoInsert'+    { _ussasiiPayload = pUssasiiPayload_+    , _ussasiiUserId = "me"+    , _ussasiiSendAsEmail = pUssasiiSendAsEmail_+    }++-- | Multipart request metadata.+ussasiiPayload :: Lens' UsersSettingsSendAsSmimeInfoInsert SmimeInfo+ussasiiPayload+  = lens _ussasiiPayload+      (\ s a -> s{_ussasiiPayload = a})++-- | The user\'s email address. The special value me can be used to indicate+-- the authenticated user.+ussasiiUserId :: Lens' UsersSettingsSendAsSmimeInfoInsert Text+ussasiiUserId+  = lens _ussasiiUserId+      (\ s a -> s{_ussasiiUserId = a})++-- | The email address that appears in the \"From:\" header for mail sent+-- using this alias.+ussasiiSendAsEmail :: Lens' UsersSettingsSendAsSmimeInfoInsert Text+ussasiiSendAsEmail+  = lens _ussasiiSendAsEmail+      (\ s a -> s{_ussasiiSendAsEmail = a})++instance GoogleRequest+         UsersSettingsSendAsSmimeInfoInsert where+        type Rs UsersSettingsSendAsSmimeInfoInsert =+             SmimeInfo+        type Scopes UsersSettingsSendAsSmimeInfoInsert =+             '["https://www.googleapis.com/auth/gmail.settings.basic",+               "https://www.googleapis.com/auth/gmail.settings.sharing"]+        requestClient UsersSettingsSendAsSmimeInfoInsert'{..}+          = go _ussasiiUserId _ussasiiSendAsEmail+              (Just AltJSON)+              _ussasiiPayload+              gmailService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy UsersSettingsSendAsSmimeInfoInsertResource)+                      mempty

@@ -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.SendAs.SmimeInfo.List+-- 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)+--+-- Lists S\/MIME configs for the specified send-as alias.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.list@.+module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.List+    (+    -- * REST Resource+      UsersSettingsSendAsSmimeInfoListResource++    -- * Creating a Request+    , usersSettingsSendAsSmimeInfoList+    , UsersSettingsSendAsSmimeInfoList++    -- * Request Lenses+    , ussasilUserId+    , ussasilSendAsEmail+    ) where++import           Network.Google.Gmail.Types+import           Network.Google.Prelude++-- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.list@ method which the+-- 'UsersSettingsSendAsSmimeInfoList' request conforms to.+type UsersSettingsSendAsSmimeInfoListResource =+     "gmail" :>+       "v1" :>+         "users" :>+           Capture "userId" Text :>+             "settings" :>+               "sendAs" :>+                 Capture "sendAsEmail" Text :>+                   "smimeInfo" :>+                     QueryParam "alt" AltJSON :>+                       Get '[JSON] ListSmimeInfoResponse++-- | Lists S\/MIME configs for the specified send-as alias.+--+-- /See:/ 'usersSettingsSendAsSmimeInfoList' smart constructor.+data UsersSettingsSendAsSmimeInfoList = UsersSettingsSendAsSmimeInfoList'+    { _ussasilUserId      :: !Text+    , _ussasilSendAsEmail :: !Text+    } 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:+--+-- * 'ussasilUserId'+--+-- * 'ussasilSendAsEmail'+usersSettingsSendAsSmimeInfoList+    :: Text -- ^ 'ussasilSendAsEmail'+    -> UsersSettingsSendAsSmimeInfoList+usersSettingsSendAsSmimeInfoList 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+ussasilUserId+  = lens _ussasilUserId+      (\ s a -> s{_ussasilUserId = a})++-- | The email address that appears in the \"From:\" header for mail sent+-- using this alias.+ussasilSendAsEmail :: Lens' UsersSettingsSendAsSmimeInfoList Text+ussasilSendAsEmail+  = lens _ussasilSendAsEmail+      (\ s a -> s{_ussasilSendAsEmail = a})++instance GoogleRequest+         UsersSettingsSendAsSmimeInfoList where+        type Rs UsersSettingsSendAsSmimeInfoList =+             ListSmimeInfoResponse+        type Scopes UsersSettingsSendAsSmimeInfoList =+             '["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",+               "https://www.googleapis.com/auth/gmail.settings.sharing"]+        requestClient UsersSettingsSendAsSmimeInfoList'{..}+          = go _ussasilUserId _ussasilSendAsEmail+              (Just AltJSON)+              gmailService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy UsersSettingsSendAsSmimeInfoListResource)+                      mempty

@@ -0,0 +1,122 @@+{-# 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.SendAs.SmimeInfo.SetDefault+-- 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)+--+-- Sets the default S\/MIME config for the specified send-as alias.+--+-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.smimeInfo.setDefault@.+module Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.SetDefault+    (+    -- * REST Resource+      UsersSettingsSendAsSmimeInfoSetDefaultResource++    -- * Creating a Request+    , usersSettingsSendAsSmimeInfoSetDefault+    , UsersSettingsSendAsSmimeInfoSetDefault++    -- * Request Lenses+    , ussasisdUserId+    , ussasisdSendAsEmail+    , ussasisdId+    ) where++import           Network.Google.Gmail.Types+import           Network.Google.Prelude++-- | A resource alias for @gmail.users.settings.sendAs.smimeInfo.setDefault@ method which the+-- 'UsersSettingsSendAsSmimeInfoSetDefault' request conforms to.+type UsersSettingsSendAsSmimeInfoSetDefaultResource =+     "gmail" :>+       "v1" :>+         "users" :>+           Capture "userId" Text :>+             "settings" :>+               "sendAs" :>+                 Capture "sendAsEmail" Text :>+                   "smimeInfo" :>+                     Capture "id" Text :>+                       "setDefault" :>+                         QueryParam "alt" AltJSON :> Post '[JSON] ()++-- | Sets the default S\/MIME config for the specified send-as alias.+--+-- /See:/ 'usersSettingsSendAsSmimeInfoSetDefault' smart constructor.+data UsersSettingsSendAsSmimeInfoSetDefault = UsersSettingsSendAsSmimeInfoSetDefault'+    { _ussasisdUserId      :: !Text+    , _ussasisdSendAsEmail :: !Text+    , _ussasisdId          :: !Text+    } 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:+--+-- * 'ussasisdUserId'+--+-- * 'ussasisdSendAsEmail'+--+-- * 'ussasisdId'+usersSettingsSendAsSmimeInfoSetDefault+    :: Text -- ^ 'ussasisdSendAsEmail'+    -> Text -- ^ 'ussasisdId'+    -> UsersSettingsSendAsSmimeInfoSetDefault+usersSettingsSendAsSmimeInfoSetDefault pUssasisdSendAsEmail_ pUssasisdId_ =+    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+ussasisdUserId+  = lens _ussasisdUserId+      (\ s a -> s{_ussasisdUserId = a})++-- | The email address that appears in the \"From:\" header for mail sent+-- using this alias.+ussasisdSendAsEmail :: Lens' UsersSettingsSendAsSmimeInfoSetDefault Text+ussasisdSendAsEmail+  = lens _ussasisdSendAsEmail+      (\ s a -> s{_ussasisdSendAsEmail = a})++-- | The immutable ID for the SmimeInfo.+ussasisdId :: Lens' UsersSettingsSendAsSmimeInfoSetDefault Text+ussasisdId+  = lens _ussasisdId (\ s a -> s{_ussasisdId = a})++instance GoogleRequest+         UsersSettingsSendAsSmimeInfoSetDefault where+        type Rs UsersSettingsSendAsSmimeInfoSetDefault = ()+        type Scopes UsersSettingsSendAsSmimeInfoSetDefault =+             '["https://www.googleapis.com/auth/gmail.settings.basic",+               "https://www.googleapis.com/auth/gmail.settings.sharing"]+        requestClient+          UsersSettingsSendAsSmimeInfoSetDefault'{..}+          = go _ussasisdUserId _ussasisdSendAsEmail _ussasisdId+              (Just AltJSON)+              gmailService+          where go+                  = buildClient+                      (Proxy ::+                         Proxy UsersSettingsSendAsSmimeInfoSetDefaultResource)+                      mempty

@@ -21,7 +21,9 @@ -- Portability : non-portable (GHC extensions) -- -- Updates a send-as alias. If a signature is provided, Gmail will sanitize--- the HTML before saving it with the alias.+-- the HTML before saving it with the alias. Addresses other than the+-- primary address for the account can only be updated by service account+-- clients that have been delegated domain-wide authority. -- -- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.update@. module Network.Google.Resource.Gmail.Users.Settings.SendAs.Update@@ -56,7 +58,9 @@                      ReqBody '[JSON] SendAs :> Put '[JSON] SendAs  -- | Updates a send-as alias. If a signature is provided, Gmail will sanitize--- the HTML before saving it with the alias.+-- the HTML before saving it with the alias. Addresses other than the+-- primary address for the account can only be updated by service account+-- clients that have been delegated domain-wide authority. -- -- /See:/ 'usersSettingsSendAsUpdate' smart constructor. data UsersSettingsSendAsUpdate = UsersSettingsSendAsUpdate'

@@ -21,7 +21,8 @@ -- Portability : non-portable (GHC extensions) -- -- Sends a verification email to the specified send-as alias address. The--- verification status must be pending.+-- verification status must be pending. This method is only available to+-- service account clients that have been delegated domain-wide authority. -- -- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.sendAs.verify@. module Network.Google.Resource.Gmail.Users.Settings.SendAs.Verify@@ -55,7 +56,8 @@                      QueryParam "alt" AltJSON :> Post '[JSON] ()  -- | Sends a verification email to the specified send-as alias address. The--- verification status must be pending.+-- verification status must be pending. This method is only available to+-- service account clients that have been delegated domain-wide authority. -- -- /See:/ 'usersSettingsSendAsVerify' smart constructor. data UsersSettingsSendAsVerify = UsersSettingsSendAsVerify'

@@ -22,7 +22,8 @@ -- -- Updates the auto-forwarding setting for the specified account. A -- verified forwarding address must be specified when auto-forwarding is--- enabled.+-- enabled. This method is only available to service account clients that+-- have been delegated domain-wide authority. -- -- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference> for @gmail.users.settings.updateAutoForwarding@. module Network.Google.Resource.Gmail.Users.Settings.UpdateAutoForwarding@@ -57,7 +58,8 @@  -- | Updates the auto-forwarding setting for the specified account. A -- verified forwarding address must be specified when auto-forwarding is--- enabled.+-- enabled. This method is only available to service account clients that+-- have been delegated domain-wide authority. -- -- /See:/ 'usersSettingsUpdateAutoForwarding' smart constructor. data UsersSettingsUpdateAutoForwarding = UsersSettingsUpdateAutoForwarding'

@@ -1,5 +1,5 @@ name:                  gogol-gmail-version:               0.3.0+version:               0.4.0 synopsis:              Google Gmail SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -61,6 +61,10 @@         , Network.Google.Resource.Gmail.Users.Messages.Send         , Network.Google.Resource.Gmail.Users.Messages.Trash         , Network.Google.Resource.Gmail.Users.Messages.Untrash+        , Network.Google.Resource.Gmail.Users.Settings.Delegates.Create+        , Network.Google.Resource.Gmail.Users.Settings.Delegates.Delete+        , Network.Google.Resource.Gmail.Users.Settings.Delegates.Get+        , Network.Google.Resource.Gmail.Users.Settings.Delegates.List         , Network.Google.Resource.Gmail.Users.Settings.Filters.Create         , Network.Google.Resource.Gmail.Users.Settings.Filters.Delete         , Network.Google.Resource.Gmail.Users.Settings.Filters.Get@@ -78,6 +82,11 @@         , Network.Google.Resource.Gmail.Users.Settings.SendAs.Get         , Network.Google.Resource.Gmail.Users.Settings.SendAs.List         , Network.Google.Resource.Gmail.Users.Settings.SendAs.Patch+        , Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Delete+        , Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Get+        , Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.Insert+        , Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.List+        , Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.SetDefault         , Network.Google.Resource.Gmail.Users.Settings.SendAs.Update         , Network.Google.Resource.Gmail.Users.Settings.SendAs.Verify         , Network.Google.Resource.Gmail.Users.Settings.UpdateAutoForwarding@@ -98,5 +107,5 @@         , Network.Google.Gmail.Types.Sum      build-depends:-          gogol-core == 0.3.0.*+          gogol-core == 0.4.0.*         , base       >= 4.7 && < 5