diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -28,3 +28,5 @@ ## Licence `amazonka-elb` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/). + +Parts of the code are derived from AWS service descriptions, licensed under Apache 2.0. diff --git a/amazonka-elb.cabal b/amazonka-elb.cabal --- a/amazonka-elb.cabal +++ b/amazonka-elb.cabal @@ -1,5 +1,5 @@ name: amazonka-elb -version: 0.0.4 +version: 0.0.5 synopsis: Amazon Elastic Load Balancing SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -70,5 +70,5 @@ other-modules: build-depends: - amazonka-core == 0.0.4.* + amazonka-core == 0.0.5.* , base >= 4.7 && < 5 diff --git a/gen/Network/AWS/ELB.hs b/gen/Network/AWS/ELB.hs --- a/gen/Network/AWS/ELB.hs +++ b/gen/Network/AWS/ELB.hs @@ -7,6 +7,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- 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 diff --git a/gen/Network/AWS/ELB/AddTags.hs b/gen/Network/AWS/ELB/AddTags.hs --- a/gen/Network/AWS/ELB/AddTags.hs +++ b/gen/Network/AWS/ELB/AddTags.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Adds one or more tags for the specified load balancer. Each load balancer can -- have a maximum of 10 tags. Each tag consists of a key and an optional value. @@ -52,8 +54,8 @@ import qualified GHC.Exts data AddTags = AddTags - { _atLoadBalancerNames :: List "LoadBalancerNames" Text - , _atTags :: List1 "Tags" Tag + { _atLoadBalancerNames :: List "member" Text + , _atTags :: List1 "member" Tag } deriving (Eq, Show) -- | 'AddTags' constructor. diff --git a/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs b/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs --- a/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs +++ b/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- 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 Amazon -- Virtual Private Cloud (Amazon VPC). The provided security group IDs will @@ -52,7 +54,7 @@ data ApplySecurityGroupsToLoadBalancer = ApplySecurityGroupsToLoadBalancer { _asgtlbLoadBalancerName :: Text - , _asgtlbSecurityGroups :: List "SecurityGroups" Text + , _asgtlbSecurityGroups :: List "member" Text } deriving (Eq, Ord, Show) -- | 'ApplySecurityGroupsToLoadBalancer' constructor. @@ -85,7 +87,7 @@ . _List newtype ApplySecurityGroupsToLoadBalancerResponse = ApplySecurityGroupsToLoadBalancerResponse - { _asgtlbrSecurityGroups :: List "SecurityGroups" Text + { _asgtlbrSecurityGroups :: List "member" Text } deriving (Eq, Ord, Show, Monoid, Semigroup) instance GHC.Exts.IsList ApplySecurityGroupsToLoadBalancerResponse where diff --git a/gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs b/gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs --- a/gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs +++ b/gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- 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 in the Amazon -- Virtual Private Cloud (Amazon VPC) for the load balancer. @@ -53,7 +55,7 @@ data AttachLoadBalancerToSubnets = AttachLoadBalancerToSubnets { _albtsLoadBalancerName :: Text - , _albtsSubnets :: List "Subnets" Text + , _albtsSubnets :: List "member" Text } deriving (Eq, Ord, Show) -- | 'AttachLoadBalancerToSubnets' constructor. @@ -83,7 +85,7 @@ albtsSubnets = lens _albtsSubnets (\s a -> s { _albtsSubnets = a }) . _List newtype AttachLoadBalancerToSubnetsResponse = AttachLoadBalancerToSubnetsResponse - { _albtsrSubnets :: List "Subnets" Text + { _albtsrSubnets :: List "member" Text } deriving (Eq, Ord, Show, Monoid, Semigroup) instance GHC.Exts.IsList AttachLoadBalancerToSubnetsResponse where diff --git a/gen/Network/AWS/ELB/ConfigureHealthCheck.hs b/gen/Network/AWS/ELB/ConfigureHealthCheck.hs --- a/gen/Network/AWS/ELB/ConfigureHealthCheck.hs +++ b/gen/Network/AWS/ELB/ConfigureHealthCheck.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Specifies the health check settings to use for evaluating the health state -- of your back-end instances. diff --git a/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs b/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs --- a/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs +++ b/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- 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 diff --git a/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs b/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs --- a/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs +++ b/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- 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. diff --git a/gen/Network/AWS/ELB/CreateLoadBalancer.hs b/gen/Network/AWS/ELB/CreateLoadBalancer.hs --- a/gen/Network/AWS/ELB/CreateLoadBalancer.hs +++ b/gen/Network/AWS/ELB/CreateLoadBalancer.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Creates a new load balancer. -- @@ -74,13 +76,13 @@ import qualified GHC.Exts data CreateLoadBalancer = CreateLoadBalancer - { _clbAvailabilityZones :: List "AvailabilityZones" Text - , _clbListeners :: List "Listeners" Listener + { _clbAvailabilityZones :: List "member" Text + , _clbListeners :: List "member" Listener , _clbLoadBalancerName :: Text , _clbScheme :: Maybe Text - , _clbSecurityGroups :: List "SecurityGroups" Text - , _clbSubnets :: List "Subnets" Text - , _clbTags :: List1 "Tags" Tag + , _clbSecurityGroups :: List "member" Text + , _clbSubnets :: List "member" Text + , _clbTags :: List1 "member" Tag } deriving (Eq, Show) -- | 'CreateLoadBalancer' constructor. diff --git a/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs b/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs --- a/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs +++ b/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Creates one or more listeners on a load balancer for the specified port. If -- a listener with the given port does not already exist, it will be created; @@ -50,7 +52,7 @@ import qualified GHC.Exts data CreateLoadBalancerListeners = CreateLoadBalancerListeners - { _clblListeners :: List "Listeners" Listener + { _clblListeners :: List "member" Listener , _clblLoadBalancerName :: Text } deriving (Eq, Show) diff --git a/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs b/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs --- a/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs +++ b/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Creates a new policy that contains the necessary attributes depending on the -- policy type. Policies are settings that are saved for your load balancer and @@ -51,7 +53,7 @@ data CreateLoadBalancerPolicy = CreateLoadBalancerPolicy { _clbpLoadBalancerName :: Text - , _clbpPolicyAttributes :: List "PolicyAttributes" PolicyAttribute + , _clbpPolicyAttributes :: List "member" PolicyAttribute , _clbpPolicyName :: Text , _clbpPolicyTypeName :: Text } deriving (Eq, Show) diff --git a/gen/Network/AWS/ELB/DeleteLoadBalancer.hs b/gen/Network/AWS/ELB/DeleteLoadBalancer.hs --- a/gen/Network/AWS/ELB/DeleteLoadBalancer.hs +++ b/gen/Network/AWS/ELB/DeleteLoadBalancer.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Deletes the specified load balancer. -- diff --git a/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs b/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs --- a/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs +++ b/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Deletes listeners from the load balancer for the specified port. -- @@ -46,7 +48,7 @@ data DeleteLoadBalancerListeners = DeleteLoadBalancerListeners { _dlblLoadBalancerName :: Text - , _dlblLoadBalancerPorts :: List "LoadBalancerPorts" Int + , _dlblLoadBalancerPorts :: List "member" Int } deriving (Eq, Ord, Show) -- | 'DeleteLoadBalancerListeners' constructor. diff --git a/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs b/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs --- a/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs +++ b/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Deletes a policy from the load balancer. The specified policy must not be -- enabled for any listeners. diff --git a/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs b/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs --- a/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs +++ b/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Deregisters instances from the load balancer. Once the instance is -- deregistered, it will stop receiving traffic from the load balancer. @@ -57,7 +59,7 @@ import qualified GHC.Exts data DeregisterInstancesFromLoadBalancer = DeregisterInstancesFromLoadBalancer - { _diflbInstances :: List "Instances" Instance + { _diflbInstances :: List "member" Instance , _diflbLoadBalancerName :: Text } deriving (Eq, Show) @@ -86,7 +88,7 @@ lens _diflbLoadBalancerName (\s a -> s { _diflbLoadBalancerName = a }) newtype DeregisterInstancesFromLoadBalancerResponse = DeregisterInstancesFromLoadBalancerResponse - { _diflbrInstances :: List "Instances" Instance + { _diflbrInstances :: List "member" Instance } deriving (Eq, Show, Monoid, Semigroup) instance GHC.Exts.IsList DeregisterInstancesFromLoadBalancerResponse where diff --git a/gen/Network/AWS/ELB/DescribeInstanceHealth.hs b/gen/Network/AWS/ELB/DescribeInstanceHealth.hs --- a/gen/Network/AWS/ELB/DescribeInstanceHealth.hs +++ b/gen/Network/AWS/ELB/DescribeInstanceHealth.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Returns the current state of the specified instances registered with the -- specified load balancer. If no instances are specified, the state of all the @@ -52,7 +54,7 @@ import qualified GHC.Exts data DescribeInstanceHealth = DescribeInstanceHealth - { _dihInstances :: List "Instances" Instance + { _dihInstances :: List "member" Instance , _dihLoadBalancerName :: Text } deriving (Eq, Show) @@ -81,7 +83,7 @@ lens _dihLoadBalancerName (\s a -> s { _dihLoadBalancerName = a }) newtype DescribeInstanceHealthResponse = DescribeInstanceHealthResponse - { _dihrInstanceStates :: List "InstanceStates" InstanceState + { _dihrInstanceStates :: List "member" InstanceState } deriving (Eq, Show, Monoid, Semigroup) instance GHC.Exts.IsList DescribeInstanceHealthResponse where diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs b/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs --- a/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs +++ b/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Returns detailed information about all of the attributes associated with the -- specified load balancer. diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs --- a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs +++ b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Returns detailed descriptions of the policies. If you specify a load balancer -- name, the action returns the descriptions of all the policies created for the @@ -54,7 +56,7 @@ data DescribeLoadBalancerPolicies = DescribeLoadBalancerPolicies { _dlbpLoadBalancerName :: Maybe Text - , _dlbpPolicyNames :: List "PolicyNames" Text + , _dlbpPolicyNames :: List "member" Text } deriving (Eq, Ord, Show) -- | 'DescribeLoadBalancerPolicies' constructor. @@ -85,7 +87,7 @@ dlbpPolicyNames = lens _dlbpPolicyNames (\s a -> s { _dlbpPolicyNames = a }) . _List newtype DescribeLoadBalancerPoliciesResponse = DescribeLoadBalancerPoliciesResponse - { _dlbprPolicyDescriptions :: List "PolicyDescriptions" PolicyDescription + { _dlbprPolicyDescriptions :: List "member" PolicyDescription } deriving (Eq, Show, Monoid, Semigroup) instance GHC.Exts.IsList DescribeLoadBalancerPoliciesResponse where diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs --- a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs +++ b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Returns meta-information on the specified load balancer policies defined by -- the Elastic Load Balancing service. The policy types that are returned from @@ -49,7 +51,7 @@ import qualified GHC.Exts newtype DescribeLoadBalancerPolicyTypes = DescribeLoadBalancerPolicyTypes - { _dlbptPolicyTypeNames :: List "PolicyTypeNames" Text + { _dlbptPolicyTypeNames :: List "member" Text } deriving (Eq, Ord, Show, Monoid, Semigroup) instance GHC.Exts.IsList DescribeLoadBalancerPolicyTypes where @@ -78,7 +80,7 @@ . _List newtype DescribeLoadBalancerPolicyTypesResponse = DescribeLoadBalancerPolicyTypesResponse - { _dlbptrPolicyTypeDescriptions :: List "PolicyTypeDescriptions" PolicyTypeDescription + { _dlbptrPolicyTypeDescriptions :: List "member" PolicyTypeDescription } deriving (Eq, Show, Monoid, Semigroup) instance GHC.Exts.IsList DescribeLoadBalancerPolicyTypesResponse where diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancers.hs b/gen/Network/AWS/ELB/DescribeLoadBalancers.hs --- a/gen/Network/AWS/ELB/DescribeLoadBalancers.hs +++ b/gen/Network/AWS/ELB/DescribeLoadBalancers.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Returns detailed configuration information for all the load balancers -- created for the account. If you specify load balancer names, the action @@ -54,7 +56,7 @@ import qualified GHC.Exts data DescribeLoadBalancers = DescribeLoadBalancers - { _dlbLoadBalancerNames :: List "LoadBalancerNames" Text + { _dlbLoadBalancerNames :: List "member" Text , _dlbMarker :: Maybe Text , _dlbPageSize :: Maybe Nat } deriving (Eq, Ord, Show) @@ -93,7 +95,7 @@ dlbPageSize = lens _dlbPageSize (\s a -> s { _dlbPageSize = a }) . mapping _Nat data DescribeLoadBalancersResponse = DescribeLoadBalancersResponse - { _dlbrLoadBalancerDescriptions :: List "LoadBalancerDescriptions" LoadBalancerDescription + { _dlbrLoadBalancerDescriptions :: List "member" LoadBalancerDescription , _dlbrNextMarker :: Maybe Text } deriving (Eq, Show) diff --git a/gen/Network/AWS/ELB/DescribeTags.hs b/gen/Network/AWS/ELB/DescribeTags.hs --- a/gen/Network/AWS/ELB/DescribeTags.hs +++ b/gen/Network/AWS/ELB/DescribeTags.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Describes the tags associated with one or more load balancers. -- @@ -46,7 +48,7 @@ import qualified GHC.Exts newtype DescribeTags = DescribeTags - { _dtLoadBalancerNames :: List1 "LoadBalancerNames" Text + { _dtLoadBalancerNames :: List1 "member" Text } deriving (Eq, Ord, Show, Semigroup) -- | 'DescribeTags' constructor. @@ -68,7 +70,7 @@ . _List1 newtype DescribeTagsResponse = DescribeTagsResponse - { _dtrTagDescriptions :: List "TagDescriptions" TagDescription + { _dtrTagDescriptions :: List "member" TagDescription } deriving (Eq, Show, Monoid, Semigroup) instance GHC.Exts.IsList DescribeTagsResponse where diff --git a/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs b/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs --- a/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs +++ b/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Removes subnets from the set of configured subnets in the Amazon Virtual -- Private Cloud (Amazon VPC) for the load balancer. @@ -54,7 +56,7 @@ data DetachLoadBalancerFromSubnets = DetachLoadBalancerFromSubnets { _dlbfsLoadBalancerName :: Text - , _dlbfsSubnets :: List "Subnets" Text + , _dlbfsSubnets :: List "member" Text } deriving (Eq, Ord, Show) -- | 'DetachLoadBalancerFromSubnets' constructor. @@ -83,7 +85,7 @@ dlbfsSubnets = lens _dlbfsSubnets (\s a -> s { _dlbfsSubnets = a }) . _List newtype DetachLoadBalancerFromSubnetsResponse = DetachLoadBalancerFromSubnetsResponse - { _dlbfsrSubnets :: List "Subnets" Text + { _dlbfsrSubnets :: List "member" Text } deriving (Eq, Ord, Show, Monoid, Semigroup) instance GHC.Exts.IsList DetachLoadBalancerFromSubnetsResponse where diff --git a/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs b/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs --- a/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs +++ b/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Removes the specified EC2 Availability Zones from the set of configured -- Availability Zones for the load balancer. @@ -58,7 +60,7 @@ import qualified GHC.Exts data DisableAvailabilityZonesForLoadBalancer = DisableAvailabilityZonesForLoadBalancer - { _dazflbAvailabilityZones :: List "AvailabilityZones" Text + { _dazflbAvailabilityZones :: List "member" Text , _dazflbLoadBalancerName :: Text } deriving (Eq, Ord, Show) @@ -93,7 +95,7 @@ lens _dazflbLoadBalancerName (\s a -> s { _dazflbLoadBalancerName = a }) newtype DisableAvailabilityZonesForLoadBalancerResponse = DisableAvailabilityZonesForLoadBalancerResponse - { _dazflbrAvailabilityZones :: List "AvailabilityZones" Text + { _dazflbrAvailabilityZones :: List "member" Text } deriving (Eq, Ord, Show, Monoid, Semigroup) instance GHC.Exts.IsList DisableAvailabilityZonesForLoadBalancerResponse where diff --git a/gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs b/gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs --- a/gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs +++ b/gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Adds one or more EC2 Availability Zones to the load balancer. -- @@ -54,7 +56,7 @@ import qualified GHC.Exts data EnableAvailabilityZonesForLoadBalancer = EnableAvailabilityZonesForLoadBalancer - { _eazflbAvailabilityZones :: List "AvailabilityZones" Text + { _eazflbAvailabilityZones :: List "member" Text , _eazflbLoadBalancerName :: Text } deriving (Eq, Ord, Show) @@ -86,7 +88,7 @@ lens _eazflbLoadBalancerName (\s a -> s { _eazflbLoadBalancerName = a }) newtype EnableAvailabilityZonesForLoadBalancerResponse = EnableAvailabilityZonesForLoadBalancerResponse - { _eazflbrAvailabilityZones :: List "AvailabilityZones" Text + { _eazflbrAvailabilityZones :: List "member" Text } deriving (Eq, Ord, Show, Monoid, Semigroup) instance GHC.Exts.IsList EnableAvailabilityZonesForLoadBalancerResponse where diff --git a/gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs b/gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs --- a/gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs +++ b/gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Modifies the attributes of a specified load balancer. -- diff --git a/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs b/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs --- a/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs +++ b/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Adds new instances to the load balancer. -- @@ -71,7 +73,7 @@ import qualified GHC.Exts data RegisterInstancesWithLoadBalancer = RegisterInstancesWithLoadBalancer - { _riwlbInstances :: List "Instances" Instance + { _riwlbInstances :: List "member" Instance , _riwlbLoadBalancerName :: Text } deriving (Eq, Show) @@ -101,7 +103,7 @@ lens _riwlbLoadBalancerName (\s a -> s { _riwlbLoadBalancerName = a }) newtype RegisterInstancesWithLoadBalancerResponse = RegisterInstancesWithLoadBalancerResponse - { _riwlbrInstances :: List "Instances" Instance + { _riwlbrInstances :: List "member" Instance } deriving (Eq, Show, Monoid, Semigroup) instance GHC.Exts.IsList RegisterInstancesWithLoadBalancerResponse where diff --git a/gen/Network/AWS/ELB/RemoveTags.hs b/gen/Network/AWS/ELB/RemoveTags.hs --- a/gen/Network/AWS/ELB/RemoveTags.hs +++ b/gen/Network/AWS/ELB/RemoveTags.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- 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. -- @@ -45,8 +47,8 @@ import qualified GHC.Exts data RemoveTags = RemoveTags - { _rtLoadBalancerNames :: List "LoadBalancerNames" Text - , _rtTags :: List1 "Tags" TagKeyOnly + { _rtLoadBalancerNames :: List "member" Text + , _rtTags :: List1 "member" TagKeyOnly } deriving (Eq, Show) -- | 'RemoveTags' constructor. diff --git a/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs b/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs --- a/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs +++ b/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- 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 diff --git a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs --- a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs +++ b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Replaces the current set of policies associated with a port on which the -- back-end server is listening with a new set of policies. After the policies @@ -61,7 +63,7 @@ data SetLoadBalancerPoliciesForBackendServer = SetLoadBalancerPoliciesForBackendServer { _slbpfbsInstancePort :: Int , _slbpfbsLoadBalancerName :: Text - , _slbpfbsPolicyNames :: List "PolicyNames" Text + , _slbpfbsPolicyNames :: List "member" Text } deriving (Eq, Ord, Show) -- | 'SetLoadBalancerPoliciesForBackendServer' constructor. diff --git a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs --- a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs +++ b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Associates, updates, or disables a policy with a listener on the load -- balancer. You can associate multiple policies with a listener. @@ -49,7 +51,7 @@ data SetLoadBalancerPoliciesOfListener = SetLoadBalancerPoliciesOfListener { _slbpolLoadBalancerName :: Text , _slbpolLoadBalancerPort :: Int - , _slbpolPolicyNames :: List "PolicyNames" Text + , _slbpolPolicyNames :: List "member" Text } deriving (Eq, Ord, Show) -- | 'SetLoadBalancerPoliciesOfListener' constructor. diff --git a/gen/Network/AWS/ELB/Types.hs b/gen/Network/AWS/ELB/Types.hs --- a/gen/Network/AWS/ELB/Types.hs +++ b/gen/Network/AWS/ELB/Types.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. module Network.AWS.ELB.Types ( @@ -275,7 +277,7 @@ data TagDescription = TagDescription { _tdLoadBalancerName :: Maybe Text - , _tdTags :: List1 "Tags" Tag + , _tdTags :: List1 "member" Tag } deriving (Eq, Show) -- | 'TagDescription' constructor. @@ -557,7 +559,7 @@ data LoadBalancerAttributes = LoadBalancerAttributes { _lbaAccessLog :: Maybe AccessLog - , _lbaAdditionalAttributes :: List "AdditionalAttributes" AdditionalAttribute + , _lbaAdditionalAttributes :: List "member" AdditionalAttribute , _lbaConnectionDraining :: Maybe ConnectionDraining , _lbaConnectionSettings :: Maybe ConnectionSettings , _lbaCrossZoneLoadBalancing :: Maybe CrossZoneLoadBalancing @@ -713,7 +715,7 @@ data ListenerDescription = ListenerDescription { _ldListener :: Maybe Listener - , _ldPolicyNames :: List "PolicyNames" Text + , _ldPolicyNames :: List "member" Text } deriving (Eq, Show) -- | 'ListenerDescription' constructor. @@ -793,7 +795,7 @@ ] data PolicyDescription = PolicyDescription - { _pdPolicyAttributeDescriptions :: List "PolicyAttributeDescriptions" PolicyAttributeDescription + { _pdPolicyAttributeDescriptions :: List "member" PolicyAttributeDescription , _pdPolicyName :: Maybe Text , _pdPolicyTypeName :: Maybe Text } deriving (Eq, Show) @@ -921,21 +923,21 @@ ] data LoadBalancerDescription = LoadBalancerDescription - { _lbdAvailabilityZones :: List "AvailabilityZones" Text - , _lbdBackendServerDescriptions :: List "BackendServerDescriptions" BackendServerDescription + { _lbdAvailabilityZones :: List "member" Text + , _lbdBackendServerDescriptions :: List "member" BackendServerDescription , _lbdCanonicalHostedZoneName :: Maybe Text , _lbdCanonicalHostedZoneNameID :: Maybe Text , _lbdCreatedTime :: Maybe ISO8601 , _lbdDNSName :: Maybe Text , _lbdHealthCheck :: Maybe HealthCheck - , _lbdInstances :: List "Instances" Instance - , _lbdListenerDescriptions :: List "ListenerDescriptions" ListenerDescription + , _lbdInstances :: List "member" Instance + , _lbdListenerDescriptions :: List "member" ListenerDescription , _lbdLoadBalancerName :: Maybe Text , _lbdPolicies :: Maybe Policies , _lbdScheme :: Maybe Text - , _lbdSecurityGroups :: List "SecurityGroups" Text + , _lbdSecurityGroups :: List "member" Text , _lbdSourceSecurityGroup :: Maybe SourceSecurityGroup - , _lbdSubnets :: List "Subnets" Text + , _lbdSubnets :: List "member" Text , _lbdVPCId :: Maybe Text } deriving (Eq, Show) @@ -1133,7 +1135,7 @@ data BackendServerDescription = BackendServerDescription { _bsdInstancePort :: Maybe Nat - , _bsdPolicyNames :: List "PolicyNames" Text + , _bsdPolicyNames :: List "member" Text } deriving (Eq, Ord, Show) -- | 'BackendServerDescription' constructor. @@ -1276,7 +1278,7 @@ data PolicyTypeDescription = PolicyTypeDescription { _ptdDescription :: Maybe Text - , _ptdPolicyAttributeTypeDescriptions :: List "PolicyAttributeTypeDescriptions" PolicyAttributeTypeDescription + , _ptdPolicyAttributeTypeDescriptions :: List "member" PolicyAttributeTypeDescription , _ptdPolicyTypeName :: Maybe Text } deriving (Eq, Show) @@ -1328,9 +1330,9 @@ ] data Policies = Policies - { _pAppCookieStickinessPolicies :: List "AppCookieStickinessPolicies" AppCookieStickinessPolicy - , _pLBCookieStickinessPolicies :: List "LBCookieStickinessPolicies" LBCookieStickinessPolicy - , _pOtherPolicies :: List "PolicyNames" Text + { _pAppCookieStickinessPolicies :: List "member" AppCookieStickinessPolicy + , _pLBCookieStickinessPolicies :: List "member" LBCookieStickinessPolicy + , _pOtherPolicies :: List "member" Text } deriving (Eq, Show) -- | 'Policies' constructor.