diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.1.0` +`1.2.0` ## Description diff --git a/amazonka-sns.cabal b/amazonka-sns.cabal --- a/amazonka-sns.cabal +++ b/amazonka-sns.cabal @@ -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 diff --git a/gen/Network/AWS/SNS.hs b/gen/Network/AWS/SNS.hs --- a/gen/Network/AWS/SNS.hs +++ b/gen/Network/AWS/SNS.hs @@ -33,8 +33,8 @@ -- /See:/ module Network.AWS.SNS ( - -- * Service - SNS + -- * Service Configuration + sNS -- * Errors -- $errors diff --git a/gen/Network/AWS/SNS/AddPermission.hs b/gen/Network/AWS/SNS/AddPermission.hs --- a/gen/Network/AWS/SNS/AddPermission.hs +++ b/gen/Network/AWS/SNS/AddPermission.hs @@ -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 diff --git a/gen/Network/AWS/SNS/ConfirmSubscription.hs b/gen/Network/AWS/SNS/ConfirmSubscription.hs --- a/gen/Network/AWS/SNS/ConfirmSubscription.hs +++ b/gen/Network/AWS/SNS/ConfirmSubscription.hs @@ -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 -> diff --git a/gen/Network/AWS/SNS/CreatePlatformApplication.hs b/gen/Network/AWS/SNS/CreatePlatformApplication.hs --- a/gen/Network/AWS/SNS/CreatePlatformApplication.hs +++ b/gen/Network/AWS/SNS/CreatePlatformApplication.hs @@ -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 -> diff --git a/gen/Network/AWS/SNS/CreatePlatformEndpoint.hs b/gen/Network/AWS/SNS/CreatePlatformEndpoint.hs --- a/gen/Network/AWS/SNS/CreatePlatformEndpoint.hs +++ b/gen/Network/AWS/SNS/CreatePlatformEndpoint.hs @@ -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 -> diff --git a/gen/Network/AWS/SNS/CreateTopic.hs b/gen/Network/AWS/SNS/CreateTopic.hs --- a/gen/Network/AWS/SNS/CreateTopic.hs +++ b/gen/Network/AWS/SNS/CreateTopic.hs @@ -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 -> diff --git a/gen/Network/AWS/SNS/DeleteEndpoint.hs b/gen/Network/AWS/SNS/DeleteEndpoint.hs --- a/gen/Network/AWS/SNS/DeleteEndpoint.hs +++ b/gen/Network/AWS/SNS/DeleteEndpoint.hs @@ -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 diff --git a/gen/Network/AWS/SNS/DeletePlatformApplication.hs b/gen/Network/AWS/SNS/DeletePlatformApplication.hs --- a/gen/Network/AWS/SNS/DeletePlatformApplication.hs +++ b/gen/Network/AWS/SNS/DeletePlatformApplication.hs @@ -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' diff --git a/gen/Network/AWS/SNS/DeleteTopic.hs b/gen/Network/AWS/SNS/DeleteTopic.hs --- a/gen/Network/AWS/SNS/DeleteTopic.hs +++ b/gen/Network/AWS/SNS/DeleteTopic.hs @@ -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 diff --git a/gen/Network/AWS/SNS/GetEndpointAttributes.hs b/gen/Network/AWS/SNS/GetEndpointAttributes.hs --- a/gen/Network/AWS/SNS/GetEndpointAttributes.hs +++ b/gen/Network/AWS/SNS/GetEndpointAttributes.hs @@ -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 -> diff --git a/gen/Network/AWS/SNS/GetPlatformApplicationAttributes.hs b/gen/Network/AWS/SNS/GetPlatformApplicationAttributes.hs --- a/gen/Network/AWS/SNS/GetPlatformApplicationAttributes.hs +++ b/gen/Network/AWS/SNS/GetPlatformApplicationAttributes.hs @@ -72,10 +72,9 @@ instance AWSRequest GetPlatformApplicationAttributes where - type Sv GetPlatformApplicationAttributes = SNS type Rs GetPlatformApplicationAttributes = GetPlatformApplicationAttributesResponse - request = postQuery + request = postQuery sNS response = receiveXMLWrapper "GetPlatformApplicationAttributesResult" diff --git a/gen/Network/AWS/SNS/GetSubscriptionAttributes.hs b/gen/Network/AWS/SNS/GetSubscriptionAttributes.hs --- a/gen/Network/AWS/SNS/GetSubscriptionAttributes.hs +++ b/gen/Network/AWS/SNS/GetSubscriptionAttributes.hs @@ -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 -> diff --git a/gen/Network/AWS/SNS/GetTopicAttributes.hs b/gen/Network/AWS/SNS/GetTopicAttributes.hs --- a/gen/Network/AWS/SNS/GetTopicAttributes.hs +++ b/gen/Network/AWS/SNS/GetTopicAttributes.hs @@ -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 -> diff --git a/gen/Network/AWS/SNS/ListEndpointsByPlatformApplication.hs b/gen/Network/AWS/SNS/ListEndpointsByPlatformApplication.hs --- a/gen/Network/AWS/SNS/ListEndpointsByPlatformApplication.hs +++ b/gen/Network/AWS/SNS/ListEndpointsByPlatformApplication.hs @@ -102,10 +102,9 @@ instance AWSRequest ListEndpointsByPlatformApplication where - type Sv ListEndpointsByPlatformApplication = SNS type Rs ListEndpointsByPlatformApplication = ListEndpointsByPlatformApplicationResponse - request = postQuery + request = postQuery sNS response = receiveXMLWrapper "ListEndpointsByPlatformApplicationResult" diff --git a/gen/Network/AWS/SNS/ListPlatformApplications.hs b/gen/Network/AWS/SNS/ListPlatformApplications.hs --- a/gen/Network/AWS/SNS/ListPlatformApplications.hs +++ b/gen/Network/AWS/SNS/ListPlatformApplications.hs @@ -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 -> diff --git a/gen/Network/AWS/SNS/ListSubscriptions.hs b/gen/Network/AWS/SNS/ListSubscriptions.hs --- a/gen/Network/AWS/SNS/ListSubscriptions.hs +++ b/gen/Network/AWS/SNS/ListSubscriptions.hs @@ -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 -> diff --git a/gen/Network/AWS/SNS/ListSubscriptionsByTopic.hs b/gen/Network/AWS/SNS/ListSubscriptionsByTopic.hs --- a/gen/Network/AWS/SNS/ListSubscriptionsByTopic.hs +++ b/gen/Network/AWS/SNS/ListSubscriptionsByTopic.hs @@ -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 -> diff --git a/gen/Network/AWS/SNS/ListTopics.hs b/gen/Network/AWS/SNS/ListTopics.hs --- a/gen/Network/AWS/SNS/ListTopics.hs +++ b/gen/Network/AWS/SNS/ListTopics.hs @@ -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 -> diff --git a/gen/Network/AWS/SNS/Publish.hs b/gen/Network/AWS/SNS/Publish.hs --- a/gen/Network/AWS/SNS/Publish.hs +++ b/gen/Network/AWS/SNS/Publish.hs @@ -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 -> diff --git a/gen/Network/AWS/SNS/RemovePermission.hs b/gen/Network/AWS/SNS/RemovePermission.hs --- a/gen/Network/AWS/SNS/RemovePermission.hs +++ b/gen/Network/AWS/SNS/RemovePermission.hs @@ -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 diff --git a/gen/Network/AWS/SNS/SetEndpointAttributes.hs b/gen/Network/AWS/SNS/SetEndpointAttributes.hs --- a/gen/Network/AWS/SNS/SetEndpointAttributes.hs +++ b/gen/Network/AWS/SNS/SetEndpointAttributes.hs @@ -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 diff --git a/gen/Network/AWS/SNS/SetPlatformApplicationAttributes.hs b/gen/Network/AWS/SNS/SetPlatformApplicationAttributes.hs --- a/gen/Network/AWS/SNS/SetPlatformApplicationAttributes.hs +++ b/gen/Network/AWS/SNS/SetPlatformApplicationAttributes.hs @@ -97,10 +97,9 @@ instance AWSRequest SetPlatformApplicationAttributes where - type Sv SetPlatformApplicationAttributes = SNS type Rs SetPlatformApplicationAttributes = SetPlatformApplicationAttributesResponse - request = postQuery + request = postQuery sNS response = receiveNull SetPlatformApplicationAttributesResponse' diff --git a/gen/Network/AWS/SNS/SetSubscriptionAttributes.hs b/gen/Network/AWS/SNS/SetSubscriptionAttributes.hs --- a/gen/Network/AWS/SNS/SetSubscriptionAttributes.hs +++ b/gen/Network/AWS/SNS/SetSubscriptionAttributes.hs @@ -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' diff --git a/gen/Network/AWS/SNS/SetTopicAttributes.hs b/gen/Network/AWS/SNS/SetTopicAttributes.hs --- a/gen/Network/AWS/SNS/SetTopicAttributes.hs +++ b/gen/Network/AWS/SNS/SetTopicAttributes.hs @@ -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 diff --git a/gen/Network/AWS/SNS/Subscribe.hs b/gen/Network/AWS/SNS/Subscribe.hs --- a/gen/Network/AWS/SNS/Subscribe.hs +++ b/gen/Network/AWS/SNS/Subscribe.hs @@ -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 -> diff --git a/gen/Network/AWS/SNS/Types.hs b/gen/Network/AWS/SNS/Types.hs --- a/gen/Network/AWS/SNS/Types.hs +++ b/gen/Network/AWS/SNS/Types.hs @@ -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 diff --git a/gen/Network/AWS/SNS/Types/Product.hs b/gen/Network/AWS/SNS/Types/Product.hs --- a/gen/Network/AWS/SNS/Types/Product.hs +++ b/gen/Network/AWS/SNS/Types/Product.hs @@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} diff --git a/gen/Network/AWS/SNS/Unsubscribe.hs b/gen/Network/AWS/SNS/Unsubscribe.hs --- a/gen/Network/AWS/SNS/Unsubscribe.hs +++ b/gen/Network/AWS/SNS/Unsubscribe.hs @@ -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 diff --git a/test/Test/AWS/Gen/SNS.hs b/test/Test/AWS/Gen/SNS.hs --- a/test/Test/AWS/Gen/SNS.hs +++ b/test/Test/AWS/Gen/SNS.hs @@ -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)