amazonka-elbv2 1.5.0 → 1.6.0

raw patch · 45 files changed

+643/−530 lines, 45 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-elbv2.cabal +5/−5
• gen/Network/AWS/ELBv2.hs +16/−1
• gen/Network/AWS/ELBv2/AddListenerCertificates.hs +7/−7
• gen/Network/AWS/ELBv2/AddTags.hs +4/−4
• gen/Network/AWS/ELBv2/CreateListener.hs +17/−17
• gen/Network/AWS/ELBv2/CreateLoadBalancer.hs +30/−30
• gen/Network/AWS/ELBv2/CreateRule.hs +13/−13
• gen/Network/AWS/ELBv2/CreateTargetGroup.hs +31/−31
• gen/Network/AWS/ELBv2/DeleteListener.hs +3/−3
• gen/Network/AWS/ELBv2/DeleteLoadBalancer.hs +3/−3
• gen/Network/AWS/ELBv2/DeleteRule.hs +3/−3
• gen/Network/AWS/ELBv2/DeleteTargetGroup.hs +3/−3
• gen/Network/AWS/ELBv2/DeregisterTargets.hs +4/−4
• gen/Network/AWS/ELBv2/DescribeAccountLimits.hs +10/−10
• gen/Network/AWS/ELBv2/DescribeListenerCertificates.hs +15/−15
• gen/Network/AWS/ELBv2/DescribeListeners.hs +17/−17
• gen/Network/AWS/ELBv2/DescribeLoadBalancerAttributes.hs +5/−5
• gen/Network/AWS/ELBv2/DescribeLoadBalancers.hs +17/−17
• gen/Network/AWS/ELBv2/DescribeRules.hs +17/−17
• gen/Network/AWS/ELBv2/DescribeSSLPolicies.hs +12/−12
• gen/Network/AWS/ELBv2/DescribeTags.hs +5/−5
• gen/Network/AWS/ELBv2/DescribeTargetGroupAttributes.hs +5/−5
• gen/Network/AWS/ELBv2/DescribeTargetGroups.hs +19/−19
• gen/Network/AWS/ELBv2/DescribeTargetHealth.hs +9/−9
• gen/Network/AWS/ELBv2/ModifyListener.hs +17/−17
• gen/Network/AWS/ELBv2/ModifyLoadBalancerAttributes.hs +7/−7
• gen/Network/AWS/ELBv2/ModifyRule.hs +8/−8
• gen/Network/AWS/ELBv2/ModifyTargetGroup.hs +23/−23
• gen/Network/AWS/ELBv2/ModifyTargetGroupAttributes.hs +7/−7
• gen/Network/AWS/ELBv2/RegisterTargets.hs +4/−4
• gen/Network/AWS/ELBv2/RemoveListenerCertificates.hs +5/−5
• gen/Network/AWS/ELBv2/RemoveTags.hs +4/−4
• gen/Network/AWS/ELBv2/SetIPAddressType.hs +9/−9
• gen/Network/AWS/ELBv2/SetRulePriorities.hs +5/−5
• gen/Network/AWS/ELBv2/SetSecurityGroups.hs +7/−7
• gen/Network/AWS/ELBv2/SetSubnets.hs +16/−16
• gen/Network/AWS/ELBv2/Types.hs +18/−16
• gen/Network/AWS/ELBv2/Types/Product.hs +140/−140
• gen/Network/AWS/ELBv2/Types/Sum.hs +1/−1
• gen/Network/AWS/ELBv2/Waiters.hs +97/−1
• test/Main.hs +1/−1
• test/Test/AWS/ELBv2.hs +1/−1
• test/Test/AWS/ELBv2/Internal.hs +1/−1
• test/Test/AWS/Gen/ELBv2.hs +1/−1

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

