amazonka-sns 1.4.3 → 1.4.4

raw patch · 32 files changed

+921/−18 lines, 32 filesdep ~amazonka-coredep ~amazonka-snsdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-sns, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-sns.cabal +11/−6
• fixture/CheckIfPhoneNumberIsOptedOut.yaml +0/−0
• fixture/CheckIfPhoneNumberIsOptedOutResponse.proto +0/−0
• fixture/GetSMSAttributes.yaml +0/−0
• fixture/GetSMSAttributesResponse.proto +0/−0
• fixture/ListPhoneNumbersOptedOut.yaml +0/−0
• fixture/ListPhoneNumbersOptedOutResponse.proto +0/−0
• fixture/OptInPhoneNumber.yaml +0/−0
• fixture/OptInPhoneNumberResponse.proto +0/−0
• fixture/SetSMSAttributes.yaml +0/−0
• fixture/SetSMSAttributesResponse.proto +0/−0
• gen/Network/AWS/SNS.hs +23/−0
• gen/Network/AWS/SNS/CheckIfPhoneNumberIsOptedOut.hs +138/−0
• gen/Network/AWS/SNS/CreatePlatformApplication.hs +3/−1
• gen/Network/AWS/SNS/CreateTopic.hs +1/−1
• gen/Network/AWS/SNS/DeleteEndpoint.hs +3/−1
• gen/Network/AWS/SNS/GetEndpointAttributes.hs +3/−0
• gen/Network/AWS/SNS/GetPlatformApplicationAttributes.hs +4/−0
• gen/Network/AWS/SNS/GetSMSAttributes.hs +135/−0
• gen/Network/AWS/SNS/GetSubscriptionAttributes.hs +6/−0
• gen/Network/AWS/SNS/GetTopicAttributes.hs +9/−0
• gen/Network/AWS/SNS/ListPhoneNumbersOptedOut.hs +142/−0
• gen/Network/AWS/SNS/OptInPhoneNumber.hs +119/−0
• gen/Network/AWS/SNS/Publish.hs +31/−3
• gen/Network/AWS/SNS/SetEndpointAttributes.hs +3/−0
• gen/Network/AWS/SNS/SetPlatformApplicationAttributes.hs +15/−3
• gen/Network/AWS/SNS/SetSMSAttributes.hs +159/−0
• gen/Network/AWS/SNS/Subscribe.hs +18/−0
• gen/Network/AWS/SNS/Types.hs +5/−0
• src/.gitkeep +0/−0
• test/Test/AWS/Gen/SNS.hs +92/−2

@@ -8,7 +8,7 @@  ## Version -`1.4.3`+`1.4.4`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-sns-version:               1.4.3+version:               1.4.4 synopsis:              Amazon Simple Notification Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -11,7 +11,7 @@ category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto+extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:     Amazon Simple Notification Service @@ -46,6 +46,7 @@     exposed-modules:           Network.AWS.SNS         , Network.AWS.SNS.AddPermission+        , Network.AWS.SNS.CheckIfPhoneNumberIsOptedOut         , Network.AWS.SNS.ConfirmSubscription         , Network.AWS.SNS.CreatePlatformApplication         , Network.AWS.SNS.CreatePlatformEndpoint@@ -55,17 +56,21 @@         , Network.AWS.SNS.DeleteTopic         , Network.AWS.SNS.GetEndpointAttributes         , Network.AWS.SNS.GetPlatformApplicationAttributes+        , Network.AWS.SNS.GetSMSAttributes         , Network.AWS.SNS.GetSubscriptionAttributes         , Network.AWS.SNS.GetTopicAttributes         , Network.AWS.SNS.ListEndpointsByPlatformApplication+        , Network.AWS.SNS.ListPhoneNumbersOptedOut         , Network.AWS.SNS.ListPlatformApplications         , Network.AWS.SNS.ListSubscriptions         , Network.AWS.SNS.ListSubscriptionsByTopic         , Network.AWS.SNS.ListTopics+        , Network.AWS.SNS.OptInPhoneNumber         , Network.AWS.SNS.Publish         , Network.AWS.SNS.RemovePermission         , Network.AWS.SNS.SetEndpointAttributes         , Network.AWS.SNS.SetPlatformApplicationAttributes+        , Network.AWS.SNS.SetSMSAttributes         , Network.AWS.SNS.SetSubscriptionAttributes         , Network.AWS.SNS.SetTopicAttributes         , Network.AWS.SNS.Subscribe@@ -78,7 +83,7 @@         , Network.AWS.SNS.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5  test-suite amazonka-sns-test@@ -98,9 +103,9 @@         , Test.AWS.SNS.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-sns == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-sns == 1.4.4.*         , base         , bytestring         , tasty

