amazonka-elb 1.6.1 → 2.0

raw patch · 133 files changed

+11779/−7806 lines, 133 filesdep +case-insensitivedep ~amazonka-coredep ~amazonka-testdep ~basesetup-changedPVP ok

version bump matches the API change (PVP)

Dependencies added: case-insensitive

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

API changes (from Hackage documentation)

Files

• README.md +3/−4
• Setup.hs +0/−2
• amazonka-elb.cabal +128/−104
• fixture/AddTags.yaml +10/−0
• fixture/ApplySecurityGroupsToLoadBalancer.yaml +10/−0
• fixture/AttachLoadBalancerToSubnets.yaml +10/−0
• fixture/ConfigureHealthCheck.yaml +10/−0
• fixture/CreateAppCookieStickinessPolicy.yaml +10/−0
• fixture/CreateLBCookieStickinessPolicy.yaml +10/−0
• fixture/CreateLoadBalancer.yaml +10/−0
• fixture/CreateLoadBalancerListeners.yaml +10/−0
• fixture/CreateLoadBalancerPolicy.yaml +10/−0
• fixture/DeleteLoadBalancer.yaml +10/−0
• fixture/DeleteLoadBalancerListeners.yaml +10/−0
• fixture/DeleteLoadBalancerPolicy.yaml +10/−0
• fixture/DeregisterInstancesFromLoadBalancer.yaml +10/−0
• fixture/DescribeInstanceHealth.yaml +10/−0
• fixture/DescribeLoadBalancerAttributes.yaml +10/−0
• fixture/DescribeLoadBalancerPolicies.yaml +10/−0
• fixture/DescribeLoadBalancerPolicyTypes.yaml +10/−0
• fixture/DescribeLoadBalancers.yaml +10/−0
• fixture/DescribeTags.yaml +10/−0
• fixture/DetachLoadBalancerFromSubnets.yaml +10/−0
• fixture/DisableAvailabilityZonesForLoadBalancer.yaml +10/−0
• fixture/EnableAvailabilityZonesForLoadBalancer.yaml +10/−0
• fixture/ModifyLoadBalancerAttributes.yaml +10/−0
• fixture/RegisterInstancesWithLoadBalancer.yaml +10/−0
• fixture/RemoveTags.yaml +10/−0
• fixture/SetLoadBalancerListenerSSLCertificate.yaml +10/−0
• fixture/SetLoadBalancerPoliciesForBackendServer.yaml +10/−0
• fixture/SetLoadBalancerPoliciesOfListener.yaml +10/−0
• gen/Amazonka/ELB.hs +475/−0
• gen/Amazonka/ELB/AddTags.hs +169/−0
• gen/Amazonka/ELB/ApplySecurityGroupsToLoadBalancer.hs +220/−0
• gen/Amazonka/ELB/AttachLoadBalancerToSubnets.hs +197/−0
• gen/Amazonka/ELB/ConfigureHealthCheck.hs +188/−0
• gen/Amazonka/ELB/CreateAppCookieStickinessPolicy.hs +229/−0
• gen/Amazonka/ELB/CreateLBCookieStickinessPolicy.hs +239/−0
• gen/Amazonka/ELB/CreateLoadBalancer.hs +362/−0
• gen/Amazonka/ELB/CreateLoadBalancerListeners.hs +180/−0
• gen/Amazonka/ELB/CreateLoadBalancerPolicy.hs +218/−0
• gen/Amazonka/ELB/DeleteLoadBalancer.hs +162/−0
• gen/Amazonka/ELB/DeleteLoadBalancerListeners.hs +173/−0
• gen/Amazonka/ELB/DeleteLoadBalancerPolicy.hs +175/−0
• gen/Amazonka/ELB/DeregisterInstancesFromLoadBalancer.hs +220/−0
• gen/Amazonka/ELB/DescribeAccountLimits.hs +223/−0
• gen/Amazonka/ELB/DescribeInstanceHealth.hs +193/−0
• gen/Amazonka/ELB/DescribeLoadBalancerAttributes.hs +185/−0
• gen/Amazonka/ELB/DescribeLoadBalancerPolicies.hs +199/−0
• gen/Amazonka/ELB/DescribeLoadBalancerPolicyTypes.hs +205/−0
• gen/Amazonka/ELB/DescribeLoadBalancers.hs +244/−0
• gen/Amazonka/ELB/DescribeTags.hs +167/−0
• gen/Amazonka/ELB/DetachLoadBalancerFromSubnets.hs +200/−0
• gen/Amazonka/ELB/DisableAvailabilityZonesForLoadBalancer.hs +228/−0
• gen/Amazonka/ELB/EnableAvailabilityZonesForLoadBalancer.hs +225/−0
• gen/Amazonka/ELB/Lens.hs +382/−0
• gen/Amazonka/ELB/ModifyLoadBalancerAttributes.hs +222/−0
• gen/Amazonka/ELB/RegisterInstancesWithLoadBalancer.hs +236/−0
• gen/Amazonka/ELB/RemoveTags.hs +164/−0
• gen/Amazonka/ELB/SetLoadBalancerListenerSSLCertificate.hs +223/−0
• gen/Amazonka/ELB/SetLoadBalancerPoliciesForBackendServer.hs +235/−0
• gen/Amazonka/ELB/SetLoadBalancerPoliciesOfListener.hs +228/−0
• gen/Amazonka/ELB/Types.hs +519/−0
• gen/Amazonka/ELB/Types/AccessLog.hs +131/−0
• gen/Amazonka/ELB/Types/AdditionalAttribute.hs +106/−0
• gen/Amazonka/ELB/Types/AppCookieStickinessPolicy.hs +86/−0
• gen/Amazonka/ELB/Types/BackendServerDescription.hs +86/−0
• gen/Amazonka/ELB/Types/ConnectionDraining.hs +93/−0
• gen/Amazonka/ELB/Types/ConnectionSettings.hs +77/−0
• gen/Amazonka/ELB/Types/CrossZoneLoadBalancing.hs +74/−0
• gen/Amazonka/ELB/Types/HealthCheck.hs +211/−0
• gen/Amazonka/ELB/Types/Instance.hs +67/−0
• gen/Amazonka/ELB/Types/InstanceState.hs +195/−0
• gen/Amazonka/ELB/Types/LBCookieStickinessPolicy.hs +91/−0
• gen/Amazonka/ELB/Types/Limit.hs +99/−0
• gen/Amazonka/ELB/Types/Listener.hs +189/−0
• gen/Amazonka/ELB/Types/ListenerDescription.hs +86/−0
• gen/Amazonka/ELB/Types/LoadBalancerAttributes.hs +214/−0
• gen/Amazonka/ELB/Types/LoadBalancerDescription.hs +322/−0
• gen/Amazonka/ELB/Types/Policies.hs +108/−0
• gen/Amazonka/ELB/Types/PolicyAttribute.hs +82/−0
• gen/Amazonka/ELB/Types/PolicyAttributeDescription.hs +82/−0
• gen/Amazonka/ELB/Types/PolicyAttributeTypeDescription.hs +156/−0
• gen/Amazonka/ELB/Types/PolicyDescription.hs +99/−0
• gen/Amazonka/ELB/Types/PolicyTypeDescription.hs +102/−0
• gen/Amazonka/ELB/Types/SourceSecurityGroup.hs +81/−0
• gen/Amazonka/ELB/Types/Tag.hs +84/−0
• gen/Amazonka/ELB/Types/TagDescription.hs +86/−0
• gen/Amazonka/ELB/Types/TagKeyOnly.hs +63/−0
• gen/Amazonka/ELB/Waiters.hs +101/−0
• gen/Network/AWS/ELB.hs +0/−454
• gen/Network/AWS/ELB/AddTags.hs +0/−136
• gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs +0/−163
• gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs +0/−151
• gen/Network/AWS/ELB/ConfigureHealthCheck.hs +0/−147
• gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs +0/−164
• gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs +0/−163
• gen/Network/AWS/ELB/CreateLoadBalancer.hs +0/−208
• gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs +0/−141
• gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs +0/−165
• gen/Network/AWS/ELB/DeleteLoadBalancer.hs +0/−128
• gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs +0/−142
• gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs +0/−138
• gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs +0/−163
• gen/Network/AWS/ELB/DescribeAccountLimits.hs +0/−149
• gen/Network/AWS/ELB/DescribeInstanceHealth.hs +0/−148
• gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs +0/−144
• gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs +0/−154
• gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs +0/−151
• gen/Network/AWS/ELB/DescribeLoadBalancers.hs +0/−181
• gen/Network/AWS/ELB/DescribeTags.hs +0/−136
• gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs +0/−153
• gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs +0/−172
• gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs +0/−172
• gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs +0/−179
• gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs +0/−166
• gen/Network/AWS/ELB/RemoveTags.hs +0/−133
• gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs +0/−167
• gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs +0/−173
• gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs +0/−164
• gen/Network/AWS/ELB/Types.hs +0/−446
• gen/Network/AWS/ELB/Types/Product.hs +0/−1493
• gen/Network/AWS/ELB/Types/Sum.hs +0/−21
• gen/Network/AWS/ELB/Waiters.hs +0/−77
• src/Amazonka/ELB/Internal.hs +55/−0
• src/Network/AWS/ELB/Internal.hs +0/−42
• test/Main.hs +11/−9
• test/Test/AWS/ELB.hs +0/−26
• test/Test/AWS/ELB/Internal.hs +0/−16
• test/Test/AWS/Gen/ELB.hs +0/−561
• test/Test/Amazonka/ELB.hs +20/−0
• test/Test/Amazonka/ELB/Internal.hs +8/−0
• test/Test/Amazonka/Gen/ELB.hs +618/−0

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2012-06-01@ of the AWS service descriptions, licensed under Apache 2.0.  ## Description @@ -26,7 +25,7 @@ The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core). -See [Network.AWS.ELB](http://hackage.haskell.org/package/amazonka-elb/docs/Network-AWS-ELB.html)+See [Amazonka.ELB](http://hackage.haskell.org/package/amazonka-elb/docs/Amazonka-ELB.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

@@ -1,2 +0,0 @@-import           Distribution.Simple-main = defaultMain

