amazonka-sns 1.1.0 → 1.2.0

raw patch · 31 files changed

+90/−95 lines, 31 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 +5/−5
• gen/Network/AWS/SNS.hs +2/−2
• gen/Network/AWS/SNS/AddPermission.hs +1/−2
• gen/Network/AWS/SNS/ConfirmSubscription.hs +1/−2
• gen/Network/AWS/SNS/CreatePlatformApplication.hs +1/−2
• gen/Network/AWS/SNS/CreatePlatformEndpoint.hs +1/−2
• gen/Network/AWS/SNS/CreateTopic.hs +1/−2
• gen/Network/AWS/SNS/DeleteEndpoint.hs +1/−2
• gen/Network/AWS/SNS/DeletePlatformApplication.hs +1/−2
• gen/Network/AWS/SNS/DeleteTopic.hs +1/−2
• gen/Network/AWS/SNS/GetEndpointAttributes.hs +1/−2
• gen/Network/AWS/SNS/GetPlatformApplicationAttributes.hs +1/−2
• gen/Network/AWS/SNS/GetSubscriptionAttributes.hs +1/−2
• gen/Network/AWS/SNS/GetTopicAttributes.hs +1/−2
• gen/Network/AWS/SNS/ListEndpointsByPlatformApplication.hs +1/−2
• gen/Network/AWS/SNS/ListPlatformApplications.hs +1/−2
• gen/Network/AWS/SNS/ListSubscriptions.hs +1/−2
• gen/Network/AWS/SNS/ListSubscriptionsByTopic.hs +1/−2
• gen/Network/AWS/SNS/ListTopics.hs +1/−2
• gen/Network/AWS/SNS/Publish.hs +1/−2
• gen/Network/AWS/SNS/RemovePermission.hs +1/−2
• gen/Network/AWS/SNS/SetEndpointAttributes.hs +1/−2
• gen/Network/AWS/SNS/SetPlatformApplicationAttributes.hs +1/−2
• gen/Network/AWS/SNS/SetSubscriptionAttributes.hs +1/−2
• gen/Network/AWS/SNS/SetTopicAttributes.hs +1/−2
• gen/Network/AWS/SNS/Subscribe.hs +1/−2
• gen/Network/AWS/SNS/Types.hs +32/−36
• gen/Network/AWS/SNS/Types/Product.hs +0/−1
• gen/Network/AWS/SNS/Unsubscribe.hs +1/−2
• test/Test/AWS/Gen/SNS.hs +25/−0

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-sns-version:               1.1.0+version:               1.2.0 synopsis:              Amazon Simple Notification Service SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -91,7 +91,7 @@         , Network.AWS.SNS.Types.Sum      build-depends:-          amazonka-core == 1.1.0.*+          amazonka-core == 1.2.0.*         , base          >= 4.7     && < 5  test-suite amazonka-sns-test@@ -110,9 +110,9 @@         , Test.AWS.SNS.Internal      build-depends:-          amazonka-core == 1.1.0-        , amazonka-test == 1.1.0-        , amazonka-sns == 1.1.0+          amazonka-core == 1.2.0+        , amazonka-test == 1.2.0+        , amazonka-sns == 1.2.0         , base         , bytestring         , lens

@@ -33,8 +33,8 @@ -- /See:/ <http://docs.aws.amazon.com/sns/latest/api/Welcome.html AWS API Reference> module Network.AWS.SNS     (-    -- * Service-      SNS+    -- * Service Configuration+      sNS      -- * Errors     -- $errors

@@ -96,9 +96,8 @@ apActionName = lens _apActionName (\ s a -> s{_apActionName = a}) . _Coerce;  instance AWSRequest AddPermission where-        type Sv AddPermission = SNS         type Rs AddPermission = AddPermissionResponse-        request = postQuery+        request = postQuery sNS         response = receiveNull AddPermissionResponse'  instance ToHeaders AddPermission where

