diff --git a/gen/Network/Google/Gmail.hs b/gen/Network/Google/Gmail.hs --- a/gen/Network/Google/Gmail.hs +++ b/gen/Network/Google/Gmail.hs @@ -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 diff --git a/gen/Network/Google/Gmail/Types.hs b/gen/Network/Google/Gmail/Types.hs --- a/gen/Network/Google/Gmail/Types.hs +++ b/gen/Network/Google/Gmail/Types.hs @@ -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; diff --git a/gen/Network/Google/Gmail/Types/Product.hs b/gen/Network/Google/Gmail/Types/Product.hs --- a/gen/Network/Google/Gmail/Types/Product.hs +++ b/gen/Network/Google/Gmail/Types/Product.hs @@ -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. diff --git a/gen/Network/Google/Gmail/Types/Sum.hs b/gen/Network/Google/Gmail/Types/Sum.hs --- a/gen/Network/Google/Gmail/Types/Sum.hs +++ b/gen/Network/Google/Gmail/Types/Sum.hs @@ -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. diff --git a/gen/Network/Google/Resource/Gmail/Users/History/List.hs b/gen/Network/Google/Resource/Gmail/Users/History/List.hs --- a/gen/Network/Google/Resource/Gmail/Users/History/List.hs +++ b/gen/Network/Google/Resource/Gmail/Users/History/List.hs @@ -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) diff --git a/gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs b/gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs --- a/gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs @@ -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}) diff --git a/gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs b/gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs --- a/gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs @@ -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}) diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Create.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Create.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Create.hs @@ -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 +-- 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:/ 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 diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Delete.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Delete.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Delete.hs @@ -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 +-- 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:/ 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 diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Get.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/Get.hs @@ -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 +-- 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:/ 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 diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/List.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/Delegates/List.hs @@ -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 +-- 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:/ 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 diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Create.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Create.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Create.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Create.hs @@ -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:/ 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' diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Delete.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Delete.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Delete.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/ForwardingAddresses/Delete.hs @@ -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:/ 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' diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Create.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Create.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Create.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Create.hs @@ -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:/ 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' diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Delete.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Delete.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Delete.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Delete.hs @@ -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:/ 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' diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Patch.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Patch.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Patch.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Patch.hs @@ -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:/ 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' diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Delete.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Delete.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Delete.hs @@ -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 +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes the specified S\/MIME config for the specified send-as alias. +-- +-- /See:/ 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 diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Get.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Get.hs @@ -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 +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets the specified S\/MIME config for the specified send-as alias. +-- +-- /See:/ 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 diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Insert.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Insert.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/Insert.hs @@ -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 +-- 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:/ 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 diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/List.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/List.hs @@ -0,0 +1,113 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.Gmail.Users.Settings.SendAs.SmimeInfo.List +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists S\/MIME configs for the specified send-as alias. +-- +-- /See:/ 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 diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/SetDefault.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/SetDefault.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/SmimeInfo/SetDefault.hs @@ -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 +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Sets the default S\/MIME config for the specified send-as alias. +-- +-- /See:/ 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 diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Update.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Update.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Update.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Update.hs @@ -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:/ 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' diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Verify.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Verify.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Verify.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/SendAs/Verify.hs @@ -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:/ 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' diff --git a/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateAutoForwarding.hs b/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateAutoForwarding.hs --- a/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateAutoForwarding.hs +++ b/gen/Network/Google/Resource/Gmail/Users/Settings/UpdateAutoForwarding.hs @@ -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:/ 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' diff --git a/gogol-gmail.cabal b/gogol-gmail.cabal --- a/gogol-gmail.cabal +++ b/gogol-gmail.cabal @@ -1,5 +1,5 @@ name: gogol-gmail -version: 0.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