@@ -1,115 +1,139 @@-name:                  amazonka-elb-version:               1.6.1-synopsis:              Amazon Elastic Load Balancing SDK.-homepage:              https://github.com/brendanhay/amazonka-bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               MPL-2.0-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2018 Brendan Hay-category:              Network, AWS, Cloud, Distributed Computing-build-type:            Simple-cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep+cabal-version:      2.2+name:               amazonka-elb+version:            2.0+synopsis:           Amazon Elastic Load Balancing SDK.+homepage:           https://github.com/brendanhay/amazonka+bug-reports:        https://github.com/brendanhay/amazonka/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++copyright:          Copyright (c) 2013-2023 Brendan Hay+category:           AWS+build-type:         Simple+extra-source-files:+  fixture/*.proto+  fixture/*.yaml+  README.md+  src/.gitkeep+ description:-    The types from this library are intended to be used with-    <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information, sending requests,-    and receiving responses.-    .-    Lenses are used for constructing and manipulating types,-    due to the depth of nesting of AWS types and transparency regarding-    de/serialisation into more palatable Haskell values.-    The provided lenses should be compatible with any of the major lens libraries-    such as <http://hackage.haskell.org/package/lens lens> or-    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.-    .-    See "Network.AWS.ELB" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2012-06-01@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  The types from this library are intended to be used with <http://hackage.haskell.org/package/amazonka amazonka>,+  which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.ELB.Lens" and are+  suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+  .+  See "Amazonka.ELB" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started.  source-repository head-    type:              git-    location:          git://github.com/brendanhay/amazonka.git-    subdir:            amazonka-elb+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-elb  library-    default-language:  Haskell2010-    hs-source-dirs:    src gen--    ghc-options:-        -Wall-        -fwarn-incomplete-uni-patterns-        -fwarn-incomplete-record-updates-        -funbox-strict-fields--    exposed-modules:-          Network.AWS.ELB-        , Network.AWS.ELB.AddTags-        , Network.AWS.ELB.ApplySecurityGroupsToLoadBalancer-        , Network.AWS.ELB.AttachLoadBalancerToSubnets-        , Network.AWS.ELB.ConfigureHealthCheck-        , Network.AWS.ELB.CreateAppCookieStickinessPolicy-        , Network.AWS.ELB.CreateLBCookieStickinessPolicy-        , Network.AWS.ELB.CreateLoadBalancer-        , Network.AWS.ELB.CreateLoadBalancerListeners-        , Network.AWS.ELB.CreateLoadBalancerPolicy-        , Network.AWS.ELB.DeleteLoadBalancer-        , Network.AWS.ELB.DeleteLoadBalancerListeners-        , Network.AWS.ELB.DeleteLoadBalancerPolicy-        , Network.AWS.ELB.DeregisterInstancesFromLoadBalancer-        , Network.AWS.ELB.DescribeAccountLimits-        , Network.AWS.ELB.DescribeInstanceHealth-        , Network.AWS.ELB.DescribeLoadBalancerAttributes-        , Network.AWS.ELB.DescribeLoadBalancerPolicies-        , Network.AWS.ELB.DescribeLoadBalancerPolicyTypes-        , Network.AWS.ELB.DescribeLoadBalancers-        , Network.AWS.ELB.DescribeTags-        , Network.AWS.ELB.DetachLoadBalancerFromSubnets-        , Network.AWS.ELB.DisableAvailabilityZonesForLoadBalancer-        , Network.AWS.ELB.EnableAvailabilityZonesForLoadBalancer-        , Network.AWS.ELB.ModifyLoadBalancerAttributes-        , Network.AWS.ELB.RegisterInstancesWithLoadBalancer-        , Network.AWS.ELB.RemoveTags-        , Network.AWS.ELB.SetLoadBalancerListenerSSLCertificate-        , Network.AWS.ELB.SetLoadBalancerPoliciesForBackendServer-        , Network.AWS.ELB.SetLoadBalancerPoliciesOfListener-        , Network.AWS.ELB.Types-        , Network.AWS.ELB.Waiters+  default-language: Haskell2010+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields -    other-modules:-          Network.AWS.ELB.Internal-        , Network.AWS.ELB.Types.Product-        , Network.AWS.ELB.Types.Sum+  exposed-modules:+    Amazonka.ELB+    Amazonka.ELB.AddTags+    Amazonka.ELB.ApplySecurityGroupsToLoadBalancer+    Amazonka.ELB.AttachLoadBalancerToSubnets+    Amazonka.ELB.ConfigureHealthCheck+    Amazonka.ELB.CreateAppCookieStickinessPolicy+    Amazonka.ELB.CreateLBCookieStickinessPolicy+    Amazonka.ELB.CreateLoadBalancer+    Amazonka.ELB.CreateLoadBalancerListeners+    Amazonka.ELB.CreateLoadBalancerPolicy+    Amazonka.ELB.DeleteLoadBalancer+    Amazonka.ELB.DeleteLoadBalancerListeners+    Amazonka.ELB.DeleteLoadBalancerPolicy+    Amazonka.ELB.DeregisterInstancesFromLoadBalancer+    Amazonka.ELB.DescribeAccountLimits+    Amazonka.ELB.DescribeInstanceHealth+    Amazonka.ELB.DescribeLoadBalancerAttributes+    Amazonka.ELB.DescribeLoadBalancerPolicies+    Amazonka.ELB.DescribeLoadBalancerPolicyTypes+    Amazonka.ELB.DescribeLoadBalancers+    Amazonka.ELB.DescribeTags+    Amazonka.ELB.DetachLoadBalancerFromSubnets+    Amazonka.ELB.DisableAvailabilityZonesForLoadBalancer+    Amazonka.ELB.EnableAvailabilityZonesForLoadBalancer+    Amazonka.ELB.Internal+    Amazonka.ELB.Lens+    Amazonka.ELB.ModifyLoadBalancerAttributes+    Amazonka.ELB.RegisterInstancesWithLoadBalancer+    Amazonka.ELB.RemoveTags+    Amazonka.ELB.SetLoadBalancerListenerSSLCertificate+    Amazonka.ELB.SetLoadBalancerPoliciesForBackendServer+    Amazonka.ELB.SetLoadBalancerPoliciesOfListener+    Amazonka.ELB.Types+    Amazonka.ELB.Types.AccessLog+    Amazonka.ELB.Types.AdditionalAttribute+    Amazonka.ELB.Types.AppCookieStickinessPolicy+    Amazonka.ELB.Types.BackendServerDescription+    Amazonka.ELB.Types.ConnectionDraining+    Amazonka.ELB.Types.ConnectionSettings+    Amazonka.ELB.Types.CrossZoneLoadBalancing+    Amazonka.ELB.Types.HealthCheck+    Amazonka.ELB.Types.Instance+    Amazonka.ELB.Types.InstanceState+    Amazonka.ELB.Types.LBCookieStickinessPolicy+    Amazonka.ELB.Types.Limit+    Amazonka.ELB.Types.Listener+    Amazonka.ELB.Types.ListenerDescription+    Amazonka.ELB.Types.LoadBalancerAttributes+    Amazonka.ELB.Types.LoadBalancerDescription+    Amazonka.ELB.Types.Policies+    Amazonka.ELB.Types.PolicyAttribute+    Amazonka.ELB.Types.PolicyAttributeDescription+    Amazonka.ELB.Types.PolicyAttributeTypeDescription+    Amazonka.ELB.Types.PolicyDescription+    Amazonka.ELB.Types.PolicyTypeDescription+    Amazonka.ELB.Types.SourceSecurityGroup+    Amazonka.ELB.Types.Tag+    Amazonka.ELB.Types.TagDescription+    Amazonka.ELB.Types.TagKeyOnly+    Amazonka.ELB.Waiters -    build-depends:-          amazonka-core == 1.6.1.*-        , base          >= 4.7     && < 5+  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5  test-suite amazonka-elb-test-    type:              exitcode-stdio-1.0-    default-language:  Haskell2010-    hs-source-dirs:    test-    main-is:           Main.hs--    ghc-options:       -Wall -threaded+  type:             exitcode-stdio-1.0+  default-language: Haskell2010+  hs-source-dirs:   test+  main-is:          Main.hs+  ghc-options:      -Wall -threaded -    -- This section is encoded by the template and any modules added by-    -- hand outside these namespaces will not correctly be added to the-    -- distribution package.-    other-modules:-          Test.AWS.ELB-        , Test.AWS.Gen.ELB-        , Test.AWS.ELB.Internal+  -- This section is encoded by the template and any modules added by+  -- hand outside these namespaces will not correctly be added to the+  -- distribution package.+  other-modules:+    Test.Amazonka.ELB+    Test.Amazonka.ELB.Internal+    Test.Amazonka.Gen.ELB -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-elb-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-elb+    , amazonka-test         >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  elasticloadbalancing.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,475 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.ELB+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2012-06-01@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Elastic Load Balancing+--+-- A load balancer can distribute incoming traffic across your EC2+-- instances. This enables you to increase the availability of your+-- application. The load balancer also monitors the health of its+-- registered instances and ensures that it routes traffic only to healthy+-- instances. You configure your load balancer to accept incoming traffic+-- by specifying one or more listeners, which are configured with a+-- protocol and port number for connections from clients to the load+-- balancer and a protocol and port number for connections from the load+-- balancer to the instances.+--+-- Elastic Load Balancing supports three types of load balancers:+-- Application Load Balancers, Network Load Balancers, and Classic Load+-- Balancers. You can select a load balancer based on your application+-- needs. For more information, see the+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/userguide/ Elastic Load Balancing User Guide>.+--+-- This reference covers the 2012-06-01 API, which supports Classic Load+-- Balancers. The 2015-12-01 API supports Application Load Balancers and+-- Network Load Balancers.+--+-- To get started, create a load balancer with one or more listeners using+-- CreateLoadBalancer. Register your instances with the load balancer using+-- RegisterInstancesWithLoadBalancer.+--+-- All Elastic Load Balancing operations are /idempotent/, which means that+-- they complete at most one time. If you repeat an operation, it succeeds+-- with a 200 OK response code.+module Amazonka.ELB+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** AccessPointNotFoundException+    _AccessPointNotFoundException,++    -- ** CertificateNotFoundException+    _CertificateNotFoundException,++    -- ** DependencyThrottleException+    _DependencyThrottleException,++    -- ** DuplicateAccessPointNameException+    _DuplicateAccessPointNameException,++    -- ** DuplicateListenerException+    _DuplicateListenerException,++    -- ** DuplicatePolicyNameException+    _DuplicatePolicyNameException,++    -- ** DuplicateTagKeysException+    _DuplicateTagKeysException,++    -- ** InvalidConfigurationRequestException+    _InvalidConfigurationRequestException,++    -- ** InvalidEndPointException+    _InvalidEndPointException,++    -- ** InvalidSchemeException+    _InvalidSchemeException,++    -- ** InvalidSecurityGroupException+    _InvalidSecurityGroupException,++    -- ** InvalidSubnetException+    _InvalidSubnetException,++    -- ** ListenerNotFoundException+    _ListenerNotFoundException,++    -- ** LoadBalancerAttributeNotFoundException+    _LoadBalancerAttributeNotFoundException,++    -- ** OperationNotPermittedException+    _OperationNotPermittedException,++    -- ** PolicyNotFoundException+    _PolicyNotFoundException,++    -- ** PolicyTypeNotFoundException+    _PolicyTypeNotFoundException,++    -- ** SubnetNotFoundException+    _SubnetNotFoundException,++    -- ** TooManyAccessPointsException+    _TooManyAccessPointsException,++    -- ** TooManyPoliciesException+    _TooManyPoliciesException,++    -- ** TooManyTagsException+    _TooManyTagsException,++    -- ** UnsupportedProtocolException+    _UnsupportedProtocolException,++    -- * Waiters+    -- $waiters++    -- ** AnyInstanceInService+    newAnyInstanceInService,++    -- ** InstanceDeregistered+    newInstanceDeregistered,++    -- ** InstanceInService+    newInstanceInService,++    -- * Operations+    -- $operations++    -- ** AddTags+    AddTags (AddTags'),+    newAddTags,+    AddTagsResponse (AddTagsResponse'),+    newAddTagsResponse,++    -- ** ApplySecurityGroupsToLoadBalancer+    ApplySecurityGroupsToLoadBalancer (ApplySecurityGroupsToLoadBalancer'),+    newApplySecurityGroupsToLoadBalancer,+    ApplySecurityGroupsToLoadBalancerResponse (ApplySecurityGroupsToLoadBalancerResponse'),+    newApplySecurityGroupsToLoadBalancerResponse,++    -- ** AttachLoadBalancerToSubnets+    AttachLoadBalancerToSubnets (AttachLoadBalancerToSubnets'),+    newAttachLoadBalancerToSubnets,+    AttachLoadBalancerToSubnetsResponse (AttachLoadBalancerToSubnetsResponse'),+    newAttachLoadBalancerToSubnetsResponse,++    -- ** ConfigureHealthCheck+    ConfigureHealthCheck (ConfigureHealthCheck'),+    newConfigureHealthCheck,+    ConfigureHealthCheckResponse (ConfigureHealthCheckResponse'),+    newConfigureHealthCheckResponse,++    -- ** CreateAppCookieStickinessPolicy+    CreateAppCookieStickinessPolicy (CreateAppCookieStickinessPolicy'),+    newCreateAppCookieStickinessPolicy,+    CreateAppCookieStickinessPolicyResponse (CreateAppCookieStickinessPolicyResponse'),+    newCreateAppCookieStickinessPolicyResponse,++    -- ** CreateLBCookieStickinessPolicy+    CreateLBCookieStickinessPolicy (CreateLBCookieStickinessPolicy'),+    newCreateLBCookieStickinessPolicy,+    CreateLBCookieStickinessPolicyResponse (CreateLBCookieStickinessPolicyResponse'),+    newCreateLBCookieStickinessPolicyResponse,++    -- ** CreateLoadBalancer+    CreateLoadBalancer (CreateLoadBalancer'),+    newCreateLoadBalancer,+    CreateLoadBalancerResponse (CreateLoadBalancerResponse'),+    newCreateLoadBalancerResponse,++    -- ** CreateLoadBalancerListeners+    CreateLoadBalancerListeners (CreateLoadBalancerListeners'),+    newCreateLoadBalancerListeners,+    CreateLoadBalancerListenersResponse (CreateLoadBalancerListenersResponse'),+    newCreateLoadBalancerListenersResponse,++    -- ** CreateLoadBalancerPolicy+    CreateLoadBalancerPolicy (CreateLoadBalancerPolicy'),+    newCreateLoadBalancerPolicy,+    CreateLoadBalancerPolicyResponse (CreateLoadBalancerPolicyResponse'),+    newCreateLoadBalancerPolicyResponse,++    -- ** DeleteLoadBalancer+    DeleteLoadBalancer (DeleteLoadBalancer'),+    newDeleteLoadBalancer,+    DeleteLoadBalancerResponse (DeleteLoadBalancerResponse'),+    newDeleteLoadBalancerResponse,++    -- ** DeleteLoadBalancerListeners+    DeleteLoadBalancerListeners (DeleteLoadBalancerListeners'),+    newDeleteLoadBalancerListeners,+    DeleteLoadBalancerListenersResponse (DeleteLoadBalancerListenersResponse'),+    newDeleteLoadBalancerListenersResponse,++    -- ** DeleteLoadBalancerPolicy+    DeleteLoadBalancerPolicy (DeleteLoadBalancerPolicy'),+    newDeleteLoadBalancerPolicy,+    DeleteLoadBalancerPolicyResponse (DeleteLoadBalancerPolicyResponse'),+    newDeleteLoadBalancerPolicyResponse,++    -- ** DeregisterInstancesFromLoadBalancer+    DeregisterInstancesFromLoadBalancer (DeregisterInstancesFromLoadBalancer'),+    newDeregisterInstancesFromLoadBalancer,+    DeregisterInstancesFromLoadBalancerResponse (DeregisterInstancesFromLoadBalancerResponse'),+    newDeregisterInstancesFromLoadBalancerResponse,++    -- ** DescribeAccountLimits (Paginated)+    DescribeAccountLimits (DescribeAccountLimits'),+    newDescribeAccountLimits,+    DescribeAccountLimitsResponse (DescribeAccountLimitsResponse'),+    newDescribeAccountLimitsResponse,++    -- ** DescribeInstanceHealth+    DescribeInstanceHealth (DescribeInstanceHealth'),+    newDescribeInstanceHealth,+    DescribeInstanceHealthResponse (DescribeInstanceHealthResponse'),+    newDescribeInstanceHealthResponse,++    -- ** DescribeLoadBalancerAttributes+    DescribeLoadBalancerAttributes (DescribeLoadBalancerAttributes'),+    newDescribeLoadBalancerAttributes,+    DescribeLoadBalancerAttributesResponse (DescribeLoadBalancerAttributesResponse'),+    newDescribeLoadBalancerAttributesResponse,++    -- ** DescribeLoadBalancerPolicies+    DescribeLoadBalancerPolicies (DescribeLoadBalancerPolicies'),+    newDescribeLoadBalancerPolicies,+    DescribeLoadBalancerPoliciesResponse (DescribeLoadBalancerPoliciesResponse'),+    newDescribeLoadBalancerPoliciesResponse,++    -- ** DescribeLoadBalancerPolicyTypes+    DescribeLoadBalancerPolicyTypes (DescribeLoadBalancerPolicyTypes'),+    newDescribeLoadBalancerPolicyTypes,+    DescribeLoadBalancerPolicyTypesResponse (DescribeLoadBalancerPolicyTypesResponse'),+    newDescribeLoadBalancerPolicyTypesResponse,++    -- ** DescribeLoadBalancers (Paginated)+    DescribeLoadBalancers (DescribeLoadBalancers'),+    newDescribeLoadBalancers,+    DescribeLoadBalancersResponse (DescribeLoadBalancersResponse'),+    newDescribeLoadBalancersResponse,++    -- ** DescribeTags+    DescribeTags (DescribeTags'),+    newDescribeTags,+    DescribeTagsResponse (DescribeTagsResponse'),+    newDescribeTagsResponse,++    -- ** DetachLoadBalancerFromSubnets+    DetachLoadBalancerFromSubnets (DetachLoadBalancerFromSubnets'),+    newDetachLoadBalancerFromSubnets,+    DetachLoadBalancerFromSubnetsResponse (DetachLoadBalancerFromSubnetsResponse'),+    newDetachLoadBalancerFromSubnetsResponse,++    -- ** DisableAvailabilityZonesForLoadBalancer+    DisableAvailabilityZonesForLoadBalancer (DisableAvailabilityZonesForLoadBalancer'),+    newDisableAvailabilityZonesForLoadBalancer,+    DisableAvailabilityZonesForLoadBalancerResponse (DisableAvailabilityZonesForLoadBalancerResponse'),+    newDisableAvailabilityZonesForLoadBalancerResponse,++    -- ** EnableAvailabilityZonesForLoadBalancer+    EnableAvailabilityZonesForLoadBalancer (EnableAvailabilityZonesForLoadBalancer'),+    newEnableAvailabilityZonesForLoadBalancer,+    EnableAvailabilityZonesForLoadBalancerResponse (EnableAvailabilityZonesForLoadBalancerResponse'),+    newEnableAvailabilityZonesForLoadBalancerResponse,++    -- ** ModifyLoadBalancerAttributes+    ModifyLoadBalancerAttributes (ModifyLoadBalancerAttributes'),+    newModifyLoadBalancerAttributes,+    ModifyLoadBalancerAttributesResponse (ModifyLoadBalancerAttributesResponse'),+    newModifyLoadBalancerAttributesResponse,++    -- ** RegisterInstancesWithLoadBalancer+    RegisterInstancesWithLoadBalancer (RegisterInstancesWithLoadBalancer'),+    newRegisterInstancesWithLoadBalancer,+    RegisterInstancesWithLoadBalancerResponse (RegisterInstancesWithLoadBalancerResponse'),+    newRegisterInstancesWithLoadBalancerResponse,++    -- ** RemoveTags+    RemoveTags (RemoveTags'),+    newRemoveTags,+    RemoveTagsResponse (RemoveTagsResponse'),+    newRemoveTagsResponse,++    -- ** SetLoadBalancerListenerSSLCertificate+    SetLoadBalancerListenerSSLCertificate (SetLoadBalancerListenerSSLCertificate'),+    newSetLoadBalancerListenerSSLCertificate,+    SetLoadBalancerListenerSSLCertificateResponse (SetLoadBalancerListenerSSLCertificateResponse'),+    newSetLoadBalancerListenerSSLCertificateResponse,++    -- ** SetLoadBalancerPoliciesForBackendServer+    SetLoadBalancerPoliciesForBackendServer (SetLoadBalancerPoliciesForBackendServer'),+    newSetLoadBalancerPoliciesForBackendServer,+    SetLoadBalancerPoliciesForBackendServerResponse (SetLoadBalancerPoliciesForBackendServerResponse'),+    newSetLoadBalancerPoliciesForBackendServerResponse,++    -- ** SetLoadBalancerPoliciesOfListener+    SetLoadBalancerPoliciesOfListener (SetLoadBalancerPoliciesOfListener'),+    newSetLoadBalancerPoliciesOfListener,+    SetLoadBalancerPoliciesOfListenerResponse (SetLoadBalancerPoliciesOfListenerResponse'),+    newSetLoadBalancerPoliciesOfListenerResponse,++    -- * Types++    -- ** Common+    module Amazonka.ELB.Internal,++    -- ** AccessLog+    AccessLog (AccessLog'),+    newAccessLog,++    -- ** AdditionalAttribute+    AdditionalAttribute (AdditionalAttribute'),+    newAdditionalAttribute,++    -- ** AppCookieStickinessPolicy+    AppCookieStickinessPolicy (AppCookieStickinessPolicy'),+    newAppCookieStickinessPolicy,++    -- ** BackendServerDescription+    BackendServerDescription (BackendServerDescription'),+    newBackendServerDescription,++    -- ** ConnectionDraining+    ConnectionDraining (ConnectionDraining'),+    newConnectionDraining,++    -- ** ConnectionSettings+    ConnectionSettings (ConnectionSettings'),+    newConnectionSettings,++    -- ** CrossZoneLoadBalancing+    CrossZoneLoadBalancing (CrossZoneLoadBalancing'),+    newCrossZoneLoadBalancing,++    -- ** HealthCheck+    HealthCheck (HealthCheck'),+    newHealthCheck,++    -- ** Instance+    Instance (Instance'),+    newInstance,++    -- ** InstanceState+    InstanceState (InstanceState'),+    newInstanceState,++    -- ** LBCookieStickinessPolicy+    LBCookieStickinessPolicy (LBCookieStickinessPolicy'),+    newLBCookieStickinessPolicy,++    -- ** Limit+    Limit (Limit'),+    newLimit,++    -- ** Listener+    Listener (Listener'),+    newListener,++    -- ** ListenerDescription+    ListenerDescription (ListenerDescription'),+    newListenerDescription,++    -- ** LoadBalancerAttributes+    LoadBalancerAttributes (LoadBalancerAttributes'),+    newLoadBalancerAttributes,++    -- ** LoadBalancerDescription+    LoadBalancerDescription (LoadBalancerDescription'),+    newLoadBalancerDescription,++    -- ** Policies+    Policies (Policies'),+    newPolicies,++    -- ** PolicyAttribute+    PolicyAttribute (PolicyAttribute'),+    newPolicyAttribute,++    -- ** PolicyAttributeDescription+    PolicyAttributeDescription (PolicyAttributeDescription'),+    newPolicyAttributeDescription,++    -- ** PolicyAttributeTypeDescription+    PolicyAttributeTypeDescription (PolicyAttributeTypeDescription'),+    newPolicyAttributeTypeDescription,++    -- ** PolicyDescription+    PolicyDescription (PolicyDescription'),+    newPolicyDescription,++    -- ** PolicyTypeDescription+    PolicyTypeDescription (PolicyTypeDescription'),+    newPolicyTypeDescription,++    -- ** SourceSecurityGroup+    SourceSecurityGroup (SourceSecurityGroup'),+    newSourceSecurityGroup,++    -- ** Tag+    Tag (Tag'),+    newTag,++    -- ** TagDescription+    TagDescription (TagDescription'),+    newTagDescription,++    -- ** TagKeyOnly+    TagKeyOnly (TagKeyOnly'),+    newTagKeyOnly,+  )+where++import Amazonka.ELB.AddTags+import Amazonka.ELB.ApplySecurityGroupsToLoadBalancer+import Amazonka.ELB.AttachLoadBalancerToSubnets+import Amazonka.ELB.ConfigureHealthCheck+import Amazonka.ELB.CreateAppCookieStickinessPolicy+import Amazonka.ELB.CreateLBCookieStickinessPolicy+import Amazonka.ELB.CreateLoadBalancer+import Amazonka.ELB.CreateLoadBalancerListeners+import Amazonka.ELB.CreateLoadBalancerPolicy+import Amazonka.ELB.DeleteLoadBalancer+import Amazonka.ELB.DeleteLoadBalancerListeners+import Amazonka.ELB.DeleteLoadBalancerPolicy+import Amazonka.ELB.DeregisterInstancesFromLoadBalancer+import Amazonka.ELB.DescribeAccountLimits+import Amazonka.ELB.DescribeInstanceHealth+import Amazonka.ELB.DescribeLoadBalancerAttributes+import Amazonka.ELB.DescribeLoadBalancerPolicies+import Amazonka.ELB.DescribeLoadBalancerPolicyTypes+import Amazonka.ELB.DescribeLoadBalancers+import Amazonka.ELB.DescribeTags+import Amazonka.ELB.DetachLoadBalancerFromSubnets+import Amazonka.ELB.DisableAvailabilityZonesForLoadBalancer+import Amazonka.ELB.EnableAvailabilityZonesForLoadBalancer+import Amazonka.ELB.Internal+import Amazonka.ELB.Lens+import Amazonka.ELB.ModifyLoadBalancerAttributes+import Amazonka.ELB.RegisterInstancesWithLoadBalancer+import Amazonka.ELB.RemoveTags+import Amazonka.ELB.SetLoadBalancerListenerSSLCertificate+import Amazonka.ELB.SetLoadBalancerPoliciesForBackendServer+import Amazonka.ELB.SetLoadBalancerPoliciesOfListener+import Amazonka.ELB.Types+import Amazonka.ELB.Waiters++-- $errors+-- Error matchers are designed for use with the functions provided by+-- <http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+-- This allows catching (and rethrowing) service specific errors returned+-- by 'ELB'.++-- $operations+-- Some AWS operations return results that are incomplete and require subsequent+-- requests in order to obtain the entire result set. The process of sending+-- subsequent requests to continue where a previous request left off is called+-- pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+-- 1000 objects at a time, and you must send subsequent requests with the+-- appropriate Marker in order to retrieve the next page of results.+--+-- Operations that have an 'AWSPager' instance can transparently perform subsequent+-- requests, correctly setting Markers and other request facets to iterate through+-- the entire result set of a truncated API operation. Operations which support+-- this have an additional note in the documentation.+--+-- Many operations have the ability to filter results on the server side. See the+-- individual operation parameters for details.++-- $waiters+-- Waiters poll by repeatedly sending a request until some remote success condition+-- configured by the 'Wait' specification is fulfilled. The 'Wait' specification+-- determines how many attempts should be made, in addition to delay and retry strategies.