@@ -94,10 +94,9 @@ csToken = lens _csToken (\ s a -> s{_csToken = a});  instance AWSRequest ConfirmSubscription where-        type Sv ConfirmSubscription = SNS         type Rs ConfirmSubscription =              ConfirmSubscriptionResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper "ConfirmSubscriptionResult"               (\ s h x ->

@@ -106,10 +106,9 @@ cpaAttributes = lens _cpaAttributes (\ s a -> s{_cpaAttributes = a}) . _Map;  instance AWSRequest CreatePlatformApplication where-        type Sv CreatePlatformApplication = SNS         type Rs CreatePlatformApplication =              CreatePlatformApplicationResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper "CreatePlatformApplicationResult"               (\ s h x ->

@@ -119,10 +119,9 @@ cpeToken = lens _cpeToken (\ s a -> s{_cpeToken = a});  instance AWSRequest CreatePlatformEndpoint where-        type Sv CreatePlatformEndpoint = SNS         type Rs CreatePlatformEndpoint =              CreatePlatformEndpointResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper "CreatePlatformEndpointResult"               (\ s h x ->

@@ -77,9 +77,8 @@ ctName = lens _ctName (\ s a -> s{_ctName = a});  instance AWSRequest CreateTopic where-        type Sv CreateTopic = SNS         type Rs CreateTopic = CreateTopicResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper "CreateTopicResult"               (\ s h x ->

@@ -67,9 +67,8 @@ deEndpointARN = lens _deEndpointARN (\ s a -> s{_deEndpointARN = a});  instance AWSRequest DeleteEndpoint where-        type Sv DeleteEndpoint = SNS         type Rs DeleteEndpoint = DeleteEndpointResponse-        request = postQuery+        request = postQuery sNS         response = receiveNull DeleteEndpointResponse'  instance ToHeaders DeleteEndpoint where

@@ -67,10 +67,9 @@ dpaPlatformApplicationARN = lens _dpaPlatformApplicationARN (\ s a -> s{_dpaPlatformApplicationARN = a});  instance AWSRequest DeletePlatformApplication where-        type Sv DeletePlatformApplication = SNS         type Rs DeletePlatformApplication =              DeletePlatformApplicationResponse-        request = postQuery+        request = postQuery sNS         response           = receiveNull DeletePlatformApplicationResponse' 

@@ -66,9 +66,8 @@ dtTopicARN = lens _dtTopicARN (\ s a -> s{_dtTopicARN = a});  instance AWSRequest DeleteTopic where-        type Sv DeleteTopic = SNS         type Rs DeleteTopic = DeleteTopicResponse-        request = postQuery+        request = postQuery sNS         response = receiveNull DeleteTopicResponse'  instance ToHeaders DeleteTopic where

@@ -71,10 +71,9 @@ geaEndpointARN = lens _geaEndpointARN (\ s a -> s{_geaEndpointARN = a});  instance AWSRequest GetEndpointAttributes where-        type Sv GetEndpointAttributes = SNS         type Rs GetEndpointAttributes =              GetEndpointAttributesResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper "GetEndpointAttributesResult"               (\ s h x ->

@@ -72,10 +72,9 @@  instance AWSRequest GetPlatformApplicationAttributes          where-        type Sv GetPlatformApplicationAttributes = SNS         type Rs GetPlatformApplicationAttributes =              GetPlatformApplicationAttributesResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper               "GetPlatformApplicationAttributesResult"

@@ -68,10 +68,9 @@ gsaSubscriptionARN = lens _gsaSubscriptionARN (\ s a -> s{_gsaSubscriptionARN = a});  instance AWSRequest GetSubscriptionAttributes where-        type Sv GetSubscriptionAttributes = SNS         type Rs GetSubscriptionAttributes =              GetSubscriptionAttributesResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper "GetSubscriptionAttributesResult"               (\ s h x ->

@@ -69,10 +69,9 @@ gtaTopicARN = lens _gtaTopicARN (\ s a -> s{_gtaTopicARN = a});  instance AWSRequest GetTopicAttributes where-        type Sv GetTopicAttributes = SNS         type Rs GetTopicAttributes =              GetTopicAttributesResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper "GetTopicAttributesResult"               (\ s h x ->

@@ -102,10 +102,9 @@  instance AWSRequest          ListEndpointsByPlatformApplication where-        type Sv ListEndpointsByPlatformApplication = SNS         type Rs ListEndpointsByPlatformApplication =              ListEndpointsByPlatformApplicationResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper               "ListEndpointsByPlatformApplicationResult"

@@ -88,10 +88,9 @@             Just $ rq & lpaNextToken .~ rs ^. lparsNextToken  instance AWSRequest ListPlatformApplications where-        type Sv ListPlatformApplications = SNS         type Rs ListPlatformApplications =              ListPlatformApplicationsResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper "ListPlatformApplicationsResult"               (\ s h x ->

@@ -81,9 +81,8 @@             Just $ rq & lsNextToken .~ rs ^. lsrsNextToken  instance AWSRequest ListSubscriptions where-        type Sv ListSubscriptions = SNS         type Rs ListSubscriptions = ListSubscriptionsResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper "ListSubscriptionsResult"               (\ s h x ->

@@ -92,10 +92,9 @@             Just $ rq & lsbtNextToken .~ rs ^. lsbtrsNextToken  instance AWSRequest ListSubscriptionsByTopic where-        type Sv ListSubscriptionsByTopic = SNS         type Rs ListSubscriptionsByTopic =              ListSubscriptionsByTopicResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper "ListSubscriptionsByTopicResult"               (\ s h x ->

@@ -79,9 +79,8 @@             Just $ rq & ltNextToken .~ rs ^. ltrsNextToken  instance AWSRequest ListTopics where-        type Sv ListTopics = SNS         type Rs ListTopics = ListTopicsResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper "ListTopicsResult"               (\ s h x ->

@@ -177,9 +177,8 @@ pMessage = lens _pMessage (\ s a -> s{_pMessage = a});  instance AWSRequest Publish where-        type Sv Publish = SNS         type Rs Publish = PublishResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper "PublishResult"               (\ s h x ->

@@ -75,9 +75,8 @@ rpLabel = lens _rpLabel (\ s a -> s{_rpLabel = a});  instance AWSRequest RemovePermission where-        type Sv RemovePermission = SNS         type Rs RemovePermission = RemovePermissionResponse-        request = postQuery+        request = postQuery sNS         response = receiveNull RemovePermissionResponse'  instance ToHeaders RemovePermission where

@@ -90,10 +90,9 @@ seaAttributes = lens _seaAttributes (\ s a -> s{_seaAttributes = a}) . _Map;  instance AWSRequest SetEndpointAttributes where-        type Sv SetEndpointAttributes = SNS         type Rs SetEndpointAttributes =              SetEndpointAttributesResponse-        request = postQuery+        request = postQuery sNS         response = receiveNull SetEndpointAttributesResponse'  instance ToHeaders SetEndpointAttributes where

@@ -97,10 +97,9 @@  instance AWSRequest SetPlatformApplicationAttributes          where-        type Sv SetPlatformApplicationAttributes = SNS         type Rs SetPlatformApplicationAttributes =              SetPlatformApplicationAttributesResponse-        request = postQuery+        request = postQuery sNS         response           = receiveNull               SetPlatformApplicationAttributesResponse'

@@ -88,10 +88,9 @@ ssaAttributeName = lens _ssaAttributeName (\ s a -> s{_ssaAttributeName = a});  instance AWSRequest SetSubscriptionAttributes where-        type Sv SetSubscriptionAttributes = SNS         type Rs SetSubscriptionAttributes =              SetSubscriptionAttributesResponse-        request = postQuery+        request = postQuery sNS         response           = receiveNull SetSubscriptionAttributesResponse' 

@@ -87,10 +87,9 @@ staAttributeName = lens _staAttributeName (\ s a -> s{_staAttributeName = a});  instance AWSRequest SetTopicAttributes where-        type Sv SetTopicAttributes = SNS         type Rs SetTopicAttributes =              SetTopicAttributesResponse-        request = postQuery+        request = postQuery sNS         response = receiveNull SetTopicAttributesResponse'  instance ToHeaders SetTopicAttributes where

@@ -113,9 +113,8 @@ subProtocol = lens _subProtocol (\ s a -> s{_subProtocol = a});  instance AWSRequest Subscribe where-        type Sv Subscribe = SNS         type Rs Subscribe = SubscribeResponse-        request = postQuery+        request = postQuery sNS         response           = receiveXMLWrapper "SubscribeResult"               (\ s h x ->

@@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}  -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.SNS.Types     (-    -- * Service-      SNS+    -- * Service Configuration+      sNS      -- * Errors     , _EndpointDisabledException@@ -66,39 +65,36 @@ import           Network.AWS.SNS.Types.Product import           Network.AWS.SNS.Types.Sum --- | Version @2010-03-31@ of the Amazon Simple Notification Service SDK.-data SNS--instance AWSService SNS where-    type Sg SNS = V4-    service = const svc-      where-        svc =-            Service-            { _svcAbbrev = "SNS"-            , _svcPrefix = "sns"-            , _svcVersion = "2010-03-31"-            , _svcEndpoint = defaultEndpoint svc-            , _svcTimeout = Just 70-            , _svcStatus = statusSuccess-            , _svcError = parseXMLError-            , _svcRetry = retry-            }-        retry =-            Exponential-            { _retryBase = 5.0e-2-            , _retryGrowth = 2-            , _retryAttempts = 5-            , _retryCheck = check-            }-        check e-          | has (hasCode "ThrottlingException" . hasStatus 400) e =-              Just "throttling_exception"-          | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-          | has (hasStatus 503) e = Just "service_unavailable"-          | has (hasStatus 500) e = Just "general_server_error"-          | has (hasStatus 509) e = Just "limit_exceeded"-          | otherwise = Nothing+-- | API version '2010-03-31' of the Amazon Simple Notification Service SDK configuration.+sNS :: Service+sNS =+    Service+    { _svcAbbrev = "SNS"+    , _svcSigner = v4+    , _svcPrefix = "sns"+    , _svcVersion = "2010-03-31"+    , _svcEndpoint = defaultEndpoint sNS+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError+    , _svcRetry = retry+    }+  where+    retry =+        Exponential+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }+    check e+      | has (hasCode "ThrottlingException" . hasStatus 400) e =+          Just "throttling_exception"+      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 503) e = Just "service_unavailable"+      | has (hasStatus 500) e = Just "general_server_error"+      | has (hasStatus 509) e = Just "limit_exceeded"+      | otherwise = Nothing  -- | Exception error indicating endpoint disabled. _EndpointDisabledException :: AsError a => Getting (First ServiceError) a ServiceError

@@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE OverloadedStrings  #-} {-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-} 

@@ -71,9 +71,8 @@ uSubscriptionARN = lens _uSubscriptionARN (\ s a -> s{_uSubscriptionARN = a});  instance AWSRequest Unsubscribe where-        type Sv Unsubscribe = SNS         type Rs Unsubscribe = UnsubscribeResponse-        request = postQuery+        request = postQuery sNS         response = receiveNull UnsubscribeResponse'  instance ToHeaders Unsubscribe where

@@ -317,148 +317,173 @@ testDeleteEndpointResponse = res     "DeleteEndpointResponse"     "fixture/DeleteEndpointResponse"+    sNS     (Proxy :: Proxy DeleteEndpoint)  testRemovePermissionResponse :: RemovePermissionResponse -> TestTree testRemovePermissionResponse = res     "RemovePermissionResponse"     "fixture/RemovePermissionResponse"+    sNS     (Proxy :: Proxy RemovePermission)  testSetPlatformApplicationAttributesResponse :: SetPlatformApplicationAttributesResponse -> TestTree testSetPlatformApplicationAttributesResponse = res     "SetPlatformApplicationAttributesResponse"     "fixture/SetPlatformApplicationAttributesResponse"+    sNS     (Proxy :: Proxy SetPlatformApplicationAttributes)  testCreatePlatformEndpointResponse :: CreatePlatformEndpointResponse -> TestTree testCreatePlatformEndpointResponse = res     "CreatePlatformEndpointResponse"     "fixture/CreatePlatformEndpointResponse"+    sNS     (Proxy :: Proxy CreatePlatformEndpoint)  testListSubscriptionsByTopicResponse :: ListSubscriptionsByTopicResponse -> TestTree testListSubscriptionsByTopicResponse = res     "ListSubscriptionsByTopicResponse"     "fixture/ListSubscriptionsByTopicResponse"+    sNS     (Proxy :: Proxy ListSubscriptionsByTopic)  testGetTopicAttributesResponse :: GetTopicAttributesResponse -> TestTree testGetTopicAttributesResponse = res     "GetTopicAttributesResponse"     "fixture/GetTopicAttributesResponse"+    sNS     (Proxy :: Proxy GetTopicAttributes)  testDeleteTopicResponse :: DeleteTopicResponse -> TestTree testDeleteTopicResponse = res     "DeleteTopicResponse"     "fixture/DeleteTopicResponse"+    sNS     (Proxy :: Proxy DeleteTopic)  testListTopicsResponse :: ListTopicsResponse -> TestTree testListTopicsResponse = res     "ListTopicsResponse"     "fixture/ListTopicsResponse"+    sNS     (Proxy :: Proxy ListTopics)  testCreatePlatformApplicationResponse :: CreatePlatformApplicationResponse -> TestTree testCreatePlatformApplicationResponse = res     "CreatePlatformApplicationResponse"     "fixture/CreatePlatformApplicationResponse"+    sNS     (Proxy :: Proxy CreatePlatformApplication)  testListEndpointsByPlatformApplicationResponse :: ListEndpointsByPlatformApplicationResponse -> TestTree testListEndpointsByPlatformApplicationResponse = res     "ListEndpointsByPlatformApplicationResponse"     "fixture/ListEndpointsByPlatformApplicationResponse"+    sNS     (Proxy :: Proxy ListEndpointsByPlatformApplication)  testGetPlatformApplicationAttributesResponse :: GetPlatformApplicationAttributesResponse -> TestTree testGetPlatformApplicationAttributesResponse = res     "GetPlatformApplicationAttributesResponse"     "fixture/GetPlatformApplicationAttributesResponse"+    sNS     (Proxy :: Proxy GetPlatformApplicationAttributes)  testDeletePlatformApplicationResponse :: DeletePlatformApplicationResponse -> TestTree testDeletePlatformApplicationResponse = res     "DeletePlatformApplicationResponse"     "fixture/DeletePlatformApplicationResponse"+    sNS     (Proxy :: Proxy DeletePlatformApplication)  testListPlatformApplicationsResponse :: ListPlatformApplicationsResponse -> TestTree testListPlatformApplicationsResponse = res     "ListPlatformApplicationsResponse"     "fixture/ListPlatformApplicationsResponse"+    sNS     (Proxy :: Proxy ListPlatformApplications)  testSetTopicAttributesResponse :: SetTopicAttributesResponse -> TestTree testSetTopicAttributesResponse = res     "SetTopicAttributesResponse"     "fixture/SetTopicAttributesResponse"+    sNS     (Proxy :: Proxy SetTopicAttributes)  testGetEndpointAttributesResponse :: GetEndpointAttributesResponse -> TestTree testGetEndpointAttributesResponse = res     "GetEndpointAttributesResponse"     "fixture/GetEndpointAttributesResponse"+    sNS     (Proxy :: Proxy GetEndpointAttributes)  testAddPermissionResponse :: AddPermissionResponse -> TestTree testAddPermissionResponse = res     "AddPermissionResponse"     "fixture/AddPermissionResponse"+    sNS     (Proxy :: Proxy AddPermission)  testGetSubscriptionAttributesResponse :: GetSubscriptionAttributesResponse -> TestTree testGetSubscriptionAttributesResponse = res     "GetSubscriptionAttributesResponse"     "fixture/GetSubscriptionAttributesResponse"+    sNS     (Proxy :: Proxy GetSubscriptionAttributes)  testListSubscriptionsResponse :: ListSubscriptionsResponse -> TestTree testListSubscriptionsResponse = res     "ListSubscriptionsResponse"     "fixture/ListSubscriptionsResponse"+    sNS     (Proxy :: Proxy ListSubscriptions)  testCreateTopicResponse :: CreateTopicResponse -> TestTree testCreateTopicResponse = res     "CreateTopicResponse"     "fixture/CreateTopicResponse"+    sNS     (Proxy :: Proxy CreateTopic)  testSubscribeResponse :: SubscribeResponse -> TestTree testSubscribeResponse = res     "SubscribeResponse"     "fixture/SubscribeResponse"+    sNS     (Proxy :: Proxy Subscribe)  testUnsubscribeResponse :: UnsubscribeResponse -> TestTree testUnsubscribeResponse = res     "UnsubscribeResponse"     "fixture/UnsubscribeResponse"+    sNS     (Proxy :: Proxy Unsubscribe)  testSetEndpointAttributesResponse :: SetEndpointAttributesResponse -> TestTree testSetEndpointAttributesResponse = res     "SetEndpointAttributesResponse"     "fixture/SetEndpointAttributesResponse"+    sNS     (Proxy :: Proxy SetEndpointAttributes)  testSetSubscriptionAttributesResponse :: SetSubscriptionAttributesResponse -> TestTree testSetSubscriptionAttributesResponse = res     "SetSubscriptionAttributesResponse"     "fixture/SetSubscriptionAttributesResponse"+    sNS     (Proxy :: Proxy SetSubscriptionAttributes)  testConfirmSubscriptionResponse :: ConfirmSubscriptionResponse -> TestTree testConfirmSubscriptionResponse = res     "ConfirmSubscriptionResponse"     "fixture/ConfirmSubscriptionResponse"+    sNS     (Proxy :: Proxy ConfirmSubscription)  testPublishResponse :: PublishResponse -> TestTree testPublishResponse = res     "PublishResponse"     "fixture/PublishResponse"+    sNS     (Proxy :: Proxy Publish)