amazonka-elb 0.3.6 → 1.0.0

raw patch · 39 files changed

+5867/−4238 lines, 39 filesdep +amazonka-elbdep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: amazonka-elb, amazonka-test, bytestring, lens, tasty, tasty-hunit, text, time, unordered-containers

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +32/−7
• amazonka-elb.cabal +62/−11
• gen/Network/AWS/ELB.hs +412/−61
• gen/Network/AWS/ELB/AddTags.hs +89/−69
• gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs +107/−95
• gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs +102/−91
• gen/Network/AWS/ELB/ConfigureHealthCheck.hs +100/−87
• gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs +114/−84
• gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs +114/−88
• gen/Network/AWS/ELB/CreateLoadBalancer.hs +173/−154
• gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs +96/−72
• gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs +109/−88
• gen/Network/AWS/ELB/DeleteLoadBalancer.hs +84/−64
• gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs +86/−65
• gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs +93/−70
• gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs +109/−94
• gen/Network/AWS/ELB/DescribeInstanceHealth.hs +98/−91
• gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs +91/−77
• gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs +106/−96
• gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs +95/−91
• gen/Network/AWS/ELB/DescribeLoadBalancers.hs +124/−109
• gen/Network/AWS/ELB/DescribeTags.hs +88/−84
• gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs +101/−89
• gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs +113/−99
• gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs +109/−96
• gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs +121/−103
• gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs +126/−108
• gen/Network/AWS/ELB/RemoveTags.hs +85/−67
• gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs +111/−87
• gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs +115/−89
• gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs +101/−76
• gen/Network/AWS/ELB/Types.hs +358/−1676
• gen/Network/AWS/ELB/Types/Product.hs +1425/−0
• gen/Network/AWS/ELB/Types/Sum.hs +20/−0
• gen/Network/AWS/ELB/Waiters.hs +20/−0
• test/Main.hs +21/−0
• test/Test/AWS/ELB.hs +26/−0
• test/Test/AWS/ELB/Internal.hs +16/−0
• test/Test/AWS/Gen/ELB.hs +515/−0

@@ -1,22 +1,47 @@ # Amazon Elastic Load Balancing SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## Description -Elastic Load Balancing automatically distributes incoming application traffic-across multiple Amazon EC2 instances. It enables you to achieve greater-levels of fault tolerance in your applications, seamlessly providing the-required amount of load balancing capacity needed to distribute application-traffic.+Elastic Load Balancing +Elastic Load Balancing distributes incoming traffic across your EC2+instances.++For information about the features of Elastic Load Balancing, see+<http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/elastic-load-balancing.html What Is Elastic Load Balancing?>+in the /Elastic Load Balancing Developer Guide/.++For information about the AWS regions supported by Elastic Load+Balancing, see+<http://docs.aws.amazon.com/general/latest/gr/rande.html#elb_region Regions and Endpoints - Elastic Load Balancing>+in the /Amazon Web Services General Reference/.++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.+ Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-elb) and the [AWS API Reference](http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/Welcome.html). +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),+which provides mechanisms for specifying AuthN/AuthZ information and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount 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+[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).  ## Contribute 

@@ -1,29 +1,49 @@ name:                  amazonka-elb-version:               0.3.6+version:               1.0.0 synopsis:              Amazon Elastic Load Balancing SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2014 Brendan Hay+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md cabal-version:         >= 1.10  description:-    Elastic Load Balancing automatically distributes incoming application traffic-    across multiple Amazon EC2 instances. It enables you to achieve greater-    levels of fault tolerance in your applications, seamlessly providing the-    required amount of load balancing capacity needed to distribute application-    traffic.+    Elastic Load Balancing +    Elastic Load Balancing distributes incoming traffic across your EC2+    instances.++    For information about the features of Elastic Load Balancing, see+    <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/elastic-load-balancing.html What Is Elastic Load Balancing?>+    in the /Elastic Load Balancing Developer Guide/.++    For information about the AWS regions supported by Elastic Load+    Balancing, see+    <http://docs.aws.amazon.com/general/latest/gr/rande.html#elb_region Regions and Endpoints - Elastic Load Balancing>+    in the /Amazon Web Services General Reference/.++    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.     .-    /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/Welcome.html AWS API Reference>+    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 and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount 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" and the <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/Welcome.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -66,9 +86,40 @@         , Network.AWS.ELB.SetLoadBalancerPoliciesForBackendServer         , Network.AWS.ELB.SetLoadBalancerPoliciesOfListener         , Network.AWS.ELB.Types+        , Network.AWS.ELB.Waiters      other-modules:+          Network.AWS.ELB.Types.Product+        , Network.AWS.ELB.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 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++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.ELB+        , Test.AWS.Gen.ELB+        , Test.AWS.ELB.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-elb == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,78 +1,429 @@+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Elastic Load Balancing automatically distributes incoming application traffic--- across multiple Amazon EC2 instances. It enables you to achieve greater--- levels of fault tolerance in your applications, seamlessly providing the--- required amount of load balancing capacity needed to distribute application--- traffic.+-- Elastic Load Balancing+--+-- Elastic Load Balancing distributes incoming traffic across your EC2+-- instances.+--+-- For information about the features of Elastic Load Balancing, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/elastic-load-balancing.html What Is Elastic Load Balancing?>+-- in the /Elastic Load Balancing Developer Guide/.+--+-- For information about the AWS regions supported by Elastic Load+-- Balancing, see+-- <http://docs.aws.amazon.com/general/latest/gr/rande.html#elb_region Regions and Endpoints - Elastic Load Balancing>+-- in the /Amazon Web Services General Reference/.+--+-- 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.+--+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.ELB-    ( module Network.AWS.ELB.AddTags+    (+    -- * Service+      ELB++    -- * Errors+    -- $errors++    -- ** PolicyNotFoundException+    , _PolicyNotFoundException++    -- ** AccessPointNotFoundException+    , _AccessPointNotFoundException++    -- ** DuplicatePolicyNameException+    , _DuplicatePolicyNameException++    -- ** InvalidConfigurationRequestException+    , _InvalidConfigurationRequestException++    -- ** SubnetNotFoundException+    , _SubnetNotFoundException++    -- ** LoadBalancerAttributeNotFoundException+    , _LoadBalancerAttributeNotFoundException++    -- ** InvalidSubnetException+    , _InvalidSubnetException++    -- ** DuplicateTagKeysException+    , _DuplicateTagKeysException++    -- ** DuplicateListenerException+    , _DuplicateListenerException++    -- ** TooManyTagsException+    , _TooManyTagsException++    -- ** PolicyTypeNotFoundException+    , _PolicyTypeNotFoundException++    -- ** DuplicateAccessPointNameException+    , _DuplicateAccessPointNameException++    -- ** InvalidSecurityGroupException+    , _InvalidSecurityGroupException++    -- ** ListenerNotFoundException+    , _ListenerNotFoundException++    -- ** InvalidEndPointException+    , _InvalidEndPointException++    -- ** TooManyAccessPointsException+    , _TooManyAccessPointsException++    -- ** InvalidSchemeException+    , _InvalidSchemeException++    -- ** TooManyPoliciesException+    , _TooManyPoliciesException++    -- ** CertificateNotFoundException+    , _CertificateNotFoundException++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** DescribeLoadBalancerPolicyTypes+    , module Network.AWS.ELB.DescribeLoadBalancerPolicyTypes++    -- ** DescribeTags+    , module Network.AWS.ELB.DescribeTags++    -- ** DescribeLoadBalancers (Paginated)+    , module Network.AWS.ELB.DescribeLoadBalancers++    -- ** ApplySecurityGroupsToLoadBalancer     , module Network.AWS.ELB.ApplySecurityGroupsToLoadBalancer-    , module Network.AWS.ELB.AttachLoadBalancerToSubnets-    , module Network.AWS.ELB.ConfigureHealthCheck-    , module Network.AWS.ELB.CreateAppCookieStickinessPolicy++    -- ** RemoveTags+    , module Network.AWS.ELB.RemoveTags++    -- ** CreateLBCookieStickinessPolicy     , module Network.AWS.ELB.CreateLBCookieStickinessPolicy-    , module Network.AWS.ELB.CreateLoadBalancer-    , module Network.AWS.ELB.CreateLoadBalancerListeners-    , module Network.AWS.ELB.CreateLoadBalancerPolicy++    -- ** DeleteLoadBalancer     , module Network.AWS.ELB.DeleteLoadBalancer-    , module Network.AWS.ELB.DeleteLoadBalancerListeners-    , module Network.AWS.ELB.DeleteLoadBalancerPolicy++    -- ** CreateLoadBalancerPolicy+    , module Network.AWS.ELB.CreateLoadBalancerPolicy++    -- ** DeregisterInstancesFromLoadBalancer     , module Network.AWS.ELB.DeregisterInstancesFromLoadBalancer-    , module Network.AWS.ELB.DescribeInstanceHealth-    , module Network.AWS.ELB.DescribeLoadBalancerAttributes++    -- ** DescribeLoadBalancerPolicies     , module Network.AWS.ELB.DescribeLoadBalancerPolicies-    , module Network.AWS.ELB.DescribeLoadBalancerPolicyTypes-    , module Network.AWS.ELB.DescribeLoadBalancers-    , module Network.AWS.ELB.DescribeTags-    , module Network.AWS.ELB.DetachLoadBalancerFromSubnets++    -- ** DisableAvailabilityZonesForLoadBalancer     , module Network.AWS.ELB.DisableAvailabilityZonesForLoadBalancer++    -- ** SetLoadBalancerPoliciesForBackendServer+    , module Network.AWS.ELB.SetLoadBalancerPoliciesForBackendServer++    -- ** EnableAvailabilityZonesForLoadBalancer     , module Network.AWS.ELB.EnableAvailabilityZonesForLoadBalancer++    -- ** SetLoadBalancerListenerSSLCertificate+    , module Network.AWS.ELB.SetLoadBalancerListenerSSLCertificate++    -- ** ConfigureHealthCheck+    , module Network.AWS.ELB.ConfigureHealthCheck++    -- ** AttachLoadBalancerToSubnets+    , module Network.AWS.ELB.AttachLoadBalancerToSubnets++    -- ** ModifyLoadBalancerAttributes     , module Network.AWS.ELB.ModifyLoadBalancerAttributes++    -- ** CreateAppCookieStickinessPolicy+    , module Network.AWS.ELB.CreateAppCookieStickinessPolicy++    -- ** AddTags+    , module Network.AWS.ELB.AddTags++    -- ** DescribeLoadBalancerAttributes+    , module Network.AWS.ELB.DescribeLoadBalancerAttributes++    -- ** DescribeInstanceHealth+    , module Network.AWS.ELB.DescribeInstanceHealth++    -- ** DetachLoadBalancerFromSubnets+    , module Network.AWS.ELB.DetachLoadBalancerFromSubnets++    -- ** RegisterInstancesWithLoadBalancer     , module Network.AWS.ELB.RegisterInstancesWithLoadBalancer-    , module Network.AWS.ELB.RemoveTags-    , module Network.AWS.ELB.SetLoadBalancerListenerSSLCertificate-    , module Network.AWS.ELB.SetLoadBalancerPoliciesForBackendServer++    -- ** DeleteLoadBalancerPolicy+    , module Network.AWS.ELB.DeleteLoadBalancerPolicy++    -- ** CreateLoadBalancerListeners+    , module Network.AWS.ELB.CreateLoadBalancerListeners++    -- ** DeleteLoadBalancerListeners+    , module Network.AWS.ELB.DeleteLoadBalancerListeners++    -- ** CreateLoadBalancer+    , module Network.AWS.ELB.CreateLoadBalancer++    -- ** SetLoadBalancerPoliciesOfListener     , module Network.AWS.ELB.SetLoadBalancerPoliciesOfListener-    , module Network.AWS.ELB.Types++    -- * Types++    -- ** AccessLog+    , AccessLog+    , accessLog+    , alEmitInterval+    , alS3BucketPrefix+    , alS3BucketName+    , alEnabled++    -- ** AdditionalAttribute+    , AdditionalAttribute+    , additionalAttribute+    , aaValue+    , aaKey++    -- ** AppCookieStickinessPolicy+    , AppCookieStickinessPolicy+    , appCookieStickinessPolicy+    , acspPolicyName+    , acspCookieName++    -- ** BackendServerDescription+    , BackendServerDescription+    , backendServerDescription+    , bsdPolicyNames+    , bsdInstancePort++    -- ** ConnectionDraining+    , ConnectionDraining+    , connectionDraining+    , cdTimeout+    , cdEnabled++    -- ** ConnectionSettings+    , ConnectionSettings+    , connectionSettings+    , csIdleTimeout++    -- ** CrossZoneLoadBalancing+    , CrossZoneLoadBalancing+    , crossZoneLoadBalancing+    , czlbEnabled++    -- ** HealthCheck+    , HealthCheck+    , healthCheck+    , hcTarget+    , hcInterval+    , hcTimeout+    , hcUnhealthyThreshold+    , hcHealthyThreshold++    -- ** Instance+    , Instance+    , instance'+    , iInstanceId++    -- ** InstanceState+    , InstanceState+    , instanceState+    , isInstanceId+    , isState+    , isReasonCode+    , isDescription++    -- ** LBCookieStickinessPolicy+    , LBCookieStickinessPolicy+    , lBCookieStickinessPolicy+    , lbcspPolicyName+    , lbcspCookieExpirationPeriod++    -- ** Listener+    , Listener+    , listener+    , lInstanceProtocol+    , lSSLCertificateId+    , lProtocol+    , lLoadBalancerPort+    , lInstancePort++    -- ** ListenerDescription+    , ListenerDescription+    , listenerDescription+    , ldPolicyNames+    , ldListener++    -- ** LoadBalancerAttributes+    , LoadBalancerAttributes+    , loadBalancerAttributes+    , lbaCrossZoneLoadBalancing+    , lbaAccessLog+    , lbaAdditionalAttributes+    , lbaConnectionSettings+    , lbaConnectionDraining++    -- ** LoadBalancerDescription+    , LoadBalancerDescription+    , loadBalancerDescription+    , lbdSourceSecurityGroup+    , lbdHealthCheck+    , lbdCanonicalHostedZoneName+    , lbdSecurityGroups+    , lbdLoadBalancerName+    , lbdCreatedTime+    , lbdVPCId+    , lbdSubnets+    , lbdAvailabilityZones+    , lbdBackendServerDescriptions+    , lbdCanonicalHostedZoneNameId+    , lbdInstances+    , lbdScheme+    , lbdListenerDescriptions+    , lbdDNSName+    , lbdPolicies++    -- ** Policies+    , Policies+    , policies+    , pOtherPolicies+    , pLBCookieStickinessPolicies+    , pAppCookieStickinessPolicies++    -- ** PolicyAttribute+    , PolicyAttribute+    , policyAttribute+    , paAttributeValue+    , paAttributeName++    -- ** PolicyAttributeDescription+    , PolicyAttributeDescription+    , policyAttributeDescription+    , padAttributeValue+    , padAttributeName++    -- ** PolicyAttributeTypeDescription+    , PolicyAttributeTypeDescription+    , policyAttributeTypeDescription+    , patdAttributeType+    , patdCardinality+    , patdDefaultValue+    , patdAttributeName+    , patdDescription++    -- ** PolicyDescription+    , PolicyDescription+    , policyDescription+    , pdPolicyName+    , pdPolicyAttributeDescriptions+    , pdPolicyTypeName++    -- ** PolicyTypeDescription+    , PolicyTypeDescription+    , policyTypeDescription+    , ptdPolicyTypeName+    , ptdDescription+    , ptdPolicyAttributeTypeDescriptions++    -- ** SourceSecurityGroup+    , SourceSecurityGroup+    , sourceSecurityGroup+    , ssgOwnerAlias+    , ssgGroupName++    -- ** Tag+    , Tag+    , tag+    , tagValue+    , tagKey++    -- ** TagDescription+    , TagDescription+    , tagDescription+    , tdLoadBalancerName+    , tdTags++    -- ** TagKeyOnly+    , TagKeyOnly+    , tagKeyOnly+    , tkoKey     ) where -import Network.AWS.ELB.AddTags-import Network.AWS.ELB.ApplySecurityGroupsToLoadBalancer-import Network.AWS.ELB.AttachLoadBalancerToSubnets-import Network.AWS.ELB.ConfigureHealthCheck-import Network.AWS.ELB.CreateAppCookieStickinessPolicy-import Network.AWS.ELB.CreateLBCookieStickinessPolicy-import Network.AWS.ELB.CreateLoadBalancer-import Network.AWS.ELB.CreateLoadBalancerListeners-import Network.AWS.ELB.CreateLoadBalancerPolicy-import Network.AWS.ELB.DeleteLoadBalancer-import Network.AWS.ELB.DeleteLoadBalancerListeners-import Network.AWS.ELB.DeleteLoadBalancerPolicy-import Network.AWS.ELB.DeregisterInstancesFromLoadBalancer-import Network.AWS.ELB.DescribeInstanceHealth-import Network.AWS.ELB.DescribeLoadBalancerAttributes-import Network.AWS.ELB.DescribeLoadBalancerPolicies-import Network.AWS.ELB.DescribeLoadBalancerPolicyTypes-import Network.AWS.ELB.DescribeLoadBalancers-import Network.AWS.ELB.DescribeTags-import Network.AWS.ELB.DetachLoadBalancerFromSubnets-import Network.AWS.ELB.DisableAvailabilityZonesForLoadBalancer-import Network.AWS.ELB.EnableAvailabilityZonesForLoadBalancer-import Network.AWS.ELB.ModifyLoadBalancerAttributes-import Network.AWS.ELB.RegisterInstancesWithLoadBalancer-import Network.AWS.ELB.RemoveTags-import Network.AWS.ELB.SetLoadBalancerListenerSSLCertificate-import Network.AWS.ELB.SetLoadBalancerPoliciesForBackendServer-import Network.AWS.ELB.SetLoadBalancerPoliciesOfListener-import Network.AWS.ELB.Types+import           Network.AWS.ELB.AddTags+import           Network.AWS.ELB.ApplySecurityGroupsToLoadBalancer+import           Network.AWS.ELB.AttachLoadBalancerToSubnets+import           Network.AWS.ELB.ConfigureHealthCheck+import           Network.AWS.ELB.CreateAppCookieStickinessPolicy+import           Network.AWS.ELB.CreateLBCookieStickinessPolicy+import           Network.AWS.ELB.CreateLoadBalancer+import           Network.AWS.ELB.CreateLoadBalancerListeners+import           Network.AWS.ELB.CreateLoadBalancerPolicy+import           Network.AWS.ELB.DeleteLoadBalancer+import           Network.AWS.ELB.DeleteLoadBalancerListeners+import           Network.AWS.ELB.DeleteLoadBalancerPolicy+import           Network.AWS.ELB.DeregisterInstancesFromLoadBalancer+import           Network.AWS.ELB.DescribeInstanceHealth+import           Network.AWS.ELB.DescribeLoadBalancerAttributes+import           Network.AWS.ELB.DescribeLoadBalancerPolicies+import           Network.AWS.ELB.DescribeLoadBalancerPolicyTypes+import           Network.AWS.ELB.DescribeLoadBalancers+import           Network.AWS.ELB.DescribeTags+import           Network.AWS.ELB.DetachLoadBalancerFromSubnets+import           Network.AWS.ELB.DisableAvailabilityZonesForLoadBalancer+import           Network.AWS.ELB.EnableAvailabilityZonesForLoadBalancer+import           Network.AWS.ELB.ModifyLoadBalancerAttributes+import           Network.AWS.ELB.RegisterInstancesWithLoadBalancer+import           Network.AWS.ELB.RemoveTags+import           Network.AWS.ELB.SetLoadBalancerListenerSSLCertificate+import           Network.AWS.ELB.SetLoadBalancerPoliciesForBackendServer+import           Network.AWS.ELB.SetLoadBalancerPoliciesOfListener+import           Network.AWS.ELB.Types+import           Network.AWS.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.+-}

@@ -1,108 +1,128 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.AddTags--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Adds the specified tags to the specified load balancer. Each load balancer--- can have a maximum of 10 tags.+-- 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.+-- 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 <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/TerminologyandKeyConcepts.html#tagging-elb Tagging> in the /Elastic Load Balancing DeveloperGuide/.+-- For more information, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/add-remove-tags.html Tag Your Load Balancer>+-- in the /Elastic Load Balancing Developer Guide/. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_AddTags.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_AddTags.html AWS API Reference> for AddTags. module Network.AWS.ELB.AddTags     (-    -- * Request-      AddTags-    -- ** Request constructor-    , addTags-    -- ** Request lenses+    -- * Creating a Request+      addTags+    , AddTags+    -- * Request Lenses     , atLoadBalancerNames     , atTags -    -- * Response-    , AddTagsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , addTagsResponse+    , AddTagsResponse+    -- * Response Lenses+    , atrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data AddTags = AddTags-    { _atLoadBalancerNames :: List "member" Text-    , _atTags              :: List1 "member" Tag-    } deriving (Eq, Read, Show)+-- | /See:/ 'addTags' smart constructor.+data AddTags = AddTags'+    { _atLoadBalancerNames :: ![Text]+    , _atTags              :: !(List1 Tag)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'AddTags' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'AddTags' with the minimum fields required to make a request. ----- * 'atLoadBalancerNames' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'atTags' @::@ 'NonEmpty' 'Tag'+-- * 'atLoadBalancerNames' ---addTags :: NonEmpty Tag -- ^ 'atTags'-        -> AddTags-addTags p1 = AddTags-    { _atTags              = withIso _List1 (const id) p1-    , _atLoadBalancerNames = mempty+-- * 'atTags'+addTags+    :: NonEmpty Tag -- ^ 'atTags'+    -> AddTags+addTags pTags_ =+    AddTags'+    { _atLoadBalancerNames = mempty+    , _atTags = _List1 # pTags_     }  -- | The name of the load balancer. You can specify one load balancer only. atLoadBalancerNames :: Lens' AddTags [Text]-atLoadBalancerNames =-    lens _atLoadBalancerNames (\s a -> s { _atLoadBalancerNames = a })-        . _List+atLoadBalancerNames = lens _atLoadBalancerNames (\ s a -> s{_atLoadBalancerNames = a}) . _Coerce;  -- | The tags. atTags :: Lens' AddTags (NonEmpty Tag)-atTags = lens _atTags (\s a -> s { _atTags = a }) . _List1+atTags = lens _atTags (\ s a -> s{_atTags = a}) . _List1; -data AddTagsResponse = AddTagsResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest AddTags where+        type Sv AddTags = ELB+        type Rs AddTags = AddTagsResponse+        request = postQuery+        response+          = receiveXMLWrapper "AddTagsResult"+              (\ s h x -> AddTagsResponse' <$> (pure (fromEnum s))) --- | 'AddTagsResponse' constructor.-addTagsResponse :: AddTagsResponse-addTagsResponse = AddTagsResponse+instance ToHeaders AddTags where+        toHeaders = const mempty  instance ToPath AddTags where-    toPath = const "/"+        toPath = const "/"  instance ToQuery AddTags where-    toQuery AddTags{..} = mconcat-        [ "LoadBalancerNames" =? _atLoadBalancerNames-        , "Tags"              =? _atTags-        ]+        toQuery AddTags'{..}+          = mconcat+              ["Action" =: ("AddTags" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerNames" =:+                 toQueryList "member" _atLoadBalancerNames,+               "Tags" =: toQueryList "member" _atTags] -instance ToHeaders AddTags+-- | /See:/ 'addTagsResponse' smart constructor.+newtype AddTagsResponse = AddTagsResponse'+    { _atrsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest AddTags where-    type Sv AddTags = ELB-    type Rs AddTags = AddTagsResponse+-- | Creates a value of 'AddTagsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'atrsStatus'+addTagsResponse+    :: Int -- ^ 'atrsStatus'+    -> AddTagsResponse+addTagsResponse pStatus_ =+    AddTagsResponse'+    { _atrsStatus = pStatus_+    } -    request  = post "AddTags"-    response = nullResponse AddTagsResponse+-- | The response status code.+atrsStatus :: Lens' AddTagsResponse Int+atrsStatus = lens _atrsStatus (\ s a -> s{_atrsStatus = a});

@@ -1,134 +1,146 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.ApplySecurityGroupsToLoadBalancer--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | 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.+-- 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 <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/USVPC_ApplySG.html Manage Security Groups for Amazon VPC> in the /Elastic Load Balancing Developer Guide/.+-- For more information, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/elb-security-groups.html#elb-vpc-security-groups Security Groups for Load Balancers in a VPC>+-- in the /Elastic Load Balancing Developer Guide/. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_ApplySecurityGroupsToLoadBalancer.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_ApplySecurityGroupsToLoadBalancer.html AWS API Reference> for ApplySecurityGroupsToLoadBalancer. module Network.AWS.ELB.ApplySecurityGroupsToLoadBalancer     (-    -- * Request-      ApplySecurityGroupsToLoadBalancer-    -- ** Request constructor-    , applySecurityGroupsToLoadBalancer-    -- ** Request lenses+    -- * Creating a Request+      applySecurityGroupsToLoadBalancer+    , ApplySecurityGroupsToLoadBalancer+    -- * Request Lenses     , asgtlbLoadBalancerName     , asgtlbSecurityGroups -    -- * Response-    , ApplySecurityGroupsToLoadBalancerResponse-    -- ** Response constructor+    -- * Destructuring the Response     , applySecurityGroupsToLoadBalancerResponse-    -- ** Response lenses-    , asgtlbrSecurityGroups+    , ApplySecurityGroupsToLoadBalancerResponse+    -- * Response Lenses+    , asgtlbrsSecurityGroups+    , asgtlbrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data ApplySecurityGroupsToLoadBalancer = ApplySecurityGroupsToLoadBalancer-    { _asgtlbLoadBalancerName :: Text-    , _asgtlbSecurityGroups   :: List "member" Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'applySecurityGroupsToLoadBalancer' smart constructor.+data ApplySecurityGroupsToLoadBalancer = ApplySecurityGroupsToLoadBalancer'+    { _asgtlbLoadBalancerName :: !Text+    , _asgtlbSecurityGroups   :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'ApplySecurityGroupsToLoadBalancer' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'ApplySecurityGroupsToLoadBalancer' with the minimum fields required to make a request. ----- * 'asgtlbLoadBalancerName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'asgtlbSecurityGroups' @::@ ['Text']+-- * 'asgtlbLoadBalancerName' ---applySecurityGroupsToLoadBalancer :: Text -- ^ 'asgtlbLoadBalancerName'-                                  -> ApplySecurityGroupsToLoadBalancer-applySecurityGroupsToLoadBalancer p1 = ApplySecurityGroupsToLoadBalancer-    { _asgtlbLoadBalancerName = p1-    , _asgtlbSecurityGroups   = mempty+-- * 'asgtlbSecurityGroups'+applySecurityGroupsToLoadBalancer+    :: Text -- ^ 'asgtlbLoadBalancerName'+    -> ApplySecurityGroupsToLoadBalancer+applySecurityGroupsToLoadBalancer pLoadBalancerName_ =+    ApplySecurityGroupsToLoadBalancer'+    { _asgtlbLoadBalancerName = pLoadBalancerName_+    , _asgtlbSecurityGroups = mempty     }  -- | The name of the load balancer. asgtlbLoadBalancerName :: Lens' ApplySecurityGroupsToLoadBalancer Text-asgtlbLoadBalancerName =-    lens _asgtlbLoadBalancerName (\s a -> s { _asgtlbLoadBalancerName = a })+asgtlbLoadBalancerName = lens _asgtlbLoadBalancerName (\ s a -> s{_asgtlbLoadBalancerName = a}); --- | The IDs of the security groups to associate with the load balancer. Note that--- you cannot specify the name of the security group.+-- | The IDs of the security groups to associate with the load balancer. Note+-- that you cannot specify the name of the security group. asgtlbSecurityGroups :: Lens' ApplySecurityGroupsToLoadBalancer [Text]-asgtlbSecurityGroups =-    lens _asgtlbSecurityGroups (\s a -> s { _asgtlbSecurityGroups = a })-        . _List+asgtlbSecurityGroups = lens _asgtlbSecurityGroups (\ s a -> s{_asgtlbSecurityGroups = a}) . _Coerce; -newtype ApplySecurityGroupsToLoadBalancerResponse = ApplySecurityGroupsToLoadBalancerResponse-    { _asgtlbrSecurityGroups :: List "member" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)+instance AWSRequest ApplySecurityGroupsToLoadBalancer+         where+        type Sv ApplySecurityGroupsToLoadBalancer = ELB+        type Rs ApplySecurityGroupsToLoadBalancer =+             ApplySecurityGroupsToLoadBalancerResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "ApplySecurityGroupsToLoadBalancerResult"+              (\ s h x ->+                 ApplySecurityGroupsToLoadBalancerResponse' <$>+                   (x .@? "SecurityGroups" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -instance GHC.Exts.IsList ApplySecurityGroupsToLoadBalancerResponse where-    type Item ApplySecurityGroupsToLoadBalancerResponse = Text+instance ToHeaders ApplySecurityGroupsToLoadBalancer+         where+        toHeaders = const mempty -    fromList = ApplySecurityGroupsToLoadBalancerResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _asgtlbrSecurityGroups+instance ToPath ApplySecurityGroupsToLoadBalancer+         where+        toPath = const "/" --- | 'ApplySecurityGroupsToLoadBalancerResponse' constructor.+instance ToQuery ApplySecurityGroupsToLoadBalancer+         where+        toQuery ApplySecurityGroupsToLoadBalancer'{..}+          = mconcat+              ["Action" =:+                 ("ApplySecurityGroupsToLoadBalancer" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _asgtlbLoadBalancerName,+               "SecurityGroups" =:+                 toQueryList "member" _asgtlbSecurityGroups]++-- | /See:/ 'applySecurityGroupsToLoadBalancerResponse' smart constructor.+data ApplySecurityGroupsToLoadBalancerResponse = ApplySecurityGroupsToLoadBalancerResponse'+    { _asgtlbrsSecurityGroups :: !(Maybe [Text])+    , _asgtlbrsStatus         :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ApplySecurityGroupsToLoadBalancerResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'asgtlbrSecurityGroups' @::@ ['Text']+-- * 'asgtlbrsSecurityGroups' ---applySecurityGroupsToLoadBalancerResponse :: ApplySecurityGroupsToLoadBalancerResponse-applySecurityGroupsToLoadBalancerResponse = ApplySecurityGroupsToLoadBalancerResponse-    { _asgtlbrSecurityGroups = mempty+-- * 'asgtlbrsStatus'+applySecurityGroupsToLoadBalancerResponse+    :: Int -- ^ 'asgtlbrsStatus'+    -> ApplySecurityGroupsToLoadBalancerResponse+applySecurityGroupsToLoadBalancerResponse pStatus_ =+    ApplySecurityGroupsToLoadBalancerResponse'+    { _asgtlbrsSecurityGroups = Nothing+    , _asgtlbrsStatus = pStatus_     }  -- | The IDs of the security groups associated with the load balancer.-asgtlbrSecurityGroups :: Lens' ApplySecurityGroupsToLoadBalancerResponse [Text]-asgtlbrSecurityGroups =-    lens _asgtlbrSecurityGroups (\s a -> s { _asgtlbrSecurityGroups = a })-        . _List--instance ToPath ApplySecurityGroupsToLoadBalancer where-    toPath = const "/"--instance ToQuery ApplySecurityGroupsToLoadBalancer where-    toQuery ApplySecurityGroupsToLoadBalancer{..} = mconcat-        [ "LoadBalancerName" =? _asgtlbLoadBalancerName-        , "SecurityGroups"   =? _asgtlbSecurityGroups-        ]--instance ToHeaders ApplySecurityGroupsToLoadBalancer--instance AWSRequest ApplySecurityGroupsToLoadBalancer where-    type Sv ApplySecurityGroupsToLoadBalancer = ELB-    type Rs ApplySecurityGroupsToLoadBalancer = ApplySecurityGroupsToLoadBalancerResponse--    request  = post "ApplySecurityGroupsToLoadBalancer"-    response = xmlResponse+asgtlbrsSecurityGroups :: Lens' ApplySecurityGroupsToLoadBalancerResponse [Text]+asgtlbrsSecurityGroups = lens _asgtlbrsSecurityGroups (\ s a -> s{_asgtlbrsSecurityGroups = a}) . _Default . _Coerce; -instance FromXML ApplySecurityGroupsToLoadBalancerResponse where-    parseXML = withElement "ApplySecurityGroupsToLoadBalancerResult" $ \x -> ApplySecurityGroupsToLoadBalancerResponse-        <$> x .@? "SecurityGroups" .!@ mempty+-- | The response status code.+asgtlbrsStatus :: Lens' ApplySecurityGroupsToLoadBalancerResponse Int+asgtlbrsStatus = lens _asgtlbrsStatus (\ s a -> s{_asgtlbrsStatus = a});