@@ -1,5 +1,5 @@ name:                  amazonka-elbv2-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@@ -87,7 +87,7 @@         , Network.AWS.ELBv2.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-elbv2-test@@ -107,8 +107,8 @@         , Test.AWS.ELBv2.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-elbv2         , base         , bytestring

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.ELBv2--- 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@@ -154,6 +154,21 @@      -- * Waiters     -- $waiters++    -- ** LoadBalancersDeleted+    , loadBalancersDeleted++    -- ** TargetDeregistered+    , targetDeregistered++    -- ** LoadBalancerAvailable+    , loadBalancerAvailable++    -- ** TargetInService+    , targetInService++    -- ** LoadBalancerExists+    , loadBalancerExists      -- * Operations     -- $operations

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.AddListenerCertificates--- 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 @@     -> AddListenerCertificates addListenerCertificates pListenerARN_ =   AddListenerCertificates'-  {_alcListenerARN = pListenerARN_, _alcCertificates = mempty}+    {_alcListenerARN = pListenerARN_, _alcCertificates = mempty}   -- | The Amazon Resource Name (ARN) of the listener. alcListenerARN :: Lens' AddListenerCertificates Text-alcListenerARN = lens _alcListenerARN (\ s a -> s{_alcListenerARN = a});+alcListenerARN = lens _alcListenerARN (\ s a -> s{_alcListenerARN = a})  -- | The certificate to add. You can specify one certificate per call. alcCertificates :: Lens' AddListenerCertificates [Certificate]-alcCertificates = lens _alcCertificates (\ s a -> s{_alcCertificates = a}) . _Coerce;+alcCertificates = lens _alcCertificates (\ s a -> s{_alcCertificates = a}) . _Coerce  instance AWSRequest AddListenerCertificates where         type Rs AddListenerCertificates =@@ -130,15 +130,15 @@     -> AddListenerCertificatesResponse addListenerCertificatesResponse pResponseStatus_ =   AddListenerCertificatesResponse'-  {_alcrsCertificates = Nothing, _alcrsResponseStatus = pResponseStatus_}+    {_alcrsCertificates = Nothing, _alcrsResponseStatus = pResponseStatus_}   -- | Information about the certificates. alcrsCertificates :: Lens' AddListenerCertificatesResponse [Certificate]-alcrsCertificates = lens _alcrsCertificates (\ s a -> s{_alcrsCertificates = a}) . _Default . _Coerce;+alcrsCertificates = lens _alcrsCertificates (\ s a -> s{_alcrsCertificates = a}) . _Default . _Coerce  -- | -- | The response status code. alcrsResponseStatus :: Lens' AddListenerCertificatesResponse Int-alcrsResponseStatus = lens _alcrsResponseStatus (\ s a -> s{_alcrsResponseStatus = a});+alcrsResponseStatus = lens _alcrsResponseStatus (\ s a -> s{_alcrsResponseStatus = a})  instance NFData AddListenerCertificatesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.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@@ -70,11 +70,11 @@  -- | The Amazon Resource Name (ARN) of the resource. atResourceARNs :: Lens' AddTags [Text]-atResourceARNs = lens _atResourceARNs (\ s a -> s{_atResourceARNs = a}) . _Coerce;+atResourceARNs = lens _atResourceARNs (\ s a -> s{_atResourceARNs = a}) . _Coerce  -- | The tags. Each resource can have a maximum of 10 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@@ -122,6 +122,6 @@  -- | -- | The response status code. atrsResponseStatus :: Lens' AddTagsResponse Int-atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a});+atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a})  instance NFData AddTagsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.CreateListener--- 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@@ -88,38 +88,38 @@     -> CreateListener createListener pLoadBalancerARN_ pProtocol_ pPort_ =   CreateListener'-  { _clSSLPolicy = Nothing-  , _clCertificates = Nothing-  , _clLoadBalancerARN = pLoadBalancerARN_-  , _clProtocol = pProtocol_-  , _clPort = _Nat # pPort_-  , _clDefaultActions = mempty-  }+    { _clSSLPolicy = Nothing+    , _clCertificates = Nothing+    , _clLoadBalancerARN = pLoadBalancerARN_+    , _clProtocol = pProtocol_+    , _clPort = _Nat # pPort_+    , _clDefaultActions = mempty+    }   -- | [HTTPS listeners] The security policy that defines which ciphers and protocols are supported. The default is the current predefined security policy. clSSLPolicy :: Lens' CreateListener (Maybe Text)-clSSLPolicy = lens _clSSLPolicy (\ s a -> s{_clSSLPolicy = a});+clSSLPolicy = lens _clSSLPolicy (\ s a -> s{_clSSLPolicy = a})  -- | [HTTPS listeners] The SSL server certificate. You must provide exactly one certificate. clCertificates :: Lens' CreateListener [Certificate]-clCertificates = lens _clCertificates (\ s a -> s{_clCertificates = a}) . _Default . _Coerce;+clCertificates = lens _clCertificates (\ s a -> s{_clCertificates = a}) . _Default . _Coerce  -- | The Amazon Resource Name (ARN) of the load balancer. clLoadBalancerARN :: Lens' CreateListener Text-clLoadBalancerARN = lens _clLoadBalancerARN (\ s a -> s{_clLoadBalancerARN = a});+clLoadBalancerARN = lens _clLoadBalancerARN (\ s a -> s{_clLoadBalancerARN = a})  -- | The protocol for connections from clients to the load balancer. For Application Load Balancers, the supported protocols are HTTP and HTTPS. For Network Load Balancers, the supported protocol is TCP. clProtocol :: Lens' CreateListener ProtocolEnum-clProtocol = lens _clProtocol (\ s a -> s{_clProtocol = a});+clProtocol = lens _clProtocol (\ s a -> s{_clProtocol = a})  -- | The port on which the load balancer is listening. clPort :: Lens' CreateListener Natural-clPort = lens _clPort (\ s a -> s{_clPort = a}) . _Nat;+clPort = lens _clPort (\ s a -> s{_clPort = a}) . _Nat  -- | The default action for the listener. For Application Load Balancers, the protocol of the specified target group must be HTTP or HTTPS. For Network Load Balancers, the protocol of the specified target group must be TCP. clDefaultActions :: Lens' CreateListener [Action]-clDefaultActions = lens _clDefaultActions (\ s a -> s{_clDefaultActions = a}) . _Coerce;+clDefaultActions = lens _clDefaultActions (\ s a -> s{_clDefaultActions = a}) . _Coerce  instance AWSRequest CreateListener where         type Rs CreateListener = CreateListenerResponse@@ -174,15 +174,15 @@     -> CreateListenerResponse createListenerResponse pResponseStatus_ =   CreateListenerResponse'-  {_clrsListeners = Nothing, _clrsResponseStatus = pResponseStatus_}+    {_clrsListeners = Nothing, _clrsResponseStatus = pResponseStatus_}   -- | Information about the listener. clrsListeners :: Lens' CreateListenerResponse [Listener]-clrsListeners = lens _clrsListeners (\ s a -> s{_clrsListeners = a}) . _Default . _Coerce;+clrsListeners = lens _clrsListeners (\ s a -> s{_clrsListeners = a}) . _Default . _Coerce  -- | -- | The response status code. clrsResponseStatus :: Lens' CreateListenerResponse Int-clrsResponseStatus = lens _clrsResponseStatus (\ s a -> s{_clrsResponseStatus = a});+clrsResponseStatus = lens _clrsResponseStatus (\ s a -> s{_clrsResponseStatus = a})  instance NFData CreateListenerResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.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@@ -21,7 +21,7 @@ -- Creates an Application Load Balancer or a Network Load Balancer. -- ----- When you create a load balancer, you can specify security groups, subnets, IP address type, and tags. Otherwise, you could do so later using 'SetSecurityGroups' , 'SetSubnets' , 'SetIpAddressType' , and 'AddTags' .+-- When you create a load balancer, you can specify security groups, public subnets, IP address type, and tags. Otherwise, you could do so later using 'SetSecurityGroups' , 'SetSubnets' , 'SetIpAddressType' , and 'AddTags' . -- -- To create listeners for your load balancer, use 'CreateListener' . To describe your current load balancers, see 'DescribeLoadBalancers' . When you are finished with a load balancer, you can delete it using 'DeleteLoadBalancer' . --@@ -78,17 +78,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'clbSubnetMappings' - The IDs of the subnets to attach to the load balancer. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings. [Application Load Balancers] You must specify subnets from at least two Availability Zones. You cannot specify Elastic IP addresses for your subnets. [Network Load Balancers] You can specify subnets from one or more Availability Zones. You can specify one Elastic IP address per subnet.+-- * 'clbSubnetMappings' - The IDs of the public subnets. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings. [Application Load Balancers] You must specify subnets from at least two Availability Zones. You cannot specify Elastic IP addresses for your subnets. [Network Load Balancers] You can specify subnets from one or more Availability Zones. You can specify one Elastic IP address per subnet. ----- * 'clbSecurityGroups' - [Application Load Balancers] The IDs of the security groups to assign to the load balancer.+-- * 'clbSecurityGroups' - [Application Load Balancers] The IDs of the security groups for the load balancer. ----- * 'clbSubnets' - The IDs of the subnets to attach to the load balancer. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings. [Application Load Balancers] You must specify subnets from at least two Availability Zones. [Network Load Balancers] You can specify subnets from one or more Availability Zones.+-- * 'clbSubnets' - The IDs of the public subnets. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings. [Application Load Balancers] You must specify subnets from at least two Availability Zones. [Network Load Balancers] You can specify subnets from one or more Availability Zones. -- -- * 'clbIPAddressType' - [Application Load Balancers] The type of IP addresses used by the subnets for your load balancer. The possible values are @ipv4@ (for IPv4 addresses) and @dualstack@ (for IPv4 and IPv6 addresses). Internal load balancers must use @ipv4@ . -- -- * 'clbScheme' - The nodes of an Internet-facing load balancer have public IP addresses. The DNS name of an Internet-facing load balancer is publicly resolvable to the public IP addresses of the nodes. Therefore, Internet-facing load balancers can route requests from clients over the Internet. The nodes of an internal load balancer have only private IP addresses. The DNS name of an internal load balancer is publicly resolvable to the private IP addresses of the nodes. Therefore, internal load balancers can only route requests from clients with access to the VPC for the load balancer. The default is an Internet-facing load balancer. ----- * 'clbType' - The type of load balancer to create. The default is @application@ .+-- * 'clbType' - The type of load balancer. The default is @application@ . -- -- * 'clbTags' - One or more tags to assign to the load balancer. --@@ -98,48 +98,48 @@     -> CreateLoadBalancer createLoadBalancer pName_ =   CreateLoadBalancer'-  { _clbSubnetMappings = Nothing-  , _clbSecurityGroups = Nothing-  , _clbSubnets = Nothing-  , _clbIPAddressType = Nothing-  , _clbScheme = Nothing-  , _clbType = Nothing-  , _clbTags = Nothing-  , _clbName = pName_-  }+    { _clbSubnetMappings = Nothing+    , _clbSecurityGroups = Nothing+    , _clbSubnets = Nothing+    , _clbIPAddressType = Nothing+    , _clbScheme = Nothing+    , _clbType = Nothing+    , _clbTags = Nothing+    , _clbName = pName_+    }  --- | The IDs of the subnets to attach to the load balancer. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings. [Application Load Balancers] You must specify subnets from at least two Availability Zones. You cannot specify Elastic IP addresses for your subnets. [Network Load Balancers] You can specify subnets from one or more Availability Zones. You can specify one Elastic IP address per subnet.+-- | The IDs of the public subnets. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings. [Application Load Balancers] You must specify subnets from at least two Availability Zones. You cannot specify Elastic IP addresses for your subnets. [Network Load Balancers] You can specify subnets from one or more Availability Zones. You can specify one Elastic IP address per subnet. clbSubnetMappings :: Lens' CreateLoadBalancer [SubnetMapping]-clbSubnetMappings = lens _clbSubnetMappings (\ s a -> s{_clbSubnetMappings = a}) . _Default . _Coerce;+clbSubnetMappings = lens _clbSubnetMappings (\ s a -> s{_clbSubnetMappings = a}) . _Default . _Coerce --- | [Application Load Balancers] The IDs of the security groups to assign to the load balancer.+-- | [Application Load Balancers] The IDs of the security groups for 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 to attach to the load balancer. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings. [Application Load Balancers] You must specify subnets from at least two Availability Zones. [Network Load Balancers] You can specify subnets from one or more Availability Zones.+-- | The IDs of the public subnets. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings. [Application Load Balancers] You must specify subnets from at least two Availability Zones. [Network Load Balancers] You can specify subnets from one or more Availability Zones. clbSubnets :: Lens' CreateLoadBalancer [Text]-clbSubnets = lens _clbSubnets (\ s a -> s{_clbSubnets = a}) . _Default . _Coerce;+clbSubnets = lens _clbSubnets (\ s a -> s{_clbSubnets = a}) . _Default . _Coerce  -- | [Application Load Balancers] The type of IP addresses used by the subnets for your load balancer. The possible values are @ipv4@ (for IPv4 addresses) and @dualstack@ (for IPv4 and IPv6 addresses). Internal load balancers must use @ipv4@ . clbIPAddressType :: Lens' CreateLoadBalancer (Maybe IPAddressType)-clbIPAddressType = lens _clbIPAddressType (\ s a -> s{_clbIPAddressType = a});+clbIPAddressType = lens _clbIPAddressType (\ s a -> s{_clbIPAddressType = a})  -- | The nodes of an Internet-facing load balancer have public IP addresses. The DNS name of an Internet-facing load balancer is publicly resolvable to the public IP addresses of the nodes. Therefore, Internet-facing load balancers can route requests from clients over the Internet. The nodes of an internal load balancer have only private IP addresses. The DNS name of an internal load balancer is publicly resolvable to the private IP addresses of the nodes. Therefore, internal load balancers can only route requests from clients with access to the VPC for the load balancer. The default is an Internet-facing load balancer. clbScheme :: Lens' CreateLoadBalancer (Maybe LoadBalancerSchemeEnum)-clbScheme = lens _clbScheme (\ s a -> s{_clbScheme = a});+clbScheme = lens _clbScheme (\ s a -> s{_clbScheme = a}) --- | The type of load balancer to create. The default is @application@ .+-- | The type of load balancer. The default is @application@ . clbType :: Lens' CreateLoadBalancer (Maybe LoadBalancerTypeEnum)-clbType = lens _clbType (\ s a -> s{_clbType = a});+clbType = lens _clbType (\ s a -> s{_clbType = a})  -- | One or more tags to assign to the load balancer. 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 per region per account, can have a maximum of 32 characters, must contain only alphanumeric characters or hyphens, and must not begin or end with a hyphen. clbName :: Lens' CreateLoadBalancer Text-clbName = lens _clbName (\ s a -> s{_clbName = a});+clbName = lens _clbName (\ s a -> s{_clbName = a})  instance AWSRequest CreateLoadBalancer where         type Rs CreateLoadBalancer =@@ -201,15 +201,15 @@     -> CreateLoadBalancerResponse createLoadBalancerResponse pResponseStatus_ =   CreateLoadBalancerResponse'-  {_clbrsLoadBalancers = Nothing, _clbrsResponseStatus = pResponseStatus_}+    {_clbrsLoadBalancers = Nothing, _clbrsResponseStatus = pResponseStatus_}   -- | Information about the load balancer. clbrsLoadBalancers :: Lens' CreateLoadBalancerResponse [LoadBalancer]-clbrsLoadBalancers = lens _clbrsLoadBalancers (\ s a -> s{_clbrsLoadBalancers = a}) . _Default . _Coerce;+clbrsLoadBalancers = lens _clbrsLoadBalancers (\ s a -> s{_clbrsLoadBalancers = a}) . _Default . _Coerce  -- | -- | The response status code. clbrsResponseStatus :: Lens' CreateLoadBalancerResponse Int-clbrsResponseStatus = lens _clbrsResponseStatus (\ s a -> s{_clbrsResponseStatus = a});+clbrsResponseStatus = lens _clbrsResponseStatus (\ s a -> s{_clbrsResponseStatus = a})  instance NFData CreateLoadBalancerResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.CreateRule--- 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@@ -77,28 +77,28 @@     -> CreateRule createRule pListenerARN_ pPriority_ =   CreateRule'-  { _crListenerARN = pListenerARN_-  , _crConditions = mempty-  , _crPriority = _Nat # pPriority_-  , _crActions = mempty-  }+    { _crListenerARN = pListenerARN_+    , _crConditions = mempty+    , _crPriority = _Nat # pPriority_+    , _crActions = mempty+    }   -- | The Amazon Resource Name (ARN) of the listener. crListenerARN :: Lens' CreateRule Text-crListenerARN = lens _crListenerARN (\ s a -> s{_crListenerARN = a});+crListenerARN = lens _crListenerARN (\ s a -> s{_crListenerARN = a})  -- | The conditions. Each condition specifies a field name and a single value. If the field name is @host-header@ , you can specify a single host name (for example, my.example.com). A host name is case insensitive, can be up to 128 characters in length, and can contain any of the following characters. Note that you can include up to three wildcard characters.     * A-Z, a-z, 0-9     * - .     * * (matches 0 or more characters)     * ? (matches exactly 1 character) If the field name is @path-pattern@ , you can specify a single path pattern. A path pattern is case sensitive, can be up to 128 characters in length, and can contain any of the following characters. Note that you can include up to three wildcard characters.     * A-Z, a-z, 0-9     * _ - . $ / ~ " ' @ : +     * & (using &amp;)     * * (matches 0 or more characters)     * ? (matches exactly 1 character) crConditions :: Lens' CreateRule [RuleCondition]-crConditions = lens _crConditions (\ s a -> s{_crConditions = a}) . _Coerce;+crConditions = lens _crConditions (\ s a -> s{_crConditions = a}) . _Coerce  -- | The priority for the rule. A listener can't have multiple rules with the same priority. crPriority :: Lens' CreateRule Natural-crPriority = lens _crPriority (\ s a -> s{_crPriority = a}) . _Nat;+crPriority = lens _crPriority (\ s a -> s{_crPriority = a}) . _Nat  -- | An action. Each action has the type @forward@ and specifies a target group. crActions :: Lens' CreateRule [Action]-crActions = lens _crActions (\ s a -> s{_crActions = a}) . _Coerce;+crActions = lens _crActions (\ s a -> s{_crActions = a}) . _Coerce  instance AWSRequest CreateRule where         type Rs CreateRule = CreateRuleResponse@@ -150,15 +150,15 @@     -> CreateRuleResponse createRuleResponse pResponseStatus_ =   CreateRuleResponse'-  {_crrsRules = Nothing, _crrsResponseStatus = pResponseStatus_}+    {_crrsRules = Nothing, _crrsResponseStatus = pResponseStatus_}   -- | Information about the rule. crrsRules :: Lens' CreateRuleResponse [Rule]-crrsRules = lens _crrsRules (\ s a -> s{_crrsRules = a}) . _Default . _Coerce;+crrsRules = lens _crrsRules (\ s a -> s{_crrsRules = a}) . _Default . _Coerce  -- | -- | The response status code. crrsResponseStatus :: Lens' CreateRuleResponse Int-crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a});+crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a})  instance NFData CreateRuleResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.CreateTargetGroup--- 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@@ -121,73 +121,73 @@     -> CreateTargetGroup createTargetGroup pName_ pProtocol_ pPort_ pVPCId_ =   CreateTargetGroup'-  { _ctgMatcher = Nothing-  , _ctgHealthCheckPath = Nothing-  , _ctgUnhealthyThresholdCount = Nothing-  , _ctgHealthCheckIntervalSeconds = Nothing-  , _ctgTargetType = Nothing-  , _ctgHealthyThresholdCount = Nothing-  , _ctgHealthCheckProtocol = Nothing-  , _ctgHealthCheckTimeoutSeconds = Nothing-  , _ctgHealthCheckPort = Nothing-  , _ctgName = pName_-  , _ctgProtocol = pProtocol_-  , _ctgPort = _Nat # pPort_-  , _ctgVPCId = pVPCId_-  }+    { _ctgMatcher = Nothing+    , _ctgHealthCheckPath = Nothing+    , _ctgUnhealthyThresholdCount = Nothing+    , _ctgHealthCheckIntervalSeconds = Nothing+    , _ctgTargetType = Nothing+    , _ctgHealthyThresholdCount = Nothing+    , _ctgHealthCheckProtocol = Nothing+    , _ctgHealthCheckTimeoutSeconds = Nothing+    , _ctgHealthCheckPort = Nothing+    , _ctgName = pName_+    , _ctgProtocol = pProtocol_+    , _ctgPort = _Nat # pPort_+    , _ctgVPCId = pVPCId_+    }   -- | [HTTP/HTTPS health checks] The HTTP codes to use when checking for a successful response from a target. ctgMatcher :: Lens' CreateTargetGroup (Maybe Matcher)-ctgMatcher = lens _ctgMatcher (\ s a -> s{_ctgMatcher = a});+ctgMatcher = lens _ctgMatcher (\ s a -> s{_ctgMatcher = a})  -- | [HTTP/HTTPS health checks] The ping path that is the destination on the targets for health checks. The default is /. ctgHealthCheckPath :: Lens' CreateTargetGroup (Maybe Text)-ctgHealthCheckPath = lens _ctgHealthCheckPath (\ s a -> s{_ctgHealthCheckPath = a});+ctgHealthCheckPath = lens _ctgHealthCheckPath (\ s a -> s{_ctgHealthCheckPath = a})  -- | The number of consecutive health check failures required before considering a target unhealthy. For Application Load Balancers, the default is 2. For Network Load Balancers, this value must be the same as the healthy threshold count. ctgUnhealthyThresholdCount :: Lens' CreateTargetGroup (Maybe Natural)-ctgUnhealthyThresholdCount = lens _ctgUnhealthyThresholdCount (\ s a -> s{_ctgUnhealthyThresholdCount = a}) . mapping _Nat;+ctgUnhealthyThresholdCount = lens _ctgUnhealthyThresholdCount (\ s a -> s{_ctgUnhealthyThresholdCount = a}) . mapping _Nat  -- | The approximate amount of time, in seconds, between health checks of an individual target. For Application Load Balancers, the range is 5 to 300 seconds. For Network Load Balancers, the supported values are 10 or 30 seconds. The default is 30 seconds. ctgHealthCheckIntervalSeconds :: Lens' CreateTargetGroup (Maybe Natural)-ctgHealthCheckIntervalSeconds = lens _ctgHealthCheckIntervalSeconds (\ s a -> s{_ctgHealthCheckIntervalSeconds = a}) . mapping _Nat;+ctgHealthCheckIntervalSeconds = lens _ctgHealthCheckIntervalSeconds (\ s a -> s{_ctgHealthCheckIntervalSeconds = a}) . mapping _Nat  -- | The type of target that you must specify when registering targets with this target group. The possible values are @instance@ (targets are specified by instance ID) or @ip@ (targets are specified by IP address). The default is @instance@ . Note that you can't specify targets for a target group using both instance IDs and IP addresses. If the target type is @ip@ , specify IP addresses from the subnets of the virtual private cloud (VPC) for the target group, the RFC 1918 range (10.0.0.0/8, 172.16.0.0/12, and 192.168.0.0/16), and the RFC 6598 range (100.64.0.0/10). You can't specify publicly routable IP addresses. ctgTargetType :: Lens' CreateTargetGroup (Maybe TargetTypeEnum)-ctgTargetType = lens _ctgTargetType (\ s a -> s{_ctgTargetType = a});+ctgTargetType = lens _ctgTargetType (\ s a -> s{_ctgTargetType = a})  -- | The number of consecutive health checks successes required before considering an unhealthy target healthy. For Application Load Balancers, the default is 5. For Network Load Balancers, the default is 3. ctgHealthyThresholdCount :: Lens' CreateTargetGroup (Maybe Natural)-ctgHealthyThresholdCount = lens _ctgHealthyThresholdCount (\ s a -> s{_ctgHealthyThresholdCount = a}) . mapping _Nat;+ctgHealthyThresholdCount = lens _ctgHealthyThresholdCount (\ s a -> s{_ctgHealthyThresholdCount = a}) . mapping _Nat  -- | The protocol the load balancer uses when performing health checks on targets. The TCP protocol is supported only if the protocol of the target group is TCP. For Application Load Balancers, the default is HTTP. For Network Load Balancers, the default is TCP. ctgHealthCheckProtocol :: Lens' CreateTargetGroup (Maybe ProtocolEnum)-ctgHealthCheckProtocol = lens _ctgHealthCheckProtocol (\ s a -> s{_ctgHealthCheckProtocol = a});+ctgHealthCheckProtocol = lens _ctgHealthCheckProtocol (\ s a -> s{_ctgHealthCheckProtocol = a})  -- | The amount of time, in seconds, during which no response from a target means a failed health check. For Application Load Balancers, the range is 2 to 60 seconds and the default is 5 seconds. For Network Load Balancers, this is 10 seconds for TCP and HTTPS health checks and 6 seconds for HTTP health checks. ctgHealthCheckTimeoutSeconds :: Lens' CreateTargetGroup (Maybe Natural)-ctgHealthCheckTimeoutSeconds = lens _ctgHealthCheckTimeoutSeconds (\ s a -> s{_ctgHealthCheckTimeoutSeconds = a}) . mapping _Nat;+ctgHealthCheckTimeoutSeconds = lens _ctgHealthCheckTimeoutSeconds (\ s a -> s{_ctgHealthCheckTimeoutSeconds = a}) . mapping _Nat  -- | The port the load balancer uses when performing health checks on targets. The default is @traffic-port@ , which is the port on which each target receives traffic from the load balancer. ctgHealthCheckPort :: Lens' CreateTargetGroup (Maybe Text)-ctgHealthCheckPort = lens _ctgHealthCheckPort (\ s a -> s{_ctgHealthCheckPort = a});+ctgHealthCheckPort = lens _ctgHealthCheckPort (\ s a -> s{_ctgHealthCheckPort = a})  -- | The name of the target group. This name must be unique per region per account, can have a maximum of 32 characters, must contain only alphanumeric characters or hyphens, and must not begin or end with a hyphen. ctgName :: Lens' CreateTargetGroup Text-ctgName = lens _ctgName (\ s a -> s{_ctgName = a});+ctgName = lens _ctgName (\ s a -> s{_ctgName = a})  -- | The protocol to use for routing traffic to the targets. For Application Load Balancers, the supported protocols are HTTP and HTTPS. For Network Load Balancers, the supported protocol is TCP. ctgProtocol :: Lens' CreateTargetGroup ProtocolEnum-ctgProtocol = lens _ctgProtocol (\ s a -> s{_ctgProtocol = a});+ctgProtocol = lens _ctgProtocol (\ s a -> s{_ctgProtocol = a})  -- | The port on which the targets receive traffic. This port is used unless you specify a port override when registering the target. ctgPort :: Lens' CreateTargetGroup Natural-ctgPort = lens _ctgPort (\ s a -> s{_ctgPort = a}) . _Nat;+ctgPort = lens _ctgPort (\ s a -> s{_ctgPort = a}) . _Nat  -- | The identifier of the virtual private cloud (VPC). ctgVPCId :: Lens' CreateTargetGroup Text-ctgVPCId = lens _ctgVPCId (\ s a -> s{_ctgVPCId = a});+ctgVPCId = lens _ctgVPCId (\ s a -> s{_ctgVPCId = a})  instance AWSRequest CreateTargetGroup where         type Rs CreateTargetGroup = CreateTargetGroupResponse@@ -249,15 +249,15 @@     -> CreateTargetGroupResponse createTargetGroupResponse pResponseStatus_ =   CreateTargetGroupResponse'-  {_ctgrsTargetGroups = Nothing, _ctgrsResponseStatus = pResponseStatus_}+    {_ctgrsTargetGroups = Nothing, _ctgrsResponseStatus = pResponseStatus_}   -- | Information about the target group. ctgrsTargetGroups :: Lens' CreateTargetGroupResponse [TargetGroup]-ctgrsTargetGroups = lens _ctgrsTargetGroups (\ s a -> s{_ctgrsTargetGroups = a}) . _Default . _Coerce;+ctgrsTargetGroups = lens _ctgrsTargetGroups (\ s a -> s{_ctgrsTargetGroups = a}) . _Default . _Coerce  -- | -- | The response status code. ctgrsResponseStatus :: Lens' CreateTargetGroupResponse Int-ctgrsResponseStatus = lens _ctgrsResponseStatus (\ s a -> s{_ctgrsResponseStatus = a});+ctgrsResponseStatus = lens _ctgrsResponseStatus (\ s a -> s{_ctgrsResponseStatus = a})  instance NFData CreateTargetGroupResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.DeleteListener--- 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@@ -64,7 +64,7 @@  -- | The Amazon Resource Name (ARN) of the listener. dlListenerARN :: Lens' DeleteListener Text-dlListenerARN = lens _dlListenerARN (\ s a -> s{_dlListenerARN = a});+dlListenerARN = lens _dlListenerARN (\ s a -> s{_dlListenerARN = a})  instance AWSRequest DeleteListener where         type Rs DeleteListener = DeleteListenerResponse@@ -111,6 +111,6 @@  -- | -- | The response status code. dlrsResponseStatus :: Lens' DeleteListenerResponse Int-dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a});+dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a})  instance NFData DeleteListenerResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.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@@ -67,7 +67,7 @@  -- | The Amazon Resource Name (ARN) of the load balancer. dlbLoadBalancerARN :: Lens' DeleteLoadBalancer Text-dlbLoadBalancerARN = lens _dlbLoadBalancerARN (\ s a -> s{_dlbLoadBalancerARN = a});+dlbLoadBalancerARN = lens _dlbLoadBalancerARN (\ s a -> s{_dlbLoadBalancerARN = a})  instance AWSRequest DeleteLoadBalancer where         type Rs DeleteLoadBalancer =@@ -115,6 +115,6 @@  -- | -- | The response status code. drsResponseStatus :: Lens' DeleteLoadBalancerResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DeleteLoadBalancerResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.DeleteRule--- 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@@ -62,7 +62,7 @@  -- | The Amazon Resource Name (ARN) of the rule. drRuleARN :: Lens' DeleteRule Text-drRuleARN = lens _drRuleARN (\ s a -> s{_drRuleARN = a});+drRuleARN = lens _drRuleARN (\ s a -> s{_drRuleARN = a})  instance AWSRequest DeleteRule where         type Rs DeleteRule = DeleteRuleResponse@@ -109,6 +109,6 @@  -- | -- | The response status code. drrsResponseStatus :: Lens' DeleteRuleResponse Int-drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});+drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})  instance NFData DeleteRuleResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.DeleteTargetGroup--- 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@@ -65,7 +65,7 @@  -- | The Amazon Resource Name (ARN) of the target group. dtgTargetGroupARN :: Lens' DeleteTargetGroup Text-dtgTargetGroupARN = lens _dtgTargetGroupARN (\ s a -> s{_dtgTargetGroupARN = a});+dtgTargetGroupARN = lens _dtgTargetGroupARN (\ s a -> s{_dtgTargetGroupARN = a})  instance AWSRequest DeleteTargetGroup where         type Rs DeleteTargetGroup = DeleteTargetGroupResponse@@ -112,6 +112,6 @@  -- | -- | The response status code. dtgrsResponseStatus :: Lens' DeleteTargetGroupResponse Int-dtgrsResponseStatus = lens _dtgrsResponseStatus (\ s a -> s{_dtgrsResponseStatus = a});+dtgrsResponseStatus = lens _dtgrsResponseStatus (\ s a -> s{_dtgrsResponseStatus = a})  instance NFData DeleteTargetGroupResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.DeregisterTargets--- 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,11 +67,11 @@  -- | The Amazon Resource Name (ARN) of the target group. dtTargetGroupARN :: Lens' DeregisterTargets Text-dtTargetGroupARN = lens _dtTargetGroupARN (\ s a -> s{_dtTargetGroupARN = a});+dtTargetGroupARN = lens _dtTargetGroupARN (\ s a -> s{_dtTargetGroupARN = a})  -- | The targets. If you specified a port override when you registered a target, you must specify both the target ID and the port when you deregister it. dtTargets :: Lens' DeregisterTargets [TargetDescription]-dtTargets = lens _dtTargets (\ s a -> s{_dtTargets = a}) . _Coerce;+dtTargets = lens _dtTargets (\ s a -> s{_dtTargets = a}) . _Coerce  instance AWSRequest DeregisterTargets where         type Rs DeregisterTargets = DeregisterTargetsResponse@@ -119,6 +119,6 @@  -- | -- | The response status code. dtsrsResponseStatus :: Lens' DeregisterTargetsResponse Int-dtsrsResponseStatus = lens _dtsrsResponseStatus (\ s a -> s{_dtsrsResponseStatus = a});+dtsrsResponseStatus = lens _dtsrsResponseStatus (\ s a -> s{_dtsrsResponseStatus = a})  instance NFData DeregisterTargetsResponse where

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

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.DescribeListenerCertificates--- 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,23 +69,23 @@     -> DescribeListenerCertificates describeListenerCertificates pListenerARN_ =   DescribeListenerCertificates'-  { _dlcMarker = Nothing-  , _dlcPageSize = Nothing-  , _dlcListenerARN = pListenerARN_-  }+    { _dlcMarker = Nothing+    , _dlcPageSize = Nothing+    , _dlcListenerARN = pListenerARN_+    }   -- | The marker for the next set of results. (You received this marker from a previous call.) dlcMarker :: Lens' DescribeListenerCertificates (Maybe Text)-dlcMarker = lens _dlcMarker (\ s a -> s{_dlcMarker = a});+dlcMarker = lens _dlcMarker (\ s a -> s{_dlcMarker = a})  -- | The maximum number of results to return with this call. dlcPageSize :: Lens' DescribeListenerCertificates (Maybe Natural)-dlcPageSize = lens _dlcPageSize (\ s a -> s{_dlcPageSize = a}) . mapping _Nat;+dlcPageSize = lens _dlcPageSize (\ s a -> s{_dlcPageSize = a}) . mapping _Nat  -- | The Amazon Resource Names (ARN) of the listener. dlcListenerARN :: Lens' DescribeListenerCertificates Text-dlcListenerARN = lens _dlcListenerARN (\ s a -> s{_dlcListenerARN = a});+dlcListenerARN = lens _dlcListenerARN (\ s a -> s{_dlcListenerARN = a})  instance AWSRequest DescribeListenerCertificates          where@@ -143,23 +143,23 @@     -> DescribeListenerCertificatesResponse describeListenerCertificatesResponse pResponseStatus_ =   DescribeListenerCertificatesResponse'-  { _dlcrsCertificates = Nothing-  , _dlcrsNextMarker = Nothing-  , _dlcrsResponseStatus = pResponseStatus_-  }+    { _dlcrsCertificates = Nothing+    , _dlcrsNextMarker = Nothing+    , _dlcrsResponseStatus = pResponseStatus_+    }   -- | Information about the certificates. dlcrsCertificates :: Lens' DescribeListenerCertificatesResponse [Certificate]-dlcrsCertificates = lens _dlcrsCertificates (\ s a -> s{_dlcrsCertificates = a}) . _Default . _Coerce;+dlcrsCertificates = lens _dlcrsCertificates (\ s a -> s{_dlcrsCertificates = a}) . _Default . _Coerce  -- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty. dlcrsNextMarker :: Lens' DescribeListenerCertificatesResponse (Maybe Text)-dlcrsNextMarker = lens _dlcrsNextMarker (\ s a -> s{_dlcrsNextMarker = a});+dlcrsNextMarker = lens _dlcrsNextMarker (\ s a -> s{_dlcrsNextMarker = a})  -- | -- | The response status code. dlcrsResponseStatus :: Lens' DescribeListenerCertificatesResponse Int-dlcrsResponseStatus = lens _dlcrsResponseStatus (\ s a -> s{_dlcrsResponseStatus = a});+dlcrsResponseStatus = lens _dlcrsResponseStatus (\ s a -> s{_dlcrsResponseStatus = a})  instance NFData DescribeListenerCertificatesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.DescribeListeners--- 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,28 +75,28 @@     :: DescribeListeners describeListeners =   DescribeListeners'-  { _dlListenerARNs = Nothing-  , _dlLoadBalancerARN = Nothing-  , _dlMarker = Nothing-  , _dlPageSize = Nothing-  }+    { _dlListenerARNs = Nothing+    , _dlLoadBalancerARN = Nothing+    , _dlMarker = Nothing+    , _dlPageSize = Nothing+    }   -- | The Amazon Resource Names (ARN) of the listeners. dlListenerARNs :: Lens' DescribeListeners [Text]-dlListenerARNs = lens _dlListenerARNs (\ s a -> s{_dlListenerARNs = a}) . _Default . _Coerce;+dlListenerARNs = lens _dlListenerARNs (\ s a -> s{_dlListenerARNs = a}) . _Default . _Coerce  -- | The Amazon Resource Name (ARN) of the load balancer. dlLoadBalancerARN :: Lens' DescribeListeners (Maybe Text)-dlLoadBalancerARN = lens _dlLoadBalancerARN (\ s a -> s{_dlLoadBalancerARN = a});+dlLoadBalancerARN = lens _dlLoadBalancerARN (\ s a -> s{_dlLoadBalancerARN = a})  -- | The marker for the next set of results. (You received this marker from a previous call.) dlMarker :: Lens' DescribeListeners (Maybe Text)-dlMarker = lens _dlMarker (\ s a -> s{_dlMarker = a});+dlMarker = lens _dlMarker (\ s a -> s{_dlMarker = a})  -- | The maximum number of results to return with this call. dlPageSize :: Lens' DescribeListeners (Maybe Natural)-dlPageSize = lens _dlPageSize (\ s a -> s{_dlPageSize = a}) . mapping _Nat;+dlPageSize = lens _dlPageSize (\ s a -> s{_dlPageSize = a}) . mapping _Nat  instance AWSPager DescribeListeners where         page rq rs@@ -159,22 +159,22 @@     -> DescribeListenersResponse describeListenersResponse pResponseStatus_ =   DescribeListenersResponse'-  { _dlsrsNextMarker = Nothing-  , _dlsrsListeners = Nothing-  , _dlsrsResponseStatus = pResponseStatus_-  }+    { _dlsrsNextMarker = Nothing+    , _dlsrsListeners = Nothing+    , _dlsrsResponseStatus = pResponseStatus_+    }   -- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty. dlsrsNextMarker :: Lens' DescribeListenersResponse (Maybe Text)-dlsrsNextMarker = lens _dlsrsNextMarker (\ s a -> s{_dlsrsNextMarker = a});+dlsrsNextMarker = lens _dlsrsNextMarker (\ s a -> s{_dlsrsNextMarker = a})  -- | Information about the listeners. dlsrsListeners :: Lens' DescribeListenersResponse [Listener]-dlsrsListeners = lens _dlsrsListeners (\ s a -> s{_dlsrsListeners = a}) . _Default . _Coerce;+dlsrsListeners = lens _dlsrsListeners (\ s a -> s{_dlsrsListeners = a}) . _Default . _Coerce  -- | -- | The response status code. dlsrsResponseStatus :: Lens' DescribeListenersResponse Int-dlsrsResponseStatus = lens _dlsrsResponseStatus (\ s a -> s{_dlsrsResponseStatus = a});+dlsrsResponseStatus = lens _dlsrsResponseStatus (\ s a -> s{_dlsrsResponseStatus = a})  instance NFData DescribeListenersResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.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@@ -64,7 +64,7 @@  -- | The Amazon Resource Name (ARN) of the load balancer. dlbaLoadBalancerARN :: Lens' DescribeLoadBalancerAttributes Text-dlbaLoadBalancerARN = lens _dlbaLoadBalancerARN (\ s a -> s{_dlbaLoadBalancerARN = a});+dlbaLoadBalancerARN = lens _dlbaLoadBalancerARN (\ s a -> s{_dlbaLoadBalancerARN = a})  instance AWSRequest DescribeLoadBalancerAttributes          where@@ -119,16 +119,16 @@     -> DescribeLoadBalancerAttributesResponse describeLoadBalancerAttributesResponse pResponseStatus_ =   DescribeLoadBalancerAttributesResponse'-  {_dlbarsAttributes = Nothing, _dlbarsResponseStatus = pResponseStatus_}+    {_dlbarsAttributes = Nothing, _dlbarsResponseStatus = pResponseStatus_}   -- | Information about the load balancer attributes. dlbarsAttributes :: Lens' DescribeLoadBalancerAttributesResponse [LoadBalancerAttribute]-dlbarsAttributes = lens _dlbarsAttributes (\ s a -> s{_dlbarsAttributes = a}) . _Default . _Coerce;+dlbarsAttributes = lens _dlbarsAttributes (\ s a -> s{_dlbarsAttributes = a}) . _Default . _Coerce  -- | -- | The response status code. dlbarsResponseStatus :: Lens' DescribeLoadBalancerAttributesResponse Int-dlbarsResponseStatus = lens _dlbarsResponseStatus (\ s a -> s{_dlbarsResponseStatus = a});+dlbarsResponseStatus = lens _dlbarsResponseStatus (\ s a -> s{_dlbarsResponseStatus = a})  instance NFData            DescribeLoadBalancerAttributesResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.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@@ -77,28 +77,28 @@     :: DescribeLoadBalancers describeLoadBalancers =   DescribeLoadBalancers'-  { _dlbNames = Nothing-  , _dlbLoadBalancerARNs = Nothing-  , _dlbMarker = Nothing-  , _dlbPageSize = Nothing-  }+    { _dlbNames = Nothing+    , _dlbLoadBalancerARNs = Nothing+    , _dlbMarker = Nothing+    , _dlbPageSize = Nothing+    }   -- | The names of the load balancers. dlbNames :: Lens' DescribeLoadBalancers [Text]-dlbNames = lens _dlbNames (\ s a -> s{_dlbNames = a}) . _Default . _Coerce;+dlbNames = lens _dlbNames (\ s a -> s{_dlbNames = a}) . _Default . _Coerce  -- | The Amazon Resource Names (ARN) of the load balancers. You can specify up to 20 load balancers in a single call. dlbLoadBalancerARNs :: Lens' DescribeLoadBalancers [Text]-dlbLoadBalancerARNs = lens _dlbLoadBalancerARNs (\ s a -> s{_dlbLoadBalancerARNs = a}) . _Default . _Coerce;+dlbLoadBalancerARNs = lens _dlbLoadBalancerARNs (\ s a -> s{_dlbLoadBalancerARNs = a}) . _Default . _Coerce  -- | 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. 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  instance AWSPager DescribeLoadBalancers where         page rq rs@@ -164,22 +164,22 @@     -> DescribeLoadBalancersResponse describeLoadBalancersResponse pResponseStatus_ =   DescribeLoadBalancersResponse'-  { _dlbrsLoadBalancers = Nothing-  , _dlbrsNextMarker = Nothing-  , _dlbrsResponseStatus = pResponseStatus_-  }+    { _dlbrsLoadBalancers = Nothing+    , _dlbrsNextMarker = Nothing+    , _dlbrsResponseStatus = pResponseStatus_+    }   -- | Information about the load balancers. dlbrsLoadBalancers :: Lens' DescribeLoadBalancersResponse [LoadBalancer]-dlbrsLoadBalancers = lens _dlbrsLoadBalancers (\ s a -> s{_dlbrsLoadBalancers = a}) . _Default . _Coerce;+dlbrsLoadBalancers = lens _dlbrsLoadBalancers (\ s a -> s{_dlbrsLoadBalancers = a}) . _Default . _Coerce  -- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty. dlbrsNextMarker :: Lens' DescribeLoadBalancersResponse (Maybe Text)-dlbrsNextMarker = lens _dlbrsNextMarker (\ s a -> s{_dlbrsNextMarker = a});+dlbrsNextMarker = lens _dlbrsNextMarker (\ s a -> s{_dlbrsNextMarker = a})  -- | -- | The response status code. dlbrsResponseStatus :: Lens' DescribeLoadBalancersResponse Int-dlbrsResponseStatus = lens _dlbrsResponseStatus (\ s a -> s{_dlbrsResponseStatus = a});+dlbrsResponseStatus = lens _dlbrsResponseStatus (\ s a -> s{_dlbrsResponseStatus = a})  instance NFData DescribeLoadBalancersResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.DescribeRules--- 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,28 +72,28 @@     :: DescribeRules describeRules =   DescribeRules'-  { _drListenerARN = Nothing-  , _drMarker = Nothing-  , _drRuleARNs = Nothing-  , _drPageSize = Nothing-  }+    { _drListenerARN = Nothing+    , _drMarker = Nothing+    , _drRuleARNs = Nothing+    , _drPageSize = Nothing+    }   -- | The Amazon Resource Name (ARN) of the listener. drListenerARN :: Lens' DescribeRules (Maybe Text)-drListenerARN = lens _drListenerARN (\ s a -> s{_drListenerARN = a});+drListenerARN = lens _drListenerARN (\ s a -> s{_drListenerARN = a})  -- | The marker for the next set of results. (You received this marker from a previous call.) drMarker :: Lens' DescribeRules (Maybe Text)-drMarker = lens _drMarker (\ s a -> s{_drMarker = a});+drMarker = lens _drMarker (\ s a -> s{_drMarker = a})  -- | The Amazon Resource Names (ARN) of the rules. drRuleARNs :: Lens' DescribeRules [Text]-drRuleARNs = lens _drRuleARNs (\ s a -> s{_drRuleARNs = a}) . _Default . _Coerce;+drRuleARNs = lens _drRuleARNs (\ s a -> s{_drRuleARNs = a}) . _Default . _Coerce  -- | The maximum number of results to return with this call. drPageSize :: Lens' DescribeRules (Maybe Natural)-drPageSize = lens _drPageSize (\ s a -> s{_drPageSize = a}) . mapping _Nat;+drPageSize = lens _drPageSize (\ s a -> s{_drPageSize = a}) . mapping _Nat  instance AWSRequest DescribeRules where         type Rs DescribeRules = DescribeRulesResponse@@ -150,22 +150,22 @@     -> DescribeRulesResponse describeRulesResponse pResponseStatus_ =   DescribeRulesResponse'-  { _drsrsRules = Nothing-  , _drsrsNextMarker = Nothing-  , _drsrsResponseStatus = pResponseStatus_-  }+    { _drsrsRules = Nothing+    , _drsrsNextMarker = Nothing+    , _drsrsResponseStatus = pResponseStatus_+    }   -- | Information about the rules. drsrsRules :: Lens' DescribeRulesResponse [Rule]-drsrsRules = lens _drsrsRules (\ s a -> s{_drsrsRules = a}) . _Default . _Coerce;+drsrsRules = lens _drsrsRules (\ s a -> s{_drsrsRules = a}) . _Default . _Coerce  -- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty. drsrsNextMarker :: Lens' DescribeRulesResponse (Maybe Text)-drsrsNextMarker = lens _drsrsNextMarker (\ s a -> s{_drsrsNextMarker = a});+drsrsNextMarker = lens _drsrsNextMarker (\ s a -> s{_drsrsNextMarker = a})  -- | -- | The response status code. drsrsResponseStatus :: Lens' DescribeRulesResponse Int-drsrsResponseStatus = lens _drsrsResponseStatus (\ s a -> s{_drsrsResponseStatus = a});+drsrsResponseStatus = lens _drsrsResponseStatus (\ s a -> s{_drsrsResponseStatus = a})  instance NFData DescribeRulesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.DescribeSSLPolicies--- 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,20 +70,20 @@     :: DescribeSSLPolicies describeSSLPolicies =   DescribeSSLPolicies'-  {_dspNames = Nothing, _dspMarker = Nothing, _dspPageSize = Nothing}+    {_dspNames = Nothing, _dspMarker = Nothing, _dspPageSize = Nothing}   -- | The names of the policies. dspNames :: Lens' DescribeSSLPolicies [Text]-dspNames = lens _dspNames (\ s a -> s{_dspNames = a}) . _Default . _Coerce;+dspNames = lens _dspNames (\ s a -> s{_dspNames = a}) . _Default . _Coerce  -- | The marker for the next set of results. (You received this marker from a previous call.) dspMarker :: Lens' DescribeSSLPolicies (Maybe Text)-dspMarker = lens _dspMarker (\ s a -> s{_dspMarker = a});+dspMarker = lens _dspMarker (\ s a -> s{_dspMarker = a})  -- | The maximum number of results to return with this call. dspPageSize :: Lens' DescribeSSLPolicies (Maybe Natural)-dspPageSize = lens _dspPageSize (\ s a -> s{_dspPageSize = a}) . mapping _Nat;+dspPageSize = lens _dspPageSize (\ s a -> s{_dspPageSize = a}) . mapping _Nat  instance AWSRequest DescribeSSLPolicies where         type Rs DescribeSSLPolicies =@@ -139,22 +139,22 @@     -> DescribeSSLPoliciesResponse describeSSLPoliciesResponse pResponseStatus_ =   DescribeSSLPoliciesResponse'-  { _dsprsSSLPolicies = Nothing-  , _dsprsNextMarker = Nothing-  , _dsprsResponseStatus = pResponseStatus_-  }+    { _dsprsSSLPolicies = Nothing+    , _dsprsNextMarker = Nothing+    , _dsprsResponseStatus = pResponseStatus_+    }   -- | Information about the policies. dsprsSSLPolicies :: Lens' DescribeSSLPoliciesResponse [SSLPolicy]-dsprsSSLPolicies = lens _dsprsSSLPolicies (\ s a -> s{_dsprsSSLPolicies = a}) . _Default . _Coerce;+dsprsSSLPolicies = lens _dsprsSSLPolicies (\ s a -> s{_dsprsSSLPolicies = a}) . _Default . _Coerce  -- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty. dsprsNextMarker :: Lens' DescribeSSLPoliciesResponse (Maybe Text)-dsprsNextMarker = lens _dsprsNextMarker (\ s a -> s{_dsprsNextMarker = a});+dsprsNextMarker = lens _dsprsNextMarker (\ s a -> s{_dsprsNextMarker = a})  -- | -- | The response status code. dsprsResponseStatus :: Lens' DescribeSSLPoliciesResponse Int-dsprsResponseStatus = lens _dsprsResponseStatus (\ s a -> s{_dsprsResponseStatus = a});+dsprsResponseStatus = lens _dsprsResponseStatus (\ s a -> s{_dsprsResponseStatus = a})  instance NFData DescribeSSLPoliciesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.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@@ -62,7 +62,7 @@  -- | The Amazon Resource Names (ARN) of the resources. dtResourceARNs :: Lens' DescribeTags [Text]-dtResourceARNs = lens _dtResourceARNs (\ s a -> s{_dtResourceARNs = a}) . _Coerce;+dtResourceARNs = lens _dtResourceARNs (\ s a -> s{_dtResourceARNs = a}) . _Coerce  instance AWSRequest DescribeTags where         type Rs DescribeTags = DescribeTagsResponse@@ -112,15 +112,15 @@     -> DescribeTagsResponse describeTagsResponse pResponseStatus_ =   DescribeTagsResponse'-  {_dtrsTagDescriptions = Nothing, _dtrsResponseStatus = pResponseStatus_}+    {_dtrsTagDescriptions = Nothing, _dtrsResponseStatus = pResponseStatus_}   -- | Information about the tags. dtrsTagDescriptions :: Lens' DescribeTagsResponse [TagDescription]-dtrsTagDescriptions = lens _dtrsTagDescriptions (\ s a -> s{_dtrsTagDescriptions = a}) . _Default . _Coerce;+dtrsTagDescriptions = lens _dtrsTagDescriptions (\ s a -> s{_dtrsTagDescriptions = a}) . _Default . _Coerce  -- | -- | The response status code. dtrsResponseStatus :: Lens' DescribeTagsResponse Int-dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a})  instance NFData DescribeTagsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.DescribeTargetGroupAttributes--- 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@@ -64,7 +64,7 @@  -- | The Amazon Resource Name (ARN) of the target group. dtgaTargetGroupARN :: Lens' DescribeTargetGroupAttributes Text-dtgaTargetGroupARN = lens _dtgaTargetGroupARN (\ s a -> s{_dtgaTargetGroupARN = a});+dtgaTargetGroupARN = lens _dtgaTargetGroupARN (\ s a -> s{_dtgaTargetGroupARN = a})  instance AWSRequest DescribeTargetGroupAttributes          where@@ -118,16 +118,16 @@     -> DescribeTargetGroupAttributesResponse describeTargetGroupAttributesResponse pResponseStatus_ =   DescribeTargetGroupAttributesResponse'-  {_dtgarsAttributes = Nothing, _dtgarsResponseStatus = pResponseStatus_}+    {_dtgarsAttributes = Nothing, _dtgarsResponseStatus = pResponseStatus_}   -- | Information about the target group attributes dtgarsAttributes :: Lens' DescribeTargetGroupAttributesResponse [TargetGroupAttribute]-dtgarsAttributes = lens _dtgarsAttributes (\ s a -> s{_dtgarsAttributes = a}) . _Default . _Coerce;+dtgarsAttributes = lens _dtgarsAttributes (\ s a -> s{_dtgarsAttributes = a}) . _Default . _Coerce  -- | -- | The response status code. dtgarsResponseStatus :: Lens' DescribeTargetGroupAttributesResponse Int-dtgarsResponseStatus = lens _dtgarsResponseStatus (\ s a -> s{_dtgarsResponseStatus = a});+dtgarsResponseStatus = lens _dtgarsResponseStatus (\ s a -> s{_dtgarsResponseStatus = a})  instance NFData DescribeTargetGroupAttributesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.DescribeTargetGroups--- 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@@ -81,33 +81,33 @@     :: DescribeTargetGroups describeTargetGroups =   DescribeTargetGroups'-  { _dtgTargetGroupARNs = Nothing-  , _dtgNames = Nothing-  , _dtgLoadBalancerARN = Nothing-  , _dtgMarker = Nothing-  , _dtgPageSize = Nothing-  }+    { _dtgTargetGroupARNs = Nothing+    , _dtgNames = Nothing+    , _dtgLoadBalancerARN = Nothing+    , _dtgMarker = Nothing+    , _dtgPageSize = Nothing+    }   -- | The Amazon Resource Names (ARN) of the target groups. dtgTargetGroupARNs :: Lens' DescribeTargetGroups [Text]-dtgTargetGroupARNs = lens _dtgTargetGroupARNs (\ s a -> s{_dtgTargetGroupARNs = a}) . _Default . _Coerce;+dtgTargetGroupARNs = lens _dtgTargetGroupARNs (\ s a -> s{_dtgTargetGroupARNs = a}) . _Default . _Coerce  -- | The names of the target groups. dtgNames :: Lens' DescribeTargetGroups [Text]-dtgNames = lens _dtgNames (\ s a -> s{_dtgNames = a}) . _Default . _Coerce;+dtgNames = lens _dtgNames (\ s a -> s{_dtgNames = a}) . _Default . _Coerce  -- | The Amazon Resource Name (ARN) of the load balancer. dtgLoadBalancerARN :: Lens' DescribeTargetGroups (Maybe Text)-dtgLoadBalancerARN = lens _dtgLoadBalancerARN (\ s a -> s{_dtgLoadBalancerARN = a});+dtgLoadBalancerARN = lens _dtgLoadBalancerARN (\ s a -> s{_dtgLoadBalancerARN = a})  -- | The marker for the next set of results. (You received this marker from a previous call.) dtgMarker :: Lens' DescribeTargetGroups (Maybe Text)-dtgMarker = lens _dtgMarker (\ s a -> s{_dtgMarker = a});+dtgMarker = lens _dtgMarker (\ s a -> s{_dtgMarker = a})  -- | The maximum number of results to return with this call. dtgPageSize :: Lens' DescribeTargetGroups (Maybe Natural)-dtgPageSize = lens _dtgPageSize (\ s a -> s{_dtgPageSize = a}) . mapping _Nat;+dtgPageSize = lens _dtgPageSize (\ s a -> s{_dtgPageSize = a}) . mapping _Nat  instance AWSPager DescribeTargetGroups where         page rq rs@@ -174,22 +174,22 @@     -> DescribeTargetGroupsResponse describeTargetGroupsResponse pResponseStatus_ =   DescribeTargetGroupsResponse'-  { _dtgsrsNextMarker = Nothing-  , _dtgsrsTargetGroups = Nothing-  , _dtgsrsResponseStatus = pResponseStatus_-  }+    { _dtgsrsNextMarker = Nothing+    , _dtgsrsTargetGroups = Nothing+    , _dtgsrsResponseStatus = pResponseStatus_+    }   -- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty. dtgsrsNextMarker :: Lens' DescribeTargetGroupsResponse (Maybe Text)-dtgsrsNextMarker = lens _dtgsrsNextMarker (\ s a -> s{_dtgsrsNextMarker = a});+dtgsrsNextMarker = lens _dtgsrsNextMarker (\ s a -> s{_dtgsrsNextMarker = a})  -- | Information about the target groups. dtgsrsTargetGroups :: Lens' DescribeTargetGroupsResponse [TargetGroup]-dtgsrsTargetGroups = lens _dtgsrsTargetGroups (\ s a -> s{_dtgsrsTargetGroups = a}) . _Default . _Coerce;+dtgsrsTargetGroups = lens _dtgsrsTargetGroups (\ s a -> s{_dtgsrsTargetGroups = a}) . _Default . _Coerce  -- | -- | The response status code. dtgsrsResponseStatus :: Lens' DescribeTargetGroupsResponse Int-dtgsrsResponseStatus = lens _dtgsrsResponseStatus (\ s a -> s{_dtgsrsResponseStatus = a});+dtgsrsResponseStatus = lens _dtgsrsResponseStatus (\ s a -> s{_dtgsrsResponseStatus = a})  instance NFData DescribeTargetGroupsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.DescribeTargetHealth--- 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@@ -64,16 +64,16 @@     -> DescribeTargetHealth describeTargetHealth pTargetGroupARN_ =   DescribeTargetHealth'-  {_dthTargets = Nothing, _dthTargetGroupARN = pTargetGroupARN_}+    {_dthTargets = Nothing, _dthTargetGroupARN = pTargetGroupARN_}   -- | The targets. dthTargets :: Lens' DescribeTargetHealth [TargetDescription]-dthTargets = lens _dthTargets (\ s a -> s{_dthTargets = a}) . _Default . _Coerce;+dthTargets = lens _dthTargets (\ s a -> s{_dthTargets = a}) . _Default . _Coerce  -- | The Amazon Resource Name (ARN) of the target group. dthTargetGroupARN :: Lens' DescribeTargetHealth Text-dthTargetGroupARN = lens _dthTargetGroupARN (\ s a -> s{_dthTargetGroupARN = a});+dthTargetGroupARN = lens _dthTargetGroupARN (\ s a -> s{_dthTargetGroupARN = a})  instance AWSRequest DescribeTargetHealth where         type Rs DescribeTargetHealth =@@ -125,17 +125,17 @@     -> DescribeTargetHealthResponse describeTargetHealthResponse pResponseStatus_ =   DescribeTargetHealthResponse'-  { _dthrsTargetHealthDescriptions = Nothing-  , _dthrsResponseStatus = pResponseStatus_-  }+    { _dthrsTargetHealthDescriptions = Nothing+    , _dthrsResponseStatus = pResponseStatus_+    }   -- | Information about the health of the targets. dthrsTargetHealthDescriptions :: Lens' DescribeTargetHealthResponse [TargetHealthDescription]-dthrsTargetHealthDescriptions = lens _dthrsTargetHealthDescriptions (\ s a -> s{_dthrsTargetHealthDescriptions = a}) . _Default . _Coerce;+dthrsTargetHealthDescriptions = lens _dthrsTargetHealthDescriptions (\ s a -> s{_dthrsTargetHealthDescriptions = a}) . _Default . _Coerce  -- | -- | The response status code. dthrsResponseStatus :: Lens' DescribeTargetHealthResponse Int-dthrsResponseStatus = lens _dthrsResponseStatus (\ s a -> s{_dthrsResponseStatus = a});+dthrsResponseStatus = lens _dthrsResponseStatus (\ s a -> s{_dthrsResponseStatus = a})  instance NFData DescribeTargetHealthResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.ModifyListener--- 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@@ -82,38 +82,38 @@     -> ModifyListener modifyListener pListenerARN_ =   ModifyListener'-  { _mlSSLPolicy = Nothing-  , _mlProtocol = Nothing-  , _mlDefaultActions = Nothing-  , _mlCertificates = Nothing-  , _mlPort = Nothing-  , _mlListenerARN = pListenerARN_-  }+    { _mlSSLPolicy = Nothing+    , _mlProtocol = Nothing+    , _mlDefaultActions = Nothing+    , _mlCertificates = Nothing+    , _mlPort = Nothing+    , _mlListenerARN = pListenerARN_+    }   -- | The security policy that defines which protocols and ciphers are supported. For more information, see <http://docs.aws.amazon.com/elasticloadbalancing/latest/application/create-https-listener.html#describe-ssl-policies Security Policies> in the /Application Load Balancers Guide/ . mlSSLPolicy :: Lens' ModifyListener (Maybe Text)-mlSSLPolicy = lens _mlSSLPolicy (\ s a -> s{_mlSSLPolicy = a});+mlSSLPolicy = lens _mlSSLPolicy (\ s a -> s{_mlSSLPolicy = a})  -- | The protocol for connections from clients to the load balancer. Application Load Balancers support HTTP and HTTPS and Network Load Balancers support TCP. mlProtocol :: Lens' ModifyListener (Maybe ProtocolEnum)-mlProtocol = lens _mlProtocol (\ s a -> s{_mlProtocol = a});+mlProtocol = lens _mlProtocol (\ s a -> s{_mlProtocol = a})  -- | The default action. For Application Load Balancers, the protocol of the specified target group must be HTTP or HTTPS. For Network Load Balancers, the protocol of the specified target group must be TCP. mlDefaultActions :: Lens' ModifyListener [Action]-mlDefaultActions = lens _mlDefaultActions (\ s a -> s{_mlDefaultActions = a}) . _Default . _Coerce;+mlDefaultActions = lens _mlDefaultActions (\ s a -> s{_mlDefaultActions = a}) . _Default . _Coerce  -- | The default SSL server certificate. mlCertificates :: Lens' ModifyListener [Certificate]-mlCertificates = lens _mlCertificates (\ s a -> s{_mlCertificates = a}) . _Default . _Coerce;+mlCertificates = lens _mlCertificates (\ s a -> s{_mlCertificates = a}) . _Default . _Coerce  -- | The port for connections from clients to the load balancer. mlPort :: Lens' ModifyListener (Maybe Natural)-mlPort = lens _mlPort (\ s a -> s{_mlPort = a}) . mapping _Nat;+mlPort = lens _mlPort (\ s a -> s{_mlPort = a}) . mapping _Nat  -- | The Amazon Resource Name (ARN) of the listener. mlListenerARN :: Lens' ModifyListener Text-mlListenerARN = lens _mlListenerARN (\ s a -> s{_mlListenerARN = a});+mlListenerARN = lens _mlListenerARN (\ s a -> s{_mlListenerARN = a})  instance AWSRequest ModifyListener where         type Rs ModifyListener = ModifyListenerResponse@@ -168,15 +168,15 @@     -> ModifyListenerResponse modifyListenerResponse pResponseStatus_ =   ModifyListenerResponse'-  {_mlrsListeners = Nothing, _mlrsResponseStatus = pResponseStatus_}+    {_mlrsListeners = Nothing, _mlrsResponseStatus = pResponseStatus_}   -- | Information about the modified listeners. mlrsListeners :: Lens' ModifyListenerResponse [Listener]-mlrsListeners = lens _mlrsListeners (\ s a -> s{_mlrsListeners = a}) . _Default . _Coerce;+mlrsListeners = lens _mlrsListeners (\ s a -> s{_mlrsListeners = a}) . _Default . _Coerce  -- | -- | The response status code. mlrsResponseStatus :: Lens' ModifyListenerResponse Int-mlrsResponseStatus = lens _mlrsResponseStatus (\ s a -> s{_mlrsResponseStatus = a});+mlrsResponseStatus = lens _mlrsResponseStatus (\ s a -> s{_mlrsResponseStatus = a})  instance NFData ModifyListenerResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.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@@ -66,16 +66,16 @@     -> ModifyLoadBalancerAttributes modifyLoadBalancerAttributes pLoadBalancerARN_ =   ModifyLoadBalancerAttributes'-  {_mlbaLoadBalancerARN = pLoadBalancerARN_, _mlbaAttributes = mempty}+    {_mlbaLoadBalancerARN = pLoadBalancerARN_, _mlbaAttributes = mempty}   -- | The Amazon Resource Name (ARN) of the load balancer. mlbaLoadBalancerARN :: Lens' ModifyLoadBalancerAttributes Text-mlbaLoadBalancerARN = lens _mlbaLoadBalancerARN (\ s a -> s{_mlbaLoadBalancerARN = a});+mlbaLoadBalancerARN = lens _mlbaLoadBalancerARN (\ s a -> s{_mlbaLoadBalancerARN = a})  -- | The load balancer attributes. mlbaAttributes :: Lens' ModifyLoadBalancerAttributes [LoadBalancerAttribute]-mlbaAttributes = lens _mlbaAttributes (\ s a -> s{_mlbaAttributes = a}) . _Coerce;+mlbaAttributes = lens _mlbaAttributes (\ s a -> s{_mlbaAttributes = a}) . _Coerce  instance AWSRequest ModifyLoadBalancerAttributes          where@@ -129,16 +129,16 @@     -> ModifyLoadBalancerAttributesResponse modifyLoadBalancerAttributesResponse pResponseStatus_ =   ModifyLoadBalancerAttributesResponse'-  {_mlbarsAttributes = Nothing, _mlbarsResponseStatus = pResponseStatus_}+    {_mlbarsAttributes = Nothing, _mlbarsResponseStatus = pResponseStatus_}   -- | Information about the load balancer attributes. mlbarsAttributes :: Lens' ModifyLoadBalancerAttributesResponse [LoadBalancerAttribute]-mlbarsAttributes = lens _mlbarsAttributes (\ s a -> s{_mlbarsAttributes = a}) . _Default . _Coerce;+mlbarsAttributes = lens _mlbarsAttributes (\ s a -> s{_mlbarsAttributes = a}) . _Default . _Coerce  -- | -- | The response status code. mlbarsResponseStatus :: Lens' ModifyLoadBalancerAttributesResponse Int-mlbarsResponseStatus = lens _mlbarsResponseStatus (\ s a -> s{_mlbarsResponseStatus = a});+mlbarsResponseStatus = lens _mlbarsResponseStatus (\ s a -> s{_mlbarsResponseStatus = a})  instance NFData ModifyLoadBalancerAttributesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.ModifyRule--- 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,20 +72,20 @@     -> ModifyRule modifyRule pRuleARN_ =   ModifyRule'-  {_mrActions = Nothing, _mrConditions = Nothing, _mrRuleARN = pRuleARN_}+    {_mrActions = Nothing, _mrConditions = Nothing, _mrRuleARN = pRuleARN_}   -- | The actions. The target group must use the HTTP or HTTPS protocol. mrActions :: Lens' ModifyRule [Action]-mrActions = lens _mrActions (\ s a -> s{_mrActions = a}) . _Default . _Coerce;+mrActions = lens _mrActions (\ s a -> s{_mrActions = a}) . _Default . _Coerce  -- | The conditions. mrConditions :: Lens' ModifyRule [RuleCondition]-mrConditions = lens _mrConditions (\ s a -> s{_mrConditions = a}) . _Default . _Coerce;+mrConditions = lens _mrConditions (\ s a -> s{_mrConditions = a}) . _Default . _Coerce  -- | The Amazon Resource Name (ARN) of the rule. mrRuleARN :: Lens' ModifyRule Text-mrRuleARN = lens _mrRuleARN (\ s a -> s{_mrRuleARN = a});+mrRuleARN = lens _mrRuleARN (\ s a -> s{_mrRuleARN = a})  instance AWSRequest ModifyRule where         type Rs ModifyRule = ModifyRuleResponse@@ -138,15 +138,15 @@     -> ModifyRuleResponse modifyRuleResponse pResponseStatus_ =   ModifyRuleResponse'-  {_mrrsRules = Nothing, _mrrsResponseStatus = pResponseStatus_}+    {_mrrsRules = Nothing, _mrrsResponseStatus = pResponseStatus_}   -- | Information about the rule. mrrsRules :: Lens' ModifyRuleResponse [Rule]-mrrsRules = lens _mrrsRules (\ s a -> s{_mrrsRules = a}) . _Default . _Coerce;+mrrsRules = lens _mrrsRules (\ s a -> s{_mrrsRules = a}) . _Default . _Coerce  -- | -- | The response status code. mrrsResponseStatus :: Lens' ModifyRuleResponse Int-mrrsResponseStatus = lens _mrrsResponseStatus (\ s a -> s{_mrrsResponseStatus = a});+mrrsResponseStatus = lens _mrrsResponseStatus (\ s a -> s{_mrrsResponseStatus = a})  instance NFData ModifyRuleResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.ModifyTargetGroup--- 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,53 +94,53 @@     -> ModifyTargetGroup modifyTargetGroup pTargetGroupARN_ =   ModifyTargetGroup'-  { _mtgMatcher = Nothing-  , _mtgHealthCheckPath = Nothing-  , _mtgUnhealthyThresholdCount = Nothing-  , _mtgHealthCheckIntervalSeconds = Nothing-  , _mtgHealthyThresholdCount = Nothing-  , _mtgHealthCheckProtocol = Nothing-  , _mtgHealthCheckTimeoutSeconds = Nothing-  , _mtgHealthCheckPort = Nothing-  , _mtgTargetGroupARN = pTargetGroupARN_-  }+    { _mtgMatcher = Nothing+    , _mtgHealthCheckPath = Nothing+    , _mtgUnhealthyThresholdCount = Nothing+    , _mtgHealthCheckIntervalSeconds = Nothing+    , _mtgHealthyThresholdCount = Nothing+    , _mtgHealthCheckProtocol = Nothing+    , _mtgHealthCheckTimeoutSeconds = Nothing+    , _mtgHealthCheckPort = Nothing+    , _mtgTargetGroupARN = pTargetGroupARN_+    }   -- | [HTTP/HTTPS health checks] The HTTP codes to use when checking for a successful response from a target. mtgMatcher :: Lens' ModifyTargetGroup (Maybe Matcher)-mtgMatcher = lens _mtgMatcher (\ s a -> s{_mtgMatcher = a});+mtgMatcher = lens _mtgMatcher (\ s a -> s{_mtgMatcher = a})  -- | [HTTP/HTTPS health checks] The ping path that is the destination for the health check request. mtgHealthCheckPath :: Lens' ModifyTargetGroup (Maybe Text)-mtgHealthCheckPath = lens _mtgHealthCheckPath (\ s a -> s{_mtgHealthCheckPath = a});+mtgHealthCheckPath = lens _mtgHealthCheckPath (\ s a -> s{_mtgHealthCheckPath = a})  -- | The number of consecutive health check failures required before considering the target unhealthy. For Network Load Balancers, this value must be the same as the healthy threshold count. mtgUnhealthyThresholdCount :: Lens' ModifyTargetGroup (Maybe Natural)-mtgUnhealthyThresholdCount = lens _mtgUnhealthyThresholdCount (\ s a -> s{_mtgUnhealthyThresholdCount = a}) . mapping _Nat;+mtgUnhealthyThresholdCount = lens _mtgUnhealthyThresholdCount (\ s a -> s{_mtgUnhealthyThresholdCount = a}) . mapping _Nat  -- | The approximate amount of time, in seconds, between health checks of an individual target. For Application Load Balancers, the range is 5 to 300 seconds. For Network Load Balancers, the supported values are 10 or 30 seconds. mtgHealthCheckIntervalSeconds :: Lens' ModifyTargetGroup (Maybe Natural)-mtgHealthCheckIntervalSeconds = lens _mtgHealthCheckIntervalSeconds (\ s a -> s{_mtgHealthCheckIntervalSeconds = a}) . mapping _Nat;+mtgHealthCheckIntervalSeconds = lens _mtgHealthCheckIntervalSeconds (\ s a -> s{_mtgHealthCheckIntervalSeconds = a}) . mapping _Nat  -- | The number of consecutive health checks successes required before considering an unhealthy target healthy. mtgHealthyThresholdCount :: Lens' ModifyTargetGroup (Maybe Natural)-mtgHealthyThresholdCount = lens _mtgHealthyThresholdCount (\ s a -> s{_mtgHealthyThresholdCount = a}) . mapping _Nat;+mtgHealthyThresholdCount = lens _mtgHealthyThresholdCount (\ s a -> s{_mtgHealthyThresholdCount = a}) . mapping _Nat  -- | The protocol the load balancer uses when performing health checks on targets. The TCP protocol is supported only if the protocol of the target group is TCP. mtgHealthCheckProtocol :: Lens' ModifyTargetGroup (Maybe ProtocolEnum)-mtgHealthCheckProtocol = lens _mtgHealthCheckProtocol (\ s a -> s{_mtgHealthCheckProtocol = a});+mtgHealthCheckProtocol = lens _mtgHealthCheckProtocol (\ s a -> s{_mtgHealthCheckProtocol = a})  -- | [HTTP/HTTPS health checks] The amount of time, in seconds, during which no response means a failed health check. mtgHealthCheckTimeoutSeconds :: Lens' ModifyTargetGroup (Maybe Natural)-mtgHealthCheckTimeoutSeconds = lens _mtgHealthCheckTimeoutSeconds (\ s a -> s{_mtgHealthCheckTimeoutSeconds = a}) . mapping _Nat;+mtgHealthCheckTimeoutSeconds = lens _mtgHealthCheckTimeoutSeconds (\ s a -> s{_mtgHealthCheckTimeoutSeconds = a}) . mapping _Nat  -- | The port the load balancer uses when performing health checks on targets. mtgHealthCheckPort :: Lens' ModifyTargetGroup (Maybe Text)-mtgHealthCheckPort = lens _mtgHealthCheckPort (\ s a -> s{_mtgHealthCheckPort = a});+mtgHealthCheckPort = lens _mtgHealthCheckPort (\ s a -> s{_mtgHealthCheckPort = a})  -- | The Amazon Resource Name (ARN) of the target group. mtgTargetGroupARN :: Lens' ModifyTargetGroup Text-mtgTargetGroupARN = lens _mtgTargetGroupARN (\ s a -> s{_mtgTargetGroupARN = a});+mtgTargetGroupARN = lens _mtgTargetGroupARN (\ s a -> s{_mtgTargetGroupARN = a})  instance AWSRequest ModifyTargetGroup where         type Rs ModifyTargetGroup = ModifyTargetGroupResponse@@ -200,15 +200,15 @@     -> ModifyTargetGroupResponse modifyTargetGroupResponse pResponseStatus_ =   ModifyTargetGroupResponse'-  {_mtgrsTargetGroups = Nothing, _mtgrsResponseStatus = pResponseStatus_}+    {_mtgrsTargetGroups = Nothing, _mtgrsResponseStatus = pResponseStatus_}   -- | Information about the target group. mtgrsTargetGroups :: Lens' ModifyTargetGroupResponse [TargetGroup]-mtgrsTargetGroups = lens _mtgrsTargetGroups (\ s a -> s{_mtgrsTargetGroups = a}) . _Default . _Coerce;+mtgrsTargetGroups = lens _mtgrsTargetGroups (\ s a -> s{_mtgrsTargetGroups = a}) . _Default . _Coerce  -- | -- | The response status code. mtgrsResponseStatus :: Lens' ModifyTargetGroupResponse Int-mtgrsResponseStatus = lens _mtgrsResponseStatus (\ s a -> s{_mtgrsResponseStatus = a});+mtgrsResponseStatus = lens _mtgrsResponseStatus (\ s a -> s{_mtgrsResponseStatus = a})  instance NFData ModifyTargetGroupResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.ModifyTargetGroupAttributes--- 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@@ -64,16 +64,16 @@     -> ModifyTargetGroupAttributes modifyTargetGroupAttributes pTargetGroupARN_ =   ModifyTargetGroupAttributes'-  {_mtgaTargetGroupARN = pTargetGroupARN_, _mtgaAttributes = mempty}+    {_mtgaTargetGroupARN = pTargetGroupARN_, _mtgaAttributes = mempty}   -- | The Amazon Resource Name (ARN) of the target group. mtgaTargetGroupARN :: Lens' ModifyTargetGroupAttributes Text-mtgaTargetGroupARN = lens _mtgaTargetGroupARN (\ s a -> s{_mtgaTargetGroupARN = a});+mtgaTargetGroupARN = lens _mtgaTargetGroupARN (\ s a -> s{_mtgaTargetGroupARN = a})  -- | The attributes. mtgaAttributes :: Lens' ModifyTargetGroupAttributes [TargetGroupAttribute]-mtgaAttributes = lens _mtgaAttributes (\ s a -> s{_mtgaAttributes = a}) . _Coerce;+mtgaAttributes = lens _mtgaAttributes (\ s a -> s{_mtgaAttributes = a}) . _Coerce  instance AWSRequest ModifyTargetGroupAttributes where         type Rs ModifyTargetGroupAttributes =@@ -126,16 +126,16 @@     -> ModifyTargetGroupAttributesResponse modifyTargetGroupAttributesResponse pResponseStatus_ =   ModifyTargetGroupAttributesResponse'-  {_mtgarsAttributes = Nothing, _mtgarsResponseStatus = pResponseStatus_}+    {_mtgarsAttributes = Nothing, _mtgarsResponseStatus = pResponseStatus_}   -- | Information about the attributes. mtgarsAttributes :: Lens' ModifyTargetGroupAttributesResponse [TargetGroupAttribute]-mtgarsAttributes = lens _mtgarsAttributes (\ s a -> s{_mtgarsAttributes = a}) . _Default . _Coerce;+mtgarsAttributes = lens _mtgarsAttributes (\ s a -> s{_mtgarsAttributes = a}) . _Default . _Coerce  -- | -- | The response status code. mtgarsResponseStatus :: Lens' ModifyTargetGroupAttributesResponse Int-mtgarsResponseStatus = lens _mtgarsResponseStatus (\ s a -> s{_mtgarsResponseStatus = a});+mtgarsResponseStatus = lens _mtgarsResponseStatus (\ s a -> s{_mtgarsResponseStatus = a})  instance NFData ModifyTargetGroupAttributesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.RegisterTargets--- 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 Amazon Resource Name (ARN) of the target group. rtTargetGroupARN :: Lens' RegisterTargets Text-rtTargetGroupARN = lens _rtTargetGroupARN (\ s a -> s{_rtTargetGroupARN = a});+rtTargetGroupARN = lens _rtTargetGroupARN (\ s a -> s{_rtTargetGroupARN = a})  -- | The targets. rtTargets :: Lens' RegisterTargets [TargetDescription]-rtTargets = lens _rtTargets (\ s a -> s{_rtTargets = a}) . _Coerce;+rtTargets = lens _rtTargets (\ s a -> s{_rtTargets = a}) . _Coerce  instance AWSRequest RegisterTargets where         type Rs RegisterTargets = RegisterTargetsResponse@@ -127,6 +127,6 @@  -- | -- | The response status code. rrsResponseStatus :: Lens' RegisterTargetsResponse Int-rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a});+rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a})  instance NFData RegisterTargetsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.RemoveListenerCertificates--- 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,16 @@     -> RemoveListenerCertificates removeListenerCertificates pListenerARN_ =   RemoveListenerCertificates'-  {_rlcListenerARN = pListenerARN_, _rlcCertificates = mempty}+    {_rlcListenerARN = pListenerARN_, _rlcCertificates = mempty}   -- | The Amazon Resource Name (ARN) of the listener. rlcListenerARN :: Lens' RemoveListenerCertificates Text-rlcListenerARN = lens _rlcListenerARN (\ s a -> s{_rlcListenerARN = a});+rlcListenerARN = lens _rlcListenerARN (\ s a -> s{_rlcListenerARN = a})  -- | The certificate to remove. You can specify one certificate per call. rlcCertificates :: Lens' RemoveListenerCertificates [Certificate]-rlcCertificates = lens _rlcCertificates (\ s a -> s{_rlcCertificates = a}) . _Coerce;+rlcCertificates = lens _rlcCertificates (\ s a -> s{_rlcCertificates = a}) . _Coerce  instance AWSRequest RemoveListenerCertificates where         type Rs RemoveListenerCertificates =@@ -129,7 +129,7 @@  -- | -- | The response status code. rlcrsResponseStatus :: Lens' RemoveListenerCertificatesResponse Int-rlcrsResponseStatus = lens _rlcrsResponseStatus (\ s a -> s{_rlcrsResponseStatus = a});+rlcrsResponseStatus = lens _rlcrsResponseStatus (\ s a -> s{_rlcrsResponseStatus = a})  instance NFData RemoveListenerCertificatesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.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@@ -67,11 +67,11 @@  -- | The Amazon Resource Name (ARN) of the resource. rtResourceARNs :: Lens' RemoveTags [Text]-rtResourceARNs = lens _rtResourceARNs (\ s a -> s{_rtResourceARNs = a}) . _Coerce;+rtResourceARNs = lens _rtResourceARNs (\ s a -> s{_rtResourceARNs = a}) . _Coerce  -- | The tag keys for the tags to remove. rtTagKeys :: Lens' RemoveTags [Text]-rtTagKeys = lens _rtTagKeys (\ s a -> s{_rtTagKeys = a}) . _Coerce;+rtTagKeys = lens _rtTagKeys (\ s a -> s{_rtTagKeys = a}) . _Coerce  instance AWSRequest RemoveTags where         type Rs RemoveTags = RemoveTagsResponse@@ -120,6 +120,6 @@  -- | -- | The response status code. rtrsResponseStatus :: Lens' RemoveTagsResponse Int-rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a});+rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a})  instance NFData RemoveTagsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.SetIPAddressType--- 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,18 +67,18 @@     -> SetIPAddressType setIPAddressType pLoadBalancerARN_ pIPAddressType_ =   SetIPAddressType'-  { _siatLoadBalancerARN = pLoadBalancerARN_-  , _siatIPAddressType = pIPAddressType_-  }+    { _siatLoadBalancerARN = pLoadBalancerARN_+    , _siatIPAddressType = pIPAddressType_+    }   -- | The Amazon Resource Name (ARN) of the load balancer. siatLoadBalancerARN :: Lens' SetIPAddressType Text-siatLoadBalancerARN = lens _siatLoadBalancerARN (\ s a -> s{_siatLoadBalancerARN = a});+siatLoadBalancerARN = lens _siatLoadBalancerARN (\ s a -> s{_siatLoadBalancerARN = a})  -- | The IP address type. The possible values are @ipv4@ (for IPv4 addresses) and @dualstack@ (for IPv4 and IPv6 addresses). Internal load balancers must use @ipv4@ . siatIPAddressType :: Lens' SetIPAddressType IPAddressType-siatIPAddressType = lens _siatIPAddressType (\ s a -> s{_siatIPAddressType = a});+siatIPAddressType = lens _siatIPAddressType (\ s a -> s{_siatIPAddressType = a})  instance AWSRequest SetIPAddressType where         type Rs SetIPAddressType = SetIPAddressTypeResponse@@ -126,15 +126,15 @@     -> SetIPAddressTypeResponse setIPAddressTypeResponse pResponseStatus_ =   SetIPAddressTypeResponse'-  {_siatrsIPAddressType = Nothing, _siatrsResponseStatus = pResponseStatus_}+    {_siatrsIPAddressType = Nothing, _siatrsResponseStatus = pResponseStatus_}   -- | The IP address type. siatrsIPAddressType :: Lens' SetIPAddressTypeResponse (Maybe IPAddressType)-siatrsIPAddressType = lens _siatrsIPAddressType (\ s a -> s{_siatrsIPAddressType = a});+siatrsIPAddressType = lens _siatrsIPAddressType (\ s a -> s{_siatrsIPAddressType = a})  -- | -- | The response status code. siatrsResponseStatus :: Lens' SetIPAddressTypeResponse Int-siatrsResponseStatus = lens _siatrsResponseStatus (\ s a -> s{_siatrsResponseStatus = a});+siatrsResponseStatus = lens _siatrsResponseStatus (\ s a -> s{_siatrsResponseStatus = a})  instance NFData SetIPAddressTypeResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.SetRulePriorities--- 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@@ -64,7 +64,7 @@  -- | The rule priorities. srpRulePriorities :: Lens' SetRulePriorities [RulePriorityPair]-srpRulePriorities = lens _srpRulePriorities (\ s a -> s{_srpRulePriorities = a}) . _Coerce;+srpRulePriorities = lens _srpRulePriorities (\ s a -> s{_srpRulePriorities = a}) . _Coerce  instance AWSRequest SetRulePriorities where         type Rs SetRulePriorities = SetRulePrioritiesResponse@@ -114,15 +114,15 @@     -> SetRulePrioritiesResponse setRulePrioritiesResponse pResponseStatus_ =   SetRulePrioritiesResponse'-  {_srprsRules = Nothing, _srprsResponseStatus = pResponseStatus_}+    {_srprsRules = Nothing, _srprsResponseStatus = pResponseStatus_}   -- | Information about the rules. srprsRules :: Lens' SetRulePrioritiesResponse [Rule]-srprsRules = lens _srprsRules (\ s a -> s{_srprsRules = a}) . _Default . _Coerce;+srprsRules = lens _srprsRules (\ s a -> s{_srprsRules = a}) . _Default . _Coerce  -- | -- | The response status code. srprsResponseStatus :: Lens' SetRulePrioritiesResponse Int-srprsResponseStatus = lens _srprsResponseStatus (\ s a -> s{_srprsResponseStatus = a});+srprsResponseStatus = lens _srprsResponseStatus (\ s a -> s{_srprsResponseStatus = a})  instance NFData SetRulePrioritiesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ELBv2.SetSecurityGroups--- 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@@ -66,16 +66,16 @@     -> SetSecurityGroups setSecurityGroups pLoadBalancerARN_ =   SetSecurityGroups'-  {_ssgLoadBalancerARN = pLoadBalancerARN_, _ssgSecurityGroups = mempty}+    {_ssgLoadBalancerARN = pLoadBalancerARN_, _ssgSecurityGroups = mempty}   -- | The Amazon Resource Name (ARN) of the load balancer. ssgLoadBalancerARN :: Lens' SetSecurityGroups Text-ssgLoadBalancerARN = lens _ssgLoadBalancerARN (\ s a -> s{_ssgLoadBalancerARN = a});+ssgLoadBalancerARN = lens _ssgLoadBalancerARN (\ s a -> s{_ssgLoadBalancerARN = a})  -- | The IDs of the security groups. ssgSecurityGroups :: Lens' SetSecurityGroups [Text]-ssgSecurityGroups = lens _ssgSecurityGroups (\ s a -> s{_ssgSecurityGroups = a}) . _Coerce;+ssgSecurityGroups = lens _ssgSecurityGroups (\ s a -> s{_ssgSecurityGroups = a}) . _Coerce  instance AWSRequest SetSecurityGroups where         type Rs SetSecurityGroups = SetSecurityGroupsResponse@@ -126,15 +126,15 @@     -> SetSecurityGroupsResponse setSecurityGroupsResponse pResponseStatus_ =   SetSecurityGroupsResponse'-  {_ssgrsSecurityGroupIds = Nothing, _ssgrsResponseStatus = pResponseStatus_}+    {_ssgrsSecurityGroupIds = Nothing, _ssgrsResponseStatus = pResponseStatus_}   -- | The IDs of the security groups associated with the load balancer. ssgrsSecurityGroupIds :: Lens' SetSecurityGroupsResponse [Text]-ssgrsSecurityGroupIds = lens _ssgrsSecurityGroupIds (\ s a -> s{_ssgrsSecurityGroupIds = a}) . _Default . _Coerce;+ssgrsSecurityGroupIds = lens _ssgrsSecurityGroupIds (\ s a -> s{_ssgrsSecurityGroupIds = a}) . _Default . _Coerce  -- | -- | The response status code. ssgrsResponseStatus :: Lens' SetSecurityGroupsResponse Int-ssgrsResponseStatus = lens _ssgrsResponseStatus (\ s a -> s{_ssgrsResponseStatus = a});+ssgrsResponseStatus = lens _ssgrsResponseStatus (\ s a -> s{_ssgrsResponseStatus = a})  instance NFData SetSecurityGroupsResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ELBv2.SetSubnets--- 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 -- Portability : non-portable (GHC extensions) ----- Enables the Availability Zone for the specified subnets for the specified Application Load Balancer. The specified subnets replace the previously enabled subnets.+-- Enables the Availability Zone for the specified public subnets for the specified Application Load Balancer. The specified subnets replace the previously enabled subnets. -- -- -- Note that you can't change the subnets for a Network Load Balancer.@@ -60,33 +60,33 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ssSubnetMappings' - The IDs of the subnets. You must specify subnets from at least two Availability Zones. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings. You cannot specify Elastic IP addresses for your subnets.+-- * 'ssSubnetMappings' - The IDs of the public subnets. You must specify subnets from at least two Availability Zones. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings. You cannot specify Elastic IP addresses for your subnets. -- -- * 'ssLoadBalancerARN' - The Amazon Resource Name (ARN) of the load balancer. ----- * 'ssSubnets' - The IDs of the subnets. You must specify subnets from at least two Availability Zones. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings.+-- * 'ssSubnets' - The IDs of the public subnets. You must specify subnets from at least two Availability Zones. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings. setSubnets     :: Text -- ^ 'ssLoadBalancerARN'     -> SetSubnets setSubnets pLoadBalancerARN_ =   SetSubnets'-  { _ssSubnetMappings = Nothing-  , _ssLoadBalancerARN = pLoadBalancerARN_-  , _ssSubnets = mempty-  }+    { _ssSubnetMappings = Nothing+    , _ssLoadBalancerARN = pLoadBalancerARN_+    , _ssSubnets = mempty+    }  --- | The IDs of the subnets. You must specify subnets from at least two Availability Zones. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings. You cannot specify Elastic IP addresses for your subnets.+-- | The IDs of the public subnets. You must specify subnets from at least two Availability Zones. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings. You cannot specify Elastic IP addresses for your subnets. ssSubnetMappings :: Lens' SetSubnets [SubnetMapping]-ssSubnetMappings = lens _ssSubnetMappings (\ s a -> s{_ssSubnetMappings = a}) . _Default . _Coerce;+ssSubnetMappings = lens _ssSubnetMappings (\ s a -> s{_ssSubnetMappings = a}) . _Default . _Coerce  -- | The Amazon Resource Name (ARN) of the load balancer. ssLoadBalancerARN :: Lens' SetSubnets Text-ssLoadBalancerARN = lens _ssLoadBalancerARN (\ s a -> s{_ssLoadBalancerARN = a});+ssLoadBalancerARN = lens _ssLoadBalancerARN (\ s a -> s{_ssLoadBalancerARN = a}) --- | The IDs of the subnets. You must specify subnets from at least two Availability Zones. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings.+-- | The IDs of the public subnets. You must specify subnets from at least two Availability Zones. You can specify only one subnet per Availability Zone. You must specify either subnets or subnet mappings. ssSubnets :: Lens' SetSubnets [Text]-ssSubnets = lens _ssSubnets (\ s a -> s{_ssSubnets = a}) . _Coerce;+ssSubnets = lens _ssSubnets (\ s a -> s{_ssSubnets = a}) . _Coerce  instance AWSRequest SetSubnets where         type Rs SetSubnets = SetSubnetsResponse@@ -138,15 +138,15 @@     -> SetSubnetsResponse setSubnetsResponse pResponseStatus_ =   SetSubnetsResponse'-  {_ssrsAvailabilityZones = Nothing, _ssrsResponseStatus = pResponseStatus_}+    {_ssrsAvailabilityZones = Nothing, _ssrsResponseStatus = pResponseStatus_}   -- | Information about the subnet and Availability Zone. ssrsAvailabilityZones :: Lens' SetSubnetsResponse [AvailabilityZone]-ssrsAvailabilityZones = lens _ssrsAvailabilityZones (\ s a -> s{_ssrsAvailabilityZones = a}) . _Default . _Coerce;+ssrsAvailabilityZones = lens _ssrsAvailabilityZones (\ s a -> s{_ssrsAvailabilityZones = a}) . _Default . _Coerce  -- | -- | The response status code. ssrsResponseStatus :: Lens' SetSubnetsResponse Int-ssrsResponseStatus = lens _ssrsResponseStatus (\ s a -> s{_ssrsResponseStatus = a});+ssrsResponseStatus = lens _ssrsResponseStatus (\ s a -> s{_ssrsResponseStatus = a})  instance NFData SetSubnetsResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.ELBv2.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@@ -261,24 +261,24 @@ eLBv2 :: Service eLBv2 =   Service-  { _svcAbbrev = "ELBv2"-  , _svcSigner = v4-  , _svcPrefix = "elasticloadbalancing"-  , _svcVersion = "2015-12-01"-  , _svcEndpoint = defaultEndpoint eLBv2-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseXMLError "ELBv2"-  , _svcRetry = retry-  }+    { _svcAbbrev = "ELBv2"+    , _svcSigner = v4+    , _svcPrefix = "elasticloadbalancing"+    , _svcVersion = "2015-12-01"+    , _svcEndpoint = defaultEndpoint eLBv2+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError "ELBv2"+    , _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"@@ -287,6 +287,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"

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.ELBv2.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@@ -49,11 +49,11 @@  -- | The type of action. aType :: Lens' Action ActionTypeEnum-aType = lens _aType (\ s a -> s{_aType = a});+aType = lens _aType (\ s a -> s{_aType = a})  -- | The Amazon Resource Name (ARN) of the target group. aTargetGroupARN :: Lens' Action Text-aTargetGroupARN = lens _aTargetGroupARN (\ s a -> s{_aTargetGroupARN = a});+aTargetGroupARN = lens _aTargetGroupARN (\ s a -> s{_aTargetGroupARN = a})  instance FromXML Action where         parseXML x@@ -95,23 +95,23 @@     :: AvailabilityZone availabilityZone =   AvailabilityZone'-  { _azSubnetId = Nothing-  , _azZoneName = Nothing-  , _azLoadBalancerAddresses = Nothing-  }+    { _azSubnetId = Nothing+    , _azZoneName = Nothing+    , _azLoadBalancerAddresses = Nothing+    }   -- | The ID of the subnet. azSubnetId :: Lens' AvailabilityZone (Maybe Text)-azSubnetId = lens _azSubnetId (\ s a -> s{_azSubnetId = a});+azSubnetId = lens _azSubnetId (\ s a -> s{_azSubnetId = a})  -- | The name of the Availability Zone. azZoneName :: Lens' AvailabilityZone (Maybe Text)-azZoneName = lens _azZoneName (\ s a -> s{_azZoneName = a});+azZoneName = lens _azZoneName (\ s a -> s{_azZoneName = a})  -- | [Network Load Balancers] The static IP address. azLoadBalancerAddresses :: Lens' AvailabilityZone [LoadBalancerAddress]-azLoadBalancerAddresses = lens _azLoadBalancerAddresses (\ s a -> s{_azLoadBalancerAddresses = a}) . _Default . _Coerce;+azLoadBalancerAddresses = lens _azLoadBalancerAddresses (\ s a -> s{_azLoadBalancerAddresses = a}) . _Default . _Coerce  instance FromXML AvailabilityZone where         parseXML x@@ -149,11 +149,11 @@  -- | The Amazon Resource Name (ARN) of the certificate. cCertificateARN :: Lens' Certificate (Maybe Text)-cCertificateARN = lens _cCertificateARN (\ s a -> s{_cCertificateARN = a});+cCertificateARN = lens _cCertificateARN (\ s a -> s{_cCertificateARN = a})  -- | Indicates whether the certificate is the default certificate. cIsDefault :: Lens' Certificate (Maybe Bool)-cIsDefault = lens _cIsDefault (\ s a -> s{_cIsDefault = a});+cIsDefault = lens _cIsDefault (\ s a -> s{_cIsDefault = a})  instance FromXML Certificate where         parseXML x@@ -195,11 +195,11 @@  -- | The priority of the cipher. cPriority :: Lens' Cipher (Maybe Int)-cPriority = lens _cPriority (\ s a -> s{_cPriority = a});+cPriority = lens _cPriority (\ s a -> s{_cPriority = a})  -- | The name of the cipher. cName :: Lens' Cipher (Maybe Text)-cName = lens _cName (\ s a -> s{_cName = a});+cName = lens _cName (\ s a -> s{_cName = a})  instance FromXML Cipher where         parseXML x@@ -234,11 +234,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:     * application-load-balancers     * listeners-per-application-load-balancer     * listeners-per-network-load-balancer     * network-load-balancers     * rules-per-application-load-balancer     * target-groups     * targets-per-application-load-balancer     * targets-per-availability-zone-per-network-load-balancer     * targets-per-network-load-balancer 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@@ -285,43 +285,43 @@     :: Listener listener =   Listener'-  { _lSSLPolicy = Nothing-  , _lListenerARN = Nothing-  , _lProtocol = Nothing-  , _lDefaultActions = Nothing-  , _lCertificates = Nothing-  , _lLoadBalancerARN = Nothing-  , _lPort = Nothing-  }+    { _lSSLPolicy = Nothing+    , _lListenerARN = Nothing+    , _lProtocol = Nothing+    , _lDefaultActions = Nothing+    , _lCertificates = Nothing+    , _lLoadBalancerARN = Nothing+    , _lPort = Nothing+    }   -- | The security policy that defines which ciphers and protocols are supported. The default is the current predefined security policy. lSSLPolicy :: Lens' Listener (Maybe Text)-lSSLPolicy = lens _lSSLPolicy (\ s a -> s{_lSSLPolicy = a});+lSSLPolicy = lens _lSSLPolicy (\ s a -> s{_lSSLPolicy = a})  -- | The Amazon Resource Name (ARN) of the listener. lListenerARN :: Lens' Listener (Maybe Text)-lListenerARN = lens _lListenerARN (\ s a -> s{_lListenerARN = a});+lListenerARN = lens _lListenerARN (\ s a -> s{_lListenerARN = a})  -- | The protocol for connections from clients to the load balancer. lProtocol :: Lens' Listener (Maybe ProtocolEnum)-lProtocol = lens _lProtocol (\ s a -> s{_lProtocol = a});+lProtocol = lens _lProtocol (\ s a -> s{_lProtocol = a})  -- | The default actions for the listener. lDefaultActions :: Lens' Listener [Action]-lDefaultActions = lens _lDefaultActions (\ s a -> s{_lDefaultActions = a}) . _Default . _Coerce;+lDefaultActions = lens _lDefaultActions (\ s a -> s{_lDefaultActions = a}) . _Default . _Coerce  -- | The SSL server certificate. You must provide a certificate if the protocol is HTTPS. lCertificates :: Lens' Listener [Certificate]-lCertificates = lens _lCertificates (\ s a -> s{_lCertificates = a}) . _Default . _Coerce;+lCertificates = lens _lCertificates (\ s a -> s{_lCertificates = a}) . _Default . _Coerce  -- | The Amazon Resource Name (ARN) of the load balancer. lLoadBalancerARN :: Lens' Listener (Maybe Text)-lLoadBalancerARN = lens _lLoadBalancerARN (\ s a -> s{_lLoadBalancerARN = a});+lLoadBalancerARN = lens _lLoadBalancerARN (\ s a -> s{_lLoadBalancerARN = a})  -- | The port on which the load balancer is listening. lPort :: Lens' Listener (Maybe Natural)-lPort = lens _lPort (\ s a -> s{_lPort = a}) . mapping _Nat;+lPort = lens _lPort (\ s a -> s{_lPort = a}) . mapping _Nat  instance FromXML Listener where         parseXML x@@ -393,68 +393,68 @@     :: LoadBalancer loadBalancer =   LoadBalancer'-  { _lbState = Nothing-  , _lbSecurityGroups = Nothing-  , _lbLoadBalancerName = Nothing-  , _lbCreatedTime = Nothing-  , _lbVPCId = Nothing-  , _lbCanonicalHostedZoneId = Nothing-  , _lbAvailabilityZones = Nothing-  , _lbLoadBalancerARN = Nothing-  , _lbIPAddressType = Nothing-  , _lbScheme = Nothing-  , _lbType = Nothing-  , _lbDNSName = Nothing-  }+    { _lbState = Nothing+    , _lbSecurityGroups = Nothing+    , _lbLoadBalancerName = Nothing+    , _lbCreatedTime = Nothing+    , _lbVPCId = Nothing+    , _lbCanonicalHostedZoneId = Nothing+    , _lbAvailabilityZones = Nothing+    , _lbLoadBalancerARN = Nothing+    , _lbIPAddressType = Nothing+    , _lbScheme = Nothing+    , _lbType = Nothing+    , _lbDNSName = Nothing+    }   -- | The state of the load balancer. lbState :: Lens' LoadBalancer (Maybe LoadBalancerState)-lbState = lens _lbState (\ s a -> s{_lbState = a});+lbState = lens _lbState (\ s a -> s{_lbState = a})  -- | The IDs of the security groups for the load balancer. lbSecurityGroups :: Lens' LoadBalancer [Text]-lbSecurityGroups = lens _lbSecurityGroups (\ s a -> s{_lbSecurityGroups = a}) . _Default . _Coerce;+lbSecurityGroups = lens _lbSecurityGroups (\ s a -> s{_lbSecurityGroups = a}) . _Default . _Coerce  -- | The name of the load balancer. lbLoadBalancerName :: Lens' LoadBalancer (Maybe Text)-lbLoadBalancerName = lens _lbLoadBalancerName (\ s a -> s{_lbLoadBalancerName = a});+lbLoadBalancerName = lens _lbLoadBalancerName (\ s a -> s{_lbLoadBalancerName = a})  -- | The date and time the load balancer was created. lbCreatedTime :: Lens' LoadBalancer (Maybe UTCTime)-lbCreatedTime = lens _lbCreatedTime (\ s a -> s{_lbCreatedTime = a}) . mapping _Time;+lbCreatedTime = lens _lbCreatedTime (\ s a -> s{_lbCreatedTime = a}) . mapping _Time  -- | The ID of the VPC for the load balancer. lbVPCId :: Lens' LoadBalancer (Maybe Text)-lbVPCId = lens _lbVPCId (\ s a -> s{_lbVPCId = a});+lbVPCId = lens _lbVPCId (\ s a -> s{_lbVPCId = a})  -- | The ID of the Amazon Route 53 hosted zone associated with the load balancer. lbCanonicalHostedZoneId :: Lens' LoadBalancer (Maybe Text)-lbCanonicalHostedZoneId = lens _lbCanonicalHostedZoneId (\ s a -> s{_lbCanonicalHostedZoneId = a});+lbCanonicalHostedZoneId = lens _lbCanonicalHostedZoneId (\ s a -> s{_lbCanonicalHostedZoneId = a})  -- | The Availability Zones for the load balancer. lbAvailabilityZones :: Lens' LoadBalancer [AvailabilityZone]-lbAvailabilityZones = lens _lbAvailabilityZones (\ s a -> s{_lbAvailabilityZones = a}) . _Default . _Coerce;+lbAvailabilityZones = lens _lbAvailabilityZones (\ s a -> s{_lbAvailabilityZones = a}) . _Default . _Coerce  -- | The Amazon Resource Name (ARN) of the load balancer. lbLoadBalancerARN :: Lens' LoadBalancer (Maybe Text)-lbLoadBalancerARN = lens _lbLoadBalancerARN (\ s a -> s{_lbLoadBalancerARN = a});+lbLoadBalancerARN = lens _lbLoadBalancerARN (\ s a -> s{_lbLoadBalancerARN = a})  -- | The type of IP addresses used by the subnets for your load balancer. The possible values are @ipv4@ (for IPv4 addresses) and @dualstack@ (for IPv4 and IPv6 addresses). lbIPAddressType :: Lens' LoadBalancer (Maybe IPAddressType)-lbIPAddressType = lens _lbIPAddressType (\ s a -> s{_lbIPAddressType = a});+lbIPAddressType = lens _lbIPAddressType (\ s a -> s{_lbIPAddressType = a})  -- | The nodes of an Internet-facing load balancer have public IP addresses. The DNS name of an Internet-facing load balancer is publicly resolvable to the public IP addresses of the nodes. Therefore, Internet-facing load balancers can route requests from clients over the Internet. The nodes of an internal load balancer have only private IP addresses. The DNS name of an internal load balancer is publicly resolvable to the private IP addresses of the nodes. Therefore, internal load balancers can only route requests from clients with access to the VPC for the load balancer. lbScheme :: Lens' LoadBalancer (Maybe LoadBalancerSchemeEnum)-lbScheme = lens _lbScheme (\ s a -> s{_lbScheme = a});+lbScheme = lens _lbScheme (\ s a -> s{_lbScheme = a})  -- | The type of load balancer. lbType :: Lens' LoadBalancer (Maybe LoadBalancerTypeEnum)-lbType = lens _lbType (\ s a -> s{_lbType = a});+lbType = lens _lbType (\ s a -> s{_lbType = a})  -- | The public DNS name of the load balancer. lbDNSName :: Lens' LoadBalancer (Maybe Text)-lbDNSName = lens _lbDNSName (\ s a -> s{_lbDNSName = a});+lbDNSName = lens _lbDNSName (\ s a -> s{_lbDNSName = a})  instance FromXML LoadBalancer where         parseXML x@@ -505,11 +505,11 @@  -- | The static IP address. lbaIPAddress :: Lens' LoadBalancerAddress (Maybe Text)-lbaIPAddress = lens _lbaIPAddress (\ s a -> s{_lbaIPAddress = a});+lbaIPAddress = lens _lbaIPAddress (\ s a -> s{_lbaIPAddress = a})  -- | [Network Load Balancers] The allocation ID of the Elastic IP address. lbaAllocationId :: Lens' LoadBalancerAddress (Maybe Text)-lbaAllocationId = lens _lbaAllocationId (\ s a -> s{_lbaAllocationId = a});+lbaAllocationId = lens _lbaAllocationId (\ s a -> s{_lbaAllocationId = a})  instance FromXML LoadBalancerAddress where         parseXML x@@ -537,7 +537,7 @@ -- -- * 'lbaValue' - The value of the attribute. ----- * 'lbaKey' - The name of the attribute.     * @access_logs.s3.enabled@ - [Application Load Balancers] Indicates whether access logs stored in Amazon S3 are enabled. The value is @true@ or @false@ .     * @access_logs.s3.bucket@ - [Application Load Balancers] The name of the S3 bucket for the access logs. This attribute is required if access logs in Amazon S3 are enabled. The bucket must exist in the same region as the load balancer and have a bucket policy that grants Elastic Load Balancing permission to write to the bucket.     * @access_logs.s3.prefix@ - [Application Load Balancers] The prefix for the location in the S3 bucket. If you don't specify a prefix, the access logs are stored in the root of the bucket.     * @deletion_protection.enabled@ - Indicates whether deletion protection is enabled. The value is @true@ or @false@ .     * @idle_timeout.timeout_seconds@ - [Application Load Balancers] The idle timeout value, in seconds. The valid range is 1-4000. The default is 60 seconds.+-- * 'lbaKey' - The name of the attribute.     * @access_logs.s3.enabled@ - [Application Load Balancers] Indicates whether access logs stored in Amazon S3 are enabled. The value is @true@ or @false@ .     * @access_logs.s3.bucket@ - [Application Load Balancers] The name of the S3 bucket for the access logs. This attribute is required if access logs in Amazon S3 are enabled. The bucket must exist in the same region as the load balancer and have a bucket policy that grants Elastic Load Balancing permission to write to the bucket.     * @access_logs.s3.prefix@ - [Application Load Balancers] The prefix for the location in the S3 bucket. If you don't specify a prefix, the access logs are stored in the root of the bucket.     * @deletion_protection.enabled@ - Indicates whether deletion protection is enabled. The value is @true@ or @false@ .     * @idle_timeout.timeout_seconds@ - [Application Load Balancers] The idle timeout value, in seconds. The valid range is 1-4000. The default is 60 seconds.     * @load_balancing.cross_zone.enabled@ - [Network Load Balancers] Indicates whether cross-zone load balancing is enabled. The value is @true@ or @false@ . The default is @false@ .     * @routing.http2.enabled@ - [Application Load Balancers] Indicates whether HTTP/2 is enabled. The value is @true@ or @false@ . The default is @true@ . loadBalancerAttribute     :: LoadBalancerAttribute loadBalancerAttribute =@@ -546,11 +546,11 @@  -- | The value of the attribute. lbaValue :: Lens' LoadBalancerAttribute (Maybe Text)-lbaValue = lens _lbaValue (\ s a -> s{_lbaValue = a});+lbaValue = lens _lbaValue (\ s a -> s{_lbaValue = a}) --- | The name of the attribute.     * @access_logs.s3.enabled@ - [Application Load Balancers] Indicates whether access logs stored in Amazon S3 are enabled. The value is @true@ or @false@ .     * @access_logs.s3.bucket@ - [Application Load Balancers] The name of the S3 bucket for the access logs. This attribute is required if access logs in Amazon S3 are enabled. The bucket must exist in the same region as the load balancer and have a bucket policy that grants Elastic Load Balancing permission to write to the bucket.     * @access_logs.s3.prefix@ - [Application Load Balancers] The prefix for the location in the S3 bucket. If you don't specify a prefix, the access logs are stored in the root of the bucket.     * @deletion_protection.enabled@ - Indicates whether deletion protection is enabled. The value is @true@ or @false@ .     * @idle_timeout.timeout_seconds@ - [Application Load Balancers] The idle timeout value, in seconds. The valid range is 1-4000. The default is 60 seconds.+-- | The name of the attribute.     * @access_logs.s3.enabled@ - [Application Load Balancers] Indicates whether access logs stored in Amazon S3 are enabled. The value is @true@ or @false@ .     * @access_logs.s3.bucket@ - [Application Load Balancers] The name of the S3 bucket for the access logs. This attribute is required if access logs in Amazon S3 are enabled. The bucket must exist in the same region as the load balancer and have a bucket policy that grants Elastic Load Balancing permission to write to the bucket.     * @access_logs.s3.prefix@ - [Application Load Balancers] The prefix for the location in the S3 bucket. If you don't specify a prefix, the access logs are stored in the root of the bucket.     * @deletion_protection.enabled@ - Indicates whether deletion protection is enabled. The value is @true@ or @false@ .     * @idle_timeout.timeout_seconds@ - [Application Load Balancers] The idle timeout value, in seconds. The valid range is 1-4000. The default is 60 seconds.     * @load_balancing.cross_zone.enabled@ - [Network Load Balancers] Indicates whether cross-zone load balancing is enabled. The value is @true@ or @false@ . The default is @false@ .     * @routing.http2.enabled@ - [Application Load Balancers] Indicates whether HTTP/2 is enabled. The value is @true@ or @false@ . The default is @true@ . lbaKey :: Lens' LoadBalancerAttribute (Maybe Text)-lbaKey = lens _lbaKey (\ s a -> s{_lbaKey = a});+lbaKey = lens _lbaKey (\ s a -> s{_lbaKey = a})  instance FromXML LoadBalancerAttribute where         parseXML x@@ -591,11 +591,11 @@  -- | A description of the state. lbsReason :: Lens' LoadBalancerState (Maybe Text)-lbsReason = lens _lbsReason (\ s a -> s{_lbsReason = a});+lbsReason = lens _lbsReason (\ s a -> s{_lbsReason = a})  -- | The state code. The initial state of the load balancer is @provisioning@ . After the load balancer is fully set up and ready to route traffic, its state is @active@ . If the load balancer could not be set up, its state is @failed@ . lbsCode :: Lens' LoadBalancerState (Maybe LoadBalancerStateEnum)-lbsCode = lens _lbsCode (\ s a -> s{_lbsCode = a});+lbsCode = lens _lbsCode (\ s a -> s{_lbsCode = a})  instance FromXML LoadBalancerState where         parseXML x@@ -629,7 +629,7 @@  -- | The HTTP codes. For Application Load Balancers, you can specify values between 200 and 499, and the default value is 200. You can specify multiple values (for example, "200,202") or a range of values (for example, "200-299"). For Network Load Balancers, this is 200 to 399. mHTTPCode :: Lens' Matcher Text-mHTTPCode = lens _mHTTPCode (\ s a -> s{_mHTTPCode = a});+mHTTPCode = lens _mHTTPCode (\ s a -> s{_mHTTPCode = a})  instance FromXML Matcher where         parseXML x = Matcher' <$> (x .@ "HttpCode")@@ -673,33 +673,33 @@     :: Rule rule =   Rule'-  { _rPriority = Nothing-  , _rActions = Nothing-  , _rConditions = Nothing-  , _rRuleARN = Nothing-  , _rIsDefault = Nothing-  }+    { _rPriority = Nothing+    , _rActions = Nothing+    , _rConditions = Nothing+    , _rRuleARN = Nothing+    , _rIsDefault = Nothing+    }   -- | The priority. rPriority :: Lens' Rule (Maybe Text)-rPriority = lens _rPriority (\ s a -> s{_rPriority = a});+rPriority = lens _rPriority (\ s a -> s{_rPriority = a})  -- | The actions. rActions :: Lens' Rule [Action]-rActions = lens _rActions (\ s a -> s{_rActions = a}) . _Default . _Coerce;+rActions = lens _rActions (\ s a -> s{_rActions = a}) . _Default . _Coerce  -- | The conditions. rConditions :: Lens' Rule [RuleCondition]-rConditions = lens _rConditions (\ s a -> s{_rConditions = a}) . _Default . _Coerce;+rConditions = lens _rConditions (\ s a -> s{_rConditions = a}) . _Default . _Coerce  -- | The Amazon Resource Name (ARN) of the rule. rRuleARN :: Lens' Rule (Maybe Text)-rRuleARN = lens _rRuleARN (\ s a -> s{_rRuleARN = a});+rRuleARN = lens _rRuleARN (\ s a -> s{_rRuleARN = a})  -- | Indicates whether this is the default rule. rIsDefault :: Lens' Rule (Maybe Bool)-rIsDefault = lens _rIsDefault (\ s a -> s{_rIsDefault = a});+rIsDefault = lens _rIsDefault (\ s a -> s{_rIsDefault = a})  instance FromXML Rule where         parseXML x@@ -742,11 +742,11 @@  -- | The name of the field. The possible values are @host-header@ and @path-pattern@ . rcField :: Lens' RuleCondition (Maybe Text)-rcField = lens _rcField (\ s a -> s{_rcField = a});+rcField = lens _rcField (\ s a -> s{_rcField = a})  -- | The condition value. If the field name is @host-header@ , you can specify a single host name (for example, my.example.com). A host name is case insensitive, can be up to 128 characters in length, and can contain any of the following characters. Note that you can include up to three wildcard characters.     * A-Z, a-z, 0-9     * - .     * * (matches 0 or more characters)     * ? (matches exactly 1 character) If the field name is @path-pattern@ , you can specify a single path pattern (for example, /img/*). A path pattern is case sensitive, can be up to 128 characters in length, and can contain any of the following characters. Note that you can include up to three wildcard characters.     * A-Z, a-z, 0-9     * _ - . $ / ~ " ' @ : +     * & (using &amp;)     * * (matches 0 or more characters)     * ? (matches exactly 1 character) rcValues :: Lens' RuleCondition [Text]-rcValues = lens _rcValues (\ s a -> s{_rcValues = a}) . _Default . _Coerce;+rcValues = lens _rcValues (\ s a -> s{_rcValues = a}) . _Default . _Coerce  instance FromXML RuleCondition where         parseXML x@@ -792,11 +792,11 @@  -- | The rule priority. rppPriority :: Lens' RulePriorityPair (Maybe Natural)-rppPriority = lens _rppPriority (\ s a -> s{_rppPriority = a}) . mapping _Nat;+rppPriority = lens _rppPriority (\ s a -> s{_rppPriority = a}) . mapping _Nat  -- | The Amazon Resource Name (ARN) of the rule. rppRuleARN :: Lens' RulePriorityPair (Maybe Text)-rppRuleARN = lens _rppRuleARN (\ s a -> s{_rppRuleARN = a});+rppRuleARN = lens _rppRuleARN (\ s a -> s{_rppRuleARN = a})  instance Hashable RulePriorityPair where @@ -833,20 +833,20 @@     :: SSLPolicy sslPolicy =   SSLPolicy'-  {_spCiphers = Nothing, _spName = Nothing, _spSSLProtocols = Nothing}+    {_spCiphers = Nothing, _spName = Nothing, _spSSLProtocols = Nothing}   -- | The ciphers. spCiphers :: Lens' SSLPolicy [Cipher]-spCiphers = lens _spCiphers (\ s a -> s{_spCiphers = a}) . _Default . _Coerce;+spCiphers = lens _spCiphers (\ s a -> s{_spCiphers = a}) . _Default . _Coerce  -- | The name of the policy. spName :: Lens' SSLPolicy (Maybe Text)-spName = lens _spName (\ s a -> s{_spName = a});+spName = lens _spName (\ s a -> s{_spName = a})  -- | The protocols. spSSLProtocols :: Lens' SSLPolicy [Text]-spSSLProtocols = lens _spSSLProtocols (\ s a -> s{_spSSLProtocols = a}) . _Default . _Coerce;+spSSLProtocols = lens _spSSLProtocols (\ s a -> s{_spSSLProtocols = a}) . _Default . _Coerce  instance FromXML SSLPolicy where         parseXML x@@ -888,11 +888,11 @@  -- | [Network Load Balancers] The allocation ID of the Elastic IP address. smAllocationId :: Lens' SubnetMapping (Maybe Text)-smAllocationId = lens _smAllocationId (\ s a -> s{_smAllocationId = a});+smAllocationId = lens _smAllocationId (\ s a -> s{_smAllocationId = a})  -- | The ID of the subnet. smSubnetId :: Lens' SubnetMapping (Maybe Text)-smSubnetId = lens _smSubnetId (\ s a -> s{_smSubnetId = a});+smSubnetId = lens _smSubnetId (\ s a -> s{_smSubnetId = a})  instance Hashable SubnetMapping where @@ -930,11 +930,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@@ -973,11 +973,11 @@  -- | The Amazon Resource Name (ARN) of the resource. tdResourceARN :: Lens' TagDescription (Maybe Text)-tdResourceARN = lens _tdResourceARN (\ s a -> s{_tdResourceARN = a});+tdResourceARN = lens _tdResourceARN (\ s a -> s{_tdResourceARN = a})  -- | Information about 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@@ -1016,20 +1016,20 @@     -> TargetDescription targetDescription pId_ =   TargetDescription'-  {_tdAvailabilityZone = Nothing, _tdPort = Nothing, _tdId = pId_}+    {_tdAvailabilityZone = Nothing, _tdPort = Nothing, _tdId = pId_}   -- | An Availability Zone or @all@ . This determines whether the target receives traffic from the load balancer nodes in the specified Availability Zone or from all enabled Availability Zones for the load balancer. This parameter is not supported if the target type of the target group is @instance@ . If the IP address is in a subnet of the VPC for the target group, the Availability Zone is automatically detected and this parameter is optional. If the IP address is outside the VPC, this parameter is required. With an Application Load Balancer, if the IP address is outside the VPC for the target group, the only supported value is @all@ . tdAvailabilityZone :: Lens' TargetDescription (Maybe Text)-tdAvailabilityZone = lens _tdAvailabilityZone (\ s a -> s{_tdAvailabilityZone = a});+tdAvailabilityZone = lens _tdAvailabilityZone (\ s a -> s{_tdAvailabilityZone = a})  -- | The port on which the target is listening. tdPort :: Lens' TargetDescription (Maybe Natural)-tdPort = lens _tdPort (\ s a -> s{_tdPort = a}) . mapping _Nat;+tdPort = lens _tdPort (\ s a -> s{_tdPort = a}) . mapping _Nat  -- | The ID of the target. If the target type of the target group is @instance@ , specify an instance ID. If the target type is @ip@ , specify an IP address. tdId :: Lens' TargetDescription Text-tdId = lens _tdId (\ s a -> s{_tdId = a});+tdId = lens _tdId (\ s a -> s{_tdId = a})  instance FromXML TargetDescription where         parseXML x@@ -1108,83 +1108,83 @@     :: TargetGroup targetGroup =   TargetGroup'-  { _tgMatcher = Nothing-  , _tgHealthCheckPath = Nothing-  , _tgUnhealthyThresholdCount = Nothing-  , _tgVPCId = Nothing-  , _tgTargetGroupARN = Nothing-  , _tgProtocol = Nothing-  , _tgHealthCheckIntervalSeconds = Nothing-  , _tgTargetType = Nothing-  , _tgHealthyThresholdCount = Nothing-  , _tgHealthCheckProtocol = Nothing-  , _tgLoadBalancerARNs = Nothing-  , _tgHealthCheckTimeoutSeconds = Nothing-  , _tgHealthCheckPort = Nothing-  , _tgTargetGroupName = Nothing-  , _tgPort = Nothing-  }+    { _tgMatcher = Nothing+    , _tgHealthCheckPath = Nothing+    , _tgUnhealthyThresholdCount = Nothing+    , _tgVPCId = Nothing+    , _tgTargetGroupARN = Nothing+    , _tgProtocol = Nothing+    , _tgHealthCheckIntervalSeconds = Nothing+    , _tgTargetType = Nothing+    , _tgHealthyThresholdCount = Nothing+    , _tgHealthCheckProtocol = Nothing+    , _tgLoadBalancerARNs = Nothing+    , _tgHealthCheckTimeoutSeconds = Nothing+    , _tgHealthCheckPort = Nothing+    , _tgTargetGroupName = Nothing+    , _tgPort = Nothing+    }   -- | The HTTP codes to use when checking for a successful response from a target. tgMatcher :: Lens' TargetGroup (Maybe Matcher)-tgMatcher = lens _tgMatcher (\ s a -> s{_tgMatcher = a});+tgMatcher = lens _tgMatcher (\ s a -> s{_tgMatcher = a})  -- | The destination for the health check request. tgHealthCheckPath :: Lens' TargetGroup (Maybe Text)-tgHealthCheckPath = lens _tgHealthCheckPath (\ s a -> s{_tgHealthCheckPath = a});+tgHealthCheckPath = lens _tgHealthCheckPath (\ s a -> s{_tgHealthCheckPath = a})  -- | The number of consecutive health check failures required before considering the target unhealthy. tgUnhealthyThresholdCount :: Lens' TargetGroup (Maybe Natural)-tgUnhealthyThresholdCount = lens _tgUnhealthyThresholdCount (\ s a -> s{_tgUnhealthyThresholdCount = a}) . mapping _Nat;+tgUnhealthyThresholdCount = lens _tgUnhealthyThresholdCount (\ s a -> s{_tgUnhealthyThresholdCount = a}) . mapping _Nat  -- | The ID of the VPC for the targets. tgVPCId :: Lens' TargetGroup (Maybe Text)-tgVPCId = lens _tgVPCId (\ s a -> s{_tgVPCId = a});+tgVPCId = lens _tgVPCId (\ s a -> s{_tgVPCId = a})  -- | The Amazon Resource Name (ARN) of the target group. tgTargetGroupARN :: Lens' TargetGroup (Maybe Text)-tgTargetGroupARN = lens _tgTargetGroupARN (\ s a -> s{_tgTargetGroupARN = a});+tgTargetGroupARN = lens _tgTargetGroupARN (\ s a -> s{_tgTargetGroupARN = a})  -- | The protocol to use for routing traffic to the targets. tgProtocol :: Lens' TargetGroup (Maybe ProtocolEnum)-tgProtocol = lens _tgProtocol (\ s a -> s{_tgProtocol = a});+tgProtocol = lens _tgProtocol (\ s a -> s{_tgProtocol = a})  -- | The approximate amount of time, in seconds, between health checks of an individual target. tgHealthCheckIntervalSeconds :: Lens' TargetGroup (Maybe Natural)-tgHealthCheckIntervalSeconds = lens _tgHealthCheckIntervalSeconds (\ s a -> s{_tgHealthCheckIntervalSeconds = a}) . mapping _Nat;+tgHealthCheckIntervalSeconds = lens _tgHealthCheckIntervalSeconds (\ s a -> s{_tgHealthCheckIntervalSeconds = a}) . mapping _Nat  -- | The type of target that you must specify when registering targets with this target group. The possible values are @instance@ (targets are specified by instance ID) or @ip@ (targets are specified by IP address). tgTargetType :: Lens' TargetGroup (Maybe TargetTypeEnum)-tgTargetType = lens _tgTargetType (\ s a -> s{_tgTargetType = a});+tgTargetType = lens _tgTargetType (\ s a -> s{_tgTargetType = a})  -- | The number of consecutive health checks successes required before considering an unhealthy target healthy. tgHealthyThresholdCount :: Lens' TargetGroup (Maybe Natural)-tgHealthyThresholdCount = lens _tgHealthyThresholdCount (\ s a -> s{_tgHealthyThresholdCount = a}) . mapping _Nat;+tgHealthyThresholdCount = lens _tgHealthyThresholdCount (\ s a -> s{_tgHealthyThresholdCount = a}) . mapping _Nat  -- | The protocol to use to connect with the target. tgHealthCheckProtocol :: Lens' TargetGroup (Maybe ProtocolEnum)-tgHealthCheckProtocol = lens _tgHealthCheckProtocol (\ s a -> s{_tgHealthCheckProtocol = a});+tgHealthCheckProtocol = lens _tgHealthCheckProtocol (\ s a -> s{_tgHealthCheckProtocol = a})  -- | The Amazon Resource Names (ARN) of the load balancers that route traffic to this target group. tgLoadBalancerARNs :: Lens' TargetGroup [Text]-tgLoadBalancerARNs = lens _tgLoadBalancerARNs (\ s a -> s{_tgLoadBalancerARNs = a}) . _Default . _Coerce;+tgLoadBalancerARNs = lens _tgLoadBalancerARNs (\ s a -> s{_tgLoadBalancerARNs = a}) . _Default . _Coerce  -- | The amount of time, in seconds, during which no response means a failed health check. tgHealthCheckTimeoutSeconds :: Lens' TargetGroup (Maybe Natural)-tgHealthCheckTimeoutSeconds = lens _tgHealthCheckTimeoutSeconds (\ s a -> s{_tgHealthCheckTimeoutSeconds = a}) . mapping _Nat;+tgHealthCheckTimeoutSeconds = lens _tgHealthCheckTimeoutSeconds (\ s a -> s{_tgHealthCheckTimeoutSeconds = a}) . mapping _Nat  -- | The port to use to connect with the target. tgHealthCheckPort :: Lens' TargetGroup (Maybe Text)-tgHealthCheckPort = lens _tgHealthCheckPort (\ s a -> s{_tgHealthCheckPort = a});+tgHealthCheckPort = lens _tgHealthCheckPort (\ s a -> s{_tgHealthCheckPort = a})  -- | The name of the target group. tgTargetGroupName :: Lens' TargetGroup (Maybe Text)-tgTargetGroupName = lens _tgTargetGroupName (\ s a -> s{_tgTargetGroupName = a});+tgTargetGroupName = lens _tgTargetGroupName (\ s a -> s{_tgTargetGroupName = a})  -- | The port on which the targets are listening. tgPort :: Lens' TargetGroup (Maybe Natural)-tgPort = lens _tgPort (\ s a -> s{_tgPort = a}) . mapping _Nat;+tgPort = lens _tgPort (\ s a -> s{_tgPort = a}) . mapping _Nat  instance FromXML TargetGroup where         parseXML x@@ -1227,7 +1227,7 @@ -- -- * 'tgaValue' - The value of the attribute. ----- * 'tgaKey' - The name of the attribute.     * @deregistration_delay.timeout_seconds@ - The amount time for Elastic Load Balancing to wait before changing the state of a deregistering target from @draining@ to @unused@ . The range is 0-3600 seconds. The default value is 300 seconds.     * @stickiness.enabled@ - [Application Load Balancers] Indicates whether sticky sessions are enabled. The value is @true@ or @false@ .     * @stickiness.type@ - [Application Load Balancers] The type of sticky sessions. The possible value is @lb_cookie@ .     * @stickiness.lb_cookie.duration_seconds@ - [Application Load Balancers] The time period, in seconds, during which requests from a client should be routed to the same target. After this time period expires, the load balancer-generated cookie is considered stale. The range is 1 second to 1 week (604800 seconds). The default value is 1 day (86400 seconds).+-- * 'tgaKey' - The name of the attribute.     * @deregistration_delay.timeout_seconds@ - The amount time for Elastic Load Balancing to wait before changing the state of a deregistering target from @draining@ to @unused@ . The range is 0-3600 seconds. The default value is 300 seconds.     * @proxy_protocol_v2.enabled@ - [Network Load Balancers] Indicates whether Proxy Protocol version 2 is enabled.     * @stickiness.enabled@ - [Application Load Balancers] Indicates whether sticky sessions are enabled. The value is @true@ or @false@ .     * @stickiness.type@ - [Application Load Balancers] The type of sticky sessions. The possible value is @lb_cookie@ .     * @stickiness.lb_cookie.duration_seconds@ - [Application Load Balancers] The time period, in seconds, during which requests from a client should be routed to the same target. After this time period expires, the load balancer-generated cookie is considered stale. The range is 1 second to 1 week (604800 seconds). The default value is 1 day (86400 seconds). targetGroupAttribute     :: TargetGroupAttribute targetGroupAttribute =@@ -1236,11 +1236,11 @@  -- | The value of the attribute. tgaValue :: Lens' TargetGroupAttribute (Maybe Text)-tgaValue = lens _tgaValue (\ s a -> s{_tgaValue = a});+tgaValue = lens _tgaValue (\ s a -> s{_tgaValue = a}) --- | The name of the attribute.     * @deregistration_delay.timeout_seconds@ - The amount time for Elastic Load Balancing to wait before changing the state of a deregistering target from @draining@ to @unused@ . The range is 0-3600 seconds. The default value is 300 seconds.     * @stickiness.enabled@ - [Application Load Balancers] Indicates whether sticky sessions are enabled. The value is @true@ or @false@ .     * @stickiness.type@ - [Application Load Balancers] The type of sticky sessions. The possible value is @lb_cookie@ .     * @stickiness.lb_cookie.duration_seconds@ - [Application Load Balancers] The time period, in seconds, during which requests from a client should be routed to the same target. After this time period expires, the load balancer-generated cookie is considered stale. The range is 1 second to 1 week (604800 seconds). The default value is 1 day (86400 seconds).+-- | The name of the attribute.     * @deregistration_delay.timeout_seconds@ - The amount time for Elastic Load Balancing to wait before changing the state of a deregistering target from @draining@ to @unused@ . The range is 0-3600 seconds. The default value is 300 seconds.     * @proxy_protocol_v2.enabled@ - [Network Load Balancers] Indicates whether Proxy Protocol version 2 is enabled.     * @stickiness.enabled@ - [Application Load Balancers] Indicates whether sticky sessions are enabled. The value is @true@ or @false@ .     * @stickiness.type@ - [Application Load Balancers] The type of sticky sessions. The possible value is @lb_cookie@ .     * @stickiness.lb_cookie.duration_seconds@ - [Application Load Balancers] The time period, in seconds, during which requests from a client should be routed to the same target. After this time period expires, the load balancer-generated cookie is considered stale. The range is 1 second to 1 week (604800 seconds). The default value is 1 day (86400 seconds). tgaKey :: Lens' TargetGroupAttribute (Maybe Text)-tgaKey = lens _tgaKey (\ s a -> s{_tgaKey = a});+tgaKey = lens _tgaKey (\ s a -> s{_tgaKey = a})  instance FromXML TargetGroupAttribute where         parseXML x@@ -1280,20 +1280,20 @@     :: TargetHealth targetHealth =   TargetHealth'-  {_thState = Nothing, _thReason = Nothing, _thDescription = Nothing}+    {_thState = Nothing, _thReason = Nothing, _thDescription = Nothing}   -- | The state of the target. thState :: Lens' TargetHealth (Maybe TargetHealthStateEnum)-thState = lens _thState (\ s a -> s{_thState = a});+thState = lens _thState (\ s a -> s{_thState = a})  -- | The reason code. If the target state is @healthy@ , a reason code is not provided. If the target state is @initial@ , the reason code can be one of the following values:     * @Elb.RegistrationInProgress@ - The target is in the process of being registered with the load balancer.     * @Elb.InitialHealthChecking@ - The load balancer is still sending the target the minimum number of health checks required to determine its health status. If the target state is @unhealthy@ , the reason code can be one of the following values:     * @Target.ResponseCodeMismatch@ - The health checks did not return an expected HTTP code.     * @Target.Timeout@ - The health check requests timed out.     * @Target.FailedHealthChecks@ - The health checks failed because the connection to the target timed out, the target response was malformed, or the target failed the health check for an unknown reason.     * @Elb.InternalError@ - The health checks failed due to an internal error. If the target state is @unused@ , the reason code can be one of the following values:     * @Target.NotRegistered@ - The target is not registered with the target group.     * @Target.NotInUse@ - The target group is not used by any load balancer or the target is in an Availability Zone that is not enabled for its load balancer.     * @Target.IpUnusable@ - The target IP address is reserved for use by a load balancer.     * @Target.InvalidState@ - The target is in the stopped or terminated state. If the target state is @draining@ , the reason code can be the following value:     * @Target.DeregistrationInProgress@ - The target is in the process of being deregistered and the deregistration delay period has not expired. thReason :: Lens' TargetHealth (Maybe TargetHealthReasonEnum)-thReason = lens _thReason (\ s a -> s{_thReason = a});+thReason = lens _thReason (\ s a -> s{_thReason = a})  -- | A description of the target health that provides additional details. If the state is @healthy@ , a description is not provided. thDescription :: Lens' TargetHealth (Maybe Text)-thDescription = lens _thDescription (\ s a -> s{_thDescription = a});+thDescription = lens _thDescription (\ s a -> s{_thDescription = a})  instance FromXML TargetHealth where         parseXML x@@ -1330,23 +1330,23 @@     :: TargetHealthDescription targetHealthDescription =   TargetHealthDescription'-  { _thdTargetHealth = Nothing-  , _thdHealthCheckPort = Nothing-  , _thdTarget = Nothing-  }+    { _thdTargetHealth = Nothing+    , _thdHealthCheckPort = Nothing+    , _thdTarget = Nothing+    }   -- | The health information for the target. thdTargetHealth :: Lens' TargetHealthDescription (Maybe TargetHealth)-thdTargetHealth = lens _thdTargetHealth (\ s a -> s{_thdTargetHealth = a});+thdTargetHealth = lens _thdTargetHealth (\ s a -> s{_thdTargetHealth = a})  -- | The port to use to connect with the target. thdHealthCheckPort :: Lens' TargetHealthDescription (Maybe Text)-thdHealthCheckPort = lens _thdHealthCheckPort (\ s a -> s{_thdHealthCheckPort = a});+thdHealthCheckPort = lens _thdHealthCheckPort (\ s a -> s{_thdHealthCheckPort = a})  -- | The description of the target. thdTarget :: Lens' TargetHealthDescription (Maybe TargetDescription)-thdTarget = lens _thdTarget (\ s a -> s{_thdTarget = a});+thdTarget = lens _thdTarget (\ s a -> s{_thdTarget = a})  instance FromXML TargetHealthDescription where         parseXML x

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

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.ELBv2.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@@ -15,7 +15,103 @@ -- module Network.AWS.ELBv2.Waiters where +import Network.AWS.ELBv2.DescribeLoadBalancers+import Network.AWS.ELBv2.DescribeLoadBalancers+import Network.AWS.ELBv2.DescribeLoadBalancers+import Network.AWS.ELBv2.DescribeTargetHealth+import Network.AWS.ELBv2.DescribeTargetHealth import Network.AWS.ELBv2.Types import Network.AWS.Lens import Network.AWS.Prelude import Network.AWS.Waiter++-- | Polls 'Network.AWS.ELBv2.DescribeLoadBalancers' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks.+loadBalancersDeleted :: Wait DescribeLoadBalancers+loadBalancersDeleted =+  Wait+    { _waitName = "LoadBalancersDeleted"+    , _waitAttempts = 40+    , _waitDelay = 15+    , _waitAcceptors =+        [ matchAll+            "active"+            AcceptRetry+            (folding (concatOf dlbrsLoadBalancers) .+             lbState . _Just . lbsCode . _Just . to toTextCI)+        , matchError "LoadBalancerNotFound" AcceptSuccess+        ]+    }+++-- | Polls 'Network.AWS.ELBv2.DescribeTargetHealth' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks.+targetDeregistered :: Wait DescribeTargetHealth+targetDeregistered =+  Wait+    { _waitName = "TargetDeregistered"+    , _waitAttempts = 40+    , _waitDelay = 15+    , _waitAcceptors =+        [ matchError "InvalidTarget" AcceptSuccess+        , matchAll+            "unused"+            AcceptSuccess+            (folding (concatOf dthrsTargetHealthDescriptions) .+             thdTargetHealth . _Just . thState . _Just . to toTextCI)+        ]+    }+++-- | Polls 'Network.AWS.ELBv2.DescribeLoadBalancers' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks.+loadBalancerAvailable :: Wait DescribeLoadBalancers+loadBalancerAvailable =+  Wait+    { _waitName = "LoadBalancerAvailable"+    , _waitAttempts = 40+    , _waitDelay = 15+    , _waitAcceptors =+        [ matchAll+            "active"+            AcceptSuccess+            (folding (concatOf dlbrsLoadBalancers) .+             lbState . _Just . lbsCode . _Just . to toTextCI)+        , matchAny+            "provisioning"+            AcceptRetry+            (folding (concatOf dlbrsLoadBalancers) .+             lbState . _Just . lbsCode . _Just . to toTextCI)+        , matchError "LoadBalancerNotFound" AcceptRetry+        ]+    }+++-- | Polls 'Network.AWS.ELBv2.DescribeTargetHealth' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks.+targetInService :: Wait DescribeTargetHealth+targetInService =+  Wait+    { _waitName = "TargetInService"+    , _waitAttempts = 40+    , _waitDelay = 15+    , _waitAcceptors =+        [ matchAll+            "healthy"+            AcceptSuccess+            (folding (concatOf dthrsTargetHealthDescriptions) .+             thdTargetHealth . _Just . thState . _Just . to toTextCI)+        , matchError "InvalidInstance" AcceptRetry+        ]+    }+++-- | Polls 'Network.AWS.ELBv2.DescribeLoadBalancers' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks.+loadBalancerExists :: Wait DescribeLoadBalancers+loadBalancerExists =+  Wait+    { _waitName = "LoadBalancerExists"+    , _waitAttempts = 40+    , _waitDelay = 15+    , _waitAcceptors =+        [ matchStatus 200 AcceptSuccess+        , matchError "LoadBalancerNotFound" AcceptRetry+        ]+    }+

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

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

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

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.ELBv2--- 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