@@ -42,6 +42,9 @@     -- ** InternalErrorException     , _InternalErrorException +    -- ** ThrottledException+    , _ThrottledException+     -- ** InvalidParameterValueException     , _InvalidParameterValueException @@ -57,6 +60,9 @@     -- * Operations     -- $operations +    -- ** ListPhoneNumbersOptedOut+    , module Network.AWS.SNS.ListPhoneNumbersOptedOut+     -- ** DeleteEndpoint     , module Network.AWS.SNS.DeleteEndpoint @@ -66,6 +72,9 @@     -- ** DeleteTopic     , module Network.AWS.SNS.DeleteTopic +    -- ** SetSMSAttributes+    , module Network.AWS.SNS.SetSMSAttributes+     -- ** ListTopics (Paginated)     , module Network.AWS.SNS.ListTopics @@ -81,6 +90,9 @@     -- ** GetTopicAttributes     , module Network.AWS.SNS.GetTopicAttributes +    -- ** OptInPhoneNumber+    , module Network.AWS.SNS.OptInPhoneNumber+     -- ** CreatePlatformApplication     , module Network.AWS.SNS.CreatePlatformApplication @@ -96,6 +108,9 @@     -- ** DeletePlatformApplication     , module Network.AWS.SNS.DeletePlatformApplication +    -- ** GetSMSAttributes+    , module Network.AWS.SNS.GetSMSAttributes+     -- ** ListPlatformApplications (Paginated)     , module Network.AWS.SNS.ListPlatformApplications @@ -114,6 +129,9 @@     -- ** CreateTopic     , module Network.AWS.SNS.CreateTopic +    -- ** CheckIfPhoneNumberIsOptedOut+    , module Network.AWS.SNS.CheckIfPhoneNumberIsOptedOut+     -- ** Subscribe     , module Network.AWS.SNS.Subscribe @@ -169,6 +187,7 @@     ) where  import           Network.AWS.SNS.AddPermission+import           Network.AWS.SNS.CheckIfPhoneNumberIsOptedOut import           Network.AWS.SNS.ConfirmSubscription import           Network.AWS.SNS.CreatePlatformApplication import           Network.AWS.SNS.CreatePlatformEndpoint@@ -178,17 +197,21 @@ import           Network.AWS.SNS.DeleteTopic import           Network.AWS.SNS.GetEndpointAttributes import           Network.AWS.SNS.GetPlatformApplicationAttributes+import           Network.AWS.SNS.GetSMSAttributes import           Network.AWS.SNS.GetSubscriptionAttributes import           Network.AWS.SNS.GetTopicAttributes import           Network.AWS.SNS.ListEndpointsByPlatformApplication+import           Network.AWS.SNS.ListPhoneNumbersOptedOut import           Network.AWS.SNS.ListPlatformApplications import           Network.AWS.SNS.ListSubscriptions import           Network.AWS.SNS.ListSubscriptionsByTopic import           Network.AWS.SNS.ListTopics+import           Network.AWS.SNS.OptInPhoneNumber import           Network.AWS.SNS.Publish import           Network.AWS.SNS.RemovePermission import           Network.AWS.SNS.SetEndpointAttributes import           Network.AWS.SNS.SetPlatformApplicationAttributes+import           Network.AWS.SNS.SetSMSAttributes import           Network.AWS.SNS.SetSubscriptionAttributes import           Network.AWS.SNS.SetTopicAttributes import           Network.AWS.SNS.Subscribe