@@ -0,0 +1,169 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.AddTags+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds the specified tags to the specified load balancer. Each load+-- balancer can have a maximum of 10 tags.+--+-- Each tag consists of a key and an optional value. If a tag with the same+-- key is already associated with the load balancer, @AddTags@ updates its+-- value.+--+-- For more information, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/add-remove-tags.html Tag Your Classic Load Balancer>+-- in the /Classic Load Balancers Guide/.+module Amazonka.ELB.AddTags+  ( -- * Creating a Request+    AddTags (..),+    newAddTags,++    -- * Request Lenses+    addTags_loadBalancerNames,+    addTags_tags,++    -- * Destructuring the Response+    AddTagsResponse (..),+    newAddTagsResponse,++    -- * Response Lenses+    addTagsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for AddTags.+--+-- /See:/ 'newAddTags' smart constructor.+data AddTags = AddTags'+  { -- | The name of the load balancer. You can specify one load balancer only.+    loadBalancerNames :: [Prelude.Text],+    -- | The tags.+    tags :: Prelude.NonEmpty Tag+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddTags' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'loadBalancerNames', 'addTags_loadBalancerNames' - The name of the load balancer. You can specify one load balancer only.+--+-- 'tags', 'addTags_tags' - The tags.+newAddTags ::+  -- | 'tags'+  Prelude.NonEmpty Tag ->+  AddTags+newAddTags pTags_ =+  AddTags'+    { loadBalancerNames = Prelude.mempty,+      tags = Lens.coerced Lens.# pTags_+    }++-- | The name of the load balancer. You can specify one load balancer only.+addTags_loadBalancerNames :: Lens.Lens' AddTags [Prelude.Text]+addTags_loadBalancerNames = Lens.lens (\AddTags' {loadBalancerNames} -> loadBalancerNames) (\s@AddTags' {} a -> s {loadBalancerNames = a} :: AddTags) Prelude.. Lens.coerced++-- | The tags.+addTags_tags :: Lens.Lens' AddTags (Prelude.NonEmpty Tag)+addTags_tags = Lens.lens (\AddTags' {tags} -> tags) (\s@AddTags' {} a -> s {tags = a} :: AddTags) Prelude.. Lens.coerced++instance Core.AWSRequest AddTags where+  type AWSResponse AddTags = AddTagsResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "AddTagsResult"+      ( \s h x ->+          AddTagsResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable AddTags where+  hashWithSalt _salt AddTags' {..} =+    _salt+      `Prelude.hashWithSalt` loadBalancerNames+      `Prelude.hashWithSalt` tags++instance Prelude.NFData AddTags where+  rnf AddTags' {..} =+    Prelude.rnf loadBalancerNames+      `Prelude.seq` Prelude.rnf tags++instance Data.ToHeaders AddTags where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath AddTags where+  toPath = Prelude.const "/"++instance Data.ToQuery AddTags where+  toQuery AddTags' {..} =+    Prelude.mconcat+      [ "Action" Data.=: ("AddTags" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "LoadBalancerNames"+          Data.=: Data.toQueryList "member" loadBalancerNames,+        "Tags" Data.=: Data.toQueryList "member" tags+      ]++-- | Contains the output of AddTags.+--+-- /See:/ 'newAddTagsResponse' smart constructor.+data AddTagsResponse = AddTagsResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddTagsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'addTagsResponse_httpStatus' - The response's http status code.+newAddTagsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  AddTagsResponse+newAddTagsResponse pHttpStatus_ =+  AddTagsResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+addTagsResponse_httpStatus :: Lens.Lens' AddTagsResponse Prelude.Int+addTagsResponse_httpStatus = Lens.lens (\AddTagsResponse' {httpStatus} -> httpStatus) (\s@AddTagsResponse' {} a -> s {httpStatus = a} :: AddTagsResponse)++instance Prelude.NFData AddTagsResponse where+  rnf AddTagsResponse' {..} = Prelude.rnf httpStatus

@@ -0,0 +1,220 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.ApplySecurityGroupsToLoadBalancer+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Associates one or more security groups with your load balancer in a+-- virtual private cloud (VPC). The specified security groups override the+-- previously associated security groups.+--+-- For more information, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/elb-security-groups.html#elb-vpc-security-groups Security Groups for Load Balancers in a VPC>+-- in the /Classic Load Balancers Guide/.+module Amazonka.ELB.ApplySecurityGroupsToLoadBalancer+  ( -- * Creating a Request+    ApplySecurityGroupsToLoadBalancer (..),+    newApplySecurityGroupsToLoadBalancer,++    -- * Request Lenses+    applySecurityGroupsToLoadBalancer_loadBalancerName,+    applySecurityGroupsToLoadBalancer_securityGroups,++    -- * Destructuring the Response+    ApplySecurityGroupsToLoadBalancerResponse (..),+    newApplySecurityGroupsToLoadBalancerResponse,++    -- * Response Lenses+    applySecurityGroupsToLoadBalancerResponse_securityGroups,+    applySecurityGroupsToLoadBalancerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for ApplySecurityGroupsToLoadBalancer.+--+-- /See:/ 'newApplySecurityGroupsToLoadBalancer' smart constructor.+data ApplySecurityGroupsToLoadBalancer = ApplySecurityGroupsToLoadBalancer'+  { -- | The name of the load balancer.+    loadBalancerName :: Prelude.Text,+    -- | The IDs of the security groups to associate with the load balancer. Note+    -- that you cannot specify the name of the security group.+    securityGroups :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ApplySecurityGroupsToLoadBalancer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'loadBalancerName', 'applySecurityGroupsToLoadBalancer_loadBalancerName' - The name of the load balancer.+--+-- 'securityGroups', 'applySecurityGroupsToLoadBalancer_securityGroups' - The IDs of the security groups to associate with the load balancer. Note+-- that you cannot specify the name of the security group.+newApplySecurityGroupsToLoadBalancer ::+  -- | 'loadBalancerName'+  Prelude.Text ->+  ApplySecurityGroupsToLoadBalancer+newApplySecurityGroupsToLoadBalancer+  pLoadBalancerName_ =+    ApplySecurityGroupsToLoadBalancer'+      { loadBalancerName =+          pLoadBalancerName_,+        securityGroups = Prelude.mempty+      }++-- | The name of the load balancer.+applySecurityGroupsToLoadBalancer_loadBalancerName :: Lens.Lens' ApplySecurityGroupsToLoadBalancer Prelude.Text+applySecurityGroupsToLoadBalancer_loadBalancerName = Lens.lens (\ApplySecurityGroupsToLoadBalancer' {loadBalancerName} -> loadBalancerName) (\s@ApplySecurityGroupsToLoadBalancer' {} a -> s {loadBalancerName = a} :: ApplySecurityGroupsToLoadBalancer)++-- | The IDs of the security groups to associate with the load balancer. Note+-- that you cannot specify the name of the security group.+applySecurityGroupsToLoadBalancer_securityGroups :: Lens.Lens' ApplySecurityGroupsToLoadBalancer [Prelude.Text]+applySecurityGroupsToLoadBalancer_securityGroups = Lens.lens (\ApplySecurityGroupsToLoadBalancer' {securityGroups} -> securityGroups) (\s@ApplySecurityGroupsToLoadBalancer' {} a -> s {securityGroups = a} :: ApplySecurityGroupsToLoadBalancer) Prelude.. Lens.coerced++instance+  Core.AWSRequest+    ApplySecurityGroupsToLoadBalancer+  where+  type+    AWSResponse ApplySecurityGroupsToLoadBalancer =+      ApplySecurityGroupsToLoadBalancerResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "ApplySecurityGroupsToLoadBalancerResult"+      ( \s h x ->+          ApplySecurityGroupsToLoadBalancerResponse'+            Prelude.<$> ( x+                            Data..@? "SecurityGroups"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Core.may (Data.parseXMLList "member")+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    ApplySecurityGroupsToLoadBalancer+  where+  hashWithSalt+    _salt+    ApplySecurityGroupsToLoadBalancer' {..} =+      _salt+        `Prelude.hashWithSalt` loadBalancerName+        `Prelude.hashWithSalt` securityGroups++instance+  Prelude.NFData+    ApplySecurityGroupsToLoadBalancer+  where+  rnf ApplySecurityGroupsToLoadBalancer' {..} =+    Prelude.rnf loadBalancerName+      `Prelude.seq` Prelude.rnf securityGroups++instance+  Data.ToHeaders+    ApplySecurityGroupsToLoadBalancer+  where+  toHeaders = Prelude.const Prelude.mempty++instance+  Data.ToPath+    ApplySecurityGroupsToLoadBalancer+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    ApplySecurityGroupsToLoadBalancer+  where+  toQuery ApplySecurityGroupsToLoadBalancer' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ( "ApplySecurityGroupsToLoadBalancer" ::+                      Prelude.ByteString+                  ),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "LoadBalancerName" Data.=: loadBalancerName,+        "SecurityGroups"+          Data.=: Data.toQueryList "member" securityGroups+      ]++-- | Contains the output of ApplySecurityGroupsToLoadBalancer.+--+-- /See:/ 'newApplySecurityGroupsToLoadBalancerResponse' smart constructor.+data ApplySecurityGroupsToLoadBalancerResponse = ApplySecurityGroupsToLoadBalancerResponse'+  { -- | The IDs of the security groups associated with the load balancer.+    securityGroups :: Prelude.Maybe [Prelude.Text],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ApplySecurityGroupsToLoadBalancerResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'securityGroups', 'applySecurityGroupsToLoadBalancerResponse_securityGroups' - The IDs of the security groups associated with the load balancer.+--+-- 'httpStatus', 'applySecurityGroupsToLoadBalancerResponse_httpStatus' - The response's http status code.+newApplySecurityGroupsToLoadBalancerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ApplySecurityGroupsToLoadBalancerResponse+newApplySecurityGroupsToLoadBalancerResponse+  pHttpStatus_ =+    ApplySecurityGroupsToLoadBalancerResponse'+      { securityGroups =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | The IDs of the security groups associated with the load balancer.+applySecurityGroupsToLoadBalancerResponse_securityGroups :: Lens.Lens' ApplySecurityGroupsToLoadBalancerResponse (Prelude.Maybe [Prelude.Text])+applySecurityGroupsToLoadBalancerResponse_securityGroups = Lens.lens (\ApplySecurityGroupsToLoadBalancerResponse' {securityGroups} -> securityGroups) (\s@ApplySecurityGroupsToLoadBalancerResponse' {} a -> s {securityGroups = a} :: ApplySecurityGroupsToLoadBalancerResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+applySecurityGroupsToLoadBalancerResponse_httpStatus :: Lens.Lens' ApplySecurityGroupsToLoadBalancerResponse Prelude.Int+applySecurityGroupsToLoadBalancerResponse_httpStatus = Lens.lens (\ApplySecurityGroupsToLoadBalancerResponse' {httpStatus} -> httpStatus) (\s@ApplySecurityGroupsToLoadBalancerResponse' {} a -> s {httpStatus = a} :: ApplySecurityGroupsToLoadBalancerResponse)++instance+  Prelude.NFData+    ApplySecurityGroupsToLoadBalancerResponse+  where+  rnf ApplySecurityGroupsToLoadBalancerResponse' {..} =+    Prelude.rnf securityGroups+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,197 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.AttachLoadBalancerToSubnets+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds one or more subnets to the set of configured subnets for the+-- specified load balancer.+--+-- The load balancer evenly distributes requests across all registered+-- subnets. For more information, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/elb-manage-subnets.html Add or Remove Subnets for Your Load Balancer in a VPC>+-- in the /Classic Load Balancers Guide/.+module Amazonka.ELB.AttachLoadBalancerToSubnets+  ( -- * Creating a Request+    AttachLoadBalancerToSubnets (..),+    newAttachLoadBalancerToSubnets,++    -- * Request Lenses+    attachLoadBalancerToSubnets_loadBalancerName,+    attachLoadBalancerToSubnets_subnets,++    -- * Destructuring the Response+    AttachLoadBalancerToSubnetsResponse (..),+    newAttachLoadBalancerToSubnetsResponse,++    -- * Response Lenses+    attachLoadBalancerToSubnetsResponse_subnets,+    attachLoadBalancerToSubnetsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for AttachLoaBalancerToSubnets.+--+-- /See:/ 'newAttachLoadBalancerToSubnets' smart constructor.+data AttachLoadBalancerToSubnets = AttachLoadBalancerToSubnets'+  { -- | The name of the load balancer.+    loadBalancerName :: Prelude.Text,+    -- | The IDs of the subnets to add. You can add only one subnet per+    -- Availability Zone.+    subnets :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AttachLoadBalancerToSubnets' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'loadBalancerName', 'attachLoadBalancerToSubnets_loadBalancerName' - The name of the load balancer.+--+-- 'subnets', 'attachLoadBalancerToSubnets_subnets' - The IDs of the subnets to add. You can add only one subnet per+-- Availability Zone.+newAttachLoadBalancerToSubnets ::+  -- | 'loadBalancerName'+  Prelude.Text ->+  AttachLoadBalancerToSubnets+newAttachLoadBalancerToSubnets pLoadBalancerName_ =+  AttachLoadBalancerToSubnets'+    { loadBalancerName =+        pLoadBalancerName_,+      subnets = Prelude.mempty+    }++-- | The name of the load balancer.+attachLoadBalancerToSubnets_loadBalancerName :: Lens.Lens' AttachLoadBalancerToSubnets Prelude.Text+attachLoadBalancerToSubnets_loadBalancerName = Lens.lens (\AttachLoadBalancerToSubnets' {loadBalancerName} -> loadBalancerName) (\s@AttachLoadBalancerToSubnets' {} a -> s {loadBalancerName = a} :: AttachLoadBalancerToSubnets)++-- | The IDs of the subnets to add. You can add only one subnet per+-- Availability Zone.+attachLoadBalancerToSubnets_subnets :: Lens.Lens' AttachLoadBalancerToSubnets [Prelude.Text]+attachLoadBalancerToSubnets_subnets = Lens.lens (\AttachLoadBalancerToSubnets' {subnets} -> subnets) (\s@AttachLoadBalancerToSubnets' {} a -> s {subnets = a} :: AttachLoadBalancerToSubnets) Prelude.. Lens.coerced++instance Core.AWSRequest AttachLoadBalancerToSubnets where+  type+    AWSResponse AttachLoadBalancerToSubnets =+      AttachLoadBalancerToSubnetsResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "AttachLoadBalancerToSubnetsResult"+      ( \s h x ->+          AttachLoadBalancerToSubnetsResponse'+            Prelude.<$> ( x+                            Data..@? "Subnets"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Core.may (Data.parseXMLList "member")+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable AttachLoadBalancerToSubnets where+  hashWithSalt _salt AttachLoadBalancerToSubnets' {..} =+    _salt+      `Prelude.hashWithSalt` loadBalancerName+      `Prelude.hashWithSalt` subnets++instance Prelude.NFData AttachLoadBalancerToSubnets where+  rnf AttachLoadBalancerToSubnets' {..} =+    Prelude.rnf loadBalancerName+      `Prelude.seq` Prelude.rnf subnets++instance Data.ToHeaders AttachLoadBalancerToSubnets where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath AttachLoadBalancerToSubnets where+  toPath = Prelude.const "/"++instance Data.ToQuery AttachLoadBalancerToSubnets where+  toQuery AttachLoadBalancerToSubnets' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ( "AttachLoadBalancerToSubnets" ::+                      Prelude.ByteString+                  ),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "LoadBalancerName" Data.=: loadBalancerName,+        "Subnets" Data.=: Data.toQueryList "member" subnets+      ]++-- | Contains the output of AttachLoadBalancerToSubnets.+--+-- /See:/ 'newAttachLoadBalancerToSubnetsResponse' smart constructor.+data AttachLoadBalancerToSubnetsResponse = AttachLoadBalancerToSubnetsResponse'+  { -- | The IDs of the subnets attached to the load balancer.+    subnets :: Prelude.Maybe [Prelude.Text],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AttachLoadBalancerToSubnetsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'subnets', 'attachLoadBalancerToSubnetsResponse_subnets' - The IDs of the subnets attached to the load balancer.+--+-- 'httpStatus', 'attachLoadBalancerToSubnetsResponse_httpStatus' - The response's http status code.+newAttachLoadBalancerToSubnetsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  AttachLoadBalancerToSubnetsResponse+newAttachLoadBalancerToSubnetsResponse pHttpStatus_ =+  AttachLoadBalancerToSubnetsResponse'+    { subnets =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The IDs of the subnets attached to the load balancer.+attachLoadBalancerToSubnetsResponse_subnets :: Lens.Lens' AttachLoadBalancerToSubnetsResponse (Prelude.Maybe [Prelude.Text])+attachLoadBalancerToSubnetsResponse_subnets = Lens.lens (\AttachLoadBalancerToSubnetsResponse' {subnets} -> subnets) (\s@AttachLoadBalancerToSubnetsResponse' {} a -> s {subnets = a} :: AttachLoadBalancerToSubnetsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+attachLoadBalancerToSubnetsResponse_httpStatus :: Lens.Lens' AttachLoadBalancerToSubnetsResponse Prelude.Int+attachLoadBalancerToSubnetsResponse_httpStatus = Lens.lens (\AttachLoadBalancerToSubnetsResponse' {httpStatus} -> httpStatus) (\s@AttachLoadBalancerToSubnetsResponse' {} a -> s {httpStatus = a} :: AttachLoadBalancerToSubnetsResponse)++instance+  Prelude.NFData+    AttachLoadBalancerToSubnetsResponse+  where+  rnf AttachLoadBalancerToSubnetsResponse' {..} =+    Prelude.rnf subnets+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,188 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.ConfigureHealthCheck+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Specifies the health check settings to use when evaluating the health+-- state of your EC2 instances.+--+-- For more information, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/elb-healthchecks.html Configure Health Checks for Your Load Balancer>+-- in the /Classic Load Balancers Guide/.+module Amazonka.ELB.ConfigureHealthCheck+  ( -- * Creating a Request+    ConfigureHealthCheck (..),+    newConfigureHealthCheck,++    -- * Request Lenses+    configureHealthCheck_loadBalancerName,+    configureHealthCheck_healthCheck,++    -- * Destructuring the Response+    ConfigureHealthCheckResponse (..),+    newConfigureHealthCheckResponse,++    -- * Response Lenses+    configureHealthCheckResponse_healthCheck,+    configureHealthCheckResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for ConfigureHealthCheck.+--+-- /See:/ 'newConfigureHealthCheck' smart constructor.+data ConfigureHealthCheck = ConfigureHealthCheck'+  { -- | The name of the load balancer.+    loadBalancerName :: Prelude.Text,+    -- | The configuration information.+    healthCheck :: HealthCheck+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ConfigureHealthCheck' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'loadBalancerName', 'configureHealthCheck_loadBalancerName' - The name of the load balancer.+--+-- 'healthCheck', 'configureHealthCheck_healthCheck' - The configuration information.+newConfigureHealthCheck ::+  -- | 'loadBalancerName'+  Prelude.Text ->+  -- | 'healthCheck'+  HealthCheck ->+  ConfigureHealthCheck+newConfigureHealthCheck+  pLoadBalancerName_+  pHealthCheck_ =+    ConfigureHealthCheck'+      { loadBalancerName =+          pLoadBalancerName_,+        healthCheck = pHealthCheck_+      }++-- | The name of the load balancer.+configureHealthCheck_loadBalancerName :: Lens.Lens' ConfigureHealthCheck Prelude.Text+configureHealthCheck_loadBalancerName = Lens.lens (\ConfigureHealthCheck' {loadBalancerName} -> loadBalancerName) (\s@ConfigureHealthCheck' {} a -> s {loadBalancerName = a} :: ConfigureHealthCheck)++-- | The configuration information.+configureHealthCheck_healthCheck :: Lens.Lens' ConfigureHealthCheck HealthCheck+configureHealthCheck_healthCheck = Lens.lens (\ConfigureHealthCheck' {healthCheck} -> healthCheck) (\s@ConfigureHealthCheck' {} a -> s {healthCheck = a} :: ConfigureHealthCheck)++instance Core.AWSRequest ConfigureHealthCheck where+  type+    AWSResponse ConfigureHealthCheck =+      ConfigureHealthCheckResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "ConfigureHealthCheckResult"+      ( \s h x ->+          ConfigureHealthCheckResponse'+            Prelude.<$> (x Data..@? "HealthCheck")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ConfigureHealthCheck where+  hashWithSalt _salt ConfigureHealthCheck' {..} =+    _salt+      `Prelude.hashWithSalt` loadBalancerName+      `Prelude.hashWithSalt` healthCheck++instance Prelude.NFData ConfigureHealthCheck where+  rnf ConfigureHealthCheck' {..} =+    Prelude.rnf loadBalancerName+      `Prelude.seq` Prelude.rnf healthCheck++instance Data.ToHeaders ConfigureHealthCheck where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath ConfigureHealthCheck where+  toPath = Prelude.const "/"++instance Data.ToQuery ConfigureHealthCheck where+  toQuery ConfigureHealthCheck' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("ConfigureHealthCheck" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "LoadBalancerName" Data.=: loadBalancerName,+        "HealthCheck" Data.=: healthCheck+      ]++-- | Contains the output of ConfigureHealthCheck.+--+-- /See:/ 'newConfigureHealthCheckResponse' smart constructor.+data ConfigureHealthCheckResponse = ConfigureHealthCheckResponse'+  { -- | The updated health check.+    healthCheck :: Prelude.Maybe HealthCheck,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ConfigureHealthCheckResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'healthCheck', 'configureHealthCheckResponse_healthCheck' - The updated health check.+--+-- 'httpStatus', 'configureHealthCheckResponse_httpStatus' - The response's http status code.+newConfigureHealthCheckResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ConfigureHealthCheckResponse+newConfigureHealthCheckResponse pHttpStatus_ =+  ConfigureHealthCheckResponse'+    { healthCheck =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The updated health check.+configureHealthCheckResponse_healthCheck :: Lens.Lens' ConfigureHealthCheckResponse (Prelude.Maybe HealthCheck)+configureHealthCheckResponse_healthCheck = Lens.lens (\ConfigureHealthCheckResponse' {healthCheck} -> healthCheck) (\s@ConfigureHealthCheckResponse' {} a -> s {healthCheck = a} :: ConfigureHealthCheckResponse)++-- | The response's http status code.+configureHealthCheckResponse_httpStatus :: Lens.Lens' ConfigureHealthCheckResponse Prelude.Int+configureHealthCheckResponse_httpStatus = Lens.lens (\ConfigureHealthCheckResponse' {httpStatus} -> httpStatus) (\s@ConfigureHealthCheckResponse' {} a -> s {httpStatus = a} :: ConfigureHealthCheckResponse)++instance Prelude.NFData ConfigureHealthCheckResponse where+  rnf ConfigureHealthCheckResponse' {..} =+    Prelude.rnf healthCheck+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,229 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.CreateAppCookieStickinessPolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Generates a stickiness policy with sticky session lifetimes that follow+-- that of an application-generated cookie. This policy can be associated+-- only with HTTP\/HTTPS listeners.+--+-- This policy is similar to the policy created by+-- CreateLBCookieStickinessPolicy, except that the lifetime of the special+-- Elastic Load Balancing cookie, @AWSELB@, follows the lifetime of the+-- application-generated cookie specified in the policy configuration. The+-- load balancer only inserts a new stickiness cookie when the application+-- response includes a new application cookie.+--+-- If the application cookie is explicitly removed or expires, the session+-- stops being sticky until a new application cookie is issued.+--+-- For more information, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/elb-sticky-sessions.html#enable-sticky-sessions-application Application-Controlled Session Stickiness>+-- in the /Classic Load Balancers Guide/.+module Amazonka.ELB.CreateAppCookieStickinessPolicy+  ( -- * Creating a Request+    CreateAppCookieStickinessPolicy (..),+    newCreateAppCookieStickinessPolicy,++    -- * Request Lenses+    createAppCookieStickinessPolicy_loadBalancerName,+    createAppCookieStickinessPolicy_policyName,+    createAppCookieStickinessPolicy_cookieName,++    -- * Destructuring the Response+    CreateAppCookieStickinessPolicyResponse (..),+    newCreateAppCookieStickinessPolicyResponse,++    -- * Response Lenses+    createAppCookieStickinessPolicyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for CreateAppCookieStickinessPolicy.+--+-- /See:/ 'newCreateAppCookieStickinessPolicy' smart constructor.+data CreateAppCookieStickinessPolicy = CreateAppCookieStickinessPolicy'+  { -- | The name of the load balancer.+    loadBalancerName :: Prelude.Text,+    -- | The name of the policy being created. Policy names must consist of+    -- alphanumeric characters and dashes (-). This name must be unique within+    -- the set of policies for this load balancer.+    policyName :: Prelude.Text,+    -- | The name of the application cookie used for stickiness.+    cookieName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateAppCookieStickinessPolicy' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'loadBalancerName', 'createAppCookieStickinessPolicy_loadBalancerName' - The name of the load balancer.+--+-- 'policyName', 'createAppCookieStickinessPolicy_policyName' - The name of the policy being created. Policy names must consist of+-- alphanumeric characters and dashes (-). This name must be unique within+-- the set of policies for this load balancer.+--+-- 'cookieName', 'createAppCookieStickinessPolicy_cookieName' - The name of the application cookie used for stickiness.+newCreateAppCookieStickinessPolicy ::+  -- | 'loadBalancerName'+  Prelude.Text ->+  -- | 'policyName'+  Prelude.Text ->+  -- | 'cookieName'+  Prelude.Text ->+  CreateAppCookieStickinessPolicy+newCreateAppCookieStickinessPolicy+  pLoadBalancerName_+  pPolicyName_+  pCookieName_ =+    CreateAppCookieStickinessPolicy'+      { loadBalancerName =+          pLoadBalancerName_,+        policyName = pPolicyName_,+        cookieName = pCookieName_+      }++-- | The name of the load balancer.+createAppCookieStickinessPolicy_loadBalancerName :: Lens.Lens' CreateAppCookieStickinessPolicy Prelude.Text+createAppCookieStickinessPolicy_loadBalancerName = Lens.lens (\CreateAppCookieStickinessPolicy' {loadBalancerName} -> loadBalancerName) (\s@CreateAppCookieStickinessPolicy' {} a -> s {loadBalancerName = a} :: CreateAppCookieStickinessPolicy)++-- | The name of the policy being created. Policy names must consist of+-- alphanumeric characters and dashes (-). This name must be unique within+-- the set of policies for this load balancer.+createAppCookieStickinessPolicy_policyName :: Lens.Lens' CreateAppCookieStickinessPolicy Prelude.Text+createAppCookieStickinessPolicy_policyName = Lens.lens (\CreateAppCookieStickinessPolicy' {policyName} -> policyName) (\s@CreateAppCookieStickinessPolicy' {} a -> s {policyName = a} :: CreateAppCookieStickinessPolicy)++-- | The name of the application cookie used for stickiness.+createAppCookieStickinessPolicy_cookieName :: Lens.Lens' CreateAppCookieStickinessPolicy Prelude.Text+createAppCookieStickinessPolicy_cookieName = Lens.lens (\CreateAppCookieStickinessPolicy' {cookieName} -> cookieName) (\s@CreateAppCookieStickinessPolicy' {} a -> s {cookieName = a} :: CreateAppCookieStickinessPolicy)++instance+  Core.AWSRequest+    CreateAppCookieStickinessPolicy+  where+  type+    AWSResponse CreateAppCookieStickinessPolicy =+      CreateAppCookieStickinessPolicyResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "CreateAppCookieStickinessPolicyResult"+      ( \s h x ->+          CreateAppCookieStickinessPolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    CreateAppCookieStickinessPolicy+  where+  hashWithSalt+    _salt+    CreateAppCookieStickinessPolicy' {..} =+      _salt+        `Prelude.hashWithSalt` loadBalancerName+        `Prelude.hashWithSalt` policyName+        `Prelude.hashWithSalt` cookieName++instance+  Prelude.NFData+    CreateAppCookieStickinessPolicy+  where+  rnf CreateAppCookieStickinessPolicy' {..} =+    Prelude.rnf loadBalancerName+      `Prelude.seq` Prelude.rnf policyName+      `Prelude.seq` Prelude.rnf cookieName++instance+  Data.ToHeaders+    CreateAppCookieStickinessPolicy+  where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateAppCookieStickinessPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateAppCookieStickinessPolicy where+  toQuery CreateAppCookieStickinessPolicy' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ( "CreateAppCookieStickinessPolicy" ::+                      Prelude.ByteString+                  ),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "LoadBalancerName" Data.=: loadBalancerName,+        "PolicyName" Data.=: policyName,+        "CookieName" Data.=: cookieName+      ]++-- | Contains the output for CreateAppCookieStickinessPolicy.+--+-- /See:/ 'newCreateAppCookieStickinessPolicyResponse' smart constructor.+data CreateAppCookieStickinessPolicyResponse = CreateAppCookieStickinessPolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateAppCookieStickinessPolicyResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createAppCookieStickinessPolicyResponse_httpStatus' - The response's http status code.+newCreateAppCookieStickinessPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateAppCookieStickinessPolicyResponse+newCreateAppCookieStickinessPolicyResponse+  pHttpStatus_ =+    CreateAppCookieStickinessPolicyResponse'+      { httpStatus =+          pHttpStatus_+      }++-- | The response's http status code.+createAppCookieStickinessPolicyResponse_httpStatus :: Lens.Lens' CreateAppCookieStickinessPolicyResponse Prelude.Int+createAppCookieStickinessPolicyResponse_httpStatus = Lens.lens (\CreateAppCookieStickinessPolicyResponse' {httpStatus} -> httpStatus) (\s@CreateAppCookieStickinessPolicyResponse' {} a -> s {httpStatus = a} :: CreateAppCookieStickinessPolicyResponse)++instance+  Prelude.NFData+    CreateAppCookieStickinessPolicyResponse+  where+  rnf CreateAppCookieStickinessPolicyResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,239 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.CreateLBCookieStickinessPolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Generates a stickiness policy with sticky session lifetimes controlled+-- by the lifetime of the browser (user-agent) or a specified expiration+-- period. This policy can be associated only with HTTP\/HTTPS listeners.+--+-- When a load balancer implements this policy, the load balancer uses a+-- special cookie to track the instance for each request. When the load+-- balancer receives a request, it first checks to see if this cookie is+-- present in the request. If so, the load balancer sends the request to+-- the application server specified in the cookie. If not, the load+-- balancer sends the request to a server that is chosen based on the+-- existing load-balancing algorithm.+--+-- A cookie is inserted into the response for binding subsequent requests+-- from the same user to that server. The validity of the cookie is based+-- on the cookie expiration time, which is specified in the policy+-- configuration.+--+-- For more information, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/elb-sticky-sessions.html#enable-sticky-sessions-duration Duration-Based Session Stickiness>+-- in the /Classic Load Balancers Guide/.+module Amazonka.ELB.CreateLBCookieStickinessPolicy+  ( -- * Creating a Request+    CreateLBCookieStickinessPolicy (..),+    newCreateLBCookieStickinessPolicy,++    -- * Request Lenses+    createLBCookieStickinessPolicy_cookieExpirationPeriod,+    createLBCookieStickinessPolicy_loadBalancerName,+    createLBCookieStickinessPolicy_policyName,++    -- * Destructuring the Response+    CreateLBCookieStickinessPolicyResponse (..),+    newCreateLBCookieStickinessPolicyResponse,++    -- * Response Lenses+    createLBCookieStickinessPolicyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for CreateLBCookieStickinessPolicy.+--+-- /See:/ 'newCreateLBCookieStickinessPolicy' smart constructor.+data CreateLBCookieStickinessPolicy = CreateLBCookieStickinessPolicy'+  { -- | The time period, in seconds, after which the cookie should be considered+    -- stale. If you do not specify this parameter, the default value is 0,+    -- which indicates that the sticky session should last for the duration of+    -- the browser session.+    cookieExpirationPeriod :: Prelude.Maybe Prelude.Integer,+    -- | The name of the load balancer.+    loadBalancerName :: Prelude.Text,+    -- | The name of the policy being created. Policy names must consist of+    -- alphanumeric characters and dashes (-). This name must be unique within+    -- the set of policies for this load balancer.+    policyName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLBCookieStickinessPolicy' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cookieExpirationPeriod', 'createLBCookieStickinessPolicy_cookieExpirationPeriod' - The time period, in seconds, after which the cookie should be considered+-- stale. If you do not specify this parameter, the default value is 0,+-- which indicates that the sticky session should last for the duration of+-- the browser session.+--+-- 'loadBalancerName', 'createLBCookieStickinessPolicy_loadBalancerName' - The name of the load balancer.+--+-- 'policyName', 'createLBCookieStickinessPolicy_policyName' - The name of the policy being created. Policy names must consist of+-- alphanumeric characters and dashes (-). This name must be unique within+-- the set of policies for this load balancer.+newCreateLBCookieStickinessPolicy ::+  -- | 'loadBalancerName'+  Prelude.Text ->+  -- | 'policyName'+  Prelude.Text ->+  CreateLBCookieStickinessPolicy+newCreateLBCookieStickinessPolicy+  pLoadBalancerName_+  pPolicyName_ =+    CreateLBCookieStickinessPolicy'+      { cookieExpirationPeriod =+          Prelude.Nothing,+        loadBalancerName = pLoadBalancerName_,+        policyName = pPolicyName_+      }++-- | The time period, in seconds, after which the cookie should be considered+-- stale. If you do not specify this parameter, the default value is 0,+-- which indicates that the sticky session should last for the duration of+-- the browser session.+createLBCookieStickinessPolicy_cookieExpirationPeriod :: Lens.Lens' CreateLBCookieStickinessPolicy (Prelude.Maybe Prelude.Integer)+createLBCookieStickinessPolicy_cookieExpirationPeriod = Lens.lens (\CreateLBCookieStickinessPolicy' {cookieExpirationPeriod} -> cookieExpirationPeriod) (\s@CreateLBCookieStickinessPolicy' {} a -> s {cookieExpirationPeriod = a} :: CreateLBCookieStickinessPolicy)++-- | The name of the load balancer.+createLBCookieStickinessPolicy_loadBalancerName :: Lens.Lens' CreateLBCookieStickinessPolicy Prelude.Text+createLBCookieStickinessPolicy_loadBalancerName = Lens.lens (\CreateLBCookieStickinessPolicy' {loadBalancerName} -> loadBalancerName) (\s@CreateLBCookieStickinessPolicy' {} a -> s {loadBalancerName = a} :: CreateLBCookieStickinessPolicy)++-- | The name of the policy being created. Policy names must consist of+-- alphanumeric characters and dashes (-). This name must be unique within+-- the set of policies for this load balancer.+createLBCookieStickinessPolicy_policyName :: Lens.Lens' CreateLBCookieStickinessPolicy Prelude.Text+createLBCookieStickinessPolicy_policyName = Lens.lens (\CreateLBCookieStickinessPolicy' {policyName} -> policyName) (\s@CreateLBCookieStickinessPolicy' {} a -> s {policyName = a} :: CreateLBCookieStickinessPolicy)++instance+  Core.AWSRequest+    CreateLBCookieStickinessPolicy+  where+  type+    AWSResponse CreateLBCookieStickinessPolicy =+      CreateLBCookieStickinessPolicyResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "CreateLBCookieStickinessPolicyResult"+      ( \s h x ->+          CreateLBCookieStickinessPolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    CreateLBCookieStickinessPolicy+  where+  hashWithSalt+    _salt+    CreateLBCookieStickinessPolicy' {..} =+      _salt+        `Prelude.hashWithSalt` cookieExpirationPeriod+        `Prelude.hashWithSalt` loadBalancerName+        `Prelude.hashWithSalt` policyName++instance+  Prelude.NFData+    CreateLBCookieStickinessPolicy+  where+  rnf CreateLBCookieStickinessPolicy' {..} =+    Prelude.rnf cookieExpirationPeriod+      `Prelude.seq` Prelude.rnf loadBalancerName+      `Prelude.seq` Prelude.rnf policyName++instance+  Data.ToHeaders+    CreateLBCookieStickinessPolicy+  where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateLBCookieStickinessPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateLBCookieStickinessPolicy where+  toQuery CreateLBCookieStickinessPolicy' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ( "CreateLBCookieStickinessPolicy" ::+                      Prelude.ByteString+                  ),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "CookieExpirationPeriod"+          Data.=: cookieExpirationPeriod,+        "LoadBalancerName" Data.=: loadBalancerName,+        "PolicyName" Data.=: policyName+      ]++-- | Contains the output for CreateLBCookieStickinessPolicy.+--+-- /See:/ 'newCreateLBCookieStickinessPolicyResponse' smart constructor.+data CreateLBCookieStickinessPolicyResponse = CreateLBCookieStickinessPolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLBCookieStickinessPolicyResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createLBCookieStickinessPolicyResponse_httpStatus' - The response's http status code.+newCreateLBCookieStickinessPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateLBCookieStickinessPolicyResponse+newCreateLBCookieStickinessPolicyResponse+  pHttpStatus_ =+    CreateLBCookieStickinessPolicyResponse'+      { httpStatus =+          pHttpStatus_+      }++-- | The response's http status code.+createLBCookieStickinessPolicyResponse_httpStatus :: Lens.Lens' CreateLBCookieStickinessPolicyResponse Prelude.Int+createLBCookieStickinessPolicyResponse_httpStatus = Lens.lens (\CreateLBCookieStickinessPolicyResponse' {httpStatus} -> httpStatus) (\s@CreateLBCookieStickinessPolicyResponse' {} a -> s {httpStatus = a} :: CreateLBCookieStickinessPolicyResponse)++instance+  Prelude.NFData+    CreateLBCookieStickinessPolicyResponse+  where+  rnf CreateLBCookieStickinessPolicyResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,362 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.CreateLoadBalancer+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a Classic Load Balancer.+--+-- You can add listeners, security groups, subnets, and tags when you+-- create your load balancer, or you can add them later using+-- CreateLoadBalancerListeners, ApplySecurityGroupsToLoadBalancer,+-- AttachLoadBalancerToSubnets, and AddTags.+--+-- To describe your current load balancers, see DescribeLoadBalancers. When+-- you are finished with a load balancer, you can delete it using+-- DeleteLoadBalancer.+--+-- You can create up to 20 load balancers per region per account. You can+-- request an increase for the number of load balancers for your account.+-- For more information, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/elb-limits.html Limits for Your Classic Load Balancer>+-- in the /Classic Load Balancers Guide/.+module Amazonka.ELB.CreateLoadBalancer+  ( -- * Creating a Request+    CreateLoadBalancer (..),+    newCreateLoadBalancer,++    -- * Request Lenses+    createLoadBalancer_availabilityZones,+    createLoadBalancer_scheme,+    createLoadBalancer_securityGroups,+    createLoadBalancer_subnets,+    createLoadBalancer_tags,+    createLoadBalancer_loadBalancerName,+    createLoadBalancer_listeners,++    -- * Destructuring the Response+    CreateLoadBalancerResponse (..),+    newCreateLoadBalancerResponse,++    -- * Response Lenses+    createLoadBalancerResponse_dNSName,+    createLoadBalancerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for CreateLoadBalancer.+--+-- /See:/ 'newCreateLoadBalancer' smart constructor.+data CreateLoadBalancer = CreateLoadBalancer'+  { -- | One or more Availability Zones from the same region as the load+    -- balancer.+    --+    -- You must specify at least one Availability Zone.+    --+    -- You can add more Availability Zones after you create the load balancer+    -- using EnableAvailabilityZonesForLoadBalancer.+    availabilityZones :: Prelude.Maybe [Prelude.Text],+    -- | The type of a load balancer. Valid only for load balancers in a VPC.+    --+    -- By default, Elastic Load Balancing creates an Internet-facing load+    -- balancer with a DNS name that resolves to public IP addresses. For more+    -- information about Internet-facing and Internal load balancers, see+    -- <https://docs.aws.amazon.com/elasticloadbalancing/latest/userguide/how-elastic-load-balancing-works.html#load-balancer-scheme Load Balancer Scheme>+    -- in the /Elastic Load Balancing User Guide/.+    --+    -- Specify @internal@ to create a load balancer with a DNS name that+    -- resolves to private IP addresses.+    scheme :: Prelude.Maybe Prelude.Text,+    -- | The IDs of the security groups to assign to the load balancer.+    securityGroups :: Prelude.Maybe [Prelude.Text],+    -- | The IDs of the subnets in your VPC to attach to the load balancer.+    -- Specify one subnet per Availability Zone specified in+    -- @AvailabilityZones@.+    subnets :: Prelude.Maybe [Prelude.Text],+    -- | A list of tags to assign to the load balancer.+    --+    -- For more information about tagging your load balancer, see+    -- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/add-remove-tags.html Tag Your Classic Load Balancer>+    -- in the /Classic Load Balancers Guide/.+    tags :: Prelude.Maybe (Prelude.NonEmpty Tag),+    -- | The name of the load balancer.+    --+    -- This name must be unique within your set of load balancers for the+    -- region, must have a maximum of 32 characters, must contain only+    -- alphanumeric characters or hyphens, and cannot begin or end with a+    -- hyphen.+    loadBalancerName :: Prelude.Text,+    -- | The listeners.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/elb-listener-config.html Listeners for Your Classic Load Balancer>+    -- in the /Classic Load Balancers Guide/.+    listeners :: [Listener]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLoadBalancer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'availabilityZones', 'createLoadBalancer_availabilityZones' - One or more Availability Zones from the same region as the load+-- balancer.+--+-- You must specify at least one Availability Zone.+--+-- You can add more Availability Zones after you create the load balancer+-- using EnableAvailabilityZonesForLoadBalancer.+--+-- 'scheme', 'createLoadBalancer_scheme' - The type of a load balancer. Valid only for load balancers in a VPC.+--+-- By default, Elastic Load Balancing creates an Internet-facing load+-- balancer with a DNS name that resolves to public IP addresses. For more+-- information about Internet-facing and Internal load balancers, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/userguide/how-elastic-load-balancing-works.html#load-balancer-scheme Load Balancer Scheme>+-- in the /Elastic Load Balancing User Guide/.+--+-- Specify @internal@ to create a load balancer with a DNS name that+-- resolves to private IP addresses.+--+-- 'securityGroups', 'createLoadBalancer_securityGroups' - The IDs of the security groups to assign to the load balancer.+--+-- 'subnets', 'createLoadBalancer_subnets' - The IDs of the subnets in your VPC to attach to the load balancer.+-- Specify one subnet per Availability Zone specified in+-- @AvailabilityZones@.+--+-- 'tags', 'createLoadBalancer_tags' - A list of tags to assign to the load balancer.+--+-- For more information about tagging your load balancer, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/add-remove-tags.html Tag Your Classic Load Balancer>+-- in the /Classic Load Balancers Guide/.+--+-- 'loadBalancerName', 'createLoadBalancer_loadBalancerName' - The name of the load balancer.+--+-- This name must be unique within your set of load balancers for the+-- region, must have a maximum of 32 characters, must contain only+-- alphanumeric characters or hyphens, and cannot begin or end with a+-- hyphen.+--+-- 'listeners', 'createLoadBalancer_listeners' - The listeners.+--+-- For more information, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/elb-listener-config.html Listeners for Your Classic Load Balancer>+-- in the /Classic Load Balancers Guide/.+newCreateLoadBalancer ::+  -- | 'loadBalancerName'+  Prelude.Text ->+  CreateLoadBalancer+newCreateLoadBalancer pLoadBalancerName_ =+  CreateLoadBalancer'+    { availabilityZones =+        Prelude.Nothing,+      scheme = Prelude.Nothing,+      securityGroups = Prelude.Nothing,+      subnets = Prelude.Nothing,+      tags = Prelude.Nothing,+      loadBalancerName = pLoadBalancerName_,+      listeners = Prelude.mempty+    }++-- | One or more Availability Zones from the same region as the load+-- balancer.+--+-- You must specify at least one Availability Zone.+--+-- You can add more Availability Zones after you create the load balancer+-- using EnableAvailabilityZonesForLoadBalancer.+createLoadBalancer_availabilityZones :: Lens.Lens' CreateLoadBalancer (Prelude.Maybe [Prelude.Text])+createLoadBalancer_availabilityZones = Lens.lens (\CreateLoadBalancer' {availabilityZones} -> availabilityZones) (\s@CreateLoadBalancer' {} a -> s {availabilityZones = a} :: CreateLoadBalancer) Prelude.. Lens.mapping Lens.coerced++-- | The type of a load balancer. Valid only for load balancers in a VPC.+--+-- By default, Elastic Load Balancing creates an Internet-facing load+-- balancer with a DNS name that resolves to public IP addresses. For more+-- information about Internet-facing and Internal load balancers, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/userguide/how-elastic-load-balancing-works.html#load-balancer-scheme Load Balancer Scheme>+-- in the /Elastic Load Balancing User Guide/.+--+-- Specify @internal@ to create a load balancer with a DNS name that+-- resolves to private IP addresses.+createLoadBalancer_scheme :: Lens.Lens' CreateLoadBalancer (Prelude.Maybe Prelude.Text)+createLoadBalancer_scheme = Lens.lens (\CreateLoadBalancer' {scheme} -> scheme) (\s@CreateLoadBalancer' {} a -> s {scheme = a} :: CreateLoadBalancer)++-- | The IDs of the security groups to assign to the load balancer.+createLoadBalancer_securityGroups :: Lens.Lens' CreateLoadBalancer (Prelude.Maybe [Prelude.Text])+createLoadBalancer_securityGroups = Lens.lens (\CreateLoadBalancer' {securityGroups} -> securityGroups) (\s@CreateLoadBalancer' {} a -> s {securityGroups = a} :: CreateLoadBalancer) Prelude.. Lens.mapping Lens.coerced++-- | The IDs of the subnets in your VPC to attach to the load balancer.+-- Specify one subnet per Availability Zone specified in+-- @AvailabilityZones@.+createLoadBalancer_subnets :: Lens.Lens' CreateLoadBalancer (Prelude.Maybe [Prelude.Text])+createLoadBalancer_subnets = Lens.lens (\CreateLoadBalancer' {subnets} -> subnets) (\s@CreateLoadBalancer' {} a -> s {subnets = a} :: CreateLoadBalancer) Prelude.. Lens.mapping Lens.coerced++-- | A list of tags to assign to the load balancer.+--+-- For more information about tagging your load balancer, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/add-remove-tags.html Tag Your Classic Load Balancer>+-- in the /Classic Load Balancers Guide/.+createLoadBalancer_tags :: Lens.Lens' CreateLoadBalancer (Prelude.Maybe (Prelude.NonEmpty Tag))+createLoadBalancer_tags = Lens.lens (\CreateLoadBalancer' {tags} -> tags) (\s@CreateLoadBalancer' {} a -> s {tags = a} :: CreateLoadBalancer) Prelude.. Lens.mapping Lens.coerced++-- | The name of the load balancer.+--+-- This name must be unique within your set of load balancers for the+-- region, must have a maximum of 32 characters, must contain only+-- alphanumeric characters or hyphens, and cannot begin or end with a+-- hyphen.+createLoadBalancer_loadBalancerName :: Lens.Lens' CreateLoadBalancer Prelude.Text+createLoadBalancer_loadBalancerName = Lens.lens (\CreateLoadBalancer' {loadBalancerName} -> loadBalancerName) (\s@CreateLoadBalancer' {} a -> s {loadBalancerName = a} :: CreateLoadBalancer)++-- | The listeners.+--+-- For more information, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/elb-listener-config.html Listeners for Your Classic Load Balancer>+-- in the /Classic Load Balancers Guide/.+createLoadBalancer_listeners :: Lens.Lens' CreateLoadBalancer [Listener]+createLoadBalancer_listeners = Lens.lens (\CreateLoadBalancer' {listeners} -> listeners) (\s@CreateLoadBalancer' {} a -> s {listeners = a} :: CreateLoadBalancer) Prelude.. Lens.coerced++instance Core.AWSRequest CreateLoadBalancer where+  type+    AWSResponse CreateLoadBalancer =+      CreateLoadBalancerResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "CreateLoadBalancerResult"+      ( \s h x ->+          CreateLoadBalancerResponse'+            Prelude.<$> (x Data..@? "DNSName")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateLoadBalancer where+  hashWithSalt _salt CreateLoadBalancer' {..} =+    _salt+      `Prelude.hashWithSalt` availabilityZones+      `Prelude.hashWithSalt` scheme+      `Prelude.hashWithSalt` securityGroups+      `Prelude.hashWithSalt` subnets+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` loadBalancerName+      `Prelude.hashWithSalt` listeners++instance Prelude.NFData CreateLoadBalancer where+  rnf CreateLoadBalancer' {..} =+    Prelude.rnf availabilityZones+      `Prelude.seq` Prelude.rnf scheme+      `Prelude.seq` Prelude.rnf securityGroups+      `Prelude.seq` Prelude.rnf subnets+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf loadBalancerName+      `Prelude.seq` Prelude.rnf listeners++instance Data.ToHeaders CreateLoadBalancer where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateLoadBalancer where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateLoadBalancer where+  toQuery CreateLoadBalancer' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("CreateLoadBalancer" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "AvailabilityZones"+          Data.=: Data.toQuery+            ( Data.toQueryList "member"+                Prelude.<$> availabilityZones+            ),+        "Scheme" Data.=: scheme,+        "SecurityGroups"+          Data.=: Data.toQuery+            ( Data.toQueryList "member"+                Prelude.<$> securityGroups+            ),+        "Subnets"+          Data.=: Data.toQuery+            (Data.toQueryList "member" Prelude.<$> subnets),+        "Tags"+          Data.=: Data.toQuery+            (Data.toQueryList "member" Prelude.<$> tags),+        "LoadBalancerName" Data.=: loadBalancerName,+        "Listeners"+          Data.=: Data.toQueryList "member" listeners+      ]++-- | Contains the output for CreateLoadBalancer.+--+-- /See:/ 'newCreateLoadBalancerResponse' smart constructor.+data CreateLoadBalancerResponse = CreateLoadBalancerResponse'+  { -- | The DNS name of the load balancer.+    dNSName :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLoadBalancerResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dNSName', 'createLoadBalancerResponse_dNSName' - The DNS name of the load balancer.+--+-- 'httpStatus', 'createLoadBalancerResponse_httpStatus' - The response's http status code.+newCreateLoadBalancerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateLoadBalancerResponse+newCreateLoadBalancerResponse pHttpStatus_ =+  CreateLoadBalancerResponse'+    { dNSName =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The DNS name of the load balancer.+createLoadBalancerResponse_dNSName :: Lens.Lens' CreateLoadBalancerResponse (Prelude.Maybe Prelude.Text)+createLoadBalancerResponse_dNSName = Lens.lens (\CreateLoadBalancerResponse' {dNSName} -> dNSName) (\s@CreateLoadBalancerResponse' {} a -> s {dNSName = a} :: CreateLoadBalancerResponse)++-- | The response's http status code.+createLoadBalancerResponse_httpStatus :: Lens.Lens' CreateLoadBalancerResponse Prelude.Int+createLoadBalancerResponse_httpStatus = Lens.lens (\CreateLoadBalancerResponse' {httpStatus} -> httpStatus) (\s@CreateLoadBalancerResponse' {} a -> s {httpStatus = a} :: CreateLoadBalancerResponse)++instance Prelude.NFData CreateLoadBalancerResponse where+  rnf CreateLoadBalancerResponse' {..} =+    Prelude.rnf dNSName+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,180 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.CreateLoadBalancerListeners+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates one or more listeners for the specified load balancer. If a+-- listener with the specified port does not already exist, it is created;+-- otherwise, the properties of the new listener must match the properties+-- of the existing listener.+--+-- For more information, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/elb-listener-config.html Listeners for Your Classic Load Balancer>+-- in the /Classic Load Balancers Guide/.+module Amazonka.ELB.CreateLoadBalancerListeners+  ( -- * Creating a Request+    CreateLoadBalancerListeners (..),+    newCreateLoadBalancerListeners,++    -- * Request Lenses+    createLoadBalancerListeners_loadBalancerName,+    createLoadBalancerListeners_listeners,++    -- * Destructuring the Response+    CreateLoadBalancerListenersResponse (..),+    newCreateLoadBalancerListenersResponse,++    -- * Response Lenses+    createLoadBalancerListenersResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for CreateLoadBalancerListeners.+--+-- /See:/ 'newCreateLoadBalancerListeners' smart constructor.+data CreateLoadBalancerListeners = CreateLoadBalancerListeners'+  { -- | The name of the load balancer.+    loadBalancerName :: Prelude.Text,+    -- | The listeners.+    listeners :: [Listener]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLoadBalancerListeners' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'loadBalancerName', 'createLoadBalancerListeners_loadBalancerName' - The name of the load balancer.+--+-- 'listeners', 'createLoadBalancerListeners_listeners' - The listeners.+newCreateLoadBalancerListeners ::+  -- | 'loadBalancerName'+  Prelude.Text ->+  CreateLoadBalancerListeners+newCreateLoadBalancerListeners pLoadBalancerName_ =+  CreateLoadBalancerListeners'+    { loadBalancerName =+        pLoadBalancerName_,+      listeners = Prelude.mempty+    }++-- | The name of the load balancer.+createLoadBalancerListeners_loadBalancerName :: Lens.Lens' CreateLoadBalancerListeners Prelude.Text+createLoadBalancerListeners_loadBalancerName = Lens.lens (\CreateLoadBalancerListeners' {loadBalancerName} -> loadBalancerName) (\s@CreateLoadBalancerListeners' {} a -> s {loadBalancerName = a} :: CreateLoadBalancerListeners)++-- | The listeners.+createLoadBalancerListeners_listeners :: Lens.Lens' CreateLoadBalancerListeners [Listener]+createLoadBalancerListeners_listeners = Lens.lens (\CreateLoadBalancerListeners' {listeners} -> listeners) (\s@CreateLoadBalancerListeners' {} a -> s {listeners = a} :: CreateLoadBalancerListeners) Prelude.. Lens.coerced++instance Core.AWSRequest CreateLoadBalancerListeners where+  type+    AWSResponse CreateLoadBalancerListeners =+      CreateLoadBalancerListenersResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "CreateLoadBalancerListenersResult"+      ( \s h x ->+          CreateLoadBalancerListenersResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateLoadBalancerListeners where+  hashWithSalt _salt CreateLoadBalancerListeners' {..} =+    _salt+      `Prelude.hashWithSalt` loadBalancerName+      `Prelude.hashWithSalt` listeners++instance Prelude.NFData CreateLoadBalancerListeners where+  rnf CreateLoadBalancerListeners' {..} =+    Prelude.rnf loadBalancerName+      `Prelude.seq` Prelude.rnf listeners++instance Data.ToHeaders CreateLoadBalancerListeners where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateLoadBalancerListeners where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateLoadBalancerListeners where+  toQuery CreateLoadBalancerListeners' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ( "CreateLoadBalancerListeners" ::+                      Prelude.ByteString+                  ),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "LoadBalancerName" Data.=: loadBalancerName,+        "Listeners"+          Data.=: Data.toQueryList "member" listeners+      ]++-- | Contains the parameters for CreateLoadBalancerListener.+--+-- /See:/ 'newCreateLoadBalancerListenersResponse' smart constructor.+data CreateLoadBalancerListenersResponse = CreateLoadBalancerListenersResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLoadBalancerListenersResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createLoadBalancerListenersResponse_httpStatus' - The response's http status code.+newCreateLoadBalancerListenersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateLoadBalancerListenersResponse+newCreateLoadBalancerListenersResponse pHttpStatus_ =+  CreateLoadBalancerListenersResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+createLoadBalancerListenersResponse_httpStatus :: Lens.Lens' CreateLoadBalancerListenersResponse Prelude.Int+createLoadBalancerListenersResponse_httpStatus = Lens.lens (\CreateLoadBalancerListenersResponse' {httpStatus} -> httpStatus) (\s@CreateLoadBalancerListenersResponse' {} a -> s {httpStatus = a} :: CreateLoadBalancerListenersResponse)++instance+  Prelude.NFData+    CreateLoadBalancerListenersResponse+  where+  rnf CreateLoadBalancerListenersResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,218 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.CreateLoadBalancerPolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a policy with the specified attributes for the specified load+-- balancer.+--+-- Policies are settings that are saved for your load balancer and that can+-- be applied to the listener or the application server, depending on the+-- policy type.+module Amazonka.ELB.CreateLoadBalancerPolicy+  ( -- * Creating a Request+    CreateLoadBalancerPolicy (..),+    newCreateLoadBalancerPolicy,++    -- * Request Lenses+    createLoadBalancerPolicy_policyAttributes,+    createLoadBalancerPolicy_loadBalancerName,+    createLoadBalancerPolicy_policyName,+    createLoadBalancerPolicy_policyTypeName,++    -- * Destructuring the Response+    CreateLoadBalancerPolicyResponse (..),+    newCreateLoadBalancerPolicyResponse,++    -- * Response Lenses+    createLoadBalancerPolicyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for CreateLoadBalancerPolicy.+--+-- /See:/ 'newCreateLoadBalancerPolicy' smart constructor.+data CreateLoadBalancerPolicy = CreateLoadBalancerPolicy'+  { -- | The policy attributes.+    policyAttributes :: Prelude.Maybe [PolicyAttribute],+    -- | The name of the load balancer.+    loadBalancerName :: Prelude.Text,+    -- | The name of the load balancer policy to be created. This name must be+    -- unique within the set of policies for this load balancer.+    policyName :: Prelude.Text,+    -- | The name of the base policy type. To get the list of policy types, use+    -- DescribeLoadBalancerPolicyTypes.+    policyTypeName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLoadBalancerPolicy' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'policyAttributes', 'createLoadBalancerPolicy_policyAttributes' - The policy attributes.+--+-- 'loadBalancerName', 'createLoadBalancerPolicy_loadBalancerName' - The name of the load balancer.+--+-- 'policyName', 'createLoadBalancerPolicy_policyName' - The name of the load balancer policy to be created. This name must be+-- unique within the set of policies for this load balancer.+--+-- 'policyTypeName', 'createLoadBalancerPolicy_policyTypeName' - The name of the base policy type. To get the list of policy types, use+-- DescribeLoadBalancerPolicyTypes.+newCreateLoadBalancerPolicy ::+  -- | 'loadBalancerName'+  Prelude.Text ->+  -- | 'policyName'+  Prelude.Text ->+  -- | 'policyTypeName'+  Prelude.Text ->+  CreateLoadBalancerPolicy+newCreateLoadBalancerPolicy+  pLoadBalancerName_+  pPolicyName_+  pPolicyTypeName_ =+    CreateLoadBalancerPolicy'+      { policyAttributes =+          Prelude.Nothing,+        loadBalancerName = pLoadBalancerName_,+        policyName = pPolicyName_,+        policyTypeName = pPolicyTypeName_+      }++-- | The policy attributes.+createLoadBalancerPolicy_policyAttributes :: Lens.Lens' CreateLoadBalancerPolicy (Prelude.Maybe [PolicyAttribute])+createLoadBalancerPolicy_policyAttributes = Lens.lens (\CreateLoadBalancerPolicy' {policyAttributes} -> policyAttributes) (\s@CreateLoadBalancerPolicy' {} a -> s {policyAttributes = a} :: CreateLoadBalancerPolicy) Prelude.. Lens.mapping Lens.coerced++-- | The name of the load balancer.+createLoadBalancerPolicy_loadBalancerName :: Lens.Lens' CreateLoadBalancerPolicy Prelude.Text+createLoadBalancerPolicy_loadBalancerName = Lens.lens (\CreateLoadBalancerPolicy' {loadBalancerName} -> loadBalancerName) (\s@CreateLoadBalancerPolicy' {} a -> s {loadBalancerName = a} :: CreateLoadBalancerPolicy)++-- | The name of the load balancer policy to be created. This name must be+-- unique within the set of policies for this load balancer.+createLoadBalancerPolicy_policyName :: Lens.Lens' CreateLoadBalancerPolicy Prelude.Text+createLoadBalancerPolicy_policyName = Lens.lens (\CreateLoadBalancerPolicy' {policyName} -> policyName) (\s@CreateLoadBalancerPolicy' {} a -> s {policyName = a} :: CreateLoadBalancerPolicy)++-- | The name of the base policy type. To get the list of policy types, use+-- DescribeLoadBalancerPolicyTypes.+createLoadBalancerPolicy_policyTypeName :: Lens.Lens' CreateLoadBalancerPolicy Prelude.Text+createLoadBalancerPolicy_policyTypeName = Lens.lens (\CreateLoadBalancerPolicy' {policyTypeName} -> policyTypeName) (\s@CreateLoadBalancerPolicy' {} a -> s {policyTypeName = a} :: CreateLoadBalancerPolicy)++instance Core.AWSRequest CreateLoadBalancerPolicy where+  type+    AWSResponse CreateLoadBalancerPolicy =+      CreateLoadBalancerPolicyResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "CreateLoadBalancerPolicyResult"+      ( \s h x ->+          CreateLoadBalancerPolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateLoadBalancerPolicy where+  hashWithSalt _salt CreateLoadBalancerPolicy' {..} =+    _salt+      `Prelude.hashWithSalt` policyAttributes+      `Prelude.hashWithSalt` loadBalancerName+      `Prelude.hashWithSalt` policyName+      `Prelude.hashWithSalt` policyTypeName++instance Prelude.NFData CreateLoadBalancerPolicy where+  rnf CreateLoadBalancerPolicy' {..} =+    Prelude.rnf policyAttributes+      `Prelude.seq` Prelude.rnf loadBalancerName+      `Prelude.seq` Prelude.rnf policyName+      `Prelude.seq` Prelude.rnf policyTypeName++instance Data.ToHeaders CreateLoadBalancerPolicy where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateLoadBalancerPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateLoadBalancerPolicy where+  toQuery CreateLoadBalancerPolicy' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("CreateLoadBalancerPolicy" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "PolicyAttributes"+          Data.=: Data.toQuery+            ( Data.toQueryList "member"+                Prelude.<$> policyAttributes+            ),+        "LoadBalancerName" Data.=: loadBalancerName,+        "PolicyName" Data.=: policyName,+        "PolicyTypeName" Data.=: policyTypeName+      ]++-- | Contains the output of CreateLoadBalancerPolicy.+--+-- /See:/ 'newCreateLoadBalancerPolicyResponse' smart constructor.+data CreateLoadBalancerPolicyResponse = CreateLoadBalancerPolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLoadBalancerPolicyResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createLoadBalancerPolicyResponse_httpStatus' - The response's http status code.+newCreateLoadBalancerPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateLoadBalancerPolicyResponse+newCreateLoadBalancerPolicyResponse pHttpStatus_ =+  CreateLoadBalancerPolicyResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+createLoadBalancerPolicyResponse_httpStatus :: Lens.Lens' CreateLoadBalancerPolicyResponse Prelude.Int+createLoadBalancerPolicyResponse_httpStatus = Lens.lens (\CreateLoadBalancerPolicyResponse' {httpStatus} -> httpStatus) (\s@CreateLoadBalancerPolicyResponse' {} a -> s {httpStatus = a} :: CreateLoadBalancerPolicyResponse)++instance+  Prelude.NFData+    CreateLoadBalancerPolicyResponse+  where+  rnf CreateLoadBalancerPolicyResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,162 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.DeleteLoadBalancer+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified load balancer.+--+-- If you are attempting to recreate a load balancer, you must reconfigure+-- all settings. The DNS name associated with a deleted load balancer are+-- no longer usable. The name and associated DNS record of the deleted load+-- balancer no longer exist and traffic sent to any of its IP addresses is+-- no longer delivered to your instances.+--+-- If the load balancer does not exist or has already been deleted, the+-- call to @DeleteLoadBalancer@ still succeeds.+module Amazonka.ELB.DeleteLoadBalancer+  ( -- * Creating a Request+    DeleteLoadBalancer (..),+    newDeleteLoadBalancer,++    -- * Request Lenses+    deleteLoadBalancer_loadBalancerName,++    -- * Destructuring the Response+    DeleteLoadBalancerResponse (..),+    newDeleteLoadBalancerResponse,++    -- * Response Lenses+    deleteLoadBalancerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for DeleteLoadBalancer.+--+-- /See:/ 'newDeleteLoadBalancer' smart constructor.+data DeleteLoadBalancer = DeleteLoadBalancer'+  { -- | The name of the load balancer.+    loadBalancerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLoadBalancer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'loadBalancerName', 'deleteLoadBalancer_loadBalancerName' - The name of the load balancer.+newDeleteLoadBalancer ::+  -- | 'loadBalancerName'+  Prelude.Text ->+  DeleteLoadBalancer+newDeleteLoadBalancer pLoadBalancerName_ =+  DeleteLoadBalancer'+    { loadBalancerName =+        pLoadBalancerName_+    }++-- | The name of the load balancer.+deleteLoadBalancer_loadBalancerName :: Lens.Lens' DeleteLoadBalancer Prelude.Text+deleteLoadBalancer_loadBalancerName = Lens.lens (\DeleteLoadBalancer' {loadBalancerName} -> loadBalancerName) (\s@DeleteLoadBalancer' {} a -> s {loadBalancerName = a} :: DeleteLoadBalancer)++instance Core.AWSRequest DeleteLoadBalancer where+  type+    AWSResponse DeleteLoadBalancer =+      DeleteLoadBalancerResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DeleteLoadBalancerResult"+      ( \s h x ->+          DeleteLoadBalancerResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteLoadBalancer where+  hashWithSalt _salt DeleteLoadBalancer' {..} =+    _salt `Prelude.hashWithSalt` loadBalancerName++instance Prelude.NFData DeleteLoadBalancer where+  rnf DeleteLoadBalancer' {..} =+    Prelude.rnf loadBalancerName++instance Data.ToHeaders DeleteLoadBalancer where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteLoadBalancer where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteLoadBalancer where+  toQuery DeleteLoadBalancer' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteLoadBalancer" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "LoadBalancerName" Data.=: loadBalancerName+      ]++-- | Contains the output of DeleteLoadBalancer.+--+-- /See:/ 'newDeleteLoadBalancerResponse' smart constructor.+data DeleteLoadBalancerResponse = DeleteLoadBalancerResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLoadBalancerResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteLoadBalancerResponse_httpStatus' - The response's http status code.+newDeleteLoadBalancerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteLoadBalancerResponse+newDeleteLoadBalancerResponse pHttpStatus_ =+  DeleteLoadBalancerResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteLoadBalancerResponse_httpStatus :: Lens.Lens' DeleteLoadBalancerResponse Prelude.Int+deleteLoadBalancerResponse_httpStatus = Lens.lens (\DeleteLoadBalancerResponse' {httpStatus} -> httpStatus) (\s@DeleteLoadBalancerResponse' {} a -> s {httpStatus = a} :: DeleteLoadBalancerResponse)++instance Prelude.NFData DeleteLoadBalancerResponse where+  rnf DeleteLoadBalancerResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,173 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.DeleteLoadBalancerListeners+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified listeners from the specified load balancer.+module Amazonka.ELB.DeleteLoadBalancerListeners+  ( -- * Creating a Request+    DeleteLoadBalancerListeners (..),+    newDeleteLoadBalancerListeners,++    -- * Request Lenses+    deleteLoadBalancerListeners_loadBalancerName,+    deleteLoadBalancerListeners_loadBalancerPorts,++    -- * Destructuring the Response+    DeleteLoadBalancerListenersResponse (..),+    newDeleteLoadBalancerListenersResponse,++    -- * Response Lenses+    deleteLoadBalancerListenersResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for DeleteLoadBalancerListeners.+--+-- /See:/ 'newDeleteLoadBalancerListeners' smart constructor.+data DeleteLoadBalancerListeners = DeleteLoadBalancerListeners'+  { -- | The name of the load balancer.+    loadBalancerName :: Prelude.Text,+    -- | The client port numbers of the listeners.+    loadBalancerPorts :: [Prelude.Int]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLoadBalancerListeners' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'loadBalancerName', 'deleteLoadBalancerListeners_loadBalancerName' - The name of the load balancer.+--+-- 'loadBalancerPorts', 'deleteLoadBalancerListeners_loadBalancerPorts' - The client port numbers of the listeners.+newDeleteLoadBalancerListeners ::+  -- | 'loadBalancerName'+  Prelude.Text ->+  DeleteLoadBalancerListeners+newDeleteLoadBalancerListeners pLoadBalancerName_ =+  DeleteLoadBalancerListeners'+    { loadBalancerName =+        pLoadBalancerName_,+      loadBalancerPorts = Prelude.mempty+    }++-- | The name of the load balancer.+deleteLoadBalancerListeners_loadBalancerName :: Lens.Lens' DeleteLoadBalancerListeners Prelude.Text+deleteLoadBalancerListeners_loadBalancerName = Lens.lens (\DeleteLoadBalancerListeners' {loadBalancerName} -> loadBalancerName) (\s@DeleteLoadBalancerListeners' {} a -> s {loadBalancerName = a} :: DeleteLoadBalancerListeners)++-- | The client port numbers of the listeners.+deleteLoadBalancerListeners_loadBalancerPorts :: Lens.Lens' DeleteLoadBalancerListeners [Prelude.Int]+deleteLoadBalancerListeners_loadBalancerPorts = Lens.lens (\DeleteLoadBalancerListeners' {loadBalancerPorts} -> loadBalancerPorts) (\s@DeleteLoadBalancerListeners' {} a -> s {loadBalancerPorts = a} :: DeleteLoadBalancerListeners) Prelude.. Lens.coerced++instance Core.AWSRequest DeleteLoadBalancerListeners where+  type+    AWSResponse DeleteLoadBalancerListeners =+      DeleteLoadBalancerListenersResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DeleteLoadBalancerListenersResult"+      ( \s h x ->+          DeleteLoadBalancerListenersResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteLoadBalancerListeners where+  hashWithSalt _salt DeleteLoadBalancerListeners' {..} =+    _salt+      `Prelude.hashWithSalt` loadBalancerName+      `Prelude.hashWithSalt` loadBalancerPorts++instance Prelude.NFData DeleteLoadBalancerListeners where+  rnf DeleteLoadBalancerListeners' {..} =+    Prelude.rnf loadBalancerName+      `Prelude.seq` Prelude.rnf loadBalancerPorts++instance Data.ToHeaders DeleteLoadBalancerListeners where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteLoadBalancerListeners where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteLoadBalancerListeners where+  toQuery DeleteLoadBalancerListeners' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ( "DeleteLoadBalancerListeners" ::+                      Prelude.ByteString+                  ),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "LoadBalancerName" Data.=: loadBalancerName,+        "LoadBalancerPorts"+          Data.=: Data.toQueryList "member" loadBalancerPorts+      ]++-- | Contains the output of DeleteLoadBalancerListeners.+--+-- /See:/ 'newDeleteLoadBalancerListenersResponse' smart constructor.+data DeleteLoadBalancerListenersResponse = DeleteLoadBalancerListenersResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLoadBalancerListenersResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteLoadBalancerListenersResponse_httpStatus' - The response's http status code.+newDeleteLoadBalancerListenersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteLoadBalancerListenersResponse+newDeleteLoadBalancerListenersResponse pHttpStatus_ =+  DeleteLoadBalancerListenersResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteLoadBalancerListenersResponse_httpStatus :: Lens.Lens' DeleteLoadBalancerListenersResponse Prelude.Int+deleteLoadBalancerListenersResponse_httpStatus = Lens.lens (\DeleteLoadBalancerListenersResponse' {httpStatus} -> httpStatus) (\s@DeleteLoadBalancerListenersResponse' {} a -> s {httpStatus = a} :: DeleteLoadBalancerListenersResponse)++instance+  Prelude.NFData+    DeleteLoadBalancerListenersResponse+  where+  rnf DeleteLoadBalancerListenersResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,175 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.DeleteLoadBalancerPolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified policy from the specified load balancer. This+-- policy must not be enabled for any listeners.+module Amazonka.ELB.DeleteLoadBalancerPolicy+  ( -- * Creating a Request+    DeleteLoadBalancerPolicy (..),+    newDeleteLoadBalancerPolicy,++    -- * Request Lenses+    deleteLoadBalancerPolicy_loadBalancerName,+    deleteLoadBalancerPolicy_policyName,++    -- * Destructuring the Response+    DeleteLoadBalancerPolicyResponse (..),+    newDeleteLoadBalancerPolicyResponse,++    -- * Response Lenses+    deleteLoadBalancerPolicyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for DeleteLoadBalancerPolicy.+--+-- /See:/ 'newDeleteLoadBalancerPolicy' smart constructor.+data DeleteLoadBalancerPolicy = DeleteLoadBalancerPolicy'+  { -- | The name of the load balancer.+    loadBalancerName :: Prelude.Text,+    -- | The name of the policy.+    policyName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLoadBalancerPolicy' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'loadBalancerName', 'deleteLoadBalancerPolicy_loadBalancerName' - The name of the load balancer.+--+-- 'policyName', 'deleteLoadBalancerPolicy_policyName' - The name of the policy.+newDeleteLoadBalancerPolicy ::+  -- | 'loadBalancerName'+  Prelude.Text ->+  -- | 'policyName'+  Prelude.Text ->+  DeleteLoadBalancerPolicy+newDeleteLoadBalancerPolicy+  pLoadBalancerName_+  pPolicyName_ =+    DeleteLoadBalancerPolicy'+      { loadBalancerName =+          pLoadBalancerName_,+        policyName = pPolicyName_+      }++-- | The name of the load balancer.+deleteLoadBalancerPolicy_loadBalancerName :: Lens.Lens' DeleteLoadBalancerPolicy Prelude.Text+deleteLoadBalancerPolicy_loadBalancerName = Lens.lens (\DeleteLoadBalancerPolicy' {loadBalancerName} -> loadBalancerName) (\s@DeleteLoadBalancerPolicy' {} a -> s {loadBalancerName = a} :: DeleteLoadBalancerPolicy)++-- | The name of the policy.+deleteLoadBalancerPolicy_policyName :: Lens.Lens' DeleteLoadBalancerPolicy Prelude.Text+deleteLoadBalancerPolicy_policyName = Lens.lens (\DeleteLoadBalancerPolicy' {policyName} -> policyName) (\s@DeleteLoadBalancerPolicy' {} a -> s {policyName = a} :: DeleteLoadBalancerPolicy)++instance Core.AWSRequest DeleteLoadBalancerPolicy where+  type+    AWSResponse DeleteLoadBalancerPolicy =+      DeleteLoadBalancerPolicyResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DeleteLoadBalancerPolicyResult"+      ( \s h x ->+          DeleteLoadBalancerPolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteLoadBalancerPolicy where+  hashWithSalt _salt DeleteLoadBalancerPolicy' {..} =+    _salt+      `Prelude.hashWithSalt` loadBalancerName+      `Prelude.hashWithSalt` policyName++instance Prelude.NFData DeleteLoadBalancerPolicy where+  rnf DeleteLoadBalancerPolicy' {..} =+    Prelude.rnf loadBalancerName+      `Prelude.seq` Prelude.rnf policyName++instance Data.ToHeaders DeleteLoadBalancerPolicy where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteLoadBalancerPolicy where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteLoadBalancerPolicy where+  toQuery DeleteLoadBalancerPolicy' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteLoadBalancerPolicy" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "LoadBalancerName" Data.=: loadBalancerName,+        "PolicyName" Data.=: policyName+      ]++-- | Contains the output of DeleteLoadBalancerPolicy.+--+-- /See:/ 'newDeleteLoadBalancerPolicyResponse' smart constructor.+data DeleteLoadBalancerPolicyResponse = DeleteLoadBalancerPolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLoadBalancerPolicyResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteLoadBalancerPolicyResponse_httpStatus' - The response's http status code.+newDeleteLoadBalancerPolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteLoadBalancerPolicyResponse+newDeleteLoadBalancerPolicyResponse pHttpStatus_ =+  DeleteLoadBalancerPolicyResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteLoadBalancerPolicyResponse_httpStatus :: Lens.Lens' DeleteLoadBalancerPolicyResponse Prelude.Int+deleteLoadBalancerPolicyResponse_httpStatus = Lens.lens (\DeleteLoadBalancerPolicyResponse' {httpStatus} -> httpStatus) (\s@DeleteLoadBalancerPolicyResponse' {} a -> s {httpStatus = a} :: DeleteLoadBalancerPolicyResponse)++instance+  Prelude.NFData+    DeleteLoadBalancerPolicyResponse+  where+  rnf DeleteLoadBalancerPolicyResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,220 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.DeregisterInstancesFromLoadBalancer+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deregisters the specified instances from the specified load balancer.+-- After the instance is deregistered, it no longer receives traffic from+-- the load balancer.+--+-- You can use DescribeLoadBalancers to verify that the instance is+-- deregistered from the load balancer.+--+-- For more information, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/elb-deregister-register-instances.html Register or De-Register EC2 Instances>+-- in the /Classic Load Balancers Guide/.+module Amazonka.ELB.DeregisterInstancesFromLoadBalancer+  ( -- * Creating a Request+    DeregisterInstancesFromLoadBalancer (..),+    newDeregisterInstancesFromLoadBalancer,++    -- * Request Lenses+    deregisterInstancesFromLoadBalancer_loadBalancerName,+    deregisterInstancesFromLoadBalancer_instances,++    -- * Destructuring the Response+    DeregisterInstancesFromLoadBalancerResponse (..),+    newDeregisterInstancesFromLoadBalancerResponse,++    -- * Response Lenses+    deregisterInstancesFromLoadBalancerResponse_instances,+    deregisterInstancesFromLoadBalancerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for DeregisterInstancesFromLoadBalancer.+--+-- /See:/ 'newDeregisterInstancesFromLoadBalancer' smart constructor.+data DeregisterInstancesFromLoadBalancer = DeregisterInstancesFromLoadBalancer'+  { -- | The name of the load balancer.+    loadBalancerName :: Prelude.Text,+    -- | The IDs of the instances.+    instances :: [Instance]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeregisterInstancesFromLoadBalancer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'loadBalancerName', 'deregisterInstancesFromLoadBalancer_loadBalancerName' - The name of the load balancer.+--+-- 'instances', 'deregisterInstancesFromLoadBalancer_instances' - The IDs of the instances.+newDeregisterInstancesFromLoadBalancer ::+  -- | 'loadBalancerName'+  Prelude.Text ->+  DeregisterInstancesFromLoadBalancer+newDeregisterInstancesFromLoadBalancer+  pLoadBalancerName_ =+    DeregisterInstancesFromLoadBalancer'+      { loadBalancerName =+          pLoadBalancerName_,+        instances = Prelude.mempty+      }++-- | The name of the load balancer.+deregisterInstancesFromLoadBalancer_loadBalancerName :: Lens.Lens' DeregisterInstancesFromLoadBalancer Prelude.Text+deregisterInstancesFromLoadBalancer_loadBalancerName = Lens.lens (\DeregisterInstancesFromLoadBalancer' {loadBalancerName} -> loadBalancerName) (\s@DeregisterInstancesFromLoadBalancer' {} a -> s {loadBalancerName = a} :: DeregisterInstancesFromLoadBalancer)++-- | The IDs of the instances.+deregisterInstancesFromLoadBalancer_instances :: Lens.Lens' DeregisterInstancesFromLoadBalancer [Instance]+deregisterInstancesFromLoadBalancer_instances = Lens.lens (\DeregisterInstancesFromLoadBalancer' {instances} -> instances) (\s@DeregisterInstancesFromLoadBalancer' {} a -> s {instances = a} :: DeregisterInstancesFromLoadBalancer) Prelude.. Lens.coerced++instance+  Core.AWSRequest+    DeregisterInstancesFromLoadBalancer+  where+  type+    AWSResponse DeregisterInstancesFromLoadBalancer =+      DeregisterInstancesFromLoadBalancerResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DeregisterInstancesFromLoadBalancerResult"+      ( \s h x ->+          DeregisterInstancesFromLoadBalancerResponse'+            Prelude.<$> ( x+                            Data..@? "Instances"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Core.may (Data.parseXMLList "member")+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DeregisterInstancesFromLoadBalancer+  where+  hashWithSalt+    _salt+    DeregisterInstancesFromLoadBalancer' {..} =+      _salt+        `Prelude.hashWithSalt` loadBalancerName+        `Prelude.hashWithSalt` instances++instance+  Prelude.NFData+    DeregisterInstancesFromLoadBalancer+  where+  rnf DeregisterInstancesFromLoadBalancer' {..} =+    Prelude.rnf loadBalancerName+      `Prelude.seq` Prelude.rnf instances++instance+  Data.ToHeaders+    DeregisterInstancesFromLoadBalancer+  where+  toHeaders = Prelude.const Prelude.mempty++instance+  Data.ToPath+    DeregisterInstancesFromLoadBalancer+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    DeregisterInstancesFromLoadBalancer+  where+  toQuery DeregisterInstancesFromLoadBalancer' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ( "DeregisterInstancesFromLoadBalancer" ::+                      Prelude.ByteString+                  ),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "LoadBalancerName" Data.=: loadBalancerName,+        "Instances"+          Data.=: Data.toQueryList "member" instances+      ]++-- | Contains the output of DeregisterInstancesFromLoadBalancer.+--+-- /See:/ 'newDeregisterInstancesFromLoadBalancerResponse' smart constructor.+data DeregisterInstancesFromLoadBalancerResponse = DeregisterInstancesFromLoadBalancerResponse'+  { -- | The remaining instances registered with the load balancer.+    instances :: Prelude.Maybe [Instance],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeregisterInstancesFromLoadBalancerResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'instances', 'deregisterInstancesFromLoadBalancerResponse_instances' - The remaining instances registered with the load balancer.+--+-- 'httpStatus', 'deregisterInstancesFromLoadBalancerResponse_httpStatus' - The response's http status code.+newDeregisterInstancesFromLoadBalancerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeregisterInstancesFromLoadBalancerResponse+newDeregisterInstancesFromLoadBalancerResponse+  pHttpStatus_ =+    DeregisterInstancesFromLoadBalancerResponse'+      { instances =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | The remaining instances registered with the load balancer.+deregisterInstancesFromLoadBalancerResponse_instances :: Lens.Lens' DeregisterInstancesFromLoadBalancerResponse (Prelude.Maybe [Instance])+deregisterInstancesFromLoadBalancerResponse_instances = Lens.lens (\DeregisterInstancesFromLoadBalancerResponse' {instances} -> instances) (\s@DeregisterInstancesFromLoadBalancerResponse' {} a -> s {instances = a} :: DeregisterInstancesFromLoadBalancerResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+deregisterInstancesFromLoadBalancerResponse_httpStatus :: Lens.Lens' DeregisterInstancesFromLoadBalancerResponse Prelude.Int+deregisterInstancesFromLoadBalancerResponse_httpStatus = Lens.lens (\DeregisterInstancesFromLoadBalancerResponse' {httpStatus} -> httpStatus) (\s@DeregisterInstancesFromLoadBalancerResponse' {} a -> s {httpStatus = a} :: DeregisterInstancesFromLoadBalancerResponse)++instance+  Prelude.NFData+    DeregisterInstancesFromLoadBalancerResponse+  where+  rnf DeregisterInstancesFromLoadBalancerResponse' {..} =+    Prelude.rnf instances+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,223 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.DescribeAccountLimits+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the current Elastic Load Balancing resource limits for your+-- AWS account.+--+-- For more information, see+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/classic/elb-limits.html Limits for Your Classic Load Balancer>+-- in the /Classic Load Balancers Guide/.+--+-- This operation returns paginated results.+module Amazonka.ELB.DescribeAccountLimits+  ( -- * Creating a Request+    DescribeAccountLimits (..),+    newDescribeAccountLimits,++    -- * Request Lenses+    describeAccountLimits_marker,+    describeAccountLimits_pageSize,++    -- * Destructuring the Response+    DescribeAccountLimitsResponse (..),+    newDescribeAccountLimitsResponse,++    -- * Response Lenses+    describeAccountLimitsResponse_limits,+    describeAccountLimitsResponse_nextMarker,+    describeAccountLimitsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeAccountLimits' smart constructor.+data DescribeAccountLimits = DescribeAccountLimits'+  { -- | The marker for the next set of results. (You received this marker from a+    -- previous call.)+    marker :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of results to return with this call.+    pageSize :: Prelude.Maybe Prelude.Natural+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAccountLimits' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'marker', 'describeAccountLimits_marker' - The marker for the next set of results. (You received this marker from a+-- previous call.)+--+-- 'pageSize', 'describeAccountLimits_pageSize' - The maximum number of results to return with this call.+newDescribeAccountLimits ::+  DescribeAccountLimits+newDescribeAccountLimits =+  DescribeAccountLimits'+    { marker = Prelude.Nothing,+      pageSize = Prelude.Nothing+    }++-- | The marker for the next set of results. (You received this marker from a+-- previous call.)+describeAccountLimits_marker :: Lens.Lens' DescribeAccountLimits (Prelude.Maybe Prelude.Text)+describeAccountLimits_marker = Lens.lens (\DescribeAccountLimits' {marker} -> marker) (\s@DescribeAccountLimits' {} a -> s {marker = a} :: DescribeAccountLimits)++-- | The maximum number of results to return with this call.+describeAccountLimits_pageSize :: Lens.Lens' DescribeAccountLimits (Prelude.Maybe Prelude.Natural)+describeAccountLimits_pageSize = Lens.lens (\DescribeAccountLimits' {pageSize} -> pageSize) (\s@DescribeAccountLimits' {} a -> s {pageSize = a} :: DescribeAccountLimits)++instance Core.AWSPager DescribeAccountLimits where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeAccountLimitsResponse_nextMarker+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeAccountLimitsResponse_limits+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeAccountLimits_marker+          Lens..~ rs+          Lens.^? describeAccountLimitsResponse_nextMarker+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeAccountLimits where+  type+    AWSResponse DescribeAccountLimits =+      DescribeAccountLimitsResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DescribeAccountLimitsResult"+      ( \s h x ->+          DescribeAccountLimitsResponse'+            Prelude.<$> ( x+                            Data..@? "Limits"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Core.may (Data.parseXMLList "member")+                        )+            Prelude.<*> (x Data..@? "NextMarker")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeAccountLimits where+  hashWithSalt _salt DescribeAccountLimits' {..} =+    _salt+      `Prelude.hashWithSalt` marker+      `Prelude.hashWithSalt` pageSize++instance Prelude.NFData DescribeAccountLimits where+  rnf DescribeAccountLimits' {..} =+    Prelude.rnf marker+      `Prelude.seq` Prelude.rnf pageSize++instance Data.ToHeaders DescribeAccountLimits where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeAccountLimits where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeAccountLimits where+  toQuery DescribeAccountLimits' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DescribeAccountLimits" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "Marker" Data.=: marker,+        "PageSize" Data.=: pageSize+      ]++-- | /See:/ 'newDescribeAccountLimitsResponse' smart constructor.+data DescribeAccountLimitsResponse = DescribeAccountLimitsResponse'+  { -- | Information about the limits.+    limits :: Prelude.Maybe [Limit],+    -- | The marker to use when requesting the next set of results. If there are+    -- no additional results, the string is empty.+    nextMarker :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAccountLimitsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'limits', 'describeAccountLimitsResponse_limits' - Information about the limits.+--+-- 'nextMarker', 'describeAccountLimitsResponse_nextMarker' - The marker to use when requesting the next set of results. If there are+-- no additional results, the string is empty.+--+-- 'httpStatus', 'describeAccountLimitsResponse_httpStatus' - The response's http status code.+newDescribeAccountLimitsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeAccountLimitsResponse+newDescribeAccountLimitsResponse pHttpStatus_ =+  DescribeAccountLimitsResponse'+    { limits =+        Prelude.Nothing,+      nextMarker = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information about the limits.+describeAccountLimitsResponse_limits :: Lens.Lens' DescribeAccountLimitsResponse (Prelude.Maybe [Limit])+describeAccountLimitsResponse_limits = Lens.lens (\DescribeAccountLimitsResponse' {limits} -> limits) (\s@DescribeAccountLimitsResponse' {} a -> s {limits = a} :: DescribeAccountLimitsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The marker to use when requesting the next set of results. If there are+-- no additional results, the string is empty.+describeAccountLimitsResponse_nextMarker :: Lens.Lens' DescribeAccountLimitsResponse (Prelude.Maybe Prelude.Text)+describeAccountLimitsResponse_nextMarker = Lens.lens (\DescribeAccountLimitsResponse' {nextMarker} -> nextMarker) (\s@DescribeAccountLimitsResponse' {} a -> s {nextMarker = a} :: DescribeAccountLimitsResponse)++-- | The response's http status code.+describeAccountLimitsResponse_httpStatus :: Lens.Lens' DescribeAccountLimitsResponse Prelude.Int+describeAccountLimitsResponse_httpStatus = Lens.lens (\DescribeAccountLimitsResponse' {httpStatus} -> httpStatus) (\s@DescribeAccountLimitsResponse' {} a -> s {httpStatus = a} :: DescribeAccountLimitsResponse)++instance Prelude.NFData DescribeAccountLimitsResponse where+  rnf DescribeAccountLimitsResponse' {..} =+    Prelude.rnf limits+      `Prelude.seq` Prelude.rnf nextMarker+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,193 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.DescribeInstanceHealth+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the state of the specified instances with respect to the+-- specified load balancer. If no instances are specified, the call+-- describes the state of all instances that are currently registered with+-- the load balancer. If instances are specified, their state is returned+-- even if they are no longer registered with the load balancer. The state+-- of terminated instances is not returned.+module Amazonka.ELB.DescribeInstanceHealth+  ( -- * Creating a Request+    DescribeInstanceHealth (..),+    newDescribeInstanceHealth,++    -- * Request Lenses+    describeInstanceHealth_instances,+    describeInstanceHealth_loadBalancerName,++    -- * Destructuring the Response+    DescribeInstanceHealthResponse (..),+    newDescribeInstanceHealthResponse,++    -- * Response Lenses+    describeInstanceHealthResponse_instanceStates,+    describeInstanceHealthResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for DescribeInstanceHealth.+--+-- /See:/ 'newDescribeInstanceHealth' smart constructor.+data DescribeInstanceHealth = DescribeInstanceHealth'+  { -- | The IDs of the instances.+    instances :: Prelude.Maybe [Instance],+    -- | The name of the load balancer.+    loadBalancerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeInstanceHealth' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'instances', 'describeInstanceHealth_instances' - The IDs of the instances.+--+-- 'loadBalancerName', 'describeInstanceHealth_loadBalancerName' - The name of the load balancer.+newDescribeInstanceHealth ::+  -- | 'loadBalancerName'+  Prelude.Text ->+  DescribeInstanceHealth+newDescribeInstanceHealth pLoadBalancerName_ =+  DescribeInstanceHealth'+    { instances =+        Prelude.Nothing,+      loadBalancerName = pLoadBalancerName_+    }++-- | The IDs of the instances.+describeInstanceHealth_instances :: Lens.Lens' DescribeInstanceHealth (Prelude.Maybe [Instance])+describeInstanceHealth_instances = Lens.lens (\DescribeInstanceHealth' {instances} -> instances) (\s@DescribeInstanceHealth' {} a -> s {instances = a} :: DescribeInstanceHealth) Prelude.. Lens.mapping Lens.coerced++-- | The name of the load balancer.+describeInstanceHealth_loadBalancerName :: Lens.Lens' DescribeInstanceHealth Prelude.Text+describeInstanceHealth_loadBalancerName = Lens.lens (\DescribeInstanceHealth' {loadBalancerName} -> loadBalancerName) (\s@DescribeInstanceHealth' {} a -> s {loadBalancerName = a} :: DescribeInstanceHealth)++instance Core.AWSRequest DescribeInstanceHealth where+  type+    AWSResponse DescribeInstanceHealth =+      DescribeInstanceHealthResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DescribeInstanceHealthResult"+      ( \s h x ->+          DescribeInstanceHealthResponse'+            Prelude.<$> ( x+                            Data..@? "InstanceStates"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Core.may (Data.parseXMLList "member")+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeInstanceHealth where+  hashWithSalt _salt DescribeInstanceHealth' {..} =+    _salt+      `Prelude.hashWithSalt` instances+      `Prelude.hashWithSalt` loadBalancerName++instance Prelude.NFData DescribeInstanceHealth where+  rnf DescribeInstanceHealth' {..} =+    Prelude.rnf instances+      `Prelude.seq` Prelude.rnf loadBalancerName++instance Data.ToHeaders DescribeInstanceHealth where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeInstanceHealth where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeInstanceHealth where+  toQuery DescribeInstanceHealth' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DescribeInstanceHealth" :: Prelude.ByteString),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "Instances"+          Data.=: Data.toQuery+            (Data.toQueryList "member" Prelude.<$> instances),+        "LoadBalancerName" Data.=: loadBalancerName+      ]++-- | Contains the output for DescribeInstanceHealth.+--+-- /See:/ 'newDescribeInstanceHealthResponse' smart constructor.+data DescribeInstanceHealthResponse = DescribeInstanceHealthResponse'+  { -- | Information about the health of the instances.+    instanceStates :: Prelude.Maybe [InstanceState],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeInstanceHealthResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'instanceStates', 'describeInstanceHealthResponse_instanceStates' - Information about the health of the instances.+--+-- 'httpStatus', 'describeInstanceHealthResponse_httpStatus' - The response's http status code.+newDescribeInstanceHealthResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeInstanceHealthResponse+newDescribeInstanceHealthResponse pHttpStatus_ =+  DescribeInstanceHealthResponse'+    { instanceStates =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information about the health of the instances.+describeInstanceHealthResponse_instanceStates :: Lens.Lens' DescribeInstanceHealthResponse (Prelude.Maybe [InstanceState])+describeInstanceHealthResponse_instanceStates = Lens.lens (\DescribeInstanceHealthResponse' {instanceStates} -> instanceStates) (\s@DescribeInstanceHealthResponse' {} a -> s {instanceStates = a} :: DescribeInstanceHealthResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeInstanceHealthResponse_httpStatus :: Lens.Lens' DescribeInstanceHealthResponse Prelude.Int+describeInstanceHealthResponse_httpStatus = Lens.lens (\DescribeInstanceHealthResponse' {httpStatus} -> httpStatus) (\s@DescribeInstanceHealthResponse' {} a -> s {httpStatus = a} :: DescribeInstanceHealthResponse)++instance+  Prelude.NFData+    DescribeInstanceHealthResponse+  where+  rnf DescribeInstanceHealthResponse' {..} =+    Prelude.rnf instanceStates+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,185 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ELB.DescribeLoadBalancerAttributes+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the attributes for the specified load balancer.+module Amazonka.ELB.DescribeLoadBalancerAttributes+  ( -- * Creating a Request+    DescribeLoadBalancerAttributes (..),+    newDescribeLoadBalancerAttributes,++    -- * Request Lenses+    describeLoadBalancerAttributes_loadBalancerName,++    -- * Destructuring the Response+    DescribeLoadBalancerAttributesResponse (..),+    newDescribeLoadBalancerAttributesResponse,++    -- * Response Lenses+    describeLoadBalancerAttributesResponse_loadBalancerAttributes,+    describeLoadBalancerAttributesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.ELB.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the parameters for DescribeLoadBalancerAttributes.+--+-- /See:/ 'newDescribeLoadBalancerAttributes' smart constructor.+data DescribeLoadBalancerAttributes = DescribeLoadBalancerAttributes'+  { -- | The name of the load balancer.+    loadBalancerName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeLoadBalancerAttributes' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'loadBalancerName', 'describeLoadBalancerAttributes_loadBalancerName' - The name of the load balancer.+newDescribeLoadBalancerAttributes ::+  -- | 'loadBalancerName'+  Prelude.Text ->+  DescribeLoadBalancerAttributes+newDescribeLoadBalancerAttributes pLoadBalancerName_ =+  DescribeLoadBalancerAttributes'+    { loadBalancerName =+        pLoadBalancerName_+    }++-- | The name of the load balancer.+describeLoadBalancerAttributes_loadBalancerName :: Lens.Lens' DescribeLoadBalancerAttributes Prelude.Text+describeLoadBalancerAttributes_loadBalancerName = Lens.lens (\DescribeLoadBalancerAttributes' {loadBalancerName} -> loadBalancerName) (\s@DescribeLoadBalancerAttributes' {} a -> s {loadBalancerName = a} :: DescribeLoadBalancerAttributes)++instance+  Core.AWSRequest+    DescribeLoadBalancerAttributes+  where+  type+    AWSResponse DescribeLoadBalancerAttributes =+      DescribeLoadBalancerAttributesResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DescribeLoadBalancerAttributesResult"+      ( \s h x ->+          DescribeLoadBalancerAttributesResponse'+            Prelude.<$> (x Data..@? "LoadBalancerAttributes")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeLoadBalancerAttributes+  where+  hashWithSalt+    _salt+    DescribeLoadBalancerAttributes' {..} =+      _salt `Prelude.hashWithSalt` loadBalancerName++instance+  Prelude.NFData+    DescribeLoadBalancerAttributes+  where+  rnf DescribeLoadBalancerAttributes' {..} =+    Prelude.rnf loadBalancerName++instance+  Data.ToHeaders+    DescribeLoadBalancerAttributes+  where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeLoadBalancerAttributes where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeLoadBalancerAttributes where+  toQuery DescribeLoadBalancerAttributes' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ( "DescribeLoadBalancerAttributes" ::+                      Prelude.ByteString+                  ),+        "Version"+          Data.=: ("2012-06-01" :: Prelude.ByteString),+        "LoadBalancerName" Data.=: loadBalancerName+      ]++-- | Contains the output of DescribeLoadBalancerAttributes.+--+-- /See:/ 'newDescribeLoadBalancerAttributesResponse' smart constructor.+data DescribeLoadBalancerAttributesResponse = DescribeLoadBalancerAttributesResponse'+  { -- | Information about the load balancer attributes.+    loadBalancerAttributes :: Prelude.Maybe LoadBalancerAttributes,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeLoadBalancerAttributesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'loadBalancerAttributes', 'describeLoadBalancerAttributesResponse_loadBalancerAttributes' - Information about the load balancer attributes.+--+-- 'httpStatus', 'describeLoadBalancerAttributesResponse_httpStatus' - The response's http status code.+newDescribeLoadBalancerAttributesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeLoadBalancerAttributesResponse+newDescribeLoadBalancerAttributesResponse+  pHttpStatus_ =+    DescribeLoadBalancerAttributesResponse'+      { loadBalancerAttributes =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | Information about the load balancer attributes.+describeLoadBalancerAttributesResponse_loadBalancerAttributes :: Lens.Lens' DescribeLoadBalancerAttributesResponse (Prelude.Maybe LoadBalancerAttributes)+describeLoadBalancerAttributesResponse_loadBalancerAttributes = Lens.lens (\DescribeLoadBalancerAttributesResponse' {loadBalancerAttributes} -> loadBalancerAttributes) (\s@DescribeLoadBalancerAttributesResponse' {} a -> s {loadBalancerAttributes = a} :: DescribeLoadBalancerAttributesResponse)++-- | The response's http status code.+describeLoadBalancerAttributesResponse_httpStatus :: Lens.Lens' DescribeLoadBalancerAttributesResponse Prelude.Int+describeLoadBalancerAttributesResponse_httpStatus = Lens.lens (\DescribeLoadBalancerAttributesResponse' {httpStatus} -> httpStatus) (\s@DescribeLoadBalancerAttributesResponse' {} a -> s {httpStatus = a} :: DescribeLoadBalancerAttributesResponse)++instance+  Prelude.NFData+    DescribeLoadBalancerAttributesResponse+  where+  rnf DescribeLoadBalancerAttributesResponse' {..} =+    Prelude.rnf loadBalancerAttributes+      `Prelude.seq` Prelude.rnf httpStatus