amazonka-sns 1.5.0 → 1.6.0
raw patch · 41 files changed
+272/−265 lines, 41 filesdep ~amazonka-coredep ~amazonka-testPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka-core, amazonka-test
API changes (from Hackage documentation)
Files
- README.md +1/−1
- amazonka-sns.cabal +5/−5
- gen/Network/AWS/SNS.hs +1/−1
- gen/Network/AWS/SNS/AddPermission.hs +10/−10
- gen/Network/AWS/SNS/CheckIfPhoneNumberIsOptedOut.hs +7/−5
- gen/Network/AWS/SNS/ConfirmSubscription.hs +11/−11
- gen/Network/AWS/SNS/CreatePlatformApplication.hs +10/−10
- gen/Network/AWS/SNS/CreatePlatformEndpoint.hs +13/−13
- gen/Network/AWS/SNS/CreateTopic.hs +5/−5
- gen/Network/AWS/SNS/DeleteEndpoint.hs +2/−2
- gen/Network/AWS/SNS/DeletePlatformApplication.hs +3/−3
- gen/Network/AWS/SNS/DeleteTopic.hs +2/−2
- gen/Network/AWS/SNS/GetEndpointAttributes.hs +5/−5
- gen/Network/AWS/SNS/GetPlatformApplicationAttributes.hs +6/−6
- gen/Network/AWS/SNS/GetSMSAttributes.hs +5/−5
- gen/Network/AWS/SNS/GetSubscriptionAttributes.hs +5/−5
- gen/Network/AWS/SNS/GetTopicAttributes.hs +5/−5
- gen/Network/AWS/SNS/ListEndpointsByPlatformApplication.hs +13/−13
- gen/Network/AWS/SNS/ListPhoneNumbersOptedOut.hs +9/−9
- gen/Network/AWS/SNS/ListPlatformApplications.hs +9/−9
- gen/Network/AWS/SNS/ListSubscriptions.hs +9/−9
- gen/Network/AWS/SNS/ListSubscriptionsByTopic.hs +11/−11
- gen/Network/AWS/SNS/ListTopics.hs +9/−9
- gen/Network/AWS/SNS/OptInPhoneNumber.hs +3/−3
- gen/Network/AWS/SNS/Publish.hs +19/−19
- gen/Network/AWS/SNS/RemovePermission.hs +3/−3
- gen/Network/AWS/SNS/SetEndpointAttributes.hs +4/−4
- gen/Network/AWS/SNS/SetPlatformApplicationAttributes.hs +6/−6
- gen/Network/AWS/SNS/SetSMSAttributes.hs +3/−3
- gen/Network/AWS/SNS/SetSubscriptionAttributes.hs +8/−8
- gen/Network/AWS/SNS/SetTopicAttributes.hs +8/−8
- gen/Network/AWS/SNS/Subscribe.hs +11/−8
- gen/Network/AWS/SNS/Types.hs +18/−16
- gen/Network/AWS/SNS/Types/Product.hs +25/−25
- gen/Network/AWS/SNS/Types/Sum.hs +1/−1
- gen/Network/AWS/SNS/Unsubscribe.hs +2/−2
- gen/Network/AWS/SNS/Waiters.hs +1/−1
- test/Main.hs +1/−1
- test/Test/AWS/Gen/SNS.hs +1/−1
- test/Test/AWS/SNS.hs +1/−1
- test/Test/AWS/SNS/Internal.hs +1/−1
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.5.0`+`1.6.0` ## Description
amazonka-sns.cabal view
@@ -1,5 +1,5 @@ name: amazonka-sns-version: 1.5.0+version: 1.6.0 synopsis: Amazon Simple Notification Service SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright: Copyright (c) 2013-2017 Brendan Hay+copyright: Copyright (c) 2013-2018 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10@@ -83,7 +83,7 @@ , Network.AWS.SNS.Types.Sum build-depends:- amazonka-core == 1.5.0.*+ amazonka-core == 1.6.0.* , base >= 4.7 && < 5 test-suite amazonka-sns-test@@ -103,8 +103,8 @@ , Test.AWS.SNS.Internal build-depends:- amazonka-core == 1.5.0.*- , amazonka-test == 1.5.0.*+ amazonka-core == 1.6.0.*+ , amazonka-test == 1.6.0.* , amazonka-sns , base , bytestring
gen/Network/AWS/SNS.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Network.AWS.SNS--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
gen/Network/AWS/SNS/AddPermission.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.AddPermission--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -70,28 +70,28 @@ -> AddPermission addPermission pTopicARN_ pLabel_ = AddPermission'- { _apTopicARN = pTopicARN_- , _apLabel = pLabel_- , _apAWSAccountId = mempty- , _apActionName = mempty- }+ { _apTopicARN = pTopicARN_+ , _apLabel = pLabel_+ , _apAWSAccountId = mempty+ , _apActionName = mempty+ } -- | The ARN of the topic whose access control policy you wish to modify. apTopicARN :: Lens' AddPermission Text-apTopicARN = lens _apTopicARN (\ s a -> s{_apTopicARN = a});+apTopicARN = lens _apTopicARN (\ s a -> s{_apTopicARN = a}) -- | A unique identifier for the new policy statement. apLabel :: Lens' AddPermission Text-apLabel = lens _apLabel (\ s a -> s{_apLabel = a});+apLabel = lens _apLabel (\ s a -> s{_apLabel = a}) -- | The AWS account IDs of the users (principals) who will be given access to the specified actions. The users must have AWS accounts, but do not need to be signed up for this service. apAWSAccountId :: Lens' AddPermission [Text]-apAWSAccountId = lens _apAWSAccountId (\ s a -> s{_apAWSAccountId = a}) . _Coerce;+apAWSAccountId = lens _apAWSAccountId (\ s a -> s{_apAWSAccountId = a}) . _Coerce -- | The action you want to allow for the specified principal(s). Valid values: any Amazon SNS action name. apActionName :: Lens' AddPermission [Text]-apActionName = lens _apActionName (\ s a -> s{_apActionName = a}) . _Coerce;+apActionName = lens _apActionName (\ s a -> s{_apActionName = a}) . _Coerce instance AWSRequest AddPermission where type Rs AddPermission = AddPermissionResponse
gen/Network/AWS/SNS/CheckIfPhoneNumberIsOptedOut.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.CheckIfPhoneNumberIsOptedOut--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -70,7 +70,7 @@ -- | The phone number for which you want to check the opt out status. cipniooPhoneNumber :: Lens' CheckIfPhoneNumberIsOptedOut Text-cipniooPhoneNumber = lens _cipniooPhoneNumber (\ s a -> s{_cipniooPhoneNumber = a});+cipniooPhoneNumber = lens _cipniooPhoneNumber (\ s a -> s{_cipniooPhoneNumber = a}) instance AWSRequest CheckIfPhoneNumberIsOptedOut where@@ -125,16 +125,18 @@ -> CheckIfPhoneNumberIsOptedOutResponse checkIfPhoneNumberIsOptedOutResponse pResponseStatus_ = CheckIfPhoneNumberIsOptedOutResponse'- {_cipnioorsIsOptedOut = Nothing, _cipnioorsResponseStatus = pResponseStatus_}+ { _cipnioorsIsOptedOut = Nothing+ , _cipnioorsResponseStatus = pResponseStatus_+ } -- | Indicates whether the phone number is opted out: * @true@ – The phone number is opted out, meaning you cannot publish SMS messages to it. * @false@ – The phone number is opted in, meaning you can publish SMS messages to it. cipnioorsIsOptedOut :: Lens' CheckIfPhoneNumberIsOptedOutResponse (Maybe Bool)-cipnioorsIsOptedOut = lens _cipnioorsIsOptedOut (\ s a -> s{_cipnioorsIsOptedOut = a});+cipnioorsIsOptedOut = lens _cipnioorsIsOptedOut (\ s a -> s{_cipnioorsIsOptedOut = a}) -- | -- | The response status code. cipnioorsResponseStatus :: Lens' CheckIfPhoneNumberIsOptedOutResponse Int-cipnioorsResponseStatus = lens _cipnioorsResponseStatus (\ s a -> s{_cipnioorsResponseStatus = a});+cipnioorsResponseStatus = lens _cipnioorsResponseStatus (\ s a -> s{_cipnioorsResponseStatus = a}) instance NFData CheckIfPhoneNumberIsOptedOutResponse where
gen/Network/AWS/SNS/ConfirmSubscription.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.ConfirmSubscription--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -73,23 +73,23 @@ -> ConfirmSubscription confirmSubscription pTopicARN_ pToken_ = ConfirmSubscription'- { _csAuthenticateOnUnsubscribe = Nothing- , _csTopicARN = pTopicARN_- , _csToken = pToken_- }+ { _csAuthenticateOnUnsubscribe = Nothing+ , _csTopicARN = pTopicARN_+ , _csToken = pToken_+ } -- | Disallows unauthenticated unsubscribes of the subscription. If the value of this parameter is @true@ and the request has an AWS signature, then only the topic owner and the subscription owner can unsubscribe the endpoint. The unsubscribe action requires AWS authentication. csAuthenticateOnUnsubscribe :: Lens' ConfirmSubscription (Maybe Text)-csAuthenticateOnUnsubscribe = lens _csAuthenticateOnUnsubscribe (\ s a -> s{_csAuthenticateOnUnsubscribe = a});+csAuthenticateOnUnsubscribe = lens _csAuthenticateOnUnsubscribe (\ s a -> s{_csAuthenticateOnUnsubscribe = a}) -- | The ARN of the topic for which you wish to confirm a subscription. csTopicARN :: Lens' ConfirmSubscription Text-csTopicARN = lens _csTopicARN (\ s a -> s{_csTopicARN = a});+csTopicARN = lens _csTopicARN (\ s a -> s{_csTopicARN = a}) -- | Short-lived token sent to an endpoint during the @Subscribe@ action. csToken :: Lens' ConfirmSubscription Text-csToken = lens _csToken (\ s a -> s{_csToken = a});+csToken = lens _csToken (\ s a -> s{_csToken = a}) instance AWSRequest ConfirmSubscription where type Rs ConfirmSubscription =@@ -143,15 +143,15 @@ -> ConfirmSubscriptionResponse confirmSubscriptionResponse pResponseStatus_ = ConfirmSubscriptionResponse'- {_csrsSubscriptionARN = Nothing, _csrsResponseStatus = pResponseStatus_}+ {_csrsSubscriptionARN = Nothing, _csrsResponseStatus = pResponseStatus_} -- | The ARN of the created subscription. csrsSubscriptionARN :: Lens' ConfirmSubscriptionResponse (Maybe Text)-csrsSubscriptionARN = lens _csrsSubscriptionARN (\ s a -> s{_csrsSubscriptionARN = a});+csrsSubscriptionARN = lens _csrsSubscriptionARN (\ s a -> s{_csrsSubscriptionARN = a}) -- | -- | The response status code. csrsResponseStatus :: Lens' ConfirmSubscriptionResponse Int-csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});+csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a}) instance NFData ConfirmSubscriptionResponse where
gen/Network/AWS/SNS/CreatePlatformApplication.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.CreatePlatformApplication--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -75,20 +75,20 @@ -> CreatePlatformApplication createPlatformApplication pName_ pPlatform_ = CreatePlatformApplication'- {_cpaName = pName_, _cpaPlatform = pPlatform_, _cpaAttributes = mempty}+ {_cpaName = pName_, _cpaPlatform = pPlatform_, _cpaAttributes = mempty} -- | Application names must be made up of only uppercase and lowercase ASCII letters, numbers, underscores, hyphens, and periods, and must be between 1 and 256 characters long. cpaName :: Lens' CreatePlatformApplication Text-cpaName = lens _cpaName (\ s a -> s{_cpaName = a});+cpaName = lens _cpaName (\ s a -> s{_cpaName = a}) -- | The following platforms are supported: ADM (Amazon Device Messaging), APNS (Apple Push Notification Service), APNS_SANDBOX, and GCM (Google Cloud Messaging). cpaPlatform :: Lens' CreatePlatformApplication Text-cpaPlatform = lens _cpaPlatform (\ s a -> s{_cpaPlatform = a});+cpaPlatform = lens _cpaPlatform (\ s a -> s{_cpaPlatform = a}) -- | For a list of attributes, see <http://docs.aws.amazon.com/sns/latest/api/API_SetPlatformApplicationAttributes.html SetPlatformApplicationAttributes> cpaAttributes :: Lens' CreatePlatformApplication (HashMap Text Text)-cpaAttributes = lens _cpaAttributes (\ s a -> s{_cpaAttributes = a}) . _Map;+cpaAttributes = lens _cpaAttributes (\ s a -> s{_cpaAttributes = a}) . _Map instance AWSRequest CreatePlatformApplication where type Rs CreatePlatformApplication =@@ -144,18 +144,18 @@ -> CreatePlatformApplicationResponse createPlatformApplicationResponse pResponseStatus_ = CreatePlatformApplicationResponse'- { _cparsPlatformApplicationARN = Nothing- , _cparsResponseStatus = pResponseStatus_- }+ { _cparsPlatformApplicationARN = Nothing+ , _cparsResponseStatus = pResponseStatus_+ } -- | PlatformApplicationArn is returned. cparsPlatformApplicationARN :: Lens' CreatePlatformApplicationResponse (Maybe Text)-cparsPlatformApplicationARN = lens _cparsPlatformApplicationARN (\ s a -> s{_cparsPlatformApplicationARN = a});+cparsPlatformApplicationARN = lens _cparsPlatformApplicationARN (\ s a -> s{_cparsPlatformApplicationARN = a}) -- | -- | The response status code. cparsResponseStatus :: Lens' CreatePlatformApplicationResponse Int-cparsResponseStatus = lens _cparsResponseStatus (\ s a -> s{_cparsResponseStatus = a});+cparsResponseStatus = lens _cparsResponseStatus (\ s a -> s{_cparsResponseStatus = a}) instance NFData CreatePlatformApplicationResponse where
gen/Network/AWS/SNS/CreatePlatformEndpoint.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.CreatePlatformEndpoint--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -79,28 +79,28 @@ -> CreatePlatformEndpoint createPlatformEndpoint pPlatformApplicationARN_ pToken_ = CreatePlatformEndpoint'- { _cpeCustomUserData = Nothing- , _cpeAttributes = Nothing- , _cpePlatformApplicationARN = pPlatformApplicationARN_- , _cpeToken = pToken_- }+ { _cpeCustomUserData = Nothing+ , _cpeAttributes = Nothing+ , _cpePlatformApplicationARN = pPlatformApplicationARN_+ , _cpeToken = pToken_+ } -- | Arbitrary user data to associate with the endpoint. Amazon SNS does not use this data. The data must be in UTF-8 format and less than 2KB. cpeCustomUserData :: Lens' CreatePlatformEndpoint (Maybe Text)-cpeCustomUserData = lens _cpeCustomUserData (\ s a -> s{_cpeCustomUserData = a});+cpeCustomUserData = lens _cpeCustomUserData (\ s a -> s{_cpeCustomUserData = a}) -- | For a list of attributes, see <http://docs.aws.amazon.com/sns/latest/api/API_SetEndpointAttributes.html SetEndpointAttributes> . cpeAttributes :: Lens' CreatePlatformEndpoint (HashMap Text Text)-cpeAttributes = lens _cpeAttributes (\ s a -> s{_cpeAttributes = a}) . _Default . _Map;+cpeAttributes = lens _cpeAttributes (\ s a -> s{_cpeAttributes = a}) . _Default . _Map -- | PlatformApplicationArn returned from CreatePlatformApplication is used to create a an endpoint. cpePlatformApplicationARN :: Lens' CreatePlatformEndpoint Text-cpePlatformApplicationARN = lens _cpePlatformApplicationARN (\ s a -> s{_cpePlatformApplicationARN = a});+cpePlatformApplicationARN = lens _cpePlatformApplicationARN (\ s a -> s{_cpePlatformApplicationARN = a}) -- | Unique identifier created by the notification service for an app on a device. The specific name for Token will vary, depending on which notification service is being used. For example, when using APNS as the notification service, you need the device token. Alternatively, when using GCM or ADM, the device token equivalent is called the registration ID. cpeToken :: Lens' CreatePlatformEndpoint Text-cpeToken = lens _cpeToken (\ s a -> s{_cpeToken = a});+cpeToken = lens _cpeToken (\ s a -> s{_cpeToken = a}) instance AWSRequest CreatePlatformEndpoint where type Rs CreatePlatformEndpoint =@@ -160,15 +160,15 @@ -> CreatePlatformEndpointResponse createPlatformEndpointResponse pResponseStatus_ = CreatePlatformEndpointResponse'- {_cpersEndpointARN = Nothing, _cpersResponseStatus = pResponseStatus_}+ {_cpersEndpointARN = Nothing, _cpersResponseStatus = pResponseStatus_} -- | EndpointArn returned from CreateEndpoint action. cpersEndpointARN :: Lens' CreatePlatformEndpointResponse (Maybe Text)-cpersEndpointARN = lens _cpersEndpointARN (\ s a -> s{_cpersEndpointARN = a});+cpersEndpointARN = lens _cpersEndpointARN (\ s a -> s{_cpersEndpointARN = a}) -- | -- | The response status code. cpersResponseStatus :: Lens' CreatePlatformEndpointResponse Int-cpersResponseStatus = lens _cpersResponseStatus (\ s a -> s{_cpersResponseStatus = a});+cpersResponseStatus = lens _cpersResponseStatus (\ s a -> s{_cpersResponseStatus = a}) instance NFData CreatePlatformEndpointResponse where
gen/Network/AWS/SNS/CreateTopic.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.CreateTopic--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -67,7 +67,7 @@ -- | The name of the topic you want to create. Constraints: Topic names must be made up of only uppercase and lowercase ASCII letters, numbers, underscores, and hyphens, and must be between 1 and 256 characters long. ctName :: Lens' CreateTopic Text-ctName = lens _ctName (\ s a -> s{_ctName = a});+ctName = lens _ctName (\ s a -> s{_ctName = a}) instance AWSRequest CreateTopic where type Rs CreateTopic = CreateTopicResponse@@ -118,15 +118,15 @@ -> CreateTopicResponse createTopicResponse pResponseStatus_ = CreateTopicResponse'- {_ctrsTopicARN = Nothing, _ctrsResponseStatus = pResponseStatus_}+ {_ctrsTopicARN = Nothing, _ctrsResponseStatus = pResponseStatus_} -- | The Amazon Resource Name (ARN) assigned to the created topic. ctrsTopicARN :: Lens' CreateTopicResponse (Maybe Text)-ctrsTopicARN = lens _ctrsTopicARN (\ s a -> s{_ctrsTopicARN = a});+ctrsTopicARN = lens _ctrsTopicARN (\ s a -> s{_ctrsTopicARN = a}) -- | -- | The response status code. ctrsResponseStatus :: Lens' CreateTopicResponse Int-ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a});+ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a}) instance NFData CreateTopicResponse where
gen/Network/AWS/SNS/DeleteEndpoint.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.DeleteEndpoint--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -66,7 +66,7 @@ -- | EndpointArn of endpoint to delete. deEndpointARN :: Lens' DeleteEndpoint Text-deEndpointARN = lens _deEndpointARN (\ s a -> s{_deEndpointARN = a});+deEndpointARN = lens _deEndpointARN (\ s a -> s{_deEndpointARN = a}) instance AWSRequest DeleteEndpoint where type Rs DeleteEndpoint = DeleteEndpointResponse
gen/Network/AWS/SNS/DeletePlatformApplication.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.DeletePlatformApplication--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -61,12 +61,12 @@ -> DeletePlatformApplication deletePlatformApplication pPlatformApplicationARN_ = DeletePlatformApplication'- {_dpaPlatformApplicationARN = pPlatformApplicationARN_}+ {_dpaPlatformApplicationARN = pPlatformApplicationARN_} -- | PlatformApplicationArn of platform application object to delete. dpaPlatformApplicationARN :: Lens' DeletePlatformApplication Text-dpaPlatformApplicationARN = lens _dpaPlatformApplicationARN (\ s a -> s{_dpaPlatformApplicationARN = a});+dpaPlatformApplicationARN = lens _dpaPlatformApplicationARN (\ s a -> s{_dpaPlatformApplicationARN = a}) instance AWSRequest DeletePlatformApplication where type Rs DeletePlatformApplication =
gen/Network/AWS/SNS/DeleteTopic.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.DeleteTopic--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -60,7 +60,7 @@ -- | The ARN of the topic you want to delete. dtTopicARN :: Lens' DeleteTopic Text-dtTopicARN = lens _dtTopicARN (\ s a -> s{_dtTopicARN = a});+dtTopicARN = lens _dtTopicARN (\ s a -> s{_dtTopicARN = a}) instance AWSRequest DeleteTopic where type Rs DeleteTopic = DeleteTopicResponse
gen/Network/AWS/SNS/GetEndpointAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.GetEndpointAttributes--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,7 +68,7 @@ -- | EndpointArn for GetEndpointAttributes input. geaEndpointARN :: Lens' GetEndpointAttributes Text-geaEndpointARN = lens _geaEndpointARN (\ s a -> s{_geaEndpointARN = a});+geaEndpointARN = lens _geaEndpointARN (\ s a -> s{_geaEndpointARN = a}) instance AWSRequest GetEndpointAttributes where type Rs GetEndpointAttributes =@@ -122,15 +122,15 @@ -> GetEndpointAttributesResponse getEndpointAttributesResponse pResponseStatus_ = GetEndpointAttributesResponse'- {_gearsAttributes = Nothing, _gearsResponseStatus = pResponseStatus_}+ {_gearsAttributes = Nothing, _gearsResponseStatus = pResponseStatus_} -- | Attributes include the following: * @CustomUserData@ -- arbitrary user data to associate with the endpoint. Amazon SNS does not use this data. The data must be in UTF-8 format and less than 2KB. * @Enabled@ -- flag that enables/disables delivery to the endpoint. Amazon SNS will set this to false when a notification service indicates to Amazon SNS that the endpoint is invalid. Users can set it back to true, typically after updating Token. * @Token@ -- device token, also referred to as a registration id, for an app and mobile device. This is returned from the notification service when an app and mobile device are registered with the notification service. gearsAttributes :: Lens' GetEndpointAttributesResponse (HashMap Text Text)-gearsAttributes = lens _gearsAttributes (\ s a -> s{_gearsAttributes = a}) . _Default . _Map;+gearsAttributes = lens _gearsAttributes (\ s a -> s{_gearsAttributes = a}) . _Default . _Map -- | -- | The response status code. gearsResponseStatus :: Lens' GetEndpointAttributesResponse Int-gearsResponseStatus = lens _gearsResponseStatus (\ s a -> s{_gearsResponseStatus = a});+gearsResponseStatus = lens _gearsResponseStatus (\ s a -> s{_gearsResponseStatus = a}) instance NFData GetEndpointAttributesResponse where
gen/Network/AWS/SNS/GetPlatformApplicationAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.GetPlatformApplicationAttributes--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -64,12 +64,12 @@ -> GetPlatformApplicationAttributes getPlatformApplicationAttributes pPlatformApplicationARN_ = GetPlatformApplicationAttributes'- {_gpaaPlatformApplicationARN = pPlatformApplicationARN_}+ {_gpaaPlatformApplicationARN = pPlatformApplicationARN_} -- | PlatformApplicationArn for GetPlatformApplicationAttributesInput. gpaaPlatformApplicationARN :: Lens' GetPlatformApplicationAttributes Text-gpaaPlatformApplicationARN = lens _gpaaPlatformApplicationARN (\ s a -> s{_gpaaPlatformApplicationARN = a});+gpaaPlatformApplicationARN = lens _gpaaPlatformApplicationARN (\ s a -> s{_gpaaPlatformApplicationARN = a}) instance AWSRequest GetPlatformApplicationAttributes where@@ -132,16 +132,16 @@ -> GetPlatformApplicationAttributesResponse getPlatformApplicationAttributesResponse pResponseStatus_ = GetPlatformApplicationAttributesResponse'- {_gpaarsAttributes = Nothing, _gpaarsResponseStatus = pResponseStatus_}+ {_gpaarsAttributes = Nothing, _gpaarsResponseStatus = pResponseStatus_} -- | Attributes include the following: * @EventEndpointCreated@ -- Topic ARN to which EndpointCreated event notifications should be sent. * @EventEndpointDeleted@ -- Topic ARN to which EndpointDeleted event notifications should be sent. * @EventEndpointUpdated@ -- Topic ARN to which EndpointUpdate event notifications should be sent. * @EventDeliveryFailure@ -- Topic ARN to which DeliveryFailure event notifications should be sent upon Direct Publish delivery failure (permanent) to one of the application's endpoints. gpaarsAttributes :: Lens' GetPlatformApplicationAttributesResponse (HashMap Text Text)-gpaarsAttributes = lens _gpaarsAttributes (\ s a -> s{_gpaarsAttributes = a}) . _Default . _Map;+gpaarsAttributes = lens _gpaarsAttributes (\ s a -> s{_gpaarsAttributes = a}) . _Default . _Map -- | -- | The response status code. gpaarsResponseStatus :: Lens' GetPlatformApplicationAttributesResponse Int-gpaarsResponseStatus = lens _gpaarsResponseStatus (\ s a -> s{_gpaarsResponseStatus = a});+gpaarsResponseStatus = lens _gpaarsResponseStatus (\ s a -> s{_gpaarsResponseStatus = a}) instance NFData GetPlatformApplicationAttributesResponse
gen/Network/AWS/SNS/GetSMSAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.GetSMSAttributes--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,7 +68,7 @@ -- | A list of the individual attribute names, such as @MonthlySpendLimit@ , for which you want values. For all attribute names, see <http://docs.aws.amazon.com/sns/latest/api/API_SetSMSAttributes.html SetSMSAttributes> . If you don't use this parameter, Amazon SNS returns all SMS attributes. gsmsaAttributes :: Lens' GetSMSAttributes [Text]-gsmsaAttributes = lens _gsmsaAttributes (\ s a -> s{_gsmsaAttributes = a}) . _Default . _Coerce;+gsmsaAttributes = lens _gsmsaAttributes (\ s a -> s{_gsmsaAttributes = a}) . _Default . _Coerce instance AWSRequest GetSMSAttributes where type Rs GetSMSAttributes = GetSMSAttributesResponse@@ -122,15 +122,15 @@ -> GetSMSAttributesResponse getSMSAttributesResponse pResponseStatus_ = GetSMSAttributesResponse'- {_gsmsarsAttributes = Nothing, _gsmsarsResponseStatus = pResponseStatus_}+ {_gsmsarsAttributes = Nothing, _gsmsarsResponseStatus = pResponseStatus_} -- | The SMS attribute names and their values. gsmsarsAttributes :: Lens' GetSMSAttributesResponse (HashMap Text Text)-gsmsarsAttributes = lens _gsmsarsAttributes (\ s a -> s{_gsmsarsAttributes = a}) . _Default . _Map;+gsmsarsAttributes = lens _gsmsarsAttributes (\ s a -> s{_gsmsarsAttributes = a}) . _Default . _Map -- | -- | The response status code. gsmsarsResponseStatus :: Lens' GetSMSAttributesResponse Int-gsmsarsResponseStatus = lens _gsmsarsResponseStatus (\ s a -> s{_gsmsarsResponseStatus = a});+gsmsarsResponseStatus = lens _gsmsarsResponseStatus (\ s a -> s{_gsmsarsResponseStatus = a}) instance NFData GetSMSAttributesResponse where
gen/Network/AWS/SNS/GetSubscriptionAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.GetSubscriptionAttributes--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,7 +68,7 @@ -- | The ARN of the subscription whose properties you want to get. gsaSubscriptionARN :: Lens' GetSubscriptionAttributes Text-gsaSubscriptionARN = lens _gsaSubscriptionARN (\ s a -> s{_gsaSubscriptionARN = a});+gsaSubscriptionARN = lens _gsaSubscriptionARN (\ s a -> s{_gsaSubscriptionARN = a}) instance AWSRequest GetSubscriptionAttributes where type Rs GetSubscriptionAttributes =@@ -123,16 +123,16 @@ -> GetSubscriptionAttributesResponse getSubscriptionAttributesResponse pResponseStatus_ = GetSubscriptionAttributesResponse'- {_gsarsAttributes = Nothing, _gsarsResponseStatus = pResponseStatus_}+ {_gsarsAttributes = Nothing, _gsarsResponseStatus = pResponseStatus_} -- | A map of the subscription's attributes. Attributes in this map include the following: * @SubscriptionArn@ -- the subscription's ARN * @TopicArn@ -- the topic ARN that the subscription is associated with * @Owner@ -- the AWS account ID of the subscription's owner * @ConfirmationWasAuthenticated@ -- true if the subscription confirmation request was authenticated * @DeliveryPolicy@ -- the JSON serialization of the subscription's delivery policy * @EffectiveDeliveryPolicy@ -- the JSON serialization of the effective delivery policy that takes into account the topic delivery policy and account system defaults gsarsAttributes :: Lens' GetSubscriptionAttributesResponse (HashMap Text Text)-gsarsAttributes = lens _gsarsAttributes (\ s a -> s{_gsarsAttributes = a}) . _Default . _Map;+gsarsAttributes = lens _gsarsAttributes (\ s a -> s{_gsarsAttributes = a}) . _Default . _Map -- | -- | The response status code. gsarsResponseStatus :: Lens' GetSubscriptionAttributesResponse Int-gsarsResponseStatus = lens _gsarsResponseStatus (\ s a -> s{_gsarsResponseStatus = a});+gsarsResponseStatus = lens _gsarsResponseStatus (\ s a -> s{_gsarsResponseStatus = a}) instance NFData GetSubscriptionAttributesResponse where
gen/Network/AWS/SNS/GetTopicAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.GetTopicAttributes--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -67,7 +67,7 @@ -- | The ARN of the topic whose properties you want to get. gtaTopicARN :: Lens' GetTopicAttributes Text-gtaTopicARN = lens _gtaTopicARN (\ s a -> s{_gtaTopicARN = a});+gtaTopicARN = lens _gtaTopicARN (\ s a -> s{_gtaTopicARN = a}) instance AWSRequest GetTopicAttributes where type Rs GetTopicAttributes =@@ -121,15 +121,15 @@ -> GetTopicAttributesResponse getTopicAttributesResponse pResponseStatus_ = GetTopicAttributesResponse'- {_gtarsAttributes = Nothing, _gtarsResponseStatus = pResponseStatus_}+ {_gtarsAttributes = Nothing, _gtarsResponseStatus = pResponseStatus_} -- | A map of the topic's attributes. Attributes in this map include the following: * @TopicArn@ -- the topic's ARN * @Owner@ -- the AWS account ID of the topic's owner * @Policy@ -- the JSON serialization of the topic's access control policy * @DisplayName@ -- the human-readable name used in the "From" field for notifications to email and email-json endpoints * @SubscriptionsPending@ -- the number of subscriptions pending confirmation on this topic * @SubscriptionsConfirmed@ -- the number of confirmed subscriptions on this topic * @SubscriptionsDeleted@ -- the number of deleted subscriptions on this topic * @DeliveryPolicy@ -- the JSON serialization of the topic's delivery policy * @EffectiveDeliveryPolicy@ -- the JSON serialization of the effective delivery policy that takes into account system defaults gtarsAttributes :: Lens' GetTopicAttributesResponse (HashMap Text Text)-gtarsAttributes = lens _gtarsAttributes (\ s a -> s{_gtarsAttributes = a}) . _Default . _Map;+gtarsAttributes = lens _gtarsAttributes (\ s a -> s{_gtarsAttributes = a}) . _Default . _Map -- | -- | The response status code. gtarsResponseStatus :: Lens' GetTopicAttributesResponse Int-gtarsResponseStatus = lens _gtarsResponseStatus (\ s a -> s{_gtarsResponseStatus = a});+gtarsResponseStatus = lens _gtarsResponseStatus (\ s a -> s{_gtarsResponseStatus = a}) instance NFData GetTopicAttributesResponse where
gen/Network/AWS/SNS/ListEndpointsByPlatformApplication.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.ListEndpointsByPlatformApplication--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -72,18 +72,18 @@ -> ListEndpointsByPlatformApplication listEndpointsByPlatformApplication pPlatformApplicationARN_ = ListEndpointsByPlatformApplication'- { _lebpaNextToken = Nothing- , _lebpaPlatformApplicationARN = pPlatformApplicationARN_- }+ { _lebpaNextToken = Nothing+ , _lebpaPlatformApplicationARN = pPlatformApplicationARN_+ } -- | NextToken string is used when calling ListEndpointsByPlatformApplication action to retrieve additional records that are available after the first page results. lebpaNextToken :: Lens' ListEndpointsByPlatformApplication (Maybe Text)-lebpaNextToken = lens _lebpaNextToken (\ s a -> s{_lebpaNextToken = a});+lebpaNextToken = lens _lebpaNextToken (\ s a -> s{_lebpaNextToken = a}) -- | PlatformApplicationArn for ListEndpointsByPlatformApplicationInput action. lebpaPlatformApplicationARN :: Lens' ListEndpointsByPlatformApplication Text-lebpaPlatformApplicationARN = lens _lebpaPlatformApplicationARN (\ s a -> s{_lebpaPlatformApplicationARN = a});+lebpaPlatformApplicationARN = lens _lebpaPlatformApplicationARN (\ s a -> s{_lebpaPlatformApplicationARN = a}) instance AWSPager ListEndpointsByPlatformApplication where@@ -160,23 +160,23 @@ -> ListEndpointsByPlatformApplicationResponse listEndpointsByPlatformApplicationResponse pResponseStatus_ = ListEndpointsByPlatformApplicationResponse'- { _lebparsNextToken = Nothing- , _lebparsEndpoints = Nothing- , _lebparsResponseStatus = pResponseStatus_- }+ { _lebparsNextToken = Nothing+ , _lebparsEndpoints = Nothing+ , _lebparsResponseStatus = pResponseStatus_+ } -- | NextToken string is returned when calling ListEndpointsByPlatformApplication action if additional records are available after the first page results. lebparsNextToken :: Lens' ListEndpointsByPlatformApplicationResponse (Maybe Text)-lebparsNextToken = lens _lebparsNextToken (\ s a -> s{_lebparsNextToken = a});+lebparsNextToken = lens _lebparsNextToken (\ s a -> s{_lebparsNextToken = a}) -- | Endpoints returned for ListEndpointsByPlatformApplication action. lebparsEndpoints :: Lens' ListEndpointsByPlatformApplicationResponse [Endpoint]-lebparsEndpoints = lens _lebparsEndpoints (\ s a -> s{_lebparsEndpoints = a}) . _Default . _Coerce;+lebparsEndpoints = lens _lebparsEndpoints (\ s a -> s{_lebparsEndpoints = a}) . _Default . _Coerce -- | -- | The response status code. lebparsResponseStatus :: Lens' ListEndpointsByPlatformApplicationResponse Int-lebparsResponseStatus = lens _lebparsResponseStatus (\ s a -> s{_lebparsResponseStatus = a});+lebparsResponseStatus = lens _lebparsResponseStatus (\ s a -> s{_lebparsResponseStatus = a}) instance NFData ListEndpointsByPlatformApplicationResponse
gen/Network/AWS/SNS/ListPhoneNumbersOptedOut.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.ListPhoneNumbersOptedOut--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -69,7 +69,7 @@ -- | A @NextToken@ string is used when you call the @ListPhoneNumbersOptedOut@ action to retrieve additional records that are available after the first page of results. lpnooNextToken :: Lens' ListPhoneNumbersOptedOut (Maybe Text)-lpnooNextToken = lens _lpnooNextToken (\ s a -> s{_lpnooNextToken = a});+lpnooNextToken = lens _lpnooNextToken (\ s a -> s{_lpnooNextToken = a}) instance AWSRequest ListPhoneNumbersOptedOut where type Rs ListPhoneNumbersOptedOut =@@ -128,23 +128,23 @@ -> ListPhoneNumbersOptedOutResponse listPhoneNumbersOptedOutResponse pResponseStatus_ = ListPhoneNumbersOptedOutResponse'- { _lpnoorsPhoneNumbers = Nothing- , _lpnoorsNextToken = Nothing- , _lpnoorsResponseStatus = pResponseStatus_- }+ { _lpnoorsPhoneNumbers = Nothing+ , _lpnoorsNextToken = Nothing+ , _lpnoorsResponseStatus = pResponseStatus_+ } -- | A list of phone numbers that are opted out of receiving SMS messages. The list is paginated, and each page can contain up to 100 phone numbers. lpnoorsPhoneNumbers :: Lens' ListPhoneNumbersOptedOutResponse [Text]-lpnoorsPhoneNumbers = lens _lpnoorsPhoneNumbers (\ s a -> s{_lpnoorsPhoneNumbers = a}) . _Default . _Coerce;+lpnoorsPhoneNumbers = lens _lpnoorsPhoneNumbers (\ s a -> s{_lpnoorsPhoneNumbers = a}) . _Default . _Coerce -- | A @NextToken@ string is returned when you call the @ListPhoneNumbersOptedOut@ action if additional records are available after the first page of results. lpnoorsNextToken :: Lens' ListPhoneNumbersOptedOutResponse (Maybe Text)-lpnoorsNextToken = lens _lpnoorsNextToken (\ s a -> s{_lpnoorsNextToken = a});+lpnoorsNextToken = lens _lpnoorsNextToken (\ s a -> s{_lpnoorsNextToken = a}) -- | -- | The response status code. lpnoorsResponseStatus :: Lens' ListPhoneNumbersOptedOutResponse Int-lpnoorsResponseStatus = lens _lpnoorsResponseStatus (\ s a -> s{_lpnoorsResponseStatus = a});+lpnoorsResponseStatus = lens _lpnoorsResponseStatus (\ s a -> s{_lpnoorsResponseStatus = a}) instance NFData ListPhoneNumbersOptedOutResponse where
gen/Network/AWS/SNS/ListPlatformApplications.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.ListPlatformApplications--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -70,7 +70,7 @@ -- | NextToken string is used when calling ListPlatformApplications action to retrieve additional records that are available after the first page results. lpaNextToken :: Lens' ListPlatformApplications (Maybe Text)-lpaNextToken = lens _lpaNextToken (\ s a -> s{_lpaNextToken = a});+lpaNextToken = lens _lpaNextToken (\ s a -> s{_lpaNextToken = a}) instance AWSPager ListPlatformApplications where page rq rs@@ -136,23 +136,23 @@ -> ListPlatformApplicationsResponse listPlatformApplicationsResponse pResponseStatus_ = ListPlatformApplicationsResponse'- { _lparsPlatformApplications = Nothing- , _lparsNextToken = Nothing- , _lparsResponseStatus = pResponseStatus_- }+ { _lparsPlatformApplications = Nothing+ , _lparsNextToken = Nothing+ , _lparsResponseStatus = pResponseStatus_+ } -- | Platform applications returned when calling ListPlatformApplications action. lparsPlatformApplications :: Lens' ListPlatformApplicationsResponse [PlatformApplication]-lparsPlatformApplications = lens _lparsPlatformApplications (\ s a -> s{_lparsPlatformApplications = a}) . _Default . _Coerce;+lparsPlatformApplications = lens _lparsPlatformApplications (\ s a -> s{_lparsPlatformApplications = a}) . _Default . _Coerce -- | NextToken string is returned when calling ListPlatformApplications action if additional records are available after the first page results. lparsNextToken :: Lens' ListPlatformApplicationsResponse (Maybe Text)-lparsNextToken = lens _lparsNextToken (\ s a -> s{_lparsNextToken = a});+lparsNextToken = lens _lparsNextToken (\ s a -> s{_lparsNextToken = a}) -- | -- | The response status code. lparsResponseStatus :: Lens' ListPlatformApplicationsResponse Int-lparsResponseStatus = lens _lparsResponseStatus (\ s a -> s{_lparsResponseStatus = a});+lparsResponseStatus = lens _lparsResponseStatus (\ s a -> s{_lparsResponseStatus = a}) instance NFData ListPlatformApplicationsResponse where
gen/Network/AWS/SNS/ListSubscriptions.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.ListSubscriptions--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -70,7 +70,7 @@ -- | Token returned by the previous @ListSubscriptions@ request. lsNextToken :: Lens' ListSubscriptions (Maybe Text)-lsNextToken = lens _lsNextToken (\ s a -> s{_lsNextToken = a});+lsNextToken = lens _lsNextToken (\ s a -> s{_lsNextToken = a}) instance AWSPager ListSubscriptions where page rq rs@@ -134,22 +134,22 @@ -> ListSubscriptionsResponse listSubscriptionsResponse pResponseStatus_ = ListSubscriptionsResponse'- { _lsrsNextToken = Nothing- , _lsrsSubscriptions = Nothing- , _lsrsResponseStatus = pResponseStatus_- }+ { _lsrsNextToken = Nothing+ , _lsrsSubscriptions = Nothing+ , _lsrsResponseStatus = pResponseStatus_+ } -- | Token to pass along to the next @ListSubscriptions@ request. This element is returned if there are more subscriptions to retrieve. lsrsNextToken :: Lens' ListSubscriptionsResponse (Maybe Text)-lsrsNextToken = lens _lsrsNextToken (\ s a -> s{_lsrsNextToken = a});+lsrsNextToken = lens _lsrsNextToken (\ s a -> s{_lsrsNextToken = a}) -- | A list of subscriptions. lsrsSubscriptions :: Lens' ListSubscriptionsResponse [Subscription]-lsrsSubscriptions = lens _lsrsSubscriptions (\ s a -> s{_lsrsSubscriptions = a}) . _Default . _Coerce;+lsrsSubscriptions = lens _lsrsSubscriptions (\ s a -> s{_lsrsSubscriptions = a}) . _Default . _Coerce -- | -- | The response status code. lsrsResponseStatus :: Lens' ListSubscriptionsResponse Int-lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a});+lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a}) instance NFData ListSubscriptionsResponse where
gen/Network/AWS/SNS/ListSubscriptionsByTopic.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.ListSubscriptionsByTopic--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -72,16 +72,16 @@ -> ListSubscriptionsByTopic listSubscriptionsByTopic pTopicARN_ = ListSubscriptionsByTopic'- {_lsbtNextToken = Nothing, _lsbtTopicARN = pTopicARN_}+ {_lsbtNextToken = Nothing, _lsbtTopicARN = pTopicARN_} -- | Token returned by the previous @ListSubscriptionsByTopic@ request. lsbtNextToken :: Lens' ListSubscriptionsByTopic (Maybe Text)-lsbtNextToken = lens _lsbtNextToken (\ s a -> s{_lsbtNextToken = a});+lsbtNextToken = lens _lsbtNextToken (\ s a -> s{_lsbtNextToken = a}) -- | The ARN of the topic for which you wish to find subscriptions. lsbtTopicARN :: Lens' ListSubscriptionsByTopic Text-lsbtTopicARN = lens _lsbtTopicARN (\ s a -> s{_lsbtTopicARN = a});+lsbtTopicARN = lens _lsbtTopicARN (\ s a -> s{_lsbtTopicARN = a}) instance AWSPager ListSubscriptionsByTopic where page rq rs@@ -148,23 +148,23 @@ -> ListSubscriptionsByTopicResponse listSubscriptionsByTopicResponse pResponseStatus_ = ListSubscriptionsByTopicResponse'- { _lsbtrsNextToken = Nothing- , _lsbtrsSubscriptions = Nothing- , _lsbtrsResponseStatus = pResponseStatus_- }+ { _lsbtrsNextToken = Nothing+ , _lsbtrsSubscriptions = Nothing+ , _lsbtrsResponseStatus = pResponseStatus_+ } -- | Token to pass along to the next @ListSubscriptionsByTopic@ request. This element is returned if there are more subscriptions to retrieve. lsbtrsNextToken :: Lens' ListSubscriptionsByTopicResponse (Maybe Text)-lsbtrsNextToken = lens _lsbtrsNextToken (\ s a -> s{_lsbtrsNextToken = a});+lsbtrsNextToken = lens _lsbtrsNextToken (\ s a -> s{_lsbtrsNextToken = a}) -- | A list of subscriptions. lsbtrsSubscriptions :: Lens' ListSubscriptionsByTopicResponse [Subscription]-lsbtrsSubscriptions = lens _lsbtrsSubscriptions (\ s a -> s{_lsbtrsSubscriptions = a}) . _Default . _Coerce;+lsbtrsSubscriptions = lens _lsbtrsSubscriptions (\ s a -> s{_lsbtrsSubscriptions = a}) . _Default . _Coerce -- | -- | The response status code. lsbtrsResponseStatus :: Lens' ListSubscriptionsByTopicResponse Int-lsbtrsResponseStatus = lens _lsbtrsResponseStatus (\ s a -> s{_lsbtrsResponseStatus = a});+lsbtrsResponseStatus = lens _lsbtrsResponseStatus (\ s a -> s{_lsbtrsResponseStatus = a}) instance NFData ListSubscriptionsByTopicResponse where
gen/Network/AWS/SNS/ListTopics.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.ListTopics--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -66,7 +66,7 @@ -- | Token returned by the previous @ListTopics@ request. ltNextToken :: Lens' ListTopics (Maybe Text)-ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a});+ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a}) instance AWSPager ListTopics where page rq rs@@ -130,22 +130,22 @@ -> ListTopicsResponse listTopicsResponse pResponseStatus_ = ListTopicsResponse'- { _ltrsTopics = Nothing- , _ltrsNextToken = Nothing- , _ltrsResponseStatus = pResponseStatus_- }+ { _ltrsTopics = Nothing+ , _ltrsNextToken = Nothing+ , _ltrsResponseStatus = pResponseStatus_+ } -- | A list of topic ARNs. ltrsTopics :: Lens' ListTopicsResponse [Topic]-ltrsTopics = lens _ltrsTopics (\ s a -> s{_ltrsTopics = a}) . _Default . _Coerce;+ltrsTopics = lens _ltrsTopics (\ s a -> s{_ltrsTopics = a}) . _Default . _Coerce -- | Token to pass along to the next @ListTopics@ request. This element is returned if there are additional topics to retrieve. ltrsNextToken :: Lens' ListTopicsResponse (Maybe Text)-ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a});+ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a}) -- | -- | The response status code. ltrsResponseStatus :: Lens' ListTopicsResponse Int-ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a});+ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a}) instance NFData ListTopicsResponse where
gen/Network/AWS/SNS/OptInPhoneNumber.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.OptInPhoneNumber--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -69,7 +69,7 @@ -- | The phone number to opt in. oipnPhoneNumber :: Lens' OptInPhoneNumber Text-oipnPhoneNumber = lens _oipnPhoneNumber (\ s a -> s{_oipnPhoneNumber = a});+oipnPhoneNumber = lens _oipnPhoneNumber (\ s a -> s{_oipnPhoneNumber = a}) instance AWSRequest OptInPhoneNumber where type Rs OptInPhoneNumber = OptInPhoneNumberResponse@@ -120,6 +120,6 @@ -- | -- | The response status code. oipnrsResponseStatus :: Lens' OptInPhoneNumberResponse Int-oipnrsResponseStatus = lens _oipnrsResponseStatus (\ s a -> s{_oipnrsResponseStatus = a});+oipnrsResponseStatus = lens _oipnrsResponseStatus (\ s a -> s{_oipnrsResponseStatus = a}) instance NFData OptInPhoneNumberResponse where
gen/Network/AWS/SNS/Publish.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.Publish--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -92,43 +92,43 @@ -> Publish publish pMessage_ = Publish'- { _pSubject = Nothing- , _pTargetARN = Nothing- , _pMessageAttributes = Nothing- , _pTopicARN = Nothing- , _pPhoneNumber = Nothing- , _pMessageStructure = Nothing- , _pMessage = pMessage_- }+ { _pSubject = Nothing+ , _pTargetARN = Nothing+ , _pMessageAttributes = Nothing+ , _pTopicARN = Nothing+ , _pPhoneNumber = Nothing+ , _pMessageStructure = Nothing+ , _pMessage = pMessage_+ } -- | Optional parameter to be used as the "Subject" line when the message is delivered to email endpoints. This field will also be included, if present, in the standard JSON messages delivered to other endpoints. Constraints: Subjects must be ASCII text that begins with a letter, number, or punctuation mark; must not include line breaks or control characters; and must be less than 100 characters long. pSubject :: Lens' Publish (Maybe Text)-pSubject = lens _pSubject (\ s a -> s{_pSubject = a});+pSubject = lens _pSubject (\ s a -> s{_pSubject = a}) -- | Either TopicArn or EndpointArn, but not both. If you don't specify a value for the @TargetArn@ parameter, you must specify a value for the @PhoneNumber@ or @TopicArn@ parameters. pTargetARN :: Lens' Publish (Maybe Text)-pTargetARN = lens _pTargetARN (\ s a -> s{_pTargetARN = a});+pTargetARN = lens _pTargetARN (\ s a -> s{_pTargetARN = a}) -- | Message attributes for Publish action. pMessageAttributes :: Lens' Publish (HashMap Text MessageAttributeValue)-pMessageAttributes = lens _pMessageAttributes (\ s a -> s{_pMessageAttributes = a}) . _Default . _Map;+pMessageAttributes = lens _pMessageAttributes (\ s a -> s{_pMessageAttributes = a}) . _Default . _Map -- | The topic you want to publish to. If you don't specify a value for the @TopicArn@ parameter, you must specify a value for the @PhoneNumber@ or @TargetArn@ parameters. pTopicARN :: Lens' Publish (Maybe Text)-pTopicARN = lens _pTopicARN (\ s a -> s{_pTopicARN = a});+pTopicARN = lens _pTopicARN (\ s a -> s{_pTopicARN = a}) -- | The phone number to which you want to deliver an SMS message. Use E.164 format. If you don't specify a value for the @PhoneNumber@ parameter, you must specify a value for the @TargetArn@ or @TopicArn@ parameters. pPhoneNumber :: Lens' Publish (Maybe Text)-pPhoneNumber = lens _pPhoneNumber (\ s a -> s{_pPhoneNumber = a});+pPhoneNumber = lens _pPhoneNumber (\ s a -> s{_pPhoneNumber = a}) -- | Set @MessageStructure@ to @json@ if you want to send a different message for each protocol. For example, using one publish action, you can send a short message to your SMS subscribers and a longer message to your email subscribers. If you set @MessageStructure@ to @json@ , the value of the @Message@ parameter must: * be a syntactically valid JSON object; and * contain at least a top-level JSON key of "default" with a value that is a string. You can define other top-level keys that define the message you want to send to a specific transport protocol (e.g., "http"). For information about sending different messages for each protocol using the AWS Management Console, go to <http://docs.aws.amazon.com/sns/latest/gsg/Publish.html#sns-message-formatting-by-protocol Create Different Messages for Each Protocol> in the /Amazon Simple Notification Service Getting Started Guide/ . Valid value: @json@ pMessageStructure :: Lens' Publish (Maybe Text)-pMessageStructure = lens _pMessageStructure (\ s a -> s{_pMessageStructure = a});+pMessageStructure = lens _pMessageStructure (\ s a -> s{_pMessageStructure = a}) -- | The message you want to send to the topic. If you want to send the same message to all transport protocols, include the text of the message as a String value. If you want to send different messages for each transport protocol, set the value of the @MessageStructure@ parameter to @json@ and use a JSON object for the @Message@ parameter. Constraints: Messages must be UTF-8 encoded strings at most 256 KB in size (262144 bytes, not 262144 characters). JSON-specific constraints: * Keys in the JSON object that correspond to supported transport protocols must have simple JSON string values. * The values will be parsed (unescaped) before they are used in outgoing messages. * Outbound notifications are JSON encoded (meaning that the characters will be reescaped for sending). * Values have a minimum length of 0 (the empty string, "", is allowed). * Values have a maximum length bounded by the overall message size (so, including multiple protocols may limit message sizes). * Non-string values will cause the key to be ignored. * Keys that do not correspond to supported transport protocols are ignored. * Duplicate keys are not allowed. * Failure to parse or validate any key or value in the message will cause the @Publish@ call to return an error (no partial delivery). pMessage :: Lens' Publish Text-pMessage = lens _pMessage (\ s a -> s{_pMessage = a});+pMessage = lens _pMessage (\ s a -> s{_pMessage = a}) instance AWSRequest Publish where type Rs Publish = PublishResponse@@ -187,15 +187,15 @@ -> PublishResponse publishResponse pResponseStatus_ = PublishResponse'- {_prsMessageId = Nothing, _prsResponseStatus = pResponseStatus_}+ {_prsMessageId = Nothing, _prsResponseStatus = pResponseStatus_} -- | Unique identifier assigned to the published message. Length Constraint: Maximum 100 characters prsMessageId :: Lens' PublishResponse (Maybe Text)-prsMessageId = lens _prsMessageId (\ s a -> s{_prsMessageId = a});+prsMessageId = lens _prsMessageId (\ s a -> s{_prsMessageId = a}) -- | -- | The response status code. prsResponseStatus :: Lens' PublishResponse Int-prsResponseStatus = lens _prsResponseStatus (\ s a -> s{_prsResponseStatus = a});+prsResponseStatus = lens _prsResponseStatus (\ s a -> s{_prsResponseStatus = a}) instance NFData PublishResponse where
gen/Network/AWS/SNS/RemovePermission.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.RemovePermission--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -70,11 +70,11 @@ -- | The ARN of the topic whose access control policy you wish to modify. rpTopicARN :: Lens' RemovePermission Text-rpTopicARN = lens _rpTopicARN (\ s a -> s{_rpTopicARN = a});+rpTopicARN = lens _rpTopicARN (\ s a -> s{_rpTopicARN = a}) -- | The unique label of the statement you want to remove. rpLabel :: Lens' RemovePermission Text-rpLabel = lens _rpLabel (\ s a -> s{_rpLabel = a});+rpLabel = lens _rpLabel (\ s a -> s{_rpLabel = a}) instance AWSRequest RemovePermission where type Rs RemovePermission = RemovePermissionResponse
gen/Network/AWS/SNS/SetEndpointAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.SetEndpointAttributes--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -65,16 +65,16 @@ -> SetEndpointAttributes setEndpointAttributes pEndpointARN_ = SetEndpointAttributes'- {_seaEndpointARN = pEndpointARN_, _seaAttributes = mempty}+ {_seaEndpointARN = pEndpointARN_, _seaAttributes = mempty} -- | EndpointArn used for SetEndpointAttributes action. seaEndpointARN :: Lens' SetEndpointAttributes Text-seaEndpointARN = lens _seaEndpointARN (\ s a -> s{_seaEndpointARN = a});+seaEndpointARN = lens _seaEndpointARN (\ s a -> s{_seaEndpointARN = a}) -- | A map of the endpoint attributes. Attributes in this map include the following: * @CustomUserData@ -- arbitrary user data to associate with the endpoint. Amazon SNS does not use this data. The data must be in UTF-8 format and less than 2KB. * @Enabled@ -- flag that enables/disables delivery to the endpoint. Amazon SNS will set this to false when a notification service indicates to Amazon SNS that the endpoint is invalid. Users can set it back to true, typically after updating Token. * @Token@ -- device token, also referred to as a registration id, for an app and mobile device. This is returned from the notification service when an app and mobile device are registered with the notification service. seaAttributes :: Lens' SetEndpointAttributes (HashMap Text Text)-seaAttributes = lens _seaAttributes (\ s a -> s{_seaAttributes = a}) . _Map;+seaAttributes = lens _seaAttributes (\ s a -> s{_seaAttributes = a}) . _Map instance AWSRequest SetEndpointAttributes where type Rs SetEndpointAttributes =
gen/Network/AWS/SNS/SetPlatformApplicationAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.SetPlatformApplicationAttributes--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -65,18 +65,18 @@ -> SetPlatformApplicationAttributes setPlatformApplicationAttributes pPlatformApplicationARN_ = SetPlatformApplicationAttributes'- { _spaaPlatformApplicationARN = pPlatformApplicationARN_- , _spaaAttributes = mempty- }+ { _spaaPlatformApplicationARN = pPlatformApplicationARN_+ , _spaaAttributes = mempty+ } -- | PlatformApplicationArn for SetPlatformApplicationAttributes action. spaaPlatformApplicationARN :: Lens' SetPlatformApplicationAttributes Text-spaaPlatformApplicationARN = lens _spaaPlatformApplicationARN (\ s a -> s{_spaaPlatformApplicationARN = a});+spaaPlatformApplicationARN = lens _spaaPlatformApplicationARN (\ s a -> s{_spaaPlatformApplicationARN = a}) -- | A map of the platform application attributes. Attributes in this map include the following: * @PlatformCredential@ -- The credential received from the notification service. For APNS/APNS_SANDBOX, PlatformCredential is private key. For GCM, PlatformCredential is "API key". For ADM, PlatformCredential is "client secret". * @PlatformPrincipal@ -- The principal received from the notification service. For APNS/APNS_SANDBOX, PlatformPrincipal is SSL certificate. For GCM, PlatformPrincipal is not applicable. For ADM, PlatformPrincipal is "client id". * @EventEndpointCreated@ -- Topic ARN to which EndpointCreated event notifications should be sent. * @EventEndpointDeleted@ -- Topic ARN to which EndpointDeleted event notifications should be sent. * @EventEndpointUpdated@ -- Topic ARN to which EndpointUpdate event notifications should be sent. * @EventDeliveryFailure@ -- Topic ARN to which DeliveryFailure event notifications should be sent upon Direct Publish delivery failure (permanent) to one of the application's endpoints. * @SuccessFeedbackRoleArn@ -- IAM role ARN used to give Amazon SNS write access to use CloudWatch Logs on your behalf. * @FailureFeedbackRoleArn@ -- IAM role ARN used to give Amazon SNS write access to use CloudWatch Logs on your behalf. * @SuccessFeedbackSampleRate@ -- Sample rate percentage (0-100) of successfully delivered messages. spaaAttributes :: Lens' SetPlatformApplicationAttributes (HashMap Text Text)-spaaAttributes = lens _spaaAttributes (\ s a -> s{_spaaAttributes = a}) . _Map;+spaaAttributes = lens _spaaAttributes (\ s a -> s{_spaaAttributes = a}) . _Map instance AWSRequest SetPlatformApplicationAttributes where
gen/Network/AWS/SNS/SetSMSAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.SetSMSAttributes--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -67,7 +67,7 @@ -- | The default settings for sending SMS messages from your account. You can set values for the following attribute names: @MonthlySpendLimit@ – The maximum amount in USD that you are willing to spend each month to send SMS messages. When Amazon SNS determines that sending an SMS message would incur a cost that exceeds this limit, it stops sending SMS messages within minutes. /Important:/ Amazon SNS stops sending SMS messages within minutes of the limit being crossed. During that interval, if you continue to send SMS messages, you will incur costs that exceed your limit. By default, the spend limit is set to the maximum allowed by Amazon SNS. If you want to exceed the maximum, contact <https://aws.amazon.com/premiumsupport/ AWS Support> or your AWS sales representative for a service limit increase. @DeliveryStatusIAMRole@ – The ARN of the IAM role that allows Amazon SNS to write logs about SMS deliveries in CloudWatch Logs. For each SMS message that you send, Amazon SNS writes a log that includes the message price, the success or failure status, the reason for failure (if the message failed), the message dwell time, and other information. @DeliveryStatusSuccessSamplingRate@ – The percentage of successful SMS deliveries for which Amazon SNS will write logs in CloudWatch Logs. The value can be an integer from 0 - 100. For example, to write logs only for failed deliveries, set this value to @0@ . To write logs for 10% of your successful deliveries, set it to @10@ . @DefaultSenderID@ – A string, such as your business brand, that is displayed as the sender on the receiving device. Support for sender IDs varies by country. The sender ID can be 1 - 11 alphanumeric characters, and it must contain at least one letter. @DefaultSMSType@ – The type of SMS message that you will send by default. You can assign the following values: * @Promotional@ – (Default) Noncritical messages, such as marketing messages. Amazon SNS optimizes the message delivery to incur the lowest cost. * @Transactional@ – Critical messages that support customer transactions, such as one-time passcodes for multi-factor authentication. Amazon SNS optimizes the message delivery to achieve the highest reliability. @UsageReportS3Bucket@ – The name of the Amazon S3 bucket to receive daily SMS usage reports from Amazon SNS. Each day, Amazon SNS will deliver a usage report as a CSV file to the bucket. The report includes the following information for each SMS message that was successfully delivered by your account: * Time that the message was published (in UTC) * Message ID * Destination phone number * Message type * Delivery status * Message price (in USD) * Part number (a message is split into multiple parts if it is too long for a single message) * Total number of parts To receive the report, the bucket must have a policy that allows the Amazon SNS service principle to perform the @s3:PutObject@ and @s3:GetBucketLocation@ actions. For an example bucket policy and usage report, see <http://docs.aws.amazon.com/sns/latest/dg/sms_stats.html Monitoring SMS Activity> in the /Amazon SNS Developer Guide/ . ssmsaAttributes :: Lens' SetSMSAttributes (HashMap Text Text)-ssmsaAttributes = lens _ssmsaAttributes (\ s a -> s{_ssmsaAttributes = a}) . _Map;+ssmsaAttributes = lens _ssmsaAttributes (\ s a -> s{_ssmsaAttributes = a}) . _Map instance AWSRequest SetSMSAttributes where type Rs SetSMSAttributes = SetSMSAttributesResponse@@ -119,6 +119,6 @@ -- | -- | The response status code. ssmsarsResponseStatus :: Lens' SetSMSAttributesResponse Int-ssmsarsResponseStatus = lens _ssmsarsResponseStatus (\ s a -> s{_ssmsarsResponseStatus = a});+ssmsarsResponseStatus = lens _ssmsarsResponseStatus (\ s a -> s{_ssmsarsResponseStatus = a}) instance NFData SetSMSAttributesResponse where
gen/Network/AWS/SNS/SetSubscriptionAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.SetSubscriptionAttributes--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -70,23 +70,23 @@ -> SetSubscriptionAttributes setSubscriptionAttributes pSubscriptionARN_ pAttributeName_ = SetSubscriptionAttributes'- { _ssaAttributeValue = Nothing- , _ssaSubscriptionARN = pSubscriptionARN_- , _ssaAttributeName = pAttributeName_- }+ { _ssaAttributeValue = Nothing+ , _ssaSubscriptionARN = pSubscriptionARN_+ , _ssaAttributeName = pAttributeName_+ } -- | The new value for the attribute in JSON format. ssaAttributeValue :: Lens' SetSubscriptionAttributes (Maybe Text)-ssaAttributeValue = lens _ssaAttributeValue (\ s a -> s{_ssaAttributeValue = a});+ssaAttributeValue = lens _ssaAttributeValue (\ s a -> s{_ssaAttributeValue = a}) -- | The ARN of the subscription to modify. ssaSubscriptionARN :: Lens' SetSubscriptionAttributes Text-ssaSubscriptionARN = lens _ssaSubscriptionARN (\ s a -> s{_ssaSubscriptionARN = a});+ssaSubscriptionARN = lens _ssaSubscriptionARN (\ s a -> s{_ssaSubscriptionARN = a}) -- | The name of the attribute you want to set. Only a subset of the subscriptions attributes are mutable. Valid values: @DeliveryPolicy@ | @RawMessageDelivery@ ssaAttributeName :: Lens' SetSubscriptionAttributes Text-ssaAttributeName = lens _ssaAttributeName (\ s a -> s{_ssaAttributeName = a});+ssaAttributeName = lens _ssaAttributeName (\ s a -> s{_ssaAttributeName = a}) instance AWSRequest SetSubscriptionAttributes where type Rs SetSubscriptionAttributes =
gen/Network/AWS/SNS/SetTopicAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.SetTopicAttributes--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -70,23 +70,23 @@ -> SetTopicAttributes setTopicAttributes pTopicARN_ pAttributeName_ = SetTopicAttributes'- { _staAttributeValue = Nothing- , _staTopicARN = pTopicARN_- , _staAttributeName = pAttributeName_- }+ { _staAttributeValue = Nothing+ , _staTopicARN = pTopicARN_+ , _staAttributeName = pAttributeName_+ } -- | The new value for the attribute. staAttributeValue :: Lens' SetTopicAttributes (Maybe Text)-staAttributeValue = lens _staAttributeValue (\ s a -> s{_staAttributeValue = a});+staAttributeValue = lens _staAttributeValue (\ s a -> s{_staAttributeValue = a}) -- | The ARN of the topic to modify. staTopicARN :: Lens' SetTopicAttributes Text-staTopicARN = lens _staTopicARN (\ s a -> s{_staTopicARN = a});+staTopicARN = lens _staTopicARN (\ s a -> s{_staTopicARN = a}) -- | The name of the attribute you want to set. Only a subset of the topic's attributes are mutable. Valid values: @Policy@ | @DisplayName@ | @DeliveryPolicy@ staAttributeName :: Lens' SetTopicAttributes Text-staAttributeName = lens _staAttributeName (\ s a -> s{_staAttributeName = a});+staAttributeName = lens _staAttributeName (\ s a -> s{_staAttributeName = a}) instance AWSRequest SetTopicAttributes where type Rs SetTopicAttributes =
gen/Network/AWS/SNS/Subscribe.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.Subscribe--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -73,20 +73,23 @@ -> Subscribe subscribe pTopicARN_ pProtocol_ = Subscribe'- {_subEndpoint = Nothing, _subTopicARN = pTopicARN_, _subProtocol = pProtocol_}+ { _subEndpoint = Nothing+ , _subTopicARN = pTopicARN_+ , _subProtocol = pProtocol_+ } -- | The endpoint that you want to receive notifications. Endpoints vary by protocol: * For the @http@ protocol, the endpoint is an URL beginning with "http://" * For the @https@ protocol, the endpoint is a URL beginning with "https://" * For the @email@ protocol, the endpoint is an email address * For the @email-json@ protocol, the endpoint is an email address * For the @sms@ protocol, the endpoint is a phone number of an SMS-enabled device * For the @sqs@ protocol, the endpoint is the ARN of an Amazon SQS queue * For the @application@ protocol, the endpoint is the EndpointArn of a mobile app and device. * For the @lambda@ protocol, the endpoint is the ARN of an AWS Lambda function. subEndpoint :: Lens' Subscribe (Maybe Text)-subEndpoint = lens _subEndpoint (\ s a -> s{_subEndpoint = a});+subEndpoint = lens _subEndpoint (\ s a -> s{_subEndpoint = a}) -- | The ARN of the topic you want to subscribe to. subTopicARN :: Lens' Subscribe Text-subTopicARN = lens _subTopicARN (\ s a -> s{_subTopicARN = a});+subTopicARN = lens _subTopicARN (\ s a -> s{_subTopicARN = a}) -- | The protocol you want to use. Supported protocols include: * @http@ -- delivery of JSON-encoded message via HTTP POST * @https@ -- delivery of JSON-encoded message via HTTPS POST * @email@ -- delivery of message via SMTP * @email-json@ -- delivery of JSON-encoded message via SMTP * @sms@ -- delivery of message via SMS * @sqs@ -- delivery of JSON-encoded message to an Amazon SQS queue * @application@ -- delivery of JSON-encoded message to an EndpointArn for a mobile app and device. * @lambda@ -- delivery of JSON-encoded message to an AWS Lambda function. subProtocol :: Lens' Subscribe Text-subProtocol = lens _subProtocol (\ s a -> s{_subProtocol = a});+subProtocol = lens _subProtocol (\ s a -> s{_subProtocol = a}) instance AWSRequest Subscribe where type Rs Subscribe = SubscribeResponse@@ -139,15 +142,15 @@ -> SubscribeResponse subscribeResponse pResponseStatus_ = SubscribeResponse'- {_srsSubscriptionARN = Nothing, _srsResponseStatus = pResponseStatus_}+ {_srsSubscriptionARN = Nothing, _srsResponseStatus = pResponseStatus_} -- | The ARN of the subscription, if the service was able to create a subscription immediately (without requiring endpoint owner confirmation). srsSubscriptionARN :: Lens' SubscribeResponse (Maybe Text)-srsSubscriptionARN = lens _srsSubscriptionARN (\ s a -> s{_srsSubscriptionARN = a});+srsSubscriptionARN = lens _srsSubscriptionARN (\ s a -> s{_srsSubscriptionARN = a}) -- | -- | The response status code. srsResponseStatus :: Lens' SubscribeResponse Int-srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}) instance NFData SubscribeResponse where
gen/Network/AWS/SNS/Types.hs view
@@ -4,7 +4,7 @@ -- | -- Module : Network.AWS.SNS.Types--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -71,24 +71,24 @@ sns :: Service sns = Service- { _svcAbbrev = "SNS"- , _svcSigner = v4- , _svcPrefix = "sns"- , _svcVersion = "2010-03-31"- , _svcEndpoint = defaultEndpoint sns- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseXMLError "SNS"- , _svcRetry = retry- }+ { _svcAbbrev = "SNS"+ , _svcSigner = v4+ , _svcPrefix = "sns"+ , _svcVersion = "2010-03-31"+ , _svcEndpoint = defaultEndpoint sns+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseXMLError "SNS"+ , _svcRetry = retry+ } where retry = Exponential- { _retryBase = 5.0e-2- , _retryGrowth = 2- , _retryAttempts = 5- , _retryCheck = check- }+ { _retryBase = 5.0e-2+ , _retryGrowth = 2+ , _retryAttempts = 5+ , _retryCheck = check+ } check e | has (hasCode "ThrottledException" . hasStatus 400) e = Just "throttled_exception"@@ -97,6 +97,8 @@ Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout"+ | has (hasCode "RequestThrottledException" . hasStatus 400) e =+ Just "request_throttled_exception" | has (hasStatus 502) e = Just "bad_gateway" | has (hasStatus 503) e = Just "service_unavailable" | has (hasStatus 500) e = Just "general_server_error"
gen/Network/AWS/SNS/Types/Product.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.SNS.Types.Product--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -46,11 +46,11 @@ -- | Attributes for endpoint. eAttributes :: Lens' Endpoint (HashMap Text Text)-eAttributes = lens _eAttributes (\ s a -> s{_eAttributes = a}) . _Default . _Map;+eAttributes = lens _eAttributes (\ s a -> s{_eAttributes = a}) . _Default . _Map -- | EndpointArn for mobile app and device. eEndpointARN :: Lens' Endpoint (Maybe Text)-eEndpointARN = lens _eEndpointARN (\ s a -> s{_eEndpointARN = a});+eEndpointARN = lens _eEndpointARN (\ s a -> s{_eEndpointARN = a}) instance FromXML Endpoint where parseXML x@@ -91,23 +91,23 @@ -> MessageAttributeValue messageAttributeValue pDataType_ = MessageAttributeValue'- { _mavBinaryValue = Nothing- , _mavStringValue = Nothing- , _mavDataType = pDataType_- }+ { _mavBinaryValue = Nothing+ , _mavStringValue = Nothing+ , _mavDataType = pDataType_+ } -- | Binary type attributes can store any binary data, for example, compressed data, encrypted data, or images.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. mavBinaryValue :: Lens' MessageAttributeValue (Maybe ByteString)-mavBinaryValue = lens _mavBinaryValue (\ s a -> s{_mavBinaryValue = a}) . mapping _Base64;+mavBinaryValue = lens _mavBinaryValue (\ s a -> s{_mavBinaryValue = a}) . mapping _Base64 -- | Strings are Unicode with UTF8 binary encoding. For a list of code values, see <http://en.wikipedia.org/wiki/ASCII#ASCII_printable_characters http://en.wikipedia.org/wiki/ASCII#ASCII_printable_characters> . mavStringValue :: Lens' MessageAttributeValue (Maybe Text)-mavStringValue = lens _mavStringValue (\ s a -> s{_mavStringValue = a});+mavStringValue = lens _mavStringValue (\ s a -> s{_mavStringValue = a}) -- | Amazon SNS supports the following logical data types: String, Number, and Binary. For more information, see <http://docs.aws.amazon.com/sns/latest/dg/SNSMessageAttributes.html#SNSMessageAttributes.DataTypes Message Attribute Data Types> . mavDataType :: Lens' MessageAttributeValue Text-mavDataType = lens _mavDataType (\ s a -> s{_mavDataType = a});+mavDataType = lens _mavDataType (\ s a -> s{_mavDataType = a}) instance Hashable MessageAttributeValue where @@ -142,16 +142,16 @@ :: PlatformApplication platformApplication = PlatformApplication'- {_paPlatformApplicationARN = Nothing, _paAttributes = Nothing}+ {_paPlatformApplicationARN = Nothing, _paAttributes = Nothing} -- | PlatformApplicationArn for platform application object. paPlatformApplicationARN :: Lens' PlatformApplication (Maybe Text)-paPlatformApplicationARN = lens _paPlatformApplicationARN (\ s a -> s{_paPlatformApplicationARN = a});+paPlatformApplicationARN = lens _paPlatformApplicationARN (\ s a -> s{_paPlatformApplicationARN = a}) -- | Attributes for platform application object. paAttributes :: Lens' PlatformApplication (HashMap Text Text)-paAttributes = lens _paAttributes (\ s a -> s{_paAttributes = a}) . _Default . _Map;+paAttributes = lens _paAttributes (\ s a -> s{_paAttributes = a}) . _Default . _Map instance FromXML PlatformApplication where parseXML x@@ -195,33 +195,33 @@ :: Subscription subscription = Subscription'- { _sProtocol = Nothing- , _sOwner = Nothing- , _sTopicARN = Nothing- , _sEndpoint = Nothing- , _sSubscriptionARN = Nothing- }+ { _sProtocol = Nothing+ , _sOwner = Nothing+ , _sTopicARN = Nothing+ , _sEndpoint = Nothing+ , _sSubscriptionARN = Nothing+ } -- | The subscription's protocol. sProtocol :: Lens' Subscription (Maybe Text)-sProtocol = lens _sProtocol (\ s a -> s{_sProtocol = a});+sProtocol = lens _sProtocol (\ s a -> s{_sProtocol = a}) -- | The subscription's owner. sOwner :: Lens' Subscription (Maybe Text)-sOwner = lens _sOwner (\ s a -> s{_sOwner = a});+sOwner = lens _sOwner (\ s a -> s{_sOwner = a}) -- | The ARN of the subscription's topic. sTopicARN :: Lens' Subscription (Maybe Text)-sTopicARN = lens _sTopicARN (\ s a -> s{_sTopicARN = a});+sTopicARN = lens _sTopicARN (\ s a -> s{_sTopicARN = a}) -- | The subscription's endpoint (format depends on the protocol). sEndpoint :: Lens' Subscription (Maybe Text)-sEndpoint = lens _sEndpoint (\ s a -> s{_sEndpoint = a});+sEndpoint = lens _sEndpoint (\ s a -> s{_sEndpoint = a}) -- | The subscription's ARN. sSubscriptionARN :: Lens' Subscription (Maybe Text)-sSubscriptionARN = lens _sSubscriptionARN (\ s a -> s{_sSubscriptionARN = a});+sSubscriptionARN = lens _sSubscriptionARN (\ s a -> s{_sSubscriptionARN = a}) instance FromXML Subscription where parseXML x@@ -257,7 +257,7 @@ -- | The topic's ARN. tTopicARN :: Lens' Topic (Maybe Text)-tTopicARN = lens _tTopicARN (\ s a -> s{_tTopicARN = a});+tTopicARN = lens _tTopicARN (\ s a -> s{_tTopicARN = a}) instance FromXML Topic where parseXML x = Topic' <$> (x .@? "TopicArn")
gen/Network/AWS/SNS/Types/Sum.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.SNS.Types.Sum--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
gen/Network/AWS/SNS/Unsubscribe.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SNS.Unsubscribe--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -65,7 +65,7 @@ -- | The ARN of the subscription to be deleted. uSubscriptionARN :: Lens' Unsubscribe Text-uSubscriptionARN = lens _uSubscriptionARN (\ s a -> s{_uSubscriptionARN = a});+uSubscriptionARN = lens _uSubscriptionARN (\ s a -> s{_uSubscriptionARN = a}) instance AWSRequest Unsubscribe where type Rs Unsubscribe = UnsubscribeResponse
gen/Network/AWS/SNS/Waiters.hs view
@@ -7,7 +7,7 @@ -- | -- Module : Network.AWS.SNS.Waiters--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Main.hs view
@@ -2,7 +2,7 @@ -- | -- Module : Main--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Test/AWS/Gen/SNS.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Test.AWS.Gen.SNS--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Test/AWS/SNS.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-} -- Module : Test.AWS.SNS--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/SNS/Internal.hs view
@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} -- Module : Test.AWS.SNS.Internal--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or