diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.5.0`
+`1.6.0`
 
 
 ## Description
diff --git a/amazonka-elb.cabal b/amazonka-elb.cabal
--- a/amazonka-elb.cabal
+++ b/amazonka-elb.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-elb
-version:               1.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
diff --git a/gen/Network/AWS/ELB.hs b/gen/Network/AWS/ELB.hs
--- a/gen/Network/AWS/ELB.hs
+++ b/gen/Network/AWS/ELB.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/AddTags.hs b/gen/Network/AWS/ELB/AddTags.hs
--- a/gen/Network/AWS/ELB/AddTags.hs
+++ b/gen/Network/AWS/ELB/AddTags.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs b/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs
--- a/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs
+++ b/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs b/gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs
--- a/gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs
+++ b/gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/ConfigureHealthCheck.hs b/gen/Network/AWS/ELB/ConfigureHealthCheck.hs
--- a/gen/Network/AWS/ELB/ConfigureHealthCheck.hs
+++ b/gen/Network/AWS/ELB/ConfigureHealthCheck.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs b/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs
--- a/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs
+++ b/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs b/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs
--- a/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs
+++ b/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/CreateLoadBalancer.hs b/gen/Network/AWS/ELB/CreateLoadBalancer.hs
--- a/gen/Network/AWS/ELB/CreateLoadBalancer.hs
+++ b/gen/Network/AWS/ELB/CreateLoadBalancer.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs b/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs
--- a/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs
+++ b/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs b/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs
--- a/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs
+++ b/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/DeleteLoadBalancer.hs b/gen/Network/AWS/ELB/DeleteLoadBalancer.hs
--- a/gen/Network/AWS/ELB/DeleteLoadBalancer.hs
+++ b/gen/Network/AWS/ELB/DeleteLoadBalancer.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs b/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs
--- a/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs
+++ b/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs b/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs
--- a/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs
+++ b/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs b/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs
--- a/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs
+++ b/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/DescribeAccountLimits.hs b/gen/Network/AWS/ELB/DescribeAccountLimits.hs
--- a/gen/Network/AWS/ELB/DescribeAccountLimits.hs
+++ b/gen/Network/AWS/ELB/DescribeAccountLimits.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/DescribeInstanceHealth.hs b/gen/Network/AWS/ELB/DescribeInstanceHealth.hs
--- a/gen/Network/AWS/ELB/DescribeInstanceHealth.hs
+++ b/gen/Network/AWS/ELB/DescribeInstanceHealth.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs b/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs
--- a/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs
+++ b/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs
--- a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs
+++ b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs
--- a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs
+++ b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancers.hs b/gen/Network/AWS/ELB/DescribeLoadBalancers.hs
--- a/gen/Network/AWS/ELB/DescribeLoadBalancers.hs
+++ b/gen/Network/AWS/ELB/DescribeLoadBalancers.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/DescribeTags.hs b/gen/Network/AWS/ELB/DescribeTags.hs
--- a/gen/Network/AWS/ELB/DescribeTags.hs
+++ b/gen/Network/AWS/ELB/DescribeTags.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs b/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs
--- a/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs
+++ b/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs b/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs
--- a/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs
+++ b/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs b/gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs
--- a/gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs
+++ b/gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs b/gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs
--- a/gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs
+++ b/gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs b/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs
--- a/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs
+++ b/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/RemoveTags.hs b/gen/Network/AWS/ELB/RemoveTags.hs
--- a/gen/Network/AWS/ELB/RemoveTags.hs
+++ b/gen/Network/AWS/ELB/RemoveTags.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs b/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs
--- a/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs
+++ b/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs
--- a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs
+++ b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs
--- a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs
+++ b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/Types.hs b/gen/Network/AWS/ELB/Types.hs
--- a/gen/Network/AWS/ELB/Types.hs
+++ b/gen/Network/AWS/ELB/Types.hs
@@ -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.
diff --git a/gen/Network/AWS/ELB/Types/Product.hs b/gen/Network/AWS/ELB/Types/Product.hs
--- a/gen/Network/AWS/ELB/Types/Product.hs
+++ b/gen/Network/AWS/ELB/Types/Product.hs
@@ -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
 
diff --git a/gen/Network/AWS/ELB/Types/Sum.hs b/gen/Network/AWS/ELB/Types/Sum.hs
--- a/gen/Network/AWS/ELB/Types/Sum.hs
+++ b/gen/Network/AWS/ELB/Types/Sum.hs
@@ -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
diff --git a/gen/Network/AWS/ELB/Waiters.hs b/gen/Network/AWS/ELB/Waiters.hs
--- a/gen/Network/AWS/ELB/Waiters.hs
+++ b/gen/Network/AWS/ELB/Waiters.hs
@@ -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
+        ]
+    }
 
diff --git a/src/Network/AWS/ELB/Internal.hs b/src/Network/AWS/ELB/Internal.hs
--- a/src/Network/AWS/ELB/Internal.hs
+++ b/src/Network/AWS/ELB/Internal.hs
@@ -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
diff --git a/test/Main.hs b/test/Main.hs
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -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
diff --git a/test/Test/AWS/ELB.hs b/test/Test/AWS/ELB.hs
--- a/test/Test/AWS/ELB.hs
+++ b/test/Test/AWS/ELB.hs
@@ -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
diff --git a/test/Test/AWS/ELB/Internal.hs b/test/Test/AWS/ELB/Internal.hs
--- a/test/Test/AWS/ELB/Internal.hs
+++ b/test/Test/AWS/ELB/Internal.hs
@@ -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
diff --git a/test/Test/AWS/Gen/ELB.hs b/test/Test/AWS/Gen/ELB.hs
--- a/test/Test/AWS/Gen/ELB.hs
+++ b/test/Test/AWS/Gen/ELB.hs
@@ -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