@@ -0,0 +1,138 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.SNS.CheckIfPhoneNumberIsOptedOut+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Accepts a phone number and indicates whether the phone holder has opted out of receiving SMS messages from your account. You cannot send SMS messages to a number that is opted out.+--+-- To resume sending messages, you can opt in the number by using the 'OptInPhoneNumber' action.+module Network.AWS.SNS.CheckIfPhoneNumberIsOptedOut+    (+    -- * Creating a Request+      checkIfPhoneNumberIsOptedOut+    , CheckIfPhoneNumberIsOptedOut+    -- * Request Lenses+    , cipniooPhoneNumber++    -- * Destructuring the Response+    , checkIfPhoneNumberIsOptedOutResponse+    , CheckIfPhoneNumberIsOptedOutResponse+    -- * Response Lenses+    , cipnioorsIsOptedOut+    , cipnioorsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SNS.Types+import           Network.AWS.SNS.Types.Product++-- | The input for the 'CheckIfPhoneNumberIsOptedOut' action.+--+-- /See:/ 'checkIfPhoneNumberIsOptedOut' smart constructor.+newtype CheckIfPhoneNumberIsOptedOut = CheckIfPhoneNumberIsOptedOut'+    { _cipniooPhoneNumber :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CheckIfPhoneNumberIsOptedOut' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cipniooPhoneNumber'+checkIfPhoneNumberIsOptedOut+    :: Text -- ^ 'cipniooPhoneNumber'+    -> CheckIfPhoneNumberIsOptedOut+checkIfPhoneNumberIsOptedOut pPhoneNumber_ =+    CheckIfPhoneNumberIsOptedOut'+    { _cipniooPhoneNumber = pPhoneNumber_+    }++-- | 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});++instance AWSRequest CheckIfPhoneNumberIsOptedOut+         where+        type Rs CheckIfPhoneNumberIsOptedOut =+             CheckIfPhoneNumberIsOptedOutResponse+        request = postQuery sns+        response+          = receiveXMLWrapper+              "CheckIfPhoneNumberIsOptedOutResult"+              (\ s h x ->+                 CheckIfPhoneNumberIsOptedOutResponse' <$>+                   (x .@? "isOptedOut") <*> (pure (fromEnum s)))++instance Hashable CheckIfPhoneNumberIsOptedOut++instance NFData CheckIfPhoneNumberIsOptedOut++instance ToHeaders CheckIfPhoneNumberIsOptedOut where+        toHeaders = const mempty++instance ToPath CheckIfPhoneNumberIsOptedOut where+        toPath = const "/"++instance ToQuery CheckIfPhoneNumberIsOptedOut where+        toQuery CheckIfPhoneNumberIsOptedOut'{..}+          = mconcat+              ["Action" =:+                 ("CheckIfPhoneNumberIsOptedOut" :: ByteString),+               "Version" =: ("2010-03-31" :: ByteString),+               "phoneNumber" =: _cipniooPhoneNumber]++-- | The response from the 'CheckIfPhoneNumberIsOptedOut' action.+--+-- /See:/ 'checkIfPhoneNumberIsOptedOutResponse' smart constructor.+data CheckIfPhoneNumberIsOptedOutResponse = CheckIfPhoneNumberIsOptedOutResponse'+    { _cipnioorsIsOptedOut     :: !(Maybe Bool)+    , _cipnioorsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CheckIfPhoneNumberIsOptedOutResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cipnioorsIsOptedOut'+--+-- * 'cipnioorsResponseStatus'+checkIfPhoneNumberIsOptedOutResponse+    :: Int -- ^ 'cipnioorsResponseStatus'+    -> CheckIfPhoneNumberIsOptedOutResponse+checkIfPhoneNumberIsOptedOutResponse pResponseStatus_ =+    CheckIfPhoneNumberIsOptedOutResponse'+    { _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});++-- | The response status code.+cipnioorsResponseStatus :: Lens' CheckIfPhoneNumberIsOptedOutResponse Int+cipnioorsResponseStatus = lens _cipnioorsResponseStatus (\ s a -> s{_cipnioorsResponseStatus = a});++instance NFData CheckIfPhoneNumberIsOptedOutResponse

@@ -18,7 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a platform application object for one of the supported push notification services, such as APNS and GCM, to which devices and mobile apps may register. You must specify PlatformPrincipal and PlatformCredential attributes when using the 'CreatePlatformApplication' action. The PlatformPrincipal is 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\". The PlatformCredential is also 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\". The PlatformApplicationArn that is returned when using 'CreatePlatformApplication' is then used as an attribute for the 'CreatePlatformEndpoint' action. For more information, see <http://docs.aws.amazon.com/sns/latest/dg/SNSMobilePush.html Using Amazon SNS Mobile Push Notifications>.+-- Creates a platform application object for one of the supported push notification services, such as APNS and GCM, to which devices and mobile apps may register. You must specify PlatformPrincipal and PlatformCredential attributes when using the 'CreatePlatformApplication' action. The PlatformPrincipal is 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\". The PlatformCredential is also received from the notification service. For WNS, PlatformPrincipal is \"Package Security Identifier\". For MPNS, PlatformPrincipal is \"TLS certificate\". For Baidu, PlatformPrincipal is \"API key\".+--+-- For APNS\/APNS_SANDBOX, PlatformCredential is \"private key\". For GCM, PlatformCredential is \"API key\". For ADM, PlatformCredential is \"client secret\". For WNS, PlatformCredential is \"secret key\". For MPNS, PlatformCredential is \"private key\". For Baidu, PlatformCredential is \"secret key\". The PlatformApplicationArn that is returned when using 'CreatePlatformApplication' is then used as an attribute for the 'CreatePlatformEndpoint' action. For more information, see <http://docs.aws.amazon.com/sns/latest/dg/SNSMobilePush.html Using Amazon SNS Mobile Push Notifications>. For more information about obtaining the PlatformPrincipal and PlatformCredential for each of the supported push notification services, see <http://docs.aws.amazon.com/sns/latest/dg/mobile-push-apns.html Getting Started with Apple Push Notification Service>, <http://docs.aws.amazon.com/sns/latest/dg/mobile-push-adm.html Getting Started with Amazon Device Messaging>, <http://docs.aws.amazon.com/sns/latest/dg/mobile-push-baidu.html Getting Started with Baidu Cloud Push>, <http://docs.aws.amazon.com/sns/latest/dg/mobile-push-gcm.html Getting Started with Google Cloud Messaging for Android>, <http://docs.aws.amazon.com/sns/latest/dg/mobile-push-mpns.html Getting Started with MPNS>, or <http://docs.aws.amazon.com/sns/latest/dg/mobile-push-wns.html Getting Started with WNS>. module Network.AWS.SNS.CreatePlatformApplication     (     -- * Creating a Request

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a topic to which notifications can be published. Users can create at most 3000 topics. For more information, see <http://aws.amazon.com/sns/ http:\/\/aws.amazon.com\/sns>. This action is idempotent, so if the requester already owns a topic with the specified name, that topic\'s ARN is returned without creating a new topic.+-- Creates a topic to which notifications can be published. Users can create at most 100,000 topics. For more information, see <http://aws.amazon.com/sns/ http:\/\/aws.amazon.com\/sns>. This action is idempotent, so if the requester already owns a topic with the specified name, that topic\'s ARN is returned without creating a new topic. module Network.AWS.SNS.CreateTopic     (     -- * Creating a Request

@@ -18,7 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the endpoint from Amazon SNS. This action is idempotent. For more information, see <http://docs.aws.amazon.com/sns/latest/dg/SNSMobilePush.html Using Amazon SNS Mobile Push Notifications>.+-- Deletes the endpoint for a device and mobile app from Amazon SNS. This action is idempotent. For more information, see <http://docs.aws.amazon.com/sns/latest/dg/SNSMobilePush.html Using Amazon SNS Mobile Push Notifications>.+--+-- When you delete an endpoint that is also subscribed to a topic, then you must also unsubscribe the endpoint from the topic. module Network.AWS.SNS.DeleteEndpoint     (     -- * Creating a Request

@@ -122,8 +122,11 @@ -- | 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; 

@@ -129,9 +129,13 @@ -- | 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; 

@@ -0,0 +1,135 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.SNS.GetSMSAttributes+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the settings for sending SMS messages from your account.+--+-- These settings are set with the 'SetSMSAttributes' action.+module Network.AWS.SNS.GetSMSAttributes+    (+    -- * Creating a Request+      getSMSAttributes+    , GetSMSAttributes+    -- * Request Lenses+    , gsmsaAttributes++    -- * Destructuring the Response+    , getSMSAttributesResponse+    , GetSMSAttributesResponse+    -- * Response Lenses+    , gsmsarsAttributes+    , gsmsarsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SNS.Types+import           Network.AWS.SNS.Types.Product++-- | The input for the 'GetSMSAttributes' request.+--+-- /See:/ 'getSMSAttributes' smart constructor.+newtype GetSMSAttributes = GetSMSAttributes'+    { _gsmsaAttributes :: Maybe [Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetSMSAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gsmsaAttributes'+getSMSAttributes+    :: GetSMSAttributes+getSMSAttributes =+    GetSMSAttributes'+    { _gsmsaAttributes = Nothing+    }++-- | 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;++instance AWSRequest GetSMSAttributes where+        type Rs GetSMSAttributes = GetSMSAttributesResponse+        request = postQuery sns+        response+          = receiveXMLWrapper "GetSMSAttributesResult"+              (\ s h x ->+                 GetSMSAttributesResponse' <$>+                   (x .@? "attributes" .!@ mempty >>=+                      may (parseXMLMap "entry" "key" "value"))+                     <*> (pure (fromEnum s)))++instance Hashable GetSMSAttributes++instance NFData GetSMSAttributes++instance ToHeaders GetSMSAttributes where+        toHeaders = const mempty++instance ToPath GetSMSAttributes where+        toPath = const "/"++instance ToQuery GetSMSAttributes where+        toQuery GetSMSAttributes'{..}+          = mconcat+              ["Action" =: ("GetSMSAttributes" :: ByteString),+               "Version" =: ("2010-03-31" :: ByteString),+               "attributes" =:+                 toQuery (toQueryList "member" <$> _gsmsaAttributes)]++-- | The response from the 'GetSMSAttributes' request.+--+-- /See:/ 'getSMSAttributesResponse' smart constructor.+data GetSMSAttributesResponse = GetSMSAttributesResponse'+    { _gsmsarsAttributes     :: !(Maybe (Map Text Text))+    , _gsmsarsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetSMSAttributesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gsmsarsAttributes'+--+-- * 'gsmsarsResponseStatus'+getSMSAttributesResponse+    :: Int -- ^ 'gsmsarsResponseStatus'+    -> GetSMSAttributesResponse+getSMSAttributesResponse pResponseStatus_ =+    GetSMSAttributesResponse'+    { _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;++-- | The response status code.+gsmsarsResponseStatus :: Lens' GetSMSAttributesResponse Int+gsmsarsResponseStatus = lens _gsmsarsResponseStatus (\ s a -> s{_gsmsarsResponseStatus = a});++instance NFData GetSMSAttributesResponse

@@ -123,11 +123,17 @@ -- | 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; 

@@ -122,14 +122,23 @@ -- | 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; 

@@ -0,0 +1,142 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.SNS.ListPhoneNumbersOptedOut+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of phone numbers that are opted out, meaning you cannot send SMS messages to them.+--+-- The results for 'ListPhoneNumbersOptedOut' are paginated, and each page returns up to 100 phone numbers. If additional phone numbers are available after the first page of results, then a 'NextToken' string will be returned. To receive the next page, you call 'ListPhoneNumbersOptedOut' again using the 'NextToken' string received from the previous call. When there are no more records to return, 'NextToken' will be null.+module Network.AWS.SNS.ListPhoneNumbersOptedOut+    (+    -- * Creating a Request+      listPhoneNumbersOptedOut+    , ListPhoneNumbersOptedOut+    -- * Request Lenses+    , lpnooNextToken++    -- * Destructuring the Response+    , listPhoneNumbersOptedOutResponse+    , ListPhoneNumbersOptedOutResponse+    -- * Response Lenses+    , lpnoorsPhoneNumbers+    , lpnoorsNextToken+    , lpnoorsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SNS.Types+import           Network.AWS.SNS.Types.Product++-- | The input for the 'ListPhoneNumbersOptedOut' action.+--+-- /See:/ 'listPhoneNumbersOptedOut' smart constructor.+newtype ListPhoneNumbersOptedOut = ListPhoneNumbersOptedOut'+    { _lpnooNextToken :: Maybe Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListPhoneNumbersOptedOut' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lpnooNextToken'+listPhoneNumbersOptedOut+    :: ListPhoneNumbersOptedOut+listPhoneNumbersOptedOut =+    ListPhoneNumbersOptedOut'+    { _lpnooNextToken = Nothing+    }++-- | 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});++instance AWSRequest ListPhoneNumbersOptedOut where+        type Rs ListPhoneNumbersOptedOut =+             ListPhoneNumbersOptedOutResponse+        request = postQuery sns+        response+          = receiveXMLWrapper "ListPhoneNumbersOptedOutResult"+              (\ s h x ->+                 ListPhoneNumbersOptedOutResponse' <$>+                   (x .@? "phoneNumbers" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (x .@? "nextToken")+                     <*> (pure (fromEnum s)))++instance Hashable ListPhoneNumbersOptedOut++instance NFData ListPhoneNumbersOptedOut++instance ToHeaders ListPhoneNumbersOptedOut where+        toHeaders = const mempty++instance ToPath ListPhoneNumbersOptedOut where+        toPath = const "/"++instance ToQuery ListPhoneNumbersOptedOut where+        toQuery ListPhoneNumbersOptedOut'{..}+          = mconcat+              ["Action" =:+                 ("ListPhoneNumbersOptedOut" :: ByteString),+               "Version" =: ("2010-03-31" :: ByteString),+               "nextToken" =: _lpnooNextToken]++-- | The response from the 'ListPhoneNumbersOptedOut' action.+--+-- /See:/ 'listPhoneNumbersOptedOutResponse' smart constructor.+data ListPhoneNumbersOptedOutResponse = ListPhoneNumbersOptedOutResponse'+    { _lpnoorsPhoneNumbers   :: !(Maybe [Text])+    , _lpnoorsNextToken      :: !(Maybe Text)+    , _lpnoorsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListPhoneNumbersOptedOutResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lpnoorsPhoneNumbers'+--+-- * 'lpnoorsNextToken'+--+-- * 'lpnoorsResponseStatus'+listPhoneNumbersOptedOutResponse+    :: Int -- ^ 'lpnoorsResponseStatus'+    -> ListPhoneNumbersOptedOutResponse+listPhoneNumbersOptedOutResponse pResponseStatus_ =+    ListPhoneNumbersOptedOutResponse'+    { _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;++-- | 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});++-- | The response status code.+lpnoorsResponseStatus :: Lens' ListPhoneNumbersOptedOutResponse Int+lpnoorsResponseStatus = lens _lpnoorsResponseStatus (\ s a -> s{_lpnoorsResponseStatus = a});++instance NFData ListPhoneNumbersOptedOutResponse

@@ -0,0 +1,119 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.SNS.OptInPhoneNumber+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Use this request to opt in a phone number that is opted out, which enables you to resume sending SMS messages to the number.+--+-- You can opt in a phone number only once every 30 days.+module Network.AWS.SNS.OptInPhoneNumber+    (+    -- * Creating a Request+      optInPhoneNumber+    , OptInPhoneNumber+    -- * Request Lenses+    , oipnPhoneNumber++    -- * Destructuring the Response+    , optInPhoneNumberResponse+    , OptInPhoneNumberResponse+    -- * Response Lenses+    , oipnrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SNS.Types+import           Network.AWS.SNS.Types.Product++-- | Input for the OptInPhoneNumber action.+--+-- /See:/ 'optInPhoneNumber' smart constructor.+newtype OptInPhoneNumber = OptInPhoneNumber'+    { _oipnPhoneNumber :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'OptInPhoneNumber' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'oipnPhoneNumber'+optInPhoneNumber+    :: Text -- ^ 'oipnPhoneNumber'+    -> OptInPhoneNumber+optInPhoneNumber pPhoneNumber_ =+    OptInPhoneNumber'+    { _oipnPhoneNumber = pPhoneNumber_+    }++-- | The phone number to opt in.+oipnPhoneNumber :: Lens' OptInPhoneNumber Text+oipnPhoneNumber = lens _oipnPhoneNumber (\ s a -> s{_oipnPhoneNumber = a});++instance AWSRequest OptInPhoneNumber where+        type Rs OptInPhoneNumber = OptInPhoneNumberResponse+        request = postQuery sns+        response+          = receiveXMLWrapper "OptInPhoneNumberResult"+              (\ s h x ->+                 OptInPhoneNumberResponse' <$> (pure (fromEnum s)))++instance Hashable OptInPhoneNumber++instance NFData OptInPhoneNumber++instance ToHeaders OptInPhoneNumber where+        toHeaders = const mempty++instance ToPath OptInPhoneNumber where+        toPath = const "/"++instance ToQuery OptInPhoneNumber where+        toQuery OptInPhoneNumber'{..}+          = mconcat+              ["Action" =: ("OptInPhoneNumber" :: ByteString),+               "Version" =: ("2010-03-31" :: ByteString),+               "phoneNumber" =: _oipnPhoneNumber]++-- | The response for the OptInPhoneNumber action.+--+-- /See:/ 'optInPhoneNumberResponse' smart constructor.+newtype OptInPhoneNumberResponse = OptInPhoneNumberResponse'+    { _oipnrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'OptInPhoneNumberResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'oipnrsResponseStatus'+optInPhoneNumberResponse+    :: Int -- ^ 'oipnrsResponseStatus'+    -> OptInPhoneNumberResponse+optInPhoneNumberResponse pResponseStatus_ =+    OptInPhoneNumberResponse'+    { _oipnrsResponseStatus = pResponseStatus_+    }++-- | The response status code.+oipnrsResponseStatus :: Lens' OptInPhoneNumberResponse Int+oipnrsResponseStatus = lens _oipnrsResponseStatus (\ s a -> s{_oipnrsResponseStatus = a});++instance NFData OptInPhoneNumberResponse

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Sends a message to all of a topic\'s subscribed endpoints. When a 'messageId' is returned, the message has been saved and Amazon SNS will attempt to deliver it to the topic\'s subscribers shortly. The format of the outgoing message to each subscribed endpoint depends on the notification protocol selected.+-- Sends a message to all of a topic\'s subscribed endpoints. When a 'messageId' is returned, the message has been saved and Amazon SNS will attempt to deliver it to the topic\'s subscribers shortly. The format of the outgoing message to each subscribed endpoint depends on the notification protocol. ----- To use the 'Publish' action for sending a message to a mobile endpoint, such as an app on a Kindle device or mobile phone, you must specify the EndpointArn. The EndpointArn is returned when making a call with the 'CreatePlatformEndpoint' action. The second example below shows a request and response for publishing to a mobile endpoint.+-- To use the 'Publish' action for sending a message to a mobile endpoint, such as an app on a Kindle device or mobile phone, you must specify the EndpointArn for the TargetArn parameter. The EndpointArn is returned when making a call with the 'CreatePlatformEndpoint' action.+--+-- For more information about formatting messages, see <http://docs.aws.amazon.com/sns/latest/dg/mobile-push-send-custommessage.html Send Custom Platform-Specific Payloads in Messages to Mobile Devices>. module Network.AWS.SNS.Publish     (     -- * Creating a Request@@ -31,6 +33,7 @@     , pTargetARN     , pMessageAttributes     , pTopicARN+    , pPhoneNumber     , pMessageStructure     , pMessage @@ -57,6 +60,7 @@     , _pTargetARN         :: !(Maybe Text)     , _pMessageAttributes :: !(Maybe (Map Text MessageAttributeValue))     , _pTopicARN          :: !(Maybe Text)+    , _pPhoneNumber       :: !(Maybe Text)     , _pMessageStructure  :: !(Maybe Text)     , _pMessage           :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -73,6 +77,8 @@ -- -- * 'pTopicARN' --+-- * 'pPhoneNumber'+-- -- * 'pMessageStructure' -- -- * 'pMessage'@@ -85,6 +91,7 @@     , _pTargetARN = Nothing     , _pMessageAttributes = Nothing     , _pTopicARN = Nothing+    , _pPhoneNumber = Nothing     , _pMessageStructure = Nothing     , _pMessage = pMessage_     }@@ -96,6 +103,8 @@ 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}); @@ -104,12 +113,21 @@ 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}); +-- | 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});+ -- | 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\").@@ -124,21 +142,30 @@ -- -- 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. See the Examples section for the format of the JSON object.+-- 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}); @@ -172,6 +199,7 @@                    (toQueryMap "entry" "Name" "Value" <$>                       _pMessageAttributes),                "TopicArn" =: _pTopicARN,+               "PhoneNumber" =: _pPhoneNumber,                "MessageStructure" =: _pMessageStructure,                "Message" =: _pMessage] 

@@ -71,8 +71,11 @@ -- | 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; 

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Sets the attributes of the platform application object for the supported push notification services, such as APNS and GCM. For more information, see <http://docs.aws.amazon.com/sns/latest/dg/SNSMobilePush.html Using Amazon SNS Mobile Push Notifications>.+-- Sets the attributes of the platform application object for the supported push notification services, such as APNS and GCM. For more information, see <http://docs.aws.amazon.com/sns/latest/dg/SNSMobilePush.html Using Amazon SNS Mobile Push Notifications>. For information on configuring attributes for message delivery status, see <http://docs.aws.amazon.com/sns/latest/dg/sns-msg-status.html Using Amazon SNS Application Attributes for Message Delivery Status>. module Network.AWS.SNS.SetPlatformApplicationAttributes     (     -- * Creating a Request@@ -70,12 +70,24 @@  -- | 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\".+-- -   '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; 

@@ -0,0 +1,159 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.SNS.SetSMSAttributes+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Use this request to set the default settings for sending SMS messages and receiving daily SMS usage reports.+--+-- You can override some of these settings for a single message when you use the 'Publish' action with the 'MessageAttributes.entry.N' parameter. For more information, see <http://docs.aws.amazon.com/sns/latest/dg/sms_publish-to-phone.html Sending an SMS Message> in the /Amazon SNS Developer Guide/.+module Network.AWS.SNS.SetSMSAttributes+    (+    -- * Creating a Request+      setSMSAttributes+    , SetSMSAttributes+    -- * Request Lenses+    , ssmsaAttributes++    -- * Destructuring the Response+    , setSMSAttributesResponse+    , SetSMSAttributesResponse+    -- * Response Lenses+    , ssmsarsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SNS.Types+import           Network.AWS.SNS.Types.Product++-- | The input for the SetSMSAttributes action.+--+-- /See:/ 'setSMSAttributes' smart constructor.+newtype SetSMSAttributes = SetSMSAttributes'+    { _ssmsaAttributes :: Map Text Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'SetSMSAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ssmsaAttributes'+setSMSAttributes+    :: SetSMSAttributes+setSMSAttributes =+    SetSMSAttributes'+    { _ssmsaAttributes = mempty+    }++-- | 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.+--+-- 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;++instance AWSRequest SetSMSAttributes where+        type Rs SetSMSAttributes = SetSMSAttributesResponse+        request = postQuery sns+        response+          = receiveXMLWrapper "SetSMSAttributesResult"+              (\ s h x ->+                 SetSMSAttributesResponse' <$> (pure (fromEnum s)))++instance Hashable SetSMSAttributes++instance NFData SetSMSAttributes++instance ToHeaders SetSMSAttributes where+        toHeaders = const mempty++instance ToPath SetSMSAttributes where+        toPath = const "/"++instance ToQuery SetSMSAttributes where+        toQuery SetSMSAttributes'{..}+          = mconcat+              ["Action" =: ("SetSMSAttributes" :: ByteString),+               "Version" =: ("2010-03-31" :: ByteString),+               "attributes" =:+                 toQueryMap "entry" "key" "value" _ssmsaAttributes]++-- | The response for the SetSMSAttributes action.+--+-- /See:/ 'setSMSAttributesResponse' smart constructor.+newtype SetSMSAttributesResponse = SetSMSAttributesResponse'+    { _ssmsarsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'SetSMSAttributesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ssmsarsResponseStatus'+setSMSAttributesResponse+    :: Int -- ^ 'ssmsarsResponseStatus'+    -> SetSMSAttributesResponse+setSMSAttributesResponse pResponseStatus_ =+    SetSMSAttributesResponse'+    { _ssmsarsResponseStatus = pResponseStatus_+    }++-- | The response status code.+ssmsarsResponseStatus :: Lens' SetSMSAttributesResponse Int+ssmsarsResponseStatus = lens _ssmsarsResponseStatus (\ s a -> s{_ssmsarsResponseStatus = a});++instance NFData SetSMSAttributesResponse

@@ -76,12 +76,21 @@ -- | 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}); @@ -92,12 +101,21 @@ -- | 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}); 

