diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.2.0.2` +`1.3.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.2.0.2 +version: 1.3.0 synopsis: Amazon Simple Notification Service SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -91,7 +91,7 @@ , Network.AWS.SNS.Types.Sum build-depends: - amazonka-core == 1.2.0.* + amazonka-core == 1.3.0.* , base >= 4.7 && < 5 test-suite amazonka-sns-test @@ -111,9 +111,9 @@ , Test.AWS.SNS.Internal build-depends: - amazonka-core == 1.2.0.* - , amazonka-test == 1.2.0.* - , amazonka-sns == 1.2.0.* + amazonka-core == 1.3.0.* + , amazonka-test == 1.3.0.* + , amazonka-sns == 1.3.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 @@ -57,12 +57,12 @@ -- ** InternalErrorException , _InternalErrorException - -- ** NotFoundException - , _NotFoundException - -- ** InvalidParameterValueException , _InvalidParameterValueException + -- ** NotFoundException + , _NotFoundException + -- ** TopicLimitExceededException , _TopicLimitExceededException @@ -78,32 +78,35 @@ -- ** RemovePermission , module Network.AWS.SNS.RemovePermission - -- ** SetPlatformApplicationAttributes - , module Network.AWS.SNS.SetPlatformApplicationAttributes + -- ** DeleteTopic + , module Network.AWS.SNS.DeleteTopic + -- ** ListTopics (Paginated) + , module Network.AWS.SNS.ListTopics + -- ** CreatePlatformEndpoint , module Network.AWS.SNS.CreatePlatformEndpoint + -- ** SetPlatformApplicationAttributes + , module Network.AWS.SNS.SetPlatformApplicationAttributes + -- ** ListSubscriptionsByTopic (Paginated) , module Network.AWS.SNS.ListSubscriptionsByTopic -- ** GetTopicAttributes , module Network.AWS.SNS.GetTopicAttributes - -- ** DeleteTopic - , module Network.AWS.SNS.DeleteTopic - - -- ** ListTopics (Paginated) - , module Network.AWS.SNS.ListTopics - -- ** CreatePlatformApplication , module Network.AWS.SNS.CreatePlatformApplication + -- ** GetPlatformApplicationAttributes + , module Network.AWS.SNS.GetPlatformApplicationAttributes + -- ** ListEndpointsByPlatformApplication (Paginated) , module Network.AWS.SNS.ListEndpointsByPlatformApplication - -- ** GetPlatformApplicationAttributes - , module Network.AWS.SNS.GetPlatformApplicationAttributes + -- ** SetTopicAttributes + , module Network.AWS.SNS.SetTopicAttributes -- ** DeletePlatformApplication , module Network.AWS.SNS.DeletePlatformApplication @@ -111,20 +114,17 @@ -- ** ListPlatformApplications (Paginated) , module Network.AWS.SNS.ListPlatformApplications - -- ** SetTopicAttributes - , module Network.AWS.SNS.SetTopicAttributes + -- ** AddPermission + , module Network.AWS.SNS.AddPermission -- ** GetEndpointAttributes , module Network.AWS.SNS.GetEndpointAttributes - -- ** AddPermission - , module Network.AWS.SNS.AddPermission + -- ** ListSubscriptions (Paginated) + , module Network.AWS.SNS.ListSubscriptions -- ** GetSubscriptionAttributes , module Network.AWS.SNS.GetSubscriptionAttributes - - -- ** ListSubscriptions (Paginated) - , module Network.AWS.SNS.ListSubscriptions -- ** CreateTopic , module Network.AWS.SNS.CreateTopic 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 @@ -40,7 +40,7 @@ , ConfirmSubscriptionResponse -- * Response Lenses , csrsSubscriptionARN - , csrsStatus + , csrsResponseStatus ) where import Network.AWS.Prelude @@ -123,7 +123,7 @@ -- /See:/ 'confirmSubscriptionResponse' smart constructor. data ConfirmSubscriptionResponse = ConfirmSubscriptionResponse' { _csrsSubscriptionARN :: !(Maybe Text) - , _csrsStatus :: !Int + , _csrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ConfirmSubscriptionResponse' with the minimum fields required to make a request. @@ -132,14 +132,14 @@ -- -- * 'csrsSubscriptionARN' -- --- * 'csrsStatus' +-- * 'csrsResponseStatus' confirmSubscriptionResponse - :: Int -- ^ 'csrsStatus' + :: Int -- ^ 'csrsResponseStatus' -> ConfirmSubscriptionResponse -confirmSubscriptionResponse pStatus_ = +confirmSubscriptionResponse pResponseStatus_ = ConfirmSubscriptionResponse' { _csrsSubscriptionARN = Nothing - , _csrsStatus = pStatus_ + , _csrsResponseStatus = pResponseStatus_ } -- | The ARN of the created subscription. @@ -147,5 +147,5 @@ csrsSubscriptionARN = lens _csrsSubscriptionARN (\ s a -> s{_csrsSubscriptionARN = a}); -- | The response status code. -csrsStatus :: Lens' ConfirmSubscriptionResponse Int -csrsStatus = lens _csrsStatus (\ s a -> s{_csrsStatus = a}); +csrsResponseStatus :: Lens' ConfirmSubscriptionResponse Int +csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a}); 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 @@ -50,7 +50,7 @@ , CreatePlatformApplicationResponse -- * Response Lenses , cparsPlatformApplicationARN - , cparsStatus + , cparsResponseStatus ) where import Network.AWS.Prelude @@ -137,7 +137,7 @@ -- /See:/ 'createPlatformApplicationResponse' smart constructor. data CreatePlatformApplicationResponse = CreatePlatformApplicationResponse' { _cparsPlatformApplicationARN :: !(Maybe Text) - , _cparsStatus :: !Int + , _cparsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreatePlatformApplicationResponse' with the minimum fields required to make a request. @@ -146,14 +146,14 @@ -- -- * 'cparsPlatformApplicationARN' -- --- * 'cparsStatus' +-- * 'cparsResponseStatus' createPlatformApplicationResponse - :: Int -- ^ 'cparsStatus' + :: Int -- ^ 'cparsResponseStatus' -> CreatePlatformApplicationResponse -createPlatformApplicationResponse pStatus_ = +createPlatformApplicationResponse pResponseStatus_ = CreatePlatformApplicationResponse' { _cparsPlatformApplicationARN = Nothing - , _cparsStatus = pStatus_ + , _cparsResponseStatus = pResponseStatus_ } -- | PlatformApplicationArn is returned. @@ -161,5 +161,5 @@ cparsPlatformApplicationARN = lens _cparsPlatformApplicationARN (\ s a -> s{_cparsPlatformApplicationARN = a}); -- | The response status code. -cparsStatus :: Lens' CreatePlatformApplicationResponse Int -cparsStatus = lens _cparsStatus (\ s a -> s{_cparsStatus = a}); +cparsResponseStatus :: Lens' CreatePlatformApplicationResponse Int +cparsResponseStatus = lens _cparsResponseStatus (\ s a -> s{_cparsResponseStatus = a}); 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 @@ -52,7 +52,7 @@ , CreatePlatformEndpointResponse -- * Response Lenses , cpersEndpointARN - , cpersStatus + , cpersResponseStatus ) where import Network.AWS.Prelude @@ -153,8 +153,8 @@ -- -- /See:/ 'createPlatformEndpointResponse' smart constructor. data CreatePlatformEndpointResponse = CreatePlatformEndpointResponse' - { _cpersEndpointARN :: !(Maybe Text) - , _cpersStatus :: !Int + { _cpersEndpointARN :: !(Maybe Text) + , _cpersResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreatePlatformEndpointResponse' with the minimum fields required to make a request. @@ -163,14 +163,14 @@ -- -- * 'cpersEndpointARN' -- --- * 'cpersStatus' +-- * 'cpersResponseStatus' createPlatformEndpointResponse - :: Int -- ^ 'cpersStatus' + :: Int -- ^ 'cpersResponseStatus' -> CreatePlatformEndpointResponse -createPlatformEndpointResponse pStatus_ = +createPlatformEndpointResponse pResponseStatus_ = CreatePlatformEndpointResponse' { _cpersEndpointARN = Nothing - , _cpersStatus = pStatus_ + , _cpersResponseStatus = pResponseStatus_ } -- | EndpointArn returned from CreateEndpoint action. @@ -178,5 +178,5 @@ cpersEndpointARN = lens _cpersEndpointARN (\ s a -> s{_cpersEndpointARN = a}); -- | The response status code. -cpersStatus :: Lens' CreatePlatformEndpointResponse Int -cpersStatus = lens _cpersStatus (\ s a -> s{_cpersStatus = a}); +cpersResponseStatus :: Lens' CreatePlatformEndpointResponse Int +cpersResponseStatus = lens _cpersResponseStatus (\ s a -> s{_cpersResponseStatus = a}); 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 @@ -39,7 +39,7 @@ , CreateTopicResponse -- * Response Lenses , ctrsTopicARN - , ctrsStatus + , ctrsResponseStatus ) where import Network.AWS.Prelude @@ -102,8 +102,8 @@ -- -- /See:/ 'createTopicResponse' smart constructor. data CreateTopicResponse = CreateTopicResponse' - { _ctrsTopicARN :: !(Maybe Text) - , _ctrsStatus :: !Int + { _ctrsTopicARN :: !(Maybe Text) + , _ctrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateTopicResponse' with the minimum fields required to make a request. @@ -112,14 +112,14 @@ -- -- * 'ctrsTopicARN' -- --- * 'ctrsStatus' +-- * 'ctrsResponseStatus' createTopicResponse - :: Int -- ^ 'ctrsStatus' + :: Int -- ^ 'ctrsResponseStatus' -> CreateTopicResponse -createTopicResponse pStatus_ = +createTopicResponse pResponseStatus_ = CreateTopicResponse' { _ctrsTopicARN = Nothing - , _ctrsStatus = pStatus_ + , _ctrsResponseStatus = pResponseStatus_ } -- | The Amazon Resource Name (ARN) assigned to the created topic. @@ -127,5 +127,5 @@ ctrsTopicARN = lens _ctrsTopicARN (\ s a -> s{_ctrsTopicARN = a}); -- | The response status code. -ctrsStatus :: Lens' CreateTopicResponse Int -ctrsStatus = lens _ctrsStatus (\ s a -> s{_ctrsStatus = a}); +ctrsResponseStatus :: Lens' CreateTopicResponse Int +ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a}); 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 @@ -37,7 +37,7 @@ , GetEndpointAttributesResponse -- * Response Lenses , gearsAttributes - , gearsStatus + , gearsResponseStatus ) where import Network.AWS.Prelude @@ -99,8 +99,8 @@ -- -- /See:/ 'getEndpointAttributesResponse' smart constructor. data GetEndpointAttributesResponse = GetEndpointAttributesResponse' - { _gearsAttributes :: !(Maybe (Map Text Text)) - , _gearsStatus :: !Int + { _gearsAttributes :: !(Maybe (Map Text Text)) + , _gearsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetEndpointAttributesResponse' with the minimum fields required to make a request. @@ -109,14 +109,14 @@ -- -- * 'gearsAttributes' -- --- * 'gearsStatus' +-- * 'gearsResponseStatus' getEndpointAttributesResponse - :: Int -- ^ 'gearsStatus' + :: Int -- ^ 'gearsResponseStatus' -> GetEndpointAttributesResponse -getEndpointAttributesResponse pStatus_ = +getEndpointAttributesResponse pResponseStatus_ = GetEndpointAttributesResponse' { _gearsAttributes = Nothing - , _gearsStatus = pStatus_ + , _gearsResponseStatus = pResponseStatus_ } -- | Attributes include the following: @@ -136,5 +136,5 @@ gearsAttributes = lens _gearsAttributes (\ s a -> s{_gearsAttributes = a}) . _Default . _Map; -- | The response status code. -gearsStatus :: Lens' GetEndpointAttributesResponse Int -gearsStatus = lens _gearsStatus (\ s a -> s{_gearsStatus = a}); +gearsResponseStatus :: Lens' GetEndpointAttributesResponse Int +gearsResponseStatus = lens _gearsResponseStatus (\ s a -> s{_gearsResponseStatus = a}); 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 @@ -37,7 +37,7 @@ , GetPlatformApplicationAttributesResponse -- * Response Lenses , gpaarsAttributes - , gpaarsStatus + , gpaarsResponseStatus ) where import Network.AWS.Prelude @@ -106,8 +106,8 @@ -- -- /See:/ 'getPlatformApplicationAttributesResponse' smart constructor. data GetPlatformApplicationAttributesResponse = GetPlatformApplicationAttributesResponse' - { _gpaarsAttributes :: !(Maybe (Map Text Text)) - , _gpaarsStatus :: !Int + { _gpaarsAttributes :: !(Maybe (Map Text Text)) + , _gpaarsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetPlatformApplicationAttributesResponse' with the minimum fields required to make a request. @@ -116,14 +116,14 @@ -- -- * 'gpaarsAttributes' -- --- * 'gpaarsStatus' +-- * 'gpaarsResponseStatus' getPlatformApplicationAttributesResponse - :: Int -- ^ 'gpaarsStatus' + :: Int -- ^ 'gpaarsResponseStatus' -> GetPlatformApplicationAttributesResponse -getPlatformApplicationAttributesResponse pStatus_ = +getPlatformApplicationAttributesResponse pResponseStatus_ = GetPlatformApplicationAttributesResponse' { _gpaarsAttributes = Nothing - , _gpaarsStatus = pStatus_ + , _gpaarsResponseStatus = pResponseStatus_ } -- | Attributes include the following: @@ -141,5 +141,5 @@ gpaarsAttributes = lens _gpaarsAttributes (\ s a -> s{_gpaarsAttributes = a}) . _Default . _Map; -- | The response status code. -gpaarsStatus :: Lens' GetPlatformApplicationAttributesResponse Int -gpaarsStatus = lens _gpaarsStatus (\ s a -> s{_gpaarsStatus = a}); +gpaarsResponseStatus :: Lens' GetPlatformApplicationAttributesResponse Int +gpaarsResponseStatus = lens _gpaarsResponseStatus (\ s a -> s{_gpaarsResponseStatus = a}); 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 @@ -34,7 +34,7 @@ , GetSubscriptionAttributesResponse -- * Response Lenses , gsarsAttributes - , gsarsStatus + , gsarsResponseStatus ) where import Network.AWS.Prelude @@ -97,8 +97,8 @@ -- -- /See:/ 'getSubscriptionAttributesResponse' smart constructor. data GetSubscriptionAttributesResponse = GetSubscriptionAttributesResponse' - { _gsarsAttributes :: !(Maybe (Map Text Text)) - , _gsarsStatus :: !Int + { _gsarsAttributes :: !(Maybe (Map Text Text)) + , _gsarsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetSubscriptionAttributesResponse' with the minimum fields required to make a request. @@ -107,14 +107,14 @@ -- -- * 'gsarsAttributes' -- --- * 'gsarsStatus' +-- * 'gsarsResponseStatus' getSubscriptionAttributesResponse - :: Int -- ^ 'gsarsStatus' + :: Int -- ^ 'gsarsResponseStatus' -> GetSubscriptionAttributesResponse -getSubscriptionAttributesResponse pStatus_ = +getSubscriptionAttributesResponse pResponseStatus_ = GetSubscriptionAttributesResponse' { _gsarsAttributes = Nothing - , _gsarsStatus = pStatus_ + , _gsarsResponseStatus = pResponseStatus_ } -- | A map of the subscription\'s attributes. Attributes in this map include @@ -134,5 +134,5 @@ gsarsAttributes = lens _gsarsAttributes (\ s a -> s{_gsarsAttributes = a}) . _Default . _Map; -- | The response status code. -gsarsStatus :: Lens' GetSubscriptionAttributesResponse Int -gsarsStatus = lens _gsarsStatus (\ s a -> s{_gsarsStatus = a}); +gsarsResponseStatus :: Lens' GetSubscriptionAttributesResponse Int +gsarsResponseStatus = lens _gsarsResponseStatus (\ s a -> s{_gsarsResponseStatus = a}); 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 @@ -35,7 +35,7 @@ , GetTopicAttributesResponse -- * Response Lenses , gtarsAttributes - , gtarsStatus + , gtarsResponseStatus ) where import Network.AWS.Prelude @@ -97,8 +97,8 @@ -- -- /See:/ 'getTopicAttributesResponse' smart constructor. data GetTopicAttributesResponse = GetTopicAttributesResponse' - { _gtarsAttributes :: !(Maybe (Map Text Text)) - , _gtarsStatus :: !Int + { _gtarsAttributes :: !(Maybe (Map Text Text)) + , _gtarsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetTopicAttributesResponse' with the minimum fields required to make a request. @@ -107,14 +107,14 @@ -- -- * 'gtarsAttributes' -- --- * 'gtarsStatus' +-- * 'gtarsResponseStatus' getTopicAttributesResponse - :: Int -- ^ 'gtarsStatus' + :: Int -- ^ 'gtarsResponseStatus' -> GetTopicAttributesResponse -getTopicAttributesResponse pStatus_ = +getTopicAttributesResponse pResponseStatus_ = GetTopicAttributesResponse' { _gtarsAttributes = Nothing - , _gtarsStatus = pStatus_ + , _gtarsResponseStatus = pResponseStatus_ } -- | A map of the topic\'s attributes. Attributes in this map include the @@ -140,5 +140,5 @@ gtarsAttributes = lens _gtarsAttributes (\ s a -> s{_gtarsAttributes = a}) . _Default . _Map; -- | The response status code. -gtarsStatus :: Lens' GetTopicAttributesResponse Int -gtarsStatus = lens _gtarsStatus (\ s a -> s{_gtarsStatus = a}); +gtarsResponseStatus :: Lens' GetTopicAttributesResponse Int +gtarsResponseStatus = lens _gtarsResponseStatus (\ s a -> s{_gtarsResponseStatus = a}); 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 @@ -47,7 +47,7 @@ -- * Response Lenses , lebparsNextToken , lebparsEndpoints - , lebparsStatus + , lebparsResponseStatus ) where import Network.AWS.Pager @@ -138,9 +138,9 @@ -- -- /See:/ 'listEndpointsByPlatformApplicationResponse' smart constructor. data ListEndpointsByPlatformApplicationResponse = ListEndpointsByPlatformApplicationResponse' - { _lebparsNextToken :: !(Maybe Text) - , _lebparsEndpoints :: !(Maybe [Endpoint]) - , _lebparsStatus :: !Int + { _lebparsNextToken :: !(Maybe Text) + , _lebparsEndpoints :: !(Maybe [Endpoint]) + , _lebparsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListEndpointsByPlatformApplicationResponse' with the minimum fields required to make a request. @@ -151,15 +151,15 @@ -- -- * 'lebparsEndpoints' -- --- * 'lebparsStatus' +-- * 'lebparsResponseStatus' listEndpointsByPlatformApplicationResponse - :: Int -- ^ 'lebparsStatus' + :: Int -- ^ 'lebparsResponseStatus' -> ListEndpointsByPlatformApplicationResponse -listEndpointsByPlatformApplicationResponse pStatus_ = +listEndpointsByPlatformApplicationResponse pResponseStatus_ = ListEndpointsByPlatformApplicationResponse' { _lebparsNextToken = Nothing , _lebparsEndpoints = Nothing - , _lebparsStatus = pStatus_ + , _lebparsResponseStatus = pResponseStatus_ } -- | NextToken string is returned when calling @@ -173,5 +173,5 @@ lebparsEndpoints = lens _lebparsEndpoints (\ s a -> s{_lebparsEndpoints = a}) . _Default . _Coerce; -- | The response status code. -lebparsStatus :: Lens' ListEndpointsByPlatformApplicationResponse Int -lebparsStatus = lens _lebparsStatus (\ s a -> s{_lebparsStatus = a}); +lebparsResponseStatus :: Lens' ListEndpointsByPlatformApplicationResponse Int +lebparsResponseStatus = lens _lebparsResponseStatus (\ s a -> s{_lebparsResponseStatus = a}); 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 @@ -45,7 +45,7 @@ -- * Response Lenses , lparsPlatformApplications , lparsNextToken - , lparsStatus + , lparsResponseStatus ) where import Network.AWS.Pager @@ -120,7 +120,7 @@ data ListPlatformApplicationsResponse = ListPlatformApplicationsResponse' { _lparsPlatformApplications :: !(Maybe [PlatformApplication]) , _lparsNextToken :: !(Maybe Text) - , _lparsStatus :: !Int + , _lparsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListPlatformApplicationsResponse' with the minimum fields required to make a request. @@ -131,15 +131,15 @@ -- -- * 'lparsNextToken' -- --- * 'lparsStatus' +-- * 'lparsResponseStatus' listPlatformApplicationsResponse - :: Int -- ^ 'lparsStatus' + :: Int -- ^ 'lparsResponseStatus' -> ListPlatformApplicationsResponse -listPlatformApplicationsResponse pStatus_ = +listPlatformApplicationsResponse pResponseStatus_ = ListPlatformApplicationsResponse' { _lparsPlatformApplications = Nothing , _lparsNextToken = Nothing - , _lparsStatus = pStatus_ + , _lparsResponseStatus = pResponseStatus_ } -- | Platform applications returned when calling ListPlatformApplications @@ -153,5 +153,5 @@ lparsNextToken = lens _lparsNextToken (\ s a -> s{_lparsNextToken = a}); -- | The response status code. -lparsStatus :: Lens' ListPlatformApplicationsResponse Int -lparsStatus = lens _lparsStatus (\ s a -> s{_lparsStatus = a}); +lparsResponseStatus :: Lens' ListPlatformApplicationsResponse Int +lparsResponseStatus = lens _lparsResponseStatus (\ s a -> s{_lparsResponseStatus = a}); 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 @@ -40,7 +40,7 @@ -- * Response Lenses , lsrsNextToken , lsrsSubscriptions - , lsrsStatus + , lsrsResponseStatus ) where import Network.AWS.Pager @@ -109,9 +109,9 @@ -- -- /See:/ 'listSubscriptionsResponse' smart constructor. data ListSubscriptionsResponse = ListSubscriptionsResponse' - { _lsrsNextToken :: !(Maybe Text) - , _lsrsSubscriptions :: !(Maybe [Subscription]) - , _lsrsStatus :: !Int + { _lsrsNextToken :: !(Maybe Text) + , _lsrsSubscriptions :: !(Maybe [Subscription]) + , _lsrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListSubscriptionsResponse' with the minimum fields required to make a request. @@ -122,15 +122,15 @@ -- -- * 'lsrsSubscriptions' -- --- * 'lsrsStatus' +-- * 'lsrsResponseStatus' listSubscriptionsResponse - :: Int -- ^ 'lsrsStatus' + :: Int -- ^ 'lsrsResponseStatus' -> ListSubscriptionsResponse -listSubscriptionsResponse pStatus_ = +listSubscriptionsResponse pResponseStatus_ = ListSubscriptionsResponse' { _lsrsNextToken = Nothing , _lsrsSubscriptions = Nothing - , _lsrsStatus = pStatus_ + , _lsrsResponseStatus = pResponseStatus_ } -- | Token to pass along to the next 'ListSubscriptions' request. This @@ -143,5 +143,5 @@ lsrsSubscriptions = lens _lsrsSubscriptions (\ s a -> s{_lsrsSubscriptions = a}) . _Default . _Coerce; -- | The response status code. -lsrsStatus :: Lens' ListSubscriptionsResponse Int -lsrsStatus = lens _lsrsStatus (\ s a -> s{_lsrsStatus = a}); +lsrsResponseStatus :: Lens' ListSubscriptionsResponse Int +lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a}); 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 @@ -42,7 +42,7 @@ -- * Response Lenses , lsbtrsNextToken , lsbtrsSubscriptions - , lsbtrsStatus + , lsbtrsResponseStatus ) where import Network.AWS.Pager @@ -123,9 +123,9 @@ -- -- /See:/ 'listSubscriptionsByTopicResponse' smart constructor. data ListSubscriptionsByTopicResponse = ListSubscriptionsByTopicResponse' - { _lsbtrsNextToken :: !(Maybe Text) - , _lsbtrsSubscriptions :: !(Maybe [Subscription]) - , _lsbtrsStatus :: !Int + { _lsbtrsNextToken :: !(Maybe Text) + , _lsbtrsSubscriptions :: !(Maybe [Subscription]) + , _lsbtrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListSubscriptionsByTopicResponse' with the minimum fields required to make a request. @@ -136,15 +136,15 @@ -- -- * 'lsbtrsSubscriptions' -- --- * 'lsbtrsStatus' +-- * 'lsbtrsResponseStatus' listSubscriptionsByTopicResponse - :: Int -- ^ 'lsbtrsStatus' + :: Int -- ^ 'lsbtrsResponseStatus' -> ListSubscriptionsByTopicResponse -listSubscriptionsByTopicResponse pStatus_ = +listSubscriptionsByTopicResponse pResponseStatus_ = ListSubscriptionsByTopicResponse' { _lsbtrsNextToken = Nothing , _lsbtrsSubscriptions = Nothing - , _lsbtrsStatus = pStatus_ + , _lsbtrsResponseStatus = pResponseStatus_ } -- | Token to pass along to the next 'ListSubscriptionsByTopic' request. This @@ -157,5 +157,5 @@ lsbtrsSubscriptions = lens _lsbtrsSubscriptions (\ s a -> s{_lsbtrsSubscriptions = a}) . _Default . _Coerce; -- | The response status code. -lsbtrsStatus :: Lens' ListSubscriptionsByTopicResponse Int -lsbtrsStatus = lens _lsbtrsStatus (\ s a -> s{_lsbtrsStatus = a}); +lsbtrsResponseStatus :: Lens' ListSubscriptionsByTopicResponse Int +lsbtrsResponseStatus = lens _lsbtrsResponseStatus (\ s a -> s{_lsbtrsResponseStatus = a}); 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 @@ -40,7 +40,7 @@ -- * Response Lenses , ltrsTopics , ltrsNextToken - , ltrsStatus + , ltrsResponseStatus ) where import Network.AWS.Pager @@ -107,9 +107,9 @@ -- -- /See:/ 'listTopicsResponse' smart constructor. data ListTopicsResponse = ListTopicsResponse' - { _ltrsTopics :: !(Maybe [Topic]) - , _ltrsNextToken :: !(Maybe Text) - , _ltrsStatus :: !Int + { _ltrsTopics :: !(Maybe [Topic]) + , _ltrsNextToken :: !(Maybe Text) + , _ltrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListTopicsResponse' with the minimum fields required to make a request. @@ -120,15 +120,15 @@ -- -- * 'ltrsNextToken' -- --- * 'ltrsStatus' +-- * 'ltrsResponseStatus' listTopicsResponse - :: Int -- ^ 'ltrsStatus' + :: Int -- ^ 'ltrsResponseStatus' -> ListTopicsResponse -listTopicsResponse pStatus_ = +listTopicsResponse pResponseStatus_ = ListTopicsResponse' { _ltrsTopics = Nothing , _ltrsNextToken = Nothing - , _ltrsStatus = pStatus_ + , _ltrsResponseStatus = pResponseStatus_ } -- | A list of topic ARNs. @@ -141,5 +141,5 @@ ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a}); -- | The response status code. -ltrsStatus :: Lens' ListTopicsResponse Int -ltrsStatus = lens _ltrsStatus (\ s a -> s{_ltrsStatus = a}); +ltrsResponseStatus :: Lens' ListTopicsResponse Int +ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a}); 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 @@ -37,9 +37,9 @@ publish , Publish -- * Request Lenses - , pMessageAttributes - , pTargetARN , pSubject + , pTargetARN + , pMessageAttributes , pTopicARN , pMessageStructure , pMessage @@ -49,7 +49,7 @@ , PublishResponse -- * Response Lenses , prsMessageId - , prsStatus + , prsResponseStatus ) where import Network.AWS.Prelude @@ -62,9 +62,9 @@ -- -- /See:/ 'publish' smart constructor. data Publish = Publish' - { _pMessageAttributes :: !(Maybe (Map Text MessageAttributeValue)) + { _pSubject :: !(Maybe Text) , _pTargetARN :: !(Maybe Text) - , _pSubject :: !(Maybe Text) + , _pMessageAttributes :: !(Maybe (Map Text MessageAttributeValue)) , _pTopicARN :: !(Maybe Text) , _pMessageStructure :: !(Maybe Text) , _pMessage :: !Text @@ -74,11 +74,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'pMessageAttributes' +-- * 'pSubject' -- -- * 'pTargetARN' -- --- * 'pSubject' +-- * 'pMessageAttributes' -- -- * 'pTopicARN' -- @@ -90,22 +90,14 @@ -> Publish publish pMessage_ = Publish' - { _pMessageAttributes = Nothing + { _pSubject = Nothing , _pTargetARN = Nothing - , _pSubject = Nothing + , _pMessageAttributes = Nothing , _pTopicARN = Nothing , _pMessageStructure = Nothing , _pMessage = pMessage_ } --- | Message attributes for Publish action. -pMessageAttributes :: Lens' Publish (HashMap Text MessageAttributeValue) -pMessageAttributes = lens _pMessageAttributes (\ s a -> s{_pMessageAttributes = a}) . _Default . _Map; - --- | Either TopicArn or EndpointArn, but not both. -pTargetARN :: Lens' Publish (Maybe Text) -pTargetARN = lens _pTargetARN (\ s a -> s{_pTargetARN = a}); - -- | Optional parameter to be used as the \"Subject\" line when the message -- is delivered to email endpoints. This field will also be included, if -- present, in the standard JSON messages delivered to other endpoints. @@ -116,6 +108,14 @@ pSubject :: Lens' Publish (Maybe Text) pSubject = lens _pSubject (\ s a -> s{_pSubject = a}); +-- | Either TopicArn or EndpointArn, but not both. +pTargetARN :: Lens' Publish (Maybe Text) +pTargetARN = lens _pTargetARN (\ s a -> s{_pTargetARN = a}); + +-- | Message attributes for Publish action. +pMessageAttributes :: Lens' Publish (HashMap Text MessageAttributeValue) +pMessageAttributes = lens _pMessageAttributes (\ s a -> s{_pMessageAttributes = a}) . _Default . _Map; + -- | The topic you want to publish to. pTopicARN :: Lens' Publish (Maybe Text) pTopicARN = lens _pTopicARN (\ s a -> s{_pTopicARN = a}); @@ -196,11 +196,11 @@ = mconcat ["Action" =: ("Publish" :: ByteString), "Version" =: ("2010-03-31" :: ByteString), + "Subject" =: _pSubject, "TargetArn" =: _pTargetARN, "MessageAttributes" =: toQuery (toQueryMap "entry" "Name" "Value" <$> _pMessageAttributes), - "TargetArn" =: _pTargetARN, "Subject" =: _pSubject, "TopicArn" =: _pTopicARN, "MessageStructure" =: _pMessageStructure, "Message" =: _pMessage] @@ -209,8 +209,8 @@ -- -- /See:/ 'publishResponse' smart constructor. data PublishResponse = PublishResponse' - { _prsMessageId :: !(Maybe Text) - , _prsStatus :: !Int + { _prsMessageId :: !(Maybe Text) + , _prsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'PublishResponse' with the minimum fields required to make a request. @@ -219,14 +219,14 @@ -- -- * 'prsMessageId' -- --- * 'prsStatus' +-- * 'prsResponseStatus' publishResponse - :: Int -- ^ 'prsStatus' + :: Int -- ^ 'prsResponseStatus' -> PublishResponse -publishResponse pStatus_ = +publishResponse pResponseStatus_ = PublishResponse' { _prsMessageId = Nothing - , _prsStatus = pStatus_ + , _prsResponseStatus = pResponseStatus_ } -- | Unique identifier assigned to the published message. @@ -236,5 +236,5 @@ prsMessageId = lens _prsMessageId (\ s a -> s{_prsMessageId = a}); -- | The response status code. -prsStatus :: Lens' PublishResponse Int -prsStatus = lens _prsStatus (\ s a -> s{_prsStatus = a}); +prsResponseStatus :: Lens' PublishResponse Int +prsResponseStatus = lens _prsResponseStatus (\ s a -> s{_prsResponseStatus = a}); 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 @@ -39,7 +39,7 @@ , SubscribeResponse -- * Response Lenses , srsSubscriptionARN - , srsStatus + , srsResponseStatus ) where import Network.AWS.Prelude @@ -52,7 +52,7 @@ -- -- /See:/ 'subscribe' smart constructor. data Subscribe = Subscribe' - { _subEndpoint :: !(Maybe Endpoint) + { _subEndpoint :: !(Maybe Text) , _subTopicARN :: !Text , _subProtocol :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -92,7 +92,7 @@ -- queue -- - For the 'application' protocol, the endpoint is the EndpointArn of a -- mobile app and device. -subEndpoint :: Lens' Subscribe (Maybe Endpoint) +subEndpoint :: Lens' Subscribe (Maybe Text) subEndpoint = lens _subEndpoint (\ s a -> s{_subEndpoint = a}); -- | The ARN of the topic you want to subscribe to. @@ -141,7 +141,7 @@ -- /See:/ 'subscribeResponse' smart constructor. data SubscribeResponse = SubscribeResponse' { _srsSubscriptionARN :: !(Maybe Text) - , _srsStatus :: !Int + , _srsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'SubscribeResponse' with the minimum fields required to make a request. @@ -150,14 +150,14 @@ -- -- * 'srsSubscriptionARN' -- --- * 'srsStatus' +-- * 'srsResponseStatus' subscribeResponse - :: Int -- ^ 'srsStatus' + :: Int -- ^ 'srsResponseStatus' -> SubscribeResponse -subscribeResponse pStatus_ = +subscribeResponse pResponseStatus_ = SubscribeResponse' { _srsSubscriptionARN = Nothing - , _srsStatus = pStatus_ + , _srsResponseStatus = pResponseStatus_ } -- | The ARN of the subscription, if the service was able to create a @@ -167,5 +167,5 @@ srsSubscriptionARN = lens _srsSubscriptionARN (\ s a -> s{_srsSubscriptionARN = a}); -- | The response status code. -srsStatus :: Lens' SubscribeResponse Int -srsStatus = lens _srsStatus (\ s a -> s{_srsStatus = a}); +srsResponseStatus :: Lens' SubscribeResponse Int +srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}); 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 @@ -22,8 +22,8 @@ , _SubscriptionLimitExceededException , _PlatformApplicationDisabledException , _InternalErrorException - , _NotFoundException , _InvalidParameterValueException + , _NotFoundException , _TopicLimitExceededException -- * Endpoint @@ -129,15 +129,15 @@ _InternalErrorException = _ServiceError . hasStatus 500 . hasCode "InternalError" --- | Indicates that the requested resource does not exist. -_NotFoundException :: AsError a => Getting (First ServiceError) a ServiceError -_NotFoundException = _ServiceError . hasStatus 404 . hasCode "NotFound" - -- | Indicates that a request parameter does not comply with the associated -- constraints. _InvalidParameterValueException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidParameterValueException = _ServiceError . hasStatus 400 . hasCode "ParameterValueInvalid" + +-- | Indicates that the requested resource does not exist. +_NotFoundException :: AsError a => Getting (First ServiceError) a ServiceError +_NotFoundException = _ServiceError . hasStatus 404 . hasCode "NotFound" -- | Indicates that the customer already owns the maximum allowed number of -- topics. 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 @@ -58,14 +58,6 @@ may (parseXMLMap "entry" "key" "value")) <*> (x .@? "EndpointArn") -instance ToQuery Endpoint where - toQuery Endpoint'{..} - = mconcat - ["Attributes" =: - toQuery - (toQueryMap "entry" "key" "value" <$> _eAttributes), - "EndpointArn" =: _eEndpointARN] - -- | The user-specified message attribute value. For string data types, the -- value attribute has the same restrictions on the content as the message -- body. For more information, see @@ -179,7 +171,7 @@ { _sProtocol :: !(Maybe Text) , _sOwner :: !(Maybe Text) , _sTopicARN :: !(Maybe Text) - , _sEndpoint :: !(Maybe Endpoint) + , _sEndpoint :: !(Maybe Text) , _sSubscriptionARN :: !(Maybe Text) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -220,7 +212,7 @@ sTopicARN = lens _sTopicARN (\ s a -> s{_sTopicARN = a}); -- | The subscription\'s endpoint (format depends on the protocol). -sEndpoint :: Lens' Subscription (Maybe Endpoint) +sEndpoint :: Lens' Subscription (Maybe Text) sEndpoint = lens _sEndpoint (\ s a -> s{_sEndpoint = a}); -- | The subscription\'s ARN. 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 @@ -34,32 +34,35 @@ -- , testRemovePermission $ -- removePermission -- --- , testSetPlatformApplicationAttributes $ --- setPlatformApplicationAttributes +-- , testDeleteTopic $ +-- deleteTopic -- +-- , testListTopics $ +-- listTopics +-- -- , testCreatePlatformEndpoint $ -- createPlatformEndpoint -- +-- , testSetPlatformApplicationAttributes $ +-- setPlatformApplicationAttributes +-- -- , testListSubscriptionsByTopic $ -- listSubscriptionsByTopic -- -- , testGetTopicAttributes $ -- getTopicAttributes -- --- , testDeleteTopic $ --- deleteTopic --- --- , testListTopics $ --- listTopics --- -- , testCreatePlatformApplication $ -- createPlatformApplication -- +-- , testGetPlatformApplicationAttributes $ +-- getPlatformApplicationAttributes +-- -- , testListEndpointsByPlatformApplication $ -- listEndpointsByPlatformApplication -- --- , testGetPlatformApplicationAttributes $ --- getPlatformApplicationAttributes +-- , testSetTopicAttributes $ +-- setTopicAttributes -- -- , testDeletePlatformApplication $ -- deletePlatformApplication @@ -67,21 +70,18 @@ -- , testListPlatformApplications $ -- listPlatformApplications -- --- , testSetTopicAttributes $ --- setTopicAttributes +-- , testAddPermission $ +-- addPermission -- -- , testGetEndpointAttributes $ -- getEndpointAttributes -- --- , testAddPermission $ --- addPermission +-- , testListSubscriptions $ +-- listSubscriptions -- -- , testGetSubscriptionAttributes $ -- getSubscriptionAttributes -- --- , testListSubscriptions $ --- listSubscriptions --- -- , testCreateTopic $ -- createTopic -- @@ -112,32 +112,35 @@ -- , testRemovePermissionResponse $ -- removePermissionResponse -- --- , testSetPlatformApplicationAttributesResponse $ --- setPlatformApplicationAttributesResponse +-- , testDeleteTopicResponse $ +-- deleteTopicResponse -- +-- , testListTopicsResponse $ +-- listTopicsResponse +-- -- , testCreatePlatformEndpointResponse $ -- createPlatformEndpointResponse -- +-- , testSetPlatformApplicationAttributesResponse $ +-- setPlatformApplicationAttributesResponse +-- -- , testListSubscriptionsByTopicResponse $ -- listSubscriptionsByTopicResponse -- -- , testGetTopicAttributesResponse $ -- getTopicAttributesResponse -- --- , testDeleteTopicResponse $ --- deleteTopicResponse --- --- , testListTopicsResponse $ --- listTopicsResponse --- -- , testCreatePlatformApplicationResponse $ -- createPlatformApplicationResponse -- +-- , testGetPlatformApplicationAttributesResponse $ +-- getPlatformApplicationAttributesResponse +-- -- , testListEndpointsByPlatformApplicationResponse $ -- listEndpointsByPlatformApplicationResponse -- --- , testGetPlatformApplicationAttributesResponse $ --- getPlatformApplicationAttributesResponse +-- , testSetTopicAttributesResponse $ +-- setTopicAttributesResponse -- -- , testDeletePlatformApplicationResponse $ -- deletePlatformApplicationResponse @@ -145,21 +148,18 @@ -- , testListPlatformApplicationsResponse $ -- listPlatformApplicationsResponse -- --- , testSetTopicAttributesResponse $ --- setTopicAttributesResponse +-- , testAddPermissionResponse $ +-- addPermissionResponse -- -- , testGetEndpointAttributesResponse $ -- getEndpointAttributesResponse -- --- , testAddPermissionResponse $ --- addPermissionResponse +-- , testListSubscriptionsResponse $ +-- listSubscriptionsResponse -- -- , testGetSubscriptionAttributesResponse $ -- getSubscriptionAttributesResponse -- --- , testListSubscriptionsResponse $ --- listSubscriptionsResponse --- -- , testCreateTopicResponse $ -- createTopicResponse -- @@ -196,16 +196,26 @@ "RemovePermission" "fixture/RemovePermission.yaml" -testSetPlatformApplicationAttributes :: SetPlatformApplicationAttributes -> TestTree -testSetPlatformApplicationAttributes = req - "SetPlatformApplicationAttributes" - "fixture/SetPlatformApplicationAttributes.yaml" +testDeleteTopic :: DeleteTopic -> TestTree +testDeleteTopic = req + "DeleteTopic" + "fixture/DeleteTopic.yaml" +testListTopics :: ListTopics -> TestTree +testListTopics = req + "ListTopics" + "fixture/ListTopics.yaml" + testCreatePlatformEndpoint :: CreatePlatformEndpoint -> TestTree testCreatePlatformEndpoint = req "CreatePlatformEndpoint" "fixture/CreatePlatformEndpoint.yaml" +testSetPlatformApplicationAttributes :: SetPlatformApplicationAttributes -> TestTree +testSetPlatformApplicationAttributes = req + "SetPlatformApplicationAttributes" + "fixture/SetPlatformApplicationAttributes.yaml" + testListSubscriptionsByTopic :: ListSubscriptionsByTopic -> TestTree testListSubscriptionsByTopic = req "ListSubscriptionsByTopic" @@ -216,30 +226,25 @@ "GetTopicAttributes" "fixture/GetTopicAttributes.yaml" -testDeleteTopic :: DeleteTopic -> TestTree -testDeleteTopic = req - "DeleteTopic" - "fixture/DeleteTopic.yaml" - -testListTopics :: ListTopics -> TestTree -testListTopics = req - "ListTopics" - "fixture/ListTopics.yaml" - testCreatePlatformApplication :: CreatePlatformApplication -> TestTree testCreatePlatformApplication = req "CreatePlatformApplication" "fixture/CreatePlatformApplication.yaml" +testGetPlatformApplicationAttributes :: GetPlatformApplicationAttributes -> TestTree +testGetPlatformApplicationAttributes = req + "GetPlatformApplicationAttributes" + "fixture/GetPlatformApplicationAttributes.yaml" + testListEndpointsByPlatformApplication :: ListEndpointsByPlatformApplication -> TestTree testListEndpointsByPlatformApplication = req "ListEndpointsByPlatformApplication" "fixture/ListEndpointsByPlatformApplication.yaml" -testGetPlatformApplicationAttributes :: GetPlatformApplicationAttributes -> TestTree -testGetPlatformApplicationAttributes = req - "GetPlatformApplicationAttributes" - "fixture/GetPlatformApplicationAttributes.yaml" +testSetTopicAttributes :: SetTopicAttributes -> TestTree +testSetTopicAttributes = req + "SetTopicAttributes" + "fixture/SetTopicAttributes.yaml" testDeletePlatformApplication :: DeletePlatformApplication -> TestTree testDeletePlatformApplication = req @@ -251,31 +256,26 @@ "ListPlatformApplications" "fixture/ListPlatformApplications.yaml" -testSetTopicAttributes :: SetTopicAttributes -> TestTree -testSetTopicAttributes = req - "SetTopicAttributes" - "fixture/SetTopicAttributes.yaml" +testAddPermission :: AddPermission -> TestTree +testAddPermission = req + "AddPermission" + "fixture/AddPermission.yaml" testGetEndpointAttributes :: GetEndpointAttributes -> TestTree testGetEndpointAttributes = req "GetEndpointAttributes" "fixture/GetEndpointAttributes.yaml" -testAddPermission :: AddPermission -> TestTree -testAddPermission = req - "AddPermission" - "fixture/AddPermission.yaml" +testListSubscriptions :: ListSubscriptions -> TestTree +testListSubscriptions = req + "ListSubscriptions" + "fixture/ListSubscriptions.yaml" testGetSubscriptionAttributes :: GetSubscriptionAttributes -> TestTree testGetSubscriptionAttributes = req "GetSubscriptionAttributes" "fixture/GetSubscriptionAttributes.yaml" -testListSubscriptions :: ListSubscriptions -> TestTree -testListSubscriptions = req - "ListSubscriptions" - "fixture/ListSubscriptions.yaml" - testCreateTopic :: CreateTopic -> TestTree testCreateTopic = req "CreateTopic" @@ -327,13 +327,20 @@ sNS (Proxy :: Proxy RemovePermission) -testSetPlatformApplicationAttributesResponse :: SetPlatformApplicationAttributesResponse -> TestTree -testSetPlatformApplicationAttributesResponse = res - "SetPlatformApplicationAttributesResponse" - "fixture/SetPlatformApplicationAttributesResponse.proto" +testDeleteTopicResponse :: DeleteTopicResponse -> TestTree +testDeleteTopicResponse = res + "DeleteTopicResponse" + "fixture/DeleteTopicResponse.proto" sNS - (Proxy :: Proxy SetPlatformApplicationAttributes) + (Proxy :: Proxy DeleteTopic) +testListTopicsResponse :: ListTopicsResponse -> TestTree +testListTopicsResponse = res + "ListTopicsResponse" + "fixture/ListTopicsResponse.proto" + sNS + (Proxy :: Proxy ListTopics) + testCreatePlatformEndpointResponse :: CreatePlatformEndpointResponse -> TestTree testCreatePlatformEndpointResponse = res "CreatePlatformEndpointResponse" @@ -341,6 +348,13 @@ sNS (Proxy :: Proxy CreatePlatformEndpoint) +testSetPlatformApplicationAttributesResponse :: SetPlatformApplicationAttributesResponse -> TestTree +testSetPlatformApplicationAttributesResponse = res + "SetPlatformApplicationAttributesResponse" + "fixture/SetPlatformApplicationAttributesResponse.proto" + sNS + (Proxy :: Proxy SetPlatformApplicationAttributes) + testListSubscriptionsByTopicResponse :: ListSubscriptionsByTopicResponse -> TestTree testListSubscriptionsByTopicResponse = res "ListSubscriptionsByTopicResponse" @@ -355,20 +369,6 @@ sNS (Proxy :: Proxy GetTopicAttributes) -testDeleteTopicResponse :: DeleteTopicResponse -> TestTree -testDeleteTopicResponse = res - "DeleteTopicResponse" - "fixture/DeleteTopicResponse.proto" - sNS - (Proxy :: Proxy DeleteTopic) - -testListTopicsResponse :: ListTopicsResponse -> TestTree -testListTopicsResponse = res - "ListTopicsResponse" - "fixture/ListTopicsResponse.proto" - sNS - (Proxy :: Proxy ListTopics) - testCreatePlatformApplicationResponse :: CreatePlatformApplicationResponse -> TestTree testCreatePlatformApplicationResponse = res "CreatePlatformApplicationResponse" @@ -376,6 +376,13 @@ sNS (Proxy :: Proxy CreatePlatformApplication) +testGetPlatformApplicationAttributesResponse :: GetPlatformApplicationAttributesResponse -> TestTree +testGetPlatformApplicationAttributesResponse = res + "GetPlatformApplicationAttributesResponse" + "fixture/GetPlatformApplicationAttributesResponse.proto" + sNS + (Proxy :: Proxy GetPlatformApplicationAttributes) + testListEndpointsByPlatformApplicationResponse :: ListEndpointsByPlatformApplicationResponse -> TestTree testListEndpointsByPlatformApplicationResponse = res "ListEndpointsByPlatformApplicationResponse" @@ -383,12 +390,12 @@ sNS (Proxy :: Proxy ListEndpointsByPlatformApplication) -testGetPlatformApplicationAttributesResponse :: GetPlatformApplicationAttributesResponse -> TestTree -testGetPlatformApplicationAttributesResponse = res - "GetPlatformApplicationAttributesResponse" - "fixture/GetPlatformApplicationAttributesResponse.proto" +testSetTopicAttributesResponse :: SetTopicAttributesResponse -> TestTree +testSetTopicAttributesResponse = res + "SetTopicAttributesResponse" + "fixture/SetTopicAttributesResponse.proto" sNS - (Proxy :: Proxy GetPlatformApplicationAttributes) + (Proxy :: Proxy SetTopicAttributes) testDeletePlatformApplicationResponse :: DeletePlatformApplicationResponse -> TestTree testDeletePlatformApplicationResponse = res @@ -404,12 +411,12 @@ sNS (Proxy :: Proxy ListPlatformApplications) -testSetTopicAttributesResponse :: SetTopicAttributesResponse -> TestTree -testSetTopicAttributesResponse = res - "SetTopicAttributesResponse" - "fixture/SetTopicAttributesResponse.proto" +testAddPermissionResponse :: AddPermissionResponse -> TestTree +testAddPermissionResponse = res + "AddPermissionResponse" + "fixture/AddPermissionResponse.proto" sNS - (Proxy :: Proxy SetTopicAttributes) + (Proxy :: Proxy AddPermission) testGetEndpointAttributesResponse :: GetEndpointAttributesResponse -> TestTree testGetEndpointAttributesResponse = res @@ -418,12 +425,12 @@ sNS (Proxy :: Proxy GetEndpointAttributes) -testAddPermissionResponse :: AddPermissionResponse -> TestTree -testAddPermissionResponse = res - "AddPermissionResponse" - "fixture/AddPermissionResponse.proto" +testListSubscriptionsResponse :: ListSubscriptionsResponse -> TestTree +testListSubscriptionsResponse = res + "ListSubscriptionsResponse" + "fixture/ListSubscriptionsResponse.proto" sNS - (Proxy :: Proxy AddPermission) + (Proxy :: Proxy ListSubscriptions) testGetSubscriptionAttributesResponse :: GetSubscriptionAttributesResponse -> TestTree testGetSubscriptionAttributesResponse = res @@ -431,13 +438,6 @@ "fixture/GetSubscriptionAttributesResponse.proto" sNS (Proxy :: Proxy GetSubscriptionAttributes) - -testListSubscriptionsResponse :: ListSubscriptionsResponse -> TestTree -testListSubscriptionsResponse = res - "ListSubscriptionsResponse" - "fixture/ListSubscriptionsResponse.proto" - sNS - (Proxy :: Proxy ListSubscriptions) testCreateTopicResponse :: CreateTopicResponse -> TestTree testCreateTopicResponse = res