amazonka-elb 1.5.0 → 1.6.0

raw patch · 41 files changed

+492/−451 lines, 41 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-elb.cabal +5/−5
• gen/Network/AWS/ELB.hs +10/−4
• gen/Network/AWS/ELB/AddTags.hs +4/−4
• gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs +11/−9
• gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs +7/−7
• gen/Network/AWS/ELB/ConfigureHealthCheck.hs +7/−7
• gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs +10/−10
• gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs +10/−10
• gen/Network/AWS/ELB/CreateLoadBalancer.hs +19/−19
• gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs +6/−6
• gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs +11/−11
• gen/Network/AWS/ELB/DeleteLoadBalancer.hs +3/−3
• gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs +8/−6
• gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs +5/−5
• gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs +7/−7
• gen/Network/AWS/ELB/DescribeAccountLimits.hs +10/−10
• gen/Network/AWS/ELB/DescribeInstanceHealth.hs +7/−7
• gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs +7/−7
• gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs +9/−9
• gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs +7/−7
• gen/Network/AWS/ELB/DescribeLoadBalancers.hs +15/−15
• gen/Network/AWS/ELB/DescribeTags.hs +5/−5
• gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs +7/−7
• gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs +11/−11
• gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs +11/−11
• gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs +13/−13
• gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs +7/−7
• gen/Network/AWS/ELB/RemoveTags.hs +4/−4
• gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs +10/−10
• gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs +10/−10
• gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs +10/−10
• gen/Network/AWS/ELB/Types.hs +27/−16
• gen/Network/AWS/ELB/Types/Product.hs +149/−149
• gen/Network/AWS/ELB/Types/Sum.hs +1/−1
• gen/Network/AWS/ELB/Waiters.hs +43/−23
• src/Network/AWS/ELB/Internal.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/ELB.hs +1/−1
• test/Test/AWS/ELB/Internal.hs +1/−1
• test/Test/AWS/Gen/ELB.hs +1/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-elb-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Elastic Load Balancing SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -83,7 +83,7 @@         , Network.AWS.ELB.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-elb-test@@ -103,8 +103,8 @@         , Test.AWS.ELB.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-elb         , base         , bytestring

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.ELB--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -13,11 +13,11 @@ -- -- __Elastic Load Balancing__ ----- A load balancer distributes incoming traffic across your EC2 instances. This enables you to increase the availability of your application. The load balancer also monitors the health of its registered instances and ensures that it routes traffic only to healthy instances. You configure your load balancer to accept incoming traffic by specifying one or more listeners, which are configured with a protocol and port number for connections from clients to the load balancer and a protocol and port number for connections from the load balancer to the instances.+-- A load balancer can distribute incoming traffic across your EC2 instances. This enables you to increase the availability of your application. The load balancer also monitors the health of its registered instances and ensures that it routes traffic only to healthy instances. You configure your load balancer to accept incoming traffic by specifying one or more listeners, which are configured with a protocol and port number for connections from clients to the load balancer and a protocol and port number for connections from the load balancer to the instances. ----- Elastic Load Balancing supports two types of load balancers: Classic Load Balancers and Application Load Balancers (new). A Classic Load Balancer makes routing and load balancing decisions either at the transport layer (TCP/SSL) or the application layer (HTTP/HTTPS), and supports either EC2-Classic or a VPC. An Application Load Balancer makes routing and load balancing decisions at the application layer (HTTP/HTTPS), supports path-based routing, and can route requests to one or more ports on each EC2 instance or container instance in your virtual private cloud (VPC). For more information, see the <http://docs.aws.amazon.com/elasticloadbalancing/latest/userguide/what-is-load-balancing.html Elastic Load Balancing User Guide> .+-- Elastic Load Balancing supports three types of load balancers: Application Load Balancers, Network Load Balancers, and Classic Load Balancers. You can select a load balancer based on your application needs. For more information, see the <http://docs.aws.amazon.com/elasticloadbalancing/latest/userguide/ Elastic Load Balancing User Guide> . ----- This reference covers the 2012-06-01 API, which supports Classic Load Balancers. The 2015-12-01 API supports Application Load Balancers.+-- This reference covers the 2012-06-01 API, which supports Classic Load Balancers. The 2015-12-01 API supports Application Load Balancers and Network Load Balancers. -- -- To get started, create a load balancer with one or more listeners using 'CreateLoadBalancer' . Register your instances with the load balancer using 'RegisterInstancesWithLoadBalancer' . --@@ -79,6 +79,9 @@     -- ** InvalidEndPointException     , _InvalidEndPointException +    -- ** OperationNotPermittedException+    , _OperationNotPermittedException+     -- ** DependencyThrottleException     , _DependencyThrottleException @@ -99,6 +102,9 @@      -- ** AnyInstanceInService     , anyInstanceInService++    -- ** InstanceDeregistered+    , instanceDeregistered      -- ** InstanceInService     , instanceInService

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.AddTags--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,11 +75,11 @@  -- | The name of the load balancer. You can specify one load balancer only. atLoadBalancerNames :: Lens' AddTags [Text]-atLoadBalancerNames = lens _atLoadBalancerNames (\ s a -> s{_atLoadBalancerNames = a}) . _Coerce;+atLoadBalancerNames = lens _atLoadBalancerNames (\ s a -> s{_atLoadBalancerNames = a}) . _Coerce  -- | The tags. atTags :: Lens' AddTags (NonEmpty Tag)-atTags = lens _atTags (\ s a -> s{_atTags = a}) . _List1;+atTags = lens _atTags (\ s a -> s{_atTags = a}) . _List1  instance AWSRequest AddTags where         type Rs AddTags = AddTagsResponse@@ -131,6 +131,6 @@  -- | -- | The response status code. atrsResponseStatus :: Lens' AddTagsResponse Int-atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a});+atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a})  instance NFData AddTagsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.ApplySecurityGroupsToLoadBalancer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,16 +70,18 @@     -> ApplySecurityGroupsToLoadBalancer applySecurityGroupsToLoadBalancer pLoadBalancerName_ =   ApplySecurityGroupsToLoadBalancer'-  {_asgtlbLoadBalancerName = pLoadBalancerName_, _asgtlbSecurityGroups = mempty}+    { _asgtlbLoadBalancerName = pLoadBalancerName_+    , _asgtlbSecurityGroups = mempty+    }   -- | The name of the load balancer. asgtlbLoadBalancerName :: Lens' ApplySecurityGroupsToLoadBalancer Text-asgtlbLoadBalancerName = lens _asgtlbLoadBalancerName (\ s a -> s{_asgtlbLoadBalancerName = a});+asgtlbLoadBalancerName = lens _asgtlbLoadBalancerName (\ s a -> s{_asgtlbLoadBalancerName = a})  -- | The IDs of the security groups to associate with the load balancer. Note that you cannot specify the name of the security group. asgtlbSecurityGroups :: Lens' ApplySecurityGroupsToLoadBalancer [Text]-asgtlbSecurityGroups = lens _asgtlbSecurityGroups (\ s a -> s{_asgtlbSecurityGroups = a}) . _Coerce;+asgtlbSecurityGroups = lens _asgtlbSecurityGroups (\ s a -> s{_asgtlbSecurityGroups = a}) . _Coerce  instance AWSRequest ApplySecurityGroupsToLoadBalancer          where@@ -143,18 +145,18 @@     -> ApplySecurityGroupsToLoadBalancerResponse applySecurityGroupsToLoadBalancerResponse pResponseStatus_ =   ApplySecurityGroupsToLoadBalancerResponse'-  { _asgtlbrsSecurityGroups = Nothing-  , _asgtlbrsResponseStatus = pResponseStatus_-  }+    { _asgtlbrsSecurityGroups = Nothing+    , _asgtlbrsResponseStatus = pResponseStatus_+    }   -- | The IDs of the security groups associated with the load balancer. asgtlbrsSecurityGroups :: Lens' ApplySecurityGroupsToLoadBalancerResponse [Text]-asgtlbrsSecurityGroups = lens _asgtlbrsSecurityGroups (\ s a -> s{_asgtlbrsSecurityGroups = a}) . _Default . _Coerce;+asgtlbrsSecurityGroups = lens _asgtlbrsSecurityGroups (\ s a -> s{_asgtlbrsSecurityGroups = a}) . _Default . _Coerce  -- | -- | The response status code. asgtlbrsResponseStatus :: Lens' ApplySecurityGroupsToLoadBalancerResponse Int-asgtlbrsResponseStatus = lens _asgtlbrsResponseStatus (\ s a -> s{_asgtlbrsResponseStatus = a});+asgtlbrsResponseStatus = lens _asgtlbrsResponseStatus (\ s a -> s{_asgtlbrsResponseStatus = a})  instance NFData            ApplySecurityGroupsToLoadBalancerResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.AttachLoadBalancerToSubnets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,16 +70,16 @@     -> AttachLoadBalancerToSubnets attachLoadBalancerToSubnets pLoadBalancerName_ =   AttachLoadBalancerToSubnets'-  {_albtsLoadBalancerName = pLoadBalancerName_, _albtsSubnets = mempty}+    {_albtsLoadBalancerName = pLoadBalancerName_, _albtsSubnets = mempty}   -- | The name of the load balancer. albtsLoadBalancerName :: Lens' AttachLoadBalancerToSubnets Text-albtsLoadBalancerName = lens _albtsLoadBalancerName (\ s a -> s{_albtsLoadBalancerName = a});+albtsLoadBalancerName = lens _albtsLoadBalancerName (\ s a -> s{_albtsLoadBalancerName = a})  -- | The IDs of the subnets to add. You can add only one subnet per Availability Zone. albtsSubnets :: Lens' AttachLoadBalancerToSubnets [Text]-albtsSubnets = lens _albtsSubnets (\ s a -> s{_albtsSubnets = a}) . _Coerce;+albtsSubnets = lens _albtsSubnets (\ s a -> s{_albtsSubnets = a}) . _Coerce  instance AWSRequest AttachLoadBalancerToSubnets where         type Rs AttachLoadBalancerToSubnets =@@ -136,16 +136,16 @@     -> AttachLoadBalancerToSubnetsResponse attachLoadBalancerToSubnetsResponse pResponseStatus_ =   AttachLoadBalancerToSubnetsResponse'-  {_albtsrsSubnets = Nothing, _albtsrsResponseStatus = pResponseStatus_}+    {_albtsrsSubnets = Nothing, _albtsrsResponseStatus = pResponseStatus_}   -- | The IDs of the subnets attached to the load balancer. albtsrsSubnets :: Lens' AttachLoadBalancerToSubnetsResponse [Text]-albtsrsSubnets = lens _albtsrsSubnets (\ s a -> s{_albtsrsSubnets = a}) . _Default . _Coerce;+albtsrsSubnets = lens _albtsrsSubnets (\ s a -> s{_albtsrsSubnets = a}) . _Default . _Coerce  -- | -- | The response status code. albtsrsResponseStatus :: Lens' AttachLoadBalancerToSubnetsResponse Int-albtsrsResponseStatus = lens _albtsrsResponseStatus (\ s a -> s{_albtsrsResponseStatus = a});+albtsrsResponseStatus = lens _albtsrsResponseStatus (\ s a -> s{_albtsrsResponseStatus = a})  instance NFData AttachLoadBalancerToSubnetsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.ConfigureHealthCheck--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,16 +71,16 @@     -> ConfigureHealthCheck configureHealthCheck pLoadBalancerName_ pHealthCheck_ =   ConfigureHealthCheck'-  {_chcLoadBalancerName = pLoadBalancerName_, _chcHealthCheck = pHealthCheck_}+    {_chcLoadBalancerName = pLoadBalancerName_, _chcHealthCheck = pHealthCheck_}   -- | The name of the load balancer. chcLoadBalancerName :: Lens' ConfigureHealthCheck Text-chcLoadBalancerName = lens _chcLoadBalancerName (\ s a -> s{_chcLoadBalancerName = a});+chcLoadBalancerName = lens _chcLoadBalancerName (\ s a -> s{_chcLoadBalancerName = a})  -- | The configuration information. chcHealthCheck :: Lens' ConfigureHealthCheck HealthCheck-chcHealthCheck = lens _chcHealthCheck (\ s a -> s{_chcHealthCheck = a});+chcHealthCheck = lens _chcHealthCheck (\ s a -> s{_chcHealthCheck = a})  instance AWSRequest ConfigureHealthCheck where         type Rs ConfigureHealthCheck =@@ -133,15 +133,15 @@     -> ConfigureHealthCheckResponse configureHealthCheckResponse pResponseStatus_ =   ConfigureHealthCheckResponse'-  {_chcrsHealthCheck = Nothing, _chcrsResponseStatus = pResponseStatus_}+    {_chcrsHealthCheck = Nothing, _chcrsResponseStatus = pResponseStatus_}   -- | The updated health check. chcrsHealthCheck :: Lens' ConfigureHealthCheckResponse (Maybe HealthCheck)-chcrsHealthCheck = lens _chcrsHealthCheck (\ s a -> s{_chcrsHealthCheck = a});+chcrsHealthCheck = lens _chcrsHealthCheck (\ s a -> s{_chcrsHealthCheck = a})  -- | -- | The response status code. chcrsResponseStatus :: Lens' ConfigureHealthCheckResponse Int-chcrsResponseStatus = lens _chcrsResponseStatus (\ s a -> s{_chcrsResponseStatus = a});+chcrsResponseStatus = lens _chcrsResponseStatus (\ s a -> s{_chcrsResponseStatus = a})  instance NFData ConfigureHealthCheckResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.CreateAppCookieStickinessPolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -79,23 +79,23 @@     -> CreateAppCookieStickinessPolicy createAppCookieStickinessPolicy pLoadBalancerName_ pPolicyName_ pCookieName_ =   CreateAppCookieStickinessPolicy'-  { _cacspLoadBalancerName = pLoadBalancerName_-  , _cacspPolicyName = pPolicyName_-  , _cacspCookieName = pCookieName_-  }+    { _cacspLoadBalancerName = pLoadBalancerName_+    , _cacspPolicyName = pPolicyName_+    , _cacspCookieName = pCookieName_+    }   -- | The name of the load balancer. cacspLoadBalancerName :: Lens' CreateAppCookieStickinessPolicy Text-cacspLoadBalancerName = lens _cacspLoadBalancerName (\ s a -> s{_cacspLoadBalancerName = a});+cacspLoadBalancerName = lens _cacspLoadBalancerName (\ s a -> s{_cacspLoadBalancerName = a})  -- | The name of the policy being created. Policy names must consist of alphanumeric characters and dashes (-). This name must be unique within the set of policies for this load balancer. cacspPolicyName :: Lens' CreateAppCookieStickinessPolicy Text-cacspPolicyName = lens _cacspPolicyName (\ s a -> s{_cacspPolicyName = a});+cacspPolicyName = lens _cacspPolicyName (\ s a -> s{_cacspPolicyName = a})  -- | The name of the application cookie used for stickiness. cacspCookieName :: Lens' CreateAppCookieStickinessPolicy Text-cacspCookieName = lens _cacspCookieName (\ s a -> s{_cacspCookieName = a});+cacspCookieName = lens _cacspCookieName (\ s a -> s{_cacspCookieName = a})  instance AWSRequest CreateAppCookieStickinessPolicy          where@@ -152,12 +152,12 @@     -> CreateAppCookieStickinessPolicyResponse createAppCookieStickinessPolicyResponse pResponseStatus_ =   CreateAppCookieStickinessPolicyResponse'-  {_cacsprsResponseStatus = pResponseStatus_}+    {_cacsprsResponseStatus = pResponseStatus_}   -- | -- | The response status code. cacsprsResponseStatus :: Lens' CreateAppCookieStickinessPolicyResponse Int-cacsprsResponseStatus = lens _cacsprsResponseStatus (\ s a -> s{_cacsprsResponseStatus = a});+cacsprsResponseStatus = lens _cacsprsResponseStatus (\ s a -> s{_cacsprsResponseStatus = a})  instance NFData            CreateAppCookieStickinessPolicyResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.CreateLBCookieStickinessPolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -78,23 +78,23 @@     -> CreateLBCookieStickinessPolicy createLBCookieStickinessPolicy pLoadBalancerName_ pPolicyName_ =   CreateLBCookieStickinessPolicy'-  { _clbcspCookieExpirationPeriod = Nothing-  , _clbcspLoadBalancerName = pLoadBalancerName_-  , _clbcspPolicyName = pPolicyName_-  }+    { _clbcspCookieExpirationPeriod = Nothing+    , _clbcspLoadBalancerName = pLoadBalancerName_+    , _clbcspPolicyName = pPolicyName_+    }   -- | The time period, in seconds, after which the cookie should be considered stale. If you do not specify this parameter, the default value is 0, which indicates that the sticky session should last for the duration of the browser session. clbcspCookieExpirationPeriod :: Lens' CreateLBCookieStickinessPolicy (Maybe Integer)-clbcspCookieExpirationPeriod = lens _clbcspCookieExpirationPeriod (\ s a -> s{_clbcspCookieExpirationPeriod = a});+clbcspCookieExpirationPeriod = lens _clbcspCookieExpirationPeriod (\ s a -> s{_clbcspCookieExpirationPeriod = a})  -- | The name of the load balancer. clbcspLoadBalancerName :: Lens' CreateLBCookieStickinessPolicy Text-clbcspLoadBalancerName = lens _clbcspLoadBalancerName (\ s a -> s{_clbcspLoadBalancerName = a});+clbcspLoadBalancerName = lens _clbcspLoadBalancerName (\ s a -> s{_clbcspLoadBalancerName = a})  -- | The name of the policy being created. Policy names must consist of alphanumeric characters and dashes (-). This name must be unique within the set of policies for this load balancer. clbcspPolicyName :: Lens' CreateLBCookieStickinessPolicy Text-clbcspPolicyName = lens _clbcspPolicyName (\ s a -> s{_clbcspPolicyName = a});+clbcspPolicyName = lens _clbcspPolicyName (\ s a -> s{_clbcspPolicyName = a})  instance AWSRequest CreateLBCookieStickinessPolicy          where@@ -151,12 +151,12 @@     -> CreateLBCookieStickinessPolicyResponse createLBCookieStickinessPolicyResponse pResponseStatus_ =   CreateLBCookieStickinessPolicyResponse'-  {_clbcsprsResponseStatus = pResponseStatus_}+    {_clbcsprsResponseStatus = pResponseStatus_}   -- | -- | The response status code. clbcsprsResponseStatus :: Lens' CreateLBCookieStickinessPolicyResponse Int-clbcsprsResponseStatus = lens _clbcsprsResponseStatus (\ s a -> s{_clbcsprsResponseStatus = a});+clbcsprsResponseStatus = lens _clbcsprsResponseStatus (\ s a -> s{_clbcsprsResponseStatus = a})  instance NFData            CreateLBCookieStickinessPolicyResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.CreateLoadBalancer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -94,43 +94,43 @@     -> CreateLoadBalancer createLoadBalancer pLoadBalancerName_ =   CreateLoadBalancer'-  { _clbSecurityGroups = Nothing-  , _clbSubnets = Nothing-  , _clbAvailabilityZones = Nothing-  , _clbScheme = Nothing-  , _clbTags = Nothing-  , _clbLoadBalancerName = pLoadBalancerName_-  , _clbListeners = mempty-  }+    { _clbSecurityGroups = Nothing+    , _clbSubnets = Nothing+    , _clbAvailabilityZones = Nothing+    , _clbScheme = Nothing+    , _clbTags = Nothing+    , _clbLoadBalancerName = pLoadBalancerName_+    , _clbListeners = mempty+    }   -- | The IDs of the security groups to assign to the load balancer. clbSecurityGroups :: Lens' CreateLoadBalancer [Text]-clbSecurityGroups = lens _clbSecurityGroups (\ s a -> s{_clbSecurityGroups = a}) . _Default . _Coerce;+clbSecurityGroups = lens _clbSecurityGroups (\ s a -> s{_clbSecurityGroups = a}) . _Default . _Coerce  -- | The IDs of the subnets in your VPC to attach to the load balancer. Specify one subnet per Availability Zone specified in @AvailabilityZones@ . clbSubnets :: Lens' CreateLoadBalancer [Text]-clbSubnets = lens _clbSubnets (\ s a -> s{_clbSubnets = a}) . _Default . _Coerce;+clbSubnets = lens _clbSubnets (\ s a -> s{_clbSubnets = a}) . _Default . _Coerce  -- | One or more Availability Zones from the same region as the load balancer. You must specify at least one Availability Zone. You can add more Availability Zones after you create the load balancer using 'EnableAvailabilityZonesForLoadBalancer' . clbAvailabilityZones :: Lens' CreateLoadBalancer [Text]-clbAvailabilityZones = lens _clbAvailabilityZones (\ s a -> s{_clbAvailabilityZones = a}) . _Default . _Coerce;+clbAvailabilityZones = lens _clbAvailabilityZones (\ s a -> s{_clbAvailabilityZones = a}) . _Default . _Coerce  -- | The type of a load balancer. Valid only for load balancers in a VPC. By default, Elastic Load Balancing creates an Internet-facing load balancer with a DNS name that resolves to public IP addresses. For more information about Internet-facing and Internal load balancers, see <http://docs.aws.amazon.com/elasticloadbalancing/latest/userguide/how-elastic-load-balancing-works.html#load-balancer-scheme Load Balancer Scheme> in the /Elastic Load Balancing User Guide/ . Specify @internal@ to create a load balancer with a DNS name that resolves to private IP addresses. clbScheme :: Lens' CreateLoadBalancer (Maybe Text)-clbScheme = lens _clbScheme (\ s a -> s{_clbScheme = a});+clbScheme = lens _clbScheme (\ s a -> s{_clbScheme = a})  -- | A list of tags to assign to the load balancer. For more information about tagging your load balancer, see <http://docs.aws.amazon.com/elasticloadbalancing/latest/classic/add-remove-tags.html Tag Your Classic Load Balancer> in the /Classic Load Balancer Guide/ . clbTags :: Lens' CreateLoadBalancer (Maybe (NonEmpty Tag))-clbTags = lens _clbTags (\ s a -> s{_clbTags = a}) . mapping _List1;+clbTags = lens _clbTags (\ s a -> s{_clbTags = a}) . mapping _List1  -- | The name of the load balancer. This name must be unique within your set of load balancers for the region, must have a maximum of 32 characters, must contain only alphanumeric characters or hyphens, and cannot begin or end with a hyphen. clbLoadBalancerName :: Lens' CreateLoadBalancer Text-clbLoadBalancerName = lens _clbLoadBalancerName (\ s a -> s{_clbLoadBalancerName = a});+clbLoadBalancerName = lens _clbLoadBalancerName (\ s a -> s{_clbLoadBalancerName = a})  -- | The listeners. For more information, see <http://docs.aws.amazon.com/elasticloadbalancing/latest/classic/elb-listener-config.html Listeners for Your Classic Load Balancer> in the /Classic Load Balancer Guide/ . clbListeners :: Lens' CreateLoadBalancer [Listener]-clbListeners = lens _clbListeners (\ s a -> s{_clbListeners = a}) . _Coerce;+clbListeners = lens _clbListeners (\ s a -> s{_clbListeners = a}) . _Coerce  instance AWSRequest CreateLoadBalancer where         type Rs CreateLoadBalancer =@@ -194,15 +194,15 @@     -> CreateLoadBalancerResponse createLoadBalancerResponse pResponseStatus_ =   CreateLoadBalancerResponse'-  {_clbrsDNSName = Nothing, _clbrsResponseStatus = pResponseStatus_}+    {_clbrsDNSName = Nothing, _clbrsResponseStatus = pResponseStatus_}   -- | The DNS name of the load balancer. clbrsDNSName :: Lens' CreateLoadBalancerResponse (Maybe Text)-clbrsDNSName = lens _clbrsDNSName (\ s a -> s{_clbrsDNSName = a});+clbrsDNSName = lens _clbrsDNSName (\ s a -> s{_clbrsDNSName = a})  -- | -- | The response status code. clbrsResponseStatus :: Lens' CreateLoadBalancerResponse Int-clbrsResponseStatus = lens _clbrsResponseStatus (\ s a -> s{_clbrsResponseStatus = a});+clbrsResponseStatus = lens _clbrsResponseStatus (\ s a -> s{_clbrsResponseStatus = a})  instance NFData CreateLoadBalancerResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.CreateLoadBalancerListeners--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,16 +69,16 @@     -> CreateLoadBalancerListeners createLoadBalancerListeners pLoadBalancerName_ =   CreateLoadBalancerListeners'-  {_clblLoadBalancerName = pLoadBalancerName_, _clblListeners = mempty}+    {_clblLoadBalancerName = pLoadBalancerName_, _clblListeners = mempty}   -- | The name of the load balancer. clblLoadBalancerName :: Lens' CreateLoadBalancerListeners Text-clblLoadBalancerName = lens _clblLoadBalancerName (\ s a -> s{_clblLoadBalancerName = a});+clblLoadBalancerName = lens _clblLoadBalancerName (\ s a -> s{_clblLoadBalancerName = a})  -- | The listeners. clblListeners :: Lens' CreateLoadBalancerListeners [Listener]-clblListeners = lens _clblListeners (\ s a -> s{_clblListeners = a}) . _Coerce;+clblListeners = lens _clblListeners (\ s a -> s{_clblListeners = a}) . _Coerce  instance AWSRequest CreateLoadBalancerListeners where         type Rs CreateLoadBalancerListeners =@@ -130,12 +130,12 @@     -> CreateLoadBalancerListenersResponse createLoadBalancerListenersResponse pResponseStatus_ =   CreateLoadBalancerListenersResponse'-  {_clblrsResponseStatus = pResponseStatus_}+    {_clblrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. clblrsResponseStatus :: Lens' CreateLoadBalancerListenersResponse Int-clblrsResponseStatus = lens _clblrsResponseStatus (\ s a -> s{_clblrsResponseStatus = a});+clblrsResponseStatus = lens _clblrsResponseStatus (\ s a -> s{_clblrsResponseStatus = a})  instance NFData CreateLoadBalancerListenersResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.CreateLoadBalancerPolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -79,28 +79,28 @@     -> CreateLoadBalancerPolicy createLoadBalancerPolicy pLoadBalancerName_ pPolicyName_ pPolicyTypeName_ =   CreateLoadBalancerPolicy'-  { _clbpPolicyAttributes = Nothing-  , _clbpLoadBalancerName = pLoadBalancerName_-  , _clbpPolicyName = pPolicyName_-  , _clbpPolicyTypeName = pPolicyTypeName_-  }+    { _clbpPolicyAttributes = Nothing+    , _clbpLoadBalancerName = pLoadBalancerName_+    , _clbpPolicyName = pPolicyName_+    , _clbpPolicyTypeName = pPolicyTypeName_+    }   -- | The policy attributes. clbpPolicyAttributes :: Lens' CreateLoadBalancerPolicy [PolicyAttribute]-clbpPolicyAttributes = lens _clbpPolicyAttributes (\ s a -> s{_clbpPolicyAttributes = a}) . _Default . _Coerce;+clbpPolicyAttributes = lens _clbpPolicyAttributes (\ s a -> s{_clbpPolicyAttributes = a}) . _Default . _Coerce  -- | The name of the load balancer. clbpLoadBalancerName :: Lens' CreateLoadBalancerPolicy Text-clbpLoadBalancerName = lens _clbpLoadBalancerName (\ s a -> s{_clbpLoadBalancerName = a});+clbpLoadBalancerName = lens _clbpLoadBalancerName (\ s a -> s{_clbpLoadBalancerName = a})  -- | The name of the load balancer policy to be created. This name must be unique within the set of policies for this load balancer. clbpPolicyName :: Lens' CreateLoadBalancerPolicy Text-clbpPolicyName = lens _clbpPolicyName (\ s a -> s{_clbpPolicyName = a});+clbpPolicyName = lens _clbpPolicyName (\ s a -> s{_clbpPolicyName = a})  -- | The name of the base policy type. To get the list of policy types, use 'DescribeLoadBalancerPolicyTypes' . clbpPolicyTypeName :: Lens' CreateLoadBalancerPolicy Text-clbpPolicyTypeName = lens _clbpPolicyTypeName (\ s a -> s{_clbpPolicyTypeName = a});+clbpPolicyTypeName = lens _clbpPolicyTypeName (\ s a -> s{_clbpPolicyTypeName = a})  instance AWSRequest CreateLoadBalancerPolicy where         type Rs CreateLoadBalancerPolicy =@@ -159,7 +159,7 @@  -- | -- | The response status code. clbprsResponseStatus :: Lens' CreateLoadBalancerPolicyResponse Int-clbprsResponseStatus = lens _clbprsResponseStatus (\ s a -> s{_clbprsResponseStatus = a});+clbprsResponseStatus = lens _clbprsResponseStatus (\ s a -> s{_clbprsResponseStatus = a})  instance NFData CreateLoadBalancerPolicyResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.DeleteLoadBalancer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,7 +71,7 @@  -- | The name of the load balancer. dlbLoadBalancerName :: Lens' DeleteLoadBalancer Text-dlbLoadBalancerName = lens _dlbLoadBalancerName (\ s a -> s{_dlbLoadBalancerName = a});+dlbLoadBalancerName = lens _dlbLoadBalancerName (\ s a -> s{_dlbLoadBalancerName = a})  instance AWSRequest DeleteLoadBalancer where         type Rs DeleteLoadBalancer =@@ -123,6 +123,6 @@  -- | -- | The response status code. drsResponseStatus :: Lens' DeleteLoadBalancerResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DeleteLoadBalancerResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.DeleteLoadBalancerListeners--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,16 +67,18 @@     -> DeleteLoadBalancerListeners deleteLoadBalancerListeners pLoadBalancerName_ =   DeleteLoadBalancerListeners'-  {_dlblLoadBalancerName = pLoadBalancerName_, _dlblLoadBalancerPorts = mempty}+    { _dlblLoadBalancerName = pLoadBalancerName_+    , _dlblLoadBalancerPorts = mempty+    }   -- | The name of the load balancer. dlblLoadBalancerName :: Lens' DeleteLoadBalancerListeners Text-dlblLoadBalancerName = lens _dlblLoadBalancerName (\ s a -> s{_dlblLoadBalancerName = a});+dlblLoadBalancerName = lens _dlblLoadBalancerName (\ s a -> s{_dlblLoadBalancerName = a})  -- | The client port numbers of the listeners. dlblLoadBalancerPorts :: Lens' DeleteLoadBalancerListeners [Int]-dlblLoadBalancerPorts = lens _dlblLoadBalancerPorts (\ s a -> s{_dlblLoadBalancerPorts = a}) . _Coerce;+dlblLoadBalancerPorts = lens _dlblLoadBalancerPorts (\ s a -> s{_dlblLoadBalancerPorts = a}) . _Coerce  instance AWSRequest DeleteLoadBalancerListeners where         type Rs DeleteLoadBalancerListeners =@@ -129,12 +131,12 @@     -> DeleteLoadBalancerListenersResponse deleteLoadBalancerListenersResponse pResponseStatus_ =   DeleteLoadBalancerListenersResponse'-  {_dlblrsResponseStatus = pResponseStatus_}+    {_dlblrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. dlblrsResponseStatus :: Lens' DeleteLoadBalancerListenersResponse Int-dlblrsResponseStatus = lens _dlblrsResponseStatus (\ s a -> s{_dlblrsResponseStatus = a});+dlblrsResponseStatus = lens _dlblrsResponseStatus (\ s a -> s{_dlblrsResponseStatus = a})  instance NFData DeleteLoadBalancerListenersResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.DeleteLoadBalancerPolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,16 +68,16 @@     -> DeleteLoadBalancerPolicy deleteLoadBalancerPolicy pLoadBalancerName_ pPolicyName_ =   DeleteLoadBalancerPolicy'-  {_dLoadBalancerName = pLoadBalancerName_, _dPolicyName = pPolicyName_}+    {_dLoadBalancerName = pLoadBalancerName_, _dPolicyName = pPolicyName_}   -- | The name of the load balancer. dLoadBalancerName :: Lens' DeleteLoadBalancerPolicy Text-dLoadBalancerName = lens _dLoadBalancerName (\ s a -> s{_dLoadBalancerName = a});+dLoadBalancerName = lens _dLoadBalancerName (\ s a -> s{_dLoadBalancerName = a})  -- | The name of the policy. dPolicyName :: Lens' DeleteLoadBalancerPolicy Text-dPolicyName = lens _dPolicyName (\ s a -> s{_dPolicyName = a});+dPolicyName = lens _dPolicyName (\ s a -> s{_dPolicyName = a})  instance AWSRequest DeleteLoadBalancerPolicy where         type Rs DeleteLoadBalancerPolicy =@@ -132,7 +132,7 @@  -- | -- | The response status code. delrsResponseStatus :: Lens' DeleteLoadBalancerPolicyResponse Int-delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a})  instance NFData DeleteLoadBalancerPolicyResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.DeregisterInstancesFromLoadBalancer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,16 +72,16 @@     -> DeregisterInstancesFromLoadBalancer deregisterInstancesFromLoadBalancer pLoadBalancerName_ =   DeregisterInstancesFromLoadBalancer'-  {_diflbLoadBalancerName = pLoadBalancerName_, _diflbInstances = mempty}+    {_diflbLoadBalancerName = pLoadBalancerName_, _diflbInstances = mempty}   -- | The name of the load balancer. diflbLoadBalancerName :: Lens' DeregisterInstancesFromLoadBalancer Text-diflbLoadBalancerName = lens _diflbLoadBalancerName (\ s a -> s{_diflbLoadBalancerName = a});+diflbLoadBalancerName = lens _diflbLoadBalancerName (\ s a -> s{_diflbLoadBalancerName = a})  -- | The IDs of the instances. diflbInstances :: Lens' DeregisterInstancesFromLoadBalancer [Instance]-diflbInstances = lens _diflbInstances (\ s a -> s{_diflbInstances = a}) . _Coerce;+diflbInstances = lens _diflbInstances (\ s a -> s{_diflbInstances = a}) . _Coerce  instance AWSRequest            DeregisterInstancesFromLoadBalancer@@ -147,16 +147,16 @@     -> DeregisterInstancesFromLoadBalancerResponse deregisterInstancesFromLoadBalancerResponse pResponseStatus_ =   DeregisterInstancesFromLoadBalancerResponse'-  {_diflbrsInstances = Nothing, _diflbrsResponseStatus = pResponseStatus_}+    {_diflbrsInstances = Nothing, _diflbrsResponseStatus = pResponseStatus_}   -- | The remaining instances registered with the load balancer. diflbrsInstances :: Lens' DeregisterInstancesFromLoadBalancerResponse [Instance]-diflbrsInstances = lens _diflbrsInstances (\ s a -> s{_diflbrsInstances = a}) . _Default . _Coerce;+diflbrsInstances = lens _diflbrsInstances (\ s a -> s{_diflbrsInstances = a}) . _Default . _Coerce  -- | -- | The response status code. diflbrsResponseStatus :: Lens' DeregisterInstancesFromLoadBalancerResponse Int-diflbrsResponseStatus = lens _diflbrsResponseStatus (\ s a -> s{_diflbrsResponseStatus = a});+diflbrsResponseStatus = lens _diflbrsResponseStatus (\ s a -> s{_diflbrsResponseStatus = a})  instance NFData            DeregisterInstancesFromLoadBalancerResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.DescribeAccountLimits--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,11 +70,11 @@  -- | The marker for the next set of results. (You received this marker from a previous call.) dalMarker :: Lens' DescribeAccountLimits (Maybe Text)-dalMarker = lens _dalMarker (\ s a -> s{_dalMarker = a});+dalMarker = lens _dalMarker (\ s a -> s{_dalMarker = a})  -- | The maximum number of results to return with this call. dalPageSize :: Lens' DescribeAccountLimits (Maybe Natural)-dalPageSize = lens _dalPageSize (\ s a -> s{_dalPageSize = a}) . mapping _Nat;+dalPageSize = lens _dalPageSize (\ s a -> s{_dalPageSize = a}) . mapping _Nat  instance AWSRequest DescribeAccountLimits where         type Rs DescribeAccountLimits =@@ -128,22 +128,22 @@     -> DescribeAccountLimitsResponse describeAccountLimitsResponse pResponseStatus_ =   DescribeAccountLimitsResponse'-  { _dalrsLimits = Nothing-  , _dalrsNextMarker = Nothing-  , _dalrsResponseStatus = pResponseStatus_-  }+    { _dalrsLimits = Nothing+    , _dalrsNextMarker = Nothing+    , _dalrsResponseStatus = pResponseStatus_+    }   -- | Information about the limits. dalrsLimits :: Lens' DescribeAccountLimitsResponse [Limit]-dalrsLimits = lens _dalrsLimits (\ s a -> s{_dalrsLimits = a}) . _Default . _Coerce;+dalrsLimits = lens _dalrsLimits (\ s a -> s{_dalrsLimits = a}) . _Default . _Coerce  -- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty. dalrsNextMarker :: Lens' DescribeAccountLimitsResponse (Maybe Text)-dalrsNextMarker = lens _dalrsNextMarker (\ s a -> s{_dalrsNextMarker = a});+dalrsNextMarker = lens _dalrsNextMarker (\ s a -> s{_dalrsNextMarker = a})  -- | -- | The response status code. dalrsResponseStatus :: Lens' DescribeAccountLimitsResponse Int-dalrsResponseStatus = lens _dalrsResponseStatus (\ s a -> s{_dalrsResponseStatus = a});+dalrsResponseStatus = lens _dalrsResponseStatus (\ s a -> s{_dalrsResponseStatus = a})  instance NFData DescribeAccountLimitsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.DescribeInstanceHealth--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,16 +68,16 @@     -> DescribeInstanceHealth describeInstanceHealth pLoadBalancerName_ =   DescribeInstanceHealth'-  {_dihInstances = Nothing, _dihLoadBalancerName = pLoadBalancerName_}+    {_dihInstances = Nothing, _dihLoadBalancerName = pLoadBalancerName_}   -- | The IDs of the instances. dihInstances :: Lens' DescribeInstanceHealth [Instance]-dihInstances = lens _dihInstances (\ s a -> s{_dihInstances = a}) . _Default . _Coerce;+dihInstances = lens _dihInstances (\ s a -> s{_dihInstances = a}) . _Default . _Coerce  -- | The name of the load balancer. dihLoadBalancerName :: Lens' DescribeInstanceHealth Text-dihLoadBalancerName = lens _dihLoadBalancerName (\ s a -> s{_dihLoadBalancerName = a});+dihLoadBalancerName = lens _dihLoadBalancerName (\ s a -> s{_dihLoadBalancerName = a})  instance AWSRequest DescribeInstanceHealth where         type Rs DescribeInstanceHealth =@@ -134,15 +134,15 @@     -> DescribeInstanceHealthResponse describeInstanceHealthResponse pResponseStatus_ =   DescribeInstanceHealthResponse'-  {_dihrsInstanceStates = Nothing, _dihrsResponseStatus = pResponseStatus_}+    {_dihrsInstanceStates = Nothing, _dihrsResponseStatus = pResponseStatus_}   -- | Information about the health of the instances. dihrsInstanceStates :: Lens' DescribeInstanceHealthResponse [InstanceState]-dihrsInstanceStates = lens _dihrsInstanceStates (\ s a -> s{_dihrsInstanceStates = a}) . _Default . _Coerce;+dihrsInstanceStates = lens _dihrsInstanceStates (\ s a -> s{_dihrsInstanceStates = a}) . _Default . _Coerce  -- | -- | The response status code. dihrsResponseStatus :: Lens' DescribeInstanceHealthResponse Int-dihrsResponseStatus = lens _dihrsResponseStatus (\ s a -> s{_dihrsResponseStatus = a});+dihrsResponseStatus = lens _dihrsResponseStatus (\ s a -> s{_dihrsResponseStatus = a})  instance NFData DescribeInstanceHealthResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.DescribeLoadBalancerAttributes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The name of the load balancer. dlbaLoadBalancerName :: Lens' DescribeLoadBalancerAttributes Text-dlbaLoadBalancerName = lens _dlbaLoadBalancerName (\ s a -> s{_dlbaLoadBalancerName = a});+dlbaLoadBalancerName = lens _dlbaLoadBalancerName (\ s a -> s{_dlbaLoadBalancerName = a})  instance AWSRequest DescribeLoadBalancerAttributes          where@@ -126,18 +126,18 @@     -> DescribeLoadBalancerAttributesResponse describeLoadBalancerAttributesResponse pResponseStatus_ =   DescribeLoadBalancerAttributesResponse'-  { _dlbarsLoadBalancerAttributes = Nothing-  , _dlbarsResponseStatus = pResponseStatus_-  }+    { _dlbarsLoadBalancerAttributes = Nothing+    , _dlbarsResponseStatus = pResponseStatus_+    }   -- | Information about the load balancer attributes. dlbarsLoadBalancerAttributes :: Lens' DescribeLoadBalancerAttributesResponse (Maybe LoadBalancerAttributes)-dlbarsLoadBalancerAttributes = lens _dlbarsLoadBalancerAttributes (\ s a -> s{_dlbarsLoadBalancerAttributes = a});+dlbarsLoadBalancerAttributes = lens _dlbarsLoadBalancerAttributes (\ s a -> s{_dlbarsLoadBalancerAttributes = a})  -- | -- | The response status code. dlbarsResponseStatus :: Lens' DescribeLoadBalancerAttributesResponse Int-dlbarsResponseStatus = lens _dlbarsResponseStatus (\ s a -> s{_dlbarsResponseStatus = a});+dlbarsResponseStatus = lens _dlbarsResponseStatus (\ s a -> s{_dlbarsResponseStatus = a})  instance NFData            DescribeLoadBalancerAttributesResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.DescribeLoadBalancerPolicies--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,16 +69,16 @@     :: DescribeLoadBalancerPolicies describeLoadBalancerPolicies =   DescribeLoadBalancerPolicies'-  {_dlbpPolicyNames = Nothing, _dlbpLoadBalancerName = Nothing}+    {_dlbpPolicyNames = Nothing, _dlbpLoadBalancerName = Nothing}   -- | The names of the policies. dlbpPolicyNames :: Lens' DescribeLoadBalancerPolicies [Text]-dlbpPolicyNames = lens _dlbpPolicyNames (\ s a -> s{_dlbpPolicyNames = a}) . _Default . _Coerce;+dlbpPolicyNames = lens _dlbpPolicyNames (\ s a -> s{_dlbpPolicyNames = a}) . _Default . _Coerce  -- | The name of the load balancer. dlbpLoadBalancerName :: Lens' DescribeLoadBalancerPolicies (Maybe Text)-dlbpLoadBalancerName = lens _dlbpLoadBalancerName (\ s a -> s{_dlbpLoadBalancerName = a});+dlbpLoadBalancerName = lens _dlbpLoadBalancerName (\ s a -> s{_dlbpLoadBalancerName = a})  instance AWSRequest DescribeLoadBalancerPolicies          where@@ -137,18 +137,18 @@     -> DescribeLoadBalancerPoliciesResponse describeLoadBalancerPoliciesResponse pResponseStatus_ =   DescribeLoadBalancerPoliciesResponse'-  { _dlbprsPolicyDescriptions = Nothing-  , _dlbprsResponseStatus = pResponseStatus_-  }+    { _dlbprsPolicyDescriptions = Nothing+    , _dlbprsResponseStatus = pResponseStatus_+    }   -- | Information about the policies. dlbprsPolicyDescriptions :: Lens' DescribeLoadBalancerPoliciesResponse [PolicyDescription]-dlbprsPolicyDescriptions = lens _dlbprsPolicyDescriptions (\ s a -> s{_dlbprsPolicyDescriptions = a}) . _Default . _Coerce;+dlbprsPolicyDescriptions = lens _dlbprsPolicyDescriptions (\ s a -> s{_dlbprsPolicyDescriptions = a}) . _Default . _Coerce  -- | -- | The response status code. dlbprsResponseStatus :: Lens' DescribeLoadBalancerPoliciesResponse Int-dlbprsResponseStatus = lens _dlbprsResponseStatus (\ s a -> s{_dlbprsResponseStatus = a});+dlbprsResponseStatus = lens _dlbprsResponseStatus (\ s a -> s{_dlbprsResponseStatus = a})  instance NFData DescribeLoadBalancerPoliciesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.DescribeLoadBalancerPolicyTypes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,7 +71,7 @@  -- | The names of the policy types. If no names are specified, describes all policy types defined by Elastic Load Balancing. dlbptPolicyTypeNames :: Lens' DescribeLoadBalancerPolicyTypes [Text]-dlbptPolicyTypeNames = lens _dlbptPolicyTypeNames (\ s a -> s{_dlbptPolicyTypeNames = a}) . _Default . _Coerce;+dlbptPolicyTypeNames = lens _dlbptPolicyTypeNames (\ s a -> s{_dlbptPolicyTypeNames = a}) . _Default . _Coerce  instance AWSRequest DescribeLoadBalancerPolicyTypes          where@@ -133,18 +133,18 @@     -> DescribeLoadBalancerPolicyTypesResponse describeLoadBalancerPolicyTypesResponse pResponseStatus_ =   DescribeLoadBalancerPolicyTypesResponse'-  { _dlbptrsPolicyTypeDescriptions = Nothing-  , _dlbptrsResponseStatus = pResponseStatus_-  }+    { _dlbptrsPolicyTypeDescriptions = Nothing+    , _dlbptrsResponseStatus = pResponseStatus_+    }   -- | Information about the policy types. dlbptrsPolicyTypeDescriptions :: Lens' DescribeLoadBalancerPolicyTypesResponse [PolicyTypeDescription]-dlbptrsPolicyTypeDescriptions = lens _dlbptrsPolicyTypeDescriptions (\ s a -> s{_dlbptrsPolicyTypeDescriptions = a}) . _Default . _Coerce;+dlbptrsPolicyTypeDescriptions = lens _dlbptrsPolicyTypeDescriptions (\ s a -> s{_dlbptrsPolicyTypeDescriptions = a}) . _Default . _Coerce  -- | -- | The response status code. dlbptrsResponseStatus :: Lens' DescribeLoadBalancerPolicyTypesResponse Int-dlbptrsResponseStatus = lens _dlbptrsResponseStatus (\ s a -> s{_dlbptrsResponseStatus = a});+dlbptrsResponseStatus = lens _dlbptrsResponseStatus (\ s a -> s{_dlbptrsResponseStatus = a})  instance NFData            DescribeLoadBalancerPolicyTypesResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.DescribeLoadBalancers--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,23 +75,23 @@     :: DescribeLoadBalancers describeLoadBalancers =   DescribeLoadBalancers'-  { _dlbMarker = Nothing-  , _dlbPageSize = Nothing-  , _dlbLoadBalancerNames = Nothing-  }+    { _dlbMarker = Nothing+    , _dlbPageSize = Nothing+    , _dlbLoadBalancerNames = Nothing+    }   -- | The marker for the next set of results. (You received this marker from a previous call.) dlbMarker :: Lens' DescribeLoadBalancers (Maybe Text)-dlbMarker = lens _dlbMarker (\ s a -> s{_dlbMarker = a});+dlbMarker = lens _dlbMarker (\ s a -> s{_dlbMarker = a})  -- | The maximum number of results to return with this call (a number from 1 to 400). The default is 400. dlbPageSize :: Lens' DescribeLoadBalancers (Maybe Natural)-dlbPageSize = lens _dlbPageSize (\ s a -> s{_dlbPageSize = a}) . mapping _Nat;+dlbPageSize = lens _dlbPageSize (\ s a -> s{_dlbPageSize = a}) . mapping _Nat  -- | The names of the load balancers. dlbLoadBalancerNames :: Lens' DescribeLoadBalancers [Text]-dlbLoadBalancerNames = lens _dlbLoadBalancerNames (\ s a -> s{_dlbLoadBalancerNames = a}) . _Default . _Coerce;+dlbLoadBalancerNames = lens _dlbLoadBalancerNames (\ s a -> s{_dlbLoadBalancerNames = a}) . _Default . _Coerce  instance AWSPager DescribeLoadBalancers where         page rq rs@@ -160,22 +160,22 @@     -> DescribeLoadBalancersResponse describeLoadBalancersResponse pResponseStatus_ =   DescribeLoadBalancersResponse'-  { _dlbrsLoadBalancerDescriptions = Nothing-  , _dlbrsNextMarker = Nothing-  , _dlbrsResponseStatus = pResponseStatus_-  }+    { _dlbrsLoadBalancerDescriptions = Nothing+    , _dlbrsNextMarker = Nothing+    , _dlbrsResponseStatus = pResponseStatus_+    }   -- | Information about the load balancers. dlbrsLoadBalancerDescriptions :: Lens' DescribeLoadBalancersResponse [LoadBalancerDescription]-dlbrsLoadBalancerDescriptions = lens _dlbrsLoadBalancerDescriptions (\ s a -> s{_dlbrsLoadBalancerDescriptions = a}) . _Default . _Coerce;+dlbrsLoadBalancerDescriptions = lens _dlbrsLoadBalancerDescriptions (\ s a -> s{_dlbrsLoadBalancerDescriptions = a}) . _Default . _Coerce  -- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty. dlbrsNextMarker :: Lens' DescribeLoadBalancersResponse (Maybe Text)-dlbrsNextMarker = lens _dlbrsNextMarker (\ s a -> s{_dlbrsNextMarker = a});+dlbrsNextMarker = lens _dlbrsNextMarker (\ s a -> s{_dlbrsNextMarker = a})  -- | -- | The response status code. dlbrsResponseStatus :: Lens' DescribeLoadBalancersResponse Int-dlbrsResponseStatus = lens _dlbrsResponseStatus (\ s a -> s{_dlbrsResponseStatus = a});+dlbrsResponseStatus = lens _dlbrsResponseStatus (\ s a -> s{_dlbrsResponseStatus = a})  instance NFData DescribeLoadBalancersResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.DescribeTags--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The names of the load balancers. dtLoadBalancerNames :: Lens' DescribeTags (NonEmpty Text)-dtLoadBalancerNames = lens _dtLoadBalancerNames (\ s a -> s{_dtLoadBalancerNames = a}) . _List1;+dtLoadBalancerNames = lens _dtLoadBalancerNames (\ s a -> s{_dtLoadBalancerNames = a}) . _List1  instance AWSRequest DescribeTags where         type Rs DescribeTags = DescribeTagsResponse@@ -122,15 +122,15 @@     -> DescribeTagsResponse describeTagsResponse pResponseStatus_ =   DescribeTagsResponse'-  {_dtrsTagDescriptions = Nothing, _dtrsResponseStatus = pResponseStatus_}+    {_dtrsTagDescriptions = Nothing, _dtrsResponseStatus = pResponseStatus_}   -- | Information about the tags. dtrsTagDescriptions :: Lens' DescribeTagsResponse [TagDescription]-dtrsTagDescriptions = lens _dtrsTagDescriptions (\ s a -> s{_dtrsTagDescriptions = a}) . _Default . _Coerce;+dtrsTagDescriptions = lens _dtrsTagDescriptions (\ s a -> s{_dtrsTagDescriptions = a}) . _Default . _Coerce  -- | -- | The response status code. dtrsResponseStatus :: Lens' DescribeTagsResponse Int-dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a})  instance NFData DescribeTagsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.DetachLoadBalancerFromSubnets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,16 +70,16 @@     -> DetachLoadBalancerFromSubnets detachLoadBalancerFromSubnets pLoadBalancerName_ =   DetachLoadBalancerFromSubnets'-  {_dlbfsLoadBalancerName = pLoadBalancerName_, _dlbfsSubnets = mempty}+    {_dlbfsLoadBalancerName = pLoadBalancerName_, _dlbfsSubnets = mempty}   -- | The name of the load balancer. dlbfsLoadBalancerName :: Lens' DetachLoadBalancerFromSubnets Text-dlbfsLoadBalancerName = lens _dlbfsLoadBalancerName (\ s a -> s{_dlbfsLoadBalancerName = a});+dlbfsLoadBalancerName = lens _dlbfsLoadBalancerName (\ s a -> s{_dlbfsLoadBalancerName = a})  -- | The IDs of the subnets. dlbfsSubnets :: Lens' DetachLoadBalancerFromSubnets [Text]-dlbfsSubnets = lens _dlbfsSubnets (\ s a -> s{_dlbfsSubnets = a}) . _Coerce;+dlbfsSubnets = lens _dlbfsSubnets (\ s a -> s{_dlbfsSubnets = a}) . _Coerce  instance AWSRequest DetachLoadBalancerFromSubnets          where@@ -138,16 +138,16 @@     -> DetachLoadBalancerFromSubnetsResponse detachLoadBalancerFromSubnetsResponse pResponseStatus_ =   DetachLoadBalancerFromSubnetsResponse'-  {_dlbfsrsSubnets = Nothing, _dlbfsrsResponseStatus = pResponseStatus_}+    {_dlbfsrsSubnets = Nothing, _dlbfsrsResponseStatus = pResponseStatus_}   -- | The IDs of the remaining subnets for the load balancer. dlbfsrsSubnets :: Lens' DetachLoadBalancerFromSubnetsResponse [Text]-dlbfsrsSubnets = lens _dlbfsrsSubnets (\ s a -> s{_dlbfsrsSubnets = a}) . _Default . _Coerce;+dlbfsrsSubnets = lens _dlbfsrsSubnets (\ s a -> s{_dlbfsrsSubnets = a}) . _Default . _Coerce  -- | -- | The response status code. dlbfsrsResponseStatus :: Lens' DetachLoadBalancerFromSubnetsResponse Int-dlbfsrsResponseStatus = lens _dlbfsrsResponseStatus (\ s a -> s{_dlbfsrsResponseStatus = a});+dlbfsrsResponseStatus = lens _dlbfsrsResponseStatus (\ s a -> s{_dlbfsrsResponseStatus = a})  instance NFData DetachLoadBalancerFromSubnetsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.DisableAvailabilityZonesForLoadBalancer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,18 +72,18 @@     -> DisableAvailabilityZonesForLoadBalancer disableAvailabilityZonesForLoadBalancer pLoadBalancerName_ =   DisableAvailabilityZonesForLoadBalancer'-  { _dazflbLoadBalancerName = pLoadBalancerName_-  , _dazflbAvailabilityZones = mempty-  }+    { _dazflbLoadBalancerName = pLoadBalancerName_+    , _dazflbAvailabilityZones = mempty+    }   -- | The name of the load balancer. dazflbLoadBalancerName :: Lens' DisableAvailabilityZonesForLoadBalancer Text-dazflbLoadBalancerName = lens _dazflbLoadBalancerName (\ s a -> s{_dazflbLoadBalancerName = a});+dazflbLoadBalancerName = lens _dazflbLoadBalancerName (\ s a -> s{_dazflbLoadBalancerName = a})  -- | The Availability Zones. dazflbAvailabilityZones :: Lens' DisableAvailabilityZonesForLoadBalancer [Text]-dazflbAvailabilityZones = lens _dazflbAvailabilityZones (\ s a -> s{_dazflbAvailabilityZones = a}) . _Coerce;+dazflbAvailabilityZones = lens _dazflbAvailabilityZones (\ s a -> s{_dazflbAvailabilityZones = a}) . _Coerce  instance AWSRequest            DisableAvailabilityZonesForLoadBalancer@@ -154,18 +154,18 @@     -> DisableAvailabilityZonesForLoadBalancerResponse disableAvailabilityZonesForLoadBalancerResponse pResponseStatus_ =   DisableAvailabilityZonesForLoadBalancerResponse'-  { _dazflbrsAvailabilityZones = Nothing-  , _dazflbrsResponseStatus = pResponseStatus_-  }+    { _dazflbrsAvailabilityZones = Nothing+    , _dazflbrsResponseStatus = pResponseStatus_+    }   -- | The remaining Availability Zones for the load balancer. dazflbrsAvailabilityZones :: Lens' DisableAvailabilityZonesForLoadBalancerResponse [Text]-dazflbrsAvailabilityZones = lens _dazflbrsAvailabilityZones (\ s a -> s{_dazflbrsAvailabilityZones = a}) . _Default . _Coerce;+dazflbrsAvailabilityZones = lens _dazflbrsAvailabilityZones (\ s a -> s{_dazflbrsAvailabilityZones = a}) . _Default . _Coerce  -- | -- | The response status code. dazflbrsResponseStatus :: Lens' DisableAvailabilityZonesForLoadBalancerResponse Int-dazflbrsResponseStatus = lens _dazflbrsResponseStatus (\ s a -> s{_dazflbrsResponseStatus = a});+dazflbrsResponseStatus = lens _dazflbrsResponseStatus (\ s a -> s{_dazflbrsResponseStatus = a})  instance NFData            DisableAvailabilityZonesForLoadBalancerResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.EnableAvailabilityZonesForLoadBalancer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,18 +72,18 @@     -> EnableAvailabilityZonesForLoadBalancer enableAvailabilityZonesForLoadBalancer pLoadBalancerName_ =   EnableAvailabilityZonesForLoadBalancer'-  { _eazflbLoadBalancerName = pLoadBalancerName_-  , _eazflbAvailabilityZones = mempty-  }+    { _eazflbLoadBalancerName = pLoadBalancerName_+    , _eazflbAvailabilityZones = mempty+    }   -- | The name of the load balancer. eazflbLoadBalancerName :: Lens' EnableAvailabilityZonesForLoadBalancer Text-eazflbLoadBalancerName = lens _eazflbLoadBalancerName (\ s a -> s{_eazflbLoadBalancerName = a});+eazflbLoadBalancerName = lens _eazflbLoadBalancerName (\ s a -> s{_eazflbLoadBalancerName = a})  -- | The Availability Zones. These must be in the same region as the load balancer. eazflbAvailabilityZones :: Lens' EnableAvailabilityZonesForLoadBalancer [Text]-eazflbAvailabilityZones = lens _eazflbAvailabilityZones (\ s a -> s{_eazflbAvailabilityZones = a}) . _Coerce;+eazflbAvailabilityZones = lens _eazflbAvailabilityZones (\ s a -> s{_eazflbAvailabilityZones = a}) . _Coerce  instance AWSRequest            EnableAvailabilityZonesForLoadBalancer@@ -154,18 +154,18 @@     -> EnableAvailabilityZonesForLoadBalancerResponse enableAvailabilityZonesForLoadBalancerResponse pResponseStatus_ =   EnableAvailabilityZonesForLoadBalancerResponse'-  { _eazflbrsAvailabilityZones = Nothing-  , _eazflbrsResponseStatus = pResponseStatus_-  }+    { _eazflbrsAvailabilityZones = Nothing+    , _eazflbrsResponseStatus = pResponseStatus_+    }   -- | The updated list of Availability Zones for the load balancer. eazflbrsAvailabilityZones :: Lens' EnableAvailabilityZonesForLoadBalancerResponse [Text]-eazflbrsAvailabilityZones = lens _eazflbrsAvailabilityZones (\ s a -> s{_eazflbrsAvailabilityZones = a}) . _Default . _Coerce;+eazflbrsAvailabilityZones = lens _eazflbrsAvailabilityZones (\ s a -> s{_eazflbrsAvailabilityZones = a}) . _Default . _Coerce  -- | -- | The response status code. eazflbrsResponseStatus :: Lens' EnableAvailabilityZonesForLoadBalancerResponse Int-eazflbrsResponseStatus = lens _eazflbrsResponseStatus (\ s a -> s{_eazflbrsResponseStatus = a});+eazflbrsResponseStatus = lens _eazflbrsResponseStatus (\ s a -> s{_eazflbrsResponseStatus = a})  instance NFData            EnableAvailabilityZonesForLoadBalancerResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.ModifyLoadBalancerAttributes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -84,18 +84,18 @@     -> ModifyLoadBalancerAttributes modifyLoadBalancerAttributes pLoadBalancerName_ pLoadBalancerAttributes_ =   ModifyLoadBalancerAttributes'-  { _mlbaLoadBalancerName = pLoadBalancerName_-  , _mlbaLoadBalancerAttributes = pLoadBalancerAttributes_-  }+    { _mlbaLoadBalancerName = pLoadBalancerName_+    , _mlbaLoadBalancerAttributes = pLoadBalancerAttributes_+    }   -- | The name of the load balancer. mlbaLoadBalancerName :: Lens' ModifyLoadBalancerAttributes Text-mlbaLoadBalancerName = lens _mlbaLoadBalancerName (\ s a -> s{_mlbaLoadBalancerName = a});+mlbaLoadBalancerName = lens _mlbaLoadBalancerName (\ s a -> s{_mlbaLoadBalancerName = a})  -- | The attributes for the load balancer. mlbaLoadBalancerAttributes :: Lens' ModifyLoadBalancerAttributes LoadBalancerAttributes-mlbaLoadBalancerAttributes = lens _mlbaLoadBalancerAttributes (\ s a -> s{_mlbaLoadBalancerAttributes = a});+mlbaLoadBalancerAttributes = lens _mlbaLoadBalancerAttributes (\ s a -> s{_mlbaLoadBalancerAttributes = a})  instance AWSRequest ModifyLoadBalancerAttributes          where@@ -157,23 +157,23 @@     -> ModifyLoadBalancerAttributesResponse modifyLoadBalancerAttributesResponse pResponseStatus_ =   ModifyLoadBalancerAttributesResponse'-  { _mlbarsLoadBalancerName = Nothing-  , _mlbarsLoadBalancerAttributes = Nothing-  , _mlbarsResponseStatus = pResponseStatus_-  }+    { _mlbarsLoadBalancerName = Nothing+    , _mlbarsLoadBalancerAttributes = Nothing+    , _mlbarsResponseStatus = pResponseStatus_+    }   -- | The name of the load balancer. mlbarsLoadBalancerName :: Lens' ModifyLoadBalancerAttributesResponse (Maybe Text)-mlbarsLoadBalancerName = lens _mlbarsLoadBalancerName (\ s a -> s{_mlbarsLoadBalancerName = a});+mlbarsLoadBalancerName = lens _mlbarsLoadBalancerName (\ s a -> s{_mlbarsLoadBalancerName = a})  -- | Information about the load balancer attributes. mlbarsLoadBalancerAttributes :: Lens' ModifyLoadBalancerAttributesResponse (Maybe LoadBalancerAttributes)-mlbarsLoadBalancerAttributes = lens _mlbarsLoadBalancerAttributes (\ s a -> s{_mlbarsLoadBalancerAttributes = a});+mlbarsLoadBalancerAttributes = lens _mlbarsLoadBalancerAttributes (\ s a -> s{_mlbarsLoadBalancerAttributes = a})  -- | -- | The response status code. mlbarsResponseStatus :: Lens' ModifyLoadBalancerAttributesResponse Int-mlbarsResponseStatus = lens _mlbarsResponseStatus (\ s a -> s{_mlbarsResponseStatus = a});+mlbarsResponseStatus = lens _mlbarsResponseStatus (\ s a -> s{_mlbarsResponseStatus = a})  instance NFData ModifyLoadBalancerAttributesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.RegisterInstancesWithLoadBalancer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -78,16 +78,16 @@     -> RegisterInstancesWithLoadBalancer registerInstancesWithLoadBalancer pLoadBalancerName_ =   RegisterInstancesWithLoadBalancer'-  {_riwlbLoadBalancerName = pLoadBalancerName_, _riwlbInstances = mempty}+    {_riwlbLoadBalancerName = pLoadBalancerName_, _riwlbInstances = mempty}   -- | The name of the load balancer. riwlbLoadBalancerName :: Lens' RegisterInstancesWithLoadBalancer Text-riwlbLoadBalancerName = lens _riwlbLoadBalancerName (\ s a -> s{_riwlbLoadBalancerName = a});+riwlbLoadBalancerName = lens _riwlbLoadBalancerName (\ s a -> s{_riwlbLoadBalancerName = a})  -- | The IDs of the instances. riwlbInstances :: Lens' RegisterInstancesWithLoadBalancer [Instance]-riwlbInstances = lens _riwlbInstances (\ s a -> s{_riwlbInstances = a}) . _Coerce;+riwlbInstances = lens _riwlbInstances (\ s a -> s{_riwlbInstances = a}) . _Coerce  instance AWSRequest RegisterInstancesWithLoadBalancer          where@@ -150,16 +150,16 @@     -> RegisterInstancesWithLoadBalancerResponse registerInstancesWithLoadBalancerResponse pResponseStatus_ =   RegisterInstancesWithLoadBalancerResponse'-  {_riwlbrsInstances = Nothing, _riwlbrsResponseStatus = pResponseStatus_}+    {_riwlbrsInstances = Nothing, _riwlbrsResponseStatus = pResponseStatus_}   -- | The updated list of instances for the load balancer. riwlbrsInstances :: Lens' RegisterInstancesWithLoadBalancerResponse [Instance]-riwlbrsInstances = lens _riwlbrsInstances (\ s a -> s{_riwlbrsInstances = a}) . _Default . _Coerce;+riwlbrsInstances = lens _riwlbrsInstances (\ s a -> s{_riwlbrsInstances = a}) . _Default . _Coerce  -- | -- | The response status code. riwlbrsResponseStatus :: Lens' RegisterInstancesWithLoadBalancerResponse Int-riwlbrsResponseStatus = lens _riwlbrsResponseStatus (\ s a -> s{_riwlbrsResponseStatus = a});+riwlbrsResponseStatus = lens _riwlbrsResponseStatus (\ s a -> s{_riwlbrsResponseStatus = a})  instance NFData            RegisterInstancesWithLoadBalancerResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.RemoveTags--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,11 +71,11 @@  -- | The name of the load balancer. You can specify a maximum of one load balancer name. rtLoadBalancerNames :: Lens' RemoveTags [Text]-rtLoadBalancerNames = lens _rtLoadBalancerNames (\ s a -> s{_rtLoadBalancerNames = a}) . _Coerce;+rtLoadBalancerNames = lens _rtLoadBalancerNames (\ s a -> s{_rtLoadBalancerNames = a}) . _Coerce  -- | The list of tag keys to remove. rtTags :: Lens' RemoveTags (NonEmpty TagKeyOnly)-rtTags = lens _rtTags (\ s a -> s{_rtTags = a}) . _List1;+rtTags = lens _rtTags (\ s a -> s{_rtTags = a}) . _List1  instance AWSRequest RemoveTags where         type Rs RemoveTags = RemoveTagsResponse@@ -128,6 +128,6 @@  -- | -- | The response status code. rtrsResponseStatus :: Lens' RemoveTagsResponse Int-rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a});+rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a})  instance NFData RemoveTagsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.SetLoadBalancerListenerSSLCertificate--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,23 +75,23 @@     -> SetLoadBalancerListenerSSLCertificate setLoadBalancerListenerSSLCertificate pLoadBalancerName_ pLoadBalancerPort_ pSSLCertificateId_ =   SetLoadBalancerListenerSSLCertificate'-  { _slblscLoadBalancerName = pLoadBalancerName_-  , _slblscLoadBalancerPort = pLoadBalancerPort_-  , _slblscSSLCertificateId = pSSLCertificateId_-  }+    { _slblscLoadBalancerName = pLoadBalancerName_+    , _slblscLoadBalancerPort = pLoadBalancerPort_+    , _slblscSSLCertificateId = pSSLCertificateId_+    }   -- | The name of the load balancer. slblscLoadBalancerName :: Lens' SetLoadBalancerListenerSSLCertificate Text-slblscLoadBalancerName = lens _slblscLoadBalancerName (\ s a -> s{_slblscLoadBalancerName = a});+slblscLoadBalancerName = lens _slblscLoadBalancerName (\ s a -> s{_slblscLoadBalancerName = a})  -- | The port that uses the specified SSL certificate. slblscLoadBalancerPort :: Lens' SetLoadBalancerListenerSSLCertificate Int-slblscLoadBalancerPort = lens _slblscLoadBalancerPort (\ s a -> s{_slblscLoadBalancerPort = a});+slblscLoadBalancerPort = lens _slblscLoadBalancerPort (\ s a -> s{_slblscLoadBalancerPort = a})  -- | The Amazon Resource Name (ARN) of the SSL certificate. slblscSSLCertificateId :: Lens' SetLoadBalancerListenerSSLCertificate Text-slblscSSLCertificateId = lens _slblscSSLCertificateId (\ s a -> s{_slblscSSLCertificateId = a});+slblscSSLCertificateId = lens _slblscSSLCertificateId (\ s a -> s{_slblscSSLCertificateId = a})  instance AWSRequest            SetLoadBalancerListenerSSLCertificate@@ -155,12 +155,12 @@     -> SetLoadBalancerListenerSSLCertificateResponse setLoadBalancerListenerSSLCertificateResponse pResponseStatus_ =   SetLoadBalancerListenerSSLCertificateResponse'-  {_slblscrsResponseStatus = pResponseStatus_}+    {_slblscrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. slblscrsResponseStatus :: Lens' SetLoadBalancerListenerSSLCertificateResponse Int-slblscrsResponseStatus = lens _slblscrsResponseStatus (\ s a -> s{_slblscrsResponseStatus = a});+slblscrsResponseStatus = lens _slblscrsResponseStatus (\ s a -> s{_slblscrsResponseStatus = a})  instance NFData            SetLoadBalancerListenerSSLCertificateResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.SetLoadBalancerPoliciesForBackendServer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -78,23 +78,23 @@     -> SetLoadBalancerPoliciesForBackendServer setLoadBalancerPoliciesForBackendServer pLoadBalancerName_ pInstancePort_ =   SetLoadBalancerPoliciesForBackendServer'-  { _slbpfbsLoadBalancerName = pLoadBalancerName_-  , _slbpfbsInstancePort = pInstancePort_-  , _slbpfbsPolicyNames = mempty-  }+    { _slbpfbsLoadBalancerName = pLoadBalancerName_+    , _slbpfbsInstancePort = pInstancePort_+    , _slbpfbsPolicyNames = mempty+    }   -- | The name of the load balancer. slbpfbsLoadBalancerName :: Lens' SetLoadBalancerPoliciesForBackendServer Text-slbpfbsLoadBalancerName = lens _slbpfbsLoadBalancerName (\ s a -> s{_slbpfbsLoadBalancerName = a});+slbpfbsLoadBalancerName = lens _slbpfbsLoadBalancerName (\ s a -> s{_slbpfbsLoadBalancerName = a})  -- | The port number associated with the EC2 instance. slbpfbsInstancePort :: Lens' SetLoadBalancerPoliciesForBackendServer Int-slbpfbsInstancePort = lens _slbpfbsInstancePort (\ s a -> s{_slbpfbsInstancePort = a});+slbpfbsInstancePort = lens _slbpfbsInstancePort (\ s a -> s{_slbpfbsInstancePort = a})  -- | The names of the policies. If the list is empty, then all current polices are removed from the EC2 instance. slbpfbsPolicyNames :: Lens' SetLoadBalancerPoliciesForBackendServer [Text]-slbpfbsPolicyNames = lens _slbpfbsPolicyNames (\ s a -> s{_slbpfbsPolicyNames = a}) . _Coerce;+slbpfbsPolicyNames = lens _slbpfbsPolicyNames (\ s a -> s{_slbpfbsPolicyNames = a}) . _Coerce  instance AWSRequest            SetLoadBalancerPoliciesForBackendServer@@ -161,12 +161,12 @@     -> SetLoadBalancerPoliciesForBackendServerResponse setLoadBalancerPoliciesForBackendServerResponse pResponseStatus_ =   SetLoadBalancerPoliciesForBackendServerResponse'-  {_slbpfbsrsResponseStatus = pResponseStatus_}+    {_slbpfbsrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. slbpfbsrsResponseStatus :: Lens' SetLoadBalancerPoliciesForBackendServerResponse Int-slbpfbsrsResponseStatus = lens _slbpfbsrsResponseStatus (\ s a -> s{_slbpfbsrsResponseStatus = a});+slbpfbsrsResponseStatus = lens _slbpfbsrsResponseStatus (\ s a -> s{_slbpfbsrsResponseStatus = a})  instance NFData            SetLoadBalancerPoliciesForBackendServerResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELB.SetLoadBalancerPoliciesOfListener--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,23 +76,23 @@     -> SetLoadBalancerPoliciesOfListener setLoadBalancerPoliciesOfListener pLoadBalancerName_ pLoadBalancerPort_ =   SetLoadBalancerPoliciesOfListener'-  { _slbpolLoadBalancerName = pLoadBalancerName_-  , _slbpolLoadBalancerPort = pLoadBalancerPort_-  , _slbpolPolicyNames = mempty-  }+    { _slbpolLoadBalancerName = pLoadBalancerName_+    , _slbpolLoadBalancerPort = pLoadBalancerPort_+    , _slbpolPolicyNames = mempty+    }   -- | The name of the load balancer. slbpolLoadBalancerName :: Lens' SetLoadBalancerPoliciesOfListener Text-slbpolLoadBalancerName = lens _slbpolLoadBalancerName (\ s a -> s{_slbpolLoadBalancerName = a});+slbpolLoadBalancerName = lens _slbpolLoadBalancerName (\ s a -> s{_slbpolLoadBalancerName = a})  -- | The external port of the load balancer. slbpolLoadBalancerPort :: Lens' SetLoadBalancerPoliciesOfListener Int-slbpolLoadBalancerPort = lens _slbpolLoadBalancerPort (\ s a -> s{_slbpolLoadBalancerPort = a});+slbpolLoadBalancerPort = lens _slbpolLoadBalancerPort (\ s a -> s{_slbpolLoadBalancerPort = a})  -- | The names of the policies. This list must include all policies to be enabled. If you omit a policy that is currently enabled, it is disabled. If the list is empty, all current policies are disabled. slbpolPolicyNames :: Lens' SetLoadBalancerPoliciesOfListener [Text]-slbpolPolicyNames = lens _slbpolPolicyNames (\ s a -> s{_slbpolPolicyNames = a}) . _Coerce;+slbpolPolicyNames = lens _slbpolPolicyNames (\ s a -> s{_slbpolPolicyNames = a}) . _Coerce  instance AWSRequest SetLoadBalancerPoliciesOfListener          where@@ -152,12 +152,12 @@     -> SetLoadBalancerPoliciesOfListenerResponse setLoadBalancerPoliciesOfListenerResponse pResponseStatus_ =   SetLoadBalancerPoliciesOfListenerResponse'-  {_slbpolrsResponseStatus = pResponseStatus_}+    {_slbpolrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. slbpolrsResponseStatus :: Lens' SetLoadBalancerPoliciesOfListenerResponse Int-slbpolrsResponseStatus = lens _slbpolrsResponseStatus (\ s a -> s{_slbpolrsResponseStatus = a});+slbpolrsResponseStatus = lens _slbpolrsResponseStatus (\ s a -> s{_slbpolrsResponseStatus = a})  instance NFData            SetLoadBalancerPoliciesOfListenerResponse

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.ELB.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -32,6 +32,7 @@     , _InvalidSecurityGroupException     , _ListenerNotFoundException     , _InvalidEndPointException+    , _OperationNotPermittedException     , _DependencyThrottleException     , _InvalidSchemeException     , _TooManyAccessPointsException@@ -238,24 +239,24 @@ elb :: Service elb =   Service-  { _svcAbbrev = "ELB"-  , _svcSigner = v4-  , _svcPrefix = "elasticloadbalancing"-  , _svcVersion = "2012-06-01"-  , _svcEndpoint = defaultEndpoint elb-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseXMLError "ELB"-  , _svcRetry = retry-  }+    { _svcAbbrev = "ELB"+    , _svcSigner = v4+    , _svcPrefix = "elasticloadbalancing"+    , _svcVersion = "2012-06-01"+    , _svcEndpoint = defaultEndpoint elb+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError "ELB"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -264,6 +265,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"@@ -395,6 +398,14 @@ _InvalidEndPointException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidEndPointException =   _MatchServiceError elb "InvalidInstance" . hasStatus 400+++-- | This operation is not allowed.+--+--+_OperationNotPermittedException :: AsError a => Getting (First ServiceError) a ServiceError+_OperationNotPermittedException =+  _MatchServiceError elb "OperationNotPermitted" . hasStatus 400   -- | Prism for DependencyThrottleException' errors.

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.ELB.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -51,28 +51,28 @@     -> AccessLog accessLog pEnabled_ =   AccessLog'-  { _alEmitInterval = Nothing-  , _alS3BucketPrefix = Nothing-  , _alS3BucketName = Nothing-  , _alEnabled = pEnabled_-  }+    { _alEmitInterval = Nothing+    , _alS3BucketPrefix = Nothing+    , _alS3BucketName = Nothing+    , _alEnabled = pEnabled_+    }   -- | The interval for publishing the access logs. You can specify an interval of either 5 minutes or 60 minutes. Default: 60 minutes alEmitInterval :: Lens' AccessLog (Maybe Int)-alEmitInterval = lens _alEmitInterval (\ s a -> s{_alEmitInterval = a});+alEmitInterval = lens _alEmitInterval (\ s a -> s{_alEmitInterval = a})  -- | The logical hierarchy you created for your Amazon S3 bucket, for example @my-bucket-prefix/prod@ . If the prefix is not provided, the log is placed at the root level of the bucket. alS3BucketPrefix :: Lens' AccessLog (Maybe Text)-alS3BucketPrefix = lens _alS3BucketPrefix (\ s a -> s{_alS3BucketPrefix = a});+alS3BucketPrefix = lens _alS3BucketPrefix (\ s a -> s{_alS3BucketPrefix = a})  -- | The name of the Amazon S3 bucket where the access logs are stored. alS3BucketName :: Lens' AccessLog (Maybe Text)-alS3BucketName = lens _alS3BucketName (\ s a -> s{_alS3BucketName = a});+alS3BucketName = lens _alS3BucketName (\ s a -> s{_alS3BucketName = a})  -- | Specifies whether access logs are enabled for the load balancer. alEnabled :: Lens' AccessLog Bool-alEnabled = lens _alEnabled (\ s a -> s{_alEnabled = a});+alEnabled = lens _alEnabled (\ s a -> s{_alEnabled = a})  instance FromXML AccessLog where         parseXML x@@ -119,11 +119,11 @@  -- | This parameter is reserved. aaValue :: Lens' AdditionalAttribute (Maybe Text)-aaValue = lens _aaValue (\ s a -> s{_aaValue = a});+aaValue = lens _aaValue (\ s a -> s{_aaValue = a})  -- | This parameter is reserved. aaKey :: Lens' AdditionalAttribute (Maybe Text)-aaKey = lens _aaKey (\ s a -> s{_aaKey = a});+aaKey = lens _aaKey (\ s a -> s{_aaKey = a})  instance FromXML AdditionalAttribute where         parseXML x@@ -160,16 +160,16 @@     :: AppCookieStickinessPolicy appCookieStickinessPolicy =   AppCookieStickinessPolicy'-  {_acspPolicyName = Nothing, _acspCookieName = Nothing}+    {_acspPolicyName = Nothing, _acspCookieName = Nothing}   -- | The mnemonic name for the policy being created. The name must be unique within a set of policies for this load balancer. acspPolicyName :: Lens' AppCookieStickinessPolicy (Maybe Text)-acspPolicyName = lens _acspPolicyName (\ s a -> s{_acspPolicyName = a});+acspPolicyName = lens _acspPolicyName (\ s a -> s{_acspPolicyName = a})  -- | The name of the application cookie used for stickiness. acspCookieName :: Lens' AppCookieStickinessPolicy (Maybe Text)-acspCookieName = lens _acspCookieName (\ s a -> s{_acspCookieName = a});+acspCookieName = lens _acspCookieName (\ s a -> s{_acspCookieName = a})  instance FromXML AppCookieStickinessPolicy where         parseXML x@@ -202,16 +202,16 @@     :: BackendServerDescription backendServerDescription =   BackendServerDescription'-  {_bsdPolicyNames = Nothing, _bsdInstancePort = Nothing}+    {_bsdPolicyNames = Nothing, _bsdInstancePort = Nothing}   -- | The names of the policies enabled for the EC2 instance. bsdPolicyNames :: Lens' BackendServerDescription [Text]-bsdPolicyNames = lens _bsdPolicyNames (\ s a -> s{_bsdPolicyNames = a}) . _Default . _Coerce;+bsdPolicyNames = lens _bsdPolicyNames (\ s a -> s{_bsdPolicyNames = a}) . _Default . _Coerce  -- | The port on which the EC2 instance is listening. bsdInstancePort :: Lens' BackendServerDescription (Maybe Natural)-bsdInstancePort = lens _bsdInstancePort (\ s a -> s{_bsdInstancePort = a}) . mapping _Nat;+bsdInstancePort = lens _bsdInstancePort (\ s a -> s{_bsdInstancePort = a}) . mapping _Nat  instance FromXML BackendServerDescription where         parseXML x@@ -251,11 +251,11 @@  -- | The maximum time, in seconds, to keep the existing connections open before deregistering the instances. cdTimeout :: Lens' ConnectionDraining (Maybe Int)-cdTimeout = lens _cdTimeout (\ s a -> s{_cdTimeout = a});+cdTimeout = lens _cdTimeout (\ s a -> s{_cdTimeout = a})  -- | Specifies whether connection draining is enabled for the load balancer. cdEnabled :: Lens' ConnectionDraining Bool-cdEnabled = lens _cdEnabled (\ s a -> s{_cdEnabled = a});+cdEnabled = lens _cdEnabled (\ s a -> s{_cdEnabled = a})  instance FromXML ConnectionDraining where         parseXML x@@ -295,7 +295,7 @@  -- | The time, in seconds, that the connection is allowed to be idle (no data has been sent over the connection) before it is closed by the load balancer. csIdleTimeout :: Lens' ConnectionSettings Natural-csIdleTimeout = lens _csIdleTimeout (\ s a -> s{_csIdleTimeout = a}) . _Nat;+csIdleTimeout = lens _csIdleTimeout (\ s a -> s{_csIdleTimeout = a}) . _Nat  instance FromXML ConnectionSettings where         parseXML x@@ -333,7 +333,7 @@  -- | Specifies whether cross-zone load balancing is enabled for the load balancer. czlbEnabled :: Lens' CrossZoneLoadBalancing Bool-czlbEnabled = lens _czlbEnabled (\ s a -> s{_czlbEnabled = a});+czlbEnabled = lens _czlbEnabled (\ s a -> s{_czlbEnabled = a})  instance FromXML CrossZoneLoadBalancing where         parseXML x@@ -383,33 +383,33 @@     -> HealthCheck healthCheck pTarget_ pInterval_ pTimeout_ pUnhealthyThreshold_ pHealthyThreshold_ =   HealthCheck'-  { _hcTarget = pTarget_-  , _hcInterval = _Nat # pInterval_-  , _hcTimeout = _Nat # pTimeout_-  , _hcUnhealthyThreshold = _Nat # pUnhealthyThreshold_-  , _hcHealthyThreshold = _Nat # pHealthyThreshold_-  }+    { _hcTarget = pTarget_+    , _hcInterval = _Nat # pInterval_+    , _hcTimeout = _Nat # pTimeout_+    , _hcUnhealthyThreshold = _Nat # pUnhealthyThreshold_+    , _hcHealthyThreshold = _Nat # pHealthyThreshold_+    }   -- | The instance being checked. The protocol is either TCP, HTTP, HTTPS, or SSL. The range of valid ports is one (1) through 65535. TCP is the default, specified as a TCP: port pair, for example "TCP:5000". In this case, a health check simply attempts to open a TCP connection to the instance on the specified port. Failure to connect within the configured timeout is considered unhealthy. SSL is also specified as SSL: port pair, for example, SSL:5000. For HTTP/HTTPS, you must include a ping path in the string. HTTP is specified as a HTTP:port;/;PathToPing; grouping, for example "HTTP:80/weather/us/wa/seattle". In this case, a HTTP GET request is issued to the instance on the given port and path. Any answer other than "200 OK" within the timeout period is considered unhealthy. The total length of the HTTP ping target must be 1024 16-bit Unicode characters or less. hcTarget :: Lens' HealthCheck Text-hcTarget = lens _hcTarget (\ s a -> s{_hcTarget = a});+hcTarget = lens _hcTarget (\ s a -> s{_hcTarget = a})  -- | The approximate interval, in seconds, between health checks of an individual instance. hcInterval :: Lens' HealthCheck Natural-hcInterval = lens _hcInterval (\ s a -> s{_hcInterval = a}) . _Nat;+hcInterval = lens _hcInterval (\ s a -> s{_hcInterval = a}) . _Nat  -- | The amount of time, in seconds, during which no response means a failed health check. This value must be less than the @Interval@ value. hcTimeout :: Lens' HealthCheck Natural-hcTimeout = lens _hcTimeout (\ s a -> s{_hcTimeout = a}) . _Nat;+hcTimeout = lens _hcTimeout (\ s a -> s{_hcTimeout = a}) . _Nat  -- | The number of consecutive health check failures required before moving the instance to the @Unhealthy@ state. hcUnhealthyThreshold :: Lens' HealthCheck Natural-hcUnhealthyThreshold = lens _hcUnhealthyThreshold (\ s a -> s{_hcUnhealthyThreshold = a}) . _Nat;+hcUnhealthyThreshold = lens _hcUnhealthyThreshold (\ s a -> s{_hcUnhealthyThreshold = a}) . _Nat  -- | The number of consecutive health checks successes required before moving the instance to the @Healthy@ state. hcHealthyThreshold :: Lens' HealthCheck Natural-hcHealthyThreshold = lens _hcHealthyThreshold (\ s a -> s{_hcHealthyThreshold = a}) . _Nat;+hcHealthyThreshold = lens _hcHealthyThreshold (\ s a -> s{_hcHealthyThreshold = a}) . _Nat  instance FromXML HealthCheck where         parseXML x@@ -453,7 +453,7 @@  -- | The instance ID. iInstanceId :: Lens' Instance (Maybe Text)-iInstanceId = lens _iInstanceId (\ s a -> s{_iInstanceId = a});+iInstanceId = lens _iInstanceId (\ s a -> s{_iInstanceId = a})  instance FromXML Instance where         parseXML x = Instance' <$> (x .@? "InstanceId")@@ -494,28 +494,28 @@     :: InstanceState instanceState =   InstanceState'-  { _isInstanceId = Nothing-  , _isState = Nothing-  , _isReasonCode = Nothing-  , _isDescription = Nothing-  }+    { _isInstanceId = Nothing+    , _isState = Nothing+    , _isReasonCode = Nothing+    , _isDescription = Nothing+    }   -- | The ID of the instance. isInstanceId :: Lens' InstanceState (Maybe Text)-isInstanceId = lens _isInstanceId (\ s a -> s{_isInstanceId = a});+isInstanceId = lens _isInstanceId (\ s a -> s{_isInstanceId = a})  -- | The current state of the instance. Valid values: @InService@ | @OutOfService@ | @Unknown@ isState :: Lens' InstanceState (Maybe Text)-isState = lens _isState (\ s a -> s{_isState = a});+isState = lens _isState (\ s a -> s{_isState = a})  -- | Information about the cause of @OutOfService@ instances. Specifically, whether the cause is Elastic Load Balancing or the instance. Valid values: @ELB@ | @Instance@ | @N/A@ isReasonCode :: Lens' InstanceState (Maybe Text)-isReasonCode = lens _isReasonCode (\ s a -> s{_isReasonCode = a});+isReasonCode = lens _isReasonCode (\ s a -> s{_isReasonCode = a})  -- | A description of the instance state. This string can contain one or more of the following messages.     * @N/A@      * @A transient error occurred. Please try again later.@      * @Instance has failed at least the UnhealthyThreshold number of health checks consecutively.@      * @Instance has not passed the configured HealthyThreshold number of health checks consecutively.@      * @Instance registration is still in progress.@      * @Instance is in the EC2 Availability Zone for which LoadBalancer is not configured to route traffic to.@      * @Instance is not currently registered with the LoadBalancer.@      * @Instance deregistration currently in progress.@      * @Disable Availability Zone is currently in progress.@      * @Instance is in pending state.@      * @Instance is in stopped state.@      * @Instance is in terminated state.@ isDescription :: Lens' InstanceState (Maybe Text)-isDescription = lens _isDescription (\ s a -> s{_isDescription = a});+isDescription = lens _isDescription (\ s a -> s{_isDescription = a})  instance FromXML InstanceState where         parseXML x@@ -550,16 +550,16 @@     :: LBCookieStickinessPolicy lBCookieStickinessPolicy =   LBCookieStickinessPolicy'-  {_lbcspPolicyName = Nothing, _lbcspCookieExpirationPeriod = Nothing}+    {_lbcspPolicyName = Nothing, _lbcspCookieExpirationPeriod = Nothing}   -- | The name of the policy. This name must be unique within the set of policies for this load balancer. lbcspPolicyName :: Lens' LBCookieStickinessPolicy (Maybe Text)-lbcspPolicyName = lens _lbcspPolicyName (\ s a -> s{_lbcspPolicyName = a});+lbcspPolicyName = lens _lbcspPolicyName (\ s a -> s{_lbcspPolicyName = a})  -- | The time period, in seconds, after which the cookie should be considered stale. If this parameter is not specified, the stickiness session lasts for the duration of the browser session. lbcspCookieExpirationPeriod :: Lens' LBCookieStickinessPolicy (Maybe Integer)-lbcspCookieExpirationPeriod = lens _lbcspCookieExpirationPeriod (\ s a -> s{_lbcspCookieExpirationPeriod = a});+lbcspCookieExpirationPeriod = lens _lbcspCookieExpirationPeriod (\ s a -> s{_lbcspCookieExpirationPeriod = a})  instance FromXML LBCookieStickinessPolicy where         parseXML x@@ -596,11 +596,11 @@  -- | The maximum value of the limit. lMax :: Lens' Limit (Maybe Text)-lMax = lens _lMax (\ s a -> s{_lMax = a});+lMax = lens _lMax (\ s a -> s{_lMax = a})  -- | The name of the limit. The possible values are:     * classic-listeners     * classic-load-balancers lName :: Lens' Limit (Maybe Text)-lName = lens _lName (\ s a -> s{_lName = a});+lName = lens _lName (\ s a -> s{_lName = a})  instance FromXML Limit where         parseXML x@@ -646,33 +646,33 @@     -> Listener listener pProtocol_ pLoadBalancerPort_ pInstancePort_ =   Listener'-  { _lInstanceProtocol = Nothing-  , _lSSLCertificateId = Nothing-  , _lProtocol = pProtocol_-  , _lLoadBalancerPort = pLoadBalancerPort_-  , _lInstancePort = _Nat # pInstancePort_-  }+    { _lInstanceProtocol = Nothing+    , _lSSLCertificateId = Nothing+    , _lProtocol = pProtocol_+    , _lLoadBalancerPort = pLoadBalancerPort_+    , _lInstancePort = _Nat # pInstancePort_+    }   -- | The protocol to use for routing traffic to instances: HTTP, HTTPS, TCP, or SSL. If the front-end protocol is HTTP, HTTPS, TCP, or SSL, @InstanceProtocol@ must be at the same protocol. If there is another listener with the same @InstancePort@ whose @InstanceProtocol@ is secure, (HTTPS or SSL), the listener's @InstanceProtocol@ must also be secure. If there is another listener with the same @InstancePort@ whose @InstanceProtocol@ is HTTP or TCP, the listener's @InstanceProtocol@ must be HTTP or TCP. lInstanceProtocol :: Lens' Listener (Maybe Text)-lInstanceProtocol = lens _lInstanceProtocol (\ s a -> s{_lInstanceProtocol = a});+lInstanceProtocol = lens _lInstanceProtocol (\ s a -> s{_lInstanceProtocol = a})  -- | The Amazon Resource Name (ARN) of the server certificate. lSSLCertificateId :: Lens' Listener (Maybe Text)-lSSLCertificateId = lens _lSSLCertificateId (\ s a -> s{_lSSLCertificateId = a});+lSSLCertificateId = lens _lSSLCertificateId (\ s a -> s{_lSSLCertificateId = a})  -- | The load balancer transport protocol to use for routing: HTTP, HTTPS, TCP, or SSL. lProtocol :: Lens' Listener Text-lProtocol = lens _lProtocol (\ s a -> s{_lProtocol = a});+lProtocol = lens _lProtocol (\ s a -> s{_lProtocol = a})  -- | The port on which the load balancer is listening. On EC2-VPC, you can specify any port from the range 1-65535. On EC2-Classic, you can specify any port from the following list: 25, 80, 443, 465, 587, 1024-65535. lLoadBalancerPort :: Lens' Listener Int-lLoadBalancerPort = lens _lLoadBalancerPort (\ s a -> s{_lLoadBalancerPort = a});+lLoadBalancerPort = lens _lLoadBalancerPort (\ s a -> s{_lLoadBalancerPort = a})  -- | The port on which the instance is listening. lInstancePort :: Lens' Listener Natural-lInstancePort = lens _lInstancePort (\ s a -> s{_lInstancePort = a}) . _Nat;+lInstancePort = lens _lInstancePort (\ s a -> s{_lInstancePort = a}) . _Nat  instance FromXML Listener where         parseXML x@@ -722,11 +722,11 @@  -- | The policies. If there are no policies enabled, the list is empty. ldPolicyNames :: Lens' ListenerDescription [Text]-ldPolicyNames = lens _ldPolicyNames (\ s a -> s{_ldPolicyNames = a}) . _Default . _Coerce;+ldPolicyNames = lens _ldPolicyNames (\ s a -> s{_ldPolicyNames = a}) . _Default . _Coerce  -- | The listener. ldListener :: Lens' ListenerDescription (Maybe Listener)-ldListener = lens _ldListener (\ s a -> s{_ldListener = a});+ldListener = lens _ldListener (\ s a -> s{_ldListener = a})  instance FromXML ListenerDescription where         parseXML x@@ -770,33 +770,33 @@     :: LoadBalancerAttributes loadBalancerAttributes =   LoadBalancerAttributes'-  { _lbaCrossZoneLoadBalancing = Nothing-  , _lbaAccessLog = Nothing-  , _lbaAdditionalAttributes = Nothing-  , _lbaConnectionSettings = Nothing-  , _lbaConnectionDraining = Nothing-  }+    { _lbaCrossZoneLoadBalancing = Nothing+    , _lbaAccessLog = Nothing+    , _lbaAdditionalAttributes = Nothing+    , _lbaConnectionSettings = Nothing+    , _lbaConnectionDraining = Nothing+    }   -- | If enabled, the load balancer routes the request traffic evenly across all instances regardless of the Availability Zones. For more information, see <http://docs.aws.amazon.com/elasticloadbalancing/latest/classic/enable-disable-crosszone-lb.html Configure Cross-Zone Load Balancing> in the /Classic Load Balancer Guide/ . lbaCrossZoneLoadBalancing :: Lens' LoadBalancerAttributes (Maybe CrossZoneLoadBalancing)-lbaCrossZoneLoadBalancing = lens _lbaCrossZoneLoadBalancing (\ s a -> s{_lbaCrossZoneLoadBalancing = a});+lbaCrossZoneLoadBalancing = lens _lbaCrossZoneLoadBalancing (\ s a -> s{_lbaCrossZoneLoadBalancing = a})  -- | If enabled, the load balancer captures detailed information of all requests and delivers the information to the Amazon S3 bucket that you specify. For more information, see <http://docs.aws.amazon.com/elasticloadbalancing/latest/classic/enable-access-logs.html Enable Access Logs> in the /Classic Load Balancer Guide/ . lbaAccessLog :: Lens' LoadBalancerAttributes (Maybe AccessLog)-lbaAccessLog = lens _lbaAccessLog (\ s a -> s{_lbaAccessLog = a});+lbaAccessLog = lens _lbaAccessLog (\ s a -> s{_lbaAccessLog = a})  -- | This parameter is reserved. lbaAdditionalAttributes :: Lens' LoadBalancerAttributes [AdditionalAttribute]-lbaAdditionalAttributes = lens _lbaAdditionalAttributes (\ s a -> s{_lbaAdditionalAttributes = a}) . _Default . _Coerce;+lbaAdditionalAttributes = lens _lbaAdditionalAttributes (\ s a -> s{_lbaAdditionalAttributes = a}) . _Default . _Coerce  -- | If enabled, the load balancer allows the connections to remain idle (no data is sent over the connection) for the specified duration. By default, Elastic Load Balancing maintains a 60-second idle connection timeout for both front-end and back-end connections of your load balancer. For more information, see <http://docs.aws.amazon.com/elasticloadbalancing/latest/classic/config-idle-timeout.html Configure Idle Connection Timeout> in the /Classic Load Balancer Guide/ . lbaConnectionSettings :: Lens' LoadBalancerAttributes (Maybe ConnectionSettings)-lbaConnectionSettings = lens _lbaConnectionSettings (\ s a -> s{_lbaConnectionSettings = a});+lbaConnectionSettings = lens _lbaConnectionSettings (\ s a -> s{_lbaConnectionSettings = a})  -- | If enabled, the load balancer allows existing requests to complete before the load balancer shifts traffic away from a deregistered or unhealthy instance. For more information, see <http://docs.aws.amazon.com/elasticloadbalancing/latest/classic/config-conn-drain.html Configure Connection Draining> in the /Classic Load Balancer Guide/ . lbaConnectionDraining :: Lens' LoadBalancerAttributes (Maybe ConnectionDraining)-lbaConnectionDraining = lens _lbaConnectionDraining (\ s a -> s{_lbaConnectionDraining = a});+lbaConnectionDraining = lens _lbaConnectionDraining (\ s a -> s{_lbaConnectionDraining = a})  instance FromXML LoadBalancerAttributes where         parseXML x@@ -889,88 +889,88 @@     :: LoadBalancerDescription loadBalancerDescription =   LoadBalancerDescription'-  { _lbdSourceSecurityGroup = Nothing-  , _lbdCanonicalHostedZoneName = Nothing-  , _lbdSecurityGroups = Nothing-  , _lbdHealthCheck = Nothing-  , _lbdLoadBalancerName = Nothing-  , _lbdCreatedTime = Nothing-  , _lbdVPCId = Nothing-  , _lbdSubnets = Nothing-  , _lbdAvailabilityZones = Nothing-  , _lbdBackendServerDescriptions = Nothing-  , _lbdCanonicalHostedZoneNameId = Nothing-  , _lbdInstances = Nothing-  , _lbdScheme = Nothing-  , _lbdListenerDescriptions = Nothing-  , _lbdDNSName = Nothing-  , _lbdPolicies = Nothing-  }+    { _lbdSourceSecurityGroup = Nothing+    , _lbdCanonicalHostedZoneName = Nothing+    , _lbdSecurityGroups = Nothing+    , _lbdHealthCheck = Nothing+    , _lbdLoadBalancerName = Nothing+    , _lbdCreatedTime = Nothing+    , _lbdVPCId = Nothing+    , _lbdSubnets = Nothing+    , _lbdAvailabilityZones = Nothing+    , _lbdBackendServerDescriptions = Nothing+    , _lbdCanonicalHostedZoneNameId = Nothing+    , _lbdInstances = Nothing+    , _lbdScheme = Nothing+    , _lbdListenerDescriptions = Nothing+    , _lbdDNSName = Nothing+    , _lbdPolicies = Nothing+    }   -- | The security group for the load balancer, which you can use as part of your inbound rules for your registered instances. To only allow traffic from load balancers, add a security group rule that specifies this source security group as the inbound source. lbdSourceSecurityGroup :: Lens' LoadBalancerDescription (Maybe SourceSecurityGroup)-lbdSourceSecurityGroup = lens _lbdSourceSecurityGroup (\ s a -> s{_lbdSourceSecurityGroup = a});+lbdSourceSecurityGroup = lens _lbdSourceSecurityGroup (\ s a -> s{_lbdSourceSecurityGroup = a})  -- | The DNS name of the load balancer. For more information, see <http://docs.aws.amazon.com/elasticloadbalancing/latest/classic/using-domain-names-with-elb.html Configure a Custom Domain Name> in the /Classic Load Balancer Guide/ . lbdCanonicalHostedZoneName :: Lens' LoadBalancerDescription (Maybe Text)-lbdCanonicalHostedZoneName = lens _lbdCanonicalHostedZoneName (\ s a -> s{_lbdCanonicalHostedZoneName = a});+lbdCanonicalHostedZoneName = lens _lbdCanonicalHostedZoneName (\ s a -> s{_lbdCanonicalHostedZoneName = a})  -- | The security groups for the load balancer. Valid only for load balancers in a VPC. lbdSecurityGroups :: Lens' LoadBalancerDescription [Text]-lbdSecurityGroups = lens _lbdSecurityGroups (\ s a -> s{_lbdSecurityGroups = a}) . _Default . _Coerce;+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});+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});+lbdLoadBalancerName = lens _lbdLoadBalancerName (\ s a -> s{_lbdLoadBalancerName = a})  -- | The date and time the load balancer was created. lbdCreatedTime :: Lens' LoadBalancerDescription (Maybe UTCTime)-lbdCreatedTime = lens _lbdCreatedTime (\ s a -> s{_lbdCreatedTime = a}) . mapping _Time;+lbdCreatedTime = lens _lbdCreatedTime (\ s a -> s{_lbdCreatedTime = a}) . mapping _Time  -- | The ID of the VPC for the load balancer. lbdVPCId :: Lens' LoadBalancerDescription (Maybe Text)-lbdVPCId = lens _lbdVPCId (\ s a -> s{_lbdVPCId = a});+lbdVPCId = lens _lbdVPCId (\ s a -> s{_lbdVPCId = a})  -- | The IDs of the subnets for the load balancer. lbdSubnets :: Lens' LoadBalancerDescription [Text]-lbdSubnets = lens _lbdSubnets (\ s a -> s{_lbdSubnets = a}) . _Default . _Coerce;+lbdSubnets = lens _lbdSubnets (\ s a -> s{_lbdSubnets = a}) . _Default . _Coerce  -- | The Availability Zones for the load balancer. lbdAvailabilityZones :: Lens' LoadBalancerDescription [Text]-lbdAvailabilityZones = lens _lbdAvailabilityZones (\ s a -> s{_lbdAvailabilityZones = a}) . _Default . _Coerce;+lbdAvailabilityZones = lens _lbdAvailabilityZones (\ s a -> s{_lbdAvailabilityZones = a}) . _Default . _Coerce  -- | Information about your EC2 instances. lbdBackendServerDescriptions :: Lens' LoadBalancerDescription [BackendServerDescription]-lbdBackendServerDescriptions = lens _lbdBackendServerDescriptions (\ s a -> s{_lbdBackendServerDescriptions = a}) . _Default . _Coerce;+lbdBackendServerDescriptions = lens _lbdBackendServerDescriptions (\ s a -> s{_lbdBackendServerDescriptions = a}) . _Default . _Coerce  -- | The ID of the Amazon Route 53 hosted zone for the load balancer. lbdCanonicalHostedZoneNameId :: Lens' LoadBalancerDescription (Maybe Text)-lbdCanonicalHostedZoneNameId = lens _lbdCanonicalHostedZoneNameId (\ s a -> s{_lbdCanonicalHostedZoneNameId = a});+lbdCanonicalHostedZoneNameId = lens _lbdCanonicalHostedZoneNameId (\ s a -> s{_lbdCanonicalHostedZoneNameId = a})  -- | The IDs of the instances for the load balancer. lbdInstances :: Lens' LoadBalancerDescription [Instance]-lbdInstances = lens _lbdInstances (\ s a -> s{_lbdInstances = a}) . _Default . _Coerce;+lbdInstances = lens _lbdInstances (\ s a -> s{_lbdInstances = a}) . _Default . _Coerce  -- | The type of load balancer. Valid only for load balancers in a VPC. If @Scheme@ is @internet-facing@ , the load balancer has a public DNS name that resolves to a public IP address. If @Scheme@ is @internal@ , the load balancer has a public DNS name that resolves to a private IP address. lbdScheme :: Lens' LoadBalancerDescription (Maybe Text)-lbdScheme = lens _lbdScheme (\ s a -> s{_lbdScheme = a});+lbdScheme = lens _lbdScheme (\ s a -> s{_lbdScheme = a})  -- | The listeners for the load balancer. lbdListenerDescriptions :: Lens' LoadBalancerDescription [ListenerDescription]-lbdListenerDescriptions = lens _lbdListenerDescriptions (\ s a -> s{_lbdListenerDescriptions = a}) . _Default . _Coerce;+lbdListenerDescriptions = lens _lbdListenerDescriptions (\ s a -> s{_lbdListenerDescriptions = a}) . _Default . _Coerce  -- | The DNS name of the load balancer. lbdDNSName :: Lens' LoadBalancerDescription (Maybe Text)-lbdDNSName = lens _lbdDNSName (\ s a -> s{_lbdDNSName = a});+lbdDNSName = lens _lbdDNSName (\ s a -> s{_lbdDNSName = a})  -- | The policies defined for the load balancer. lbdPolicies :: Lens' LoadBalancerDescription (Maybe Policies)-lbdPolicies = lens _lbdPolicies (\ s a -> s{_lbdPolicies = a});+lbdPolicies = lens _lbdPolicies (\ s a -> s{_lbdPolicies = a})  instance FromXML LoadBalancerDescription where         parseXML x@@ -1033,23 +1033,23 @@     :: Policies policies =   Policies'-  { _pOtherPolicies = Nothing-  , _pLBCookieStickinessPolicies = Nothing-  , _pAppCookieStickinessPolicies = Nothing-  }+    { _pOtherPolicies = Nothing+    , _pLBCookieStickinessPolicies = Nothing+    , _pAppCookieStickinessPolicies = Nothing+    }   -- | The policies other than the stickiness policies. pOtherPolicies :: Lens' Policies [Text]-pOtherPolicies = lens _pOtherPolicies (\ s a -> s{_pOtherPolicies = a}) . _Default . _Coerce;+pOtherPolicies = lens _pOtherPolicies (\ s a -> s{_pOtherPolicies = a}) . _Default . _Coerce  -- | The stickiness policies created using 'CreateLBCookieStickinessPolicy' . pLBCookieStickinessPolicies :: Lens' Policies [LBCookieStickinessPolicy]-pLBCookieStickinessPolicies = lens _pLBCookieStickinessPolicies (\ s a -> s{_pLBCookieStickinessPolicies = a}) . _Default . _Coerce;+pLBCookieStickinessPolicies = lens _pLBCookieStickinessPolicies (\ s a -> s{_pLBCookieStickinessPolicies = a}) . _Default . _Coerce  -- | The stickiness policies created using 'CreateAppCookieStickinessPolicy' . pAppCookieStickinessPolicies :: Lens' Policies [AppCookieStickinessPolicy]-pAppCookieStickinessPolicies = lens _pAppCookieStickinessPolicies (\ s a -> s{_pAppCookieStickinessPolicies = a}) . _Default . _Coerce;+pAppCookieStickinessPolicies = lens _pAppCookieStickinessPolicies (\ s a -> s{_pAppCookieStickinessPolicies = a}) . _Default . _Coerce  instance FromXML Policies where         parseXML x@@ -1093,11 +1093,11 @@  -- | The value of the attribute. paAttributeValue :: Lens' PolicyAttribute (Maybe Text)-paAttributeValue = lens _paAttributeValue (\ s a -> s{_paAttributeValue = a});+paAttributeValue = lens _paAttributeValue (\ s a -> s{_paAttributeValue = a})  -- | The name of the attribute. paAttributeName :: Lens' PolicyAttribute (Maybe Text)-paAttributeName = lens _paAttributeName (\ s a -> s{_paAttributeName = a});+paAttributeName = lens _paAttributeName (\ s a -> s{_paAttributeName = a})  instance Hashable PolicyAttribute where @@ -1131,16 +1131,16 @@     :: PolicyAttributeDescription policyAttributeDescription =   PolicyAttributeDescription'-  {_padAttributeValue = Nothing, _padAttributeName = Nothing}+    {_padAttributeValue = Nothing, _padAttributeName = Nothing}   -- | The value of the attribute. padAttributeValue :: Lens' PolicyAttributeDescription (Maybe Text)-padAttributeValue = lens _padAttributeValue (\ s a -> s{_padAttributeValue = a});+padAttributeValue = lens _padAttributeValue (\ s a -> s{_padAttributeValue = a})  -- | The name of the attribute. padAttributeName :: Lens' PolicyAttributeDescription (Maybe Text)-padAttributeName = lens _padAttributeName (\ s a -> s{_padAttributeName = a});+padAttributeName = lens _padAttributeName (\ s a -> s{_padAttributeName = a})  instance FromXML PolicyAttributeDescription where         parseXML x@@ -1182,33 +1182,33 @@     :: PolicyAttributeTypeDescription policyAttributeTypeDescription =   PolicyAttributeTypeDescription'-  { _patdAttributeType = Nothing-  , _patdCardinality = Nothing-  , _patdDefaultValue = Nothing-  , _patdAttributeName = Nothing-  , _patdDescription = Nothing-  }+    { _patdAttributeType = Nothing+    , _patdCardinality = Nothing+    , _patdDefaultValue = Nothing+    , _patdAttributeName = Nothing+    , _patdDescription = Nothing+    }   -- | The type of the attribute. For example, @Boolean@ or @Integer@ . patdAttributeType :: Lens' PolicyAttributeTypeDescription (Maybe Text)-patdAttributeType = lens _patdAttributeType (\ s a -> s{_patdAttributeType = a});+patdAttributeType = lens _patdAttributeType (\ s a -> s{_patdAttributeType = a})  -- | The cardinality of the attribute. Valid values:     * ONE(1) : Single value required     * ZERO_OR_ONE(0..1) : Up to one value is allowed     * ZERO_OR_MORE(0..*) : Optional. Multiple values are allowed     * ONE_OR_MORE(1..*0) : Required. Multiple values are allowed patdCardinality :: Lens' PolicyAttributeTypeDescription (Maybe Text)-patdCardinality = lens _patdCardinality (\ s a -> s{_patdCardinality = a});+patdCardinality = lens _patdCardinality (\ s a -> s{_patdCardinality = a})  -- | The default value of the attribute, if applicable. patdDefaultValue :: Lens' PolicyAttributeTypeDescription (Maybe Text)-patdDefaultValue = lens _patdDefaultValue (\ s a -> s{_patdDefaultValue = a});+patdDefaultValue = lens _patdDefaultValue (\ s a -> s{_patdDefaultValue = a})  -- | The name of the attribute. patdAttributeName :: Lens' PolicyAttributeTypeDescription (Maybe Text)-patdAttributeName = lens _patdAttributeName (\ s a -> s{_patdAttributeName = a});+patdAttributeName = lens _patdAttributeName (\ s a -> s{_patdAttributeName = a})  -- | A description of the attribute. patdDescription :: Lens' PolicyAttributeTypeDescription (Maybe Text)-patdDescription = lens _patdDescription (\ s a -> s{_patdDescription = a});+patdDescription = lens _patdDescription (\ s a -> s{_patdDescription = a})  instance FromXML PolicyAttributeTypeDescription where         parseXML x@@ -1248,23 +1248,23 @@     :: PolicyDescription policyDescription =   PolicyDescription'-  { _pdPolicyName = Nothing-  , _pdPolicyAttributeDescriptions = Nothing-  , _pdPolicyTypeName = Nothing-  }+    { _pdPolicyName = Nothing+    , _pdPolicyAttributeDescriptions = Nothing+    , _pdPolicyTypeName = Nothing+    }   -- | The name of the policy. pdPolicyName :: Lens' PolicyDescription (Maybe Text)-pdPolicyName = lens _pdPolicyName (\ s a -> s{_pdPolicyName = a});+pdPolicyName = lens _pdPolicyName (\ s a -> s{_pdPolicyName = a})  -- | The policy attributes. pdPolicyAttributeDescriptions :: Lens' PolicyDescription [PolicyAttributeDescription]-pdPolicyAttributeDescriptions = lens _pdPolicyAttributeDescriptions (\ s a -> s{_pdPolicyAttributeDescriptions = a}) . _Default . _Coerce;+pdPolicyAttributeDescriptions = lens _pdPolicyAttributeDescriptions (\ s a -> s{_pdPolicyAttributeDescriptions = a}) . _Default . _Coerce  -- | The name of the policy type. pdPolicyTypeName :: Lens' PolicyDescription (Maybe Text)-pdPolicyTypeName = lens _pdPolicyTypeName (\ s a -> s{_pdPolicyTypeName = a});+pdPolicyTypeName = lens _pdPolicyTypeName (\ s a -> s{_pdPolicyTypeName = a})  instance FromXML PolicyDescription where         parseXML x@@ -1303,23 +1303,23 @@     :: PolicyTypeDescription policyTypeDescription =   PolicyTypeDescription'-  { _ptdPolicyTypeName = Nothing-  , _ptdDescription = Nothing-  , _ptdPolicyAttributeTypeDescriptions = Nothing-  }+    { _ptdPolicyTypeName = Nothing+    , _ptdDescription = Nothing+    , _ptdPolicyAttributeTypeDescriptions = Nothing+    }   -- | The name of the policy type. ptdPolicyTypeName :: Lens' PolicyTypeDescription (Maybe Text)-ptdPolicyTypeName = lens _ptdPolicyTypeName (\ s a -> s{_ptdPolicyTypeName = a});+ptdPolicyTypeName = lens _ptdPolicyTypeName (\ s a -> s{_ptdPolicyTypeName = a})  -- | A description of the policy type. ptdDescription :: Lens' PolicyTypeDescription (Maybe Text)-ptdDescription = lens _ptdDescription (\ s a -> s{_ptdDescription = a});+ptdDescription = lens _ptdDescription (\ s a -> s{_ptdDescription = a})  -- | The description of the policy attributes associated with the policies defined by Elastic Load Balancing. ptdPolicyAttributeTypeDescriptions :: Lens' PolicyTypeDescription [PolicyAttributeTypeDescription]-ptdPolicyAttributeTypeDescriptions = lens _ptdPolicyAttributeTypeDescriptions (\ s a -> s{_ptdPolicyAttributeTypeDescriptions = a}) . _Default . _Coerce;+ptdPolicyAttributeTypeDescriptions = lens _ptdPolicyAttributeTypeDescriptions (\ s a -> s{_ptdPolicyAttributeTypeDescriptions = a}) . _Default . _Coerce  instance FromXML PolicyTypeDescription where         parseXML x@@ -1359,11 +1359,11 @@  -- | The owner of the security group. ssgOwnerAlias :: Lens' SourceSecurityGroup (Maybe Text)-ssgOwnerAlias = lens _ssgOwnerAlias (\ s a -> s{_ssgOwnerAlias = a});+ssgOwnerAlias = lens _ssgOwnerAlias (\ s a -> s{_ssgOwnerAlias = a})  -- | The name of the security group. ssgGroupName :: Lens' SourceSecurityGroup (Maybe Text)-ssgGroupName = lens _ssgGroupName (\ s a -> s{_ssgGroupName = a});+ssgGroupName = lens _ssgGroupName (\ s a -> s{_ssgGroupName = a})  instance FromXML SourceSecurityGroup where         parseXML x@@ -1400,11 +1400,11 @@  -- | The value of the tag. tagValue :: Lens' Tag (Maybe Text)-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})  -- | The key of the tag. tagKey :: Lens' Tag Text-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})  instance FromXML Tag where         parseXML x@@ -1444,11 +1444,11 @@  -- | The name of the load balancer. tdLoadBalancerName :: Lens' TagDescription (Maybe Text)-tdLoadBalancerName = lens _tdLoadBalancerName (\ s a -> s{_tdLoadBalancerName = a});+tdLoadBalancerName = lens _tdLoadBalancerName (\ s a -> s{_tdLoadBalancerName = a})  -- | The tags. tdTags :: Lens' TagDescription (Maybe (NonEmpty Tag))-tdTags = lens _tdTags (\ s a -> s{_tdTags = a}) . mapping _List1;+tdTags = lens _tdTags (\ s a -> s{_tdTags = a}) . mapping _List1  instance FromXML TagDescription where         parseXML x@@ -1483,7 +1483,7 @@  -- | The name of the key. tkoKey :: Lens' TagKeyOnly (Maybe Text)-tkoKey = lens _tkoKey (\ s a -> s{_tkoKey = a});+tkoKey = lens _tkoKey (\ s a -> s{_tkoKey = a})  instance Hashable TagKeyOnly where 

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.ELB.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.ELB.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -17,6 +17,7 @@  import Network.AWS.ELB.DescribeInstanceHealth import Network.AWS.ELB.DescribeInstanceHealth+import Network.AWS.ELB.DescribeInstanceHealth import Network.AWS.ELB.Types import Network.AWS.Lens import Network.AWS.Prelude@@ -26,32 +27,51 @@ anyInstanceInService :: Wait DescribeInstanceHealth anyInstanceInService =   Wait-  { _waitName = "AnyInstanceInService"-  , _waitAttempts = 40-  , _waitDelay = 15-  , _waitAcceptors =-      [ matchAny-          "InService"-          AcceptSuccess-          (folding (concatOf dihrsInstanceStates) .-           isState . _Just . to toTextCI)-      ]-  }+    { _waitName = "AnyInstanceInService"+    , _waitAttempts = 40+    , _waitDelay = 15+    , _waitAcceptors =+        [ matchAny+            "InService"+            AcceptSuccess+            (folding (concatOf dihrsInstanceStates) .+             isState . _Just . to toTextCI)+        ]+    }   -- | Polls 'Network.AWS.ELB.DescribeInstanceHealth' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks.+instanceDeregistered :: Wait DescribeInstanceHealth+instanceDeregistered =+  Wait+    { _waitName = "InstanceDeregistered"+    , _waitAttempts = 40+    , _waitDelay = 15+    , _waitAcceptors =+        [ matchAll+            "OutOfService"+            AcceptSuccess+            (folding (concatOf dihrsInstanceStates) .+             isState . _Just . to toTextCI)+        , matchError "InvalidInstance" AcceptSuccess+        ]+    }+++-- | Polls 'Network.AWS.ELB.DescribeInstanceHealth' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. instanceInService :: Wait DescribeInstanceHealth instanceInService =   Wait-  { _waitName = "InstanceInService"-  , _waitAttempts = 40-  , _waitDelay = 15-  , _waitAcceptors =-      [ matchAll-          "InService"-          AcceptSuccess-          (folding (concatOf dihrsInstanceStates) .-           isState . _Just . to toTextCI)-      ]-  }+    { _waitName = "InstanceInService"+    , _waitAttempts = 40+    , _waitDelay = 15+    , _waitAcceptors =+        [ matchAll+            "InService"+            AcceptSuccess+            (folding (concatOf dihrsInstanceStates) .+             isState . _Just . to toTextCI)+        , matchError "InvalidInstance" AcceptRetry+        ]+    } 

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.ELB.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : experimental

@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-}  -- Module      : Test.AWS.ELB--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or

@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.ELB.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.ELB--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated