amazonka-sns 1.2.0.2 → 1.3.0

raw patch · 21 files changed

+293/−301 lines, 21 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 +20/−20
• gen/Network/AWS/SNS/ConfirmSubscription.hs +8/−8
• gen/Network/AWS/SNS/CreatePlatformApplication.hs +8/−8
• gen/Network/AWS/SNS/CreatePlatformEndpoint.hs +9/−9
• gen/Network/AWS/SNS/CreateTopic.hs +9/−9
• gen/Network/AWS/SNS/GetEndpointAttributes.hs +9/−9
• gen/Network/AWS/SNS/GetPlatformApplicationAttributes.hs +9/−9
• gen/Network/AWS/SNS/GetSubscriptionAttributes.hs +9/−9
• gen/Network/AWS/SNS/GetTopicAttributes.hs +9/−9
• gen/Network/AWS/SNS/ListEndpointsByPlatformApplication.hs +10/−10
• gen/Network/AWS/SNS/ListPlatformApplications.hs +8/−8
• gen/Network/AWS/SNS/ListSubscriptions.hs +10/−10
• gen/Network/AWS/SNS/ListSubscriptionsByTopic.hs +10/−10
• gen/Network/AWS/SNS/ListTopics.hs +10/−10
• gen/Network/AWS/SNS/Publish.hs +26/−26
• gen/Network/AWS/SNS/Subscribe.hs +10/−10
• gen/Network/AWS/SNS/Types.hs +5/−5
• gen/Network/AWS/SNS/Types/Product.hs +2/−10
• test/Test/AWS/Gen/SNS.hs +106/−106

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -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

@@ -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

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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.

@@ -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.

@@ -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