@@ -1,130 +1,141 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.AttachLoadBalancerToSubnets--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Adds one or more subnets to the set of configured subnets for the specified--- load balancer.+-- 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 <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/UserScenariosForVPC.html Elastic Load Balancing in Amazon VPC> in the /ElasticLoad Balancing Developer Guide/.+-- The load balancer evenly distributes requests across all registered+-- subnets. For more information, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/elb-manage-subnets.html Add or Remove Subnets for Your Load Balancer in a VPC>+-- in the /Elastic Load Balancing Developer Guide/. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_AttachLoadBalancerToSubnets.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_AttachLoadBalancerToSubnets.html AWS API Reference> for AttachLoadBalancerToSubnets. module Network.AWS.ELB.AttachLoadBalancerToSubnets     (-    -- * Request-      AttachLoadBalancerToSubnets-    -- ** Request constructor-    , attachLoadBalancerToSubnets-    -- ** Request lenses+    -- * Creating a Request+      attachLoadBalancerToSubnets+    , AttachLoadBalancerToSubnets+    -- * Request Lenses     , albtsLoadBalancerName     , albtsSubnets -    -- * Response-    , AttachLoadBalancerToSubnetsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , attachLoadBalancerToSubnetsResponse-    -- ** Response lenses-    , albtsrSubnets+    , AttachLoadBalancerToSubnetsResponse+    -- * Response Lenses+    , albtsrsSubnets+    , albtsrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data AttachLoadBalancerToSubnets = AttachLoadBalancerToSubnets-    { _albtsLoadBalancerName :: Text-    , _albtsSubnets          :: List "member" Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'attachLoadBalancerToSubnets' smart constructor.+data AttachLoadBalancerToSubnets = AttachLoadBalancerToSubnets'+    { _albtsLoadBalancerName :: !Text+    , _albtsSubnets          :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'AttachLoadBalancerToSubnets' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'AttachLoadBalancerToSubnets' with the minimum fields required to make a request. ----- * 'albtsLoadBalancerName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'albtsSubnets' @::@ ['Text']+-- * 'albtsLoadBalancerName' ---attachLoadBalancerToSubnets :: Text -- ^ 'albtsLoadBalancerName'-                            -> AttachLoadBalancerToSubnets-attachLoadBalancerToSubnets p1 = AttachLoadBalancerToSubnets-    { _albtsLoadBalancerName = p1-    , _albtsSubnets          = mempty+-- * 'albtsSubnets'+attachLoadBalancerToSubnets+    :: Text -- ^ 'albtsLoadBalancerName'+    -> AttachLoadBalancerToSubnets+attachLoadBalancerToSubnets pLoadBalancerName_ =+    AttachLoadBalancerToSubnets'+    { _albtsLoadBalancerName = pLoadBalancerName_+    , _albtsSubnets = mempty     }  -- | The name of the load balancer. albtsLoadBalancerName :: Lens' AttachLoadBalancerToSubnets Text-albtsLoadBalancerName =-    lens _albtsLoadBalancerName (\s a -> s { _albtsLoadBalancerName = a })+albtsLoadBalancerName = lens _albtsLoadBalancerName (\ s a -> s{_albtsLoadBalancerName = a}); --- | The IDs of the subnets to add for the load balancer. You can add only one--- subnet per Availability Zone.+-- | The IDs of the subnets to add for the load balancer. You can add only+-- one subnet per Availability Zone. albtsSubnets :: Lens' AttachLoadBalancerToSubnets [Text]-albtsSubnets = lens _albtsSubnets (\s a -> s { _albtsSubnets = a }) . _List+albtsSubnets = lens _albtsSubnets (\ s a -> s{_albtsSubnets = a}) . _Coerce; -newtype AttachLoadBalancerToSubnetsResponse = AttachLoadBalancerToSubnetsResponse-    { _albtsrSubnets :: List "member" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)+instance AWSRequest AttachLoadBalancerToSubnets where+        type Sv AttachLoadBalancerToSubnets = ELB+        type Rs AttachLoadBalancerToSubnets =+             AttachLoadBalancerToSubnetsResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "AttachLoadBalancerToSubnetsResult"+              (\ s h x ->+                 AttachLoadBalancerToSubnetsResponse' <$>+                   (x .@? "Subnets" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -instance GHC.Exts.IsList AttachLoadBalancerToSubnetsResponse where-    type Item AttachLoadBalancerToSubnetsResponse = Text+instance ToHeaders AttachLoadBalancerToSubnets where+        toHeaders = const mempty -    fromList = AttachLoadBalancerToSubnetsResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _albtsrSubnets+instance ToPath AttachLoadBalancerToSubnets where+        toPath = const "/" --- | 'AttachLoadBalancerToSubnetsResponse' constructor.+instance ToQuery AttachLoadBalancerToSubnets where+        toQuery AttachLoadBalancerToSubnets'{..}+          = mconcat+              ["Action" =:+                 ("AttachLoadBalancerToSubnets" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _albtsLoadBalancerName,+               "Subnets" =: toQueryList "member" _albtsSubnets]++-- | /See:/ 'attachLoadBalancerToSubnetsResponse' smart constructor.+data AttachLoadBalancerToSubnetsResponse = AttachLoadBalancerToSubnetsResponse'+    { _albtsrsSubnets :: !(Maybe [Text])+    , _albtsrsStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AttachLoadBalancerToSubnetsResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'albtsrSubnets' @::@ ['Text']+-- * 'albtsrsSubnets' ---attachLoadBalancerToSubnetsResponse :: AttachLoadBalancerToSubnetsResponse-attachLoadBalancerToSubnetsResponse = AttachLoadBalancerToSubnetsResponse-    { _albtsrSubnets = mempty+-- * 'albtsrsStatus'+attachLoadBalancerToSubnetsResponse+    :: Int -- ^ 'albtsrsStatus'+    -> AttachLoadBalancerToSubnetsResponse+attachLoadBalancerToSubnetsResponse pStatus_ =+    AttachLoadBalancerToSubnetsResponse'+    { _albtsrsSubnets = Nothing+    , _albtsrsStatus = pStatus_     }  -- | The IDs of the subnets attached to the load balancer.-albtsrSubnets :: Lens' AttachLoadBalancerToSubnetsResponse [Text]-albtsrSubnets = lens _albtsrSubnets (\s a -> s { _albtsrSubnets = a }) . _List--instance ToPath AttachLoadBalancerToSubnets where-    toPath = const "/"--instance ToQuery AttachLoadBalancerToSubnets where-    toQuery AttachLoadBalancerToSubnets{..} = mconcat-        [ "LoadBalancerName" =? _albtsLoadBalancerName-        , "Subnets"          =? _albtsSubnets-        ]--instance ToHeaders AttachLoadBalancerToSubnets--instance AWSRequest AttachLoadBalancerToSubnets where-    type Sv AttachLoadBalancerToSubnets = ELB-    type Rs AttachLoadBalancerToSubnets = AttachLoadBalancerToSubnetsResponse--    request  = post "AttachLoadBalancerToSubnets"-    response = xmlResponse+albtsrsSubnets :: Lens' AttachLoadBalancerToSubnetsResponse [Text]+albtsrsSubnets = lens _albtsrsSubnets (\ s a -> s{_albtsrsSubnets = a}) . _Default . _Coerce; -instance FromXML AttachLoadBalancerToSubnetsResponse where-    parseXML = withElement "AttachLoadBalancerToSubnetsResult" $ \x -> AttachLoadBalancerToSubnetsResponse-        <$> x .@? "Subnets" .!@ mempty+-- | The response status code.+albtsrsStatus :: Lens' AttachLoadBalancerToSubnetsResponse Int+albtsrsStatus = lens _albtsrsStatus (\ s a -> s{_albtsrsStatus = a});

@@ -1,123 +1,136 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.ConfigureHealthCheck--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Specifies the health check settings to use when evaluating the health state--- of your back-end instances.+-- Specifies the health check settings to use when evaluating the health+-- state of your back-end instances. ----- For more information, see <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/TerminologyandKeyConcepts.html#healthcheck Health Checks> in the /Elastic Load BalancingDeveloper Guide/.+-- For more information, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/elb-healthchecks.html Configure Health Checks>+-- in the /Elastic Load Balancing Developer Guide/. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_ConfigureHealthCheck.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_ConfigureHealthCheck.html AWS API Reference> for ConfigureHealthCheck. module Network.AWS.ELB.ConfigureHealthCheck     (-    -- * Request-      ConfigureHealthCheck-    -- ** Request constructor-    , configureHealthCheck-    -- ** Request lenses-    , chcHealthCheck+    -- * Creating a Request+      configureHealthCheck+    , ConfigureHealthCheck+    -- * Request Lenses     , chcLoadBalancerName+    , chcHealthCheck -    -- * Response-    , ConfigureHealthCheckResponse-    -- ** Response constructor+    -- * Destructuring the Response     , configureHealthCheckResponse-    -- ** Response lenses-    , chcrHealthCheck+    , ConfigureHealthCheckResponse+    -- * Response Lenses+    , chcrsHealthCheck+    , chcrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data ConfigureHealthCheck = ConfigureHealthCheck-    { _chcHealthCheck      :: HealthCheck-    , _chcLoadBalancerName :: Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'configureHealthCheck' smart constructor.+data ConfigureHealthCheck = ConfigureHealthCheck'+    { _chcLoadBalancerName :: !Text+    , _chcHealthCheck      :: !HealthCheck+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'ConfigureHealthCheck' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'ConfigureHealthCheck' with the minimum fields required to make a request. ----- * 'chcHealthCheck' @::@ 'HealthCheck'+-- Use one of the following lenses to modify other fields as desired: ----- * 'chcLoadBalancerName' @::@ 'Text'+-- * 'chcLoadBalancerName' ---configureHealthCheck :: Text -- ^ 'chcLoadBalancerName'-                     -> HealthCheck -- ^ 'chcHealthCheck'-                     -> ConfigureHealthCheck-configureHealthCheck p1 p2 = ConfigureHealthCheck-    { _chcLoadBalancerName = p1-    , _chcHealthCheck      = p2+-- * 'chcHealthCheck'+configureHealthCheck+    :: Text -- ^ 'chcLoadBalancerName'+    -> HealthCheck -- ^ 'chcHealthCheck'+    -> ConfigureHealthCheck+configureHealthCheck pLoadBalancerName_ pHealthCheck_ =+    ConfigureHealthCheck'+    { _chcLoadBalancerName = pLoadBalancerName_+    , _chcHealthCheck = pHealthCheck_     } --- | The configuration information for the new health check.-chcHealthCheck :: Lens' ConfigureHealthCheck HealthCheck-chcHealthCheck = lens _chcHealthCheck (\s a -> s { _chcHealthCheck = a })- -- | The name of the load balancer. chcLoadBalancerName :: Lens' ConfigureHealthCheck Text-chcLoadBalancerName =-    lens _chcLoadBalancerName (\s a -> s { _chcLoadBalancerName = a })+chcLoadBalancerName = lens _chcLoadBalancerName (\ s a -> s{_chcLoadBalancerName = a}); -newtype ConfigureHealthCheckResponse = ConfigureHealthCheckResponse-    { _chcrHealthCheck :: Maybe HealthCheck-    } deriving (Eq, Read, Show)+-- | The configuration information for the new health check.+chcHealthCheck :: Lens' ConfigureHealthCheck HealthCheck+chcHealthCheck = lens _chcHealthCheck (\ s a -> s{_chcHealthCheck = a}); --- | 'ConfigureHealthCheckResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'chcrHealthCheck' @::@ 'Maybe' 'HealthCheck'----configureHealthCheckResponse :: ConfigureHealthCheckResponse-configureHealthCheckResponse = ConfigureHealthCheckResponse-    { _chcrHealthCheck = Nothing-    }+instance AWSRequest ConfigureHealthCheck where+        type Sv ConfigureHealthCheck = ELB+        type Rs ConfigureHealthCheck =+             ConfigureHealthCheckResponse+        request = postQuery+        response+          = receiveXMLWrapper "ConfigureHealthCheckResult"+              (\ s h x ->+                 ConfigureHealthCheckResponse' <$>+                   (x .@? "HealthCheck") <*> (pure (fromEnum s))) --- | The updated health check.-chcrHealthCheck :: Lens' ConfigureHealthCheckResponse (Maybe HealthCheck)-chcrHealthCheck = lens _chcrHealthCheck (\s a -> s { _chcrHealthCheck = a })+instance ToHeaders ConfigureHealthCheck where+        toHeaders = const mempty  instance ToPath ConfigureHealthCheck where-    toPath = const "/"+        toPath = const "/"  instance ToQuery ConfigureHealthCheck where-    toQuery ConfigureHealthCheck{..} = mconcat-        [ "HealthCheck"      =? _chcHealthCheck-        , "LoadBalancerName" =? _chcLoadBalancerName-        ]+        toQuery ConfigureHealthCheck'{..}+          = mconcat+              ["Action" =: ("ConfigureHealthCheck" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _chcLoadBalancerName,+               "HealthCheck" =: _chcHealthCheck] -instance ToHeaders ConfigureHealthCheck+-- | /See:/ 'configureHealthCheckResponse' smart constructor.+data ConfigureHealthCheckResponse = ConfigureHealthCheckResponse'+    { _chcrsHealthCheck :: !(Maybe HealthCheck)+    , _chcrsStatus      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest ConfigureHealthCheck where-    type Sv ConfigureHealthCheck = ELB-    type Rs ConfigureHealthCheck = ConfigureHealthCheckResponse+-- | Creates a value of 'ConfigureHealthCheckResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'chcrsHealthCheck'+--+-- * 'chcrsStatus'+configureHealthCheckResponse+    :: Int -- ^ 'chcrsStatus'+    -> ConfigureHealthCheckResponse+configureHealthCheckResponse pStatus_ =+    ConfigureHealthCheckResponse'+    { _chcrsHealthCheck = Nothing+    , _chcrsStatus = pStatus_+    } -    request  = post "ConfigureHealthCheck"-    response = xmlResponse+-- | The updated health check.+chcrsHealthCheck :: Lens' ConfigureHealthCheckResponse (Maybe HealthCheck)+chcrsHealthCheck = lens _chcrsHealthCheck (\ s a -> s{_chcrsHealthCheck = a}); -instance FromXML ConfigureHealthCheckResponse where-    parseXML = withElement "ConfigureHealthCheckResult" $ \x -> ConfigureHealthCheckResponse-        <$> x .@? "HealthCheck"+-- | The response status code.+chcrsStatus :: Lens' ConfigureHealthCheckResponse Int+chcrsStatus = lens _chcrsStatus (\ s a -> s{_chcrsStatus = a});

@@ -1,125 +1,155 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.CreateAppCookieStickinessPolicy--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | 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.+-- 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.+-- 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 <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/US_StickySessions.html#US_EnableStickySessionsAppCookies Application-Controlled Session Stickiness> in the /Elastic Load Balancing Developer Guide/.+-- For more information, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/elb-sticky-sessions.html#enable-sticky-sessions-application Application-Controlled Session Stickiness>+-- in the /Elastic Load Balancing Developer Guide/. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_CreateAppCookieStickinessPolicy.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_CreateAppCookieStickinessPolicy.html AWS API Reference> for CreateAppCookieStickinessPolicy. module Network.AWS.ELB.CreateAppCookieStickinessPolicy     (-    -- * Request-      CreateAppCookieStickinessPolicy-    -- ** Request constructor-    , createAppCookieStickinessPolicy-    -- ** Request lenses-    , cacspCookieName+    -- * Creating a Request+      createAppCookieStickinessPolicy+    , CreateAppCookieStickinessPolicy+    -- * Request Lenses     , cacspLoadBalancerName     , cacspPolicyName+    , cacspCookieName -    -- * Response-    , CreateAppCookieStickinessPolicyResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createAppCookieStickinessPolicyResponse+    , CreateAppCookieStickinessPolicyResponse+    -- * Response Lenses+    , cacsprsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateAppCookieStickinessPolicy = CreateAppCookieStickinessPolicy-    { _cacspCookieName       :: Text-    , _cacspLoadBalancerName :: Text-    , _cacspPolicyName       :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'createAppCookieStickinessPolicy' smart constructor.+data CreateAppCookieStickinessPolicy = CreateAppCookieStickinessPolicy'+    { _cacspLoadBalancerName :: !Text+    , _cacspPolicyName       :: !Text+    , _cacspCookieName       :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateAppCookieStickinessPolicy' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateAppCookieStickinessPolicy' with the minimum fields required to make a request. ----- * 'cacspCookieName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cacspLoadBalancerName' @::@ 'Text'+-- * 'cacspLoadBalancerName' ----- * 'cacspPolicyName' @::@ 'Text'+-- * 'cacspPolicyName' ---createAppCookieStickinessPolicy :: Text -- ^ 'cacspLoadBalancerName'-                                -> Text -- ^ 'cacspPolicyName'-                                -> Text -- ^ 'cacspCookieName'-                                -> CreateAppCookieStickinessPolicy-createAppCookieStickinessPolicy p1 p2 p3 = CreateAppCookieStickinessPolicy-    { _cacspLoadBalancerName = p1-    , _cacspPolicyName       = p2-    , _cacspCookieName       = p3+-- * 'cacspCookieName'+createAppCookieStickinessPolicy+    :: Text -- ^ 'cacspLoadBalancerName'+    -> Text -- ^ 'cacspPolicyName'+    -> Text -- ^ 'cacspCookieName'+    -> CreateAppCookieStickinessPolicy+createAppCookieStickinessPolicy pLoadBalancerName_ pPolicyName_ pCookieName_ =+    CreateAppCookieStickinessPolicy'+    { _cacspLoadBalancerName = pLoadBalancerName_+    , _cacspPolicyName = pPolicyName_+    , _cacspCookieName = pCookieName_     } --- | The name of the application cookie used for stickiness.-cacspCookieName :: Lens' CreateAppCookieStickinessPolicy Text-cacspCookieName = lens _cacspCookieName (\s a -> s { _cacspCookieName = a })- -- | The name of the load balancer. cacspLoadBalancerName :: Lens' CreateAppCookieStickinessPolicy Text-cacspLoadBalancerName =-    lens _cacspLoadBalancerName (\s a -> s { _cacspLoadBalancerName = a })+cacspLoadBalancerName = lens _cacspLoadBalancerName (\ s a -> s{_cacspLoadBalancerName = a}); --- | The name of the policy being created. This name must be unique within the set--- of policies for this load balancer.+-- | The name of the policy being created. This name must be unique within+-- the set of policies for this load balancer. cacspPolicyName :: Lens' CreateAppCookieStickinessPolicy Text-cacspPolicyName = lens _cacspPolicyName (\s a -> s { _cacspPolicyName = a })+cacspPolicyName = lens _cacspPolicyName (\ s a -> s{_cacspPolicyName = a}); -data CreateAppCookieStickinessPolicyResponse = CreateAppCookieStickinessPolicyResponse-    deriving (Eq, Ord, Read, Show, Generic)+-- | The name of the application cookie used for stickiness.+cacspCookieName :: Lens' CreateAppCookieStickinessPolicy Text+cacspCookieName = lens _cacspCookieName (\ s a -> s{_cacspCookieName = a}); --- | 'CreateAppCookieStickinessPolicyResponse' constructor.-createAppCookieStickinessPolicyResponse :: CreateAppCookieStickinessPolicyResponse-createAppCookieStickinessPolicyResponse = CreateAppCookieStickinessPolicyResponse+instance AWSRequest CreateAppCookieStickinessPolicy+         where+        type Sv CreateAppCookieStickinessPolicy = ELB+        type Rs CreateAppCookieStickinessPolicy =+             CreateAppCookieStickinessPolicyResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "CreateAppCookieStickinessPolicyResult"+              (\ s h x ->+                 CreateAppCookieStickinessPolicyResponse' <$>+                   (pure (fromEnum s))) +instance ToHeaders CreateAppCookieStickinessPolicy+         where+        toHeaders = const mempty+ instance ToPath CreateAppCookieStickinessPolicy where-    toPath = const "/"+        toPath = const "/" -instance ToQuery CreateAppCookieStickinessPolicy where-    toQuery CreateAppCookieStickinessPolicy{..} = mconcat-        [ "CookieName"       =? _cacspCookieName-        , "LoadBalancerName" =? _cacspLoadBalancerName-        , "PolicyName"       =? _cacspPolicyName-        ]+instance ToQuery CreateAppCookieStickinessPolicy+         where+        toQuery CreateAppCookieStickinessPolicy'{..}+          = mconcat+              ["Action" =:+                 ("CreateAppCookieStickinessPolicy" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _cacspLoadBalancerName,+               "PolicyName" =: _cacspPolicyName,+               "CookieName" =: _cacspCookieName] -instance ToHeaders CreateAppCookieStickinessPolicy+-- | /See:/ 'createAppCookieStickinessPolicyResponse' smart constructor.+newtype CreateAppCookieStickinessPolicyResponse = CreateAppCookieStickinessPolicyResponse'+    { _cacsprsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateAppCookieStickinessPolicy where-    type Sv CreateAppCookieStickinessPolicy = ELB-    type Rs CreateAppCookieStickinessPolicy = CreateAppCookieStickinessPolicyResponse+-- | Creates a value of 'CreateAppCookieStickinessPolicyResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cacsprsStatus'+createAppCookieStickinessPolicyResponse+    :: Int -- ^ 'cacsprsStatus'+    -> CreateAppCookieStickinessPolicyResponse+createAppCookieStickinessPolicyResponse pStatus_ =+    CreateAppCookieStickinessPolicyResponse'+    { _cacsprsStatus = pStatus_+    } -    request  = post "CreateAppCookieStickinessPolicy"-    response = nullResponse CreateAppCookieStickinessPolicyResponse+-- | The response status code.+cacsprsStatus :: Lens' CreateAppCookieStickinessPolicyResponse Int+cacsprsStatus = lens _cacsprsStatus (\ s a -> s{_cacsprsStatus = a});

@@ -1,133 +1,159 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.CreateLBCookieStickinessPolicy--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | 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.+-- 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 back-end server 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.+-- special cookie to track the back-end server 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.+-- 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 <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/US_StickySessions.html#US_EnableStickySessionsLBCookies Duration-Based Session Stickiness> in the /ElasticLoad Balancing Developer Guide/.+-- For more information, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/elb-sticky-sessions.html#enable-sticky-sessions-duration Duration-Based Session Stickiness>+-- in the /Elastic Load Balancing Developer Guide/. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_CreateLBCookieStickinessPolicy.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_CreateLBCookieStickinessPolicy.html AWS API Reference> for CreateLBCookieStickinessPolicy. module Network.AWS.ELB.CreateLBCookieStickinessPolicy     (-    -- * Request-      CreateLBCookieStickinessPolicy-    -- ** Request constructor-    , createLBCookieStickinessPolicy-    -- ** Request lenses+    -- * Creating a Request+      createLBCookieStickinessPolicy+    , CreateLBCookieStickinessPolicy+    -- * Request Lenses     , clbcspCookieExpirationPeriod     , clbcspLoadBalancerName     , clbcspPolicyName -    -- * Response-    , CreateLBCookieStickinessPolicyResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createLBCookieStickinessPolicyResponse+    , CreateLBCookieStickinessPolicyResponse+    -- * Response Lenses+    , clbcsprsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateLBCookieStickinessPolicy = CreateLBCookieStickinessPolicy-    { _clbcspCookieExpirationPeriod :: Maybe Integer-    , _clbcspLoadBalancerName       :: Text-    , _clbcspPolicyName             :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'createLBCookieStickinessPolicy' smart constructor.+data CreateLBCookieStickinessPolicy = CreateLBCookieStickinessPolicy'+    { _clbcspCookieExpirationPeriod :: !(Maybe Integer)+    , _clbcspLoadBalancerName       :: !Text+    , _clbcspPolicyName             :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateLBCookieStickinessPolicy' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateLBCookieStickinessPolicy' with the minimum fields required to make a request. ----- * 'clbcspCookieExpirationPeriod' @::@ 'Maybe' 'Integer'+-- Use one of the following lenses to modify other fields as desired: ----- * 'clbcspLoadBalancerName' @::@ 'Text'+-- * 'clbcspCookieExpirationPeriod' ----- * 'clbcspPolicyName' @::@ 'Text'+-- * 'clbcspLoadBalancerName' ---createLBCookieStickinessPolicy :: Text -- ^ 'clbcspLoadBalancerName'-                               -> Text -- ^ 'clbcspPolicyName'-                               -> CreateLBCookieStickinessPolicy-createLBCookieStickinessPolicy p1 p2 = CreateLBCookieStickinessPolicy-    { _clbcspLoadBalancerName       = p1-    , _clbcspPolicyName             = p2-    , _clbcspCookieExpirationPeriod = Nothing+-- * 'clbcspPolicyName'+createLBCookieStickinessPolicy+    :: Text -- ^ 'clbcspLoadBalancerName'+    -> Text -- ^ 'clbcspPolicyName'+    -> CreateLBCookieStickinessPolicy+createLBCookieStickinessPolicy pLoadBalancerName_ pPolicyName_ =+    CreateLBCookieStickinessPolicy'+    { _clbcspCookieExpirationPeriod = Nothing+    , _clbcspLoadBalancerName = pLoadBalancerName_+    , _clbcspPolicyName = pPolicyName_     }  -- | The time period, in seconds, after which the cookie should be considered--- stale. If you do not specify this parameter, the sticky session lasts for the--- duration of the browser session.+-- stale. If you do not specify this parameter, the sticky session lasts+-- for the duration of the browser session. clbcspCookieExpirationPeriod :: Lens' CreateLBCookieStickinessPolicy (Maybe Integer)-clbcspCookieExpirationPeriod =-    lens _clbcspCookieExpirationPeriod-        (\s a -> s { _clbcspCookieExpirationPeriod = a })+clbcspCookieExpirationPeriod = lens _clbcspCookieExpirationPeriod (\ s a -> s{_clbcspCookieExpirationPeriod = a});  -- | The name of the load balancer. clbcspLoadBalancerName :: Lens' CreateLBCookieStickinessPolicy Text-clbcspLoadBalancerName =-    lens _clbcspLoadBalancerName (\s a -> s { _clbcspLoadBalancerName = a })+clbcspLoadBalancerName = lens _clbcspLoadBalancerName (\ s a -> s{_clbcspLoadBalancerName = a}); --- | The name of the policy being created. This name must be unique within the set--- of policies for this load balancer.+-- | The name of the policy being created. This name must be unique within+-- the set of policies for this load balancer. clbcspPolicyName :: Lens' CreateLBCookieStickinessPolicy Text-clbcspPolicyName = lens _clbcspPolicyName (\s a -> s { _clbcspPolicyName = a })+clbcspPolicyName = lens _clbcspPolicyName (\ s a -> s{_clbcspPolicyName = a}); -data CreateLBCookieStickinessPolicyResponse = CreateLBCookieStickinessPolicyResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest CreateLBCookieStickinessPolicy+         where+        type Sv CreateLBCookieStickinessPolicy = ELB+        type Rs CreateLBCookieStickinessPolicy =+             CreateLBCookieStickinessPolicyResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "CreateLBCookieStickinessPolicyResult"+              (\ s h x ->+                 CreateLBCookieStickinessPolicyResponse' <$>+                   (pure (fromEnum s))) --- | 'CreateLBCookieStickinessPolicyResponse' constructor.-createLBCookieStickinessPolicyResponse :: CreateLBCookieStickinessPolicyResponse-createLBCookieStickinessPolicyResponse = CreateLBCookieStickinessPolicyResponse+instance ToHeaders CreateLBCookieStickinessPolicy+         where+        toHeaders = const mempty  instance ToPath CreateLBCookieStickinessPolicy where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateLBCookieStickinessPolicy where-    toQuery CreateLBCookieStickinessPolicy{..} = mconcat-        [ "CookieExpirationPeriod" =? _clbcspCookieExpirationPeriod-        , "LoadBalancerName"       =? _clbcspLoadBalancerName-        , "PolicyName"             =? _clbcspPolicyName-        ]+        toQuery CreateLBCookieStickinessPolicy'{..}+          = mconcat+              ["Action" =:+                 ("CreateLBCookieStickinessPolicy" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "CookieExpirationPeriod" =:+                 _clbcspCookieExpirationPeriod,+               "LoadBalancerName" =: _clbcspLoadBalancerName,+               "PolicyName" =: _clbcspPolicyName] -instance ToHeaders CreateLBCookieStickinessPolicy+-- | /See:/ 'createLBCookieStickinessPolicyResponse' smart constructor.+newtype CreateLBCookieStickinessPolicyResponse = CreateLBCookieStickinessPolicyResponse'+    { _clbcsprsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateLBCookieStickinessPolicy where-    type Sv CreateLBCookieStickinessPolicy = ELB-    type Rs CreateLBCookieStickinessPolicy = CreateLBCookieStickinessPolicyResponse+-- | Creates a value of 'CreateLBCookieStickinessPolicyResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'clbcsprsStatus'+createLBCookieStickinessPolicyResponse+    :: Int -- ^ 'clbcsprsStatus'+    -> CreateLBCookieStickinessPolicyResponse+createLBCookieStickinessPolicyResponse pStatus_ =+    CreateLBCookieStickinessPolicyResponse'+    { _clbcsprsStatus = pStatus_+    } -    request  = post "CreateLBCookieStickinessPolicy"-    response = nullResponse CreateLBCookieStickinessPolicyResponse+-- | The response status code.+clbcsprsStatus :: Lens' CreateLBCookieStickinessPolicyResponse Int+clbcsprsStatus = lens _clbcsprsStatus (\ s a -> s{_clbcsprsStatus = a});

@@ -1,211 +1,230 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.CreateLoadBalancer--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a load balancer.------ If the call completes successfully, a new load balancer is created with a--- unique Domain Name Service (DNS) name. The DNS name includes the name of the--- AWS region in which the load balancer was created. For example, the DNS name--- might end with either of the following:+-- Creates a load balancer. ----- 'us-east-1.elb.amazonaws.com'   'us-west-2.elb.amazonaws.com'   For--- information about the AWS regions supported by Elastic Load Balancing, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#elb_region Regions and Endpoints> in the /Amazon Web Services General Reference/.+-- If the call completes successfully, a new load balancer is created with+-- a unique Domain Name Service (DNS) name. The load balancer receives+-- incoming traffic and routes it to the registered instances. For more+-- information, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/how-elb-works.html How Elastic Load Balancing Works>+-- in the /Elastic Load Balancing Developer Guide/. -- -- 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 <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/elb-limits.html Elastic Load Balancing Limits> in the /Elastic LoadBalancing Developer Guide/.------ Elastic Load Balancing supports load balancing your EC2 instances launched--- in either the EC2-Classic or EC2-VPC platform. For more information, see <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/UserScenariosForEC2.html Elastic Load Balancing in EC2-Classic> or <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/UserScenariosForVPC.html Elastic Load Balancing in a VPC> in the /Elastic Load Balancing DeveloperGuide/.+-- request an increase for the number of load balancers for your account.+-- For more information, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/elb-limits.html Elastic Load Balancing Limits>+-- in the /Elastic Load Balancing Developer Guide/. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_CreateLoadBalancer.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_CreateLoadBalancer.html AWS API Reference> for CreateLoadBalancer. module Network.AWS.ELB.CreateLoadBalancer     (-    -- * Request-      CreateLoadBalancer-    -- ** Request constructor-    , createLoadBalancer-    -- ** Request lenses-    , clbAvailabilityZones-    , clbListeners-    , clbLoadBalancerName-    , clbScheme+    -- * Creating a Request+      createLoadBalancer+    , CreateLoadBalancer+    -- * Request Lenses     , clbSecurityGroups     , clbSubnets+    , clbAvailabilityZones+    , clbScheme     , clbTags+    , clbLoadBalancerName+    , clbListeners -    -- * Response-    , CreateLoadBalancerResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createLoadBalancerResponse-    -- ** Response lenses-    , clbrDNSName+    , CreateLoadBalancerResponse+    -- * Response Lenses+    , clbrsDNSName+    , clbrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateLoadBalancer = CreateLoadBalancer-    { _clbAvailabilityZones :: List "member" Text-    , _clbListeners         :: List "member" Listener-    , _clbLoadBalancerName  :: Text-    , _clbScheme            :: Maybe Text-    , _clbSecurityGroups    :: List "member" Text-    , _clbSubnets           :: List "member" Text-    , _clbTags              :: List1 "member" Tag-    } deriving (Eq, Read, Show)+-- | /See:/ 'createLoadBalancer' smart constructor.+data CreateLoadBalancer = CreateLoadBalancer'+    { _clbSecurityGroups    :: !(Maybe [Text])+    , _clbSubnets           :: !(Maybe [Text])+    , _clbAvailabilityZones :: !(Maybe [Text])+    , _clbScheme            :: !(Maybe Text)+    , _clbTags              :: !(Maybe (List1 Tag))+    , _clbLoadBalancerName  :: !Text+    , _clbListeners         :: ![Listener]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateLoadBalancer' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateLoadBalancer' with the minimum fields required to make a request. ----- * 'clbAvailabilityZones' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'clbListeners' @::@ ['Listener']+-- * 'clbSecurityGroups' ----- * 'clbLoadBalancerName' @::@ 'Text'+-- * 'clbSubnets' ----- * 'clbScheme' @::@ 'Maybe' 'Text'+-- * 'clbAvailabilityZones' ----- * 'clbSecurityGroups' @::@ ['Text']+-- * 'clbScheme' ----- * 'clbSubnets' @::@ ['Text']+-- * 'clbTags' ----- * 'clbTags' @::@ 'NonEmpty' 'Tag'+-- * 'clbLoadBalancerName' ---createLoadBalancer :: Text -- ^ 'clbLoadBalancerName'-                   -> NonEmpty Tag -- ^ 'clbTags'-                   -> CreateLoadBalancer-createLoadBalancer p1 p2 = CreateLoadBalancer-    { _clbLoadBalancerName  = p1-    , _clbTags              = withIso _List1 (const id) p2-    , _clbListeners         = mempty-    , _clbAvailabilityZones = mempty-    , _clbSubnets           = mempty-    , _clbSecurityGroups    = mempty-    , _clbScheme            = Nothing+-- * 'clbListeners'+createLoadBalancer+    :: Text -- ^ 'clbLoadBalancerName'+    -> CreateLoadBalancer+createLoadBalancer pLoadBalancerName_ =+    CreateLoadBalancer'+    { _clbSecurityGroups = Nothing+    , _clbSubnets = Nothing+    , _clbAvailabilityZones = Nothing+    , _clbScheme = Nothing+    , _clbTags = Nothing+    , _clbLoadBalancerName = pLoadBalancerName_+    , _clbListeners = mempty     } --- | One or more Availability Zones from the same region as the load balancer.--- Traffic is equally distributed across all specified Availability Zones.+-- | The IDs of the security groups to assign to the load balancer.+clbSecurityGroups :: Lens' CreateLoadBalancer [Text]+clbSecurityGroups = lens _clbSecurityGroups (\ s a -> s{_clbSecurityGroups = a}) . _Default . _Coerce;++-- | The IDs of the subnets in your VPC to attach to the load balancer.+-- Specify one subnet per Availability Zone specified in+-- 'AvailabilityZones'.+clbSubnets :: Lens' CreateLoadBalancer [Text]+clbSubnets = lens _clbSubnets (\ s a -> s{_clbSubnets = a}) . _Default . _Coerce;++-- | One or more Availability Zones from the same region as the load+-- balancer. Traffic is equally distributed across all specified+-- Availability Zones. -- -- You must specify at least one Availability Zone. ----- You can add more Availability Zones after you create the load balancer using 'EnableAvailabilityZonesForLoadBalancer'.+-- You can add more Availability Zones after you create the load balancer+-- using EnableAvailabilityZonesForLoadBalancer. clbAvailabilityZones :: Lens' CreateLoadBalancer [Text]-clbAvailabilityZones =-    lens _clbAvailabilityZones (\s a -> s { _clbAvailabilityZones = a })-        . _List+clbAvailabilityZones = lens _clbAvailabilityZones (\ s a -> s{_clbAvailabilityZones = a}) . _Default . _Coerce; --- | The listeners.+-- | The type of a load balancer. Valid only for load balancers in a VPC. ----- For more information, see <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/elb-listener-config.html Listener Configurations for Elastic Load Balancing>+-- By default, Elastic Load Balancing creates an Internet-facing load+-- balancer with a publicly resolvable DNS name, which resolves to public+-- IP addresses. For more information about Internet-facing and Internal+-- load balancers, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/vpc-loadbalancer-types.html Internet-facing and Internal Load Balancers> -- in the /Elastic Load Balancing Developer Guide/.-clbListeners :: Lens' CreateLoadBalancer [Listener]-clbListeners = lens _clbListeners (\s a -> s { _clbListeners = a }) . _List+--+-- Specify 'internal' to create an internal load balancer with a DNS name+-- that resolves to private IP addresses.+clbScheme :: Lens' CreateLoadBalancer (Maybe Text)+clbScheme = lens _clbScheme (\ s a -> s{_clbScheme = a}); +-- | A list of tags to assign to the load balancer.+--+-- For more information about tagging your load balancer, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/TerminologyandKeyConcepts.html#tagging-elb Tagging>+-- in the /Elastic Load Balancing Developer Guide/.+clbTags :: Lens' CreateLoadBalancer (Maybe (NonEmpty Tag))+clbTags = lens _clbTags (\ s a -> s{_clbTags = a}) . mapping _List1;+ -- | The name of the load balancer. ----- This name must be unique within your AWS account, must have a maximum of 32--- characters, must contain only alphanumeric characters or hyphens, and cannot--- begin or end with a hyphen.+-- This name must be unique within your AWS account, must have a maximum of+-- 32 characters, must contain only alphanumeric characters or hyphens, and+-- cannot begin or end with a hyphen. clbLoadBalancerName :: Lens' CreateLoadBalancer Text-clbLoadBalancerName =-    lens _clbLoadBalancerName (\s a -> s { _clbLoadBalancerName = a })+clbLoadBalancerName = lens _clbLoadBalancerName (\ s a -> s{_clbLoadBalancerName = a}); --- | The 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 publicly resolvable DNS name, which resolves to public IP addresses.--- For more information about Internet-facing and Internal load balancers, see <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/vpc-loadbalancer-types.html Internet-facing and Internal Load Balancers> in the /Elastic Load Balancing Developer Guide/.+-- | The listeners. ----- Specify 'internal' to create an internal load balancer with a DNS name that--- resolves to private IP addresses.-clbScheme :: Lens' CreateLoadBalancer (Maybe Text)-clbScheme = lens _clbScheme (\s a -> s { _clbScheme = a })+-- For more information, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/elb-listener-config.html Listeners for Your Load Balancer>+-- in the /Elastic Load Balancing Developer Guide/.+clbListeners :: Lens' CreateLoadBalancer [Listener]+clbListeners = lens _clbListeners (\ s a -> s{_clbListeners = a}) . _Coerce; --- | The IDs of the security groups to assign to the load balancer.-clbSecurityGroups :: Lens' CreateLoadBalancer [Text]-clbSecurityGroups =-    lens _clbSecurityGroups (\s a -> s { _clbSecurityGroups = a })-        . _List+instance AWSRequest CreateLoadBalancer where+        type Sv CreateLoadBalancer = ELB+        type Rs CreateLoadBalancer =+             CreateLoadBalancerResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateLoadBalancerResult"+              (\ s h x ->+                 CreateLoadBalancerResponse' <$>+                   (x .@? "DNSName") <*> (pure (fromEnum s))) --- | The IDs of the subnets in your VPC to attach to the load balancer. Specify--- one subnet per Availability Zone specified in 'AvailabilityZones'.-clbSubnets :: Lens' CreateLoadBalancer [Text]-clbSubnets = lens _clbSubnets (\s a -> s { _clbSubnets = a }) . _List+instance ToHeaders CreateLoadBalancer where+        toHeaders = const mempty --- | A list of tags to assign to the load balancer.------ For more information about tagging your load balancer, see <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/TerminologyandKeyConcepts.html#tagging-elb Tagging> in the /Elastic Load Balancing Developer Guide/.-clbTags :: Lens' CreateLoadBalancer (NonEmpty Tag)-clbTags = lens _clbTags (\s a -> s { _clbTags = a }) . _List1+instance ToPath CreateLoadBalancer where+        toPath = const "/" -newtype CreateLoadBalancerResponse = CreateLoadBalancerResponse-    { _clbrDNSName :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance ToQuery CreateLoadBalancer where+        toQuery CreateLoadBalancer'{..}+          = mconcat+              ["Action" =: ("CreateLoadBalancer" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "SecurityGroups" =:+                 toQuery+                   (toQueryList "member" <$> _clbSecurityGroups),+               "Subnets" =:+                 toQuery (toQueryList "member" <$> _clbSubnets),+               "AvailabilityZones" =:+                 toQuery+                   (toQueryList "member" <$> _clbAvailabilityZones),+               "Scheme" =: _clbScheme,+               "Tags" =:+                 toQuery (toQueryList "member" <$> _clbTags),+               "LoadBalancerName" =: _clbLoadBalancerName,+               "Listeners" =: toQueryList "member" _clbListeners] --- | 'CreateLoadBalancerResponse' constructor.+-- | /See:/ 'createLoadBalancerResponse' smart constructor.+data CreateLoadBalancerResponse = CreateLoadBalancerResponse'+    { _clbrsDNSName :: !(Maybe Text)+    , _clbrsStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateLoadBalancerResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'clbrDNSName' @::@ 'Maybe' 'Text'+-- * 'clbrsDNSName' ---createLoadBalancerResponse :: CreateLoadBalancerResponse-createLoadBalancerResponse = CreateLoadBalancerResponse-    { _clbrDNSName = Nothing+-- * 'clbrsStatus'+createLoadBalancerResponse+    :: Int -- ^ 'clbrsStatus'+    -> CreateLoadBalancerResponse+createLoadBalancerResponse pStatus_ =+    CreateLoadBalancerResponse'+    { _clbrsDNSName = Nothing+    , _clbrsStatus = pStatus_     }  -- | The DNS name of the load balancer.-clbrDNSName :: Lens' CreateLoadBalancerResponse (Maybe Text)-clbrDNSName = lens _clbrDNSName (\s a -> s { _clbrDNSName = a })--instance ToPath CreateLoadBalancer where-    toPath = const "/"--instance ToQuery CreateLoadBalancer where-    toQuery CreateLoadBalancer{..} = mconcat-        [ "AvailabilityZones" =? _clbAvailabilityZones-        , "Listeners"         =? _clbListeners-        , "LoadBalancerName"  =? _clbLoadBalancerName-        , "Scheme"            =? _clbScheme-        , "SecurityGroups"    =? _clbSecurityGroups-        , "Subnets"           =? _clbSubnets-        , "Tags"              =? _clbTags-        ]--instance ToHeaders CreateLoadBalancer--instance AWSRequest CreateLoadBalancer where-    type Sv CreateLoadBalancer = ELB-    type Rs CreateLoadBalancer = CreateLoadBalancerResponse--    request  = post "CreateLoadBalancer"-    response = xmlResponse+clbrsDNSName :: Lens' CreateLoadBalancerResponse (Maybe Text)+clbrsDNSName = lens _clbrsDNSName (\ s a -> s{_clbrsDNSName = a}); -instance FromXML CreateLoadBalancerResponse where-    parseXML = withElement "CreateLoadBalancerResult" $ \x -> CreateLoadBalancerResponse-        <$> x .@? "DNSName"+-- | The response status code.+clbrsStatus :: Lens' CreateLoadBalancerResponse Int+clbrsStatus = lens _clbrsStatus (\ s a -> s{_clbrsStatus = a});

@@ -1,106 +1,130 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.CreateLoadBalancerListeners--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | 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.+-- 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 <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/us-add-listener.html Add a Listener to Your Load Balancer> in the /Elastic Load Balancing Developer Guide/.+-- For more information, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/us-add-listener.html Add a Listener to Your Load Balancer>+-- in the /Elastic Load Balancing Developer Guide/. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_CreateLoadBalancerListeners.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_CreateLoadBalancerListeners.html AWS API Reference> for CreateLoadBalancerListeners. module Network.AWS.ELB.CreateLoadBalancerListeners     (-    -- * Request-      CreateLoadBalancerListeners-    -- ** Request constructor-    , createLoadBalancerListeners-    -- ** Request lenses-    , clblListeners+    -- * Creating a Request+      createLoadBalancerListeners+    , CreateLoadBalancerListeners+    -- * Request Lenses     , clblLoadBalancerName+    , clblListeners -    -- * Response-    , CreateLoadBalancerListenersResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createLoadBalancerListenersResponse+    , CreateLoadBalancerListenersResponse+    -- * Response Lenses+    , clblrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateLoadBalancerListeners = CreateLoadBalancerListeners-    { _clblListeners        :: List "member" Listener-    , _clblLoadBalancerName :: Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'createLoadBalancerListeners' smart constructor.+data CreateLoadBalancerListeners = CreateLoadBalancerListeners'+    { _clblLoadBalancerName :: !Text+    , _clblListeners        :: ![Listener]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateLoadBalancerListeners' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateLoadBalancerListeners' with the minimum fields required to make a request. ----- * 'clblListeners' @::@ ['Listener']+-- Use one of the following lenses to modify other fields as desired: ----- * 'clblLoadBalancerName' @::@ 'Text'+-- * 'clblLoadBalancerName' ---createLoadBalancerListeners :: Text -- ^ 'clblLoadBalancerName'-                            -> CreateLoadBalancerListeners-createLoadBalancerListeners p1 = CreateLoadBalancerListeners-    { _clblLoadBalancerName = p1-    , _clblListeners        = mempty+-- * 'clblListeners'+createLoadBalancerListeners+    :: Text -- ^ 'clblLoadBalancerName'+    -> CreateLoadBalancerListeners+createLoadBalancerListeners pLoadBalancerName_ =+    CreateLoadBalancerListeners'+    { _clblLoadBalancerName = pLoadBalancerName_+    , _clblListeners = mempty     } --- | The listeners.-clblListeners :: Lens' CreateLoadBalancerListeners [Listener]-clblListeners = lens _clblListeners (\s a -> s { _clblListeners = a }) . _List- -- | The name of the load balancer. clblLoadBalancerName :: Lens' CreateLoadBalancerListeners Text-clblLoadBalancerName =-    lens _clblLoadBalancerName (\s a -> s { _clblLoadBalancerName = a })+clblLoadBalancerName = lens _clblLoadBalancerName (\ s a -> s{_clblLoadBalancerName = a}); -data CreateLoadBalancerListenersResponse = CreateLoadBalancerListenersResponse-    deriving (Eq, Ord, Read, Show, Generic)+-- | The listeners.+clblListeners :: Lens' CreateLoadBalancerListeners [Listener]+clblListeners = lens _clblListeners (\ s a -> s{_clblListeners = a}) . _Coerce; --- | 'CreateLoadBalancerListenersResponse' constructor.-createLoadBalancerListenersResponse :: CreateLoadBalancerListenersResponse-createLoadBalancerListenersResponse = CreateLoadBalancerListenersResponse+instance AWSRequest CreateLoadBalancerListeners where+        type Sv CreateLoadBalancerListeners = ELB+        type Rs CreateLoadBalancerListeners =+             CreateLoadBalancerListenersResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "CreateLoadBalancerListenersResult"+              (\ s h x ->+                 CreateLoadBalancerListenersResponse' <$>+                   (pure (fromEnum s))) +instance ToHeaders CreateLoadBalancerListeners where+        toHeaders = const mempty+ instance ToPath CreateLoadBalancerListeners where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateLoadBalancerListeners where-    toQuery CreateLoadBalancerListeners{..} = mconcat-        [ "Listeners"        =? _clblListeners-        , "LoadBalancerName" =? _clblLoadBalancerName-        ]+        toQuery CreateLoadBalancerListeners'{..}+          = mconcat+              ["Action" =:+                 ("CreateLoadBalancerListeners" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _clblLoadBalancerName,+               "Listeners" =: toQueryList "member" _clblListeners] -instance ToHeaders CreateLoadBalancerListeners+-- | /See:/ 'createLoadBalancerListenersResponse' smart constructor.+newtype CreateLoadBalancerListenersResponse = CreateLoadBalancerListenersResponse'+    { _clblrsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateLoadBalancerListeners where-    type Sv CreateLoadBalancerListeners = ELB-    type Rs CreateLoadBalancerListeners = CreateLoadBalancerListenersResponse+-- | Creates a value of 'CreateLoadBalancerListenersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'clblrsStatus'+createLoadBalancerListenersResponse+    :: Int -- ^ 'clblrsStatus'+    -> CreateLoadBalancerListenersResponse+createLoadBalancerListenersResponse pStatus_ =+    CreateLoadBalancerListenersResponse'+    { _clblrsStatus = pStatus_+    } -    request  = post "CreateLoadBalancerListeners"-    response = nullResponse CreateLoadBalancerListenersResponse+-- | The response status code.+clblrsStatus :: Lens' CreateLoadBalancerListenersResponse Int+clblrsStatus = lens _clblrsStatus (\ s a -> s{_clblrsStatus = a});

@@ -1,132 +1,153 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.CreateLoadBalancerPolicy--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a policy with the specified attributes for the specified load+-- 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 front-end listener or the back-end application server,+-- Policies are settings that are saved for your load balancer and that can+-- be applied to the front-end listener or the back-end application server, -- depending on the policy type. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_CreateLoadBalancerPolicy.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_CreateLoadBalancerPolicy.html AWS API Reference> for CreateLoadBalancerPolicy. module Network.AWS.ELB.CreateLoadBalancerPolicy     (-    -- * Request-      CreateLoadBalancerPolicy-    -- ** Request constructor-    , createLoadBalancerPolicy-    -- ** Request lenses-    , clbpLoadBalancerName+    -- * Creating a Request+      createLoadBalancerPolicy+    , CreateLoadBalancerPolicy+    -- * Request Lenses     , clbpPolicyAttributes+    , clbpLoadBalancerName     , clbpPolicyName     , clbpPolicyTypeName -    -- * Response-    , CreateLoadBalancerPolicyResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createLoadBalancerPolicyResponse+    , CreateLoadBalancerPolicyResponse+    -- * Response Lenses+    , clbprsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateLoadBalancerPolicy = CreateLoadBalancerPolicy-    { _clbpLoadBalancerName :: Text-    , _clbpPolicyAttributes :: List "member" PolicyAttribute-    , _clbpPolicyName       :: Text-    , _clbpPolicyTypeName   :: Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'createLoadBalancerPolicy' smart constructor.+data CreateLoadBalancerPolicy = CreateLoadBalancerPolicy'+    { _clbpPolicyAttributes :: !(Maybe [PolicyAttribute])+    , _clbpLoadBalancerName :: !Text+    , _clbpPolicyName       :: !Text+    , _clbpPolicyTypeName   :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateLoadBalancerPolicy' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateLoadBalancerPolicy' with the minimum fields required to make a request. ----- * 'clbpLoadBalancerName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'clbpPolicyAttributes' @::@ ['PolicyAttribute']+-- * 'clbpPolicyAttributes' ----- * 'clbpPolicyName' @::@ 'Text'+-- * 'clbpLoadBalancerName' ----- * 'clbpPolicyTypeName' @::@ 'Text'+-- * 'clbpPolicyName' ---createLoadBalancerPolicy :: Text -- ^ 'clbpLoadBalancerName'-                         -> Text -- ^ 'clbpPolicyName'-                         -> Text -- ^ 'clbpPolicyTypeName'-                         -> CreateLoadBalancerPolicy-createLoadBalancerPolicy p1 p2 p3 = CreateLoadBalancerPolicy-    { _clbpLoadBalancerName = p1-    , _clbpPolicyName       = p2-    , _clbpPolicyTypeName   = p3-    , _clbpPolicyAttributes = mempty+-- * 'clbpPolicyTypeName'+createLoadBalancerPolicy+    :: Text -- ^ 'clbpLoadBalancerName'+    -> Text -- ^ 'clbpPolicyName'+    -> Text -- ^ 'clbpPolicyTypeName'+    -> CreateLoadBalancerPolicy+createLoadBalancerPolicy pLoadBalancerName_ pPolicyName_ pPolicyTypeName_ =+    CreateLoadBalancerPolicy'+    { _clbpPolicyAttributes = Nothing+    , _clbpLoadBalancerName = pLoadBalancerName_+    , _clbpPolicyName = pPolicyName_+    , _clbpPolicyTypeName = pPolicyTypeName_     } --- | The name of the load balancer.-clbpLoadBalancerName :: Lens' CreateLoadBalancerPolicy Text-clbpLoadBalancerName =-    lens _clbpLoadBalancerName (\s a -> s { _clbpLoadBalancerName = a })- -- | The attributes for the policy. clbpPolicyAttributes :: Lens' CreateLoadBalancerPolicy [PolicyAttribute]-clbpPolicyAttributes =-    lens _clbpPolicyAttributes (\s a -> s { _clbpPolicyAttributes = a })-        . _List+clbpPolicyAttributes = lens _clbpPolicyAttributes (\ s a -> s{_clbpPolicyAttributes = a}) . _Default . _Coerce; --- | The name of the load balancer policy to be created. This name must be unique--- within the set of policies for this load balancer.+-- | The name of the load balancer.+clbpLoadBalancerName :: Lens' CreateLoadBalancerPolicy Text+clbpLoadBalancerName = lens _clbpLoadBalancerName (\ s a -> s{_clbpLoadBalancerName = a});++-- | The name of the load balancer policy to be created. This name must be+-- unique within the set of policies for this load balancer. clbpPolicyName :: Lens' CreateLoadBalancerPolicy Text-clbpPolicyName = lens _clbpPolicyName (\s a -> s { _clbpPolicyName = a })+clbpPolicyName = lens _clbpPolicyName (\ s a -> s{_clbpPolicyName = a}); --- | The name of the base policy type. To get the list of policy types, use 'DescribeLoadBalancerPolicyTypes'.+-- | The name of the base policy type. To get the list of policy types, use+-- DescribeLoadBalancerPolicyTypes. clbpPolicyTypeName :: Lens' CreateLoadBalancerPolicy Text-clbpPolicyTypeName =-    lens _clbpPolicyTypeName (\s a -> s { _clbpPolicyTypeName = a })+clbpPolicyTypeName = lens _clbpPolicyTypeName (\ s a -> s{_clbpPolicyTypeName = a}); -data CreateLoadBalancerPolicyResponse = CreateLoadBalancerPolicyResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest CreateLoadBalancerPolicy where+        type Sv CreateLoadBalancerPolicy = ELB+        type Rs CreateLoadBalancerPolicy =+             CreateLoadBalancerPolicyResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateLoadBalancerPolicyResult"+              (\ s h x ->+                 CreateLoadBalancerPolicyResponse' <$>+                   (pure (fromEnum s))) --- | 'CreateLoadBalancerPolicyResponse' constructor.-createLoadBalancerPolicyResponse :: CreateLoadBalancerPolicyResponse-createLoadBalancerPolicyResponse = CreateLoadBalancerPolicyResponse+instance ToHeaders CreateLoadBalancerPolicy where+        toHeaders = const mempty  instance ToPath CreateLoadBalancerPolicy where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateLoadBalancerPolicy where-    toQuery CreateLoadBalancerPolicy{..} = mconcat-        [ "LoadBalancerName" =? _clbpLoadBalancerName-        , "PolicyAttributes" =? _clbpPolicyAttributes-        , "PolicyName"       =? _clbpPolicyName-        , "PolicyTypeName"   =? _clbpPolicyTypeName-        ]+        toQuery CreateLoadBalancerPolicy'{..}+          = mconcat+              ["Action" =:+                 ("CreateLoadBalancerPolicy" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "PolicyAttributes" =:+                 toQuery+                   (toQueryList "member" <$> _clbpPolicyAttributes),+               "LoadBalancerName" =: _clbpLoadBalancerName,+               "PolicyName" =: _clbpPolicyName,+               "PolicyTypeName" =: _clbpPolicyTypeName] -instance ToHeaders CreateLoadBalancerPolicy+-- | /See:/ 'createLoadBalancerPolicyResponse' smart constructor.+newtype CreateLoadBalancerPolicyResponse = CreateLoadBalancerPolicyResponse'+    { _clbprsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateLoadBalancerPolicy where-    type Sv CreateLoadBalancerPolicy = ELB-    type Rs CreateLoadBalancerPolicy = CreateLoadBalancerPolicyResponse+-- | Creates a value of 'CreateLoadBalancerPolicyResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'clbprsStatus'+createLoadBalancerPolicyResponse+    :: Int -- ^ 'clbprsStatus'+    -> CreateLoadBalancerPolicyResponse+createLoadBalancerPolicyResponse pStatus_ =+    CreateLoadBalancerPolicyResponse'+    { _clbprsStatus = pStatus_+    } -    request  = post "CreateLoadBalancerPolicy"-    response = nullResponse CreateLoadBalancerPolicyResponse+-- | The response status code.+clbprsStatus :: Lens' CreateLoadBalancerPolicyResponse Int+clbprsStatus = lens _clbprsStatus (\ s a -> s{_clbprsStatus = a});

@@ -1,99 +1,119 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.DeleteLoadBalancer--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified load balancer.+-- 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 back-end instances.+-- 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 back-end instances. ----- If the load balancer does not exist or has already been deleted, the call to 'DeleteLoadBalancer' still succeeds.+-- If the load balancer does not exist or has already been deleted, the+-- call to 'DeleteLoadBalancer' still succeeds. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DeleteLoadBalancer.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DeleteLoadBalancer.html AWS API Reference> for DeleteLoadBalancer. module Network.AWS.ELB.DeleteLoadBalancer     (-    -- * Request-      DeleteLoadBalancer-    -- ** Request constructor-    , deleteLoadBalancer-    -- ** Request lenses+    -- * Creating a Request+      deleteLoadBalancer+    , DeleteLoadBalancer+    -- * Request Lenses     , dlbLoadBalancerName -    -- * Response-    , DeleteLoadBalancerResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteLoadBalancerResponse+    , DeleteLoadBalancerResponse+    -- * Response Lenses+    , drsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DeleteLoadBalancer = DeleteLoadBalancer+-- | /See:/ 'deleteLoadBalancer' smart constructor.+newtype DeleteLoadBalancer = DeleteLoadBalancer'     { _dlbLoadBalancerName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteLoadBalancer' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteLoadBalancer' with the minimum fields required to make a request. ----- * 'dlbLoadBalancerName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteLoadBalancer :: Text -- ^ 'dlbLoadBalancerName'-                   -> DeleteLoadBalancer-deleteLoadBalancer p1 = DeleteLoadBalancer-    { _dlbLoadBalancerName = p1+-- * 'dlbLoadBalancerName'+deleteLoadBalancer+    :: Text -- ^ 'dlbLoadBalancerName'+    -> DeleteLoadBalancer+deleteLoadBalancer pLoadBalancerName_ =+    DeleteLoadBalancer'+    { _dlbLoadBalancerName = pLoadBalancerName_     }  -- | The name of the load balancer. dlbLoadBalancerName :: Lens' DeleteLoadBalancer Text-dlbLoadBalancerName =-    lens _dlbLoadBalancerName (\s a -> s { _dlbLoadBalancerName = a })+dlbLoadBalancerName = lens _dlbLoadBalancerName (\ s a -> s{_dlbLoadBalancerName = a}); -data DeleteLoadBalancerResponse = DeleteLoadBalancerResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteLoadBalancer where+        type Sv DeleteLoadBalancer = ELB+        type Rs DeleteLoadBalancer =+             DeleteLoadBalancerResponse+        request = postQuery+        response+          = receiveXMLWrapper "DeleteLoadBalancerResult"+              (\ s h x ->+                 DeleteLoadBalancerResponse' <$> (pure (fromEnum s))) --- | 'DeleteLoadBalancerResponse' constructor.-deleteLoadBalancerResponse :: DeleteLoadBalancerResponse-deleteLoadBalancerResponse = DeleteLoadBalancerResponse+instance ToHeaders DeleteLoadBalancer where+        toHeaders = const mempty  instance ToPath DeleteLoadBalancer where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteLoadBalancer where-    toQuery DeleteLoadBalancer{..} = mconcat-        [ "LoadBalancerName" =? _dlbLoadBalancerName-        ]+        toQuery DeleteLoadBalancer'{..}+          = mconcat+              ["Action" =: ("DeleteLoadBalancer" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _dlbLoadBalancerName] -instance ToHeaders DeleteLoadBalancer+-- | /See:/ 'deleteLoadBalancerResponse' smart constructor.+newtype DeleteLoadBalancerResponse = DeleteLoadBalancerResponse'+    { _drsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteLoadBalancer where-    type Sv DeleteLoadBalancer = ELB-    type Rs DeleteLoadBalancer = DeleteLoadBalancerResponse+-- | Creates a value of 'DeleteLoadBalancerResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsStatus'+deleteLoadBalancerResponse+    :: Int -- ^ 'drsStatus'+    -> DeleteLoadBalancerResponse+deleteLoadBalancerResponse pStatus_ =+    DeleteLoadBalancerResponse'+    { _drsStatus = pStatus_+    } -    request  = post "DeleteLoadBalancer"-    response = nullResponse DeleteLoadBalancerResponse+-- | The response status code.+drsStatus :: Lens' DeleteLoadBalancerResponse Int+drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});

@@ -1,103 +1,124 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.DeleteLoadBalancerListeners--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified listeners from the specified load balancer.+-- Deletes the specified listeners from the specified load balancer. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DeleteLoadBalancerListeners.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DeleteLoadBalancerListeners.html AWS API Reference> for DeleteLoadBalancerListeners. module Network.AWS.ELB.DeleteLoadBalancerListeners     (-    -- * Request-      DeleteLoadBalancerListeners-    -- ** Request constructor-    , deleteLoadBalancerListeners-    -- ** Request lenses+    -- * Creating a Request+      deleteLoadBalancerListeners+    , DeleteLoadBalancerListeners+    -- * Request Lenses     , dlblLoadBalancerName     , dlblLoadBalancerPorts -    -- * Response-    , DeleteLoadBalancerListenersResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteLoadBalancerListenersResponse+    , DeleteLoadBalancerListenersResponse+    -- * Response Lenses+    , dlblrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DeleteLoadBalancerListeners = DeleteLoadBalancerListeners-    { _dlblLoadBalancerName  :: Text-    , _dlblLoadBalancerPorts :: List "member" Int-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'deleteLoadBalancerListeners' smart constructor.+data DeleteLoadBalancerListeners = DeleteLoadBalancerListeners'+    { _dlblLoadBalancerName  :: !Text+    , _dlblLoadBalancerPorts :: ![Int]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteLoadBalancerListeners' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteLoadBalancerListeners' with the minimum fields required to make a request. ----- * 'dlblLoadBalancerName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dlblLoadBalancerPorts' @::@ ['Int']+-- * 'dlblLoadBalancerName' ---deleteLoadBalancerListeners :: Text -- ^ 'dlblLoadBalancerName'-                            -> DeleteLoadBalancerListeners-deleteLoadBalancerListeners p1 = DeleteLoadBalancerListeners-    { _dlblLoadBalancerName  = p1+-- * 'dlblLoadBalancerPorts'+deleteLoadBalancerListeners+    :: Text -- ^ 'dlblLoadBalancerName'+    -> DeleteLoadBalancerListeners+deleteLoadBalancerListeners pLoadBalancerName_ =+    DeleteLoadBalancerListeners'+    { _dlblLoadBalancerName = pLoadBalancerName_     , _dlblLoadBalancerPorts = mempty     }  -- | The name of the load balancer. dlblLoadBalancerName :: Lens' DeleteLoadBalancerListeners Text-dlblLoadBalancerName =-    lens _dlblLoadBalancerName (\s a -> s { _dlblLoadBalancerName = a })+dlblLoadBalancerName = lens _dlblLoadBalancerName (\ s a -> s{_dlblLoadBalancerName = a});  -- | The client port numbers of the listeners. dlblLoadBalancerPorts :: Lens' DeleteLoadBalancerListeners [Int]-dlblLoadBalancerPorts =-    lens _dlblLoadBalancerPorts (\s a -> s { _dlblLoadBalancerPorts = a })-        . _List+dlblLoadBalancerPorts = lens _dlblLoadBalancerPorts (\ s a -> s{_dlblLoadBalancerPorts = a}) . _Coerce; -data DeleteLoadBalancerListenersResponse = DeleteLoadBalancerListenersResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteLoadBalancerListeners where+        type Sv DeleteLoadBalancerListeners = ELB+        type Rs DeleteLoadBalancerListeners =+             DeleteLoadBalancerListenersResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DeleteLoadBalancerListenersResult"+              (\ s h x ->+                 DeleteLoadBalancerListenersResponse' <$>+                   (pure (fromEnum s))) --- | 'DeleteLoadBalancerListenersResponse' constructor.-deleteLoadBalancerListenersResponse :: DeleteLoadBalancerListenersResponse-deleteLoadBalancerListenersResponse = DeleteLoadBalancerListenersResponse+instance ToHeaders DeleteLoadBalancerListeners where+        toHeaders = const mempty  instance ToPath DeleteLoadBalancerListeners where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteLoadBalancerListeners where-    toQuery DeleteLoadBalancerListeners{..} = mconcat-        [ "LoadBalancerName"  =? _dlblLoadBalancerName-        , "LoadBalancerPorts" =? _dlblLoadBalancerPorts-        ]+        toQuery DeleteLoadBalancerListeners'{..}+          = mconcat+              ["Action" =:+                 ("DeleteLoadBalancerListeners" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _dlblLoadBalancerName,+               "LoadBalancerPorts" =:+                 toQueryList "member" _dlblLoadBalancerPorts] -instance ToHeaders DeleteLoadBalancerListeners+-- | /See:/ 'deleteLoadBalancerListenersResponse' smart constructor.+newtype DeleteLoadBalancerListenersResponse = DeleteLoadBalancerListenersResponse'+    { _dlblrsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteLoadBalancerListeners where-    type Sv DeleteLoadBalancerListeners = ELB-    type Rs DeleteLoadBalancerListeners = DeleteLoadBalancerListenersResponse+-- | Creates a value of 'DeleteLoadBalancerListenersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlblrsStatus'+deleteLoadBalancerListenersResponse+    :: Int -- ^ 'dlblrsStatus'+    -> DeleteLoadBalancerListenersResponse+deleteLoadBalancerListenersResponse pStatus_ =+    DeleteLoadBalancerListenersResponse'+    { _dlblrsStatus = pStatus_+    } -    request  = post "DeleteLoadBalancerListeners"-    response = nullResponse DeleteLoadBalancerListenersResponse+-- | The response status code.+dlblrsStatus :: Lens' DeleteLoadBalancerListenersResponse Int+dlblrsStatus = lens _dlblrsStatus (\ s a -> s{_dlblrsStatus = a});

@@ -1,103 +1,126 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.DeleteLoadBalancerPolicy--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified policy from the specified load balancer. This policy--- must not be enabled for any listeners.+-- Deletes the specified policy from the specified load balancer. This+-- policy must not be enabled for any listeners. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DeleteLoadBalancerPolicy.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DeleteLoadBalancerPolicy.html AWS API Reference> for DeleteLoadBalancerPolicy. module Network.AWS.ELB.DeleteLoadBalancerPolicy     (-    -- * Request-      DeleteLoadBalancerPolicy-    -- ** Request constructor-    , deleteLoadBalancerPolicy-    -- ** Request lenses-    , dlbp1LoadBalancerName-    , dlbp1PolicyName+    -- * Creating a Request+      deleteLoadBalancerPolicy+    , DeleteLoadBalancerPolicy+    -- * Request Lenses+    , dLoadBalancerName+    , dPolicyName -    -- * Response-    , DeleteLoadBalancerPolicyResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteLoadBalancerPolicyResponse+    , DeleteLoadBalancerPolicyResponse+    -- * Response Lenses+    , delrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts--data DeleteLoadBalancerPolicy = DeleteLoadBalancerPolicy-    { _dlbp1LoadBalancerName :: Text-    , _dlbp1PolicyName       :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteLoadBalancerPolicy' constructor.+-- | = ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteLoadBalancerPolicy' smart constructor.+data DeleteLoadBalancerPolicy = DeleteLoadBalancerPolicy'+    { _dLoadBalancerName :: !Text+    , _dPolicyName       :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteLoadBalancerPolicy' with the minimum fields required to make a request. ----- * 'dlbp1LoadBalancerName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dlbp1PolicyName' @::@ 'Text'+-- * 'dLoadBalancerName' ---deleteLoadBalancerPolicy :: Text -- ^ 'dlbp1LoadBalancerName'-                         -> Text -- ^ 'dlbp1PolicyName'-                         -> DeleteLoadBalancerPolicy-deleteLoadBalancerPolicy p1 p2 = DeleteLoadBalancerPolicy-    { _dlbp1LoadBalancerName = p1-    , _dlbp1PolicyName       = p2+-- * 'dPolicyName'+deleteLoadBalancerPolicy+    :: Text -- ^ 'dLoadBalancerName'+    -> Text -- ^ 'dPolicyName'+    -> DeleteLoadBalancerPolicy+deleteLoadBalancerPolicy pLoadBalancerName_ pPolicyName_ =+    DeleteLoadBalancerPolicy'+    { _dLoadBalancerName = pLoadBalancerName_+    , _dPolicyName = pPolicyName_     }  -- | The name of the load balancer.-dlbp1LoadBalancerName :: Lens' DeleteLoadBalancerPolicy Text-dlbp1LoadBalancerName =-    lens _dlbp1LoadBalancerName (\s a -> s { _dlbp1LoadBalancerName = a })+dLoadBalancerName :: Lens' DeleteLoadBalancerPolicy Text+dLoadBalancerName = lens _dLoadBalancerName (\ s a -> s{_dLoadBalancerName = a});  -- | The name of the policy.-dlbp1PolicyName :: Lens' DeleteLoadBalancerPolicy Text-dlbp1PolicyName = lens _dlbp1PolicyName (\s a -> s { _dlbp1PolicyName = a })+dPolicyName :: Lens' DeleteLoadBalancerPolicy Text+dPolicyName = lens _dPolicyName (\ s a -> s{_dPolicyName = a}); -data DeleteLoadBalancerPolicyResponse = DeleteLoadBalancerPolicyResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteLoadBalancerPolicy where+        type Sv DeleteLoadBalancerPolicy = ELB+        type Rs DeleteLoadBalancerPolicy =+             DeleteLoadBalancerPolicyResponse+        request = postQuery+        response+          = receiveXMLWrapper "DeleteLoadBalancerPolicyResult"+              (\ s h x ->+                 DeleteLoadBalancerPolicyResponse' <$>+                   (pure (fromEnum s))) --- | 'DeleteLoadBalancerPolicyResponse' constructor.-deleteLoadBalancerPolicyResponse :: DeleteLoadBalancerPolicyResponse-deleteLoadBalancerPolicyResponse = DeleteLoadBalancerPolicyResponse+instance ToHeaders DeleteLoadBalancerPolicy where+        toHeaders = const mempty  instance ToPath DeleteLoadBalancerPolicy where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteLoadBalancerPolicy where-    toQuery DeleteLoadBalancerPolicy{..} = mconcat-        [ "LoadBalancerName" =? _dlbp1LoadBalancerName-        , "PolicyName"       =? _dlbp1PolicyName-        ]+        toQuery DeleteLoadBalancerPolicy'{..}+          = mconcat+              ["Action" =:+                 ("DeleteLoadBalancerPolicy" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _dLoadBalancerName,+               "PolicyName" =: _dPolicyName] -instance ToHeaders DeleteLoadBalancerPolicy+-- | /See:/ 'deleteLoadBalancerPolicyResponse' smart constructor.+newtype DeleteLoadBalancerPolicyResponse = DeleteLoadBalancerPolicyResponse'+    { _delrsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteLoadBalancerPolicy where-    type Sv DeleteLoadBalancerPolicy = ELB-    type Rs DeleteLoadBalancerPolicy = DeleteLoadBalancerPolicyResponse+-- | Creates a value of 'DeleteLoadBalancerPolicyResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'delrsStatus'+deleteLoadBalancerPolicyResponse+    :: Int -- ^ 'delrsStatus'+    -> DeleteLoadBalancerPolicyResponse+deleteLoadBalancerPolicyResponse pStatus_ =+    DeleteLoadBalancerPolicyResponse'+    { _delrsStatus = pStatus_+    } -    request  = post "DeleteLoadBalancerPolicy"-    response = nullResponse DeleteLoadBalancerPolicyResponse+-- | The response status code.+delrsStatus :: Lens' DeleteLoadBalancerPolicyResponse Int+delrsStatus = lens _delrsStatus (\ s a -> s{_delrsStatus = a});

@@ -1,133 +1,148 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.DeregisterInstancesFromLoadBalancer--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deregisters the specified instances from the specified load balancer. After--- the instance is deregistered, it no longer receives traffic from the load--- balancer.+-- 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+-- You can use DescribeLoadBalancers to verify that the instance is -- deregistered from the load balancer. ----- For more information, see <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/US_DeReg_Reg_Instances.html Deregister and Register Amazon EC2 Instances> in--- the /Elastic Load Balancing Developer Guide/.+-- For more information, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/US_DeReg_Reg_Instances.html Deregister and Register Amazon EC2 Instances>+-- in the /Elastic Load Balancing Developer Guide/. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DeregisterInstancesFromLoadBalancer.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DeregisterInstancesFromLoadBalancer.html AWS API Reference> for DeregisterInstancesFromLoadBalancer. module Network.AWS.ELB.DeregisterInstancesFromLoadBalancer     (-    -- * Request-      DeregisterInstancesFromLoadBalancer-    -- ** Request constructor-    , deregisterInstancesFromLoadBalancer-    -- ** Request lenses-    , diflbInstances+    -- * Creating a Request+      deregisterInstancesFromLoadBalancer+    , DeregisterInstancesFromLoadBalancer+    -- * Request Lenses     , diflbLoadBalancerName+    , diflbInstances -    -- * Response-    , DeregisterInstancesFromLoadBalancerResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deregisterInstancesFromLoadBalancerResponse-    -- ** Response lenses-    , diflbrInstances+    , DeregisterInstancesFromLoadBalancerResponse+    -- * Response Lenses+    , diflbrsInstances+    , diflbrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DeregisterInstancesFromLoadBalancer = DeregisterInstancesFromLoadBalancer-    { _diflbInstances        :: List "member" Instance-    , _diflbLoadBalancerName :: Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'deregisterInstancesFromLoadBalancer' smart constructor.+data DeregisterInstancesFromLoadBalancer = DeregisterInstancesFromLoadBalancer'+    { _diflbLoadBalancerName :: !Text+    , _diflbInstances        :: ![Instance]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeregisterInstancesFromLoadBalancer' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeregisterInstancesFromLoadBalancer' with the minimum fields required to make a request. ----- * 'diflbInstances' @::@ ['Instance']+-- Use one of the following lenses to modify other fields as desired: ----- * 'diflbLoadBalancerName' @::@ 'Text'+-- * 'diflbLoadBalancerName' ---deregisterInstancesFromLoadBalancer :: Text -- ^ 'diflbLoadBalancerName'-                                    -> DeregisterInstancesFromLoadBalancer-deregisterInstancesFromLoadBalancer p1 = DeregisterInstancesFromLoadBalancer-    { _diflbLoadBalancerName = p1-    , _diflbInstances        = mempty+-- * 'diflbInstances'+deregisterInstancesFromLoadBalancer+    :: Text -- ^ 'diflbLoadBalancerName'+    -> DeregisterInstancesFromLoadBalancer+deregisterInstancesFromLoadBalancer pLoadBalancerName_ =+    DeregisterInstancesFromLoadBalancer'+    { _diflbLoadBalancerName = pLoadBalancerName_+    , _diflbInstances = mempty     } +-- | The name of the load balancer.+diflbLoadBalancerName :: Lens' DeregisterInstancesFromLoadBalancer Text+diflbLoadBalancerName = lens _diflbLoadBalancerName (\ s a -> s{_diflbLoadBalancerName = a});+ -- | The IDs of the instances. diflbInstances :: Lens' DeregisterInstancesFromLoadBalancer [Instance]-diflbInstances = lens _diflbInstances (\s a -> s { _diflbInstances = a }) . _List+diflbInstances = lens _diflbInstances (\ s a -> s{_diflbInstances = a}) . _Coerce; --- | The name of the load balancer.-diflbLoadBalancerName :: Lens' DeregisterInstancesFromLoadBalancer Text-diflbLoadBalancerName =-    lens _diflbLoadBalancerName (\s a -> s { _diflbLoadBalancerName = a })+instance AWSRequest+         DeregisterInstancesFromLoadBalancer where+        type Sv DeregisterInstancesFromLoadBalancer = ELB+        type Rs DeregisterInstancesFromLoadBalancer =+             DeregisterInstancesFromLoadBalancerResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DeregisterInstancesFromLoadBalancerResult"+              (\ s h x ->+                 DeregisterInstancesFromLoadBalancerResponse' <$>+                   (x .@? "Instances" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -newtype DeregisterInstancesFromLoadBalancerResponse = DeregisterInstancesFromLoadBalancerResponse-    { _diflbrInstances :: List "member" Instance-    } deriving (Eq, Read, Show, Monoid, Semigroup)+instance ToHeaders+         DeregisterInstancesFromLoadBalancer where+        toHeaders = const mempty -instance GHC.Exts.IsList DeregisterInstancesFromLoadBalancerResponse where-    type Item DeregisterInstancesFromLoadBalancerResponse = Instance+instance ToPath DeregisterInstancesFromLoadBalancer+         where+        toPath = const "/" -    fromList = DeregisterInstancesFromLoadBalancerResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _diflbrInstances+instance ToQuery DeregisterInstancesFromLoadBalancer+         where+        toQuery DeregisterInstancesFromLoadBalancer'{..}+          = mconcat+              ["Action" =:+                 ("DeregisterInstancesFromLoadBalancer" ::+                    ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _diflbLoadBalancerName,+               "Instances" =: toQueryList "member" _diflbInstances] --- | 'DeregisterInstancesFromLoadBalancerResponse' constructor.+-- | /See:/ 'deregisterInstancesFromLoadBalancerResponse' smart constructor.+data DeregisterInstancesFromLoadBalancerResponse = DeregisterInstancesFromLoadBalancerResponse'+    { _diflbrsInstances :: !(Maybe [Instance])+    , _diflbrsStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeregisterInstancesFromLoadBalancerResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'diflbrInstances' @::@ ['Instance']+-- * 'diflbrsInstances' ---deregisterInstancesFromLoadBalancerResponse :: DeregisterInstancesFromLoadBalancerResponse-deregisterInstancesFromLoadBalancerResponse = DeregisterInstancesFromLoadBalancerResponse-    { _diflbrInstances = mempty+-- * 'diflbrsStatus'+deregisterInstancesFromLoadBalancerResponse+    :: Int -- ^ 'diflbrsStatus'+    -> DeregisterInstancesFromLoadBalancerResponse+deregisterInstancesFromLoadBalancerResponse pStatus_ =+    DeregisterInstancesFromLoadBalancerResponse'+    { _diflbrsInstances = Nothing+    , _diflbrsStatus = pStatus_     }  -- | The remaining instances registered with the load balancer.-diflbrInstances :: Lens' DeregisterInstancesFromLoadBalancerResponse [Instance]-diflbrInstances = lens _diflbrInstances (\s a -> s { _diflbrInstances = a }) . _List--instance ToPath DeregisterInstancesFromLoadBalancer where-    toPath = const "/"--instance ToQuery DeregisterInstancesFromLoadBalancer where-    toQuery DeregisterInstancesFromLoadBalancer{..} = mconcat-        [ "Instances"        =? _diflbInstances-        , "LoadBalancerName" =? _diflbLoadBalancerName-        ]--instance ToHeaders DeregisterInstancesFromLoadBalancer--instance AWSRequest DeregisterInstancesFromLoadBalancer where-    type Sv DeregisterInstancesFromLoadBalancer = ELB-    type Rs DeregisterInstancesFromLoadBalancer = DeregisterInstancesFromLoadBalancerResponse--    request  = post "DeregisterInstancesFromLoadBalancer"-    response = xmlResponse+diflbrsInstances :: Lens' DeregisterInstancesFromLoadBalancerResponse [Instance]+diflbrsInstances = lens _diflbrsInstances (\ s a -> s{_diflbrsInstances = a}) . _Default . _Coerce; -instance FromXML DeregisterInstancesFromLoadBalancerResponse where-    parseXML = withElement "DeregisterInstancesFromLoadBalancerResult" $ \x -> DeregisterInstancesFromLoadBalancerResponse-        <$> x .@? "Instances" .!@ mempty+-- | The response status code.+diflbrsStatus :: Lens' DeregisterInstancesFromLoadBalancerResponse Int+diflbrsStatus = lens _diflbrsStatus (\ s a -> s{_diflbrsStatus = a});

@@ -1,130 +1,137 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.DescribeInstanceHealth--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes the state of the specified instances registered with the specified--- load balancer. If no instances are specified, the call describes the state of--- all instances registered with the load balancer, not including any terminated--- instances.+-- Describes the state of the specified instances registered with the+-- specified load balancer. If no instances are specified, the call+-- describes the state of all instances registered with the load balancer,+-- not including any terminated instances. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DescribeInstanceHealth.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DescribeInstanceHealth.html AWS API Reference> for DescribeInstanceHealth. module Network.AWS.ELB.DescribeInstanceHealth     (-    -- * Request-      DescribeInstanceHealth-    -- ** Request constructor-    , describeInstanceHealth-    -- ** Request lenses+    -- * Creating a Request+      describeInstanceHealth+    , DescribeInstanceHealth+    -- * Request Lenses     , dihInstances     , dihLoadBalancerName -    -- * Response-    , DescribeInstanceHealthResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeInstanceHealthResponse-    -- ** Response lenses-    , dihrInstanceStates+    , DescribeInstanceHealthResponse+    -- * Response Lenses+    , dihrsInstanceStates+    , dihrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeInstanceHealth = DescribeInstanceHealth-    { _dihInstances        :: List "member" Instance-    , _dihLoadBalancerName :: Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'describeInstanceHealth' smart constructor.+data DescribeInstanceHealth = DescribeInstanceHealth'+    { _dihInstances        :: !(Maybe [Instance])+    , _dihLoadBalancerName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeInstanceHealth' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeInstanceHealth' with the minimum fields required to make a request. ----- * 'dihInstances' @::@ ['Instance']+-- Use one of the following lenses to modify other fields as desired: ----- * 'dihLoadBalancerName' @::@ 'Text'+-- * 'dihInstances' ---describeInstanceHealth :: Text -- ^ 'dihLoadBalancerName'-                       -> DescribeInstanceHealth-describeInstanceHealth p1 = DescribeInstanceHealth-    { _dihLoadBalancerName = p1-    , _dihInstances        = mempty+-- * 'dihLoadBalancerName'+describeInstanceHealth+    :: Text -- ^ 'dihLoadBalancerName'+    -> DescribeInstanceHealth+describeInstanceHealth pLoadBalancerName_ =+    DescribeInstanceHealth'+    { _dihInstances = Nothing+    , _dihLoadBalancerName = pLoadBalancerName_     }  -- | The IDs of the instances. dihInstances :: Lens' DescribeInstanceHealth [Instance]-dihInstances = lens _dihInstances (\s a -> s { _dihInstances = a }) . _List+dihInstances = lens _dihInstances (\ s a -> s{_dihInstances = a}) . _Default . _Coerce;  -- | The name of the load balancer. dihLoadBalancerName :: Lens' DescribeInstanceHealth Text-dihLoadBalancerName =-    lens _dihLoadBalancerName (\s a -> s { _dihLoadBalancerName = a })+dihLoadBalancerName = lens _dihLoadBalancerName (\ s a -> s{_dihLoadBalancerName = a}); -newtype DescribeInstanceHealthResponse = DescribeInstanceHealthResponse-    { _dihrInstanceStates :: List "member" InstanceState-    } deriving (Eq, Read, Show, Monoid, Semigroup)+instance AWSRequest DescribeInstanceHealth where+        type Sv DescribeInstanceHealth = ELB+        type Rs DescribeInstanceHealth =+             DescribeInstanceHealthResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeInstanceHealthResult"+              (\ s h x ->+                 DescribeInstanceHealthResponse' <$>+                   (x .@? "InstanceStates" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -instance GHC.Exts.IsList DescribeInstanceHealthResponse where-    type Item DescribeInstanceHealthResponse = InstanceState+instance ToHeaders DescribeInstanceHealth where+        toHeaders = const mempty -    fromList = DescribeInstanceHealthResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dihrInstanceStates+instance ToPath DescribeInstanceHealth where+        toPath = const "/" --- | 'DescribeInstanceHealthResponse' constructor.+instance ToQuery DescribeInstanceHealth where+        toQuery DescribeInstanceHealth'{..}+          = mconcat+              ["Action" =:+                 ("DescribeInstanceHealth" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "Instances" =:+                 toQuery (toQueryList "member" <$> _dihInstances),+               "LoadBalancerName" =: _dihLoadBalancerName]++-- | /See:/ 'describeInstanceHealthResponse' smart constructor.+data DescribeInstanceHealthResponse = DescribeInstanceHealthResponse'+    { _dihrsInstanceStates :: !(Maybe [InstanceState])+    , _dihrsStatus         :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeInstanceHealthResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'dihrInstanceStates' @::@ ['InstanceState']+-- * 'dihrsInstanceStates' ---describeInstanceHealthResponse :: DescribeInstanceHealthResponse-describeInstanceHealthResponse = DescribeInstanceHealthResponse-    { _dihrInstanceStates = mempty+-- * 'dihrsStatus'+describeInstanceHealthResponse+    :: Int -- ^ 'dihrsStatus'+    -> DescribeInstanceHealthResponse+describeInstanceHealthResponse pStatus_ =+    DescribeInstanceHealthResponse'+    { _dihrsInstanceStates = Nothing+    , _dihrsStatus = pStatus_     }  -- | Information about the health of the instances.-dihrInstanceStates :: Lens' DescribeInstanceHealthResponse [InstanceState]-dihrInstanceStates =-    lens _dihrInstanceStates (\s a -> s { _dihrInstanceStates = a })-        . _List--instance ToPath DescribeInstanceHealth where-    toPath = const "/"--instance ToQuery DescribeInstanceHealth where-    toQuery DescribeInstanceHealth{..} = mconcat-        [ "Instances"        =? _dihInstances-        , "LoadBalancerName" =? _dihLoadBalancerName-        ]--instance ToHeaders DescribeInstanceHealth--instance AWSRequest DescribeInstanceHealth where-    type Sv DescribeInstanceHealth = ELB-    type Rs DescribeInstanceHealth = DescribeInstanceHealthResponse--    request  = post "DescribeInstanceHealth"-    response = xmlResponse+dihrsInstanceStates :: Lens' DescribeInstanceHealthResponse [InstanceState]+dihrsInstanceStates = lens _dihrsInstanceStates (\ s a -> s{_dihrsInstanceStates = a}) . _Default . _Coerce; -instance FromXML DescribeInstanceHealthResponse where-    parseXML = withElement "DescribeInstanceHealthResult" $ \x -> DescribeInstanceHealthResponse-        <$> x .@? "InstanceStates" .!@ mempty+-- | The response status code.+dihrsStatus :: Lens' DescribeInstanceHealthResponse Int+dihrsStatus = lens _dihrsStatus (\ s a -> s{_dihrsStatus = a});

@@ -1,111 +1,125 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.DescribeLoadBalancerAttributes--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes the attributes for the specified load balancer.+-- Describes the attributes for the specified load balancer. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DescribeLoadBalancerAttributes.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DescribeLoadBalancerAttributes.html AWS API Reference> for DescribeLoadBalancerAttributes. module Network.AWS.ELB.DescribeLoadBalancerAttributes     (-    -- * Request-      DescribeLoadBalancerAttributes-    -- ** Request constructor-    , describeLoadBalancerAttributes-    -- ** Request lenses+    -- * Creating a Request+      describeLoadBalancerAttributes+    , DescribeLoadBalancerAttributes+    -- * Request Lenses     , dlbaLoadBalancerName -    -- * Response-    , DescribeLoadBalancerAttributesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeLoadBalancerAttributesResponse-    -- ** Response lenses-    , dlbarLoadBalancerAttributes+    , DescribeLoadBalancerAttributesResponse+    -- * Response Lenses+    , dlbarsLoadBalancerAttributes+    , dlbarsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DescribeLoadBalancerAttributes = DescribeLoadBalancerAttributes+-- | /See:/ 'describeLoadBalancerAttributes' smart constructor.+newtype DescribeLoadBalancerAttributes = DescribeLoadBalancerAttributes'     { _dlbaLoadBalancerName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeLoadBalancerAttributes' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeLoadBalancerAttributes' with the minimum fields required to make a request. ----- * 'dlbaLoadBalancerName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---describeLoadBalancerAttributes :: Text -- ^ 'dlbaLoadBalancerName'-                               -> DescribeLoadBalancerAttributes-describeLoadBalancerAttributes p1 = DescribeLoadBalancerAttributes-    { _dlbaLoadBalancerName = p1+-- * 'dlbaLoadBalancerName'+describeLoadBalancerAttributes+    :: Text -- ^ 'dlbaLoadBalancerName'+    -> DescribeLoadBalancerAttributes+describeLoadBalancerAttributes pLoadBalancerName_ =+    DescribeLoadBalancerAttributes'+    { _dlbaLoadBalancerName = pLoadBalancerName_     }  -- | The name of the load balancer. dlbaLoadBalancerName :: Lens' DescribeLoadBalancerAttributes Text-dlbaLoadBalancerName =-    lens _dlbaLoadBalancerName (\s a -> s { _dlbaLoadBalancerName = a })--newtype DescribeLoadBalancerAttributesResponse = DescribeLoadBalancerAttributesResponse-    { _dlbarLoadBalancerAttributes :: Maybe LoadBalancerAttributes-    } deriving (Eq, Read, Show)+dlbaLoadBalancerName = lens _dlbaLoadBalancerName (\ s a -> s{_dlbaLoadBalancerName = a}); --- | 'DescribeLoadBalancerAttributesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dlbarLoadBalancerAttributes' @::@ 'Maybe' 'LoadBalancerAttributes'----describeLoadBalancerAttributesResponse :: DescribeLoadBalancerAttributesResponse-describeLoadBalancerAttributesResponse = DescribeLoadBalancerAttributesResponse-    { _dlbarLoadBalancerAttributes = Nothing-    }+instance AWSRequest DescribeLoadBalancerAttributes+         where+        type Sv DescribeLoadBalancerAttributes = ELB+        type Rs DescribeLoadBalancerAttributes =+             DescribeLoadBalancerAttributesResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeLoadBalancerAttributesResult"+              (\ s h x ->+                 DescribeLoadBalancerAttributesResponse' <$>+                   (x .@? "LoadBalancerAttributes") <*>+                     (pure (fromEnum s))) --- | Information about the load balancer attributes.-dlbarLoadBalancerAttributes :: Lens' DescribeLoadBalancerAttributesResponse (Maybe LoadBalancerAttributes)-dlbarLoadBalancerAttributes =-    lens _dlbarLoadBalancerAttributes-        (\s a -> s { _dlbarLoadBalancerAttributes = a })+instance ToHeaders DescribeLoadBalancerAttributes+         where+        toHeaders = const mempty  instance ToPath DescribeLoadBalancerAttributes where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeLoadBalancerAttributes where-    toQuery DescribeLoadBalancerAttributes{..} = mconcat-        [ "LoadBalancerName" =? _dlbaLoadBalancerName-        ]+        toQuery DescribeLoadBalancerAttributes'{..}+          = mconcat+              ["Action" =:+                 ("DescribeLoadBalancerAttributes" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _dlbaLoadBalancerName] -instance ToHeaders DescribeLoadBalancerAttributes+-- | /See:/ 'describeLoadBalancerAttributesResponse' smart constructor.+data DescribeLoadBalancerAttributesResponse = DescribeLoadBalancerAttributesResponse'+    { _dlbarsLoadBalancerAttributes :: !(Maybe LoadBalancerAttributes)+    , _dlbarsStatus                 :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeLoadBalancerAttributes where-    type Sv DescribeLoadBalancerAttributes = ELB-    type Rs DescribeLoadBalancerAttributes = DescribeLoadBalancerAttributesResponse+-- | Creates a value of 'DescribeLoadBalancerAttributesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlbarsLoadBalancerAttributes'+--+-- * 'dlbarsStatus'+describeLoadBalancerAttributesResponse+    :: Int -- ^ 'dlbarsStatus'+    -> DescribeLoadBalancerAttributesResponse+describeLoadBalancerAttributesResponse pStatus_ =+    DescribeLoadBalancerAttributesResponse'+    { _dlbarsLoadBalancerAttributes = Nothing+    , _dlbarsStatus = pStatus_+    } -    request  = post "DescribeLoadBalancerAttributes"-    response = xmlResponse+-- | Information about the load balancer attributes.+dlbarsLoadBalancerAttributes :: Lens' DescribeLoadBalancerAttributesResponse (Maybe LoadBalancerAttributes)+dlbarsLoadBalancerAttributes = lens _dlbarsLoadBalancerAttributes (\ s a -> s{_dlbarsLoadBalancerAttributes = a}); -instance FromXML DescribeLoadBalancerAttributesResponse where-    parseXML = withElement "DescribeLoadBalancerAttributesResult" $ \x -> DescribeLoadBalancerAttributesResponse-        <$> x .@? "LoadBalancerAttributes"+-- | The response status code.+dlbarsStatus :: Lens' DescribeLoadBalancerAttributesResponse Int+dlbarsStatus = lens _dlbarsStatus (\ s a -> s{_dlbarsStatus = a});

@@ -1,133 +1,143 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.DescribeLoadBalancerPolicies--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes the specified policies.+-- Describes the specified policies. ----- If you specify a load balancer name, the action returns the descriptions of--- all policies created for the load balancer. If you specify a policy name--- associated with your load balancer, the action returns the description of--- that policy. If you don't specify a load balancer name, the action returns--- descriptions of the specified sample policies, or descriptions of all sample--- policies. The names of the sample policies have the 'ELBSample-' prefix.+-- If you specify a load balancer name, the action returns the descriptions+-- of all policies created for the load balancer. If you specify a policy+-- name associated with your load balancer, the action returns the+-- description of that policy. If you don\'t specify a load balancer name,+-- the action returns descriptions of the specified sample policies, or+-- descriptions of all sample policies. The names of the sample policies+-- have the 'ELBSample-' prefix. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DescribeLoadBalancerPolicies.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DescribeLoadBalancerPolicies.html AWS API Reference> for DescribeLoadBalancerPolicies. module Network.AWS.ELB.DescribeLoadBalancerPolicies     (-    -- * Request-      DescribeLoadBalancerPolicies-    -- ** Request constructor-    , describeLoadBalancerPolicies-    -- ** Request lenses-    , dlbpLoadBalancerName+    -- * Creating a Request+      describeLoadBalancerPolicies+    , DescribeLoadBalancerPolicies+    -- * Request Lenses     , dlbpPolicyNames+    , dlbpLoadBalancerName -    -- * Response-    , DescribeLoadBalancerPoliciesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeLoadBalancerPoliciesResponse-    -- ** Response lenses-    , dlbprPolicyDescriptions+    , DescribeLoadBalancerPoliciesResponse+    -- * Response Lenses+    , dlbprsPolicyDescriptions+    , dlbprsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeLoadBalancerPolicies = DescribeLoadBalancerPolicies-    { _dlbpLoadBalancerName :: Maybe Text-    , _dlbpPolicyNames      :: List "member" Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'describeLoadBalancerPolicies' smart constructor.+data DescribeLoadBalancerPolicies = DescribeLoadBalancerPolicies'+    { _dlbpPolicyNames      :: !(Maybe [Text])+    , _dlbpLoadBalancerName :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeLoadBalancerPolicies' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeLoadBalancerPolicies' with the minimum fields required to make a request. ----- * 'dlbpLoadBalancerName' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dlbpPolicyNames' @::@ ['Text']+-- * 'dlbpPolicyNames' ---describeLoadBalancerPolicies :: DescribeLoadBalancerPolicies-describeLoadBalancerPolicies = DescribeLoadBalancerPolicies-    { _dlbpLoadBalancerName = Nothing-    , _dlbpPolicyNames      = mempty+-- * 'dlbpLoadBalancerName'+describeLoadBalancerPolicies+    :: DescribeLoadBalancerPolicies+describeLoadBalancerPolicies =+    DescribeLoadBalancerPolicies'+    { _dlbpPolicyNames = Nothing+    , _dlbpLoadBalancerName = Nothing     } +-- | The names of the policies.+dlbpPolicyNames :: Lens' DescribeLoadBalancerPolicies [Text]+dlbpPolicyNames = lens _dlbpPolicyNames (\ s a -> s{_dlbpPolicyNames = a}) . _Default . _Coerce;+ -- | The name of the load balancer. dlbpLoadBalancerName :: Lens' DescribeLoadBalancerPolicies (Maybe Text)-dlbpLoadBalancerName =-    lens _dlbpLoadBalancerName (\s a -> s { _dlbpLoadBalancerName = a })+dlbpLoadBalancerName = lens _dlbpLoadBalancerName (\ s a -> s{_dlbpLoadBalancerName = a}); --- | The names of the policies.-dlbpPolicyNames :: Lens' DescribeLoadBalancerPolicies [Text]-dlbpPolicyNames = lens _dlbpPolicyNames (\s a -> s { _dlbpPolicyNames = a }) . _List+instance AWSRequest DescribeLoadBalancerPolicies+         where+        type Sv DescribeLoadBalancerPolicies = ELB+        type Rs DescribeLoadBalancerPolicies =+             DescribeLoadBalancerPoliciesResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeLoadBalancerPoliciesResult"+              (\ s h x ->+                 DescribeLoadBalancerPoliciesResponse' <$>+                   (x .@? "PolicyDescriptions" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -newtype DescribeLoadBalancerPoliciesResponse = DescribeLoadBalancerPoliciesResponse-    { _dlbprPolicyDescriptions :: List "member" PolicyDescription-    } deriving (Eq, Read, Show, Monoid, Semigroup)+instance ToHeaders DescribeLoadBalancerPolicies where+        toHeaders = const mempty -instance GHC.Exts.IsList DescribeLoadBalancerPoliciesResponse where-    type Item DescribeLoadBalancerPoliciesResponse = PolicyDescription+instance ToPath DescribeLoadBalancerPolicies where+        toPath = const "/" -    fromList = DescribeLoadBalancerPoliciesResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dlbprPolicyDescriptions+instance ToQuery DescribeLoadBalancerPolicies where+        toQuery DescribeLoadBalancerPolicies'{..}+          = mconcat+              ["Action" =:+                 ("DescribeLoadBalancerPolicies" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "PolicyNames" =:+                 toQuery (toQueryList "member" <$> _dlbpPolicyNames),+               "LoadBalancerName" =: _dlbpLoadBalancerName] --- | 'DescribeLoadBalancerPoliciesResponse' constructor.+-- | /See:/ 'describeLoadBalancerPoliciesResponse' smart constructor.+data DescribeLoadBalancerPoliciesResponse = DescribeLoadBalancerPoliciesResponse'+    { _dlbprsPolicyDescriptions :: !(Maybe [PolicyDescription])+    , _dlbprsStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeLoadBalancerPoliciesResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'dlbprPolicyDescriptions' @::@ ['PolicyDescription']+-- * 'dlbprsPolicyDescriptions' ---describeLoadBalancerPoliciesResponse :: DescribeLoadBalancerPoliciesResponse-describeLoadBalancerPoliciesResponse = DescribeLoadBalancerPoliciesResponse-    { _dlbprPolicyDescriptions = mempty+-- * 'dlbprsStatus'+describeLoadBalancerPoliciesResponse+    :: Int -- ^ 'dlbprsStatus'+    -> DescribeLoadBalancerPoliciesResponse+describeLoadBalancerPoliciesResponse pStatus_ =+    DescribeLoadBalancerPoliciesResponse'+    { _dlbprsPolicyDescriptions = Nothing+    , _dlbprsStatus = pStatus_     }  -- | Information about the policies.-dlbprPolicyDescriptions :: Lens' DescribeLoadBalancerPoliciesResponse [PolicyDescription]-dlbprPolicyDescriptions =-    lens _dlbprPolicyDescriptions (\s a -> s { _dlbprPolicyDescriptions = a })-        . _List--instance ToPath DescribeLoadBalancerPolicies where-    toPath = const "/"--instance ToQuery DescribeLoadBalancerPolicies where-    toQuery DescribeLoadBalancerPolicies{..} = mconcat-        [ "LoadBalancerName" =? _dlbpLoadBalancerName-        , "PolicyNames"      =? _dlbpPolicyNames-        ]--instance ToHeaders DescribeLoadBalancerPolicies--instance AWSRequest DescribeLoadBalancerPolicies where-    type Sv DescribeLoadBalancerPolicies = ELB-    type Rs DescribeLoadBalancerPolicies = DescribeLoadBalancerPoliciesResponse--    request  = post "DescribeLoadBalancerPolicies"-    response = xmlResponse+dlbprsPolicyDescriptions :: Lens' DescribeLoadBalancerPoliciesResponse [PolicyDescription]+dlbprsPolicyDescriptions = lens _dlbprsPolicyDescriptions (\ s a -> s{_dlbprsPolicyDescriptions = a}) . _Default . _Coerce; -instance FromXML DescribeLoadBalancerPoliciesResponse where-    parseXML = withElement "DescribeLoadBalancerPoliciesResult" $ \x -> DescribeLoadBalancerPoliciesResponse-        <$> x .@? "PolicyDescriptions" .!@ mempty+-- | The response status code.+dlbprsStatus :: Lens' DescribeLoadBalancerPoliciesResponse Int+dlbprsStatus = lens _dlbprsStatus (\ s a -> s{_dlbprsStatus = a});

@@ -1,128 +1,132 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.DescribeLoadBalancerPolicyTypes--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes the specified load balancer policy types.+-- Describes the specified load balancer policy types. ----- You can use these policy types with 'CreateLoadBalancerPolicy' to create+-- You can use these policy types with CreateLoadBalancerPolicy to create -- policy configurations for a load balancer. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DescribeLoadBalancerPolicyTypes.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DescribeLoadBalancerPolicyTypes.html AWS API Reference> for DescribeLoadBalancerPolicyTypes. module Network.AWS.ELB.DescribeLoadBalancerPolicyTypes     (-    -- * Request-      DescribeLoadBalancerPolicyTypes-    -- ** Request constructor-    , describeLoadBalancerPolicyTypes-    -- ** Request lenses+    -- * Creating a Request+      describeLoadBalancerPolicyTypes+    , DescribeLoadBalancerPolicyTypes+    -- * Request Lenses     , dlbptPolicyTypeNames -    -- * Response-    , DescribeLoadBalancerPolicyTypesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeLoadBalancerPolicyTypesResponse-    -- ** Response lenses-    , dlbptrPolicyTypeDescriptions+    , DescribeLoadBalancerPolicyTypesResponse+    -- * Response Lenses+    , dlbptrsPolicyTypeDescriptions+    , dlbptrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts--newtype DescribeLoadBalancerPolicyTypes = DescribeLoadBalancerPolicyTypes-    { _dlbptPolicyTypeNames :: List "member" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList DescribeLoadBalancerPolicyTypes where-    type Item DescribeLoadBalancerPolicyTypes = Text+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -    fromList = DescribeLoadBalancerPolicyTypes . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dlbptPolicyTypeNames+-- | /See:/ 'describeLoadBalancerPolicyTypes' smart constructor.+newtype DescribeLoadBalancerPolicyTypes = DescribeLoadBalancerPolicyTypes'+    { _dlbptPolicyTypeNames :: Maybe [Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeLoadBalancerPolicyTypes' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeLoadBalancerPolicyTypes' with the minimum fields required to make a request. ----- * 'dlbptPolicyTypeNames' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ---describeLoadBalancerPolicyTypes :: DescribeLoadBalancerPolicyTypes-describeLoadBalancerPolicyTypes = DescribeLoadBalancerPolicyTypes-    { _dlbptPolicyTypeNames = mempty+-- * 'dlbptPolicyTypeNames'+describeLoadBalancerPolicyTypes+    :: DescribeLoadBalancerPolicyTypes+describeLoadBalancerPolicyTypes =+    DescribeLoadBalancerPolicyTypes'+    { _dlbptPolicyTypeNames = Nothing     }  -- | The names of the policy types. If no names are specified, describes all -- policy types defined by Elastic Load Balancing. dlbptPolicyTypeNames :: Lens' DescribeLoadBalancerPolicyTypes [Text]-dlbptPolicyTypeNames =-    lens _dlbptPolicyTypeNames (\s a -> s { _dlbptPolicyTypeNames = a })-        . _List+dlbptPolicyTypeNames = lens _dlbptPolicyTypeNames (\ s a -> s{_dlbptPolicyTypeNames = a}) . _Default . _Coerce; -newtype DescribeLoadBalancerPolicyTypesResponse = DescribeLoadBalancerPolicyTypesResponse-    { _dlbptrPolicyTypeDescriptions :: List "member" PolicyTypeDescription-    } deriving (Eq, Read, Show, Monoid, Semigroup)+instance AWSRequest DescribeLoadBalancerPolicyTypes+         where+        type Sv DescribeLoadBalancerPolicyTypes = ELB+        type Rs DescribeLoadBalancerPolicyTypes =+             DescribeLoadBalancerPolicyTypesResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeLoadBalancerPolicyTypesResult"+              (\ s h x ->+                 DescribeLoadBalancerPolicyTypesResponse' <$>+                   (x .@? "PolicyTypeDescriptions" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -instance GHC.Exts.IsList DescribeLoadBalancerPolicyTypesResponse where-    type Item DescribeLoadBalancerPolicyTypesResponse = PolicyTypeDescription+instance ToHeaders DescribeLoadBalancerPolicyTypes+         where+        toHeaders = const mempty -    fromList = DescribeLoadBalancerPolicyTypesResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dlbptrPolicyTypeDescriptions+instance ToPath DescribeLoadBalancerPolicyTypes where+        toPath = const "/" --- | 'DescribeLoadBalancerPolicyTypesResponse' constructor.+instance ToQuery DescribeLoadBalancerPolicyTypes+         where+        toQuery DescribeLoadBalancerPolicyTypes'{..}+          = mconcat+              ["Action" =:+                 ("DescribeLoadBalancerPolicyTypes" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "PolicyTypeNames" =:+                 toQuery+                   (toQueryList "member" <$> _dlbptPolicyTypeNames)]++-- | /See:/ 'describeLoadBalancerPolicyTypesResponse' smart constructor.+data DescribeLoadBalancerPolicyTypesResponse = DescribeLoadBalancerPolicyTypesResponse'+    { _dlbptrsPolicyTypeDescriptions :: !(Maybe [PolicyTypeDescription])+    , _dlbptrsStatus                 :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeLoadBalancerPolicyTypesResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'dlbptrPolicyTypeDescriptions' @::@ ['PolicyTypeDescription']+-- * 'dlbptrsPolicyTypeDescriptions' ---describeLoadBalancerPolicyTypesResponse :: DescribeLoadBalancerPolicyTypesResponse-describeLoadBalancerPolicyTypesResponse = DescribeLoadBalancerPolicyTypesResponse-    { _dlbptrPolicyTypeDescriptions = mempty+-- * 'dlbptrsStatus'+describeLoadBalancerPolicyTypesResponse+    :: Int -- ^ 'dlbptrsStatus'+    -> DescribeLoadBalancerPolicyTypesResponse+describeLoadBalancerPolicyTypesResponse pStatus_ =+    DescribeLoadBalancerPolicyTypesResponse'+    { _dlbptrsPolicyTypeDescriptions = Nothing+    , _dlbptrsStatus = pStatus_     }  -- | Information about the policy types.-dlbptrPolicyTypeDescriptions :: Lens' DescribeLoadBalancerPolicyTypesResponse [PolicyTypeDescription]-dlbptrPolicyTypeDescriptions =-    lens _dlbptrPolicyTypeDescriptions-        (\s a -> s { _dlbptrPolicyTypeDescriptions = a })-            . _List--instance ToPath DescribeLoadBalancerPolicyTypes where-    toPath = const "/"--instance ToQuery DescribeLoadBalancerPolicyTypes where-    toQuery DescribeLoadBalancerPolicyTypes{..} = mconcat-        [ "PolicyTypeNames" =? _dlbptPolicyTypeNames-        ]--instance ToHeaders DescribeLoadBalancerPolicyTypes--instance AWSRequest DescribeLoadBalancerPolicyTypes where-    type Sv DescribeLoadBalancerPolicyTypes = ELB-    type Rs DescribeLoadBalancerPolicyTypes = DescribeLoadBalancerPolicyTypesResponse--    request  = post "DescribeLoadBalancerPolicyTypes"-    response = xmlResponse+dlbptrsPolicyTypeDescriptions :: Lens' DescribeLoadBalancerPolicyTypesResponse [PolicyTypeDescription]+dlbptrsPolicyTypeDescriptions = lens _dlbptrsPolicyTypeDescriptions (\ s a -> s{_dlbptrsPolicyTypeDescriptions = a}) . _Default . _Coerce; -instance FromXML DescribeLoadBalancerPolicyTypesResponse where-    parseXML = withElement "DescribeLoadBalancerPolicyTypesResult" $ \x -> DescribeLoadBalancerPolicyTypesResponse-        <$> x .@? "PolicyTypeDescriptions" .!@ mempty+-- | The response status code.+dlbptrsStatus :: Lens' DescribeLoadBalancerPolicyTypesResponse Int+dlbptrsStatus = lens _dlbptrsStatus (\ s a -> s{_dlbptrsStatus = a});

@@ -1,152 +1,167 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.DescribeLoadBalancers--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes the specified the load balancers. If no load balancers are+-- Describes the specified the load balancers. If no load balancers are -- specified, the call describes all of your load balancers. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DescribeLoadBalancers.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DescribeLoadBalancers.html AWS API Reference> for DescribeLoadBalancers.+--+-- This operation returns paginated results. module Network.AWS.ELB.DescribeLoadBalancers     (-    -- * Request-      DescribeLoadBalancers-    -- ** Request constructor-    , describeLoadBalancers-    -- ** Request lenses-    , dlbLoadBalancerNames+    -- * Creating a Request+      describeLoadBalancers+    , DescribeLoadBalancers+    -- * Request Lenses     , dlbMarker     , dlbPageSize+    , dlbLoadBalancerNames -    -- * Response-    , DescribeLoadBalancersResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeLoadBalancersResponse-    -- ** Response lenses-    , dlbrLoadBalancerDescriptions-    , dlbrNextMarker+    , DescribeLoadBalancersResponse+    -- * Response Lenses+    , dlbrsLoadBalancerDescriptions+    , dlbrsNextMarker+    , dlbrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeLoadBalancers = DescribeLoadBalancers-    { _dlbLoadBalancerNames :: List "member" Text-    , _dlbMarker            :: Maybe Text-    , _dlbPageSize          :: Maybe Nat-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'describeLoadBalancers' smart constructor.+data DescribeLoadBalancers = DescribeLoadBalancers'+    { _dlbMarker            :: !(Maybe Text)+    , _dlbPageSize          :: !(Maybe Nat)+    , _dlbLoadBalancerNames :: !(Maybe [Text])+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeLoadBalancers' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeLoadBalancers' with the minimum fields required to make a request. ----- * 'dlbLoadBalancerNames' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'dlbMarker' @::@ 'Maybe' 'Text'+-- * 'dlbMarker' ----- * 'dlbPageSize' @::@ 'Maybe' 'Natural'+-- * 'dlbPageSize' ---describeLoadBalancers :: DescribeLoadBalancers-describeLoadBalancers = DescribeLoadBalancers-    { _dlbLoadBalancerNames = mempty-    , _dlbMarker            = Nothing-    , _dlbPageSize          = Nothing+-- * 'dlbLoadBalancerNames'+describeLoadBalancers+    :: DescribeLoadBalancers+describeLoadBalancers =+    DescribeLoadBalancers'+    { _dlbMarker = Nothing+    , _dlbPageSize = Nothing+    , _dlbLoadBalancerNames = Nothing     } --- | The names of the load balancers.-dlbLoadBalancerNames :: Lens' DescribeLoadBalancers [Text]-dlbLoadBalancerNames =-    lens _dlbLoadBalancerNames (\s a -> s { _dlbLoadBalancerNames = a })-        . _List- -- | The marker for the next set of results. (You received this marker from a -- previous call.) dlbMarker :: Lens' DescribeLoadBalancers (Maybe Text)-dlbMarker = lens _dlbMarker (\s a -> s { _dlbMarker = a })+dlbMarker = lens _dlbMarker (\ s a -> s{_dlbMarker = a}); --- | The maximum number of results to return with this call (a number from 1 to--- 400). The default is 400.+-- | The maximum number of results to return with this call (a number from 1+-- to 400). The default is 400. dlbPageSize :: Lens' DescribeLoadBalancers (Maybe Natural)-dlbPageSize = lens _dlbPageSize (\s a -> s { _dlbPageSize = a }) . mapping _Nat+dlbPageSize = lens _dlbPageSize (\ s a -> s{_dlbPageSize = a}) . mapping _Nat; -data DescribeLoadBalancersResponse = DescribeLoadBalancersResponse-    { _dlbrLoadBalancerDescriptions :: List "member" LoadBalancerDescription-    , _dlbrNextMarker               :: Maybe Text-    } deriving (Eq, Read, Show)+-- | The names of the load balancers.+dlbLoadBalancerNames :: Lens' DescribeLoadBalancers [Text]+dlbLoadBalancerNames = lens _dlbLoadBalancerNames (\ s a -> s{_dlbLoadBalancerNames = a}) . _Default . _Coerce; --- | 'DescribeLoadBalancersResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dlbrLoadBalancerDescriptions' @::@ ['LoadBalancerDescription']------ * 'dlbrNextMarker' @::@ 'Maybe' 'Text'----describeLoadBalancersResponse :: DescribeLoadBalancersResponse-describeLoadBalancersResponse = DescribeLoadBalancersResponse-    { _dlbrLoadBalancerDescriptions = mempty-    , _dlbrNextMarker               = Nothing-    }+instance AWSPager DescribeLoadBalancers where+        page rq rs+          | stop (rs ^. dlbrsNextMarker) = Nothing+          | stop (rs ^. dlbrsLoadBalancerDescriptions) =+            Nothing+          | otherwise =+            Just $ rq & dlbMarker .~ rs ^. dlbrsNextMarker --- | Information about the load balancers.-dlbrLoadBalancerDescriptions :: Lens' DescribeLoadBalancersResponse [LoadBalancerDescription]-dlbrLoadBalancerDescriptions =-    lens _dlbrLoadBalancerDescriptions-        (\s a -> s { _dlbrLoadBalancerDescriptions = a })-            . _List+instance AWSRequest DescribeLoadBalancers where+        type Sv DescribeLoadBalancers = ELB+        type Rs DescribeLoadBalancers =+             DescribeLoadBalancersResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeLoadBalancersResult"+              (\ s h x ->+                 DescribeLoadBalancersResponse' <$>+                   (x .@? "LoadBalancerDescriptions" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (x .@? "NextMarker")+                     <*> (pure (fromEnum s))) --- | The marker to use when requesting the next set of results. If there are no--- additional results, the string is empty.-dlbrNextMarker :: Lens' DescribeLoadBalancersResponse (Maybe Text)-dlbrNextMarker = lens _dlbrNextMarker (\s a -> s { _dlbrNextMarker = a })+instance ToHeaders DescribeLoadBalancers where+        toHeaders = const mempty  instance ToPath DescribeLoadBalancers where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeLoadBalancers where-    toQuery DescribeLoadBalancers{..} = mconcat-        [ "LoadBalancerNames" =? _dlbLoadBalancerNames-        , "Marker"            =? _dlbMarker-        , "PageSize"          =? _dlbPageSize-        ]+        toQuery DescribeLoadBalancers'{..}+          = mconcat+              ["Action" =: ("DescribeLoadBalancers" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "Marker" =: _dlbMarker, "PageSize" =: _dlbPageSize,+               "LoadBalancerNames" =:+                 toQuery+                   (toQueryList "member" <$> _dlbLoadBalancerNames)] -instance ToHeaders DescribeLoadBalancers+-- | /See:/ 'describeLoadBalancersResponse' smart constructor.+data DescribeLoadBalancersResponse = DescribeLoadBalancersResponse'+    { _dlbrsLoadBalancerDescriptions :: !(Maybe [LoadBalancerDescription])+    , _dlbrsNextMarker               :: !(Maybe Text)+    , _dlbrsStatus                   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeLoadBalancers where-    type Sv DescribeLoadBalancers = ELB-    type Rs DescribeLoadBalancers = DescribeLoadBalancersResponse+-- | Creates a value of 'DescribeLoadBalancersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlbrsLoadBalancerDescriptions'+--+-- * 'dlbrsNextMarker'+--+-- * 'dlbrsStatus'+describeLoadBalancersResponse+    :: Int -- ^ 'dlbrsStatus'+    -> DescribeLoadBalancersResponse+describeLoadBalancersResponse pStatus_ =+    DescribeLoadBalancersResponse'+    { _dlbrsLoadBalancerDescriptions = Nothing+    , _dlbrsNextMarker = Nothing+    , _dlbrsStatus = pStatus_+    } -    request  = post "DescribeLoadBalancers"-    response = xmlResponse+-- | Information about the load balancers.+dlbrsLoadBalancerDescriptions :: Lens' DescribeLoadBalancersResponse [LoadBalancerDescription]+dlbrsLoadBalancerDescriptions = lens _dlbrsLoadBalancerDescriptions (\ s a -> s{_dlbrsLoadBalancerDescriptions = a}) . _Default . _Coerce; -instance FromXML DescribeLoadBalancersResponse where-    parseXML = withElement "DescribeLoadBalancersResult" $ \x -> DescribeLoadBalancersResponse-        <$> x .@? "LoadBalancerDescriptions" .!@ mempty-        <*> x .@? "NextMarker"+-- | The marker to use when requesting the next set of results. If there are+-- no additional results, the string is empty.+dlbrsNextMarker :: Lens' DescribeLoadBalancersResponse (Maybe Text)+dlbrsNextMarker = lens _dlbrsNextMarker (\ s a -> s{_dlbrsNextMarker = a}); -instance AWSPager DescribeLoadBalancers where-    page rq rs-        | stop (rs ^. dlbrNextMarker) = Nothing-        | otherwise = (\x -> rq & dlbMarker ?~ x)-            <$> (rs ^. dlbrNextMarker)+-- | The response status code.+dlbrsStatus :: Lens' DescribeLoadBalancersResponse Int+dlbrsStatus = lens _dlbrsStatus (\ s a -> s{_dlbrsStatus = a});

@@ -1,118 +1,122 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.DescribeTags--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes the tags associated with the specified load balancers.+-- Describes the tags associated with the specified load balancers. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DescribeTags.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DescribeTags.html AWS API Reference> for DescribeTags. module Network.AWS.ELB.DescribeTags     (-    -- * Request-      DescribeTags-    -- ** Request constructor-    , describeTags-    -- ** Request lenses+    -- * Creating a Request+      describeTags+    , DescribeTags+    -- * Request Lenses     , dtLoadBalancerNames -    -- * Response-    , DescribeTagsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeTagsResponse-    -- ** Response lenses-    , dtrTagDescriptions+    , DescribeTagsResponse+    -- * Response Lenses+    , dtrsTagDescriptions+    , dtrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DescribeTags = DescribeTags-    { _dtLoadBalancerNames :: List1 "member" Text-    } deriving (Eq, Ord, Read, Show, Semigroup)+-- | /See:/ 'describeTags' smart constructor.+newtype DescribeTags = DescribeTags'+    { _dtLoadBalancerNames :: List1 Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeTags' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeTags' with the minimum fields required to make a request. ----- * 'dtLoadBalancerNames' @::@ 'NonEmpty' 'Text'+-- Use one of the following lenses to modify other fields as desired: ---describeTags :: NonEmpty Text -- ^ 'dtLoadBalancerNames'-             -> DescribeTags-describeTags p1 = DescribeTags-    { _dtLoadBalancerNames = withIso _List1 (const id) p1+-- * 'dtLoadBalancerNames'+describeTags+    :: NonEmpty Text -- ^ 'dtLoadBalancerNames'+    -> DescribeTags+describeTags pLoadBalancerNames_ =+    DescribeTags'+    { _dtLoadBalancerNames = _List1 # pLoadBalancerNames_     }  -- | The names of the load balancers. dtLoadBalancerNames :: Lens' DescribeTags (NonEmpty Text)-dtLoadBalancerNames =-    lens _dtLoadBalancerNames (\s a -> s { _dtLoadBalancerNames = a })-        . _List1+dtLoadBalancerNames = lens _dtLoadBalancerNames (\ s a -> s{_dtLoadBalancerNames = a}) . _List1; -newtype DescribeTagsResponse = DescribeTagsResponse-    { _dtrTagDescriptions :: List "member" TagDescription-    } deriving (Eq, Read, Show, Monoid, Semigroup)+instance AWSRequest DescribeTags where+        type Sv DescribeTags = ELB+        type Rs DescribeTags = DescribeTagsResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeTagsResult"+              (\ s h x ->+                 DescribeTagsResponse' <$>+                   (x .@? "TagDescriptions" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -instance GHC.Exts.IsList DescribeTagsResponse where-    type Item DescribeTagsResponse = TagDescription+instance ToHeaders DescribeTags where+        toHeaders = const mempty -    fromList = DescribeTagsResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dtrTagDescriptions+instance ToPath DescribeTags where+        toPath = const "/" --- | 'DescribeTagsResponse' constructor.+instance ToQuery DescribeTags where+        toQuery DescribeTags'{..}+          = mconcat+              ["Action" =: ("DescribeTags" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerNames" =:+                 toQueryList "member" _dtLoadBalancerNames]++-- | /See:/ 'describeTagsResponse' smart constructor.+data DescribeTagsResponse = DescribeTagsResponse'+    { _dtrsTagDescriptions :: !(Maybe [TagDescription])+    , _dtrsStatus          :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeTagsResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'dtrTagDescriptions' @::@ ['TagDescription']+-- * 'dtrsTagDescriptions' ---describeTagsResponse :: DescribeTagsResponse-describeTagsResponse = DescribeTagsResponse-    { _dtrTagDescriptions = mempty+-- * 'dtrsStatus'+describeTagsResponse+    :: Int -- ^ 'dtrsStatus'+    -> DescribeTagsResponse+describeTagsResponse pStatus_ =+    DescribeTagsResponse'+    { _dtrsTagDescriptions = Nothing+    , _dtrsStatus = pStatus_     }  -- | Information about the tags.-dtrTagDescriptions :: Lens' DescribeTagsResponse [TagDescription]-dtrTagDescriptions =-    lens _dtrTagDescriptions (\s a -> s { _dtrTagDescriptions = a })-        . _List--instance ToPath DescribeTags where-    toPath = const "/"--instance ToQuery DescribeTags where-    toQuery DescribeTags{..} = mconcat-        [ "LoadBalancerNames" =? _dtLoadBalancerNames-        ]--instance ToHeaders DescribeTags--instance AWSRequest DescribeTags where-    type Sv DescribeTags = ELB-    type Rs DescribeTags = DescribeTagsResponse--    request  = post "DescribeTags"-    response = xmlResponse+dtrsTagDescriptions :: Lens' DescribeTagsResponse [TagDescription]+dtrsTagDescriptions = lens _dtrsTagDescriptions (\ s a -> s{_dtrsTagDescriptions = a}) . _Default . _Coerce; -instance FromXML DescribeTagsResponse where-    parseXML = withElement "DescribeTagsResult" $ \x -> DescribeTagsResponse-        <$> x .@? "TagDescriptions" .!@ mempty+-- | The response status code.+dtrsStatus :: Lens' DescribeTagsResponse Int+dtrsStatus = lens _dtrsStatus (\ s a -> s{_dtrsStatus = a});

@@ -1,130 +1,142 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.DetachLoadBalancerFromSubnets--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Removes the specified subnets from the set of configured subnets for the load--- balancer.+-- Removes the specified subnets from the set of configured subnets for the+-- load balancer. -- -- After a subnet is removed, all EC2 instances registered with the load--- balancer in the removed subnet go into the 'OutOfService' state. Then, the load--- balancer balances the traffic among the remaining routable subnets.+-- balancer in the removed subnet go into the 'OutOfService' state. Then,+-- the load balancer balances the traffic among the remaining routable+-- subnets. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DetachLoadBalancerFromSubnets.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DetachLoadBalancerFromSubnets.html AWS API Reference> for DetachLoadBalancerFromSubnets. module Network.AWS.ELB.DetachLoadBalancerFromSubnets     (-    -- * Request-      DetachLoadBalancerFromSubnets-    -- ** Request constructor-    , detachLoadBalancerFromSubnets-    -- ** Request lenses+    -- * Creating a Request+      detachLoadBalancerFromSubnets+    , DetachLoadBalancerFromSubnets+    -- * Request Lenses     , dlbfsLoadBalancerName     , dlbfsSubnets -    -- * Response-    , DetachLoadBalancerFromSubnetsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , detachLoadBalancerFromSubnetsResponse-    -- ** Response lenses-    , dlbfsrSubnets+    , DetachLoadBalancerFromSubnetsResponse+    -- * Response Lenses+    , dlbfsrsSubnets+    , dlbfsrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DetachLoadBalancerFromSubnets = DetachLoadBalancerFromSubnets-    { _dlbfsLoadBalancerName :: Text-    , _dlbfsSubnets          :: List "member" Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'detachLoadBalancerFromSubnets' smart constructor.+data DetachLoadBalancerFromSubnets = DetachLoadBalancerFromSubnets'+    { _dlbfsLoadBalancerName :: !Text+    , _dlbfsSubnets          :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DetachLoadBalancerFromSubnets' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DetachLoadBalancerFromSubnets' with the minimum fields required to make a request. ----- * 'dlbfsLoadBalancerName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dlbfsSubnets' @::@ ['Text']+-- * 'dlbfsLoadBalancerName' ---detachLoadBalancerFromSubnets :: Text -- ^ 'dlbfsLoadBalancerName'-                              -> DetachLoadBalancerFromSubnets-detachLoadBalancerFromSubnets p1 = DetachLoadBalancerFromSubnets-    { _dlbfsLoadBalancerName = p1-    , _dlbfsSubnets          = mempty+-- * 'dlbfsSubnets'+detachLoadBalancerFromSubnets+    :: Text -- ^ 'dlbfsLoadBalancerName'+    -> DetachLoadBalancerFromSubnets+detachLoadBalancerFromSubnets pLoadBalancerName_ =+    DetachLoadBalancerFromSubnets'+    { _dlbfsLoadBalancerName = pLoadBalancerName_+    , _dlbfsSubnets = mempty     }  -- | The name of the load balancer. dlbfsLoadBalancerName :: Lens' DetachLoadBalancerFromSubnets Text-dlbfsLoadBalancerName =-    lens _dlbfsLoadBalancerName (\s a -> s { _dlbfsLoadBalancerName = a })+dlbfsLoadBalancerName = lens _dlbfsLoadBalancerName (\ s a -> s{_dlbfsLoadBalancerName = a});  -- | The IDs of the subnets. dlbfsSubnets :: Lens' DetachLoadBalancerFromSubnets [Text]-dlbfsSubnets = lens _dlbfsSubnets (\s a -> s { _dlbfsSubnets = a }) . _List+dlbfsSubnets = lens _dlbfsSubnets (\ s a -> s{_dlbfsSubnets = a}) . _Coerce; -newtype DetachLoadBalancerFromSubnetsResponse = DetachLoadBalancerFromSubnetsResponse-    { _dlbfsrSubnets :: List "member" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)+instance AWSRequest DetachLoadBalancerFromSubnets+         where+        type Sv DetachLoadBalancerFromSubnets = ELB+        type Rs DetachLoadBalancerFromSubnets =+             DetachLoadBalancerFromSubnetsResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DetachLoadBalancerFromSubnetsResult"+              (\ s h x ->+                 DetachLoadBalancerFromSubnetsResponse' <$>+                   (x .@? "Subnets" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -instance GHC.Exts.IsList DetachLoadBalancerFromSubnetsResponse where-    type Item DetachLoadBalancerFromSubnetsResponse = Text+instance ToHeaders DetachLoadBalancerFromSubnets+         where+        toHeaders = const mempty -    fromList = DetachLoadBalancerFromSubnetsResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dlbfsrSubnets+instance ToPath DetachLoadBalancerFromSubnets where+        toPath = const "/" --- | 'DetachLoadBalancerFromSubnetsResponse' constructor.+instance ToQuery DetachLoadBalancerFromSubnets where+        toQuery DetachLoadBalancerFromSubnets'{..}+          = mconcat+              ["Action" =:+                 ("DetachLoadBalancerFromSubnets" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _dlbfsLoadBalancerName,+               "Subnets" =: toQueryList "member" _dlbfsSubnets]++-- | /See:/ 'detachLoadBalancerFromSubnetsResponse' smart constructor.+data DetachLoadBalancerFromSubnetsResponse = DetachLoadBalancerFromSubnetsResponse'+    { _dlbfsrsSubnets :: !(Maybe [Text])+    , _dlbfsrsStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DetachLoadBalancerFromSubnetsResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'dlbfsrSubnets' @::@ ['Text']+-- * 'dlbfsrsSubnets' ---detachLoadBalancerFromSubnetsResponse :: DetachLoadBalancerFromSubnetsResponse-detachLoadBalancerFromSubnetsResponse = DetachLoadBalancerFromSubnetsResponse-    { _dlbfsrSubnets = mempty+-- * 'dlbfsrsStatus'+detachLoadBalancerFromSubnetsResponse+    :: Int -- ^ 'dlbfsrsStatus'+    -> DetachLoadBalancerFromSubnetsResponse+detachLoadBalancerFromSubnetsResponse pStatus_ =+    DetachLoadBalancerFromSubnetsResponse'+    { _dlbfsrsSubnets = Nothing+    , _dlbfsrsStatus = pStatus_     }  -- | The IDs of the remaining subnets for the load balancer.-dlbfsrSubnets :: Lens' DetachLoadBalancerFromSubnetsResponse [Text]-dlbfsrSubnets = lens _dlbfsrSubnets (\s a -> s { _dlbfsrSubnets = a }) . _List--instance ToPath DetachLoadBalancerFromSubnets where-    toPath = const "/"--instance ToQuery DetachLoadBalancerFromSubnets where-    toQuery DetachLoadBalancerFromSubnets{..} = mconcat-        [ "LoadBalancerName" =? _dlbfsLoadBalancerName-        , "Subnets"          =? _dlbfsSubnets-        ]--instance ToHeaders DetachLoadBalancerFromSubnets--instance AWSRequest DetachLoadBalancerFromSubnets where-    type Sv DetachLoadBalancerFromSubnets = ELB-    type Rs DetachLoadBalancerFromSubnets = DetachLoadBalancerFromSubnetsResponse--    request  = post "DetachLoadBalancerFromSubnets"-    response = xmlResponse+dlbfsrsSubnets :: Lens' DetachLoadBalancerFromSubnetsResponse [Text]+dlbfsrsSubnets = lens _dlbfsrsSubnets (\ s a -> s{_dlbfsrsSubnets = a}) . _Default . _Coerce; -instance FromXML DetachLoadBalancerFromSubnetsResponse where-    parseXML = withElement "DetachLoadBalancerFromSubnetsResult" $ \x -> DetachLoadBalancerFromSubnetsResponse-        <$> x .@? "Subnets" .!@ mempty+-- | The response status code.+dlbfsrsStatus :: Lens' DetachLoadBalancerFromSubnetsResponse Int+dlbfsrsStatus = lens _dlbfsrsStatus (\ s a -> s{_dlbfsrsStatus = a});

@@ -1,138 +1,152 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.DisableAvailabilityZonesForLoadBalancer--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Removes the specified Availability Zones from the set of Availability Zones--- for the specified load balancer.+-- Removes the specified Availability Zones from the set of Availability+-- Zones for the specified load balancer. ----- There must be at least one Availability Zone registered with a load balancer--- at all times. After an Availability Zone is removed, all instances registered--- with the load balancer that are in the removed Availability Zone go into the 'OutOfService' state. Then, the load balancer attempts to equally balance the traffic among--- its remaining Availability Zones.+-- There must be at least one Availability Zone registered with a load+-- balancer at all times. After an Availability Zone is removed, all+-- instances registered with the load balancer that are in the removed+-- Availability Zone go into the 'OutOfService' state. Then, the load+-- balancer attempts to equally balance the traffic among its remaining+-- Availability Zones. ----- For more information, see <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/US_ShrinkLBApp04.html Disable an Availability Zone from a Load-BalancedApplication> in the /Elastic Load Balancing Developer Guide/.+-- For more information, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/US_ShrinkLBApp04.html Disable an Availability Zone from a Load-Balanced Application>+-- in the /Elastic Load Balancing Developer Guide/. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DisableAvailabilityZonesForLoadBalancer.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_DisableAvailabilityZonesForLoadBalancer.html AWS API Reference> for DisableAvailabilityZonesForLoadBalancer. module Network.AWS.ELB.DisableAvailabilityZonesForLoadBalancer     (-    -- * Request-      DisableAvailabilityZonesForLoadBalancer-    -- ** Request constructor-    , disableAvailabilityZonesForLoadBalancer-    -- ** Request lenses-    , dazflbAvailabilityZones+    -- * Creating a Request+      disableAvailabilityZonesForLoadBalancer+    , DisableAvailabilityZonesForLoadBalancer+    -- * Request Lenses     , dazflbLoadBalancerName+    , dazflbAvailabilityZones -    -- * Response-    , DisableAvailabilityZonesForLoadBalancerResponse-    -- ** Response constructor+    -- * Destructuring the Response     , disableAvailabilityZonesForLoadBalancerResponse-    -- ** Response lenses-    , dazflbrAvailabilityZones+    , DisableAvailabilityZonesForLoadBalancerResponse+    -- * Response Lenses+    , dazflbrsAvailabilityZones+    , dazflbrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DisableAvailabilityZonesForLoadBalancer = DisableAvailabilityZonesForLoadBalancer-    { _dazflbAvailabilityZones :: List "member" Text-    , _dazflbLoadBalancerName  :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'disableAvailabilityZonesForLoadBalancer' smart constructor.+data DisableAvailabilityZonesForLoadBalancer = DisableAvailabilityZonesForLoadBalancer'+    { _dazflbLoadBalancerName  :: !Text+    , _dazflbAvailabilityZones :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DisableAvailabilityZonesForLoadBalancer' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DisableAvailabilityZonesForLoadBalancer' with the minimum fields required to make a request. ----- * 'dazflbAvailabilityZones' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'dazflbLoadBalancerName' @::@ 'Text'+-- * 'dazflbLoadBalancerName' ---disableAvailabilityZonesForLoadBalancer :: Text -- ^ 'dazflbLoadBalancerName'-                                        -> DisableAvailabilityZonesForLoadBalancer-disableAvailabilityZonesForLoadBalancer p1 = DisableAvailabilityZonesForLoadBalancer-    { _dazflbLoadBalancerName  = p1+-- * 'dazflbAvailabilityZones'+disableAvailabilityZonesForLoadBalancer+    :: Text -- ^ 'dazflbLoadBalancerName'+    -> DisableAvailabilityZonesForLoadBalancer+disableAvailabilityZonesForLoadBalancer pLoadBalancerName_ =+    DisableAvailabilityZonesForLoadBalancer'+    { _dazflbLoadBalancerName = pLoadBalancerName_     , _dazflbAvailabilityZones = mempty     } +-- | The name of the load balancer.+dazflbLoadBalancerName :: Lens' DisableAvailabilityZonesForLoadBalancer Text+dazflbLoadBalancerName = lens _dazflbLoadBalancerName (\ s a -> s{_dazflbLoadBalancerName = a});+ -- | The Availability Zones. dazflbAvailabilityZones :: Lens' DisableAvailabilityZonesForLoadBalancer [Text]-dazflbAvailabilityZones =-    lens _dazflbAvailabilityZones (\s a -> s { _dazflbAvailabilityZones = a })-        . _List+dazflbAvailabilityZones = lens _dazflbAvailabilityZones (\ s a -> s{_dazflbAvailabilityZones = a}) . _Coerce; --- | The name of the load balancer.-dazflbLoadBalancerName :: Lens' DisableAvailabilityZonesForLoadBalancer Text-dazflbLoadBalancerName =-    lens _dazflbLoadBalancerName (\s a -> s { _dazflbLoadBalancerName = a })+instance AWSRequest+         DisableAvailabilityZonesForLoadBalancer where+        type Sv DisableAvailabilityZonesForLoadBalancer = ELB+        type Rs DisableAvailabilityZonesForLoadBalancer =+             DisableAvailabilityZonesForLoadBalancerResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DisableAvailabilityZonesForLoadBalancerResult"+              (\ s h x ->+                 DisableAvailabilityZonesForLoadBalancerResponse' <$>+                   (x .@? "AvailabilityZones" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -newtype DisableAvailabilityZonesForLoadBalancerResponse = DisableAvailabilityZonesForLoadBalancerResponse-    { _dazflbrAvailabilityZones :: List "member" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)+instance ToHeaders+         DisableAvailabilityZonesForLoadBalancer where+        toHeaders = const mempty -instance GHC.Exts.IsList DisableAvailabilityZonesForLoadBalancerResponse where-    type Item DisableAvailabilityZonesForLoadBalancerResponse = Text+instance ToPath+         DisableAvailabilityZonesForLoadBalancer where+        toPath = const "/" -    fromList = DisableAvailabilityZonesForLoadBalancerResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dazflbrAvailabilityZones+instance ToQuery+         DisableAvailabilityZonesForLoadBalancer where+        toQuery DisableAvailabilityZonesForLoadBalancer'{..}+          = mconcat+              ["Action" =:+                 ("DisableAvailabilityZonesForLoadBalancer" ::+                    ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _dazflbLoadBalancerName,+               "AvailabilityZones" =:+                 toQueryList "member" _dazflbAvailabilityZones] --- | 'DisableAvailabilityZonesForLoadBalancerResponse' constructor.+-- | /See:/ 'disableAvailabilityZonesForLoadBalancerResponse' smart constructor.+data DisableAvailabilityZonesForLoadBalancerResponse = DisableAvailabilityZonesForLoadBalancerResponse'+    { _dazflbrsAvailabilityZones :: !(Maybe [Text])+    , _dazflbrsStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DisableAvailabilityZonesForLoadBalancerResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'dazflbrAvailabilityZones' @::@ ['Text']+-- * 'dazflbrsAvailabilityZones' ---disableAvailabilityZonesForLoadBalancerResponse :: DisableAvailabilityZonesForLoadBalancerResponse-disableAvailabilityZonesForLoadBalancerResponse = DisableAvailabilityZonesForLoadBalancerResponse-    { _dazflbrAvailabilityZones = mempty+-- * 'dazflbrsStatus'+disableAvailabilityZonesForLoadBalancerResponse+    :: Int -- ^ 'dazflbrsStatus'+    -> DisableAvailabilityZonesForLoadBalancerResponse+disableAvailabilityZonesForLoadBalancerResponse pStatus_ =+    DisableAvailabilityZonesForLoadBalancerResponse'+    { _dazflbrsAvailabilityZones = Nothing+    , _dazflbrsStatus = pStatus_     }  -- | The remaining Availability Zones for the load balancer.-dazflbrAvailabilityZones :: Lens' DisableAvailabilityZonesForLoadBalancerResponse [Text]-dazflbrAvailabilityZones =-    lens _dazflbrAvailabilityZones-        (\s a -> s { _dazflbrAvailabilityZones = a })-            . _List--instance ToPath DisableAvailabilityZonesForLoadBalancer where-    toPath = const "/"--instance ToQuery DisableAvailabilityZonesForLoadBalancer where-    toQuery DisableAvailabilityZonesForLoadBalancer{..} = mconcat-        [ "AvailabilityZones" =? _dazflbAvailabilityZones-        , "LoadBalancerName"  =? _dazflbLoadBalancerName-        ]--instance ToHeaders DisableAvailabilityZonesForLoadBalancer--instance AWSRequest DisableAvailabilityZonesForLoadBalancer where-    type Sv DisableAvailabilityZonesForLoadBalancer = ELB-    type Rs DisableAvailabilityZonesForLoadBalancer = DisableAvailabilityZonesForLoadBalancerResponse--    request  = post "DisableAvailabilityZonesForLoadBalancer"-    response = xmlResponse+dazflbrsAvailabilityZones :: Lens' DisableAvailabilityZonesForLoadBalancerResponse [Text]+dazflbrsAvailabilityZones = lens _dazflbrsAvailabilityZones (\ s a -> s{_dazflbrsAvailabilityZones = a}) . _Default . _Coerce; -instance FromXML DisableAvailabilityZonesForLoadBalancerResponse where-    parseXML = withElement "DisableAvailabilityZonesForLoadBalancerResult" $ \x -> DisableAvailabilityZonesForLoadBalancerResponse-        <$> x .@? "AvailabilityZones" .!@ mempty+-- | The response status code.+dazflbrsStatus :: Lens' DisableAvailabilityZonesForLoadBalancerResponse Int+dazflbrsStatus = lens _dazflbrsStatus (\ s a -> s{_dazflbrsStatus = a});

@@ -1,136 +1,149 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.EnableAvailabilityZonesForLoadBalancer--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Adds the specified Availability Zones to the set of Availability Zones for--- the specified load balancer.+-- Adds the specified Availability Zones to the set of Availability Zones+-- for the specified load balancer. -- -- The load balancer evenly distributes requests across all its registered -- Availability Zones that contain instances. ----- For more information, see <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/US_AddLBAvailabilityZone.html Add Availability Zone> in the /Elastic LoadBalancing Developer Guide/.+-- For more information, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/US_AddLBAvailabilityZone.html Add Availability Zone>+-- in the /Elastic Load Balancing Developer Guide/. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_EnableAvailabilityZonesForLoadBalancer.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_EnableAvailabilityZonesForLoadBalancer.html AWS API Reference> for EnableAvailabilityZonesForLoadBalancer. module Network.AWS.ELB.EnableAvailabilityZonesForLoadBalancer     (-    -- * Request-      EnableAvailabilityZonesForLoadBalancer-    -- ** Request constructor-    , enableAvailabilityZonesForLoadBalancer-    -- ** Request lenses-    , eazflbAvailabilityZones+    -- * Creating a Request+      enableAvailabilityZonesForLoadBalancer+    , EnableAvailabilityZonesForLoadBalancer+    -- * Request Lenses     , eazflbLoadBalancerName+    , eazflbAvailabilityZones -    -- * Response-    , EnableAvailabilityZonesForLoadBalancerResponse-    -- ** Response constructor+    -- * Destructuring the Response     , enableAvailabilityZonesForLoadBalancerResponse-    -- ** Response lenses-    , eazflbrAvailabilityZones+    , EnableAvailabilityZonesForLoadBalancerResponse+    -- * Response Lenses+    , eazflbrsAvailabilityZones+    , eazflbrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data EnableAvailabilityZonesForLoadBalancer = EnableAvailabilityZonesForLoadBalancer-    { _eazflbAvailabilityZones :: List "member" Text-    , _eazflbLoadBalancerName  :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'enableAvailabilityZonesForLoadBalancer' smart constructor.+data EnableAvailabilityZonesForLoadBalancer = EnableAvailabilityZonesForLoadBalancer'+    { _eazflbLoadBalancerName  :: !Text+    , _eazflbAvailabilityZones :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'EnableAvailabilityZonesForLoadBalancer' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'EnableAvailabilityZonesForLoadBalancer' with the minimum fields required to make a request. ----- * 'eazflbAvailabilityZones' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'eazflbLoadBalancerName' @::@ 'Text'+-- * 'eazflbLoadBalancerName' ---enableAvailabilityZonesForLoadBalancer :: Text -- ^ 'eazflbLoadBalancerName'-                                       -> EnableAvailabilityZonesForLoadBalancer-enableAvailabilityZonesForLoadBalancer p1 = EnableAvailabilityZonesForLoadBalancer-    { _eazflbLoadBalancerName  = p1+-- * 'eazflbAvailabilityZones'+enableAvailabilityZonesForLoadBalancer+    :: Text -- ^ 'eazflbLoadBalancerName'+    -> EnableAvailabilityZonesForLoadBalancer+enableAvailabilityZonesForLoadBalancer pLoadBalancerName_ =+    EnableAvailabilityZonesForLoadBalancer'+    { _eazflbLoadBalancerName = pLoadBalancerName_     , _eazflbAvailabilityZones = mempty     } --- | The Availability Zones. These must be in the same region as the load balancer.-eazflbAvailabilityZones :: Lens' EnableAvailabilityZonesForLoadBalancer [Text]-eazflbAvailabilityZones =-    lens _eazflbAvailabilityZones (\s a -> s { _eazflbAvailabilityZones = a })-        . _List- -- | The name of the load balancer. eazflbLoadBalancerName :: Lens' EnableAvailabilityZonesForLoadBalancer Text-eazflbLoadBalancerName =-    lens _eazflbLoadBalancerName (\s a -> s { _eazflbLoadBalancerName = a })+eazflbLoadBalancerName = lens _eazflbLoadBalancerName (\ s a -> s{_eazflbLoadBalancerName = a}); -newtype EnableAvailabilityZonesForLoadBalancerResponse = EnableAvailabilityZonesForLoadBalancerResponse-    { _eazflbrAvailabilityZones :: List "member" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)+-- | The Availability Zones. These must be in the same region as the load+-- balancer.+eazflbAvailabilityZones :: Lens' EnableAvailabilityZonesForLoadBalancer [Text]+eazflbAvailabilityZones = lens _eazflbAvailabilityZones (\ s a -> s{_eazflbAvailabilityZones = a}) . _Coerce; -instance GHC.Exts.IsList EnableAvailabilityZonesForLoadBalancerResponse where-    type Item EnableAvailabilityZonesForLoadBalancerResponse = Text+instance AWSRequest+         EnableAvailabilityZonesForLoadBalancer where+        type Sv EnableAvailabilityZonesForLoadBalancer = ELB+        type Rs EnableAvailabilityZonesForLoadBalancer =+             EnableAvailabilityZonesForLoadBalancerResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "EnableAvailabilityZonesForLoadBalancerResult"+              (\ s h x ->+                 EnableAvailabilityZonesForLoadBalancerResponse' <$>+                   (x .@? "AvailabilityZones" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -    fromList = EnableAvailabilityZonesForLoadBalancerResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _eazflbrAvailabilityZones+instance ToHeaders+         EnableAvailabilityZonesForLoadBalancer where+        toHeaders = const mempty --- | 'EnableAvailabilityZonesForLoadBalancerResponse' constructor.+instance ToPath+         EnableAvailabilityZonesForLoadBalancer where+        toPath = const "/"++instance ToQuery+         EnableAvailabilityZonesForLoadBalancer where+        toQuery EnableAvailabilityZonesForLoadBalancer'{..}+          = mconcat+              ["Action" =:+                 ("EnableAvailabilityZonesForLoadBalancer" ::+                    ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _eazflbLoadBalancerName,+               "AvailabilityZones" =:+                 toQueryList "member" _eazflbAvailabilityZones]++-- | /See:/ 'enableAvailabilityZonesForLoadBalancerResponse' smart constructor.+data EnableAvailabilityZonesForLoadBalancerResponse = EnableAvailabilityZonesForLoadBalancerResponse'+    { _eazflbrsAvailabilityZones :: !(Maybe [Text])+    , _eazflbrsStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'EnableAvailabilityZonesForLoadBalancerResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'eazflbrAvailabilityZones' @::@ ['Text']+-- * 'eazflbrsAvailabilityZones' ---enableAvailabilityZonesForLoadBalancerResponse :: EnableAvailabilityZonesForLoadBalancerResponse-enableAvailabilityZonesForLoadBalancerResponse = EnableAvailabilityZonesForLoadBalancerResponse-    { _eazflbrAvailabilityZones = mempty+-- * 'eazflbrsStatus'+enableAvailabilityZonesForLoadBalancerResponse+    :: Int -- ^ 'eazflbrsStatus'+    -> EnableAvailabilityZonesForLoadBalancerResponse+enableAvailabilityZonesForLoadBalancerResponse pStatus_ =+    EnableAvailabilityZonesForLoadBalancerResponse'+    { _eazflbrsAvailabilityZones = Nothing+    , _eazflbrsStatus = pStatus_     }  -- | The updated list of Availability Zones for the load balancer.-eazflbrAvailabilityZones :: Lens' EnableAvailabilityZonesForLoadBalancerResponse [Text]-eazflbrAvailabilityZones =-    lens _eazflbrAvailabilityZones-        (\s a -> s { _eazflbrAvailabilityZones = a })-            . _List--instance ToPath EnableAvailabilityZonesForLoadBalancer where-    toPath = const "/"--instance ToQuery EnableAvailabilityZonesForLoadBalancer where-    toQuery EnableAvailabilityZonesForLoadBalancer{..} = mconcat-        [ "AvailabilityZones" =? _eazflbAvailabilityZones-        , "LoadBalancerName"  =? _eazflbLoadBalancerName-        ]--instance ToHeaders EnableAvailabilityZonesForLoadBalancer--instance AWSRequest EnableAvailabilityZonesForLoadBalancer where-    type Sv EnableAvailabilityZonesForLoadBalancer = ELB-    type Rs EnableAvailabilityZonesForLoadBalancer = EnableAvailabilityZonesForLoadBalancerResponse--    request  = post "EnableAvailabilityZonesForLoadBalancer"-    response = xmlResponse+eazflbrsAvailabilityZones :: Lens' EnableAvailabilityZonesForLoadBalancerResponse [Text]+eazflbrsAvailabilityZones = lens _eazflbrsAvailabilityZones (\ s a -> s{_eazflbrsAvailabilityZones = a}) . _Default . _Coerce; -instance FromXML EnableAvailabilityZonesForLoadBalancerResponse where-    parseXML = withElement "EnableAvailabilityZonesForLoadBalancerResult" $ \x -> EnableAvailabilityZonesForLoadBalancerResponse-        <$> x .@? "AvailabilityZones" .!@ mempty+-- | The response status code.+eazflbrsStatus :: Lens' EnableAvailabilityZonesForLoadBalancerResponse Int+eazflbrsStatus = lens _eazflbrsStatus (\ s a -> s{_eazflbrsStatus = a});

@@ -1,142 +1,160 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.ModifyLoadBalancerAttributes--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Modifies the attributes of the specified load balancer.+-- Modifies the attributes of the specified load balancer. ----- You can modify the load balancer attributes, such as 'AccessLogs', 'ConnectionDraining', and 'CrossZoneLoadBalancing' by either enabling or disabling them. Or, you--- can modify the load balancer attribute 'ConnectionSettings' by specifying an--- idle connection timeout value for your load balancer.+-- You can modify the load balancer attributes, such as 'AccessLogs',+-- 'ConnectionDraining', and 'CrossZoneLoadBalancing' by either enabling or+-- disabling them. Or, you can modify the load balancer attribute+-- 'ConnectionSettings' by specifying an idle connection timeout value for+-- your load balancer. ----- For more information, see the following in the /Elastic Load BalancingDeveloper Guide/:+-- For more information, see the following in the /Elastic Load Balancing+-- Developer Guide/: ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/TerminologyandKeyConcepts.html#request-routing Cross-Zone Load Balancing> <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/TerminologyandKeyConcepts.html#conn-drain Connection Draining> <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/access-log-collection.html Access Logs> <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/TerminologyandKeyConcepts.html#idle-timeout Idle ConnectionTimeout>+-- -   <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/TerminologyandKeyConcepts.html#request-routing Cross-Zone Load Balancing>+-- -   <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/TerminologyandKeyConcepts.html#conn-drain Connection Draining>+-- -   <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/access-log-collection.html Access Logs>+-- -   <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/TerminologyandKeyConcepts.html#idle-timeout Idle Connection Timeout> ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_ModifyLoadBalancerAttributes.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_ModifyLoadBalancerAttributes.html AWS API Reference> for ModifyLoadBalancerAttributes. module Network.AWS.ELB.ModifyLoadBalancerAttributes     (-    -- * Request-      ModifyLoadBalancerAttributes-    -- ** Request constructor-    , modifyLoadBalancerAttributes-    -- ** Request lenses-    , mlbaLoadBalancerAttributes+    -- * Creating a Request+      modifyLoadBalancerAttributes+    , ModifyLoadBalancerAttributes+    -- * Request Lenses     , mlbaLoadBalancerName+    , mlbaLoadBalancerAttributes -    -- * Response-    , ModifyLoadBalancerAttributesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , modifyLoadBalancerAttributesResponse-    -- ** Response lenses-    , mlbarLoadBalancerAttributes-    , mlbarLoadBalancerName+    , ModifyLoadBalancerAttributesResponse+    -- * Response Lenses+    , mlbarsLoadBalancerAttributes+    , mlbarsLoadBalancerName+    , mlbarsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data ModifyLoadBalancerAttributes = ModifyLoadBalancerAttributes-    { _mlbaLoadBalancerAttributes :: LoadBalancerAttributes-    , _mlbaLoadBalancerName       :: Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'modifyLoadBalancerAttributes' smart constructor.+data ModifyLoadBalancerAttributes = ModifyLoadBalancerAttributes'+    { _mlbaLoadBalancerName       :: !Text+    , _mlbaLoadBalancerAttributes :: !LoadBalancerAttributes+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'ModifyLoadBalancerAttributes' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'ModifyLoadBalancerAttributes' with the minimum fields required to make a request. ----- * 'mlbaLoadBalancerAttributes' @::@ 'LoadBalancerAttributes'+-- Use one of the following lenses to modify other fields as desired: ----- * 'mlbaLoadBalancerName' @::@ 'Text'+-- * 'mlbaLoadBalancerName' ---modifyLoadBalancerAttributes :: Text -- ^ 'mlbaLoadBalancerName'-                             -> LoadBalancerAttributes -- ^ 'mlbaLoadBalancerAttributes'-                             -> ModifyLoadBalancerAttributes-modifyLoadBalancerAttributes p1 p2 = ModifyLoadBalancerAttributes-    { _mlbaLoadBalancerName       = p1-    , _mlbaLoadBalancerAttributes = p2+-- * 'mlbaLoadBalancerAttributes'+modifyLoadBalancerAttributes+    :: Text -- ^ 'mlbaLoadBalancerName'+    -> LoadBalancerAttributes -- ^ 'mlbaLoadBalancerAttributes'+    -> ModifyLoadBalancerAttributes+modifyLoadBalancerAttributes pLoadBalancerName_ pLoadBalancerAttributes_ =+    ModifyLoadBalancerAttributes'+    { _mlbaLoadBalancerName = pLoadBalancerName_+    , _mlbaLoadBalancerAttributes = pLoadBalancerAttributes_     } +-- | The name of the load balancer.+mlbaLoadBalancerName :: Lens' ModifyLoadBalancerAttributes Text+mlbaLoadBalancerName = lens _mlbaLoadBalancerName (\ s a -> s{_mlbaLoadBalancerName = a});+ -- | The attributes of the load balancer. mlbaLoadBalancerAttributes :: Lens' ModifyLoadBalancerAttributes LoadBalancerAttributes-mlbaLoadBalancerAttributes =-    lens _mlbaLoadBalancerAttributes-        (\s a -> s { _mlbaLoadBalancerAttributes = a })+mlbaLoadBalancerAttributes = lens _mlbaLoadBalancerAttributes (\ s a -> s{_mlbaLoadBalancerAttributes = a}); --- | The name of the load balancer.-mlbaLoadBalancerName :: Lens' ModifyLoadBalancerAttributes Text-mlbaLoadBalancerName =-    lens _mlbaLoadBalancerName (\s a -> s { _mlbaLoadBalancerName = a })+instance AWSRequest ModifyLoadBalancerAttributes+         where+        type Sv ModifyLoadBalancerAttributes = ELB+        type Rs ModifyLoadBalancerAttributes =+             ModifyLoadBalancerAttributesResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "ModifyLoadBalancerAttributesResult"+              (\ s h x ->+                 ModifyLoadBalancerAttributesResponse' <$>+                   (x .@? "LoadBalancerAttributes") <*>+                     (x .@? "LoadBalancerName")+                     <*> (pure (fromEnum s))) -data ModifyLoadBalancerAttributesResponse = ModifyLoadBalancerAttributesResponse-    { _mlbarLoadBalancerAttributes :: Maybe LoadBalancerAttributes-    , _mlbarLoadBalancerName       :: Maybe Text-    } deriving (Eq, Read, Show)+instance ToHeaders ModifyLoadBalancerAttributes where+        toHeaders = const mempty --- | 'ModifyLoadBalancerAttributesResponse' constructor.+instance ToPath ModifyLoadBalancerAttributes where+        toPath = const "/"++instance ToQuery ModifyLoadBalancerAttributes where+        toQuery ModifyLoadBalancerAttributes'{..}+          = mconcat+              ["Action" =:+                 ("ModifyLoadBalancerAttributes" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _mlbaLoadBalancerName,+               "LoadBalancerAttributes" =:+                 _mlbaLoadBalancerAttributes]++-- | /See:/ 'modifyLoadBalancerAttributesResponse' smart constructor.+data ModifyLoadBalancerAttributesResponse = ModifyLoadBalancerAttributesResponse'+    { _mlbarsLoadBalancerAttributes :: !(Maybe LoadBalancerAttributes)+    , _mlbarsLoadBalancerName       :: !(Maybe Text)+    , _mlbarsStatus                 :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ModifyLoadBalancerAttributesResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'mlbarLoadBalancerAttributes' @::@ 'Maybe' 'LoadBalancerAttributes'+-- * 'mlbarsLoadBalancerAttributes' ----- * 'mlbarLoadBalancerName' @::@ 'Maybe' 'Text'+-- * 'mlbarsLoadBalancerName' ---modifyLoadBalancerAttributesResponse :: ModifyLoadBalancerAttributesResponse-modifyLoadBalancerAttributesResponse = ModifyLoadBalancerAttributesResponse-    { _mlbarLoadBalancerName       = Nothing-    , _mlbarLoadBalancerAttributes = Nothing+-- * 'mlbarsStatus'+modifyLoadBalancerAttributesResponse+    :: Int -- ^ 'mlbarsStatus'+    -> ModifyLoadBalancerAttributesResponse+modifyLoadBalancerAttributesResponse pStatus_ =+    ModifyLoadBalancerAttributesResponse'+    { _mlbarsLoadBalancerAttributes = Nothing+    , _mlbarsLoadBalancerName = Nothing+    , _mlbarsStatus = pStatus_     } -mlbarLoadBalancerAttributes :: Lens' ModifyLoadBalancerAttributesResponse (Maybe LoadBalancerAttributes)-mlbarLoadBalancerAttributes =-    lens _mlbarLoadBalancerAttributes-        (\s a -> s { _mlbarLoadBalancerAttributes = a })+-- | Undocumented member.+mlbarsLoadBalancerAttributes :: Lens' ModifyLoadBalancerAttributesResponse (Maybe LoadBalancerAttributes)+mlbarsLoadBalancerAttributes = lens _mlbarsLoadBalancerAttributes (\ s a -> s{_mlbarsLoadBalancerAttributes = a});  -- | The name of the load balancer.-mlbarLoadBalancerName :: Lens' ModifyLoadBalancerAttributesResponse (Maybe Text)-mlbarLoadBalancerName =-    lens _mlbarLoadBalancerName (\s a -> s { _mlbarLoadBalancerName = a })--instance ToPath ModifyLoadBalancerAttributes where-    toPath = const "/"--instance ToQuery ModifyLoadBalancerAttributes where-    toQuery ModifyLoadBalancerAttributes{..} = mconcat-        [ "LoadBalancerAttributes" =? _mlbaLoadBalancerAttributes-        , "LoadBalancerName"       =? _mlbaLoadBalancerName-        ]--instance ToHeaders ModifyLoadBalancerAttributes--instance AWSRequest ModifyLoadBalancerAttributes where-    type Sv ModifyLoadBalancerAttributes = ELB-    type Rs ModifyLoadBalancerAttributes = ModifyLoadBalancerAttributesResponse--    request  = post "ModifyLoadBalancerAttributes"-    response = xmlResponse+mlbarsLoadBalancerName :: Lens' ModifyLoadBalancerAttributesResponse (Maybe Text)+mlbarsLoadBalancerName = lens _mlbarsLoadBalancerName (\ s a -> s{_mlbarsLoadBalancerName = a}); -instance FromXML ModifyLoadBalancerAttributesResponse where-    parseXML = withElement "ModifyLoadBalancerAttributesResult" $ \x -> ModifyLoadBalancerAttributesResponse-        <$> x .@? "LoadBalancerAttributes"-        <*> x .@? "LoadBalancerName"+-- | The response status code.+mlbarsStatus :: Lens' ModifyLoadBalancerAttributesResponse Int+mlbarsStatus = lens _mlbarsStatus (\ s a -> s{_mlbarsStatus = a});

@@ -1,150 +1,168 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.RegisterInstancesWithLoadBalancer--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Adds the specified instances to the specified load balancer.+-- Adds the specified instances to the specified load balancer. -- -- The instance must be a running instance in the same network as the load--- balancer (EC2-Classic or the same VPC). If you have EC2-Classic instances and--- a load balancer in a VPC with ClassicLink enabled, you can link the--- EC2-Classic instances to that VPC and then register the linked EC2-Classic--- instances with the load balancer in the VPC.+-- balancer (EC2-Classic or the same VPC). If you have EC2-Classic+-- instances and a load balancer in a VPC with ClassicLink enabled, you can+-- link the EC2-Classic instances to that VPC and then register the linked+-- EC2-Classic instances with the load balancer in the VPC. ----- Note that 'RegisterInstanceWithLoadBalancer' completes when the request has--- been registered. Instance registration happens shortly afterwards. To check--- the state of the registered instances, use 'DescribeLoadBalancers' or 'DescribeInstanceHealth'.+-- Note that 'RegisterInstanceWithLoadBalancer' completes when the request+-- has been registered. Instance registration happens shortly afterwards.+-- To check the state of the registered instances, use+-- DescribeLoadBalancers or DescribeInstanceHealth. ----- After the instance is registered, it starts receiving traffic and requests--- from the load balancer. Any instance that is not in one of the Availability--- Zones registered for the load balancer is moved to the 'OutOfService' state. If--- an Availability Zone is added to the load balancer later, any instances--- registered with the load balancer move to the 'InService' state.+-- After the instance is registered, it starts receiving traffic and+-- requests from the load balancer. Any instance that is not in one of the+-- Availability Zones registered for the load balancer is moved to the+-- 'OutOfService' state. If an Availability Zone is added to the load+-- balancer later, any instances registered with the load balancer move to+-- the 'InService' state. ----- If you stop an instance registered with a load balancer and then start it,--- the IP addresses associated with the instance changes. Elastic Load Balancing--- cannot recognize the new IP address, which prevents it from routing traffic--- to the instances. We recommend that you use the following sequence: stop the--- instance, deregister the instance, start the instance, and then register the--- instance. To deregister instances from a load balancer, use 'DeregisterInstancesFromLoadBalancer'.+-- If you stop an instance registered with a load balancer and then start+-- it, the IP addresses associated with the instance changes. Elastic Load+-- Balancing cannot recognize the new IP address, which prevents it from+-- routing traffic to the instances. We recommend that you use the+-- following sequence: stop the instance, deregister the instance, start+-- the instance, and then register the instance. To deregister instances+-- from a load balancer, use DeregisterInstancesFromLoadBalancer. ----- For more information, see <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/US_DeReg_Reg_Instances.html Deregister and Register EC2 Instances> in the /Elastic Load Balancing Developer Guide/.+-- For more information, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/US_DeReg_Reg_Instances.html Deregister and Register EC2 Instances>+-- in the /Elastic Load Balancing Developer Guide/. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_RegisterInstancesWithLoadBalancer.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_RegisterInstancesWithLoadBalancer.html AWS API Reference> for RegisterInstancesWithLoadBalancer. module Network.AWS.ELB.RegisterInstancesWithLoadBalancer     (-    -- * Request-      RegisterInstancesWithLoadBalancer-    -- ** Request constructor-    , registerInstancesWithLoadBalancer-    -- ** Request lenses-    , riwlbInstances+    -- * Creating a Request+      registerInstancesWithLoadBalancer+    , RegisterInstancesWithLoadBalancer+    -- * Request Lenses     , riwlbLoadBalancerName+    , riwlbInstances -    -- * Response-    , RegisterInstancesWithLoadBalancerResponse-    -- ** Response constructor+    -- * Destructuring the Response     , registerInstancesWithLoadBalancerResponse-    -- ** Response lenses-    , riwlbrInstances+    , RegisterInstancesWithLoadBalancerResponse+    -- * Response Lenses+    , riwlbrsInstances+    , riwlbrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data RegisterInstancesWithLoadBalancer = RegisterInstancesWithLoadBalancer-    { _riwlbInstances        :: List "member" Instance-    , _riwlbLoadBalancerName :: Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'registerInstancesWithLoadBalancer' smart constructor.+data RegisterInstancesWithLoadBalancer = RegisterInstancesWithLoadBalancer'+    { _riwlbLoadBalancerName :: !Text+    , _riwlbInstances        :: ![Instance]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'RegisterInstancesWithLoadBalancer' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'RegisterInstancesWithLoadBalancer' with the minimum fields required to make a request. ----- * 'riwlbInstances' @::@ ['Instance']+-- Use one of the following lenses to modify other fields as desired: ----- * 'riwlbLoadBalancerName' @::@ 'Text'+-- * 'riwlbLoadBalancerName' ---registerInstancesWithLoadBalancer :: Text -- ^ 'riwlbLoadBalancerName'-                                  -> RegisterInstancesWithLoadBalancer-registerInstancesWithLoadBalancer p1 = RegisterInstancesWithLoadBalancer-    { _riwlbLoadBalancerName = p1-    , _riwlbInstances        = mempty+-- * 'riwlbInstances'+registerInstancesWithLoadBalancer+    :: Text -- ^ 'riwlbLoadBalancerName'+    -> RegisterInstancesWithLoadBalancer+registerInstancesWithLoadBalancer pLoadBalancerName_ =+    RegisterInstancesWithLoadBalancer'+    { _riwlbLoadBalancerName = pLoadBalancerName_+    , _riwlbInstances = mempty     } +-- | The name of the load balancer.+riwlbLoadBalancerName :: Lens' RegisterInstancesWithLoadBalancer Text+riwlbLoadBalancerName = lens _riwlbLoadBalancerName (\ s a -> s{_riwlbLoadBalancerName = a});+ -- | The IDs of the instances. riwlbInstances :: Lens' RegisterInstancesWithLoadBalancer [Instance]-riwlbInstances = lens _riwlbInstances (\s a -> s { _riwlbInstances = a }) . _List+riwlbInstances = lens _riwlbInstances (\ s a -> s{_riwlbInstances = a}) . _Coerce; --- | The name of the load balancer.-riwlbLoadBalancerName :: Lens' RegisterInstancesWithLoadBalancer Text-riwlbLoadBalancerName =-    lens _riwlbLoadBalancerName (\s a -> s { _riwlbLoadBalancerName = a })+instance AWSRequest RegisterInstancesWithLoadBalancer+         where+        type Sv RegisterInstancesWithLoadBalancer = ELB+        type Rs RegisterInstancesWithLoadBalancer =+             RegisterInstancesWithLoadBalancerResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "RegisterInstancesWithLoadBalancerResult"+              (\ s h x ->+                 RegisterInstancesWithLoadBalancerResponse' <$>+                   (x .@? "Instances" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -newtype RegisterInstancesWithLoadBalancerResponse = RegisterInstancesWithLoadBalancerResponse-    { _riwlbrInstances :: List "member" Instance-    } deriving (Eq, Read, Show, Monoid, Semigroup)+instance ToHeaders RegisterInstancesWithLoadBalancer+         where+        toHeaders = const mempty -instance GHC.Exts.IsList RegisterInstancesWithLoadBalancerResponse where-    type Item RegisterInstancesWithLoadBalancerResponse = Instance+instance ToPath RegisterInstancesWithLoadBalancer+         where+        toPath = const "/" -    fromList = RegisterInstancesWithLoadBalancerResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _riwlbrInstances+instance ToQuery RegisterInstancesWithLoadBalancer+         where+        toQuery RegisterInstancesWithLoadBalancer'{..}+          = mconcat+              ["Action" =:+                 ("RegisterInstancesWithLoadBalancer" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _riwlbLoadBalancerName,+               "Instances" =: toQueryList "member" _riwlbInstances] --- | 'RegisterInstancesWithLoadBalancerResponse' constructor.+-- | /See:/ 'registerInstancesWithLoadBalancerResponse' smart constructor.+data RegisterInstancesWithLoadBalancerResponse = RegisterInstancesWithLoadBalancerResponse'+    { _riwlbrsInstances :: !(Maybe [Instance])+    , _riwlbrsStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RegisterInstancesWithLoadBalancerResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'riwlbrInstances' @::@ ['Instance']+-- * 'riwlbrsInstances' ---registerInstancesWithLoadBalancerResponse :: RegisterInstancesWithLoadBalancerResponse-registerInstancesWithLoadBalancerResponse = RegisterInstancesWithLoadBalancerResponse-    { _riwlbrInstances = mempty+-- * 'riwlbrsStatus'+registerInstancesWithLoadBalancerResponse+    :: Int -- ^ 'riwlbrsStatus'+    -> RegisterInstancesWithLoadBalancerResponse+registerInstancesWithLoadBalancerResponse pStatus_ =+    RegisterInstancesWithLoadBalancerResponse'+    { _riwlbrsInstances = Nothing+    , _riwlbrsStatus = pStatus_     }  -- | The updated list of instances for the load balancer.-riwlbrInstances :: Lens' RegisterInstancesWithLoadBalancerResponse [Instance]-riwlbrInstances = lens _riwlbrInstances (\s a -> s { _riwlbrInstances = a }) . _List--instance ToPath RegisterInstancesWithLoadBalancer where-    toPath = const "/"--instance ToQuery RegisterInstancesWithLoadBalancer where-    toQuery RegisterInstancesWithLoadBalancer{..} = mconcat-        [ "Instances"        =? _riwlbInstances-        , "LoadBalancerName" =? _riwlbLoadBalancerName-        ]--instance ToHeaders RegisterInstancesWithLoadBalancer--instance AWSRequest RegisterInstancesWithLoadBalancer where-    type Sv RegisterInstancesWithLoadBalancer = ELB-    type Rs RegisterInstancesWithLoadBalancer = RegisterInstancesWithLoadBalancerResponse--    request  = post "RegisterInstancesWithLoadBalancer"-    response = xmlResponse+riwlbrsInstances :: Lens' RegisterInstancesWithLoadBalancerResponse [Instance]+riwlbrsInstances = lens _riwlbrsInstances (\ s a -> s{_riwlbrsInstances = a}) . _Default . _Coerce; -instance FromXML RegisterInstancesWithLoadBalancerResponse where-    parseXML = withElement "RegisterInstancesWithLoadBalancerResult" $ \x -> RegisterInstancesWithLoadBalancerResponse-        <$> x .@? "Instances" .!@ mempty+-- | The response status code.+riwlbrsStatus :: Lens' RegisterInstancesWithLoadBalancerResponse Int+riwlbrsStatus = lens _riwlbrsStatus (\ s a -> s{_riwlbrsStatus = a});

@@ -1,103 +1,121 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.RemoveTags--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Removes one or more tags from the specified load balancer.+-- Removes one or more tags from the specified load balancer. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_RemoveTags.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_RemoveTags.html AWS API Reference> for RemoveTags. module Network.AWS.ELB.RemoveTags     (-    -- * Request-      RemoveTags-    -- ** Request constructor-    , removeTags-    -- ** Request lenses+    -- * Creating a Request+      removeTags+    , RemoveTags+    -- * Request Lenses     , rtLoadBalancerNames     , rtTags -    -- * Response-    , RemoveTagsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , removeTagsResponse+    , RemoveTagsResponse+    -- * Response Lenses+    , rtrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data RemoveTags = RemoveTags-    { _rtLoadBalancerNames :: List "member" Text-    , _rtTags              :: List1 "member" TagKeyOnly-    } deriving (Eq, Read, Show)+-- | /See:/ 'removeTags' smart constructor.+data RemoveTags = RemoveTags'+    { _rtLoadBalancerNames :: ![Text]+    , _rtTags              :: !(List1 TagKeyOnly)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'RemoveTags' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'RemoveTags' with the minimum fields required to make a request. ----- * 'rtLoadBalancerNames' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'rtTags' @::@ 'NonEmpty' 'TagKeyOnly'+-- * 'rtLoadBalancerNames' ---removeTags :: NonEmpty TagKeyOnly -- ^ 'rtTags'-           -> RemoveTags-removeTags p1 = RemoveTags-    { _rtTags              = withIso _List1 (const id) p1-    , _rtLoadBalancerNames = mempty+-- * 'rtTags'+removeTags+    :: NonEmpty TagKeyOnly -- ^ 'rtTags'+    -> RemoveTags+removeTags pTags_ =+    RemoveTags'+    { _rtLoadBalancerNames = mempty+    , _rtTags = _List1 # pTags_     } --- | The name of the load balancer. You can specify a maximum of one load balancer--- name.+-- | The name of the load balancer. You can specify a maximum of one load+-- balancer name. rtLoadBalancerNames :: Lens' RemoveTags [Text]-rtLoadBalancerNames =-    lens _rtLoadBalancerNames (\s a -> s { _rtLoadBalancerNames = a })-        . _List+rtLoadBalancerNames = lens _rtLoadBalancerNames (\ s a -> s{_rtLoadBalancerNames = a}) . _Coerce;  -- | The list of tag keys to remove. rtTags :: Lens' RemoveTags (NonEmpty TagKeyOnly)-rtTags = lens _rtTags (\s a -> s { _rtTags = a }) . _List1+rtTags = lens _rtTags (\ s a -> s{_rtTags = a}) . _List1; -data RemoveTagsResponse = RemoveTagsResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest RemoveTags where+        type Sv RemoveTags = ELB+        type Rs RemoveTags = RemoveTagsResponse+        request = postQuery+        response+          = receiveXMLWrapper "RemoveTagsResult"+              (\ s h x ->+                 RemoveTagsResponse' <$> (pure (fromEnum s))) --- | 'RemoveTagsResponse' constructor.-removeTagsResponse :: RemoveTagsResponse-removeTagsResponse = RemoveTagsResponse+instance ToHeaders RemoveTags where+        toHeaders = const mempty  instance ToPath RemoveTags where-    toPath = const "/"+        toPath = const "/"  instance ToQuery RemoveTags where-    toQuery RemoveTags{..} = mconcat-        [ "LoadBalancerNames" =? _rtLoadBalancerNames-        , "Tags"              =? _rtTags-        ]+        toQuery RemoveTags'{..}+          = mconcat+              ["Action" =: ("RemoveTags" :: ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerNames" =:+                 toQueryList "member" _rtLoadBalancerNames,+               "Tags" =: toQueryList "member" _rtTags] -instance ToHeaders RemoveTags+-- | /See:/ 'removeTagsResponse' smart constructor.+newtype RemoveTagsResponse = RemoveTagsResponse'+    { _rtrsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest RemoveTags where-    type Sv RemoveTags = ELB-    type Rs RemoveTags = RemoveTagsResponse+-- | Creates a value of 'RemoveTagsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtrsStatus'+removeTagsResponse+    :: Int -- ^ 'rtrsStatus'+    -> RemoveTagsResponse+removeTagsResponse pStatus_ =+    RemoveTagsResponse'+    { _rtrsStatus = pStatus_+    } -    request  = post "RemoveTags"-    response = nullResponse RemoveTagsResponse+-- | The response status code.+rtrsStatus :: Lens' RemoveTagsResponse Int+rtrsStatus = lens _rtrsStatus (\ s a -> s{_rtrsStatus = a});

@@ -1,122 +1,146 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.SetLoadBalancerListenerSSLCertificate--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Sets the certificate that terminates the specified listener's SSL--- connections. The specified certificate replaces any prior certificate that--- was used on the same load balancer and port.+-- Sets the certificate that terminates the specified listener\'s SSL+-- connections. The specified certificate replaces any prior certificate+-- that was used on the same load balancer and port. ----- For more information about updating your SSL certificate, see <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/US_UpdatingLoadBalancerSSL.html Updating anSSL Certificate for a Load Balancer> in the /Elastic Load Balancing DeveloperGuide/.+-- For more information about updating your SSL certificate, see+-- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/DeveloperGuide/US_UpdatingLoadBalancerSSL.html Updating an SSL Certificate for a Load Balancer>+-- in the /Elastic Load Balancing Developer Guide/. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_SetLoadBalancerListenerSSLCertificate.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_SetLoadBalancerListenerSSLCertificate.html AWS API Reference> for SetLoadBalancerListenerSSLCertificate. module Network.AWS.ELB.SetLoadBalancerListenerSSLCertificate     (-    -- * Request-      SetLoadBalancerListenerSSLCertificate-    -- ** Request constructor-    , setLoadBalancerListenerSSLCertificate-    -- ** Request lenses-    , slblsslcLoadBalancerName-    , slblsslcLoadBalancerPort-    , slblsslcSSLCertificateId+    -- * Creating a Request+      setLoadBalancerListenerSSLCertificate+    , SetLoadBalancerListenerSSLCertificate+    -- * Request Lenses+    , slblscLoadBalancerName+    , slblscLoadBalancerPort+    , slblscSSLCertificateId -    -- * Response-    , SetLoadBalancerListenerSSLCertificateResponse-    -- ** Response constructor+    -- * Destructuring the Response     , setLoadBalancerListenerSSLCertificateResponse+    , SetLoadBalancerListenerSSLCertificateResponse+    -- * Response Lenses+    , slblscrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data SetLoadBalancerListenerSSLCertificate = SetLoadBalancerListenerSSLCertificate-    { _slblsslcLoadBalancerName :: Text-    , _slblsslcLoadBalancerPort :: Int-    , _slblsslcSSLCertificateId :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'setLoadBalancerListenerSSLCertificate' smart constructor.+data SetLoadBalancerListenerSSLCertificate = SetLoadBalancerListenerSSLCertificate'+    { _slblscLoadBalancerName :: !Text+    , _slblscLoadBalancerPort :: !Int+    , _slblscSSLCertificateId :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'SetLoadBalancerListenerSSLCertificate' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'SetLoadBalancerListenerSSLCertificate' with the minimum fields required to make a request. ----- * 'slblsslcLoadBalancerName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'slblsslcLoadBalancerPort' @::@ 'Int'+-- * 'slblscLoadBalancerName' ----- * 'slblsslcSSLCertificateId' @::@ 'Text'+-- * 'slblscLoadBalancerPort' ---setLoadBalancerListenerSSLCertificate :: Text -- ^ 'slblsslcLoadBalancerName'-                                      -> Int -- ^ 'slblsslcLoadBalancerPort'-                                      -> Text -- ^ 'slblsslcSSLCertificateId'-                                      -> SetLoadBalancerListenerSSLCertificate-setLoadBalancerListenerSSLCertificate p1 p2 p3 = SetLoadBalancerListenerSSLCertificate-    { _slblsslcLoadBalancerName = p1-    , _slblsslcLoadBalancerPort = p2-    , _slblsslcSSLCertificateId = p3+-- * 'slblscSSLCertificateId'+setLoadBalancerListenerSSLCertificate+    :: Text -- ^ 'slblscLoadBalancerName'+    -> Int -- ^ 'slblscLoadBalancerPort'+    -> Text -- ^ 'slblscSSLCertificateId'+    -> SetLoadBalancerListenerSSLCertificate+setLoadBalancerListenerSSLCertificate pLoadBalancerName_ pLoadBalancerPort_ pSSLCertificateId_ =+    SetLoadBalancerListenerSSLCertificate'+    { _slblscLoadBalancerName = pLoadBalancerName_+    , _slblscLoadBalancerPort = pLoadBalancerPort_+    , _slblscSSLCertificateId = pSSLCertificateId_     }  -- | The name of the load balancer.-slblsslcLoadBalancerName :: Lens' SetLoadBalancerListenerSSLCertificate Text-slblsslcLoadBalancerName =-    lens _slblsslcLoadBalancerName-        (\s a -> s { _slblsslcLoadBalancerName = a })+slblscLoadBalancerName :: Lens' SetLoadBalancerListenerSSLCertificate Text+slblscLoadBalancerName = lens _slblscLoadBalancerName (\ s a -> s{_slblscLoadBalancerName = a});  -- | The port that uses the specified SSL certificate.-slblsslcLoadBalancerPort :: Lens' SetLoadBalancerListenerSSLCertificate Int-slblsslcLoadBalancerPort =-    lens _slblsslcLoadBalancerPort-        (\s a -> s { _slblsslcLoadBalancerPort = a })+slblscLoadBalancerPort :: Lens' SetLoadBalancerListenerSSLCertificate Int+slblscLoadBalancerPort = lens _slblscLoadBalancerPort (\ s a -> s{_slblscLoadBalancerPort = a});  -- | The Amazon Resource Name (ARN) of the SSL certificate.-slblsslcSSLCertificateId :: Lens' SetLoadBalancerListenerSSLCertificate Text-slblsslcSSLCertificateId =-    lens _slblsslcSSLCertificateId-        (\s a -> s { _slblsslcSSLCertificateId = a })+slblscSSLCertificateId :: Lens' SetLoadBalancerListenerSSLCertificate Text+slblscSSLCertificateId = lens _slblscSSLCertificateId (\ s a -> s{_slblscSSLCertificateId = a}); -data SetLoadBalancerListenerSSLCertificateResponse = SetLoadBalancerListenerSSLCertificateResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest+         SetLoadBalancerListenerSSLCertificate where+        type Sv SetLoadBalancerListenerSSLCertificate = ELB+        type Rs SetLoadBalancerListenerSSLCertificate =+             SetLoadBalancerListenerSSLCertificateResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "SetLoadBalancerListenerSSLCertificateResult"+              (\ s h x ->+                 SetLoadBalancerListenerSSLCertificateResponse' <$>+                   (pure (fromEnum s))) --- | 'SetLoadBalancerListenerSSLCertificateResponse' constructor.-setLoadBalancerListenerSSLCertificateResponse :: SetLoadBalancerListenerSSLCertificateResponse-setLoadBalancerListenerSSLCertificateResponse = SetLoadBalancerListenerSSLCertificateResponse+instance ToHeaders+         SetLoadBalancerListenerSSLCertificate where+        toHeaders = const mempty -instance ToPath SetLoadBalancerListenerSSLCertificate where-    toPath = const "/"+instance ToPath SetLoadBalancerListenerSSLCertificate+         where+        toPath = const "/" -instance ToQuery SetLoadBalancerListenerSSLCertificate where-    toQuery SetLoadBalancerListenerSSLCertificate{..} = mconcat-        [ "LoadBalancerName" =? _slblsslcLoadBalancerName-        , "LoadBalancerPort" =? _slblsslcLoadBalancerPort-        , "SSLCertificateId" =? _slblsslcSSLCertificateId-        ]+instance ToQuery+         SetLoadBalancerListenerSSLCertificate where+        toQuery SetLoadBalancerListenerSSLCertificate'{..}+          = mconcat+              ["Action" =:+                 ("SetLoadBalancerListenerSSLCertificate" ::+                    ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _slblscLoadBalancerName,+               "LoadBalancerPort" =: _slblscLoadBalancerPort,+               "SSLCertificateId" =: _slblscSSLCertificateId] -instance ToHeaders SetLoadBalancerListenerSSLCertificate+-- | /See:/ 'setLoadBalancerListenerSSLCertificateResponse' smart constructor.+newtype SetLoadBalancerListenerSSLCertificateResponse = SetLoadBalancerListenerSSLCertificateResponse'+    { _slblscrsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest SetLoadBalancerListenerSSLCertificate where-    type Sv SetLoadBalancerListenerSSLCertificate = ELB-    type Rs SetLoadBalancerListenerSSLCertificate = SetLoadBalancerListenerSSLCertificateResponse+-- | Creates a value of 'SetLoadBalancerListenerSSLCertificateResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'slblscrsStatus'+setLoadBalancerListenerSSLCertificateResponse+    :: Int -- ^ 'slblscrsStatus'+    -> SetLoadBalancerListenerSSLCertificateResponse+setLoadBalancerListenerSSLCertificateResponse pStatus_ =+    SetLoadBalancerListenerSSLCertificateResponse'+    { _slblscrsStatus = pStatus_+    } -    request  = post "SetLoadBalancerListenerSSLCertificate"-    response = nullResponse SetLoadBalancerListenerSSLCertificateResponse+-- | The response status code.+slblscrsStatus :: Lens' SetLoadBalancerListenerSSLCertificateResponse Int+slblscrsStatus = lens _slblscrsStatus (\ s a -> s{_slblscrsStatus = a});

@@ -1,126 +1,152 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ELB.SetLoadBalancerPoliciesForBackendServer--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Replaces the set of policies associated with the specified port on which the--- back-end server is listening with a new set of policies. At this time, only--- the back-end server authentication policy type can be applied to the back-end--- ports; this policy type is composed of multiple public key policies.+-- Replaces the set of policies associated with the specified port on which+-- the back-end server is listening with a new set of policies. At this+-- time, only the back-end server authentication policy type can be applied+-- to the back-end ports; this policy type is composed of multiple public+-- key policies. ----- Each time you use 'SetLoadBalancerPoliciesForBackendServer' to enable the--- policies, use the 'PolicyNames' parameter to list the policies that you want to--- enable.+-- Each time you use 'SetLoadBalancerPoliciesForBackendServer' to enable+-- the policies, use the 'PolicyNames' parameter to list the policies that+-- you want to enable. ----- You can use 'DescribeLoadBalancers' or 'DescribeLoadBalancerPolicies' to verify--- that the policy is associated with the back-end server.+-- You can use DescribeLoadBalancers or DescribeLoadBalancerPolicies to+-- verify that the policy is associated with the back-end server. ----- <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_SetLoadBalancerPoliciesForBackendServer.html>+-- /See:/ <http://docs.aws.amazon.com/ElasticLoadBalancing/latest/APIReference/API_SetLoadBalancerPoliciesForBackendServer.html AWS API Reference> for SetLoadBalancerPoliciesForBackendServer. module Network.AWS.ELB.SetLoadBalancerPoliciesForBackendServer     (-    -- * Request-      SetLoadBalancerPoliciesForBackendServer-    -- ** Request constructor-    , setLoadBalancerPoliciesForBackendServer-    -- ** Request lenses-    , slbpfbsInstancePort+    -- * Creating a Request+      setLoadBalancerPoliciesForBackendServer+    , SetLoadBalancerPoliciesForBackendServer+    -- * Request Lenses     , slbpfbsLoadBalancerName+    , slbpfbsInstancePort     , slbpfbsPolicyNames -    -- * Response-    , SetLoadBalancerPoliciesForBackendServerResponse-    -- ** Response constructor+    -- * Destructuring the Response     , setLoadBalancerPoliciesForBackendServerResponse+    , SetLoadBalancerPoliciesForBackendServerResponse+    -- * Response Lenses+    , slbpfbsrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ELB.Types-import qualified GHC.Exts+import           Network.AWS.ELB.Types+import           Network.AWS.ELB.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data SetLoadBalancerPoliciesForBackendServer = SetLoadBalancerPoliciesForBackendServer-    { _slbpfbsInstancePort     :: Int-    , _slbpfbsLoadBalancerName :: Text-    , _slbpfbsPolicyNames      :: List "member" Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'setLoadBalancerPoliciesForBackendServer' smart constructor.+data SetLoadBalancerPoliciesForBackendServer = SetLoadBalancerPoliciesForBackendServer'+    { _slbpfbsLoadBalancerName :: !Text+    , _slbpfbsInstancePort     :: !Int+    , _slbpfbsPolicyNames      :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'SetLoadBalancerPoliciesForBackendServer' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'SetLoadBalancerPoliciesForBackendServer' with the minimum fields required to make a request. ----- * 'slbpfbsInstancePort' @::@ 'Int'+-- Use one of the following lenses to modify other fields as desired: ----- * 'slbpfbsLoadBalancerName' @::@ 'Text'+-- * 'slbpfbsLoadBalancerName' ----- * 'slbpfbsPolicyNames' @::@ ['Text']+-- * 'slbpfbsInstancePort' ---setLoadBalancerPoliciesForBackendServer :: Text -- ^ 'slbpfbsLoadBalancerName'-                                        -> Int -- ^ 'slbpfbsInstancePort'-                                        -> SetLoadBalancerPoliciesForBackendServer-setLoadBalancerPoliciesForBackendServer p1 p2 = SetLoadBalancerPoliciesForBackendServer-    { _slbpfbsLoadBalancerName = p1-    , _slbpfbsInstancePort     = p2-    , _slbpfbsPolicyNames      = mempty+-- * 'slbpfbsPolicyNames'+setLoadBalancerPoliciesForBackendServer+    :: Text -- ^ 'slbpfbsLoadBalancerName'+    -> Int -- ^ 'slbpfbsInstancePort'+    -> SetLoadBalancerPoliciesForBackendServer+setLoadBalancerPoliciesForBackendServer pLoadBalancerName_ pInstancePort_ =+    SetLoadBalancerPoliciesForBackendServer'+    { _slbpfbsLoadBalancerName = pLoadBalancerName_+    , _slbpfbsInstancePort = pInstancePort_+    , _slbpfbsPolicyNames = mempty     } --- | The port number associated with the back-end server.-slbpfbsInstancePort :: Lens' SetLoadBalancerPoliciesForBackendServer Int-slbpfbsInstancePort =-    lens _slbpfbsInstancePort (\s a -> s { _slbpfbsInstancePort = a })- -- | The name of the load balancer. slbpfbsLoadBalancerName :: Lens' SetLoadBalancerPoliciesForBackendServer Text-slbpfbsLoadBalancerName =-    lens _slbpfbsLoadBalancerName (\s a -> s { _slbpfbsLoadBalancerName = a })+slbpfbsLoadBalancerName = lens _slbpfbsLoadBalancerName (\ s a -> s{_slbpfbsLoadBalancerName = a}); --- | The names of the policies. If the list is empty, then all current polices are--- removed from the back-end server.+-- | The port number associated with the back-end server.+slbpfbsInstancePort :: Lens' SetLoadBalancerPoliciesForBackendServer Int+slbpfbsInstancePort = lens _slbpfbsInstancePort (\ s a -> s{_slbpfbsInstancePort = a});++-- | The names of the policies. If the list is empty, then all current+-- polices are removed from the back-end server. slbpfbsPolicyNames :: Lens' SetLoadBalancerPoliciesForBackendServer [Text]-slbpfbsPolicyNames =-    lens _slbpfbsPolicyNames (\s a -> s { _slbpfbsPolicyNames = a })-        . _List+slbpfbsPolicyNames = lens _slbpfbsPolicyNames (\ s a -> s{_slbpfbsPolicyNames = a}) . _Coerce; -data SetLoadBalancerPoliciesForBackendServerResponse = SetLoadBalancerPoliciesForBackendServerResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest+         SetLoadBalancerPoliciesForBackendServer where+        type Sv SetLoadBalancerPoliciesForBackendServer = ELB+        type Rs SetLoadBalancerPoliciesForBackendServer =+             SetLoadBalancerPoliciesForBackendServerResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "SetLoadBalancerPoliciesForBackendServerResult"+              (\ s h x ->+                 SetLoadBalancerPoliciesForBackendServerResponse' <$>+                   (pure (fromEnum s))) --- | 'SetLoadBalancerPoliciesForBackendServerResponse' constructor.-setLoadBalancerPoliciesForBackendServerResponse :: SetLoadBalancerPoliciesForBackendServerResponse-setLoadBalancerPoliciesForBackendServerResponse = SetLoadBalancerPoliciesForBackendServerResponse+instance ToHeaders+         SetLoadBalancerPoliciesForBackendServer where+        toHeaders = const mempty -instance ToPath SetLoadBalancerPoliciesForBackendServer where-    toPath = const "/"+instance ToPath+         SetLoadBalancerPoliciesForBackendServer where+        toPath = const "/" -instance ToQuery SetLoadBalancerPoliciesForBackendServer where-    toQuery SetLoadBalancerPoliciesForBackendServer{..} = mconcat-        [ "InstancePort"     =? _slbpfbsInstancePort-        , "LoadBalancerName" =? _slbpfbsLoadBalancerName-        , "PolicyNames"      =? _slbpfbsPolicyNames-        ]+instance ToQuery+         SetLoadBalancerPoliciesForBackendServer where+        toQuery SetLoadBalancerPoliciesForBackendServer'{..}+          = mconcat+              ["Action" =:+                 ("SetLoadBalancerPoliciesForBackendServer" ::+                    ByteString),+               "Version" =: ("2012-06-01" :: ByteString),+               "LoadBalancerName" =: _slbpfbsLoadBalancerName,+               "InstancePort" =: _slbpfbsInstancePort,+               "PolicyNames" =:+                 toQueryList "member" _slbpfbsPolicyNames] -instance ToHeaders SetLoadBalancerPoliciesForBackendServer+-- | /See:/ 'setLoadBalancerPoliciesForBackendServerResponse' smart constructor.+newtype SetLoadBalancerPoliciesForBackendServerResponse = SetLoadBalancerPoliciesForBackendServerResponse'+    { _slbpfbsrsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest SetLoadBalancerPoliciesForBackendServer where-    type Sv SetLoadBalancerPoliciesForBackendServer = ELB-    type Rs SetLoadBalancerPoliciesForBackendServer = SetLoadBalancerPoliciesForBackendServerResponse+-- | Creates a value of 'SetLoadBalancerPoliciesForBackendServerResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'slbpfbsrsStatus'+setLoadBalancerPoliciesForBackendServerResponse+    :: Int -- ^ 'slbpfbsrsStatus'+    -> SetLoadBalancerPoliciesForBackendServerResponse+setLoadBalancerPoliciesForBackendServerResponse pStatus_ =+    SetLoadBalancerPoliciesForBackendServerResponse'+    { _slbpfbsrsStatus = pStatus_+    } -    request  = post "SetLoadBalancerPoliciesForBackendServer"-    response = nullResponse SetLoadBalancerPoliciesForBackendServerResponse+-- | The response status code.+slbpfbsrsStatus :: Lens' SetLoadBalancerPoliciesForBackendServerResponse Int+slbpfbsrsStatus = lens _slbpfbsrsStatus (\ s a -> s{_slbpfbsrsStatus = a});