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-elb.cabal b/amazonka-elb.cabal --- a/amazonka-elb.cabal +++ b/amazonka-elb.cabal @@ -1,5 +1,5 @@ name: amazonka-elb -version: 1.2.0.2 +version: 1.3.0 synopsis: Amazon Elastic Load Balancing SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -93,7 +93,7 @@ , Network.AWS.ELB.Types.Sum build-depends: - amazonka-core == 1.2.0.* + amazonka-core == 1.3.0.* , base >= 4.7 && < 5 test-suite amazonka-elb-test @@ -113,9 +113,9 @@ , Test.AWS.ELB.Internal build-depends: - amazonka-core == 1.2.0.* - , amazonka-test == 1.2.0.* - , amazonka-elb == 1.2.0.* + amazonka-core == 1.3.0.* + , amazonka-test == 1.3.0.* + , amazonka-elb == 1.3.0.* , base , bytestring , lens diff --git a/gen/Network/AWS/ELB.hs b/gen/Network/AWS/ELB.hs --- a/gen/Network/AWS/ELB.hs +++ b/gen/Network/AWS/ELB.hs @@ -83,12 +83,12 @@ -- ** InvalidEndPointException , _InvalidEndPointException - -- ** TooManyAccessPointsException - , _TooManyAccessPointsException - -- ** InvalidSchemeException , _InvalidSchemeException + -- ** TooManyAccessPointsException + , _TooManyAccessPointsException + -- ** TooManyPoliciesException , _TooManyPoliciesException @@ -101,14 +101,14 @@ -- * Operations -- $operations - -- ** DescribeLoadBalancerPolicyTypes - , module Network.AWS.ELB.DescribeLoadBalancerPolicyTypes + -- ** DescribeLoadBalancers (Paginated) + , module Network.AWS.ELB.DescribeLoadBalancers -- ** DescribeTags , module Network.AWS.ELB.DescribeTags - -- ** DescribeLoadBalancers (Paginated) - , module Network.AWS.ELB.DescribeLoadBalancers + -- ** DescribeLoadBalancerPolicyTypes + , module Network.AWS.ELB.DescribeLoadBalancerPolicyTypes -- ** ApplySecurityGroupsToLoadBalancer , module Network.AWS.ELB.ApplySecurityGroupsToLoadBalancer @@ -122,66 +122,66 @@ -- ** DeleteLoadBalancer , module Network.AWS.ELB.DeleteLoadBalancer - -- ** CreateLoadBalancerPolicy - , module Network.AWS.ELB.CreateLoadBalancerPolicy - -- ** DeregisterInstancesFromLoadBalancer , module Network.AWS.ELB.DeregisterInstancesFromLoadBalancer + -- ** CreateLoadBalancerPolicy + , module Network.AWS.ELB.CreateLoadBalancerPolicy + -- ** DescribeLoadBalancerPolicies , module Network.AWS.ELB.DescribeLoadBalancerPolicies -- ** DisableAvailabilityZonesForLoadBalancer , module Network.AWS.ELB.DisableAvailabilityZonesForLoadBalancer - -- ** SetLoadBalancerPoliciesForBackendServer - , module Network.AWS.ELB.SetLoadBalancerPoliciesForBackendServer - -- ** EnableAvailabilityZonesForLoadBalancer , module Network.AWS.ELB.EnableAvailabilityZonesForLoadBalancer + -- ** SetLoadBalancerPoliciesForBackendServer + , module Network.AWS.ELB.SetLoadBalancerPoliciesForBackendServer + -- ** SetLoadBalancerListenerSSLCertificate , module Network.AWS.ELB.SetLoadBalancerListenerSSLCertificate - -- ** ConfigureHealthCheck - , module Network.AWS.ELB.ConfigureHealthCheck - -- ** AttachLoadBalancerToSubnets , module Network.AWS.ELB.AttachLoadBalancerToSubnets + -- ** ConfigureHealthCheck + , module Network.AWS.ELB.ConfigureHealthCheck + -- ** ModifyLoadBalancerAttributes , module Network.AWS.ELB.ModifyLoadBalancerAttributes -- ** CreateAppCookieStickinessPolicy , module Network.AWS.ELB.CreateAppCookieStickinessPolicy + -- ** DescribeInstanceHealth + , module Network.AWS.ELB.DescribeInstanceHealth + -- ** AddTags , module Network.AWS.ELB.AddTags -- ** DescribeLoadBalancerAttributes , module Network.AWS.ELB.DescribeLoadBalancerAttributes - -- ** DescribeInstanceHealth - , module Network.AWS.ELB.DescribeInstanceHealth + -- ** CreateLoadBalancerListeners + , module Network.AWS.ELB.CreateLoadBalancerListeners + -- ** DeleteLoadBalancerPolicy + , module Network.AWS.ELB.DeleteLoadBalancerPolicy + -- ** DetachLoadBalancerFromSubnets , module Network.AWS.ELB.DetachLoadBalancerFromSubnets -- ** RegisterInstancesWithLoadBalancer , module Network.AWS.ELB.RegisterInstancesWithLoadBalancer - -- ** DeleteLoadBalancerPolicy - , module Network.AWS.ELB.DeleteLoadBalancerPolicy - - -- ** CreateLoadBalancerListeners - , module Network.AWS.ELB.CreateLoadBalancerListeners + -- ** CreateLoadBalancer + , module Network.AWS.ELB.CreateLoadBalancer -- ** DeleteLoadBalancerListeners , module Network.AWS.ELB.DeleteLoadBalancerListeners - -- ** CreateLoadBalancer - , module Network.AWS.ELB.CreateLoadBalancer - -- ** SetLoadBalancerPoliciesOfListener , module Network.AWS.ELB.SetLoadBalancerPoliciesOfListener @@ -285,9 +285,9 @@ , LoadBalancerDescription , loadBalancerDescription , lbdSourceSecurityGroup - , lbdHealthCheck , lbdCanonicalHostedZoneName , lbdSecurityGroups + , lbdHealthCheck , lbdLoadBalancerName , lbdCreatedTime , lbdVPCId diff --git a/gen/Network/AWS/ELB/AddTags.hs b/gen/Network/AWS/ELB/AddTags.hs --- a/gen/Network/AWS/ELB/AddTags.hs +++ b/gen/Network/AWS/ELB/AddTags.hs @@ -43,7 +43,7 @@ , addTagsResponse , AddTagsResponse -- * Response Lenses - , atrsStatus + , atrsResponseStatus ) where import Network.AWS.ELB.Types @@ -106,22 +106,22 @@ -- | /See:/ 'addTagsResponse' smart constructor. newtype AddTagsResponse = AddTagsResponse' - { _atrsStatus :: Int + { _atrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'AddTagsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'atrsStatus' +-- * 'atrsResponseStatus' addTagsResponse - :: Int -- ^ 'atrsStatus' + :: Int -- ^ 'atrsResponseStatus' -> AddTagsResponse -addTagsResponse pStatus_ = +addTagsResponse pResponseStatus_ = AddTagsResponse' - { _atrsStatus = pStatus_ + { _atrsResponseStatus = pResponseStatus_ } -- | The response status code. -atrsStatus :: Lens' AddTagsResponse Int -atrsStatus = lens _atrsStatus (\ s a -> s{_atrsStatus = a}); +atrsResponseStatus :: Lens' AddTagsResponse Int +atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs b/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs --- a/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs +++ b/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs @@ -41,7 +41,7 @@ , ApplySecurityGroupsToLoadBalancerResponse -- * Response Lenses , asgtlbrsSecurityGroups - , asgtlbrsStatus + , asgtlbrsResponseStatus ) where import Network.AWS.ELB.Types @@ -117,7 +117,7 @@ -- | /See:/ 'applySecurityGroupsToLoadBalancerResponse' smart constructor. data ApplySecurityGroupsToLoadBalancerResponse = ApplySecurityGroupsToLoadBalancerResponse' { _asgtlbrsSecurityGroups :: !(Maybe [Text]) - , _asgtlbrsStatus :: !Int + , _asgtlbrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ApplySecurityGroupsToLoadBalancerResponse' with the minimum fields required to make a request. @@ -126,14 +126,14 @@ -- -- * 'asgtlbrsSecurityGroups' -- --- * 'asgtlbrsStatus' +-- * 'asgtlbrsResponseStatus' applySecurityGroupsToLoadBalancerResponse - :: Int -- ^ 'asgtlbrsStatus' + :: Int -- ^ 'asgtlbrsResponseStatus' -> ApplySecurityGroupsToLoadBalancerResponse -applySecurityGroupsToLoadBalancerResponse pStatus_ = +applySecurityGroupsToLoadBalancerResponse pResponseStatus_ = ApplySecurityGroupsToLoadBalancerResponse' { _asgtlbrsSecurityGroups = Nothing - , _asgtlbrsStatus = pStatus_ + , _asgtlbrsResponseStatus = pResponseStatus_ } -- | The IDs of the security groups associated with the load balancer. @@ -141,5 +141,5 @@ asgtlbrsSecurityGroups = lens _asgtlbrsSecurityGroups (\ s a -> s{_asgtlbrsSecurityGroups = a}) . _Default . _Coerce; -- | The response status code. -asgtlbrsStatus :: Lens' ApplySecurityGroupsToLoadBalancerResponse Int -asgtlbrsStatus = lens _asgtlbrsStatus (\ s a -> s{_asgtlbrsStatus = a}); +asgtlbrsResponseStatus :: Lens' ApplySecurityGroupsToLoadBalancerResponse Int +asgtlbrsResponseStatus = lens _asgtlbrsResponseStatus (\ s a -> s{_asgtlbrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs b/gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs --- a/gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs +++ b/gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs @@ -41,7 +41,7 @@ , AttachLoadBalancerToSubnetsResponse -- * Response Lenses , albtsrsSubnets - , albtsrsStatus + , albtsrsResponseStatus ) where import Network.AWS.ELB.Types @@ -111,8 +111,8 @@ -- | /See:/ 'attachLoadBalancerToSubnetsResponse' smart constructor. data AttachLoadBalancerToSubnetsResponse = AttachLoadBalancerToSubnetsResponse' - { _albtsrsSubnets :: !(Maybe [Text]) - , _albtsrsStatus :: !Int + { _albtsrsSubnets :: !(Maybe [Text]) + , _albtsrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'AttachLoadBalancerToSubnetsResponse' with the minimum fields required to make a request. @@ -121,14 +121,14 @@ -- -- * 'albtsrsSubnets' -- --- * 'albtsrsStatus' +-- * 'albtsrsResponseStatus' attachLoadBalancerToSubnetsResponse - :: Int -- ^ 'albtsrsStatus' + :: Int -- ^ 'albtsrsResponseStatus' -> AttachLoadBalancerToSubnetsResponse -attachLoadBalancerToSubnetsResponse pStatus_ = +attachLoadBalancerToSubnetsResponse pResponseStatus_ = AttachLoadBalancerToSubnetsResponse' { _albtsrsSubnets = Nothing - , _albtsrsStatus = pStatus_ + , _albtsrsResponseStatus = pResponseStatus_ } -- | The IDs of the subnets attached to the load balancer. @@ -136,5 +136,5 @@ albtsrsSubnets = lens _albtsrsSubnets (\ s a -> s{_albtsrsSubnets = a}) . _Default . _Coerce; -- | The response status code. -albtsrsStatus :: Lens' AttachLoadBalancerToSubnetsResponse Int -albtsrsStatus = lens _albtsrsStatus (\ s a -> s{_albtsrsStatus = a}); +albtsrsResponseStatus :: Lens' AttachLoadBalancerToSubnetsResponse Int +albtsrsResponseStatus = lens _albtsrsResponseStatus (\ s a -> s{_albtsrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/ConfigureHealthCheck.hs b/gen/Network/AWS/ELB/ConfigureHealthCheck.hs --- a/gen/Network/AWS/ELB/ConfigureHealthCheck.hs +++ b/gen/Network/AWS/ELB/ConfigureHealthCheck.hs @@ -40,7 +40,7 @@ , ConfigureHealthCheckResponse -- * Response Lenses , chcrsHealthCheck - , chcrsStatus + , chcrsResponseStatus ) where import Network.AWS.ELB.Types @@ -106,8 +106,8 @@ -- | /See:/ 'configureHealthCheckResponse' smart constructor. data ConfigureHealthCheckResponse = ConfigureHealthCheckResponse' - { _chcrsHealthCheck :: !(Maybe HealthCheck) - , _chcrsStatus :: !Int + { _chcrsHealthCheck :: !(Maybe HealthCheck) + , _chcrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ConfigureHealthCheckResponse' with the minimum fields required to make a request. @@ -116,14 +116,14 @@ -- -- * 'chcrsHealthCheck' -- --- * 'chcrsStatus' +-- * 'chcrsResponseStatus' configureHealthCheckResponse - :: Int -- ^ 'chcrsStatus' + :: Int -- ^ 'chcrsResponseStatus' -> ConfigureHealthCheckResponse -configureHealthCheckResponse pStatus_ = +configureHealthCheckResponse pResponseStatus_ = ConfigureHealthCheckResponse' { _chcrsHealthCheck = Nothing - , _chcrsStatus = pStatus_ + , _chcrsResponseStatus = pResponseStatus_ } -- | The updated health check. @@ -131,5 +131,5 @@ chcrsHealthCheck = lens _chcrsHealthCheck (\ s a -> s{_chcrsHealthCheck = a}); -- | The response status code. -chcrsStatus :: Lens' ConfigureHealthCheckResponse Int -chcrsStatus = lens _chcrsStatus (\ s a -> s{_chcrsStatus = a}); +chcrsResponseStatus :: Lens' ConfigureHealthCheckResponse Int +chcrsResponseStatus = lens _chcrsResponseStatus (\ s a -> s{_chcrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs b/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs --- a/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs +++ b/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs @@ -51,7 +51,7 @@ , createAppCookieStickinessPolicyResponse , CreateAppCookieStickinessPolicyResponse -- * Response Lenses - , cacsprsStatus + , cacsprsResponseStatus ) where import Network.AWS.ELB.Types @@ -133,22 +133,22 @@ -- | /See:/ 'createAppCookieStickinessPolicyResponse' smart constructor. newtype CreateAppCookieStickinessPolicyResponse = CreateAppCookieStickinessPolicyResponse' - { _cacsprsStatus :: Int + { _cacsprsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateAppCookieStickinessPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'cacsprsStatus' +-- * 'cacsprsResponseStatus' createAppCookieStickinessPolicyResponse - :: Int -- ^ 'cacsprsStatus' + :: Int -- ^ 'cacsprsResponseStatus' -> CreateAppCookieStickinessPolicyResponse -createAppCookieStickinessPolicyResponse pStatus_ = +createAppCookieStickinessPolicyResponse pResponseStatus_ = CreateAppCookieStickinessPolicyResponse' - { _cacsprsStatus = pStatus_ + { _cacsprsResponseStatus = pResponseStatus_ } -- | The response status code. -cacsprsStatus :: Lens' CreateAppCookieStickinessPolicyResponse Int -cacsprsStatus = lens _cacsprsStatus (\ s a -> s{_cacsprsStatus = a}); +cacsprsResponseStatus :: Lens' CreateAppCookieStickinessPolicyResponse Int +cacsprsResponseStatus = lens _cacsprsResponseStatus (\ s a -> s{_cacsprsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs b/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs --- a/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs +++ b/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs @@ -54,7 +54,7 @@ , createLBCookieStickinessPolicyResponse , CreateLBCookieStickinessPolicyResponse -- * Response Lenses - , clbcsprsStatus + , clbcsprsResponseStatus ) where import Network.AWS.ELB.Types @@ -137,22 +137,22 @@ -- | /See:/ 'createLBCookieStickinessPolicyResponse' smart constructor. newtype CreateLBCookieStickinessPolicyResponse = CreateLBCookieStickinessPolicyResponse' - { _clbcsprsStatus :: Int + { _clbcsprsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateLBCookieStickinessPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'clbcsprsStatus' +-- * 'clbcsprsResponseStatus' createLBCookieStickinessPolicyResponse - :: Int -- ^ 'clbcsprsStatus' + :: Int -- ^ 'clbcsprsResponseStatus' -> CreateLBCookieStickinessPolicyResponse -createLBCookieStickinessPolicyResponse pStatus_ = +createLBCookieStickinessPolicyResponse pResponseStatus_ = CreateLBCookieStickinessPolicyResponse' - { _clbcsprsStatus = pStatus_ + { _clbcsprsResponseStatus = pResponseStatus_ } -- | The response status code. -clbcsprsStatus :: Lens' CreateLBCookieStickinessPolicyResponse Int -clbcsprsStatus = lens _clbcsprsStatus (\ s a -> s{_clbcsprsStatus = a}); +clbcsprsResponseStatus :: Lens' CreateLBCookieStickinessPolicyResponse Int +clbcsprsResponseStatus = lens _clbcsprsResponseStatus (\ s a -> s{_clbcsprsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/CreateLoadBalancer.hs b/gen/Network/AWS/ELB/CreateLoadBalancer.hs --- a/gen/Network/AWS/ELB/CreateLoadBalancer.hs +++ b/gen/Network/AWS/ELB/CreateLoadBalancer.hs @@ -53,7 +53,7 @@ , CreateLoadBalancerResponse -- * Response Lenses , clbrsDNSName - , clbrsStatus + , clbrsResponseStatus ) where import Network.AWS.ELB.Types @@ -200,8 +200,8 @@ -- | /See:/ 'createLoadBalancerResponse' smart constructor. data CreateLoadBalancerResponse = CreateLoadBalancerResponse' - { _clbrsDNSName :: !(Maybe Text) - , _clbrsStatus :: !Int + { _clbrsDNSName :: !(Maybe Text) + , _clbrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateLoadBalancerResponse' with the minimum fields required to make a request. @@ -210,14 +210,14 @@ -- -- * 'clbrsDNSName' -- --- * 'clbrsStatus' +-- * 'clbrsResponseStatus' createLoadBalancerResponse - :: Int -- ^ 'clbrsStatus' + :: Int -- ^ 'clbrsResponseStatus' -> CreateLoadBalancerResponse -createLoadBalancerResponse pStatus_ = +createLoadBalancerResponse pResponseStatus_ = CreateLoadBalancerResponse' { _clbrsDNSName = Nothing - , _clbrsStatus = pStatus_ + , _clbrsResponseStatus = pResponseStatus_ } -- | The DNS name of the load balancer. @@ -225,5 +225,5 @@ clbrsDNSName = lens _clbrsDNSName (\ s a -> s{_clbrsDNSName = a}); -- | The response status code. -clbrsStatus :: Lens' CreateLoadBalancerResponse Int -clbrsStatus = lens _clbrsStatus (\ s a -> s{_clbrsStatus = a}); +clbrsResponseStatus :: Lens' CreateLoadBalancerResponse Int +clbrsResponseStatus = lens _clbrsResponseStatus (\ s a -> s{_clbrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs b/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs --- a/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs +++ b/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs @@ -41,7 +41,7 @@ , createLoadBalancerListenersResponse , CreateLoadBalancerListenersResponse -- * Response Lenses - , clblrsStatus + , clblrsResponseStatus ) where import Network.AWS.ELB.Types @@ -108,22 +108,22 @@ -- | /See:/ 'createLoadBalancerListenersResponse' smart constructor. newtype CreateLoadBalancerListenersResponse = CreateLoadBalancerListenersResponse' - { _clblrsStatus :: Int + { _clblrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateLoadBalancerListenersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'clblrsStatus' +-- * 'clblrsResponseStatus' createLoadBalancerListenersResponse - :: Int -- ^ 'clblrsStatus' + :: Int -- ^ 'clblrsResponseStatus' -> CreateLoadBalancerListenersResponse -createLoadBalancerListenersResponse pStatus_ = +createLoadBalancerListenersResponse pResponseStatus_ = CreateLoadBalancerListenersResponse' - { _clblrsStatus = pStatus_ + { _clblrsResponseStatus = pResponseStatus_ } -- | The response status code. -clblrsStatus :: Lens' CreateLoadBalancerListenersResponse Int -clblrsStatus = lens _clblrsStatus (\ s a -> s{_clblrsStatus = a}); +clblrsResponseStatus :: Lens' CreateLoadBalancerListenersResponse Int +clblrsResponseStatus = lens _clblrsResponseStatus (\ s a -> s{_clblrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs b/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs --- a/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs +++ b/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs @@ -41,7 +41,7 @@ , createLoadBalancerPolicyResponse , CreateLoadBalancerPolicyResponse -- * Response Lenses - , clbprsStatus + , clbprsResponseStatus ) where import Network.AWS.ELB.Types @@ -131,22 +131,22 @@ -- | /See:/ 'createLoadBalancerPolicyResponse' smart constructor. newtype CreateLoadBalancerPolicyResponse = CreateLoadBalancerPolicyResponse' - { _clbprsStatus :: Int + { _clbprsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateLoadBalancerPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'clbprsStatus' +-- * 'clbprsResponseStatus' createLoadBalancerPolicyResponse - :: Int -- ^ 'clbprsStatus' + :: Int -- ^ 'clbprsResponseStatus' -> CreateLoadBalancerPolicyResponse -createLoadBalancerPolicyResponse pStatus_ = +createLoadBalancerPolicyResponse pResponseStatus_ = CreateLoadBalancerPolicyResponse' - { _clbprsStatus = pStatus_ + { _clbprsResponseStatus = pResponseStatus_ } -- | The response status code. -clbprsStatus :: Lens' CreateLoadBalancerPolicyResponse Int -clbprsStatus = lens _clbprsStatus (\ s a -> s{_clbprsStatus = a}); +clbprsResponseStatus :: Lens' CreateLoadBalancerPolicyResponse Int +clbprsResponseStatus = lens _clbprsResponseStatus (\ s a -> s{_clbprsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/DeleteLoadBalancer.hs b/gen/Network/AWS/ELB/DeleteLoadBalancer.hs --- a/gen/Network/AWS/ELB/DeleteLoadBalancer.hs +++ b/gen/Network/AWS/ELB/DeleteLoadBalancer.hs @@ -42,7 +42,7 @@ , deleteLoadBalancerResponse , DeleteLoadBalancerResponse -- * Response Lenses - , drsStatus + , drsResponseStatus ) where import Network.AWS.ELB.Types @@ -97,22 +97,22 @@ -- | /See:/ 'deleteLoadBalancerResponse' smart constructor. newtype DeleteLoadBalancerResponse = DeleteLoadBalancerResponse' - { _drsStatus :: Int + { _drsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeleteLoadBalancerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'drsStatus' +-- * 'drsResponseStatus' deleteLoadBalancerResponse - :: Int -- ^ 'drsStatus' + :: Int -- ^ 'drsResponseStatus' -> DeleteLoadBalancerResponse -deleteLoadBalancerResponse pStatus_ = +deleteLoadBalancerResponse pResponseStatus_ = DeleteLoadBalancerResponse' - { _drsStatus = pStatus_ + { _drsResponseStatus = pResponseStatus_ } -- | The response status code. -drsStatus :: Lens' DeleteLoadBalancerResponse Int -drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a}); +drsResponseStatus :: Lens' DeleteLoadBalancerResponse Int +drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs b/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs --- a/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs +++ b/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs @@ -34,7 +34,7 @@ , deleteLoadBalancerListenersResponse , DeleteLoadBalancerListenersResponse -- * Response Lenses - , dlblrsStatus + , dlblrsResponseStatus ) where import Network.AWS.ELB.Types @@ -102,22 +102,22 @@ -- | /See:/ 'deleteLoadBalancerListenersResponse' smart constructor. newtype DeleteLoadBalancerListenersResponse = DeleteLoadBalancerListenersResponse' - { _dlblrsStatus :: Int + { _dlblrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeleteLoadBalancerListenersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dlblrsStatus' +-- * 'dlblrsResponseStatus' deleteLoadBalancerListenersResponse - :: Int -- ^ 'dlblrsStatus' + :: Int -- ^ 'dlblrsResponseStatus' -> DeleteLoadBalancerListenersResponse -deleteLoadBalancerListenersResponse pStatus_ = +deleteLoadBalancerListenersResponse pResponseStatus_ = DeleteLoadBalancerListenersResponse' - { _dlblrsStatus = pStatus_ + { _dlblrsResponseStatus = pResponseStatus_ } -- | The response status code. -dlblrsStatus :: Lens' DeleteLoadBalancerListenersResponse Int -dlblrsStatus = lens _dlblrsStatus (\ s a -> s{_dlblrsStatus = a}); +dlblrsResponseStatus :: Lens' DeleteLoadBalancerListenersResponse Int +dlblrsResponseStatus = lens _dlblrsResponseStatus (\ s a -> s{_dlblrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs b/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs --- a/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs +++ b/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs @@ -35,7 +35,7 @@ , deleteLoadBalancerPolicyResponse , DeleteLoadBalancerPolicyResponse -- * Response Lenses - , delrsStatus + , delrsResponseStatus ) where import Network.AWS.ELB.Types @@ -104,22 +104,22 @@ -- | /See:/ 'deleteLoadBalancerPolicyResponse' smart constructor. newtype DeleteLoadBalancerPolicyResponse = DeleteLoadBalancerPolicyResponse' - { _delrsStatus :: Int + { _delrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeleteLoadBalancerPolicyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'delrsStatus' +-- * 'delrsResponseStatus' deleteLoadBalancerPolicyResponse - :: Int -- ^ 'delrsStatus' + :: Int -- ^ 'delrsResponseStatus' -> DeleteLoadBalancerPolicyResponse -deleteLoadBalancerPolicyResponse pStatus_ = +deleteLoadBalancerPolicyResponse pResponseStatus_ = DeleteLoadBalancerPolicyResponse' - { _delrsStatus = pStatus_ + { _delrsResponseStatus = pResponseStatus_ } -- | The response status code. -delrsStatus :: Lens' DeleteLoadBalancerPolicyResponse Int -delrsStatus = lens _delrsStatus (\ s a -> s{_delrsStatus = a}); +delrsResponseStatus :: Lens' DeleteLoadBalancerPolicyResponse Int +delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs b/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs --- a/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs +++ b/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs @@ -44,7 +44,7 @@ , DeregisterInstancesFromLoadBalancerResponse -- * Response Lenses , diflbrsInstances - , diflbrsStatus + , diflbrsResponseStatus ) where import Network.AWS.ELB.Types @@ -118,8 +118,8 @@ -- | /See:/ 'deregisterInstancesFromLoadBalancerResponse' smart constructor. data DeregisterInstancesFromLoadBalancerResponse = DeregisterInstancesFromLoadBalancerResponse' - { _diflbrsInstances :: !(Maybe [Instance]) - , _diflbrsStatus :: !Int + { _diflbrsInstances :: !(Maybe [Instance]) + , _diflbrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeregisterInstancesFromLoadBalancerResponse' with the minimum fields required to make a request. @@ -128,14 +128,14 @@ -- -- * 'diflbrsInstances' -- --- * 'diflbrsStatus' +-- * 'diflbrsResponseStatus' deregisterInstancesFromLoadBalancerResponse - :: Int -- ^ 'diflbrsStatus' + :: Int -- ^ 'diflbrsResponseStatus' -> DeregisterInstancesFromLoadBalancerResponse -deregisterInstancesFromLoadBalancerResponse pStatus_ = +deregisterInstancesFromLoadBalancerResponse pResponseStatus_ = DeregisterInstancesFromLoadBalancerResponse' { _diflbrsInstances = Nothing - , _diflbrsStatus = pStatus_ + , _diflbrsResponseStatus = pResponseStatus_ } -- | The remaining instances registered with the load balancer. @@ -143,5 +143,5 @@ diflbrsInstances = lens _diflbrsInstances (\ s a -> s{_diflbrsInstances = a}) . _Default . _Coerce; -- | The response status code. -diflbrsStatus :: Lens' DeregisterInstancesFromLoadBalancerResponse Int -diflbrsStatus = lens _diflbrsStatus (\ s a -> s{_diflbrsStatus = a}); +diflbrsResponseStatus :: Lens' DeregisterInstancesFromLoadBalancerResponse Int +diflbrsResponseStatus = lens _diflbrsResponseStatus (\ s a -> s{_diflbrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/DescribeInstanceHealth.hs b/gen/Network/AWS/ELB/DescribeInstanceHealth.hs --- a/gen/Network/AWS/ELB/DescribeInstanceHealth.hs +++ b/gen/Network/AWS/ELB/DescribeInstanceHealth.hs @@ -38,7 +38,7 @@ , DescribeInstanceHealthResponse -- * Response Lenses , dihrsInstanceStates - , dihrsStatus + , dihrsResponseStatus ) where import Network.AWS.ELB.Types @@ -108,7 +108,7 @@ -- | /See:/ 'describeInstanceHealthResponse' smart constructor. data DescribeInstanceHealthResponse = DescribeInstanceHealthResponse' { _dihrsInstanceStates :: !(Maybe [InstanceState]) - , _dihrsStatus :: !Int + , _dihrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeInstanceHealthResponse' with the minimum fields required to make a request. @@ -117,14 +117,14 @@ -- -- * 'dihrsInstanceStates' -- --- * 'dihrsStatus' +-- * 'dihrsResponseStatus' describeInstanceHealthResponse - :: Int -- ^ 'dihrsStatus' + :: Int -- ^ 'dihrsResponseStatus' -> DescribeInstanceHealthResponse -describeInstanceHealthResponse pStatus_ = +describeInstanceHealthResponse pResponseStatus_ = DescribeInstanceHealthResponse' { _dihrsInstanceStates = Nothing - , _dihrsStatus = pStatus_ + , _dihrsResponseStatus = pResponseStatus_ } -- | Information about the health of the instances. @@ -132,5 +132,5 @@ dihrsInstanceStates = lens _dihrsInstanceStates (\ s a -> s{_dihrsInstanceStates = a}) . _Default . _Coerce; -- | The response status code. -dihrsStatus :: Lens' DescribeInstanceHealthResponse Int -dihrsStatus = lens _dihrsStatus (\ s a -> s{_dihrsStatus = a}); +dihrsResponseStatus :: Lens' DescribeInstanceHealthResponse Int +dihrsResponseStatus = lens _dihrsResponseStatus (\ s a -> s{_dihrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs b/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs --- a/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs +++ b/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs @@ -34,7 +34,7 @@ , DescribeLoadBalancerAttributesResponse -- * Response Lenses , dlbarsLoadBalancerAttributes - , dlbarsStatus + , dlbarsResponseStatus ) where import Network.AWS.ELB.Types @@ -96,7 +96,7 @@ -- | /See:/ 'describeLoadBalancerAttributesResponse' smart constructor. data DescribeLoadBalancerAttributesResponse = DescribeLoadBalancerAttributesResponse' { _dlbarsLoadBalancerAttributes :: !(Maybe LoadBalancerAttributes) - , _dlbarsStatus :: !Int + , _dlbarsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeLoadBalancerAttributesResponse' with the minimum fields required to make a request. @@ -105,14 +105,14 @@ -- -- * 'dlbarsLoadBalancerAttributes' -- --- * 'dlbarsStatus' +-- * 'dlbarsResponseStatus' describeLoadBalancerAttributesResponse - :: Int -- ^ 'dlbarsStatus' + :: Int -- ^ 'dlbarsResponseStatus' -> DescribeLoadBalancerAttributesResponse -describeLoadBalancerAttributesResponse pStatus_ = +describeLoadBalancerAttributesResponse pResponseStatus_ = DescribeLoadBalancerAttributesResponse' { _dlbarsLoadBalancerAttributes = Nothing - , _dlbarsStatus = pStatus_ + , _dlbarsResponseStatus = pResponseStatus_ } -- | Information about the load balancer attributes. @@ -120,5 +120,5 @@ dlbarsLoadBalancerAttributes = lens _dlbarsLoadBalancerAttributes (\ s a -> s{_dlbarsLoadBalancerAttributes = a}); -- | The response status code. -dlbarsStatus :: Lens' DescribeLoadBalancerAttributesResponse Int -dlbarsStatus = lens _dlbarsStatus (\ s a -> s{_dlbarsStatus = a}); +dlbarsResponseStatus :: Lens' DescribeLoadBalancerAttributesResponse Int +dlbarsResponseStatus = lens _dlbarsResponseStatus (\ s a -> s{_dlbarsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs --- a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs +++ b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs @@ -43,7 +43,7 @@ , DescribeLoadBalancerPoliciesResponse -- * Response Lenses , dlbprsPolicyDescriptions - , dlbprsStatus + , dlbprsResponseStatus ) where import Network.AWS.ELB.Types @@ -114,7 +114,7 @@ -- | /See:/ 'describeLoadBalancerPoliciesResponse' smart constructor. data DescribeLoadBalancerPoliciesResponse = DescribeLoadBalancerPoliciesResponse' { _dlbprsPolicyDescriptions :: !(Maybe [PolicyDescription]) - , _dlbprsStatus :: !Int + , _dlbprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeLoadBalancerPoliciesResponse' with the minimum fields required to make a request. @@ -123,14 +123,14 @@ -- -- * 'dlbprsPolicyDescriptions' -- --- * 'dlbprsStatus' +-- * 'dlbprsResponseStatus' describeLoadBalancerPoliciesResponse - :: Int -- ^ 'dlbprsStatus' + :: Int -- ^ 'dlbprsResponseStatus' -> DescribeLoadBalancerPoliciesResponse -describeLoadBalancerPoliciesResponse pStatus_ = +describeLoadBalancerPoliciesResponse pResponseStatus_ = DescribeLoadBalancerPoliciesResponse' { _dlbprsPolicyDescriptions = Nothing - , _dlbprsStatus = pStatus_ + , _dlbprsResponseStatus = pResponseStatus_ } -- | Information about the policies. @@ -138,5 +138,5 @@ dlbprsPolicyDescriptions = lens _dlbprsPolicyDescriptions (\ s a -> s{_dlbprsPolicyDescriptions = a}) . _Default . _Coerce; -- | The response status code. -dlbprsStatus :: Lens' DescribeLoadBalancerPoliciesResponse Int -dlbprsStatus = lens _dlbprsStatus (\ s a -> s{_dlbprsStatus = a}); +dlbprsResponseStatus :: Lens' DescribeLoadBalancerPoliciesResponse Int +dlbprsResponseStatus = lens _dlbprsResponseStatus (\ s a -> s{_dlbprsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs --- a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs +++ b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs @@ -37,7 +37,7 @@ , DescribeLoadBalancerPolicyTypesResponse -- * Response Lenses , dlbptrsPolicyTypeDescriptions - , dlbptrsStatus + , dlbptrsResponseStatus ) where import Network.AWS.ELB.Types @@ -103,7 +103,7 @@ -- | /See:/ 'describeLoadBalancerPolicyTypesResponse' smart constructor. data DescribeLoadBalancerPolicyTypesResponse = DescribeLoadBalancerPolicyTypesResponse' { _dlbptrsPolicyTypeDescriptions :: !(Maybe [PolicyTypeDescription]) - , _dlbptrsStatus :: !Int + , _dlbptrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeLoadBalancerPolicyTypesResponse' with the minimum fields required to make a request. @@ -112,14 +112,14 @@ -- -- * 'dlbptrsPolicyTypeDescriptions' -- --- * 'dlbptrsStatus' +-- * 'dlbptrsResponseStatus' describeLoadBalancerPolicyTypesResponse - :: Int -- ^ 'dlbptrsStatus' + :: Int -- ^ 'dlbptrsResponseStatus' -> DescribeLoadBalancerPolicyTypesResponse -describeLoadBalancerPolicyTypesResponse pStatus_ = +describeLoadBalancerPolicyTypesResponse pResponseStatus_ = DescribeLoadBalancerPolicyTypesResponse' { _dlbptrsPolicyTypeDescriptions = Nothing - , _dlbptrsStatus = pStatus_ + , _dlbptrsResponseStatus = pResponseStatus_ } -- | Information about the policy types. @@ -127,5 +127,5 @@ dlbptrsPolicyTypeDescriptions = lens _dlbptrsPolicyTypeDescriptions (\ s a -> s{_dlbptrsPolicyTypeDescriptions = a}) . _Default . _Coerce; -- | The response status code. -dlbptrsStatus :: Lens' DescribeLoadBalancerPolicyTypesResponse Int -dlbptrsStatus = lens _dlbptrsStatus (\ s a -> s{_dlbptrsStatus = a}); +dlbptrsResponseStatus :: Lens' DescribeLoadBalancerPolicyTypesResponse Int +dlbptrsResponseStatus = lens _dlbptrsResponseStatus (\ s a -> s{_dlbptrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancers.hs b/gen/Network/AWS/ELB/DescribeLoadBalancers.hs --- a/gen/Network/AWS/ELB/DescribeLoadBalancers.hs +++ b/gen/Network/AWS/ELB/DescribeLoadBalancers.hs @@ -40,7 +40,7 @@ -- * Response Lenses , dlbrsLoadBalancerDescriptions , dlbrsNextMarker - , dlbrsStatus + , dlbrsResponseStatus ) where import Network.AWS.ELB.Types @@ -130,7 +130,7 @@ data DescribeLoadBalancersResponse = DescribeLoadBalancersResponse' { _dlbrsLoadBalancerDescriptions :: !(Maybe [LoadBalancerDescription]) , _dlbrsNextMarker :: !(Maybe Text) - , _dlbrsStatus :: !Int + , _dlbrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeLoadBalancersResponse' with the minimum fields required to make a request. @@ -141,15 +141,15 @@ -- -- * 'dlbrsNextMarker' -- --- * 'dlbrsStatus' +-- * 'dlbrsResponseStatus' describeLoadBalancersResponse - :: Int -- ^ 'dlbrsStatus' + :: Int -- ^ 'dlbrsResponseStatus' -> DescribeLoadBalancersResponse -describeLoadBalancersResponse pStatus_ = +describeLoadBalancersResponse pResponseStatus_ = DescribeLoadBalancersResponse' { _dlbrsLoadBalancerDescriptions = Nothing , _dlbrsNextMarker = Nothing - , _dlbrsStatus = pStatus_ + , _dlbrsResponseStatus = pResponseStatus_ } -- | Information about the load balancers. @@ -162,5 +162,5 @@ dlbrsNextMarker = lens _dlbrsNextMarker (\ s a -> s{_dlbrsNextMarker = a}); -- | The response status code. -dlbrsStatus :: Lens' DescribeLoadBalancersResponse Int -dlbrsStatus = lens _dlbrsStatus (\ s a -> s{_dlbrsStatus = a}); +dlbrsResponseStatus :: Lens' DescribeLoadBalancersResponse Int +dlbrsResponseStatus = lens _dlbrsResponseStatus (\ s a -> s{_dlbrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/DescribeTags.hs b/gen/Network/AWS/ELB/DescribeTags.hs --- a/gen/Network/AWS/ELB/DescribeTags.hs +++ b/gen/Network/AWS/ELB/DescribeTags.hs @@ -34,7 +34,7 @@ , DescribeTagsResponse -- * Response Lenses , dtrsTagDescriptions - , dtrsStatus + , dtrsResponseStatus ) where import Network.AWS.ELB.Types @@ -93,7 +93,7 @@ -- | /See:/ 'describeTagsResponse' smart constructor. data DescribeTagsResponse = DescribeTagsResponse' { _dtrsTagDescriptions :: !(Maybe [TagDescription]) - , _dtrsStatus :: !Int + , _dtrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeTagsResponse' with the minimum fields required to make a request. @@ -102,14 +102,14 @@ -- -- * 'dtrsTagDescriptions' -- --- * 'dtrsStatus' +-- * 'dtrsResponseStatus' describeTagsResponse - :: Int -- ^ 'dtrsStatus' + :: Int -- ^ 'dtrsResponseStatus' -> DescribeTagsResponse -describeTagsResponse pStatus_ = +describeTagsResponse pResponseStatus_ = DescribeTagsResponse' { _dtrsTagDescriptions = Nothing - , _dtrsStatus = pStatus_ + , _dtrsResponseStatus = pResponseStatus_ } -- | Information about the tags. @@ -117,5 +117,5 @@ dtrsTagDescriptions = lens _dtrsTagDescriptions (\ s a -> s{_dtrsTagDescriptions = a}) . _Default . _Coerce; -- | The response status code. -dtrsStatus :: Lens' DescribeTagsResponse Int -dtrsStatus = lens _dtrsStatus (\ s a -> s{_dtrsStatus = a}); +dtrsResponseStatus :: Lens' DescribeTagsResponse Int +dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs b/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs --- a/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs +++ b/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs @@ -41,7 +41,7 @@ , DetachLoadBalancerFromSubnetsResponse -- * Response Lenses , dlbfsrsSubnets - , dlbfsrsStatus + , dlbfsrsResponseStatus ) where import Network.AWS.ELB.Types @@ -112,8 +112,8 @@ -- | /See:/ 'detachLoadBalancerFromSubnetsResponse' smart constructor. data DetachLoadBalancerFromSubnetsResponse = DetachLoadBalancerFromSubnetsResponse' - { _dlbfsrsSubnets :: !(Maybe [Text]) - , _dlbfsrsStatus :: !Int + { _dlbfsrsSubnets :: !(Maybe [Text]) + , _dlbfsrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DetachLoadBalancerFromSubnetsResponse' with the minimum fields required to make a request. @@ -122,14 +122,14 @@ -- -- * 'dlbfsrsSubnets' -- --- * 'dlbfsrsStatus' +-- * 'dlbfsrsResponseStatus' detachLoadBalancerFromSubnetsResponse - :: Int -- ^ 'dlbfsrsStatus' + :: Int -- ^ 'dlbfsrsResponseStatus' -> DetachLoadBalancerFromSubnetsResponse -detachLoadBalancerFromSubnetsResponse pStatus_ = +detachLoadBalancerFromSubnetsResponse pResponseStatus_ = DetachLoadBalancerFromSubnetsResponse' { _dlbfsrsSubnets = Nothing - , _dlbfsrsStatus = pStatus_ + , _dlbfsrsResponseStatus = pResponseStatus_ } -- | The IDs of the remaining subnets for the load balancer. @@ -137,5 +137,5 @@ dlbfsrsSubnets = lens _dlbfsrsSubnets (\ s a -> s{_dlbfsrsSubnets = a}) . _Default . _Coerce; -- | The response status code. -dlbfsrsStatus :: Lens' DetachLoadBalancerFromSubnetsResponse Int -dlbfsrsStatus = lens _dlbfsrsStatus (\ s a -> s{_dlbfsrsStatus = a}); +dlbfsrsResponseStatus :: Lens' DetachLoadBalancerFromSubnetsResponse Int +dlbfsrsResponseStatus = lens _dlbfsrsResponseStatus (\ s a -> s{_dlbfsrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs b/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs --- a/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs +++ b/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs @@ -47,7 +47,7 @@ , DisableAvailabilityZonesForLoadBalancerResponse -- * Response Lenses , dazflbrsAvailabilityZones - , dazflbrsStatus + , dazflbrsResponseStatus ) where import Network.AWS.ELB.Types @@ -123,7 +123,7 @@ -- | /See:/ 'disableAvailabilityZonesForLoadBalancerResponse' smart constructor. data DisableAvailabilityZonesForLoadBalancerResponse = DisableAvailabilityZonesForLoadBalancerResponse' { _dazflbrsAvailabilityZones :: !(Maybe [Text]) - , _dazflbrsStatus :: !Int + , _dazflbrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DisableAvailabilityZonesForLoadBalancerResponse' with the minimum fields required to make a request. @@ -132,14 +132,14 @@ -- -- * 'dazflbrsAvailabilityZones' -- --- * 'dazflbrsStatus' +-- * 'dazflbrsResponseStatus' disableAvailabilityZonesForLoadBalancerResponse - :: Int -- ^ 'dazflbrsStatus' + :: Int -- ^ 'dazflbrsResponseStatus' -> DisableAvailabilityZonesForLoadBalancerResponse -disableAvailabilityZonesForLoadBalancerResponse pStatus_ = +disableAvailabilityZonesForLoadBalancerResponse pResponseStatus_ = DisableAvailabilityZonesForLoadBalancerResponse' { _dazflbrsAvailabilityZones = Nothing - , _dazflbrsStatus = pStatus_ + , _dazflbrsResponseStatus = pResponseStatus_ } -- | The remaining Availability Zones for the load balancer. @@ -147,5 +147,5 @@ dazflbrsAvailabilityZones = lens _dazflbrsAvailabilityZones (\ s a -> s{_dazflbrsAvailabilityZones = a}) . _Default . _Coerce; -- | The response status code. -dazflbrsStatus :: Lens' DisableAvailabilityZonesForLoadBalancerResponse Int -dazflbrsStatus = lens _dazflbrsStatus (\ s a -> s{_dazflbrsStatus = a}); +dazflbrsResponseStatus :: Lens' DisableAvailabilityZonesForLoadBalancerResponse Int +dazflbrsResponseStatus = lens _dazflbrsResponseStatus (\ s a -> s{_dazflbrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs b/gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs --- a/gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs +++ b/gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs @@ -43,7 +43,7 @@ , EnableAvailabilityZonesForLoadBalancerResponse -- * Response Lenses , eazflbrsAvailabilityZones - , eazflbrsStatus + , eazflbrsResponseStatus ) where import Network.AWS.ELB.Types @@ -120,7 +120,7 @@ -- | /See:/ 'enableAvailabilityZonesForLoadBalancerResponse' smart constructor. data EnableAvailabilityZonesForLoadBalancerResponse = EnableAvailabilityZonesForLoadBalancerResponse' { _eazflbrsAvailabilityZones :: !(Maybe [Text]) - , _eazflbrsStatus :: !Int + , _eazflbrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'EnableAvailabilityZonesForLoadBalancerResponse' with the minimum fields required to make a request. @@ -129,14 +129,14 @@ -- -- * 'eazflbrsAvailabilityZones' -- --- * 'eazflbrsStatus' +-- * 'eazflbrsResponseStatus' enableAvailabilityZonesForLoadBalancerResponse - :: Int -- ^ 'eazflbrsStatus' + :: Int -- ^ 'eazflbrsResponseStatus' -> EnableAvailabilityZonesForLoadBalancerResponse -enableAvailabilityZonesForLoadBalancerResponse pStatus_ = +enableAvailabilityZonesForLoadBalancerResponse pResponseStatus_ = EnableAvailabilityZonesForLoadBalancerResponse' { _eazflbrsAvailabilityZones = Nothing - , _eazflbrsStatus = pStatus_ + , _eazflbrsResponseStatus = pResponseStatus_ } -- | The updated list of Availability Zones for the load balancer. @@ -144,5 +144,5 @@ eazflbrsAvailabilityZones = lens _eazflbrsAvailabilityZones (\ s a -> s{_eazflbrsAvailabilityZones = a}) . _Default . _Coerce; -- | The response status code. -eazflbrsStatus :: Lens' EnableAvailabilityZonesForLoadBalancerResponse Int -eazflbrsStatus = lens _eazflbrsStatus (\ s a -> s{_eazflbrsStatus = a}); +eazflbrsResponseStatus :: Lens' EnableAvailabilityZonesForLoadBalancerResponse Int +eazflbrsResponseStatus = lens _eazflbrsResponseStatus (\ s a -> s{_eazflbrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs b/gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs --- a/gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs +++ b/gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs @@ -48,9 +48,9 @@ , modifyLoadBalancerAttributesResponse , ModifyLoadBalancerAttributesResponse -- * Response Lenses - , mlbarsLoadBalancerAttributes , mlbarsLoadBalancerName - , mlbarsStatus + , mlbarsLoadBalancerAttributes + , mlbarsResponseStatus ) where import Network.AWS.ELB.Types @@ -100,8 +100,8 @@ "ModifyLoadBalancerAttributesResult" (\ s h x -> ModifyLoadBalancerAttributesResponse' <$> - (x .@? "LoadBalancerAttributes") <*> - (x .@? "LoadBalancerName") + (x .@? "LoadBalancerName") <*> + (x .@? "LoadBalancerAttributes") <*> (pure (fromEnum s))) instance ToHeaders ModifyLoadBalancerAttributes where @@ -122,38 +122,38 @@ -- | /See:/ 'modifyLoadBalancerAttributesResponse' smart constructor. data ModifyLoadBalancerAttributesResponse = ModifyLoadBalancerAttributesResponse' - { _mlbarsLoadBalancerAttributes :: !(Maybe LoadBalancerAttributes) - , _mlbarsLoadBalancerName :: !(Maybe Text) - , _mlbarsStatus :: !Int + { _mlbarsLoadBalancerName :: !(Maybe Text) + , _mlbarsLoadBalancerAttributes :: !(Maybe LoadBalancerAttributes) + , _mlbarsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ModifyLoadBalancerAttributesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'mlbarsLoadBalancerAttributes' --- -- * 'mlbarsLoadBalancerName' -- --- * 'mlbarsStatus' +-- * 'mlbarsLoadBalancerAttributes' +-- +-- * 'mlbarsResponseStatus' modifyLoadBalancerAttributesResponse - :: Int -- ^ 'mlbarsStatus' + :: Int -- ^ 'mlbarsResponseStatus' -> ModifyLoadBalancerAttributesResponse -modifyLoadBalancerAttributesResponse pStatus_ = +modifyLoadBalancerAttributesResponse pResponseStatus_ = ModifyLoadBalancerAttributesResponse' - { _mlbarsLoadBalancerAttributes = Nothing - , _mlbarsLoadBalancerName = Nothing - , _mlbarsStatus = pStatus_ + { _mlbarsLoadBalancerName = Nothing + , _mlbarsLoadBalancerAttributes = Nothing + , _mlbarsResponseStatus = pResponseStatus_ } --- | Undocumented member. -mlbarsLoadBalancerAttributes :: Lens' ModifyLoadBalancerAttributesResponse (Maybe LoadBalancerAttributes) -mlbarsLoadBalancerAttributes = lens _mlbarsLoadBalancerAttributes (\ s a -> s{_mlbarsLoadBalancerAttributes = a}); - -- | The name of the load balancer. mlbarsLoadBalancerName :: Lens' ModifyLoadBalancerAttributesResponse (Maybe Text) mlbarsLoadBalancerName = lens _mlbarsLoadBalancerName (\ s a -> s{_mlbarsLoadBalancerName = a}); +-- | Undocumented member. +mlbarsLoadBalancerAttributes :: Lens' ModifyLoadBalancerAttributesResponse (Maybe LoadBalancerAttributes) +mlbarsLoadBalancerAttributes = lens _mlbarsLoadBalancerAttributes (\ s a -> s{_mlbarsLoadBalancerAttributes = a}); + -- | The response status code. -mlbarsStatus :: Lens' ModifyLoadBalancerAttributesResponse Int -mlbarsStatus = lens _mlbarsStatus (\ s a -> s{_mlbarsStatus = a}); +mlbarsResponseStatus :: Lens' ModifyLoadBalancerAttributesResponse Int +mlbarsResponseStatus = lens _mlbarsResponseStatus (\ s a -> s{_mlbarsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs b/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs --- a/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs +++ b/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs @@ -65,7 +65,7 @@ , RegisterInstancesWithLoadBalancerResponse -- * Response Lenses , riwlbrsInstances - , riwlbrsStatus + , riwlbrsResponseStatus ) where import Network.AWS.ELB.Types @@ -138,8 +138,8 @@ -- | /See:/ 'registerInstancesWithLoadBalancerResponse' smart constructor. data RegisterInstancesWithLoadBalancerResponse = RegisterInstancesWithLoadBalancerResponse' - { _riwlbrsInstances :: !(Maybe [Instance]) - , _riwlbrsStatus :: !Int + { _riwlbrsInstances :: !(Maybe [Instance]) + , _riwlbrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'RegisterInstancesWithLoadBalancerResponse' with the minimum fields required to make a request. @@ -148,14 +148,14 @@ -- -- * 'riwlbrsInstances' -- --- * 'riwlbrsStatus' +-- * 'riwlbrsResponseStatus' registerInstancesWithLoadBalancerResponse - :: Int -- ^ 'riwlbrsStatus' + :: Int -- ^ 'riwlbrsResponseStatus' -> RegisterInstancesWithLoadBalancerResponse -registerInstancesWithLoadBalancerResponse pStatus_ = +registerInstancesWithLoadBalancerResponse pResponseStatus_ = RegisterInstancesWithLoadBalancerResponse' { _riwlbrsInstances = Nothing - , _riwlbrsStatus = pStatus_ + , _riwlbrsResponseStatus = pResponseStatus_ } -- | The updated list of instances for the load balancer. @@ -163,5 +163,5 @@ riwlbrsInstances = lens _riwlbrsInstances (\ s a -> s{_riwlbrsInstances = a}) . _Default . _Coerce; -- | The response status code. -riwlbrsStatus :: Lens' RegisterInstancesWithLoadBalancerResponse Int -riwlbrsStatus = lens _riwlbrsStatus (\ s a -> s{_riwlbrsStatus = a}); +riwlbrsResponseStatus :: Lens' RegisterInstancesWithLoadBalancerResponse Int +riwlbrsResponseStatus = lens _riwlbrsResponseStatus (\ s a -> s{_riwlbrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/RemoveTags.hs b/gen/Network/AWS/ELB/RemoveTags.hs --- a/gen/Network/AWS/ELB/RemoveTags.hs +++ b/gen/Network/AWS/ELB/RemoveTags.hs @@ -34,7 +34,7 @@ , removeTagsResponse , RemoveTagsResponse -- * Response Lenses - , rtrsStatus + , rtrsResponseStatus ) where import Network.AWS.ELB.Types @@ -99,22 +99,22 @@ -- | /See:/ 'removeTagsResponse' smart constructor. newtype RemoveTagsResponse = RemoveTagsResponse' - { _rtrsStatus :: Int + { _rtrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'RemoveTagsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'rtrsStatus' +-- * 'rtrsResponseStatus' removeTagsResponse - :: Int -- ^ 'rtrsStatus' + :: Int -- ^ 'rtrsResponseStatus' -> RemoveTagsResponse -removeTagsResponse pStatus_ = +removeTagsResponse pResponseStatus_ = RemoveTagsResponse' - { _rtrsStatus = pStatus_ + { _rtrsResponseStatus = pResponseStatus_ } -- | The response status code. -rtrsStatus :: Lens' RemoveTagsResponse Int -rtrsStatus = lens _rtrsStatus (\ s a -> s{_rtrsStatus = a}); +rtrsResponseStatus :: Lens' RemoveTagsResponse Int +rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs b/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs --- a/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs +++ b/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs @@ -41,7 +41,7 @@ , setLoadBalancerListenerSSLCertificateResponse , SetLoadBalancerListenerSSLCertificateResponse -- * Response Lenses - , slblscrsStatus + , slblscrsResponseStatus ) where import Network.AWS.ELB.Types @@ -124,22 +124,22 @@ -- | /See:/ 'setLoadBalancerListenerSSLCertificateResponse' smart constructor. newtype SetLoadBalancerListenerSSLCertificateResponse = SetLoadBalancerListenerSSLCertificateResponse' - { _slblscrsStatus :: Int + { _slblscrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'SetLoadBalancerListenerSSLCertificateResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'slblscrsStatus' +-- * 'slblscrsResponseStatus' setLoadBalancerListenerSSLCertificateResponse - :: Int -- ^ 'slblscrsStatus' + :: Int -- ^ 'slblscrsResponseStatus' -> SetLoadBalancerListenerSSLCertificateResponse -setLoadBalancerListenerSSLCertificateResponse pStatus_ = +setLoadBalancerListenerSSLCertificateResponse pResponseStatus_ = SetLoadBalancerListenerSSLCertificateResponse' - { _slblscrsStatus = pStatus_ + { _slblscrsResponseStatus = pResponseStatus_ } -- | The response status code. -slblscrsStatus :: Lens' SetLoadBalancerListenerSSLCertificateResponse Int -slblscrsStatus = lens _slblscrsStatus (\ s a -> s{_slblscrsStatus = a}); +slblscrsResponseStatus :: Lens' SetLoadBalancerListenerSSLCertificateResponse Int +slblscrsResponseStatus = lens _slblscrsResponseStatus (\ s a -> s{_slblscrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs --- a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs +++ b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs @@ -46,7 +46,7 @@ , setLoadBalancerPoliciesForBackendServerResponse , SetLoadBalancerPoliciesForBackendServerResponse -- * Response Lenses - , slbpfbsrsStatus + , slbpfbsrsResponseStatus ) where import Network.AWS.ELB.Types @@ -130,22 +130,22 @@ -- | /See:/ 'setLoadBalancerPoliciesForBackendServerResponse' smart constructor. newtype SetLoadBalancerPoliciesForBackendServerResponse = SetLoadBalancerPoliciesForBackendServerResponse' - { _slbpfbsrsStatus :: Int + { _slbpfbsrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'SetLoadBalancerPoliciesForBackendServerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'slbpfbsrsStatus' +-- * 'slbpfbsrsResponseStatus' setLoadBalancerPoliciesForBackendServerResponse - :: Int -- ^ 'slbpfbsrsStatus' + :: Int -- ^ 'slbpfbsrsResponseStatus' -> SetLoadBalancerPoliciesForBackendServerResponse -setLoadBalancerPoliciesForBackendServerResponse pStatus_ = +setLoadBalancerPoliciesForBackendServerResponse pResponseStatus_ = SetLoadBalancerPoliciesForBackendServerResponse' - { _slbpfbsrsStatus = pStatus_ + { _slbpfbsrsResponseStatus = pResponseStatus_ } -- | The response status code. -slbpfbsrsStatus :: Lens' SetLoadBalancerPoliciesForBackendServerResponse Int -slbpfbsrsStatus = lens _slbpfbsrsStatus (\ s a -> s{_slbpfbsrsStatus = a}); +slbpfbsrsResponseStatus :: Lens' SetLoadBalancerPoliciesForBackendServerResponse Int +slbpfbsrsResponseStatus = lens _slbpfbsrsResponseStatus (\ s a -> s{_slbpfbsrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs --- a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs +++ b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs @@ -37,7 +37,7 @@ , setLoadBalancerPoliciesOfListenerResponse , SetLoadBalancerPoliciesOfListenerResponse -- * Response Lenses - , slbpolrsStatus + , slbpolrsResponseStatus ) where import Network.AWS.ELB.Types @@ -120,22 +120,22 @@ -- | /See:/ 'setLoadBalancerPoliciesOfListenerResponse' smart constructor. newtype SetLoadBalancerPoliciesOfListenerResponse = SetLoadBalancerPoliciesOfListenerResponse' - { _slbpolrsStatus :: Int + { _slbpolrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'SetLoadBalancerPoliciesOfListenerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'slbpolrsStatus' +-- * 'slbpolrsResponseStatus' setLoadBalancerPoliciesOfListenerResponse - :: Int -- ^ 'slbpolrsStatus' + :: Int -- ^ 'slbpolrsResponseStatus' -> SetLoadBalancerPoliciesOfListenerResponse -setLoadBalancerPoliciesOfListenerResponse pStatus_ = +setLoadBalancerPoliciesOfListenerResponse pResponseStatus_ = SetLoadBalancerPoliciesOfListenerResponse' - { _slbpolrsStatus = pStatus_ + { _slbpolrsResponseStatus = pResponseStatus_ } -- | The response status code. -slbpolrsStatus :: Lens' SetLoadBalancerPoliciesOfListenerResponse Int -slbpolrsStatus = lens _slbpolrsStatus (\ s a -> s{_slbpolrsStatus = a}); +slbpolrsResponseStatus :: Lens' SetLoadBalancerPoliciesOfListenerResponse Int +slbpolrsResponseStatus = lens _slbpolrsResponseStatus (\ s a -> s{_slbpolrsResponseStatus = a}); diff --git a/gen/Network/AWS/ELB/Types.hs b/gen/Network/AWS/ELB/Types.hs --- a/gen/Network/AWS/ELB/Types.hs +++ b/gen/Network/AWS/ELB/Types.hs @@ -31,8 +31,8 @@ , _InvalidSecurityGroupException , _ListenerNotFoundException , _InvalidEndPointException - , _TooManyAccessPointsException , _InvalidSchemeException + , _TooManyAccessPointsException , _TooManyPoliciesException , _CertificateNotFoundException @@ -134,9 +134,9 @@ , LoadBalancerDescription , loadBalancerDescription , lbdSourceSecurityGroup - , lbdHealthCheck , lbdCanonicalHostedZoneName , lbdSecurityGroups + , lbdHealthCheck , lbdLoadBalancerName , lbdCreatedTime , lbdVPCId @@ -330,16 +330,16 @@ _InvalidEndPointException = _ServiceError . hasStatus 400 . hasCode "InvalidInstance" --- | The quota for the number of load balancers has been reached. -_TooManyAccessPointsException :: AsError a => Getting (First ServiceError) a ServiceError -_TooManyAccessPointsException = - _ServiceError . hasStatus 400 . hasCode "TooManyLoadBalancers" - -- | The specified value for the schema is not valid. You can only specify a -- scheme for load balancers in a VPC. _InvalidSchemeException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidSchemeException = _ServiceError . hasStatus 400 . hasCode "InvalidScheme" + +-- | The quota for the number of load balancers has been reached. +_TooManyAccessPointsException :: AsError a => Getting (First ServiceError) a ServiceError +_TooManyAccessPointsException = + _ServiceError . hasStatus 400 . hasCode "TooManyLoadBalancers" -- | The quota for the number of policies for this load balancer has been -- reached. diff --git a/gen/Network/AWS/ELB/Types/Product.hs b/gen/Network/AWS/ELB/Types/Product.hs --- a/gen/Network/AWS/ELB/Types/Product.hs +++ b/gen/Network/AWS/ELB/Types/Product.hs @@ -808,9 +808,9 @@ -- /See:/ 'loadBalancerDescription' smart constructor. data LoadBalancerDescription = LoadBalancerDescription' { _lbdSourceSecurityGroup :: !(Maybe SourceSecurityGroup) - , _lbdHealthCheck :: !(Maybe HealthCheck) , _lbdCanonicalHostedZoneName :: !(Maybe Text) , _lbdSecurityGroups :: !(Maybe [Text]) + , _lbdHealthCheck :: !(Maybe HealthCheck) , _lbdLoadBalancerName :: !(Maybe Text) , _lbdCreatedTime :: !(Maybe ISO8601) , _lbdVPCId :: !(Maybe Text) @@ -831,12 +831,12 @@ -- -- * 'lbdSourceSecurityGroup' -- --- * 'lbdHealthCheck' --- -- * 'lbdCanonicalHostedZoneName' -- -- * 'lbdSecurityGroups' -- +-- * 'lbdHealthCheck' +-- -- * 'lbdLoadBalancerName' -- -- * 'lbdCreatedTime' @@ -865,9 +865,9 @@ loadBalancerDescription = LoadBalancerDescription' { _lbdSourceSecurityGroup = Nothing - , _lbdHealthCheck = Nothing , _lbdCanonicalHostedZoneName = Nothing , _lbdSecurityGroups = Nothing + , _lbdHealthCheck = Nothing , _lbdLoadBalancerName = Nothing , _lbdCreatedTime = Nothing , _lbdVPCId = Nothing @@ -890,10 +890,6 @@ lbdSourceSecurityGroup :: Lens' LoadBalancerDescription (Maybe SourceSecurityGroup) lbdSourceSecurityGroup = lens _lbdSourceSecurityGroup (\ s a -> s{_lbdSourceSecurityGroup = a}); --- | Information about the health checks conducted on the load balancer. -lbdHealthCheck :: Lens' LoadBalancerDescription (Maybe HealthCheck) -lbdHealthCheck = lens _lbdHealthCheck (\ s a -> s{_lbdHealthCheck = a}); - -- | The Amazon Route 53 hosted zone associated with the load balancer. -- -- For more information, see @@ -907,6 +903,10 @@ lbdSecurityGroups :: Lens' LoadBalancerDescription [Text] lbdSecurityGroups = lens _lbdSecurityGroups (\ s a -> s{_lbdSecurityGroups = a}) . _Default . _Coerce; +-- | Information about the health checks conducted on the load balancer. +lbdHealthCheck :: Lens' LoadBalancerDescription (Maybe HealthCheck) +lbdHealthCheck = lens _lbdHealthCheck (\ s a -> s{_lbdHealthCheck = a}); + -- | The name of the load balancer. lbdLoadBalancerName :: Lens' LoadBalancerDescription (Maybe Text) lbdLoadBalancerName = lens _lbdLoadBalancerName (\ s a -> s{_lbdLoadBalancerName = a}); @@ -966,11 +966,11 @@ parseXML x = LoadBalancerDescription' <$> (x .@? "SourceSecurityGroup") <*> - (x .@? "HealthCheck") - <*> (x .@? "CanonicalHostedZoneName") + (x .@? "CanonicalHostedZoneName") <*> (x .@? "SecurityGroups" .!@ mempty >>= may (parseXMLList "member")) + <*> (x .@? "HealthCheck") <*> (x .@? "LoadBalancerName") <*> (x .@? "CreatedTime") <*> (x .@? "VPCId") diff --git a/test/Test/AWS/Gen/ELB.hs b/test/Test/AWS/Gen/ELB.hs --- a/test/Test/AWS/Gen/ELB.hs +++ b/test/Test/AWS/Gen/ELB.hs @@ -28,14 +28,14 @@ -- fixtures :: TestTree -- fixtures = -- [ testGroup "request" --- [ testDescribeLoadBalancerPolicyTypes $ --- describeLoadBalancerPolicyTypes +-- [ testDescribeLoadBalancers $ +-- describeLoadBalancers -- -- , testDescribeTags $ -- describeTags -- --- , testDescribeLoadBalancers $ --- describeLoadBalancers +-- , testDescribeLoadBalancerPolicyTypes $ +-- describeLoadBalancerPolicyTypes -- -- , testApplySecurityGroupsToLoadBalancer $ -- applySecurityGroupsToLoadBalancer @@ -49,80 +49,80 @@ -- , testDeleteLoadBalancer $ -- deleteLoadBalancer -- --- , testCreateLoadBalancerPolicy $ --- createLoadBalancerPolicy --- -- , testDeregisterInstancesFromLoadBalancer $ -- deregisterInstancesFromLoadBalancer -- +-- , testCreateLoadBalancerPolicy $ +-- createLoadBalancerPolicy +-- -- , testDescribeLoadBalancerPolicies $ -- describeLoadBalancerPolicies -- -- , testDisableAvailabilityZonesForLoadBalancer $ -- disableAvailabilityZonesForLoadBalancer -- --- , testSetLoadBalancerPoliciesForBackendServer $ --- setLoadBalancerPoliciesForBackendServer --- -- , testEnableAvailabilityZonesForLoadBalancer $ -- enableAvailabilityZonesForLoadBalancer -- +-- , testSetLoadBalancerPoliciesForBackendServer $ +-- setLoadBalancerPoliciesForBackendServer +-- -- , testSetLoadBalancerListenerSSLCertificate $ -- setLoadBalancerListenerSSLCertificate -- --- , testConfigureHealthCheck $ --- configureHealthCheck --- -- , testAttachLoadBalancerToSubnets $ -- attachLoadBalancerToSubnets -- +-- , testConfigureHealthCheck $ +-- configureHealthCheck +-- -- , testModifyLoadBalancerAttributes $ -- modifyLoadBalancerAttributes -- -- , testCreateAppCookieStickinessPolicy $ -- createAppCookieStickinessPolicy -- +-- , testDescribeInstanceHealth $ +-- describeInstanceHealth +-- -- , testAddTags $ -- addTags -- -- , testDescribeLoadBalancerAttributes $ -- describeLoadBalancerAttributes -- --- , testDescribeInstanceHealth $ --- describeInstanceHealth +-- , testCreateLoadBalancerListeners $ +-- createLoadBalancerListeners -- +-- , testDeleteLoadBalancerPolicy $ +-- deleteLoadBalancerPolicy +-- -- , testDetachLoadBalancerFromSubnets $ -- detachLoadBalancerFromSubnets -- -- , testRegisterInstancesWithLoadBalancer $ -- registerInstancesWithLoadBalancer -- --- , testDeleteLoadBalancerPolicy $ --- deleteLoadBalancerPolicy --- --- , testCreateLoadBalancerListeners $ --- createLoadBalancerListeners +-- , testCreateLoadBalancer $ +-- createLoadBalancer -- -- , testDeleteLoadBalancerListeners $ -- deleteLoadBalancerListeners -- --- , testCreateLoadBalancer $ --- createLoadBalancer --- -- , testSetLoadBalancerPoliciesOfListener $ -- setLoadBalancerPoliciesOfListener -- -- ] -- , testGroup "response" --- [ testDescribeLoadBalancerPolicyTypesResponse $ --- describeLoadBalancerPolicyTypesResponse +-- [ testDescribeLoadBalancersResponse $ +-- describeLoadBalancersResponse -- -- , testDescribeTagsResponse $ -- describeTagsResponse -- --- , testDescribeLoadBalancersResponse $ --- describeLoadBalancersResponse +-- , testDescribeLoadBalancerPolicyTypesResponse $ +-- describeLoadBalancerPolicyTypesResponse -- -- , testApplySecurityGroupsToLoadBalancerResponse $ -- applySecurityGroupsToLoadBalancerResponse @@ -136,66 +136,66 @@ -- , testDeleteLoadBalancerResponse $ -- deleteLoadBalancerResponse -- --- , testCreateLoadBalancerPolicyResponse $ --- createLoadBalancerPolicyResponse --- -- , testDeregisterInstancesFromLoadBalancerResponse $ -- deregisterInstancesFromLoadBalancerResponse -- +-- , testCreateLoadBalancerPolicyResponse $ +-- createLoadBalancerPolicyResponse +-- -- , testDescribeLoadBalancerPoliciesResponse $ -- describeLoadBalancerPoliciesResponse -- -- , testDisableAvailabilityZonesForLoadBalancerResponse $ -- disableAvailabilityZonesForLoadBalancerResponse -- --- , testSetLoadBalancerPoliciesForBackendServerResponse $ --- setLoadBalancerPoliciesForBackendServerResponse --- -- , testEnableAvailabilityZonesForLoadBalancerResponse $ -- enableAvailabilityZonesForLoadBalancerResponse -- +-- , testSetLoadBalancerPoliciesForBackendServerResponse $ +-- setLoadBalancerPoliciesForBackendServerResponse +-- -- , testSetLoadBalancerListenerSSLCertificateResponse $ -- setLoadBalancerListenerSSLCertificateResponse -- --- , testConfigureHealthCheckResponse $ --- configureHealthCheckResponse --- -- , testAttachLoadBalancerToSubnetsResponse $ -- attachLoadBalancerToSubnetsResponse -- +-- , testConfigureHealthCheckResponse $ +-- configureHealthCheckResponse +-- -- , testModifyLoadBalancerAttributesResponse $ -- modifyLoadBalancerAttributesResponse -- -- , testCreateAppCookieStickinessPolicyResponse $ -- createAppCookieStickinessPolicyResponse -- +-- , testDescribeInstanceHealthResponse $ +-- describeInstanceHealthResponse +-- -- , testAddTagsResponse $ -- addTagsResponse -- -- , testDescribeLoadBalancerAttributesResponse $ -- describeLoadBalancerAttributesResponse -- --- , testDescribeInstanceHealthResponse $ --- describeInstanceHealthResponse +-- , testCreateLoadBalancerListenersResponse $ +-- createLoadBalancerListenersResponse -- +-- , testDeleteLoadBalancerPolicyResponse $ +-- deleteLoadBalancerPolicyResponse +-- -- , testDetachLoadBalancerFromSubnetsResponse $ -- detachLoadBalancerFromSubnetsResponse -- -- , testRegisterInstancesWithLoadBalancerResponse $ -- registerInstancesWithLoadBalancerResponse -- --- , testDeleteLoadBalancerPolicyResponse $ --- deleteLoadBalancerPolicyResponse --- --- , testCreateLoadBalancerListenersResponse $ --- createLoadBalancerListenersResponse +-- , testCreateLoadBalancerResponse $ +-- createLoadBalancerResponse -- -- , testDeleteLoadBalancerListenersResponse $ -- deleteLoadBalancerListenersResponse -- --- , testCreateLoadBalancerResponse $ --- createLoadBalancerResponse --- -- , testSetLoadBalancerPoliciesOfListenerResponse $ -- setLoadBalancerPoliciesOfListenerResponse -- @@ -204,20 +204,20 @@ -- Requests -testDescribeLoadBalancerPolicyTypes :: DescribeLoadBalancerPolicyTypes -> TestTree -testDescribeLoadBalancerPolicyTypes = req - "DescribeLoadBalancerPolicyTypes" - "fixture/DescribeLoadBalancerPolicyTypes.yaml" +testDescribeLoadBalancers :: DescribeLoadBalancers -> TestTree +testDescribeLoadBalancers = req + "DescribeLoadBalancers" + "fixture/DescribeLoadBalancers.yaml" testDescribeTags :: DescribeTags -> TestTree testDescribeTags = req "DescribeTags" "fixture/DescribeTags.yaml" -testDescribeLoadBalancers :: DescribeLoadBalancers -> TestTree -testDescribeLoadBalancers = req - "DescribeLoadBalancers" - "fixture/DescribeLoadBalancers.yaml" +testDescribeLoadBalancerPolicyTypes :: DescribeLoadBalancerPolicyTypes -> TestTree +testDescribeLoadBalancerPolicyTypes = req + "DescribeLoadBalancerPolicyTypes" + "fixture/DescribeLoadBalancerPolicyTypes.yaml" testApplySecurityGroupsToLoadBalancer :: ApplySecurityGroupsToLoadBalancer -> TestTree testApplySecurityGroupsToLoadBalancer = req @@ -239,16 +239,16 @@ "DeleteLoadBalancer" "fixture/DeleteLoadBalancer.yaml" -testCreateLoadBalancerPolicy :: CreateLoadBalancerPolicy -> TestTree -testCreateLoadBalancerPolicy = req - "CreateLoadBalancerPolicy" - "fixture/CreateLoadBalancerPolicy.yaml" - testDeregisterInstancesFromLoadBalancer :: DeregisterInstancesFromLoadBalancer -> TestTree testDeregisterInstancesFromLoadBalancer = req "DeregisterInstancesFromLoadBalancer" "fixture/DeregisterInstancesFromLoadBalancer.yaml" +testCreateLoadBalancerPolicy :: CreateLoadBalancerPolicy -> TestTree +testCreateLoadBalancerPolicy = req + "CreateLoadBalancerPolicy" + "fixture/CreateLoadBalancerPolicy.yaml" + testDescribeLoadBalancerPolicies :: DescribeLoadBalancerPolicies -> TestTree testDescribeLoadBalancerPolicies = req "DescribeLoadBalancerPolicies" @@ -259,31 +259,31 @@ "DisableAvailabilityZonesForLoadBalancer" "fixture/DisableAvailabilityZonesForLoadBalancer.yaml" -testSetLoadBalancerPoliciesForBackendServer :: SetLoadBalancerPoliciesForBackendServer -> TestTree -testSetLoadBalancerPoliciesForBackendServer = req - "SetLoadBalancerPoliciesForBackendServer" - "fixture/SetLoadBalancerPoliciesForBackendServer.yaml" - testEnableAvailabilityZonesForLoadBalancer :: EnableAvailabilityZonesForLoadBalancer -> TestTree testEnableAvailabilityZonesForLoadBalancer = req "EnableAvailabilityZonesForLoadBalancer" "fixture/EnableAvailabilityZonesForLoadBalancer.yaml" +testSetLoadBalancerPoliciesForBackendServer :: SetLoadBalancerPoliciesForBackendServer -> TestTree +testSetLoadBalancerPoliciesForBackendServer = req + "SetLoadBalancerPoliciesForBackendServer" + "fixture/SetLoadBalancerPoliciesForBackendServer.yaml" + testSetLoadBalancerListenerSSLCertificate :: SetLoadBalancerListenerSSLCertificate -> TestTree testSetLoadBalancerListenerSSLCertificate = req "SetLoadBalancerListenerSSLCertificate" "fixture/SetLoadBalancerListenerSSLCertificate.yaml" -testConfigureHealthCheck :: ConfigureHealthCheck -> TestTree -testConfigureHealthCheck = req - "ConfigureHealthCheck" - "fixture/ConfigureHealthCheck.yaml" - testAttachLoadBalancerToSubnets :: AttachLoadBalancerToSubnets -> TestTree testAttachLoadBalancerToSubnets = req "AttachLoadBalancerToSubnets" "fixture/AttachLoadBalancerToSubnets.yaml" +testConfigureHealthCheck :: ConfigureHealthCheck -> TestTree +testConfigureHealthCheck = req + "ConfigureHealthCheck" + "fixture/ConfigureHealthCheck.yaml" + testModifyLoadBalancerAttributes :: ModifyLoadBalancerAttributes -> TestTree testModifyLoadBalancerAttributes = req "ModifyLoadBalancerAttributes" @@ -294,6 +294,11 @@ "CreateAppCookieStickinessPolicy" "fixture/CreateAppCookieStickinessPolicy.yaml" +testDescribeInstanceHealth :: DescribeInstanceHealth -> TestTree +testDescribeInstanceHealth = req + "DescribeInstanceHealth" + "fixture/DescribeInstanceHealth.yaml" + testAddTags :: AddTags -> TestTree testAddTags = req "AddTags" @@ -304,11 +309,16 @@ "DescribeLoadBalancerAttributes" "fixture/DescribeLoadBalancerAttributes.yaml" -testDescribeInstanceHealth :: DescribeInstanceHealth -> TestTree -testDescribeInstanceHealth = req - "DescribeInstanceHealth" - "fixture/DescribeInstanceHealth.yaml" +testCreateLoadBalancerListeners :: CreateLoadBalancerListeners -> TestTree +testCreateLoadBalancerListeners = req + "CreateLoadBalancerListeners" + "fixture/CreateLoadBalancerListeners.yaml" +testDeleteLoadBalancerPolicy :: DeleteLoadBalancerPolicy -> TestTree +testDeleteLoadBalancerPolicy = req + "DeleteLoadBalancerPolicy" + "fixture/DeleteLoadBalancerPolicy.yaml" + testDetachLoadBalancerFromSubnets :: DetachLoadBalancerFromSubnets -> TestTree testDetachLoadBalancerFromSubnets = req "DetachLoadBalancerFromSubnets" @@ -319,26 +329,16 @@ "RegisterInstancesWithLoadBalancer" "fixture/RegisterInstancesWithLoadBalancer.yaml" -testDeleteLoadBalancerPolicy :: DeleteLoadBalancerPolicy -> TestTree -testDeleteLoadBalancerPolicy = req - "DeleteLoadBalancerPolicy" - "fixture/DeleteLoadBalancerPolicy.yaml" - -testCreateLoadBalancerListeners :: CreateLoadBalancerListeners -> TestTree -testCreateLoadBalancerListeners = req - "CreateLoadBalancerListeners" - "fixture/CreateLoadBalancerListeners.yaml" +testCreateLoadBalancer :: CreateLoadBalancer -> TestTree +testCreateLoadBalancer = req + "CreateLoadBalancer" + "fixture/CreateLoadBalancer.yaml" testDeleteLoadBalancerListeners :: DeleteLoadBalancerListeners -> TestTree testDeleteLoadBalancerListeners = req "DeleteLoadBalancerListeners" "fixture/DeleteLoadBalancerListeners.yaml" -testCreateLoadBalancer :: CreateLoadBalancer -> TestTree -testCreateLoadBalancer = req - "CreateLoadBalancer" - "fixture/CreateLoadBalancer.yaml" - testSetLoadBalancerPoliciesOfListener :: SetLoadBalancerPoliciesOfListener -> TestTree testSetLoadBalancerPoliciesOfListener = req "SetLoadBalancerPoliciesOfListener" @@ -346,12 +346,12 @@ -- Responses -testDescribeLoadBalancerPolicyTypesResponse :: DescribeLoadBalancerPolicyTypesResponse -> TestTree -testDescribeLoadBalancerPolicyTypesResponse = res - "DescribeLoadBalancerPolicyTypesResponse" - "fixture/DescribeLoadBalancerPolicyTypesResponse.proto" +testDescribeLoadBalancersResponse :: DescribeLoadBalancersResponse -> TestTree +testDescribeLoadBalancersResponse = res + "DescribeLoadBalancersResponse" + "fixture/DescribeLoadBalancersResponse.proto" eLB - (Proxy :: Proxy DescribeLoadBalancerPolicyTypes) + (Proxy :: Proxy DescribeLoadBalancers) testDescribeTagsResponse :: DescribeTagsResponse -> TestTree testDescribeTagsResponse = res @@ -360,12 +360,12 @@ eLB (Proxy :: Proxy DescribeTags) -testDescribeLoadBalancersResponse :: DescribeLoadBalancersResponse -> TestTree -testDescribeLoadBalancersResponse = res - "DescribeLoadBalancersResponse" - "fixture/DescribeLoadBalancersResponse.proto" +testDescribeLoadBalancerPolicyTypesResponse :: DescribeLoadBalancerPolicyTypesResponse -> TestTree +testDescribeLoadBalancerPolicyTypesResponse = res + "DescribeLoadBalancerPolicyTypesResponse" + "fixture/DescribeLoadBalancerPolicyTypesResponse.proto" eLB - (Proxy :: Proxy DescribeLoadBalancers) + (Proxy :: Proxy DescribeLoadBalancerPolicyTypes) testApplySecurityGroupsToLoadBalancerResponse :: ApplySecurityGroupsToLoadBalancerResponse -> TestTree testApplySecurityGroupsToLoadBalancerResponse = res @@ -395,13 +395,6 @@ eLB (Proxy :: Proxy DeleteLoadBalancer) -testCreateLoadBalancerPolicyResponse :: CreateLoadBalancerPolicyResponse -> TestTree -testCreateLoadBalancerPolicyResponse = res - "CreateLoadBalancerPolicyResponse" - "fixture/CreateLoadBalancerPolicyResponse.proto" - eLB - (Proxy :: Proxy CreateLoadBalancerPolicy) - testDeregisterInstancesFromLoadBalancerResponse :: DeregisterInstancesFromLoadBalancerResponse -> TestTree testDeregisterInstancesFromLoadBalancerResponse = res "DeregisterInstancesFromLoadBalancerResponse" @@ -409,6 +402,13 @@ eLB (Proxy :: Proxy DeregisterInstancesFromLoadBalancer) +testCreateLoadBalancerPolicyResponse :: CreateLoadBalancerPolicyResponse -> TestTree +testCreateLoadBalancerPolicyResponse = res + "CreateLoadBalancerPolicyResponse" + "fixture/CreateLoadBalancerPolicyResponse.proto" + eLB + (Proxy :: Proxy CreateLoadBalancerPolicy) + testDescribeLoadBalancerPoliciesResponse :: DescribeLoadBalancerPoliciesResponse -> TestTree testDescribeLoadBalancerPoliciesResponse = res "DescribeLoadBalancerPoliciesResponse" @@ -423,13 +423,6 @@ eLB (Proxy :: Proxy DisableAvailabilityZonesForLoadBalancer) -testSetLoadBalancerPoliciesForBackendServerResponse :: SetLoadBalancerPoliciesForBackendServerResponse -> TestTree -testSetLoadBalancerPoliciesForBackendServerResponse = res - "SetLoadBalancerPoliciesForBackendServerResponse" - "fixture/SetLoadBalancerPoliciesForBackendServerResponse.proto" - eLB - (Proxy :: Proxy SetLoadBalancerPoliciesForBackendServer) - testEnableAvailabilityZonesForLoadBalancerResponse :: EnableAvailabilityZonesForLoadBalancerResponse -> TestTree testEnableAvailabilityZonesForLoadBalancerResponse = res "EnableAvailabilityZonesForLoadBalancerResponse" @@ -437,6 +430,13 @@ eLB (Proxy :: Proxy EnableAvailabilityZonesForLoadBalancer) +testSetLoadBalancerPoliciesForBackendServerResponse :: SetLoadBalancerPoliciesForBackendServerResponse -> TestTree +testSetLoadBalancerPoliciesForBackendServerResponse = res + "SetLoadBalancerPoliciesForBackendServerResponse" + "fixture/SetLoadBalancerPoliciesForBackendServerResponse.proto" + eLB + (Proxy :: Proxy SetLoadBalancerPoliciesForBackendServer) + testSetLoadBalancerListenerSSLCertificateResponse :: SetLoadBalancerListenerSSLCertificateResponse -> TestTree testSetLoadBalancerListenerSSLCertificateResponse = res "SetLoadBalancerListenerSSLCertificateResponse" @@ -444,13 +444,6 @@ eLB (Proxy :: Proxy SetLoadBalancerListenerSSLCertificate) -testConfigureHealthCheckResponse :: ConfigureHealthCheckResponse -> TestTree -testConfigureHealthCheckResponse = res - "ConfigureHealthCheckResponse" - "fixture/ConfigureHealthCheckResponse.proto" - eLB - (Proxy :: Proxy ConfigureHealthCheck) - testAttachLoadBalancerToSubnetsResponse :: AttachLoadBalancerToSubnetsResponse -> TestTree testAttachLoadBalancerToSubnetsResponse = res "AttachLoadBalancerToSubnetsResponse" @@ -458,6 +451,13 @@ eLB (Proxy :: Proxy AttachLoadBalancerToSubnets) +testConfigureHealthCheckResponse :: ConfigureHealthCheckResponse -> TestTree +testConfigureHealthCheckResponse = res + "ConfigureHealthCheckResponse" + "fixture/ConfigureHealthCheckResponse.proto" + eLB + (Proxy :: Proxy ConfigureHealthCheck) + testModifyLoadBalancerAttributesResponse :: ModifyLoadBalancerAttributesResponse -> TestTree testModifyLoadBalancerAttributesResponse = res "ModifyLoadBalancerAttributesResponse" @@ -472,6 +472,13 @@ eLB (Proxy :: Proxy CreateAppCookieStickinessPolicy) +testDescribeInstanceHealthResponse :: DescribeInstanceHealthResponse -> TestTree +testDescribeInstanceHealthResponse = res + "DescribeInstanceHealthResponse" + "fixture/DescribeInstanceHealthResponse.proto" + eLB + (Proxy :: Proxy DescribeInstanceHealth) + testAddTagsResponse :: AddTagsResponse -> TestTree testAddTagsResponse = res "AddTagsResponse" @@ -486,13 +493,20 @@ eLB (Proxy :: Proxy DescribeLoadBalancerAttributes) -testDescribeInstanceHealthResponse :: DescribeInstanceHealthResponse -> TestTree -testDescribeInstanceHealthResponse = res - "DescribeInstanceHealthResponse" - "fixture/DescribeInstanceHealthResponse.proto" +testCreateLoadBalancerListenersResponse :: CreateLoadBalancerListenersResponse -> TestTree +testCreateLoadBalancerListenersResponse = res + "CreateLoadBalancerListenersResponse" + "fixture/CreateLoadBalancerListenersResponse.proto" eLB - (Proxy :: Proxy DescribeInstanceHealth) + (Proxy :: Proxy CreateLoadBalancerListeners) +testDeleteLoadBalancerPolicyResponse :: DeleteLoadBalancerPolicyResponse -> TestTree +testDeleteLoadBalancerPolicyResponse = res + "DeleteLoadBalancerPolicyResponse" + "fixture/DeleteLoadBalancerPolicyResponse.proto" + eLB + (Proxy :: Proxy DeleteLoadBalancerPolicy) + testDetachLoadBalancerFromSubnetsResponse :: DetachLoadBalancerFromSubnetsResponse -> TestTree testDetachLoadBalancerFromSubnetsResponse = res "DetachLoadBalancerFromSubnetsResponse" @@ -507,19 +521,12 @@ eLB (Proxy :: Proxy RegisterInstancesWithLoadBalancer) -testDeleteLoadBalancerPolicyResponse :: DeleteLoadBalancerPolicyResponse -> TestTree -testDeleteLoadBalancerPolicyResponse = res - "DeleteLoadBalancerPolicyResponse" - "fixture/DeleteLoadBalancerPolicyResponse.proto" - eLB - (Proxy :: Proxy DeleteLoadBalancerPolicy) - -testCreateLoadBalancerListenersResponse :: CreateLoadBalancerListenersResponse -> TestTree -testCreateLoadBalancerListenersResponse = res - "CreateLoadBalancerListenersResponse" - "fixture/CreateLoadBalancerListenersResponse.proto" +testCreateLoadBalancerResponse :: CreateLoadBalancerResponse -> TestTree +testCreateLoadBalancerResponse = res + "CreateLoadBalancerResponse" + "fixture/CreateLoadBalancerResponse.proto" eLB - (Proxy :: Proxy CreateLoadBalancerListeners) + (Proxy :: Proxy CreateLoadBalancer) testDeleteLoadBalancerListenersResponse :: DeleteLoadBalancerListenersResponse -> TestTree testDeleteLoadBalancerListenersResponse = res @@ -527,13 +534,6 @@ "fixture/DeleteLoadBalancerListenersResponse.proto" eLB (Proxy :: Proxy DeleteLoadBalancerListeners) - -testCreateLoadBalancerResponse :: CreateLoadBalancerResponse -> TestTree -testCreateLoadBalancerResponse = res - "CreateLoadBalancerResponse" - "fixture/CreateLoadBalancerResponse.proto" - eLB - (Proxy :: Proxy CreateLoadBalancer) testSetLoadBalancerPoliciesOfListenerResponse :: SetLoadBalancerPoliciesOfListenerResponse -> TestTree testSetLoadBalancerPoliciesOfListenerResponse = res