amazonka-elb 1.2.0.2 → 1.3.0

raw patch · 34 files changed

+435/−435 lines, 34 filesdep ~amazonka-coredep ~amazonka-elbdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-elb, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-elb.cabal +5/−5
• gen/Network/AWS/ELB.hs +27/−27
• gen/Network/AWS/ELB/AddTags.hs +8/−8
• gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs +8/−8
• gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs +9/−9
• gen/Network/AWS/ELB/ConfigureHealthCheck.hs +9/−9
• gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs +8/−8
• gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs +8/−8
• gen/Network/AWS/ELB/CreateLoadBalancer.hs +9/−9
• gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs +8/−8
• gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs +8/−8
• gen/Network/AWS/ELB/DeleteLoadBalancer.hs +8/−8
• gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs +8/−8
• gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs +8/−8
• gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs +9/−9
• gen/Network/AWS/ELB/DescribeInstanceHealth.hs +8/−8
• gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs +8/−8
• gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs +8/−8
• gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs +8/−8
• gen/Network/AWS/ELB/DescribeLoadBalancers.hs +8/−8
• gen/Network/AWS/ELB/DescribeTags.hs +8/−8
• gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs +9/−9
• gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs +8/−8
• gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs +8/−8
• gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs +21/−21
• gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs +9/−9
• gen/Network/AWS/ELB/RemoveTags.hs +8/−8
• gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs +8/−8
• gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs +8/−8
• gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs +8/−8
• gen/Network/AWS/ELB/Types.hs +7/−7
• gen/Network/AWS/ELB/Types/Product.hs +10/−10
• test/Test/AWS/Gen/ELB.hs +142/−142

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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