@@ -22,6 +22,7 @@     , _SubscriptionLimitExceededException     , _PlatformApplicationDisabledException     , _InternalErrorException+    , _ThrottledException     , _InvalidParameterValueException     , _NotFoundException     , _TopicLimitExceededException@@ -129,6 +130,10 @@ _InternalErrorException :: AsError a => Getting (First ServiceError) a ServiceError _InternalErrorException =     _ServiceError . hasStatus 500 . hasCode "InternalError"++-- | Indicates that the rate at which requests have been submitted for this action exceeds the limit for your account.+_ThrottledException :: AsError a => Getting (First ServiceError) a ServiceError+_ThrottledException = _ServiceError . hasStatus 429 . hasCode "Throttled"  -- | Indicates that a request parameter does not comply with the associated constraints. _InvalidParameterValueException :: AsError a => Getting (First ServiceError) a ServiceError

@@ -28,7 +28,10 @@ -- fixtures :: TestTree -- fixtures = --     [ testGroup "request"---         [ requestDeleteEndpoint $+--         [ requestListPhoneNumbersOptedOut $+--             listPhoneNumbersOptedOut+--+--         , requestDeleteEndpoint $ --             deleteEndpoint -- --         , requestRemovePermission $@@ -37,6 +40,9 @@ --         , requestDeleteTopic $ --             deleteTopic --+--         , requestSetSMSAttributes $+--             setSMSAttributes+-- --         , requestListTopics $ --             listTopics --@@ -52,6 +58,9 @@ --         , requestGetTopicAttributes $ --             getTopicAttributes --+--         , requestOptInPhoneNumber $+--             optInPhoneNumber+-- --         , requestCreatePlatformApplication $ --             createPlatformApplication --@@ -67,6 +76,9 @@ --         , requestDeletePlatformApplication $ --             deletePlatformApplication --+--         , requestGetSMSAttributes $+--             getSMSAttributes+-- --         , requestListPlatformApplications $ --             listPlatformApplications --@@ -85,6 +97,9 @@ --         , requestCreateTopic $ --             createTopic --+--         , requestCheckIfPhoneNumberIsOptedOut $+--             checkIfPhoneNumberIsOptedOut+-- --         , requestSubscribe $ --             subscribe --@@ -106,7 +121,10 @@ --           ]  --     , testGroup "response"---         [ responseDeleteEndpoint $+--         [ responseListPhoneNumbersOptedOut $+--             listPhoneNumbersOptedOutResponse+--+--         , responseDeleteEndpoint $ --             deleteEndpointResponse -- --         , responseRemovePermission $@@ -115,6 +133,9 @@ --         , responseDeleteTopic $ --             deleteTopicResponse --+--         , responseSetSMSAttributes $+--             setSMSAttributesResponse+-- --         , responseListTopics $ --             listTopicsResponse --@@ -130,6 +151,9 @@ --         , responseGetTopicAttributes $ --             getTopicAttributesResponse --+--         , responseOptInPhoneNumber $+--             optInPhoneNumberResponse+-- --         , responseCreatePlatformApplication $ --             createPlatformApplicationResponse --@@ -145,6 +169,9 @@ --         , responseDeletePlatformApplication $ --             deletePlatformApplicationResponse --+--         , responseGetSMSAttributes $+--             getSMSAttributesResponse+-- --         , responseListPlatformApplications $ --             listPlatformApplicationsResponse --@@ -163,6 +190,9 @@ --         , responseCreateTopic $ --             createTopicResponse --+--         , responseCheckIfPhoneNumberIsOptedOut $+--             checkIfPhoneNumberIsOptedOutResponse+-- --         , responseSubscribe $ --             subscribeResponse --@@ -186,6 +216,11 @@  -- Requests +requestListPhoneNumbersOptedOut :: ListPhoneNumbersOptedOut -> TestTree+requestListPhoneNumbersOptedOut = req+    "ListPhoneNumbersOptedOut"+    "fixture/ListPhoneNumbersOptedOut.yaml"+ requestDeleteEndpoint :: DeleteEndpoint -> TestTree requestDeleteEndpoint = req     "DeleteEndpoint"@@ -201,6 +236,11 @@     "DeleteTopic"     "fixture/DeleteTopic.yaml" +requestSetSMSAttributes :: SetSMSAttributes -> TestTree+requestSetSMSAttributes = req+    "SetSMSAttributes"+    "fixture/SetSMSAttributes.yaml"+ requestListTopics :: ListTopics -> TestTree requestListTopics = req     "ListTopics"@@ -226,6 +266,11 @@     "GetTopicAttributes"     "fixture/GetTopicAttributes.yaml" +requestOptInPhoneNumber :: OptInPhoneNumber -> TestTree+requestOptInPhoneNumber = req+    "OptInPhoneNumber"+    "fixture/OptInPhoneNumber.yaml"+ requestCreatePlatformApplication :: CreatePlatformApplication -> TestTree requestCreatePlatformApplication = req     "CreatePlatformApplication"@@ -251,6 +296,11 @@     "DeletePlatformApplication"     "fixture/DeletePlatformApplication.yaml" +requestGetSMSAttributes :: GetSMSAttributes -> TestTree+requestGetSMSAttributes = req+    "GetSMSAttributes"+    "fixture/GetSMSAttributes.yaml"+ requestListPlatformApplications :: ListPlatformApplications -> TestTree requestListPlatformApplications = req     "ListPlatformApplications"@@ -281,6 +331,11 @@     "CreateTopic"     "fixture/CreateTopic.yaml" +requestCheckIfPhoneNumberIsOptedOut :: CheckIfPhoneNumberIsOptedOut -> TestTree+requestCheckIfPhoneNumberIsOptedOut = req+    "CheckIfPhoneNumberIsOptedOut"+    "fixture/CheckIfPhoneNumberIsOptedOut.yaml"+ requestSubscribe :: Subscribe -> TestTree requestSubscribe = req     "Subscribe"@@ -313,6 +368,13 @@  -- Responses +responseListPhoneNumbersOptedOut :: ListPhoneNumbersOptedOutResponse -> TestTree+responseListPhoneNumbersOptedOut = res+    "ListPhoneNumbersOptedOutResponse"+    "fixture/ListPhoneNumbersOptedOutResponse.proto"+    sns+    (Proxy :: Proxy ListPhoneNumbersOptedOut)+ responseDeleteEndpoint :: DeleteEndpointResponse -> TestTree responseDeleteEndpoint = res     "DeleteEndpointResponse"@@ -334,6 +396,13 @@     sns     (Proxy :: Proxy DeleteTopic) +responseSetSMSAttributes :: SetSMSAttributesResponse -> TestTree+responseSetSMSAttributes = res+    "SetSMSAttributesResponse"+    "fixture/SetSMSAttributesResponse.proto"+    sns+    (Proxy :: Proxy SetSMSAttributes)+ responseListTopics :: ListTopicsResponse -> TestTree responseListTopics = res     "ListTopicsResponse"@@ -369,6 +438,13 @@     sns     (Proxy :: Proxy GetTopicAttributes) +responseOptInPhoneNumber :: OptInPhoneNumberResponse -> TestTree+responseOptInPhoneNumber = res+    "OptInPhoneNumberResponse"+    "fixture/OptInPhoneNumberResponse.proto"+    sns+    (Proxy :: Proxy OptInPhoneNumber)+ responseCreatePlatformApplication :: CreatePlatformApplicationResponse -> TestTree responseCreatePlatformApplication = res     "CreatePlatformApplicationResponse"@@ -404,6 +480,13 @@     sns     (Proxy :: Proxy DeletePlatformApplication) +responseGetSMSAttributes :: GetSMSAttributesResponse -> TestTree+responseGetSMSAttributes = res+    "GetSMSAttributesResponse"+    "fixture/GetSMSAttributesResponse.proto"+    sns+    (Proxy :: Proxy GetSMSAttributes)+ responseListPlatformApplications :: ListPlatformApplicationsResponse -> TestTree responseListPlatformApplications = res     "ListPlatformApplicationsResponse"@@ -445,6 +528,13 @@     "fixture/CreateTopicResponse.proto"     sns     (Proxy :: Proxy CreateTopic)++responseCheckIfPhoneNumberIsOptedOut :: CheckIfPhoneNumberIsOptedOutResponse -> TestTree+responseCheckIfPhoneNumberIsOptedOut = res+    "CheckIfPhoneNumberIsOptedOutResponse"+    "fixture/CheckIfPhoneNumberIsOptedOutResponse.proto"+    sns+    (Proxy :: Proxy CheckIfPhoneNumberIsOptedOut)  responseSubscribe :: SubscribeResponse -> TestTree responseSubscribe = res